__ListRmt

__ListRmt()

#include "TOTVS.CH"
//-----------------------------------
USER FUNCTION tstTransf()
  // Envia dados para o Protheus Remote
  tstSendData()
  // Recupera dados do Protheus Remote
  tstRcvData()
RETURN
//-----------------------------------
STATIC FUNCTION tstSendData()
  Local var1:= "var1"
  Local var2:= 2
  Local var3:= .T.
  // Cria listas de conteúdo de variáveis na memória do Protheus Remote
  __SaveRmt("myId1",var1,var2,var3)
  __SaveRmt("myId2",var1,var2,var3)
  __SaveRmt("myId3",var1,var2,var3)
  __SaveRmt("myId4",var1,var2,var3)
RETURN
//-----------------------------------
STATIC FUNCTION tstRcvData()
  Local var1:= NIL
  Local var2:= NIL
  Local var3:= NIL
  Local var4:= NIL
  // Obtém lista das listas de contéudo armazenadas no Protheus Remote
  Local aList:= __ListRmt()
  Local i
  For i:=1 to Len(aList)
    QOUT(aList[i])
    // Busca lista de conteúdo de variáveis na memória do Protheus Remote
    __LoadRmt(aList[i],<at:var at:name="var1," />var2,<at:var at:name="var3," />var4)
    QOUT( var1, var2, var3, var4 )
  Next i
  // Excluir a lista "myId1" da lista de memória do Protheus Remote
  __DeleteRmt("myId1")
  // Busca lista de conteúdo de variáveis na memória do Protheus Remote
  aList:= __ListRmt()
  For i:=1 to Len(aList)
    QOUT(aList[i])
    // Busca lista de conteúdo de variáveis na memória do Protheus Remote
    __LoadRmt(aList[i],<at:var at:name="var1," />var2,<at:var at:name="var3," />var4)
    QOUT( var1, var2, var3, var4 )
  Next i
  // Limpa todas as listas armazenadas no Protheus Remote
  __ClearRmt()
  // Obtém lista das listas de contéudo armazenadas no Protheus Remote
  aList:= __ListRmt()
  QOUT( Len(aList) )
RETURN