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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 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...
Você pode se interessar

Dicas
5 visualizações
Dicas
5 visualizações
Como cortar texto sem usar uma linha de script
Carlos L. A. da Silva - 11 de janeiro de 2021Conheça o poder da propriedade text-overflow no CSS e nunca mais edite strings no braço.

Artigos
12 visualizações
Artigos
12 visualizações
Como começar a programar
Carlos L. A. da Silva - 7 de janeiro de 2021Então, você quer entrar nessa vida? A decisão é sua, mas nós podemos te ajudar com os primeiros passos.

Dicas
16 visualizações
Dicas
16 visualizações
Como cancelar qualquer conta online para sempre
Carlos L. A. da Silva - 30 de dezembro de 2020Que tal fazer uma limpeza nas suas contas inativas ou finalmente largar aquela rede social que só dá desgosto?
Mais publicações

Artigos
19 visualizações
19 visualizações

Artigos
19 visualizações
19 visualizações

Dicas
26 visualizações
26 visualizações

Notícias
31 visualizações
31 visualizações
Deixe um Comentário