在審計(jì)作業(yè)過(guò)程中，審計(jì)人員經(jīng)常要對(duì)某一專項(xiàng)資金支出科目按照審計(jì)需要的統(tǒng)計(jì)口徑，進(jìn)行支出結(jié)構(gòu)分析，來(lái)評(píng)價(jià)該專項(xiàng)資金的使用績(jī)效。常規(guī)的做法是：審計(jì)人員通過(guò)AO把需分析的專項(xiàng)資金支出科目的所有記錄導(dǎo)出到EXCEL表格，按照摘要的大致特征分類，如餐費(fèi)、會(huì)議費(fèi)、差旅費(fèi)等，篩選出某個(gè)分類，然后通過(guò)剪切、粘貼到另外一個(gè)sheet。這種方法不僅繁瑣，而且容易出錯(cuò)，在遇到要分析其他專項(xiàng)資金科目時(shí)，必須重復(fù)上述步驟。那么可否充分運(yùn)用AO的功能，用ASL腳本語(yǔ)言編寫(xiě)一個(gè)通用的自動(dòng)審計(jì)方法，對(duì)該種類型的分析，自動(dòng)按照審計(jì)人員設(shè)定的摘要特征分類，分析出某一專項(xiàng)資金支出科目的支出結(jié)構(gòu)，再與預(yù)算指標(biāo)進(jìn)行對(duì)比，評(píng)價(jià)專項(xiàng)資金的使用績(jī)效，以提高審計(jì)效率，避免重復(fù)勞動(dòng)。

　　筆者在某部門預(yù)算執(zhí)行審計(jì)過(guò)程中嘗試編寫(xiě)了專項(xiàng)資金支出科目支出結(jié)構(gòu)分析的自動(dòng)審計(jì)方法，供審計(jì)人員參考。

　　思路和步驟：

　　1、將被審計(jì)單位提供的電子帳備份數(shù)據(jù)導(dǎo)入AO。

　　2、編寫(xiě)帶參數(shù)的ASL腳本語(yǔ)言，根據(jù)指定的專項(xiàng)資金科目代碼篩選并生成該專項(xiàng)資金科目的支出臨時(shí)憑證表。

　　3、根據(jù)該臨時(shí)憑證表，通過(guò)編寫(xiě)帶參數(shù)的ASL腳本語(yǔ)言，輸入摘要特征關(guān)鍵字，分別生成各類性質(zhì)的支出分類表（本例最多設(shè)置八個(gè)分類，如需增減，只需改變相應(yīng)參數(shù)即可）。

　　執(zhí)行ASL腳本語(yǔ)言后，對(duì)各分類表自動(dòng)進(jìn)行匯總并將分析結(jié)果通過(guò)圖表進(jìn)行顯示。

　　4、根據(jù)分析結(jié)果，比對(duì)財(cái)政預(yù)算指標(biāo)數(shù)據(jù)，對(duì)專項(xiàng)資金使用情況進(jìn)行評(píng)價(jià)。

　　具體ASL語(yǔ)言如下：

　　var a,b,i,j,k,InputCode,sqlstr,sqlstr1,zystr,sqldele;

　　array zy[8],sum[8];

　　begin

　　InputCode:=newread('請(qǐng)輸入需要分類的科目代碼');

　　sqlstr:='select distinct * from 憑證庫(kù) where 科目編碼 like '+''''+InputCode+'%'+'''';

　　createtemptable('待分析支出科目表',sqlstr);

　　sqlstr1:=sqlstr1+'select '+''''+'其他'+''''+' as 分類,sum(借方金額) as 借方合計(jì) from 待分析支出科目表';

　　i:=1;

　　while i<=8 do

　　begin

　　zy[i]:=newread('請(qǐng)輸入分類摘要特征(0表示結(jié)束)');

　　if zy[i]='0' then

　　begin

　　k:=i-1;

　　i:=8;

　　end;

　　i:=i+1;

　　end;

　　sqlstr1:='';

　　j:=1;

　　while j<=k do

　　begin

　　zystr:= trimstrex(zy[j],'；','%'+''''+' or 摘要 like '+''''+'%');

　　sqlstr:='select distinct * from 待分析支出科目表 where 摘要 like '+''''+'%'+zystr+'%'+'''';

　　createtemptable('待分析支出科目表'+zy[j],sqlstr);

　　sqldele:='delete * from 待分析支出科目表 where 摘要 like '+''''+'%'+zystr+'%'+'''';

　　executeupdate(sqldele);

　　sqlstr1:=sqlstr1+'select '+''''+zy[j]+''''+' as 分類,sum(借方金額) as 借方合計(jì) from 待分析支出科目表'+zy[j]+ ' union ';

　　j:=j+1;

　　end;

　　sqlstr1:=sqlstr1+'select '+''''+'其他'+''''+' as 分類,sum(借方金額) as 借方合計(jì) from 待分析支出科目表';

　　oputchart(sqlstr1,'分類','借方合計(jì),clblue')

　　end.

　　通過(guò)使用上述方法得到的啟示是：巧用AO強(qiáng)大的數(shù)據(jù)處理分析功能，可以避免審計(jì)過(guò)程中許多手工方法所必須的重復(fù)勞動(dòng)，既提升了審計(jì)效率和效果，也節(jié)約了寶貴的審計(jì)資源。