DT_OX020PAR_Gravacao_de_valores_dos_campos_Tipo_de_Operacao_e_Tes

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.

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

Função:

OXA020A