综合应用ao软件开展地税同级审计工作.doc

综合应用ao软件开展地税同级审计工作黄宏毅一、项目具体实施过程（一）审计项目立项阶段1.建立项目人员列表首先，我们用admin账号直接进入系统，利用“系统管理人员管理”功能建立审计组人员列表，并设置相关口令。2.建立项目基础信息主审用自己的账号和口令进入系统，用“项目管理准备管理建立项目手动建立项目”功能建立项目。（注：本项目的项目编号由于时间关系采用的是旧版的编码编制规则，今后的项目我们将采用金审工程服务网站上公布的新版编码编制规则建立；本项目采用的项目管理模板是时间分类模板）3.项目人员管理主审用“项目管理准备管理项目人员管理”功能添加项目人员，并对审计组人员角色进行设置。4.导出，导入项目信息主审用“项目管理准备管理导出项目信息”功能导出项目信息包，其他审计组成员用自己的账号和口令分别进入系统，用“导入项目信息”功能导入项目信息包。5.编制项目资料主审在建立项目后，用“项目管理资料管理从模板引入资料引入批量资料”功能选择并导入所需要的项目文档模板，并保存在资料树的相应文件夹下。在需要编制相应的文档时，打开要编制的文档模板，编辑后点击“文件保存”进行保存和打印 (注：本次项目共使用了以下文档模板:实施方案参考模板、审计通知书、专项审计调查通知书、承诺书参考模板、审计决定书、送达回证)。6.建立审计事项审计组成员根据审计分工用“项目管理准备管理审计事项管理审计事项编制”功能建立审计事项，审计事项也可以在具体的审计过程中随时添加。成员之间也可通过审计事项的导入、导出功能共享编制好的审计事项。（二）数据采集转换阶段（以地税数据库为例）南通市地方税务局使用的税收征收管理系统的后台数据库是adaptive server anywhere6.0。因此，我们首先安装了sybase数据库客户端软件；通过向税务部门索取网络配置参数配置网络连接；在控制面板中通过odbc数据源管理器配置odbc；同时请地税部门预先剔除审计范围外的数据以减少采集时间。在与数据库连接成功后，使用ao软件中的“采集转换业务数据采集数据功能”进行数据采集。首先，建立目标数据库，取名为“地税数据库”，保存在“资料树的审计计划阶段文件夹”下(图1)。(图1)然后选择“新建数据导入定义”，“添加数据源”为刚才建好的odbc数据源，在“选择转换数据表窗口”，我们根据审计工作需要和地税部门提供的数据字典从613张数据表中选择了以下几张数据表，时间期间定义为2004年1月1日至2005年2月31日，共约80多万条数据记录：缴款书记录表(s_jksjl):存放纳税人申报、缴纳税款信息。提退记录表(s_ttjl):存放纳税人税款提退信息。零申报记录表(s_lsbjl):存放纳税人零申报税款信息。税种表(m_sz):存放税种代码和名称信息。税务登记表(d_swdjb): 存放纳税人税务登记信息。纳税项目表(d_nsxm)：存放纳税人纳税项目鉴定信息。数据表选择完毕后，我们在数据字段设置窗口根据数据字典对以上几张表的字段进行了筛选（图2），筛选结果如下：（图2）税种表（m_sz）:税种代码（id_sz）、税种名称（name_sz）;缴款书记录表（s_jksjl）:纳税人名称（name_nsr）、纳税人代码（id_nsr）、税种代码（id_sz）、申报日期（date_sbbrq）、缴款日期（date_jkrq）、开票日期（date_kprq）、受理日期（date_slrq）、税款所属期起日（date_ssqqr）、税款所属期止日（date_ssqzr）、应补（退）税额（ybtse）、铅印税票号（qysph）、税种细目代码（id_sm）、预算级次代码（id_ysjc）、税率（sl）、银行账号（yhzh）;零申报记录表(s_lsbjl):纳税人名称（name_nsr）、纳税人代码（id_nsr）、税种代码（id_sz）、申报日期（date_sbbrq）、受理日期（date_slrq）、税款所属期起日（date_ssqqr）、税款所属期止日（date_ssqzr）;提退记录表(s_ttjl）:纳税人名称（name_nsr）、纳税人代码（id_nsr）、税种代码（id_sz）、消号日期（date_xh）、提退金额（ttje）、税种细目代码（id_sm）、预算级次代码（id_ysjc）、税率（sl）、银行账号（yhzh）;税务登记表（d_swdjb）:纳税人名称（name_nsr）、纳税人代码（id_nsr）、开业日期(date_ky)、注册地址(addr_zc)、电话(tel)、法定代表人(name_fr)、办税人员(name_bsry)、税务登记日期(date_swdjrq)；纳税项目表（d_nsxm):纳税人代码（id_nsr）、税种代码（id_sz）、税种细目代码（id_sm）、预算级次代码（id_ysjc）、税率（sl）;预算级次名称（m_ysjc）:预算级次代码（id_ysjc）、预算级次名称（id_ysjc）。转换完毕后，系统提示“生成业务数据中间表”。首先我们在“电子账簿管理”窗口点击“新建电子账簿”，输入账簿名称为“地税数据库”，单位名称为“南通市地税局”。行业类别为行政。账簿建立完毕后，在生成业务数据中间表操作窗口，进入sql查询器，输入转换后的新数据表名，并执行以下sql语句将所有要导入的数据表中的id_sz字段替换为税种表（m_sz）中的name_sz，将所有要导入的数据表中的id_ysjc字段替换为预算级次名称表(m_ysjc)中的name_ysjc。点击导入完成数据导入(图3)。新表名分别为：jksjl、lsbjl、ttjl、swdjb、swjdb。 select s_jksjl.date_jkrq,s_jksjl.date_kprq, s_jksjl.date_sbbrq, s_jksjl.date_ssqqr, s_jksjl.date_ssqzr, s_jksjl.id_nsr,m_sz.name_sz,s_jksjl.name_nsr, s_jksjl.qysph, s_jksjl.ybtse, s_jksjl.id_sm, s_jksjl.sl, m_ysjc.name_ysjc, s_jksjl.yhzh from m_ysjc inner join (s_jksjl inner join m_sz on s_jksjl.id_sz=m_sz.id_sz) on m_ysjc.id_ysjc= s_jksjl.id_ysjc;select s_lsbjl.id_nsr, s_lsbjl.name_nsr, m_sz.name_sz, s_lsbjl.date_slrq, s_lsbjl.date_sbbrq, s_lsbjl.date_ssqqr, s_lsbjl.date_ssqzr from s_lsbjl inner join m_sz on s_lsbjl.id_sz = m_sz.id_sz;select s_ttjl.date_xh, s_ttjl.id_nsr, m_sz.name_sz, s_ttjl.name_nsr, s_ttjl.ttje, s_ttjl.id_sm, m_ysjc.name_ysjc, s_ttjl.yhzh from m_ysjc inner join (s_ttjl inner join m_sz on s_ttjl.id_sz= m_sz.id_sz) on m_ysjc.id_ysjc = s_ttjl.id_ysjc;select d_swdjb.* from d_swdjb;select d_nsxm.id_nsr, m_sz.name_sz, d_nsxm.id_sm, m_ysjc.name_ysjc, d_nsxm.sl from (d_nsxm inner join m_sz on d_nsxm.id_sz = m_sz.id_sz) inner join m_ysjc on d_nsxm.id_ysjc = m_ysjc.id_ysjc;(图3)（注：1、由于我们要对数据表的真实性和完整性进行检验，故在数据采集阶段仅对数据表的数据字段进行处理，而不对数据表的数据记录进行处理，以保留数据表的原始信息。2、由于数据量较大并涉及有关单位的敏感信息，我们在上报的数据包对相关业务数据表进行了处理。3、本次审计项目我们还采集了驾培系统数据库、民政福利企业数据库，限于篇幅，不一一介绍。）（三）审计分析与抽样阶段在数据分析阶段，我们首先用“审计分析账表分析电子账簿管理”功能选择要分析的账套为地税数据库，点击导出电子账簿导出地税数据库.sjfx文件并分发到各个审计组成员导入使用。账套选择完毕后，用“审计分析数据分析”打开sql查询器，建立sql查询语句，并保存sql语句。点击选择sql语句，利用sql语句管理窗口中的导出功能导出sql语句数据包为地税sql查询语句.sql文件，并分发到各个审计组成员，由他们利用sql语句管理窗口中的导入功能导入数据包地税sql查询语句.sql文件，以便于他们独立的完成审计查询、分析、筛选工作（图4） (注：具体查询语句请见审计成果部分及报送的sql 语句数据包)。（图4）生成查询结果后，在查询结果窗口点击导出到资料树，将结果保存在资料树的审计实施阶段文件夹下。生成查询结果后，在查询结果窗口点击生成疑点，在选择审计疑点窗口选择要列入审计疑点的记录，点击生成疑点将疑点记录插入到疑点库中，以便下一步分析使用（图5）。（图5）在审计实施过程中我们还使用了图表查看功能。首先在查询结果窗口点击图表查看，在图形分析向导窗口指定作为横轴的数据和作为纵轴的数据，选择图表显示类型后即可画出统计图表，点击“导出到资料树”，将结果保存在资料树的审计实施阶段文件夹下。该功能在形象表示审计查询结果的同时，作为工作资料，也极大地方便了领导熟悉掌握审计情况，并作出相应的管理措施和审计决策。在数据分析工作完成后，使用“审计分析疑点管理”中的业务数据疑点列表，对在数据分析阶段插入到疑点库中的疑点进行确认和排除操作。点击落实疑点，将未落实疑点页面选择的疑点设为已落实疑点。点击导出到资料树，将结果保存在资料树的审计实施阶段文件夹下。（四）审计日记、审计证据和审计底稿的编制1.审计日记的编制审计组成员每天进入系统选择项目后，用“审计底稿审计日记新建日记”功能编制审计日记。编制完毕后，用“审计底稿审计日记打开日记”功能编辑、浏览、修改审计日记。在审计证据、审计底稿编制完毕后，打开相应的审计日记，在“审计日记审计证据”、“审计日记审计底稿”页面添加与审计日记相关的证据和底稿资料（图6）。（图6）2.审计证据的编制审计组成员每天进入系统选择项目后，用“审计底稿审计证据新建证据”功能编制审计证据，在证据附件页面内右键添加相关附件。编制完毕后，用“审计底稿审计证据打开证据”功能编辑、浏览、修改审计证据。3.审计底稿的编制审计组成员进入系统选择项目后，用“审计底稿审计底稿新建底稿”功能编制审计底稿。编制完毕后，用“审计底稿审计底稿打开底稿”功能编辑、浏览、修改审计底稿。在审计证据编制完毕后，在“审计底稿审计证据”页面添加与审计底稿相关的证据。在项目结束阶段，主审导入由各个审计组成员导出的审计底稿数据包，并进行复核。4.综合查询在审计日记、审计证据和审计底稿编制完毕后，审计组成员用“审计底稿辅助功能综合查询”功能对审计日记、审计证据和审计底稿进行综合查询。首先选择查询类别，然后在业务对象查询窗口输入查询条件进行查询，方便了审计组成员从众多的审计日记、审计证据和审计底稿中查找所需的资料。5.资料打包管理审计组成员在完成全部审计日记后，用“审计底稿审计日记导出日记功能”，在导出日记窗口选定要导出的日记，在选择导出路径窗口选择存放导出日记的文件夹，将日记导出为word文档，打印存档。审计组成员在完成每日的审计日记后，在左侧资料树窗口右键点击审计日记文件夹，在弹出菜单上点击打包，在资料包属性窗口选择打包资料类型为资料导出数据包，用“项目管理交互管理报送数据包管理”功能选择要导出的审计日记资料导出包，点击导出将资料包导出，交主审编制审计报告初稿。审计组成员在完成相关审计底稿后，在左侧资料树窗口审计底稿文件夹上点击右键，在弹出菜单上点击打包，在资料包属性窗口选择打包资料类型为资料导出数据包，用“项目管理交互管理报送数据包管理”功能选择要导出的审计底稿资料导出包，点击导出将资料包导出，交主审编制审计报告初稿。（五）审计报告编制主审用“项目管理交互管理报送数据包管理”功能点击引入，选择要导入的审计日记资料包、审计证据资料包、审计底稿资料包，选择数据包类型为资料导出数据包，引入数据包后点击解包，将资料包解压到左侧资料树相应的文件夹下。将各个审计组成员的审计日记资料包、审计证据资料包，审计底稿资料包导入后，主审用“审计底稿审计报告编制报告提纲”功能进入审计报告提纲窗口。首先在中间的审计报告提纲模板区通过右键新建文件夹、文件夹命名的方式形成审计报告总体结构；其次，在审计报告提纲窗口中把待选原始数据区的审计日记和审计底稿展开，用鼠标左键按顺序将相应的日记和底稿拖拽到审计提纲模板区的相应文件夹下，拖拽完毕后点击操作中的生成审计报告提纲。生成审计报告提纲后，在审计报告提纲窗口中，点击操作中的生成审计报告初稿，并将生成的审计报告初稿保存到资料树的审计结论阶段文件夹下（图7）。（图7）主审在完成审计报告初稿后，在左侧资料树窗口点击审计结论阶段文件夹，在报告初稿上右键点击，在弹出菜单上点击导出，将报告初稿导出为word文档并进行进一步的编辑。在审计报告定稿后，用“项目管理资料管理从系统引入资料”功能导入定稿的审计报告。（六）项目资料归档在审计项目资料归档阶段，主审用“项目管理资料管理从系统引入资料”功能导入其他尚未归档的文档资料，并存放在相应的资料树文件夹下。用“项目管理资料管理形成预归档数据包”功能生成归档数据包，用“项目管理交互管理报送数据包管理”功能选择要导出的归档数据包，点击导出将资料包导出到服务器保存并刻录成光盘存档。二、应用创新点（一）编写asl脚本实现自动审计在审计实施阶段，审计组人员针对审计项目的特点，将一些重要的审计经验建立审计模型。利用ao软件提供的审计方法管理功能，根据asl语言编制审计步骤脚本，并利用ao软件提供的自动审计功能开展审计工作。首先，点击“审计方法审计方法管理”，在审计方法树的审计师方法文件夹下新建行业，输入行业名称，在该行业类别上建立审计方法，输入审计提示等基本信息后，在新建的审计方法上用右键菜单创建审计步骤并调试编译（图8）。在审计方法和步骤编译完毕后，利用“审计方法自动审计”功能，在选择审计方法窗口勾选需使用的审计方法及步骤，点击确定完成自动审计（图9），运行结果保存在审计疑点库中（图10）。针对本次地税审计项目，我们分别创建了地税审计方法、民政福利企业审计方法、驾培企业审计方法。（图8）（图9）（图10）1.地税税收征管审计方法（1）税收收入分税种汇总审计目标：将税收收入汇总情况与地税年报进行核对，验证所采集地税数据的真实性和完整性，并用于查证地税部门是否存在税种调节问题。方法说明：根据输入的审计年度，分别形成分税种入库汇总表和提退汇总表，将两张表进行比对，得出年度税收收入汇总情况。var b,c,x,y; begin showmsg(税收收入分税种汇总); showmsg(请输入要汇总的审计年度起始日期，格式:mm/dd/yy); read(x); showmsg(请输入要查询的审计年度终止日期，格式:mm/dd/yy); read(y); createtemptable(分税种入库汇总表,select 业务__sz,sum(业务_jksjl.ybtse) as 入库额 from 业务_jksjl where 业务_jksjl.date_jkrq=#+x+#+and +业务_jksjl.date_jkrq=#+x+#+and +业务_ttjl.date_xh=#+y+#+group by 业务__sz);b:=createq(select 分税种入库汇总表.name_sz as 税种,round(分税种入库汇总表.入库额-分税种提退汇总表.提退额,2) as 收入 from 分税种入库汇总表 inner join 分税种提退汇总表 on 分税种入库汇总表.name_sz=分税种提退汇总表.name_sz,-1); c:=qeof(b); if c1 then begin repeat addtransrslt(b,税收收入); c:=qmov(b,1); c:=qeof(b); until c=1; end; transbatch(b,税收收入); showmsg(税收收入分税种汇总完毕!); end.（2）申报未开票查询审计目标：验证税务机关在年度税收收入任务完成后，是否存在不将部分企业申报的税款入库的情况，并根据结果确定延伸重点。方法说明：根据输入的申报日期，筛选出在审计年度内企业已申报而税务机关未开票的记录。var b,c,x,y;beginshowmsg(申报未开票情况查询); showmsg(请输入要查询的申报日初始日期，格式:mm/dd/yy); read(x); showmsg(请输入要查询的申报日终止日期，格式:mm/dd/yy); read(y); b:=createq(select * from 业务_jksjl where 业务_jksjl.date_sbbrq=#+x+#+and +业务_jksjl.date_sbbrq=#+y+#+and +业务_jksjl.date_kprq is null ,-1); c:=qeof(b); if c=1 then showmsg(未发现申报未开票情况!); while c1 do begin addtransdout(b,申报未开票); c:=qmov(b,1); c:=qeof(b); end; transbatch(b,申报未开票); showmsg(申报未开票情况查询完毕!);end.（3）开票未入库查询审计目标：验证税务机关在年度税收收入任务完成后，是否存在不将部分企业申报的税款入库的情况，并根据结果确定延伸重点。方法说明：根据输入的开票日期，筛选出在审计年度内开票未入库的记录。var b,c,x,y;begin showmsg(开票未入库情况查询);showmsg(请输入要查询的开票日初始日期，格式:mm/dd/yy);read(x);showmsg(请输入要查询的开票日终止日期，格式:mm/dd/yy);read(y);b:=createq(select * from 业务_jksjl where 业务_jksjl.date_kprq=#+x+#+and +业务_jksjl.date_kprq=#+y+#+and +业务_jksjl.date_jkrq is null,-1);c:=qeof(b);if c=1 then showmsg(未发现开票未入库情况!);while c1 do begin addtransdout(b,开票未入库); c:=qmov(b,1); c:=qeof(b); end;transbatch(b,开票未入库); showmsg(开票未入库情况查询完毕!);end.（4）提前入库查询审计目标：验证税务机关是否存在当年度税收收入任务难以完成时，提前征收税款的情况。方法说明：对于按月征收税款的纳税户，根据输人的申报日期和缴款日期筛选出所有满足条件的记录，将结果导入审计疑点。例如：申报日期=2004年12月1日，缴款日期=2004年10月1日，缴款日期=#+x+#+and +业务_jksjl.date_jkrq=#+y+#,-1);c:=qeof(b);if c=1 then showmsg(未发现提前入库情况!);while c1 do beginaddtransdout(b,提前入库); c:=qmov(b,1); c:=qeof(b); end;transbatch(b,提前入库);showmsg(提前入库情况查询完毕!);end.（5）延迟入库查询(查账征收)审计目标：验证税务机关在年度税收收入任务完成后，是否存在将部分企业申报的税款延至下年入库，将结果导入审计疑点。方法说明：对于查账征收税款的纳税人，根据输入的税款所属期止日和缴款日期筛选出所有满足条件的记录。例如：税款所属期止日2004年12月31日。var b,c,x,y;beginshowmsg(延迟入库情况查询);showmsg(请输入要查询的税款所属期终止日期，格式:mm/dd/yy);read(x);showmsg(请输入要查询的缴款日起始日期，格式:mm/dd/yy);read(y);b:=createq(select * from 业务_jksjl where 业务_jksjl.date_ssqzr#+y+#,-1);c:=qeof(b);if c=1 then showmsg(未发现延迟入库情况!);while c1 do beginaddtransdout(b,延迟入库); c:=qmov(b,1); c:=qeof(b); end;transbatch(b,延迟入库);showmsg(延迟入库情况查询完毕!);end.（6）延迟入库查询(汇算清缴)审计目标：验证税务机关在年度税收收入任务完成后，是否存在将部分企业申报的税款延至下年入库。方法说明：对于汇算清缴税款的纳税人，根据输人的申报日期和缴款日期筛选出所有满足条件的记录，将结果导入审计疑点。例如：申报日期2005年4月31日。var b,c,x,y;beginshowmsg(延迟入库情况查询);showmsg(请输入要查询的申报日终止日期，格式:mm/dd/yy);read(x);showmsg(请输入要查询的缴款日起始日期，格式:mm/dd/yy);read(y);b:=createq(select * from 业务_jksjl where 业务_jksjl.date_sbbrq#+y+#,-1);c:=qeof(b);if c=1 then showmsg(未发现延迟入库情况!);while c1 do beginaddtransdout(b,延迟入库); c:=qmov(b,1); c:=qeof(b); end;transbatch(b,延迟入库);showmsg(延迟入库情况查询完毕!);end.（7）营业税附征异常查询（城维税）审计目标：查证地税部门是否按法定税率如实征收城维税。方法说明：根据纳税人实际缴纳的营业税计算应征城维税，并与纳税人实纳城维税进行比较，将存在差额的记录导入审计疑点。var b,c;begin showmsg(营业税附征异常查询(城维税)!); createtemptable(应纳城维税,select 业务_jksjl.name_nsr as 单位名称,业务_jksjl.id_nsr as 单位代码,sum(业务_jksjl.ybtse*0.07) as 应纳城维税 from 业务_jksjl group by 业务_jksjl.id_nsr,业务_jksjl.name_nsr, 业务_jksjl.name_sz having 业务_jksjl.name_sz=营业税); createtemptable(实纳城维税,select name_nsr as 单位名称,id_nsr as 单位代码,sum(ybtse) as 实纳城维税 from 业务_jksjl group by 业务_jksjl.id_nsr,业务_jksjl.name_nsr, 业务_jksjl.name_sz having 业务_jksjl.name_sz=城市维护建设税);b:=createq(select 实纳城维税.单位名称, round(应纳城维税-实纳城维税,2) as 城维税差额 from 实纳城维税 inner join 应纳城维税 on 实纳城维税.单位代码 = 应纳城维税.单位代码 and 实纳城维税.单位名称=应纳城维税.单位名称 where 实纳城维税-应纳城维税0,-1);c:=qeof(b);if c=1 then showmsg(未发现营业税附征异常情况!);if c1 then begin repeat addtransrslt(b,营业税附征异常(城维税); c:=qmov(b,1); c:=qeof(b); until c=1; end; transbatch(b,营业税附征异常(城维税); showmsg(营业税附征异常查询完毕!); end.（8）营业税附征异常查询（教育费附加）审计目标：查证地税部门是否按法定税率如实征收教育费附加。方法说明：根据纳税人实际缴纳的营业税计算应征教育费附加，并与纳税人实纳教育费附加进行比较，将存在差额的记录导入审计疑点。var b,c;begin showmsg(营业税附征异常查询(教育费附加)!); createtemptable(应纳教育费附加,select 业务_jksjl.name_nsr as 单位名称,业务_jksjl.id_nsr as 单位代码, sum(业务_jksjl.ybtse*0.03) as 应纳教育费附加 from 业务_jksjl group by 业务_jksjl.id_nsr,业务_jksjl.name_nsr, 业务_jksjl.name_sz having 业务_jksjl.name_sz=营业税); createtemptable(实纳教育费附加,select name_nsr as 单位名称,id_nsr as 单位代码, sum(ybtse) as 实纳教育费附加 from 业务_jksjl group by 业务_jksjl.id_nsr,业务_jksjl.name_nsr,业务_jksjl.name_sz having 业务_jksjl.name_sz=教育费附加); b:=createq(select 实纳教育费附加.单位名称, round(应纳教育费附加-实纳教育费附加,2) as 教育费附加差额 from 实纳教育费附加 inner join 应纳教育费附加 on 实纳教育费附加.单位名称 = 应纳教育费附加.单位名称 and 实纳教育费附加.单位代码 = 应纳教育费附加.单位代码 where 应纳教育费附加-实纳教育费附加0,-1);c:=qeof(b);if c=1 then showmsg(未发现营业税附征异常情况!); if c1 then begin repeat addtransrslt(b,营业税附征异常(教育费附加); c:=qmov(b,1); c:=qeof(b); until c=1; end; transbatch(b,营业税附征异常(教育费附加); showmsg(营业税附征异常查询完毕!); end.（9）入库级次-鉴定级次匹配查询审计目标：查证地税部门是否存在混淆税款级次的情况。方法说明：将入库税款的实际预算级次与纳税项目的鉴定预算级次进行比较，将不一致的记录导入审计疑点。var b,c;begin showmsg(入库级次与鉴定级次匹配查询!); createtemptable(入库级次,select 业务_jksjl.id_nsr, 业务_jksjl.name_nsr, 业务__sz,业务_jksjl.name_ysjc,sum(业务_jksjl.ybtse) as 纳税额 from 业务_jksjl group by 业务_jksjl.id_nsr, 业务_jksjl.name_nsr, 业务__sz, 业务_jksjl.name_ysjc);createtemptable(鉴定级次,select 业务_swjdb.id_nsr,业务__sz,业务_swjdb.name_ysjc from 业务_swjdb group by 业务_swjdb.id_nsr,业务__sz,业务_swjdb.name_ysjc);b:=createq(select 入库级次.name_nsr as 单位名称,入库级次.name_sz as 税种,入库级次.name_ysjc as 入库预算级次,鉴定级次.name_ysjc as 鉴定预算级次,入库级次.纳税额 from 鉴定级次 inner join 入库级次 on 鉴定级次.id_nsr = 入库级次.id_nsr and 鉴定级次.name_sz = 入库级次.name_sz where (入库级次.name_ysjc鉴定级次.name_ysjc)0,-1); c:=qeof(b);if c=1 then showmsg(未发现级次匹配异常情况!);if c1 then begin repeat addtransrslt(b,入库级次与鉴定级次匹配异常); c:=qmov(b,1); c:=qeof(b); until c=1;end;transbatch(b,入库级次与鉴定级次匹配异常);showmsg(入库级次与鉴定级次匹配查询完毕!); end.（10）提退级次-鉴定级次匹配查询审计目标：查证地税部门是否存在混淆税款级次的情况。方法说明：将提退税款的实际预算级次与纳税项目的鉴定预算级次进行比较，将不一致的记录导入审计疑点。var b,c;begin showmsg(提退级次与鉴定级次匹配查询!); createtemptable(提退级次,select 业务_ttjl.id_nsr, 业务_ttjl.name_nsr, 业务__sz,业务_ttjl.name_ysjc,sum(业务_ttjl.ttje) as 提退额 from 业务_ttjl group by 业务_ttjl.id_nsr, 业务_ttjl.name_nsr, 业务__sz, 业务_ttjl.name_ysjc);createtemptable(鉴定级次,select 业务_swjdb.id_nsr,业务__sz,业务_swjdb.name_ysjc from 业务_swjdb group by 业务_swjdb.id_nsr,业务__sz,业务_swjdb.name_ysjc); b:=createq(select 提退级次.name_nsr as 单位名称,提退级次.name_sz as 税种,提退级次.name_ysjc as 提退预算级次,鉴定级次.name_ysjc as 鉴定预算级次,提退级次.提退额 from 鉴定级次 inner join 提退级次 on 鉴定级次.id_nsr = 提退级次.id_nsr and 鉴定级次.name_sz = 提退级次.name_sz where (提退级次.name_ysjc鉴定级次.name_ysjc)0,-1); c:=qeof(b);if c=1 then showmsg(未发现级次匹配异常情况!); if c1 then begin repeat addtransrslt(b,提退级次与鉴定级次匹配异常); c:=qmov(b,1); c:=qeof(b); until c=1; end; transbatch(b,提退级次与鉴定级次匹配异常); showmsg(提退级次与鉴定级次匹配查询完毕!); end.（11）提退级次-入库级次匹配查询审计目标：查证地税部门是否存在混淆税款级次的情况。方法说明：将提退税款的实际预算级次与入库税款的实际预算级次进行比较，将不一致的记录导入审计疑点。var b,c;begin showmsg(提退级次与入库级次匹配查询!); createtemptable(提退级次,select 业务_ttjl.id_nsr, 业务_ttjl.name_nsr, 业务__sz,业务_ttjl.name_ysjc,sum(业务_ttjl.ttje) as 提退额 from 业务_ttjl group by 业务_ttjl.id_nsr, 业务_ttjl.name_nsr, 业务__sz, 业务_ttjl.name_ysjc); createtemptable(入库级次,select 业务_jksjl.id_nsr, 业务_jksjl.name_nsr, 业务__sz,业务_jksjl.name_ysjc,sum(业务_jksjl.ybtse) as 纳税额 from 业务_jksjl group by 业务_jksjl.id_nsr, 业务_jksjl.name_nsr, 业务__sz, 业务_jksjl.name_ysjc); b:=createq(select 提退级次.name_nsr as 单位名称,提退级次.name_sz as 税种,入库级次.name_ysjc as 入库预算级次,提退级次.name_ysjc as 提退预算级次 from 入库级次 inner join 提退级次 on 入库级次.id_nsr = 提退级次.id_nsr and 入库级次.name_sz = 提退级次.name_sz where (提退级次.name_ysjc入库级次.name_ysjc)0,-1); c:=qeof(b); if c=1 then showmsg(未发现级次匹配异常情况!); if c1 then begin repeat addtransrslt(b,提退级次与入库级次匹配查询); c:=qmov(b,1); c:=qeof(b); until c=1; end; transbatch(b,提退级次与入库级次匹配异常); showmsg(提退级次与入库级次匹配查询完毕!); end.（12）重复银行账户查询(缴款户)审计目标：查证地税部门是否存在利用税收收入帐户调节税收收入的情况。方法说明：筛选缴款表中纳税户不同但银行账户相同的记录，并将结果导入审计疑点。var b,c;beginshowmsg(重复银行账户查询(缴款表)!); createtemptable(缴款银行账户表,select distinct 业务_jksjl.yhzh, 业务_jksjl.name_nsr from 业务_jksjl);b:=createq(select 缴款银行账户表.yhzh as 银行账号,count(缴款银行账户表.name_nsr) as 纳税人个数 from 缴款银行账户表 group by 缴款银行账户表.yhzh having count(缴款银行账户表.name_nsr)1,-1);c:=qeof(b);if c=1 then showmsg(未发现重复银行账户情况!);if c1 then begin repeat addtransrslt(b,重复银行账户(缴款表); c:=qmov(b,1); c:=qeof(b); until c=1;end;transbatch(b,重复银行账户(缴款表);showmsg(重复银行账户查询完毕!); end.（13）重复银行账户查询(提退户)审计目标：查证地税部门是否存在利用税收收入帐户调节税收收入的情况。方法说明：筛选提退表中纳税户不同但银行账户相同的记录，并将结果导入审计疑点。var b,c;begin showmsg(重复银行账户查询(提退表)!); createtemptable(提退银行账户表,select distinct 业务_ttjl.yhzh, 业务_ttjl.name_nsr from 业务_ttjl);b:=createq(select 提退银行账户表.yhzh as 银行账号,count(提退银行账户表.name_nsr) as 纳税人个数 from 提退银行账户表 group by 提退银行账户表.yhzh having count(提退银行账户表.name_nsr)1,-1);c:=qeof(b);if c=1 then showmsg(未发现重复银行账户情况!);if c1 then begin repeat addtransrslt(b,重复银行账户(提退表); c:=qmov(b,1); c:=qeof(b); until c=1; end;transbatch(b,重复银行账户(提退表); showmsg(重复银行账户查询完毕!); end.（14）缴款银行账户-提退银行账户匹配查询审计目标：查证税务部门是否将提退款退至纳税人的纳税帐户。方法说明：将入库表中的纳税户银行账户与提退表中的纳税户银行账户