OX016ROT - Inclusão de Opções no Ações Relacionadas da Rotina Liberação de Crédito do Orçamento (OFIXA016)

Ponto de Entrada localizado na rotina Liberação de Credito do Orçamento de Pecas e Serviços (OFIXA016), que permite a inclusão de opções no Ações Relacionadas da rotina.

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

if FindFunction("U_M_EXEMPLO")
aadd(aRotina,\{"NOVA OPCAO","U_M_EXEMPLO",0,4\})
Endif

Return(aRotina)

User Function M_EXEMPLO()

MsgInfo("Nova Opção do botão Ações Relacionadas foi chamada 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