TOTVSTEC

Árvore de páginas

Obtém uma mensagem da Lista

Sintaxe

 

nRet := oTQLS:GetMsg( cMsgId, @cMsg [, @nMsgLen] )

Parâmetros

NomeTipoDescriçãoObrigatórioReferênciaObservações
cMsgId
Caractereidentificador da mensagem a ser recuperada da ListaX  
cMsgCaractereé preenchido com a mensagem recuperadaXX 
nMsgLen
Numéricose informado é preenchido com o tamanho da mensagem recebida X 

Retorno

NomeTipoDescriçãoObservações
nRet
Numérico

se executou corretamente retorna 0 ("OK"), caso contrário contem o número do erro

 

Observações

Exemplos

Exemplo 

GetMsg
#include 'protheus.ch'

// Setup Redis
Static cRedisHost := "tec-clima"
Static nRedisPort := 6379


User Function LstGet()
  Local nRet       := 0
  // ID da mensagem
  Local cMsgId1    := "id1"
  // Mensagem a receber
  Local cMsg       := ""
  // Nome da Lista
  Local cListName := "Lista_TQLS"
  // Objeto de Lista
  Local oTQLS := Nil
  // 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 + " nMsgRetPer: " + AllTrim(Str(oTQLS:nMsgRetPer)))
  EndIf
  // Obtem a mensagem
  nRet := oTQLS:GetMsg( cMsgId1, @cMsg )
  If nRet != 0
    ConOut("### ERRO ### " + "Erro ao receber mensagem" + " Erro: " + AllTrim(Str(nRet)))
    Return .F.
  Else
    ConOut("Recebeu msg Lista OK - " + oTQLS:cName + " com ID: " + cMsgId1 + " Tamanho: " + AllTrim(Str(Len(cMsg))))
  EndIf
Return .T.

Veja também

  • Sem rótulos