topic-28712

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

diferencia entre harbour y xharbour II
Posted: Fri Jun 20, 2014 11:02 PM

Probando encontré un comportamiento desigual con los campos memo

Imagen en harbour

Imagen en xharbour (correcta)

el código es el siguiente

Code (fw): Select all Collapse

      aPedido:observa1 :=  oPmemo1:observa 
      etc etc
 
      REDEFINE GET oGet[ 9 ] VAR aPedido:observa1 MEMO id 109 of odlgped UPDATE

     odlgped:bStart := {|| oGet[ 9 ]:SetSel( 0, 0 ) }

Alguna idea o sugerencia

Gracias

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: diferencia entre harbour y xharbour II
Posted: Sat Jun 21, 2014 05:17 AM

Luis,

Para mi es una diferencia en como xharbour 2 y Harbour 3.2 alamacenan los campos memo.

Si pudieses salvarlos desde tu aplicación con xHarbour 2 a un fichero ascii, por ejemplo, y luego leerlos desde Harbour desde ese fichero externo y volver a guardarlos como memo, de esa manera se corregiría.

Seguro habrá otras formas, pero basicamente consistirían en los mismo (a mi entender), salvarlos a algo que no sea memo, y luego con Harbour leerlos y volver a almacenarlos como memo. Pienso que un fichero ascii podría ser lo más sencillo. Entre registro y registro, sitúa algún caracter (ó caracteres) que te sirvan para delimitar cada uno, incluso podrias anotar el número de registro tambien para luego asegurarte que se leen y se almacenan nuevamente en el orden correcto.

regards, saludos

Antonio Linares
www.fivetechsoft.com

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: diferencia entre harbour y xharbour II
Posted: Sat Jun 21, 2014 10:25 AM

Gracias Antonio los voy a cambiar e informo

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: diferencia entre harbour y xharbour II
Posted: Sat Jun 21, 2014 02:24 PM

Bueno aparentemente se arreglo fácil lo que hice fue

Code (fw): Select all Collapse

aPedido:observa :=  StrTran(oPmemo:observa,"?","")

Espero sirva en mi caso los campos memos es para guardar detalles intrínsecos con la mercadería que se entrega y no hay "?" en estos casos.

Ya había hecho de borrar los "?" manualmente en un pedido y luego guardarlo. Al reabrir el pedido me lo mostraba correctamente. Por eso el intento de utilizar strtran

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: diferencia entre harbour y xharbour II
Posted: Sat Jun 21, 2014 02:41 PM

Me parece que no es una forma de guardar distinto los datos de los compiladores, porque tengo otra bases de datos (guardo separado los memos de la base principal en todos los casos) ejemplo clientes.dbf y datocliente.dbf (codigo,memo), y en ellas estan bien .

¿Es posible que en pedidos dejan espacios vacíos antes de escribir algo y eso se rellene con "?" ?

Luis

surGom

Posts: 652

Joined: Wed Oct 19, 2005 12:03 PM

Re: diferencia entre harbour y xharbour II SOLUCIONADO
Posted: Sat Jun 21, 2014 10:37 PM

SOLUCIONADO pero no entendido por mi, paso a explicarles

Seguí tratando de ver el comportamiento de los campos memos. Trate de abrir los mismos desde dbwide, y me decía que estaban las dbf en cuestión corruptas, el programa las abría. Entonces hice desde el programa que esta en xharbour un copy to

Ejemplo
copy to pedmemo to tempe y luego las renombre

Antes de hacer el copy to
la base dbf vieja y la nueva 297455 bytes
pero
la fpt vieja tenía 6081453 y la nueva 1992053 bytes

indudablemente había problemas en pedmemo.fpt, hice lo mismo con todos los que uso ya que estaban igual.
Ahora el programa hecho en harbour lee bien los campos memo.
En xharbour me leía bien antes y ahora.

¿Es posible que en xharbour los vaya degradando con el uso? Y no nos damos cuenta ya que igual los abre y los lee correctamente cosa que harbour no lo tolera.

Bueno eso escapa a mis conocimientos pero por ahí andaba Garay.

Luis

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: diferencia entre harbour y xharbour II
Posted: Sat Jun 21, 2014 11:58 PM

Luis,

Excelente :-)

Me alegro que lo hayas solucionado. Ya verás como cada vez te sientes más a gusto con Harbour.

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion