RetCodUsr

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:

 

Receba as últimas atualizações do ProtheusAdvpl
Deixe seu melhor email
Nós respeitamos sua privacidade.