Skip to Content
author's profile photo
Former Member

tax certificate display for indian senario J_1I7_USEREXIT_CHEQUENO_CERT

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

Add comment
10|10000 characters needed characters exceeded

  • Follow
  • Get RSS Feed

1 Answer

  • author's profile photo
    Former Member
    Apr 15, 2008 at 04:30 PM

    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.

    .

    Add comment
    10|10000 characters needed characters exceeded