Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Ponto de entrada para validação de rotina

Tempo aproximado para leitura: 00:02:00 min

Dúvida
Existe algum ponto de entrada, para valida o acesso em um determinado horário, onde o usuário só possa utilizar a rotina em um horário especifico, exemplo MATA440(liberação de pedidos), no horário de segunda a sábado das 7:30 as 16:00?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução

Neste caso pode utilizar o ponto Genérico para validação, MBRWBTN - Validação da rotina

Exemplo de customização

#Include 'Protheus.ch'

User Function MBRWBTN()
Local lRet := .T.

IF FunName()=="MATA440"
 lRet := .F.
 Alert("MBRWBTN"+" O ponto retornou : "+cValToChar(lRet))
Endif

If ( __cUserId == '000004' ) 
 Final('Usuário sem acesso ao sistema')
EndIf

Return lRet

Saiba mais
Funções para auxilio na customização:

Final - Finaliza o sistema
FunName - Nome do programa em execução
RetCodUsr