Histórico da Página
Linha de Produto: | Protheus |
Função: | PSWRET |
Observação: | A partir da versão 11 do Protheus o tratamento de informações de grupo de usuários mudou e as funções PSWORDER, PSWSEEK e PSWRET podem não retornar todas as informações que você precisa.
FWGRPMENU() FWGRPEMP() FWGRPPARAM() FWGRPIMP() FWGRPHOR() http://tdn.totvs.com.br/pages/releaseview.action?pageId=6814847 |
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:
Nome | Tipo | Descrição |
nReg | Numérico | Número do vetor a ser retornado |
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:
Bloco de código | ||
---|---|---|
| ||
// 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 |