点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

大家好

我想知道如何在IBASE结构中添加或删除材料组件。 我正在使用带有以下代码的FM：IBPP_CHANGE_IBASE，但是它在前台运行时的作用是在IB52中打开结构，并提示用户手动保存更改。 以下代码用于添加组件，我确定如何删除组件。

 *＆---------------------------------------------  ------------------------ *
 *＆报告ZTEST25
 *＆------------------------------------------------  --------------------- *
 *＆
 *＆------------------------------------------------  --------------------- *
 报告ztest25。

 数据：lv_saved TYPE ibxx_bool，
       lv_ibase TYPE ib_ibase，
       lt_ibase TYPE ibpp_structure_tab，
       ls_ibase TYPE ibpp_structure_rec，
       lt_sernr类型ibpp_sernr_tab，
       ls_sernr类型ibpp_sernr_rec。

 清除：ls_ibase，ls_sernr。
 ls_ibase-indx ='00000000001'。
 ls_ibase-parent ='00000000000'。
 ls_ibase-matnr ='A9B10254171'。
 * ls_ibase-posnr ='0020'。
 ls_ibase-menge ='1'。
 ls_ibase-meins ='PC'。
 附加ls_ibase至lt_ibase。
 清除ls_ibase。
 ls_ibase-indx ='00000000002'。
 ls_ibase-parent ='00000000001'。
 ls_ibase-matnr ='A9B10254133'。
 * ls_ibase-posnr ='0020'。
 ls_ibase-menge ='1'。
 ls_ibase-meins ='EA'。
 附加ls_ibase至lt_ibase。

 ls_sernr-matnr ='A9B10254133'。
 ls_sernr-sernr ='000000000000000111'。
 ls_sernr-indx ='00000000004'。
 附加ls_sernr至lt_sernr。
 清除ls_sernr。
 ls_sernr-matnr ='A9B10254171'。
 ls_sernr-sernr ='000000000000000103'。
 ls_sernr-indx ='00000000001'。
 附加ls_sernr至lt_sernr。
 清除ls_sernr。


 通话功能'IBPP_CHANGE_IBASE'
   出口
     i_struc_ibase_tab = lt_ibase
     i_sernr_tab = lt_sernr
     i_subord_sernr = abap_true
 * i_del_subord = abap_true
     i_change = abap_true
     i_commit_wait = abap_true
     i_check_master_data =空间
   输入
     e_ibase = lv_ibase
     e_saved = lv_saved
   例外情况
     data_not_consistent = 1
     no_top_object = 2
     ibase_not_exist = 3
     sernr_not_possible = 4
     top_is_no_serialno = 5
     more_than_one_top = 6
     其他= 7。
 如果sy-subrc = 0。
   通话功能'IBPP_IBASE_SAVED'
     出口
       i_saved = abap_true。
 *在这里实施适当的错误处理
 ENDIF。