Problem in Update PO Function module in SRM

Question

Hi all,
I am updating the existing PO with the Function Module 'bbp_po_app_update_po' in SRM system.When i execute this in my program , I am not getting any errors.
After this function module call, I committed using 'Commit work and wait'. But my records are not updated. This function module Contains ''BBP_PD_PO_UPDATE''
function module. It returns the value e_changed = 'X'. But records not updated in table. Please Advice.

Answer 1

Hi
I have built a FM to update the PO with a new line item I am getting the same error "update was terminated" when I executed this FM. I am giving here the code can you suggest something.
FUNCTION Z_ADD_CR_TO_PO.
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(CR_NUMBER) TYPE  CRMT_OBJECT_ID_DB
*"  TABLES
*"      MESSAGES STRUCTURE  BBP_PDS_MESSAGES
DATA: lv_text(80)     TYPE c.
DATA: ls_header_d     LIKE bbp_pds_po_header_d,
      lt_item_d       LIKE bbp_pds_po_item_d OCCURS 0 WITH HEADER LINE,
      lt_account_d    LIKE bbp_pds_acc OCCURS 0 WITH HEADER LINE,
      lt_partner_d    LIKE bbp_pds_partner OCCURS 0 WITH HEADER LINE,
      lt_orgdata_d    LIKE bbp_pds_org OCCURS 0 WITH HEADER LINE,
      lt_status       like   bbp_pds_status occurs 0 with header line ,
      wa_status       type bbp_pds_status,
      new_item_data       LIKE bbp_pds_po_item_d  ,
      new_account_data    LIKE bbp_pds_acc ,
      new_partner_data    LIKE bbp_pds_partner ,
      new_orgdata_data    LIKE bbp_pds_org,
      new_longtext_data   LIKE bbp_pds_longtext,
      new_tax_data        LIKE bbp_pds_tax,
      ls_header_c     LIKE bbp_pds_po_header_ic,
      lt_item_c       LIKE bbp_pds_po_item_icu OCCURS 0 WITH HEADER LINE,
      lt_account_c    LIKE bbp_pds_acc OCCURS 0 WITH HEADER LINE,
      lt_partner_c    LIKE bbp_pds_partner OCCURS 0 WITH HEADER LINE,
      lt_orgdata_c    LIKE bbp_pds_org OCCURS 0 WITH HEADER LINE,
      lt_messages     LIKE bbp_pds_messages OCCURS 0,
      lv_counter      TYPE i,
      lt_longtext_d   LIKE bbp_pds_longtext OCCURS 0 WITH HEADER LINE,
      lt_longtext_c   LIKE bbp_pds_longtext  OCCURS 0 WITH HEADER LINE,
      ls_new_header   LIKE bbp_pds_po_header_d,
      lt_tax like bbp_pds_tax occurs 0 with header line,
      lt_tax_c like bbp_pds_tax occurs 0 with header line,
      changed type c,
      newpoheader type BBP_PDS_PO_HEADER_D.
DAtA :   new_item_guid type crmd_orderadm_i-guid,
          lin type i,
          new_number type i.
tables : crm_jest.
data : status_table type crm_jest occurs 0 with header line,
        original_status like   bbp_pds_status occurs 0 with header line.
data : wa_req_details like zchg_req_details.
data:   no_items(4)  .
data : lineno(4).
IF sy-batch = 'X'.
  MESSAGE i088(sf) WITH 'Beginn des Performancetests'(102).
ENDIF.
CALL FUNCTION 'BBP_PD_PO_GETDETAIL'
  EXPORTING
    i_object_id       = cr_number
    i_attach_with_doc = ' '
    i_with_itemdata   = 'X'
    i_read_be_data    = ' '
  IMPORTING
    e_header          = ls_header_d
  TABLES
    e_item            = lt_item_d
    e_account         = lt_account_d
    e_partner         = lt_partner_d
    e_longtext        = lt_longtext_d
    e_orgdata         = lt_orgdata_d
    e_status          = lt_status
    e_tax             = lt_tax.
IF sy-batch = 'X'.
  MESSAGE i088(sf) WITH 'GetDetail abgeschlossen'(105).
