FiveTech Support Forums

Application
===========
   Path and name: C:\FEFWH\testmdi.exe (32 bits)
   Size: 3,958,784 bytes
   Compiler version: Harbour 3.2.0dev (r1801051438)
   FiveWin  version: FWH 18.04
   C compiler version: Borland/Embarcadero C++ 7.0 (32-bit)
   Windows version: 6.2, Build 9200 

   Time from start: 0 hours 0 mins 0 secs 
   Error occurred at: 10/23/18, 17:11:00
   Error description: Error BASE/1075  Argument error: >
   Args:
     [   1] = U   
     [   2] = N   1035

Stack Calls
===========
   Called from: .\source\classes\TEXPLBAR.PRG => TEXPLORERBAR:RESIZE( 244 )
   Called from: .\source\classes\CONTROL.PRG => TPANEL:_NALIGN( 1561 )
   Called from: testmdi.prg => HAZEXPLORERBAR( 168 )
   Called from: testmdi.prg => (b)MAIN( 56 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1041 )
   Called from: testmdi.prg => MAIN( 56 )

   WITH OBJECT ( oPnel2 := TPanel():New( 0, 0, 0, nWPanel, oExplBar ) )
      :SetColor( 0, METRO_OLIVE )
      :SetBrush( oBrush )
      //:nAlign  := 3

      :nHeight := oWnd:nHeight()  // ESTO AGREGUE YO

      WndHeight( :hWnd, :nHeight + 2 )
      :bPainted   := { | o | HazSayPnel() }
      :bLDblClick := { | o | lHide := !lHide, ;
                             oVSplitL:SetPosition( if( !lHide, nWPanel + 1, nPosVSp ) ), ;
                             Eval( oVSplitL:bChange ), ;
                             oVSplitL:Adjust(), oWndCalend:Refresh() }
   END WITH

CLASS TFwFastReport FROM TDotNet

   DATA cFileReport      INIT ""      PROTECTED
   DATA cFilePrepared    INIT ""      PROTECTED
   DATA cFileExport      INIT ""      PROTECTED
   DATA lSeparatepages   INIT .T.     PROTECTED
   DATA nQuality         INIT 0       PROTECTED
   DATA nResolution      INIT 0       PROTECTED
   DATA cFolderIn        INIT "" 
   DATA cFolderOut       INIT ""
   DATA cFolderExp       INIT ""
   DATA lPreview         INIT .T.
   DATA bPreviewWnd
   DATA bPreviewExp
   DATA cExeDesigner
   DATA cExeViewer
   DATA oWnd

   METHOD New( cDll, cSpace, cVerFrame, cLib ) CONSTRUCTOR
   METHOD Designer()
   METHOD FwExecute( cMethod, cParam )         INLINE ::Execute( , , cMethod, cParam )
   METHOD FwPrepare()                          INLINE ::FwExecute( "FwhPrepare", "" )
   METHOD FwReport()                           INLINE ::FwExecute( "FwhReport", "" )
   METHOD FwSavePrepare()                      INLINE ::FwExecute( "FwhSavePrepare", "" )
   METHOD FwExport( cFile, cType )
   METHOD FwExportHtml( cFile )
   METHOD FwExportPng( cFile )
   METHOD FwExportJpg( cFile )
   METHOD FwExportBmp( cFile )
   METHOD FwExportTif( cFile )
   METHOD FwExportGif( cFile )
   METHOD FwExportEmf( cFile )

   METHOD PreviewEmf( cFile )

   METHOD SetArraytoData( aDatos )
   METHOD SetDataArray( aDatos )
   METHOD SetDesigner( cExe )
   METHOD SetFileExport( cFile, cExt )
   METHOD SetFileReport( cFile, lExec )
   METHOD SetFilePrepared( cFile, lExec )

   METHOD SetViewer( cExe )
   METHOD Show( cFile )
   METHOD Viewer()

ENDCLASS

#include "FiveWin.ch"

Static cDll       := "d:\fwh\fwhteam\samples\FastFwh.dll"
Static cWorkSpace := "FastFwhR.Fwh"

Static oWnd
Static aTasks    := {}

//----------------------------------------------------------------------------//

Function Main()

   DEFINE WINDOW oWnd TITLE "FastReport NET from Fivewin: " + FWVERSION + ;
      " - ® Cristobal Navarro ( 2019 ) " + " - Right Click to Active"

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON RIGHT CLICK FastReportNet()


