Categorias

Funções para exibir informações dos usuários Protheus

Conjunto de funções específicas para recuperação de informações dos usuários Protheu.

PswOrder(nOrder) = Seta a ordem de pesquisa:

nOrder

Ordem     Chave
1         ID
2         Nome
3         Senha
4         E-Mail ( ainda não implementado )

PswSeek(cSeek,lUser) = Faz a pesquisa retornando .T. ou .F.

cSeek = String a ser procurada

lUser
Conteúdo     Descrição
.T.          Pesquisa usuário ( padrão )
.F.          Pesquisa grupos

PswRet(nReg) = Retorna vetor com informações do usuário / grupo

nReg

Conteúdo     Descrição
NIL          Todos os registros
1            1º Registro
2            2º Registro
3            3º Registro

Vetor com configurações do administrador

Registro     Elemento                              Tipo    Tamanho
1            Senha mestra                            C     6
2            Número de erros                         N     1
3            Número de senhas a guardar              N     2
4            Uso do nome para verificação da senha   L     1
5            Tamanho da senha                        N     1
6            Bloqueio                                L     1


Vetor com configurações dos grupos

Registro     Elemento                        Tipo     Tamanho
               
     1          ID                           C     6
     2          Nome                         C     20
     3          Vetor com horários de acesso A     
     4          Data de validade             D     8
     5          Quantas vezes para expirar   N     4
     6          Autorizado a alterar a senha L     1
     7          Idioma                       N     1
     8          Diretório                    C     100
     9          Impressora                   C     
     10         Acessos                      C     512
     11         Vetor com empresas           A     
     12         Data da última alteração     D     8
     13         Tipo de impressão            N     1
     14         Formato                      N     1
     15         Ambiente                     N     1
     16         Opção de Impressão           C     2               


Vetor com configurações dos usuários

Registro   Elemento                          Tipo     Tamanho
     1     ID                                C     6
     2     Nome                              C     15
     3     Senha                             C     6
     4     Nome completo                     C     30
     5     Vetor com "n" últimas senhas      A     
     6     Data de validade                  D     8
     7     Quantas vezes para expirar        N     4
     8     Autorizado a alterar a senha      L     1
     9     Alterar senha no próximo logon    L     1
     10    Vetor com os grupos               A     
     11    ID do superior                    C     6
     12    Departamento                      C     30
     13    Cargo                             C     30
     14    E-mail                            C     30
     15    Número de acessos simultâneos     N     4
     16    Data da última alteração          D     8
     17    Usuário bloqueado                 L     1
     18    Número de digitos para o ano      N     1
     

Exemplo de utilização

_NomeUser := substr(cUsuario,7,15)

// Defino a ordem
PswOrder(2) // Ordem de nome
     
// Efetuo a pesquisa, definindo se pesquiso usuário ou grupo
If PswSeek(_NomeUser,.T.)

   // Obtenho o resultado conforme vetor
   _aRetUser := PswRet(1)

   _cDepto   := upper(alltrim(_aRetUser[1,12]))
         
EndIf