DRHPAG-40062 DT Criação do ponto de entrada GP120VLD

01. DADOS GERAIS

Produto:	TOTVS RH
Linha de Produto:	Linha Protheus
Segmento:	RH
Módulo:	SIGAGPE
Função:	GPEM120
Ticket:
Requisito/Story/Issue (informe o requisito relacionado) :	DRHPAG-40062
Pacote:	12.1.27:https://r.totvs.io/p/987677 12.1.25:https://r.totvs.io/p/987676 12.1.23:https://r.totvs.io/p/987675 12.1.17:https://r.totvs.io/p/987674

02. SITUAÇÃO/REQUISITO

Foi reportado a necessidade de efetuar validações específicas para permitir o fechamento do roteiro.

03. SOLUÇÃO

Criação do ponto de entrada GP120VLD para permitir a validação dos roteiros ao efetuar o fechamento do período. Para auxílio, o ponto de entrada irá passar os seguintes parâmetros:

Parâmetro	Utilização	Exemplo
1	Filial do roteiro (tabela RCH)	"01"
2	Código do processo	"00001"
3	Período	"202009"
4	Número Pagamento	"01"
5	Roteiro	"RES"

Exemplo de um ponto de entrada:

#INCLUDE "PROTHEUS.CH"
User Function GP120VLD()

Local lOk       := .F.       
Local cFilRCH   := PARAMIXB[1]
Local cProces   := PARAMIXB[2]
Local cPeriod   := PARAMIXB[3]
Local cNumPag   := PARAMIXB[4]
Local cRot      := PARAMIXB[5]

If cRot $ "RES"
    lOk := .T.
Else
    aAdd(aLogErros[1], "Roteiro: " + cRot + " não será fechado devido falta de permissão.")
EndIf

Return lOk

No exemplo acima, foi utilizado a variável Private aLogErros para exibir mensagem ao usuário no log de processamento da rotina.

04. DEMAIS INFORMAÇÕES

Não há.

05. ASSUNTOS RELACIONADOS