巧用SQL语句检查公务用车改革执行情况.docVIP

巧用SQL语句检查公务用车改革执行情况 　　摘要：近年来，各地相继出台各项措施加强公务用车管理，并暂停增加新车购买，在较大程度上控制和遏制了公务车辆的规模和经费进一步增长，但仍在部分程度上存在着管理粗放、使用浪费、配备不均等、部分开支较大等一系列问题。笔者在对某单位进行公务用车改革执行情况的审计工作中，利用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 i1 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 i1 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（出车