EasyReport - xBrowse

[Otto]

App for restaurants

We have an application where all the ECR items registered appear on a screen. The waiter can prepare the items and then print a coupon.

Code: Select all  Expand view  RUN

 DIALOG or WINDOW    
       
       insert   xbrowse
       
       call function
              @ 0,0 ;
      BUTTON "Druck" ;
      ACTION druck_bon( cTischNr, oBrw ) ;
          OF oDlg

function druck_bon( cTischNr, oBrw )
    local oVRD
    local lPreview      := .f.
    local cDruckerName      :=  GetPvProfString( "SETUP", "Drucker", "FinePrint", ".\ini\thekenmeister.ini")
    local I                 := 0
    local uBm
    local lContinue         := .t.
*----------------------------------------------------------

    EASYREPORT oVRD NAME ".\xVrd\ThekenBon.vrd" PREVIEW lPreview TO cDruckerName PRINTDIALOG IIF( lPreview, .F., .F. )
        PRINTAREA 1 OF oVRD ;
        ITEMIDS {106 };
        ITEMVALUES { cTischNr }

    uBm := oBrw:BookMark
    Eval( oBrw:bGoTop )
   
    do while lContinue
     PRINTAREA 2 OF oVRD;
        ITEMIDS { 101, 102};
        ITEMVALUES { ( oBrw:aCols[ 1 ]:Value ), oBrw:aCols[ 2 ]:Value }
     lContinue := ( Eval( oBrw:bSkip, 1 ) == 1 )
    enddo
   
    oBrw:BookMark := uBm
    oBrw:Refresh()
    oVRD:End()
       
return nil
//----------------------------------------------------------------------------//


 

Code: Select all  Expand view  RUN

VRD files created with the REPORT DESIGNER:

Printarea 1

[General]
Title=BonKopf
Width=75
Height=20
Top1=5
Top2=1
TopVariable=0
Condition=1
DelEmptySpace=0
BreakBefore=0
BreakAfter=0

[Items]
10=Text|Bon|101|  0|1|1|1|1|45|6|2|3|2|1|0|0||0
11=Text|Date|102|  0|1|1|9|42|32|5|7|3|2|1|0|0||0
401=LineHorizontal|Line horizontal|-1|1|1|1|16|0|73|1|3|2|1|1|0|0|0||||||||||

Printarea 2


[General]
Title=Order positions
Width=70
Height=7
Top1=0
Top2=0
TopVariable=1
Condition=1
DelEmptySpace=0
BreakBefore=0
BreakAfter=0
PrintBeforeBreak=0
PrintAfterBreak=0
ControlDBF=none
Formula1=
Formula2=
Formula3=
Formula4=
Formula5=
Formula6=
Formula7=
Formula8=
Formula9=
Formula10=
Formula11=
Formula12=

[Items]
1=TEXT|Menge|101|1|1|1|0|0|8|6|13|3|2|1|0|0||0||||||||||||
2=TEXT|Bezeichnung|102|1|1|1|0|13|54|6|10|3|2|1|0|0||0||||||||||||
5=TEXT|Preis|105|0|0|1|0|40|11|6|3|3|2|3|0|0||0||||||||||||
6=TEXT|Wert|106|  0|1|1|0|51|18|6|13|3|2|3|0|0||0||||||||||||



 

Here you see the EasyReport designer. We Change Font and insert a line - all in runtime!!!









Best regards,
Otto

[elvira]

Otto,

Yes, ER is quite powerful and easy to use.

The problem I find is when, in the IDE, I move or resize ítems, it produces an error.log many times.

[Kleyber]

Otto,

It looks great!! I just have a question: I've been using FastReport for xHarbour and I would like to know, in your opinion, what advantages or disadvantages between ER and FR.

[elvira]

Kleyber,

You can download from here:
http://www.reportdesigner.info/downloads/EasyReport.exe

[Kleyber]

Elvira,

Thanks for your answer, but for now I don't have time to test EasyReport, first because I don't know it and I would have to study it first, to become familiar to me (as I did with FastReport). Second, I just wanna know about advantages and disvantages (if this exists) between one and other. After having some opinions about it I can be convinced to contribute to have EasyReport as my preferred report generator, instead of FastReport.

[Otto]

Kleyber,
I posted this not because the report is good look but to show with how less code you can program a report.

I use FastReport too.
But to be honest I think for most of us EasyReport is the better way. FastReport is a program for its own and you have to learn how to operate. Also the scripting language you can use is not so easy for a Fivewinner.

EasyReport is Fivewin.
One of the greatest advantages I think is that you can easily edit the vrd files with a text Editor, too.
These files are simple text files.
To edit the FastReport files directly is not that easy because these are XML files.

The report designer of EasyReport is the only report designer I know a “normal” enduser can operate because it is simple.

Please don’t compare the status quo of EasyReport with other reports. It is many years that Timm didn’t evolve ER although it still can keep up.
But if it becomes open source and the things Fivewin has already (EXCEL export, PDF printing) will be built in I could not imagine a more productive program.

Another advantage is that the data you want print must not be exported to another program.

If you invest the same amount of time for an EasyReport report or a FastReport report they will look the same.

Also if you don’t use FastReport immediately you should contribute. This way you have an option for the time when the FrSystH.dll is no longer compatible with harbor.
I like your demo-application for "FastReport for [x]Harbour + FWH. Your program helped me a lot when I started with FastReport.



Best regards,
Otto

[Antonio Linares]

Otto,

I wasn't aware that you are an EasyReport master, and your expertise will be so good for all of us, thank you!

I fully agree with all your comments

This way you have an option for the time when the FrSystH.dll is no longer compatible with harbour.

+1

[lucasdebeltran]

Dear Otto,

In the .v01, v02, etc files, do you know the parameters on the items?

Code: Select all  Expand view  RUN

[Items]
400=TEXT|Factura|-1|1|1|1|20|119|70|7|12|2|3|2|0|0||0||||||||||||||0
401=Rectangle|Rectángulo|-1|1|1|1|18|119|70|12|3|3|1|1|0|0|0||||||||||
404=Rectangle|Rectángulo|-1|1|1|1|86|2|185|1|3|3|1|1|0|0|0||||||||||
405=Rectangle|Rectángulo|-1|1|1|1|52|2|185|1|3|3|1|1|0|0|0||||||||||

I mean, which values are in |-1|1|1|1|20|119|70|7|12|2|3|2|0|0||0||||||||||||||0?.

Thank you.

[Otto]

Please use fileedit.exe. Here you see what the parameters are for.
Fileedit.exe is only 16bit.
Best regards,
Otto