一、概念

车辆违章罚没收入是交警部门在交通执法过程中，按照《道路交通安全法》对交通违章、乱停乱放等违规行为进行处罚产生的非税收入，纳入财政预算管理，实行“收支两条线”，支出通过部门预算进行安排，主要用于科技强警、外来人口管理、看守所建设等项目。

二、审计目标

检查交警部门在交通执法过程中，是否严格按《道路交通安全法》进行执法，具体对车辆违章罚没收入的真实性、完整性、合法性进行核查。通过分析和比对道路交通违法业务处理信息系统反映的电子信息和财务台账罚没收入，审查交警车辆违章执法过程中，是否存在应罚未罚的情况，验证罚没收入是否真实完整、合法合规。

三、所需数据

（1）基础表：道路交通违法主表。数据元素：序号,发现机关,发现机关名称,处埋分值,号牌种类,号牌号码,机动车所有人,交通方式,发证机关,车主信息地址,电话,通知书号,通知标记,通知日期,处罚方式,违法时间, 违,法地点代码,违法地址,违法行为,罚款金额,处理机关,处理机关名称,处理时间,处理标记,缴款方式,缴款日期,违法编号,决定书号,当事人,经办人,录入时间。

（2）基础表：道路交通违法历史记录表。数据元素：序号,发现机关,发现机关名称,处埋分值,号牌种类,号牌号码,机动车所有人,交通方式,发证机关,车主信息地址,电话,通知书号,通知标记,通知日期,处罚方式,违法时间,违,法地点代码,违法地址,违法行为,罚款金额,处理机关,处理机关名称,处理时间,处理标记,缴款方式,缴款日期,违法编号,决定书号,当事人,经办人,录入时间。

（3）基础表：道路交通违法删除表。数据元素：序号,发现机关,发现机关名称,处埋分值,号牌种类,号牌号码,机动车所有人,交通方式,发证机关,车主信息地址,电话,通知书号,通知标记,通知日期,处罚方式,违法时间,违,法地点代码,违法地址,违法行为,罚款金额,处理机关,处理机关名称,处理时间,处理标记,缴款方式,缴款日期,违法编号,决定书号,当事人,经办人,录入时间。

（4）基础表：2009年度交警罚没业务台账。数据元素：序号,号牌号码,车主信息地址,违法时间,违法地址,违法行为,罚款金额,处理机关名称,处理时间,缴款日期,决定书号,当事人。

四、内容和步骤

1、电子违章收入完整真实性审查。

通过调查，我市罚没收入未采取银行代缴的方式，交通违章行为人接到通知后在交警部门缴纳交通违法罚款，再由交警部门上缴财政非税收入管理局。交警部门对已处理违章纪录罚没入库登记台账。

首先，进行财务报表的数据核对。获取两个方面的财务账数字数据，一是市财政局国库2009年交警部门罚没收入及行政收费明细，二是市财政非税局市交警非税收入票据领用和缴销情况。同时，将交警财务应缴预算款科目反映的车辆违章罚没收入同市财政国库中的车辆违章罚没收入入库数核对，如果是一致，说明交警部门罚没收入做到已收缴罚没全部入库，不一致则说明交警已收缴罚没未完全入库。经过查证，发现财政入库数与交警财务账面反映应缴预算金额一致，交警部门收缴罚没已全数入库。

其次，进行电子数据的比对。经了解，交警部门财务应缴财政专户款包含电子警察和现场执法两方面的罚没收入。对“2009年度交警罚没业务台账”汇总罚款金额得到2009年电子警察收缴罚没收入。将2009年电子警察收缴罚没收入与取得的现场执法反映的收缴罚款金额总额相加，与财务应缴财政专户款账目进行核对，结果完全吻合。

通过上述操作，认为“2009年度交警罚没业务台账”中电子违章收入真实有效。

2、电子警察违章收入检查分析。

按照公安部技术标准，交警部门指定专职民警—操作员每天对交通电子监控设备自动抓拍的非现场执法信息照片与车管所车辆信息系统比对。确认车辆信息、违法类型，筛选确认后作为违章信息，录入道路交通违法业务处理系统。交通违章行为人缴纳违章罚款后，交警操作员将决定书号、缴款金额、缴款时间等录入道路交通违法业务处理系统，同时信息传递给车管所车辆信息系统作为办理年检等相关业务的依据。

（1）检查分析全市违章记录。

据了解,道路交通违章所有业务在道路交通违法业务处理系统中是以三张数据表vio_surveil、vio_surveil_his、vio_surveil_del，分别对应道路交通违法主表、道路交通违法历史记录表和道路交通违法删除表，分类管理。

