巧用SQL語(yǔ)句檢查公務(wù)用車(chē)改革執(zhí)行情況

馮林

摘要：近年來(lái)，各地相繼出臺(tái)各項(xiàng)措施加強(qiáng)公務(wù)用車(chē)管理，并暫停增加新車(chē)購(gòu)買(mǎi)，在較大程度上控制和遏制了公務(wù)車(chē)輛的規(guī)模和經(jīng)費(fèi)進(jìn)一步增長(zhǎng)，但仍在部分程度上存在著管理粗放、使用浪費(fèi)、配備不均等、部分開(kāi)支較大等一系列問(wèn)題。筆者在對(duì)某單位進(jìn)行公務(wù)用車(chē)改革執(zhí)行情況的審計(jì)工作中，利用SQL語(yǔ)句和AO系統(tǒng)的自動(dòng)審計(jì)功能檢查公務(wù)用車(chē)改革的執(zhí)行情況，查出了該單位在公務(wù)用車(chē)改革方面存在的問(wèn)題，并有針對(duì)性地提出了審計(jì)建議。

關(guān)鍵詞：SQL語(yǔ)句；公務(wù)用車(chē)改革；執(zhí)行

近年來(lái)，隨著各地采取定編配備、政府采購(gòu)、多部門(mén)聯(lián)合審批等各項(xiàng)措施加強(qiáng)公務(wù)用車(chē)管理，并暫停增加新車(chē)購(gòu)買(mǎi)，在較大程度上控制和遏制了公務(wù)車(chē)輛的規(guī)模和經(jīng)費(fèi)進(jìn)一步增長(zhǎng)，但仍在部分程度上存在著管理粗放、使用浪費(fèi)、配備不均等、部分開(kāi)支較大等一系列問(wèn)題。同時(shí)，由于更新報(bào)廢制度建立的滯后，車(chē)輛老化、使用年限超限等用車(chē)問(wèn)題不同程度地存在，對(duì)履行公務(wù)、車(chē)輛安全、建設(shè)節(jié)能型機(jī)關(guān)也造成了一定的影響。深化公務(wù)用車(chē)管理制度改革，盡快建立統(tǒng)一、規(guī)范、科學(xué)化的管理制度，對(duì)降低政府行政成本、規(guī)范職務(wù)消費(fèi)、促進(jìn)節(jié)能型機(jī)關(guān)建設(shè)具有十分重要的意義。近日，筆者在對(duì)某單位公務(wù)用車(chē)改革審計(jì)中，利用SQL語(yǔ)句和AO系統(tǒng)的自動(dòng)審計(jì)功能檢查公務(wù)用車(chē)改革的執(zhí)行情況。具體方法如下：

一、對(duì)應(yīng)發(fā)放的車(chē)改補(bǔ)償金額進(jìn)行統(tǒng)計(jì)

根據(jù)從第三方取得的人員表和車(chē)改辦補(bǔ)償發(fā)放標(biāo)準(zhǔn)表，生成新的應(yīng)發(fā)放補(bǔ)償金額表。

var s1；

begin

s1：='select a.職務(wù)級(jí)別，[2014年補(bǔ)償標(biāo)準(zhǔn)]*[2014年人數(shù)] as 應(yīng)發(fā)放補(bǔ)償金額 from 人員表 a join 車(chē)改辦補(bǔ)償發(fā)放標(biāo)準(zhǔn)表 b on a.職務(wù)級(jí)別=b.職務(wù)級(jí)別'；

createtemptable（'應(yīng)發(fā)放補(bǔ)償金額表'，s1）；

end.

二、統(tǒng)計(jì)該單位每月應(yīng)發(fā)放的車(chē)改補(bǔ)償金額標(biāo)準(zhǔn)

var i，j，g，c，l；

begin

ShowMsg（'現(xiàn)在開(kāi)始查詢(xún)統(tǒng)計(jì)應(yīng)發(fā)放的車(chē)改補(bǔ)償金額'）；

