10-11-2007 3:34 PM
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
04-15-2008 5: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.
.