首先，在道路交通违法业务处理系统中，分别以处理时间为2009年度作为查询条件，生成全市2009年度违章基础数据表：道路交通违法主表、道交通违法历史表、道路交通违法删除表。

然后，汇总三表生成“全市2009年已处理违章记录汇总”表，得到全市2009年已处理交通违章所有记录，全面了解2009年全市违章记录的详细情况。

（2）市直2009年道路违章数据真实性完整性分析。市直机关代码为4212010000，有效操作员有6个，代码为：086908、086958、087421、chen、087130、087116。根据“全市2009年已处理违章记录汇总”表，以字段“cljg”为“4212010000”，字段“jbr”为086908、086958、087421、chen、087130、087116为条件，生成“市直2009年道路违章数据”表，反映市直2009年度已处理违章记录总数。

3、应收未收罚没情况分析检查。

每条违章记录都会开出违章罚款决定书，因存在人为录入处罚信息，电子处理上，已处理的违章记录中，存在已收罚款和未收罚款的。审计分析是否存在对有关单位或人员虚假罚没，录入虚假处理信息，未做到应收尽收，当罚则罚。

对比台账罚没收入和电子系统数据，电子系统反映收入大于财务罚没收入数即为应收未收罚没收入。

（1）应收未收罚没收入审查。对比检查“市直2009年道路违章数据”表与“2009年度交警罚没业务台账”表中反映的罚没收入，查看两者间的罚没收入是否存在差异，是否存在罚没收入应收未收的情况。

经分析，“市直2009年道路违章数据”表中“jdsbh”字段，和“2009年度交警罚没业务台账”表中“决定书号”字段为同类字段，在“市直2009年道路违章数据”表中的决定书号不含有“2009年度交警罚没业务台账”的决定书号的所有记录，生成应收未收表，即为违章未罚款的记录。

（2）应收未收罚没收入分析统计。对“应收未收表”，汇总“fkje”字段，得到应罚未罚金额总额。图7-5车辆违章罚没收入审计方法流程图五、计算机语言

（一）电子违章收入完整真实性审查

///////////////////////////////////////////////////////////////// //////////

//电子违章收入完整真实性审查

///////////////////////////////////////////////////////////////// //////////

//定义变量

var CurQuery,IsEmpty,CurNum,SqlStr;

begin

///////////////////////////////////////////////////////////////// //////////

////步骤一.电子违章收入完整真实性审查

///////////////////////////////////////////////////////////////// //////////

///////////////////////////////////////////////////////////////// //////////

//显示查询SQL

SqlStr:='select sum([罚款金额])as 2009年电子警察收缴罚没收入from[业务_源_2009年度交警罚没业务台账]';

ShowMsg('汇总2009年电子警察收缴罚没收入的SQl语句为:'+SqlStr); //执行查询SQL

CurQuery:=createq(SqlStr,-1); //查询结果集是否为空

IsEmpty:=qeof(CurQuery);

if IsEmpty#1 then

begin

//循环将查询结果放入业务疑点临时库repeat

AddTransRslt(CurQuery,'步骤一.电子违章收入完整真实性审查'); IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1;

//将临时库结果集放入疑点库

TransBatch(CurQuery,'步骤一.电子违章收入完整真实性审查'); end else begin

ShowMsg('步骤一.电子违章收入完整真实性审查 电子违章收入不真实');

end;

ShowMsg('2009年度交警罚没业务台账中电子违章收入真实有效');

end.

（二）电子警察违章收入检查分析

////////////////////////////////////////////////////////////

//电子警察违章收入检查分析

////////////////////////////////////////////////////////////

//定义变量

var SqlStr1,SqlStr2;

Begin

////////////////////////////////////////////////////////////

//步骤二.1.全市违章记录检查分析_生成全市2009年已处理违章记录汇总表

SqlStr1:='select

