VX04DRES Ponto de Entrada para ser executado no momento que Reserva/Desreserva o Veiculo/Máquina

Ponto de Entrada

Descrição:

Ponto de Entrada na rotina de Atendimento Modelo 2, executado após a Reserva e Desreserva do Veiculo/Máquina.

Localização:

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

Eventos:

...

//Ponto de Entrada apos a RESERVA e DESRESERVA do Veiculo

If ExistBlock("VX04DRES")

ExecBlock("VX04DRES",.f.,.f.,{ VVA->VVA_CHASSI , VVA->VVA_CHAINT , xFilial("VV0") , cParAte , cCanRes })

EndIf

...

Programa Fonte:

VEIXX004.PRW

Função:

VEIXX004()

Parâmetros:

Nome	Tipo	Descrição
cChassi	Caracter	Chassi do Veiculo/Maquina
cChaInt	Caracter	Chassi Interno do Veiculo/Maquina
cFilAte	Caracter	Filial do Atendimento
cNroAte	Caracter	Numero do Atendimento
cParTip	Caracter	Tipo ( Se igual a "1" = reservando / Se diferente de "1" = desreservando )

Retorno:

N/A

Exemplo:

Include totvs.ch

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

// //

// VX04DRES - Ponto de Entrada na rotina de Atendimento Modelo 2, executado após a Reserva e //

// Desreserva do Veiculo/Máquina. //

// //

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

User Function VX04DRES()

Local cChassi := ParamIxb[1] // Chassi do Veiculo/Maquina

Local cChaInt := ParamIxb[2] // Chassi Interno do Veiculo/Maquina

Local cFilAte := ParamIxb[3] // Filial do Atendimento

Local cNroAte := ParamIxb[4] // Numero do Atendimento

Local cParTip := ParamIxb[5] // Tipo ( Se igual a "1" = reservando / Se diferente de "1" = desreservando )

MsgInfo("Ponto de entrada VX04DRES executado com sucesso!" )

Return