LOGIN_logix_checkCompanyUser

Identifica se um usuário Logix tem permissão de acesso a uma determinada empresa.

Sintaxe

LOGIN_logix_checkCompanyUser( < l_user >, < l_company >, < l_displayMode > ) => SMALLINT

Parâmetros

Nome

Tipo

Obrigatório?

Descrição

l_user

CHAR

Sim

Login do usuário.

l_company

CHAR

Sim

Código da empresa.

l_displayMode

SMALLINT

Sim

No caso de ocorrer algum problema ou identificar que o usuário não possui permissão de acesso para a empresa informada, uma mensagem padrão do sistema pode ser exibida ou apenas armazenada em memória:

0 ONLINE Mensagem será exibida em tela.
1 BATCH Mensagem será armazenada em memória e seu conteúdo pode ser recuperado através das funções

log0030_mensagem_get_texto() e log0030_mensagem_get_tipo() ou exibi-la em tela em um outro momento

através da função log0030_exibe_ultima_mensagem().

Retorno

Nome

Tipo

Descrição

l_return

SMALLINT

TRUE Usuário possui permissão de acesso para a empresa.

FALSE Usuário não possui permissão para a empresa.

Exemplo

#--------------------------------------------#
 FUNCTION LOGIN_logix_checkCompanyUser_test()
#--------------------------------------------#
   DEFINE l_user    LIKE usuarios.usuario
   DEFINE l_company LIKE empresa.cod_empresa

   #Checagem de permissão do usuario ad02847 para a empresa 05, com controle de exibição de menssagem de erro em modo BATCH (1)
   IF LOGIN_logix_checkCompanyUser('ad02847','05',1) THEN
	  CALL LOG_messageInfo("Usuário possui permissão para a empresa.","","")
   ELSE
      CALL log0030_exibe_ultima_mensagem()
   END IF
 END FUNCTION

Informações

Fonte: login.4gl

Páginas filhas