XH,CJJG,CJJGMC,CLFL,HPZL,HPHM,JDCSYR,SYXZ,JTFS,FZJG,ZSXZQH,ZSXXDZ, DH,TZSH,TZBJ,TZRQ,CJFS,WFSJ,WFDD,WFDZ,WFXW,FKJE,ZQMJ,CLJG,CLJGMC, CLSJ,CLBJ,JKFS,JKBJ,JKRQ,PZBH,QZCLBJ,WFBH,JDSBH,DSR,JBR,LRR,LRSJ From (Select XH,CJJG,CJJGMC,CLFL,HPZL,HPHM,JDCSYR,SYXZ,JTFS,FZJG,ZSXZQH,ZSXXDZ,

DH,TZSH,TZBJ,TZRQ,CJFS,WFSJ,WFDD,WFDZ,WFXW,FKJE,ZQMJ,CLJG,CLJGMC, CLSJ,CLBJ,JKFS,JKBJ,JKRQ,PZBH,QZCLBJ,WFBH,JDSBH,DSR,JBR,LRR,LRSJ From [源 _道 路 交 通 违 法 主 表 ] Union All Select XH,CJJG,CJJGMC,CLFL,HPZL,HPHM,JDCSYR,SYXZ,JTFS,FZJG,ZSXZQH,ZSXXDZ, DH,TZSH,TZBJ,TZRQ,CJFS,WFSJ,WFDD,WFDZ,WFXW,FKJE,ZQMJ,CLJG,CLJGMC, CLSJ,CLBJ,JKFS,JKBJ,JKRQ,PZBH,QZCLBJ,WFBH,JDSBH,DSR,JBR,LRR,LRSJ from [源_道路交通违法历史表]UnionAllSelect XH,CJJG,CJJGMC,CLFL,HPZL,HPHM,JDCSYR,SYXZ,JTFS,FZJG,ZSXZQH,ZSXXDZ, DH,TZSH,TZBJ,TZRQ,CJFS,WFSJ,WFDD,WFDZ,WFXW,FKJE,ZQMJ,CLJG,CLJGMC, CLSJ,CLBJ,JKFS,JKBJ,JKRQ,PZBH,QZCLBJ,WFBH,JDSBH,DSR,JBR,LRR,LRSJ from[源_道路交通违法删除表])a';

CreateTempTable('全市2009年已处理违章记录汇总表',SqlStr1);

ShowMsg('1.电子警察违章收入检查分析,检查分析全市违章记录结束');

////////////////////////////////////////////////////////////

//步骤二.2.市直2009年道路违章数据真实性完整性分析_生成市直2009年道路违章数据

SqlStr2:='select*from[全市2009年已处理违章记录汇总表]where [CLJG]=''4212010000''andjbr=''086908''orjbr=''086958''or jbr=''087421''or jbr=''chen''or jbr=''087130''or jbr=''087116'''; CreateTempTable('市直2009年道路违章数据',SqlStr2);

////////////////////////////////////////////////////////////

ShowMsg('2.电子警察违章收入检查分析,市直2009年道路违章数据真实性完整性分析结束');

end.

（三）应收未收罚没情况分析检查

////////////////////////////////////////////////////////////

//应收未收罚没情况分析检查

////////////////////////////////////////////////////////////

//定义变量var SqlStr1,CurQuery,IsEmpty,CurNum,SqlStr2;

Begin

////////////////////////////////////////////////////////////

//步骤三.1.应收未收罚没情况分析检查_应收未收罚没收入审查(生成应收未收表)

////////////////////////////////////////////////////////////

SqlStr1:='selectDISTINCT*from[市直2009年道路违章数据]where [JDSBH]not in(select[决定书号]from[源_2009年度交警罚没业务台账])';

CreateTempTable('应收未收',SqlStr1);

ShowMsg('1.应收未收罚没情况分析检查,应收未收罚没收入审查,生成应收未收表结束');

///////////////////////////////////////////////////////////////// //////////

////步骤三.2.应收未收罚没情况分析检查_应收未收总额

///////////////////////////////////////////////////////////////// //////////

///////////////////////////////////////////////////////////////// //////////

//显示查询SQL

SqlStr2:='select sum(fkje)as应收未收总额from[应收未收]';

ShowMsg('应收未收总额SQl语句为:'+SqlStr2);

//执行查询SQL

CurQuery:=createq(SqlStr2,-1); //查询结果集是否为空

IsEmpty:=qeof(CurQuery);

if IsEmpty#1 then

begin

//循环将查询结果放入业务疑点临时库repeat

AddTransRslt(CurQuery,'步骤三.2.应收未收罚没情况分析检查_应收未收总额');

IsEmpty:=qmov(CurQuery,1); IsEmpty:=qeof(CurQuery); until IsEmpty=1;

//将临时库结果集放入疑点库

TransBatch(CurQuery,'步骤三.2.应收未收罚没情况分析检查_应收未收总额'); end else begin

ShowMsg('步骤三.2.应收未收罚没情况分析检查应收未收总额'); end; end.

参考文献[1]潘和、周清霞.车辆违章罚没收入计算机审计方法.审计署方法,2010.6 [2]审计署行政事业审计司.部门预算执行审计指南[M].中国时代经济出版社,2007.11.