FiveTech Support Forums

#include "fivewin.ch"
#include "report.ch"
#define LINE_LEFT     1
STATIC oReporte

function Rep2()
            Local cTi1,cTi2,oPen1,oPen2,oFo1,oFo2,oFo3,oLine,oFo4,nCounter := 0,cTi0,oFo5

            Sele 1
            Use Pasoinf
        DEFINE FONT oFo1 NAME "ARIAL" SIZE 0, -12 BOLD
        DEFINE FONT oFo2 NAME "ARIAL" SIZE 0, -15 BOLD
        DEFINE FONT oFo3 NAME "ARIAL" SIZE 0, -10
        DEFINE FONT oFo4 NAME "ARIAL" SIZE 0, -8
        DEFINE FONT oFo5 NAME "ARIAL" SIZE 0, -18 BOLD


            DEFINE PEN oPen1 STYLE 0 WIDTH 1 COLOR CLR_RED OF oReporte
            DEFINE PEN oPen2 STYLE PS_DOT WIDTH 1 COLOR CLR_HGRAY OF oReporte

            cTi0:= "CENTRO MEDICO REM SUR"

            cTi1:= "INFORMES ECOGRAFIAS INFORMADAS FEBRERO DE 2021"

        cTi2:="Dr. Claudio Parra"

   REPORT oReporte;
                    TITLE cTi1,cTi2 ;
          FONT   oFo1,oFo2,oFo3,oFo4,oFo5;
          PEN    oPen1,;
                 oPen2 ;
          HEADER cTi0,"Fecha: "+dtoc(date()),;
                 "Hora:  "+time() ;
                 RIGHT ;
                    FOOTER "Página: "+str(oReporte:nPage,3) ;
                 CENTERED ;
          PREVIEW

          COLUMN TITLE "Nro. Ing."             DATA Nro_Bon PICTURE "9999999999" SIZE 10   FONT 4
          COLUMN TITLE "Fecha Ing."            DATA Fec_Bon SIZE 10 FONT 4
          COLUMN TITLE "Fecha Inf."            DATA Fec_Inf SIZE 10 FONT 4
          COLUMN TITLE "Nombre Paciente"          DATA Nom_Pac SIZE 30 FONT 4
          COLUMN TITLE "T. Pago"                DATA Tip_Pag SIZE 10  FONT 4
          COLUMN TITLE "Valor Examen"             DATA Val_Bon PICTURE "999,999,999" TOTAL RIGHT FONT 3 SIZE 15

   END REPORT
     oReporte:oTitle:aFont[1] := {|| 2 }
     oReporte:oTitle:aFont[2] := {|| 1 }
     oReporte:oHeader:aPad[1]:= LINE_LEFT
     oReporte:oHeader:aFont[1] := {|| 5 }


     oReporte:lJoin := .t.
     oReporte:nSeparator := 0
   oReporte:cGrandTotal:="Total General"      
   oReporte:lPageTotal:=.f.                   
   oReporte:oDevice:SetPortrait()            
   oReporte:oDevice:lPrvModal:=.t.            

   ACTIVATE REPORT oReporte
     oFo1:End()
     oFo2:End()
     oFo3:End()
     oFo4:End()
     oFo5:End()
         oPen1:End()
         oPen2:End()
     Close all
return nil

Application
===========
   Path and name: C:\Desa\Informes Win\InfoWin.exe (32 bits)
   Size: 4,352,512 bytes
   Compiler version: Harbour 3.2.0dev (r1506171039)
   FiveWin  version: FWH 17.09
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 25 secs 
   Error occurred at: 20/03/2021, 10:02:51
   Error description: Error BASE/1004  Message not found: TREPORT:NLOGPIXELY
   Args:
     [   1] = O   TREPORT

Stack Calls
===========
   Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => TREPORT:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => TREPORT:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => TREPORT:NLOGPIXELY( 0 )
   Called from: .\source\classes\PEN.PRG => TPEN:NEW( 31 )
   Called from: .\Reporte2.PRG => REP2( 21 )
   Called from: .\InfoWin.PRG => (b)MENU( 138 )
   Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 1548 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1081 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3348 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1037 )
   Called from: .\InfoWin.PRG => MAIN( 93 )

