FORM frm_execute . CLEAR:gw_return, gt_return,gw_gb008,gw_gb008_i,gt_gb008,gt_gb008_i. PERFORM frm_check_input. PERFORM frm_get_basic_data. " LOOP AT gt_output INTO gw_output. CLEAR g_err_flag. IF p_fl EQ 'X'. PERFORM frm_create_sto_po. "创建STO采购订单 IF g_err_flag NE 'X'. PERFORM frm_create_delivery. "创建交货单 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_vl02n_post. "交货单发货过账 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_goodsmvt_create. "MIGO采购入库 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_prodorder_ltl . "生产订单领料 ENDIF. ELSEIF p_tl EQ 'X'. PERFORM frm_prodorder_ltl . "生产订单退料 IF g_err_flag NE 'X'. PERFORM frm_create_sto_po. "创建STO采购订单 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_create_delivery. "创建交货单 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_vl02n_post. "交货单发货过账 ENDIF. IF g_err_flag NE 'X'. PERFORM frm_goodsmvt_create. "MIGO采购入库 ENDIF. ENDIF. "解锁 PERFORM frm_unlock. PERFORM frm_save_jg. ENDFORM. " FRM_EXECUTE
FORM frm_create_sto_po . DATA:lt_return LIKE TABLE OF bapiret2, lw_return TYPE bapiret2. DATA:l_ebelp TYPE ekpo-ebelp. CLEAR:g_msg,g_ebeln,g_vbeln,g_mblnr1,g_mblnr2 . REFRESH:gt_poitem,gt_poitemx,gt_poschedule,gt_poschedulex, gt_poaccount,gt_poaccountx,gt_potextitem , gt_poheader,gt_poheaderx. CLEAR:gw_poitem,gw_poitemx,gw_poschedule,gw_poschedulex, gw_poaccount,gw_poaccountx,gw_potextitem , gw_poheader,gw_poheaderx. "po header gw_poheader-doc_type = 'DL05'. gw_poheader-vendor = '0020200200'. gw_poheader-purch_org = 'DL01'. gw_poheader-pur_group = 'A04'."'A04'. gw_poheader-comp_code = '2001'. gw_poheader-doc_date = sy-datum. gw_poheader-langu = sy-langu. gw_poheader-currency = 'CNY'."货币 gw_poheaderx-doc_type = 'X'. gw_poheaderx-vendor = 'X'. gw_poheaderx-purch_org = 'X'. gw_poheaderx-pur_group = 'X'. gw_poheaderx-comp_code = 'X'. gw_poheaderx-doc_date = 'X'. gw_poheaderx-langu = 'X'. gw_poheaderx-currency = 'X'."货币 l_ebelp = 10. LOOP AT gt_output INTO gw_output WHERE matnr IS NOT INITIAL. CLEAR gw_mara. READ TABLE gt_mara INTO gw_mara WITH KEY matnr = gw_output-matnr BINARY SEARCH. CLEAR:gw_a017,gw_konp. READ TABLE gt_a017 INTO gw_a017 WITH KEY matnr = gw_output-matnr BINARY SEARCH. IF sy-subrc = 0. READ TABLE gt_konp INTO gw_konp WITH KEY knumh = gw_a017-knumh BINARY SEARCH. ENDIF. "po ITEM gw_poitem-po_item = l_ebelp. "采购凭证的项目编号 gw_poitem-material = gw_output-matnr. gw_poitem-quantity = gw_output-psmng."采购订单数量 gw_poitem-po_unit = gw_output-meins ."采购订单的计量单位 gw_poitem-net_price = gw_konp-kbetr."净价 gw_poitem-price_unit = '1'. "gw_konp-KPEIN. gw_poitem-tax_code = 'J2'. gw_poitem-matl_group = gw_mara-matkl."物料组 gw_poitem-plant = '2001'. "工厂 gw_poitem-stge_loc = gw_output-lgort. "库存地点 " gw_poitem-info_rec = '5300000076'. IF p_tl EQ 'X'. gw_poitem-ret_item = 'X'."退货项目 ENDIF. APPEND gw_poitem TO gt_poitem. CLEAR gw_poitem. gw_poitemx-po_item = l_ebelp. "采购凭证的项目编号 gw_poitemx-material = 'X'. gw_poitemx-quantity = 'X'."采购订单数量 gw_poitemx-po_unit = 'X' ."采购订单的计量单位 gw_poitemx-net_price = 'X'."净价 gw_poitemx-price_unit = 'X'. gw_poitemx-tax_code = 'X'. gw_poitemx-matl_group = 'X'."物料组 gw_poitemx-plant = 'X'."工厂 gw_poitemx-stge_loc = 'X'. gw_poitemx-info_rec = 'X'. IF p_tl EQ 'X'. gw_poitemx-ret_item = 'X'."退货项目 ENDIF. APPEND gw_poitemx TO gt_poitemx. CLEAR gw_poitemx. "交货数据 gw_poschedule-po_item = l_ebelp. "采购凭证的项目编号 gw_poschedule-sched_line = '1'. "采购凭证的项目编号 gw_poschedule-del_datcat_ext = 'D'."交货日期的类别 gw_poschedule-delivery_date = sy-datum."交货日期 gw_poschedule-quantity = gw_output-psmng."采购订单数量 APPEND gw_poschedule TO gt_poschedule. CLEAR gw_poschedule. gw_poschedulex-po_item = l_ebelp. "采购凭证的项目编号 gw_poschedulex-sched_line = '1'. "采购凭证的项目编号 gw_poschedulex-del_datcat_ext = 'X'."交货日期的类别 gw_poschedulex-delivery_date = 'X'."交货日期 gw_poschedulex-quantity = 'X'."采购订单数量 APPEND gw_poschedulex TO gt_poschedulex. CLEAR gw_poschedulex. "条件数据 gw_pocond-itm_number = l_ebelp. "(item number) gw_pocond-cond_type = 'ZB21'. "(condition type) gw_pocond-cond_value = '13'. "(condition value) gw_pocond-currency = '%'. gw_pocond-change_id = 'U'. gw_pocond-condclass = 'A'. gw_pocond-calctypcon = 'A'. APPEND gw_pocond TO gt_pocond. CLEAR gw_pocond. gw_pocondx-itm_number = l_ebelp. gw_pocondx-itm_numberx = 'X'. gw_pocondx-cond_type = 'X'. gw_pocondx-cond_value = 'X'. gw_pocondx-currency = 'X'. gw_pocondx-condclass = 'X'. gw_pocondx-change_id = 'X'. gw_pocondx-calctypcon = 'X'. APPEND gw_pocondx TO gt_pocondx. CLEAR gw_pocondx. * gw_pocond-itm_number = l_ebelp. "(item number) * gw_pocond-cond_type = 'PB00'. "(condition type) * gw_pocond-cond_value = gw_konp-kbetr. "(condition value) * gw_pocond-currency = gw_konp-konwa. * gw_pocond-cond_p_unt = 1. * gw_pocond-condclass = 'B'. * gw_pocond-calctypcon = 'C'. * gw_pocond-change_id = 'I'. * APPEND gw_pocond TO gt_pocond. * * gw_pocondx-itm_number = l_ebelp. * gw_pocondx-itm_numberx = 'X'. * gw_pocondx-cond_type = 'X'. * gw_pocondx-cond_value = 'X'. * gw_pocondx-currency = 'X'. * gw_pocondx-cond_p_unt = 'X'. * gw_pocondx-condclass = 'X'. * gw_pocondx-calctypcon = 'X'. * gw_pocondx-change_id = 'X'. * APPEND gw_pocondx TO gt_pocondx. l_ebelp = l_ebelp + 10. ENDLOOP. sy-tcode = 'ME21N'. CALL FUNCTION 'BAPI_PO_CREATE1' EXPORTING poheader = gw_poheader poheaderx = gw_poheaderx IMPORTING exppurchaseorder = g_ebeln TABLES return = lt_return poitem = gt_poitem poitemx = gt_poitemx " poschedule = gt_poschedule " poschedulex = gt_poschedulex " POCONDHEADER = " POCONDHEADERX = pocond = gt_pocond pocondx = gt_pocondx. LOOP AT lt_return INTO lw_return WHERE type = 'E' OR type = 'A'. EXIT. ENDLOOP. IF sy-subrc = 0. g_err_flag = 'X'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. gw_return-type = 'E'. gw_return-message = '采购定单创建失败,原因如下：'. APPEND gw_return TO gt_return. CLEAR gw_return. DELETE lt_return WHERE type NE 'E'. APPEND LINES OF lt_return TO gt_return. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CONCATENATE '采购订单号：' g_ebeln INTO g_msg. gw_return-type = 'S'. gw_return-message = g_msg. APPEND gw_return TO gt_return. CLEAR gw_return. ENDIF. WAIT UP TO 1 SECONDS. ENDFORM. " FRM_CREATE_STO_PO
FORM frm_create_delivery . DATA:l_vstel TYPE vstel, l_ledat TYPE ledat, lt_sto_items TYPE shp_sto_itm_t, lw_sto_item TYPE shp_sto_itm, lt_dlv_items TYPE shp_dlv_itm_t, lw_dlv_item TYPE shp_dlv_itm, lt_message TYPE vbfs_t, lw_message TYPE vbfs. DATA:l_ebelp TYPE ekpo-ebelp. SELECT SINGLE vstel INTO l_vstel" = 'Z030'. FROM ekpv WHERE ebeln = g_ebeln. l_ledat = sy-datum. l_ebelp = 10. LOOP AT gt_output INTO gw_output WHERE matnr IS NOT INITIAL. lw_sto_item-rfbel = g_ebeln. lw_sto_item-rfpos = l_ebelp. lw_sto_item-lfimg = gw_output-psmng. lw_sto_item-vrkme = gw_output-meins. APPEND lw_sto_item TO lt_sto_items. l_ebelp = l_ebelp + 10. ENDLOOP. CALL FUNCTION 'SHP_DELIVERY_CREATE_FROM_STO' EXPORTING if_vstel = l_vstel if_ledat = l_ledat it_sto_items = lt_sto_items IMPORTING et_dlv_items = lt_dlv_items et_messages = lt_message. CLEAR g_msg. READ TABLE lt_dlv_items INTO lw_dlv_item INDEX 1. IF lw_dlv_item-vbeln IS NOT INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. g_vbeln = lw_dlv_item-vbeln. CONCATENATE '交货单号：' g_vbeln INTO g_msg. gw_return-type = 'S'. gw_return-message = g_msg. APPEND gw_return TO gt_return. CLEAR gw_return. ELSE. g_err_flag = 'X'. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. gw_return-type = 'E'. gw_return-message = '交货单创建失败,原因如下：'. APPEND gw_return TO gt_return. CLEAR gw_return. LOOP AT lt_message INTO lw_message WHERE msgty = 'E'. gw_return-type = lw_message-msgty. gw_return-id = lw_message-msgid. gw_return-number = lw_message-msgno. gw_return-message_v1 = lw_message-msgv1. gw_return-message_v2 = lw_message-msgv2. gw_return-message_v3 = lw_message-msgv3. gw_return-message_v4 = lw_message-msgv4. MESSAGE ID gw_return-id TYPE gw_return-type NUMBER gw_return-number INTO gw_return-message WITH gw_return-message_v1 gw_return-message_v2 gw_return-message_v3 gw_return-message_v4. APPEND gw_return TO gt_return. CLEAR gw_return. ENDLOOP. ENDIF. WAIT UP TO 1 SECONDS. ENDFORM. " FRM_CREATE_DELIVERY
FORM frm_vl02n_post . DATA: lv_wadat_ist LIKE likp-wadat_ist. DATA: lw_vbkok LIKE vbkok. DATA: lv_error TYPE xfeld. DATA: lw_vbpok LIKE vbpok, lw_prot LIKE prott. DATA: lt_vbpok LIKE STANDARD TABLE OF vbpok, lt_prot LIKE STANDARD TABLE OF prott. DATA: lv_msg TYPE string. DATA: lw_werks LIKE lips-werks. DATA:lv_check TYPE c. DATA:lt_lips TYPE TABLE OF lips, lw_lips TYPE lips. CLEAR: lw_vbkok. "交货单上面的实际发货日期 WADAT_IST CLEAR: lv_wadat_ist. SELECT SINGLE wadat_ist INTO lv_wadat_ist FROM likp WHERE likp~vbeln = g_vbeln. SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_lips FROM lips WHERE vbeln = g_vbeln. IF lv_wadat_ist IS NOT INITIAL. lw_vbkok-wadat_ist = lv_wadat_ist. "实际货物移动日期 lw_vbkok-wadat = lv_wadat_ist. "发货日期 即过账日期 ENDIF. "客户输入了过账日期，则最优先 IF p_gzrq IS NOT INITIAL. lw_vbkok-wadat_ist = p_gzrq. "实际货物移动日期 lw_vbkok-wadat = p_gzrq. "发货日期 即过账日期 ENDIF. lw_vbkok-vbeln_vl = g_vbeln. lw_vbkok-wabuc = 'X'. * IF P_TL EQ 'X'. * LOOP AT lt_lips INTO lw_lips WHERE matnr IS NOT INITIAL. * lw_vbpok-vbeln_vl = g_vbeln. * lw_vbpok-posnr_vl = lw_lips-posnr. * * lw_vbpok-vbeln = g_vbeln. * lw_vbpok-posnn = lw_lips-posnr. * lw_vbpok-matnr = lw_lips-matnr. * LW_VBPOK-WERKS = LW_LIPS-WERKS. * LW_VBPOK-PIKMG = LW_LIPS-LFIMG. * LW_VBPOK-kzlgo = 'X'. * lw_vbpok-lgort = 'YK02'. * APPEND lw_vbpok TO lt_vbpok. * ENDLOOP. * ENDIF. SET UPDATE TASK LOCAL . CALL FUNCTION 'WS_DELIVERY_UPDATE' EXPORTING vbkok_wa = lw_vbkok synchron = ' ' no_messages_update = ' ' commit = 'X' delivery = g_vbeln update_picking = 'X' IMPORTING ef_error_in_goods_issue_0 = lv_error TABLES vbpok_tab = lt_vbpok prot = lt_prot. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. CLEAR lv_check. CLEAR: lw_prot. LOOP AT lt_prot INTO lw_prot WHERE msgty = 'E' OR msgty = 'A'. lv_check = 'X'. EXIT. ENDLOOP. *--函数失败也会将过账日期写到货物移动日期 DATA:lw_likp TYPE likp. CLEAR lw_likp. IF lv_check = 'X' AND lv_wadat_ist IS INITIAL ."过账出错并且原来的货物移动日期为空，则清空货物移动日期 SELECT SINGLE * INTO lw_likp FROM likp WHERE likp~vbeln = g_vbeln. CLEAR lw_likp-wadat_ist. MODIFY likp FROM lw_likp . IF sy-subrc = 0. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. ENDIF. ENDIF. CLEAR g_msg. IF lv_check = 'X'. g_err_flag = 'X'. gw_return-type = 'E'. gw_return-message = '交货单发货过账失败,原因如下：'. APPEND gw_return TO gt_return. CLEAR gw_return. LOOP AT lt_prot INTO lw_prot WHERE msgty = 'E' OR msgty = 'A'. gw_return-type = lw_prot-msgty. gw_return-id = lw_prot-msgid. gw_return-number = lw_prot-msgno. gw_return-message_v1 = lw_prot-msgv1. gw_return-message_v2 = lw_prot-msgv2. gw_return-message_v3 = lw_prot-msgv3. gw_return-message_v4 = lw_prot-msgv4. MESSAGE ID gw_return-id TYPE gw_return-type NUMBER gw_return-number INTO gw_return-message WITH gw_return-message_v1 gw_return-message_v2 gw_return-message_v3 gw_return-message_v4. APPEND gw_return TO gt_return. CLEAR gw_return. ENDLOOP. ELSE. gw_return-type = 'S'. gw_return-message = '交货单发货过账成功'. APPEND gw_return TO gt_return. CLEAR gw_return. ENDIF. ENDFORM. " FRM_VL02N_POST
FORM frm_goodsmvt_create . DATA:lw_header TYPE bapi2017_gm_head_01, lw_mblnr TYPE bapi2017_gm_head_ret, lt_item TYPE TABLE OF bapi2017_gm_item_create, lw_item TYPE bapi2017_gm_item_create, lt_return TYPE TABLE OF bapiret2, lw_return TYPE bapiret2. DATA:l_code TYPE bapi2017_gm_code. DATA:l_ebelp TYPE ekpo-ebelp. l_code = '01'. lw_header-pstng_date = p_gzrq. lw_header-doc_date = sy-datum. l_ebelp = 10. LOOP AT gt_output INTO gw_output WHERE matnr IS NOT INITIAL. lw_item-material = gw_output-matnr. lw_item-plant = '2001'. lw_item-entry_qnt = gw_output-psmng. lw_item-entry_uom = gw_output-meins. "lw_item-plant = '2001'. IF p_fl = 'X'. lw_item-move_type = '101'. ELSE. lw_item-move_type = '161'. ENDIF. IF lw_item-move_type = '161'. lw_item-move_type = '101'. " lw_item-xstob = 'X'. ENDIF. CLEAR gw_marc. READ TABLE gt_marc INTO gw_marc WITH KEY werks = '2001' matnr = gw_output-matnr BINARY SEARCH. IF gw_marc-lgpro IS NOT INITIAL. lw_item-stge_loc = gw_marc-lgpro. ELSE. lw_item-stge_loc = gw_output-lgort. ENDIF. lw_item-po_number = g_ebeln. lw_item-po_item = l_ebelp. lw_item-no_more_gr = 'X'. lw_item-mvt_ind = 'B'. APPEND lw_item TO lt_item. l_ebelp = l_ebelp + 10. ENDLOOP. CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = lw_header goodsmvt_code = l_code IMPORTING goodsmvt_headret = lw_mblnr TABLES goodsmvt_item = lt_item return = lt_return. CLEAR g_msg. IF lw_mblnr IS INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. g_err_flag = 'X'. gw_return-type = 'E'. IF p_fl = 'X'. gw_return-message = '采购订单入库失败,原因如下：'. ELSE. gw_return-message = '采购订单退料失败,原因如下：'. ENDIF. APPEND gw_return TO gt_return. CLEAR gw_return. DELETE lt_return WHERE type NE 'E'. APPEND LINES OF lt_return TO gt_return. CLEAR gw_return. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. g_mblnr1 = lw_mblnr-mat_doc. IF p_fl = 'X'. CONCATENATE '采购订单入库物料凭证：' g_mblnr1 INTO g_msg. ELSE. CONCATENATE '采购订单退料物料凭证：' g_mblnr1 INTO g_msg. ENDIF. gw_return-type = 'S'. gw_return-message = g_msg. APPEND gw_return TO gt_return. CLEAR gw_return. ENDIF. WAIT UP TO 1 SECONDS. ENDFORM. " FRM_GOODSMVT_CREATE
FORM frm_prodorder_ltl . DATA:lw_header TYPE bapi2017_gm_head_01, lw_mblnr TYPE bapi2017_gm_head_ret, lt_item TYPE TABLE OF bapi2017_gm_item_create, lw_item TYPE bapi2017_gm_item_create, lt_return TYPE TABLE OF bapiret2, lw_return TYPE bapiret2. DATA:l_code TYPE bapi2017_gm_code. lw_header-pstng_date = p_gzrq. lw_header-doc_date = sy-datum. lw_header-pr_uname = sy-uname. CHECK gt_output IS NOT INITIAL. l_code = '03'. "03 - MB1A - Goods Issue LOOP AT gt_output INTO gw_output WHERE matnr IS NOT INITIAL. lw_item-material = gw_output-matnr. lw_item-plant = '2001'. CLEAR gw_marc. READ TABLE gt_marc INTO gw_marc WITH KEY werks = '2001' matnr = gw_output-matnr BINARY SEARCH. IF gw_marc-lgpro IS NOT INITIAL. lw_item-stge_loc = gw_marc-lgpro. ELSE. lw_item-stge_loc = gw_output-lgort. ENDIF. IF p_fl = 'X'. lw_item-move_type = '261'. ELSE. lw_item-move_type = '262'. ENDIF. IF lw_item-move_type = '262'. lw_item-move_type = '261'. lw_item-xstob = 'X'. ENDIF. lw_item-entry_uom = gw_output-meins. "单位 KAR&BOT lw_item-orderid = gw_output-aufnr. "生产订单号 lw_item-unload_pt = gw_output-zbanc. "班次 lw_item-mvt_ind = ''. lw_item-entry_qnt = gw_output-psmng. lw_item-item_text = gw_output-zbz. CLEAR gw_resb. READ TABLE gt_resb INTO gw_resb WITH KEY aufnr = gw_output-aufnr matnr = gw_output-matnr BINARY SEARCH. lw_item-reserv_no = gw_resb-rsnum. lw_item-res_item = gw_resb-rspos. APPEND lw_item TO lt_item. CLEAR:lw_item. ENDLOOP. CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = lw_header goodsmvt_code = l_code IMPORTING goodsmvt_headret = lw_mblnr TABLES goodsmvt_item = lt_item return = lt_return. *如果过帐失败 IF lw_mblnr IS INITIAL. CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'. g_err_flag = 'X'. gw_return-type = 'E'. IF p_fl EQ 'X'. gw_return-message = '生产订单发料失败,原因如下：'. ELSE. gw_return-message = '生产订单退料失败,原因如下：'. ENDIF. APPEND gw_return TO gt_return. CLEAR gw_return. DELETE lt_return WHERE type NE 'E'. APPEND LINES OF lt_return TO gt_return. CLEAR gw_return. ELSE. CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' EXPORTING wait = 'X'. g_mblnr2 = lw_mblnr-mat_doc. IF p_fl EQ 'X'. CONCATENATE '生产订单发料物料凭证：' g_mblnr2 INTO g_msg. ELSE. CONCATENATE '生产订单退料物料凭证：' g_mblnr2 INTO g_msg. ENDIF. gw_return-type = 'S'. gw_return-message = g_msg. APPEND gw_return TO gt_return. CLEAR gw_return. ENDIF. IF p_tl EQ 'X'. WAIT UP TO 1 SECONDS. ENDIF. ENDFORM. " FRM_PRODORDER_SFL