PswSeek - Pesquisa o arquivo de senhas

Descrição:

Pesquisa o arquivo de senhas.

A função PswSeek() pesquisa e posiciona o arquivo de senhas conforme a ordem informada na PswOrder() e o parâmetro lUsuario que indica se a pesquisa vai ser feita por usuário ou grupo.

Sintaxe:

PswSeek( cSeek , [ lUser ] ) → lRetorno

Retorno:

lRetorno → Logical, retorna .T. se a pesquisa foi realizada com sucesso, ou .F. se não encontrou.

Parâmetros:

Nome	Tipo	Descrição	Default	Obrigatório	Referência
cSeek	Caracter	Informação a ser pesquisada		X
lUser	Logical	Se for pesquisar usuário informar .T., caso contrário .F. para grupos.	.T.

Exemplo:

#include "protheus.ch"

User Function Sample()
Local aGrupos as array

If ( __cUserId == '000000' )
    // e usuario administrador.
Else
    // Para verificar se faz parte do grupo de administradores
    PswOrder(1)

    If (  PswSeek(__cUserId, .T.) )
        aGrupos := Pswret(1)

        If ( Ascan(aUser[1][10],'000000') <> 0 )
            // O usuario corrente faz parte do grupo de administradores
        EndIf
    EndIf
EndIf

Return

Essa função não observa a configuração de case sensitive que se encontra nas políticas do configurador. Essa configuração é utilizada somente para o login do sistema.

Páginas filhas