Return nil

//----------------------------------------------------------------------------//


Function FastReportNet()

   local cPathReports := "D:\FastReportNet\VSC2017\Demos\Reports"
   //local cFileFrx  := "D:\Fwh\FwhTeam\samples\fastreport\frh\reps\4.frx"
   //local cFilePrx  := "D:\Fwh\FwhTeam\samples\fastreport\frh\reps\4.fpx"
   local cFileFrx  := "D:\FastReportNet\VSC2017\Demos\Reports\box.frx"
   local cFileFpx  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.fpx"
   local cFileFpx1 := "D:\FastReportNet\VSC2017\Demos\Reports\box.fpx"
   local cFileExp  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.html"
   local cFilePng  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.png"
   local cFileBmp  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.bmp"
   local cFileJpg  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.jpg"
   local cFileTif  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.tif"
   local cFileGif  := "D:\FastReportNet\VSC2017\Demos\Reports\box2.gif"
   local cFileHtml := "D:\FastReportNet\VSC2017\Demos\Reports\box2.html"
   local cFileEmf  := "D:\FastReportNet\VSC2017\Demos\Reports\box3.emf"
   local aDatos    := { "a", "b", "c", "d" }
   local oNet
   local oErr

   TRY
      oNet := TFwFastReport():New( cDll, cWorkSpace )
      WITH OBJECT oNet
         //
         //:SetDllName( cDll )
         //:SetNameSpace( cWorkSpace )
         //

         :oWnd    := oWnd

         //
         :SetDesigner( "D:\FastReportNet\FastReport.Community\Designer.exe" ) // .frx
         :SetViewer( "D:\FastReportNet\FastReport.Community\Viewer.exe" )     // .fpx
         //

         cFileFrx := "D:\FastReportNet\VSC2015_1\FastFwh\FastFwh\in\report.frx"

         :SetFileReport( cFileFrx )
         //
         if Empty( :GetNetError() )
            :SetFilePrepared() // cFileFpx )
         endif
         if Empty( :GetNetError() )
            :FwReport()
         endif
         if Empty( :GetNetError() )
            :SetDataArray( aDatos )
         endif
         if Empty( :GetNetError() )
            :FwPrepare()
         endif
         if Empty( :GetNetError() )
            :FwSavePrepare()
         endif
         //
         if Empty( :GetNetError() )

            //:Viewer()
            //:Designer()

            //:FwExport( cFilePng )
            //:FwExportPng()

            //:FwExport( cFileBmp )
            //:FwExportBmp()

            //:FwExport( cFileJpg )
            //:FwExportJpg()

            //:FwExport( cFileTif )
            //:FwExportTif()

            //:FwExport( cFileGif )
            //:FwExportGif()

            //:FwExport( cFileHtml )
            //? :SetFileExport( , "html" )
            //:FwExport( , "html" )
            
            //:FwExportHtml()

            ? :SetFileExport( , "emf" )
            :FwExport( , "emf" )

            //:FwExportEmf()

         endif
         if Empty( :GetNetError() )
            //? :GetResult()
            //? :GetReturnValue()
            //? :GetValueReturn()
            if :lPreview
               :Show()
            endif
         endif

         if !Empty( :GetNetError() )
            ? :GetNetError()
         endif

         :End()
      END
   CATCH oErr
   
   END TRY

Return nil

//----------------------------------------------------------------------------//
// Export FastReport to standard preview of FW
//----------------------------------------------------------------------------//

function PreviewEmf( cFile )

   LOCAL oPrn, oFont

   PRINTER oPrn PREVIEW

      DEFINE FONT oFont NAME "Times New Roman" SIZE 0,-14 OF oPrn

      PAGE
      oPrn:ImportWMF( cFile )

      oPrn:CmSay(  0.4,  1, cFile )
      oPrn:CmSay(  1.0,  1, "Fichero Exportado de FastReport .NET" )
      oPrn:CmSay(  1.6,  1, "Cristobal Navarro" )
      
      ENDPAGE

   ENDPRINT

   oFont:End()

   //MsgInfo( "Work done!", "Look" )

return nil

//----------------------------------------------------------------------------//

Static cDll       := "d:\fwh\fwhteam\samples\FastFwh.dll"
...
:SetDesigner( "D:\FastReportNet\FastReport.Community\Designer.exe" ) // .frx
:SetViewer( "D:\FastReportNet\FastReport.Community\Viewer.exe" )     // .fpx
...