1. Old Form 16 certificate is printed before 01.04.2010 and new certificate after 01.04.2010. (its correct SAP has written code in such a manner Old one is SAP script and new on is Smartform.)
Old FORM 16 A gets Acknowledgement No details correctly.
2. Acknowledgment No details are not flowing in the NEW Smart Form of Form 16 A.
When I debug the program I can see PARTNER No details are copied in PAN NO field in TABLE : IT_LFA11[]
BUT PARTNER NO details are copied to PARTNERNO field in TABLE IT_LAFA1[].
TDS line item details on Smart Form is printed based on Partner no. here partner no. is blank as IT_LFA11 table is passed to smartform..
Program name : J_1IEWT_CERT
Include name : J_1IEWT_CERT_F01.
Code:
FORM CALL_FORM .
DATA: h_formname TYPE tdsfname,
h_fmname TYPE rs38l_fnam,
h_output_info TYPE ssfcrescl,
h_spoolids TYPE LINE OF ssfcrescl-spoolids,
h_output_options TYPE ssfcompop,
spoolno(10) TYPE c.
DATA : it_lfa11 TYPE STANDARD TABLE OF J_1I_LFA1 INITIAL SIZE 0,
it_printtab TYPE STANDARD TABLE OF J_1I_PRINTTAB INITIAL SIZE 0,
it_deduc TYPE STANDARD TABLE OF J_1I_DEDUCTEE INITIAL SIZE 0,
it_qrtrtab TYPE STANDARD TABLE OF J_1I_QRTRTAB INITIAL SIZE 0,
it_challan TYPE STANDARD TABLE OF J_1I_CHALLANDETAB INITIAL SIZE 0.
SORT challandetab BY j_1iextchdt DESCENDING.
it_lfa11[] = it_lfa1[].
it_printtab[] = printtab[].
it_deduc[] = it_deductor[].
it_qrtrtab[] = qrtrtab[].
it_challan[] = challandetab[].
h_output_options-tdnewid = 'X'.
h_formname = layout.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = h_formname
* VARIANT = ' '
* DIRECT_CALL = ' '
IMPORTING
fm_name = h_fmname
* EXCEPTIONS
* NO_FORM = 1
* NO_FUNCTION_MODULE = 2
* OTHERS = 3
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION h_fmname
EXPORTING
* ARCHIVE_INDEX =
* ARCHIVE_INDEX_TAB =
* ARCHIVE_PARAMETERS =
* CONTROL_PARAMETERS =
* MAIL_APPL_OBJ =
* MAIL_RECIPIENT =
* MAIL_SENDER =
OUTPUT_OPTIONS = h_output_options
* USER_SETTINGS = 'X'
IMPORTING
* DOCUMENT_OUTPUT_INFO =
job_output_info = h_output_info
* JOB_OUTPUT_OPTIONS =
TABLES
it_lfa1 = it_lfa11
it_printtab = it_printtab
it_deductee = it_deduc
it_qrtrtab = it_qrtrtab
it_challandetab = it_challan
* EXCEPTIONS
* FORMATTING_ERROR = 1
* INTERNAL_ERROR = 2
* SEND_ERROR = 3
* USER_CANCELED = 4
* OTHERS = 5
.
IF sy-subrc = 0. "1375614
CLEAR :spoolno,h_spoolids.
READ TABLE h_output_info-spoolids INTO h_spoolids INDEX 1.
IF h_spoolids IS NOT INITIAL.
spoolno = h_spoolids.
CONDENSE :spoolno.
MESSAGE i155(id_wt) WITH spoolno.
PERFORM update_cert_tables.
ENDIF.
ENDIF.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
Can anyone Please help me to get TDS details on the Smartform.
Regards,
DivyaLalwani.
Edited by: kishan P on Feb 23, 2011 1:28 PM