今年在對(duì)某單位開展計(jì)算機(jī)審計(jì)時(shí)，了解到被審計(jì)單位財(cái)務(wù)核算軟件為用友8.0，后臺(tái)數(shù)據(jù)庫為SQL Server 2000。筆者使用用友8.x SQLServer備份模板將該單位財(cái)務(wù)數(shù)據(jù)導(dǎo)入到AO中，但在進(jìn)行會(huì)計(jì)科目審查時(shí)發(fā)現(xiàn)，由于被審計(jì)單位對(duì)預(yù)付帳款、其他應(yīng)收款、應(yīng)付帳款等往來核算項(xiàng)目實(shí)行了輔助核算，因此在AO科目審查中無法查看到往來核算明細(xì)科目。
　　在這種情況下，審計(jì)人員要對(duì)往來核算明細(xì)進(jìn)行審查，就仍然要翻閱手工明細(xì)帳，給審計(jì)工作帶來了很大的不便，也極大地影響了審計(jì)效率的提高。筆者經(jīng)過對(duì)財(cái)務(wù)軟件后臺(tái)數(shù)據(jù)庫表進(jìn)行分析，探索出了利用Access查詢生成新的科目表、余額表及憑證表，從而實(shí)現(xiàn)在AO中導(dǎo)入往來輔助帳的方法，介紹出來供讀者參考。
　　一、確定導(dǎo)入往來輔助帳所需要的數(shù)據(jù)表及表間關(guān)系
　　㈠基本數(shù)據(jù)表：
　　1.code  科目表；
　　2.GL_accsum  科目余額表；
　　3.GL_accvouch  憑證表
　　㈡往來輔助核算表：
　　1.Customer  單位往來編碼表
　　2.Person  個(gè)人往來編碼表
　　3.Vendor  應(yīng)付款項(xiàng)編碼表
　　㈢輔助核算表與憑證表之間的關(guān)系如下所示：
　　序號(hào)　憑證表         關(guān)聯(lián)字段　 輔助核算表 關(guān)聯(lián)字段
　　1　GL_accvouch　cperson_id　PersoncPersonCode
　　2　GL_accvouch　ccus_id Customer　cCusCode
　　3　GL_accvouch　csup_id VendorcVenCode
　　二、具體步驟
　　㈠采集原始數(shù)據(jù)并進(jìn)行數(shù)據(jù)整理
　　1.采集數(shù)據(jù)。從被審計(jì)單位采集用友8.0財(cái)務(wù)軟件的SQL Server備份數(shù)據(jù)，拷貝到審計(jì)人員的電腦中進(jìn)行數(shù)據(jù)庫還原，然后選擇code、GL_accsum、GL_accvouch、Customer、Person、Vendor共六張表導(dǎo)出到Access數(shù)據(jù)庫中。
　　2.數(shù)據(jù)整理。由于被審計(jì)單位在對(duì)輔助核算科目進(jìn)行編碼時(shí)存在個(gè)別不規(guī)則的現(xiàn)象，因此要對(duì)數(shù)據(jù)進(jìn)行規(guī)范化整理。例如Customer表的cCusCode字段應(yīng)以“KH”加數(shù)字編碼組成，對(duì)其進(jìn)行整理時(shí)，執(zhí)行如下查詢：
　　Select * from Customer where cCusCode not like ’KH*’
　　篩選出編碼不規(guī)則的記錄，利用編輯菜單的替換功能進(jìn)行批量更改。Person表的cPersonCode字段應(yīng)以“GR” 加數(shù)字編碼組成，Vendor表的cVenCode字段應(yīng)以“GYS”加數(shù)字編碼組成，整理方法同Customer表。
　　㈡生成新的數(shù)據(jù)表
　　1.生成新科目余額表
　　⑴生成余額表。查詢語句如下：
　　SELECT GL_accsum.ccode AS 科目編碼， GL_accsum.mb AS 期初余額， GL_accsum.cendd_c AS 余額方向 INTO 余額表 FROM GL_accsum
　　WHERE （（（GL_accsum.iperiod）=1））
　　ORDER BY GL_accsum.ccode;
　　⑵生成往來余額明細(xì)表。查詢語句如下：
　　SELECT GL_accvouch.ccode AS 科目編碼， GL_accvouch.md AS 借方余額， GL_accvouch.mc AS 貸方余額， GL_accvouch.cperson_id AS 個(gè)人往來編碼， Person.cPersonName, GL_accvouch.csup_id AS 應(yīng)付單位編碼， Vendor.cVenName, GL_accvouch.ccus_id AS 單位往來編碼， Customer.cCusName, GL_accvouch.dbill_date INTO 往來余額明細(xì)表
　　FROM Vendor RIGHT JOIN 
　　（Customer RIGHT JOIN （Person RIGHT JOIN GL_accvouch ON Person.
　　cPersonCode = GL_accvouch.cperson_id）
　　 ON Customer.cCusCode = GL_accvouch.ccus_id） ON 
　　Vendor.cVenCode = GL_accvouch.csup_id WHERE 
　　（（（GL_accvouch.dbill_date） Like ’2007-12-31‘））；
　　⑶生成新往來余額表。查詢語句如下：
　　SELECT
　　IIf（[單位往來編碼] Is Not Null,IIf（Len（[單位往來編碼]）=3,余額表。科目編碼+’0’+Right（[單位往來編碼],1），余額表。科目編碼+Right（[單位往來編碼],2）），
　　IIf（[應(yīng)付單位編碼] Is Not Null,IIf（Len（[應(yīng)付單位編碼]）=4,余額表。科目編碼+’0’+Right（[應(yīng)付單位編碼],1），余額表。科目編碼+Right（[應(yīng)付單位編碼],2）），
　　IIf（Len（[個(gè)人往來編碼]）=3,余額表。科目編碼+’0’+Right（[個(gè)人往來編碼],1），余額表。科目編碼+Right（[個(gè)人往來編碼],2）））） AS 新科目編碼，
　　IIf（[借方余額]>0,[借方余額],[貸方余額]） AS 余額，
　　IIf（[借方余額]>0,’借‘,’貸‘） AS 方向，
　　IIf（[cpersonname] Is Not Null,[cpersonname],IIf（[cvenname] Is Not Null,[cvenname],[ccusname]）） AS 科目名稱 INTO 新往來余額表
　　FROM 往來余額明細(xì)表 INNER JOIN 余額表 ON 往來余額明細(xì)表。科目編碼 = 余額表。科目編碼；
　　⑷生成新余額表。查詢語句如下：
　　SELECT * INTO 新余額表 FROM [SELECT * from 余額表
　　union select 新科目編碼，余額，方向 from 新往來余額表]. AS A
　　ORDER BY A.科目編碼；