AO计算机审计方法建模培训课件.ppt

计算机审计方法建模,一、审计方法建模二、sql语句编制方法三、asl语言编写思路,目录,一、审计方法建模,一、审计方法建模,确定审计业务分类,确定审计事项分类,审计问题描述,被审计数据特征,编制sql查询语句,转换为asl审计方法,建模思路,一、审计方法建模,应用实例-应缴未缴非税收入审计方法,1、审计业务分类,预算执行审计部门预算执行审计非税收入收缴,2、审计事项分类务分类,滞留应缴非税收入,上缴不及时，滞留非税收入。不按国家规定时间和期限将收取的非税收入缴入国库或财政专户，或不按照规定期限集中上缴、上划规定的部门。,一、审计方法建模,应用实例-应缴未缴非税收入审计方法,3、审计问题描述,4、分析被审计数据特征,科目余额表中期末余额大于零,select科目编码,科目名称,期初余额,借方发生额,贷方发生额,期末余额from科目余额where科目编码like209%and期末余额0,一、审计方法建模,应用实例-应缴未缴非税收入审计方法,5、编制sql查询语句,6、转换为asl审计方法,见下页,varcx,bz,jl;/定义变量cx:查询，bz:标志，jl:记录begincx:=createq(select*from非税应缴未缴,-1);bz:=qeof(cx);/判断是否为空whilebz1do/循环开始直到bz=1结束beginjl:=qfdvalue(cx,非税应缴未缴);/取金额字段的值addtransrslt(cx,非税应缴未缴);/插入未落实疑点临时表bz:=qmov(cx,1);/下移一行bz:=qeof(cx);/判断是否为空end;transbatch(cx,非税应缴未缴);/循环结束end.,一、审计方法建模,应用实例-应缴未缴非税收入审计方法,二、sql语句编制方法,（1）数据定义语句（datadefinitionlanguage，ddl）createtablealtertabledroptable（2）数据操作语句（datamanipulationlanguage，dml）selectfromupdatesetinsertintodeletefrom,一、sql语句编制方法,sql语句-常用语句,（3）select语句格式selectall|distinct|top，from，表名2wheregroupbyhavingorderbyasc|desc,sql语句-常用语句,一、sql语句编制方法,摘要包含“费”where摘要like%费%摘要以“费”结束where摘要like%费摘要以“费”开始where摘要like费%摘要第二个字是“费”where摘要like_费%摘要倒数第三个字是“费”（_是两个_）where摘要like%费_摘要为空wheretrim(摘要)=or摘要isnull,针对摘要常做的查询,一、sql语句编制方法,科目编码是某一个编码（不建议使用，因为不会把下级科目连带查询出来）where科目编码=101科目编码是某一个编码（建议使用，会把下级科目连带查询出来）whereleft(科目编码,3)=101科目编码是某一个编码（建议使用，会把下级科目连带查询出来）where科目编码like101%查出支出类whereleft(科目编码,1)=5,针对科目编码常做的查询,一、sql语句编制方法,查出一级科目（一级科目3位）wherelen(科目编码)=3只查出二级科目（一级科目3位，二级科目2位）wherelen(科目编码)=5一起查出一级和二级科目（一级科目3位，二级科目2位）wherelen(科目编码)100000or贷方发生额100000查找出总账中12月份发生额大于60000的科目select*from总账where会计月份=12and(借方发生额60000or贷方发生额60000),账套数据库查询sql语句练习,一、sql语句编制方法,查找出101科目中摘要中包含“费”的凭证。第一种方法：select*from科目明细账101where摘要like%费%第二种方法：（推荐）select*from凭证库where摘要like%费%and科目编码like101%第三种方法：（推荐）select*from凭证库where摘要like%费%andleft(科目编码,3)=101,账套数据库查询sql语句练习,一、sql语句编制方法,查找出102科目中贷方金额大于20000元的凭证第一种方法：select*from科目明细账102where贷方金额20000第二种方法：（推荐）select*from凭证库where贷方金额20000and科目编码like102%第三种方法：（推荐）select*from凭证库where贷方金额20000andleft(科目编码,3)=102,账套数据库查询sql语句练习,一、sql语句编制方法,把101科目明细账中所有月计的记录查找出来第一种方法：select*from科目明细账101where摘要=月计第二种方法：select*from科目明细账101where是否计算字段=1查找出凭证库中摘要为空的分录，并查出其中借方金额或者贷方金额大于1000元的记录。select*from凭证库where(trim(摘要)=or摘要isnull)and(借方金额1000or贷方金额1000),账套数据库查询sql语句练习,一、sql语句编制方法,因该项目为该单位领导张三的经济责任审计，查询出与张三有关的支出凭证select凭证日期,科目编码,凭证号,摘要,借方金额,贷方金额,源凭证号from凭证库where摘要like%张三%andleft(科目编码,1)=5审计方案对支出审计的重要性水平定在2万元，请按此要求查询出有关凭证（字段要求：日期、凭证号、摘要、金额），其中发工资的支出不要。select凭证日期,科目编码,凭证号,摘要,借方金额,贷方金额,源凭证号from凭证库whereleft(科目编码,1)=5and借方金额=20000and摘要notlike%工资%,sql案例,一、sql语句编制方法,审查有无通过银行存款一借一贷的会计处理进行出租、出借账户、挪用公款，非法出借资金等违纪问题，请查询相关凭证。select*from科目明细账102where对应科目编码like102%or对应科目编码like%|102%审查有无通过银行存款一借一贷的会计处理进行出租、出借账户、挪用公款，非法出借资金等违纪问题，请查询相关凭证。select凭证日期,科目编码,凭证号,摘要,借方金额,贷方金额,源凭证号from凭证库where源凭证号in(select源凭证号from凭证库whereleft(科目编码,3)=102and借方金额0and源凭证号in(select源凭证号from凭证库whereleft(科目编码,3)=102and贷方金额0),sql案例,一、sql语句编制方法,审查有无通过银行存款一借一贷的会计处理进行出租、出借账户、挪用公款，非法出借资金等违纪问题，请查询相关凭证。select*from科目明细账102where对应科目编码like102%or对应科目编码like%|102%审查有无通过银行存款一借一贷的会计处理进行出租、出借账户、挪用公款，非法出借资金等违纪问题，请查询相关凭证。select凭证日期,科目编码,凭证号,摘要,借方金额,贷方金额,源凭证号from凭证库where源凭证号in(select源凭证号from凭证库whereleft(科目编码,3)=102and借方金额0and源凭证号in(select源凭证号from凭证库whereleft(科目编码,3)=102and贷方金额0),sql案例,一、sql语句编制方法,sql案例,一、sql语句编制方法,某张凭证借贷不平。selectround(sum(借方金额),2),round(sum(贷方金额),2),源凭证号from凭证库groupby源凭证号havinground(sum(借方金额),2)round(sum(贷方金额),2),sql案例,一、sql语句编制方法,科目对比，对比现金科目和银行存款科目的期初及各月余额，然后再使用图表工具进行比对。select现金.会计月份,现金.科目名称,现金.摘要,现金.余额,银行存款.科目名称,银行存款.摘要,银行存款.余额from(select现金as科目名称,*from科目明细账101where(摘要=月计or摘要=期初余额)as现金leftjoin(select银行存款as科目名称,*from科目明细账102where(摘要=月计or摘要=期初余额)as银行存款on现金.会计月份=银行存款.会计月份,sql案例,一、sql语句编制方法,审查表1中字段1出现1次以上select*from表1where字段1in(select字段1from表1groupby字段1havingcount(*)1)orderby字段1高新区企业经营地址不详细select纳税人识别号,纳税人名称,注册地址,经营地址from纳税单位登记表whereright(经营地址,2)=园区orright(经营地址,3)=开发区,sql案例,一、sql语句编制方法,高新区企业注册地址于经营地址不一致select纳税人识别号,纳税人名称,注册地址,经营地址from纳税单位登记表where注册地址经营地址,sql案例,一、sql语句编制方法,二、asl语言编写思路,1、打开表2、设置标志3、判断标志是否结束，如果y，跳到94、取出要分析的字段值5、分析字段6、符合条件记录（输出）7、移动标志8、回到39、程序结束,asl数据库编程基本结构,二、asl语言编写思路,使用asl编写审计方法，审查银行存款科目，有贷方金额大于1000000元的记录到已落实疑点中。varcx,bz,dfje,ypzh;begincx:=createq(select*from凭证