SAP PP 展开ＢＯＭ（多层）程序代码

*&---------------------------------------------------------------------*
*& Report  ZTESTIAN2
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztestian2 .


TYPE-POOLS : slis .
TABLES : mast ,  "BOM 链接物料
mara ,  "常规物料数据
stko ,  "BOM 表头
makt .  "物料描述
DATA : stb  LIKE stpox  OCCURS  0  WITH  HEADER  LINE ,
wa_alv_field  TYPE slis_fieldcat_alv ,  "列描述内表，列清单
wa_alv_fieldcat  TYPE slis_t_fieldcat_alv ,  "定义内表
layout  TYPE slis_layout_alv ,
gs_layout  TYPE slis_layout_alv ,
gt_list_top_of_page  TYPE slis_t_listheader ,
counter  TYPE  i  VALUE  0 ,
g_repid  LIKE sy -repid ,
dc ( 1 )  TYPE  c  VALUE  'X' ,  "是否多层展开默为多层展开
g_user_command  TYPE slis_formname  VALUE  'USER_COMMAND' .
DATA :  BEGIN  OF selpool .
         INCLUDE  STRUCTURE cstmat .
DATA :  END  OF selpool .
DATA : dstst_flg  LIKE csdata -xfeld .  "BOM 帮助字段
DATA :  BEGIN  OF it_data  OCCURS  0 ,
level ( 20 )  TYPE  c ,
stufe  LIKE stpox -stufe ,  "层次
matnr  LIKE mara -matnr ,  "父件物料编码
ojtxb ( 80 )  TYPE  c ,  "父件物料描述
bmeng  TYPE  i ,  "BOM 中的基本数量
idnrk  LIKE stpox -idnrk ,  "子件物料编码
ojtxp ( 80 )  TYPE  c ,  "子件物料描述
alprf  LIKE stpo -alprf ,  "优先级
ewahr  LIKE stpo -ewahr ,  "使用可能性
stlan  LIKE stpox -stlan ,  "BOM 用途
stlal  LIKE stpox -stlal ,  "可选的BOM
alpgr  LIKE stpox -alpgr ,  "替代组
mtart  LIKE stpox -mtart ,  "物料类型
mmein  LIKE stpox -mmein ,  "基本计量单位
stprs  LIKE stpox -stprs ,  "标准价格
mnglg  LIKE stpox -mnglg ,  "以基本计量单位为准的已计算的组件数量
mngko  LIKE stpox -mngko ,  "以组件计量单位为准的已计算的组件数量
menge  LIKE stpox -menge ,  "组件数量
datuv  LIKE stpox -datuv ,  "开始生效/有效截止日期
aennr  LIKE stpox -aennr ,  "更改编号
andat  LIKE stpox -andat ,  "日期记录创建于
annam  LIKE stpox -annam ,  "创建记录的用户
ausch  LIKE stpox -ausch ,  "工序报废
avoau  LIKE stpox -avoau ,  "工序废品
ntgew  LIKE mara -ntgew ,  "净重
brgew  LIKE mara -brgew ,  "毛重
weigh  LIKE mara -brgew ,  "重量 = BOM 用量 * 单重
stawn  LIKE marc -stawn ,  "外贸的商品代码和进口代码
stawt ( 200 )  TYPE  c ,  "海关编码描述
sel  TYPE  c ,
END  OF it_data .
DATA :  BEGIN  OF matcat  OCCURS  50 .
         INCLUDE  STRUCTURE cscmat .
DATA :  END  OF matcat .
DATA :  BEGIN  OF mats .
         INCLUDE  STRUCTURE cscmat .
DATA :  END  OF mats .
DATA :  BEGIN  OF dllh_data ,
matnr  LIKE mara -matnr ,  "物料编码
bmeng  TYPE  i ,  "BOM 中的基本数量
END  OF dllh_data .
DATA : tdllh_data  LIKE dllh_data  OCCURS  0 .
DATA :  BEGIN  OF wlxx_data ,
matnr  LIKE mara -matnr ,  "物料编码
normt  LIKE mara -normt ,  "延伸机种，即机型
maktx ( 80 )  TYPE  c ,  "物料描述
groes  LIKE mara -groes ,  "描述补充
ntgew  LIKE mara -ntgew ,  "净重
brgew  LIKE mara -brgew ,  "毛重
stawn  LIKE marc -stawn ,  "外贸的商品代码和进口代码
END  OF wlxx_data .
DATA : twlxx_data  LIKE wlxx_data  OCCURS  0 .
DATA :  BEGIN  OF hgbm_data ,
stawn  LIKE t604t -stawn ,