物料主数据报表
*---------------------------------------------------------*
* 程序名称：物料主数据报表
* 程序名： ZMMR0017
*---------------------------------------------------------*
* 概要说明
*---------------------------------------------------------*
* 物料主数据报表
*---------------------------------------------------------*
REPORT zmmr0017.
TABLES:mara,marc.
"结构
TYPES: BEGIN OF ty_data,
sel TYPE char1,
werks TYPE marc-werks , "工厂
vkorg TYPE mvke-vkorg , "销售组织
vtweg TYPE mvke-vtweg , "分销渠道
matnr TYPE mara-matnr , "物料编码
mtart TYPE mara-mtart , "物料类型
mtbez TYPE t134t-mtbez , "物料类型描述
maktx TYPE makt-maktx , "物料短描述
zmaktx TYPE string , "物料长描述
meins TYPE mara-meins , "基本单位
matkl TYPE mara-matkl , "物料组
wgbez TYPE t023t-wgbez , "物料组描述
spart TYPE mara-spart , "产品组
brgew TYPE mara-brgew , "毛重
ntgew TYPE mara-ntgew , "净重
gewei TYPE mara-gewei , "重量单位
zzljm TYPE mara-zzljm , "商品69码
zzyjlm TYPE mara-zzyjlm , "一级类目
zyjlm_ms TYPE char50, "一级类目描述
zzejlm TYPE mara-zzejlm , "二级类目
zejlm_ms TYPE char50, "二级类目描述
zzsjlm TYPE mara-zzsjlm , "三级类目
zsjlm_ms TYPE char50, "三级类目描述
zzcrzt TYPE char6 , "承认状态
zzcpxmbm TYPE mara-zzcpxmbm , "成品项目编码
zzcpxmmc TYPE mara-zzcpxmmc , "成品项目名称
zzxsgjdq TYPE mara-zzxsgjdq , "销售国家地区
zslgj TYPE mara-zslgj , "烧录国家
zsfcb TYPE mara-zsfcb , "是否拆包物料
zpid TYPE mara-zpid , "产品PID
zsfqysn TYPE mara-zsfqysn, "是否启用sn
zbb TYPE mara-zbb , " 版本
zth TYPE mara-zth , "图号
zxydh TYPE mara-zxydh , ""寻源单号
zxyhh TYPE mara-zxyhh , "寻源行号
meinh TYPE meinh , "附加单位
umren TYPE marm-umren , "转换为基本单位的分母
umrez TYPE marm-umrez , "转换为基本单位的分子
ekgrp TYPE marc-ekgrp , "采购组
eknam TYPE t024-eknam , "采购组描述
mmsta TYPE marc-mmsta , "特定工厂物料状态
bstme TYPE mara-bstme , "订单单位
vabme TYPE mara-vabme , "可变单位
dwerk TYPE mvke-dwerk , "交货工厂
sktof TYPE mvke-sktof , "现金折扣
taxm1 TYPE mlan-taxm1 , "税分类
tatyp TYPE tskm-tatyp , "税分类
vrkme TYPE mvke-vrkme , "销售单位
ktgrm TYPE mvke-ktgrm , "科目设置组
mtpos TYPE mvke-mtpos , "项目类别组
tragr TYPE mara-tragr , "运输组
ladgr TYPE marc-ladgr , "装载组
dismm TYPE marc-dismm , "MRP类型
disgr TYPE marc-disgr , "MRP组
minbe TYPE marc-minbe , "再订货点
dispo TYPE marc-dispo , "MRP控制者
dispo_txt TYPE t024d-dsnam , "MRP控制者描述
disls TYPE marc-disls , "批量大小
bstrf TYPE marc-bstrf , "舍入值
bstfe TYPE marc-bstfe , "固定批量
bstma TYPE marc-bstma , "最大批量
bstmi TYPE marc-bstmi , "最小批量
lgpro TYPE marc-lgpro , "生产仓储地
lgfsb TYPE marc-lgfsb , "采购缺省仓储位置
plifz TYPE marc-plifz , "计划交货天数
eisbe TYPE marc-eisbe , "安全库存
webaz TYPE marc-webaz , "收货处理天数
beskz TYPE marc-beskz , "采购类型
beskz_txt TYPE dd07t-ddtext , "采购类型描述
sobsl TYPE marc-sobsl , "特殊采购类型
sobsl_txt TYPE t460t-ltext, "特殊采购类型描述
zwlsx TYPE char10,
rgekz TYPE marc-rgekz , "反冲
dzeit TYPE marc-dzeit , "自制生产时间
fhori TYPE marc-fhori , "计划边际码
eislo TYPE marc-eislo , "最小安全库存
mtvfp TYPE marc-mtvfp , "可用性检查
strgr TYPE marc-strgr , "计划策略组
vrmod TYPE marc-vrmod , "消耗模式
vint1 TYPE marc-vint1 , "逆向消耗期间
vint2 TYPE marc-vint2 , "向前消耗期间
miskz TYPE marc-miskz , "综合MRP
sbdkz TYPE marc-sbdkz , "独立/集中
diber TYPE marc-diber , "启用MRP区域
kausf TYPE marc-kausf , "组件报废百分比
fevor TYPE marc-fevor , "生产调度员
sfcpf TYPE marc-sfcpf , "生产计划参数文件
ueetk TYPE marc-ueetk , "容差数据
xchpf TYPE mara-xchpf , "批次管理（X）
sernp TYPE marc-sernp , "序列号参数文件
raube TYPE mara-raube , "存储条件
mhdrz TYPE mara-mhdrz , "最短剩余货架寿命
mhdhb TYPE mara-mhdhb , "总货架寿命
zlxzl TYPE klah-klart , "类别种类X
zlh TYPE klah-class , "类号X
qmatv TYPE marc-qmatv , "有QM设置X
zcgwj TYPE char1 , "检验类型-0101采购外检
zlljy TYPE char1 , "检验类型-01IQC来料检验
zzqjy TYPE char1 , "检验类型-09库存周期性检验
zzcjy TYPE char1 , "检验类型-08库存转储检验
zqtjy TYPE char1 , "检验类型-89其他检验
prfrq TYPE marc-prfrq , "检验间隔
maabc TYPE marc-maabc , "abc标识
bklas TYPE mbew-bklas , "评估类
bwtty TYPE mbew-bwtty , "评估类别
mlast TYPE mbew-mlast , "价格确定
vprsv TYPE mbew-vprsv , "价格控制
stprs TYPE mbew-stprs , "标准价格
verpr TYPE mbew-verpr , "移动平均价
peinh TYPE mbew-peinh , "价格单位
prctr TYPE marc-prctr , "利润中心
schgt TYPE marc-schgt, "散装物料
ktext TYPE cepct-ktext , "利润中心描述
ekalr TYPE mbew-ekalr , "用QS的成本估算
hkmat TYPE mbew-hkmat , "物料来源
hrkft TYPE mbew-hrkft , "原始组
losgr TYPE marc-losgr , "成本核算批量
awsls TYPE marc-awsls , "差异码X
kosgr TYPE mbew-kosgr , "间接费用组
clgort TYPE ze_clgort , "出库库存地点
rlgort TYPE ze_rlgort , "入库存储地点
END OF ty_data.
DATA: gt_data TYPE STANDARD TABLE OF ty_data,
gs_data TYPE ty_data.
DATA:gs_layout TYPE lvc_s_layo,
gs_fieldcat TYPE lvc_s_fcat,
gt_fieldcat TYPE lvc_t_fcat.
*&--------------------------------------------------------------------*
** Macro
**&-------------------------------------------------------------------*
DEFINE set_catalog.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = &1.
gs_fieldcat-outputlen = &2.
gs_fieldcat-ref_table = &3.
gs_fieldcat-ref_field = &4.
gs_fieldcat-cfieldname = &5.
gs_fieldcat-scrtext_s = gs_fieldcat-scrtext_m = gs_fieldcat-scrtext_l = &6.
APPEND gs_fieldcat TO gt_fieldcat.
CLEAR gs_fieldcat.
END-OF-DEFINITION.
*---------------------------------------------------------------------*
* SELECTION-SCREEN *
*---------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK bl1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:s_matnr FOR mara-matnr,
s_werks FOR marc-werks,
s_mtart FOR mara-mtart,
s_matkl FOR mara-matkl.
SELECTION-SCREEN END OF BLOCK bl1.
*---------------------------------------------------------------------*
* INITIALIZATION *
*---------------------------------------------------------------------*
INITIALIZATION.
PERFORM frm_initialization.
*---------------------------------------------------------------------*
* START-OF-SELECTION.