农业机械购置补贴审计方法

1、计算机审计方法一、方法代码二、方法名称农业机械购置补贴资金审计方法三、目标功能审计目标：审查购机品种、数量及农户的真实性，是否存在 弄虚作假，套取财政补贴资金的问题。审计功能：通过对农户购置的机具品种、中标供应商、合同 编号、身份证号码以及购机数量的查询和分析，发现线索，生成 审计疑点。通过延伸走访调查实际补贴农户，实地察看补贴机具, 确认是否存在弄虚作假，套取财政补贴资金的问题。四' 审计事项预算执行审计一财政专项资金一农业机械购置补贴一弄虚作假套取资金五、所需数据农业机械购置补贴资金审计方法所需数据。序号数据资料名称结构化非结构化半结构化12008年江苏省农机购置补贴产品目录v序

2、号数据资料名称结构化非结构 化半结构化2中央“以机代牛”农机购置补贴清 册v3省级农机购置补贴清册v4农机购置补贴申报资料v（-）基础表：2008年江苏省农机购置补贴产品目录。数据 元素：品种、生产企业、产品型号、销售最高限价、一般县财政 补贴标准、血防区财政补贴标准。（二）基础表：中央“以机代牛”农机购置补贴清册。数据 元素：补助级别、乡镇名称、合同编号、姓名、身份证号码、住 址、联系电话、购机品种、机具型号、中标供应商单位名称、购 机数量、中标单价、购机总金额、购机者实付金额、补贴小计。（三）基础表：省级农机购置补贴清册。数据元素：补助 级别、乡镇名称、合同编号、姓名、身份证号码、住址、联

3、系电 话、购机品种、机具型号、中标供应商单位名称、购机数量、中 标单价、购机总金额、购机者实付金额、补贴小计。（四）资料：农机购置补贴申报资料，购货合同，销货发票。六、分析步骤（-）取得相关原始业务数据，对部分字段进行整理，导入 ao,并对相关业务数据进行合并。1. 取得2008年江苏省农机购置补贴产品目录信息业务数据,整理后导入ao,在sql查询器中进行合并，生成“补贴产品目录 合并表"。2分别取得全市2008年中央“以机代牛”和省级农机购置 补贴信息业务数据，整理后导入a0,在sql查询器中进行合并， 生成“实际补贴名册表”。（二）对“实际补贴名册表”中数量和金额之间的勾稽关系进

4、行核对，验证表的真实性和完整性。1核对购机数量与中标单价的乘积是否等于购机总金额。2. 核对购机者实付金额与补贴小计之和是否等于购机总金额。（三）审查农民实际补贴机具种类和供应商是否在公布的产品目录范围之内o根据江苏省省级农业机械购置补贴专项资金使用管理办法第七条规定，农民只有购买列入年度补贴目录的机具才能享 受补贴。1. 查询“实际补贴名册表”中不重复的购机品种、机具型 号和中标供应商单位名称。2. 查询“补贴产品目录合并表”中不重复的机具品种、产 品型号和生产企业。3. 查询农民实际购机品种、机具型号和中标供应商不在公 布的产品目录范围之内的记录，生成“实购机具超目录范围表”, 查阅资料，

5、进行延伸核实。如查询结果无数据显示，表明无超范围享受补贴问题。）审查合同编号有无重复或断号，生成审计疑点，查明重复和断号的原因。1查询合同编号重复记录。分别在“中央补贴表”和“省补贴表”中查询重复的合同编号和重复次数，生成“中央补重复合同编号”和“省补重复合同 编号”，再分别与“中央补贴表”和“省补贴表”进行连接，生成“中央补合同编号重复记录表”和“省补合同编号重复记录表”。 查询结果显示：中央级补助有4个合同编号各重复2次，涉及8 名农户。省级无重复合同编号。经查阅资料，走访农户，重复原 因是农机管理部门合同管理不规范，用省级空白合同填写中央补 助。2.查询合同编号断号记录。利用分组表中的“

6、数值分析一断号分析”工具，审查“中央 补贴表”和“省补贴表”中的合同编号有无断号的记录，并将断 号记录导出到资料树，生成''中央补合同编号断号结果表”和“省 补合同编号断号结果表”。中央补助52个合同编号断号，省补75 个合同编号断号，经抽查资料，走访农户，断号合同编号主要为 作废合同，该市农机管理部门基础工作管理有待完善。（五）审查身份证号码，对购机人的真实性进行核实。1.查询''实际补贴名册表”中身份证号码为空的记录，根 据需要，进一步延伸并核实农户的身份。查询结果显示无空记录。2.查询“实际补贴名册表”中身份证号码不符合身份证号 码编码规则的假身份证号码记

