Harbour rdd LetoDb
Enviado: 30 Mai 2009 17:31
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:
Falta algumas coisas ainda no meu código para ficar 100% do meu jeito.
Inclusive eu uso OrdScope().
Saudações,
Itamar M. Lins Jr.
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.
Inclusive eu uso OrdScope().
Saudações,
Itamar M. Lins Jr.