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
Não há.
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas