Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Configurador (SIGACFG) - Para que sirve la función PswSeek

Tempo aproximado para leitura: 00:05:00 min

Duda
¿Para que sirve la función PswSeek?

Ambiente
Cross Segmentos - TOTVS Backoffice (Línea Protheus) MI - Configurador (SIGACFG) - Todas las versiones

Solución
La función PswSeek() busca y posiciona el archivo de contraseñas según el orden informado en PswOrder() y el parámetro lUsuario que indica si la búsqueda se realizará por usuario o grupo.

Ejemplo:

#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