Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 05 min

 DADOS GERAIS

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

PONM090.PRX

Ticket:6863540
Requisito/Story/Issue (informe o requisito relacionado):

DRHPAG-29330 

Pacotes:

12.1.25:https://suporte.totvs.com/portal/p/10098/download?e=945844 ;

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

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


02. SITUAÇÃO/REQUISITO

Criação do ponto de entrada para que ao clicar no botão de execução do fechamento, o sistema permita bloqueios ou alertas para que seja avisado ao usuário que o mesmo esta fechando todas as filiais (visto que há a possibilidade de selecionar apenas filial (ais) especificas e/ou avise o usuário que existem inconsistências como: marcações impares a serem ajustadas antes mesmo da execução.

03. SOLUÇÃO

Criado o ponto de entrada PNM090OK, que será executado após a a confirmação de todos os parâmetros da rotina de fechamento. 

Retorno lRet (logico)

Retorno para indicar se executa o processamento do fechamento.

Observações: O ponto de entrada deve retornar um valor lógico: .T. para prosseguir com o processamento ou .F. para cancelar a execução do processamento.


Exemplo de função de usuário:

User function PNM090OK()
Local lRet := .T.

//Tratamento para decidir se executa ou não o fechamento
If não executa
    alert("PONTO DE ENTRADA NOVO")
    lRet := .F.
EndIf
Return lRet