审计脚本语言(ASL)是现场审计实施系统AO软件提供的嵌入式编程语言,全称是Audit Script Language。它根据审计业务特征需要,能将审计人员的专业思路,通过Pascal命令行的形式,实现计算机的自动处理。在非税收入审计中,审计人员可以利用ASL语言编写程序,存储为审计方法并编译执行,帮助发现非税收入征管上的违纪违规问题,并构建非税收入计算机审计经验模型。
在某市人民政府财政决算审计的项目中,审计人员决定应用AO软件对该市非税收入征管情况进行计算机审计。经了解,当地财政部门的非税收入信息管理系统由财务和业务两大模块组成,后台均为Oracle数据库。其中,业务模块数据量约为50多万条记录,主要的数据表包括:收费凭证主表、收费凭证明细表、系统单位表、系统预算科目表等,表间关系参见上图: 审计人员先在本地机上安装Oracle客户端软件,通过控制面板中的ODBC管理器配置数据源,连接成功后使用AO软件的数据导入功能,采集被审计单位的非税收入电子数据。数据导入完成后,再在AO中进行数据整理,实现审计业务中间表重建,这其中比较关键的有两点:一是通过多表关联生成“非税收入记录表”,参考的SQL语句为:Select A.凭证ID,A.凭证票号,A.日期,B.金额,C.预算科目名称,C.预算科目类别,D.单位名称Into非税收入记录表From((收费凭证主表as A Inner Join收费凭证明细表as B On A.凭证ID=B.凭证ID)InnerJom系统预算科目表as C onB预算科目ID=C.预算科目ID)Inner Join系统单位表asD on A.单位ID=D单位ID;二是转换生成“已取消的收费项目表”,这主要来自于国务院和各地公布的失效收费项目文件,一般为Text或Excel格式,可通过AO软件将其导入。 其后,审计人员就可以利用AO软件提供的审计方法管理功能,编制ASL审计脚本语言,借助AO中的自动审计功能进行非税收入数据分析,从中发现有无违规收费、无依据收费、将预算内收入转入预算外等疑点线索。下面所列的就是其中两个典型应用实例: (一)违规征收已明令取消的非税收入 具体方法是,将非税收入业务系统的收费数据,与国家和各地方公布的已取消收费项目的目录比对,查找有无征收已明令取消的政府性基金或行政性收费项目的行为,并逐项列示出具体的征收单位、征收项目、汇总收费金额。编写的ASL审计脚本语句如下: //说明:违规征收非税收入情况审计的ASL语句。非税收入的征收和管理,应严格依照法律、法规所确定的项目、范围、标准和程序执行。 Var qryData,qryCancel,strName,strValue,strType,a,b,sum; Begin qryData: =CreateQ('Select预算科目名称as收费项目,Sum(金额)as收费金额,First(单位名称)as收费单位From非税收入记录表Group by预算科目名称′,-1); b:=QEof(qryData); While b#1Do Begin strName: =QFDValue(qryData,′收费项目′); qryCancel:=CreateQ (′Select*From已取消的收费项目表Where项目名称like'''+strName+'''',-1); a:=QEof(qryCancel); If a# 1 Then Begin strType:=QFDValue(qryData,′收费单位′); strValue:=QFDValue(qryData,′收费金额′); sum:=′收费单位:′+strType+′收费项目:′+strName+′收费金额:′; Write(sum); Write(strValue); End; b:=QMov(qryData,1); b:=QEof(qryData); End; End. 通过编译执行ASL语句发现,该市劳动和社会保障局继续征收国家已明令取消的就业调节金、职工退休养老证工本费,两项非税收入金额合计60多万元。很明显,这样的做法是严重违规的,应及时予以纠正。(二)具体部门征收的非税收入项目和金额 具体方法是,输入某一个部门名称的关键字,ASL语句自动对该部门征收的非税收入进行分类汇总,通过图表直观显示出非税收入收费项目和统计金额,便于审计人员从中发现有无疑点问题。编写的ASL审计脚本语句如下: //说明:图表显示部门征收非税收入情况的ASL语句。 Var strEntity,qryChart,qryType,a,strType,strSum; Begin Read(strEntity); qryType:=CreateQ(′Select单位名称as单位,Sum(金额)as金额合计From非税收入记录表Where单位名称like″%,+strEntity+′%″Group by单位名称′,-1);