Histórico da Página

...

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.

#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

...