topic-29763

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

Problem with MyRpt
Posted: Fri Dec 05, 2014 09:14 AM

I use MyRpt on a Application and open the designer from a a dialog
If the end user close the X of the main window of MyRpt ( and return on this dialog) it make an error:

the error

Code (fw): Select all Collapse

Application
===========
   Path and name: C:\Documents and Settings\Administrator\Desktop\test_myRpt\Modelli\test.Exe (32 bits)
   Size: 2,988,032 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20140725)
   FiveWin  Version: FWHX 14.09
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 36 secs 
   Error occurred at: 12/05/14, 10:08:25
   Error description: Error BASE/1004  Class: 'NIL' has no exported method: HFONT
   Args:
     [   1] = U   

Stack Calls
===========
   Called from:  => HFONT( 0 )
   Called from: .\source\classes\TMSGITEM.PRG => TMSGITEM:PAINT( 261 )
   Called from: source.lib\lib\myrpt.prg => MYRPT:MSG( 614 )
   Called from: source.lib\lib\myrpt.prg => (b)MYRPT:ACTIVATE( 179 )
   Called from: .\source\classes\TIMER.PRG => TIMEREVENT( 73 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 644 )
   Called from:  => TDIALOG:TIMER( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => HFONT( 0 )
   Called from: .\source\classes\TMSGITEM.PRG => TMSGITEM:PAINT( 261 )
   Called from: source.lib\lib\myrpt.prg => MYRPT:MSG( 614 )
   Called from: source.lib\lib\myrpt.prg => (b)MYRPT:ACTIVATE( 179 )
   Called from: .\source\classes\TIMER.PRG => TIMEREVENT( 73 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 644 )
   Called from:  => TDIALOG:TIMER( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => HFONT( 0 )
   Called from: .\source\classes\TMSGITEM.PRG => TMSGITEM:PAINT( 261 )
   Called from: source.lib\lib\myrpt.prg => MYRPT:MSG( 614 )
   Called from: source.lib\lib\myrpt.prg => (b)MYRPT:ACTIVATE( 179 )
   Called from: .\source\classes\TIMER.PRG => TIMEREVENT( 73 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 644 )
   Called from:  => TDIALOG:TIMER( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => HFONT( 0 )
   Called from: .\source\classes\TMSGITEM.PRG => TMSGITEM:PAINT( 261 )
   Called from: source.lib\lib\myrpt.prg => MYRPT:MSG( 614 )
   Called from: source.lib\lib\myrpt.prg => (b)MYRPT:ACTIVATE( 179 )
   Called from: .\source\classes\TIMER.PRG => TIMEREVENT( 73 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 644 )
   Called from:  => TDIALOG:TIMER( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: .\source\function\ERRSYSW.PRG => ERRORDIALOG( 420 )
   Called from: .\source\function\ERRSYSW.PRG => (b)ERRORSYS( 23 )
   Called from:  => HFONT( 0 )
   Called from: .\source\classes\TMSGITEM.PRG => TMSGITEM:PAINT( 261 )
   Called from: source.lib\lib\myrpt.prg => MYRPT:MSG( 614 )
   Called from: source.lib\lib\myrpt.prg => (b)MYRPT:ACTIVATE( 179 )
   Called from: .\source\classes\TIMER.PRG => TIMEREVENT( 73 )
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW:TWINDOW( 644 )
   Called from:  => TDIALOG:TIMER( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
   Called from: source\test.prg => MODELLI( 102 )

I think The procedure closed the designer and save on ini file the report , on method save of MyRpt it want show a message on msgbar of windows main of MyRpt
and it make error because not found HFONT.

This error not gone out if the designer is a exe alone, when the designer is used from another application give error.

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion