VX030OPO - Gravação de novos campos após a confirmação dos interesses no Faturamento Direto.

Este Ponto de Entrada permite a gravação de novos campos, após a confirmação dos interesses na tela da rotina Faturamento Direto (VEIXA030).

User Function VX030OPO()
Local cFilAte := ParamIXB[1]
Local cNumAte := ParamIXB[2]

MsgInfo("Ponto de Entrada VX030OPO excutado com sucesso!")

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

Filial
Numero do Atendimento

N/A

If nOpcao == 1 // OK Tela
DbSelectArea("VDM")
For nCntFor := 1 to len(aVerOport)
If aVerOport[nCntFor,1]
DbGoTo(aVerOport[nCntFor,9])
RecLock("VDM",.f.)
VDM->VDM_FILATE := xFilial("VV9")
VDM->VDM_NUMATE := VV9->VV9_NUMATE
If lVDM_ITETRA
VDM->VDM_ITETRA := aVerOport[nCntFor,11]
EndIf
MsUnLock()
EndIf
Next nCntFor
If ExistBlock("VX030OPO")
ExecBlock("VX030OPO",.f.,.f.,\{ VV9->VV9_FILIAL , VV9->VV9_NUMATE \})
EndIf
EndIf

VEIXX030