Portuguese |
---|
Pagetitle |
---|
| GPE11ROT - Menu de Gestão de Funcionários | GPE11ROT - Menu de Gestão de Funcionários | Ponto-de-Entrada: GPE11ROT - Menu de Gestão de Funcionários
Versões: | Microsiga Protheus 10 |
Compatível Países: | Todos |
Sistemas Operacionais: | Todos |
Compatível às Bases de Dados: | Todos |
Descrição:O ponto de entrada permite adicionar rotinas ao menu principal da rotina de Gestão de Funcionários
SintaxeGPE11ROT - Menu de Gestão de Funcionários ( [ ] ) --> aArray
Parâmetros:Nome | Tipo | Descrição | Default | Obrigatório | Referência | Array of Record | RetornoaArray(array_of_record)- Contém as rotinas a serem adicionadas
ObservaçõesA rotina deve retornar um array que deve conter as rotinas a serem adicionadas ao menu principal.
Variáveis
Nome | Tipo | Escopo | Pode Alterar | descrição | Array of Record | Global | Não | Bloco de código |
---|
language | java |
---|
theme | Midnight |
---|
firstline | 1 |
---|
title | Exemplo de execução |
---|
linenumbers | true |
---|
|
#INCLUDE
'PROTHEUS.CH'
User
Function
GPE11ROT()
Local aArea := GetArea()
Local aRotinas := {}
Local aPrincipal := {}
Local aArray2 := {}
aArray2 := { { "Teste1" ,"u_teste" , 0 ,
LocalaButtons := {}
LocalaSubMenu := {}
//Cria subMenu para um botão
aSubMenu := { { "Teste 01","u_subRot1",0,2,0},;
{ "Teste2"
{ "Teste 02","u_
teste2subRot2"
,
0
,
3,0},;
{ "Teste3"
{ "Teste 03","u_
teste3subRot3"
,
0
,
4,0} }
,;
{ "Conhecimento" ,"MsDocument" , 0 , 5,0 }}
aPrincipal := { { "Array2", aArray2 , 0 , 2} }
//Cria botao semelhante aos demais, com submenus
aAdd( aRotinas, { "Array1", aPrincipal , 0,5,,.F. })
//Cria botao que chama a funcao diretamente
aAdd( aRotinas, { "Teste", "u_teste" ,0, 7,,.F. })
Alert( "Passou pelo PE GPE11ROT" )
RestArea( aArea )
Return( aRotinas )
//Cria botao que chama a funcao diretamente
aAdd( aButtons, { "Teste","u_teste",0,2,,.F. })
//Cria botao semelhante aos demais, com submenus
aadd( aButtons, { "Teste Submenu",aSubMenu,0,2} )
ReturnaButtons
// Funções de usuário para apresentação de mensagens
UserFunctionTeste()
Alert ("Teste PE GPE11ROT para criação de menu simples!" )
Return
UserFunctionsubRot1()
Alert ("Teste 01 do PE GPE11ROT para criação de subMenu!" )
Return
UserFunctionsubRot2()
Alert ("Teste 02 do PE GPE11ROT para criação de subMenu!" )
Return
UserFunctionsubRot3()
Alert ("Teste 03 do PE GPE11ROT para criação de subMenu!" )
Return