Bapi to return a Sales order (RMA)

Question

Hi guys,
I am trying to do a return using a sales order as reference. I am using:
- BAPI_OUTB_DELIVERY_CREATE_SLS <<< to create a delivery
- BAPI_TRANSACTION_COMMIT <<< to commit my changes
- WS_DELIVERY_UPDATE <<< to PGI
It doesn't produce any errors but when I go to MB52 the stock level does not change. I see in some posts that the correct bapi to post a return for a sales order is: BAPI_CUSTOMERRETURN_CREATE but i'm not sure which parameters i need to set for this bapi. Can you please help? Here's my code so far...
*Create delivery
  CALL FUNCTION 'BAPI_OUTB_DELIVERY_CREATE_SLS'
    IMPORTING
      delivery          = delivery
      num_deliveries    = num_deliveries
    TABLES
      sales_order_items = sales_order_items
      serial_numbers    = serial_numbers
      deliveries        = deliveries
      created_items     = created_items
      extension_out     = extension_out
      return            = return.
*Check for errors
  READ TABLE return INTO wa_return WITH KEY type = 'E'.
  IF sy-subrc EQ 0. "error found
    p_lv_err_flag = 'X'.
    LOOP AT return INTO wa_return WHERE type = 'E'.
      CONCATENATE wa_return-message p_lv_error_message INTO p_lv_error_message SEPARATED BY space.
    ENDLOOP.
    ROLLBACK WORK.
    RETURN.
  ELSE.             "no error found
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      IMPORTING
        return = return_commit.
    IF return_commit-type = 'S' OR return_commit-type IS INITIAL.
      READ TABLE return INTO wa_return WITH KEY type = 'S' id = 'VL'.
      IF sy-subrc = 0.
        p_lv_err_flag = 'S'.
        MOVE wa_return-message TO p_lv_error_message.
      ENDIF.
    ELSE.
      p_lv_err_flag = 'X'.
      MOVE return_commit-message TO p_lv_error_message.
    ENDIF.
  ENDIF.
* Perform picking, confirmation W-M status and PGI.
  CLEAR: vbkok_wa, vbpok_tab.
  REFRESH: vbpok_tab.
* Clearing the implicit lock that mb_create_goods_mvt has. That
* prevents it from bieng called more then once within same LUW.
  PERFORM clear_xcommit IN PROGRAM saplmbwl.
  LOOP AT created_items INTO created_items_wa.
    vbkok_wa-vbeln_vl = created_items_wa-deliv_numb.
    vbkok_wa-vbtyp_vl = 'C'. "order
    vbkok_wa-vbeln = created_items_wa-deliv_numb.
    vbkok_wa-wabuc = 'T'. "returns delivery
    vbpok_wa-vbeln_vl = created_items_wa-deliv_numb.
    vbpok_wa-posnr_vl = created_items_wa-deliv_item.
    vbpok_wa-vbeln = created_items_wa-deliv_numb.
    vbpok_wa-posnn = created_items_wa-deliv_item.
    vbpok_wa-matnr = created_items_wa-material.
*  vbpok_wa-charg = fp_afpo-charg. "batch number???
    READ TABLE p_lt_rma_be INTO ls_rma_be WITH KEY matnr = created_items_wa-material.
    vbpok_wa-werks = ls_rma_be-werks.
    vbpok_wa-taqui = 'X'.
    vbpok_wa-pikmg = created_items_wa-dlv_qty.
    APPEND vbpok_wa TO vbpok_tab.
  ENDLOOP.
  CALL FUNCTION 'WS_DELIVERY_UPDATE'
    EXPORTING
      vbkok_wa                 = vbkok_wa
      synchron                 = 'X'
      delivery                 = delivery_ws
      update_picking           = 'X'
      nicht_sperren            = 'X'
      if_database_update       = '1'
      if_error_messages_send_0 = 'X'
    TABLES
      vbpok_tab                = vbpok_tab
      prot                     = prot.
* Checking if any error in PGI
  READ TABLE prot WITH KEY msgty = 'E' TRANSPORTING NO FIELDS.
  IF sy-subrc EQ 0.
    MESSAGE e046 WITH delivery_ws.
    ROLLBACK WORK.
    RETURN.
  ENDIF.
  READ TABLE prot WITH KEY msgty = 'A' TRANSPORTING NO FIELDS.
  IF sy-subrc EQ 0.
    MESSAGE e046 WITH delivery_ws.
    ROLLBACK WORK.
    RETURN.
  ENDIF.
  COMMIT WORK AND WAIT.

