tax certificate display for indian senario J_1I7_USEREXIT_CHEQUENO_CERT

[Former Member]

Hi,

Any body can help regarding tax certification display..

I have to fetch the data from the table and i have to fill the bank code here in this function module...

J_1I7_USEREXIT_CHEQUENO_CERT

tables is having parameter

I_PRINTTAB

i have to modify the bankl field please help me it is urgent

if you have sample code just send me

Thanks in advance

[Former Member]

HI PRAVEEN

as i have recently resolved the same issue forwarding you my code it may help you.

write a perform statement before printing the check number

as below.

PERFORM CHEQUE_NUM IN PROGRAM ZFI2L002

USING &PRINTTAB-AUGBL&

USING &PRINTTAB-AUGDT&

USING &PRINTTAB-BELNR&

USING &PRINTTAB-BUKRS&

USING &PRINTTAB-GJAHR&

CHANGING &CHEQUE_NO(13)&

ENDPERFORM

&CHEQUE_NO(13)&

please create z include subroutine pool type .

&----

---

*& Form bank_number

&----

---

• text

-

---

• -->IN_TAB text

• -->OUT_TAB text

-

---

FORM CHEQUE_NUM TABLES in_tab STRUCTURE itcsy

out_tab STRUCTURE itcsy.

DATA: WA_PAYR LIKE PAYR.

CONSTANTS :

c_augbl TYPE tdtprgname VALUE 'PRINTTAB-AUGBL',

c_augdt TYPE tdtprgname VALUE 'PRINTTAB-AUGDT',

c_belnr TYPE tdtprgname VALUE 'PRINTTAB-BELNR',

c_bukrs TYPE tdtprgname VALUE 'PRINTTAB-BUKRS',

c_gjahr TYPE tdtprgname VALUE 'PRINTTAB-GJAHR',

c_cheque TYPE tdtprgname VALUE 'CHEQUE_NO'.

DATA :

lf_augbl TYPE with_item-augbl,

lf_augdt TYPE with_item-augdt,

lf_belnr TYPE with_item-belnr,

lf_bukrs TYPE with_item-bukrs,

lf_gjahr TYPE with_item-gjahr,

lf_cheque TYPE payr-checf.

read table in_tab with key name = c_augbl.

move in_tab-value to lf_augbl.

read table in_tab with key name = c_augdt.

move in_tab-value to lf_augdt.

read table in_tab with key name = c_belnr.

move in_tab-value to lf_belnr.

read table in_tab with key name = c_bukrs.

move in_tab-value to lf_bukrs.

read table in_tab with key name = c_gjahr.

move in_tab-value to lf_gjahr.

CALL FUNCTION 'GET_CHECK_INFORMATION'

EXPORTING

I_AUGBL = lf_augbl "<test>-AUGBL

I_AUGDT = lf_augdt "<test>-AUGDT

I_BELNR = lf_belnr "<test>-BELNR

I_BUKRS = lf_bukrs "<test>-BUKRS

• I_BVORG =

I_GJAHR = lf_gjahr "<test>-GJAHR

• I_SHKZG =

• I_XZAHL =

• I_CALL = 'X'

• I_KOART =

IMPORTING

E_PAYR = WA_PAYR

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

read table out_tab with key name = c_cheque.

move wa_payr-checf to out_tab-value.

modify out_tab index sy-tabix.

clear out_tab-value.

ENDIF.

ENDFORM.

please reward points if useful.

.