FiveTech Software tech support forums

... * Clase TDataRow: * TDataRow class: Los campos de imagen se muestran como imágenes, aunque todavía no se pueden modificar ni guardar. * XBROWSE: - RTE durante la navegación de la consulta PostGre debido a un error en el método SetPostGreCol() corregido. - Si el conjunto de registros está cerrado ...

... index and updates it properly * TDataRow class: Image fields are displayed as images, though they can not be modified and saved yet. * XBROWSE: - RTE while browsing PostGre query due to a bug in method SetPostGreCol() fixed. - If recordset is closed when setting up is setup, it is opened by xbrowse ...

Hi Rao,
It works!
For the life of me I would have never guessed that solution.
Thank you very much!

I remember having experienced the same problem, when I was writing the METHOD ToExcel() of XBrowse. Please see my notes towards the end of ToExcel() method in XBrowse. #ifndef __XHARBOUR__   else      //      SysRefresh()      //      // This requires explanation.      // With xHarbour there...

Thank you

It's just a crude report written in class form as I try to avoid using public,private variable as much as possible
Irregardless, I've emailed it to you.
Thank you

Nice.
Do you mind sharing your class with me?

Hi Rao,
StatPrnXls() is a class in my program that generates a report directly in Excel using OLE.
The last line in StatPrnCls():activate() is return .t. hence my bewilderment when lRetVal contains an array

May I know what is this "StatPrnXls()" ?

May I know what is this "StatPrnXls()" ?

Whether StatPrnXls():activate() returns .t. or .f. lRetVal always ends up with {0, 5813120}

I can't wrap my mind on what's happening. Called class returns a logical value yet lRetVal ends up with an array

You could try this:

instead of
return lRetVal

use
return lRetVal[ 2 ] != 0

Another error I found after compiling with Harbour. Instead of a logical value, lRetVal ends up with an array {0, 5813120}       lRetVal := StatPrnXls():activate(cTitle, cFrom, cTo, dCOD, lPrnZero)      return lRetVal I don't even know where to begin to ...

Thanks Cristobal! That was it

Try with

Code: Select all  Expand view

::oSheet := ::oExcel:ActiveSheet
 ::oSheet:name := "A & T ELEC"