Deletion of schedule line in PO using BAPI_PO_CHANGE

Question

Hi ,
Can anyone give me the code to delete a schedule line in a po using the bapi bapi_po_change.
Useful answers will be rewarded.
Regards,
Sowmya.

Answer 1

Hi,
Refer below code
*&      Form  sub_populate_data
      text
FORM sub_populate_data .
*--Local Variables
  DATA : l_ipdate      TYPE rc65a-datefrom,
         l_fdate       TYPE sy-datum.
  IF NOT it_succ_file[] IS INITIAL.
    LOOP AT it_succ_file INTO st_succ_file.
      st_ipfile = st_succ_file.
*--Sales Document
      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          input  = st_ipfile-vbeln
        IMPORTING
          output = st_salesdoc.
      st_ord_headx-updateflag = c_u.
*--Sales Document Item
      st_schedule_line-itm_number = st_ipfile-posnr.
      st_schedule_linex-itm_number = st_ipfile-posnr.
      st_schedule_linex-updateflag = c_i.
*--Schedule line date
      l_ipdate = st_ipfile-edatu.
*--Call function module to convert the date format into current user format
      CALL FUNCTION 'CY_CONVERT_DATE'
        EXPORTING
          date_string_imp = l_ipdate
        IMPORTING
          date_exp        = l_fdate.
      st_schedule_line-dlv_date = l_fdate.
      st_schedule_linex-dlv_date = c_chk.
      st_schedule_line-req_date = l_fdate.
      st_schedule_linex-req_date = c_chk.
*--Order quantity in sales units
      st_schedule_line-req_qty = st_ipfile-wmeng.
      st_schedule_linex-req_qty = c_chk.
      APPEND st_schedule_line TO it_schedule_line.
      APPEND st_schedule_linex TO it_schedule_linex.
*--Clear
      CLEAR : st_schedule_line,
              st_schedule_linex.
      AT END OF posnr.
*--Perform to delete the existing schedule line
        PERFORM sub_delete_schedule_line.
      ENDAT.
      AT END OF vbeln.
*--Clear
        CLEAR : st_erfile.
        READ TABLE it_erfile INTO st_erfile WITH KEY vbeln = st_ipfile-vbeln
                                                     posnr = st_ipfile-posnr
                                                     BINARY SEARCH.
        IF sy-subrc EQ 0.
          g_error_records = g_error_records + 1.
          g_total_records = g_total_records + 1.
        ELSE.
*--Call the bapi to update sales order schedule line
          PERFORM sub_call_bapi.
        ENDIF.
      ENDAT.
    ENDLOOP.
  ENDIF.
ENDFORM.                    " sub_populate_data
*&      Form  sub_call_bapi
      text
FORM sub_call_bapi.
  g_total_records = g_total_records + 1.
*--Call BAPI to update sales order schedule line for simulation mode
  CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
    EXPORTING
      salesdocument    = st_salesdoc
      order_header_inx = st_ord_headx
      simulation       = c_chk
    TABLES
      return           = it_return
      schedule_lines   = it_schedule_line
      schedule_linesx  = it_schedule_linex.
  IF NOT it_return[] IS INITIAL.
    READ TABLE it_return INTO st_return WITH KEY type = c_e.
    IF sy-subrc EQ 0.
      g_error_records = g_error_records + 1.
    ELSE.
      REFRESH : it_return.
*--Call BAPI to update sales order schedule line
      CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
        EXPORTING
          salesdocument    = st_salesdoc
          order_header_inx = st_ord_headx
        TABLES
          return           = it_return
          schedule_lines   = it_schedule_line
          schedule_linesx  = it_schedule_linex.
    ENDIF.
    LOOP AT it_return INTO st_return
                      WHERE type EQ c_e.
      st_erfile = st_ipfile.
      st_erfile-message = st_return-message.
      APPEND st_erfile TO it_erfile.
      APPEND st_erfile TO it_file.
      CLEAR : st_return.
    ENDLOOP.
  ENDIF.
  IF it_file[] IS INITIAL.
*--Call BAPI transaction commit to change the schedule line
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        wait = c_chk.
  ELSE.
    ROLLBACK WORK.
*--Call BAPI transaction rollback to rollback the schedule line
    CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
  ENDIF.
*--Clear
  CLEAR : st_salesdoc,
          st_ord_headx.
*--Refresh
  REFRESH : it_return,
            it_schedule_line,
            it_schedule_linex.
ENDFORM.                    " sub_call_bapi
Regards,
Prashant