DT PE GPM19RGB - Ponto de Entrada para gravação de campos na tabela RGB ao realizar a integração de benefícios

01. DADOS GERAIS

Produto:	TOTVS RH
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	GESTÃO DE PESSOAS (SIGAGPE)
Função:	INTEGRAÇÃO FOLHA (GPEM009)
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :	DRHPAG-44774
Pacotes	12.1.17:https://r.totvs.io/p/1013814 ; 12.1.23:https://r.totvs.io/p/1013815 ; 12.1.25:https://r.totvs.io/p/1013816 ; 12.1.27:https://r.totvs.io/p/1013817 ;

02. SITUAÇÃO/REQUISITO

Necessidade da gravação de campo na tabela RGB ao efetuar a integração de benefícios para a folha.

03. SOLUÇÃO

Criação do ponto de entrada GPM19RGB na integração dos roteiros BEN, PLS, RTF, VAL, VEX, VRF e VTR para permitir o preenchimento de qualquer campo da tabela RGB ao efetuar a integração.

O ponto de entrada é executado dentro do bloco de gravação da tabela RGB e será possível alterar a gravação do conteúdo de qualquer campo da tabela RGB. Não há necessidade de lock e unlock porque o ponto já será executado no bloco de gravação da tabela.

O ponto de entrada recebe 5 parâmetros:

Roteiro integrado;
Filial do funcionário;
Matrícula do funcionário;
Período do benefício;
Semana do benefício.

Exemplo

#INCLUDE "PROTHEUS.CH"

User Function GPM19RGB()

Local aAreaSRA := SRA->( GetArea() )

Local cRotInt  := PARAMIXB[1]//Roteiro
Local cFilSRA  := PARAMIXB[2]//Filial do funcionáriop
Local cMatSRA  := PARAMIXB[3]//Matrícula do funcionário
Local cPerFol  := PARAMIXB[4]//Período
Local cSemFol  := PARAMIXB[5]//Semana

SRA->( dbSetOrder(1) )

If cRotInt $ "BEN/PLA/RTF/VAL/VEX/VRF/VTR" .And. SRA->( dbSeek( cFilSRA+cMatSRA ) ) .And. SRA->RA_TPCONTR == "3"
    RGB->RGB_CONVOC := 'XPTO'
EndIf

ALERT("Passou pelo GPM19RGB")

RestArea(aAreaSRA)

Return

04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS