物料清单爆炸（bome09）
/**************************************************************//* *//*S A S A M P L E L I B R A R Y公司*//* *//*姓名：BOME09*//*标题：物料清单爆炸（bome09）*//*产品：或*//*系统：全部*//*关键字：或*//*程序：BOM、打印、排序、SQL*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：BOM程序章节中的示例9*//*物料清单簿*//* *//**************************************************************//**************************************************************使用BOME02中的SlBOM2**************************************************************//*BOME02中的产品结构和零件主数据*/数据SlBOM2；输入母公司$8。组件$8。描述24美元。单位：8美元。交付周期4.0质量每4.0总需求4.0打开（_H）和4.0;数据线；LA01灯LA每个2。50 20LA01 B100底座总成各1 1。50LA01 S100黑色阴影每个2 1。LA01 A100套筒组件每个1 1。B100 1100成品轴每个2 1。B100 1200 6直径钢板每个3 1。B100 1300轮毂每个2 1。B100 1400 1/4-20螺钉各1 4。A100 1500钢制支架每个2 1。A100 1600单向插座每个2 1。A100 1700接线组件每个1 1。1100 2100 3/8钢管英寸3 26。1500 1400 1/4-20螺钉每个1 2。1700 2200 16-规格灯线英尺2 12。1700 2300标准插头端子每个1 1。;/**************************************************************开始示例**************************************************************//*产品结构和零件主数据*/数据SlBOM9；设置SlBOM2（下降=提前期）；/*指定2100和2200的报废系数*/如果（Component=“2100”and Parent=“1100”），则Scrap=0.2；否则，如果（Component=“2200”and Parent=“1700”），则Scrap=0.1；运行；/*创建缩进的BOM表和汇总的明细表*/proc bom data=SlBOM9 out=IndBOM9汇总=汇总BOM9；结构/部件=组件parent=父级component=组件数量=QtyPerid=（描述单位）需求=总需求qtyonhand=手动系数=报废；运行；/*显示缩进的BOM表数据*/proc打印数据=IndBOM9 noobs；var _级别_父级_部件_描述每个Qty_Prod的数量单位报废；标题为“ABC灯具公司”；title 3“缩进材料清单，第LA01部分”；运行；/*排序并显示汇总明细表*/proc排序数据=SumBOM9；第_部分；运行；proc打印数据=SumBOM9 noobs；标题为“ABC灯具公司”；title3“零件清单汇总，零件LA01：要求=50”；运行；/*将总需求分解为低级组件*/数据IndBOM9a；设置IndBOM9；数组reqs[4]req1 req2 req3 req4；保留req1 req2 req3 req4 0；删除req1 req2 req3 req4；/*计算总需求*/如果_Level_=0，则Req=50；其他需求=需求[_Level_]*QtyPer*（1.0+废料）；/*保持当前水平的要求*/需求[_Level_+1]=需求；产出；运行；/*计算每个项目的总需求*/proc-sql；将表SumReq9创建为选择部件、描述、单位，总额（需求）来自IndBOM9a按_Part_、Desc、Unit分组；退出；/*显示总需求*/过程排序数据=SumReq9；第_部分；运行；proc打印数据=SumReq9 noobs；标题为“ABC灯具公司”；标题3“总需求报告，第LA01部分：需求=50”；运行；/*计算每个项目的总使用量*/proc-sql；将表SumUse9创建为选择_部件_、描述、单位、，总和（Qty_Prod*50）作为Qty_Use来自IndBOM9按_Part_、Desc、Unit分组；退出；/*显示总需求*/proc排序数据=SumUse9；第_部分；运行；proc打印数据=SumUse9 noobs；标题为“ABC灯具公司”；title3“材料清单汇总，第LA01部分：需求=50”；运行；