创建生产订单，创建订单长文本，订单下达
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.