審計(jì)方法的編寫(xiě)

1、審計(jì)方法的編寫(xiě),房海濤2010-03-05,前言,根據(jù)自治區(qū)審計(jì)廳關(guān)于轉(zhuǎn)發(fā)《審計(jì)署辦公廳關(guān)于征集計(jì)算機(jī)審計(jì)方法的通知》的通知要求，在2010年6月1日至6月30日期間上報(bào)審計(jì)方法。征集的計(jì)算機(jī)審計(jì)方法要素包括方法代碼（填寫(xiě)一級(jí)和二級(jí)分類(lèi)碼）、方法名稱(chēng)、目標(biāo)功能、所需數(shù)據(jù)、分析步驟、流程圖、方法語(yǔ)言、適用法規(guī)、延伸建議、作者單位、時(shí)間、標(biāo)志等12項(xiàng)內(nèi)容。,審計(jì)方法編制要求,每個(gè)審計(jì)方法的電子資料應(yīng)包括：方法正文WORD文檔，文件名格式

2、為“計(jì)算機(jī)審計(jì)方法名稱(chēng).doc”;方法語(yǔ)言AO導(dǎo)出文件，審計(jì)腳本語(yǔ)言（ASL）導(dǎo)出文件的文件名格式為“計(jì)算機(jī)審計(jì)方法名稱(chēng).func”，SQL語(yǔ)句導(dǎo)出文件的文件名格式為“計(jì)算機(jī)審計(jì)方法名稱(chēng).SQL”；電子數(shù)據(jù)AO導(dǎo)出文件，文件名格式為“計(jì)算機(jī)審計(jì)方法名稱(chēng).sjfx”。,審計(jì)方法編制要求,每個(gè)審計(jì)方法創(chuàng)建一個(gè)文件夾并將上報(bào)的電子資料保存在該文件夾內(nèi)，文件夾名稱(chēng)格式為“申報(bào)年份_申報(bào)單位_計(jì)算機(jī)審計(jì)方法名稱(chēng)_作者”，如“2009_×

3、×省審計(jì)廳_×××計(jì)算機(jī)審計(jì)方法_張××”,建立審計(jì)方法的步驟,一、進(jìn)入“審計(jì)分析”—“審計(jì)方法”—“審計(jì)方法管理”，在“審計(jì)師方法”下新增行業(yè)。二、右擊新增加的行業(yè)名稱(chēng)，點(diǎn)擊“創(chuàng)建審計(jì)方法”后，填寫(xiě)相關(guān)信息進(jìn)行方法的建立。三、右擊新建立的方法，點(diǎn)擊“創(chuàng)建審計(jì)步驟”，在右側(cè)窗口可直接輸入該步驟對(duì)應(yīng)的SQL語(yǔ)句和ASL程序。也可先創(chuàng)建SQL語(yǔ)句，然后再添加到該步驟中，具體方法

4、是：,建立審計(jì)方法的步驟,右擊新建的審計(jì)步驟，點(diǎn)擊“創(chuàng)建SQL語(yǔ)句”，在右側(cè)窗口中輸入SQL語(yǔ)句，然后在該審計(jì)步驟中將該SQL語(yǔ)句引入。四、右擊新建的審計(jì)方法,點(diǎn)擊“方法設(shè)置”，進(jìn)行實(shí)例數(shù)據(jù)庫(kù)設(shè)置和方法說(shuō)明文檔設(shè)置。五、如果有其他審計(jì)步驟，則可繼續(xù)新疆審計(jì)步驟。,舉例,方法名稱(chēng)：銀行存款審計(jì)提示：與銀行對(duì)帳單進(jìn)行核對(duì)，審查這些轉(zhuǎn)帳事項(xiàng)是否真實(shí)、合法。有無(wú)出租、出借帳戶(hù)、挪用公款，非法出借資金，隱瞞利息收入等問(wèn)題。審計(jì)目標(biāo)：注意