7、录，生成“身份证号码不符合编码 规则的记录表”，核实是否存在虚构农户，套取补助资金问题。查 询结果显示：有4名购机农户身份证号码不真实。经查阅资料， 走访农户，该4名农户为真实购机者，由于农机管理部门基础工 作不到位，在造册过程中身份证号码登记出错。3. 查询“实际补贴名册表”中身份证号码不是以“3209” 开头的记录，生成“身份证号码不是以'3209'开头的记录表”, 审查是否将农机销售给外地或非本地农户，骗取财政补贴问题。查 询结果共有13条记录，涉及10名农户，经核实，该10名农户为 移民，排除审计疑点。（六）筛选一次性购置补贴机具超过3台的农户，抽查购机 手续是否合规完

8、善，实地察看所购机具与资料是否相符，有无倒 卖机具套取财政补贴的问题。根据江苏省省级农业机械购置补贴专项资金使用管理办 法第九条规定，两年内一个农民原则上只能享受购置同一类补 贴机具1台，不同类补贴机具不超过2台。一次性购置补贴机具 超过3台以上的，需报省辖市农机部门审批，6台以上的，需经 省农机局审批，并实行严格核实报批和担保制度。1.在“实际补贴名册表”中查询一次性购置同种机具数量 大于3台的农户记录，生成“购置同类机具超过3台农户信息” 表，共有39条记录。按购机数量降序排列，从中抽查购机数量较多的农户进行延伸审计调查，审批和担保手续是否完善，实际所 购机具与资料是否相符。2.在“实际补

9、贴名册表”中查询一次性购置不同类机具、 或者同一类机具但型号不同，超过3台的农户记录。查询“实际 补贴名册表”中身份证号码重复次数超过3次的身份证号码，生 成“身份证号码重复超过3次的身份证号码”。再在''实际补贴名 册表”中查询这些身份证号码的详细农户信息，生成“身份证号 码重复超过3次农户信息”表。将“身份证号码重复超过3次的 身份证号码”和“身份证号码重复超过3次农户信息”表进行连 接，生成“购置不同类机具超过3台农户信息”表，共有152条 记录，按身份证号码重复次数降序排列，从中抽查重复次数较多 的农户进行延伸审计调查，审批和担保手续是否完善，实际所购 机具与资料是否相

10、符。抽查中发现，多名农户同时购置多台秸杆还田机或旋耕机。 经核实，该市有关部门要求购置拖拉机的农户，必须购置指定某 厂生产的秸杆还田机或旋耕机，而该类机具在本市使用率较低， 大部分农户一次也未使用过，形成损失浪费。七、流程图形成审计结论八、方法语言（一）对原始业务数据进行整理合并varsqlstr;/定义变量begin生成合并表sqlstr=select 品种，生产企业,产品型号，主要配置及参数,主要 配置及参数1,主要配置及参数2,销售最高限价（元）,一般县财政补贴标 准（元）,血防区财政补贴标准（元）from 业务_旋耕机等产品目录union select 品种,生产企业，产品型号,主要配

11、置及参数，主要配置及参数 1,主要配置及参数2,销售最高限价（元）,一般县财政补贴标准（元）,血 防区财政补贴标准（元）from 业务_拖拉机产品目录union select 品 种,生产企业，产品型号,主要配置及参数，主要配置及参数1,主要配 置及参数2,销售最高限价（元几一般县财政补贴标准（元）,血防区财政 补贴标准（元）from 4k务播种机等产品目录丁；createtemptable（,;fb贴产品目录合并表sqlstr）;sqlsteselect 补助级别，乡镇名称,合同编号，姓名，住址，联系电 话，身份证号码，购机品种,机具型号，中标供应商单位名称，购机数 量,中标单价，购机总金额

12、，购机者实付金额,补贴小计，省级，市 级，县级from 业务_中央补贴表union select 补助级别，乡镇名称，合 同编号，姓名，住址,联系电话，身份证号码，购机品种,机具型号，中 标供应商单位名称，购机数量,中标单价，购机总金额，购机者实付金额,补贴小计，省级，市级，县级from 业务_省补贴表：createtemptablec 实际补贴名册表sqlstr);end.(二) 验证实际补贴名册表的真实性和完整性varsqlstr,query,isempty;/ 定义变量begin验证实际补贴名册表的真实性和完整性sqlstnselect * from 实际补贴名册表where (购机数量

13、*中标单 价)v购机总金额:执行查询sqlquery :=createq(sqlstr,-1);查询结果集是否为空isempty:=qeof(query);if isempty#1 thenbegin循环将查询结果放入业务疑点临时库repeataddtransrslt(query/m 点表')；isempty :=qmov(query, 1);isempty: =qeof(query);until isempty = 1;将临时库结果集放入疑点库transbatchcquery,1 际补贴发放疑点表'）；endelseshowmsg（'单价数量与购机总额完整性通过验证！

