VCM680OK - Validações entre campos no momento da gravação do registro

Este Ponto de Entrada tem o objetivo de criar validações entre campos no momento da gravação do registro, seja na inclusão ou alteração.

User Function VCM680OK()
Local lRet := .t.

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


Return(lRet)

Português(Brasil)

Todas

Todos

Todas

N/A

lRet - Retorno logico.

If lRet
For ni := 1 to len(oAuxGetDados:aCols)
If !oAuxGetDados:aCols[ni,Len(oAuxGetDados:aCols[ni])]
If lVDK_OBRCLI .and. Empty(M->VDL_CODCLI+M->VDL_LOJCLI)
VDK->(DbSetOrder(1))
If VDK->(DbSeek(xFilial("VDK")+oAuxGetDados:aCols[ni,FG_POSVAR("VDM_CODFAS")]))
If VDK->VDK_OBRCLI == "1" // Cliente eh obrigatorio
MsgStop(STR0030+CHR(13)+CHR(10)+CHR(13)+CHR(10)+STR0018+": "+oAuxGetDados:aCols[ni,FG_POSVAR("VDM_CODFAS")],STR0029) // Os dados do cliente (Codigo Cliente / Loja) sao necessarios para a proxima fase da oportunidade! / Fase / Atencao
lRet := .f.
Exit
EndIf
EndIf
EndIf
For nj := 1 to len(aHeader)
If X3Obrigat(aHeader[nj,2]) .and. Empty(oAuxGetDados:aCols[ni,FG_POSVAR(aHeader[nj,2])])
Help(" ",1,"OBRIGAT",,RetTitle(aHeader[nj,2])+space(50),3,0 )
lRet := .f.
Exit
EndIf
Next
If !lRet
Exit
EndIf
EndIf
Next
EndIf

if nOpc == 3 .or. nOpc == 4
lRetorn := ExecBlock("VCM680OK",.f.,.f.)
If !lRetorn
Return (lRetorn)
Endif
Endif

Return(lRet)

VEICM680