5、審查有無(wú)通過(guò)銀行存款一借一貸的會(huì)計(jì)處理進(jìn)行出租、出借帳戶(hù)、挪用公款，非法出借資金等違紀(jì)問(wèn)題。方法說(shuō)明：篩選出“借：銀行存款，貸：銀行存款”的分錄。,舉例,SQL語(yǔ)句：SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3) = '102' AND 借方金額 0 AND 源憑證號(hào) IN (SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼

6、, 3) = '102' AND 貸方金額 0),方法的導(dǎo)入和導(dǎo)出,在審計(jì)方法管理界面下，直接點(diǎn)擊“方法導(dǎo)入”和“方法導(dǎo)出”即可進(jìn)行方法的導(dǎo)入和導(dǎo)出。,審計(jì)腳本語(yǔ)言介紹,審計(jì)腳本語(yǔ)言（Audit script Language，ASL），是審計(jì)署基于PASCAL語(yǔ)言開(kāi)發(fā)的一門(mén)專(zhuān)為審計(jì)人員書(shū)寫(xiě)審計(jì)方法的編程語(yǔ)言。根據(jù)審計(jì)業(yè)務(wù)特征需要，審計(jì)人員可以將審計(jì)思路方法轉(zhuǎn)換成為計(jì)算機(jī)自動(dòng)處理的命令語(yǔ)言，可以用ASL編寫(xiě)程序存儲(chǔ)為

7、審計(jì)方法并編譯執(zhí)行。,語(yǔ)法規(guī)則,一、約束1.變量、標(biāo)志符、函數(shù)及過(guò)程名稱(chēng)一律使用英文字母開(kāi)頭，可以使用英文和數(shù)字。2.變量、標(biāo)志符、函數(shù)及過(guò)程名稱(chēng)不區(qū)分大小寫(xiě)。3.一段程序中變量、過(guò)程不能超過(guò)100個(gè)。4.數(shù)字最大位數(shù)為24位。5.過(guò)程嵌套不超過(guò)3層。6.一行程序不超過(guò)5000個(gè)字符。,語(yǔ)法規(guī)則,二、語(yǔ)法規(guī)則1.語(yǔ)法規(guī)則近似于Pascal語(yǔ)言。2.任何一段超過(guò)一行以上的程序需要使用begin…end語(yǔ)句約束，表明哪里是開(kāi)

8、始，哪里是結(jié)束。3.每行程序以分號(hào)作為結(jié)束符。4.全程序以end作為結(jié)束。5.變量定義要在主程序的begin之前。6.賦值語(yǔ)句使用：=為運(yùn)算符。,常用函數(shù)及運(yùn)算符,一、運(yùn)算符1.“：=” ：等于號(hào)（賦值符、算術(shù)表達(dá)式）二、屆符1.“，” 變量界符。2.“；” 語(yǔ)句界符。用來(lái)作為每一行程序段的結(jié)束標(biāo)志。三、系統(tǒng)保留字1.Var：變量定義基本字。舉例： var a，b；2.begin:程序開(kāi)始基本字，一段

9、程序的開(kāi)始標(biāo)志。3.End：程序結(jié)束基本字,常用函數(shù)及運(yùn)算符,4.if-then-else 判斷基本字。舉例：if a>0 then write(‘a(chǎn)是正數(shù)’); else write(‘a(chǎn)不是正數(shù)’),常用函數(shù)及運(yùn)算符,5.repeat-until循環(huán)基本字。循環(huán)是直到until后的條件滿足循環(huán)就停止。例：i:=0; repea

10、t a:=i*i write(a); i:=i+1; until i>5,常用函數(shù)及運(yùn)算符,四、數(shù)據(jù)庫(kù)函數(shù)1.CreateQ（‘SQL語(yǔ)句’，查詢(xún)變量）描述：創(chuàng)建查詢(xún)函數(shù)。執(zhí)行SQL語(yǔ)句，返回該SQL語(yǔ)句的執(zhí)行結(jié)果。第一個(gè)參數(shù)是查詢(xún)的SQL語(yǔ)句，第二個(gè)參數(shù)的值可是是-1或者已經(jīng)存在的數(shù)據(jù)變量。例：a：=CreateQ(‘select * from 憑證庫(kù)’，-1),常用函數(shù)及運(yùn)

