缩进物料清单中的汇总成本（bome08）
/**************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*姓名：BOME08*//*标题：缩进物料清单中的汇总成本（bome08）*//*产品：或*//*系统：所有*//*关键字：或*//*过程：BOM，打印，排序*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：来自*//*物料清单簿*//* *//**************************************************************//**************************************************************使用BOMG01中的ParComp0**************************************************************//*BOMG01产品结构记录*/数据ParComp0；格式父组件$8。；输入父$8。组成部分$8。质量每4.0;数据线；LA01 B100 1号机组LA01 S100 1型LA01 A100 1号机组B100 1100 1号B100 1200 1号B100 1300 1号B100 1400 4号A100 1500 1A100 1600 1A100 1700 1个1100 2100 261500 1400 21700 2200 121700 2300 1;/**************************************************************开始示例**************************************************************//*零件主记录*/数据PMaster8；格式第8部分。描述$24。单位：8美元。成本8.2；输入零件$描述和单位$成本；数据线；1100个成品轴。1200 6直径钢板每块9.251300轮毂每个5.001400 1/4-20螺钉每个0.20每个1500钢支架。1600个单向插座每个3.501700每个接线组件。2100 3/8钢管英寸0.052200 16号线规灯线英尺0.352300标准插头端子每个0.50每个A100套筒组件。每个B100底座组件。LA01灯LA各一个。S100黑色阴影每个4.10;/*创建缩进BOM表*/proc bom pmdata=PMaster8数据=ParComp0输出=IndBOM8；结构/部件=部件parent=父级component=组件数量=QtyPerid=（描述单位成本）；运行；/*按相反顺序对缩进的BOM表进行排序*/proc排序数据=IndBOM8（drop=Pro_ Paren_ID）；通过降序Part_ID；运行；/*汇总材料成本*/数据IndBOM8a；设置IndBOM8；阵列成本[4]成本1成本2成本3成本4；保留成本1成本2成本3成本40；降低成本1成本2成本3成本4；/*确定当前项目的成本*/如果成本=。则成本=0；成本=成本+成本[_Level_+1]；/*将成本汇总到上层项目*/如果_Level_>0，则成本[_Level_]=成本[_Livel_]+（QtyPer*成本）；/*重置当前级别的汇总成本*/成本[_Level_+1]=0；产出；运行；/*将缩进的BOM按原始顺序排序*/proc排序数据=IndBOM8a；按部件ID；运行；/*显示缩进的BOM表数据*/proc打印数据=IndBOM8a noobs；var _级别_父级_部件_描述每个Qty_Prod的数量单位成本；标题为“ABC灯具公司”；title3“缩进材料清单，LA01部分”；运行；