Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

Produto:

TOTVS Prestadores de Serviços Terceirização

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Prestadores de Serviço
Função:

TECA351.PRW- Geração de Benefícios para o RH

Ticket:9466483
Requisito/Story/Issue (informe o requisito relacionado) :DSERSGS-9152


02. SITUAÇÃO/REQUISITO

Necessidade de um PE para alterar o cabeçalho e itens de benefícios.

03. SOLUÇÃO

Ponto de Entrada 

Descrição:Microsiga Protheus®
Localização:Serviços
Programa Fonte:TECA351.PRW
Função:

At351EnvRH, At351ExcRh

Parâmetros

Nome

Tipo

Descrição

aCabecArray

Array para informações sobre o cabeçalho dos benefícios, segue estrutura por posição.

01 - Filial - 

   ACABEC[1][1]: "RA_FILIAL" 

   ACABEC[1][2]:" D MG 01"

  ACABEC[1][3] :NIL

02 - Matrícula -

  ACABEC[2][1]: "RA_MAT"

  ACABEC[2][2]: "001075"

  ACABEC[2][3]: NIL

03 - Período

  ACABEC[3][1]: "CPERIODO"

  ACABEC[3][2]: "202008"

  ACABEC[3][3]: NIL


04 - Roteiro

  ACABEC[4][1]: "CROTEIRO"

  ACABEC[4][2]: "FOL"

  ACABEC[4][3]: NIL


05 - Número do pagamento

  ACABEC[5][1]: "CNUMPAGTO"

   ACABEC[5][2]: "01"

  ACABEC[5][3]: NIL

aItensFinalArray

Array contendo os itens dos benefícios para inclusão: 

01 - Filial

  AITENSFINAL[1][1][1]: "RGB_FILIAL"

  AITENSFINAL[1][1][2]: "01"

  AITENSFINAL[1][1][3]: NIL


02 - Matrícula

  AITENSFINAL[1][2][1]: "RGB_MAT"

  AITENSFINAL[1][2][2]: "001075"

  AITENSFINAL[1][2][3]: NIL


03 -Código da Verba

  AITENSFINAL[1][3][1]: "RGB_PD"

  AITENSFINAL[1][3][2]: "781"

  AITENSFINAL[1][3][3]: NIL


04 - Tipo da Informação

  AITENSFINAL[1][4][1]: "RGB_TIPO1"

  AITENSFINAL[1][4][2]: "V"

  AITENSFINAL[1][4][3]: NIL


05 - Valor

  AITENSFINAL[1][5][1]: "RGB_VALOR"

  AITENSFINAL[1][5][2]: 550

  AITENSFINAL[1][5][3]: NIL


06 - Centro de Custo

  AITENSFINAL[1][6][1]: "RGB_CC"

  AITENSFINAL[1][6][2]: "000000000"

  AITENSFINAL[1][6][3]: NIL


07 - Número do Pagamento

  AITENSFINAL[1][7][1]: "RGB_SEMANA"

  AITENSFINAL[1][7][2]: "01"

  AITENSFINAL[1][7][3]: NIL


08 - Data de Referência 

  AITENSFINAL[1][7][1]: "RGB_DTREF"

  AITENSFINAL[1][7][2]: 01/01/2021

  AITENSFINAL[1][7][3]: NIL



Array contendo os itens dos benefícios para exclusão: 


01 - Filial

  AITENSFINAL[1][1][1]: "RGB_FILIAL"

  AITENSFINAL[1][1][2]: "01"

  AITENSFINAL[1][1][3]: NIL


02 - Matrícula

  AITENSFINAL[1][2][1]: "RGB_MAT"

  AITENSFINAL[1][2][2]: "001075"

  AITENSFINAL[1][2][3]: NIL


03 - Período

  AITENSFINAL[1][3][1]: "RGB_PERIOD"

  AITENSFINAL[1][3][2]: "202008"

  AITENSFINAL[1][3][3] :NIL


04 - Roteiro

AITENSFINAL[1][4][1]: "RGB_ROTEIR"
AITENSFINAL[1][4][2]: "001"
AITENSFINAL[1][4][3] :NIL


05 - Número do Pagamento

  AITENSFINAL[1][5][1]: "RGB_SEMANA"

  AITENSFINAL[1][5][2]: "01"

  AITENSFINAL[1][5][3]: NIL


06 - Centro de Custo

  AITENSFINAL[1][6][1]: "RGB_CC"

  AITENSFINAL[1][6][2]: "000000000"

  AITENSFINAL[1][6][3]: NIL


07 -Código da Verba

  AITENSFINAL[1][7][1]: "RGB_PD"

  AITENSFINAL[1][7][2]: "781"

  AITENSFINAL[1][7][3]: NIL


08 - Tipo da Informação

  AITENSFINAL[1][8][1]: "RGB_TIPO1"

  AITENSFINAL[1][8][2]: "V"

  AITENSFINAL[1][8][3]: NIL


09 - Valor

  AITENSFINAL[1][9][1]: "RGB_VALOR"

  AITENSFINAL[1][9][2]: 550

  AITENSFINAL[1][9][3]: NIL


10 - Data de Referência 

  AITENSFINAL[1][7][1]: "RGB_DTREF"

  AITENSFINAL[1][7][2]: 01/01/2021

  AITENSFINAL[1][7][3]: NIL

nOpcnuméricooperação que está sendo realizada 3- Inclusão;  4- Alteração; 5- Exclusão
Retorno: {aCabec, aItensFinal}

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#INCLUDE 'protheus.ch'
#INCLUDE 'parmtype.ch'
#INCLUDE "FWMVCDEF.CH"
 

User Function AT351Alt()

Local aCabec      := PARAMIXB[1]// array do cabeçalho
Local aItensFinal := PARAMIXB[2]// array com os itens
Local nOpc        := PARAMIXB[3]// operação que está sendo realizada 3- Inclusão;  4- Alteração; 5- Exclusão
Local nI             := 0 


For nI := 1 to Len(aItensFinal)
    If nOpc == 3 .OR. nopc == 4

        aItensFinal [nI][5][2] := 890 //alterando o valor do benefício

    ElseIf  nOpc == 5
        
        aItensFinal [nI][9][2] := 890 //deletando o valor do /benefício

    EndIf
Next nI

Return {aCabec, aItensFinal}

Este exemplo demostrando a alteração do valor do benefício quando há integração com o RH, ao ser enviado para a rotina de lançamentos por funcionários (GPEA580).

O retorno desta função sempre deverá ser um array com duas posições, sendo a primeira o cabeçalho e a segunda posição os itens, caso o retorno não seja um array com duas posições, o processo pode ocorrer de forma indevida.

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

  • Não há;