Exibir origem

01. DADOS GERAIS

Produto:
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 demostrando 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.

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS

Não há.

<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>