Cheque Priniting - Numbers

Question

Hi,
If there are 5 pages in the Cheque print, i want cheque numbers to be printed on all
the pages like.
Cheque Number - 200
i want :  1st page(void)  -200A
             2nd Page- void -200B
            3rd page -void -200C
          4 page -void - 200D
5 page - 200(original Cheque numebr).
Can any one help on this.
Thanks,
Donald Alfred

Answer 1

SFORMZCHEQUE
HFORMZCHEQUE
OLANE
HEADFORM      ZCHEQUE         SAP                                                   DEF ECHEQUE PRINTING                                   ZCHEQUE                 00004VIJAY       700 20070613121521VIJAY       700 2007061418062913200024 E0                                                                                201
LINE/:FORM CPI 10; LPI 6; TAB-STOP 1 CM; START-PAGE FIRST; FORMAT ZCHQ PORTRAIT;
LINE/:FORM PARAGRAPH AS; RDI; RDIDEV;
LINE/:PARAGRAPH AS LINE-SPACE 1 LN; FONT TIMES; FONT-SIZE 10; LEFT-INDENT 2.50 CM;
LINE/:PARAGRAPH P1 LINE-SPACE 1 LN; FONT COURIER; FONT-SIZE 10; BOLD ON;
LINE/:PARAGRAPH P1 ITALIC OFF; ULINE OFF;
LINE/:PARAGRAPH P2 LINE-SPACE 1 LN; FONT COURIER; FONT-SIZE 10; BOLD ON;
LINE/:PARAGRAPH P3 LINE-SPACE 8 MM; FONT COURIER; FONT-SIZE 10; BOLD ON;
LINE/:PARAGRAPH P3 ITALIC OFF; ULINE OFF;
LINE/:PARAGRAPH P4 LINE-SPACE 1 LN; FONT COURIER; FONT-SIZE 10; BOLD ON;
LINE/:PARAGRAPH P4 ITALIC OFF; ULINE OFF;
LINE/:PARAGRAPH P5 LINE-SPACE 1 LN; FONT COURIER; FONT-SIZE 10; BOLD ON;
LINE/:PARAGRAPH P5 ITALIC OFF; ULINE OFF;
LINE/:PARAGRAPH P1 TAB 1 17.25 CM LEFT;
LINE/:PARAGRAPH P2 TAB 1 2.50 CM LEFT;
LINE/:PARAGRAPH P3 TAB 1 3 CM LEFT; TAB 2 7.50 CM LEFT;
LINE/:PARAGRAPH P5 TAB 1 1 CM LEFT;
LINE/:STRING CH MARK OFF;
LINE/:WINDOW CHEQUE TYPE VAR;
LINE/:WINDOW MAIN
LINE/:WINDOW PAYMENT TYPE VAR;
LINE/:PAGE FIRST NEXT FIRST; PAGE-COUNT START; PRINTMODE S;
LINE/:PAGE FIRST MAIN 0 0.05 CM 0.05 CM 20.30 CM 9.30 CM;
LINE/:PAGE FIRST WINDOW CHEQUE 0 CM 18.70 CM 20.30 CM 9.30 CM;
LINE/:PAGE FIRST WINDOW PAYMENT 0 CM 9.30 CM 20.30 CM 9.40 CM;
END
HEADFORM      ZCHEQUE         SAP                                                   TXT ECHEQUE PRINTING                                   ZCHEQUE                 00004VIJAY       700 20070613121521VIJAY       700 2007061418062913200072 E0                                                                                201
LINE/:FORM TEXT 'CHEQUE PRINTING';
LINE/:PARAGRAPH AS TEXT 'Paragraph left-justified';
LINE/:PARAGRAPH P1 TEXT 'for date';
LINE/:PARAGRAPH P2 TEXT 'for payee';
LINE/:PARAGRAPH P3 TEXT 'amount in words';
LINE/:PARAGRAPH P4 TEXT 'for amount in numbers';
LINE/:PARAGRAPH P5 TEXT 'for first line';
LINE/:STRING CH TEXT 'default character';
LINE/:WINDOW CHEQUE TEXT 'CHEQUE PRINTING';
LINE/:WINDOW MAIN TEXT 'MAIN WINDOW';
LINE/:WINDOW PAYMENT TEXT 'PAYMENT MODE';
LINE/:PAGE FIRST TEXT 'First Page';
LINE/WCHEQUE
LINE/EZAMOUNT
LINE/*,,&V_AMNT&
LINE*
LINEP4&REGUD-SWNES&
LINEP4
LINE/WMAIN
LINE/ECheque formatparZDATA
LINE/:IF &REGUH-RZAWE& EQ 'A' OR &REGUH-RZAWE& EQ 'B'OR &REGUH-RZAWE& EQ 'C'
LINE/:IF &PAYR-HBKID& EQ 'HDFC'
LINEP1,,&REGUH-ZALDT&
LINE/*,,,,,,,,<CH>NOT OVER Rs.&V_AMNT&</>,,,,,,,,,,,,,,,,&REGUH-ZALDT&
LINEP1
LINEP1
LINEP1
LINEP2     ,,&VNAME&
LINEP3,,&V_SPELL_STRING&
LINEP3&V_SPELL_STRING1&&V_SPELL_STRING2&
LINEP3
LINEP3
LINE/*,,,,&REGUD-CHECT&
LINE/:ELSE
LINEP1
LINEP1,,&REGUH-ZALDT&
LINE/*,,,,,,,,<CH>NOT OVER Rs.&V_AMNT&</>,,,,,,,,,,,,,,,,&REGUH-ZALDT&
LINEP1
LINEP2,,&VNAME&
LINEP1
LINEP3,,&V_SPELL_STRING&
LINEP3&V_SPELL_STRING1&&V_SPELL_STRING2&
LINEP3
LINEP3
LINE/*,,,,&regud-chect&
LINE/:ENDIF
LINE/:ELSE
LINE/:IF &PAYR-HBKID& EQ 'HDFC'
LINEP1,,&REGUH-ZALDT&
LINEP1
LINEP1
LINEP1
LINEP2,,YOURSELF
LINEP3,,&V_SPELL_STRING&
LINEP3&V_SPELL_STRING1&&V_SPELL_STRING2&
LINEP3
LINEP3
LINE/*,,,,&regud-chect&
LINE/:ELSE
LINEP1
LINEP1,,&REGUH-ZALDT&
LINEP1
LINEP2,,YOURSELF
LINEP1
LINEP3,,&V_SPELL_STRING&
LINEP3&V_SPELL_STRING1&&V_SPELL_STRING2&
LINEP3
LINEP3
LINE/*,,,,&regud-chect&
LINE/:ENDIF
LINE/:ENDIF
LINE/:
END
ACTVSAP
E
above one is form
this one is program for cheque printing
*& Report  ZPAY_ADV
REPORT  ZPAY_ADV.
data: s_belnr type bseg-belnr,                  "docu no
      s_wrbtr1 type bseg-wrbtr,                 "item amount
      s_wrbtr type bseg-wrbtr,                  "item amount after discount
      s_qbshb type bseg-qbshb.                  "discount
data: txt TYPE C.
data: v_wrbtr type string,
      v_wrbtr1 type string,
      v_qbshb type string.
data: S_VBLNR type REGUH-VBLNR,
      s_net type bseg-wrbtr,
      v_net1(17) type c,
      s_gjahr TYPE bseg-gjahr,                 "fiscal year
      s_gsber type bseg-gsber.                 "business area
                    Line Items
FORM ITM TABLES ITM_IN STRUCTURE ITCSY
                ITM_OUT STRUCTURE ITCSY.
clear: s_wrbtr, s_qbshb, s_wrbtr1,
        v_wrbtr, v_wrbtr1, v_qbshb.
read table itm_in with key 'REGUP-BELNR'.
s_belnr = itm_in-value.
READ TABLE ITM_IN with key 'REGUD-GJAHR'.
s_gjahr = ITM_IN-VALUE.
select single wrbtr
               qbshb
               from bseg
               into (s_wrbtr, s_qbshb)
               where belnr = s_belnr and
                     gjahr = s_gjahr and
                     buzei = 001.
select single wrbtr
               from bseg
               into s_wrbtr1
               where belnr = s_belnr and
               gjahr = s_gjahr and
               buzei = 002.
v_wrbtr1 = s_wrbtr1.
v_wrbtr = s_wrbtr.
IF s_qbshb is NOT INITIAL.
    v_qbshb = s_qbshb.
    CONDENSE v_qbshb.
    txt = 'X'.
ENDIF.
CONDENSE : v_wrbtr, v_wrbtr1.
read table itm_out index 1.
  itm_out-value = v_wrbtr1.
  modify itm_out index 1.
read table itm_out index 2.
  itm_out-value = v_qbshb.
  modify itm_out index 2.
read table itm_out index 3.
  itm_out-value = v_wrbtr.
  modify itm_out index 3.
read table itm_out index 4.
  itm_out-value = txt.
  modify itm_out index 4.
ENDFORM.
                        Totals
FORM CONV TABLES ITF_IN STRUCTURE ITCSY
                  ITF_OUT STRUCTURE ITCSY.
clear: s_vblnr, s_net, v_net1.
READ TABLE ITF_IN WITH KEY 'REGUH-VBLNR'.
S_VBLNR = ITF_IN-VALUE.
   select single gsber
                 wrbtr
                 from bseg
                 into (s_gsber , s_net)
                 where belnr = s_vblnr and
                       gjahr = s_gjahr and
                       bschl = '50' .
   v_net1 = s_net.
   condense v_net1.
  read table itf_out index 1.
  itf_out-value = v_net1.
  modify itf_out index 1.
ENDFORM.
                        Header
form hdr TABLES ith_in structure itcsy
                ith_out structure itcsy.
  data : s_name type TSPAT-VTEXT.
  case s_gsber+0(2).
    when '11'.
          s_name = 'BARMAG'.
    when '12'.
          s_name = 'SCHLAFHORST'.
    when '13'.
          s_name = 'Zinser'.
    when '14'.
          s_name = 'Melco'.
    when '15'.
          s_name = 'Neumag'.
  endcase.
  read TABLE ith_out index 1.
    ith_out-value = s_name.
    modify ith_out index 1.
endform.