Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function GPE11ROTGP010AGRV()  
Local nOpc aButtons  := {}Paramixb[1]
Local aSubMenulGrava := {}   


//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!" )Paramixb[2]

    // Testando se a gravação deu certo
    If lGrava

        // Testando a chamada de alteração de Funcionário.
        If FWIsInCallStack("GPEA010") 
        
            If nOpc==3 
                Alert ("Teste de Inclusão do PE GP010AGRV chamado pelo Cadastro de Funcionários!" )
            ElseIf nOpc==4
                Alert ("Teste de Alteração do PE GP010AGRV chamado pelo Cadastro de Funcionários!" )
            ElseIf nOpc==5
                Alert ("Teste de Exclusão do PE GP010AGRV chamado pelo Cadastro de Funcionários!" )
            ElseIf nOpc==7
                Alert ("Teste de Cópia do PE GP010AGRV chamado pelo Cadastro de Funcionários!" )
            Endif
        Endif

        // Testando a chamada via Transferência de Funcionário.
        If FWIsInCallStack("GPEA180")  
            Alert ("Teste PE GP010AGRV chamado pela Transferência de Funcionários!" )
        Endif

    Endif

Return