Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

Ponto de Entrada

Descrição:

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:
NomeTipoDescrição
cFilAteCaractereFilial do Atendimento
cNumAteCaractereNúmero do Atendimento
aVetRelacVetorVetor com os Possíveis Interesses do Cliente

Retorno:

NomeTipoDescrição
lRetLó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. //

////////////////////////////////////////////////////////////////////

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