抛石工程结算审计中的AO应用.docVIP

抛石工程结算审计中的AO应用AO审计法，取得了很好的成效。 ??? 一、获取电子数据，确定审计方法 ??? 开展数据式审计，数据源的获取是最关键的。这些数据包括抛石过磅电子数据（即每辆车子的电子过磅单）和供应商（各个采石场）的出库单。通常情况下，每辆车（船）的过磅数据由地磅自动计算净重（毛重减皮重），过磅单通过磅秤直接打印出来。由于地磅的型号不一，有的地磅自带软件系统过磅数据可以在过磅软件系统中直接获取，有的地磅只有过磅打印功能，不能形成最终的电子数据。能否取得完整的电子数据源，决定着审计方法的差异。如果我们可以直接获取电子数据，可以直接采用计算机数据式审计。若只能提供打印的过磅单，则需要抽样审计和计算机审计相结合。 ??? 二、分析内部控制，建立分析模型 ??? 收集过磅抛石的内控制度主要包括：磅房人员职责、监理工作日记、施工日志、抛石车船基本情况、采石场至过磅房路线及时间等。分析抛石过磅内部控制制度，确定现场过磅人员是否做到有效分离和监督，以及分析过磅车辆时间间隔等。通过分析过磅数据，可以确定三种分析模式。即同一车辆皮重（空车重量）每次过磅重量是否不一而多计抛石总量、同一车辆过磅时间间隔是否存在异常（骗磅）、因同一天同一车辆毛重、皮重、净重是否一样重复过磅多计抛石量。 ??? 三、通过数据分析，核减工程价款 ??? （一）同一车辆皮重（空车重量）每次过磅重量不一而多计抛石总量。 ??? 1.分类汇总每辆车空车重量及平均重量。根据车号分类汇总每辆车皮重（空车重量）、运输次数、平均每次运输空车重量以及过磅时的最小空车重量，生成[中间表_空车重量]。 ??? select [车号],round(sum([皮重]),2) as 空车重量,count(*) as 次数,round((sum([皮重])/count(*)),2) as 平均每次空车重量,min([皮重]) as 最小皮重 into 中间表_空车重量 from [源_过磅数据] where [车号] is not null group by [车号]; ??? select * from 中间表_空车重量; ??? 2.计算多计抛石车辆明细。根据[中间表_空车重量]表，以[平均每次空车重量]减[最小皮重]差值乘以[次数]得出累计多计算过磅抛石重量，并生成表[分析表_多计抛石车辆]。 ??? select [车号],round(([平均每次空车重量]-[最小皮重])*[次数],2) as 多计重量 into 分析表_多计抛石车辆 from? [中间表_空车重量] where ([平均每次空车重量]-[最小皮重])*[次数]0 order by ([平均每次空车重量]-[最小皮重])*[次数] desc; ??? select * from 分析表_多计抛石车辆; ??? 3.汇总多计抛石总量。根据[分析表_多计抛石车辆]表，汇总[多计重量]字段即得该批过磅单汇总因少计皮重而多计过磅抛石总量。 ??? select sum([多计重量]) as 汇总多计重量 from [分析表_多计抛石车辆]; ??? （二）同一车辆过磅时间间隔异常。 ??? 1.在表[源_过磅数据]中增加列[同一车过磅时间间隔]。 ??? 2.对表[源_过磅数据]，按照[日期]、[车号]字段升序排序。 ??? 3.通过IF函数给[同一车过磅时间间隔]赋值，即对数据前后行同一天同一车辆计算前后过磅时间间隔，否则赋值为0. ??? 4.将上述EXCEL数据导入AO2008版，生成表[源_过磅数据_整理]，所属字段：序号、日期、时间、车号、毛重、皮重、净重、单号、同一车辆过磅时间间隔。 ??? 5.取表[源_过磅数据_整理]中过磅时间间隔在1秒与1小时之间记录，生成[分析表_同一车辆过磅时间间隔异常] ??? select * into 分析表_同一车辆过磅时间间隔异常 from [源_过磅数据_整理] where [车号] is not null and [同一车辆过磅时间间隔] between ? 0:00:01 and ? 0:60:00 order by 车号,日期; ??? select * from 分析表_同一车辆过磅时间间隔异常; ??? 7.计算[源_过磅数据]，计算过磅单汇总抛石总量。 ??? select sum(净重) as 汇总抛石总量 from [源_过磅数据]; ??? （三）因同一天同一车辆毛重、皮重、净重一样多计抛石量。 ??? 1.表[源_过磅数据]增加字段，字段名称[标志]，类型数值型。 ??? alter table [源_过磅数据] add 标志 numeric(8,0) null; ??? 2.在表[源_过磅数据]中，为[标志]字段赋值为1。 ??? Update