巧用SQL语句检查公务用车改革执行情况
2014-12-02冯林
冯林
摘要：近年来，各地相继出台各项措施加强公务用车管理，并暂停增加新车购买，在较大程度上控制和遏制了公务车辆的规模和经费进一步增长，但仍在部分程度上存在着管理粗放、使用浪费、配备不均等、部分开支较大等一系列问题。笔者在对某单位进行公务用车改革执行情况的审计工作中，利用SQL语句和AO系统的自动审计功能检查公务用车改革的执行情况，查出了该单位在公务用车改革方面存在的问题，并有针对性地提出了审计建议。
关键词：SQL语句；公务用车改革；执行
近年来，随着各地采取定编配备、政府采购、多部门联合审批等各项措施加强公务用车管理，并暂停增加新车购买，在较大程度上控制和遏制了公务车辆的规模和经费进一步增长，但仍在部分程度上存在着管理粗放、使用浪费、配备不均等、部分开支较大等一系列问题。同时，由于更新报废制度建立的滞后，车辆老化、使用年限超限等用车问题不同程度地存在，对履行公务、车辆安全、建设节能型机关也造成了一定的影响。深化公务用车管理制度改革，尽快建立统一、规范、科学化的管理制度，对降低政府行政成本、规范职务消费、促进节能型机关建设具有十分重要的意义。近日，笔者在对某单位公务用车改革审计中，利用SQL语句和AO系统的自动审计功能检查公务用车改革的执行情况。具体方法如下：
一、对应发放的车改补偿金额进行统计
根据从第三方取得的人员表和车改办补偿发放标准表，生成新的应发放补偿金额表。
var s1；
begin
s1：='select a.职务级别，[2014年补偿标准]*[2014年人数] as 应发放补偿金额 from 人员表 a join 车改办补偿发放标准表 b on a.职务级别=b.职务级别'；
createtemptable（'应发放补偿金额表'，s1）；
end.
二、统计该单位每月应发放的车改补偿金额标准
var i，j，g，c，l；
begin
ShowMsg（'现在开始查询统计应发放的车改补偿金额'）；
g：=（'select sum（应发放补偿金额）from应发放补偿金额表'）；
j：=CreateQ（g，-1）；
i：=Qeof（j）；
if i<>1 then
begin
repeat
AddTransrslt（j，'应发放补偿金额'）；
i：=Qmov（j，1）；
i：=Qeof（j）；
until i=1；
TransBatch（j，'应发放补偿金额'）；
ShowMsg（'具体明细见疑点表中“应发放补偿金额”'）；
end
end.
三、通过公务用车交通费用支出情况统计明细表按月统计该单位实际发放的补偿金额
var s1；
begin
s1：='select 月份，sum（发放交通费补偿） as 实际发放补偿金额 from 公务用车交通费用支出情况统计明细表 group by 月份'；
createtemptable（'实际发放补偿金额表'，s1）；
end.
四、用实际发放补偿金额减去得出的每月应发放的车改补偿金额标准，发现该单位在实际发放当中多发补偿的行为
var i，j，g，c，l；
begin
ShowMsg（'现在开始查询多发放的车改补偿金额'）；
g：=（'select 月份，实际发放补偿金额-48600 from 实际发放补偿金额表'）；
j：=CreateQ（g，-1）；
i：=Qeof（j）；
if i<>1 then
begin
repeat
AddTransrslt（j，'多发放的车改补偿金额'）；
i：=Qmov（j，1）；
i：=Qeof（j）；
until i=1；
TransBatch（j，'多发放的车改补偿金额'）；
ShowMsg（'具体明细见疑点表中“多发放的车改补偿金额表”'）；
end
else
begin
ShowMsg（'没有多发放的车改补偿金额'）；
end；
end.
（1）根据取得的该单位交通经费支出情况统计明细表，按年度统计各项交通费用的支出明细，生成交通费用支出汇总表
var s1；
begin
s1：='select 年度，sum（发放交通费补偿）as发放交通费补偿合计，sum（燃油费）as燃油费合计，sum（维修保养费）as维修保养费合计，sum（车辆保险费）as车辆保险费合计，sum（过路过桥费）as过路过桥费合计，sum（车辆装饰费）as车辆装饰费合计，sum（非编司机工资及保险）as非编司机工资及保险合计，sum（出车补助）as出车补助合计，sum（租车费）as租车费合计，sum（其他与公车相关费用）as其他与公车相关费用合计from交通经费支出情况统计明细表group by年度 '；
createtemptable（'交通费用支出汇总表'，s1）；
end.
（2）根据生成的交通费用汇总表，按年度汇总交通费用的总计支出，生成年度交通费用汇总表
var s1；
begin
s1：=' select 年度，sum（发放交通费补偿合计）+sum（燃油费合计）+sum（维修保养费合计）+sum（车辆保险费合计）+sum（过路过桥费合计）+sum（车辆装饰费合计）+sum（非编司机工资及保险合计）+sum（出车补助合计）+sum（租车费合计）+sum（其他与公车相关费用合计） as 年度交通费用汇总 from 交通费用支出汇总表group by 年度'；
createtemptable（'年度交通费用汇总表'，s1）；
end.
（3）根据取得的该单位人员表，按年度计算该单位的总人数，生成年度人员汇总表
var s1；
begin
s1：=' select 年度，sum（县级）+sum（副县级）+sum（正科级）+sum（副科级）+sum（一般人员） as 年度人员汇总 from 人员表 group by 年度'；
createtemptable（'年度人员汇总表'，s1）；
end.
五、根据生成的年度交通费
用汇总表和年度人员汇总表，以年度总交通费用支出除以年度总人数，按年度计算人均交通费用支出
var i，j，g，c，l；
begin
g：=（' select a.年度 AS 年，年度交通费用汇总/年度人员汇总 as 人均年度交通费用支出 from 年度交通费用汇总表 a join 年度人员汇总表 b on a.年度=b.年度'）；
j：=CreateQ（g，-1）；
i：=Qeof（j）；
if i<>1 then
begin
repeat
AddTransrslt（j，'人均年度交通费用支出'）；
i：=Qmov（j，1）；
i：=Qeof（j）；
until i=1；
TransBatch（j，'人均年度交通费用支出'）；
ShowMsg（'具体明细见疑点表中“人均年度交通费用支出”'）；
OPutChart（j，'年'，'人均年度交通费用支出，clred'）；
end
end.
通过运用SQL语句和AO系统的自动审计功能对公务用车改革执行情况进行审计，发现该单位存在多发交通补贴，部分年度、月份用车费用较高等问题。审计组对此提出了加强制度管理、强化会计稽核审核等有针对性的审计建议，督促该单位加强公务用车改革的管理工作。