14、）；验证实际补贴名册表的真实性和完整性sqlstr:二'select * from 实际补贴名册表where 购机总金 额v（购机者实付金额+补贴小计）；执行查询sqlqueiy createq（sqlstr,-1）;查询结果集是否为空isempty:=qeof（query）;if isempty#l thenbegin循环将查询结果放入业务疑点临时库repeataddtransrslt（query/m 点表'）；isempty :=qmov（query, 1）;isempty: =qeof（query）;until isempty= 1;将临时库结果集放入疑点库transba

15、tch（query,实际补贴发放疑点表'）;end elseshowmsgc购机总额与实付金额补贴完整性通过验证！)；end.(三) 审查农民实际补贴机具种类和供应商是否在公布的产品目录范围之内varsqlstr,query,isempty;/ 定义变量begin审查农民实际购机品种、型号和供应商是否在公布的产品目录范围之 内sqlstrselect distinct 购机品种，机具型号，中标供应商单 位名称from 实际补贴名册表createtemptablec补贴名册表中机具品种、型号和中标供应商单位 名称;sqlstr);sqlstr=select distinct 品种，产品型

16、号,生产企业from 补贴产品目录合并表丁；createtemptablec*产品目录机具品种、型号和生产企业；sqlstr);sqlstr=select 购机品种，机具型号，中标供应商单位名称 from补贴名册表中机具品种、型号和中标供应商单位名# where(购机品 种not in (select 品种from 产品目录机具品种、型号和生产企业)or (中 标供应商单位名称not in (select 生产企业from 产品目录机具品种、型号和生产企业)or (机具型号not in (select 产品型号from 产品目录机具 品种、型号和生产企业)'执行查询sqlquery c

17、reateq(sqlstr,-1);查询结果集是否为空isempty:=qeof(query);if isempty#l thenbegin循环将查询结果放入业务疑点临时库repeataddtransrslt(query,*购机具超目录范围疑点表');isempty qmov(query, 1);isempty: =qeof(query);until isempty=l;将临时库结果集放入疑点库transbatch(query,购机具超目录范围疑点表')；end elseshowmsgc无实购机具不在公布的产品目录购置记录！);end.)审查合同编号有无重复或断号，生成审计疑点

18、，查明重复和断号的原因varsqlstrl,sqlstr2,query,isempty;/ 定义变量begin查询中央补助重复的合同编号和重复次数sqlstrl=select 合同编号,count(*) as中央以机代牛合同编号重复 数 from 业务_中央补贴表group by 合同编号having count()>r；执行查询sqlqueiy createq(sqlstr 11);查询结果集是否为空isempty:=qeof(query);if isempty#l thenbegincreatetemptable(f中央补重复合同编号sqlstrl); showmsgc中央补有重复合

