建设项目（evme02）
/***************************************************************//* *//*S A S S A M P L E L I B R A R Y*//* *//*名称：evme02*//*标题：建设项目（evme02）*//*产品：或*//*系统：所有*//*关键字：或*//*PROCS：CPM、SORT、挣值宏*//*数据：*//* *//*支持：更新：*//*参考：*//*MISC：挣值管理宏中的示例2*//*项目管理章节*//* *//***************************************************************//*计划输入*/数据构建；输入活动$s1$s2$s3$s4$dur成本为32美元。费率项目为7美元。身份证20美元。起重机车夫；数据线；a。1 0 0 0建造房屋。b。1 0 0 a景观。c。1 0 0 a排水。d。1 0 0 a接线。e。1 0 0 a管道。f。1 0 0 a基金会。g。1 0 0 a屋顶。h。1 0 0 a地板。A B。4 5250 50 20 f开挖和基脚1 2 2B、C、E、S。2 1500 25 15 f浇注基础1 2 4F J。2 950 50 20 f浇注地下室1。4G K。3 1025 25 30 e粗管道。2E F G。1 1000 25 50 e地下室管道。不。2 350 25 20 e装修管道。J K。4 325 50 40 a暖通1。K L。10 14500 1,2,3,4 20 a石膏。T。2 750 25 15 h清漆地板。三L M N P公司。3 425 50 25小时饰面地板。4 .我。2 575 25 45 d初始接线。M V。1 375 25 25 d厨房设备。V。1 550 25 50天完成电气。P U。3 1450 25 20天精木工。4 .Q R。2 725 50 40 g饰面屋顶1 3。C D H J Q 4 9500 25 35克车架和车顶1 4。D W。6 9500 1、2、3 45 a砌砖1。2U T。3 3250 50 30 a油漆。R W。1 1200 50 15 c排水沟和落水管1。S X。1 150 25 15 c雨水管1 2 2宽X。2 425 25 25 b终饰级配。2X。5 2475 25 25 b步行和景观1 2 2;proc-sort数据=构建；按项目；运行；/*资源*/数据简述；投入期起重机停车工人；数据线；0 1 5 4;/*制定初始计划*/proc-cpm-data=构建=sbout树脂=breslvl资源=bres日期=2010年9月4日；活动活性；持续时间；id id；继任者s1-s4；项目项目/addwbs；资源起重机停车场劳动力/时段=时段无启动无启动avp rcp延迟分析；运行；/*重命名变量*/数据gbsched；设置sbout；在启动完成wbs_code项目期间保持id活动proj_lev；rename dur=持续时间；rename s_start=开始；rename s_finish=完成；label wbs_code=“wbs代码”；label id=“活动”；运行；/*按WBS代码排序时间表*/proc排序数据=gbsched；通过wbs_code；运行；标题“计划施工进度”；proc打印数据=gbsched标签；var id wbs_code持续时间开始完成；运行；/*显示WBS图表*/%evg工作分解图(结构=gbsched，activity=活动，项目=项目，id=wbs_code id，旋转=N，rotatetext=N，defid=N)；/*初始成本*/数据库；集合构建；保持id活动成本spct率；重命名spct=spct；重命名成本=成本；label spct='开始百分比/重量'；label id=“活动”；rename rate=速率；运行；标题“计划建设成本”；proc打印数据=gbase标签；var-id成本spct率；运行；/*每日计划值*/标题；%eva计划值(plansched=gbsched，activity=活动，start=开始，finish=完成，预算成本=gbase，rate=速率，成本=成本，spct=spct，taskpv=关于，pv=GB成本)；标题“每日计划值”；proc打印数据=gbcost标签；运行；/*使用实际值更新计划*/数据实际；输入活动$8。日期：date7。af：日期7。实际成本实际值pctcomp；格式为af date7。；数据线；A 2010年9月4日9月11日6350 30 100B 2010年9月12日9月14日2700 30 100;数据顺序；集合构建；保留_序号_ 0；_序列号=序列号+1；运行；proc排序数据=顺序；按活动；运行；proc排序数据=实际；按活动；运行；数据构建2；合并实际订单；按活动；运行；进程排序数据=build2；由seqno签署；运行；proc-cpm数据=build2-out=sbout2树脂=breslvl资源=bres日期=2010年9月4日；活动活性；持续时间；id id；继任者s1-s4；项目项目/addwbs；资源起重机停车场劳动力/时段=时段无启动无启动avp rcp延迟分析；实际/a_start=asa_finish=af timenow='2010年9月15日pctcomp=pctcomp；运行；/*重命名变量*/数据缺口；设置sbout2；在s_start s_finish proj_lev wbs_code期间保留活动id；重命名dur=a_dur；rename s_start=开始；rename s_finish=完成；label id=“活动”；label wbs_code=“wbs代码”；label dur=“持续时间”；运行；标题“更新的施工进度计划”；proc打印数据=粘贴标签；var id wbs_code a_dur开始-完成；运行；/*更新的成本*/数据gact；设置build2；保持id活动成本spct率；如果actrate ne。然后做；rate=实际值；结束；如果实际成本为ne。然后做；成本=实际成本；结束；label id=“活动”；label rate=“费率”；label cost=“成本”；label spct='开始百分比/重量'；运行；标题“更新的施工成本”；proc打印数据=gact标签；var-id费率成本spct；运行；/*每日计划值*/标题；%eva获得的价值(revisesched=带垫片，activity=活动，start=开始，finish=完成，实际成本=gact，rate=速率，成本=成本，spct=spct，taskpv=关于，ev=总成本)；标题“每日挣值和修订成本”；proc打印数据=gacost标签；运行；%eva度量(pv=gbcost，ev=成本，timenow='04SEP10'd'15SEP10'01OCT10'd'17OCT10')；/*为2010年9月15日的图表生成汇总数据*/%eva度量(pv=gbcost，ev=成本，timenow=2010年9月15日)；%eva任务指标(活动=id，plansched=gbsched，revisesched=带垫片，start=开始，finish=完成，预算成本=gbase，实际成本=gact，成本=成本，spct=spct，rate=速率，timenow='2010年9月15日，骨料=Y)；%evg成本图；%evg计划plot；%evg索引块；%evg_variance_plot；%evg甘特图(活动=id，plansched=gbsched，revisesched=带垫片，start=开始，finish=完成，timenow='2010年9月15日，id=wbs cv sv，高度=3，比例=40)；