贷款交易总结

1、贷款联机业务分期贷款结息正常利息：滚动天数 = 当前会计日期(系统的clr_date) - 上次交易日期(借据的lst_tx_date)利息积数 = 累计利息积数(借据的total_weit) + 贷款余额(借据的balance)*滚动天数利息记录进贷款利息登记簿逾期利息：分期记录的逾期罚息逾期天数 = 当前会计日期(系统的clr_date) - 上次交易日期(计划还款记录的last_int_date)逾期金额 = 应还金额(rtnamt) - 记账金额(acctamt)逾期罚息 = 逾期金额 * 逾期天数 * 执行利率 * 罚息比例逾期罚息 = 逾期金额 * 逾期天数利息入贷款利息分段计息表

2、到期贷款结息正常利息：滚动天数 = 当前会计日期(系统的clr_date) - 上次交易日期(借据的lst_tx_date)利息积数 = 累计利息积数(借据的total_weit) + 贷款余额(借据的balance)*滚动天数利息记录进贷款利息登记簿逾期、呆滞、挤占挪用利息：利息 = 正常利息 + 罚息 = 正常利息 * ( 1 + 罚息比例 )利息记录进贷款利息登记簿复利滚动天数 = 当前会计日期(系统的clr_date) - 上次收息日期(利息记录的old_date)结算金额 = 利息金额(int_bal) + 复利余额(re_bal) - 已还利息(repay_int)积数 = 利息累

3、计积数 + 结算金额 * 滚动天数正常复利 = 积数 * 执行利息逾期复利 = 积数 * 执行利息 *（ 1 + 罚息比例 ）92001 贷款主档开立操作：step1、登记主档登记簿step2、登记开销户登记簿关键字段的使用功能: 1. 扣息方式 pay_int_mthd 0不自动扣息 1自动扣息 批处理TX10310交易通过此字段筛选需扣息的贷款分户2. 主档的状态 acct_state 0正常 1销户 2移出做92008 贷款主档清理时，贷款主档的状态由正常变为销户(只有正常状态的主档可以发生销户，移出状态的不允许销户)做92013贷款主档移出时，贷款主档的状态由正常变为移出(只有正常状态

4、的主档可以发生移出，销户状态的不允许移出)不自动扣款方式：交易界面/*状态、计息方式、自动扣息标志、自动扣息账号、累计发放金额、累计收回金额、累计核销金额*/select t.acct_state, t.i_mthd, t.pay_int_mthd, t.pay_int_acct, t.total_exd_loan, t.total_loan_coll, t.total_canc_loan, t.* from kernel.lnmst_mst t where t.cust_id = B0000000000148904693 and t.start_date = 20170831;/*开户日期、

5、账户开销标志、账户号码、机构号、客户id、账别*/select t.open_date, t.state_flag, t.account, t.unit_code, t.cust_id, t.acct_type, t.* from kernel.rgt_opn_cls t where t.account = 100183608323;打印的凭证：主档开设清单自动扣息方式：交易界面：扣息账号：20322072200100000387491/*状态、计息方式、自动扣息标志、自动扣息账号、累计发放金额、累计收回金额、累计核销金额*/select t.acct_state, t.i_mthd, t.p

6、ay_int_mthd, t.pay_int_acct, t.total_exd_loan, t.total_loan_coll, t.total_canc_loan, t.* from kernel.lnmst_mst t where t.cust_id = B0000000000148904693 and t.ln_account=100183608440 and t.start_date = 20170831;/*开销户登记簿*/*开户日期、账户开销标志、账户号码、机构号、客户id、账别*/select t.open_date, t.state_flag, t.account, t.un

7、it_code, t.cust_id, t.acct_type, t.* from kernel.rgt_opn_cls t where t.account = 100183608440;打印凭证：#define INTDEPSUBJ40101 3800 /*40101储备企业活期存款*/#define INTDEPSUBJ40102 3801/*40102购销企业活期存款*/#define INTDEPSUBJ40103 3802 /*40103加工企业活期存款*/#define INTDEPSUBJ40104 3803 /*4010产业化龙头企业活期存款*/#define INTDEPSU

8、BJ40105 3804 /*40105机关团体活期存款*/#define INTDEPSUBJ40199 3805 /*40199其他活期存款*/ 必须指定资金来源的科目交易流程：1. 黑名单检验BlackList_Check(vs_cust_id,1,vs_black_id,vv_Send_Data.ret_code);2. 产生贷款主档代码Fln_Create_Mst_Account(vs_cust_id, vs_ln_account);3. 检查客户信息，先检查单位客户表cirgt_co_binfo，然后检查个人客户表cirgt_pers_binfo4. 自动扣息，则检查扣息账户合法性

