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
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 | #INCLUDE "PROTHEUS.CH"#INCLUDE "RWMAKE.CH"/*/{Protheus.doc} P.E. AfterLoginFunção chamada após o login do usuário e no MDI a cada nova aba@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árioLocal cNome := ParamIXB[2] //Nome do usuárioconout("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()EndCaseReturn .t. |
O código fonte desse e outros exemplos podem ser encontrados em nosso git.
Post interessantes:
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