Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Análise de Itens (OFIOC520) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Consultas\ Peças\ Análise de Itens (OFIOC520)

Eventos:

Static Function MenuDef()

Local aRecebe

Local aRotina:= {}

If FM_PILHA("OFIXC001") .or. Alltrim(GetNewPar("MV_VERIORC","1")) <> "3"

aRotina := {;

{ STR0002 , "PesqBrw" , 0 , 1},; // Pesquisar

{ STR0003 , "OC520Visual" , 0 , 2} } // Visualizar

Else

aRotina := {;

{ STR0002 , "PesqBrw" , 0 , 1},; // Pesquisar

{ STR0003 , "OC520Visual" , 0 , 2},; // Visualizar

{ STR0038 , "OFIXC009(1)" , 0 , 1},; // Pesquisa por Aplicacao

{ STR0039 , "OA620" , 0 , 2} } // Visualizar Aplicacao

EndIf

If ExistBlock("OC520ART")

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

Endif

If Valtype(aRecebe) == "A"

aRotina := aClone(aRecebe)

Endif

Return aRotina

Programa Fonte:

OFIOC520.PRW

Função:

MENUDEF()

Parâmetros:
NomeTipoDescriçãoObrigatório
aRotinaVetorVetor que compõe as opções padrão do browse da rotinaSim

Retorno:

Nome

Tipo

Descrição

Obrigatório

aRot

Vetor

Vetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina

Sim


Exemplo:

#Include 'Protheus.ch'

/*

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

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

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

##|Função | OC520ART | Autor | MIL | Data | 29/10/17 |##

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

##|Descrição | Inclusao no aRotina da Analise de Itens |##

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

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

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

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

*/

User Function OC520ART()

Local aRot := ParamIxb[1]


if FindFunction("U_M_EXEMPLO")

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

Endif

Return(aRot)