DT PE Audesp

01. DADOS GERAIS

Produto:	TOTVS RH
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	GESTÃO DE PESSOAS (SIGAGPE)
Função:	GPEM920.PRW
Ticket:	18136776
Requisito/Story/Issue (informe o requisito relacionado) :	DRHROTPRT-12413
Pacote(s):	12.1.2210:https://suporte.totvs.com/portal/p/10098/download?e=1127549 ; 12.1.2310:https://suporte.totvs.com/portal/p/10098/download?e=1127550 ; 12.1.33:https://suporte.totvs.com/portal/p/10098/download?e=1127551 ;

02. SITUAÇÃO/REQUISITO

Criar ponto de entrada que permita a troca de verbas na geração dos arquivos 7 - Verbas Remuneratórias e 8 - Folha Ordinária utilizadas na AUDESP

03. SOLUÇÃO

Ponto de Entrada GP920TP7 - Rotina GPEM920

Este Ponto de Entrada permite que o usuário realize a troca de verbas no momento da geração dos arquivos 7 - Verbas Remuneratórias e 8 - Folha Ordinária utilizadas na AUDESP

cCodVerb := ExecBlock("GP920TP7",.F.,.F.,{SRV→RV_COD})

Exemplo de Utilização

User Function GP920TP7()

Local aSaveArea := GetArea()
Local aParam := PARAMIXB
Local cCodAnt := ""
Local cCodAud := ""

If aParam <> NIL
cCodAnt := aParam[1]
cCodAud := cCodAnt
If cCodAnt == "112"
cCodAud := "X12"
ElseIf cCodAnt == "417"
cCodAud := "X17"
ElseIf cCodAnt == "419"
cCodAud := "X19"
EndIf
EndIf

//Exemplo caso seja utilizado um novo campo de usuario, posicionar na tabela SRV
/*
cFil := xFilial("SRV")
dbSelectArea("SRV")
dbSetOrder(1)
If dbSeek(cFil+cCodAnt)
cCodAud := "SRV->NOVOCAMPO"
Else
cCodAud := cCodAnt
Endif */

RestArea(aSaveArea)

Return(cCodAud)

Parâmetros/Retorno

Parâmetro de envio

Parametro	Conteudo
Paramixb[1]	RV_COD

Retorno

Tipo de variavel	Descrição
Caracter	Codigo da Verba Trocada

04. DEMAIS INFORMAÇÕES

Não se aplica

05. ASSUNTOS RELACIONADOS