Função: PswSeek - Pesquisa o arquivo de senhas
| Versões: | Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 |
| Compatível Países: | Todos |
| Sistemas Operacionais: | Todos |
| Compatível às Bases de Dados: | Todos |
| Nível de Acesso: | Nível 1 (Acesso Clientes) |
| Idiomas: | Espanhol , Inglês |
Descrição:
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.
Programa Fonte:
SIGAPSW.PRW
Sintaxe:
PswSeek - Pesquisa o arquivo de senhas ( cSeek [ lUser ] ) --> lRetorno
Retorno:
-
lRetorno(logico)
- Retorno .T. se a pesquisa foi realizada com sucesso, ou .F. se não encontrou.
Exemplos
#include "protheus.ch"User Function Sample( )Local aGruposIf ( __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 EndIfEndIfReturn
Parâmetros:
| Nome | Tipo | Descrição | Default | Obrigatório | Referência | ||||||||||||
| cSeek | Caracter | Informação a ser perquisada | X | ||||||||||||||
| lUser | Lógico | Se for pesquisar usuário informar .T., caso contrário .F. para grupos. | .T. |