topic-23193

Board index FiveWin para Harbour/xHarbour ayuda con filexls (FIXED)

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

ayuda con filexls (FIXED)
Posted: Fri Dec 30, 2011 04:06 PM

amigo, tengo la clase tfilexls para crear archivos excel
pero la misma esta fallando, modifica la altura a tamaños grandisimos, y no afectando a la fila que se indica,
si no que a varias filas.

en el metodo que permite definir la altura de una fila.
este es el codigo, he investigado el formato biff para excel version 2 pero no es sido capaz de entender algo.

Code (fw): Select all Collapse

METHOD _Row( nRow, nHeight ) CLASS TFileXLS

  DEFAULT nHeight := 12.75

  FWrite( ::hFile, Chr( 08 ) + Chr( 00 ), 2 )
  FWrite( ::hFile, Chr( 16 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, I2Bin( nRow - 1 ), 2 )

  FWrite( ::hFile, I2Bin( 00 ), 2 )
  FWrite( ::hFile, I2Bin( 00 ), 2 )

  FWrite( ::hFile, I2Bin( nHeight * 20 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ), 1 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ) + Chr( 00 ), 3 )

return nil

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: ayuda con filexls (FIXED)
Posted: Fri Dec 30, 2011 04:15 PM

Code (fw): Select all Collapse

METHOD _Row( nRow, nHeight ) CLASS TFileXLS

  DEFAULT nHeight := 12.75

  FWrite( ::hFile, Chr( 08 ) + Chr( 00 ), 2 )
  FWrite( ::hFile, Chr( 16 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( nRow - 1 ), 2 )    //FWrite( ::hFile, I2Bin( nRow - 1 ), 2 )

  FWrite( ::hFile, I2Bin( 00 ), 2 )
  FWrite( ::hFile, I2Bin( 00 ), 2 )

  FWrite( ::hFile, I2Bin( nHeight * 20 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ), 1 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ) + Chr( 00 ), 3 )

return nil

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

carlos vargas

Posts: 1789

Joined: Tue Oct 11, 2005 05:01 PM

Re: ayuda con filexls (FIXED)
Posted: Sat Dec 31, 2011 06:04 AM

pues nop, no funciono el cambio anterior.

el definir el alto de una fila no funciona bien a menos que se agrege antes del final
NOGRIDLINES

Code (fw): Select all Collapse

       XLS ROW 1 HEIGHT 20 OF oFileXLS
       ....
       SET XLS TO DISPLAY NOGRIDLINES OF oFileXLS
   ENDXLS oFileXLS

el metodo se deja a como estaba antes.

Code (fw): Select all Collapse

METHOD _Row( nRow, nHeight ) CLASS TFileXLS

  DEFAULT nHeight := 12.75

  FWrite( ::hFile, Chr( 08 ) + Chr( 00 ), 2 )
  FWrite( ::hFile, Chr( 16 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, I2Bin( nRow - 1 ), 2 )

  FWrite( ::hFile, I2Bin( 00 ), 2 )
  FWrite( ::hFile, I2Bin( 00 ), 2 )

  FWrite( ::hFile, I2Bin( nHeight * 20 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ), 1 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ), 2 )

  FWrite( ::hFile, Chr( 00 ) + Chr( 00 ) + Chr( 00 ), 3 )

return nil

Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)

FiveTech Support Forums

Continue the discussion