Report Printing from @key / input processing

[GCC Consulting]

> -----Original Message-----
> From: 
> filepro-list-bounces+gccconsulting=comcast.net at lists.celestial
> .com 
> [mailto:filepro-list-bounces+gccconsulting=comcast.net at lists.c
> elestial.com] On Behalf Of John Esak
> Sent: Tuesday, August 29, 2006 5:53 PM
> To: Richard Tartaglia
> Cc: Fplist (E-mail)
> Subject: RE: Report Printing from @key / input processing
> 
> Richard,
> 
> Here is the fix for the message I screwed up earlier using 
> the PRINT command where it can not be used. I was making 
> things much harder than they are to print a header-detail report.
> 
> 
> I'll use roughly the same format (example only of course) but 
> it doesn't need variables. Just use the real fields in the 
> detail file.
> 
> 
> Special Report Of Items Per Customer                          
>  Date: *@td
> Customer Code: *@pm                                           
>  Page: <@pn
> 
> Date          Inv#         Amount
> ========================================================
> *4           *5            *6
> 
> 
> You will use roughly the same code, but it will be in a 
> dreport "called" by a SYSTEM command from the @key. You need 
> to pass the value of the unique code to the dreport 
> processing and use the FORM command instead of the PRINT 
> command I had used erroneously in the previous message. Also, 
> you must be certain to choose "Remove unnecessary blank 
> lines." on the output format options page. So, it might look 
> like this:
> 
> INPUT PROCESSING
> 
> @keyC    if:
>        then: input popup q(1,yesno) "Are you SURE you want 
> this report?
> (y/n) "
>          if: q ne "Y"
>        then: end
>        then: declare SysCmd
>        then: SysCmd="dreport inv_file -f formatname -v getcus 
> -a -iB -u -r"
> < 3
>        then: system SysCmd
>        then: end
> 
> You need a sort/select (-v) processing table called "getcus" 
> (or whatever you would like to name it) that looks like this.
> 
> SORT/SELECT PROCESSING (built with Define Processing -> 
> Output Processing)
> 
>         if: 1 eq @pm
>       then: select
>       then: end
> 
> 
> There is no OUTPUT PROCESSING required for this method.
> 
> 
> Index.B should be built on the unique code. (Add to that a 
> second key of date, and the records will be sorted by date.)
> 
> 
> Sorry, to have screwed up the previous sendings... I was on 
> the phone at the time and not thinking correctly about anything. :-)
> 
> By the way, to do this *really* right... you should do it 
> from @entsel with the @entsel/global-var trick I've shown a 
> million times here. This way when someone presses the @key to 
> run this report, it won't lock the header record while the 
> report is running.
> 
> John

When in input processing the form & formm commands may be used to create a
report.

One could create 2 forms for this, form1 a 5 line header and form 2 one line
detail.

>From your array: dim foobar(20)

Fill in the dummy fields for the header if they aren't static in the header
form. 

If: 'print the header
Then:formm form1

Next you are going to fill in the dummy fields from you array or from lookup
to a detail file.  In the example below the then line should move data from
your array to the dummy fields for printing.

Details If: foobar(ct) ne  ""
     then: formm form2  (set field values from the array);ct=ct+"1"
        if: ct le "19" and foobar(ct+"1") ne ""    'if next element blank
drop to use form to close the spooler
	then: GOTO details
	  if: 'this is the last line to print
      then: form form2;END

You can add in what ever processing you need to do totals etc.

When you use formm, the spooler is held open until you use form, at which
time the spooler is closed.

I have used this technique to print multi-page invoices where subtotal were
needed at the bottom of each page along with a page #.  

Richard Kreiss
GCC Consulting