Tempo de leitura: 1 minuto
Olá, no post de hoje iremos falar de uma das funções de manipulação de usuários em ADVPL, a função RetCodUsr. Essa função tem por objetivo retornar o código do usuário corrente do TOTVS Protheus no momento da execução de uma determinada rotina do Protheus.
Sintaxe:
RetCodUsr( )
Retorno:
Exemplo em ADVPL:
#include 'protheus.ch'
#include 'TOTVS.ch'
/*{Protheus.doc} User Function User Function PARCUsr()
(Essa função tem por finalidade mostrar a função de Manipulação de Usuários RetCodUsr em ADVPL)
@type Function
@author Adilio Costa
@since 14/07/2023
@version 1.0
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
//Exemplo da função RetCodUsr
User Function PARCUsr()
Local lRet := .T.
Local cCodUsr := "000010"
//A função RetCodUsr retorna o código do usuário e compara com o código da variável cCodUsr
If(RetCodUsr() <> cCodUsr)
MsgAlert("Apenas o usuário de código "+cCodUsr+" pode acessar essa rotina!")
lRet := .F.
EndIf
Return lRet
Bem, finalizamos mais um post aqui no blog. Espero que tenha entendido, se tiver ficado alguma dúvida deixe seu comentário ou nos mandar um e-mail para adiliocosta@protheusadvpl.com.br. Grande abraço e fica com Deus.
Links de referência:
Link permanente
Hi there, I discovered your website by way of Google at the
same time as searching for a comparable topic, your website came up, it appears to be like great.
I’ve bookmarked it in my google bookmarks.
Hi there, just was alert to your blog thru Google, and found that it’s truly
informative. I am gonna watch out for brussels. I will appreciate in case you proceed this
in future. Lots of other folks will probably be benefited out of your writing.
Cheers!