浅谈计算机审计方法

1、二、计算机审计方法的要求征集的计算机审计方法须是审计人员在计算机审计实践中形成的被证明是行之有效的方法，不得虚构臆造，并且具有一定的推广价值。征集的计算机审计方法要素包括方法代码（填写一级和二级分类码）、方法名称、目标功能、所需数据、分析步骤、流程图、方法语言、适用法规、延伸建议、作者单位、时间、标志等12项内容。必须报送方法所涉及的电子数据，对电子数据应进行适当处理，以保证电子数据内容不涉及国家秘密、被审计单位商业秘密、审计工作秘密和数据量大小适中，并且能够配合方法语言在现场审计实施系统（以下简称AO）中成功运行。报送的计算机审计方法应文字通顺、表述清晰完整、可读性强，方法要素的撰写应内容齐

2、全，方法构建符合计算机审计方法体系基本规划计算机审计实务公告第14号的要求。方法要素中关于流程图和方法语言的撰写应符合计算机审计方法流程图编制规范计算机审计实务公告第12号和计算机审计方法语言编制规范计算机审计实务公告第13号等的要求。报送的计算机审计方法，不得与往年已选出的计算机审计专家经验内容或实质重复。 二、计算机审计方法的要求在正式评审之前，首先检查计算机审计方法语句是否通顺、要素是否齐全，并检查其电子数据和方法语言能否在AO中成功运行，符合要求的方法才能进入正式评审。鼓励各省辖市局和省厅有关部门报送计算机审计方法体系。审计方法体系按预算执行（财政部门组织预算执行、部门预算执行）、海关

3、、税务（国税、地税）、金融（银行、证券、保险）、企业（大型企业集团、一般企业）、投资、社保（社会保险、社会福利、社会救济、住房公积金）、农业、外资、经济责任、境外等一级或二级专业审计划分。报送审计方法体系的，参照计算机审计方法体系基本规划计算机审计实务公告第14号附录1表1，建立审计方法目录体系；审计方法应当在本市或本部门范围内征集或搜集，在目录体系列表的“说明”中标注“本年”或“以往年度”;审计方法的要素和格式仍应满足本通知的其他条款要求。对于报送计算机审计方法体系的单位，在评选“优秀组织单位”时将优先考虑。 推选参加此次评选的计算机审计方法，正文应在WORD中撰写，方法语言应在AO中撰写，

4、方法语言使用的电子数据应采集到AO中后使用。二、计算机审计方法的要求 每个审计方法的电子资料应包括：方法正文WORD文档，文件名格式为“计算机审计方法名称.doc”;方法语言AO导出文件，审计脚本语言（ASL）导出文件的文件名格式为“计算机审计方法名称.func”，SQL语句导出文件的文件名格式为“计算机审计方法名称.SQL”；电子数据AO导出文件，文件名格式为“计算机审计方法名称.sjfx”。 每个审计方法创建一个文件夹并将上报的电子资料保存在该文件夹内，文件夹名称格式为“申报年份_申报单位_计算机审计方法名称_作者”，如“2009_审计局_计算机审计方法_张” 。三、计算机审计方法的12项

5、要素 计算机审计方法体系基本规划计算机审计实务公告第14号一、方法代码（填写一级和二级分类码）二、方法名称三、目标功能四、所需数据五、分析步骤六、流程图七、方法语言八、适用法规九、延伸建议十、作者单位十一、时间十二、标志四、如何画流程图 计算机审计方法流程图编制规范计算机审计实务公告第12号Visio画图工具案例介绍五、如何编写ASL计算机审计方法语言编制规范计算机审计实务公告第13号 生成临时表Var SqlStr;/定义变量Begin/Sql语句赋值给变量SqlStr:=Select * from 业务_税务局税务征收数据表 Where 税种=A10101;/生成临时表CreateTemp

6、Table(养老金单位缴纳表,SqlStr);End.五、如何编写ASL生成审计疑点库Var SqlStr,CurQuery,IsEmpty;/定义变量Begin/Sql语句赋值给变量 SqlStr:=SELECT 应发放排污许可证企业表.企业代码, 应发放排污许可证企业表.企业名称, 应发放排污许可证企业表.工业污水实际排放, + 应发放排污许可证企业表.COD实际排放量 FROM 应发放排污许可证企业表 LEFT JOIN 业务_排污许可证实际发放表 + ON 应发放排污许可证企业表.企业代码 = 业务_排污许可证实际发放表.HJ102 + WHERE (业务_排污许可证实际发放表.HJ1

7、02) Is Null)ORDER BY 应发放排污许可证企业表.工业污水实际排放; /执行查询SQL，查找应发实际未发排污许可证的记录 CurQuery:=createq(SqlStr,-1); /查询结果集是否为空 IsEmpty:=qeof(CurQuery); if IsEmpty#1 then begin /循环将查询结果放入业务疑点临时库 repeat AddTransRslt(CurQuery,应发实际未发排污许可证); IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1; /将临时库结果集放入疑点库 TransBa