Harbour rdd LetoDb

[Itamar M. Lins Jr.]

Ola!
Só para deixar registrado.
Estou usando o rdd letodb, com relativo sucesso no harbour.
Via ADSL discado, com 300Kbps. 4 lojas, inicialmente apenas enviando os dados da inclusão.
Rotina chamada depois que gravo os arquivo no hd local:

Código: Selecionar todos

*********************************
Function IncluirDados(ArqD,ArqO)
*********************************
*
*
Local a := (ArqD)->(fcount())
Leto_BeginTransaction()
Incluir(ArqD)
//TravaRegistro(ArqD)
For i := 1 to a
  	campo  := field(i)
  	//MSGINFO(CAMPO)
	//If ValType(campo) <> 'M'
  		replace &ArqD->&campo with &ArqO->&campo
	//EndIf
Next
Leto_CommitTransaction()
//Msginfo(hb_valtoexp(leto_mggetinfo()))
Return .t.

Falta algumas coisas ainda no meu código para ficar 100% do meu jeito.
Inclusive eu uso OrdScope().

Saudações,
Itamar M. Lins Jr.

[sygecom]

Realmente os ultimos ajuste do Alexander ficou muito bom, e agora facil de compilar com Harbour com ajuda do hbmk2