ENDIF.
original_status[] = lt_status[].
describe table lt_status lines  lineno.
*preapring header data....
*Header Data ...
MOVE ls_header_d TO ls_header_c.
*CLEAR ls_header_c-object_id.
*MOVE 'A' TO ls_header_c-guid.
CONCATENATE 'Kopie von PO '(099) ' mit '(101) no_items ' Positionen'(100)
            INTO ls_header_c-description  .
LOOP AT lt_partner_d WHERE p_guid = ls_header_d-guid.
  MOVE-CORRESPONDING lt_partner_d TO lt_partner_c.
  lt_partner_c-p_guid = ls_header_c-guid.
*  CLEAR lt_partner_c-partner_guid.
  APPEND lt_partner_c.
ENDLOOP.
LOOP AT lt_orgdata_d WHERE p_guid = ls_header_d-guid.
  MOVE-CORRESPONDING lt_orgdata_d TO lt_orgdata_c.
*  CLEAR lt_orgdata_c-guid.
  lt_orgdata_c-p_guid = ls_header_c-guid.
  APPEND lt_orgdata_c.
ENDLOOP.
LOOP AT lt_longtext_d WHERE guid = ls_header_d-guid.
  MOVE-CORRESPONDING lt_longtext_d TO lt_longtext_c.
*  CLEAR lt_orgdata_c-guid.
  lt_longtext_c-guid = ls_header_c-guid.
  APPEND lt_longtext_c.
ENDLOOP.
DATA: ls_header_u TYPE  bbp_pds_po_header_u .
MOVE-CORRESPONDING ls_header_c TO ls_new_header.
MOVE-CORRESPONDING ls_new_header TO ls_header_u.
ls_header_u-be_log_system = 'ESAPD12125'.
loop at lt_status.
status_table-objnr = lt_status-p_guid.
status_table-stat = lt_status-stat.
status_table-inact = lt_status-inact.
modify crm_jest from status_table.
endloop.
* Item data ...
* Fill the new item into item table
describe table lt_item_d lines lin.
new_number = lin + 1.
CALL FUNCTION 'GUID_CREATE'
IMPORTING
   EV_GUID_16       = new_item_guid.
new_item_data-guid = new_item_guid.
new_item_data-number_int = new_number.
*move ls_header_u-guid to new_item_data-parent.
new_item_data-description = 'test item'.
new_item_data-category_id = lt_item_d-category_id.
new_item_data-quantity = '2'.
new_item_data-unit = lt_item_d-unit.
new_item_data-subtype = lt_item_d-subtype.
new_item_data-price = '10'.
new_item_data-price_unit = lt_item_d-price_unit.
new_item_data-deliv_date = sy-datum.
new_item_data-product_type = lt_item_d-product_type.
new_item_data-gross_price = '10'.
*new_item_data-be_obj_item = new_number.
new_item_data-be_object_type = lt_item_d-be_object_type.
new_item_data-be_object_id = lt_item_d-be_object_id.
new_item_data-be_plant = lt_item_d-be_plant.
new_item_data-be_pur_group = lt_item_d-be_pur_group.
new_item_data-be_pur_org = lt_item_d-be_pur_org.
new_item_data-be_co_code = lt_item_d-be_co_code.
new_item_data-be_doc_type = lt_item_d-be_doc_type.
new_item_data-be_log_system = 'ESAPD12125'.
new_item_data-src_object_type = 'ZBUS9000'.
append  new_item_data to lt_item_d.
*filling partner data for the new item.
loop at lt_partner_d where p_guid = lt_item_d-guid.
move-corresponding lt_partner_d to new_partner_data.
clear new_partner_data-p_guid.
clear new_partner_data-partner_guid.
move new_item_guid to new_partner_data-p_guid.
append new_partner_data to lt_partner_d.
clear new_partner_data.
endloop.
*filling the account data for the new item.
new_account_data-p_guid = new_item_guid.
new_account_data-distr_perc = '100'.
new_account_data-acc_no = '0001'.
new_account_data-acc_cat = 'NET'.
*new_account_data-g_l_acct = wa_req_details-gl_account.
*new_account_data-network = wa_req_details-acc_number.
new_account_data-g_l_acct = '0000402611'.
new_account_data-network = '000090001903'.
new_account_data-activity = '0010'.
new_account_data-co_area = '1000'.
append new_account_data to lt_account_d.
*filling the tax data
new_tax_data-p_guid = new_item_guid.
new_tax_data-tax_code = 'U1'.
new_tax_data-tax_code_origin = 'F'.
new_tax_data-currency = 'USD'.
append new_tax_data to lt_tax.
*filling Org data for the new item.
loop at lt_orgdata_d where p_guid = lt_item_d-guid.
move-corresponding lt_orgdata_d to new_orgdata_data.
clear new_orgdata_data-p_guid.
clear new_orgdata_data-guid.
move new_item_guid to new_orgdata_data-p_guid.
append new_orgdata_data to lt_orgdata_d.
clear new_orgdata_data.
endloop.
no_items = new_number.
*updation of data to new tables.
loop at lt_item_d.
lv_counter = lv_counter + 1.
MOVE-CORRESPONDING lt_item_d TO lt_item_c.
MOVE ls_header_u-guid TO lt_item_c-parent.
append lt_item_c.
  LOOP AT lt_partner_d WHERE p_guid = lt_item_d-guid.
    MOVE-CORRESPONDING lt_partner_d TO lt_partner_c.