9、KDPCHECK(vv_Mst_Data.pay_int_acct,vs_depOpenUnit,vs_Tmp_chk,vs_depAcctType, vs_Tmp_chk,&vd_Tmp_chk,&vd_Tmp_chk,strErrCode,&vi_depSubj);5. 特殊科目的扣息账户检查资金来源标志6. 建立贷款主档信息Fln_Create_Mst_Mst( &vv_Mst_Data );7. 登记开销户登记簿INSERT INTO rgt_opn_cls VALUES (:vv_Rgt_Opn_Data);8. 登记交易流水信息updateflow(vv_pFlow_Data, &

10、vv_FlowBuf);92020 贷款主档查询92010 主档信息修改能改动信息：扣息方式、扣息账户、资金来源交易界面：修改扣息账户为20322072200100000370221打印凭证：92002 贷款发放到期贷款操作：step1、核对主档，黑名单检验，step2、核对准贷证，准贷证的状态必须为正常“0”，业务类型必须为“10”，updtranf 冲账标志必须为正常“0”；step3、建立贷款分户step4、修改总帐帐首户数step5、更新准贷证信息step6、登记借据登记簿step7、发放贷款，会计记账、补登利息借：00000100183607464000011 贷：203620499

11、00100000088531分期贷款前置交易：1、92070贷款发放准贷证维护(业务种类10)2、92104还款计划表手工维护准贷证维护：select t.loanno, t.loandate, t.matudate,t.status, t.updtranf, t.* from kernel.lnrgt_permit t where t.workdate = 20170831 and t.accno = 00000100183608323;还款计划表维护：select * from kernel.lnrgt_plan_tmp t where t.loanno=10018360832300011

12、;贷款发放：还款计划表：会计分录：借：贷款科目 贷：活期存款科目贷款主档累计发放金额50000.55元贷款分户信息：/*贷款分户账*/*发放日期、到期日期、科目、发放金额、余额、收回金额、状态、四级标志、五级标志、八级标志、复利标志(取自内部科目字典表)、分段标志、表内外标志*/ select _date, t.due_date, t.subject, t.loan_bal, t.balance, t.total_loan_coll, t.acct_state, t.four_flag, t.five_flag, t.eight_flag, t.re_int_flag, t.spli

13、t_flag, t.in_out_flag, t.* from kernel.lnmst_dtl t where t.ln_account = 100183608323 and t.detail_acct = 00000100183608323000011;利息信息：/*应收贷款利息、贷款利息收入、应收未收贷款利息*/select * from kernel.smctl_isubjdict a where a.in_subject in (select t.subj1 from kernel.smctl_isubjdict t where t.subject = 122 union selec

14、t t.subj3 from kernel.smctl_isubjdict t where t.subject = 122 union select t.rcv_int_subj from kernel.smctl_isubjdict t where t.subject = 122);凭证打印：借款借据92021 借据信息查询 按主档查询要点：应收利息账号拼写 核算主体号+账别+应收利息科目号+序号应收利息科目 内部客户字典subj1字段对应的外部科目序号 内部客户字典subj2字段值应收未收利息账号拼写 核算主体号+账别+应收未收利息科目号+序号应收未收利息科目 内部客户字典rcv_int_

15、subj字段对应的外部科目序号 内部客户字典off_int_subj字段值92030 贷款发放差错冲正维护新的准贷证记录，借据编号不变，金额为冲正金额绝对值，冲正标识为3updtranf 冲账标志：0.正常 1.红蓝字冲借 2.红蓝字冲贷 3.双方红字冲帐（红字单笔) 4.双方蓝字补帐(蓝字单笔)上次结息日大于贷款分户的起息日期时，登记分段记息表会计分录更新贷款分户表修改贷款主档发放累计登记差错登记薄登记贷款明细表更新准贷证，修改状态为已处理，登记流水号92005 贷款转呆账会计分录： 借：呆账科目 贷：原贷款科目1. 取准贷证信息，检查准贷证状态（转呆账前必须先开立“60”的准贷证，科目的八

16、级分类标志必须是“7”呆账贷款，updtranf 冲账标志必须为正常“0”）；SELECT * INTO :vv_lnrgt_permit FROM lnrgt_permit WHERE seqno = :vchr_no AND loanno = :vchr_code AND loansqno = 000 AND workdate = :vv_pFlow_Data-tx_date AND brno = :brno;2. 检查凭证种类,必须是形态调整通知单2093. 取转入方科目信息，检查科目合法性（科目的八级分类标志必须是“7”呆账贷款），取呆账科目信息，包括八级分类标志，四级分类标志，五级分

