Função para Obter Módulo e Permissões de Acesso do Usuário Protheus

Sabemos que não dá pra resolver tudo...a culpa não é sua!
Converse com a gente ali na caixa ao lado 👉

Existem situações em que é necessário obter informações sobre os módulos e permissões de acesso de um usuário no sistema Protheus. Embora não exista uma função específica para isso, é possível utilizar funções como FWSFAllUsers, PswOrder, PswSeek e PswRet para gerar um resultado semelhante.

Utilizando Funções para Obter Informações de Acesso

É possível criar uma função que utilize as funções mencionadas acima para obter as informações desejadas. Por exemplo:

#include "protheus.ch"

function u_TestUsr()
local aUsers as array

aUsers := u_allUsers()
varInfo("Users", aUsers)

return nil

user function allUsers()
local aUsrAux as array
local aUsers as array
local nLoop as numeric
local nOrder as numeric

nOrder := PswOrder(1)
aUsrAux := FWSFAllUsers()
aUsers := {}

for nLoop := 1 to len(aUsrAux)
PswSeek(aUsrAux[nLoop][2])
aAdd(aUsers, PswRet())
next

PswOrder(nOrder)

return aUsers

#include "protheus.ch"

function u_TestUsr()

local aUsers as array

aUsers := u_allUsers()

varInfo("Users", aUsers)

return nil

user function allUsers()

local aUsrAux as array

local aUsers as array

local nLoop as numeric

local nOrder as numeric

nOrder := PswOrder(1)

aUsrAux := FWSFAllUsers()

aUsers := {}

for nLoop := 1 to len(aUsrAux)

PswSeek(aUsrAux[nLoop][2])

aAdd(aUsers, PswRet())

PswOrder(nOrder)

return aUsers

Essa função pode ser utilizada para obter as informações de acesso do usuário e realizar ações necessárias com base nessas informações.

Referências Adicionais

Para mais informações sobre as funções utilizadas, você pode consultar as seguintes referências:
– FWSFAllUsers
– PswOrder
– PswSeek
– PswRet

Sobre
Últimos Posts

Siga na rede

Fernando Bueno

Consultor em FBSOLUTIONS

Sou consultor na área de implantação de sistemas ERP, com experiência na análise e implantação de projetos de sistemas, configurando a estrutura do software, capacitando usuários-chaves, ministrando treinamentos e workshops.

Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.

Siga-me no Linked In

Siga na rede

Últimos posts por Fernando Bueno (exibir todos)

Guia Prime: Apresentação em Power Point TMS - 29 de junho de 2026
Guia Prime: Guia – Gestão Frete Embarcador SIGAGFE Essencial - 29 de junho de 2026
Conciliação DDA no Protheus