SAP创建物料主数据(维护长文本,质量视图中质量类型,分类视图)

SAP创建物料主数据(包括维护长文本,质量视图中质量类型,分类视图)

 CLEAR: gw_head,gw_mara,gw_marax,gw_makt,gt_makt,

        gw_mvke ,gw_mvkex ,gw_marc ,gw_marcx ,gw_mbew ,
        gw_mbewx ,gw_mlan ,gt_mlan ,gw_mltx ,gt_mltx .
     "视图选择
    gw_head -material   = gw_mat01 -matnr .   "物料编码
    gw_head -ind_sector  =  'C' .       "行业领域
    gw_head -matl_type  =  'Z001' .     "物料类型
    gw_head -basic_view  =  'X' .       "基本数据视图
    gw_head -sales_view  =  'X' .       "销售视图
    gw_head -purchase_view  =  'X' .    "采购视图
    gw_head -mrp_view  =  'X' .         "MRP视图
    gw_head -work_sched_view  =  'X' .  "工作计划视图
    gw_head -quality_view  =  'X' .     "质量管理视图
    gw_head -account_view  =  'X' .     "会计视图
    gw_head -cost_view  =  'X' .        "成本视图
    gw_head -warehouse_view  =  'X' .   "仓库管理视图

     "基本数据
    gw_mara -matl_group  =  '1001' .      "物料组
    gw_mara -base_uom  = gw_mat01 -meins . "基本计量单位
    gw_mara -old_mat_no  = gw_mat01 -bismt .
    gw_mara -extmatlgrp  = gw_mat01 -extwg .
    gw_mara -dsn_office  = gw_mat01 -labor .
    gw_mara -unit_of_wt  =  'KG' .         "重量单位
    gw_mara -trans_grp  =  '0001' .        "运输组
    gw_mara -hazmatprof  =  '001' .     "DG标识参数文件
    gw_mara -mat_grp_sm  =  '001' .    
    gw_mara -batch_mgmt  =  'X' .  "批次管理需求的标识

    gw_marax -matl_group  =  'X' .
    gw_marax -base_uom  =  'X' .
    gw_marax -old_mat_no  =  'X' .
    gw_marax -extmatlgrp  =  'X' .
    gw_marax -dsn_office  =  'X' .
    gw_marax -unit_of_wt  =  'X' .
    gw_marax -trans_grp  =  'X' .
    gw_marax -hazmatprof  =  'X' .
    gw_marax -mat_grp_sm  =  'X' .
    gw_marax -batch_mgmt  =  'X' .

     "物料描述
    gw_makt -langu  =  '1' . "中文
    gw_makt -matl_desc  = gw_mat01 -maktx .
     APPEND gw_makt  TO gt_makt .
     IF gw_mat01 -maktx_e  IS  NOT  INITIAL .
      gw_makt -langu  =  'E' . "英文
      gw_makt -matl_desc  = gw_mat01 -maktx_e .
       APPEND gw_makt  TO gt_makt .
     ENDIF .

     "销售数据
    gw_mvke -sales_org  = gw_mat01 -vkorg .  "销售机构
    gw_mvke -distr_chan  =  gw_mat01 -vtweg .  "分销渠道
    gw_mvke -cash_disc  =   'X' .    "现金折扣标志
    gw_mvke -acct_assgt  =   'Z1' .  "该物料的科目设置组
    gw_mvke -item_cat  =   'NORM' .  "项目类别组
    gw_mvke -delyg_plnt  = gw_mat01 -werks .  &