GP010AGRV - Cadastro de Funcionários / Transferências

01. DADOS GERAIS

02. VISÃO GERAL

Ponto de Entrada posicionado após a gravação dos registros de Funcionários. (GPEA010)

Também executado na rotina de Transferências (GPEA180), e da mesma forma posicionado após a gravação do registro do Funcionário (SRA), porém, com algumas diferenças.

Para o cenário de Transferência, o Ponto de Entrada só será executado caso a mesma tenha sido efetuada com sucesso, atendendo aos critérios abaixo:

• • em casos de Transferência entre Filiais do mesmo grupo de empresas;
  • ou em casos de mudança de Centro de Custos;
  • ou em casos de mudança de Departamento;
  • ou em casos de mudança de Matrícula;
  • ou em casos de mudança de Processo;
  • ou em casos de mudança de Posto, e MV_ORGCFG="1" (uso do módulo SIGAORG);
  • ou em casos de mudança de Item/Classe de Valor.
• Além dos cenários acima citados, o Ponto de Entrada só será executado caso: 
  • ocorra a gravação de campos complementares, durante a Transferência;
  • ou esteja sendo usado o módulo SIGAORG (MV_ORGCFG="1").

Obs.: a variável lGrava já estará com o valor .T. (verdadeiro), demonstrando que o cadastro do Funcionário foi gravado corretamente durante o processo da Transferência.

Parâmetros:

03. RETORNO

Não possui.

04. EXEMPLO

#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 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