TOTVSTEC

Árvore de páginas

  • Criado por Usuário desconhecido (ailton.lichman) em 05 out, 2016

Verifica se o identificador da sessão de variáveis globais fornecido está associado a um HashMap global.

Sintaxe

VarIsUID( < cUID > )

Parâmetros

Nome

Tipo

Descrição

Obrigatório

Referência

cUID

caractere

Identificador da sessão de variáveis globais.

X

 

Retorno

Nome

Tipo

Descrição

lRet

lógico

Retorna .T. se o <cUID> fornecido está associado a um HashMap global ou .F. se o <cUID> fornecido não está associado a um HashMap global.

Observações

  • O <cUID> fornecido na verificação deve estar no mesmo formato do usado na criação da sessão nomeada de variáveis globais.
  • Para criar uma sessão nomeada de variáveis globais deve-se usar a função VarSetUID.
  • Para remover uma sessão nomeada de variáveis globais deve-se usar a função VarClean.

Exemplos

User Function TestIsUID()
  Local cMyUID := "teste_UID_RL"
  Local lRet := .F.

  // -------------------------------------------------------------------------
  ConOut("Verificando a existência da sessão [" + cMyUID + "] antes da criação...")
  lRet := VarIsUID(cMyUID)
  If ( !lRet )
    ConOut("A sessão [" + cMyUID + "] não existe.")
  Else
    ConOut("A sessão [" + cMyUID + "] existe.")
  EndIf
 
  // -------------------------------------------------------------------------
  ConOut("Criando a sessão [" + cMyUID + "]...")
  lRet := VarSetUID(cMyUID)
  If ( !lRet )
    ConOut("Erro na criação da sessão [" + cMyUID + "]. Ver log para detalhes.")
  Else
    ConOut("A sessão [" + cMyUID + "] foi criada com sucesso.")
  EndIf
 
  // -------------------------------------------------------------------------
  ConOut("Verificando a existência da sessão [" + cMyUID + "] após a criação...")
  lRet := VarIsUID(cMyUID)
  If ( !lRet )
    ConOut("A sessão [" + cMyUID + "] não existe.")
  Else
    ConOut("A sessão [" + cMyUID + "] existe.")
  EndIf
 
  // -------------------------------------------------------------------------
  ConOut("Deletando a sessão [" + cMyUID + "]...")
  lRet := VarClean(cMyUID)
  If ( !lRet )
    ConOut("Erro na deleção dos valores/transações das chaves da sessão [" + cMyUID + "]. Ver log para detalhes.")
  Else
    ConOut("A sessão [" + cMyUID + "] foi deletada com sucesso.")
  EndIf
 
  // -------------------------------------------------------------------------
  ConOut("Verificando a existência da sessão [" + cMyUID + "] após a deleção...")
  lRet := VarIsUID(cMyUID)
  If ( !lRet )
    ConOut("A sessão [" + cMyUID + "] não existe.")
  Else
    ConOut("A sessão [" + cMyUID + "] existe.")
  EndIf
Return

Veja também

  • Sem rótulos