11、算符,2.Qeof（查詢(xún)變量）描述：查詢(xún)判空函數(shù)。判斷查詢(xún)變量當(dāng)前指向的記錄是否為空，如果為空，則函數(shù)返回值為1.3.Qmov(查詢(xún)變量，移動(dòng)方向)描述：查詢(xún)移動(dòng)函數(shù)。用于移動(dòng)查詢(xún)游標(biāo)、重新定位當(dāng)前查詢(xún)變量記錄，返回成功與否。移動(dòng)方向參數(shù)可以設(shè)置為1或-1，1表示向后移動(dòng)查詢(xún)游標(biāo)，即將查詢(xún)游標(biāo)移到下一條記錄；-1表示相反方向移動(dòng)。,常用函數(shù)及運(yùn)算符,4.QFDValue(查詢(xún)變量，‘字段名稱(chēng)’)描述：查詢(xún)?nèi)≈岛瘮?shù)。返回當(dāng)前查詢(xún)變

12、量當(dāng)前記錄的指定字段的值。例：i:=qfdvalue(a,'源憑證號(hào)');5.CreateTempTable（‘新表名’，‘SQL語(yǔ)句’）描述：生成臨時(shí)表函數(shù)，SQL語(yǔ)句應(yīng)有返回結(jié)果集。將SQL語(yǔ)句執(zhí)行的結(jié)果以審計(jì)人員輸入的新表名存儲(chǔ)在數(shù)據(jù)庫(kù)中。例： CreateTempTable（‘現(xiàn)金明細(xì)賬’，‘select * from 憑證庫(kù) where 科目編碼=“”101’）,常用函數(shù)及運(yùn)算符,6.AddVouRsl

13、t(源憑證號(hào))描述：輸出財(cái)務(wù)數(shù)據(jù)疑點(diǎn)函數(shù)。將源憑證號(hào)輸出到疑點(diǎn)庫(kù)中，該源憑證號(hào)對(duì)應(yīng)的憑證將被定義為未落實(shí)疑點(diǎn)。7.AddtransRslt（查詢(xún)變量，‘疑點(diǎn)說(shuō)明’）描述：輸出業(yè)務(wù)數(shù)據(jù)疑點(diǎn)函數(shù)。將查詢(xún)變量的當(dāng)前記錄附加疑點(diǎn)說(shuō)明作為未落實(shí)疑點(diǎn)輸出到臨時(shí)疑點(diǎn)庫(kù)中。,常用函數(shù)及運(yùn)算符,8.TransBatch（查詢(xún)變量,’批量疑點(diǎn)說(shuō)明’）描述：輸出業(yè)務(wù)數(shù)據(jù)疑點(diǎn)函數(shù)。將臨時(shí)疑點(diǎn)庫(kù)中保存的已落實(shí)疑點(diǎn)和未落實(shí)疑點(diǎn)附加批量疑點(diǎn)說(shuō)明正式輸出為業(yè)務(wù)

14、輸出疑點(diǎn)，并清空臨時(shí)庫(kù)中相應(yīng)的數(shù)據(jù)。,實(shí)例語(yǔ)句說(shuō)明,var a,b,i; //定義三個(gè)變量Begin //程序開(kāi)始字 a:=createq(‘SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3) = ’‘102’‘ AND 借方金額 0 AND 源憑證號(hào) IN (SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3

15、) = ’‘102’‘ AND 貸方金額 0)’, -1); //利用SQL語(yǔ)句讀取憑證記錄，創(chuàng)建數(shù)據(jù)集，初始情況下查詢(xún)游標(biāo)定位在數(shù)據(jù)集的第一條紀(jì)錄，將結(jié)果賦給a。,b:=qeof(a); //判斷是否為空，并將值賦給b if b#1 then //如果結(jié)果不為空,則執(zhí)行下面的語(yǔ)句 begin //程序段超過(guò)1行以上，必須使用begin repeat //循環(huán)基本字

