VarGet_A

Obtém uma lista com todas as chaves e seus respectivos valores das tabelas "Tabela X" e "Tabela A"

Sintaxe

lRet := VarGet_A( <cUID>, <aListCV_X>, <aListCV_A> )

Parâmetros

Nome	Tipo	Descrição	Obrigatório	Referência
cUID	Caractere	Identificador da sessão de Variáveis Globais	X
aListCV_X	Array	Variável de retorno da Lista de chaves e valores da "Tabela X"	X	X
aListCV_A	Array	Variável de retorno da Lista de chaves e valores da "Tabela A"	X	X

Retorno

Nome	Tipo	Descrição	Observações
lRet	Lógico	Indica se conseguiu obter a lista de todas as chaves e seus valores referente a sessão <cUID>	Retorna .T. se a função foi executada corretamente e se houver algum erro retorna .F.

Observações

Retorna as respectivas listas das tabelas "Tabela X" e "Tabela A" contento suas a chaves e seus valores.

Durante a montagem de cada lista não será possível se alterar ou recuperar quaisquer valores das chaves desta sessão <cUID>.

Disponível em Build igual ou superior a 7.00.131227A

Exemplos

Exemplo

User Function exemplo()
  Local cMyUID := "teste_UID_RL"
  Local aListCV_X := {}
  Local aListCV_A := {}
  Local lRet := .F.
  
  ConOut("Iniciando a recuparação da lista de valores: " + cMyUID)
  lRet := VarGet_A(cMyUID, @aListCV_X, @aListCV_A)
  If(!lRet)    
    ConOut("Erro na recuperação das listas da sessão: " + cMyUID)      
  Else
    ConOut("Recuperou da lista da Tabela X da sessão: " + cMyUID + " tamanho: " + AllTrim(Str(Len(aListCV_X))))
    //VarInfo("", aListCV_X)
    ConOut("Recuperou da lista da Tabela A da sessão: " + cMyUID + " tamanho: " + AllTrim(Str(Len(aListCV_A))))    
    //VarInfo("", aListCV_A)
  EndIf
Return .T.

Veja também

VarSetUID, VarGetXA, VarGetAA

Árvore de páginas