Histórico da Página
...
Bloco de código | ||||||||||
---|---|---|---|---|---|---|---|---|---|---|
| ||||||||||
#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 pelapelo GestãoCadastro de Funcionários!" ) ElseIf nOpc==4 Alert ("Teste de Alteração do PE GP010AGRV chamado pelapelo GestãoCadastro de Funcionários!" ) ElseIf nOpc==5 Alert ("Teste de Exclusão do PE GP010AGRV chamado pelapelo GestãoCadastro de Funcionários!" ) ElseIf nOpc==7 Alert ("Teste de Cópia do PE GP010AGRV chamado pelapelo GestãoCadastro 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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas