創建生產訂單函數BAPI_PRODORD_CREATE

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

 

DATA:gs_bapi_pp_order_create TYPE bapi_pp_order_create.
   DATA:gt_bapi_order_key TYPE TABLE OF bapi_order_key,
        gs_bapi_order_key TYPE          bapi_order_key,
        gt_order_return   TYPE TABLE OF bapi_order_return WITH HEADER LINE.
   DATA:gs_return       TYPE bapiret2,
        gt_return       TYPE bssp_t_message,
        gw_return       TYPE bssp_s_message,
        gv_order_number TYPE bapi_order_key-order_number.
   DATA:gt_tline TYPE TABLE OF tline,
        gw_tline TYPE          tline.
   CLEAR:gt_return[],gs_return.
   DATA:gs_keko TYPE keko.
   DATA:gv_message TYPE string.

   DATA:lv_int TYPE i.
   DATA:g_fname TYPE thead-tdname.
   CLEAR:lv_int.
   LOOP AT gt_zstybcp INTO gw_zstybcp WHERE sel = 'X' AND aufnr = ''.
     lv_int = lv_int + 1.
     "add by ly 20151124
     SELECT SINGLE * INTO CORRESPONDING FIELDS OF gs_keko
       FROM keko WHERE matnr = gw_zstybcp-matnr
       AND werks = gw_zstybcp-werks
       AND bwkey = gw_zstybcp-werks
       AND kadat LE sy-datum
       AND bidat GE sy-datum
       AND freig = 'X'.
     IF sy-subrc <> 0.
       gv_message = gv_message && ' ' && gw_zstybcp-matnr.
*       MESSAGE '物料' && gw_zstybcp-matnr && '請先下達標准成本估算！' TYPE 'S' DISPLAY LIKE 'E'.
       EXIT.
     ENDIF.
     "add by ly 20151124
   ENDLOOP.
   "僅限選擇一行，且選擇行中的辦成品油已生成生產訂單，直接調用T-code 到修改界面

   IF gv_message IS INITIAL.
   ELSE.
     MESSAGE '物料' && gv_message && '未下達標准成本估算！' TYPE 'S' DISPLAY LIKE 'E'.
     EXIT.
   ENDIF.

   IF lv_int <> 0.

   ELSE.
     MESSAGE '請選擇調油半成品生產訂單為空的行項目！' TYPE 'S' DISPLAY LIKE 'E'.
     EXIT.
   ENDIF.
* PERFORM PRM_DATA_CHECK.
   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 = '@OA@'.
       gw_zstybcp-message = gs_return-message.
     ELSE.
*       CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
*         EXPORTING
*           wait = 'X'.
       gw_zstybcp-icon = '@08@'.
       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.

* IF GT_RETURN[] IS NOT INITIAL."消息顯示
*   CALL FUNCTION 'BSSP2_MESSAGE_POPUP'
*     EXPORTING
*       IT_MESSAGE              = GT_RETURN
*       IF_SAVE_NECESSARY       = ''.
* ENDIF.