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