01. DADOS GERAIS
| Produto: |
TOTVS Prestadores de Serviços Terceirização
|
|---|
| Linha de Produto: | |
|---|
| Segmento: | |
|---|
| Módulo: | Prestadores de Serviço |
|---|
| Função: | TECA353.PRW |
|---|
| País: | Brasil |
|---|
| Ticket: | Não há. |
|---|
| Requisito/Story/Issue (informe o requisito relacionado) : | DSERSGS-10878 |
|---|
02. SITUAÇÃO/REQUISITO
Necessidade de um PE para alterar o cabeçalho e itens de insalubridade/periculosidade.
03. SOLUÇÃO
Ponto de Entrada
| Descrição: | Microsiga Protheus® |
|---|
| Localização: | Serviços |
|---|
| Programa Fonte: | TECA353.PRW |
|---|
| Função: | at353EnvRH |
|---|
| Parâmetros | Nome | Tipo | Descrição |
|---|
| aCabec | Array | Array para informações sobre o cabeçalho, 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 | | aItens | Array | Array contendo os itens para inclusão: 01 - Filial AITENS[1][1][1]: "RGB_FILIAL" AITENS[1][1][2]: "01" AITENS[1][1][3]: NIL
02 - Matrícula AITENS[1][2][1]: "RGB_MAT" AITENS[1][2][2]: "001075" AITENS[1][2][3]: NIL
03 - Processo AITENS[1][2][1]: "RGB_PROCESS" AITENS[1][2][2]: "000001" AITENS[1][2][3]: NIL
04 -Código da Verba AITENS[1][4][1]: "RGB_PD" AITENS[1][4][2]: "781" AITENS[1][4][3]: NIL
05 - Tipo da Informação AITENS[1][5][1]: "RGB_TIPO1" AITENS[1][5][2]: "V" AITENS[1][5][3]: NIL
06 - Horas AITENS[1][6][1]: "RGB_HORAS" AITENS[1][6][2]: 220 AITENS[1][6][3]: NIL
07 - Centro de Custo AITENS[1][7][1]: "RGB_CC" AITENS[1][7][2]: "000000000" AITENS[1][7][3]: NIL
08 - Código do Funcionário AITENS[1][8][1]: "RGB_CODFUN" AITENS[1][8][2]: "01" AITENS[1][8][3]: NIL
09 - Número do Pagamento AITENS[1][9][1]: "RGB_SEMANA" AITENS[1][9][2]: "01" AITENS[1][9][3]: NIL
10 - Classe Valor AITENS[1][10][1]: "RGB_CLVL" AITENS[1][10][2]: "01" AITENS[1][10][3]: NIL
11 - Item Contábil AITENS[1][11][1]: "RGB_ITEM" AITENS[1][11][2]: "01" AITENS[1][11][3]: NIL
12 - Número de Identificação AITENS[1][12][1]: "RGB_NUMID" AITENS[1][12][2]: "GS" AITENS[1][12][3]: NIL
13 - Código de Convocação AITENS[1][13][1]: "RGB_CONVOC" AITENS[1][13][2]: "000001" AITENS[1][13][3]: NIL
| | nOpc | numérico | operação que está sendo realizada 3- Inclusão; 4- Alteração; 5- Exclusão |
|
|---|
| Retorno: | {aCabec, aItens} |
|---|
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 TEC353Al() Local aCabec := PARAMIXB[1]// array do cabeçalho
Local aItens := 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(aItens)
aItens[nI][6][2] := 180 //alterando o total de horas
Next nI
Return {aCabec, aItens}
|
Este exemplo demonstra a alteração das horas de periculosidade/insalubridade 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.
Não há.
05. ASSUNTOS RELACIONADOS
