VXX02VEX Ponto de Entrada para customizações após deleção do Veículo na Rotina Atend. Modelo 2 (VEIXA018)

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.

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

Função:

VX002DELAC()