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