17、类标志，复利标志，计息方式为不计息；Fln_Get_Smctl_Isubjdict(vv_new_lnmst_dtl.subject,&Isubjdict )4. 取原贷款分户账信息，检查分户状态，必须为正常“0”；Fln_Get_MstDtl_Data(vs_ln_account,vs_detail_acct,&vv_lnmst_dtl)5. 取原贷款分户的科目信息，为后面打印借贷方凭证作数据准备；Fln_Get_Smctl_Isubjdict(vv_lnmst_dtl.subject,&Isubjdict1 )6. 登记新老贷款分户的贷款明细账，不同点包括贷款余额，上日余额，借贷方金额；7

18、. 修改借据登记簿的借据状态为“4”呆账；8. 取贷款还款方式，对于分期还款方式贷款操作还款计划进历史表，正式还款计划记录删除，借据登记簿的还款方式变更为定期9. 调用ak2000记会计分录10. 检查贷款分户的情况，不能有本金积数（未还利息余额、复利余额和利息积数不予理会）；更新贷款分户信息（数据为第3步中取的内部科目数据最重要）11. 登记交易流水信息12. 处理准贷证记录，修改准贷证状态为已处理，登记准贷证状态流水号13. 调用AkServer检查借贷平衡；14. 下传交易数据到前台。92006呆账贷款核销会计分录：本金： 借： 212呆账损失准备科目（余额方向为贷方的内部户） 贷：呆账

19、贷款科目，记呆账贷款分户账收：820已核销呆账贷款本金利息：收：821已核销呆账贷款利息表内：借：213应收利息（红字）贷：701利息收入（红字）表外：付：801应收未收利息1. 黑名单校验BlackList_Check(vs_lnAccount,4,vs_black_id,c_Send_Data.ret_code)2. 取借据登记簿记录信息SELECT detail_acct INTO :vs_detailAcct1 FROM lnrgt_loan WHERE ln_account = :vs_lnAccount AND loanno = :vchr_code;3. 取准贷证信息，检查准贷证

20、状态（转呆账前必须先开立“80”的准贷证）；4. 更新借据登记簿记录，补充域1登记为准贷证的wklon15. 取主档信息，检查主档的状态(必须是正常的主档)；SELECT * INTO :vv_lnmstMst FROM lnmst_mst WHERE unit_code=:vs_unitCode AND ln_account=:vs_lnAccount;6. 检查分户账信息，分户账状态必须为正常“0”；7. 查看是否是DEBTISUBJ1_392或者DEBTISUBJ2_393科目，如果是则不检查贷款主档状态和贷款分户的四级分类标志（2181 /*392粮油抵债资产占用贷款*/ 2182 /

21、*393棉花抵债资产占用贷款*/）；否则贷款分户的四级分类标志必须为呆账“4”；8. 修改分户账，分户往日余额更新为当前余额，当前余额更新为0，分户状态改为“3”核销；9. 核销本金大于0，则登记当前明细表，记账10. 核销本金清单数据，11. 修改准贷证状态为已处理12. 登记准贷证状态流水号13. 修改借据状态为呆账核销状态514. 计算要核销的利息纪录15.92007已核销贷款收回会计分录：借: 客户活期户 贷: 212呆账损失准备 付: 820已核销呆账贷款(本金)1. 检查存款活期户合法性，校验存款账户客户与贷款客户是否一致KDPCHECK( vs_depAcct, vs_depUn

22、itCode, vs_tmpStr, vs_depAcctType, vs_depAcctName, &vd_tmpBal, &vd_tmpBal, strErrCode, &vi_depSubj );2. 循环开始，逐条处理还款记录3. 查询核销登记簿记录信息SELECT * INTO :vv_lnctlBadDebt FROM lnctl_bad_debt WHERE unit_code=:vs_unitCode AND cust_id=:vs_custId AND detail_acct=:vs_detailAcct;4. 取营改增前利息和营改增后利息5. 修改呆账核销登记簿6. 修改营

23、改增核销登记簿明细7. 登记当日贷款明细帐8. 循环结束9. 插入冲正数据登记簿10. 产生记账分录流水11. 登记交易流水信息12. 写凭证数据信息92008 贷款主档清理1. 取主档信息，检查主档的状态(必须是正常的主档才可执行清理)SELECT * INTO :vv_LnmstMst FROM lnmst_mst WHERE unit_code=:strUnit_code AND ln_account=:ln_account;2. 逐个检查贷款分户的账户情况循环开始2.1 取贷款分户信息SELECT * FROM lnmst_dtl WHERE unit_code=:strUnit_co

