CSAP_MAT_BOM_MAINTAIN导入BOM[转]
2014-07-14 14:24
471 查看
REPORT zpppr_bom_input.
*------>TAB1ES
TABLES :stko,
stpo.
*------>inner-table
DATA : BEGIN OF gt_itab OCCURS 0,
*----->head
matnr LIKE csap_mbom-matnr,
werks LIKE csap_mbom-werks,"PLANT
base_quan LIKE stko_api01-base_quan,"matnr_QUAN
*----->item
item_no LIKE stpo_api03-item_no,"item_no
item_categ LIKE stpo_api03-item_categ,"item_CATEG
component LIKE stpo_api03-component,"item_COMPONENT
comp_qty LIKE stpo_api03-comp_qty,"item_QTY
comp_scrap LIKE stpo_api03-comp_scrap,"waster
issue_loc LIKE stpo_api03-issue_loc,"product-stors
bom_usage LIKE csap_mbom-stlan,"BOM_USAGE
date LIKE csap_mbom-datuv,"VALID_FROM
END OF gt_itab.
DATA : gt_ita1 LIKE gt_itab OCCURS 0 WITH HEADER LINE.
DATA : gt_stpo LIKE stpo_api03 OCCURS 0 WITH HEADER LINE.
DATA : gt_stko LIKE stko_api01 OCCURS 0 WITH HEADER LINE.
DATA : lv_cancel(1) TYPE c.
*---->upload
CALL FUNCTION 'UPLOAD'
EXPORTING
filename = 'C:/Documents and Settings/Administrator/Desktop/BOM.txt'
filetype = 'DAT'
IMPORTING
cancel = lv_cancel
TABLES
data_tab = gt_itab
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
OTHERS = 7.
IF lv_cancel EQ 'X'.
LEAVE PROGRAM.
ENDIF. .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSEIF sy-subrc = 0.
DATA: matnr LIKE csap_mbom-matnr,
werks LIKE csap_mbom-werks,"PLANT
base_quan LIKE stko_api01-base_quan,"matnr_QUAN
bom_usage LIKE csap_mbom-stlan."BOM_USAGE
SORT gt_itab BY matnr item_no component.
LOOP AT gt_itab.
MOVE gt_itab TO gt_ita1.
gt_ita1-bom_usage = '1'.
gt_ita1-date = sy-datum.
APPEND gt_ita1.
*---->item
gt_stpo-item_no = gt_itab-item_no.
gt_stpo-item_categ = gt_itab-item_categ.
gt_stpo-component = gt_itab-component.
gt_stpo-comp_qty = gt_itab-comp_qty.
gt_stpo-comp_scrap = gt_itab-comp_scrap.
gt_stpo-issue_loc = gt_itab-issue_loc.
APPEND gt_stpo.
AT END OF matnr.
*---->head
gt_stko-bom_status = '01'.
gt_stko-base_quan = gt_ita1-base_quan.
* gt_stko-base_unit = 'EA'.
APPEND gt_stko.
*------>creat-bom
CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
EXPORTING
material = gt_ita1-matnr
plant = gt_ita1-werks
bom_usage = gt_ita1-bom_usage
valid_from = gt_ita1-date
i_stko = gt_stko
fl_bom_create = 'X'
TABLES
t_stpo = gt_stpo
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSEIF sy-subrc = 0.
REFRESH gt_stko.
REFRESH gt_stpo.
ENDIF.
ENDAT.
ENDLOOP.
ENDIF.
模版
*------>TAB1ES
TABLES :stko,
stpo.
*------>inner-table
DATA : BEGIN OF gt_itab OCCURS 0,
*----->head
matnr LIKE csap_mbom-matnr,
werks LIKE csap_mbom-werks,"PLANT
base_quan LIKE stko_api01-base_quan,"matnr_QUAN
*----->item
item_no LIKE stpo_api03-item_no,"item_no
item_categ LIKE stpo_api03-item_categ,"item_CATEG
component LIKE stpo_api03-component,"item_COMPONENT
comp_qty LIKE stpo_api03-comp_qty,"item_QTY
comp_scrap LIKE stpo_api03-comp_scrap,"waster
issue_loc LIKE stpo_api03-issue_loc,"product-stors
bom_usage LIKE csap_mbom-stlan,"BOM_USAGE
date LIKE csap_mbom-datuv,"VALID_FROM
END OF gt_itab.
DATA : gt_ita1 LIKE gt_itab OCCURS 0 WITH HEADER LINE.
DATA : gt_stpo LIKE stpo_api03 OCCURS 0 WITH HEADER LINE.
DATA : gt_stko LIKE stko_api01 OCCURS 0 WITH HEADER LINE.
DATA : lv_cancel(1) TYPE c.
*---->upload
CALL FUNCTION 'UPLOAD'
EXPORTING
filename = 'C:/Documents and Settings/Administrator/Desktop/BOM.txt'
filetype = 'DAT'
IMPORTING
cancel = lv_cancel
TABLES
data_tab = gt_itab
EXCEPTIONS
conversion_error = 1
invalid_table_width = 2
invalid_type = 3
no_batch = 4
unknown_error = 5
gui_refuse_filetransfer = 6
OTHERS = 7.
IF lv_cancel EQ 'X'.
LEAVE PROGRAM.
ENDIF. .
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSEIF sy-subrc = 0.
DATA: matnr LIKE csap_mbom-matnr,
werks LIKE csap_mbom-werks,"PLANT
base_quan LIKE stko_api01-base_quan,"matnr_QUAN
bom_usage LIKE csap_mbom-stlan."BOM_USAGE
SORT gt_itab BY matnr item_no component.
LOOP AT gt_itab.
MOVE gt_itab TO gt_ita1.
gt_ita1-bom_usage = '1'.
gt_ita1-date = sy-datum.
APPEND gt_ita1.
*---->item
gt_stpo-item_no = gt_itab-item_no.
gt_stpo-item_categ = gt_itab-item_categ.
gt_stpo-component = gt_itab-component.
gt_stpo-comp_qty = gt_itab-comp_qty.
gt_stpo-comp_scrap = gt_itab-comp_scrap.
gt_stpo-issue_loc = gt_itab-issue_loc.
APPEND gt_stpo.
AT END OF matnr.
*---->head
gt_stko-bom_status = '01'.
gt_stko-base_quan = gt_ita1-base_quan.
* gt_stko-base_unit = 'EA'.
APPEND gt_stko.
*------>creat-bom
CALL FUNCTION 'CSAP_MAT_BOM_MAINTAIN'
EXPORTING
material = gt_ita1-matnr
plant = gt_ita1-werks
bom_usage = gt_ita1-bom_usage
valid_from = gt_ita1-date
i_stko = gt_stko
fl_bom_create = 'X'
TABLES
t_stpo = gt_stpo
EXCEPTIONS
error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSEIF sy-subrc = 0.
REFRESH gt_stko.
REFRESH gt_stpo.
ENDIF.
ENDAT.
ENDLOOP.
ENDIF.
模版
物料编码 | 工厂 | 基本数量 | BOM项目号 | 项目类别 | BOM 组件 | 组件数量 | 部件废品(%) | 生产订单发货仓储地点 |
A1-PHANTOM01 | 2110 | 10 | 10 | L | A1-RAW01 | 1 | 2702 | |
A1-PHANTOM01 | 2110 | 10 | 20 | L | A1-RAW02 | 2 | 6 | 2802 |
A1-PHANTOM01 | 2110 | 10 | 30 | L | A1-RAW | 3 | ||
A1-FIN01 | 2110 | 1 | 10 | L | A1-RAW02 | 10 | 3 | |
A1-FIN01 | 2110 | 1 | 20 | L | A1-RAW | 20 | 4 |
相关文章推荐
- 使用函数CSAP_MAT_BOM_MAINTAIN维护BOM
- [ABAP] PBOM历史版本函数展开 CSAP_MAT_BOM_READ
- [ABAP] PBOM历史版本函数展开 CSAP_MAT_BOM_READ
- 把数据导入BOM清单
- Python导入matplotlib错误提示ImportError: matplotlib requires pyparsing
- 函数组:CSAP(BOM 相关)
- BOM导入及更新
- MatLab GUI Load .mat File 导入mat文件
- BOM函数CS_BOM_EXPL_MAT_V2的权限检查
- 函数组:CSAP(BOM 相关)
- 利用CS_BOM_EXPL_MAT_V2 展单BOM,根据排序字符串进行组件分配
- csv读入数据,用julia/matplotlib/pyplot 画矢量图导入word中
- python导入matplotlib模块出错
- MatLab Load cv::Mat 导入数据
- csv读入数据,用julia/matplotlib/pyplot 画矢量图导入word中
- 可配置BOM用函数CS_BOM_EXPL_MAT_V2展开缺少项目
- 用CSAI_BOM_MAINTAIN修改WBS BOM
- 物料清单(BOM)API导入Demo
- CS_BOM_EXPL_MAT_V2 bom展开
- BAPI--BOM导入(感谢依风提供)