Histórico da Página

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Atend. Modelo 2 (VEIXA018) ao ser executada a funcionalidade Venda Futura / Relaciona Chassi. A mesma permite na tela de “Veiculos a relacionar ao Atendimento” a inclusão do criar validações no atendimento (veículo) na Lista de Espera.

Localização:

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

Eventos:

If !lRet
    VV1->(DbSetOrder(1))
    VV1->(DbSeek(xFilial("VV1")+cChaInt))
    VV2->(DbSetOrder(1))
    VV2->(DbSeek(xFilial("VV2")+VV1->VV1_CODMAR+VV1->VV1_MODVEI))
    cMsg := STR0025 +CHR(13)+CHR(10)+CHR(13)+CHR(10) //Veiculo com Prioridade de Venda! Impossivel continuar.
    cMsg += "  - "+ STR0026 +": "+Alltrim(VV1->VV1_CHASSI)+" - "+VV1->VV1_CODMAR+" "+Alltrim(VV1->VV1_MODVEI)+" - "+Alltrim(VV2->VV2_DESMOD)+CHR(13)+CHR(10)//Veiculo
    cMsg += "  - "+ STR0027 +": "+( cQAlias )->( VRE_NUMATE )+CHR(13)+CHR(10)//Atendimento
    cMsg += "  - "+ STR0028 +": "+( cQAlias )->( VRE_USURES )+" - "+UsrRetName(( cQAlias )->( VRE_USURES ))+CHR(13)+CHR(10)//Usuario
    cMsg += "  - "+ STR0029 +": "+Transform(stod(( cQAlias )->( VRE_DATDES )),"@D")+" "+Transform(( cQAlias )->( VRE_HORDES ),"@R 99:99")+STR0030 //Validade / hs
    MsgStop(cMsg,STR0004) // Atencao

    // Ponto de Entrada para inclusão na Lista de Espera
    If ExistBlock("VXX16ESP")
        ExecBlock("VXX16ESP", .f., .f., {cNumAte, cChaInt})
    EndIf

    Exit
Else
    FS_DESRESER(( cQAlias )->( RECVRE ),"0") // Desreserva Automatica ( Prioridade de Venda )
EndIf

Programa Fonte:

VEIXX016.PRW

Função:

VX016VALID()

Parâmetros:

Nome	Tipo	Descrição
cNumAte	Caracter	Número do Atendimento
cChaInt	Caracter	Chassi do Veículo

Retorno:

N/A

Exemplo:

Include totvs.ch

/*
===============================================================================================
###############################################################################################
##+----------+------------+-------+---------------------------------------+------+----------+##
##|

Função

Função    |

VXC01VAL

  VXX16ESP  |

Autor

 Autor |

MIL

 MIL                                   |

Data

 Data |

06

25/

05

11/

19

19 |##
##+----------+------------+-------+---------------------------------------+------+----------+##
##|

Descrição | Ponto de entrada VXC01VAL localizado na rotina Veic. Atendimento (VEIXC001) |##

##| | que irá realizar uma validação no momento de confirmar/ salvar a janela de |##

##| | seleção de veículos. |##

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

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

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

*/

/*

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

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

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

##|Função | VXX16ESP | Autor | MIL | Data | 25/11/19 |##

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

##|Descrição | Inclusão do atendimento (veículo) na Lista de Espera na rotina Atend.

Descrição |  Validação do atendimento (veículo) na rotina Atend. Modelo 2 (VEIXA018) ao  |##
##|----------|

Modelo 2 (VEIXA018) ao selecionar a opção Venda Futura - Relaciona Chassi

  selecionar a opção Venda Futura - Relaciona Chassi                          |##
##+----------+------------------------------------------------------------------------------+##
###############################################################################################
===============================================================================================
*/

User Function VXX16ESP


User Function VXX16ESP()

Local cNumAte

Local cNumAte :=

ParamIxb

 ParamIxb[01] //

Parâmetro 1 - Número do AtendimentoLocal cChaInt

 Parâmetro 1 - Número do Atendimento
Local cChaInt :=

ParamIxb

 ParamIxb[02] //

Parâmetro 2 - Chassi do Veículo

 Parâmetro 2 - Chassi do Veículo

MsgInfo("

Ponto de Entrada VXX16ESP executado com sucesso

Ponto de Entrada VXX16ESP executado com sucesso!","")

Return

Árvore de páginas

Versões comparadas

Versão antiga 5

Nova versão Atual

Chave

Ponto de Entrada