CO01创建生产订单BAPI_PRODORD_CREATE并下达BAPI_PRODORD_RELEASE

生产部门反应创建工单非常慢，是因为SAP创建生产订单时会检查物料，会花费大量时间，其次创建生产订单一次只能根据销售订单一个行项目创建，所以完成一个销售订单的排产就需要更长的时间。

优化建议：
1、OPJK - 关闭物料检查
ATP检查.jpg

2、OPKP - 生产订单创建并下达，一步执行
生产订单下达.jpg

程序代码：

FUNCTION zppfm007.
*"----------------------------------------------------------------------
*"*"本地接口：
*" IMPORTING
*" VALUE(I_HEADER) TYPE ZPPS001 OPTIONAL
*" EXPORTING
*" VALUE(E_MESSAGE) TYPE ZOTS001
*" VALUE(E_AUFNR) TYPE AUFNR
*" TABLES
*" T_ITEM STRUCTURE ZPPS003
*"----------------------------------------------------------------------
DATA:ls_afpo TYPE afpo.
DATA:ls_message TYPE zots001.
DATA:ls_return TYPE bapiret2.
DATA:ls_orderdata TYPE bapi_pp_order_create.
DATA:lv_objnr TYPE jsto-objnr.
DATA:lv_bsark_e TYPE vbkd-bsark_e.
DATA:lv_order_number TYPE aufnr.
DATA:lt_status TYPE TABLE OF jstat WITH HEADER LINE,
lt_orders TYPE TABLE OF bapi_order_key WITH HEADER LINE,
lt_detail_return TYPE TABLE OF bapi_order_return WITH HEADER LINE.
FIELD-SYMBOLS:<fs_item> TYPE zpps003.
PERFORM frm_inputsap_matnr CHANGING i_header-matnr.
PERFORM frm_inputsap_vbeln CHANGING i_header-sales_order.
SELECT SINGLE bsark_e INTO lv_bsark_e FROM vbkd WHERE vbeln = i_header-sales_order.
CASE lv_bsark_e.
WHEN 'A001'.
i_header-order_type = 'SG01'.
WHEN 'A005'.
i_header-order_type = 'SG03'.
WHEN 'A002'.
i_header-order_type = 'SG05'.
WHEN 'A007'.
i_header-order_type = 'SG07'.
WHEN 'A006'.
i_header-order_type = 'SG09'.
WHEN 'A012'.
i_header-order_type = 'SG11'.
WHEN 'A009'.
i_header-order_type = 'SG13'.
WHEN 'A011'.
i_header-order_type = 'SG15'.
WHEN 'A010'.
i_header-order_type = 'SG17'.
WHEN 'A013'.
i_header-order_type = 'SG19'.
WHEN 'A003'.
i_header-order_type = 'SG21'.
WHEN 'A004'.
i_header-order_type = 'SG23'.
ENDCASE.
ls_orderdata-material = i_header-matnr.
ls_orderdata-order_type = i_header-order_type.
ls_orderdata-plant = i_header-plant.
ls_orderdata-planning_plant = i_header-plant.
IF i_header-basic_start_date IS NOT INITIAL .
CONCATENATE i_header-basic_start_date+0(4) i_header-basic_start_date+5(2) i_header-basic_start_date+8(2) INTO ls_orderdata-basic_start_date.
ELSE .
ls_orderdata-basic_start_date = sy-datum.
ENDIF.
IF i_header-basic_end_date IS NOT INITIAL .
CONCATENATE i_header-basic_end_date+0(4) i_header-basic_end_date+5(2) i_header-basic_end_date+8(2) INTO ls_orderdata-basic_end_date.
ELSE .
ls_orderdata-basic_end_date = sy-datum .
ENDIF .
ls_orderdata-quantity = i_header-quantity.
ls_orderdata-sales_order = i_header-sales_order.
ls_orderdata-sales_order_item = i_header-sales_order_item.
ls_orderdata-storage_location = i_header-storage_location.
ls_orderdata-unloading_point = i_header-unloading_point.
*-->生产订单创建
CALL FUNCTION 'BAPI_PRODORD_CREATE'
EXPORTING
orderdata = ls_orderdata
IMPORTING
return = ls_return
order_number = lv_order_number.
IF lv_order_number IS INITIAL.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
e_message-type = 'E'.
e_message-message = ls_return-message.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
*-->修改生产订单组建
IF t_item[] IS NOT INITIAL.
LOOP AT t_item ASSIGNING <fs_item>.
PERFORM frm_inputsap_matnr CHANGING <fs_item>-matnr.
ENDLOOP.
WAIT UP TO 1 SECONDS.
CALL FUNCTION 'ZPPFM010'
EXPORTING
i_aufnr = lv_order_number
IMPORTING
e_message = ls_message
TABLES
t_item = t_item[].
IF e_message-type = 'E'.
MOVE-CORRESPONDING ls_message TO e_message.
e_aufnr = lv_order_number.
EXIT.
ENDIF.
ENDIF.
*-->生产订单下达
WAIT UP TO 1 SECONDS.
CLEAR:lt_orders.
lt_orders-order_number = lv_order_number.
APPEND lt_orders .
CALL FUNCTION 'BAPI_PRODORD_RELEASE'
* IMPORTING
* return = return
TABLES
detail_return = lt_detail_return
orders = lt_orders[].
LOOP AT lt_detail_return WHERE type CA 'AEX'.
IF e_message-message IS INITIAL.
e_message-message = lt_detail_return-message.
ELSE.
e_message-message = e_message-message && '/' && lt_detail_return-message.
ENDIF.
ENDLOOP.
IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK' .
e_message-type = 'E'.
ELSE.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait = 'X'.
e_message-type = 'S'.
e_message-message = '生产订单创建并下达成功'.
e_aufnr = lv_order_number.
ENDIF.
ENDIF.
ENDFUNCTION.
FORM frm_inputsap_matnr CHANGING pc_matnr TYPE char18.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = pc_matnr
IMPORTING
output = pc_matnr
EXCEPTIONS
length_error = 1
OTHERS = 2.
ENDFORM.
FORM frm_inputsap_vbeln CHANGING pc_vbeln TYPE char10.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
input = pc_vbeln
IMPORTING
output = pc_vbeln.
ENDFORM.

复制代码

最好使用STATUS_CHECK来判断生产订单的状态，更方便，更直接。

[BAPI] CO01创建生产订单BAPI_PRODORD_CREATE并下达BAPI_PRODORD_RELEASE

相关帖子

Ta最近发表

快速回帖