Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada

Descrição:

Este Ponto de Entrada será executado na rotina Oportunidades/Interesses (VEICM680) e permite a inclusão de opções no Outras Ações do Browse.

Localização:

Atualizações \ Cad C e V \ Oportunid Negócios (VEICM680)

Eventos:

/*

ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

±±ÉÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍÍÍ»±±

±±ºPrograma ³ MenuDef º Autor ³ Andre Luis Almeida º Data ³ 15/07/13 º±±

±±ÌÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍ͹±±

±±ºDescricao ³ MenuDef monta aRotina º±±

±±ÈÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ±±

±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±±

ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß

*/

Static Function MenuDef()

Local aRotina := { { STR0002 ,"axPesqui", 0 , 1 },; // Pesquisar

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

{ STR0004 ,"VCM680I" , 0 , 3 },; // Incluir

{ STR0005 ,"VCM680" , 0 , 4 },; // Alterar

{ STR0071 ,"VCM680C" , 0 , 5 },; // Cancelar

{ STR0081+" <F7>" ,"VCC680FUNIL()", 0 , 1 },; // Funil Interesses <F7>

{ STR0089 ,"MsDocument", 0 , 4}} // Banco de Conhecimento


If (ExistBlock("VCM680MD")) // Ponto de Entrada para adicionar opções no Menu

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

EndIf

Return aRotina

Programa Fonte:

VEICM680.PRW                                                                                                                                    

Função:

MENUDEF()                                                    

Parâmetros:
NomeTipoDescrição
aRotinaVetorVetor que compõe as opções padrão do browse da rotina
Retorno:


NomeTipoDescrição
aRotVetorVetor que compõe as opções atualizadas pelo ponto de entrada do browse da rotina.


Exemplo:

/*

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

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

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

##|Função | VCM680MD | Autor | MIL | Data | 06/02/19 |##

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

##|Descrição | Inclusão no aRotina de Oportunidades/Interesses (VEICM680) |##

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

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

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

*/

User Function VCM680MD()

Local aRot := ParamIxb[1]


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

Return aRot