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