綜合應(yīng)用ao軟件開展地稅同級(jí)審計(jì)工作

綜合應(yīng)用AO軟件睜開地稅同級(jí)審計(jì)工作黃宏毅一、項(xiàng)目詳細(xì)實(shí)行過程（一）審計(jì)項(xiàng)目立項(xiàng)階段成立項(xiàng)目人員列表第一，我們用admin賬號(hào)直接進(jìn)入系統(tǒng)，利用“系統(tǒng)管理—人員管理”功能成立審計(jì)組人員列表，并設(shè)置有關(guān)隘令。成立項(xiàng)目基礎(chǔ)信息主審用自己的賬號(hào)和口令進(jìn)入系統(tǒng)，用“項(xiàng)目管理—準(zhǔn)備管理—成立項(xiàng)目—手動(dòng)成立項(xiàng)目”功能成立項(xiàng)目。（注：①本項(xiàng)目的項(xiàng)目編號(hào)因?yàn)闀r(shí)間關(guān)系采納的是舊版的編碼編制規(guī)則，此后的項(xiàng)目我們將采納金審工程服務(wù)網(wǎng)站上宣布的新版編碼編制規(guī)則成立；②本項(xiàng)目采納的項(xiàng)目管理模板是時(shí)間分類模板）項(xiàng)目人員管理主審用“項(xiàng)目管理—準(zhǔn)備管理—項(xiàng)目人員管理”功能增添項(xiàng)目人員，并對(duì)審計(jì)組人員角色進(jìn)行設(shè)置。導(dǎo)出，導(dǎo)入項(xiàng)目信息主審用“項(xiàng)目管理—準(zhǔn)備管理—導(dǎo)出項(xiàng)目信息”功能導(dǎo)出項(xiàng)目信息包，其余審計(jì)構(gòu)成員用自己的賬號(hào)和口令分別進(jìn)入系統(tǒng)，用“導(dǎo)入項(xiàng)目信息”功能導(dǎo)入項(xiàng)目信息包。編制項(xiàng)目資料主審在成立項(xiàng)目后，用“項(xiàng)目管理—資料管理—從模板引入資料—引入批量資料”功能選擇并導(dǎo)入所需要的項(xiàng)目文檔模板，并保存在資料樹的相應(yīng)文件夾下。在需要編制相應(yīng)的文檔時(shí)，翻開要編制的文檔模板，編寫后點(diǎn)擊“文件—保存”進(jìn)行保存和打印(注：本次項(xiàng)目共使用了以下文檔模板:實(shí)行方案參照模板、審計(jì)通知書、專項(xiàng)審計(jì)檢查通知書、許諾書參照模板、審計(jì)決定書、送到回證)。成立審計(jì)事項(xiàng)審計(jì)構(gòu)成員依據(jù)審計(jì)分工用“項(xiàng)目管理—準(zhǔn)備管理—審計(jì)事項(xiàng)管理—審計(jì)事項(xiàng)編制”功能成立審計(jì)事項(xiàng)，審計(jì)事項(xiàng)也能夠在詳細(xì)的審計(jì)過程中隨時(shí)增添。成員之間也可經(jīng)過審計(jì)事項(xiàng)的導(dǎo)入、導(dǎo)出功能共享編制好的審計(jì)事項(xiàng)。（二）數(shù)據(jù)收集變換階段（以地稅數(shù)據(jù)庫為例）南通市地方稅務(wù)局使用的稅收征收管理系統(tǒng)的后臺(tái)數(shù)據(jù)庫是AdaptiveServerAnywhere6.0。所以，我們第一安裝了Sybase數(shù)據(jù)庫客戶端軟件；經(jīng)過向稅務(wù)部門討取網(wǎng)絡(luò)配置參數(shù)配置網(wǎng)絡(luò)連結(jié)；在控制面板中經(jīng)過ODBC數(shù)據(jù)源管理器配置ODBC；同時(shí)請地稅部門預(yù)先剔除審計(jì)范圍外的數(shù)據(jù)以減少收集時(shí)間。在與數(shù)據(jù)庫連結(jié)成功后，使用AO軟件中的“收集變換—業(yè)務(wù)數(shù)據(jù)—收集數(shù)據(jù)功能”進(jìn)行數(shù)據(jù)收集。第一，成立目標(biāo)數(shù)據(jù)庫，取名為“地稅數(shù)據(jù)庫”，保存在“資料樹的審計(jì)計(jì)劃階段文件夾”1下(圖1)。(圖1)而后選擇“新建數(shù)據(jù)導(dǎo)入定義”，“增添數(shù)據(jù)源”為方才建好的ODBC數(shù)據(jù)源，在“選擇轉(zhuǎn)換數(shù)據(jù)表窗口”，我們依據(jù)審計(jì)工作需要和地稅部門供給的數(shù)據(jù)詞典從613張數(shù)據(jù)表中選擇了以下幾張數(shù)據(jù)表，時(shí)間時(shí)期定義為2004年1月1日至2005年2月31日，共約80多萬條數(shù)據(jù)記錄：繳款書記錄表(S_JKSJL):寄存納稅人申報(bào)、繳納稅款信息。提退記錄表(S_TTJL):寄存納稅人稅款提退信息。零申報(bào)記錄表(S_LSBJL):寄存納稅人零申報(bào)稅款信息。稅種表(M_SZ):寄存稅種代碼和名稱信息。稅務(wù)登記表(D_SWDJB):寄存納稅人稅務(wù)登記信息。納稅項(xiàng)目表(D_NSXM)：寄存納稅人納稅項(xiàng)目判定信息。數(shù)據(jù)表選擇完成后，我們在數(shù)據(jù)字段設(shè)置窗口依據(jù)數(shù)據(jù)詞典對(duì)以上幾張表的字段進(jìn)行了挑選（圖2），挑選結(jié)果以下：2（圖2）稅種表（M_SZ）:稅種代碼（id_sz）、稅種名稱（name_sz）;繳款書記錄表（S_JKSJL）:納稅人名稱（name_nsr）、納稅人代碼（id_nsr）、稅種代碼（id_sz）、申報(bào)日期date_sbbrq）、繳款日期（date_jkrq）、開票日期（date_kprq）、受理日期（date_slrq）、稅款所屬期起日（date_ssqqr）、稅款所屬期止日（date_ssqzr）、應(yīng)補(bǔ)（退）稅額（ybtse）、鉛印稅票號(hào)（qysph）、稅種詳目代碼（id_sm）、估算級(jí)次代碼（id_ysjc）、稅率（sl）、銀行賬號(hào)（yhzh）;零申報(bào)記錄表(S_LSBJL):納稅人名稱（name_nsr）、納稅人代碼（id_nsr）、稅種代碼（id_sz）、申報(bào)日期date_sbbrq）、受理日期（date_slrq）、稅款所屬期起日（date_ssqqr）、稅款所屬期止日date_ssqzr）;提退記錄表(S_TTJL）:納稅人名稱（name_nsr）、納稅人代碼（id_nsr）、稅種代碼（id_sz）、消號(hào)日期（date_xh）、提退金額（ttje）、稅種詳目代碼（id_sm）、估算級(jí)次代碼（id_ysjc）、稅率（sl）、銀行賬號(hào)（yhzh）;稅務(wù)登記表（D_SWDJB）:納稅人名稱（name_nsr）、納稅人代碼（id_nsr）、開業(yè)日期(date_ky)、注冊地點(diǎn)(addr_zc)、電話(tel)、法定代表人(name_fr)、辦稅人員(name_bsry)、稅務(wù)登記日期(date_swdjrq)；納稅項(xiàng)目表（D_NSXM):納稅人代碼（id_nsr）、稅種代碼（id_sz）、稅種詳目代碼（id_sm）、估算級(jí)次代碼3id_ysjc）、稅率（sl）;估算級(jí)次名稱（m_ysjc）:估算級(jí)次代碼（id_ysjc）、估算級(jí)次名稱（id_ysjc）。變換完成后，系統(tǒng)提示“生成業(yè)務(wù)數(shù)據(jù)中間表”。第一我們在“電子賬簿管理”窗口點(diǎn)擊“新建電子賬簿”，輸入賬簿名稱為“地稅數(shù)據(jù)庫”，單位名稱為“南通市地稅局”。行業(yè)類型為行政。賬簿成立完成后，在生成業(yè)務(wù)數(shù)據(jù)中間表操作窗口，進(jìn)入SQL查問器，輸入變換后的新數(shù)據(jù)表名，并履行以下SQL語句將所有要導(dǎo)入的數(shù)據(jù)表中的id_sz字段替代為稅種表（M_SZ）中的name_sz，將所有要導(dǎo)入的數(shù)據(jù)表中的id_ysjc字段替代為估算級(jí)次名稱表(M_YSJC)中的name_ysjc。點(diǎn)擊導(dǎo)入達(dá)成數(shù)據(jù)導(dǎo)入(圖3)。新表名分別為：jksjl、lsbjl、ttjl、swdjb、swjdb。SELECTs_jksjl.DATE_JKRQ,s_jksjl.DATE_KPRQ,s_jksjl.DATE_SBBRQ,s_jksjl.DATE_SSQQR,s_jksjl.DATE_SSQZR,s_jksjl.ID_NSR,m_sz.NAME_SZ,s_jksjl.NAME_NSR,s_jksjl.QYSPH,s_jksjl.YBTSE,s_jksjl.ID_SM,s_jksjl.SL,m_ysjc.NAME_YSJC,s_jksjl.YHZHFROMm_ysjcINNERJOIN(s_jksjlINNERJOINm_szONs_jksjl.ID_SZ=m_sz.ID_SZ)ONm_ysjc.ID_YSJC=s_jksjl.ID_YSJC;SELECTs_lsbjl.ID_NSR,s_lsbjl.NAME_NSR,m_sz.NAME_SZ,s_lsbjl.DATE_SLRQ,s_lsbjl.DATE_SBBRQ,s_lsbjl.DATE_SSQQR,s_lsbjl.DATE_SSQZRFROMs_lsbjlINNERJOINm_szONs_lsbjl.ID_SZ=m_sz.ID_SZ;SELECTs_ttjl.DATE_XH,s_ttjl.ID_NSR,m_sz.NAME_SZ,s_ttjl.NAME_NSR,s_ttjl.TTJE,s_ttjl.ID_SM,m_ysjc.NAME_YSJC,s_ttjl.YHZHFROMm_ysjcINNERJOIN(s_ttjlINNERJOINm_szONs_ttjl.ID_SZ=m_sz.ID_SZ)ONm_ysjc.ID_YSJC=s_ttjl.ID_YSJC;SELECTd_swdjb.*FROMd_swdjb;SELECTd_nsxm.ID_NSR,m_sz.NAME_SZ,d_nsxm.ID_SM,m_ysjc.NAME_YSJC,d_nsxm.SLFROM(d_nsxmINNERJOINm_szONd_nsxm.ID_SZ=m_sz.ID_SZ)INNERJOINm_ysjcONd_nsxm.ID_YSJC=m_ysjc.ID_YSJC;4(圖3)（注：1、因?yàn)槲覀円獙?duì)數(shù)據(jù)表的真切性和完好性進(jìn)行查驗(yàn)，故在數(shù)據(jù)收集階段僅對(duì)數(shù)據(jù)表的數(shù)據(jù)字段進(jìn)行辦理，而不對(duì)數(shù)據(jù)表的數(shù)據(jù)記錄進(jìn)行辦理，以保存數(shù)據(jù)表的原始信息。2、因?yàn)閿?shù)據(jù)量較大并波及有關(guān)單位的敏感信息，我們在上報(bào)的數(shù)據(jù)包對(duì)有關(guān)業(yè)務(wù)數(shù)據(jù)表進(jìn)行了辦理。3、本次審計(jì)項(xiàng)目我們還收集了駕培系統(tǒng)數(shù)據(jù)庫、民政福利公司數(shù)據(jù)庫，限于篇幅，不一一介紹。）（三）審計(jì)剖析與抽樣階段在數(shù)據(jù)剖析階段，我們第一用“審計(jì)剖析—賬表剖析—電子賬簿管理”功能選摘要剖析的賬套為地稅數(shù)據(jù)庫，點(diǎn)擊導(dǎo)出電子賬簿導(dǎo)出地稅數(shù)據(jù)庫.sjfx文件并散發(fā)到各個(gè)審計(jì)構(gòu)成員導(dǎo)入使用。賬套選擇完成后，用“審計(jì)剖析—數(shù)據(jù)剖析”翻開SQL查問器，成立SQL查問語句，并保存SQL語句。點(diǎn)擊選擇SQL語句，利用SQL語句管理窗口中的導(dǎo)出功能導(dǎo)出SQL語句數(shù)據(jù)包為地稅SQL查問語句.sql文件，并散發(fā)到各個(gè)審計(jì)構(gòu)成員，由他們利用SQL語句管理窗口中的導(dǎo)入功能導(dǎo)入數(shù)據(jù)包地稅SQL查問語句.sql文件，以便于他們獨(dú)立的達(dá)成審計(jì)查問、分析、挑選工作（圖4）(注：詳細(xì)查問語句請見審計(jì)成就部分及報(bào)送的SQL語句數(shù)據(jù)包)。5（圖4）生成查問結(jié)果后，在查問結(jié)果窗口點(diǎn)擊導(dǎo)出到資料樹，將結(jié)果保存在資料樹的審計(jì)實(shí)行階段文件夾下。生成查問結(jié)果后，在查問結(jié)果窗口點(diǎn)擊生成疑點(diǎn)，在選擇審計(jì)疑點(diǎn)窗口選摘要列入審計(jì)疑點(diǎn)的記錄，點(diǎn)擊生成疑點(diǎn)將疑點(diǎn)記錄插入到疑點(diǎn)庫中，以便下一步剖析使用（圖5）。（圖5）在審計(jì)實(shí)行過程中我們還使用了圖表查察功能。第一在查問結(jié)果窗口點(diǎn)擊圖表查察，在圖形剖析導(dǎo)游窗口指定作為橫軸的數(shù)據(jù)和作為縱軸的數(shù)據(jù)，選擇圖表顯示種類后即可畫出統(tǒng)計(jì)圖表，點(diǎn)擊“導(dǎo)出到資料樹”，將結(jié)果保存在資料樹的審計(jì)實(shí)行階段文件夾下。該功能在形象表示審計(jì)查問結(jié)果的同時(shí)，作為工作資料，也極大地方便了領(lǐng)導(dǎo)熟習(xí)掌握審計(jì)狀況，并作出相應(yīng)的管理舉措和審計(jì)決議。在數(shù)據(jù)剖析工作達(dá)成后，使用“審計(jì)剖析—疑點(diǎn)管理”中的業(yè)務(wù)數(shù)據(jù)疑點(diǎn)列表，對(duì)在數(shù)據(jù)剖析階段插入到疑點(diǎn)庫中的疑點(diǎn)進(jìn)行確認(rèn)和清除操作。點(diǎn)擊落實(shí)疑點(diǎn)，將未落實(shí)疑點(diǎn)頁面選擇的疑點(diǎn)設(shè)為已落實(shí)疑點(diǎn)。點(diǎn)擊導(dǎo)出到資料樹，將結(jié)果保存在資料樹的審計(jì)實(shí)行階段文件夾下。（四）審計(jì)日志、審計(jì)憑據(jù)和審計(jì)稿本的編制審計(jì)日志的編制審計(jì)構(gòu)成員每天進(jìn)入系統(tǒng)選擇項(xiàng)目后，用“審計(jì)稿本—審計(jì)日志—新建日志”功能編制審計(jì)日志。編制完成后，用“審計(jì)稿本—審計(jì)日志—翻開日志”功能編寫、閱讀、改正審計(jì)日志。在審計(jì)憑據(jù)、審計(jì)稿本編制完成后，翻開相應(yīng)的審計(jì)日志，在“審計(jì)日志—審計(jì)憑據(jù)”、“審計(jì)日志—審計(jì)稿本”頁面增添與審計(jì)日志有關(guān)的憑據(jù)和稿本資料（圖6）。6（圖6）審計(jì)憑據(jù)的編制審計(jì)構(gòu)成員每天進(jìn)入系統(tǒng)選擇項(xiàng)目后，用“審計(jì)稿本—審計(jì)憑據(jù)—新建憑據(jù)”功能編制審計(jì)憑據(jù)，在憑據(jù)附件頁面內(nèi)右鍵增添有關(guān)附件。編制完成后，用“審計(jì)稿本—審計(jì)憑據(jù)—翻開憑據(jù)”功能編寫、閱讀、改正審計(jì)憑據(jù)。審計(jì)稿本的編制審計(jì)構(gòu)成員進(jìn)入系統(tǒng)選擇項(xiàng)目后，用“審計(jì)稿本—審計(jì)稿本—新建稿本”功能編制審計(jì)稿本。編制完成后，用“審計(jì)稿本—審計(jì)稿本—翻開稿本”功能編寫、閱讀、改正審計(jì)稿本。在審計(jì)憑據(jù)編制完成后，在“審計(jì)稿本—審計(jì)憑據(jù)”頁面增添與審計(jì)稿本有關(guān)的憑據(jù)。在項(xiàng)目結(jié)束階段，主審導(dǎo)入由各個(gè)審計(jì)構(gòu)成員導(dǎo)出的審計(jì)稿本數(shù)據(jù)包，并進(jìn)行復(fù)核。綜合查問在審計(jì)日志、審計(jì)憑據(jù)和審計(jì)稿本編制完成后，審計(jì)構(gòu)成員用“審計(jì)稿本—協(xié)助功能—綜合查問”功能對(duì)審計(jì)日志、審計(jì)憑據(jù)和審計(jì)稿本進(jìn)行綜合查問。第一選擇查問類型，而后在業(yè)務(wù)對(duì)象查問窗口輸入查問條件進(jìn)行查問，方便了審計(jì)構(gòu)成員從眾多的審計(jì)日志、審計(jì)憑據(jù)和審計(jì)稿本中查找所需的資料。資料打擔(dān)保理審計(jì)構(gòu)成員在達(dá)成所有審計(jì)日志后，用“審計(jì)稿本—審計(jì)日志—導(dǎo)出日志功能”，在導(dǎo)出日志窗口選定要導(dǎo)出的日志，在選擇導(dǎo)出路徑窗口選擇寄存導(dǎo)出日志的文件夾，將日志導(dǎo)出為WORD文檔，打印存檔。審計(jì)構(gòu)成員在達(dá)成每天的審計(jì)日志后，在左邊資料樹窗口右鍵點(diǎn)擊審計(jì)日志文件夾，在彈出菜單上點(diǎn)擊打包，在資料包屬性窗口選擇打包資料種類為資料導(dǎo)出數(shù)據(jù)包，用“項(xiàng)目管理—交互管理—報(bào)送數(shù)據(jù)擔(dān)保理”功能選摘要導(dǎo)出的審計(jì)日志資料導(dǎo)出包，點(diǎn)擊導(dǎo)出將資料包導(dǎo)出，交主審編制審計(jì)報(bào)告草稿。審計(jì)構(gòu)成員在達(dá)成有關(guān)審計(jì)稿本后，在左邊資料樹窗口審計(jì)稿本文件夾上點(diǎn)擊右鍵，在彈出菜單上點(diǎn)擊打包，在資料包屬性窗口選擇打包資料種類為資料導(dǎo)出數(shù)據(jù)包，用“項(xiàng)目管理—交互管理—報(bào)送數(shù)據(jù)擔(dān)保理”功能選摘要導(dǎo)出的審計(jì)稿本資料導(dǎo)出包，點(diǎn)擊導(dǎo)出將資料7包導(dǎo)出，交主審編制審計(jì)報(bào)告草稿。（五）審計(jì)報(bào)告編制主審用“項(xiàng)目管理—交互管理—報(bào)送數(shù)據(jù)擔(dān)保理”功能點(diǎn)擊引入，選摘要導(dǎo)入的審計(jì)日志資料包、審計(jì)憑據(jù)資料包、審計(jì)稿本資料包，選擇數(shù)據(jù)包種類為資料導(dǎo)出數(shù)據(jù)包，引入數(shù)據(jù)包后點(diǎn)擊解包，將資料包解壓到左邊資料樹相應(yīng)的文件夾下。將各個(gè)審計(jì)構(gòu)成員的審計(jì)日志資料包、審計(jì)憑據(jù)資料包，審計(jì)稿本資料包導(dǎo)入后，主審用“審計(jì)稿本—審計(jì)報(bào)告—編制報(bào)告綱要”功能進(jìn)入審計(jì)報(bào)告綱要窗口。第一在中間的審計(jì)報(bào)告綱要模板區(qū)經(jīng)過右鍵新建文件夾、文件夾命名的方式形成審計(jì)報(bào)告整體構(gòu)造；其次，在審計(jì)報(bào)告綱要窗口中把待選原始數(shù)據(jù)區(qū)的審計(jì)日志和審計(jì)稿本睜開，用鼠標(biāo)左鍵按次序?qū)⑾鄳?yīng)的日志和稿本拖拽到審計(jì)綱要模板區(qū)的相應(yīng)文件夾下，拖拽完成后點(diǎn)擊操作中的生成審計(jì)報(bào)告綱要。生成審計(jì)報(bào)告綱要后，在審計(jì)報(bào)告綱要窗口中，點(diǎn)擊操作中的生成審計(jì)報(bào)告草稿，并將生成的審計(jì)報(bào)告草稿保存到資料樹的審計(jì)結(jié)論階段文件夾下（圖7）。（圖7）主審在達(dá)成審計(jì)報(bào)告草稿后，在左邊資料樹窗口點(diǎn)擊審計(jì)結(jié)論階段文件夾，在報(bào)告草稿上右鍵點(diǎn)擊，在彈出菜單上點(diǎn)擊導(dǎo)出，將報(bào)告草稿導(dǎo)出為WORD文檔并進(jìn)前進(jìn)一步的編寫。在審計(jì)報(bào)告定稿后，用“項(xiàng)目管理—資料管理—從系統(tǒng)引入資料”功能導(dǎo)入定稿的審計(jì)報(bào)告。（六）項(xiàng)目資料歸檔在審計(jì)項(xiàng)目資料歸檔階段，主審用“項(xiàng)目管理—資料管理—從系統(tǒng)引入資料”功能導(dǎo)入其余還沒有歸檔的文檔資料，并寄存在相應(yīng)的資料樹文件夾下。用“項(xiàng)目管理—資料管理—形成預(yù)歸檔數(shù)據(jù)包”功能生成歸檔數(shù)據(jù)包，用“項(xiàng)目管理—交互管理—報(bào)送數(shù)據(jù)擔(dān)保理”功能選摘要導(dǎo)出的歸檔數(shù)據(jù)包，點(diǎn)擊導(dǎo)出將資料包導(dǎo)出到服務(wù)器保存并刻錄成光盤存檔。二、應(yīng)用創(chuàng)新點(diǎn)（一）編寫ASL腳本實(shí)現(xiàn)自動(dòng)審計(jì)在審計(jì)實(shí)行階段，審計(jì)組人員針對(duì)審計(jì)項(xiàng)目的特色，將一些重要的審計(jì)經(jīng)驗(yàn)成立審計(jì)模型。利用AO軟件供給的審計(jì)方法管理功能，依據(jù)ASL語言編制審計(jì)步驟腳本，并利用AO軟8件供給的自動(dòng)審計(jì)功能睜開審計(jì)工作。第一，點(diǎn)擊“審計(jì)方法—審計(jì)方法管理”，在審計(jì)方法樹的審計(jì)師方法文件夾下新建行業(yè)，輸入行業(yè)名稱，在該行業(yè)類型上成立審計(jì)方法，輸入審計(jì)提示等基本信息后，在新建的審計(jì)方法上用右鍵菜單創(chuàng)立審計(jì)步驟并調(diào)試編譯（圖8）。在審計(jì)方法和步驟編譯完成后，利用“審計(jì)方法—自動(dòng)審計(jì)”功能，在選擇審計(jì)方法窗口勾選需使用的審計(jì)方法及步驟，點(diǎn)擊確立完成自動(dòng)審計(jì)（圖9），運(yùn)轉(zhuǎn)結(jié)果保存在審計(jì)疑點(diǎn)庫中（圖10）。針對(duì)本次地稅審計(jì)項(xiàng)目，我們分別創(chuàng)立了地稅審計(jì)方法、民政福利公司審計(jì)方法、駕培公司審計(jì)方法。（圖8）9（圖9）（圖10）10地稅稅收征管審計(jì)方法（1）稅收收入分稅種匯總審計(jì)目標(biāo)：將稅收收入?yún)R總狀況與地稅年報(bào)進(jìn)行查對(duì)，考證所收集地稅數(shù)據(jù)的真切性和完好性，并用于查證地稅部門能否存在稅種調(diào)理問題。方法說明：依據(jù)輸入的審計(jì)年度，分別形成分稅種入庫匯總表和提退匯總表，將兩張表進(jìn)行比對(duì)，得出年度稅收收入?yún)R總狀況。Varb,c,x,y;beginShowmsg('稅收收入分稅種匯總');Showmsg('請輸入要匯總的審計(jì)年度開端日期，格式:mm/dd/yy');read(x);Showmsg('請輸入要查問的審計(jì)年度停止日期，格式:mm/dd/yy');read(y);CreateTempTable('分稅種入庫匯總表','SELECT業(yè)務(wù)__sz,SUM(業(yè)務(wù)_jksjl.YBTSE)AS入庫額FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_JKRQ>=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQ<=#'+y+'#'+'GROUPBY業(yè)務(wù)__sz');CreateTempTable('分稅種提退匯總表','SELECT業(yè)務(wù)__sz,SUM(業(yè)務(wù)_ttjl.ttje)AS提退額FROM業(yè)務(wù)_ttjlWHERE業(yè)務(wù)_ttjl.DATE_XH>=#'+x+'#'+'and'+'業(yè)務(wù)_ttjl.DATE_XH<=#'+y+'#'+'GROUPBY業(yè)務(wù)__sz');b:=Createq('SELECT分稅種入庫匯總表.name_szAS稅種,ROUND(分稅種入庫匯總表.入庫額-分稅種提退匯總表.提退額,2)AS收入FROM分稅種入庫匯總表INNERJOIN分稅種提退匯總表ON分稅種入庫匯總表.name_sz=分稅種提退匯總表.name_sz',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'稅收收入');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'稅收收入');Showmsg('稅收收入分稅種匯總完成!');end.2）申報(bào)未開票查問審計(jì)目標(biāo)：考證稅務(wù)機(jī)關(guān)在年度稅收收入任務(wù)達(dá)成后，能否存在不將部分公司申報(bào)的稅款入庫的狀況，并依據(jù)結(jié)果確立延長要點(diǎn)。11方法說明：依據(jù)輸入的申報(bào)日期，挑選出在審計(jì)年度內(nèi)公司已申報(bào)而稅務(wù)機(jī)關(guān)未開票的記錄。Varb,c,x,y;beginShowmsg('申報(bào)未開票狀況查問');Showmsg('請輸入要查問的申報(bào)日初始日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的申報(bào)日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_SBBRQ>=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_SBBRQ<=#'+y+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_KPRQisnull',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)申報(bào)未開票狀況!');whilec<>1dobeginAddTransDout(b,'申報(bào)未開票');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'申報(bào)未開票');Showmsg('申報(bào)未開票狀況查問完成!');end.3）開票未入庫查問審計(jì)目標(biāo)：考證稅務(wù)機(jī)關(guān)在年度稅收收入任務(wù)達(dá)成后，能否存在不將部分公司申報(bào)的稅款入庫的狀況，并依據(jù)結(jié)果確立延長要點(diǎn)。方法說明：依據(jù)輸入的開票日期，挑選出在審計(jì)年度內(nèi)開票未入庫的記錄。Varb,c,x,y;beginShowmsg('開票未入庫狀況查問');Showmsg('請輸入要查問的開票日初始日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的開票日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_KPRQ>=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_KPRQ<=#'+y+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQisnull',-1);c:=Qeof(b);12ifc=1thenShowmsg('未發(fā)現(xiàn)開票未入庫狀況!');whilec<>1dobeginAddTransDout(b,'開票未入庫');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'開票未入庫');Showmsg('開票未入庫狀況查問完成!');end.4）提早入庫查問審計(jì)目標(biāo)：考證稅務(wù)機(jī)關(guān)能否存在當(dāng)年度稅收收入任務(wù)難以達(dá)成時(shí)，提早征收稅款的情況。方法說明：對(duì)于按月征收稅款的納稅戶，依據(jù)輸人的申報(bào)日期和繳款日期挑選出所有知足條件的記錄，將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。比如：申報(bào)日期>=2004年12月1日，繳款日期<=2004年12月31日。對(duì)于按季征收稅款的納稅戶，依據(jù)輸入的申報(bào)日期和繳款日期挑選出所有知足條件的記錄。比如：申報(bào)日期>=2004年10月1日，繳款日期<=2004年12月31日。Varb,c,x,y;beginShowmsg('提早入庫狀況查問');Showmsg('請輸入要查問的申報(bào)日初始日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的繳款日停止日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_SBBRQ>=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQ<=#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)提早入庫狀況!');whilec<>1dobeginAddTransDout(b,'提早入庫');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'提早入庫');13Showmsg('提早入庫狀況查問完成!');end.（5）延緩入庫查問(查賬征收)審計(jì)目標(biāo)：考證稅務(wù)機(jī)關(guān)在年度稅收收入任務(wù)達(dá)成后，能否存在將部分公司申報(bào)的稅款延至下年入庫，將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。方法說明：對(duì)于查賬征收稅款的納稅人，依據(jù)輸入的稅款所屬期止日和繳款日期挑選出所有知足條件的記錄。比如：稅款所屬期止日<2004年11月30日，繳款日期>2004年12月31日。Varb,c,x,y;beginShowmsg('延緩入庫狀況查問');Showmsg('請輸入要查問的稅款所屬期停止日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的繳款日開端日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_SSQZR<=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQ>#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)延緩入庫狀況!');whilec<>1dobeginAddTransDout(b,'延緩入庫');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'延緩入庫');Showmsg('延緩入庫狀況查問完成!');end.（6）延緩入庫查問(匯算清繳)審計(jì)目標(biāo)：考證稅務(wù)機(jī)關(guān)在年度稅收收入任務(wù)達(dá)成后，能否存在將部分公司申報(bào)的稅款延至下年入庫。方法說明：對(duì)于匯算清繳稅款的納稅人，依據(jù)輸人的申報(bào)日期和繳款日期挑選出所有滿足條件的記錄，將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。比如：申報(bào)日期<2004年10月1日，繳款日期>2005年4月31日。Varb,c,x,y;beginShowmsg('延緩入庫狀況查問');14Showmsg('請輸入要查問的申報(bào)日停止日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的繳款日開端日期，格式:mm/dd/yy');read(y);b:=Createq('select*FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.DATE_SBBRQ<=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQ>#'+y+'#',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)延緩入庫狀況!');whilec<>1dobeginAddTransDout(b,'延緩入庫');c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'延緩入庫');Showmsg('延緩入庫狀況查問完成!');end.7）營業(yè)稅附征異樣查問（城維稅）審計(jì)目標(biāo)：查證地稅部門能否按法定稅率照實(shí)征收城維稅。方法說明：依據(jù)納稅人實(shí)質(zhì)繳納的營業(yè)稅計(jì)算應(yīng)征城維稅，并與納稅人實(shí)納城維稅進(jìn)行比較，將存在差額的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('營業(yè)稅附征異樣查問(城維稅)!');CreateTempTable('應(yīng)納城維稅','SELECT業(yè)務(wù)_jksjl.NAME_NSRAS單位名稱,業(yè)務(wù)_jksjl.ID_NSRAS單位代碼,Sum(業(yè)務(wù)_jksjl.YBTSE*0.07)AS應(yīng)納城維稅FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.NAME_SZHAVING業(yè)務(wù)_jksjl.NAME_SZ="營業(yè)稅"');CreateTempTable('實(shí)納城維稅','SELECTNAME_NSRAS單位名稱,ID_NSRAS單位代碼,Sum(YBTSE)AS實(shí)納城維稅FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.NAME_SZHAVING業(yè)務(wù)_jksjl.NAME_SZ="城市保護(hù)建設(shè)稅"');b:=Createq('SELECT實(shí)納城維稅.單位名稱,round([應(yīng)納城維稅]-[實(shí)納城維稅],2)AS城維稅差額FROM實(shí)納城維稅INNERJOIN應(yīng)納城維稅ON實(shí)納城維稅.單位代碼=應(yīng)納城維稅.單位代碼AND實(shí)納城維稅.單位名稱=應(yīng)納城維稅.單位名稱WHERE[實(shí)納城維稅]-[應(yīng)納城維稅]<>0',-1);c:=Qeof(b);ifc=1then15showmsg('未發(fā)現(xiàn)營業(yè)稅附征異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'營業(yè)稅附征異樣(城維稅)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'營業(yè)稅附征異樣(城維稅)');Showmsg('營業(yè)稅附征異樣查問完成!');end.8）營業(yè)稅附征異樣查問（教育費(fèi)附帶）審計(jì)目標(biāo)：查證地稅部門能否按法定稅率照實(shí)征收教育費(fèi)附帶。方法說明：依據(jù)納稅人實(shí)質(zhì)繳納的營業(yè)稅計(jì)算應(yīng)征教育費(fèi)附帶，并與納稅人實(shí)納教育費(fèi)附帶進(jìn)行比較，將存在差額的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('營業(yè)稅附征異樣查問(教育費(fèi)附帶)!');CreateTempTable('應(yīng)納教育費(fèi)附帶','SELECT業(yè)務(wù)_jksjl.NAME_NSRAS單位名稱,業(yè)務(wù)_jksjl.ID_NSRAS單位代碼,Sum(業(yè)務(wù)_jksjl.YBTSE*0.03)AS應(yīng)納教育費(fèi)附帶FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.NAME_SZHAVING業(yè)務(wù)_jksjl.NAME_SZ="營業(yè)稅"');CreateTempTable('實(shí)納教育費(fèi)附帶','SELECTNAME_NSRAS單位名稱,ID_NSRAS單位代碼,Sum(YBTSE)AS實(shí)納教育費(fèi)附帶FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.NAME_SZHAVING業(yè)務(wù)_jksjl.NAME_SZ="教育費(fèi)附帶"');b:=Createq('SELECT實(shí)納教育費(fèi)附帶.單位名稱,round([應(yīng)納教育費(fèi)附帶]-[實(shí)納教育費(fèi)附帶],2)AS教育費(fèi)附帶差額FROM實(shí)納教育費(fèi)附帶INNERJOIN應(yīng)納教育費(fèi)附帶ON實(shí)納教育費(fèi)附帶.單位名稱=應(yīng)納教育費(fèi)附帶.單位名稱AND實(shí)納教育費(fèi)附帶.單位代碼=應(yīng)納教育費(fèi)附帶.單位代碼WHERE[應(yīng)納教育費(fèi)附帶]-[實(shí)納教育費(fèi)附帶]<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)營業(yè)稅附征異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'營業(yè)稅附征異樣(教育費(fèi)附帶)');16c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'營業(yè)稅附征異樣(教育費(fèi)附帶)');Showmsg('營業(yè)稅附征異樣查問完成!');end.9）入庫級(jí)次-判定級(jí)次般配查問審計(jì)目標(biāo)：查證地稅部門能否存在混雜稅款級(jí)次的狀況。方法說明：將入庫稅款的實(shí)質(zhì)估算級(jí)次與納稅項(xiàng)目的判定估算級(jí)次進(jìn)行比較，將不一致的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('入庫級(jí)次與判定級(jí)次般配查問!');CreateTempTable('入庫級(jí)次','SELECT業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_jksjl.NAME_YSJC,Sum(業(yè)務(wù)_jksjl.YBTSE)AS納稅額FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_jksjl.NAME_YSJC');CreateTempTable('判定級(jí)次','SELECT業(yè)務(wù)_swjdb.ID_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_swjdb.NAME_YSJCFROM業(yè)務(wù)_swjdbGROUPBY業(yè)務(wù)_swjdb.ID_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_swjdb.NAME_YSJC');b:=Createq('SELECT入庫級(jí)次.NAME_NSRAS單位名稱,入庫級(jí)次.name_SZAS稅種,入庫級(jí)次.NAME_YSJCAS入庫估算級(jí)次,判定級(jí)次.NAME_YSJCAS判定估算級(jí)次,入庫級(jí)次.納稅額FROM判定級(jí)次INNERJOIN入庫級(jí)次ON判定級(jí)次.ID_NSR=入庫級(jí)次.ID_NSRAND判定級(jí)次.name_SZ=入庫級(jí)次.name_SZWHERE(入庫級(jí)次.NAME_YSJC<>判定級(jí)次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)級(jí)次般配異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'入庫級(jí)次與判定級(jí)次般配異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;17TransBatch(b,'入庫級(jí)次與判定級(jí)次般配異樣');Showmsg('入庫級(jí)次與判定級(jí)次般配查問完成!');end.10）提退級(jí)次-判定級(jí)次般配查問審計(jì)目標(biāo)：查證地稅部門能否存在混雜稅款級(jí)次的狀況。方法說明：將提退稅款的實(shí)質(zhì)估算級(jí)次與納稅項(xiàng)目的判定估算級(jí)次進(jìn)行比較，將不一致的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('提退級(jí)次與判定級(jí)次般配查問!');CreateTempTable('提退級(jí)次','SELECT業(yè)務(wù)_ttjl.ID_NSR,業(yè)務(wù)_ttjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_ttjl.NAME_YSJC,Sum(業(yè)務(wù)_ttjl.TTJE)AS提退額FROM業(yè)務(wù)_ttjlGROUPBY業(yè)務(wù)_ttjl.ID_NSR,業(yè)務(wù)_ttjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_ttjl.NAME_YSJC');CreateTempTable('判定級(jí)次','SELECT業(yè)務(wù)_swjdb.ID_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_swjdb.NAME_YSJCFROM業(yè)務(wù)_swjdbGROUPBY業(yè)務(wù)_swjdb.ID_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_swjdb.NAME_YSJC');b:=Createq('SELECT提退級(jí)次.NAME_NSRAS單位名稱,提退級(jí)次.name_SZAS稅種,提退級(jí)次.NAME_YSJCAS提退估算級(jí)次,判定級(jí)次.NAME_YSJCAS判定估算級(jí)次,提退級(jí)次.提退額FROM判定級(jí)次INNERJOIN提退級(jí)次ON判定級(jí)次.ID_NSR=提退級(jí)次.ID_NSRAND判定級(jí)次.name_SZ=提退級(jí)次.name_SZWHERE(提退級(jí)次.NAME_YSJC<>判定級(jí)次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)級(jí)次般配異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'提退級(jí)次與判定級(jí)次般配異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'提退級(jí)次與判定級(jí)次般配異樣');Showmsg('提退級(jí)次與判定級(jí)次般配查問完成!');end.（11）提退級(jí)次-入庫級(jí)次般配查問18審計(jì)目標(biāo)：查證地稅部門能否存在混雜稅款級(jí)次的狀況。方法說明：將提退稅款的實(shí)質(zhì)估算級(jí)次與入庫稅款的實(shí)質(zhì)估算級(jí)次進(jìn)行比較，將不一致的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('提退級(jí)次與入庫級(jí)次般配查問!');CreateTempTable('提退級(jí)次','SELECT業(yè)務(wù)_ttjl.ID_NSR,業(yè)務(wù)_ttjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_ttjl.NAME_YSJC,Sum(業(yè)務(wù)_ttjl.TTJE)AS提退額FROM業(yè)務(wù)_ttjlGROUPBY業(yè)務(wù)_ttjl.ID_NSR,業(yè)務(wù)_ttjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_ttjl.NAME_YSJC');CreateTempTable('入庫級(jí)次','SELECT業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_jksjl.NAME_YSJC,Sum(業(yè)務(wù)_jksjl.YBTSE)AS納稅額FROM業(yè)務(wù)_jksjlGROUPBY業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)__SZ,業(yè)務(wù)_jksjl.NAME_YSJC');b:=Createq('SELECT提退級(jí)次.NAME_NSRAS單位名稱,提退級(jí)次.name_SZAS稅種,入庫級(jí)次.NAME_YSJCAS入庫估算級(jí)次,提退級(jí)次.NAME_YSJCAS提退估算級(jí)次FROM入庫級(jí)次INNERJOIN提退級(jí)次ON入庫級(jí)次.ID_NSR=提退級(jí)次.ID_NSRAND入庫級(jí)次.name_SZ=提退級(jí)次.name_SZWHERE(提退級(jí)次.NAME_YSJC<>入庫級(jí)次.NAME_YSJC)<>0',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)級(jí)次般配異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'提退級(jí)次與入庫級(jí)次般配查問');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'提退級(jí)次與入庫級(jí)次般配異樣');Showmsg('提退級(jí)次與入庫級(jí)次般配查問完成!');end.（12）重復(fù)銀行賬戶查問(繳款戶)審計(jì)目標(biāo)：查證地稅部門能否存在利用稅收收入帳戶調(diào)理稅收收入的狀況。方法說明：挑選繳款表中納稅戶不一樣但銀行賬戶同樣的記錄，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;begin19Showmsg('重復(fù)銀行賬戶查問(繳款表)!');CreateTempTable('繳款銀行賬戶表','SELECTDISTINCT業(yè)務(wù)_jksjl.YHZH,業(yè)務(wù)_jksjl.NAME_NSRFROM業(yè)務(wù)_jksjl');b:=Createq('SELECT繳款銀行賬戶表.YHZHAS銀行賬號(hào),Count(繳款銀行賬戶表.NAME_NSR)AS納稅人個(gè)數(shù)FROM繳款銀行賬戶表GROUPBY繳款銀行賬戶表.YHZHHAVINGCount(繳款銀行賬戶表.NAME_NSR)>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)重復(fù)銀行賬戶狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'重復(fù)銀行賬戶(繳款表)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'重復(fù)銀行賬戶(繳款表)');Showmsg('重復(fù)銀行賬戶查問完成!');end.13）重復(fù)銀行賬戶查問(提退戶)審計(jì)目標(biāo)：查證地稅部門能否存在利用稅收收入帳戶調(diào)理稅收收入的狀況。方法說明：挑選提退表中納稅戶不一樣但銀行賬戶同樣的記錄，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('重復(fù)銀行賬戶查問(提退表)!');CreateTempTable('提退銀行賬戶表','SELECTDISTINCT業(yè)務(wù)_ttjl.YHZH,業(yè)務(wù)_ttjl.NAME_NSRFROM業(yè)務(wù)_ttjl');b:=Createq('SELECT提退銀行賬戶表.YHZHAS銀行賬號(hào),Count(提退銀行賬戶表.NAME_NSR)AS納稅人個(gè)數(shù)FROM提退銀行賬戶表GROUPBY提退銀行賬戶表.YHZHHAVINGCount(提退銀行賬戶表.NAME_NSR)>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)重復(fù)銀行賬戶狀況!');ifc<>1thenbeginrepeat20AddTransRslt(b,'重復(fù)銀行賬戶(提退表)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'重復(fù)銀行賬戶(提退表)');Showmsg('重復(fù)銀行賬戶查問完成!');end.14）繳款銀行賬戶-提退銀行賬戶般配查問審計(jì)目標(biāo)：查證稅務(wù)部門能否將提退款退至納稅人的納稅帳戶。方法說明：將入庫表中的納稅戶銀行賬戶與提退表中的納稅戶銀行賬戶進(jìn)行比較，將存在差別的記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('繳款-提退銀行賬戶般配查問!');CreateTempTable('提退銀行賬戶表','SELECTDISTINCT業(yè)務(wù)_ttjl.YHZH,業(yè)務(wù)_ttjl.NAME_NSR,業(yè)務(wù)_ttjl.ID_NSRFROM業(yè)務(wù)_ttjl');CreateTempTable('繳款銀行賬戶表','SELECTDISTINCT業(yè)務(wù)_jksjl.YHZH,業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.ID_NSRFROM業(yè)務(wù)_jksjl');b:=Createq('SELECT繳款銀行賬戶表.NAME_NSRAS單位名稱,繳款銀行賬戶表.YHZHAS繳款銀行賬戶,提退銀行賬戶表.YHZHAS提退銀行賬戶FROM繳款銀行賬戶表INNERJOIN提退銀行賬戶表ON繳款銀行賬戶表.ID_NSR=提退銀行賬戶表.ID_NSRAND繳款銀行賬戶表.NAME_NSR=提退銀行賬戶表.NAME_NSRWHERE繳款銀行賬戶表.YHZH<>提退銀行賬戶表.YHZH',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)銀行賬戶不般配狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'繳款-提退銀行賬戶般配異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'繳款-提退銀行賬戶般配異樣');Showmsg('繳款-提退銀行賬戶般配查問完成!');21end.15）同一稅目不一樣稅率查問審計(jì)目標(biāo)：查證稅務(wù)部門在征收過程中能否存在將各稅種對(duì)應(yīng)的稅目和稅率合用錯(cuò)誤的狀況。方法說明：挑選入庫表中納稅戶和稅目同樣，稅率不一樣的記錄，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('同一稅目不一樣稅率查問!');CreateTempTable('實(shí)質(zhì)稅率表','SELECTDISTINCT業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)_jksjl.ID_NSR,業(yè)務(wù)_jksjl.ID_SM,業(yè)務(wù)_jksjl.SLFROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.SL<>0AND業(yè)務(wù)_jksjl.YBTSE>0');b:=Createq('SELECT實(shí)質(zhì)稅率表.NAME_NSRAS單位名稱,實(shí)質(zhì)稅率表.ID_SM,Count(實(shí)際稅率表.SL)AS稅率個(gè)數(shù)FROM實(shí)質(zhì)稅率表GROUPBY實(shí)質(zhì)稅率表.ID_NSR,實(shí)質(zhì)稅率表.NAME_NSR,實(shí)質(zhì)稅率表.ID_SMHAVINGCount(實(shí)質(zhì)稅率表.SL)<>1',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)稅目同樣稅率不一樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'不一樣稅率');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'不一樣稅率');Showmsg('同一稅目不一樣稅率查問完成!');end.16）判定稅率-實(shí)質(zhì)稅率般配查問審計(jì)目標(biāo)：查證稅務(wù)部門在征收過程中能否存在將各稅種對(duì)應(yīng)的稅目和稅率合用錯(cuò)誤的狀況。方法說明：挑選入庫表和納稅項(xiàng)目判定表中納稅戶和稅目同樣，稅率不一樣的記錄，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('判定-實(shí)質(zhì)稅率般配查問!');CreateTempTable('實(shí)質(zhì)稅率表','SELECTDISTINCT業(yè)務(wù)_jksjl.NAME_NSR,業(yè)務(wù)22_jksjl.ID_NSR,業(yè)務(wù)_jksjl.NAME_SZ,業(yè)務(wù)_jksjl.ID_SM,業(yè)務(wù)_jksjl.SLFROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.SL<>0AND業(yè)務(wù)_jksjl.YBTSE>0');CreateTempTable('判定稅率表','SELECTDISTINCT業(yè)務(wù)_swjdb.ID_NSR,業(yè)務(wù)_swjdb.NAME_SZ,業(yè)務(wù)_swjdb.ID_SM,業(yè)務(wù)_swjdb.SLFROM業(yè)務(wù)_swjdbWHERE業(yè)務(wù)_swjdb.SL<>0');b:=Createq('SELECT實(shí)質(zhì)稅率表.NAME_NSRAS單位名稱,實(shí)質(zhì)稅率表.NAME_SZAS稅種,實(shí)質(zhì)稅率表.ID_SMAS稅目,實(shí)質(zhì)稅率表.SLAS實(shí)質(zhì)稅率,判定稅率表.SLAS判定稅率FROM實(shí)質(zhì)稅率表INNERJOIN判定稅率表ON判定稅率表.ID_SM=實(shí)質(zhì)稅率表.ID_SMAND實(shí)質(zhì)稅率表.ID_NSR=判定稅率表.ID_NSRWHERE實(shí)質(zhì)稅率表.SL<>判定稅率表.SL',-1);c:=Qeof(b);ifc=1thenshowmsg('未發(fā)現(xiàn)判定稅率與實(shí)質(zhì)稅率般配異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'判定-實(shí)質(zhì)稅率般配異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'判定-實(shí)質(zhì)稅率般配異樣');Showmsg('判定-實(shí)質(zhì)稅率般配查問完成!');end.17）大額稅票查問審計(jì)目標(biāo)：從大額稅票中查找審計(jì)疑點(diǎn)。方法說明：依據(jù)輸入的稅票金額挑選知足條件的記錄。Varb,c,x;beginShowmsg('大額稅票查問');Showmsg('請輸入要查問的稅票金額');Read(x);b:=Createq('SELECT*FROM業(yè)務(wù)_jksjlwhere業(yè)務(wù)_jksjl.ybtse>='+x,-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'大額稅票');23c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'大額稅票');Showmsg('大額稅票查問完成!');end.18）延長單位納稅明細(xì)查問審計(jì)目標(biāo)：確立延長單位的納稅明細(xì)狀況，便于審計(jì)構(gòu)成員實(shí)行延長審計(jì)。方法說明：依據(jù)輸入的納稅人名稱，挑選出所有知足條件的納稅人納稅明細(xì)。Varb,c,x;beginShowmsg('延長單位納稅明細(xì)查問');Showmsg('請輸入要查問的延長單位名稱');Read(x);b:=Createq('SELECT*FROM業(yè)務(wù)_jksjlwhere業(yè)務(wù)__nsrlike''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'納稅明細(xì)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'納稅明細(xì)');Showmsg('延長單位納稅明細(xì)查問完成!');end.19）延長單位零申報(bào)明細(xì)查問審計(jì)目標(biāo)：確立延長單位的零申報(bào)明細(xì)狀況，便于審計(jì)構(gòu)成員實(shí)行延長審計(jì)。方法說明：依據(jù)輸入的納稅人名稱，挑選出所有知足條件的納稅人零申報(bào)明細(xì)。Varb,c,x;beginShowmsg('延長單位零申報(bào)明細(xì)查問');Showmsg('請輸入要查問的延長單位名稱');Read(x);24b:=Createq('SELECT*FROM業(yè)務(wù)_lsbjlwhere業(yè)務(wù)__nsrlike''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'零申報(bào)明細(xì)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'零申報(bào)明細(xì)');Showmsg('延長單位零申報(bào)明細(xì)查問完成!');end.民政福利公司審計(jì)方法（1）殘疾人重復(fù)掛名查問審計(jì)目標(biāo)：確立在多個(gè)福利公司中重復(fù)掛名的殘疾人名單和公司名單。方法說明：依據(jù)身份證號(hào)碼正常表分組查問，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('殘疾人重復(fù)掛名查問');CreateTempTable('殘疾人重復(fù)掛名表','SELECT身份證號(hào)碼FROM業(yè)務(wù)_身份證號(hào)碼正常表GROUPBY身份證號(hào)碼HAVINGCOUNT([身份證號(hào)碼])>1');b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM殘疾人重復(fù)掛名表INNERJOIN業(yè)務(wù)_身份證號(hào)碼正常表ON殘疾人重復(fù)掛名表.身份證號(hào)碼=業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)重復(fù)掛名狀況!');ifc<>1thenbeginrepeatAddTransDout(b,'重復(fù)掛名');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;25TransBatch(b,'重復(fù)掛名');Showmsg('殘疾人重復(fù)掛名查問完成!');end.（2）殘疾人年紀(jì)異樣查問(未滿16歲，15位身份證)審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在未滿16周歲的殘疾人。方法說明：對(duì)15位身份證號(hào)碼依據(jù)輸入的年紀(jì)區(qū)段挑選知足條件的記錄，并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('殘疾人年紀(jì)異樣查問(未滿16歲)');Showmsg('15位身份證查問，請輸入要比較的年份(兩位,如:89)');Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=15',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,2)>=xthenbeginAddTransDout(b,'未滿16歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'未滿16歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.（3）殘疾人年紀(jì)異樣查問(未滿16歲，18位身份證)審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在未滿16周歲的殘疾人。方法說明：對(duì)18位身份證號(hào)碼依據(jù)輸入的年紀(jì)區(qū)段挑選知足條件的記錄,并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('18位身份證查問，請輸入要比較的年份(四位,如:1989)');26Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=18',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,4)>=xthenbeginAddTransDout(b,'未滿16歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'未滿16歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.（4）殘疾人年紀(jì)異樣查問(女性已滿55歲，15位身份證)審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在已過退休年紀(jì)的殘疾人。方法說明：對(duì)15位身份證號(hào)碼依據(jù)輸入的年紀(jì)區(qū)段挑選知足條件的女性殘疾人記錄,并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('殘疾人年紀(jì)異樣查問(女性，已滿55歲)');Showmsg('15位身份證查問，請輸入要比較的年份(兩位,如:50)');Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=15AND性別="女"',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,2)<=xthen27beginAddTransDout(b,'已滿55歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已滿55歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.（5）殘疾人年紀(jì)異樣查問(女性已滿55歲，18位身份證)審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在已過退休年紀(jì)的殘疾人。方法說明：對(duì)18位身份證號(hào)碼依據(jù)輸入的年紀(jì)區(qū)段挑選知足條件的女性殘疾人記錄,并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('殘疾人年紀(jì)異樣查問(女性，已滿55歲)');Showmsg('18位身份證查問，請輸入要比較的年份(四位,如:1950)');Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=18AND性別="女"',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,4)<=xthenbeginAddTransDout(b,'已滿55歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已滿55歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.（6）殘疾人年紀(jì)異樣查問(男性已滿60歲，15位身份證)28審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在已過退休年紀(jì)的殘疾人。方法說明：對(duì)15位身份證號(hào)碼依據(jù)輸入的年紀(jì)區(qū)段挑選知足條件的男性殘疾人記錄,并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('殘疾人年紀(jì)異樣查問(男性，已滿60歲)');Showmsg('15位身份證查問，請輸入要比較的年份(兩位,如:45)');Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=15AND性別="男"',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,2)<=xthenbeginAddTransDout(b,'已滿60歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已滿60歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.（7）殘疾人年紀(jì)異樣查問(男性已滿60歲，18位身份證)審計(jì)目標(biāo)：查問福利公司的生產(chǎn)人員中能否存在已過退休年紀(jì)的殘疾人。方法說明：對(duì)18位身份證號(hào)碼依據(jù)輸入的年限區(qū)段挑選知足條件的男性殘疾人員記錄,并將結(jié)果導(dǎo)入審計(jì)疑點(diǎn)。Vara,b,c,x;beginShowmsg('18位身份證查問，請輸入要比較的年份(四位,如:1945)');Read(x);b:=Createq('SELECT業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼,業(yè)務(wù)_身份證號(hào)碼正常表.姓名,業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱FROM業(yè)務(wù)_身份證號(hào)碼正常表WHERELen(身份證號(hào)碼)=18AND性別="男"',-1);29c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)年紀(jì)異樣狀況!');whilec<>1dobegina:=QFDValue(b,'身份證號(hào)碼');ifMidstr(a,7,4)<=xthenbeginAddTransDout(b,'已滿60歲');end;c:=Qmov(b,1);c:=Qeof(b);end;TransBatch(b,'已滿60歲');Showmsg('殘疾人年紀(jì)異樣查問完成!');end.8）身份證號(hào)碼異樣查問審計(jì)目標(biāo)：從福利公司殘疾人名單中挑選出身份證號(hào)碼異樣的記錄。方法說明：從福利公司殘疾人名單中查找身份證號(hào)碼長度不等于15位和18位的記錄，作為異樣記錄導(dǎo)入審計(jì)疑點(diǎn)。Varb,c;beginShowmsg('身份證號(hào)碼異樣查問');CreateTempTable('身份證號(hào)碼異樣表','SELECT*FROM業(yè)務(wù)_福利公司殘疾人名單WHERELen(身份證號(hào)碼)<>15ANDLen(身份證號(hào)碼)<>18');b:=Createq('SELECT身份證號(hào)碼異樣表.單位名稱,Count(身份證號(hào)碼異樣表.身份證號(hào)碼)AS異樣人數(shù)FROM身份證號(hào)碼異樣表GROUPBY身份證號(hào)碼異樣表.單位名稱',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)身份證異樣狀況!');ifc<>1thenbeginrepeatAddTransDout(b,'身份證號(hào)碼異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;30TransBatch(b,'身份證號(hào)碼異樣');Showmsg('身份證號(hào)碼異樣查問完成!');end.9）殘疾人占比異樣查問審計(jì)目標(biāo)：確立公司殘疾人占比能否吻合減免條件。方法說明：將福利公司人數(shù)表和福利公司殘疾人數(shù)表按單位名稱連結(jié)，用各單位殘疾人總?cè)藬?shù)除以福利公司總?cè)藬?shù)，確立福利公司殘疾人占比。Varb,c;BeginShowmsg('殘疾人占比異樣查問');CreateTempTable('殘疾人數(shù)分單位匯總表','SELECT業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱,Count(業(yè)務(wù)_身份證號(hào)碼正常表.身份證號(hào)碼)AS殘疾人數(shù)FROM業(yè)務(wù)_身份證號(hào)碼正常表GROUPBY業(yè)務(wù)_身份證號(hào)碼正常表.單位名稱');b:=Createq('SELECT業(yè)務(wù)_福利公司人員人數(shù).單位名稱,round(殘疾人數(shù)分單位匯總表.殘疾人數(shù)/業(yè)務(wù)_福利公司人員人數(shù).人數(shù),2)FROM殘疾人數(shù)分單位匯總表INNERJOIN業(yè)務(wù)_福利公司人員人數(shù)ON殘疾人數(shù)分單位匯總表.單位名稱=業(yè)務(wù)_福利公司人員人數(shù).單位名稱',-1);c:=Qeof(b);ifc=1thenShowmsg('未發(fā)現(xiàn)人數(shù)比率異樣狀況!');ifc<>1thenbeginrepeatAddTransRslt(b,'比率異樣');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'比率異樣');Showmsg('人數(shù)比率異樣查問查問完成!');end.10）關(guān)系公司查問審計(jì)目標(biāo)：查問福利公司中能否存在關(guān)系公司。方法說明：將納稅人稅務(wù)登記表和福利公司人數(shù)表經(jīng)過單位名稱成立連結(jié)，依占有重名法人的公司名單確立關(guān)系公司。Varb,c;beginShowmsg('關(guān)系公司查問');31CreateTempTable('福利公司法人名稱表','SELECT業(yè)務(wù)_swdjb.NAME_FRFROM業(yè)務(wù)_福利公司人員人數(shù)INNERJOIN業(yè)務(wù)_swdjbON業(yè)務(wù)_福利公司人員人數(shù).單位名稱=業(yè)務(wù)_swdjb.NAME_NSR');b:=Createq('SELECT福利公司法人名稱表.NAME_FRas法人名稱,業(yè)務(wù)_swdjb.NAME_NSRas單位名稱FROM福利公司法人名稱表INNERJOIN業(yè)務(wù)_swdjbON福利公司法人名稱表.NAME_FR=業(yè)務(wù)_swdjb.NAME_FR',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'關(guān)系公司');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'關(guān)系公司');Showmsg('關(guān)系公司查問完成!');end.11）福利公司減免稅明細(xì)查問審計(jì)目標(biāo)：查問福利公司享受的減免稅明細(xì)狀況。方法說明：依據(jù)輸入的福利公司名稱，生成該公司享受的福利公司減免稅明細(xì)。Varb,c,x;beginShowmsg('福利公司減免稅明細(xì)查問');Showmsg('請輸入要查問的福利公司名稱');Read(x);b:=Createq('SELECT*FROM業(yè)務(wù)_福利公司減免稅表where業(yè)務(wù)_福利公司減免稅表.單位名稱like''%'+x+'%''',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransRslt(b,'減免稅明細(xì)');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;32TransBatch(b,'減免稅明細(xì)');Showmsg('福利公司減免稅明細(xì)查問完成!');end.駕培公司審計(jì)方法審計(jì)目標(biāo)：查察在審計(jì)年度內(nèi)駕培公司應(yīng)納營業(yè)稅與實(shí)納營業(yè)稅之間能否存在差額，以確立公司有無偷漏稅行為。方法說明：依據(jù)駕培公司在審計(jì)年度內(nèi)的營業(yè)收入計(jì)算應(yīng)納營業(yè)稅額，并和該公司的實(shí)納營業(yè)稅進(jìn)行比較，確立差額，并導(dǎo)入審計(jì)疑點(diǎn)。Varb,c,x,y;beginShowmsg('駕培公司應(yīng)納-實(shí)納營業(yè)稅比較');Showmsg('請輸入要查問的繳款日期初始日期，格式:mm/dd/yy');Read(x);Showmsg('請輸入要查問的繳款日期停止日期，格式:mm/dd/yy');read(y);CreateTempTable('公司實(shí)納營業(yè)稅表','SELECT業(yè)務(wù)_jksjl.NAME_NSR,Sum(業(yè)務(wù)_jksjl.YBTSE)AS實(shí)納營業(yè)稅FROM業(yè)務(wù)_jksjlWHERE業(yè)務(wù)_jksjl.NAME_SZ="營業(yè)稅"AND業(yè)務(wù)_jksjl.DATE_JKRQ>=#'+x+'#'+'and'+'業(yè)務(wù)_jksjl.DATE_JKRQ<=#'+y+'#'+'GROUPBY業(yè)務(wù)_jksjl.NAME_NSR');b:=Createq('SELECT公司實(shí)納營業(yè)稅表.NAME_NSRAS公司名稱,(業(yè)務(wù)_駕培分單位培訓(xùn)人數(shù)表.人數(shù)*3000*0.05-公司實(shí)納營業(yè)稅表.實(shí)納營業(yè)稅)AS差額FROM公司實(shí)納營業(yè)稅表INNERJOIN業(yè)務(wù)_駕培分單位培訓(xùn)人數(shù)表ON公司實(shí)納營業(yè)稅表.NAME_NSR=業(yè)務(wù)_駕培分單位培訓(xùn)人數(shù)表.駕培單位名稱',-1);c:=Qeof(b);ifc<>1thenbeginrepeatAddTransDout(b,'應(yīng)納-實(shí)納營業(yè)稅差額');c:=Qmov(b,1);c:=Qeof(b);untilc=1;end;TransBatch(b,'應(yīng)納-實(shí)納營業(yè)稅差額');Showmsg('駕培公司應(yīng)納-實(shí)納營業(yè)稅比較!');end.（注：因?yàn)閷徲?jì)方法的使用與導(dǎo)入的數(shù)據(jù)表名稱、字段名稱有關(guān)系，所以我們經(jīng)過在AO的數(shù)據(jù)收集變換模塊中成立自定義的收集變換模板來固化相應(yīng)的數(shù)據(jù)表名和字段名，以保證33審計(jì)方法的正確運(yùn)轉(zhuǎn)。在此后的審計(jì)項(xiàng)目中還能夠經(jīng)過改正收集變換模板和審計(jì)腳原來更新相應(yīng)的審計(jì)方法。）（二）其余創(chuàng)新點(diǎn)審計(jì)質(zhì)量控制創(chuàng)新在本次地稅審計(jì)項(xiàng)目中，審計(jì)組充分利用AO軟件供給的項(xiàng)目質(zhì)量控制功能增強(qiáng)了審計(jì)質(zhì)量控制。審計(jì)項(xiàng)目中能由AO軟件生成的文檔資料所有由AO軟件生成；同時(shí)利用AO軟件的資料導(dǎo)入導(dǎo)出功能和資料樹功能，合并和管理其余文檔資料，保證了審計(jì)資料的完好性和一致性。審計(jì)組經(jīng)過在審計(jì)現(xiàn)場組建局域網(wǎng)，依據(jù)審計(jì)構(gòu)成員分工在局域網(wǎng)中創(chuàng)立了與審計(jì)分工相對(duì)應(yīng)的個(gè)人共享文件夾，每個(gè)審計(jì)人員負(fù)責(zé)各自數(shù)據(jù)資料的整理與歸集。在審計(jì)過程中，各個(gè)業(yè)務(wù)人員把發(fā)現(xiàn)的疑點(diǎn)線索、審計(jì)日志，審計(jì)稿本等所有存入各自的共享文件夾中，主審利用AO軟件的數(shù)據(jù)包導(dǎo)入功能按期閱讀和復(fù)核成員提交的審計(jì)日志、審計(jì)稿本和疑點(diǎn)資料，及時(shí)認(rèn)識(shí)審計(jì)動(dòng)向，掌握審計(jì)進(jìn)度，保證了依照審計(jì)方案要求推動(dòng)審計(jì)工作。審計(jì)思路創(chuàng)新從2003年開始，南通市里財(cái)政、國稅、地稅、金庫和各專業(yè)銀行之間，借助于“同城及時(shí)清理”這個(gè)平臺(tái)，成立了財(cái)稅庫行聯(lián)網(wǎng)系統(tǒng)。推行財(cái)稅庫行聯(lián)網(wǎng)，有效解決了稅款入庫中間環(huán)節(jié)過多的問題。可是，推行財(cái)稅庫行聯(lián)網(wǎng)后，審計(jì)部門也一定及時(shí)調(diào)整地方稅收審計(jì)思路，采納踴躍的應(yīng)付舉措。依據(jù)這一現(xiàn)狀，我們充分利用AO軟件供給的強(qiáng)盛的現(xiàn)場審計(jì)實(shí)行平臺(tái)，做到了及時(shí)收集、考證地稅征管數(shù)據(jù)庫的完好性和真切性，將審計(jì)關(guān)隘合時(shí)前移；同時(shí)利用AO軟件供給的強(qiáng)盛的數(shù)據(jù)查問剖析功能，綜合有關(guān)行業(yè)部門的業(yè)務(wù)數(shù)據(jù)進(jìn)行關(guān)系剖析，加大了審計(jì)延長力度。如到車管部門收集最近幾年來駕培考試人員的數(shù)據(jù)、到民政部門收集民政福利公司數(shù)據(jù)等；在審計(jì)實(shí)行過程中，將獲得的業(yè)務(wù)數(shù)據(jù)與稅務(wù)征管數(shù)據(jù)進(jìn)行對(duì)照剖析，減少了審計(jì)的盲目性，確立的審計(jì)疑點(diǎn)和要點(diǎn)較過去的審計(jì)項(xiàng)目更有針對(duì)性，審計(jì)收效也更為突出。利用網(wǎng)絡(luò)資源創(chuàng)新審計(jì)構(gòu)成員在使用AO軟件睜開審計(jì)項(xiàng)目的前后過程中都十分著厚利用金審工程服務(wù)網(wǎng)站供給的有關(guān)AO軟件方面的資源。我們在金審工程新聞版面和金審論壇認(rèn)識(shí)和學(xué)習(xí)了好多其余審計(jì)部門應(yīng)用AO軟件的知識(shí)和經(jīng)驗(yàn)；在知識(shí)庫版面和咨詢室版面掌握了很多有關(guān)AO軟件配置、數(shù)據(jù)收集和變換、故障辦理的知識(shí)，保證了審計(jì)項(xiàng)目的順利睜開；在下載區(qū)版面按期獲取最新的文檔資料和變換模板，保證了AO軟件的版本和功能的更新。利用網(wǎng)絡(luò)資料的創(chuàng)新為我們順利睜開2004年度地稅同級(jí)審計(jì)起到了很大的促使和推動(dòng)作用。34三、審計(jì)成就（一）稅收征管審計(jì)成就1.審計(jì)發(fā)現(xiàn)的問題（1）部分稅款滯留在有關(guān)單位賬面，未入庫稅款1091.8萬元。（2）公司賬面反應(yīng)已繳納，實(shí)質(zhì)入庫延至2005年稅款1047.78萬元。35審計(jì)思路因?yàn)槎愂沼?jì)劃任務(wù)的存在和稅收征管體系的拘束，稅務(wù)機(jī)關(guān)為了保證計(jì)劃任務(wù)和核查指標(biāo)的達(dá)成，廣泛存在著不嚴(yán)格依照稅法例定及時(shí)征收稅款，任意調(diào)劑稅收入庫進(jìn)度以及把企業(yè)作為稅收“蓄水池”的問題。我們利用AO的數(shù)據(jù)剖析功能，經(jīng)過查問稅務(wù)機(jī)關(guān)可能存在調(diào)理稅收狀況的有關(guān)稅收征管記錄，發(fā)現(xiàn)了稅務(wù)機(jī)關(guān)違規(guī)調(diào)理稅收進(jìn)度的問題。審計(jì)過程(注：為了便于理解，下文中SQL語句使用類SQL語句進(jìn)行描繪，實(shí)質(zhì)的SQL語句詳見報(bào)送的SQL查問語句包。)1）所需資料繳款書記錄表:納稅人名稱、納稅人代碼、稅種、應(yīng)補(bǔ)（退）稅額、鉛印稅票號(hào)、申報(bào)日期、開票日期、繳款日期、稅款所屬期起日、稅款所屬期止日提退記錄表：納稅人名稱、納稅人代碼、稅種、提退金額、消號(hào)日期零申報(bào)記錄表:納稅人名稱、納稅人代碼、稅種、受理日期、申報(bào)日期、稅款所屬期起日、稅款所屬期止日稅務(wù)登記表:納稅人名稱、納稅人代碼、開業(yè)日期、注冊地點(diǎn)、注冊地點(diǎn)電話、法定代表人、辦稅人員、稅務(wù)登記日期（2）審計(jì)步驟第一步：利用AO的收集變換—業(yè)務(wù)數(shù)據(jù)收集功能，從稅務(wù)部門征管核算系統(tǒng)中，以納稅人繳款書記錄表為基礎(chǔ)，提取以下字段：納稅人名稱、納稅人代碼、稅種、應(yīng)補(bǔ)（退）稅額、稅票號(hào)、申報(bào)日期、開票日期、繳款日期、稅款所屬期起日、稅款所屬期止日，生成公司納稅數(shù)據(jù)表并導(dǎo)入。類SQL描繪：CREATE公司納稅數(shù)據(jù)表ASSELECT納稅人名稱、納稅人代碼、稅種、應(yīng)補(bǔ)（退）稅額、稅票號(hào)、申報(bào)日期、開票日期、繳款日期、稅款所屬期起日、稅款所屬期止日FROM繳款書記錄表第二步：利用AO的收