To delete sales order using BAPI_SALESORDER_CHANGE

Question

HI ,
       I am using BAPI_SALESORDER_CHANGE to delete a bulk of order lines for an order.But the issue is...the entries are deleted in VBEP and VBUP tables for all the order lines where in VBAP only few order lines are deleted.This is happening repeatedly.
I am passing data like this...
    CLEAR: l_vbap_inx.
    l_vbap_inx-itm_number            =  t_vbap-posnr.  " will have value
    l_vbap_inx-updateflag            = 'D'.
    APPEND l_vbap_inx.
    CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
         EXPORTING
              salesdocument    = i_vbeln                   "will have order number
              order_header_inx = l_vbak_inx            " will be paased with values 'U'
              order_header_in  = header                 "will not hold any value
              simulation       = i_simulate                  "space
         TABLES
              return           = l_return
              order_item_in    = l_vbap                   "bulk of order lines with 'D' flag
              order_item_inx   = l_vbap_inx
              extensionin      = l_vbap_ext.
can you please suggest on this......
Thanks in advance.

Answer 1

HI ,
Can any one of you please suggest me to amend the below given code which is used to  delete bulk of order lines from VBAP table.presently it is deleting first few order lines from VBAP and all order lines from VBEP and VBUP tables.when i execute the same program for second time  first left out order lines are getting deleted again.So..can any one please check the below code and suggest me something on this.
    REFRESH: l_return, l_vbap, l_vbap_inx, l_vbap_ext.
  IF xorder_delete = 'X'.
    l_vbak_inx-updateflag = 'D'.
Even though all the order lines are to be deleted, the delete complete
order flag says don't delete the header data
    IF i_cleanup = space.
      l_vbak_inx-updateflag = 'U'.
      PERFORM validate_line_count TABLES l_vbap_ext         "iw150709
                                   USING i_vbeln.           "iw150709
    ENDIF.
  ELSE.
    l_vbak_inx-updateflag = 'U'.
    PERFORM validate_line_count TABLES l_vbap_ext           "iw150709
                                 USING i_vbeln.             "iw150709
  ENDIF.
  LOOP AT t_vbap WHERE delete = 'X'.
    CLEAR: l_vbap.
    l_vbap-itm_number                =  t_vbap-posnr.
    APPEND l_vbap.
    CLEAR: l_vbap_inx.
    l_vbap_inx-itm_number            =  t_vbap-posnr.
    l_vbap_inx-updateflag            = 'D'.
    APPEND l_vbap_inx.
    CLEAR: l_vbap_ext, l_extension_vbapx.
    l_vbap_ext-structure             = 'BAPE_VBAPX'.
    l_extension_vbapx-vbeln          =  i_vbeln.
    l_extension_vbapx-posnr          =  t_vbap-posnr.
    l_extension_vbapx-zzco_reason    = 'X'.
    l_vbap_ext+30                    =  l_extension_vbapx.
    APPEND l_vbap_ext.
    CLEAR: l_vbap_ext, l_extension_vbap.
    l_vbap_ext-structure             = 'BAPE_VBAP'.
    l_extension_vbap-vbeln           =  i_vbeln.
    l_extension_vbap-posnr           =  t_vbap-posnr.
    l_extension_vbap-zzco_reason     =  i_reason.
    l_vbap_ext+30                    =  l_extension_vbap.
    APPEND l_vbap_ext.
  ENDLOOP.
Only call BAPI if NOT in test mode.
  IF i_simulate = space.
    CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
         EXPORTING
              salesdocument    = i_vbeln
              order_header_inx = l_vbak_inx
              order_header_in  = header
              simulation       = i_simulate
         TABLES
              return           = l_return
              order_item_in    = l_vbap
              order_item_inx   = l_vbap_inx
              extensionin      = l_vbap_ext.
  ENDIF.
  LOOP AT l_return WHERE type = 'E' OR type = 'A'.
    MOVE-CORRESPONDING l_return TO t_messages.
    t_messages-field = 'VBELN'.
    APPEND t_messages.
  ENDLOOP.
No ERRORs
  IF sy-subrc <> 0.
    IF i_simulate = space.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
           IMPORTING
                return = l_return.
Edited by: manj1325 on Apr 9, 2010 8:19 AM