PswRet - Informações do último usuário

DESCRIÇÃO:

Retorna um vetor com informações do último usuário ou grupo posicionado pela função PswSeek.

PROGRAMA FONTE:

SIGAPSW.PRW

SINTAXE:

PswRet( [ nReg ] ) --> aRet

PARÂMETROS:

RETORNO:

aRet(vetor)

Retorna array contendo as informações do usuário ou do grupo.

OBSERVAÇÕES:

nArray

1 - Informações do usuário
2 - Detalhes do usuário (impressão, configuração de página, tipo de ambiente e etc)
3 - Menus do usuário.

aRet

Informações do usuário:

Índice       Tipo Conteúdo
[1][1]   C     Número de identificação sequencial com o tamanho de 6 caracteres
[1][2]   C     Nome do usuário
[1][3]   C     Senha (criptografada)
[1][4]   C     Nome completo do usuário
[1][5]   A     Vetor contendo as últimas n senhas do usuário
[1][6]   D     Data de validade
[1][7]   N     Número de dias para expirar
[1][8]   L      Autorização para alterar a senha
[1][9]   L      Alterar a senha no próximo logon
[1][10] A     Vetor com os grupos
[1][11] C     Número de identificação do superior
[1][12] C     Departamento
[1][13] C     Cargo
[1][14] C     E-mail
[1][15] N     Número de acessos simultâneos
[1][16] D     Data da última alteração
[1][17] L      Usuário bloqueado
[1][18] N     Número de dígitos para o ano
[1][19] L      Listner de ligações
[1][20] C     Ramal
[1][21] C     Log de operações
[1][22] C     Empresa, filial e matricula
[1][23] A     Informações do sistema
    [1][23][1]  L  Permite alterar database do sistema
    [1][23][1]  N  Dias a retroceder
    [1][23][1]  N  Dias a avançar
[1][24] D     Data de inclusão no sistema
[1][25] C     Nível global de campo
[1][26] U     Não usado   

[2][1]   A    Vetor contendo os horários dos acessos, cada elemento do vetor corresponde um dia da semana com a hora inicial e final.
[2][2]   N    Uso interno
[2][3]   C    Caminho para impressão em disco
[2][4]   C    Driver para impressão direto na porta. Ex: EPSON.DRV
[2][5]   C    Acessos
[2][6]   A    Vetor contendo as empresas, cada elemento contem a empresa e a filial. Ex:"9901", se existir "@@@@" significa acesso a todas as empresas
[2][7]   C    Elemento alimentado pelo ponto de entrada USERACS
[2][8]   N    Tipo de impressão: 1 - em disco, 2 - via Windows e 3 direto na porta
[2][9]   N    Formato da página: 1 – retrato, 2 - paisagem
[2][10] N    Tipo de Ambiente: 1 – servidor, 2 - cliente
[2][11] L     Priorizar configuração do grupo
[2][12] C    Opção de impressão
[2][13] L    Acessar outros diretórios de impressão

[3]       A    Vetor contendo o módulo, o nível e o menu do usuário.
      Ex: [3][1] = "019\sigaadv\sigaatf.xnu"
            [3][2] = "029\sigaadv\sigacom.xnu"

Se o parâmetro lNoAll for igual a .F., a dimensão 4 do array também será mostrada.

[4]       A    Vetor contendo as informações do SenhaP
[4][1]  L     Utiliza SenhaP
[4][2]  C    Número de série do SenhaP
[4][3]  C    Não usado
[4][4]  C    Não usado

[5]       A    Array com as informações do painel de gestão
[6]       A    Array com as informações dos indicadores nativos

Informações do grupo:

Índice Tipo Conteúdo

[1][1]   C      Número de identificação sequencial com o tamanho de 6 caracteres
[1][2]   C      Nome do grupo
[1][3]   A      Vetor contendo os horários dos acessos,  cada elemento corresponde a um dia da semana com a hora inicial e final.
[1][4]   D      Data de validade
[1][5]   N      Número de dias para expirar
[1][6]   L      Autorização para alterar a senha
[1][7]   N     Uso interno
[1][8]   C     Caminho para impressão em disco
[1][9]   C     Driver para impressão direto na porta. Ex: EPSON.DRV
[1][10] C     Acessos
[1][11] A     Vetor contendo as empresas, cada elemento contem a empresa e a filial. Ex:9901, se existir "@@@@" significa acesso a todas as empresas
[1][12] D     Data da última alteração
[1][13] N     Tipo de impressão: 1 - em disco, 2 - via Windows e 3 direto na porta
[1][14] N     Formato da página: 1 - retrato, 2 - paisagem
[1][15] N     Tipo de Ambiente: 1 - servidor, 2 - cliente
[1][16] C     Opção de impressão
[1][17] L      Acessar outros diretórios de impressão
[1][18] A      Range da database
     [1][18][1] - Permite retroceder ou avançar database.
     [1][18][2] - Dias a retroceder
     [1][18][3] - Dias a avançar
[1][19] D      Data de inclusão
[1][20] C      Nível global de campo

[2]  A Vetor contendo o módulo, o nível e o menu do usuário.
     Ex: [2][1] = "019\sigaadv\sigaatf.xnu"
           [2][2] = "029\sigaadv\sigacom.xnu"

EXEMPLO:

// Exemplo 1

User Function Sample1( cUsuario )

Local aArray := {}

PswOrder(2)

If PswSeek( cUsuario, .T. )  

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

EndIf

Return

// Exemplo 2

User Function Sample2( cGrupoID)

Local cGrupo

PswOrder(1)

If PswSeek( cGrupoId, .F. )   

    cGrupo := PswRet()[1][2] // Retorna nome do Grupo de Usuário

EndIf

Return