Hans,
Thank you so much for providing this report and for being so generous
with your time. Having a worked example based on my database has
provided invaluable insight into how to do parallel reports.
Thank you again.
Victor Warner.
Hans Dotzler wrote:
Hi Victor,
the report "--parallel--" following below
has this structure
(best view with monospaced font):
----- FIRST PAGE HEADER
- ask start date
- ask end date
- set rv99=0
----- OTHER PAGE HEADER
----- TWO-LEVEL REPORT HEADER
----- REPORT BODY
+- virtual subreport 1 : LEGAL AREAS
| ...
| two-level etc.
| ...
+- END OF SUBREPORT
+- virtual subreport 2 : HOW HEARD
| ...
| two-level etc.
| ...
+- END OF SUBREPORT
.... further subreports
Stop [Sub]Report if 0 Is in Report Variable 99
----- TWO-LEVEL FOOTER
----- PAGE FOOTER
----- FINAL FOOTER
It produces this output:
Start Date: 01011901
End Date: 12122012
--- Subreport 1 : LEGAL AREAS ---
Consumer/contract 1
Landlord/Tenant 1
--- Subreport 2 : HOW HEARD ---
Existing client 1
Internet Search 1
Total number seen in 01011901 to 12122012: 2
--- Subreport 3 : # of cases / date ---
15 July 2009 2
Total number seen in 1 January 1901 to 12 December 1900: 2
--- Subreport 4 : By date, then problem area with client name ---
15072009
Consumer/contract (Smith)
Landlord/Tenant (Brown)
Number of clients seen at this session: 2
Report "--parallel-- :
REPORT.BASED.ON.PANEL:1
NAME:~--parallel--~
REPORT.MODE:WP
OUTPUT.FILENAME:~PARALLEL.WPD~
CREATE.DISK.FILE
REPORT.INDEX: 1
TEXT.LINES=54 TOP.MARGIN=6 BOTTOM.MARGIN=0 LEFT.MARGIN=0
REPORT.FORM:
FIRST.PAGE.HEADER
CR
PROMPT.FOR.VALUE.OF.RV:1 USING.FORMAT:~DDDMMYYYY~
PROMPT.MSG:~Start Date~
PROMPT.FOR.VALUE.OF.RV:2 USING.FORMAT:~DDDMMYYYY~
PROMPT.MSG:~End Date:~
SET.RV:99 FORMULA:~0~
FORMULA.END;
CR
~Start Date: ~ RV:1;~DDDMMYYYY~ CR
~ End Date: ~ RV:2;~DDDMMYYYY~ CR
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
VIRTUAL.SUBREPORT.TO.PANEL:1 TO.INDEX:4 FIELD.LIST:0
FIRST.PAGE.HEADER
CR
~--- Subreport 1 : LEGAL AREAS ---~ CR
TWO.LEVEL.REPORT.ON.FIELD:15
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
SET.RV:3 FORMULA:~If ~ FIELD=P1F14 ~>=rv1 and ~ FIELD=P1F14
~<=rv2 then 1 else 0 endif~
FORMULA.END;
SKIP.RECORD.ON.RV:3
TWO.LEVEL.FOOTER
FIELD=P1F15;~A25;;T~ ~ ~
PRINT.CNTRL.STRING: 204 10 15 204 RECORD:~GZZZZZ9;;B~
PAGE.FOOTER
FINAL.FOOTER
END.SUBREPORT.FOR.PANEL:1
VIRTUAL.SUBREPORT.TO.PANEL:1 TO.INDEX:3 FIELD.LIST:0
FIRST.PAGE.HEADER
CR
~--- Subreport 2 : HOW HEARD ---~ CR
TWO.LEVEL.REPORT.ON.FIELD:13
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
SET.RV:3 FORMULA:~If ~ FIELD=P1F14 ~>=rv1 and ~ FIELD=P1F14
~<=rv2 then 1 else 0 endif~
FORMULA.END;
SKIP.RECORD.ON.RV:3
TWO.LEVEL.FOOTER
FIELD=P1F13;~A30;;T~
PRINT.CNTRL.STRING: 204 10 15 204 RECORD:~GZZZZZ9;;B~ ~ ~
PAGE.FOOTER
FINAL.FOOTER
~Total number seen in ~ RV:1;~DDDMMYYYY~ ~ to ~ RV:2;~DDDMMYYYY~ ~: ~
RECORD:~GZZZZZ9~
END.SUBREPORT.FOR.PANEL:1
VIRTUAL.SUBREPORT.TO.PANEL:1 TO.INDEX:5 FIELD.LIST:0
FIRST.PAGE.HEADER
CR
~--- Subreport 3 : # of cases / date ---~ CR
TWO.LEVEL.REPORT.ON.FIELD:14
SET.RV:102 FORMULA:~apply.format["GZ9";day[rv1]]" "~ CR
~(month[rv1] cases~ CR
~case cv=1 of "January" endof~ CR
~case cv=2 of "February" endof~ CR
~case cv=3 of "March" endof~ CR
~case cv=4 of "April" endof~ CR
~case cv=5 of "May" endof~ CR
~case cv=6 of "June" endof~ CR
~case cv=7 of "July" endof~ CR
~case cv=8 of "August" endof~ CR
~case cv=9 of "September" endof~ CR
~case cv=10 of "October" endof~ CR
~case cv=11 of "November" endof~ CR
~case cv=12 of "December" endof~ CR
~endcases)" "~ CR
~apply.format["N9999";year[~ ~rv1]]~ CR
FORMULA.END;
SET.RV:103 FORMULA:~apply.format["GZ9";day[rv2]]" "~ CR
~(month[rv2] cases~ CR
~case cv=1 of "January" endof~ CR
~case cv=2 of "February" endof~ CR
~case cv=3 of "March" endof~ CR
~case cv=4 of "April" endof~ CR
~case cv=5 of "May" endof~ CR
~case cv=6 of "June" endof~ CR
~case cv=7 of "July" endof~ CR
~case cv=8 of "August" endof~ CR
~case cv=9 of "September" endof~ CR
~case cv=10 of "October" endof~ CR
~case cv=11 of "November" endof~ CR
~case cv=12 of "December" endof~ CR
~endcases)" "~ CR
~apply.format["N9999";year[rv3]]~ CR
FORMULA.END;
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
REPORT.BODY
SET.RV:3 FORMULA:~If ~ FIELD=P1F14 ~>=rv1 and ~ FIELD=P1F14
~<=rv2 then 1 else 0 endif~
FORMULA.END;
SKIP.RECORD.ON.RV:3
SET.RV:101 FORMULA:~apply.format["GZ9";day[~ FIELD=P1F14 ~]]" "~ CR
~(month[~ FIELD=P1F14 ~] cases~ CR
~case cv=1 of "January" endof~ CR
~case cv=2 of "February" endof~ CR
~case cv=3 of "March" endof~ CR
~case cv=4 of "April" endof~ CR
~case cv=5 of "May" endof~ CR
~case cv=6 of "June" endof~ CR
~case cv=7 of "July" endof~ CR
~case cv=8 of "August" endof~ CR
~case cv=9 of "September" endof~ CR
~case cv=10 of "October" endof~ CR
~case cv=11 of "November" endof~ CR
~case cv=12 of "December" endof~ CR
~endcases)" "~ CR
~apply.format["N9999";year[~ FIELD=P1F14 ~]]~ CR
FORMULA.END;
TWO.LEVEL.FOOTER
RV:101;~A25;;T~ ~ ~ RECORD:~GZZZZZ9~
PAGE.FOOTER
FINAL.FOOTER
~Total number seen in ~ RV:102;~A25;;T~ ~ to ~ RV:103;~A25;;T~ ~: ~
RECORD:~GZZZZZ9~
END.SUBREPORT.FOR.PANEL:1
VIRTUAL.SUBREPORT.TO.PANEL:1 TO.INDEX:8 FIELD.LIST:0
FIRST.PAGE.HEADER
CR
~--- Subreport 4 : By date, then problem area with client name ---~ CR
TWO.LEVEL.REPORT.ON.FIELD:14
OTHER.PAGE.HEADER
TWO.LEVEL.REPORT.HEADER
CR
BOLD.ON FIELD=P1F14;~DDDMMYYYY~
BOLD.OFF
REPORT.BODY
SET.RV:3 FORMULA:~If ~ FIELD=P1F14 ~>=rv1 and ~ FIELD=P1F14
~<=rv2 then 1 else 0 endif~
FORMULA.END;
SKIP.RECORD.ON.RV:3
FIELD=P1F15;~A25~ ~ (~ FIELD=P1F3;~A50;;T~ ~)~
TWO.LEVEL.FOOTER
~Number of clients seen at this session: ~ RECORD:~GZZZZZ9~
PAGE.FOOTER
FINAL.FOOTER
END.SUBREPORT.FOR.PANEL:1
STOP.REPORT.ON.RV:99
TWO.LEVEL.FOOTER
PAGE.FOOTER
FINAL.FOOTER
REPORT.END;
To import this report into your database, follow Ralph Alvy's
instructions on page 408 (importing reports).
(As always - first back up your database.)
Good days,
Hans
On Sat, 25 Jul 2009 20:22:49 +0100, Victor Warner <[email protected]> wrote:
I have a simple database to record clients who visit a free legal advice
clinic I volunteer at.
The database records the
1. name of the client
2. date of their visit
3. the legal area of their problem
4. How they heard of us
5. other details
Currently I produce three reports
1. A two level report showing for each period, for each legal area the
number of clients needing this help:
eg
Employment 3
Housing 4
Consumer 5
etc
2. a two level report showing for each period, how clients heard of us
eg
CAB 5
Existing client 5
Internet search 5
etc
3. a two level report, showing for a period, how many clients came each
week:
eg
01/07/2009 5
15/07/2009 5
22/07/2009 7
etc
Each one has appropriate indexes to create the two level report desired
I have no problem producing these as individual reports. What I would
like to do is produce one report using virtual link sub-reports (ie
parallel sub-reports, to use Ralph Alvy’s terminology), so that I select
the start and end date once using Prompt for Value of Report Value.
Again I have no problem with using this method and using the Skip To and
Skip If iteration commands for an individual report, but doing 3
parallel reports particularly where the two-level is not sorted on date,
does not produce the desired result. It appears to be a problem with
indexes, but despite reading the Iteration Control and Sub-report
chapters in detail I cannot locate the problem or an example of what I
want.
A copy of the database is available for download at
http://www.rlas.org.uk/Download/rlas-c3.zip. Example of each of 3
reports are provided (created as individual reports)
Help with this would be very much appreciated.
Victor Warner
_______________________________________________
Dataperf mailing list
[email protected]
http://lists.dataperfect.nl/mailman/listinfo/dataperf
|
_______________________________________________
Dataperf mailing list
[email protected]
http://lists.dataperfect.nl/mailman/listinfo/dataperf
