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