Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 05 min

01. DADOS GERAIS

Linha de Produto:Microsiga Protheus
Segmento:RH
Módulo:SIGAGPE
Função:

GPEXMED.PRX

Ticket:4934847
Issue:

DRHPAG-23917

Pacote:

12.1.23:https://suporte.totvs.com/portal/p/10098/download?e=753187 ;

12.1.17:https://suporte.totvs.com/portal/p/10098/download?e=753186 ;


02. SITUAÇÃO/REQUISITO

Criação de Ponto de Entrada para alteração do array de verbas PD durante o cálculo de médias.


03. SOLUÇÃO

Criado ponto de entrada que será executado após a carga total no array PD, contendo as verbas com incidências para médias.

O array PD é passado como parâmetro da função, o mesmo array, após edições, deve ser utilizado no retorno da função.



User Function GPXPDMED()
Local aArea := GetArea()
Local PDAux := aClone( ParamIxb[1] )

DbSelectArea("SRV")
SRV->(Dbseek(xFilial("SRV")+"001"))

Aadd(PdAux,+ SRV->RV_COD + SRV->RV_MEDFER + SRV->RV_MED13 + SRV->RV_MEDAVI + SRV->RV_MEDREAJ + SRV->RV_HE + Transform(SRV->RV_PERC,"999.999") + SRV->RV_TAREFA + SRV->RV_GRAMED)

RestArea(aArea)

Return PDAux