Descrição

Este Ponto de Entrada será executado na rotina Agendamento (OFIOM350) e permite a inclusão de botões no Ações Relacionadas. Será permitido a inclusão de mais de um botão, ou seja, a quantidade necessária para a empresa.

Observações

Exemplos

User Function OM350ROT()
aRotina := ParamIxb[1]

if FindFunction("U_M_LR_POS")
aadd(aRotina,\{"Pre Abertura O.S.","U_M_LR_POS()",0,4\})
Endif

Return(aRotina)

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

aRotina

Retorno

aRotina

Eventos de chamada do Ponto de Entrada

Static Function MenuDef()
Local aRotina := \{\}
if ExistBlock("OM350PRO")
aRotina := \{ \{ STR0002 , "AxPesqui" , 0 , 1 \},; // Pesquisar
\{ STR0003 , "OM350V" , 0 , 2 \},; // Vizualizar
\{ STR0004 , "OM350I" , 0 , 3 \},; // Incluir
\{ STR0005 , "OM350A" , 0 , 4 \},; // Alterar
\{ STR0006 , "OM350C" , 0 , 5 \},; // Cancelar
\{ STR0007 , "OM350L" , 0 , 0 , 2 \},; // Legenda
\{ STR0008 , "OFIOC380" , 0 , 2 \},; // Pesquisa Avancada
\{ STR0009 , "OM350ORC" , 0 , 2 \},; // Orcamento
\{ STR0105 , "OM350OS" , 0 , 2 \},; // Consulta O.S.
\{ STR0106 , "OM350CONF", 0 , 2 \},; // Confirma Agendam.
\{ STR0176 , "U_OM350PRO" , 0 , 2 \},; // Relatorio de Pré-Ordem de servico.
\{ STR0177 , "OM460PROG" , 0 , 2\},; // Consulta
\{ STR0178 , "OM460P" , 0 , 4\},; // Programação
\{ STR0163 , "OFIXC006" , 0 , 2 \}\} // Confirma Presenca
Else
aRotina := \{ \{ STR0002 , "AxPesqui" , 0 , 1 \},; // Pesquisar
\{ STR0003 , "OM350V" , 0 , 2 \},; // Vizualizar
\{ STR0004 , "OM350I" , 0 , 3 \},; // Incluir
\{ STR0005 , "OM350A" , 0 , 4 \},; // Alterar
\{ STR0006 , "OM350C" , 0 , 5 \},; // Cancelar
\{ STR0007 , "OM350L" , 0 , 0 , 2 \},; // Legenda
\{ STR0008 , "OFIOC380" , 0 , 2 \},; // Pesquisa Avancada
\{ STR0009 , "OM350ORC" , 0 , 2 \},; // Orcamento
\{ STR0105 , "OM350OS" , 0 , 2 \},; // Consulta O.S.
\{ STR0106 , "OM350CONF", 0 , 2 \},; // Confirma Agendam.
\{ STR0177 , "OM460PROG" , 0 , 2\},; // Consulta
\{ STR0178 , "OM460P" , 0 , 4\},; // Programação
\{ STR0163 , "OFIXC006" , 0 , 2 \}\} // Confirma Presenca
Endif

If ExistBlock("OM350ROT")
aRecebe := ExecBlock("OM350ROT",.f.,.f.,\{aRotina\} )
If ( ValType(aRecebe) == "A" )
aRotina := aClone(aRecebe)
EndIf
Endif

Return aRotina

Variáveis

Programa Fonte

OFIOM350