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

100

101

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

Carregando...

Pipeline (CD/CI) // Dicionário do Programador

Como se Tornar um Cientista de Dados de Sucesso // Vlog #105

Swift (a linguagem do iOS) // Dicionário do Programador

VAGA PERFEITA? Reagindo a Vagas de Estágio 2: A Missão // Vlog React #104

Serverless // Dicionário do Programador

Pipeline (CD/CI) // Dicionário do Programador

Como se Tornar um Cientista de Dados de Sucesso // Vlog #105

Swift (a linguagem do iOS) // Dicionário do Programador

VAGA PERFEITA? Reagindo a Vagas de Estágio 2: A Missão // Vlog React #104

Serverless // Dicionário do Programador

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

Rodrigo Araujo

Autor

Você pode se interessar

Promoções de Jogos do Final de Semana (23/10)

Você precisa conhecer YAML

Promoções de Jogos do Final de Semana (16/10)

Deixe um Comentário Cancelar resposta

Mais publicações

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Promoções de Jogos do Final de Semana (09/10)

Como a Microsoft entrou na guerra contra os Deep Fakes

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Promoções de Jogos do Final de Semana (09/10)

Promoções de Jogos do Final de Semana (23/10)

Você precisa conhecer YAML

Promoções de Jogos do Final de Semana (16/10)

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Receba nossas novidades em seu e-mail!

Quem somos

Pipeline (CD/CI) // Dicionário do Programador

Como se Tornar um Cientista de Dados de Sucesso // Vlog #105

Swift (a linguagem do iOS) // Dicionário do Programador

VAGA PERFEITA? Reagindo a Vagas de Estágio 2: A Missão // Vlog React #104

Serverless // Dicionário do Programador

Pipeline (CD/CI) // Dicionário do Programador

Como se Tornar um Cientista de Dados de Sucesso // Vlog #105

Swift (a linguagem do iOS) // Dicionário do Programador

VAGA PERFEITA? Reagindo a Vagas de Estágio 2: A Missão // Vlog React #104

Serverless // Dicionário do Programador

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

Rodrigo Araujo

Autor

Você pode se interessar

Promoções de Jogos do Final de Semana (23/10)

Você precisa conhecer YAML

Promoções de Jogos do Final de Semana (16/10)

Deixe um Comentário Cancelar resposta

Mais publicações

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Promoções de Jogos do Final de Semana (09/10)

Como a Microsoft entrou na guerra contra os Deep Fakes

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Promoções de Jogos do Final de Semana (09/10)

Promoções de Jogos do Final de Semana (23/10)

Você precisa conhecer YAML

Promoções de Jogos do Final de Semana (16/10)

Os 7 piores erros de Excel da História

Como aprender JavaScript de graça com a Microsoft

Receba nossas novidades em seu e-mail!

Quem somos

Siga-nos