g：=（'select sum（應(yīng)發(fā)放補(bǔ)償金額）from應(yīng)發(fā)放補(bǔ)償金額表'）；

j：=CreateQ（g，-1）；

i：=Qeof（j）；

if i<>1 then

begin

repeat

AddTransrslt（j，'應(yīng)發(fā)放補(bǔ)償金額'）；

i：=Qmov（j，1）；

i：=Qeof（j）；

until i=1；

TransBatch（j，'應(yīng)發(fā)放補(bǔ)償金額'）；

ShowMsg（'具體明細(xì)見(jiàn)疑點(diǎn)表中“應(yīng)發(fā)放補(bǔ)償金額”'）；

end

end.

三、通過(guò)公務(wù)用車(chē)交通費(fèi)用支出情況統(tǒng)計(jì)明細(xì)表按月統(tǒng)計(jì)該單位實(shí)際發(fā)放的補(bǔ)償金額

var s1；

begin

s1：='select 月份，sum（發(fā)放交通費(fèi)補(bǔ)償） as 實(shí)際發(fā)放補(bǔ)償金額 from 公務(wù)用車(chē)交通費(fèi)用支出情況統(tǒng)計(jì)明細(xì)表 group by 月份'；

createtemptable（'實(shí)際發(fā)放補(bǔ)償金額表'，s1）；

end.

四、用實(shí)際發(fā)放補(bǔ)償金額減去得出的每月應(yīng)發(fā)放的車(chē)改補(bǔ)償金額標(biāo)準(zhǔn)，發(fā)現(xiàn)該單位在實(shí)際發(fā)放當(dāng)中多發(fā)補(bǔ)償?shù)男袨?/p>

var i，j，g，c，l；

begin

ShowMsg（'現(xiàn)在開(kāi)始查詢(xún)多發(fā)放的車(chē)改補(bǔ)償金額'）；

g：=（'select 月份，實(shí)際發(fā)放補(bǔ)償金額-48600 from 實(shí)際發(fā)放補(bǔ)償金額表'）；

j：=CreateQ（g，-1）；

i：=Qeof（j）；

if i<>1 then

begin

repeat

AddTransrslt（j，'多發(fā)放的車(chē)改補(bǔ)償金額'）；

i：=Qmov（j，1）；

i：=Qeof（j）；

until i=1；

TransBatch（j，'多發(fā)放的車(chē)改補(bǔ)償金額'）；

ShowMsg（'具體明細(xì)見(jiàn)疑點(diǎn)表中“多發(fā)放的車(chē)改補(bǔ)償金額表”'）；

end

else

begin

ShowMsg（'沒(méi)有多發(fā)放的車(chē)改補(bǔ)償金額'）；

end；

end.

（1）根據(jù)取得的該單位交通經(jīng)費(fèi)支出情況統(tǒng)計(jì)明細(xì)表，按年度統(tǒng)計(jì)各項(xiàng)交通費(fèi)用的支出明細(xì)，生成交通費(fèi)用支出匯總表

var s1；

begin

s1：='select 年度，sum（發(fā)放交通費(fèi)補(bǔ)償）as發(fā)放交通費(fèi)補(bǔ)償合計(jì)，sum（燃油費(fèi)）as燃油費(fèi)合計(jì)，sum（維修保養(yǎng)費(fèi)）as維修保養(yǎng)費(fèi)合計(jì)，sum（車(chē)輛保險(xiǎn)費(fèi)）as車(chē)輛保險(xiǎn)費(fèi)合計(jì)，sum（過(guò)路過(guò)橋費(fèi)）as過(guò)路過(guò)橋費(fèi)合計(jì)，sum（車(chē)輛裝飾費(fèi)）as車(chē)輛裝飾費(fèi)合計(jì)，sum（非編司機(jī)工資及保險(xiǎn)）as非編司機(jī)工資及保險(xiǎn)合計(jì)，sum（出車(chē)補(bǔ)助）as出車(chē)補(bǔ)助合計(jì)，sum（租車(chē)費(fèi)）as租車(chē)費(fèi)合計(jì)，sum（其他與公車(chē)相關(guān)費(fèi)用）as其他與公車(chē)相關(guān)費(fèi)用合計(jì)from交通經(jīng)費(fèi)支出情況統(tǒng)計(jì)明細(xì)表group by年度 '；

