Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - Existe função para manipular o profile do usuário?

Tempo aproximado para leitura: 00:01:00 min

Dúvida
Existe função para manipular o profile do usuário?

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - ADVPL - Todas as versões

Solução

Para realizar a manipulação do profile do usuário existe a função FwProfile, essa função fornece um objeto que permite o controle do profile do usuário.

Exemplo

#INCLUDE 'Protheus.ch'

User function FwProftst()

Local oProf := FwProfile():New()
Local aProf := {}
Local aProf2 := {}
Local cProf := ""

oProf:SetUser("000000")
oProf:SetProgram("FATA010   ")
oProf:SetTask("PROTHEUS  ")
oProf:SetType("BRWFWLKAC5")
oProf:Activate()

aProf:= oProf:Load(.F.)
aProf2:= oProf:GetProfile()
cProf:= oProf:LoadStrProfile(.F.)

oProf:SetStringProfile("TESTE")
oProf:Save()

Return

Saiba mais:

FwProfile

Framework - Linha Protheus - Manutenção de Profile de Usuários