Histórico da Página

//-----------------------------------

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