Histórico da Página

DESCRIÇÃODescrição:

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

PROGRAMA FONTE:

SIGAPSW.PRW

SINTAXE:

Sintaxe:

PswRet( [ nArray ], [ lNoAll nReg ] ) --> aRet

PARÂMETROSParâmetros:

RETORNORetorno:

aRet (vetor)

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

OBSERVAÇÕESObservações:

...

nReg

1 - Informações do usúariousuá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 ConteudoConteúdo
[1][1]   C     Número de identificação seqüencial 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   

...

[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 ConteudoConteú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:

// Exemplo 1

...

User Function Sample1( cUsuario )

...

Local aArray as array
Local nOrder as numeric

nOrder := 

...

PswOrder(2)

...

If PswSeek( cUsuario, .T. )  

...

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

...

EndIf

Return

EndIf

PswOrder(nOrder) //Restaura a ordem

Return


// Exemplo 2

...

User Function Sample2( cGrupoID)

...

Local cGrupo

...

 as character
Local nOrder as numeric

nOrder := PswOrder(1)

...

If PswSeek( cGrupoId, .F. )   

...

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

...

EndIf

EndIf

PswOrder(nOrder) //Restaura a ordem

Return