建立生產訂單函數BAPI_PRODORD_CREATE

標籤：

建立生產訂單，建立訂單長文本，訂單下達

 

   LOOP AT gt_zstybcp INTO gw_zstybcp WHERE sel = ‘X‘ AND aufnr = ‘‘."ADD BY 20150716 LY FOR 大量建立     CLEAR:gs_return,gw_return,gt_order_return[],gt_bapi_order_key[],gs_bapi_order_key.     gs_bapi_pp_order_create-material = gw_zstybcp-matnr."訂單物料號     gs_bapi_pp_order_create-plant = gw_zstybcp-werks."訂單工廠     gs_bapi_pp_order_create-planning_plant = gw_zstybcp-werks."計劃工廠     gs_bapi_pp_order_create-basic_start_date = gw_zstybcp-gstrp."基礎開始日期     gs_bapi_pp_order_create-basic_end_date = gw_zstybcp-gstrp."基準解釋日期     gs_bapi_pp_order_create-quantity = gw_zstybcp-bdmng."訂單數量     CALL FUNCTION ‘CONVERSION_EXIT_CUNIT_INPUT‘ "單位       EXPORTING         input          = gw_zstybcp-meins*        LANGUAGE       = SY-LANGU       IMPORTING         output         = gs_bapi_pp_order_create-quantity_uom       EXCEPTIONS         unit_not_found = 1         OTHERS         = 2.     IF sy-subrc <> 0.     ENDIF.*   GS_BAPI_PP_ORDER_CREATE-QUANTITY_UOM = GW_ZSTYBCP-MEINS."單位     gs_bapi_pp_order_create-goods_recipient = gw_zstybcp-wempf."收貨方*   GS_BAPI_PP_ORDER_CREATE-GOODS_RECIPIENT = GW_ZSTYBCP-MEINS.     gs_bapi_pp_order_create-order_type = ‘DL02‘.     "調用訂單建立函數建立調油半成品生產訂單     CALL FUNCTION ‘BAPI_PRODORD_CREATE‘       EXPORTING         orderdata    = gs_bapi_pp_order_create       IMPORTING         return       = gs_return         order_number = gv_order_number.     IF gs_return-type IS NOT INITIAL."訊息填表       gw_return-msgid = gs_return-id.       gw_return-msgty = gs_return-type.       gw_return-msgno = gs_return-number.       gw_return-msgv1 = gs_return-message_v1.       gw_return-msgv2 = gs_return-message_v2.       gw_return-msgv3 = gs_return-message_v3.       gw_return-msgv4 = gs_return-message_v4.       APPEND gw_return TO gt_return.     ENDIF.*    APPEND GS_RETURN TO GT_RETURN."訊息填表     IF gs_return-type = ‘E‘ OR gs_return = ‘A‘.       CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.       gw_zstybcp-icon = ‘@[email protected]‘.       gw_zstybcp-message = gs_return-message.     ELSE.       CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘         EXPORTING           wait = ‘X‘.       gw_zstybcp-icon = ‘@[email protected]‘.       gw_zstybcp-message = ‘成功建立調油半成品生產訂單‘.       gw_zstybcp-aufnr = gv_order_number.       gw_zstybcp-psmng = gw_zstybcp-bdmng.       gw_zstybcp-amein = gw_zstybcp-meins.       CONCATENATE sy-mandt gv_order_number INTO g_fname.       gw_tline-tdformat = 1.       gw_tline-tdline = gw_zstybcp-ztiay.       APPEND gw_tline TO gt_tline.       CALL FUNCTION ‘CREATE_TEXT‘         EXPORTING           fid       = ‘KOPF‘           flanguage = sy-langu           fname     = g_fname           fobject   = ‘AUFK‘         TABLES           flines    = gt_tline         EXCEPTIONS           no_init   = 1           no_save   = 2           OTHERS    = 3.       IF sy-subrc <> 0.       ENDIF.       IF sy-subrc = 0.         CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘           EXPORTING             wait = ‘X‘.       ELSE.         CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.       ENDIF.       WAIT UP TO 1 SECONDS.       UPDATE aufk SET ltext = ‘1‘ WHERE aufnr = gv_order_number.       COMMIT WORK.       gs_bapi_order_key-order_number = gv_order_number.       APPEND gs_bapi_order_key TO gt_bapi_order_key.       "ADD BY LY 20150610訂單下達       CALL FUNCTION ‘BAPI_PRODORD_RELEASE‘*         EXPORTING*           RELEASE_CONTROL          = ‘1‘*           WORK_PROCESS_GROUP       = ‘COWORK_BAPI‘*           WORK_PROCESS_MAX         = 99*         IMPORTING*           RETURN                   =         TABLES           orders        = gt_bapi_order_key           detail_return = gt_order_return.       READ TABLE gt_order_return WITH KEY type = ‘E‘.       IF sy-subrc <> 0.         CALL FUNCTION ‘BAPI_TRANSACTION_COMMIT‘           EXPORTING             wait = ‘X‘.       ELSE.         CALL FUNCTION ‘BAPI_TRANSACTION_ROLLBACK‘.         CONCATENATE ‘訂單‘ gv_order_number ‘下達失敗，請手動下達！‘ INTO gw_return-msgv1.         MESSAGE gw_return-msgv1  TYPE ‘S‘ DISPLAY LIKE ‘E‘.       ENDIF.     ENDIF.     MODIFY gt_zstybcp FROM gw_zstybcp.   ENDLOOP.

 

建立生產訂單函數BAPI_PRODORD_CREATE