ao采集不规则财务辅助帐的数据处理

《ao采集不规则财务辅助帐的数据处理》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、一、经验标题： AO采集不规则财务辅助帐的数据处理二、经验类别：预算执行三、经验层次：审计署专家经验四、经验种类：总体分析经验五、经验描述：　　随着计算机技术的推广，越来越多的单位实行信息化管理，但各单位使用的财务和业务软件各不相同，审计面临着如何处理不同格式的财务和业务数据，达到符合我们自己的审计软件的要求的问题，以提高审计工作效率。实际工作中我们遇到许多财务数据及辅助账没有现成的采集模板，只能使用数据库采集方式导入AO，而审计署AO2008版取消了数据库采集辅助账的功能，如果数据不规则，需要在后台对辅助账所涉

2、及的表数据进行处理后方可使用。　　财政预算外非税收入是财政审计的重要内容，其核心构成是分部门收支余情况，体现在部门辅助账上。该财务软件由财政自行开发，系统数据格式较为特殊，后台数据库中会计科目、部门、收入类型等编码被分成多项表示，而这些分级科目类型都不是字符型的，而且还不定长，不能通过简单的相加来进行合并。审计组尝试将与辅助账相关的4张表重新进行构造，形成新的三张表作为业务数据导入AO，可以方便地查看各部门分月的收支余情况。六、作    者： 单?、李煜莹七、提交单位： 丽水市莲都区审计局八、提交日期： 2010

3、-04-0200:00资料内容:1.所需资料　　（一）财政预算外收入核算系统使用的底层数据库是MicrosoftSQLServer2000，审计人员必须获得该系统底层数据库备份文件。　　（二）从备份文件还原预算外收入帐套数据，还原后的帐套有数据表118张，与构造部门辅助账相关的表主要有4张，分别是：　　Book凭证表；　　Enterprise部门表；　　Remain余额表；　　Sections科目余额表。经验步骤:1.财政预算外收入核算系统使用的底层数据库是MicrosoftSQLServer2000。通过备份或

4、数据文件拷贝的方式直接采集帐套数据。2.将上述帐套数据恢复或附加到本机MicrosoftSQLServer2000中，然后再新建一个数据库，取名cz，通过SQLServer的数据导入/导出工具将Book（凭证表）、Enterprise（部门表）Remain（余额表）、Sections（科目余额表）4张表从帐套数据库中导入新建的数据库cz中。3.将部门表（enterprise）合并多级部门编码并保留部门名称和合并后部门编码得到部门名称表（bmname）。　　selectenterprisenameasbmname,

5、(rtrim(casewhenE1<>'0'thenrtrim(right('000'+cast(E1asvarchar),3))else''end)+(casewhenE2<>'0'thenrtrim(right('000'+cast(E2asvarchar),3))else''end)+(casewhenE3<>'0'thenrtrim(right('000'+cast(E3asvarchar),3))else''end)+(casewhenE4<>'0'thenrtrim(right('000'+cast(

6、E4asvarchar),3))else''end)+(casewhenE5<>'0'thenrtrim(right('000'+cast(E5asvarchar),3))else''end))asbmintobmnamefromenterprise;类SQL：    1.select部门名称,(rtrim(casewhen第一级部门编码<>'0'thenrtrim(right('000'+cast(第一级部门编码asvarchar),3))else''end)+(casewhen第二级部门编码<>'0'then

7、rtrim(right('000'+cast(第二级部门编码asvarchar),3))else''end)+(casewhen第三级部门编码<>'0'thenrtrim(right('000'+cast(第三级部门编码asvarchar),3))else''end)+(casewhen第四级部门编码<>'0'thenrtrim(right('000'+cast(第四级部门编码asvarchar),3))else''end)+(casewhen第五级部门编码<>'0'thenrtrim(right('000'+c

8、ast(第五级部门编码asvarchar),3))else''end))as部门编码into部门名称表from部门表;4.将科目余额表（sections）合并多级科目编码并保留科目名称和合并后的科目编码得到科目表（kmname）。　　selectsectionnameaskmname,(rtrim(casewhenS1<>'0'thenrtrim(right('000'+