Histórico da Página

Ponto de Entrada localizado na rotina Liberação de Credito do Orçamento de Pecas e Serviços (OFIXA016) e será executado no ações relacionadas para que o usuário possa incluir opção no Menu, permitindo ao usuário a inclusão de opções no botão Ações Relacionadas da rotina.

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

if FindFunction("U_M_EXEMPLO")
aadd(aRotina,\{"PE OX016ROT","U_M_EXEMPLO",0,4\})
Endif

Return(aRotina)

User Function M_EXEMPLO()

MsgInfo("Executado ponto de entrada OX016ROT com sucesso!")

Return(.t.)

Português(Brasil)

Todas

Todos

Todas

aRotina - opções do menu.

aRotina - opções do menu.

Static Function MenuDef()
Local aRecebe := \{\}
Local aRotina := \{ \{ STR0002, "axPesqui", 0, 1\},; // "Pesquisar"
\{ STR0003, "OXA016V" , 0, 2\},; // "Visualizar"
\{ STR0011, "OXA016R" , 0, 2\},; // "Reabrir"
\{ STR0014, "OXA016M" , 0, 2\},; // "Verificar Motivo"
\{ STR0004, "OXA016L" , 0, 4\},; // Consulta
\{ STR0019, "OXA016P" , 0, 4\}\} // Posicao do cliente

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

Return aRotina

OFIXA016.PRW