农业综合开发资金计算机审计方法初探

      一、审计的目标、功能

      审计目标为检查该区农业综合开发资金配套和拨付政策的执行情况。其功能为根据《国家农业综合开发资金和项目管理办法》（[2005]财政部令第29号）、《农业综合开发财务管理办法》（财发[2006]39号），结合无锡市关于国家农业综合开发资金的相关文件规定，对2007和2008年度农业综合开发资金土地治理项目地方财政配套资金的落实情况和资金实际拨付情况进行审计。若地方配套资金到位金额或时间，以及专项资金拨付金额或时间小于（或迟于）以上文件规定要求，则与农业综合开发资金政策精神相违背。本审计方法即为审查农业综合开发资金是否存在配套不落实、资金滞留闲置的审计方法，具体流程（见图表1）。

      图表1

      

      二、所需数据资料

      （一）财务数据

      区财政302农业综合开发项目电子数据，利用AO导入数据，进行科目变更检查和调整后，对2007年和2008年账套进行合并，生成2007-2008（合并账套），从中选取存放会计记录的[凭证库]作为财务数据基础表。

      基础表：凭证表(JD/0001)。数据元素：科目编码、科目名称、摘要、凭证日期、借方金额、贷方金额、凭证类型、凭证号、附件数、会计年份、会计月份、财务主管、记账人、出纳人、审核人、制单人。

      （二）相关业务数据及文件文档

      (1)业务表：JY/0001，业务元素（见图表2）

      图表2 单位：元

      

      备注：锡农开发[2007]12号、锡财农[2007]107号——《关于下达2007年国家农业综合开发产业化经营项目计划和资金的通知》

      锡农开发[2008]14号、锡财农[2008]112号——《关于下达2008年度国家农业综合开发土地治理项目计划和资金的通知》

      三、步骤分析

      步骤一：从财政数据库中找到相关账套导入，利用AO功能进行数据清理和账套合并，对凭证表(J/0001)编写ASL语句分类查询筛选出专项资金拨入数和拨付数，生成拨入资金表（见图表3）和拨出资金表（图见表3）。

      图表3 拨入资金表

      

      图表4 拨出资金表

      

      步骤二：继续编写ASL语句，分别求出拨入资金合计数（见图表5）和拨出资金合计数（见图表6），并进行比较，差异生成专项资金滞留闲置疑点；将拨入资金表按级别（省、市、区）分类合计拨入资金数（见图表7），对比业务表(JY/0001)（见图表1）所列比例规定的各级应拨入配套资金标准，差异生成专项资金配套未落实疑点。

      步骤三：延伸审计核实疑点，落实审计结果。发现2008年项目区级配套资金56万元未及时到位（配套不落实）；2007年项目资金6.3万元未及时报账支出，2008年项目资金224万元未及时拨付（资金滞留闲置）。

      图表5

      

      图表6

      

      图表7

      

      三、方法语言

      （一）筛选生成拨入资金表

      vara,al,b,b1,c,c1,sqlstr,sqlstr1,sqlstr2；//定义变量

      begin

      //Sql语句赋值给变量

      sqlstr:='Select'+''''+'土地治理'+''''+'as项目，'+''''+′省′+''''+'as级别；

      if(sum([贷方金额])is null,O,sum([贷方金额]))as金额From [凭证库]where ([科目编码]1ike'+''''+'42%'+''''+'or[科目编码] like'+''''+'21%'+''''+') and [摘要] like'+''''+'%0%'+''''+'and[摘要] 1ike'+''''+′%土地%理%′+''''+′and[摘要] like'+''''+′%省%′+''''+'union Select'+''''+′土地治理′+''''+′as项目，′+''''+′区′+''''+′as级别，iif(sum([贷方金额]) isnull,0,sum ([贷方金额])) as金额From[凭证库]where ([科目编码] like'+''''+'42%'+''''+'or [科目编码] like '+''''+'21%'+''''+') and [摘要] like '+''''+%0%'+''''+'and [摘要] like'+''''+′%土地%理%′+''''+'and [摘要] like '+''''+′%区%′+''''+'union Select'+''''+′土地治理′+''''+′as项目，′+''''+′市′+''''+'a3级别，if (sum([贷方金额]) is null,0,sum([贷方金额]))as金额From [凭证库] where ([科目编码] like '+''''+'42%'+''''+'or [科目编码] like '+''''+'21%'+''''+') and [摘要] like '+''''+'%0%'+''''+' and [摘要] like '+''''+′%土地%理%′+''''+' and [摘要]' like '+''''+′%市%′+''''；