Use FM SD_SALESDOCUMENT_CREATE for creating free goods line items

Question

Dear Experts,
I have created a program for uploading Sales Order details using FM "SD_SALESDOCUMENT_CREATE".
The program successfully creates Sales Orders.
Now the problem is with the materials which is a free goods item.
i.e. if I enter a material say 'XYZ' which has a 20% free goods then if I enter quantity as 10 then it has to create 2 line items where in 1st line item will have 8 as qty. with value and 2nd line item will have 2 as qty with no value.
It successfully happens when I create Sales Order using tcode VA01.
*&      Form  CREATE_SALES_ORDER
FORM create_sales_order.
  head_flg = 'T'.
  LOOP AT t_socreate02 INTO w_socreate02.
    CLEAR : vbeln, spart, bstnk, bstdk,
            w_itemin, w_iteminx, w_partnr.
    MOVE : w_socreate02-vbeln TO vbeln,
           w_socreate02-spart TO spart,
           w_socreate02-bstnk TO bstnk,
           w_socreate02-bstdk TO bstdk.
    AT NEW vbeln.
      CLEAR : w_sdhead, w_sdheadx.
**Transferring Header Details
      MOVE : 'ZODF'   TO w_sdhead-doc_type,   "Default
             'L001'   TO w_sdhead-sales_org,  "Default
             '01'     TO w_sdhead-distr_chan, "Default
             spart    TO w_sdhead-division,
             bstdk    TO w_sdhead-purch_date,
             sy-datum TO w_sdhead-req_date_h,
             bstnk    TO w_sdhead-purch_no_c.
      MOVE : 'I' TO w_sdheadx-updateflag,
             'X' TO w_sdheadx-doc_type,
             'X' TO w_sdheadx-sales_org,
             'X' TO w_sdheadx-distr_chan,
             'X' TO w_sdheadx-division,
             'X' TO w_sdheadx-purch_date,
             'X' TO w_sdheadx-req_date_h,
             'X' TO w_sdheadx-purch_no_c.
    ENDAT.
**Transferring Item Details
    MOVE : w_socreate02-posnr TO w_itemin-itm_number,
           w_socreate02-matnr TO w_itemin-material,
           w_socreate02-zmeng TO w_itemin-target_qty.
    APPEND w_itemin TO t_itemin.
    MOVE : w_socreate02-posnr TO w_iteminx-itm_number,
           'I'                TO w_iteminx-updateflag,
           'X'                TO w_iteminx-material,
           'X'                TO w_iteminx-target_qty.
    APPEND w_iteminx TO t_iteminx.
**Transferring Partner Function Details
    CLEAR : w_partnr.
    MOVE : 'AG'                    TO w_partnr-partn_role, "Sold-to-Party
           w_socreate02-sold_party TO w_partnr-partn_numb.
    APPEND w_partnr TO t_partnr.
    CLEAR : w_partnr.
    MOVE : 'WE'                    TO w_partnr-partn_role, "Ship-to-Party
           w_socreate02-ship_party TO w_partnr-partn_numb.
    APPEND w_partnr TO t_partnr.
**Transferring Schedule Line Details
*Schedule Line 1
    CLEAR : w_schedulesin, w_schedulesinx.
    MOVE : w_socreate02-posnr   TO w_schedulesin-itm_number,
           '0001'               TO w_schedulesin-sched_line,
           w_socreate02-edatu01 TO w_schedulesin-req_date,
           w_socreate02-edatu01 TO w_schedulesin-dlv_date,
           w_socreate02-wmeng01 TO w_schedulesin-req_qty.
    APPEND w_schedulesin TO t_schedulesin.
    MOVE : w_socreate02-posnr   TO w_schedulesinx-itm_number,
           '0001'               TO w_schedulesinx-sched_line,
           'I'                  TO w_schedulesinx-updateflag,
           'X'                  TO w_schedulesinx-req_date,
           'X'                  TO w_schedulesinx-dlv_date,
           'X'                  TO w_schedulesinx-req_qty.
    APPEND w_schedulesinx TO t_schedulesinx.
*Schedule Line 2
    IF NOT w_socreate02-wmeng02 IS INITIAL.
      CLEAR : w_schedulesin, w_schedulesinx.
      MOVE : w_socreate02-posnr   TO w_schedulesin-itm_number,
             '0002'               TO w_schedulesin-sched_line,
             w_socreate02-edatu02 TO w_schedulesin-req_date,
             w_socreate02-edatu02 TO w_schedulesin-dlv_date,
             w_socreate02-wmeng02 TO w_schedulesin-req_qty.
      APPEND w_schedulesin TO t_schedulesin.
      MOVE : w_socreate02-posnr   TO w_schedulesinx-itm_number,
             '0002'               TO w_schedulesinx-sched_line,
             'I'                  TO w_schedulesinx-updateflag,
             'X'                  TO w_schedulesinx-req_date,
             'X'                  TO w_schedulesinx-dlv_date,
             'X'                  TO w_schedulesinx-req_qty.
      APPEND w_schedulesinx TO t_schedulesinx.
    ENDIF.
*Schedule Line 3
    IF NOT w_socreate02-wmeng03 IS INITIAL.
      CLEAR : w_schedulesin, w_schedulesinx.
      MOVE : w_socreate02-posnr   TO w_schedulesin-itm_number,
             '0003'               TO w_schedulesin-sched_line,
             w_socreate02-edatu03 TO w_schedulesin-req_date,
             w_socreate02-edatu03 TO w_schedulesin-dlv_date,
             w_socreate02-wmeng03 TO w_schedulesin-req_qty.
      APPEND w_schedulesin TO t_schedulesin.
      MOVE : w_socreate02-posnr   TO w_schedulesinx-itm_number,
             '0003'               TO w_schedulesinx-sched_line,
             'I'                  TO w_schedulesinx-updateflag,
             'X'                  TO w_schedulesinx-req_date,
             'X'                  TO w_schedulesinx-dlv_date,
             'X'                  TO w_schedulesinx-req_qty.
      APPEND w_schedulesinx TO t_schedulesinx.
    ENDIF.
