TOTVSTEC

Árvore de páginas

Cria um objeto que permite o compartilhado de dados entre os servidores através de uma Lista.

Sintaxe

 

oTQLS := TListSvc():New( cName )

Parâmetros

NomeTipoDescriçãoObrigatórioReferênciaObservações
cName
caractere

Nome que será atribuído a Fila ou Lista

X Nome não deve ser vazio (Nulo)

Retorno

NomeTipoDescriçãoObservações
oTQLS
objeto

objeto de Fila ou Lista

Se algum erro ocorrer será retornado Nulo (Nil)

Observações

Exemplos

Exemplo  

#include 'protheus.ch'
 
// Setup Redis
Static cRedisHost := "tec-clima"
Static nRedisPort := 6379
 
User Function newList()
  Local nRet       := 0
 
  // Nome da Lista
  Local cListName := "Lista_TQLS"
 
  // Objeto de Lista
  Local oTQLS := Nil
 
  Local cBuild := GetBuild()
  ConOut("Usando Build: " + cBuild)
 
  // Cria um novo objeto de Lista
  oTQLS := TListSvc():New(cListName)
  If(oTQLS == Nil)
    ConOut("### ERRO ### " + "Erro na criacao da Lista - " + cListName)
    Return .F.
  Else
    ConOut("Criacao da Lista  OK - " + oTQLS:cName)
  EndIf
 
  // Configurando a Lista
  nRet := oTQLS:Setup(cRedisHost, nRedisPort)
  If nRet != 0
    ConOut("### ERRO ### " + "Erro ao fazer o Setup" + " Erro: " + AllTrim(Str(nRet)))
    Return .F.
  Else
    ConOut("Setup de Lista     OK - " + oTQLS:cName)
  EndIf
 
Return .T.

Veja também

  • Sem rótulos