__DeleteRmt

__DeleteRmt( < cIdentificador > )

#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