Creating spool requests using smartforms

Question

hi folks,
I need help in this area...
I have an ABAP print program that I run to create monthly statements. There are two categories while running the monthly statements identified by the code '6' or '7' Now, i have to create separate spool requests so that while running the print program for these monthly customers.
How can I do this?
Santhosh

Answer 1

Ok,  first lets say that ACCITAB has the records that are printed in the main window of the form.  The number of pages for each customer depends on how many records are present in the ACCITAB for the customer.
For example....   ACCITAB.
<b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
1234      08/26/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
1234      08/27/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/21/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/22/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/23/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/24/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/25/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
5678      08/26/2005        <b>Customer  Invoice Date  Passed Due</b>
1234      08/25/2005        $1.00
1234      08/26/2005        $1.00
1234      08/27/2005        $1.00
5678      08/21/2005        $1.00
5678      08/22/2005        $1.00
5678      08/23/2005        $1.00
5678      08/24/2005        $1.00
5678      08/25/2005        $1.00
5678      08/26/2005        $1.00
.00
Lets say we have two customers in our table, customer 1234 has only two records associated with him,  customer 5678 has like 75 lets say.  Here you will need to loop at this table and count how many records are there for each customer and store it in another internal.  Maybe you can have a separate internal table for each category.
Types: begin of titab,
       kunnr type kna1-kunnr,
       count type i,
       end of titab.
Data:  itab_1   type table of titab with header line.
Data:  itab_2_5 type table of titab with header line.
Data:  itab_6_M type table of titab with header line.
One for 1 pagers,  one of 2-5 pagers, and one for 6 and more pages.
Now loop thru ACCITAB and at the end of a customer you need to write a record to one of these tables with the record count.  Use the AT END statement.  You will need to determine the maximum number of printed lines that your form handles in the MAIN window.  Example,  how many printed lines does it take to make the form go to the next page.  You need to find what this number is.
When you have this number, now you can do some logic which will split the customers into there categorys.
Let's say that the max is 50 lines per page.
Data: counter type i.
LOOP AT ACCITAB.
counter = counter + 1.
at end of kunnr.
IF counter < '50'.
itab_1-kunnr = accitab-kunnr.
itab_1-count = counter.
append itab_1.
elseif counter => '51'
   and counter =< '250'.
itab_2_5-kunnr = accitab-kunnr.
itab_2_5-count = counter.
append itab_2_5.
elseif counter => '251'.
itab_6_m-kunnr = accitab-kunnr.
itab_6_m-count = counter.
append itab_6_m.
ENdif.
clear counter.
endat.
ENDLOOP.
Now you have the customers split out into separate internal tables depending on how many pages for thier statement.  Now you can start printing.
call fucntion 'OPEN_FORM'.
Loop at itab_1.
* Do the logic which prints your form.
endloop.
call fucntion 'CLOSE_FORM'.
call fucntion 'OPEN_FORM'.
Loop at itab_2_5.
* Do the logic which prints your form.
endloop.
call fucntion 'CLOSE_FORM'.
call fucntion 'OPEN_FORM'.
Loop at itab_6_m.
* Do the logic which prints your form.
endloop.
call fucntion 'CLOSE_FORM'.
Please remember to award points for helpful answers. Thanks.
Regards,
Rich Heilman