抓好专项资金的审计，已经成为预算执行审计的一个重要方面。通过农业专项资金的审计，可以全面掌握财政资金的走向，确保预算执行审计的有效性、完整性。但是农业专项资金分配使用管理中存在一些突出问题，值得高度重视，如农业财政资金预算不落实，农业专项资金被挤占挪用，农业财政预算执行进度慢，结转数额大等。如何加大对专项资金的审计覆盖面，促使资金使用单位加强专项资金管理，专款专用，切实发挥专项资金应有的作用。这已成为普遍关注的问题，为此，我们探索对专项资金进行跟踪审计。在联网审计的服务器中加入审计人员通过ASL脚本语言编制的审计方法，变事后审计为事前审计。实践证明，以农业专项资金的走向为线索，采用跟踪审计的方式，能够及时地进行查处和纠正在资金的拨付、使用、管理中存在的违规问题，促进项目的顺利实施和按时完工，并且达到规定的标准，审计监督的效果得以体现，切实提高了财政资金的使用效益，促进预算执行全方位的健康运行。 审计步骤如下： 步骤一：通过初步分析账簿，发现各项专款都是在拨入专款科目中核算，打开科目余额表，设置筛选条件为：拨入专款中各专项资金的期初余额，生成专项资金期初余额中间表：qcye。 //1.生成专款期初余额表：qcye var SQLstr; begin //SQLstr赋值 SQLstr:='select科目编码，［科目名称］，［期初余额］from［科目余额］where［科目编码］like''%404%'''； //生成qcye CreateTempTable('qcye',SQLstr); end. 步骤二：打开凭证库，设置筛选条件为：科目编码为拨入专款科目，汇总各专项资金项目本期拨入合计数，将审查结果合并生成专项资金收入中间表：bqbr。 //2.生成本期拨入专款表：bqbr var SQLstr; begin //SQLstr赋值 SQLstr:='select科目编码，［科目名称］，sam（［贷方金额］）as贷方金额from［凭证库］where［科目编码］like''%404%''groupby科目编码，［科目名称］'； //生成bqbr CreateTempTable('bqbr',SQLstr); end. 步骤三：打开凭证库，设置筛选条件为：科目编码为拨出专款和专款支出科目，汇总各专项资金项目本期拨出合计数，将审查结果合并生成专项资金拨出中间表：bqbc。 //3.生成本期拨出专款表：bqbc Var SQLstr； begin //SOLstr赋值 SQLstr:='select left（科目编码，5）as科目编码，［科目名称］，sum（［借方金额］）as借方金额from［凭证库］where［科目编码］like''%502%''or［科目编码］like''%503%''group by left（科目编码，5），［科目名称］'； //生成bqbc CreateTempTable('bqbc',SQLstr); end. 步骤四：将qcye和bqbr两张中间表，通过设置连接条件科目编码，生成本期各专款期初余额和本期拨入合计表：hjb。 //4.生成本期期初余额和本期拨入合计表：hjb Var SQLstr; begin SQLstr:='select b.［科目编码］，b.［科目名称］，a.［期初余额］，b.贷方金额，a.［期初余额］+b.贷方金额as期初和收入合计from qcye a inner join bqbr b on a.［科目编码］=b.［科目编码］； CreateTempTable('hjb',SQLstr); end. ‘ 步骤五：将生成的合计表hjb和本期拨出表bqbc，通过设置连接条件科目名称连接，按专款项目逐个对各专款收支进行对比，查出专款期初和收入合计数大于本期拨出数的专款，生成滞留专款表：zkyeb。 var SQLstr; begin SQLstr:='select a.［科目编码］，a.［科目名称］，a.［期初余额］，a.贷方金额，a.期初和收入合计，b.借方金额，a.期初和收入合计-b.借方金额as滞留金额from hjb a inner join bqbc b on a.［科目名称］=b.［科目名称］where a.期初和收入合计-b.借方金额＞0'; CreateTempTable('zkyeb',SQLstr;) end. 步骤六：找出涉及滞留专款的凭证放入疑点库。 var z,che,SQLstr,b； begin SQLstr:='select a.科目编码，a.科目名称，摘要，凭证日期，a.借方金额，a.贷方金额，凭证类型，凭证号，附件数，会计年份，会计月份，财务主管，记账入，出纳人，审核人，制单人，源凭证号，金额，备注，凭证类型编号，借方外币金额，贷方外币金额，币种代码，币种名称，汇率，是否外币凭证，选择，支票号，分录序号，是否记账，期初余额，期初和收入合计，滞留金额from［凭证库］a inner join zkyeb b on a.［科目名称］=b.［科目名称］';
