Histórico da Página

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

Programa Fonte

GPEA011.PRX

Sintaxe

GPE11ROT - Menu de Gestão de Funcionários ( [ ] ) --> aArray

Parâmetros:

Nome

Tipo

Descrição

Default

Obrigatório

Referência

Array of Record

Retorno

aArray

(array_of_record)

Contém as rotinas a serem adicionadas

Observações

A 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

05. EXEMPLO

Bloco de código

language	java
theme	Midnight
firstline	1
title	Exemplo de execução
linenumbers	true

#INCLUDE 'PROTHEUS.CH'



User Function GPE11ROT()

LocalaButtons := {}
LocalaSubMenu := {}
//Cria subMenu para um botão
aSubMenu := { { "Teste 01","u_subRot1",0,



Local aArea := GetArea()

Local aRotinas := {}

Local aPrincipal := {}

Local aArray2 := {}

aArray2 := { { "Teste1" ,"u_teste" , 0 , 2,0},;

{ "Teste 02"



             { "Teste2" ,"u_

subRot2

teste2" , 0 , 3,0},;

{ "Teste 03"



             { "Teste3" ,"u_

subRot3

teste3" , 0 , 4,0

}

//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

,;

             { "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 )

Árvore de páginas

Versões comparadas

Versão antiga 7

Nova versão 8

Chave

05. EXEMPLO