Moderator: Rathinagiri
A good example will be \HMG\samples\REPORT.ADVANCED\Demo4.prg, where I want to print sub total of each country.rathinagiri wrote:I think the unit used is mm as always.
Regarding sub-total if you can please give a sample data and report format, I think Roberto can answer this.
Units are mm (I love metric system:) ).sudip wrote:Hello,
Sorry for my ignorance.
1) What's the unit used in Report Generator for row, col, height and width?
2) How can I print Group wise Sub Total in reports?
If these questions were already answered, it will be great helpful to me if you please show the link
Thanks in advance.
With best regards.
Sudip
Code: Select all
DEFINE REPORT TEMPLATE
* Report Data Environment *************************************
BEGIN DATA
ITERATOR i++
STOPPER i == len(aData)
END DATA
* Report Layout ***********************************************
BEGIN LAYOUT
PAPERSIZE PRINTER_PAPER_A4
ORIENTATION PRINTER_ORIENT_PORTRAIT
END LAYOUT
* Header Band *************************************************
BEGIN HEADER
BANDHEIGHT 37
BEGIN LINE
FROMROW 23
FROMCOL 10
TOROW 23
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN LINE
FROMROW 35
FROMCOL 10
TOROW 35
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Stock Balance '+alltrim(main.txtLoc.value)+" As on "+dtoc(mAsondt)
ROW 13
COL 10
WIDTH 300
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 15
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Style'
ROW 25
COL 20
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Size'
ROW 25
COL 40
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION 'Pairs'
ROW 25
COL 55
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION 'PP Value'
ROW 25
COL 100
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION 'MRP Value'
ROW 25
COL 145
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
END HEADER
* Detail Band *************************************************
BEGIN DETAIL
BANDHEIGHT 6
BEGIN TEXT
EXPRESSION aData [i] [1]
ROW 2
COL 20
WIDTH 10
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION aData [i] [2]
ROW 2
COL 40
WIDTH 10
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION aData [i] [3]
ROW 2
COL 55
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION aData [i] [4]
ROW 2
COL 100
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION aData [i] [5]
ROW 2
COL 145
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 9
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
END DETAIL
* Footer Band *************************************************
BEGIN FOOTER
BANDHEIGHT 27
BEGIN LINE
FROMROW 4
FROMCOL 10
TOROW 4
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Page. No:' + Str(_PageNo)
ROW 7
COL 11
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION Date()
ROW 7
COL 177
WIDTH 30
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .F.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
END FOOTER
* Summary Band ************************************************
BEGIN SUMMARY
BANDHEIGHT 7
BEGIN LINE
FROMROW 2
FROMCOL 10
TOROW 2
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN LINE
FROMROW 10
FROMCOL 10
TOROW 10
TOCOL 200
PENWIDTH 0.1
PENCOLOR { 0 , 0 , 0 }
END LINE
BEGIN TEXT
EXPRESSION 'Total:'
ROW 4
COL 20
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 10
FONTBOLD .f.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Left
END TEXT
BEGIN TEXT
EXPRESSION mTotQty
ROW 4
COL 55
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 10
FONTBOLD .f.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION mTotCostVal
ROW 4
COL 100
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 10
FONTBOLD .f.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
BEGIN TEXT
EXPRESSION mTotMrpVal
ROW 4
COL 145
WIDTH 20
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 10
FONTBOLD .f.
FONTITALIC .F.
FONTUNDERLINE .F.
FONTSTRIKEOUT .F.
FONTCOLOR { 0 , 0 , 0 }
ALIGNMENT Right
END TEXT
END SUMMARY
BEGIN GROUP
GROUPEXPRESSION aData[i] [1]
BEGIN GROUPHEADER
BANDHEIGHT 10
BEGIN TEXT
EXPRESSION aData[i][1]
ROW 5
COL 20
WIDTH 100
HEIGHT 10
FONTNAME 'Helvetica'
FONTSIZE 12
FONTBOLD .f.
FONTITALIC .T.
END TEXT
END GROUPHEADER
END GROUP
END REPORT
The best way to give you more clues about this is to create a small, basic sample to show it you, but I have not enough time for that right now.sudip wrote:Hello Master Roberto,
Thanks a lot.
Today I created a test report as follows:
sudip wrote: <...>
I am not sure how I can add code in ITERATOR clause, because I have 3 fields for total. And, I have to re-initialize the sub total variables at the starting of each group (Heare Style, aData[1])
ITERATOR MyFunc()
Code: Select all
Function MyFunc()
i++
<...>
You must put here your accumulators for totals or subtotals.
You can compare current cycle values with previous ones to know if you must reset something.
To display the values you must specify them in expression's text property at group footer definition.
<...>
return nil
Code: Select all
...
FONTCOLOR { iif(Qty >= 0, 0, 255), 0 , 0 }
...