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

综合应用AO软件睁开地税同级审计工作黄宏毅一、项目详细实行过程（一）审计项目立项阶段成立项目人员列表第一，我们用admin账号直接进入系统，利用“系统管理—人员管理”功能成立审计组人员列表，并设置有关隘令。成立项目基础信息主审用自己的账号和口令进入系统，用“项目管理—准备管理—成立项目—手动成立项目”功能成立项目。（注：①本项目的项目编号因为时间关系采纳的是旧版的编码编制规则，此后的项目我们将采纳金审工程服务网站上宣布的新版编码编制规则成立；②本项目采纳的项目管理模板是时间分类模板）项目人员管理主审用“项目管理—准备管理—项目人员管理”功能增添项目人员，并对审计组人员角色进行设置。导出，导入项目信息主审用“项目管理—准备管理—导出项目信息”功能导出项目信息包，其余审计构成员用自己的账号和口令分别进入系统，用“导入项目信息”功能导入项目信息包。编制项目资料主审在成立项目后，用“项目管理—资料管理—从模板引入资料—引入批量资料”功能选择并导入所需要的项目文档模板，并保存在资料树的相应文件夹下。在需要编制相应的文档时，翻开要编制的文档模板，编写后点击“文件—保存”进行保存和打印(注：本次项目共使用了以下文档模板:实行方案参照模板、审计通知书、专项审计检查通知书、许诺书参照模板、审计决定书、送到回证)。成立审计事项审计构成员依据审计分工用“项目管理—准备管理—审计事项管理—审计事项编制”功能成立审计事项，审计事项也能够在详细的审计过程中随时增添。成员之间也可经过审计事项的导入、导出功能共享编制好的审计事项。（二）数据收集变换阶段（以地税数据库为例）南通市地方税务局使用的税收征收管理系统的后台数据库是AdaptiveServerAnywhere6.0。所以，我们第一安装了Sybase数据库客户端软件；经过向税务部门讨取网络配置参数配置网络连结；在控制面板中经过ODBC数据源管理器配置ODBC；同时请地税部门预先剔除审计范围外的数据以减少收集时间。在与数据库连结成功后，使用AO软件中的“收集变换—业务数据—收集数据功能”进行数据收集。第一，成立目标数据库，取名为“地税数据库”，保存在“资料树的审计计划阶段文件夹”1下(图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（图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）、估算级次代码3id_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。SELECTs_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.YHZHFROMm_ysjcINNERJOIN(s_jksjlINNERJOINm_szONs_jksjl.ID_SZ=m_sz.ID_SZ)ONm_ysjc.ID_YSJC=s_jksjl.ID_YSJC;SELECTs_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_SSQZRFROMs_lsbjlINNERJOINm_szONs_lsbjl.ID_SZ=m_sz.ID_SZ;SELECTs_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.YHZHFROMm_ysjcINNERJOIN(s_ttjlINNERJOINm_szONs_ttjl.ID_SZ=m_sz.ID_SZ)ONm_ysjc.ID_YSJC=s_ttjl.ID_YSJC;SELECTd_swdjb.*FROMd_swdjb;SELECTd_nsxm.ID_NSR,m_sz.NAME_SZ,d_nsxm.ID_SM,m_ysjc.NAME_YSJC,d_nsxm.SLFROM(d_nsxmINNERJOINm_szONd_nsxm.ID_SZ=m_sz.ID_SZ)INNERJOINm_ysjcONd_nsxm.ID_YSJC=m_ysjc.ID_YSJC;4(图3)（注：1、因为我们要对数据表的真切性和完好性进行查验，故在数据收集阶段仅对数据表的数据字段进行办理，而不对数据表的数据记录进行办理，以保存数据表的原始信息。2、因为数据量较大并波及有关单位的敏感信息，我们在上报的数据包对有关业务数据表进行了办理。3、本次审计项目我们还收集了驾培系统数据库、民政福利公司数据库，限于篇幅，不一一介绍。）（三）审计剖析与抽样阶段在数据剖析阶段，我们第一用“审计剖析—账表剖析—电子账簿管理”功能选摘要剖析的账套为地税数据库，点击导出电子账簿导出地税数据库.sjfx文件并散发到各个审计构成员导入使用。账套选择完成后，用“审计剖析—数据剖析”翻开SQL查问器，成立SQL查问语句，并保存SQL语句。点击选择SQL语句，利用SQL语句管理窗口中的导出功能导出SQL语句数据包为地税SQL查问语句.sql文件，并散发到各个审计构成员，由他们利用SQL语句管理窗口中的导入功能导入数据包地税SQL查问语句.sql文件，以便于他们独立的达成审计查问、分析、挑选工作（图4）(注：详细查问语句请见审计成就部分及报送的SQL语句数据包)。5（图4）生成查问结果后，在查问结果窗口点击导出到资料树，将结果保存在资料树的审计实行阶段文件夹下。生成查问结果后，在查问结果窗口点击生成疑点，在选择审计疑点窗口选摘要列入审计疑点的记录，点击生成疑点将疑点记录插入到疑点库中，以便下一步剖析使用（图5）。（图5）在审计实行过程中我们还使用了图表查察功能。第一在查问结果窗口点击图表查察，在图形剖析导游窗口指定作为横轴的数据和作为纵轴的数据，选择图表显示种类后即可画出统计图表，点击“导出到资料树”，将结果保存在资料树的审计实行阶段文件夹下。该功能在形象表示审计查问结果的同时，作为工作资料，也极大地方便了领导熟习掌握审计状况，并作出相应的管理举措和审计决议。在数据剖析工作达成后，使用“审计剖析—疑点管理”中的业务数据疑点列表，对在数据剖析阶段插入到疑点库中的疑点进行确认和清除操作。点击落实疑点，将未落实疑点页面选择的疑点设为已落实疑点。点击导出到资料树，将结果保存在资料树的审计实行阶段文件夹下。（四）审计日志、审计凭据和审计稿本的编制审计日志的编制审计构成员每天进入系统选择项目后，用“审计稿本—审计日志—新建日志”功能编制审计日志。编制完成后，用“审计稿本—审计日志—翻开日志”功能编写、阅读、改正审计日志。在审计凭据、审计稿本编制完成后，翻开相应的审计日志，在“审计日志—审计凭据”、“审计日志—审计稿本”页面增添与审计日志有关的凭据和稿本资料（图6）。6（图6）审计凭据的编制审计构成员每天进入系统选择项目后，用“审计稿本—审计凭据—新建凭据”功能编制审计凭据，在凭据附件页面内右键增添有关附件。编制完成后，用“审计稿本—审计凭据—翻开凭据”功能编写、阅读、改正审计凭据。审计稿本的编制审计构成员进入系统选择项目后，用“审计稿本—审计稿本—新建稿本”功能编制审计稿本。编制完成后，用“审计稿本—审计稿本—翻开稿本”功能编写、阅读、改正审计稿本。在审计凭据编制完成后，在“审计稿本—审计凭据”页面增添与审计稿本有关的凭据。在项目结束阶段，主审导入由各个审计构成员导出的审计稿本数据包，并进行复核。综合查问在审计日志、审计凭据和审计稿本编制完成后，审计构成员用“审计稿本—协助功能—综合查问”功能对审计日志、审计凭据和审计稿本进行综合查问。第一选择查问类型，而后在业务对象查问窗口输入查问条件进行查问，方便了审计构成员从众多的审计日志、审计凭据和审计稿本中查找所需的资料。资料打担保理审计构成员在达成所有审计日志后，用“审计稿本—审计日志—导出日志功能”，在导出日志窗口选定要导出的日志，在选择导出路径窗口选择寄存导出日志的文件夹，将日志导出为WORD文档，打印存档。审计构成员在达成每天的审计日志后，在左边资料树窗口右键点击审计日志文件夹，在弹出菜单上点击打包，在资料包属性窗口选择打包资料种类为资料导出数据包，用“项目管理—交互管理—报送数据担保理”功能选摘要导出的审计日志资料导出包，点击导出将资料包导出，交主审编制审计报告草稿。审计构成员在达成有关审计稿本后，在左边资料树窗口审计稿本文件夹上点击右键，在弹出菜单上点击打包，在资料包属性窗口选择打包资料种类为资料导出数据包，用“项目管理—交互管理—报送数据担保理”功能选摘要导出的审计稿本资料导出包，点击导出将资料7包导出，交主审编制审计报告草稿。（五）审计报告编制主审用“项目管理—交互管理—报送数据担保理”功能点击引入，选摘要导入的审计日志资料包、审计凭据资料包、审计稿本资料包，选择数据包种类为资料导出数据包，引入数据包后点击解包，将资料包解压到左边资料树相应的文件夹下。将各个审计构成员的审计日志资料包、审计凭据资料包，审计稿本资料包导入后，主审用“审计稿本—审计报告—编制报告纲要”功能进入审计报告纲要窗口。第一在中间的审计报告纲要模板区经过右键新建文件夹、文件夹命名的方式形成审计报告整体构造；其次，在审计报告纲要窗口中把待选原始数据区的审计日志和审计稿本睁开，用鼠标左键按次序将相应的日志和稿本拖拽到审计纲要模板区的相应文件夹下，拖拽完成后点击操作中的生成审计报告纲要。生成审计报告纲要后，在审计报告纲要窗口中，点击操作中的生成审计报告草稿，并将生成的审计报告草稿保存到资料树的审计结论阶段文件夹下（图7）。（图7）主审在达成审计报告草稿后，在左边资料树窗口点击审计结论阶段文件夹，在报告草稿上右键点击，在弹出菜单上点击导出，将报告草稿导出为WORD文档并进前进一步的编写。在审计报告定稿后，用“项目管理—资料管理—从系统引入资料”功能导入定稿的审计报告。（六）项目资料归档在审计项目资料归档阶段，主审用“项目管理—资料管理—从系统引入资料”功能导入其余还没有归档的文档资料，并寄存在相应的资料树文件夹下。用“项目管理—资料管理—形成预归档数据包”功能生成归档数据包，用“项目管理—交互管理—报送数据担保理”功能选摘要导出的归档数据包，点击导出将资料包导出到服务器保存并刻录成光盘存档。二、应用创新点（一）编写ASL脚本实现自动审计在审计实行阶段，审计组人员针对审计项目的特色，将一些重要的审计经验成立审计模型。利用AO软件供给的审计方法管理功能，依据ASL语言编制审计步骤脚本，并利用AO软8件供给的自动审计功能睁开审计工作。第一，点击“审计方法—审计方法管理”，在审计方法树的审计师方法文件夹下新建行业，输入行业名称，在该行业类型上成立审计方法，输入审计提示等基本信息后，在新建的审计方法上用右键菜单创立审计步骤并调试编译（图8）。在审计方法和步骤编译完成后，利用“审计方法—自动审计”功能，在选择审计方法窗口勾选需使用的审计方法及步骤，点击确立完成自动审计（图9），运转结果保存在审计疑点库中（图10）。针对本次地税审计项目，我们分别创立了地税审计方法、民政福利公司审计方法、驾培公司审计方法。（图8）9（图9）（图10）10地税税收征管审计方法（1）税收收入分税种汇总审计目标：将税收收入汇总状况与地税年报进行查对，考证所收集地税数据的真切性和完好性，并用于查证地税部门能否存在税种调理问题。方法说明：依据输入的审计年度，分别形成分税种入库汇总表和提退汇总表，将两张表进行比对，得出年度税收收入汇总状况。Varb,c,x,y;beginShowmsg('税收收入分税种汇总');Showmsg('请输入要汇总的审计年度开端日期，格式:mm/dd/yy');read(x);Showmsg('请输入要查问的审计年度停止日期，格式:mm/dd/yy');read(y);CreateTempTable('分税种入库汇总表','SELECT业务__sz,SUM(业务_jksjl.YBTSE)AS入库额FROM业务_jksjlWHERE业务_jksjl.DATE_JKRQ>=#'+x+'#'+'and'+'业务_jksjl.DATE_JKRQ<=#'+y+'#'+'GROUPBY业务__sz');CreateTempTable('分税种提退汇总表','SELECT业务__sz,SUM(业务_ttjl.ttje)AS提退额FROM业务_ttjlWHERE业务_ttjl.DATE_XH>=#'+x+'#'+'and'+'业务_ttjl.DATE_XH<=#'+y+'#'+'GROUPBY业务__sz');b:=Createq('SELECT分税种入库汇总表.name_szAS税种,ROUND(分税种入库汇总表.入库额-分税种提退汇总表.提退额,2)AS收入FROM分税种入库汇总表INNERJOIN分税种提退汇总表ON分税种入库汇总表.name_sz=分税种提退汇总表.name_sz',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'税收收入');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'税收收入');Showmsg('税收收入分税种汇总完成!');end.2）申报未开票查问审计目标：考证税务机关在年度税收收入任务达成后，能否存在不将部分公司申报的税款入库的状况，并依据结果确立延长要点。11方法说明：依据输入的申报日期，挑选出在审计年度内公司已申报而税务机关未开票的记录。Varb,c,x,y;beginShowmsg('申报未开票状况查问');Showmsg('请输入要查问的申报日初始日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的申报日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM业务_jksjlWHERE业务_jksjl.DATE_SBBRQ>=#'+x+'#'+'and'+'业务_jksjl.DATE_SBBRQ<=#'+y+'#'+'and'+'业务_jksjl.DATE_KPRQisnull',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现申报未开票状况!');whilec<>1dobeginAddTransDout(b,'申报未开票');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'申报未开票');Showmsg('申报未开票状况查问完成!');end.3）开票未入库查问审计目标：考证税务机关在年度税收收入任务达成后，能否存在不将部分公司申报的税款入库的状况，并依据结果确立延长要点。方法说明：依据输入的开票日期，挑选出在审计年度内开票未入库的记录。Varb,c,x,y;beginShowmsg('开票未入库状况查问');Showmsg('请输入要查问的开票日初始日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的开票日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM业务_jksjlWHERE业务_jksjl.DATE_KPRQ>=#'+x+'#'+'and'+'业务_jksjl.DATE_KPRQ<=#'+y+'#'+'and'+'业务_jksjl.DATE_JKRQisnull',-1);c:=Qeof(b);12ifc=1thenShowmsg('未发现开票未入库状况!');whilec<>1dobeginAddTransDout(b,'开票未入库');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'开票未入库');Showmsg('开票未入库状况查问完成!');end.4）提早入库查问审计目标：考证税务机关能否存在当年度税收收入任务难以达成时，提早征收税款的情况。方法说明：对于按月征收税款的纳税户，依据输人的申报日期和缴款日期挑选出所有知足条件的记录，将结果导入审计疑点。比如：申报日期>=2004年12月1日，缴款日期<=2004年12月31日。对于按季征收税款的纳税户，依据输入的申报日期和缴款日期挑选出所有知足条件的记录。比如：申报日期>=2004年10月1日，缴款日期<=2004年12月31日。Varb,c,x,y;beginShowmsg('提早入库状况查问');Showmsg('请输入要查问的申报日初始日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的缴款日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM业务_jksjlWHERE业务_jksjl.DATE_SBBRQ>=#'+x+'#'+'and'+'业务_jksjl.DATE_JKRQ<=#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现提早入库状况!');whilec<>1dobeginAddTransDout(b,'提早入库');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'提早入库');13Showmsg('提早入库状况查问完成!');end.（5）延缓入库查问(查账征收)审计目标：考证税务机关在年度税收收入任务达成后，能否存在将部分公司申报的税款延至下年入库，将结果导入审计疑点。方法说明：对于查账征收税款的纳税人，依据输入的税款所属期止日和缴款日期挑选出所有知足条件的记录。比如：税款所属期止日<2004年11月30日，缴款日期>2004年12月31日。Varb,c,x,y;beginShowmsg('延缓入库状况查问');Showmsg('请输入要查问的税款所属期停止日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的缴款日开端日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM业务_jksjlWHERE业务_jksjl.DATE_SSQZR<=#'+x+'#'+'and'+'业务_jksjl.DATE_JKRQ>#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现延缓入库状况!');whilec<>1dobeginAddTransDout(b,'延缓入库');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'延缓入库');Showmsg('延缓入库状况查问完成!');end.（6）延缓入库查问(汇算清缴)审计目标：考证税务机关在年度税收收入任务达成后，能否存在将部分公司申报的税款延至下年入库。方法说明：对于汇算清缴税款的纳税人，依据输人的申报日期和缴款日期挑选出所有满足条件的记录，将结果导入审计疑点。比如：申报日期<2004年10月1日，缴款日期>2005年4月31日。Varb,c,x,y;beginShowmsg('延缓入库状况查问');14Showmsg('请输入要查问的申报日停止日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的缴款日开端日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM业务_jksjlWHERE业务_jksjl.DATE_SBBRQ<=#'+x+'#'+'and'+'业务_jksjl.DATE_JKRQ>#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现延缓入库状况!');whilec<>1dobeginAddTransDout(b,'延缓入库');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'延缓入库');Showmsg('延缓入库状况查问完成!');end.7）营业税附征异样查问（城维税）审计目标：查证地税部门能否按法定税率照实征收城维税。方法说明：依据纳税人实质缴纳的营业税计算应征城维税，并与纳税人实纳城维税进行比较，将存在差额的记录导入审计疑点。Varb,c;beginShowmsg('营业税附征异样查问(城维税)!');CreateTempTable('应纳城维税','SELECT业务_jksjl.NAME_NSRAS单位名称,业务_jksjl.ID_NSRAS单位代码,Sum(业务_jksjl.YBTSE*0.07)AS应纳城维税FROM业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务_jksjl.NAME_SZHAVING业务_jksjl.NAME_SZ="营业税"');CreateTempTable('实纳城维税','SELECTNAME_NSRAS单位名称,ID_NSRAS单位代码,Sum(YBTSE)AS实纳城维税FROM业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务_jksjl.NAME_SZHAVING业务_jksjl.NAME_SZ="城市保护建设税"');b:=Createq('SELECT实纳城维税.单位名称,round([应纳城维税]-[实纳城维税],2)AS城维税差额FROM实纳城维税INNERJOIN应纳城维税ON实纳城维税.单位代码=应纳城维税.单位代码AND实纳城维税.单位名称=应纳城维税.单位名称WHERE[实纳城维税]-[应纳城维税]<>0',-1);c:=Qeof(b);ifc=1then15showmsg('未发现营业税附征异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'营业税附征异样(城维税)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'营业税附征异样(城维税)');Showmsg('营业税附征异样查问完成!');end.8）营业税附征异样查问（教育费附带）审计目标：查证地税部门能否按法定税率照实征收教育费附带。方法说明：依据纳税人实质缴纳的营业税计算应征教育费附带，并与纳税人实纳教育费附带进行比较，将存在差额的记录导入审计疑点。Varb,c;beginShowmsg('营业税附征异样查问(教育费附带)!');CreateTempTable('应纳教育费附带','SELECT业务_jksjl.NAME_NSRAS单位名称,业务_jksjl.ID_NSRAS单位代码,Sum(业务_jksjl.YBTSE*0.03)AS应纳教育费附带FROM业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务_jksjl.NAME_SZHAVING业务_jksjl.NAME_SZ="营业税"');CreateTempTable('实纳教育费附带','SELECTNAME_NSRAS单位名称,ID_NSRAS单位代码,Sum(YBTSE)AS实纳教育费附带FROM业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务_jksjl.NAME_SZHAVING业务_jksjl.NAME_SZ="教育费附带"');b:=Createq('SELECT实纳教育费附带.单位名称,round([应纳教育费附带]-[实纳教育费附带],2)AS教育费附带差额FROM实纳教育费附带INNERJOIN应纳教育费附带ON实纳教育费附带.单位名称=应纳教育费附带.单位名称AND实纳教育费附带.单位代码=应纳教育费附带.单位代码WHERE[应纳教育费附带]-[实纳教育费附带]<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现营业税附征异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'营业税附征异样(教育费附带)');16c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'营业税附征异样(教育费附带)');Showmsg('营业税附征异样查问完成!');end.9）入库级次-判定级次般配查问审计目标：查证地税部门能否存在混杂税款级次的状况。方法说明：将入库税款的实质估算级次与纳税项目的判定估算级次进行比较，将不一致的记录导入审计疑点。Varb,c;beginShowmsg('入库级次与判定级次般配查问!');CreateTempTable('入库级次','SELECT业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务__SZ,业务_jksjl.NAME_YSJC,Sum(业务_jksjl.YBTSE)AS纳税额FROM业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务__SZ,业务_jksjl.NAME_YSJC');CreateTempTable('判定级次','SELECT业务_swjdb.ID_NSR,业务__SZ,业务_swjdb.NAME_YSJCFROM业务_swjdbGROUPBY业务_swjdb.ID_NSR,业务__SZ,业务_swjdb.NAME_YSJC');b:=Createq('SELECT入库级次.NAME_NSRAS单位名称,入库级次.name_SZAS税种,入库级次.NAME_YSJCAS入库估算级次,判定级次.NAME_YSJCAS判定估算级次,入库级次.纳税额FROM判定级次INNERJOIN入库级次ON判定级次.ID_NSR=入库级次.ID_NSRAND判定级次.name_SZ=入库级次.name_SZWHERE(入库级次.NAME_YSJC<>判定级次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现级次般配异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'入库级次与判定级次般配异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;17TransBatch(b,'入库级次与判定级次般配异样');Showmsg('入库级次与判定级次般配查问完成!');end.10）提退级次-判定级次般配查问审计目标：查证地税部门能否存在混杂税款级次的状况。方法说明：将提退税款的实质估算级次与纳税项目的判定估算级次进行比较，将不一致的记录导入审计疑点。Varb,c;beginShowmsg('提退级次与判定级次般配查问!');CreateTempTable('提退级次','SELECT业务_ttjl.ID_NSR,业务_ttjl.NAME_NSR,业务__SZ,业务_ttjl.NAME_YSJC,Sum(业务_ttjl.TTJE)AS提退额FROM业务_ttjlGROUPBY业务_ttjl.ID_NSR,业务_ttjl.NAME_NSR,业务__SZ,业务_ttjl.NAME_YSJC');CreateTempTable('判定级次','SELECT业务_swjdb.ID_NSR,业务__SZ,业务_swjdb.NAME_YSJCFROM业务_swjdbGROUPBY业务_swjdb.ID_NSR,业务__SZ,业务_swjdb.NAME_YSJC');b:=Createq('SELECT提退级次.NAME_NSRAS单位名称,提退级次.name_SZAS税种,提退级次.NAME_YSJCAS提退估算级次,判定级次.NAME_YSJCAS判定估算级次,提退级次.提退额FROM判定级次INNERJOIN提退级次ON判定级次.ID_NSR=提退级次.ID_NSRAND判定级次.name_SZ=提退级次.name_SZWHERE(提退级次.NAME_YSJC<>判定级次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现级次般配异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'提退级次与判定级次般配异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'提退级次与判定级次般配异样');Showmsg('提退级次与判定级次般配查问完成!');end.（11）提退级次-入库级次般配查问18审计目标：查证地税部门能否存在混杂税款级次的状况。方法说明：将提退税款的实质估算级次与入库税款的实质估算级次进行比较，将不一致的记录导入审计疑点。Varb,c;beginShowmsg('提退级次与入库级次般配查问!');CreateTempTable('提退级次','SELECT业务_ttjl.ID_NSR,业务_ttjl.NAME_NSR,业务__SZ,业务_ttjl.NAME_YSJC,Sum(业务_ttjl.TTJE)AS提退额FROM业务_ttjlGROUPBY业务_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业务_jksjlGROUPBY业务_jksjl.ID_NSR,业务_jksjl.NAME_NSR,业务__SZ,业务_jksjl.NAME_YSJC');b:=Createq('SELECT提退级次.NAME_NSRAS单位名称,提退级次.name_SZAS税种,入库级次.NAME_YSJCAS入库估算级次,提退级次.NAME_YSJCAS提退估算级次FROM入库级次INNERJOIN提退级次ON入库级次.ID_NSR=提退级次.ID_NSRAND入库级次.name_SZ=提退级次.name_SZWHERE(提退级次.NAME_YSJC<>入库级次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现级次般配异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'提退级次与入库级次般配查问');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'提退级次与入库级次般配异样');Showmsg('提退级次与入库级次般配查问完成!');end.（12）重复银行账户查问(缴款户)审计目标：查证地税部门能否存在利用税收收入帐户调理税收收入的状况。方法说明：挑选缴款表中纳税户不一样但银行账户同样的记录，并将结果导入审计疑点。Varb,c;begin19Showmsg('重复银行账户查问(缴款表)!');CreateTempTable('缴款银行账户表','SELECTDISTINCT业务_jksjl.YHZH,业务_jksjl.NAME_NSRFROM业务_jksjl');b:=Createq('SELECT缴款银行账户表.YHZHAS银行账号,Count(缴款银行账户表.NAME_NSR)AS纳税人个数FROM缴款银行账户表GROUPBY缴款银行账户表.YHZHHAVINGCount(缴款银行账户表.NAME_NSR)>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现重复银行账户状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'重复银行账户(缴款表)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'重复银行账户(缴款表)');Showmsg('重复银行账户查问完成!');end.13）重复银行账户查问(提退户)审计目标：查证地税部门能否存在利用税收收入帐户调理税收收入的状况。方法说明：挑选提退表中纳税户不一样但银行账户同样的记录，并将结果导入审计疑点。Varb,c;beginShowmsg('重复银行账户查问(提退表)!');CreateTempTable('提退银行账户表','SELECTDISTINCT业务_ttjl.YHZH,业务_ttjl.NAME_NSRFROM业务_ttjl');b:=Createq('SELECT提退银行账户表.YHZHAS银行账号,Count(提退银行账户表.NAME_NSR)AS纳税人个数FROM提退银行账户表GROUPBY提退银行账户表.YHZHHAVINGCount(提退银行账户表.NAME_NSR)>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现重复银行账户状况!');ifc<>1thenbeginrepeat20AddTransRslt(b,'重复银行账户(提退表)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'重复银行账户(提退表)');Showmsg('重复银行账户查问完成!');end.14）缴款银行账户-提退银行账户般配查问审计目标：查证税务部门能否将提退款退至纳税人的纳税帐户。方法说明：将入库表中的纳税户银行账户与提退表中的纳税户银行账户进行比较，将存在差别的记录导入审计疑点。Varb,c;beginShowmsg('缴款-提退银行账户般配查问!');CreateTempTable('提退银行账户表','SELECTDISTINCT业务_ttjl.YHZH,业务_ttjl.NAME_NSR,业务_ttjl.ID_NSRFROM业务_ttjl');CreateTempTable('缴款银行账户表','SELECTDISTINCT业务_jksjl.YHZH,业务_jksjl.NAME_NSR,业务_jksjl.ID_NSRFROM业务_jksjl');b:=Createq('SELECT缴款银行账户表.NAME_NSRAS单位名称,缴款银行账户表.YHZHAS缴款银行账户,提退银行账户表.YHZHAS提退银行账户FROM缴款银行账户表INNERJOIN提退银行账户表ON缴款银行账户表.ID_NSR=提退银行账户表.ID_NSRAND缴款银行账户表.NAME_NSR=提退银行账户表.NAME_NSRWHERE缴款银行账户表.YHZH<>提退银行账户表.YHZH',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现银行账户不般配状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'缴款-提退银行账户般配异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'缴款-提退银行账户般配异样');Showmsg('缴款-提退银行账户般配查问完成!');21end.15）同一税目不一样税率查问审计目标：查证税务部门在征收过程中能否存在将各税种对应的税目和税率合用错误的状况。方法说明：挑选入库表中纳税户和税目同样，税率不一样的记录，并将结果导入审计疑点。Varb,c;beginShowmsg('同一税目不一样税率查问!');CreateTempTable('实质税率表','SELECTDISTINCT业务_jksjl.NAME_NSR,业务_jksjl.ID_NSR,业务_jksjl.ID_SM,业务_jksjl.SLFROM业务_jksjlWHERE业务_jksjl.SL<>0AND业务_jksjl.YBTSE>0');b:=Createq('SELECT实质税率表.NAME_NSRAS单位名称,实质税率表.ID_SM,Count(实际税率表.SL)AS税率个数FROM实质税率表GROUPBY实质税率表.ID_NSR,实质税率表.NAME_NSR,实质税率表.ID_SMHAVINGCount(实质税率表.SL)<>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现税目同样税率不一样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'不一样税率');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'不一样税率');Showmsg('同一税目不一样税率查问完成!');end.16）判定税率-实质税率般配查问审计目标：查证税务部门在征收过程中能否存在将各税种对应的税目和税率合用错误的状况。方法说明：挑选入库表和纳税项目判定表中纳税户和税目同样，税率不一样的记录，并将结果导入审计疑点。Varb,c;beginShowmsg('判定-实质税率般配查问!');CreateTempTable('实质税率表','SELECTDISTINCT业务_jksjl.NAME_NSR,业务22_jksjl.ID_NSR,业务_jksjl.NAME_SZ,业务_jksjl.ID_SM,业务_jksjl.SLFROM业务_jksjlWHERE业务_jksjl.SL<>0AND业务_jksjl.YBTSE>0');CreateTempTable('判定税率表','SELECTDISTINCT业务_swjdb.ID_NSR,业务_swjdb.NAME_SZ,业务_swjdb.ID_SM,业务_swjdb.SLFROM业务_swjdbWHERE业务_swjdb.SL<>0');b:=Createq('SELECT实质税率表.NAME_NSRAS单位名称,实质税率表.NAME_SZAS税种,实质税率表.ID_SMAS税目,实质税率表.SLAS实质税率,判定税率表.SLAS判定税率FROM实质税率表INNERJOIN判定税率表ON判定税率表.ID_SM=实质税率表.ID_SMAND实质税率表.ID_NSR=判定税率表.ID_NSRWHERE实质税率表.SL<>判定税率表.SL',-1);c:=Qeof(b);ifc=1thenshowmsg('未发现判定税率与实质税率般配异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'判定-实质税率般配异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'判定-实质税率般配异样');Showmsg('判定-实质税率般配查问完成!');end.17）大额税票查问审计目标：从大额税票中查找审计疑点。方法说明：依据输入的税票金额挑选知足条件的记录。Varb,c,x;beginShowmsg('大额税票查问');Showmsg('请输入要查问的税票金额');Read(x);b:=Createq('SELECT*FROM业务_jksjlwhere业务_jksjl.ybtse>='+x,-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'大额税票');23c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'大额税票');Showmsg('大额税票查问完成!');end.18）延长单位纳税明细查问审计目标：确立延长单位的纳税明细状况，便于审计构成员实行延长审计。方法说明：依据输入的纳税人名称，挑选出所有知足条件的纳税人纳税明细。Varb,c,x;beginShowmsg('延长单位纳税明细查问');Showmsg('请输入要查问的延长单位名称');Read(x);b:=Createq('SELECT*FROM业务_jksjlwhere业务__nsrlike''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'纳税明细');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'纳税明细');Showmsg('延长单位纳税明细查问完成!');end.19）延长单位零申报明细查问审计目标：确立延长单位的零申报明细状况，便于审计构成员实行延长审计。方法说明：依据输入的纳税人名称，挑选出所有知足条件的纳税人零申报明细。Varb,c,x;beginShowmsg('延长单位零申报明细查问');Showmsg('请输入要查问的延长单位名称');Read(x);24b:=Createq('SELECT*FROM业务_lsbjlwhere业务__nsrlike''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'零申报明细');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'零申报明细');Showmsg('延长单位零申报明细查问完成!');end.民政福利公司审计方法（1）残疾人重复挂名查问审计目标：确立在多个福利公司中重复挂名的残疾人名单和公司名单。方法说明：依据身份证号码正常表分组查问，并将结果导入审计疑点。Varb,c;beginShowmsg('残疾人重复挂名查问');CreateTempTable('残疾人重复挂名表','SELECT身份证号码FROM业务_身份证号码正常表GROUPBY身份证号码HAVINGCOUNT([身份证号码])>1');b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM残疾人重复挂名表INNERJOIN业务_身份证号码正常表ON残疾人重复挂名表.身份证号码=业务_身份证号码正常表.身份证号码',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现重复挂名状况!');ifc<>1thenbeginrepeatAddTransDout(b,'重复挂名');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;25TransBatch(b,'重复挂名');Showmsg('残疾人重复挂名查问完成!');end.（2）残疾人年纪异样查问(未满16岁，15位身份证)审计目标：查问福利公司的生产人员中能否存在未满16周岁的残疾人。方法说明：对15位身份证号码依据输入的年纪区段挑选知足条件的记录，并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('残疾人年纪异样查问(未满16岁)');Showmsg('15位身份证查问，请输入要比较的年份(两位,如:89)');Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=15',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,2)>=xthenbeginAddTransDout(b,'未满16岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'未满16岁');Showmsg('残疾人年纪异样查问完成!');end.（3）残疾人年纪异样查问(未满16岁，18位身份证)审计目标：查问福利公司的生产人员中能否存在未满16周岁的残疾人。方法说明：对18位身份证号码依据输入的年纪区段挑选知足条件的记录,并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('18位身份证查问，请输入要比较的年份(四位,如:1989)');26Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=18',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,4)>=xthenbeginAddTransDout(b,'未满16岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'未满16岁');Showmsg('残疾人年纪异样查问完成!');end.（4）残疾人年纪异样查问(女性已满55岁，15位身份证)审计目标：查问福利公司的生产人员中能否存在已过退休年纪的残疾人。方法说明：对15位身份证号码依据输入的年纪区段挑选知足条件的女性残疾人记录,并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('残疾人年纪异样查问(女性，已满55岁)');Showmsg('15位身份证查问，请输入要比较的年份(两位,如:50)');Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=15AND性别="女"',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,2)<=xthen27beginAddTransDout(b,'已满55岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已满55岁');Showmsg('残疾人年纪异样查问完成!');end.（5）残疾人年纪异样查问(女性已满55岁，18位身份证)审计目标：查问福利公司的生产人员中能否存在已过退休年纪的残疾人。方法说明：对18位身份证号码依据输入的年纪区段挑选知足条件的女性残疾人记录,并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('残疾人年纪异样查问(女性，已满55岁)');Showmsg('18位身份证查问，请输入要比较的年份(四位,如:1950)');Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=18AND性别="女"',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,4)<=xthenbeginAddTransDout(b,'已满55岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已满55岁');Showmsg('残疾人年纪异样查问完成!');end.（6）残疾人年纪异样查问(男性已满60岁，15位身份证)28审计目标：查问福利公司的生产人员中能否存在已过退休年纪的残疾人。方法说明：对15位身份证号码依据输入的年纪区段挑选知足条件的男性残疾人记录,并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('残疾人年纪异样查问(男性，已满60岁)');Showmsg('15位身份证查问，请输入要比较的年份(两位,如:45)');Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=15AND性别="男"',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,2)<=xthenbeginAddTransDout(b,'已满60岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已满60岁');Showmsg('残疾人年纪异样查问完成!');end.（7）残疾人年纪异样查问(男性已满60岁，18位身份证)审计目标：查问福利公司的生产人员中能否存在已过退休年纪的残疾人。方法说明：对18位身份证号码依据输入的年限区段挑选知足条件的男性残疾人员记录,并将结果导入审计疑点。Vara,b,c,x;beginShowmsg('18位身份证查问，请输入要比较的年份(四位,如:1945)');Read(x);b:=Createq('SELECT业务_身份证号码正常表.身份证号码,业务_身份证号码正常表.姓名,业务_身份证号码正常表.单位名称FROM业务_身份证号码正常表WHERELen(身份证号码)=18AND性别="男"',-1);29c:=Qeof(b);ifc=1thenShowmsg('未发现年纪异样状况!');whilec<>1dobegina:=QFDValue(b,'身份证号码');ifMidstr(a,7,4)<=xthenbeginAddTransDout(b,'已满60岁');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已满60岁');Showmsg('残疾人年纪异样查问完成!');end.8）身份证号码异样查问审计目标：从福利公司残疾人名单中挑选出身份证号码异样的记录。方法说明：从福利公司残疾人名单中查找身份证号码长度不等于15位和18位的记录，作为异样记录导入审计疑点。Varb,c;beginShowmsg('身份证号码异样查问');CreateTempTable('身份证号码异样表','SELECT*FROM业务_福利公司残疾人名单WHERELen(身份证号码)<>15ANDLen(身份证号码)<>18');b:=Createq('SELECT身份证号码异样表.单位名称,Count(身份证号码异样表.身份证号码)AS异样人数FROM身份证号码异样表GROUPBY身份证号码异样表.单位名称',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现身份证异样状况!');ifc<>1thenbeginrepeatAddTransDout(b,'身份证号码异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;30TransBatch(b,'身份证号码异样');Showmsg('身份证号码异样查问完成!');end.9）残疾人占比异样查问审计目标：确立公司残疾人占比能否吻合减免条件。方法说明：将福利公司人数表和福利公司残疾人数表按单位名称连结，用各单位残疾人总人数除以福利公司总人数，确立福利公司残疾人占比。Varb,c;BeginShowmsg('残疾人占比异样查问');CreateTempTable('残疾人数分单位汇总表','SELECT业务_身份证号码正常表.单位名称,Count(业务_身份证号码正常表.身份证号码)AS残疾人数FROM业务_身份证号码正常表GROUPBY业务_身份证号码正常表.单位名称');b:=Createq('SELECT业务_福利公司人员人数.单位名称,round(残疾人数分单位汇总表.残疾人数/业务_福利公司人员人数.人数,2)FROM残疾人数分单位汇总表INNERJOIN业务_福利公司人员人数ON残疾人数分单位汇总表.单位名称=业务_福利公司人员人数.单位名称',-1);c:=Qeof(b);ifc=1thenShowmsg('未发现人数比率异样状况!');ifc<>1thenbeginrepeatAddTransRslt(b,'比率异样');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'比率异样');Showmsg('人数比率异样查问查问完成!');end.10）关系公司查问审计目标：查问福利公司中能否存在关系公司。方法说明：将纳税人税务登记表和福利公司人数表经过单位名称成立连结，依占有重名法人的公司名单确立关系公司。Varb,c;beginShowmsg('关系公司查问');31CreateTempTable('福利公司法人名称表','SELECT业务_swdjb.NAME_FRFROM业务_福利公司人员人数INNERJOIN业务_swdjbON业务_福利公司人员人数.单位名称=业务_swdjb.NAME_NSR');b:=Createq('SELECT福利公司法人名称表.NAME_FRas法人名称,业务_swdjb.NAME_NSRas单位名称FROM福利公司法人名称表INNERJOIN业务_swdjbON福利公司法人名称表.NAME_FR=业务_swdjb.NAME_FR',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'关系公司');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'关系公司');Showmsg('关系公司查问完成!');end.11）福利公司减免税明细查问审计目标：查问福利公司享受的减免税明细状况。方法说明：依据输入的福利公司名称，生成该公司享受的福利公司减免税明细。Varb,c,x;beginShowmsg('福利公司减免税明细查问');Showmsg('请输入要查问的福利公司名称');Read(x);b:=Createq('SELECT*FROM业务_福利公司减免税表where业务_福利公司减免税表.单位名称like''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'减免税明细');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;32TransBatch(b,'减免税明细');Showmsg('福利公司减免税明细查问完成!');end.驾培公司审计方法审计目标：查察在审计年度内驾培公司应纳营业税与实纳营业税之间能否存在差额，以确立公司有无偷漏税行为。方法说明：依据驾培公司在审计年度内的营业收入计算应纳营业税额，并和该公司的实纳营业税进行比较，确立差额，并导入审计疑点。Varb,c,x,y;beginShowmsg('驾培公司应纳-实纳营业税比较');Showmsg('请输入要查问的缴款日期初始日期，格式:mm/dd/yy');Read(x);Showmsg('请输入要查问的缴款日期停止日期，格式:mm/dd/yy');read(y);CreateTempTable('公司实纳营业税表','SELECT业务_jksjl.NAME_NSR,Sum(业务_jksjl.YBTSE)AS实纳营业税FROM业务_jksjlWHERE业务_jksjl.NAME_SZ="营业税"AND业务_jksjl.DATE_JKRQ>=#'+x+'#'+'and'+'业务_jksjl.DATE_JKRQ<=#'+y+'#'+'GROUPBY业务_jksjl.NAME_NSR');b:=Createq('SELECT公司实纳营业税表.NAME_NSRAS公司名称,(业务_驾培分单位培训人数表.人数*3000*0.05-公司实纳营业税表.实纳营业税)AS差额FROM公司实纳营业税表INNERJOIN业务_驾培分单位培训人数表ON公司实纳营业税表.NAME_NSR=业务_驾培分单位培训人数表.驾培单位名称',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransDout(b,'应纳-实纳营业税差额');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'应纳-实纳营业税差额');Showmsg('驾培公司应纳-实纳营业税比较!');end.（注：因为审计方法的使用与导入的数据表名称、字段名称有关系，所以我们经过在AO的数据收集变换模块中成立自定义的收集变换模板来固化相应的数据表名和字段名，以保证33审计方法的正确运转。在此后的审计项目中还能够经过改正收集变换模板和审计脚原来更新相应的审计方法。）（二）其余创新点审计质量控制创新在本次地税审计项目中，审计组充分利用AO软件供给的项目质量控制功能增强了审计质量控制。审计项目中能由AO软件生成的文档资料所有由AO软件生成；同时利用AO软件的资料导入导出功能和资料树功能，合并和管理其余文档资料，保证了审计资料的完好性和一致性。审计组经过在审计现场组建局域网，依据审计构成员分工在局域网中创立了与审计分工相对应的个人共享文件夹，每个审计人员负责各自数据资料的整理与归集。在审计过程中，各个业务人员把发现的疑点线索、审计日志，审计稿本等所有存入各自的共享文件夹中，主审利用AO软件的数据包导入功能按期阅读和复核成员提交的审计日志、审计稿本和疑点资料，及时认识审计动向，掌握审计进度，保证了依照审计方案要求推动审计工作。审计思路创新从2003年开始，南通市里财政、国税、地税、金库和各专业银行之间，借助于“同城及时清理”这个平台，成立了财税库行联网系统。推行财税库行联网，有效解决了税款入库中间环节过多的问题。可是，推行财税库行联网后，审计部门也一定及时调整地方税收审计思路，采纳踊跃的应付举措。依据这一现状，我们充分利用AO软件供给的强盛的现场审计实行平台，做到了及时收集、考证地税征管数据库的完好性和真切性，将审计关隘合时前移；同时利用AO软件供给的强盛的数据查问剖析功能，综合有关行业部门的业务数据进行关系剖析，加大了审计延长力度。如到车管部门收集最近几年来驾培考试人员的数据、到民政部门收集民政福利公司数据等；在审计实行过程中，将获得的业务数据与税务征管数据进行对照剖析，减少了审计的盲目性，确立的审计疑点和要点较过去的审计项目更有针对性，审计收效也更为突出。利用网络资源创新审计构成员在使用AO软件睁开审计项目的前后过程中都十分着厚利用金审工程服务网站供给的有关AO软件方面的资源。我们在金审工程新闻版面和金审论坛认识和学习了好多其余审计部门应用AO软件的知识和经验；在知识库版面和咨询室版面掌握了很多有关AO软件配置、数据收集和变换、故障办理的知识，保证了审计项目的顺利睁开；在下载区版面按期获取最新的文档资料和变换模板，保证了AO软件的版本和功能的更新。利用网络资料的创新为我们顺利睁开2004年度地税同级审计起到了很大的促使和推动作用。34三、审计成就（一）税收征管审计成就1.审计发现的问题（1）部分税款滞留在有关单位账面，未入库税款1091.8万元。（2）公司账面反应已缴纳，实质入库延至2005年税款1047.78万元。35审计思路因为税收计划任务的存在和税收征管体系的拘束，税务机关为了保证计划任务和核查指标的达成，广泛存在着不严格依照税法例定及时征收税款，任意调剂税收入库进度以及把企业作为税收“蓄水池”的问题。我们利用AO的数据剖析功能，经过查问税务机关可能存在调理税收状况的有关税收征管记录，发现了税务机关违规调理税收进度的问题。审计过程(注：为了便于理解，下文中SQL语句使用类SQL语句进行描绘，实质的SQL语句详见报送的SQL查问语句包。)1）所需资料缴款书记录表:纳税人名称、纳税人代码、税种、应补（退）税额、铅印税票号、申报日期、开票日期、缴款日期、税款所属期起日、税款所属期止日提退记录表：纳税人名称、纳税人代码、税种、提退金额、消号日期零申报记录表:纳税人名称、纳税人代码、税种、受理日期、申报日期、税款所属期起日、税款所属期止日税务登记表:纳税人名称、纳税人代码、开业日期、注册地点、注册地点电话、法定代表人、办税人员、税务登记日期（2）审计步骤第一步：利用AO的收集变换—业务数据收集功能，从税务部门征管核算系统中，以纳税人缴款书记录表为基础，提取以下字段：纳税人名称、纳税人代码、税种、应补（退）税额、税票号、申报日期、开票日期、缴款日期、税款所属期起日、税款所属期止日，生成公司纳税数据表并导入。类SQL描绘：CREATE公司纳税数据表ASSELECT纳税人名称、纳税人代码、税种、应补（退）税额、税票号、申报日期、开票日期、缴款日期、税款所属期起日、税款所属期止日FROM缴款书记录表第二步：利用AO的收