计算机辅助审计
------- 行政审计
1.现金方法
审查除从银行提取现金以外,有无异常现金收入。
筛选出“借:现金,贷:不是银行存款” ,并且金额大于 1000 元的记录。
SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE (源凭证号 IN (SELECT DISTINCT 源凭证号
FROM 凭证库 WHERE LEFT( 科目编码 , 3) = '101' AND 借方金额 > 1000)) AND 贷方金额 <> 0 AND
LEFT( 科目编码 , 3) <> '102'
var a,b,i;
begin
a:=createq('SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE (源凭证号 IN (SELECT DISTINCT
源凭证号 FROM 凭证库 WHERE LEFT( 科目编码 , 3) = ''101'' AND 借方金额 > 1000)) AND 贷方金额 <>
0 AND LEFT( 科目编码 , 3) <> ''102''', -1);
b:=qeof(a);
if b#1 then
begin
repeat
i:=qfdvalue(a,' 源凭证号 ');
addvourslt(i);
b:=qmov(a,1);
b:=qeof(a);
until b=1;
end;
end.
2. 银行存款方法
与银行对帐单进行核对,审查这些转帐事项是否真实、合法。有无出租、出借帐户、挪用公款,非法出借
资金,隐瞒利息收入等问题。
注意审查有无通过银行存款一借一贷的会计处理进行出租、出借帐户、挪用公款,非法出借资金等违纪问
题。
筛选出“借:银行存款,贷:银行存款”的分录。
SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE LEFT( 科目编码 , 3) = '102' AND 借方金额 <> 0
AND 源凭证号 IN (SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE LEFT( 科目编码 , 3) = '102'
AND 贷方金额 <> 0)
var a,b,i;
begin
a:=createq('SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE LEFT( 科目编码 , 3) = ''102'' AND 借
方金额 <> 0 AND 源凭证号 IN (SELECT DISTINCT 源凭证号 FROM 凭证库 WHERE LEFT( 科目编码 ,
3) = ''102'' AND 贷方金额 <> 0)', -1);