Perguntas DESCRIPTAR SENHA USUARIO PROTHEUS

Boa tarde Galera
Estou tentando descriptar a senha do usuario via advpl na seguinte funcao abaixo, porem dá erro nas seguintes linhas:
nPswRec := spf_Seek( cPswFile , "1U"+Alltrim(Upper(cUser)) , 1 ) - Retorna -1
SPF_GETFIELDS(cPswFile,nPswRec,@cKey1,@cKey2,@cKey3,@cPswDet) - erro de variavel


spf_CanOpen(cPswFile)
nPswRec := spf_Seek( cPswFile , "1U"+Alltrim(Upper(cUser)) , 1 )
SPF_GETFIELDS(cPswFile,nPswRec,@cKey1,@cKey2,@cKey3,@cPswDet)
cOldPsw := PswEncript( alltrim(cKey3) , 1 )
SPF_CLOSE("SIGAPSS.SPF")

Ate
Cezar

Ola boa noite.

Olha , tentei a algum tempo fazer isso, mas acabei descobrindo que da versão 10 para a 11, a totvs mudou/retirou varias funções quando se trata do SPF, aparentemente passaram tudo pra Allusers().

Estou com alguns chamados abertos lá para documentarem melhor essas funções de manipulação do spf, mas estão bastante resistentes em abrir o livro de segredos. kkk

ou seja , essas funções so funcionavam até o 10, não conheço ninguém que tenha conseguido fazer isso funcionar no 11.

att

Tenta usar
nPswRec := spf_seek( cPswFile , "3U"+cUserId , 1 )

Cria um array para armazenar informações do usuario.
Exemplo pega informações do usuario logado:
PswOrder(1) //1 - ID do usuário/grupo do configurador
If ( PswSeek(__cUserId, .T.) )
aInfUsr := Pswret(1)
cSenhas := aInfUsr[1][3]
endif

Mais Informações:
//http://tdn.totvs.com/pages/releaseview.action?pageId=6814854

Flavio Oliveira
Analista Advpl