19、同编号，生成结果表及明细记录！ 查询中央补助合同编号重复的明细记录sqlstr2=select * from 实际补贴名册表where (合同编 号in (select 合同编号from 中央补重复合同编号)order by 合 同编号执行查询sqlquery createq(sqlstr2,-1);查询结果集是否为空isempty: =qeof(query);if isempty# 1 then createtemptable(冲央补合同编号重复记录明 细表sqlstr2);showmsgc中央补重复合同明细表生成成功！ j;endelseshowmsgc中央补无重复合同编号j;查询省补助重

20、复的合同编号和重复次数sqlstrl:-select 同编号,count(*) as省以机代牛合同编号重复数from 业务省补贴表group by 合同编号having count(*)>t;执行查询sqlqueiy :=createq(sqlstr 11);查询结果集是否为空isempty:=qeof(query);if isempty #1 thenbegincreatetemptable(f 省补重复合同编号sqlstrl);showmsgc省补有重复合同编号，生成结果表及明细记录！)；查询省补助合同编号重复的明细记录sqlstr2=select * from 实际补贴名册表whe

21、re (合同编 号in (select 合同编号from <补重复合同编号)order by 合同 编号'；执行查询sqlquery: =createq(sqlstr2,-1);查询结果集是否为空isempty: =qeof(query);if isempty#l then createtemptablec1 补合同编号重复记录明细 表sqlstr2);showmsg('省补重复合同明细表生成成功！)；endelseshowmsg('省补无重复合同编号j;end.(五)审查身份证号码，对购机人的真实性进行核实varsqlstrl,query,isempty;/ 定

22、义变量begin查询补贴表中身份证号码为空的记录sqlstrl-'select * from 实际补贴名册表where 身份证号码is null1;执行查询sqlquery :=createq(sqlstrl1);查询结果集是否为空isempty:=qeof(query);if isempty#l thenbegincreatetemptablec*补贴表中身份证号码为空的记录sqlstrl）; showmsg（'补贴表中有身份证号码为空的记录，生成结果表及明 细记录！）；endelseshowmsgc补贴表中无身份证号码为空记录！查询补贴表中身份证号码不规范的记录sqlstr

23、l :=*select * from 实际补贴名册表where （len（身份证号 码）15 and len（身份证号码）18） or （len（身份证号码）=15 and （mid（身份证号码,9,2）12） or （mid（身份证号码,11,2） 31） or （mid（身份 证号码,9,2） in （n0r,；,03n；,05,；,07n；,08n,n 10n,n 12n） and mid（身份证号 码,11,2）31） or （mid（身份证号码,9,2） in （”04丁06”,”09丁11”） and mid（身 份证号码,11,2）30） or （mid（身份证号码,9,2）=0

24、2 and mid（身份证号 码,11,2）29） or （len（身份证号码）=18 and （mid（身份证号码,7,2）19 or mid（身份证号码,7,2）20 or （mid（身份证号码,11,2）12） or （mid（身份证 号码,13,2）31） or （mid（身份证号码,11,2） in（”01“,”03丁05丁07丁08丁10丁12”） and mid（身份 证号码,13,2）31） or （mid（身份证号码,11,2） in （”04丁06丁09丁11”）and mid（身份证号 码,13,2）30） or （mid（身份 证号码,11,2）=02 and mid（

25、身 份证号 码,13,2）29） order by 乡镇名称，身份证号码：执行查询sqlquery :=createq(sqls tri r 1);查询结果集是否为空isempty:=qeof(query);if isempty#l thenbegincreatetemptablec*补贴表中身份证号码不规范的记录sqistrl); showmsg('补贴表中有身份证号码不规范的记录，生成结果表及 明细记录！)；endelseshowmsgc补贴表中无身份证号码不规范记录！查询补贴表中身份证号码不是3209开头的记录sqlstrl:=select * from 实际补贴名册表where

26、 left(身份证号 码,4) not like ”3209”'执行查询sqlquery :=createq(sqlstrl1);查询结果集是否为空isempty:=qeof(query);if isempty# 1 thenbegincreatetemptablec1补贴表中身份证号码不是3209开头的记录sqlstrl);showmsgc补贴表中有身份证号码不是3209开头的记录，生成结 果表及明细记录！)；endelseshowmsgc补贴表中无身份证号码非3209开头的记录！end.(六)筛选一次性购置补贴机具超过3台的农户，审查购机 手续是否合规完善varsqlstr,que

27、ry,isempty;/ 定义变量begin购置同类机具超过3台农户信息sqlstr:二'select * from 实际补贴名册表where 购机数量3 order by 购机数量，身份证号码丁；执行查询sqlqueiy :=createq(sqlstr,-1);查询结果集是否为空isempty:=qeof(query);if isempty#l thenbegincreatetemptablec购置同类机具超过3台农户信息sqlstr);showmsgc购置同类机具超过3台农户信息，生成结果表及明细记录！)；endelseshowmsg('无购置同类机具超过3台农户信息！

28、j;查询重复次数超过3次的身份证号码sqlstr:-select 身份证号码,count(*) as身份证号码重复次数from 实际补贴名册表group by 身份证号码having count(*)>3 order by count(*)*;执行查询sqlquery :=createq(sql str,-1);查询结果集是否为空isempty:=qeof(query);if isempty# 1 thenbegincreatetemptablec*身份证号码重复超过3次的身份证号码 sqlstr);showmsgc重复次数超过3次的身份证号码，生成结果表及明细 记录！)；endelse

29、showmsgc*无重复次数超过3次的身份证号码！ j;查询身份证号码重复超过3次的农户信息sqlstr:=select * from 实际补贴名册表where 身份证号码in （select 身份证号码from 身份证号码重复超过3次的身份证号码） order by 乡镇名称，身份证号码:执行查询sqlqueiy :=createq（sqlstr,-1）;查询结果集是否为空isempty:=qeof（query）;if isempty#l thenbegincreatetemptablec1身份证号码重复超过3次农户信息',sqistr）; showmsg（'身份证号码重复超过3次的农户信息，生成结果表及 明细记录！）；endelseshowmsg（'无身份证号码重复超过3次的农户信息！）；查询购置不同类机具超过3台农户信息sqlstruselect a.补助级别,a.乡镇名称,a.合同编号,a.姓名,a.身 份证号码,b.身份证号码重复次数拭住址,乩联系电话,a.购机品种,a.机 具型号,a.中标供应商单位名称,a.购机数量,a中标单价,a.购机总金 额,a.购机者实付金额,a.补贴小计from 身份证号码重复超过3次农户 信息a left join 身份证号码重复超过3次的身份证号码b on a.身份证号码