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

SINTAXESintaxe:

PswRet( [ 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 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]  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