VX002OPO - Gravação de Novos Campos na Tela da Rotina Atendimento Modelo 2

Este Ponto de Entrada permite a gravação de novos campos após a confirmação dos interesses, na tela da rotina Atendimento Modelo 2 (VEIXA018).

User Function VX002OPO()

MsgInfo("Ponto de Entrada VX002OPO 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 := M->VV9_NUMATE
MsUnLock()
EndIf
Next nCntFor
If ExistBlock("VX002OPO")
ExecBlock("VX002OPO",.f.,.f.,\{ M->VV9_FILIAL ,M->VV9_NUMATE \})
EndIf
EndIf
Return()

VEIXX002