Páginas filhas
  • 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:

NomeTipoDescriçãoDefaultObrigatórioReferência
cSeekCaracterInformação a ser pesquisada
X
lUserLogicalSe 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.



  • Sem rótulos