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” 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: |
| |||||||||
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