Delete a Service in a PO with BAPI_PO_CHANGE

Question

Hi Experts,
I am trying to delete a Service Line using BAPI_PO_CHANGE.
Service line is not getting deleted but the RETURN table is showing a message saying "PO changed"
Please refer the code below.
DATA:
poitem TYPE STANDARD TABLE OF bapimepoitem WITH HEADER LINE,
poitemx TYPE STANDARD TABLE OF bapimepoitemx WITH HEADER LINE,
poservices TYPE STANDARD TABLE OF bapiesllc WITH HEADER LINE,
return TYPE STANDARD TABLE OF bapiret2 WITH HEADER LINE,
poaccount TYPE STANDARD TABLE OF bapimepoaccount WITH HEADER LINE,
poaccountx TYPE STANDARD TABLE OF bapimepoaccountx WITH HEADER LINE,
posrvaccessvalues TYPE STANDARD TABLE OF bapiesklc WITH HEADER LINE.
poitem-po_item = '10'.
poitem-pckg_no = '0000001329'.
poitem-item_cat = '0'.
APPEND poitem.
poitemx-po_item = '10'.
poitemx-po_itemx = 'X'.
poitemx-pckg_no = 'X'.
poitemx-item_cat = 'X'.
APPEND poitemx.
poservices-pckg_no = '0000001329'.
poservices-line_no = '0000000001'.
poservices-ext_line = '0000000010'.
poservices-service = '000000000005000010'.
poservices-subpckg_no = '0000000000'.
poservices-delete_ind = 'X'.
APPEND poservices.
CALL FUNCTION 'BAPI_PO_CHANGE'
EXPORTING
purchaseorder = '7200000017'
TABLES
return = return[]
poitem = poitem[]
poitemx = poitemx[]
poservices = poservices[].
BREAK-POINT.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Thanks,
Revanth
Edited by: Revnath on Jul 5, 2011 11:37 AM

Answer 1

Hi Edith,
Thank you very much for your reply.
I changed my program by following your steps in the reply. Now the BAPI is showing error messages: "Instance 7200000060 of object type PurchaseOrder could not be changed" and "Price without service not allowed".
Please refer my code below.
poitem-po_item = '0010'.
poitem-pckg_no = '0000001964'.
poitem-item_cat = '9'.
APPEND poitem.
poitemx-po_item = '10'.
poitemx-po_itemx = 'X'.
poitemx-pckg_no = 'X'.
poitemx-item_cat = 'X'.
APPEND poitemx.
Parent line
poservices-pckg_no = '0000001964'.
poservices-line_no = '0000000001'.
poservices-ext_line = '0000000000'.
poservices-subpckg_no = '0000001965'.
poservices-matl_group = '01040107'.
*poservices-delete_ind = 'X'.
*poservices-quantity = ' '.
*poservices-base_uom = ' '.
*poservices-gr_price = ' '.
APPEND poservices.
CLEAR: poservices.
Child line.
poservices-pckg_no = '0000001965'.
poservices-line_no = '0000000002'.
poservices-ext_line = '0000000010'.
poservices-quantity = '1'.
poservices-service = '000000000005000010'.
poservices-base_uom = 'EA'.
poservices-gr_price = '150'.
poservices-subpckg_no = '0000000000'.
poservices-matl_group = '01040107'.
poservices-delete_ind = 'X'.
APPEND poservices.
CALL FUNCTION 'BAPI_PO_CHANGE'
  EXPORTING
    purchaseorder = '7200000060'
  TABLES
    return        = return[]
    poitem        = poitem[]
    poitemx       = poitemx[]
    poservices    = poservices[]
    posrvaccessvalues = posrvaccessvalues[].
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
Regards,
Revanth