Consejos sobre el uso de las clases TImprime y TUtilPrn

Post Reply
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Estimados todos

He usado previamente con éxito las clases TImprime + TUtilPrn de The Full, pero ahora al cambiarme a la nueva versión de FHW2210 con xHarbour, empiezo a tener problemas que antes no tenía, he intentado de todo, pero me empiezan a aparecer errores que antes no tenía.

Por ello, les quería consultar detalles de este caso, si han tenido problemas o errores como estos:

Stack Calls
===========
Called from: => ABS( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => ROUNDRECT( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => TUTILPRN:BOX( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => TUTILPRN:BOXMSG( 0 )

En otro error, no me carga las imágenes (), parece que se leyera bien la FREEIMAGE.DLL, aunque está bien referenciado.

Stack Calls
===========
Called from: .\source\classes\IMAGE.PRG => LOADFREEIMAGE( 505 )
Called from: .\source\classes\IMAGE.PRG => FILOADIMG( 325 )
Called from: .\source\classes\IMAGE.PRG => TIMAGE:DEFINE( 95 )
Called from: c:\sicef_desarrollo\bin\Utilprn.prg => TUTILPRN:SAYIMAGE( 0 )


Además, me gustaría conocer: ¿si tienen sugerencias, experiencias para resolver estos problemas, hay alguna versión más nueva de esta clase (uso la versión 4.0 de TUtilPrn) o existe otra clase que se pueda usar, similar a la TImprime+TUtilPrn?

Saludos

Fernando Espinoza A.
Top
User avatar
Antonio Linares
Site Admin
Posts: 42270
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by Antonio Linares »

Estimado Fernando,

Por favor vuelve a descargar FWH.exe

Había un bug en dll.ch cuando se usa xHarbour. Ya está corregido y esos errores deben desaparecer :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Estimado Antonio:

Entre semana, ya me actualicé al Build 2 de FWH2210, se resolvieron la gran mayoría de problemas, pero mantengo el problema con las dos clases Timprime y TUtil Prn.

Saludos

Fernando Espinoza A.
Top
User avatar
Antonio Linares
Site Admin
Posts: 42270
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by Antonio Linares »

Estimado Fernando,

Este error no debería aparecerte ya:
Stack Calls
===========
Called from: => ABS( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => ROUNDRECT( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => TUTILPRN:BOX( 0 )
Called from: c:\pruebas\mundial_2018\bin\Utilprn.prg => TUTILPRN:BOXMSG( 0 )

Y que error es el que te da aqui ?
Stack Calls
===========
Called from: .\source\classes\IMAGE.PRG => LOADFREEIMAGE( 505 )
Called from: .\source\classes\IMAGE.PRG => FILOADIMG( 325 )
Called from: .\source\classes\IMAGE.PRG => TIMAGE:DEFINE( 95 )
Called from: c:\sicef_desarrollo\bin\Utilprn.prg => TUTILPRN:SAYIMAGE( 0 )
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Estimado Antonio:

Efectivamente, el primer error, ya no se da, el segundo se presenta cuando intento insertar una imagen en el reporte, entiendo que la clase TUtilPrn usa FreeImage.dll (copie la última versión desde FHW2210).

Hice una revisión minuciosa y el error se genera como indique, al intentar insertar una imagen con formato .png o .jgp que se carga con el metodo SayImage de TUtilPrn.

Este el mensaje de error:

Stack Calls
===========
Called from: .\source\classes\IMAGE.PRG => LOADFREEIMAGE( 505 )
Called from: .\source\classes\IMAGE.PRG => FILOADIMG( 325 )
Called from: .\source\classes\IMAGE.PRG => TIMAGE:DEFINE( 95 )
Called from: c:\sicef_desarrollo\bin\Utilprn.prg => TUTILPRN:SAYIMAGE( 0 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:LINEAS( 0 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:NEW( 0 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)PREPARAREP( 0 )
Called from: .\source\function\MSGRUN.PRG => (b)MSGRUN( 47 )
Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 97 )
Called from: => TDIALOG:DISPLAY( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1200 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
Called from: .\source\function\MSGRUN.PRG => MSGRUN( 54 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => PREPARAREP( 0 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)INICIO( 0 )
Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1810 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1073 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3689 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1114 )
Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => INICIO( 0 )

Este el método SayImage

METHOD SayImage( nArriba,nIzq,nAncho,nAlto,xImage,lImage,lPage,nRaster ) CLASS TUtilPrn
Local xCor := {},yCor := {},yyCor := {}

local hDib, hPal, hBmp

DEFAULT lImage := .F. ,;
lPage := .F. ,;
nArriba := 0.5,;
nIzq := 0.5 ,; // medio cm. para margenes de PAGE
nAncho := 0,;
nAlto := 0

if nAncho <= 0
nAncho := 5
endif
if nAlto <= 0
nAlto := 5
endif

xCor := ::oPrinter:Cmtr2Pix( nArriba,nIzq )
yCor := ::oPrinter:Cmtr2Pix( nAncho,nAlto )

IF lPage
yCor[1] := ::oPrinter:nHorzRes() - xCor[2]*2 // Restando lo mismo cms para margenes
yCor[2] := ::oPrinter:nVertRes() - xCor[1]*2
// ?yCor[2],::oPrinter:nVertRes() ,xCor[1] // Depuracion
ENDIF

IF lImage

* se for jpg

xBmp := timage():define( , ximage ,::oPrinter )

::oPrinter:SayImage( xCor[1],xCor[2], xbmp , yCor[1] ,yCor[2],nRaster )

DeleteObject( xBmp )

ELSE

* se for BMP

::oPrinter:SayBitmap(xCor[1],xCor[2],xImage, yCor[1],yCor[2],nRaster )

ENDIF

RETURN NIL

Saludos

Fernando Espinoza A.
Top
User avatar
Antonio Linares
Site Admin
Posts: 42270
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by Antonio Linares »

Estimado Fernando,

Esa es la pila de llamadas (calls stack), lo que necesitamos es el error.log completo para saber cual es la descripción del error
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Estimado Antonio;

Perdón la demora, este el contenido completo del error.log

Code: Select all | Expand

Application
===========
   Path and name: C:\SICEF_DESARROLLO\SICEFWIN.exe (32 bits)
   Size: 5,752,832 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
   FiveWin  version: FWH 22.10
   C compiler version: Borland/Embarcadero C++ 7.4 (32-bit)
   Windows 10 64 Bits, version: 10.0, Build 22621 

   Time from start: 0 hours 0 mins 42 secs 
   Error occurred at: 13/11/2022, 17:31:26
   Error description: Error BASE/1074  Error de argumento: <=
   Args:
     [   1] = P   0x7740000
     [   2] = N   32

Stack Calls
===========
   Called from: .\source\classes\IMAGE.PRG => LOADFREEIMAGE( 505 )
   Called from: .\source\classes\IMAGE.PRG => FILOADIMG( 325 )
   Called from: .\source\classes\IMAGE.PRG => TIMAGE:DEFINE( 95 )
   Called from: c:\sicef_desarrollo\bin\Utilprn.prg => TUTILPRN:SAYIMAGE( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:LINEAS( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:NEW( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)PREPARAREP( 0 )
   Called from: .\source\function\MSGRUN.PRG => (b)MSGRUN( 47 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 97 )
   Called from:  => TDIALOG:DISPLAY( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1200 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: .\source\function\MSGRUN.PRG => MSGRUN( 54 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => PREPARAREP( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)INICIO( 0 )
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1810 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1073 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3689 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1114 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => INICIO( 0 )

System
======
   CPU type: Intel(R) Core(TM) i7-8550U CPU @ 1.80GHz 1992 Mhz
   Hardware memory: 8026 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 6
      1 , C:\SICEF_DESARROLLO\SICEFWIN.exe                                                                    
      2 , C:\WINDOWS\System32\shcore.dll                                                                      
      3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.22621.317_none_f0f07d5 
      4 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL                                                                       
      5 GDI+ Window (SICEFWIN.exe), C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.22621.521_none_21d572303020a50 
      6 GDI+ Window (TabTip.exe),                                                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   LOADFREEIMAGE
     Param   1:    C    "freeimage.dll"
     Local   1:    P    0x7740000
     Local   2:    N    32
     Local   3:    U    
     Local   4:    U    
   FILOADIMG
     Param   1:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   2:    U    
     Param   3:    C    "freeimage.dll"
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
   TIMAGE:DEFINE
     Param   1:    U    
     Param   2:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   3:    O    Class: TPRINTER
     Local   1:    O    Class: TIMAGE
     Local   2:    U    
     Local   3:    U    
     Local   4:    O    Class: TIMAGE
   TUTILPRN:SAYIMAGE
     Param   1:    N    2.40
     Param   2:    N    1.00
     Param   3:    N    1.5
     Param   4:    N    1.5
     Param   5:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   6:    L    .T.
     Param   7:    L    .F.
     Param   8:    U    
     Local   1:    O    Class: TUTILPRN
     Local   2:    A    Len:    2
     Local   3:    A    Len:    2
     Local   4:    A    Len:    0
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
   TREPORTEFECHA:LINEAS
     Param   1:    N    14
     Param   2:    N    2022
     Local   1:    O    Class: TREPORTEFECHA
     Local   2:    O    Class: TFONT
     Local   3:    N    8
     Local   4:    N    3
     Local   5:    N    0
     Local   6:    N    3
     Local   7:    C    "CUMBAYFC"
     Local   8:    C    ""
     Local   9:    C    "28.11 años"
     Local  10:    N    3
     Local  11:    L    .T.
   TREPORTEFECHA:NEW
     Param   1:    N    14
     Param   2:    N    2022
     Local   1:    O    Class: TREPORTEFECHA
   (b)PREPARAREP
     Param   1:    O    Class: TDIALOG
   (b)MSGRUN
     Param   1:    U    
   (b)TDIALOG:TDIALOG
     Param   1:    O    Class: TDIALOG
   TDIALOG:DISPLAY
   TDIALOG:HANDLEEVENT
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    O    Class: TDIALOG
   DIALOGBOXINDIRECT
     Param   1:    N    4194304
     Param   2:    C    "€           c      P o r   f a v o r ,   e s p e r e   . . .   "
     Param   3:    N    1576164
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    O    Class: TDIALOG
     Local   2:    N    1576164
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   MSGRUN
     Param   1:    C    "Creando reporte"
     Param   2:    C    "Por favor, espere ..."
     Param   3:    B    {|| ... }
     Local   1:    U    
     Local   2:    U    
     Local   3:    O    Class: TDIALOG
     Local   4:    N    197
     Local   5:    U    
     Local   6:    L    .F.
   PREPARAREP
     Local   1:    N    2022
     Local   2:    N    21
   (b)INICIO
     Param   1:    O    Class: TMENUITEM
   TMENU:ACTIVATE
     Param   1:    N    54
     Param   2:    N    611
     Param   3:    O    Class: TBAR
     Param   4:    L    .F.
     Local   1:    N    0
     Local   2:    O    Class: TMENU
     Local   3:    A    Len:    2
   TBTNBMP:LBUTTONUP
     Param   1:    N    31
     Param   2:    N    63
     Param   3:    O    Class: TBTNBMP
     Local   1:    O    Class: TBAR
     Local   2:    L    .T.
     Local   3:    N    0
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2031679
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2031679
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    2031679
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    2031679
     Param   5:    N    15
     Local   1:    O    Class: TBTNBMP
   WINRUN
     Param   1:    N    1576164
   TWINDOW:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    B    {|| ... }
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   INICIO
     Local   1:    O    Class: TBRUSH
     Local   2:    O    Class: TXIMAGE
     Local   3:    O    Class: TCURSOR
     Local   4:    O    Class: TCURSOR
     Local   5:    O    Class: TPEN
     Local   6:    U    
     Local   7:    O    Class: TMENU
     Local   8:    O    Class: TMENU
     Local   9:    O    Class: TMENU
     Local  10:    O    Class: TMENU
     Local  11:    O    Class: TSAY
     Local  12:    N    0
     Local  13:    C    ""
     Local  14:    O    Class: TFONT
     Local  15:    O    Class: TFONT
     Local  16:    O    Class: TFONT
     Local  17:    O    Class: TFONT
     Local  18:    O    Class: TFONT
     Local  19:    O    Class: TFONT
     Local  20:    N    0
     Local  21:    N    0
     Local  22:    O    Class: TURLLINK
     Local  23:    L    .T.
     Local  24:    U    
     Local  25:    A    Len:    4
     Local  26:    C    "      "
     Local  27:    O    Class: TBTNFLAT
     Local  28:    O    Class: TWSAYTIMER
     Local  29:    A    Len:    7
     Local  30:    N    0
     Local  31:    D    13/11/2022
     Local  32:    C    "17:30:44"
     Local  33:    U    
     Local  34:    U    
     Local  35:    U    
     Local  36:    N    0
     Local  37:    N    2022
     Local  38:    N    2022
     Local  39:    N    0
     Local  40:    O    Class: TOLEAUTO
     Local  41:    L    .F.
     Local  42:    O    Class: TSWITCH
     Local  43:    L    .F.
     Local  44:    C    "23-Oct-2022"
     Local  45:    A    Len:    8
     Local  46:    N    6

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1: => RESULT3                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            8      .F.   .F.

     Indexes in use                        TagName

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 TOLEAUTO
     5 HBOBJECT
     6 TAPPLICATION
     7 TAPLICACION
     8 TWINDOW
     9 TCONTROL
    10 TICON
    11 TBRUSH
    12 TGET
    13 TDIALOG
    14 TXIMAGE
    15 TSAY
    16 TCOMBOBOX
    17 GET
    18 TCLIPGET
    19 TBUTTON
    20 TBUTTONBMP
    21 TFONT
    22 TCLIPBOARD
    23 TTIMER
    24 TRECT
    25 TREG32
    26 TMENU
    27 TMENUITEM
    28 TPEN
    29 TCURSOR
    30 TACCTABLE
    31 TMRU
    32 TINI
    33 TMSGBAR
    34 TMSGITEM
    35 TBAR
    36 TBTNBMP
    37 TBITMAP
    38 TURLLINK
    39 TBTNFLAT
    40 TWSAYTIMER
    41 TSWITCH
    42 TXBROWSE
    43 TXBRWCOLUMN
    44 TSCROLLBAR
    45 TMULTIGET
    46 TIMPRIME
    47 TREPORTEFECHA
    48 TPRINTER
    49 TUTILPRN
    50 TIMAGE
    51 TSTRUCT

Memory Analysis
===============
      928 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes
Saludos

Fernando Espinoza A.
Top
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Estimado Antonio;

Perdón la demora, este el contenido completo del error.log

Code: Select all | Expand

Application
===========
   Path and name: C:\SICEF_DESARROLLO\SICEFWIN.exe (32 bits)
   Size: 5,752,832 bytes
   Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
   FiveWin  version: FWH 22.10
   C compiler version: Borland/Embarcadero C++ 7.4 (32-bit)
   Windows 10 64 Bits, version: 10.0, Build 22621 

   Time from start: 0 hours 0 mins 42 secs 
   Error occurred at: 13/11/2022, 17:31:26
   Error description: Error BASE/1074  Error de argumento: <=
   Args:
     [   1] = P   0x7740000
     [   2] = N   32

Stack Calls
===========
   Called from: .\source\classes\IMAGE.PRG => LOADFREEIMAGE( 505 )
   Called from: .\source\classes\IMAGE.PRG => FILOADIMG( 325 )
   Called from: .\source\classes\IMAGE.PRG => TIMAGE:DEFINE( 95 )
   Called from: c:\sicef_desarrollo\bin\Utilprn.prg => TUTILPRN:SAYIMAGE( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:LINEAS( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => TREPORTEFECHA:NEW( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)PREPARAREP( 0 )
   Called from: .\source\function\MSGRUN.PRG => (b)MSGRUN( 47 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 97 )
   Called from:  => TDIALOG:DISPLAY( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1200 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 307 )
   Called from: .\source\function\MSGRUN.PRG => MSGRUN( 54 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => PREPARAREP( 0 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => (b)INICIO( 0 )
   Called from: .\source\classes\MENU.PRG => TMENU:ACTIVATE( 1810 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 1073 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1847 )
   Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2135 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3689 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1114 )
   Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => INICIO( 0 )

System
======
   CPU type: Intel(R) Core(TM) i7-8550U CPU @ 1.80GHz 1992 Mhz
   Hardware memory: 8026 megs

   Free System resources: 90 %
        GDI    resources: 90 %
        User   resources: 90 %

   Windows total applications running: 6
      1 , C:\SICEF_DESARROLLO\SICEFWIN.exe                                                                    
      2 , C:\WINDOWS\System32\shcore.dll                                                                      
      3 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.22621.317_none_f0f07d5 
      4 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL                                                                       
      5 GDI+ Window (SICEFWIN.exe), C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.22621.521_none_21d572303020a50 
      6 GDI+ Window (TabTip.exe),                                                                                                     

Variables in use
================
   Procedure     Type   Value
   ==========================
   LOADFREEIMAGE
     Param   1:    C    "freeimage.dll"
     Local   1:    P    0x7740000
     Local   2:    N    32
     Local   3:    U    
     Local   4:    U    
   FILOADIMG
     Param   1:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   2:    U    
     Param   3:    C    "freeimage.dll"
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
   TIMAGE:DEFINE
     Param   1:    U    
     Param   2:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   3:    O    Class: TPRINTER
     Local   1:    O    Class: TIMAGE
     Local   2:    U    
     Local   3:    U    
     Local   4:    O    Class: TIMAGE
   TUTILPRN:SAYIMAGE
     Param   1:    N    2.40
     Param   2:    N    1.00
     Param   3:    N    1.5
     Param   4:    N    1.5
     Param   5:    C    "C:\SICEF_DESARROLLO\BITMAPS\CUMBAYFC.PNG"
     Param   6:    L    .T.
     Param   7:    L    .F.
     Param   8:    U    
     Local   1:    O    Class: TUTILPRN
     Local   2:    A    Len:    2
     Local   3:    A    Len:    2
     Local   4:    A    Len:    0
     Local   5:    U    
     Local   6:    U    
     Local   7:    U    
   TREPORTEFECHA:LINEAS
     Param   1:    N    14
     Param   2:    N    2022
     Local   1:    O    Class: TREPORTEFECHA
     Local   2:    O    Class: TFONT
     Local   3:    N    8
     Local   4:    N    3
     Local   5:    N    0
     Local   6:    N    3
     Local   7:    C    "CUMBAYFC"
     Local   8:    C    ""
     Local   9:    C    "28.11 años"
     Local  10:    N    3
     Local  11:    L    .T.
   TREPORTEFECHA:NEW
     Param   1:    N    14
     Param   2:    N    2022
     Local   1:    O    Class: TREPORTEFECHA
   (b)PREPARAREP
     Param   1:    O    Class: TDIALOG
   (b)MSGRUN
     Param   1:    U    
   (b)TDIALOG:TDIALOG
     Param   1:    O    Class: TDIALOG
   TDIALOG:DISPLAY
   TDIALOG:HANDLEEVENT
     Param   1:    N    15
     Param   2:    N    0
     Param   3:    N    0
     Local   1:    O    Class: TDIALOG
   DIALOGBOXINDIRECT
     Param   1:    N    4194304
     Param   2:    C    "€           c      P o r   f a v o r ,   e s p e r e   . . .   "
     Param   3:    N    1576164
     Param   4:    O    Class: TDIALOG
   TDIALOG:ACTIVATE
     Param   1:    U    
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    L    .F.
     Param   5:    U    
     Param   6:    L    .T.
     Param   7:    B    {|| ... }
     Param   8:    U    
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    L    .F.
     Param  13:    O    Class: TDIALOG
     Param  14:    U    
     Local   1:    O    Class: TDIALOG
     Local   2:    N    1576164
     Local   3:    U    
     Local   4:    U    
     Local   5:    U    
     Local   6:    O    Class: TDIALOG
   MSGRUN
     Param   1:    C    "Creando reporte"
     Param   2:    C    "Por favor, espere ..."
     Param   3:    B    {|| ... }
     Local   1:    U    
     Local   2:    U    
     Local   3:    O    Class: TDIALOG
     Local   4:    N    197
     Local   5:    U    
     Local   6:    L    .F.
   PREPARAREP
     Local   1:    N    2022
     Local   2:    N    21
   (b)INICIO
     Param   1:    O    Class: TMENUITEM
   TMENU:ACTIVATE
     Param   1:    N    54
     Param   2:    N    611
     Param   3:    O    Class: TBAR
     Param   4:    L    .F.
     Local   1:    N    0
     Local   2:    O    Class: TMENU
     Local   3:    A    Len:    2
   TBTNBMP:LBUTTONUP
     Param   1:    N    31
     Param   2:    N    63
     Param   3:    O    Class: TBTNBMP
     Local   1:    O    Class: TBAR
     Local   2:    L    .T.
     Local   3:    N    0
   TCONTROL:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2031679
     Local   1:    O    Class: TBTNBMP
     Local   2:    U    
   TBTNBMP:HANDLEEVENT
     Param   1:    N    514
     Param   2:    N    0
     Param   3:    N    2031679
     Local   1:    O    Class: TBTNBMP
   _FWH
     Param   1:    N    2031679
     Param   2:    N    514
     Param   3:    N    0
     Param   4:    N    2031679
     Param   5:    N    15
     Local   1:    O    Class: TBTNBMP
   WINRUN
     Param   1:    N    1576164
   TWINDOW:ACTIVATE
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    B    {|| ... }
     Param   4:    U    
     Param   5:    U    
     Param   6:    B    {|| ... }
     Param   7:    B    {|| ... }
     Param   8:    B    {|| ... }
     Param   9:    U    
     Param  10:    U    
     Param  11:    U    
     Param  12:    U    
     Param  13:    U    
     Param  14:    U    
     Param  15:    U    
     Param  16:    U    
     Param  17:    B    {|| ... }
     Param  18:    U    
     Param  19:    U    
     Param  20:    L    .F.
     Local   1:    O    Class: TWINDOW
     Local   2:    U    
     Local   3:    U    
   INICIO
     Local   1:    O    Class: TBRUSH
     Local   2:    O    Class: TXIMAGE
     Local   3:    O    Class: TCURSOR
     Local   4:    O    Class: TCURSOR
     Local   5:    O    Class: TPEN
     Local   6:    U    
     Local   7:    O    Class: TMENU
     Local   8:    O    Class: TMENU
     Local   9:    O    Class: TMENU
     Local  10:    O    Class: TMENU
     Local  11:    O    Class: TSAY
     Local  12:    N    0
     Local  13:    C    ""
     Local  14:    O    Class: TFONT
     Local  15:    O    Class: TFONT
     Local  16:    O    Class: TFONT
     Local  17:    O    Class: TFONT
     Local  18:    O    Class: TFONT
     Local  19:    O    Class: TFONT
     Local  20:    N    0
     Local  21:    N    0
     Local  22:    O    Class: TURLLINK
     Local  23:    L    .T.
     Local  24:    U    
     Local  25:    A    Len:    4
     Local  26:    C    "      "
     Local  27:    O    Class: TBTNFLAT
     Local  28:    O    Class: TWSAYTIMER
     Local  29:    A    Len:    7
     Local  30:    N    0
     Local  31:    D    13/11/2022
     Local  32:    C    "17:30:44"
     Local  33:    U    
     Local  34:    U    
     Local  35:    U    
     Local  36:    N    0
     Local  37:    N    2022
     Local  38:    N    2022
     Local  39:    N    0
     Local  40:    O    Class: TOLEAUTO
     Local  41:    L    .F.
     Local  42:    O    Class: TSWITCH
     Local  43:    L    .F.
     Local  44:    C    "23-Oct-2022"
     Local  45:    A    Len:    8
     Local  46:    N    6

Linked RDDs
===========
   DBF
   DBFFPT
   DBFBLOB
   DBFCDX
   DBFNTX

DataBases in use
================

  1: => RESULT3                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1            8      .F.   .F.

     Indexes in use                        TagName

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HASHENTRY
     3 HBCLASS
     4 TOLEAUTO
     5 HBOBJECT
     6 TAPPLICATION
     7 TAPLICACION
     8 TWINDOW
     9 TCONTROL
    10 TICON
    11 TBRUSH
    12 TGET
    13 TDIALOG
    14 TXIMAGE
    15 TSAY
    16 TCOMBOBOX
    17 GET
    18 TCLIPGET
    19 TBUTTON
    20 TBUTTONBMP
    21 TFONT
    22 TCLIPBOARD
    23 TTIMER
    24 TRECT
    25 TREG32
    26 TMENU
    27 TMENUITEM
    28 TPEN
    29 TCURSOR
    30 TACCTABLE
    31 TMRU
    32 TINI
    33 TMSGBAR
    34 TMSGITEM
    35 TBAR
    36 TBTNBMP
    37 TBITMAP
    38 TURLLINK
    39 TBTNFLAT
    40 TWSAYTIMER
    41 TSWITCH
    42 TXBROWSE
    43 TXBRWCOLUMN
    44 TSCROLLBAR
    45 TMULTIGET
    46 TIMPRIME
    47 TREPORTEFECHA
    48 TPRINTER
    49 TUTILPRN
    50 TIMAGE
    51 TSTRUCT

Memory Analysis
===============
      928 Static variables

   Dynamic memory consume:
      Actual  Value:          0 bytes
      Highest Value:          0 bytes
Saludos

Fernando Espinoza A.
Top
User avatar
Antonio Linares
Site Admin
Posts: 42270
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by Antonio Linares »

Estimado Fernando,

Solucionado, por favor vuelve a descargar FWH.exe y ya debería desaparecer ese error

muchas gracias
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
nanoespinoza
Posts: 141
Joined: Thu Mar 16, 2017 4:08 pm
Location: Ecuador

Re: Consejos sobre el uso de las clases TImprime y TUtilPrn

Post by nanoespinoza »

Confirmado, se arregló.
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”