*    CLEAR: lt_partner_c-partner_guid.
    MOVE lt_item_c-guid TO lt_partner_c-p_guid.
    APPEND lt_partner_c.
  ENDLOOP.
  LOOP AT lt_account_d WHERE p_guid = lt_item_d-guid.
    MOVE-CORRESPONDING lt_account_d TO lt_account_c.
*    CLEAR lt_account_c-guid.
    MOVE lt_item_c-guid TO lt_account_c-p_guid.
    APPEND lt_account_c.
  ENDLOOP.
  LOOP AT lt_orgdata_d WHERE p_guid = lt_item_d-guid.
    MOVE-CORRESPONDING lt_orgdata_d TO lt_orgdata_c.
*    CLEAR lt_orgdata_c-guid.
    MOVE lt_item_c-guid TO lt_orgdata_c-p_guid.
    APPEND lt_orgdata_c.
  ENDLOOP.
  LOOP AT lt_longtext_d WHERE guid = lt_item_d-guid.
    MOVE-CORRESPONDING lt_longtext_d TO lt_longtext_c.
*    CLEAR lt_orgdata_c-guid.
    lt_longtext_c-guid = lt_item_c-guid.
    APPEND lt_longtext_c.
  ENDLOOP.
    LOOP AT lt_tax WHERE p_guid = lt_item_d-guid.
    MOVE-CORRESPONDING lt_tax TO lt_tax_c.
*    CLEAR lt_orgdata_c-guid.
   MOVE lt_item_c-guid TO lt_tax_c-p_guid.
    APPEND lt_tax_c.
  ENDLOOP.
*endif.
endloop.
*ENDDO.
CALL FUNCTION 'BBP_PD_PO_UPDATE'
  EXPORTING
    i_park     = 'X'
    i_header   = ls_header_u
  IMPORTING
    E_CHANGED  = changed
    ES_HEADER  = newpoheader
  TABLES
    i_item     = lt_item_c
    i_account  = lt_account_c
    i_partner  = lt_partner_c
    i_longtext = lt_longtext_c
    i_orgdata  = lt_orgdata_c
    e_messages = lt_messages
    i_tax      = lt_tax_c.
messages[] = lt_messages[].
*CALL FUNCTION 'BBP_PD_PO_SAVE'.
CALL FUNCTION 'BBP_PD_PO_SAVE'
EXPORTING
**   IV_WORKITEM_ID               =
**   IV_USERTYPE                  =
   IV_HEADER_GUID               = newpoheader-guid.
* IV_CREATE_HIST_VERSION       = 'X'.
CALL FUNCTION 'BBP_PROCDOC_RESET_BUFFER'.
commit work and wait.
ENDFUNCTION.