资源描述：
《06定额分部分项工程预算表.grf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、06定额分部分项工程预算表.grfObjectReportVersion='5.5.0.8'Tag='DimiCntrDimRootKeyrDimxharrPublicSubGetRecord(Rst,Flag)rDimirDimExcChildrrOnErrorResumeNextrrConstadVarChar=200rConstadInteger=3rConstadDouble=5rrr'初始化数据集FieldsrIfRst.fields.Cou
2、nt=0ThenrrRst.fields.Append"序号",adVarChar,100,32rRst.fields.Append"编号",adVarChar,30,32rRst.fields.Append"名称",adVarChar,1500,32rRst.fields.Append"单位",adVarChar,20,32rRst.fields.Append"工程量",adDouble,100,32rRst.fields.Append"工程量含损耗",adDouble,100,32rRst.fi
3、elds.Append"材设类别",adVarChar,100,32rRst.fields.Append"材设单价",adDouble,100,32rRst.fields.Append"材设损耗",adDouble,100,32rRst.fields.Append"单重",adDouble,100,32rRst.fields.Append"总重",adDouble,100,32rrrRst.fields.Append"单位基价",adDouble,100,32rRst.fields.Append"单
4、价（含主材）",adDouble,100,32rRst.fields.Append"单价人工费",adDouble,100,32rRst.fields.Append"单价材料费",adDouble,100,32rRst.fields.Append"单价机械费",adDouble,100,32rRst.fields.Append"单价管理费",adDouble,100,32rRst.fields.Append"单价利润费",adDouble,100,32rRst.fields.Append"单位合价",adDou
5、ble,100,32rrRst.fields.Append"材设费合计",adDouble,100,32rRst.fields.Append"基价合计",adDouble,100,32rRst.fields.Append"人工费",adDouble,100,32rRst.fields.Append"材料费",adDouble,100,32rRst.fields.Append"机械费",adDouble,100,32rRst.fields.Append"管理费",adDouble,100,32rRst
6、.fields.Append"利润费",adDouble,100,32rRst.fields.Append"合价",adDouble,100,32rrRst.fields.Append"备注",adVarChar,500,32rEndIfrIfRst.state=0ThenrRst.openrEndIfrr'填数据rGroupID=0rRootKey=ProjFB.KeyrCallGetBillRst(Rst,ProjFB,Flag)rSetAugs=ProjFB.Pr
7、ojAugs(mcDoc)rCallGetProjAug(Rst,Augs)rExitSubrEndSubrrPublicSubGetBillRst(Rst,mCol,Flag)rDimProjChildrDimirDimBillrDimWorkrDimStufrDimProjrDimGCLrDimMackBillrDimEvalrDimAugsrrOnErrorResumeNextrr'填数据rIfmCol.getobjtyp
8、e=eBillThenrCallmCol.MakeUpValue(MackBill,2,mcDoc)'清单人材机凑数，保留二位小数
