Histórico da Página

Descrição

Este Ponto de Entrada é executado na rotina Agendamento (OFIOM350), e está disponível dentro do botão Ações Relacionadas. Permitindo a impressão dos relatórios Diagnostico do Veículo e Ficha de Qualidade. A rotina também permite a impressão dos relatórios de Diagnostico do Veículo e Ficha de Qualidade após a confirmação do agendamento.

Observações

Exemplos

User Function OM350CON()

MsgInfo("Ponto de entrada OM350CON executado com sucesso.")

Return(.t.)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Todas

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

N/A

Retorno

N/A

Eventos de chamada do Ponto de Entrada

Function OM350CONF()
local cMsgAge := ""
If VSO->VSO_STATUS != "1"
If VSO->VSO_STATUS == "5"
cMsgAge := STR0122 // "com Orcamento Aberto!"
ElseIf VSO->VSO_STATUS=="2"
cMsgAge := STR0123 // "com OS Aberta!"
ElseIf VSO->VSO_STATUS=="3"
cMsgAge := STR0124 // "Finalizado!"
ElseIf VSO->VSO_STATUS=="4"
cMsgAge := STR0125 // "Cancelado!"
Endif
MsgStop(STR0126 + cMsgAge,STR0015)//Impossivel confirmar Agendamento ## atencao
Return(.f.)
Else
if VSO->VSO_AGCONF == "1" .or. VSO->VSO_AGCONF == "2"
MsgStop(STR0108,STR0015)//Agendamento ja confirmado ## atencao
Return(.f.)
Endif
if MsgYesNo(STR0109,STR0015)//Confirma agendamento? ## atencao
dbSelectArea("VSO")
RecLock("VSO",.f.)
VSO->VSO_AGCONF := "1"
MsUnlock()
if MsgYesNo(STR0110,STR0015)//Deseja fazer CheckList? ## atencao
OFIOA280()
Endif
Endif
Endif

// Ponto de entrada para impressao do relatorio no momento da confirmacao do agendamento
If ExistBlock("OM350CON")
ExecBlock("OM350CON",.f.,.f.,\{VSO->VSO_NUMIDE\})
Endif

Return(.t.)

Variáveis

Programa Fonte

OFIOM350