Executando rotinas ao sair do sistema – P.E. MsQuit

Rafael Gonçalves — Mon, 21 Sep 2020 19:10:48 +0000

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!

O post Executando rotinas ao sair do sistema – P.E. MsQuit apareceu primeiro em Sem Preju.

Executando rotinas ao abrir um módulo – PE AfterLogin

Rafael Gonçalves — Wed, 25 Mar 2020 16:52:49 +0000

Existe um ponto de entrada pouco conhecido que é chamado após o login do usuário e no MDI a cada nova aba.

Esse ponto de entrada é o AfterLogin, e sua documentação oficial pode ser encontrada aqui.

Abaixo um exemplo

#INCLUDE "PROTHEUS.CH"
#INCLUDE "RWMAKE.CH"


/*/{Protheus.doc} P.E. AfterLogin
Função chamada após o login do usuário e no MDI a cada nova aba
@author TOTVS http://tdn.totvs.com/pages/releaseview.action?pageId=6815186
@author Rafael Gonçalves
@since  Março/2020
@version 1.0
@project
@param
    Vetor PARAMIXB
    O vetor PARAMIXB possui a seguinte estrutura:
    [1] - Id do usuário
    [2] - Nome do usuário
/*/

User Function AfterLogin()
Local cPessoa := RetCodUsr()
Local cId	:= ParamIXB[1] //Id do usuário
Local cNome := ParamIXB[2] //Nome do usuário
conout("AfterLogin executado por: Usuario "+ cId + " - " + Alltrim(cNome)+" efetuou login as "+Time())

Do Case
    //Filtra somente os pedidos que o usuário fez
    Case nModulo == 5 //Faturamento
        DbSelectArea('SC5')
        If cPessoa != '000000' .and. fieldpos(C5_ZZUSR)>0//nao for adm
            SC5->(DbSetFilter({|| C5_ZZUSR == cPessoa }, "C5_ZZUSR == '"+cPessoa+"'"))
        EndIf
    Case cModulo == "GPE"
            //Verificar Férias e Termino de Periodo de Experiencia

    Case cModulo == "COM"
        //Verificar Pedidos com previsao de Entrega na data
        //u_ChkPed()
EndCase

Return .t.