Cheque Priniting - Numbers

[Former Member]

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

[Former Member · Accepted solution]

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.