农信社农户小额信用贷款利率执行问题AO审计初探
开篇：润墨网以专业的文秘视角，为您筛选了一篇农信社农户小额信用贷款利率执行问题AO审计初探范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！
以农为本、为农服务是农村信用社的办社宗旨,农信社立足于服务“三农”,积极发放农户小额信用贷款,全力支持农村经济发展,为广大农民服务,切实解决农民贷款难问题,从而实现农民增收、信用社增效的双赢目标。但是我们在信用社审计过程中发现农信社在发放农户小额信用贷款时还存在一些问题,部分农户小额信用贷款利率偏高,未按省联社规定执行,损害了农户利益。我们此次主要是对农信社自2007年(含)后至2009年6月份收回并结清的1年期农户小额信用贷款利率执行情况运用AO进行审计,下面简要介绍这个问题的审计过程和方法。
因为农户小额信用贷款的利率跟随中国人民银行规定的基准利率变化而变化,各个时间段的贷款利率是不同的,我省信用联社明确规定农户小额信用贷款执行利率不得超过同期人民银行规定基准利率的1.2倍。为此我们需要将各个时间段贷款数据分别比照当期的贷款基准利率,如果用SQL查询语句则需要反复多次进行查询,工作量大,而运用ASL程序进行审计则可以方便快捷地将所需数据筛选出来,只要再对筛选结果进行适当的处理就可以得出最终的审计结果。
一、数据采集及初步处理
通过对信用社信贷系统的分析,我们可以直接在其信贷系统前台采集数据,并导出为Excel格式文件。根据信贷系统中的查询功能,直接选择采集数据的条件,将2007年(含)后至2009年6月所有贷款数据查询出来并导出为Excel文件,这部分数据是包括了未结清数据和已结清数据。同时还需采集2007年(含)后至2009年6月的还款明细表。
数据采集完成后需要对采集的原始数据进行初步处理,将数据表中的有关日期的列值格式设置为“日期”型,并删除部分没用的字段,以减少数据量。经过初步处理后,再将原始数据导入到ao系统中。
二、数据分析
(一)在AO系统中,我们将贷款明细表进行分析,经过分析得知,并生成所需的“已结清1年期小额农贷明细中间表”。
SQL语句如下:
Select * into已结清1年期小额农贷明细中间表 from 2007年(含)后至2009年6月所有贷款数据 where datediff("d",贷款日期,到期日期)>185 and datediff("d",贷款日期,到期日期)
(二)运用ASL程序对上述生成的小额农贷明细表进行筛选,根据贷款时间的不同判断每笔小额农贷的贷款利率是否超过当时银行基准利率的1.2倍,如果超过则筛选出来,生成小额农贷利率超标明细表,并导出为疑点。然后到AO系统中的“疑点管理”中将已落实疑点数据表即小额农贷利率超标明细表导出为Excel表格,并对数据进行整理。
ASL程序如下:
var a,b,c,d;
begin
a:=CreateQ('select * from已结清1年期小额农贷明细中间表',-1);
b:=Qeof(a);
while b1 do
begin
c:=QFDValue(a,'贷款日期');
d:=QFDValue(a,'合同利率');
if c>'2005-12-31' and c5.58 then //基准利率为4.65
AddTransDout(a,'5.58');
if c>'2006-04-27' and c5.85 then //基准利率为4.875
AddTransDout(a,'5.85');
if c>'2006-08-18' and c6.12 then //基准利率为5.1
AddTransDout(a,'6.12');
if c>'2007-03-17' and c6.39 then //基准利率为5.325
AddTransDout(a,'6.39');
if c>'2007-05-18' and c6.57 then //基准利率为5.475
AddTransDout(a,'6.57');
if c>'2007-07-20' and c6.84 then //基准利率为5.7
AddTransDout(a,'6.84');
if c>'2007-08-21' and c7.02 then //基准利率为5.85
AddTransDout(a,'7.02');
if c>'2007-09-14' and c7.29 then //基准利率为6.075
AddTransDout(a,'7.29');
if c>'2007-12-20' and c7.47 then //基准利率为7.47
AddTransDout(a,'7.47');
if c>'2008-09-15' and c7.2 then //基准利率为6
AddTransDout(a,'7.2');
if c>'2008-10-08' and c6.93 then //基准利率为5.775
AddTransDout(a,'6.93');
if c>'2008-10-29' and c6.66 then //基准利率为5.55
AddTransDout(a,'6.66');
if c>'2008-11-26' and c5.58 then //基准利率为4.65
AddTransDout(a,'5.58');
if c>'2008-12-22' and c5.31 then //基准利率为4.425
AddTransDout(a,'5.31');
b:=Qmov(a,1); //将数据集的下一条记录赋值给变量b
b:=Qeof(a); //判断数据集是否为空
end; //循环结束
TransBatch(a,'利率超标汇总'); //把查询出的业务数据疑点导出到疑点管理中
end.
(三)将上一步骤生成并导的小额农贷利率超标明细表数据导入到AO系统中,然后与还款明细表关联查询,计算出结清贷款本息日至贷款日期的天数,然后贷款利息按日利率与贷款天数的乘积进行计算,生成2007～2009年结清本息小额农户信用贷款利率超标多收利息明细总表。
SQL语句如下:
select a.*,b.交易时间,datediff("d",a.贷款日期,b.交易时间) as 贷款天数,a.贷款金额*超标利率/30000*datediff("d",a.贷款日期,b.交易时间) as 超收利息 into超收利息明细表 from小额农贷利率超标明细表 a,还款明细 b where a.贷款号=b.贷款号 and b.余额=0
三、数据核实
最后我们可以通过超收利息明细表清楚的看出每一笔农户小额信用贷款利率超标情况,并且抽查部分贷款档案进行核实,核实无误后便可做出审计底稿和取证记录,最终确定被审计单位在农户小额信用贷款利率执行方面存在问题,2008年多收农户利息50多万元。
(作者单位:吉安市审计局)