VCM510OK Validação do tudook da tela de Registro de Abordagem

Descrição:

Ponto de Entrada na rotina de Registro de Agordagem CEV, é utilizado para possibilitar validações customizadas no TudoOK da tela. Se o retorno do Ponto de Entrada for .t., a rotina continua o processo da Abordagem, caso contrário, o processo será abortado.

Eventos:

Function VCM510VAL(_cTp,_cCodVen,_cTipAge,_cCodCli,_cLojCli,_dDatAge,_cCdPCli,_cLjPCli)

Local lCEVAGE := ( VAI->(FieldPos("VAI_CEVAGE")) > 0 ) // verdadeiro quando existir o campo VAI_CEVAGE

Local lCEVDIA := ( VAI->(FieldPos("VAI_CEVDIA")) > 0 ) // verdadeiro quando existir o campo VAI_CEVDIA

Local lRet := .t.

Local cTipAge := ""

Local cProVen := ""

Local cMsg := ""

Default _cTp := "2" // Tipo de Chamada ( "1" = verifica somente dados da agenda / "2" = verifica os dados da agenda e do proximo contato )

Default _cCodVen := M->VC1_CODVEN

Default _cTipAge := M->VC1_TIPAGE

Default _cCodCli := M->VC1_CODCLI

Default _cLojCli := M->VC1_LOJA

Default _dDatAge := M->VC1_DATAGE

Default _cCdPCli := M->VC1_CDPROS

Default _cLjPCli := M->VC1_LJPROS

VAI->(DbSetOrder(4))

VAI->(DbSeek( xFilial("VAI") + __CUSERID ))

If _cTp <> "2" .and. ( Empty(_cCodCli+_cLojCli+_cCdPCli+_cLjPCli) .or. ( !Empty(_cCodCli) .and. Empty(_cLojCli) ) .or. ( !Empty(_cCdPCli) .and. Empty(_cLjPCli) ) )

MsgStop(STR0039,STR0006) // Necessario selecionar um Prospect ou um Cliente! / Atencao

Return .f.

ElseIf _cTp == "3" // Tudo OK

If ExistBlock("VCM510OK")

If !ExecBlock("VCM510OK",.f.,.f.) // Ponto de Entrada no TudoOK da rotina de Registro de Abordagem CEV

Return .f.

EndIf

EndIf

_cTp := "2"

EndIf

...

Função:

VCM510VAL()