Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada tem a finalidade de permitir que o cliente dê manutenção na parambox da opção de Remessa para Manutenção Externa na rotina de Requisição de Peças (OFIOM020).

Localização:

Atualizações / Mov. Oficina / Req. Peças (OFIOM020)

Eventos:

If lCtrlLote .and. aScan(aPeca, { |x| !Empty(x[PECA_LOTECT]) } ) <> 0

Return .f.

EndIf


Pergunte(cGrpSX1,.f.,,,,.f.)


cMVPar06 := MV_PAR06


cFatParRem := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),VO1->VO1_FATPAR+VO1->VO1_LOJA,VO1->VO1_PROVEI+VO1->VO1_LOJPRO)

nTamX3Cli := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_FATPAR")[1],TamSX3("VO1_PROVEI")[1])

nTamX3Loj := If(!Empty(VO1->VO1_FATPAR+VO1->VO1_LOJA),TamSX3("VO1_LOJA")[1],TamSX3("VO1_LOJPRO")[1])


SetMVValue(cGrpSX1, "MV_PAR04", Subs(cFatParRem,1,nTamX3Cli))

SetMVValue(cGrpSX1, "MV_PAR05", Subs(cFatParRem,nTamX3Cli+1,nTamX3Loj))


If ExistBlock("OM020PAR")

ExecBlock("OM020PAR",.f.,.f., cGrpSX1)

EndIf


Pergunte(cGrpSX1,.T.,,,,.f.)

Programa Fonte:

OFIOM020.PRW                                                                                                                                          

Função:

OM020REM()                      

Retorno:

Não há.


Parâmetro:
NomeTipoDescrição

cGrpSX1

Caracter

Nome do grupo de perguntas.

 

Exemplo:

Include totvs.ch

User Function OM020PAR()

cGrpSX1 := ParamIxb


SetMVValue(cGrpSX1, "MV_PAR03", '000001') // alteração do parâmetro de fórmulas.


MsgInfo("Ponto de entrada OM020PAR executado com sucesso!")


Return