BAPI_INCOMINGINVOICE_CREATE: Withholding tax data is not coming

Question

Dear all,
I am using this BAPI to create Incoming Invoice. I am populating the Headerdata and Itemdata table. Then the invoice which is created doesnt have Withholding Tax Data Information.
Even I tried to populate withtaxdata table, but didnt find the soln.
The code is as shown below:
  DATA: t_headerdata LIKE STANDARD TABLE OF bapi_incinv_create_header WITH HEADER LINE,
        t_itemdata   LIKE STANDARD TABLE OF bapi_incinv_create_item WITH HEADER LINE,
        t_withtaxdata  LIKE STANDARD TABLE OF bapi_incinv_create_withtax WITH HEADER LINE,
        t_return     LIKE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
        v_invoicedocnumber LIKE bapi_incinv_fld-inv_doc_no,
        v_fiscalyear LIKE bapi_incinv_fld-fisc_year,
        v_bukrs TYPE bukrs.
  DATA: v_knumv LIKE konv-knumv,
        v_kschl LIKE konv-kschl.
LOOP AT itab1.
    tabix = 0.
    IF tabix = 0.
      LOOP AT itab2 WHERE ebeln = itab1-ebeln.
        MOVE-CORRESPONDING itab2 TO itab3.
        APPEND itab3.
      ENDLOOP.
      tabix = 1.
    ENDIF.
    SORT itab3 BY ebelp.
    count = 0.
    v_netamt = 0.
    LOOP AT itab3 WHERE ebeln = itab1-ebeln.
      v_menge = v_menge + itab3-tot_ton.
      v_dmbtr = v_dmbtr + itab3-frt_amt.
      AT END OF ebelp.
        count = count + 1.
        t_itemdata-invoice_doc_item = count.
        READ TABLE itab3 WITH KEY ebeln = itab1-ebeln
                                  ebelp = itab3-ebelp.
        IF sy-subrc = 0.
          t_itemdata-po_number   = itab3-ebeln.
          t_itemdata-po_item     = itab3-ebelp.
          t_itemdata-item_amount = v_dmbtr.
          t_itemdata-quantity    = v_menge.
          t_itemdata-po_unit     = itab1-meins.
          t_itemdata-item_text   = itab1-text.
          t_itemdata-tax_code = 'V0'.
*Condition Type
          SELECT SINGLE knumv
                        FROM ekko
                        INTO v_knumv
                        WHERE ebeln = itab1-ebeln.
          IF sy-subrc = 0.
            SELECT SINGLE kschl
                          FROM konv
                          INTO v_kschl
                          WHERE knumv = v_knumv
                          AND   kposn = itab3-ebelp
                          AND   ( ( kschl = 'FRC1' ) OR ( kschl = 'FRB1' ) ).
            IF sy-subrc = 0.
              t_itemdata-cond_type = v_kschl.
            ENDIF.
          ENDIF.
          APPEND t_itemdata.
          CLEAR: v_menge, v_dmbtr.
        ENDIF.
      ENDAT.
      v_netamt = v_netamt + itab3-frt_amt.
    ENDLOOP.
    t_headerdata-invoice_ind = 'X'.
    t_headerdata-doc_date    = itab1-inv_date.
    t_headerdata-pstng_date  = itab1-budat.
    t_headerdata-ref_doc_no  = itab1-refno.
    SELECT SINGLE bukrs INTO v_bukrs FROM ekko WHERE ebeln = itab1-ebeln.
    IF sy-subrc = 0.
      t_headerdata-comp_code   = v_bukrs.
    ENDIF.
    t_headerdata-currency    = itab1-waers.
    t_headerdata-gross_amount = v_netamt.
    t_headerdata-bline_date  = itab1-budat.
    t_headerdata-item_text   = itab1-text.
    t_headerdata-diff_inv = itab1-lifnr.
    t_headerdata-business_place = '1000'.
   APPEND t_headerdata.
   t_withtaxdata-wi_tax_type = 'C1'.
   t_withtaxdata-wi_tax_code = 'C1'.
   t_withtaxdata-wi_tax_base = v_netamt.
   APPEND t_withtaxdata.
   t_withtaxdata-wi_tax_type = 'C2'.
   t_withtaxdata-wi_tax_code = 'C2'.
   t_withtaxdata-wi_tax_base = v_netamt.
   APPEND t_withtaxdata.
   t_withtaxdata-wi_tax_type = 'C3'.
   t_withtaxdata-wi_tax_code = 'V3'.
   t_withtaxdata-wi_tax_base = v_netamt.
   APPEND t_withtaxdata.
    CLEAR: v_netamt.
    break bsfdev.
    CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'
      EXPORTING
        headerdata                = t_headerdata
    ADDRESSDATA               =
   IMPORTING
     invoicedocnumber          = v_invoicedocnumber
     fiscalyear                = v_fiscalyear
      TABLES
        itemdata                  = t_itemdata
    ACCOUNTINGDATA            =
    glaccountdata             =
    MATERIALDATA              =
    TAXDATA                   =
    withtaxdata               = t_withtaxdata
    VENDORITEMSPLITDATA       =
        return                    = t_return
    CLEAR errflag.
    LOOP AT t_return.
      IF t_return-type EQ 'E'.
        it_message-text = 'Error in function'.
        it_message-text1 =  t_return-message.
        it_message-po_number = itab1-ebeln.
        it_message-exnum = itab1-exnum.
        APPEND it_message.
        errflag = 'X'.
      ELSE.
      ENDIF.
    ENDLOOP.
    IF errflag IS INITIAL.
      COMMIT WORK AND WAIT.
      IF sy-subrc NE 0.
        it_message-po_number = itab1-ebeln.
        it_message-text = 'Error in updating'.
        it_message-text1 =  t_return-message.
        APPEND it_message.
        EXIT.
      ELSE.
*Fill Temporary table
        LOOP AT itab3.
          IF v_invoicedocnumber <> space.
            it_message1-po_number = itab3-ebeln.
            it_message1-po_item   = itab3-ebelp.
            it_message1-doc_number = itab3-belnr.
            it_message1-invoicedocno = v_invoicedocnumber.
            it_message1-exnum = itab1-exnum.
            APPEND it_message1.
            zpending_challan-po_number    = itab3-ebeln.
            zpending_challan-po_item      = itab3-ebelp.
            zpending_challan-doc_number   = itab3-belnr.
            zpending_challan-exnum        = itab3-exnum.
            zpending_challan-invoicedocno = v_invoicedocnumber.
            zpending_challan-menge        = itab3-tot_ton.
            zpending_challan-dmbtr        = itab3-frt_amt.
            zpending_challan-budat        = itab3-budat.
            INSERT zpending_challan FROM zpending_challan.
            COMMIT WORK.
            CLEAR: zpending_challan.
          ENDIF.
        ENDLOOP.
      ENDIF.
    ENDIF.
    IF errflag IS INITIAL.
      count = count + 1.
      CONCATENATE count 'Purchase Order Posted Out of '  no_recs1
                        INTO text1 SEPARATED BY space.
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
  PERCENTAGE       = 0
         text             = text1
      CONCATENATE 'Invoice Document No' v_invoicedocnumber 'generated'
                                        INTO text1 SEPARATED BY space.
      CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
       EXPORTING
  PERCENTAGE       = 0
         text             = text1
    ENDIF.
    CLEAR: t_headerdata[], t_headerdata,
           t_itemdata[], t_itemdata,
           itab3[], itab3.
  ENDLOOP.
Kindly help. Its very urgent.
Thanks.
Vinod.

Answer 1

Not used any more