Ponto de Entrada
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. |
Localização: | Atualizações \ Mov C e V\ Reg Abordag/visita |
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 ... |
Programa Fonte: | VEICM510.PRW |
Função: | VCM510VAL() |
Parâmetros: | Não se aplica |
Retorno: | lRet - lógico ( .t. / .f. ) Continua o registro de Abordagem ? |
Exemplo:
///////////////////////////////////////////////////////////////////
// Ponto de Entrada no TudoOK da rotina de Registro de Abordagem //
// CEV, é utilizado para realizar validações extras/customizadas //
///////////////////////////////////////////////////////////////////
User Function VCM510OK()
Local lRet := .t.
//
MsgAlert("Ponto de Entrada VCM510OK executado com sucesso!","Atenção")
//
Return lRet