Á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:

Este Ponto de Entrada será executado na rotina Atend. Modelo 2 (VEIXA018) ao ser executada a funcionalidade Incluir ou Alterar. A mesma será executada após a deleção de um veículo, permitindo a atualização de campos customizáveis pelo cliente.

Localização:

Atualizações \ Mov Atendimento \ Atend. Modelo 2 (VEIXA018)

Eventos:

// Limpar linha do vetor de Financiamento referente ao veiculo EXCLUIDO na aCols

aParFin[15,oGetDadVVA:nAt,01] := "" // Chassi Interno (CHAINT)

aParFin[15,oGetDadVVA:nAt,02] := "" // Estado do Veiculo (0=Novo/1=Usado)

aParFin[15,oGetDadVVA:nAt,03] := "" // Grupo do Modelo

aParFin[15,oGetDadVVA:nAt,04] := "" // Modelo do Veiculo

aParFin[15,oGetDadVVA:nAt,05] := "" // Marca do Veiculo


// Limpar linha do vetor de Minimo Comercial referente ao veiculo EXCLUIDO na aCols

aMinCom[oGetDadVVA:nAt,01] := "" // Chassi Interno do Veiculo

aMinCom[oGetDadVVA:nAt,02] := "" // Marca do Veiculo

aMinCom[oGetDadVVA:nAt,03] := "" // Modelo do Veiculo

aMinCom[oGetDadVVA:nAt,04] := "" // Segmento do Modelo

aMinCom[oGetDadVVA:nAt,05] := "" // Cor do Veiculo

aMinCom[oGetDadVVA:nAt,06] := 0 // Valor da Negociacao do Veiculo


// Grava o Atendimento

VX002GRV(nOpc,.f.,"VZ7",,,@aVZ7)


If ! lXX002Auto

oGetDadVVA:Refresh()

EndIf


FG_MEMVAR( oGetDadVVA:aHeader , oGetDadVVA:aCols , oGetDadVVA:nAt)


nVlVeicu := 0

aEval( oGetDadVVA:aCols , { |x| nVlVeicu += IIf( !x[Len(x)] , x[FG_POSVAR("VVA_VALTAB","oGetDadVVA:aHeader")] , 0 ) } )


VX002ATFIS(.t.,.t.,oGetDadVVA:nAt)

VX002ATTELA(M->VV9_NUMATE)


// verifica se deve alterar alguma informacao do veiculo ...

// checar reserva de veiculo na exclusao


// Ponto de entrada para gravações customizadas do veículo excluído

If ExistBlock("VXX02VEX")

ExecBlock("VXX02VEX", .f., .f.)

EndIf


//ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿

//³ R E S T A U R A O V E I C U L O S E L E C I O N A D O ³

//ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

Else


If M->VV0_TIPFAT <> "1" // Veiculo Novo

If M->VVA_ESTVEI == "1"

VX002ExibeHelp("VX002ERR016" , STR0124) // Impossivel restaurar o Veiculo Usado. Este Atendimento e de Veiculo Novo. / Atencao

Return .f.

EndIf

Else // Veiculo Usado

If M->VVA_ESTVEI == "0"

VX002ExibeHelp("VX002ERR017" , STR0125) // Impossivel restaurar o Veiculo Novo. Este Atendimento e de Veiculo Usado. / Atencao

Return .f.

EndIf

EndIf

Programa Fonte:

VEIXX002.PRW

Função:

VX002DELAC()

Parâmetros:

N/A

Retorno:N/A

Exemplo:

Include totvs.ch

/*

===============================================================================================

###############################################################################################

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Função | VXX02VEX | Autor | MIL | Data | 16/03/2020 |##

##+----------+------------+-------+---------------------------------------+------+----------+##

##|Descrição | Ponto de entrada VXX02VEX localizado na rotina Atend. Modelo 2 (VEIXA018) |##

##| | que realizará gravações customizadas após a deleção do veículo |##

##+----------+------------------------------------------------------------------------------+##

###############################################################################################

===============================================================================================

*/

User Function VXX02VEX()


MsgInfo("Ponto de Entrada VXX02VEX executado com sucesso!","")


Return