Histórico da Página
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: |
| |||||||||
| 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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas