Árvore de páginas

Recupera o valor de uma "chave" na "Tabela A" de uma determinada sessão, e faz bloqueio da "chave" <cChave>.

Sintaxe

 

VarGetA
lRet := VarGetA( <cUID>, <cChave>, <aValor> )

Parâmetros

NomeTipoDescriçãoObrigatórioReferênciaObservações
cUIDCaractere

Identificador da sessão de Variáveis Globais

X  
cChaveCaractereIdentificador da chaveX  
aValorArrayValor a ser armazenadoXX 

Retorno

NomeTipoDescriçãoObservações
lRetLógico

Indica se conseguiu recuperar o valor da chave <cChave> na sessão <cUID>

Retorna .T. se a função foi executada corretamente e se houver algum erro retorna .F.

Observações

Se a chave <cChave> ou a sessão <cUID> não existirem, será retornado .F. em <lRet> e o conteúdo de <aValor> é indefinido, se ambos forem encontrados <aValor> receberá uma cópia do valor armazenado.

Como esta função faz o bloqueio da chave não deve ser usada dentro de transações ("VarBeginT" na chave <cChave>).

Todavia se você só quiser recuperar o valor somente após o término de uma transação, esta função só irá executar após o término efetivo da transação ("VarEndT" na chave <cChave>).

Por conta de fazer bloqueio na chave esta função é mais lenta que a função "VarGetAD".

(aviso) Disponível em Build igual ou superior a 7.00.131227A

Exemplos

Exemplo 

User Function exemplo()
  Local cMyUID := "teste_UID_RL"
  Local cChave := "chave"
  Local aValor := {.T., -1, "ricardo"} // tamanho 3
  Local lRet := .F.
    
  lRet := VarSetUID(cMyUID, .T.)
  If(!lRet)
    ConOut("Erro na criação da sessão: " + cMyUID)
  EndIf
   
  lRet := VarSetAD(cMyUID, cChave, aValor)
  If(!lRet)
    ConOut("Erro na atualização da chave: " + cChave)
  EndIf
  
  nValor := {Nil, CToD("29/08/2015")} // tamanho 2
  
  lRet := VarGetA(cMyUID, cChave, @aValor)
  If(!lRet)
    ConOut("Erro na recuperação da chave: " + cChave)
  Else
    ConOut("Achou a chave: " + cChave + " tamanho valor: " + AllTrim(Str(Len(aValor))))
  EndIf
Return .T.
  • Sem rótulos