Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Pedido Peças JD (OFINJD10) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Atualizações \ Peças JD \ Pedido Peças JD (OFINJD10)

Eventos:

Static Function MenuDef()

Local aRotina := {;

{ STR0001 ,"AxPesqui" , 0 , 1},; // Pesquisar

{ STR0002 ,"A120Pedido" , 0 , 2},; // Visualizar

{ STR0003 ,"A120Pedido" , 0 , 3},; // Incluir

{ STR0004 ,"ONJDPedido" , 0 , 4},; // Alterar

{ STR0037 ,"ONJDPedido" , 0 , 5},; // Excluir

{ STR0005 ,"OFJD10E" , 0 , 7},; // Exportação

{ STR0006 ,"OJD010INC" , 0 , 8},; // Importação

{ STR0028 ,"ONJDRel" , 0 , 9},; // Impr. ped. pendentes

{ STR0025 ,"A120Legend" , 0 , 2} } // Leganda

If ( ExistBlock("ONJD10BT") ) // Ponto de entrada para adicionar botões na mbrowse na tela de orçamentos fases

aRotina := ExecBlock("ONJD10BT",.f.,.f.,{aRotina})

EndIf

Return aRotina

Programa Fonte:

OFINJD10.PRW

Função:

MENUDEF()

Parâmetros:
NomeTipoDescriçãoObrigatório
aRotVetorVetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotinaSim

Retorno:

NomeTipoDescriçãoObrigatório
aRetCposVetorVetor que compõe as opções padrão do browse da rotinaSim

Exemplo:

/*

===============================================================================

###############################################################################

##+----------+------------+-------+-----------------------+------+----------+##

##|Função | ONJD10BT | Autor | MIL | Data | 04/10/17 |##

##+----------+------------+-------+-----------------------+------+----------+##

##|Descrição | Inclusao no aRotina do Pedido de Compra de Peças |##

##+----------+--------------------------------------------------------------+##

##+----------+--------------------------------------------------------------+##

###############################################################################

===============================================================================

*/

User Function ONJD10BT()

Local aRot := ParamIxb[1]

aadd(aRot,{"Executar Exemplo","U_M_EXEMPLO",0,4})

Return(aRot)