createtemptable（'交通費(fèi)用支出匯總表'，s1）；

end.

（2）根據(jù)生成的交通費(fèi)用匯總表，按年度匯總交通費(fèi)用的總計(jì)支出，生成年度交通費(fèi)用匯總表

var s1；

begin

s1：=' select 年度，sum（發(fā)放交通費(fèi)補(bǔ)償合計(jì)）+sum（燃油費(fèi)合計(jì)）+sum（維修保養(yǎng)費(fèi)合計(jì)）+sum（車(chē)輛保險(xiǎn)費(fèi)合計(jì)）+sum（過(guò)路過(guò)橋費(fèi)合計(jì)）+sum（車(chē)輛裝飾費(fèi)合計(jì)）+sum（非編司機(jī)工資及保險(xiǎn)合計(jì)）+sum（出車(chē)補(bǔ)助合計(jì)）+sum（租車(chē)費(fèi)合計(jì)）+sum（其他與公車(chē)相關(guān)費(fèi)用合計(jì)） as 年度交通費(fèi)用匯總 from 交通費(fèi)用支出匯總表group by 年度'；

createtemptable（'年度交通費(fèi)用匯總表'，s1）；

end.

（3）根據(jù)取得的該單位人員表，按年度計(jì)算該單位的總?cè)藬?shù)，生成年度人員匯總表

var s1；

begin

s1：=' select 年度，sum（縣級(jí)）+sum（副縣級(jí)）+sum（正科級(jí)）+sum（副科級(jí)）+sum（一般人員） as 年度人員匯總 from 人員表 group by 年度'；

createtemptable（'年度人員匯總表'，s1）；

end.

五、根據(jù)生成的年度交通費(fèi)

用匯總表和年度人員匯總表，以年度總交通費(fèi)用支出除以年度總?cè)藬?shù)，按年度計(jì)算人均交通費(fèi)用支出

var i，j，g，c，l；

begin

g：=（' select a.年度 AS 年，年度交通費(fèi)用匯總/年度人員匯總 as 人均年度交通費(fèi)用支出 from 年度交通費(fèi)用匯總表 a join 年度人員匯總表 b on a.年度=b.年度'）；

j：=CreateQ（g，-1）；

i：=Qeof（j）；

if i<>1 then

begin

repeat

AddTransrslt（j，'人均年度交通費(fèi)用支出'）；

i：=Qmov（j，1）；

i：=Qeof（j）；

until i=1；

TransBatch（j，'人均年度交通費(fèi)用支出'）；

ShowMsg（'具體明細(xì)見(jiàn)疑點(diǎn)表中“人均年度交通費(fèi)用支出”'）；

OPutChart（j，'年'，'人均年度交通費(fèi)用支出，clred'）；

end

end.

通過(guò)運(yùn)用SQL語(yǔ)句和AO系統(tǒng)的自動(dòng)審計(jì)功能對(duì)公務(wù)用車(chē)改革執(zhí)行情況進(jìn)行審計(jì)，發(fā)現(xiàn)該單位存在多發(fā)交通補(bǔ)貼，部分年度、月份用車(chē)費(fèi)用較高等問(wèn)題。審計(jì)組對(duì)此提出了加強(qiáng)制度管理、強(qiáng)化會(huì)計(jì)稽核審核等有針對(duì)性的審計(jì)建議，督促該單位加強(qiáng)公務(wù)用車(chē)改革的管理工作。