| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| Módulo: | Gestão de Pessoal (SIGAGPE) |
| Função: | Funcionários (GPEA010) |
| País: | Brasil |
Ponto de Entrada que permite incluir ou alterar as cores apresentadas na Legenda do Browse do Cadastro de Funcionários (aCores).
| Tipo | Conteúdo |
|---|---|
| Vetor | Vetor contendo as informações do Filtro que será usado para apresentar a cor desejada na Legenda. |
Estrutura do vetor:
| Posição | Conteúdo |
|---|---|
| 1 | Nome que aparecerá no Cabeçalho da Rotina. |
| 2 | Nome da rotina associada. |
| 3 | Reservado. |
| 4 | Tipo de transação a ser efetuada. |
| 5 | Nível de acesso. |
| 6 | Habilita menu funcional. |
#INCLUDE 'PROTHEUS.CH'
User Function GPE11ROT()
Local aButtons := {}
Local aSubMenu := {}
//Cria subMenu para um botão
aSubMenu := { { "Teste 01" ,"u_subRot1" , 0 , 2, 0},;
{ "Teste 02" ,"u_subRot2" , 0 , 3, 0},;
{ "Teste 03" ,"u_subRot3" , 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} )
Return aButtons
// Funções de usuário para apresentação de mensagens
User Function Teste()
Alert ("Teste PE GPE11ROT para criação de menu simples!" )
Return
User Function subRot1()
Alert ("Teste 01 do PE GPE11ROT para criação de subMenu!" )
Return
User Function subRot2()
Alert ("Teste 02 do PE GPE11ROT para criação de subMenu!" )
Return
User Function subRot3()
Alert ("Teste 03 do PE GPE11ROT para criação de subMenu!" )
Return |