利用SQL语句审查道路交通事故车物损失评估费收取情况的计算机审计方法

序号

结构化

非结构化

半结构化

1

2012年评估费征收明细表

√

2

**省道路交通事故车物损失评估费收费标准

√

步骤

内容

1

根据标的价计算应收的评估费金额,并生成应收评估费明细表。根据文件规定，评估费收取按照按差额累进法计收，因此此处采用case语句实现这一目标。

2

将"应收评估明细表"中增加一列"差额"为应收金额和实收金额之差,字符类型为数字型

3

更新"差额"，对该列赋值为应收金额和实收金额之差

4

再次查询"应收评估费明细表",差额大于0的为少收评估费的记录,小于0的为多收评估费的记录,计算少收和多收的金额.

步骤

内容

1

var sql ,c,d;

begin

sql:=' select *,应收金额=

case

when 标的价<'1000' then 80

when 标的价 between '1000' and '30000' then 80+(标的价-1000)*0.07

when 标的价 between '30001' and '60000' then 80+29000*0.07+(标的价-30000)*0.05

when 标的价 between '60001' and '90000' then  80+29000*0.07+30000*0.05+(标的价-60000)*0.03

when 标的价>'90000' then 80+29000*0.07+30000*0.05+30000*0.03+(标的价-90000)*0.01

end

from 评估费收取明细表' ;

  c:=createq(sql,-1);

  while qeof(c)<>1 do

  begin

  addtransrslt(c,'应征评估费明细表');

  d:=qmov(c,1);

  end;

transbatch(c,'应征评估费明细表');

end.

2

var sql ,c;

begin

sql:=' alter table 应收评估费明细表 add 差额 float ' ;

  c:=createq(sql,-1);

3

var sql ,c;

begin

sql:=' update 应收评估费明细表 set 差额=应收金额-金额 ' ;

  c:=createq(sql,-1);

4

var sql ,c,d;

begin

sql:=' select sum(差额) 少收合计 from 应收评估费明细表 where 差额>0 ' ;

  c:=createq(sql,-1);

while qeof(c)<>1 do

  begin

  addtransrslt(c,'少征评估费合计');

  d:=qmov(c,1);

  end;

transbatch(c,'少征评估费合计');

end.

5

var sql ,c,d;

begin

sql:=' select sum(差额) 多收合计 from 应收评估费明细表 where 差额<0 ' ;

  c:=createq(sql,-1);

while qeof(c)<>1 do

  begin

  addtransrslt(c,'多征评估费合计');

  d:=qmov(c,1);

  end;

transbatch(c,'多征评估费合计');

end.