Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function GPE11ROT()

Local aAreaaButtons := GetArea(){}

Local aRotinasaSubMenu := {}   


Local aPrincipal := {}

Local aArray2//Cria subMenu para um botão 
aSubMenu := {}

aArray2 := { { "Teste1Teste 01" ,"u_testesubRot1" , 0 , 2, 0},;

                { "Teste2Teste 02" ,"u_teste2subRot2" , 0 , 3, 0},;

                            { "Teste3Teste 03" ,"u_teste3subRot3" , 0 , 4, 0},; }


            //Cria {botao "Conhecimento" ,"MsDocument" , 0 , 5,0 }}

aPrincipal := { { "Array2", aArray2 , 0 , 2} }que chama a funcao diretamente
aAdd( aButtons, { "Teste", "u_teste" ,0, 2,,.F. })

//Cria botao semelhante aos demais, com submenus

aAddaadd( aRotinasaButtons, { "Array1Teste Submenu", aPrincipalaSubMenu , 0 ,5,,.F. 2} )

Return aButtons

//Cria Funções botaode queusuário chamapara aapresentação funcaode diretamente

aAdd( aRotinas, { "Teste", "u_teste" ,0, 7,,.F. })

Alert( "Passou pelo PE GPE11ROT" )

RestArea( aArea )

Return( aRotinas )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