Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada está localizado na rotina do Inventario (OFIPM040), e possibilita inclusão de novas opções no Ações relacionadas do browse do inventario.

Parâmetros:

n/a

Eventos:

Function OPM040MENU()

Local aRotina := {}

Local aRotUsr := {}

Local ni := 0

DbSelectArea("VAI")

DbSetOrder(4)

MsSeek(xFilial("VAI")+__cUserID)

If VAI->VAI_INVUSR == "1" // Coordenador

aRotina := { {STR0146,"AxPesqui" ,0,1},; // Pesquisar

{STR0147,"OPM040INI",0,3},; // Incluir

{STR0148,"OPM040EXE",0,4},; // Manutencao

{STR0145,"OPM040LEG",0,4,2,.f.}} // Legenda

Else

aRotina := MenuDef() // Chamada Padrao

EndIf

//

If ( ExistBlock("OPM040AR") )

aRotUsr := ExecBlock("OPM040AR",.f.,.f.) // NOVAS opcoes customizadas no Acoes Relacionadas da rotina de Inventario

For ni := 1 to len(aRotUsr)

aAdd(aRotina,aClone(aRotUsr[ni]))

Next

EndIf

//

DbSelectArea("VPE")

Return aRotina

Programa Fonte:

OFIPM040.PRW      

Função:

OPM040MENU 

Retorno:

aRetOpc = Vetor com as novas opções a serem inseridas no Ações relacionadas do padrão.

 

Exemplo:

////////////////////////////////////////////////////////////////////////////////////////

// Possibilita inclusão de novas opções no Ações Relacionadas do browse do Inventario //

////////////////////////////////////////////////////////////////////////////////////////

User Function OPM040AR()

Local aRetOpc := {}

//

aAdd(aRetOpc,{"Imp.Digitações","OPM040ICTG",0,2})

//

Return aRetOpc