24、de AND ln_account=:ln_account;2.2 检查分户状态（必须为正常0或者核销3）2.3 必须无余额 balance 不能大于0.0052.4 对分户进行结息,若结出的利息满一分钱,就不能销户 调用函数Fln_Cal_Int(ln_account,detail_acct,vs_txDate,&vd_int_amt)，先计算分户积数=分户累计积数+余额*间隔日期；间隔日期：(daysBetween(vs_tx_date, lst_tx_date,&vi_total_days)交易日期：vs_tx_date上次动户日期：lst_tx_date取执行利率，Fln_Get_Ex

25、ec_Irate( Lnmst_Dtl.irate_code, Lnmst_Dtl.ratecode_date, , Lnmst_Dtl.split_flag, Lnmst_Dtl.irate_flo_scale, Lnmst_Dtl.four_flag, &Exec_Irate ) 分段计息表统计未入帐利息SELECT sum(sh_int),count(*) INTO :Split_Int,:Count FROM lnctl_int WHERE detail_acct=:DetailAcct AND into_acct_flag= 0 ;入账标志：into_acct_flag 0未入，1入

26、账 Int_Amt = Split_Int + (Exec_Irate * Total_Weit)/(360*100) ;总的利息=分段利息+滚动利息2.5 检查欠息 查询所有利息记录 循环开始 检查结息余额和复利余额，vv_lnmst__bal-vv_lnmst_rcv.repay_int+ vv_lnmst_rcv.re_bal 若复利标志re_int_flag为1，则检查未结出的复利，积数=利息累计积数+滚动积数，vd_intWeit=vv_lnmst__weit+(vv_lnmst__bal-vv_lnmst_rcv.repay_int+vv_

27、lnmst_rcv.re_bal)*days;结出的复利利息=积数*利率/* 如果借据的八级分类标志为6(挤占挪用), 或者四级标志为2(逾期) 3(呆滞)的状态 计罚息比例 */ if (vvp_lnmst_dtl-eight_flag0 = EIGHT_FLAG_6| vvp_lnmst_dtl-four_flag0 = FOUR_FLAG_2 | vvp_lnmst_dtl-four_flag0 = FOUR_FLAG_3 ) vd_reint = vd_intWeit*exec_irate*(1+vvp_lnmst_dtl-id_rate)/36000; else vd_reint =

28、 vd_intWeit*exec_irate/36000; 循环结束2.6 修改总账帐首户数循环结束3. 修改主挡的状态为销户1；4. 修改分户帐状态为销户1；5. 修改开销户登记簿（只有一个主档，按主档登记，并非按分户登记）6. 若是抵押/质押贷款,销抵押物品登记簿SELECT sum(pledge_value),count(*) INTO :vd_pledgeValue,:vi_count FROM rgt_pledge WHERE account=:ln_account AND wrtf_flag=0;UPDATE rgt_pledge SET wrtf_flag=1, wrtf_dat

29、e=:vs_txDate, wrtf_tlr=:c_pCli_Data-operator WHERE account=:ln_account;7. 记表外分录:付抵押物品8. 填充表外科目付出凭证数据，打印表外付出凭证9. 登记交易流水信息92011 贷款分户结息1. 清理临时表数据EXEC SQL delete from lnmst_rcv_tmp where ln_account = :vs_ln_account;2. 取主档信息，检查主档的状态(必须是正常的主档才可执行)Fln_Get_MstMst_Data(vs_ln_account,vs_unit_code,&vv_lnmst_ms

30、t);3. 循环处理每张结息的借据4. 取贷款分户帐号信息5. 从前台上传的record中取贷款分户的还款方式(到期或者分期)6. 取该借据上次结息日期a) 若该贷款分户没有结过息，则取贷款分户的结息日期int_dateb) 若该贷款分户已经结过息，则取利息登记簿中最大的结息日期int_date7. 取贷款的取科目信息8. 计算贷款分户的利息a）分期贷款（注意：借据上次动户日期lst_tx_date结息后会改成当前清算日期） 正常利息滚动天数 = 当前会计日期(系统的clr_date) - 上次交易日期(借据的lst_tx_date)利息积数 = 累计利息积数(借据的total_weit) +

