Existe um ponto de entrada pouco conhecido que é chamado após o logoff ou ao desconectar do sistema.
Esse ponto de entrada é o MsQuit, e sua documentação oficial pode ser encontrada aqui.
Abaixo um exemplo
#INCLUDE "RWMAKE.CH" /*/{Protheus.doc} P.E. MsQuit Função chamada após o login do usuário e no MDI a cada nova aba @author TOTVS https://tdn.totvs.com/display/public/PROT/MsQuit+-+Controle+de+acesso+ao+sistema @author Rafael Gonçalves @since Setembro/2020 @version 1.0 @project @param Vetor PARAMIXB O vetor PARAMIXB possui a seguinte estrutura: [1] - Tipo de ação .T. = Logoff .F. = Saiu do sistema /*/ User Function MSQUIT() Local lLogoff := ParamIxb[1] //variável lógica que identifica se o P.E. está sendo executado pelo Logoff ou pela saida definitiva. Local cMsg := "" If lLogOff cMsg := "O Usuário: "+Alltrim(cUserName)+" efetuou logoff do sistema" Else cMsg := "O Usuário: "+Alltrim(cUserName)+" saiu totalmente do sistema" EndIf ApMsgAlert(cMsg) Return .T.
O código fonte desse e outros exemplos podem ser encontrados em nosso git.
Post interessantes:
Ponto de entrada ao acessar o sistema aqui.
Aprenda a instalar o Protheus aqui.
Retornar datas por extenso aqui.
Barras de progresso aqui.
Dúvidas e sugestões, entre em contato.
Obrigado e até a próxima!
0 comentário