• 物料主数据批导bapi


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

       1 report zmmr_bapi_mm01 no standard page HEADING.
       2 type-POOLS:slis,truxs,icon.
       3 tables: sscrfields,lips,resb,marc,ckmlab02.
       4 data num type stprs_bapi.
       5 data flag type i.                 "标识符,如果不为1则不创建物料
       6 
       7 types:begin of ty_tab,
       8   head_material type matnr,       "物料号
       9   head_ind_sector type mbrsh,     "行业领域
      10   head_matl_type type mtart,      "物料类型
      11   marc_plant type werks_d,        "工厂
      12   mvke_sales_org type vkorg,      "销售组织
      13   mvke_distr_chan type vtweg,     "分销渠道
      14   t_makt_matl_desc type maktx,    "物料描述
      15   mara_base_uom type meins,       "基本计量单位
      16   mara_matl_group type matkl,     "物料组
      17   mara_extwg type extwg,          "客户
      18   mara_item_cat type mtpos_mara,  "普通项目组类别
      19   t_marm_unit_of_wt type gewei,   "重量单位
      20   mara_wrkst type wrkst,          "基本物料
      21   mara_ihivi type adge_ihivi,     "是否客供
      22   mara_zeinr type dzeinr,         "客户物料编码
      23   mvke_dwerk type maktx,          "交货工厂
      24   mvke_sktof type sktof,          "现金折扣
      25   t_mlan_taxclass1 type taxkm,    "税分类
      26   mvke_matl_stats type stgma,     "物料统计组
      27   mvke_acct_assgt type ktgrm,     "科目设置组
      28   mvke_item_cat type mtpos,       "项目类别组
      29   marc_availcheck type mtvfp,     "可用性检查
      30   mara_trans_grp type tragr,      "运输组
      31   marc_loadinggrp type ladgr,     "装载组
      32   marc_pur_group type ekgrp,      "采购组
      33   marc_batch_mgmt type xchpf,     "批次管理标示
      34   marc_auto_p_ord type kautb,     "自动采购订单标识
      35   marc_webaz type webaz,          "收货处理时间
      36   marc_insmk type insmk_mat,      "过账到检验库存
      37   marc_mrp_group type disgr,      "MRP组
      38   marc_maabc type maabc,          "ABC标识
      39   marc_mrp_type type dismm,       "MRP类型
      40   marc_mrp_ctrler type dispo,     "MRP控制者
      41   marc_lotsizekey type disls,     "批量
      42   marc_minlotsize type bstmi,     "最小批量
      43   marc_round_val type bstrf,      "舍入值
      44   marc_proc_type type beskz,      "采购类型
      45   marc_lgpro type lgpro,          "生产仓储地点
      46   marc_rgekz type rgekz,          "反冲
      47   marc_lgfsb type lgfsb,          "外部采购仓储地点
      48   marc_sm_key type fhori,         "计划边际码
      49   marc_plnd_delry type plifz,     "计划交货时间
      50   marc_sbdkz type sbdkz,          "集中/独立
      51 *  mpop_prmod TYPE mpop-prmod,     "预测模型
      52   mbew_val_class type bklas,      "评估级别
      53   mbew_ml_settle type ck_ml_abst, "价格确定
      54   mbew_std_price type ck_pvprs_1, "标准价格
      55   mbew_moving_pr type ck_pvprs_1, "移动平均价
      56   mbew_price_ctrl type vprsv,     "价格控制
      57   mbew_price_unit type peinh,     "价格单位
      58   mbew_hrkft type hrkft,          "原始组
      59   mbew_orig_mat type hkmat,       "物料来源
      60   marc_losgr type ck_losgr,       "成品核算批量
      61 end of ty_tab.
      62 
      63 types:begin of ty_tab2,
      64   head_material type matnr,       "物料号
      65   head_ind_sector type mbrsh,     "行业领域
      66   head_matl_type type mtart,      "物料类型
      67   marc_plant type werks_d,        "工厂
      68   mvke_sales_org type vkorg,      "销售组织
      69   mvke_distr_chan type vtweg,     "分销渠道
      70   t_makt_matl_desc type maktx,    "物料描述
      71   mara_base_uom type meins,       "基本计量单位
      72   mara_matl_group type matkl,     "物料组
      73   mara_extwg type extwg,          "客户
      74   mara_spart type spart,          "产品组
      75   mara_item_cat type mtpos_mara,  "普通项目组类别
      76   t_marm_unit_of_wt type gewei,   "重量单位
      77   mara_formt type formt,          "替代料标识
      78   mara_wrkst type wrkst,          "基本物料
      79   mara_zeinr type dzeinr,         "客户物料编码
      80   mvke_dwerk type maktx,          "交货工厂
      81   mvke_sktof type sktof,          "现金折扣
      82   t_mlan_taxclass1 type taxkm,    "税分类
      83   mvke_matl_stats type stgma,     "物料统计组
      84   mvke_acct_assgt type ktgrm,     "科目设置组
      85   mvke_item_cat type mtpos,       "项目类别组
      86   marc_availcheck type mtvfp,     "可用性检查
      87   mara_trans_grp type tragr,      "运输组
      88   marc_loadinggrp type ladgr,     "装载组
      89   marc_ekgrp type ekgrp,          "采购组
      90   marc_kautb type kautb,          "自动采购单
      91   marc_xchpf type xchpf,          "批次管理
      92   marc_webaz type webaz,          "收货处理时间
      93   marc_mrp_group type disgr,      "MRP组
      94   marc_mrp_type type dismm,       "MRP类型
      95   marc_mrp_ctrler type dispo,     "MRP控制者
      96   marc_lotsizekey type disls,     "批量大小
      97   marc_bstmi type bstmi,          "最小批量大小
      98   marc_bstrf type bstrf,          "舍入值
      99   marc_proc_type type beskz,      "采购类型
     100   marc_sobsl type sobsl,          "特殊采购类型
     101   marc_lgpro type lgpro,          "生产仓储地点
     102   marc_lgfsb type lgfsb,          "外部采购仓储地点
     103   marc_dzeit type dzeit,          "生产时间
     104   marc_plifz type plifz,          "计划交货时间
     105   marc_eisbe type eisbe,          "安全库存
     106   marc_sm_key type fhori,         "计划边际码
     107   marc_strgr type strgr,          "策略组
     108   marc_vrmod type vrmod,          "消耗模式
     109   marc_vint1 type vint1,          "逆向消耗期间
     110   marc_vint2 type vint2,          "向前消耗期间
     111   marc_altsl type altsl,          "选择方法
     112   marc_sbdkz type sbdkz,          "集中/独立
     113   mpop_prmod type mpop-prmod,     "预测模型
     114   mbew_val_class type bklas,      "评估级别
     115   mbew_ml_settle type ck_ml_abst, "价格确定
     116   mbew_std_price type ck_pvprs_1, "标准价格
     117   mbew_price_ctrl type vprsv,     "价格控制
     118   mbew_orig_mat type hkmat,       "物料来源
     119   marc_awsls type awsls,          "差异码
     120   marc_losgr type ck_losgr,       "成本核算批量
     121 end of ty_tab2.
     122 
     123 data:it_tab type table of  ty_tab ,   "原材料
     124       wa_tab type ty_tab.
     125 data:it_tab2 type table of  ty_tab2,  "成品
     126       wa_tab2 type ty_tab2.
     127 
     128 *输入参数
     129 data: headdata                type bapimathead,     "表头数据
     130       clientdata              type bapi_mara,       "基本数据
     131       clientdatax             type bapi_marax,
     132       plantdata like  bapi_marc,                    "工厂数据
     133       plantdatax  like  bapi_marcx,
     134       forecastparameters type  bapi_mpop,           "预测
     135       forecastparametersx type bapi_mpopx,
     136       planningdata type bapi_mpgd,                  "计划
     137       planningdatax type bapi_mpgdx,
     138       valuationdata type bapi_mbew,                 "评估数据
     139       valuationdatax type bapi_mbewx,
     140       warehousenumberdata type bapi_mlgn,           "仓库数据
     141       warehousenumberdatax type bapi_mlgnx,
     142       salesdata type bapi_mvke,                     "销售数据
     143       salesdatax type bapi_mvkex,
     144       storagetypedata type bapi_mlgt,               "存储类型数据
     145       storagetypedatax type bapi_mlgtx.
     146 
     147 *表参数
     148 data: materialdescription type table of bapi_makt with header line,   "描述
     149       unitsofmeasure type table of bapi_marm with header line,        "单位
     150       unitsofmeasurex type table of bapi_marmx with header line,
     151       taxclassifications type table of bapi_mlan with header line,    "税分类
     152       return like table of bapiret2 with header line.                 "错误信息
     153 
     154 data pr_unit type meins.  "基本单位
     155 data pr_unit2 type meins. "重量单位
     156 
     157 data: begin of gt_out occurs 0, "保存return信息
     158   text(255),
     159 end of gt_out.
     160 
     161 *TYPES:BEGIN OF ty_fieldnames ,
     162 *  name TYPE CHAR255,
     163 *END OF ty_fieldnames.
     164 *DATA it_fname TYPE TABLE OF ty_fieldnames WITH HEADER LINE.
     165 data:begin of it_fname occurs 0,
     166   name type char255,
     167 end of it_fname.
     168 
     169 
     170 SELECTION-screen begin of block blk_001 with frame title text-001 . "选择文件路径
     171   parameters:p_file like rlgrap-filename.
     172 SELECTION-screen end of block blk_001.
     173 SELECTION-screen: uline /1(82).
     174 SELECTION-screen: uline 83(83).
     175 SELECTION-screen begin of block blk_002 with frame title text-002.  "确定创建物料类型
     176   parameters:radio_1 radiobutton group radi,    "原材料
     177   radio_2 radiobutton group radi.               "半成品/成品
     178 SELECTION-screen end of block blk_002.
     179 
     180 
     181 SELECTION-screen function key 1. "应用工具栏增加按钮
     182 
     183 initialization.
     184 write icon_change_text as icon to sscrfields-functxt_01+0(4).
     185 sscrfields-functxt_01+4(*) = '下载模板'."分配字符位置
     186 
     187 at SELECTION-screen.
     188 perform selection_screeen.   "模板下载
     189 
     190 
     191 at SELECTION-screen on value-REQUEST for p_file  .
     192 perform open.
     193 
     194 START-of-SELECTION.
     195 if radio_1 = 'X'.
     196   perform upload_file.      "上传数据
     197   perform mm01_1.           "执行批导(原材料).
     198 else.
     199   perform upload_file2.     "上传数据
     200   perform mm01_2.           "执行批导(成品/半成品)
     201 endif.
     202 
     203 
     204 end-of-SELECTION.
     205 perform result_message.   "显示执行结果
     206 
     207 *&---------------------------------------------------------------------*
     208 *&      Form  MM01
     209 *&---------------------------------------------------------------------*
     210 *       text
     211 *----------------------------------------------------------------------*
     212 *  -->  p1        text
     213 *  <--  p2        text
     214 *----------------------------------------------------------------------*
     215 form mm01_1.
     216   loop at it_tab into wa_tab.
     217 *前导0
     218     call function 'CONVERSION_EXIT_ALPHA_INPUT'
     219     exporting
     220       input  = wa_tab-head_material
     221     importing
     222       output = wa_tab-head_material.
     223 
     224 *判断物料是否以存在
     225     select single * from marc where matnr = wa_tab-head_material and werks = wa_tab-marc_plant.
     226     if sy-subrc = 0.
     227       concatenate wa_tab-head_material ' 物料在' wa_tab-marc_plant ' 工厂已存在!' into gt_out-text.
     228       append gt_out.
     229       clear gt_out.
     230       continue.
     231     endif.
     232 
     233     if wa_tab-mbew_moving_pr = ''.
     234       concatenate wa_tab-head_material '->原材料的移动平均价格为空' into gt_out-text.
     235       append gt_out.
     236       clear gt_out.
     237       continue.
     238     endif.
     239 
     240     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "科目设置组
     241     exporting
     242       input        = wa_tab-mvke_acct_assgt
     243     importing
     244       output        = wa_tab-mvke_acct_assgt.
     245     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "可用性检查
     246     exporting
     247       input         = wa_tab-marc_availcheck
     248     importing
     249       output        = wa_tab-marc_availcheck.
     250     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "运输组
     251     exporting
     252       input         = wa_tab-mara_trans_grp
     253     importing
     254       output        = wa_tab-mara_trans_grp.
     255     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "装载组
     256     exporting
     257       input         = wa_tab-marc_loadinggrp
     258     importing
     259       output        = wa_tab-marc_loadinggrp.
     260     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP组
     261     exporting
     262       input         = wa_tab-marc_mrp_group
     263     importing
     264       output        = wa_tab-marc_mrp_group.
     265     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP控制者
     266     exporting
     267       input         = wa_tab-marc_mrp_ctrler
     268     importing
     269       output        = wa_tab-marc_mrp_ctrler.
     270     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "计划边际值
     271     exporting
     272       input         = wa_tab-marc_sm_key
     273     importing
     274       output        = wa_tab-marc_sm_key.
     275 
     276 *判断是否客供,提示价格信息
     277     if wa_tab-mara_ihivi <> 'X'.
     278       clear num.
     279       num = wa_tab-mbew_std_price / wa_tab-mbew_price_unit.
     280       case wa_tab-marc_maabc.   "ABC标识
     281       when 'A'.
     282         if num > 100.
     283           perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
     284           if flag = 1.  "为否时执行下一物料
     285             clear flag.
     286             continue.
     287           endif.
     288         endif.
     289       when 'B'.
     290         if num > 5.
     291           perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
     292           if flag = 1.
     293             clear flag.
     294             continue.
     295           endif.
     296         endif.
     297       when others.
     298         perform pop_confirm using wa_tab-marc_maabc wa_tab-head_material.
     299         if flag = 1.
     300           clear flag.
     301           continue.
     302         endif.
     303       endcase.
     304     endif.
     305 
     306     clear headdata.
     307     headdata-material = wa_tab-head_material.
     308     headdata-matl_type = wa_tab-head_matl_type.
     309     headdata-ind_sector = wa_tab-head_ind_sector.
     310     headdata-basic_view = 'X'.        "基本数据视图
     311     headdata-sales_view = 'X'.        "销售视图
     312     headdata-purchase_view = 'X'.     "采购视图
     313     headdata-mrp_view = 'X'.          "物料需求计划(MRP)视图
     314 *    headdata-forecast_view = 'X'.     "预测视图
     315     headdata-warehouse_view = 'X'.    "工作计划视图
     316     headdata-account_view = 'X'.      "会计视图
     317     headdata-cost_view = 'X'.         "成本视图
     318 
     319 *基本数据
     320     clear pr_unit.
     321     perform frm_unit using wa_tab-mara_base_uom changing pr_unit."基本单位
     322     clear: clientdata.
     323     clientdata-base_uom = pr_unit.                    "基本计量单位
     324     clientdata-matl_group = wa_tab-mara_matl_group.   "物料组
     325     clientdata-item_cat = wa_tab-mara_item_cat.       "普通项目类别组
     326     clientdata-trans_grp = wa_tab-mara_trans_grp.     "运输组
     327     clientdata-extmatlgrp = wa_tab-mara_extwg.        "客户
     328     clientdata-basic_matl = wa_tab-mara_wrkst.        "基本物料
     329     clientdata-high_visc = wa_tab-mara_ihivi.         "是否客供
     330     clientdata-document = wa_tab-mara_zeinr.          "客户物料编码
     331     clear clientdatax.
     332     clientdatax-base_uom = 'X'.   "基本计量单位
     333     clientdatax-matl_group = 'X'.
     334     clientdatax-item_cat = 'X'.
     335     clientdatax-net_weight = 'X'.
     336     clientdatax-trans_grp = 'X'.
     337     clientdatax-extmatlgrp = 'X'.
     338     clientdatax-basic_matl = 'X'.
     339     clientdatax-high_visc = 'X'.
     340     clientdatax-document = 'X'.
     341 
     342 *工厂级别数据
     343     clear:plantdata.
     344     plantdata-plant = wa_tab-marc_plant.   "工厂
     345     plantdata-availcheck = wa_tab-marc_availcheck.    "可用性检查
     346     plantdata-loadinggrp = wa_tab-marc_loadinggrp.    "装载组
     347     plantdata-pur_group = wa_tab-marc_pur_group.      "采购组
     348     plantdata-batch_mgmt = wa_tab-marc_batch_mgmt.    "批次管理标示
     349     plantdata-auto_p_ord = wa_tab-marc_auto_p_ord.    "自动采购订单标识
     350     plantdata-gr_pr_time = wa_tab-marc_webaz.         "自动采购订单标识
     351     plantdata-ind_post_to_insp_stock = wa_tab-marc_insmk.    "过账到检验库存
     352     plantdata-mrp_group = wa_tab-marc_mrp_group.      "MRP组
     353     plantdata-abc_id = wa_tab-marc_maabc.             "ABC标识
     354     plantdata-mrp_type = wa_tab-marc_mrp_type.        "MRP类型
     355     plantdata-mrp_ctrler = wa_tab-marc_mrp_ctrler.    "MRP控制者
     356     plantdata-lotsizekey = wa_tab-marc_lotsizekey.    "批量
     357     plantdata-minlotsize = wa_tab-marc_minlotsize.    "最小批量
     358     plantdata-round_val = wa_tab-marc_round_val.      "舍入值
     359     plantdata-proc_type = wa_tab-marc_proc_type.      "采购类型
     360     plantdata-iss_st_loc = wa_tab-marc_lgpro.         "生产仓储地点
     361     plantdata-backflush = wa_tab-marc_rgekz.          "反冲
     362     plantdata-sloc_exprc = wa_tab-marc_lgfsb.         "外部采购仓储地点
     363     plantdata-sm_key = wa_tab-marc_sm_key.            "计划边际码
     364     plantdata-plnd_delry = wa_tab-marc_plnd_delry.    "计划交货时间
     365     plantdata-dep_req_id = wa_tab-marc_sbdkz.         "集中/独立
     366     plantdata-lot_size = wa_tab-marc_losgr.           "批量产品核算
     367     clear plantdatax.
     368     plantdatax-plant = wa_tab-marc_plant.
     369     plantdatax-availcheck = 'X'.
     370     plantdatax-loadinggrp = 'X'.
     371     plantdatax-pur_group = 'X'.
     372     plantdatax-batch_mgmt = 'X'.
     373     plantdatax-auto_p_ord = 'X'.
     374     plantdatax-gr_pr_time = 'X'.
     375     plantdatax-ind_post_to_insp_stock = 'X'.
     376     plantdatax-mrp_group = 'X'.
     377     plantdatax-abc_id = 'X'.
     378     plantdatax-mrp_type = 'X'.
     379     plantdatax-mrp_ctrler = 'X'.
     380     plantdatax-lotsizekey = 'X'.
     381     plantdatax-minlotsize = 'X'.
     382     plantdatax-round_val = 'X'.
     383     plantdatax-proc_type = 'X'.
     384     plantdatax-iss_st_loc = 'X'.
     385     plantdatax-backflush = 'X'.
     386     plantdatax-sloc_exprc = 'X'.
     387     plantdatax-sm_key = 'X'.
     388     plantdatax-plnd_delry = 'X'.
     389     plantdatax-dep_req_id = 'X'.
     390     plantdatax-lot_size = 'X'.
     391 
     392 *销售数据
     393     clear salesdata.
     394     salesdata-sales_org = wa_tab-mvke_sales_org.      "销售组织
     395     salesdata-distr_chan = wa_tab-mvke_distr_chan.    "分销渠道
     396     salesdata-delyg_plnt = wa_tab-mvke_dwerk.         "交货工厂
     397     salesdata-cash_disc = wa_tab-mvke_sktof.          "现金折扣标志
     398     salesdata-matl_stats = wa_tab-mvke_matl_stats.    "物料统计组
     399     salesdata-acct_assgt = wa_tab-mvke_acct_assgt.    "科目设置组
     400     salesdata-item_cat = wa_tab-mvke_item_cat.        "项目类别组
     401     clear salesdatax.
     402     salesdatax-sales_org = wa_tab-mvke_sales_org.
     403     salesdatax-distr_chan = wa_tab-mvke_distr_chan.
     404     salesdatax-delyg_plnt = 'X'.
     405     salesdatax-cash_disc = 'X'.
     406     salesdatax-matl_stats = 'X'.
     407     salesdatax-acct_assgt = 'X'.
     408     salesdatax-item_cat = 'X'.
     409 
     410 **预测
     411 *    CLEAR:forecastparameters,forecastparametersx.
     412 *    forecastparameters-plant = wa_tab-marc_plant.         "工厂
     413 *    forecastparameters-fore_model = wa_tab-mpop_prmod.    "预测模型
     414 *    forecastparametersx-plant = wa_tab-marc_plant.
     415 *    forecastparametersx-fore_model = 'X'.
     416 
     417 *会计、成本
     418     clear valuationdata.
     419     valuationdata-val_area = wa_tab-marc_plant.
     420     valuationdata-val_class = wa_tab-mbew_val_class.      "评估级别
     421     valuationdata-ml_settle = wa_tab-mbew_ml_settle.      "价格确定
     422     valuationdata-std_price = wa_tab-mbew_std_price.      "标准价格
     423     valuationdata-moving_pr = wa_tab-mbew_moving_pr.      "移动平均价
     424     valuationdata-price_unit = wa_tab-mbew_price_unit.    "价格单位
     425     valuationdata-price_ctrl = wa_tab-mbew_price_ctrl.    "价格控制
     426     valuationdata-orig_group = wa_tab-mbew_hrkft.         "原始组
     427     valuationdata-orig_mat = wa_tab-mbew_orig_mat.        "物料来源
     428     clear valuationdatax.
     429     valuationdatax-val_area = wa_tab-marc_plant.
     430     valuationdatax-val_class = 'X'.
     431     valuationdatax-ml_settle = 'X'.
     432     valuationdatax-price_ctrl = 'X'.
     433     valuationdatax-price_unit = 'X'.
     434     valuationdatax-moving_pr = 'X'.
     435     valuationdatax-std_price = 'X'.
     436     valuationdatax-orig_group = 'X'.
     437     valuationdatax-orig_mat = 'X'.
     438 
     439 *物料描述
     440     clear materialdescription[].
     441     materialdescription-langu_iso = 'ZH'.
     442     materialdescription-matl_desc = wa_tab-t_makt_matl_desc.
     443     append materialdescription.
     444 
     445 *单位
     446     clear unitsofmeasure[].
     447     unitsofmeasure-alt_unit = pr_unit.
     448     unitsofmeasure-unit_of_wt = wa_tab-t_marm_unit_of_wt.
     449     append unitsofmeasure.
     450     clear unitsofmeasurex[].
     451     unitsofmeasurex-alt_unit = pr_unit.
     452     unitsofmeasurex-unit_of_wt = 'X'.
     453     append unitsofmeasurex.
     454 
     455 *税分类
     456     clear taxclassifications[].
     457     taxclassifications-depcountry = 'CN'.
     458     taxclassifications-tax_type_1 = 'MWST'.
     459     taxclassifications-taxclass_1 = wa_tab-t_mlan_taxclass1.  "税分类
     460     append taxclassifications.
     461 
     462     call function 'BAPI_MATERIAL_SAVEDATA'
     463     exporting
     464       headdata            = headdata
     465       clientdata          = clientdata
     466       clientdatax         = clientdatax
     467       plantdata           = plantdata
     468       plantdatax          = plantdatax
     469       forecastparameters  = forecastparameters
     470       forecastparametersx = forecastparametersx
     471       valuationdata       = valuationdata
     472       valuationdatax      = valuationdatax
     473       salesdata           = salesdata
     474       salesdatax          = salesdatax
     475     importing
     476       return              = return
     477     tables
     478       materialdescription = materialdescription[]
     479       unitsofmeasure      = unitsofmeasure[]
     480       unitsofmeasurex     = unitsofmeasurex
     481       taxclassifications  = taxclassifications[].
     482     if return-type = 'E' or return-type = 'A'.
     483       call function 'BAPI_TRANSACTION_ROLLBACK'.
     484       concatenate wa_tab-head_material ' 原材料—>' return-message into gt_out-text.
     485       append gt_out.
     486       clear gt_out.
     487     else.
     488       call function 'BAPI_TRANSACTION_COMMIT'
     489       exporting
     490         wait = 'X'.
     491       concatenate wa_tab-head_material ' 物料创建成功。' into gt_out-text.
     492       append gt_out.
     493       clear gt_out.
     494     endif.
     495   endloop.
     496 endform.                                                    "mm01
     497 
     498 *  PERFORM alv.
     499 *&---------------------------------------------------------------------*
     500 *&      Form  vq_fn
     501 *&---------------------------------------------------------------------*
     502 *       text
     503 *----------------------------------------------------------------------*
     504 form mm01_2.
     505   loop at it_tab2 into wa_tab2.
     506 
     507     call function 'CONVERSION_EXIT_ALPHA_INPUT'
     508     exporting
     509       input  = wa_tab2-head_material
     510     importing
     511       output = wa_tab2-head_material.
     512 
     513 *判断物料是否以存在
     514     select single * from marc where matnr = wa_tab2-head_material and werks = wa_tab2-marc_plant.
     515     if sy-subrc = 0.
     516       concatenate wa_tab2-head_material ' 物料在' wa_tab2-marc_plant ' 工厂已存在!' into gt_out-text.
     517       append gt_out.
     518       clear gt_out.
     519       continue.
     520     endif.
     521 
     522 *如果为移动平均,
     523     clear ckmlab02.
     524     if wa_tab2-mbew_price_ctrl = 'S'.
     525       select single * from ckmlab02 into ckmlab02 where bwkey = wa_tab2-marc_plant.  "Y3
     526       if ckmlab02 is initial.
     527         wa_tab2-mbew_ml_settle = '3'.       "价格确定
     528       else.
     529         wa_tab2-mbew_ml_settle = '2'.
     530       endif.
     531     endif.
     532 
     533     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "科目设置组
     534     exporting
     535       input        = wa_tab2-mvke_acct_assgt
     536     importing
     537       output        = wa_tab2-mvke_acct_assgt.
     538     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "可用性检查
     539     exporting
     540       input         = wa_tab2-marc_availcheck
     541     importing
     542       output        = wa_tab2-marc_availcheck.
     543     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "运输组
     544     exporting
     545       input         = wa_tab2-mara_trans_grp
     546     importing
     547       output        = wa_tab2-mara_trans_grp.
     548     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "装载组
     549     exporting
     550       input         = wa_tab2-marc_loadinggrp
     551     importing
     552       output        = wa_tab2-marc_loadinggrp.
     553     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "MRP控制者
     554     exporting
     555       input         = wa_tab2-marc_mrp_ctrler
     556     importing
     557       output        = wa_tab2-marc_mrp_ctrler.
     558     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "计划边际值
     559     exporting
     560       input         = wa_tab2-marc_sm_key
     561     importing
     562       output        = wa_tab2-marc_sm_key.
     563     call function 'CONVERSION_EXIT_ALPHA_INPUT'     "差异码
     564     exporting
     565       input         = wa_tab2-marc_awsls
     566     importing
     567       output        = wa_tab2-marc_awsls.
     568 
     569     clear headdata.
     570     headdata-material       = wa_tab2-head_material.
     571     headdata-matl_type      = wa_tab2-head_matl_type.
     572     headdata-ind_sector     = wa_tab2-head_ind_sector.
     573     headdata-basic_view     = 'X'.    "基本数据视图
     574     headdata-sales_view = 'X'.        "销售视图
     575     headdata-purchase_view = 'X'.     "采购视图
     576     headdata-mrp_view = 'X'.          "物料需求计划(MRP)视图
     577     headdata-forecast_view = 'X'.     "预测视图
     578     headdata-warehouse_view = 'X'.    "工作计划视图
     579     headdata-account_view = 'X'.      "会计视图
     580     headdata-cost_view = 'X'.         "成本视图
     581 
     582 *基本数据
     583     clear pr_unit.
     584     perform frm_unit using wa_tab2-mara_base_uom changing pr_unit."基本单位
     585     clear: clientdata.
     586     clientdata-base_uom = pr_unit.                     "基本计量单位
     587     clientdata-matl_group = wa_tab2-mara_matl_group.   "物料组
     588     clientdata-item_cat = wa_tab2-mara_item_cat.       "普通项目类别组
     589     clientdata-trans_grp = wa_tab2-mara_trans_grp.     "运输组
     590     clientdata-extmatlgrp = wa_tab2-mara_extwg.        "客户
     591     clientdata-division = wa_tab2-mara_spart.          "产品组
     592     clientdata-pageformat = wa_tab2-mara_formt.        "替代料标识
     593     clientdata-basic_matl = wa_tab2-mara_wrkst.        "基本物料
     594     clientdata-document = wa_tab2-mara_zeinr.          "客户物料编码
     595     clear clientdatax.
     596     clientdatax-base_uom = 'X'.   "基本计量单位
     597     clientdatax-matl_group = 'X'.
     598     clientdatax-item_cat = 'X'.
     599     clientdatax-trans_grp = 'X'.
     600     clientdatax-extmatlgrp = 'X'.
     601     clientdatax-division = 'X'.
     602     clientdatax-pageformat = 'X'.
     603     clientdatax-basic_matl = 'X'.        "基本物料
     604     clientdatax-document = 'X'.          "客户物料编码
     605 
     606 
     607 *工厂级别数据
     608     clear:plantdata.
     609     plantdata-plant = wa_tab2-marc_plant.   "工厂
     610     plantdata-availcheck = wa_tab2-marc_availcheck.    "可用性检查
     611     plantdata-loadinggrp = wa_tab2-marc_loadinggrp.    "装载组
     612     plantdata-pur_group = wa_tab2-marc_ekgrp.          "采购组
     613     plantdata-auto_p_ord = wa_tab2-marc_kautb.         "自动采购单
     614     plantdata-batch_mgmt = wa_tab2-marc_xchpf.         "批次管理
     615     plantdata-gr_pr_time = wa_tab2-marc_webaz.         "收货处理时间
     616     plantdata-mrp_group = wa_tab2-marc_mrp_group.      "MRP组
     617     plantdata-mrp_type = wa_tab2-marc_mrp_type.        "MRP类型
     618     plantdata-mrp_ctrler = wa_tab2-marc_mrp_ctrler.    "MRP控制者
     619     plantdata-lotsizekey = wa_tab2-marc_lotsizekey.    "批量大小
     620     plantdata-minlotsize = wa_tab2-marc_bstmi.         "最小批量大小
     621     plantdata-round_val = wa_tab2-marc_bstrf.         "舍入值
     622     plantdata-proc_type = wa_tab2-marc_proc_type.      "采购类型
     623     plantdata-spproctype = wa_tab2-marc_sobsl.         "特殊采购类型
     624     plantdata-iss_st_loc = wa_tab2-marc_lgpro.         "生产仓储地点
     625     plantdata-sloc_exprc = wa_tab2-marc_lgfsb.         "外部采购仓储地点
     626     plantdata-inhseprodt = wa_tab2-marc_dzeit.         "自制生产天数
     627     plantdata-plnd_delry = wa_tab2-marc_plifz.         "计划交货时间
     628     plantdata-safety_stk = wa_tab2-marc_eisbe.         "安全库存
     629     plantdata-plan_strgp = wa_tab2-marc_strgr.         "策略组
     630     plantdata-consummode = wa_tab2-marc_vrmod.         "消耗模式
     631     plantdata-bwd_cons = wa_tab2-marc_vint1.           "逆向消耗期间
     632     plantdata-fwd_cons = wa_tab2-marc_vint2.           "消耗时期-向前
     633     plantdata-alt_bom_id = wa_tab2-marc_altsl.         "选择方法(选择可替换物料单的方法)
     634     plantdata-sm_key = wa_tab2-marc_sm_key.            "计划边际码
     635     plantdata-dep_req_id = wa_tab2-marc_sbdkz.         "集中/独立
     636     plantdata-variance_key = wa_tab2-marc_awsls.       "差异码
     637     plantdata-lot_size = wa_tab2-marc_losgr.           "成本核算批量
     638     clear plantdatax.
     639     plantdatax-plant = wa_tab2-marc_plant.
     640     plantdatax-availcheck = 'X'.
     641     plantdatax-loadinggrp = 'X'.
     642     plantdatax-pur_group = 'X'.
     643     plantdatax-auto_p_ord = 'X'.
     644     plantdatax-batch_mgmt = 'X'.
     645     plantdatax-gr_pr_time = 'X'.
     646     plantdatax-mrp_group = 'X'.
     647     plantdatax-mrp_type = 'X'.
     648     plantdatax-mrp_ctrler = 'X'.
     649     plantdatax-lotsizekey = 'X'.
     650     plantdatax-minlotsize = 'X'.
     651     plantdatax-round_val = 'X'.
     652     plantdatax-proc_type = 'X'.
     653     plantdatax-spproctype = 'X'.
     654     plantdatax-iss_st_loc = 'X'.
     655     plantdatax-sloc_exprc = 'X'.
     656     plantdatax-inhseprodt = 'X'.
     657     plantdatax-plnd_delry = 'X'.
     658     plantdatax-safety_stk = 'X'.
     659     plantdatax-plan_strgp = 'X'.
     660     plantdatax-consummode = 'X'.
     661     plantdatax-bwd_cons = 'X'.
     662     plantdatax-fwd_cons = 'X'.
     663     plantdatax-alt_bom_id = 'X'.
     664     plantdatax-sm_key = 'X'.
     665     plantdatax-dep_req_id = 'X'.
     666     plantdatax-variance_key = 'X'.
     667     plantdatax-lot_size = 'X'.
     668 
     669 
     670 *销售数据
     671     clear salesdata.
     672     salesdata-sales_org = wa_tab2-mvke_sales_org.      "销售组织
     673     salesdata-distr_chan = wa_tab2-mvke_distr_chan.    "分销渠道
     674     salesdata-delyg_plnt = wa_tab2-mvke_dwerk.         "交货工厂
     675     salesdata-cash_disc = wa_tab2-mvke_sktof.          "现金折扣标志
     676     salesdata-matl_stats = wa_tab2-mvke_matl_stats.    "物料统计组
     677     salesdata-acct_assgt = wa_tab2-mvke_acct_assgt.    "科目设置组
     678     salesdata-item_cat = wa_tab2-mvke_item_cat.        "项目类别组
     679     clear salesdatax.
     680     salesdatax-sales_org = wa_tab2-mvke_sales_org.
     681     salesdatax-distr_chan = wa_tab2-mvke_distr_chan.
     682     salesdatax-delyg_plnt = 'X'.
     683     salesdatax-cash_disc = 'X'.
     684     salesdatax-matl_stats = 'X'.
     685     salesdatax-acct_assgt = 'X'.
     686     salesdatax-item_cat = 'X'.
     687 
     688 *预测
     689     clear:forecastparameters,forecastparametersx.
     690     forecastparameters-plant = wa_tab2-marc_plant.       "工厂
     691     forecastparameters-fore_model = wa_tab2-mpop_prmod.  "预测模型
     692     forecastparametersx-plant = wa_tab2-marc_plant.
     693     forecastparametersx-fore_model = 'X'.
     694 
     695 *会计、成本
     696     clear valuationdata.
     697     valuationdata-val_area = wa_tab2-marc_plant.
     698     valuationdata-val_class = wa_tab2-mbew_val_class.     "评估级别
     699     valuationdata-ml_settle = wa_tab2-mbew_ml_settle.     "价格确定
     700     valuationdata-std_price = wa_tab2-mbew_std_price.     "标准价格
     701     valuationdata-price_ctrl = wa_tab2-mbew_price_ctrl.   "价格控制
     702     valuationdata-orig_mat = wa_tab2-mbew_orig_mat.       "物料来源
     703     clear valuationdatax.
     704     valuationdatax-val_area = wa_tab2-marc_plant.
     705     valuationdatax-val_class = 'X'.
     706     valuationdatax-ml_settle = 'X'.
     707     valuationdatax-price_ctrl = 'X'.
     708     valuationdatax-std_price = 'X'.
     709     valuationdatax-orig_mat = 'X'.
     710 
     711 
     712 *物料描述
     713     clear materialdescription[].
     714     materialdescription-langu_iso = 'ZH'.
     715     materialdescription-matl_desc = wa_tab2-t_makt_matl_desc.
     716     append materialdescription.
     717 
     718 
     719 *单位
     720     clear unitsofmeasure[].
     721     unitsofmeasure-alt_unit = pr_unit.
     722     unitsofmeasure-unit_of_wt = wa_tab2-t_marm_unit_of_wt.
     723     append unitsofmeasure.
     724     clear unitsofmeasurex[].
     725     unitsofmeasurex-alt_unit = pr_unit.
     726     unitsofmeasurex-unit_of_wt = 'X'.
     727     append unitsofmeasurex.
     728 
     729 
     730 *税分类
     731     clear taxclassifications[].
     732     taxclassifications-depcountry = 'CN'.
     733     taxclassifications-tax_type_1 = 'MWST'.
     734     taxclassifications-taxclass_1 = wa_tab2-t_mlan_taxclass1.  "税分类
     735     append taxclassifications.
     736 
     737     call function 'BAPI_MATERIAL_SAVEDATA'
     738     exporting
     739       headdata            = headdata
     740       clientdata          = clientdata
     741       clientdatax         = clientdatax
     742       plantdata           = plantdata
     743       plantdatax          = plantdatax
     744       forecastparameters  = forecastparameters
     745       forecastparametersx = forecastparametersx
     746       valuationdata       = valuationdata
     747       valuationdatax      = valuationdatax
     748       salesdata           = salesdata
     749       salesdatax          = salesdatax
     750     importing
     751       return              = return
     752     tables
     753       materialdescription = materialdescription[]
     754       unitsofmeasure      = unitsofmeasure[]
     755       unitsofmeasurex     = unitsofmeasurex
     756       taxclassifications  = taxclassifications[].
     757     if return-type = 'E' or return-type = 'A'.
     758       call function 'BAPI_TRANSACTION_ROLLBACK'.
     759       concatenate wa_tab-head_material ' 原材料—>' return-message into gt_out-text.
     760       append gt_out.
     761       clear gt_out.
     762     else.
     763       call function 'BAPI_TRANSACTION_COMMIT'
     764       exporting
     765         wait = 'X'.
     766       concatenate wa_tab2-head_material ' 成品创建成功。' into gt_out-text.
     767       append gt_out.
     768       clear gt_out.
     769     endif.
     770   endloop.
     771 endform.                                                    "mm01
     772 
     773 *&---------------------------------------------------------------------*
     774 *&      Form  open
     775 *&---------------------------------------------------------------------*
     776 *       text
     777 *----------------------------------------------------------------------*
     778 form open .
     779 
     780   call function 'KD_GET_FILENAME_ON_F4'
     781   exporting
     782 *     PROGRAM_NAME        = SYST-REPID
     783 *     DYNPRO_NUMBER       = SYST-DYNNR
     784 *     FIELD_NAME          = ' '
     785 *mask    = '*.txt,*.txt'
     786     mask    = '*.xlsx,*.xls'
     787     static  = 'X'
     788 *     MASK                = ' '
     789 *     FILEOPERATION       = 'R'
     790 *     PATH                =
     791   changing
     792     file_name           = p_file
     793 *     LOCATION_FLAG       = 'P'
     794 *   EXCEPTIONS
     795 *     MASK_TOO_LONG       = 1
     796 *     OTHERS              = 2
     797     .
     798 endform.                    "vq_fn
     799 
     800 *&---------------------------------------------------------------------*
     801 *&      Form  vq_fn1
     802 *&---------------------------------------------------------------------*
     803 *       text
     804 *----------------------------------------------------------------------*
     805 "vq_fn
     806 
     807 *&---------------------------------------------------------------------*
     808 *&      Form  upload_file
     809 *&---------------------------------------------------------------------*
     810 *       text
     811 *----------------------------------------------------------------------*
     812 form upload_file .
     813   data: it_raw_data type truxs_t_text_data.
     814   field-SYMBOLS <fs> type ty_tab.
     815   field-SYMBOLS:<fw>.
     816   data: i_excel type table of alsmex_tabline,"表格结构。"
     817         w_excel type alsmex_tabline.
     818   data:num_col type i.
     819   refresh: it_tab.
     820   "调用此函数,将Excel中的内容以类似坐标的形式存储到I_excel内表中。"
     821   call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     822   exporting
     823     filename                = p_file
     824     i_begin_col             = 1
     825     i_begin_row             = 1
     826     i_end_col               = 55       "控制传入字段个数
     827     i_end_row               = 2500
     828   tables
     829     intern                  = i_excel
     830   exceptions
     831     inconsistent_parameters = 1
     832     upload_ole              = 2
     833     others                  = 3.
     834   delete i_excel where row = 1.        "删除第一行文本抬头。
     835   if i_excel is initial.
     836     call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
     837     exporting
     838 *     DEFAULTOPTION        = 'Y'
     839       diagnosetext1        = '数据错误'
     840 *     DIAGNOSETEXT2        = ' '
     841 *     DIAGNOSETEXT3        = ' '
     842       textline1            =  'Excel表格中没有内容!'
     843       titel                = '提示' .
     844     return.
     845   endif.
     846   sort i_excel by row col.
     847 
     848   loop at i_excel into w_excel.
     849     num_col = w_excel-col.
     850     assign component  num_col  of structure wa_tab to <fw>.
     851     <fw> = w_excel-value.
     852     at end of row.
     853       append wa_tab to it_tab.
     854       clear:wa_tab.
     855     endat.
     856     clear:w_excel.
     857   endloop.
     858 endform.                    " UPLOAD_FILE
     859 
     860 *&---------------------------------------------------------------------*
     861 *&      Form  upload_file2
     862 *&---------------------------------------------------------------------*
     863 *       text
     864 *----------------------------------------------------------------------*
     865 form upload_file2.
     866   data: it_raw_data type truxs_t_text_data.
     867   field-SYMBOLS <fs> type ty_tab2.
     868   field-SYMBOLS:<fw>.
     869 
     870   data: i_excel type table of alsmex_tabline,"表格结构。"
     871         w_excel type alsmex_tabline.
     872   data:num_col type i.
     873   refresh: it_tab2.
     874   "调用此函数,将Excel中的内容以类似坐标的形式存储到I_excel内表中。"
     875   call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
     876   exporting
     877     filename                = p_file
     878     i_begin_col             = 1
     879     i_begin_row             = 1
     880     i_end_col               = 60       "控制传入字段个数
     881     i_end_row               = 2500
     882   tables
     883     intern                  = i_excel
     884   exceptions
     885     inconsistent_parameters = 1
     886     upload_ole              = 2
     887     others                  = 3.
     888   delete i_excel where row = 1.         "删除第一行文本抬头。
     889   if i_excel is initial.
     890     call function 'POPUP_TO_CONFIRM_WITH_MESSAGE'
     891     exporting
     892 *     DEFAULTOPTION        = 'Y'
     893       diagnosetext1        = '数据错误'
     894 *     DIAGNOSETEXT2        = ' '
     895 *     DIAGNOSETEXT3        = ' '
     896       textline1            =  'Excel表格中没有内容!'
     897       titel                = '提示' .
     898     return.
     899   endif.
     900   sort i_excel by row col.
     901 
     902   loop at i_excel into w_excel.
     903     num_col = w_excel-col.
     904     assign component  num_col  of structure wa_tab2 to <fw>.
     905     <fw> = w_excel-value.
     906     at end of row.
     907       append wa_tab2 to it_tab2.
     908       clear:wa_tab2.
     909     endat.
     910     clear:w_excel.
     911   endloop.
     912 endform.                    " UPLOAD_FILE
     913 
     914 *获取基本计量单位内码
     915 form frm_unit using unit1 changing unit2.
     916   call function 'CONVERSION_EXIT_CUNIT_INPUT'
     917   exporting
     918     input          = unit1
     919     language       = sy-langu
     920   importing
     921     output         = unit2
     922   exceptions
     923     unit_not_found = 1
     924     others         = 2.
     925   if sy-subrc <> 0.
     926 *   message id sy-msgid type sy-msgty number sy-msgno
     927 *           with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
     928   endif.
     929 endform.                    "frm_unit
     930 
     931 
     932 *&---------------------------------------------------------------------*
     933 *&      Form  result_message
     934 *&---------------------------------------------------------------------*
     935 *       text
     936 *----------------------------------------------------------------------*
     937 form result_message.
     938   loop at gt_out.
     939     write: / gt_out-text.
     940   endloop.
     941 endform.                    "sub_output_result
     942 
     943 
     944 *&---------------------------------------------------------------------*
     945 *&      Form  selection_screeen
     946 *&---------------------------------------------------------------------*
     947 *       text
     948 *----------------------------------------------------------------------*
     949 form selection_screeen .
     950   case sscrfields-ucomm.
     951   when 'FC01'.
     952     if radio_1 = 'X'.
     953       perform download_template.
     954     else.
     955       perform download_template2.
     956     endif.
     957   endcase.
     958 endform.                    "SELECTION_SCREEEN
     959 
     960 
     961 *&---------------------------------------------------------------------*
     962 *&      Form  download_template
     963 *&---------------------------------------------------------------------*
     964 *       text
     965 *----------------------------------------------------------------------*
     966 form download_template.
     967 
     968   data lv_file like rlgrap-filename.
     969   data lv_string type string.
     970 
     971   call function 'KD_GET_FILENAME_ON_F4'
     972   exporting
     973 *     PROGRAM_NAME        = SYST-REPID
     974 *     DYNPRO_NUMBER       = SYST-DYNNR
     975 *     field_name          = lv_string
     976     static              = 'X'
     977     mask                = ',EXCEL,*.xls.'
     978 *     FILEOPERATION       = 'R'
     979 *     PATH                =
     980   changing
     981     file_name           = lv_file.
     982   clear wa_tab.
     983   wa_tab-head_material = 'YCL07'.
     984   wa_tab-head_ind_sector = 'M'.
     985   wa_tab-head_matl_type = '8030'.
     986   wa_tab-marc_plant = '7888'.
     987   wa_tab-mvke_sales_org = '7888'.
     988   wa_tab-mvke_distr_chan = '10'.
     989   wa_tab-t_makt_matl_desc = 'YCL07原材料'.
     990   wa_tab-mara_base_uom = 'EA'.
     991   wa_tab-mara_matl_group = '00103'.
     992   wa_tab-mara_extwg = 'DW'.
     993   wa_tab-mara_item_cat = 'NORM'.
     994   wa_tab-t_marm_unit_of_wt = 'KG'.
     995   wa_tab-mara_wrkst = '基本数据2_基本物料'.
     996   wa_tab-mara_ihivi = 'X'.
     997   wa_tab-mara_zeinr = '基本数据2_客户物料编码'.
     998   wa_tab-mvke_dwerk = '7888'.
     999   wa_tab-mvke_sktof = 'X'.
    1000   wa_tab-t_mlan_taxclass1 = '1'.
    1001   wa_tab-mvke_matl_stats = '1'.
    1002   wa_tab-mvke_acct_assgt = '03'.
    1003   wa_tab-mvke_item_cat = 'NORM'.
    1004   wa_tab-marc_availcheck = '02'.
    1005   wa_tab-mara_trans_grp = '0001'.
    1006   wa_tab-marc_loadinggrp = '0001'.
    1007   wa_tab-marc_pur_group = '104'.
    1008   wa_tab-marc_batch_mgmt = 'X'.
    1009   wa_tab-marc_auto_p_ord = 'X'.
    1010   wa_tab-marc_webaz = '5'.
    1011   wa_tab-marc_insmk = 'X'.
    1012   wa_tab-marc_mrp_group = '0007'.
    1013   wa_tab-marc_maabc = 'A'.
    1014   wa_tab-marc_mrp_type = 'PD'.
    1015   wa_tab-marc_mrp_ctrler = '001'.
    1016   wa_tab-marc_lotsizekey = 'EX'.
    1017   wa_tab-marc_minlotsize = '105'.
    1018   wa_tab-marc_round_val = '205'.
    1019   wa_tab-marc_proc_type = 'F'.
    1020   wa_tab-marc_lgpro = '1021'.
    1021   wa_tab-marc_rgekz = '1'.
    1022   wa_tab-marc_lgfsb = '1021'.
    1023   wa_tab-marc_sm_key = '000'.
    1024   wa_tab-marc_plnd_delry = '30'.
    1025   wa_tab-marc_sbdkz = '1'.
    1026   wa_tab-mbew_val_class = '3000'.
    1027   wa_tab-mbew_ml_settle = '2'.
    1028   wa_tab-mbew_std_price = '5'.
    1029   wa_tab-mbew_moving_pr = '5'.
    1030   wa_tab-mbew_price_ctrl = 'V'.
    1031   wa_tab-mbew_price_unit = '1'.
    1032   wa_tab-mbew_hrkft = 'Z10'.
    1033   wa_tab-mbew_orig_mat = 'X'.
    1034   wa_tab-marc_losgr = '10'.
    1035   append wa_tab to it_tab.
    1036   clear wa_tab.
    1037 
    1038   if it_fname is initial.
    1039     perform append_filename using:'物料号',
    1040           '行业领域',
    1041           '物料类型',
    1042           '工厂',
    1043           '销售组织',
    1044           '分销渠道',
    1045           '物料描述',
    1046           '基本计量单位',
    1047           '物料组',
    1048           '客户',
    1049           '普通项目组类别',
    1050           '重量单位',
    1051           '基本物料',
    1052           '是否客供',
    1053           '客户物料编码',
    1054           '交货工厂',
    1055           '现金折扣',
    1056           '税分类',
    1057           '物料统计组',
    1058           '科目设置组',
    1059           '项目类别组',
    1060           '可用性检查',
    1061           '运输组',
    1062           '装载组',
    1063           '采购组',
    1064           '批次管理标示',
    1065           '自动采购订单标识',
    1066           '收货处理时间',
    1067           '过账至检验库存',
    1068           'MRP组',
    1069           'ABC标识',
    1070           'MRP类型',
    1071           'MRP控制者',
    1072           '批量',
    1073           '最小批量',
    1074           '舍入值',
    1075           '采购类型',
    1076           '生产仓储地点',
    1077           '反冲',
    1078           '外部采购仓储地点',
    1079           '计划边际码',
    1080           '计划交货时间',
    1081           '集中/独立',
    1082           '评估级别',
    1083           '价格确定',
    1084           '标准价格',
    1085           '移动平均价',
    1086           '价格控制',
    1087           '价格单位',
    1088           '原始组',
    1089           '物料来源',
    1090           '成品核算PL'.
    1091   endif.
    1092   lv_string = lv_file.
    1093   call function 'GUI_DOWNLOAD'
    1094   exporting
    1095 *         BIN_FILESIZE                    =
    1096     filename                        = lv_string
    1097     filetype                       = 'DBF'
    1098 *      filetype                        = 'DAT'
    1099     append                       = 'X'
    1100     write_field_separator           = 'X'
    1101     codepage                        = '8400'   "指定写文件时用的字符集
    1102   tables
    1103     data_tab                        = it_tab
    1104     fieldnames                      = it_fname[].
    1105   if sy-subrc <> 0.
    1106 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    1107 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    1108   endif.
    1109   clear: it_tab,it_fname[],lv_string.
    1110 endform.                    "download_templat
    1111 
    1112 
    1113 *&---------------------------------------------------------------------*
    1114 *&      Form  download_template2
    1115 *&---------------------------------------------------------------------*
    1116 *       text
    1117 *----------------------------------------------------------------------*
    1118 form download_template2.
    1119 
    1120   data lv_file like rlgrap-filename.
    1121   data lv_string type string.
    1122 
    1123   call function 'KD_GET_FILENAME_ON_F4'
    1124   exporting
    1125 *     PROGRAM_NAME        = SYST-REPID
    1126 *     DYNPRO_NUMBER       = SYST-DYNNR
    1127 *     field_name          = lv_string
    1128     static              = 'X'
    1129     mask                = ',EXCEL,*.xls.'
    1130 *     FILEOPERATION       = 'R'
    1131 *     PATH                =
    1132   changing
    1133     file_name           = lv_file.
    1134   clear wa_tab2.
    1135   wa_tab2-head_material = 'CP01'.
    1136   wa_tab2-head_ind_sector = 'M'.
    1137   wa_tab2-head_matl_type = '8010'.
    1138   wa_tab2-marc_plant = '7888'.
    1139   wa_tab2-mvke_sales_org = '7888'.
    1140   wa_tab2-mvke_distr_chan = '10'.
    1141   wa_tab2-t_makt_matl_desc = 'CP01成品测试'.
    1142   wa_tab2-mara_base_uom = 'EA'.
    1143   wa_tab2-mara_matl_group = '00501030'.
    1144   wa_tab2-mara_extwg = 'DW'.
    1145   wa_tab2-mara_spart = '01'.
    1146   wa_tab2-mara_item_cat = 'NORM'.
    1147   wa_tab2-t_marm_unit_of_wt = 'KG'.
    1148   wa_tab2-mara_formt = 'Y'.
    1149   wa_tab2-mara_wrkst = '基本物料'.
    1150   wa_tab2-mara_zeinr = '客户物料编码'.
    1151   wa_tab2-mvke_dwerk = '7888'.
    1152   wa_tab2-mvke_sktof = 'X'.
    1153   wa_tab2-t_mlan_taxclass1 = '1'.
    1154   wa_tab2-mvke_matl_stats = '1'.
    1155   wa_tab2-mvke_acct_assgt = '01'.
    1156   wa_tab2-mvke_item_cat = 'NORM'.
    1157   wa_tab2-marc_availcheck = '02'.
    1158   wa_tab2-mara_trans_grp = '0001'.
    1159   wa_tab2-marc_loadinggrp = '0001'.
    1160   wa_tab2-marc_ekgrp = '101'.
    1161   wa_tab2-marc_kautb = 'X'.
    1162   wa_tab2-marc_xchpf = 'X'.
    1163   wa_tab2-marc_webaz = '1'.           "收货处理时间
    1164   wa_tab2-marc_mrp_group = 'F001'.
    1165   wa_tab2-marc_mrp_type = 'PD'.
    1166   wa_tab2-marc_mrp_ctrler = '050'.
    1167   wa_tab2-marc_lotsizekey = 'EX'.     "批量大小
    1168   wa_tab2-marc_bstmi = '100'.         "最小批量大小
    1169   wa_tab2-marc_bstrf = '100'.         "舍入值
    1170   wa_tab2-marc_proc_type = 'X'.       "采购类型
    1171   wa_tab2-marc_sobsl = '10'.          "特殊采购类型
    1172   wa_tab2-marc_lgpro = '3002'.        "生产仓储地点
    1173   wa_tab2-marc_lgfsb = '3002'.        "外部采购仓储地点
    1174   wa_tab2-marc_dzeit = '3'.           "自制生产天数
    1175   wa_tab2-marc_plifz = '1'.           "计划交货时间
    1176   wa_tab2-marc_eisbe = '100'.         "安全库存
    1177   wa_tab2-marc_sm_key = '000'.        "计划边际码
    1178   wa_tab2-marc_strgr = '10'.          "策略组
    1179   wa_tab2-marc_vrmod = '2'.           "消耗模式
    1180   wa_tab2-marc_vint1 = '999'.         "逆向消耗期间
    1181   wa_tab2-marc_vint2 = '999'.         "向前消耗期间
    1182   wa_tab2-marc_altsl = '1'.           "选择方法
    1183   wa_tab2-marc_sbdkz = '1'.           "集中/独立
    1184   wa_tab2-mpop_prmod = 'D'.           "预测模型
    1185   wa_tab2-mbew_val_class = '7920'.    "评估级别
    1186   wa_tab2-mbew_ml_settle = '3'.       "价格确定
    1187   wa_tab2-mbew_std_price = '5'.       "标准价格
    1188   wa_tab2-mbew_price_ctrl = 'S'.      "价格控制
    1189   wa_tab2-mbew_orig_mat = 'X'.        "物料来源
    1190   wa_tab2-marc_awsls = '000001'.      "差异码
    1191   wa_tab2-marc_losgr = '100'.         "成本核算批量
    1192   append wa_tab2 to it_tab2.
    1193   clear wa_tab2.
    1194 
    1195   if it_fname is initial.
    1196     perform append_filename using:'物料号',
    1197           '行业领域',
    1198           '物料类型',
    1199           '工厂',
    1200           '销售组织',
    1201           '分销渠道',
    1202           '物料描述',
    1203           '基本计量单位',
    1204           '物料组',
    1205           '客户',
    1206           '产品组',
    1207           '普通项目组类别',
    1208           '重量单位',
    1209           '替代料标识',
    1210           '基本物料',
    1211           '客户物料编码',
    1212           '交货工厂',
    1213           '现金折扣',
    1214           '税分类',
    1215           '物料统计组',
    1216           '科目设置组',
    1217           '项目类别组',
    1218           '可用性检查',
    1219           '运输组',
    1220           '装载组',
    1221           '采购组',
    1222           '自动采购单',
    1223           '批次管理',
    1224           '收货处理时间',
    1225           'MRP组',
    1226           'MRP类型',
    1227           'MRP控制者',
    1228           '批量大小',
    1229           '最小批量大小',
    1230           '舍入值',
    1231           '采购类型',
    1232           '特殊采购类型',
    1233           '生产仓储地点',
    1234           '外部采购仓储地点',
    1235           '生产时间',
    1236           '计划交货时间',
    1237           '安全库存',
    1238           '计划边际码',
    1239           '策略组',
    1240           '消耗模式',
    1241           '逆向消耗模式',
    1242           '向前消耗模式',
    1243           '选择方法',
    1244           '集中/独立',
    1245           '预测模型',
    1246           '评估级别',
    1247           '价格确定',
    1248           '标准价格',
    1249           '价格控制',
    1250           '物料来源',
    1251           '差异码',
    1252           '成本核算批量'.
    1253   endif.
    1254   lv_string = lv_file.
    1255   call function 'GUI_DOWNLOAD'
    1256   exporting
    1257 *         BIN_FILESIZE                    =
    1258     filename                        = lv_string
    1259     filetype                        = 'DBF'
    1260 *         APPEND                          = ' '
    1261     write_field_separator           = 'X'
    1262     codepage                        = '8400'   "指定写文件时用的字符集
    1263   tables
    1264     data_tab                        = it_tab2
    1265     fieldnames                      = it_fname[].
    1266   if sy-subrc <> 0.
    1267 * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    1268 *         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    1269   endif.
    1270   clear:it_tab2,it_fname[],lv_string.
    1271 endform.                    "download_templat
    1272 
    1273 *&---------------------------------------------------------------------*
    1274 *&      Form  append_filename
    1275 *&---------------------------------------------------------------------*
    1276 *       text
    1277 *----------------------------------------------------------------------*
    1278 *      -->P_NAME     text
    1279 *----------------------------------------------------------------------*
    1280 form append_filename using p_name .
    1281   it_fname-name = p_name.
    1282   append it_fname.
    1283   clear it_fname.
    1284 endform.                    "append_filename
    1285 *&---------------------------------------------------------------------*
    1286 *&      Form  POP_CONFIRM
    1287 *&---------------------------------------------------------------------*
    1288 *      弹出确认对话框进行价格判断
    1289 *----------------------------------------------------------------------*
    1290 *  -->  p1        text
    1291 *  <--  p2        text
    1292 *----------------------------------------------------------------------*
    1293 form pop_confirm using value(char_abc) value(material).
    1294   data: resul type c,
    1295         str   type char255.
    1296   clear:resul,str.
    1297   if char_abc = 'A'.
    1298     concatenate material '原材料 ' char_abc '类价格大于100,继续导入?' into str.
    1299 elseif char_abc = 'B'.
    1300     concatenate material '原材料 ' char_abc '类价格大于5,继续导入?' into str.
    1301   else.
    1302     concatenate material '原材料 ' char_abc '类价格大于1,继续导入?' into str.
    1303   endif.
    1304   call function 'POPUP_TO_CONFIRM'
    1305   exporting
    1306     text_question         = str
    1307     icon_button_1         = ''
    1308     icon_button_2         = ''
    1309     default_button        = '1'
    1310     display_cancel_button = ''  "显示取消的按钮并可用
    1311     start_column          = 40
    1312     start_row             = 10
    1313   importing
    1314     answer                = resul.
    1315   if resul = '1'.
    1316   else.
    1317     concatenate material ' 物料未创建!' into gt_out-text.
    1318     append gt_out.
    1319     clear gt_out.
    1320     flag = 1.
    1321     return.
    1322   endif.
    1323 endform.                    " POP_CONFIRM

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

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

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

    abap菜鸟,记录学习笔记。才疏学浅,如有错误,请直接在评论区留言。
  • 相关阅读:
    算法--判断数组中是否有重复值
    算法--小范围排序
    Spark性能调优之JVM调优
    算法-java代码实现基数排序
    算法-java代码实现计数排序
    算法-java代码实现希尔排序
    算法-java代码实现堆排序
    Kafka集群的搭建
    深度学习必备包
    Keras 学习之旅(一)
  • 原文地址:https://www.cnblogs.com/freeandeasy/p/11810077.html
Copyright © 2020-2023  润新知