VX002VOP Validação do Relacionamento Interesses X Itens do Atendimento (VEIXA018)

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:

Nome	Tipo	Descrição
cFilAte	Caractere	Filial do Atendimento
cNumAte	Caractere	Número do Atendimento
aVetRelac	Vetor	Vetor com os Possíveis Interesses do Cliente

Retorno:

Nome	Tipo	Descrição
lRet	Lógico	Informa se o relacionamento deverá continuar ou não de acordo com a validação criada no ponto de entrada, onde .t. = continua e .f. aborta

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. //