EasyReport - xBrowse

Post Reply
User avatar
Otto
Posts: 6416
Joined: Fri Oct 07, 2005 7:07 pm
Has thanked: 35 times
Been thanked: 2 times
Contact:

EasyReport - xBrowse

Post by 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

 DIALOG or WINDOW                   insert   xbrowse              call function              @ 0,0 ;      BUTTON "Druck" ;      ACTION druck_bon( cTischNr, oBrw ) ;          OF oDlgfunction 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

VRD files created with the REPORT DESIGNER:Printarea 1[General]Title=BonKopfWidth=75Height=20Top1=5Top2=1TopVariable=0Condition=1DelEmptySpace=0BreakBefore=0BreakAfter=0[Items]10=Text|Bon|101|  0|1|1|1|1|45|6|2|3|2|1|0|0||011=Text|Date|102|  0|1|1|9|42|32|5|7|3|2|1|0|0||0401=LineHorizontal|Line horizontal|-1|1|1|1|16|0|73|1|3|2|1|1|0|0|0||||||||||Printarea 2[General]Title=Order positionsWidth=70Height=7Top1=0Top2=0TopVariable=1Condition=1DelEmptySpace=0BreakBefore=0BreakAfter=0PrintBeforeBreak=0PrintAfterBreak=0ControlDBF=noneFormula1=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|||||||||||| 

Image

Image

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

Image

Image

Image

Image

Best regards,
Otto
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
elvira
Posts: 516
Joined: Fri Jun 29, 2012 12:49 pm

Re: EasyReport - xBrowse

Post by 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.
User avatar
Kleyber
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil

Re: EasyReport - xBrowse

Post by 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.
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
elvira
Posts: 516
Joined: Fri Jun 29, 2012 12:49 pm

Re: EasyReport - xBrowse

Post by elvira »

User avatar
Kleyber
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil

Re: EasyReport - xBrowse

Post by 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.
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
Otto
Posts: 6416
Joined: Fri Oct 07, 2005 7:07 pm
Has thanked: 35 times
Been thanked: 2 times
Contact:

Re: EasyReport - xBrowse

Post by 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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Antonio Linares
Site Admin
Posts: 42655
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 67 times
Been thanked: 96 times
Contact:

Re: EasyReport - xBrowse

Post by 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! :-D

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
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
lucasdebeltran
Posts: 1303
Joined: Tue Jul 21, 2009 8:12 am
Contact:

Re: EasyReport - xBrowse

Post by lucasdebeltran »

Dear Otto,

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

Code: Select all | Expand

[Items]400=TEXT|Factura|-1|1|1|1|20|119|70|7|12|2|3|2|0|0||0||||||||||||||0401=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.
Muchas gracias. Many thanks.

Un saludo, Best regards,

Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]

Implementando MSVC 2010, FWH64 y ADO.

Abandonando uso xHarbour y SQLRDD.
User avatar
Otto
Posts: 6416
Joined: Fri Oct 07, 2005 7:07 pm
Has thanked: 35 times
Been thanked: 2 times
Contact:

Re: EasyReport - xBrowse

Post by Otto »

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

Image
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
Post Reply