31、 贷款余额(借据的balance)*滚动天数 利息记录进贷款利息登记簿 逾期利息分期记录的逾期罚息逾期天数 = 当前会计日期(系统的clr_date) - 上次交易日期(计划还款记录的last_int_date)逾期金额 = 应还金额(rtnamt) - 记账金额(acctamt)逾期罚息 = 逾期金额 * 逾期天数 * 执行利率 * 罚息比例逾期罚息 = 逾期金额 * 逾期天数 利息入贷款利息分段计息表b) 到期贷款 （注意：借据上次动户日期lst_tx_date结息后会改成当前清算日期） 正常利息：滚动天数 = 当前会计日期(系统的clr_date) - 上次交易日期(借据的lst_tx_

32、date)利息积数 = 累计利息积数(借据的total_weit) + 贷款余额(借据的balance)*滚动天数 利息记录进贷款利息登记簿逾期、呆滞、挤占挪用利息：利息 = 正常利息 + 罚息 = 正常利息 * ( 1 + 罚息比例 ) 利息记录进贷款利息登记簿9. 插入利息临时表lnmst_rcv_tmp10. 结算复利（复利余额和利息积数此时变动，还有利息收取92009时可能变动复利余额，计算累计复利积数,若是结息后的第一个工作日来还息,则这次还的利息不计复利,否则要计复利，坑啊）取利息登记簿的re_int_flag标志：若非1，则无需结算复利，否则，滚动天数 = 当前会计日期(系统的c

33、lr_date) - 上次收息日期(利息记录的old_date)结算金额 = 利息金额(int_bal) + 复利余额(re_bal) - 已还利息(repay_int) 积数 = 利息累计积数 + 结算金额 * 滚动天数正常复利 = 积数 * 执行利息 逾期复利 = 积数 * 执行利息 *（ 1 + 罚息比例 ）（注意：利息金额、已还利息 与复利余额、已还复利 的变化规则不一样， 欠还利息=利息金额 - 已还利息， 每次收取利息时， 累计已还利息，利息金额不动； 欠还复利=复利余额，每次收取复利时，累计已还复利，复利余额为剩余欠还复利。原因：利息记录可以根据结息次数产生多条，而复利数据依靠于

34、各条利息数据，且只负责该条数据，却有可能多次结出复利， 故当复利标志为1时，只有当欠还利息、复利余额和利息累计积数都为0，才没有复利产生）11. 组织数据打印相关凭证，借贷方凭证、利息清单等。会计分录：借：213应收利息 贷：701利息收入 贷：48002税费92018 贷款应收利息查询SELECT a.*, b.cust_name, b.acct_type, c.loanno FROM lnmst_rcv a, lnmst_mst b, lnrgt_loan c WHERE a.unit_code = b.unit_code AND a.ln_account = b.ln_account A

35、ND a.ln_account = c.ln_account AND a.detail_acct = c.detail_acct AND a.unit_code = 220722001 AND _bal - a.repay_int + a.re_bal 0.00 AND a.ln_account = 100183608323 AND a.in_out_flag = 0 ORDER BY _date, a.subject;92013 贷款主档移出为了检查利息转移信息，先做了贷款单户结息操作原有的贷款分户和利息信息：1. 检查移入机构，不能与移出机构相同2. 检查主档状态，必须

36、是正常状态0;3. 设置主档账户移出标志UPDATE lnmst_mst SET org_acct_state=acct_state, acct_state=:vc_acctState WHERE unit_code=:vs_unitCode AND ln_account=:vs_lnAccount;4. 设置分户状态移出标志2UPDATE lnmst_dtl SET org_acct_state=acct_state, acct_state=:vc_acctState WHERE unit_code=:vs_unitCode AND ln_account=:vs_lnAccount;5. 添

37、加贷款转移登记簿，in_flag = 0;/*转出尚未转入*/Fln_Create_Rgt_Ln_Move( &vv_rgtLnMove );6. 生成贷款转移清单数据 SELECT ROWNUM, a.cust_name, (SELECT subject FROM smctl_isubjdict WHERE in_subject = b.subject) AS subject, b.ln_account, b.detail_acct, _date, b.due_date, b.loan_bal, b.balance FROM lnmst_mst a, lnmst_dtl b WHE

38、RE a.unit_code = b.unit_code AND a.ln_account = b.ln_account AND b.ln_account = 100183608323 ORDER BY substr(b.detail_acct, 18, 22);7. 生成利息转移清单数据SELECT * FROM lnmst_rcv WHERE unit_code = :a AND ln_account = :a ORDER BY int_date, substr(detail_acct, 18, 22);拼应收利息账号Fln_Get_Int_Acct(c_Lnmst_Rcv.settle_unit_code,vv_lnmstMst.acct_type,c_Lnmst_Rcv.subject,0,vs_inIntAcct,strErrCode);取应收未收利息账号 营改增前 801(7001) 营改增后 98