物料主数据批导bapi

创建物料主数据，根据模板不同批导原材料，半成品，成品。可根据实际需求对字段进行增删。

 report zmmr_bapi_mm01 no standard page HEADING.
 type-POOLS:slis,truxs,icon.
 tables: sscrfields,lips,resb,marc,ckmlab02.
 data num type stprs_bapi.
 data flag type i.                 "标识符，如果不为1则不创建物料

 types:begin of ty_tab,
   head_material type matnr,       "物料号
   head_ind_sector type mbrsh,     "行业领域
   head_matl_type type mtart,      "物料类型
   marc_plant type werks_d,        "工厂
   mvke_sales_org type vkorg,      "销售组织
   mvke_distr_chan type vtweg,     "分销渠道
   t_makt_matl_desc type maktx,    "物料描述
   mara_base_uom type meins,       "基本计量单位
   mara_matl_group type matkl,     "物料组
   mara_extwg type extwg,          "客户
   mara_item_cat type mtpos_mara,  "普通项目组类别
   t_marm_unit_of_wt type gewei,   "重量单位
   mara_wrkst type wrkst,          "基本物料
   mara_ihivi type adge_ihivi,     "是否客供
   mara_zeinr type dzeinr,         "客户物料编码
   mvke_dwerk type maktx,          "交货工厂
   mvke_sktof type sktof,          "现金折扣
   t_mlan_taxclass1 type taxkm,    "税分类
   mvke_matl_stats type stgma,     "物料统计组
   mvke_acct_assgt type ktgrm,     "科目设置组
   mvke_item_cat type mtpos,       "项目类别组
   marc_availcheck type mtvfp,     "可用性检查
   mara_trans_grp type tragr,      "运输组
   marc_loadinggrp type ladgr,     "装载组
   marc_pur_group type ekgrp,      "采购组
   marc_batch_mgmt type xchpf,     "批次管理标示
   marc_auto_p_ord type kautb,     "自动采购订单标识
   marc_webaz type webaz,          "收货处理时间
   marc_insmk type insmk_mat,      "过账到检验库存
   marc_mrp_group type disgr,      "MRP组
   marc_maabc type maabc,          "ABC标识
   marc_mrp_type type dismm,       "MRP类型
   marc_mrp_ctrler type dispo,     "MRP控制者
   marc_lotsizekey type disls,     "批量
   marc_minlotsize type bstmi,     "最小批量
   marc_round_val type bstrf,      "舍入值
   marc_proc_type type beskz,      "采购类型
   marc_lgpro type lgpro,          "生产仓储地点
   marc_rgekz type rgekz,          "反冲
   marc_lgfsb type lgfsb,          "外部采购仓储地点
   marc_sm_key type fhori,         "计划边际码
   marc_plnd_delry type plifz,     "计划交货时间
   marc_sbdkz type sbdkz,          "集中/独立
 *  mpop_prmod TYPE mpop-prmod,     "预测模型
   mbew_val_class type bklas,      "评估级别
   mbew_ml_settle type ck_ml_abst, "价格确定
   mbew_std_price type ck_pvprs_1, "标准价格
   mbew_moving_pr type ck_pvprs_1, "移动平均价
   mbew_price_ctrl type vprsv,     "价格控制
   mbew_price_unit type peinh,     "价格单位
   mbew_hrkft type hrkft,          "原始组
   mbew_orig_mat type hkmat,       "物料来源
   marc_losgr type ck_losgr,       "成品核算批量
 end of ty_tab.

 types:begin of ty_tab2,
   head_material type matnr,       "物料号
   head_ind_sector type mbrsh,     "行业领域
   head_matl_type type mtart,      "物料类型
   marc_plant type werks_d,        "工厂
   mvke_sales_org type vkorg,      "销售组织
   mvke_distr_chan type vtweg,     "分销渠道
   t_makt_matl_desc type maktx,    "物料描述
   mara_base_uom type meins,       "基本计量单位
   mara_matl_group type matkl,     "物料组
   mara_extwg type extwg,          "客户
   mara_spart type spart,          "产品组
   mara_item_cat type mtpos_mara,  "普通项目组类别
   t_marm_unit_of_wt type gewei,   "重量单位
   mara_formt type formt,          "替代料标识
   mara_wrkst type wrkst,          "基本物料
   mara_zeinr type dzeinr,         "客户物料编码
   mvke_dwerk type maktx,          "交货工厂
   mvke_sktof type sktof,          "现金折扣
   t_mlan_taxclass1 type taxkm,    "税分类
   mvke_matl_stats type stgma,     "物料统计组
   mvke_acct_assgt type ktgrm,     "科目设置组
   mvke_item_cat type mtpos,       "项目类别组
   marc_availcheck type mtvfp,     "可用性检查
   mara_trans_grp type tragr,      "运输组
   marc_loadinggrp type ladgr,     "装载组
   marc_ekgrp type ekgrp,          "采购组
   marc_kautb type kautb,          "自动采购单
   marc_xchpf type xchpf,          "批次管理
   marc_webaz type webaz,          "收货处理时间
   marc_mrp_group type disgr,      "MRP组
   marc_mrp_type type dismm,       "MRP类型
   marc_mrp_ctrler type dispo,     "MRP控制者
   marc_lotsizekey type disls,     "批量大小
   marc_bstmi type bstmi,          "最小批量大小
   marc_bstrf type bstrf,          "舍入值
   marc_proc_type type beskz,      "采购类型
   marc_sobsl type sobsl,          "特殊采购类型
   marc_lgpro type lgpro,          "生产仓储地点
   marc_lgfsb type lgfsb,          "外部采购仓储地点
   marc_dzeit type dzeit,          "生产时间
   marc_plifz type plifz,          "计划交货时间
   marc_eisbe type eisbe,          "安全库存
   marc_sm_key type fhori,         "计划边际码
   marc_strgr type strgr,          "策略组
   marc_vrmod type vrmod,          "消耗模式
   marc_vint1 type vint1,          "逆向消耗期间
   marc_vint2 type vint2,          "向前消耗期间
   marc_altsl type altsl,          "选择方法
   marc_sbdkz type sbdkz,          "集中/独立
   mpop_prmod type mpop-prmod,     "预测模型
   mbew_val_class type bklas,      "评估级别
   mbew_ml_settle type ck_ml_abst, "价格确定
   mbew_std_price type ck_pvprs_1, "标准价格
   mbew_price_ctrl type vprsv,     "价格控制
   mbew_orig_mat type hkmat,       "物料来源
   marc_awsls type awsls,          "差异码
   marc_losgr type ck_losgr,       "成本核算批量
 end of ty_tab2.

 data:it_tab type table of  ty_tab ,   "原材料
       wa_tab type ty_tab.
 data:it_tab2 type table of  ty_tab2,  "成品
       wa_tab2 type ty_tab2.

 *输入参数
 data: headdata                type bapimathead,     "表头数据
       clientdata              type bapi_mara,       "基本数据
       clientdatax             type bapi_marax,
       plantdata like  bapi_marc,                    "工厂数据
       plantdatax  like  bapi_marcx,
       forecastparameters type  bapi_mpop,           "预测
       forecastparametersx type bapi_mpopx,
       planningdata type bapi_mpgd,                  "计划
       planningdatax type bapi_mpgdx,
       valuationdata type bapi_mbew,                 "评估数据
       valuationdatax type bapi_mbewx,
       warehousenumberdata type bapi_mlgn,           "仓库数据
       warehousenumberdatax type bapi_mlgnx,
       salesdata type bapi_mvke,                     "销售数据
       salesdatax type bapi_mvkex,
       storagetypedata type bapi_mlgt,               "存储类型数据
       storagetypedatax type bapi_mlgtx.

 *表参数
 data: materialdescription type table of bapi_makt with header line,   "描述
       unitsofmeasure type table of bapi_marm with header line,        "单位
       unitsofmeasurex type table of bapi_marmx with header line,
       taxclassifications type table of bapi_mlan with header line,    "税分类
       return like table of bapiret2 with header line.                 "错误信息

 data pr_unit type meins.  "基本单位
 data pr_unit2 type meins. "重量单位

 data: begin of gt_out occurs , "保存return信息
   text(),
 end of gt_out.

 *TYPES:BEGIN OF ty_fieldnames ,
 *  name TYPE CHAR255,
 *END OF ty_fieldnames.
 *DATA it_fname TYPE TABLE OF ty_fieldnames WITH HEADER LINE.
 data:begin of it_fname occurs ,
   name type char255,
 end of it_fname.

 SELECTION-screen begin of block blk_001 with frame title text- . "选择文件路径
   parameters:p_file like rlgrap-filename.
 SELECTION-screen end of block blk_001.
 SELECTION-screen: uline /().
 SELECTION-screen: uline ().
 SELECTION-screen begin of block blk_002 with frame title text-.  "确定创建物料类型
   parameters:radio_1 radiobutton group radi,    "原材料
   radio_2 radiobutton group radi.               "半成品/成品
 SELECTION-screen end of block blk_002.

 SELECTION-screen function key . "应用工具栏增加按钮

 initialization.
 write icon_change_text as icon to sscrfields-functxt_01+().
 sscrfields-functxt_01+(*) = '下载模板'."分配字符位置

 at SELECTION-screen.
 perform selection_screeen.   "模板下载

 at SELECTION-screen on value-REQUEST for p_file  .
 perform open.

 START-of-SELECTION.
 if radio_1 = 'X'.
   perform upload_file.      "上传数据
   perform mm01_1.           "执行批导（原材料）.
 else.
   perform upload_file2.     "上传数据
   perform mm01_2.           "执行批导（成品/半成品）
 endif.

 end-of-SELECTION.
 perform result_message.   "显示执行结果

 *&---------------------------------------------------------------------*
 *&      Form  MM01
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 form mm01_1.
   loop at it_tab into wa_tab.
 *前导0
     call function 'CONVERSION_EXIT_ALPHA_INPUT'
     exporting
       input  = wa_tab-head_material
     importing
       output = wa_tab-head_material.

 *判断物料是否以存在
     select single * from marc where matnr = wa_tab-head_material and werks = wa_tab-marc_plant.
     if sy-subrc = .
       concatenate wa_tab-head_material ' 物料在' wa_tab-marc_plant ' 工厂已存在!' into gt_out-text.
       append gt_out.
       clear gt_out.
       continue.
     endif.

     if wa_tab-mbew_moving_pr = ''.
       concatenate wa_tab-head_material '->原材料的移动平均价格为空' into gt_out-text.
       append gt_out.
       clear gt_out.
       continue.
     endif.

     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "科目设置组
     exporting
       input        = wa_tab-mvke_acct_assgt
     importing
       output        = wa_tab-mvke_acct_assgt.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "可用性检查
     exporting
       input         = wa_tab-marc_availcheck
     importing
       output        = wa_tab-marc_availcheck.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "运输组
     exporting
       input         = wa_tab-mara_trans_grp
     importing
       output        = wa_tab-mara_trans_grp.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "装载组
     exporting
       input         = wa_tab-marc_loadinggrp
     importing
       output        = wa_tab-marc_loadinggrp.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP组
     exporting
       input         = wa_tab-marc_mrp_group
     importing
       output        = wa_tab-marc_mrp_group.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP控制者
     exporting
       input         = wa_tab-marc_mrp_ctrler
     importing
       output        = wa_tab-marc_mrp_ctrler.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "计划边际值
     exporting
       input         = wa_tab-marc_sm_key
     importing
       output        = wa_tab-marc_sm_key.

 *判断是否客供，提示价格信息
     if wa_tab-mara_ihivi <> 'X'.
       clear num.
       num = wa_tab-mbew_std_price / wa_tab-mbew_price_unit.
       case wa_tab-marc_maabc.   "ABC标识
       when 'A'.
         if num > .
           perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
           if flag = .  "为否时执行下一物料
             clear flag.
             continue.
           endif.
         endif.
       when 'B'.
         if num > .
           perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
           if flag = .
             clear flag.
             continue.
           endif.
         endif.
       when others.
         perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
         if flag = .
           clear flag.
           continue.
         endif.
       endcase.
     endif.

     clear headdata.
     headdata-material = wa_tab-head_material.
     headdata-matl_type = wa_tab-head_matl_type.
     headdata-ind_sector = wa_tab-head_ind_sector.
     headdata-basic_view = 'X'.        "基本数据视图
     headdata-sales_view = 'X'.        "销售视图
     headdata-purchase_view = 'X'.     "采购视图
     headdata-mrp_view = 'X'.          "物料需求计划(MRP)视图
 *    headdata-forecast_view = 'X'.     "预测视图
     headdata-warehouse_view = 'X'.    "工作计划视图
     headdata-account_view = 'X'.      "会计视图
     headdata-cost_view = 'X'.         "成本视图

 *基本数据
     clear pr_unit.
     perform frm_unit using wa_tab-mara_base_uom changing pr_unit."基本单位
     clear: clientdata.
     clientdata-base_uom = pr_unit.                    "基本计量单位
     clientdata-matl_group = wa_tab-mara_matl_group.   "物料组
     clientdata-item_cat = wa_tab-mara_item_cat.       "普通项目类别组
     clientdata-trans_grp = wa_tab-mara_trans_grp.     "运输组
     clientdata-extmatlgrp = wa_tab-mara_extwg.        "客户
     clientdata-basic_matl = wa_tab-mara_wrkst.        "基本物料
     clientdata-high_visc = wa_tab-mara_ihivi.         "是否客供
     clientdata-document = wa_tab-mara_zeinr.          "客户物料编码
     clear clientdatax.
     clientdatax-base_uom = 'X'.   "基本计量单位
     clientdatax-matl_group = 'X'.
     clientdatax-item_cat = 'X'.
     clientdatax-net_weight = 'X'.
     clientdatax-trans_grp = 'X'.
     clientdatax-extmatlgrp = 'X'.
     clientdatax-basic_matl = 'X'.
     clientdatax-high_visc = 'X'.
     clientdatax-document = 'X'.

 *工厂级别数据
     clear:plantdata.
     plantdata-plant = wa_tab-marc_plant.   "工厂
     plantdata-availcheck = wa_tab-marc_availcheck.    "可用性检查
     plantdata-loadinggrp = wa_tab-marc_loadinggrp.    "装载组
     plantdata-pur_group = wa_tab-marc_pur_group.      "采购组
     plantdata-batch_mgmt = wa_tab-marc_batch_mgmt.    "批次管理标示
     plantdata-auto_p_ord = wa_tab-marc_auto_p_ord.    "自动采购订单标识
     plantdata-gr_pr_time = wa_tab-marc_webaz.         "自动采购订单标识
     plantdata-ind_post_to_insp_stock = wa_tab-marc_insmk.    "过账到检验库存
     plantdata-mrp_group = wa_tab-marc_mrp_group.      "MRP组
     plantdata-abc_id = wa_tab-marc_maabc.             "ABC标识
     plantdata-mrp_type = wa_tab-marc_mrp_type.        "MRP类型
     plantdata-mrp_ctrler = wa_tab-marc_mrp_ctrler.    "MRP控制者
     plantdata-lotsizekey = wa_tab-marc_lotsizekey.    "批量
     plantdata-minlotsize = wa_tab-marc_minlotsize.    "最小批量
     plantdata-round_val = wa_tab-marc_round_val.      "舍入值
     plantdata-proc_type = wa_tab-marc_proc_type.      "采购类型
     plantdata-iss_st_loc = wa_tab-marc_lgpro.         "生产仓储地点
     plantdata-backflush = wa_tab-marc_rgekz.          "反冲
     plantdata-sloc_exprc = wa_tab-marc_lgfsb.         "外部采购仓储地点
     plantdata-sm_key = wa_tab-marc_sm_key.            "计划边际码
     plantdata-plnd_delry = wa_tab-marc_plnd_delry.    "计划交货时间
     plantdata-dep_req_id = wa_tab-marc_sbdkz.         "集中/独立
     plantdata-lot_size = wa_tab-marc_losgr.           "批量产品核算
     clear plantdatax.
     plantdatax-plant = wa_tab-marc_plant.
     plantdatax-availcheck = 'X'.
     plantdatax-loadinggrp = 'X'.
     plantdatax-pur_group = 'X'.
     plantdatax-batch_mgmt = 'X'.
     plantdatax-auto_p_ord = 'X'.
     plantdatax-gr_pr_time = 'X'.
     plantdatax-ind_post_to_insp_stock = 'X'.
     plantdatax-mrp_group = 'X'.
     plantdatax-abc_id = 'X'.
     plantdatax-mrp_type = 'X'.
     plantdatax-mrp_ctrler = 'X'.
     plantdatax-lotsizekey = 'X'.
     plantdatax-minlotsize = 'X'.
     plantdatax-round_val = 'X'.
     plantdatax-proc_type = 'X'.
     plantdatax-iss_st_loc = 'X'.
     plantdatax-backflush = 'X'.
     plantdatax-sloc_exprc = 'X'.
     plantdatax-sm_key = 'X'.
     plantdatax-plnd_delry = 'X'.
     plantdatax-dep_req_id = 'X'.
     plantdatax-lot_size = 'X'.

 *销售数据
     clear salesdata.
     salesdata-sales_org = wa_tab-mvke_sales_org.      "销售组织
     salesdata-distr_chan = wa_tab-mvke_distr_chan.    "分销渠道
     salesdata-delyg_plnt = wa_tab-mvke_dwerk.         "交货工厂
     salesdata-cash_disc = wa_tab-mvke_sktof.          "现金折扣标志
     salesdata-matl_stats = wa_tab-mvke_matl_stats.    "物料统计组
     salesdata-acct_assgt = wa_tab-mvke_acct_assgt.    "科目设置组
     salesdata-item_cat = wa_tab-mvke_item_cat.        "项目类别组
     clear salesdatax.
     salesdatax-sales_org = wa_tab-mvke_sales_org.
     salesdatax-distr_chan = wa_tab-mvke_distr_chan.
     salesdatax-delyg_plnt = 'X'.
     salesdatax-cash_disc = 'X'.
     salesdatax-matl_stats = 'X'.
     salesdatax-acct_assgt = 'X'.
     salesdatax-item_cat = 'X'.

 **预测
 *    CLEAR:forecastparameters,forecastparametersx.
 *    forecastparameters-plant = wa_tab-marc_plant.         "工厂
 *    forecastparameters-fore_model = wa_tab-mpop_prmod.    "预测模型
 *    forecastparametersx-plant = wa_tab-marc_plant.
 *    forecastparametersx-fore_model = 'X'.

 *会计、成本
     clear valuationdata.
     valuationdata-val_area = wa_tab-marc_plant.
     valuationdata-val_class = wa_tab-mbew_val_class.      "评估级别
     valuationdata-ml_settle = wa_tab-mbew_ml_settle.      "价格确定
     valuationdata-std_price = wa_tab-mbew_std_price.      "标准价格
     valuationdata-moving_pr = wa_tab-mbew_moving_pr.      "移动平均价
     valuationdata-price_unit = wa_tab-mbew_price_unit.    "价格单位
     valuationdata-price_ctrl = wa_tab-mbew_price_ctrl.    "价格控制
     valuationdata-orig_group = wa_tab-mbew_hrkft.         "原始组
     valuationdata-orig_mat = wa_tab-mbew_orig_mat.        "物料来源
     clear valuationdatax.
     valuationdatax-val_area = wa_tab-marc_plant.
     valuationdatax-val_class = 'X'.
     valuationdatax-ml_settle = 'X'.
     valuationdatax-price_ctrl = 'X'.
     valuationdatax-price_unit = 'X'.
     valuationdatax-moving_pr = 'X'.
     valuationdatax-std_price = 'X'.
     valuationdatax-orig_group = 'X'.
     valuationdatax-orig_mat = 'X'.

 *物料描述
     clear materialdescription[].
     materialdescription-langu_iso = 'ZH'.
     materialdescription-matl_desc = wa_tab-t_makt_matl_desc.
     append materialdescription.

 *单位
     clear unitsofmeasure[].
     unitsofmeasure-alt_unit = pr_unit.
     unitsofmeasure-unit_of_wt = wa_tab-t_marm_unit_of_wt.
     append unitsofmeasure.
     clear unitsofmeasurex[].
     unitsofmeasurex-alt_unit = pr_unit.
     unitsofmeasurex-unit_of_wt = 'X'.
     append unitsofmeasurex.

 *税分类
     clear taxclassifications[].
     taxclassifications-depcountry = 'CN'.
     taxclassifications-tax_type_1 = 'MWST'.
     taxclassifications-taxclass_1 = wa_tab-t_mlan_taxclass1.  "税分类
     append taxclassifications.

     call function 'BAPI_MATERIAL_SAVEDATA'
     exporting
       headdata            = headdata
       clientdata          = clientdata
       clientdatax         = clientdatax
       plantdata           = plantdata
       plantdatax          = plantdatax
       forecastparameters  = forecastparameters
       forecastparametersx = forecastparametersx
       valuationdata       = valuationdata
       valuationdatax      = valuationdatax
       salesdata           = salesdata
       salesdatax          = salesdatax
     importing
       return              = return
     tables
       materialdescription = materialdescription[]
       unitsofmeasure      = unitsofmeasure[]
       unitsofmeasurex     = unitsofmeasurex
       taxclassifications  = taxclassifications[].
     if return-type = 'E' or return-type = 'A'.
       call function 'BAPI_TRANSACTION_ROLLBACK'.
       concatenate wa_tab-head_material ' 原材料—>' return-message into gt_out-text.
       append gt_out.
       clear gt_out.
     else.
       call function 'BAPI_TRANSACTION_COMMIT'
       exporting
         wait = 'X'.
       concatenate wa_tab-head_material ' 物料创建成功。' into gt_out-text.
       append gt_out.
       clear gt_out.
     endif.
   endloop.
 endform.                                                    "mm01

 *  PERFORM alv.
 *&---------------------------------------------------------------------*
 *&      Form  vq_fn
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form mm01_2.
   loop at it_tab2 into wa_tab2.

     call function 'CONVERSION_EXIT_ALPHA_INPUT'
     exporting
       input  = wa_tab2-head_material
     importing
       output = wa_tab2-head_material.

 *判断物料是否以存在
     select single * from marc where matnr = wa_tab2-head_material and werks = wa_tab2-marc_plant.
     if sy-subrc = .
       concatenate wa_tab2-head_material ' 物料在' wa_tab2-marc_plant ' 工厂已存在!' into gt_out-text.
       append gt_out.
       clear gt_out.
       continue.
     endif.

 *如果为移动平均，
     clear ckmlab02.
     if wa_tab2-mbew_price_ctrl = 'S'.
       select single * from ckmlab02 into ckmlab02 where bwkey = wa_tab2-marc_plant.  "Y3
       if ckmlab02 is initial.
         wa_tab2-mbew_ml_settle = ''.       "价格确定
       else.
         wa_tab2-mbew_ml_settle = ''.
       endif.
     endif.

     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "科目设置组
     exporting
       input        = wa_tab2-mvke_acct_assgt
     importing
       output        = wa_tab2-mvke_acct_assgt.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "可用性检查
     exporting
       input         = wa_tab2-marc_availcheck
     importing
       output        = wa_tab2-marc_availcheck.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "运输组
     exporting
       input         = wa_tab2-mara_trans_grp
     importing
       output        = wa_tab2-mara_trans_grp.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "装载组
     exporting
       input         = wa_tab2-marc_loadinggrp
     importing
       output        = wa_tab2-marc_loadinggrp.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP控制者
     exporting
       input         = wa_tab2-marc_mrp_ctrler
     importing
       output        = wa_tab2-marc_mrp_ctrler.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "计划边际值
     exporting
       input         = wa_tab2-marc_sm_key
     importing
       output        = wa_tab2-marc_sm_key.
     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "差异码
     exporting
       input         = wa_tab2-marc_awsls
     importing
       output        = wa_tab2-marc_awsls.

     clear headdata.
     headdata-material       = wa_tab2-head_material.
     headdata-matl_type      = wa_tab2-head_matl_type.
     headdata-ind_sector     = wa_tab2-head_ind_sector.
     headdata-basic_view     = 'X'.    "基本数据视图
     headdata-sales_view = 'X'.        "销售视图
     headdata-purchase_view = 'X'.     "采购视图
     headdata-mrp_view = 'X'.          "物料需求计划(MRP)视图
     headdata-forecast_view = 'X'.     "预测视图
     headdata-warehouse_view = 'X'.    "工作计划视图
     headdata-account_view = 'X'.      "会计视图
     headdata-cost_view = 'X'.         "成本视图

 *基本数据
     clear pr_unit.
     perform frm_unit using wa_tab2-mara_base_uom changing pr_unit."基本单位
     clear: clientdata.
     clientdata-base_uom = pr_unit.                     "基本计量单位
     clientdata-matl_group = wa_tab2-mara_matl_group.   "物料组
     clientdata-item_cat = wa_tab2-mara_item_cat.       "普通项目类别组
     clientdata-trans_grp = wa_tab2-mara_trans_grp.     "运输组
     clientdata-extmatlgrp = wa_tab2-mara_extwg.        "客户
     clientdata-division = wa_tab2-mara_spart.          "产品组
     clientdata-pageformat = wa_tab2-mara_formt.        "替代料标识
     clientdata-basic_matl = wa_tab2-mara_wrkst.        "基本物料
     clientdata-document = wa_tab2-mara_zeinr.          "客户物料编码
     clear clientdatax.
     clientdatax-base_uom = 'X'.   "基本计量单位
     clientdatax-matl_group = 'X'.
     clientdatax-item_cat = 'X'.
     clientdatax-trans_grp = 'X'.
     clientdatax-extmatlgrp = 'X'.
     clientdatax-division = 'X'.
     clientdatax-pageformat = 'X'.
     clientdatax-basic_matl = 'X'.        "基本物料
     clientdatax-document = 'X'.          "客户物料编码

 *工厂级别数据
     clear:plantdata.
     plantdata-plant = wa_tab2-marc_plant.   "工厂
     plantdata-availcheck = wa_tab2-marc_availcheck.    "可用性检查
     plantdata-loadinggrp = wa_tab2-marc_loadinggrp.    "装载组
     plantdata-pur_group = wa_tab2-marc_ekgrp.          "采购组
     plantdata-auto_p_ord = wa_tab2-marc_kautb.         "自动采购单
     plantdata-batch_mgmt = wa_tab2-marc_xchpf.         "批次管理
     plantdata-gr_pr_time = wa_tab2-marc_webaz.         "收货处理时间
     plantdata-mrp_group = wa_tab2-marc_mrp_group.      "MRP组
     plantdata-mrp_type = wa_tab2-marc_mrp_type.        "MRP类型
     plantdata-mrp_ctrler = wa_tab2-marc_mrp_ctrler.    "MRP控制者
     plantdata-lotsizekey = wa_tab2-marc_lotsizekey.    "批量大小
     plantdata-minlotsize = wa_tab2-marc_bstmi.         "最小批量大小
     plantdata-round_val = wa_tab2-marc_bstrf.         "舍入值
     plantdata-proc_type = wa_tab2-marc_proc_type.      "采购类型
     plantdata-spproctype = wa_tab2-marc_sobsl.         "特殊采购类型
     plantdata-iss_st_loc = wa_tab2-marc_lgpro.         "生产仓储地点
     plantdata-sloc_exprc = wa_tab2-marc_lgfsb.         "外部采购仓储地点
     plantdata-inhseprodt = wa_tab2-marc_dzeit.         "自制生产天数
     plantdata-plnd_delry = wa_tab2-marc_plifz.         "计划交货时间
     plantdata-safety_stk = wa_tab2-marc_eisbe.         "安全库存
     plantdata-plan_strgp = wa_tab2-marc_strgr.         "策略组
     plantdata-consummode = wa_tab2-marc_vrmod.         "消耗模式
     plantdata-bwd_cons = wa_tab2-marc_vint1.           "逆向消耗期间
     plantdata-fwd_cons = wa_tab2-marc_vint2.           "消耗时期-向前
     plantdata-alt_bom_id = wa_tab2-marc_altsl.         "选择方法（选择可替换物料单的方法）
     plantdata-sm_key = wa_tab2-marc_sm_key.            "计划边际码
     plantdata-dep_req_id = wa_tab2-marc_sbdkz.         "集中/独立
     plantdata-variance_key = wa_tab2-marc_awsls.       "差异码
     plantdata-lot_size = wa_tab2-marc_losgr.           "成本核算批量
     clear plantdatax.
     plantdatax-plant = wa_tab2-marc_plant.
     plantdatax-availcheck = 'X'.
     plantdatax-loadinggrp = 'X'.
     plantdatax-pur_group = 'X'.
     plantdatax-auto_p_ord = 'X'.
     plantdatax-batch_mgmt = 'X'.
     plantdatax-gr_pr_time = 'X'.
     plantdatax-mrp_group = 'X'.
     plantdatax-mrp_type = 'X'.
     plantdatax-mrp_ctrler = 'X'.
     plantdatax-lotsizekey = 'X'.
     plantdatax-minlotsize = 'X'.
     plantdatax-round_val = 'X'.
     plantdatax-proc_type = 'X'.
     plantdatax-spproctype = 'X'.
     plantdatax-iss_st_loc = 'X'.
     plantdatax-sloc_exprc = 'X'.
     plantdatax-inhseprodt = 'X'.
     plantdatax-plnd_delry = 'X'.
     plantdatax-safety_stk = 'X'.
     plantdatax-plan_strgp = 'X'.
     plantdatax-consummode = 'X'.
     plantdatax-bwd_cons = 'X'.
     plantdatax-fwd_cons = 'X'.
     plantdatax-alt_bom_id = 'X'.
     plantdatax-sm_key = 'X'.
     plantdatax-dep_req_id = 'X'.
     plantdatax-variance_key = 'X'.
     plantdatax-lot_size = 'X'.

 *销售数据
     clear salesdata.
     salesdata-sales_org = wa_tab2-mvke_sales_org.      "销售组织
     salesdata-distr_chan = wa_tab2-mvke_distr_chan.    "分销渠道
     salesdata-delyg_plnt = wa_tab2-mvke_dwerk.         "交货工厂
     salesdata-cash_disc = wa_tab2-mvke_sktof.          "现金折扣标志
     salesdata-matl_stats = wa_tab2-mvke_matl_stats.    "物料统计组
     salesdata-acct_assgt = wa_tab2-mvke_acct_assgt.    "科目设置组
     salesdata-item_cat = wa_tab2-mvke_item_cat.        "项目类别组
     clear salesdatax.
     salesdatax-sales_org = wa_tab2-mvke_sales_org.
     salesdatax-distr_chan = wa_tab2-mvke_distr_chan.
     salesdatax-delyg_plnt = 'X'.
     salesdatax-cash_disc = 'X'.
     salesdatax-matl_stats = 'X'.
     salesdatax-acct_assgt = 'X'.
     salesdatax-item_cat = 'X'.

 *预测
     clear:forecastparameters,forecastparametersx.
     forecastparameters-plant = wa_tab2-marc_plant.       "工厂
     forecastparameters-fore_model = wa_tab2-mpop_prmod.  "预测模型
     forecastparametersx-plant = wa_tab2-marc_plant.
     forecastparametersx-fore_model = 'X'.

 *会计、成本
     clear valuationdata.
     valuationdata-val_area = wa_tab2-marc_plant.
     valuationdata-val_class = wa_tab2-mbew_val_class.     "评估级别
     valuationdata-ml_settle = wa_tab2-mbew_ml_settle.     "价格确定
     valuationdata-std_price = wa_tab2-mbew_std_price.     "标准价格
     valuationdata-price_ctrl = wa_tab2-mbew_price_ctrl.   "价格控制
     valuationdata-orig_mat = wa_tab2-mbew_orig_mat.       "物料来源
     clear valuationdatax.
     valuationdatax-val_area = wa_tab2-marc_plant.
     valuationdatax-val_class = 'X'.
     valuationdatax-ml_settle = 'X'.
     valuationdatax-price_ctrl = 'X'.
     valuationdatax-std_price = 'X'.
     valuationdatax-orig_mat = 'X'.

 *物料描述
     clear materialdescription[].
     materialdescription-langu_iso = 'ZH'.
     materialdescription-matl_desc = wa_tab2-t_makt_matl_desc.
     append materialdescription.

 *单位
     clear unitsofmeasure[].
     unitsofmeasure-alt_unit = pr_unit.
     unitsofmeasure-unit_of_wt = wa_tab2-t_marm_unit_of_wt.
     append unitsofmeasure.
     clear unitsofmeasurex[].
     unitsofmeasurex-alt_unit = pr_unit.
     unitsofmeasurex-unit_of_wt = 'X'.
     append unitsofmeasurex.

 *税分类
     clear taxclassifications[].
     taxclassifications-depcountry = 'CN'.
     taxclassifications-tax_type_1 = 'MWST'.
     taxclassifications-taxclass_1 = wa_tab2-t_mlan_taxclass1.  "税分类
     append taxclassifications.

     call function 'BAPI_MATERIAL_SAVEDATA'
     exporting
       headdata            = headdata
       clientdata          = clientdata
       clientdatax         = clientdatax
       plantdata           = plantdata
       plantdatax          = plantdatax
       forecastparameters  = forecastparameters
       forecastparametersx = forecastparametersx
       valuationdata       = valuationdata
       valuationdatax      = valuationdatax
       salesdata           = salesdata
       salesdatax          = salesdatax
     importing
       return              = return
     tables
       materialdescription = materialdescription[]
       unitsofmeasure      = unitsofmeasure[]
       unitsofmeasurex     = unitsofmeasurex
       taxclassifications  = taxclassifications[].
     if return-type = 'E' or return-type = 'A'.
       call function 'BAPI_TRANSACTION_ROLLBACK'.
       concatenate wa_tab-head_material ' 原材料—>' return-message into gt_out-text.
       append gt_out.
       clear gt_out.
     else.
       call function 'BAPI_TRANSACTION_COMMIT'
       exporting
         wait = 'X'.
       concatenate wa_tab2-head_material ' 成品创建成功。' into gt_out-text.
       append gt_out.
       clear gt_out.
     endif.
   endloop.
 endform.                                                    "mm01

 *&---------------------------------------------------------------------*
 *&      Form  open
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form open .

   call function 'KD_GET_FILENAME_ON_F4'
   exporting
 *     PROGRAM_NAME        = SYST-REPID
 *     DYNPRO_NUMBER       = SYST-DYNNR
 *     FIELD_NAME          = ' '
 *mask    = '*.txt,*.txt'
     mask    = '*.xlsx,*.xls'
     static  = 'X'
 *     MASK                = ' '
 *     FILEOPERATION       = 'R'
 *     PATH                =
   changing
     file_name           = p_file
 *     LOCATION_FLAG       = 'P'
 *   EXCEPTIONS
 *     MASK_TOO_LONG       = 1
 *     OTHERS              = 2
     .
 endform.                    "vq_fn

 *&---------------------------------------------------------------------*
 *&      Form  vq_fn1
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 "vq_fn

 *&---------------------------------------------------------------------*
 *&      Form  upload_file
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form upload_file .
   data: it_raw_data type truxs_t_text_data.
   field-SYMBOLS <fs> type ty_tab.
   field-SYMBOLS:<fw>.
   data: i_excel type table of alsmex_tabline,"表格结构。"
         w_excel type alsmex_tabline.
   data:num_col type i.
   refresh: it_tab.
   "调用此函数，将Excel中的内容以类似坐标的形式存储到I_excel内表中。"
   call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
   exporting
     filename                = p_file
     i_begin_col             =
     i_begin_row             =
     i_end_col               =        "控制传入字段个数
     i_end_row               =
   tables
     intern                  = i_excel
   exceptions
     inconsistent_parameters =
     upload_ole              =
     others                  = .
   delete i_excel where row = .        "删除第一行文本抬头。
   if i_excel is initial.
     call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
     exporting
 *     DEFAULTOPTION        = 'Y'
       diagnosetext1        = '数据错误'
 *     DIAGNOSETEXT2        = ' '
 *     DIAGNOSETEXT3        = ' '
       textline1            =  'Excel表格中没有内容！'
       titel                = '提示' .
     return.
   endif.
   sort i_excel by row col.

   loop at i_excel into w_excel.
     num_col = w_excel-col.
     assign component  num_col  of structure wa_tab to <fw>.
     <fw> = w_excel-value.
     at end of row.
       append wa_tab to it_tab.
       clear:wa_tab.
     endat.
     clear:w_excel.
   endloop.
 endform.                    " UPLOAD_FILE

 *&---------------------------------------------------------------------*
 *&      Form  upload_file2
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form upload_file2.
   data: it_raw_data type truxs_t_text_data.
   field-SYMBOLS <fs> type ty_tab2.
   field-SYMBOLS:<fw>.

   data: i_excel type table of alsmex_tabline,"表格结构。"
         w_excel type alsmex_tabline.
   data:num_col type i.
   refresh: it_tab2.
   "调用此函数，将Excel中的内容以类似坐标的形式存储到I_excel内表中。"
   call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
   exporting
     filename                = p_file
     i_begin_col             =
     i_begin_row             =
     i_end_col               =        "控制传入字段个数
     i_end_row               =
   tables
     intern                  = i_excel
   exceptions
     inconsistent_parameters =
     upload_ole              =
     others                  = .
   delete i_excel where row = .         "删除第一行文本抬头。
   if i_excel is initial.
     call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
     exporting
 *     DEFAULTOPTION        = 'Y'
       diagnosetext1        = '数据错误'
 *     DIAGNOSETEXT2        = ' '
 *     DIAGNOSETEXT3        = ' '
       textline1            =  'Excel表格中没有内容！'
       titel                = '提示' .
     return.
   endif.
   sort i_excel by row col.

   loop at i_excel into w_excel.
     num_col = w_excel-col.
     assign component  num_col  of structure wa_tab2 to <fw>.
     <fw> = w_excel-value.
     at end of row.
       append wa_tab2 to it_tab2.
       clear:wa_tab2.
     endat.
     clear:w_excel.
   endloop.
 endform.                    " UPLOAD_FILE

 *获取基本计量单位内码
 form frm_unit using unit1 changing unit2.
   call function 'CONVERSION_EXIT_CUNIT_INPUT'
   exporting
     input          = unit1
     language       = sy-langu
   importing
     output         = unit2
   exceptions
     unit_not_found =
     others         = .
   if sy-subrc <> .
 *   message id sy-msgid type sy-msgty number sy-msgno
 *           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
   endif.
 endform.                    "frm_unit

 *&---------------------------------------------------------------------*
 *&      Form  result_message
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form result_message.
   loop at gt_out.
     write: / gt_out-text.
   endloop.
 endform.                    "sub_output_result

 *&---------------------------------------------------------------------*
 *&      Form  selection_screeen
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form selection_screeen .
   case sscrfields-ucomm.
   when 'FC01'.
     if radio_1 = 'X'.
       perform download_template.
     else.
       perform download_template2.
     endif.
   endcase.
 endform.                    "SELECTION_SCREEEN

 *&---------------------------------------------------------------------*
 *&      Form  download_template
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form download_template.

   data lv_file like rlgrap-filename.
   data lv_string type string.

   call function 'KD_GET_FILENAME_ON_F4'
   exporting
 *     PROGRAM_NAME        = SYST-REPID
 *     DYNPRO_NUMBER       = SYST-DYNNR
 *     field_name          = lv_string
     static              = 'X'
     mask                = ',EXCEL,*.xls.'
 *     FILEOPERATION       = 'R'
 *     PATH                =
   changing
     file_name           = lv_file.
   clear wa_tab.
   wa_tab-head_material = 'YCL07'.
   wa_tab-head_ind_sector = 'M'.
   wa_tab-head_matl_type = ''.
   wa_tab-marc_plant = ''.
   wa_tab-mvke_sales_org = ''.
   wa_tab-mvke_distr_chan = ''.
   wa_tab-t_makt_matl_desc = 'YCL07原材料'.
   wa_tab-mara_base_uom = 'EA'.
   wa_tab-mara_matl_group = ''.
   wa_tab-mara_extwg = 'DW'.
   wa_tab-mara_item_cat = 'NORM'.
   wa_tab-t_marm_unit_of_wt = 'KG'.
   wa_tab-mara_wrkst = '基本数据2_基本物料'.
   wa_tab-mara_ihivi = 'X'.
   wa_tab-mara_zeinr = '基本数据2_客户物料编码'.
   wa_tab-mvke_dwerk = ''.
   wa_tab-mvke_sktof = 'X'.
   wa_tab-t_mlan_taxclass1 = ''.
   wa_tab-mvke_matl_stats = ''.
   wa_tab-mvke_acct_assgt = ''.
   wa_tab-mvke_item_cat = 'NORM'.
   wa_tab-marc_availcheck = ''.
   wa_tab-mara_trans_grp = ''.
   wa_tab-marc_loadinggrp = ''.
   wa_tab-marc_pur_group = ''.
   wa_tab-marc_batch_mgmt = 'X'.
   wa_tab-marc_auto_p_ord = 'X'.
   wa_tab-marc_webaz = ''.
   wa_tab-marc_insmk = 'X'.
   wa_tab-marc_mrp_group = ''.
   wa_tab-marc_maabc = 'A'.
   wa_tab-marc_mrp_type = 'PD'.
   wa_tab-marc_mrp_ctrler = ''.
   wa_tab-marc_lotsizekey = 'EX'.
   wa_tab-marc_minlotsize = ''.
   wa_tab-marc_round_val = ''.
   wa_tab-marc_proc_type = 'F'.
   wa_tab-marc_lgpro = ''.
   wa_tab-marc_rgekz = ''.
   wa_tab-marc_lgfsb = ''.
   wa_tab-marc_sm_key = ''.
   wa_tab-marc_plnd_delry = ''.
   wa_tab-marc_sbdkz = ''.
   wa_tab-mbew_val_class = ''.
   wa_tab-mbew_ml_settle = ''.
   wa_tab-mbew_std_price = ''.
   wa_tab-mbew_moving_pr = ''.
   wa_tab-mbew_price_ctrl = 'V'.
   wa_tab-mbew_price_unit = ''.
   wa_tab-mbew_hrkft = 'Z10'.
   wa_tab-mbew_orig_mat = 'X'.
   wa_tab-marc_losgr = ''.
   append wa_tab to it_tab.
   clear wa_tab.

   if it_fname is initial.
     perform append_filename using:'物料号',
           '行业领域',
           '物料类型',
           '工厂',
           '销售组织',
           '分销渠道',
           '物料描述',
           '基本计量单位',
           '物料组',
           '客户',
           '普通项目组类别',
           '重量单位',
           '基本物料',
           '是否客供',
           '客户物料编码',
           '交货工厂',
           '现金折扣',
           '税分类',
           '物料统计组',
           '科目设置组',
           '项目类别组',
           '可用性检查',
           '运输组',
           '装载组',
           '采购组',
           '批次管理标示',
           '自动采购订单标识',
           '收货处理时间',
           '过账至检验库存',
           'MRP组',
           'ABC标识',
           'MRP类型',
           'MRP控制者',
           '批量',
           '最小批量',
           '舍入值',
           '采购类型',
           '生产仓储地点',
           '反冲',
           '外部采购仓储地点',
           '计划边际码',
           '计划交货时间',
           '集中/独立',
           '评估级别',
           '价格确定',
           '标准价格',
           '移动平均价',
           '价格控制',
           '价格单位',
           '原始组',
           '物料来源',
           '成品核算PL'.
   endif.
   lv_string = lv_file.
   call function 'GUI_DOWNLOAD'
   exporting
 *         BIN_FILESIZE                    =
     filename                        = lv_string
     filetype                       = 'DBF'
 *      filetype                        = 'DAT'
     append                       = 'X'
     write_field_separator           = 'X'
     codepage                        = ''   "指定写文件时用的字符集
   tables
     data_tab                        = it_tab
     fieldnames                      = it_fname[].
   if sy-subrc <> .
 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   endif.
   clear: it_tab,it_fname[],lv_string.
 endform.                    "download_templat

 *&---------------------------------------------------------------------*
 *&      Form  download_template2
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 form download_template2.

   data lv_file like rlgrap-filename.
   data lv_string type string.

   call function 'KD_GET_FILENAME_ON_F4'
   exporting
 *     PROGRAM_NAME        = SYST-REPID
 *     DYNPRO_NUMBER       = SYST-DYNNR
 *     field_name          = lv_string
     static              = 'X'
     mask                = ',EXCEL,*.xls.'
 *     FILEOPERATION       = 'R'
 *     PATH                =
   changing
     file_name           = lv_file.
   clear wa_tab2.
   wa_tab2-head_material = 'CP01'.
   wa_tab2-head_ind_sector = 'M'.
   wa_tab2-head_matl_type = ''.
   wa_tab2-marc_plant = ''.
   wa_tab2-mvke_sales_org = ''.
   wa_tab2-mvke_distr_chan = ''.
   wa_tab2-t_makt_matl_desc = 'CP01成品测试'.
   wa_tab2-mara_base_uom = 'EA'.
   wa_tab2-mara_matl_group = ''.
   wa_tab2-mara_extwg = 'DW'.
   wa_tab2-mara_spart = ''.
   wa_tab2-mara_item_cat = 'NORM'.
   wa_tab2-t_marm_unit_of_wt = 'KG'.
   wa_tab2-mara_formt = 'Y'.
   wa_tab2-mara_wrkst = '基本物料'.
   wa_tab2-mara_zeinr = '客户物料编码'.
   wa_tab2-mvke_dwerk = ''.
   wa_tab2-mvke_sktof = 'X'.
   wa_tab2-t_mlan_taxclass1 = ''.
   wa_tab2-mvke_matl_stats = ''.
   wa_tab2-mvke_acct_assgt = ''.
   wa_tab2-mvke_item_cat = 'NORM'.
   wa_tab2-marc_availcheck = ''.
   wa_tab2-mara_trans_grp = ''.
   wa_tab2-marc_loadinggrp = ''.
   wa_tab2-marc_ekgrp = ''.
   wa_tab2-marc_kautb = 'X'.
   wa_tab2-marc_xchpf = 'X'.
   wa_tab2-marc_webaz = ''.           "收货处理时间
   wa_tab2-marc_mrp_group = 'F001'.
   wa_tab2-marc_mrp_type = 'PD'.
   wa_tab2-marc_mrp_ctrler = ''.
   wa_tab2-marc_lotsizekey = 'EX'.     "批量大小
   wa_tab2-marc_bstmi = ''.         "最小批量大小
   wa_tab2-marc_bstrf = ''.         "舍入值
   wa_tab2-marc_proc_type = 'X'.       "采购类型
   wa_tab2-marc_sobsl = ''.          "特殊采购类型
   wa_tab2-marc_lgpro = ''.        "生产仓储地点
   wa_tab2-marc_lgfsb = ''.        "外部采购仓储地点
   wa_tab2-marc_dzeit = ''.           "自制生产天数
   wa_tab2-marc_plifz = ''.           "计划交货时间
   wa_tab2-marc_eisbe = ''.         "安全库存
   wa_tab2-marc_sm_key = ''.        "计划边际码
   wa_tab2-marc_strgr = ''.          "策略组
   wa_tab2-marc_vrmod = ''.           "消耗模式
   wa_tab2-marc_vint1 = ''.         "逆向消耗期间
   wa_tab2-marc_vint2 = ''.         "向前消耗期间
   wa_tab2-marc_altsl = ''.           "选择方法
   wa_tab2-marc_sbdkz = ''.           "集中/独立
   wa_tab2-mpop_prmod = 'D'.           "预测模型
   wa_tab2-mbew_val_class = ''.    "评估级别
   wa_tab2-mbew_ml_settle = ''.       "价格确定
   wa_tab2-mbew_std_price = ''.       "标准价格
   wa_tab2-mbew_price_ctrl = 'S'.      "价格控制
   wa_tab2-mbew_orig_mat = 'X'.        "物料来源
   wa_tab2-marc_awsls = ''.      "差异码
   wa_tab2-marc_losgr = ''.         "成本核算批量
   append wa_tab2 to it_tab2.
   clear wa_tab2.

   if it_fname is initial.
     perform append_filename using:'物料号',
           '行业领域',
           '物料类型',
           '工厂',
           '销售组织',
           '分销渠道',
           '物料描述',
           '基本计量单位',
           '物料组',
           '客户',
           '产品组',
           '普通项目组类别',
           '重量单位',
           '替代料标识',
           '基本物料',
           '客户物料编码',
           '交货工厂',
           '现金折扣',
           '税分类',
           '物料统计组',
           '科目设置组',
           '项目类别组',
           '可用性检查',
           '运输组',
           '装载组',
           '采购组',
           '自动采购单',
           '批次管理',
           '收货处理时间',
           'MRP组',
           'MRP类型',
           'MRP控制者',
           '批量大小',
           '最小批量大小',
           '舍入值',
           '采购类型',
           '特殊采购类型',
           '生产仓储地点',
           '外部采购仓储地点',
           '生产时间',
           '计划交货时间',
           '安全库存',
           '计划边际码',
           '策略组',
           '消耗模式',
           '逆向消耗模式',
           '向前消耗模式',
           '选择方法',
           '集中/独立',
           '预测模型',
           '评估级别',
           '价格确定',
           '标准价格',
           '价格控制',
           '物料来源',
           '差异码',
           '成本核算批量'.
   endif.
   lv_string = lv_file.
   call function 'GUI_DOWNLOAD'
   exporting
 *         BIN_FILESIZE                    =
     filename                        = lv_string
     filetype                        = 'DBF'
 *         APPEND                          = ' '
     write_field_separator           = 'X'
     codepage                        = ''   "指定写文件时用的字符集
   tables
     data_tab                        = it_tab2
     fieldnames                      = it_fname[].
   if sy-subrc <> .
 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   endif.
   clear:it_tab2,it_fname[],lv_string.
 endform.                    "download_templat

 *&---------------------------------------------------------------------*
 *&      Form  append_filename
 *&---------------------------------------------------------------------*
 *       text
 *----------------------------------------------------------------------*
 *      -->P_NAME     text
 *----------------------------------------------------------------------*
 form append_filename using p_name .
   it_fname-name = p_name.
   append it_fname.
   clear it_fname.
 endform.                    "append_filename
 *&---------------------------------------------------------------------*
 *&      Form  POP_CONFIRM
 *&---------------------------------------------------------------------*
 *      弹出确认对话框进行价格判断
 *----------------------------------------------------------------------*
 *  -->  p1        text
 *  <--  p2        text
 *----------------------------------------------------------------------*
 form pop_confirm using value(char_abc) value(material).
   data: resul type c,
         str   type char255.
   clear:resul,str.
   if char_abc = 'A'.
     concatenate material '原材料 ' char_abc '类价格大于100，继续导入？' into str.
 elseif char_abc = 'B'.
     concatenate material '原材料 ' char_abc '类价格大于5，继续导入？' into str.
   else.
     concatenate material '原材料 ' char_abc '类价格大于1，继续导入？' into str.
   endif.
   call function 'POPUP_TO_CONFIRM'
   exporting
     text_question         = str
     icon_button_1         = '是'
     icon_button_2         = '否'
     default_button        = ''
     display_cancel_button = ''  "显示取消的按钮并可用
     start_column          =
     start_row             =
   importing
     answer                = resul.
   if resul = ''.
   else.
     concatenate material ' 物料未创建！' into gt_out-text.
     append gt_out.
     clear gt_out.
     flag = .
     return.
   endif.
 endform.                    " POP_CONFIRM

在下载模板的时候使用的是 GUI_DOWNLOAD 这个函数，通过这个函数的 filetype = 'DBF'，codepage = '8400' 可以保存带有前导零的数据，但是下载的模板抬头的中文的每列最多只能显示五个汉字。

如果 filetype = 'DAT',抬头的文本数据可以完整下载，但是主要数据则会去除数字的前导零。

如果有知道如何解决的话请在评论区留言，谢谢！！！