Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada esta localizado na rotina Requisição de Serviço e tem por finalidade permitir que o usuário adicione novas funcionalidades através da criação de opções no menu principal da rotina.

Localização:

Atualizações/Mov Oficina

Eventos:

If ExistBlock("OM030ROT")

If ValType( aNovBot := ExecBlock("OM030ROT",.f.,.f.) ) == "A"

aEval( aNovBot , { | x | aAdd( aRotina , x ) } )

EndIf

Endif

Programa Fonte:

OFIOM030.PRW

Função:

MenuDef()

Retorno:

Matriz com a seguinte estrutura:

 

[1]=Título da rotina que será exibido no menu

[2]=Função que será executada

[3]=Parâmetro reservado, deve ser sempre 0 ( zero )

[4]=Número da operação que a função vai executar

 

Exemplo:

#include "protheus.ch"

User Function OM030ROT()

Local aRotAdic := {}

AADD( aRotAdic , { "Rotina Adicional" , "U_SRVCADIC" , 0 , 2 } )

Return aRotAdic