reporte con txtprev deja una linea en blanco

[artu01]

Amigos actualice de la version fw5 , harbour compiler alpha build 45.0 a fwh8.11 al xharbour compiler 1.1.0
y todo el programa funciona igual a excepcion de mis reportes que estan hecho con la clase txtprev
Deja un interlineado en cada linea de impresión


Adjunto un ejemplo de reporte (bueno queria pegar dos fotos pero no pude)

Antes
xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx
xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx
xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx
----- -------------- ---------------------------
xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx



Despues ( actualizado a la fwh8.11 al xharbour compiler 1.1.0)

xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx
--------> (Deja un espacio en blanco en cada linea de impresión
xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx

xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxxx

----- ------------- ----------------------------

xxxx xxxxxxxxx xxxxxxxxxxxxxxxxxxx


No se que debo de modificar para arreglar este problema

Gracias x su ayuda

[Patricio Avalos Aguirre]

Hola

El problema se produjo en una version de FWH en la clase TTxtFile() que colocaba automaticamante un salto linea CRLF
luego en posteriores versiones se corrigio

revisa la clase, en el METHOD BuildDbfTmp() donde dice patricio por ahi debes revisar

Code: Select all  Expand view

METHOD BuildDbfTmp() CLASS TTxtPreview
..
..
  ACTIVATE DIALOG oDlg CENTER NOWAIT

   CursorWait()
   SysRefresh()

   nPag= 0
   cTxt= ""
   lFim= .F.

   DO WHILE .T.

      cLine = oFile:cLine + CRLF //version 9.4
      cTxt += cLine //+ Space(5) // +CRLF  ==>Patricio se cambio ya que con la version 9.3 no funciona

      oFile:Skip(1)
 

[artu01]

Gracias Patricio ese era mi problema un millon de gracias