System
======
   CPU type: Intel(R) Core(TM) i7-4510U CPU @ 2.00GHz 2594 Mhz
   Hardware memory: 8085 megs

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

   Windows total applications running: 6
      1 ,                                                                                                     
      2 , C:\Desa\Informes Win\InfoWin.exe                                                                    
      3 , C:\WINDOWS\System32\shcore.dll                                                                      
      4 , C:\WINDOWS\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.17763.1282_none_b4b28 
      5 DDE Server Window, C:\WINDOWS\System32\OLE32.DLL                                                                       
      6 G, C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.17763.1282_none_570de0aec255de 

Variables in use
================
   Procedure     Type   Value
   ==========================
   __ERRRT_SBASE
     Param   1:    O    Class: ERROR
   TREPORT:ERROR
     Param   1:    N    13
     Param   2:    N    1004
     Param   3:    C    "Message not found"
     Param   4:    C    "TREPORT:NLOGPIXELY"
     Param   5:    N    1
     Param   6:    O    Class: TREPORT
     Local   1:    U    
     Local   2:    U    
   (b)HBOBJECT
     Param   1:    C    "Message not found"
     Param   2:    C    "TREPORT"
     Param   3:    C    "NLOGPIXELY"
     Param   4:    N    1004
   TREPORT:MSGNOTFOUND
     Param   1:    O    Class: TREPORT
     Param   2:    C    "NLOGPIXELY"
   TREPORT:NLOGPIXELY
     Param   1:    C    "NLOGPIXELY"
   TPEN:NEW
   REP2
     Param   1:    N    0
     Param   2:    N    1
     Param   3:    N    128
     Param   4:    O    Class: TREPORT
     Local   1:    S    
     Local   2:    O    Class: TPEN
   (b)MENU
     Local   1:    U    
     Local   2:    U    
     Local   3:    U    
     Local   4:    U    
     Local   5:    O    Class: TFONT
     Local   6:    O    Class: TFONT
     Local   7:    O    Class: TFONT
     Local   8:    O    Class: TFONT
     Local   9:    N    0
     Local  10:    U    
     Local  11:    O    Class: TFONT
   TMENU:COMMAND
     Param   1:    O    Class: TMENUITEM
   TWINDOW:COMMAND
     Param   1:    N    20010
     Local   1:    O    Class: TMENUITEM
   TWINDOW:HANDLEEVENT
     Param   1:    N    20010
     Param   2:    N    0
     Local   1:    N    0
     Local   2:    N    20010
     Local   3:    N    0
     Local   4:    U    
   _FWH
     Param   1:    N    273
     Param   2:    N    20010
     Param   3:    N    0
   WINRUN
     Param   1:    N    0
     Param   2:    N    273
     Param   3:    N    20010
     Param   4:    N    0
     Param   5:    N    1
     Local   1:    O    Class: TWINDOW
   TWINDOW:ACTIVATE
     Param   1:    N    12522152
   MAIN
     Param   1:    C    "MAXIMIZED"
     Param   2:    U    
     Param   3:    U    
     Param   4:    U    
     Param   5:    U    
     Param   6:    U    
     Param   7:    U    
     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    

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

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

  1: => PASOINF                            RddName: DBFNTX
     ==============================
     RecNo    RecCount    BOF   EOF
          1          256      .F.   .F.

     Indexes in use                        TagName

     Relations in use

Classes in use:
===============
     1 ERROR
     2 HBCLASS
     3 HBOBJECT
     4 TCURSOR
     5 TFONT
     6 TWINDOW
     7 TDIALOG
     8 TBRUSH
     9 TCONTROL
    10 TBITMAP
    11 TSAY
    12 TGET
    13 GET
    14 TCLIPGET
    15 TBUTTON
    16 TRECT
    17 TMENU
    18 TREG32
    19 TMENUITEM
    20 TBAR
    21 TBTNBMP
    22 TMSGBAR
    23 TPEN
    24 TREPORT
    25 TPRINTER
    26 TRLINE
    27 TRCOLUMN
    28 TPREVIEW
    29 TSCROLLBAR
    30 TMSGITEM
    31 TTIMER
    32 TIMAGELIST
    33 TLISTVIEW
    34 TMETAFILE
    35 TCOMBOBOX
    36 TSTRUCT

Memory Analysis
===============
      393 Static variables

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


DEFINE PEN .... OF oReporte

oReport:bEnd := {|| oReport:Say( 1, "Total Registros:  " +Str(oReport:nCounter,5), 1, 1, oReport:nRow + (oReport:nStdLineHeight*1.25) )  }

oReport:bPostEnd   := {||  oReport:Say( 1, "Total Registros:  " +Str(oReport:nCounter,5), 1, 1) }