创建生产订单函数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 + .
     "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 <> .
       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 <> .

   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 =
         OTHERS         = .
     IF sy-subrc <> .
     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 = .
       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   =
           no_save   =
           OTHERS    = .
       IF sy-subrc <> .
       ENDIF.
       IF sy-subrc = .
         CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
           EXPORTING
             wait = 'X'.
       ELSE.
         CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

       ENDIF.

       WAIT UP TO  SECONDS.
       UPDATE aufk SET ltext = '' 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 <> .
*         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.