Linha Logix

Páginas filhas
  • LOGIN_logix_checkCompanyUser

Versões comparadas

Versão antiga 3

changes.mady.by.user Cleane Hermann

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Cleane Hermann

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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

Sintaxe

Bloco de código
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
SimCó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.

...

Bloco de código
languageruby
themeConfluence
linenumberstrue
#--------------------------------------------#
 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

...