*Schedule Line 4
    IF NOT w_socreate02-wmeng04 IS INITIAL.
      CLEAR : w_schedulesin, w_schedulesinx.
      MOVE : w_socreate02-posnr   TO w_schedulesin-itm_number,
             '0004'               TO w_schedulesin-sched_line,
             w_socreate02-edatu04 TO w_schedulesin-req_date,
             w_socreate02-edatu04 TO w_schedulesin-dlv_date,
             w_socreate02-wmeng04 TO w_schedulesin-req_qty.
      APPEND w_schedulesin TO t_schedulesin.
      MOVE : w_socreate02-posnr   TO w_schedulesinx-itm_number,
             '0004'               TO w_schedulesinx-sched_line,
             'I'                  TO w_schedulesinx-updateflag,
             'X'                  TO w_schedulesinx-req_date,
             'X'                  TO w_schedulesinx-dlv_date,
             'X'                  TO w_schedulesinx-req_qty.
      APPEND w_schedulesinx TO t_schedulesinx.
    ENDIF.
*Schedule Line 5
    IF NOT w_socreate02-wmeng05 IS INITIAL.
      CLEAR : w_schedulesin, w_schedulesinx.
      MOVE : w_socreate02-posnr   TO w_schedulesin-itm_number,
             '0005'               TO w_schedulesin-sched_line,
             w_socreate02-edatu05 TO w_schedulesin-req_date,
             w_socreate02-edatu05 TO w_schedulesin-dlv_date,
             w_socreate02-wmeng05 TO w_schedulesin-req_qty.
      APPEND w_schedulesin TO t_schedulesin.
      MOVE : w_socreate02-posnr   TO w_schedulesinx-itm_number,
             '0005'               TO w_schedulesinx-sched_line,
             'I'                  TO w_schedulesinx-updateflag,
             'X'                  TO w_schedulesinx-req_date,
             'X'                  TO w_schedulesinx-dlv_date,
             'X'                  TO w_schedulesinx-req_qty.
      APPEND w_schedulesinx TO t_schedulesinx.
    ENDIF.
    AT END OF vbeln.
      PERFORM bapi_salesorder.
      CLEAR : t_itemin[], t_iteminx[], t_partnr[],
              t_schedulesin[], t_schedulesinx[],
              sdno, head_flg.
    ENDAT.
  ENDLOOP.
ENDFORM.                    " CREATE_SALES_ORDER
*&      Form  BAPI_SALESORDER
FORM bapi_salesorder.
  CALL FUNCTION 'DIALOG_SET_NO_DIALOG'.
  CALL FUNCTION 'SD_SALESDOCUMENT_CREATE'
    EXPORTING
      sales_header_in       = w_sdhead
      sales_header_inx      = w_sdheadx
      testrun               = p_test
      status_buffer_refresh = 'X'
    IMPORTING
      salesdocument_ex      = sdno
    TABLES
      return                = t_return
      sales_items_in        = t_itemin
      sales_items_inx       = t_iteminx
      sales_partners        = t_partnr
      sales_schedules_in    = t_schedulesin
      sales_schedules_inx   = t_schedulesinx.
  IF p_test <> 'X'.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
  ENDIF.
  IF head_flg = 'T' AND p_test = 'X'.
    WRITE :/40 '** E X E C U T E D - I N - T E S T - M O D E **' COLOR 2.
  ELSEIF head_flg = 'T' AND p_test = ' '.
    WRITE :/40 '** E X E C U T E D - I N - U P D A T E - M O D E **' COLOR 2.
  ENDIF.
  IF head_flg = 'T'.
    SKIP 1.
    ULINE /2(139).
    WRITE :/2 sy-vline,
            3 'Dummy SalesOrder No.' COLOR 1,
           23 sy-vline,
           24 'Generated SalesOrder No.' COLOR 1,
           48 sy-vline,
           49  'Return Message' COLOR 1,
          140 sy-vline.
    ULINE /2(139).
  ENDIF.
  IF sdno IS INITIAL.
    DELETE t_return WHERE type <> 'E'.
    IF NOT t_return[] IS INITIAL.
      LOOP AT t_return INTO w_return WHERE type = 'E'.
        WRITE :/2 sy-vline,
                5 w_socreate02-vbeln,
               23 sy-vline,
               28 sdno,
               48 sy-vline,
               49 w_return-message COLOR 6 INVERSE,
              140 sy-vline.
      ENDLOOP.
    ELSE.
      WRITE :/2 sy-vline,
              5 w_socreate02-vbeln,
             23 sy-vline,
             28 sdno,
             48 sy-vline,
             49 'Sales Order can be processed SUCCESSFULLY' COLOR 7 INVERSE,
            140 sy-vline.
    ENDIF.
  ELSE.
    WRITE :/2 sy-vline,
            5 w_socreate02-vbeln,
           23 sy-vline,
           28 sdno,
           48 sy-vline,
           49 'Sales Order created SUCCESSFULLY !!' COLOR 5 INVERSE,
          140 sy-vline.
  ENDIF.
  ULINE /2(139).
ENDFORM.                    " BAPI_SALESORDER

Answer 1

No reply so closed the thread.