OM350ROT - Inclusão de Botões no Ações Relacionadas da rotina de Agendamento

Descrição

Este Ponto de Entrada é executado na rotina Agendamento (OFIOM350), disponibilizado para permitir a inclusão de um ou mais botões no Ações Relacionadas.

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