Segmento:

Recursos humanos

Função:

GPEA810.PRX

Solução/Implementação:

Realizar a aplicação do PE como última funcionalidade dentro do transaction e após a gravação de confirmação da reintegração, sendo na opção de "RETROATIVA A ADMISSÃO" (lOpc = .T.) ou "A PARTIR DA DATA DA DECISÃO JUDICIAL" (lOpc = .F.). 

Os parâmetros passados são:

• lOpcReint: variável lógica, retornando .T. ou .F. de acordo com a opção da Reintegração.
• cFilFun: carrega a filial utilizada.
• cMatFun: carrega a matricula do funcionário. Na primeira opção, carrega a mesma, na segunda opção, será a matricula antiga e que se manterá desativada.
• cNewMat: carrega o conteúdo informado no campo 'Nova Matricula' antes de reintegrar e também será a nova matricula do funcionário. Somente será habilitado este campo/variável quando a reintegração for "A PARTIR DA DATA DA DECISÃO JUDICIAL" (lOpc = .F.).
• cTipoRes: carrega como último parâmetro, quando a reintegração for 'retroativa à admissão' e a rescisão utilizada estiver efetivada.

É passada a filial com a matrícula, pois no segundo caso, como tem que entrar e incluir um novo registro para a nova matrícula, o Sistema não fica posicionado no registro e, desta forma, ele consegue encontrar e continuar no registro correto.

Exemplo de utilização:

#INCLUDE "PROTHEUS.CH"

// Ponto de Entrada após reprovação da solicitação
User Function GP810GRV()
LocaL lOpc := PARAMIXB[1]
Local cFil := PARAMIXB[2]
Local cMat := PARAMIXB[3]
Local cNewMat := PARAMIXB[4]
Local cTipoRes:= PARAMIXB[5]

MSGINFO('*** PE Reintegração ***' +CRLF +CRLF;
+'Opc Reintegração: ' +cValToChar(lOpc) +CRLF;
+'Filial/Matrícula: ' +cFil+'/'+cMat +CRLF;
+'Nova Matrícula : ' +cNewMat +CRLF;
+'Tipo Rescisão : ' +cTipoRes, 'GP810GRV')

Return(.t.)

Tickets relacionados:

292395

12.1.7: https://suporte.totvs.com/portal/p/10098/download?e=538210

12.1.14: https://suporte.totvs.com/portal/p/10098/download?e=538209