16、 i:=qfdvalue(a,‘源憑證號(hào)’);//取第一條記錄的源憑證號(hào)賦值給i addvourslt(i); //將該憑證號(hào)對(duì)應(yīng)的憑證被定義為未落實(shí)疑點(diǎn)。 b:=qmov(a,1); //記錄下移一行 b:=qeof(a); //判斷是否為空 until b=1; //當(dāng)記錄為空時(shí)，停止 end;end.,練習(xí)1,方法名稱(chēng)：暫存款問(wèn)題審計(jì)提示：注意有無(wú)隱瞞收入問(wèn)題。審計(jì)目標(biāo)

17、：審查有無(wú)隱瞞轉(zhuǎn)移收入問(wèn)題等。方法說(shuō)明：篩選出“借：收入類(lèi)（4**）科目，貸：203”的所有記錄。,,SQL語(yǔ)句：SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE 源憑證號(hào) IN (SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3) = '203' AND 貸方金額 0) AND LEFT(科目編碼, 1) = '4' AND

18、 借方金額 0,ASL語(yǔ)句：var a,b,i;begin a:=createq('SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE 源憑證號(hào) IN (SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3) = ''203'' AND 貸方金額 0) AND LEFT(科目編碼, 1) = ''4&

19、#39;' AND 借方金額 0', -1); b:=qeof(a); if b#1 then begin repeat i:=qfdvalue(a,'源憑證號(hào)'); addvourslt(i); b:=qmov(a,1); b:=qeof(a); until b=1; end;end.,練習(xí)2,方法名稱(chēng)：航空企業(yè)常旅客

20、營(yíng)銷(xiāo)系統(tǒng)免票情況審計(jì)提示：各航空為了穩(wěn)定客源，推出了各種各樣的消費(fèi)獎(jiǎng)勵(lì)措施，其中一種普遍采用的是常旅客免票制度，即一名旅客在乘坐該航空公司飛機(jī)累計(jì)達(dá)到一定的里程數(shù)后，可享受免費(fèi)機(jī)票。通過(guò)調(diào)查，我們發(fā)現(xiàn)對(duì)于常旅客的免票，航空公司未作收入，也沒(méi)有交納相應(yīng)的營(yíng)業(yè)稅。按照相關(guān)的法規(guī)，該部分免票應(yīng)視同銷(xiāo)售，繳納相應(yīng)的營(yíng)業(yè)稅。,審計(jì)步驟1：構(gòu)建消費(fèi)明細(xì)_里程明細(xì)表，將里程明細(xì)表與常旅客消費(fèi)明細(xì)表建立關(guān)聯(lián)，計(jì)算出每張免票所對(duì)應(yīng)的里程數(shù)。SQL語(yǔ)句

21、：select [業(yè)務(wù)_消費(fèi)明細(xì)表].[流水號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班日期],[業(yè)務(wù)_消費(fèi)明細(xì)表].[消費(fèi)品編號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[票號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[承運(yùn)人],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班起飛地],[業(yè)務(wù)_消費(fèi)明細(xì)表].[到達(dá)地],IIF([業(yè)務(wù)_消費(fèi)明細(xì)表].[來(lái)回程標(biāo)志]='N',1,2) as 來(lái)回程,[業(yè)務(wù)_里程明細(xì)表].標(biāo)準(zhǔn)公里數(shù) from [業(yè)務(wù)

22、_消費(fèi)明細(xì)表] inner join [業(yè)務(wù)_里程明細(xì)表] on [業(yè)務(wù)_消費(fèi)明細(xì)表].航班起飛地=[業(yè)務(wù)_里程明細(xì)表].起飛地 and [業(yè)務(wù)_消費(fèi)明細(xì)表].到達(dá)地=[業(yè)務(wù)_里程明細(xì)表].到達(dá)地,ASL語(yǔ)言：var CXYJ; //定義變量 CXYJ:查詢(xún)語(yǔ)句beginCXYJ:='select [業(yè)務(wù)_消費(fèi)明細(xì)表].[流水號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班日期],[業(yè)務(wù)_消費(fèi)明細(xì)表].[消費(fèi)品編號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)

23、表].[票號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[承運(yùn)人],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班號(hào)],[業(yè)務(wù)_消費(fèi)明細(xì)表].[航班起飛地],[業(yè)務(wù)_消費(fèi)明細(xì)表].[到達(dá)地],IIF([業(yè)務(wù)_消費(fèi)明細(xì)表].[來(lái)回程標(biāo)志]=''N'',1,2) as 來(lái)回程,[業(yè)務(wù)_里程明細(xì)表].標(biāo)準(zhǔn)公里數(shù) from [業(yè)務(wù)_消費(fèi)明細(xì)表] inner join [業(yè)務(wù)_里程明細(xì)表] on [業(yè)務(wù)_消費(fèi)明細(xì)表].航班起飛地=[業(yè)務(wù)_里程明細(xì)表]

24、.起飛地 and [業(yè)務(wù)_消費(fèi)明細(xì)表].到達(dá)地=[業(yè)務(wù)_里程明細(xì)表].到達(dá)地';CreateTempTable('消費(fèi)明細(xì)_里程明細(xì)表',CXYJ);end. //程序結(jié)束,,步驟2：統(tǒng)計(jì)審計(jì)年度所有旅客享受免票的里程數(shù)（從經(jīng)濟(jì)倉(cāng)升為頭等倉(cāng)的旅客消費(fèi)數(shù)不作統(tǒng)計(jì)，“消費(fèi)品編號(hào)”字段為T(mén)）SQL語(yǔ)句為：select sum(來(lái)回程 * 標(biāo)準(zhǔn)公里數(shù)) as 總免票里程 from 消費(fèi)明細(xì)_里程明細(xì)表 where

25、 year(航班日期)=2004 and mid(消費(fèi)品編號(hào),3,1)='T',ASL語(yǔ)言：var CXYJ,cxjg,IsEmpty; //定義變量 CXYJ:查詢(xún)語(yǔ)句,cxjg:查詢(xún)結(jié)果begin CXYJ:='select sum(來(lái)回程 * 標(biāo)準(zhǔn)公里數(shù)) as 總免票里程 from 消費(fèi)明細(xì)_里程明細(xì)表 where year(航班日期)=2004 and mid(消費(fèi)品編號(hào),3,1)='&#

26、39;T'''; cxjg:=CreateQ(cxyj,-1); //查詢(xún)結(jié)果集是否為空 IsEmpty:=qeof(cxjg); if IsEmpty#1 then begin //利用循環(huán)將查詢(xún)結(jié)果放入業(yè)務(wù)臨時(shí)庫(kù),repeat AddTransRslt(cxjg,'統(tǒng)計(jì)審計(jì)年度所有旅客享受免票的里程數(shù)'); IsEmpty:=qmov(

27、cxjg,1); IsEmpty:=qeof(cxjg); until IsEmpty=1; //將臨時(shí)庫(kù)結(jié)果集放入疑點(diǎn)庫(kù) TransBatch(cxjg,'航空企業(yè)常旅客營(yíng)銷(xiāo)系統(tǒng)免票情況'); end else begin ShowMsg('沒(méi)有符合條件的記錄'); end; end. //程序結(jié)束,測(cè)試1,方法名稱(chēng)：暫存款方法2審計(jì)提示

28、：注意有無(wú)虛列支出、多計(jì)成本費(fèi)用問(wèn)題等。審查有無(wú)虛列支出、多計(jì)成本費(fèi)用問(wèn)題等。方法說(shuō)明：篩選出“借：支出類(lèi)科目（5**），貸：203”的所有記錄。,ASL語(yǔ)句：var a,b,i;begin a:=createq('SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE 源憑證號(hào) IN (SELECT DISTINCT 源憑證號(hào) FROM 憑證庫(kù) WHERE LEFT(科目編碼, 3) = 

29、9;'203'' AND 貸方金額 0) AND LEFT(科目編碼, 1) = ''5'' AND 借方金額 0', -1); b:=qeof(a); if b#1 then begin repeat i:=qfdvalue(a,'源憑證號(hào)'); addvourslt(i); b:=qmov(