Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Ponto de Entrada no Atendimento Modelo 2 -> F10 Opções -> Prioridade de Venda Executado ao acionar as opções de RESERVA / RENOVAR RESERVA / DESRESERVA TEMPORARIA do Veiculo.

Localização:

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

Eventos:

...

// Ponto de entrada apos a Reserva/Desreserva TEMPORARIA do Veiculo

If ExistBlock("VXX16RES")

ExecBlock("VXX16RES", .f., .f., {cTipo,"1"}) // cTipo ( 1 - Reserva / 2 - Renovar Reserva ) / 1-Usuario acionou o Botao

EndIf

...


...

// Ponto de entrada apos a Reserva/Desreserva TEMPORARIA do Veiculo

If ExistBlock("VXX16RES")

ExecBlock("VXX16RES", .f., .f., {"0",cTipDes}) // 0 - Desreserva / cTipDes ( 0-Automatico/1-Usuario )

EndIf

...

Programa Fonte:

VEIXX016.PRW

Função:

FS_RESVEI() / FS_DESRESER()

Parâmetros:
NomeTipoDescrição

cTipo

Caracter

Parametro 1 // ( 0 = DESRESERVA / 1 = RESERVA / 2 = RENOVA RESERVA )

cExec

Caracter

Parametro 2 // ( 0 = AUTOMATICO / 1 = EXECUTADO PELO USUARIO )

Retorno:

N/A

Exemplo:

Include totvs.ch

/*/{Protheus.doc} VXX16RES

Ponto de Entrada no Atendimento Modelo 2 -> F10 Opções -> Prioridade de Venda

Executado ao acionar as opções de RESERVA / RENOVAR RESERVA / DESRESERVA TEMPORARIA do Veiculo

/*/

User Function VXX16RES()

Local cTipo := ParamIXB[01] // ( 0 = DESRESERVA / 1 = RESERVA / 2 = RENOVA RESERVA )

Local cExec := ParamIXB[02] // ( 0 = AUTOMATICO / 1 = EXECUTADO PELO USUARIO )


Do Case


Case cTipo == "0" // DESRESERVA

If cExec == "0" // AUTOMATICO

MsgInfo("DESRESERVA AUTOMATICA","PRIORIDADE DE VENDA - RESERVA TEMPORARIA")


Else // cExec == "1" // EXECUTADO PELO USUARIO

MsgInfo("DESRESERVA EXECUTADA PELO USUARIO","PRIORIDADE DE VENDA - RESERVA TEMPORARIA")


EndIf


Case cTipo == "1" // RESERVA

If cExec == "1" // EXECUTADO PELO USUARIO

MsgInfo("RESERVA EXECUTADA PELO USUARIO","PRIORIDADE DE VENDA - RESERVA TEMPORARIA")


EndIf


Case cTipo == "2" // RENOVAR RESERVA

If cExec == "1" // EXECUTADO PELO USUARIO

MsgInfo("RENOVACAO DA RESERVA EXECUTADA PELO USUARIO","PRIORIDADE DE VENDA - RESERVA TEMPORARIA")


EndIf


EndCase


Return