Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

Este Ponto de Entrada tem a finalidade Gravar os valores dos campos Tipo de Operação, Tes de Saída e Tes de Entrada.

Localização:

Atualizações / Mov Pecas / Ped. Transf. Peças

Eventos:

if VDD->VDD_STATUS != "S"

return .f.

endif

 

if !MsgYesNo(STR0011, STR0013)

return .f.

endif

MV_PAR01 := Space(TamSX3("VS3_OPER")[1])

MV_PAR02 := Space(TamSX3("F4_CODIGO")[1])

MV_PAR03 := Space(TamSX3("F4_CODIGO")[1])

 

// -------------------------------------------------------------------

// PE para carregar os valores dos campos da parambox.

// -------------------------------------------------------------------

If ExistBlock("OX020PAR")

aParam := ExecBlock("OX020PAR",.f.,.f.)

MV_PAR01 := aParam[1]

MV_PAR02 := aParam[2]

MV_PAR03 := aParam[3]

EndIf

 

aParamBox := {}

aAdd(aParamBox,{1,STR0029,MV_PAR01,"","OXA020TPOP()","DJ","",0,.f.})//Tipo de Operacao

aAdd(aParamBox,{1,STR0005,MV_PAR02,"","OXA020VTES()","SF4","",0,.f.})//TES SAIDA

aAdd(aParamBox,{1,STR0033,MV_PAR03,"","OXA020TESE()","SF4","",0,.f.})//TES ENTRADA

 

 

while Empty(MV_PAR02) .or. Empty(MV_PAR03)

If !(ParamBox(aParamBox,STR0001,,,,,,,,,.f.))

return .f.

endif

enddo

 

Programa Fonte:

OFIXA020.PRW                                                                                                                                          

Função:

OXA020A  

Retorno:

cOperação - Tipo de Operação

cTesSai - TES de Saida

cTesEnt - TES de Entrada

 

Exemplo:

User Function OX020PAR()

 

// Exemplo

cOperação := "01"

cTesSai := "501"

cTesEnt := "170"

 

MsgInfo("Ponto de Entrada OX020PAR executado com sucesso!")

 

Return({cOperação,cTesSai,cTesEnt})