Histórico da Página
Ponto de Entrada
Descrição: | Este ponto de entrada está localizado na rotina de Atendimento de Veículos Modelo 2 (VEIXA018). É executado antes da gravação do relacionamento dos Interesses com os Itens do Atendimento. Tem por objetivo validar o relacionamento realizado pelo usuário. | ||||||||||||
Localização: | Atualizações \ Mov Atendimento \ Atend. Modelo 2 (VEIXA018) | ||||||||||||
Eventos: | Function VX0020011_ValidaRelacionamentoInteresse(aVetRelac) Local lRet := .t. If ExistBlock("VX002VOP") /* aVetRelac[n,01] = Interesse selecionado ( .t. / .f. ) aVetRelac[n,02] = Campanha aVetRelac[n,03] = Marca aVetRelac[n,04] = Modelo aVetRelac[n,05] = Cor aVetRelac[n,06] = Qtde (default: 1) aVetRelac[n,07] = Data Interesse aVetRelac[n,08] = Data Validade do Interesse aVetRelac[n,09] = RecNo do VDM aVetRelac[n,10] = Opcionais aVetRelac[n,11] = Codigo do Vendedor aVetRelac[n,12] = Item do Atendimento ( relacionamento VDM_ITETRA com VVA_ITETRA ) aVetRelac[n,13] = Cor Legenda */ lRet := ExecBlock("VX002VOP",.f.,.f.,{ M->VV9_FILIAL , M->VV9_NUMATE , aClone(aVetRelac) }) EndIf Return lRet | ||||||||||||
Programa Fonte: | VEIX002.PRW | ||||||||||||
Função: | VX0020011_ValidaRelacionamento() | ||||||||||||
Parâmetros: |
| ||||||||||||
Retorno: |
|
Exemplo:
Include totvs.ch
////////////////////////////////////////////////////////////////////
// Ponto de Entrada executado para validação no TudoOK da tela de //
// relacionamento entre os Interesses e os Itens do Atendimento. //
////////////////////////////////////////////////////////////////////
User Function VX002VOP()
Local lRet := .t.
Local cFilAte := ParamIxb[01] // Parametro 1 - Filial do Atendimento
Local cNumAte := ParamIxb[02] // Parametro 2 - Numero do Atendimento
Local aVetRelac := ParamIxb[03] // Parametro 3 - Vetor de Interesses
/*
aVetRelac[n,01] = Interesse selecionado ( .t. / .f. )
aVetRelac[n,02] = Campanha
aVetRelac[n,03] = Marca
aVetRelac[n,04] = Modelo
aVetRelac[n,05] = Cor
aVetRelac[n,06] = Qtde (default: 1)
aVetRelac[n,07] = Data Interesse
aVetRelac[n,08] = Data Validade do Interesse
aVetRelac[n,09] = RecNo do VDM
aVetRelac[n,10] = Opcionais
aVetRelac[n,11] = Codigo do Vendedor
aVetRelac[n,12] = Item do Atendimento ( relacionamento VDM_ITETRA com VVA_ITETRA )
aVetRelac[n,13] = Cor Legenda
*/
MsgInfo("Ponto de Entrada VX002VOP executado com sucesso!","Atenção")
Return lRet