淺談計算機審計方法

1、二、計算機審計方法的要求征集的計算機審計方法須是審計人員在計算機審計實踐中形成的被證明是行之有效的方法，不得虛構(gòu)臆造，并且具有一定的推廣價值。征集的計算機審計方法要素包括方法代碼（填寫一級和二級分類碼）、方法名稱、目標(biāo)功能、所需數(shù)據(jù)、分析步驟、流程圖、方法語言、適用法規(guī)、延伸建議、作者單位、時間、標(biāo)志等12項內(nèi)容。必須報送方法所涉及的電子數(shù)據(jù)，對電子數(shù)據(jù)應(yīng)進行適當(dāng)處理，以保證電子數(shù)據(jù)內(nèi)容不涉及國家秘密、被審計單位商業(yè)秘密、審計工作秘密和數(shù)據(jù)量大小適中，并且能夠配合方法語言在現(xiàn)場審計實施系統(tǒng)（以下簡稱AO）中成功運行。報送的計算機審計方法應(yīng)文字通順、表述清晰完整、可讀性強，方法要素的撰寫應(yīng)內(nèi)容齊

2、全，方法構(gòu)建符合計算機審計方法體系基本規(guī)劃計算機審計實務(wù)公告第14號的要求。方法要素中關(guān)于流程圖和方法語言的撰寫應(yīng)符合計算機審計方法流程圖編制規(guī)范計算機審計實務(wù)公告第12號和計算機審計方法語言編制規(guī)范計算機審計實務(wù)公告第13號等的要求。報送的計算機審計方法，不得與往年已選出的計算機審計專家經(jīng)驗內(nèi)容或?qū)嵸|(zhì)重復(fù)。 二、計算機審計方法的要求在正式評審之前，首先檢查計算機審計方法語句是否通順、要素是否齊全，并檢查其電子數(shù)據(jù)和方法語言能否在AO中成功運行，符合要求的方法才能進入正式評審。鼓勵各省轄市局和省廳有關(guān)部門報送計算機審計方法體系。審計方法體系按預(yù)算執(zhí)行（財政部門組織預(yù)算執(zhí)行、部門預(yù)算執(zhí)行）、海關(guān)

3、、稅務(wù)（國稅、地稅）、金融（銀行、證券、保險）、企業(yè)（大型企業(yè)集團、一般企業(yè)）、投資、社保（社會保險、社會福利、社會救濟、住房公積金）、農(nóng)業(yè)、外資、經(jīng)濟責(zé)任、境外等一級或二級專業(yè)審計劃分。報送審計方法體系的，參照計算機審計方法體系基本規(guī)劃計算機審計實務(wù)公告第14號附錄1表1，建立審計方法目錄體系；審計方法應(yīng)當(dāng)在本市或本部門范圍內(nèi)征集或搜集，在目錄體系列表的“說明”中標(biāo)注“本年”或“以往年度”;審計方法的要素和格式仍應(yīng)滿足本通知的其他條款要求。對于報送計算機審計方法體系的單位，在評選“優(yōu)秀組織單位”時將優(yōu)先考慮。 推選參加此次評選的計算機審計方法，正文應(yīng)在WORD中撰寫，方法語言應(yīng)在AO中撰寫，

4、方法語言使用的電子數(shù)據(jù)應(yīng)采集到AO中后使用。二、計算機審計方法的要求 每個審計方法的電子資料應(yīng)包括：方法正文WORD文檔，文件名格式為“計算機審計方法名稱.doc”;方法語言AO導(dǎo)出文件，審計腳本語言（ASL）導(dǎo)出文件的文件名格式為“計算機審計方法名稱.func”，SQL語句導(dǎo)出文件的文件名格式為“計算機審計方法名稱.SQL”；電子數(shù)據(jù)AO導(dǎo)出文件，文件名格式為“計算機審計方法名稱.sjfx”。 每個審計方法創(chuàng)建一個文件夾并將上報的電子資料保存在該文件夾內(nèi)，文件夾名稱格式為“申報年份_申報單位_計算機審計方法名稱_作者”，如“2009_審計局_計算機審計方法_張” 。三、計算機審計方法的12項

5、要素 計算機審計方法體系基本規(guī)劃計算機審計實務(wù)公告第14號一、方法代碼（填寫一級和二級分類碼）二、方法名稱三、目標(biāo)功能四、所需數(shù)據(jù)五、分析步驟六、流程圖七、方法語言八、適用法規(guī)九、延伸建議十、作者單位十一、時間十二、標(biāo)志四、如何畫流程圖 計算機審計方法流程圖編制規(guī)范計算機審計實務(wù)公告第12號Visio畫圖工具案例介紹五、如何編寫ASL計算機審計方法語言編制規(guī)范計算機審計實務(wù)公告第13號 生成臨時表Var SqlStr;/定義變量Begin/Sql語句賦值給變量SqlStr:=Select * from 業(yè)務(wù)_稅務(wù)局稅務(wù)征收數(shù)據(jù)表 Where 稅種=A10101;/生成臨時表CreateTemp

6、Table(養(yǎng)老金單位繳納表,SqlStr);End.五、如何編寫ASL生成審計疑點庫Var SqlStr,CurQuery,IsEmpty;/定義變量Begin/Sql語句賦值給變量 SqlStr:=SELECT 應(yīng)發(fā)放排污許可證企業(yè)表.企業(yè)代碼, 應(yīng)發(fā)放排污許可證企業(yè)表.企業(yè)名稱, 應(yīng)發(fā)放排污許可證企業(yè)表.工業(yè)污水實際排放, + 應(yīng)發(fā)放排污許可證企業(yè)表.COD實際排放量 FROM 應(yīng)發(fā)放排污許可證企業(yè)表 LEFT JOIN 業(yè)務(wù)_排污許可證實際發(fā)放表 + ON 應(yīng)發(fā)放排污許可證企業(yè)表.企業(yè)代碼 = 業(yè)務(wù)_排污許可證實際發(fā)放表.HJ102 + WHERE (業(yè)務(wù)_排污許可證實際發(fā)放表.HJ1

7、02) Is Null)ORDER BY 應(yīng)發(fā)放排污許可證企業(yè)表.工業(yè)污水實際排放; /執(zhí)行查詢SQL，查找應(yīng)發(fā)實際未發(fā)排污許可證的記錄 CurQuery:=createq(SqlStr,-1); /查詢結(jié)果集是否為空 IsEmpty:=qeof(CurQuery); if IsEmpty#1 then begin /循環(huán)將查詢結(jié)果放入業(yè)務(wù)疑點臨時庫 repeat AddTransRslt(CurQuery,應(yīng)發(fā)實際未發(fā)排污許可證); IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1; /將臨時庫結(jié)果集放入疑點庫 TransBa