LB01创建转移请求

2020-08-13 18:41发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨,我需要使用BAPI而不是LB...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

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


嗨,我需要使用BAPI而不是LB01创建TR。

您可以使用以下代码创建它。

*&--------------------------------------------- ------------------------ *
*&报告ZL_TR_CREATE
*&------------- -------------------------------------------------- ------ *
*&
*&--------------------------------- ------------------------------------ *
报告zl_tr_create。

数据 :lv_error像sy-subrc。

数据:lt_ltba像ltba的表。
DATA:lw_ltba像ltba。

DATA i_update_task类型rl02a-verbu值'X'。
数据i_commit_work类型rl02a-commi值'X'。

lw_ltba-tabix ='1'。
lw_ltba-lgnum ='ZWH'。
lw_ltba-matnr ='70000570'。
lw_ltba-werks ='Z110'。
lw_ltba-lgort ='WARE'.lw_ltba-menga ='1.000'。
lw_ltba-betyp ='D'。
lw_ltba-benum ='4500019789 '。
lw_ltba-bwlvs ='521'。
APPEND lw_ltba到lt_ltba。

呼叫功能'L_TR_CREATE_CHECK'
导出
i_number ='X'
i_single_item =' X'
表格
t_ltba = lt_ltba
例外情况
ITEM_ERROR =1。


CALL FUNCTION'L_TR_CREATE'
导出
i_si ngle_item ='X'
i_save_only_all ='X'
i_update_task ='X'
i_commit_work =''
桌子
t_ltba = lt_ltba
例外情况
item_error = 1
no_entry_in_int_table = 2
item_without_number = 3
no_update_item_error = 4
error_message = 5
其他=99。

Case sy-subrc。
当1.
写时 :'item_error'。
何时2.
写:'no_entry_in_int_table'。
当3.
写:'item_without_number'。
当4.
写:'no_update_item_error'。
ENDCASE。

呼叫功能'L_TR_CREATE_UPDATE'
导出
i_update_task = i_update_task
i_commit_work = i_commit_work
EXCEPTIONS
NO_ENTRY_IN_INT_TABLE = 1
ITEM_WITHOUT/p>