Answer 1

I got past the previous error. I'm now getting the following error:
External number assignment is not defined for document type ZRE
Sales document 0000000018 was not changed
Here's the code:
*& Report  ZTEST_BAPI_RETURN_SALES_ORDER
REPORT  ztest_bapi_return_sales_order.
DATA: return_partners TYPE TABLE OF bapiparnr,
      wa_return_partners TYPE bapiparnr,
      return_header_in TYPE bapisdhd1,
      return_header_inx TYPE bapisdhd1x,
      return_items_in TYPE TABLE OF bapisditm,
      return_items_in_wa TYPE bapisditm,
      return_items_inx TYPE TABLE OF bapisditmx,
      return_schedules_in TYPE TABLE OF bapischdl,
      return_schedules_inx TYPE TABLE OF bapischdlx,
      return TYPE TABLE OF bapiret2,
      wa_return TYPE bapiret2,
      salesdocumentin TYPE bapivbeln-vbeln,
      salesdocument TYPE bapivbeln-vbeln.
DATA: lv_knumv TYPE vbrk-knumv.
DATA: i_konv LIKE konv OCCURS 0 WITH HEADER LINE,
      i_conditions TYPE TABLE OF bapicond WITH HEADER LINE.
salesdocumentin = '0000000018'.
SELECT SINGLE knumv FROM vbrk INTO lv_knumv WHERE vbeln = salesdocumentin.
IF sy-subrc = 0.
  SELECT * FROM konv
  INTO TABLE i_konv
  WHERE knumv = lv_knumv
  AND kposn = '000010'
  AND kschl = 'ZRSK'.
*  AND kschl = 'ZPR0'.
*  AND kschl = 'ZRSK'.
*  AND kschl = 'ZKF1'.
*  AND kschl = 'CTXJ'.
*  AND kschl = 'JRC1'.
*  AND kschl = 'JRC2'.
*  AND kschl = 'VPRS'.
  LOOP AT i_konv.
    i_conditions-itm_number = i_konv-kposn.
    i_conditions-cond_type = i_konv-kschl.
    i_conditions-cond_value = i_konv-kbetr.
    i_conditions-currency = i_konv-waers.
    i_conditions-cond_unit = i_konv-kmein.
    i_conditions-cond_p_unt = i_konv-kpein.
    i_conditions-numconvert = i_konv-kumza.
    i_conditions-denominato = i_konv-kumne.
    i_conditions-condorigin = i_konv-kherk.
    i_conditions-accountkey = i_konv-kvsl1.
    i_conditions-condcntrl = i_konv-ksteu.
    i_conditions-condclass = i_konv-koaid.
    i_conditions-condchaman = i_konv-kmprs.
    APPEND i_conditions.
  ENDLOOP.
ENDIF.
CLEAR: return_header_in, return_header_inx.
return_header_in-price_date = sy-datum.
return_header_in-ref_doc = '0000000018'.
return_header_in-doc_type = 'ZRE'.
return_header_in-sales_org = '1000'.
return_header_in-distr_chan = '10'.
return_header_in-division = '10'.
return_header_in-sales_grp = '110'.
return_header_in-sales_off = '100'.
return_header_in-ship_cond = 'RE'.
return_header_inx-ref_doc = 'X'.
return_header_inx-doc_type = 'X'.
return_header_inx-updateflag = 'I'.
return_items_in_wa-itm_number = '000010'.
return_items_in_wa-material = 'TACKER'.
return_items_in_wa-target_qty = '1'.
APPEND return_items_in_wa TO return_items_in.
wa_return_partners-partn_role = 'AG'.
wa_return_partners-partn_numb = '0000200111'.
*wa_return_partners-itm_number = '000010'.
APPEND wa_return_partners TO return_partners.
CALL FUNCTION 'BAPI_CUSTOMERRETURN_CREATE'
  EXPORTING
    salesdocumentin               = salesdocumentin
    return_header_in              = return_header_in
    return_header_inx             = return_header_inx
  IMPORTING
    salesdocument                 = salesdocument
  TABLES
    return                        = return
    return_items_in               = return_items_in
    return_items_inx              = return_items_inx
    return_partners               = return_partners
    return_schedules_in           = return_schedules_in
    return_schedules_inx          = return_schedules_inx
    return_conditions_in          = i_conditions
LOOP AT return INTO wa_return WHERE type = 'E'.
  WRITE:/ wa_return-message.
ENDLOOP.