OM350CON - Impressão dos relatórios Diagnóstico do Veículo e Ficha de Qualidade

Descrição

Este Ponto de Entrada é executado na rotina Agendamento (OFIOM350), e está disponível no Ações Relacionadas. Será apresentado os botões Diagnostico do Veículo e Ficha de Qualidade para impressão destes relatórios respectivamente. A rotina também permite a impressão destes relatórios 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