Histórico da Página

#INCLUDE 'PROTHEUS.CH'

User Function GP010AGRV()  
Local nOpc   :=Paramixb[1]
Local lGrava :=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 pela Gestão de Funcionários!" )
            ElseIf nOpc==4
                Alert ("Teste de Alteração do PE GP010AGRV chamado pela Gestão de Funcionários!" )
            ElseIf nOpc==5
                Alert ("Teste de Exclusão do PE GP010AGRV chamado pela Gestão de Funcionários!" )
            ElseIf nOpc==7
                Alert ("Teste de Cópia do PE GP010AGRV chamado pela Gestão 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