2008-07-25 18:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)

* source/rtl/treport.prg
     ! Fixed RTE by removing some type constraints from object vars 
       which get NILs assigned. Thanks to Ciro Vargas Clemow.

harbour/ChangeLog

@@ -8,6 +8,11 @@
    2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2008-07-25 18:46 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
+   * source/rtl/treport.prg
+     ! Fixed RTE by removing some type constraints from object vars 
+       which get NILs assigned. Thanks to Ciro Vargas Clemow.
+
 2008-07-25 15:24 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/contrib/xhb/Makefile
   * harbour/contrib/xhb/common.mak

harbour/source/rtl/treport.prg

@@ -152,14 +152,14 @@
 
 CREATE CLASS HBReportForm
 
-   VAR aReportData    AS ARRAY   INIT {}
-   VAR aReportTotals  AS ARRAY   INIT {}
-   VAR aGroupTotals   AS ARRAY   INIT {}
-   VAR nPageNumber    AS NUMERIC
-   VAR nLinesLeft     AS NUMERIC
-   VAR lFirstPass     AS LOGICAL
-   VAR lFormFeeds     AS LOGICAL
-   VAR nMaxLinesAvail AS NUMERIC
+   VAR aReportData    INIT {}
+   VAR aReportTotals  INIT {}
+   VAR aGroupTotals   INIT {}
+   VAR nPageNumber
+   VAR nLinesLeft
+   VAR lFirstPass
+   VAR lFormFeeds
+   VAR nMaxLinesAvail
    VAR cExprBuff      AS STRING
    VAR cOffsetsBuff   AS STRING
    VAR cLengthsBuff   AS STRING
@@ -414,13 +414,13 @@ METHOD New( cFrmName, lPrinter, cAltFile, lNoConsole, bFor, bWhile, nNext, nReco
 
 
    // Clean up and leave
-   ::aReportData   := NIL          // Recover the space
+   ::aReportData    := NIL          // Recover the space
    ::aReportTotals  := NIL
    ::aGroupTotals   := NIL
-   ::nPageNumber   := NIL
-   ::lFirstPass    := NIL
-   ::nLinesLeft    := NIL
-   ::lFormFeeds    := NIL
+   ::nPageNumber    := NIL
+   ::lFirstPass     := NIL
+   ::nLinesLeft     := NIL
+   ::lFormFeeds     := NIL
    ::nMaxLinesAvail := NIL
 
    // clean up