ASL 脚本语言在财政决算支农专项资金审计中的运用，本文主要内容关键词为：支农论文,决算论文,专项资金论文,脚本语言论文,财政论文，此文献不代表本站观点，内容供学术参考，文章仅供参考阅读下载。
抓好专项资金的审计，已经成为预算执行审计的一个重要方面。通过农业专项资金的审计，可以全面掌握财政资金的走向，确保预算执行审计的有效性、完整性。但是农业专项资金分配使用管理中存在一些突出问题，值得高度重视，如农业财政资金预算不落实，农业专项资金被挤占挪用，农业财政预算执行进度慢，结转数额大等。如何加大对专项资金的审计覆盖面，促使资金使用单位加强专项资金管理，专款专用，切实发挥专项资金应有的作用。这已成为普遍关注的问题，为此，我们探索对专项资金进行跟踪审计。在联网审计的服务器中加入审计人员通过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.［科目名称］';
CreateTempTable('专款滞留'，SQLstr)；
z:=createq(SqlStr,-1);
b:=qeof(z);
//查询结果集是否为空
if b#1 then
begin
repeat
che:=QFDValue（z，'源凭证号'）；
AddVouRslt(che);
b:=qmov(z,1);
b:=qeof(z);
until b=1;
end;
end.
在我局去年对区财政局预算执行审计中运用上述方法，查出财政局将大量专项资金挂在账上。一是专项资金被闲置。有些专项资金常年挂账，未实际发生支出，影响了资金的使用效益。二是专项资金拨付被迟延。财政拨付专项资金不及时，普遍存在，资金主要集中在第三、第四季度拨付，往往在年底形成大量的结余，未及时拨付到实施项目上，导致年度资金结转数额较大，影响了年度预算的执行效果。审计建议对实际形成闲置的专项资金，即时下拨到专项资金使用单位，该审计方法充分发挥了督促的作用。