Anil，

我不确定这是否有帮助，但是下面是我的一些旧代码：

   ls_method-refnumber ='000001'。
   ls_method-objecttype ='PARTNER'。

   从ihpa选择单个*，其中objnr = aufk-objnr和parvw ='AG'。
   如果sy-subrc = 0。
     ls_method-method ='CHANGE'。
   其他。
     ls_method-method ='创建'。
   万一。

   ls_method-objectkey = p_aufnr。
   将ls_method附加到lt_method。
   清除ls_method。
   清除lv_objectkey。
   lv_objectkey = p_aufnr。
   ls_method-refnumber ='000002'。
   ls_method-method ='保存'。
   ls_method-objectkey = lv_objectkey。
   将ls_method附加到lt_method。
  
   ls_partner-orderid = gv_aufnr。
   ls_partner-partn_role ='AG'。
   ls_partner-partner = gv_kunum_new。

   如果不是，则为ihpa-parnr。
     ls_partner-partn_role_old ='AG'。
     ls_partner-partner_old = gv_kunum_old。
   万一。
   将ls_partner附加到lt_partner。
  
   调用函数" BAPI_ALM_ORDER_MAINTAIN"
     表it_methods = lt_method
     it_partner = lt_partner
     return = lt_return。

   调用函数" BAPI_TRANSACTION_COMMIT"
      导出wait ='X'。