Skip to Content
1
Former Member
Feb 23, 2011 at 07:15 AM

SAP Note 1486147 - TDS line item details not flowing in Form 16 A Samrtform

62 Views

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