Linha Microsiga Protheus

Árvore de páginas

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” criar validações no atendimento (veículo).

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:
NomeTipoDescrição

cNumAte

Caracter

Número do Atendimento

cChaInt

Caracter

Chassi do Veículo

Retorno:N/A

Exemplo:

Include totvs.ch
/*
===============================================================================================
###############################################################################################
##+----------+------------+-------+---------------------------------------+------+----------+##
##|Função    |  VXX16ESP  | Autor | MIL                                   | Data | 25/11/19 |##
##+----------+------------+-------+---------------------------------------+------+----------+##
##|Descrição |  Validação do atendimento (veículo) na rotina Atend. Modelo 2 (VEIXA018) ao  |##
##|----------|  selecionar a opção Venda Futura - Relaciona Chassi                          |##
##+----------+------------------------------------------------------------------------------+##
###############################################################################################
===============================================================================================
*/

User Function VXX16ESP()
Local cNumAte := ParamIxb[01] // Parâmetro 1 - Número do Atendimento
Local cChaInt := ParamIxb[02] // Parâmetro 2 - Chassi do Veículo

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

Return