Linha Microsiga Protheus

Árvore de páginas


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
Pacotes12.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:

  1. Roteiro integrado;
  2. Filial do funcionário;
  3. Matrícula do funcionário;
  4. Período do benefício;
  5. 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

        Não se aplica