ABAP BAPI：BAPI_PRODORD_CREATE 创建生产订单

DATA: ls_order LIKE bapi_pp_order_create,
ls_return LIKE bapiret2,
ls_ornum TYPE aufnr,
ls_type TYPE aufart.

ls_order-material = lv_matnr . "物料
ls_order-plant = zstr_in-werks . "工厂
ls_order-planning_plant = zstr_in-pwerk . "计划工厂
ls_order-order_type = zstr_in-pp_aufart . "订单类型
ls_order-basic_start_date = zstr_in-gstrp . "基本开始日期
ls_order-basic_end_date = zstr_in-gltrp . "基本完成日期
ls_order-quantity = zstr_in-gamng . "订单数量总计
ls_order-routing_group = lv_plnnr . "任务清单组码
ls_order-quantity_uom = lv_gmein. "基本计量单位

CALL FUNCTION 'BAPI_PRODORD_CREATE'
EXPORTING
orderdata = ls_order
IMPORTING
return = ls_return
order_number = ls_ornum
order_type = ls_type.

IF ls_return-type EQ 'E' OR ls_return-type EQ 'A'.
"zstr_out-ztype = 'E'.
"zstr_out-zmess = ls_return-message.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
EXIT.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
WAIT UP TO 1 SECONDS.
ENDIF.