微信还款导致的提前结清生成重复数据
This commit is contained in:
zhangbb
parent
183fbbfe2a
commit
e06f1c7509
@ -1,394 +1,408 @@
|
||||
create procedure proc_terminate_bill_income(IN l_contract_id varchar(200), IN l_flowunid varchar(200), IN L_INPUTUSERID varchar(200), IN L_INPUTORGID varchar(200))
|
||||
BEGIN
|
||||
DECLARE l_bill_money DOUBLE (22, 2) ;
|
||||
-- 可核销金额
|
||||
DECLARE l_adjust_type VARCHAR (32) ;
|
||||
-- 提前结清类型
|
||||
DECLARE l_payday_adjust VARCHAR (32) ;
|
||||
-- 提前结清日
|
||||
DECLARE l_handling_charge DOUBLE (22, 2) ; -- 违约手续费
|
||||
DECLARE l_SDHANDLING_CHARGE DOUBLE(22,2); -- 商定违约金
|
||||
DECLARE l_SDNOMINAL_PRICE DOUBLE(22,2); -- 商定留购价
|
||||
DECLARE l_FIST_CORPUS DOUBLE (22, 2) ;-- 一年内剩余利息
|
||||
DECLARE l_caution_money DOUBLE (22, 2) ;-- 客户保证金
|
||||
DECLARE l_OTHER_IN DOUBLE (22, 2) ;-- 其他应收
|
||||
DECLARE l_AGREED_DATEPENALTY DOUBLE (22, 2); -- 还款日差利息
|
||||
-- 本方银行、账户、账号、流水号
|
||||
DECLARE l_acc_number VARCHAR (32) ;
|
||||
DECLARE l_acc_bank VARCHAR (32) ;
|
||||
DECLARE l_acc_name VARCHAR (32) ;
|
||||
DECLARE l_ebank_sn VARCHAR (32) ;
|
||||
-- 对方本方银行、账户、账号
|
||||
DECLARE l_client_bank VARCHAR (32) ;
|
||||
DECLARE l_client_account VARCHAR (32) ;
|
||||
DECLARE l_client_accnum VARCHAR (32) ;
|
||||
DECLARE l_hire_date VARCHAR (32) ; -- 核销网银日期
|
||||
-- 查询可核销的挂账金额
|
||||
|
||||
-- DECLARE done BOOLEAN DEFAULT FALSE;
|
||||
-- DECLARE cur CURSOR FOR
|
||||
SELECT
|
||||
bill.fact_date,
|
||||
bill.had_money,
|
||||
bill.ownacc_number,
|
||||
bill.own_bank,
|
||||
bill.own_account,
|
||||
-- bill.ebank_sn,
|
||||
bill.id,
|
||||
bill.client_bank,
|
||||
bill.client_account,
|
||||
bill.client_acc_number
|
||||
INTO
|
||||
l_hire_date,
|
||||
l_bill_money,
|
||||
l_acc_number,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_ebank_sn,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum
|
||||
FROM
|
||||
(SELECT
|
||||
lcebank.id,
|
||||
-- le.ebank_number,
|
||||
-- le.mayope_money,
|
||||
-- le.contract_id,
|
||||
-- le.payment_number,
|
||||
max(le.fact_date) fact_date,
|
||||
MAX(le.ownacc_number) ownacc_number,
|
||||
MAX(le.own_bank) own_bank,
|
||||
MAX(le.own_account) own_account,
|
||||
-- le.client_name,
|
||||
-- le.client_bank,
|
||||
-- le.client_account,
|
||||
-- le.client_acc_number,
|
||||
SUM(le.had_money ) had_money,
|
||||
MAX(le.ebank_sn) ebank_sn,
|
||||
MAX(le.client_bank) client_bank,
|
||||
MAX(le.client_account) client_account,
|
||||
MAX(le.client_acc_number) client_acc_number
|
||||
FROM
|
||||
lc_ebank_temp le LEFT JOIN lc_ebank lcebank ON le.ebank_sn=lcebank.ebank_sn
|
||||
WHERE le.flowunid = l_flowunid
|
||||
AND NOT EXISTS
|
||||
(SELECT
|
||||
1
|
||||
FROM
|
||||
lc_occupy_rent_list lorl,
|
||||
lc_calc_condition_status lccs
|
||||
WHERE lorl.payment_number = lccs.payment_number
|
||||
AND lccs.contract_id = le.contract_id)
|
||||
) bill ;
|
||||
-- DECLARE CONTINUE HANDLER FOR NOT FOUND SET done=TRUE;
|
||||
-- 提前结清是完整的核销,如果合同项下有租金被占用,则不核销
|
||||
|
||||
-- 获取提前结清信息
|
||||
SELECT lfra.adjust_type,
|
||||
lfra.payday_adjust,
|
||||
lfra.SDHANDLING_CHARGE,
|
||||
lfra.FIST_CORPUS,
|
||||
lfra.OTHER_IN,
|
||||
lfra.AGREED_DATEPENALTY,
|
||||
lfra.OTHER_OUT,
|
||||
lfra.SDNOMINAL_PRICE
|
||||
INTO l_adjust_type,
|
||||
l_payday_adjust,
|
||||
l_SDHANDLING_CHARGE,
|
||||
l_FIST_CORPUS,
|
||||
l_OTHER_IN,
|
||||
l_AGREED_DATEPENALTY,
|
||||
l_caution_money,
|
||||
l_SDNOMINAL_PRICE
|
||||
FROM lc_fund_rent_adjust_temp lfra
|
||||
WHERE lfra.flowunid=l_flowunid;
|
||||
-- 如果有保证金指其他应退，在资金计划实收表核销保证金抵扣
|
||||
IF (l_caution_money > 0) THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod7',
|
||||
'1',
|
||||
'pay_type_out',
|
||||
l_payday_adjust,
|
||||
lfi.plan_money,
|
||||
IFNULL(lfi.fee_adjust,0),
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE (lfi.fee_type='feetype16' OR lfi.fee_type='feetype17') AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 如果有其他应收，在资金计划表加入其他应收资金计划
|
||||
IF l_OTHER_IN > 0 THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod11',
|
||||
'1',
|
||||
'pay_type_in',
|
||||
l_payday_adjust,
|
||||
lfi.plan_money,
|
||||
IFNULL(lfi.fee_adjust,0),
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE lfi.fee_type='feetype1' AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
AND lfi.id NOT IN (SELECT plan_id FROM lc_fund_income)
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 核销商定留购价
|
||||
IF l_SDNOMINAL_PRICE > 0 THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod11',
|
||||
'1',
|
||||
'pay_type_in',
|
||||
l_payday_adjust,
|
||||
l_SDNOMINAL_PRICE,
|
||||
lfi.plan_money-l_SDNOMINAL_PRICE,
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE lfi.fee_type='feetype4' AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
AND lfi.id NOT IN (SELECT plan_id FROM lc_fund_income)
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 核销租金计划
|
||||
|
||||
INSERT INTO LC_RENT_INCOME (
|
||||
ID,
|
||||
QUOT_ID,
|
||||
CUST_ID,
|
||||
PROJECT_ID,
|
||||
PROJECT_PLAN_NUMBER,
|
||||
CONTRACT_ID,
|
||||
CONTRACT_PLAN_NUMBER,
|
||||
PAYMENT_NUMBER,
|
||||
EBANK_NUMBER,
|
||||
PLAN_ID,
|
||||
PLAN_LIST,
|
||||
INTEREST_ADJUST,
|
||||
SETTLE_METHOD,
|
||||
HIRE_LIST,
|
||||
HIRE_DATE,
|
||||
RENT,
|
||||
CORPUS,
|
||||
INTEREST,
|
||||
PENALTY,
|
||||
CORPUS_ADJUST,
|
||||
PENALTY_ADJUST,
|
||||
ROLL_BACK,
|
||||
COIN,
|
||||
hire_number,
|
||||
hire_bank,
|
||||
hire_account,
|
||||
own_bank,
|
||||
own_account,
|
||||
own_number
|
||||
)
|
||||
(SELECT
|
||||
REPLACE (UUID(), '-', '') AS id,
|
||||
O.QUOT_ID AS QUOT_ID,
|
||||
O.CUST_ID AS CUST_ID,
|
||||
O.PROJECT_ID AS PROJECT_ID,
|
||||
O.PROJECT_PLAN_NUMBER AS PROJECT_PLAN_NUMBER,
|
||||
O.CONTRACT_ID AS CONTRACT_ID,
|
||||
O.CONTRACT_PLAN_NUMBER AS CONTRACT_PLAN_NUMBER,
|
||||
O.PAYMENT_NUMBER AS PAYMENT_NUMBER,
|
||||
l_ebank_sn AS EBANK_NUMBER,
|
||||
lrp.id AS PLAN_ID,
|
||||
O.PLAN_LIST AS PLAN_LIST,
|
||||
'0' AS INTEREST_ADJUST,
|
||||
'settlemethod6' AS SETTLE_METHOD,
|
||||
'1' AS HIRE_LIST,
|
||||
DATE_FORMAT (l_hire_date,'%Y/%m/%d') AS HIRE_DATE,
|
||||
o.rent AS RENT,
|
||||
o.corpus AS CORPUS,
|
||||
o.interest AS INTEREST,
|
||||
'0' AS PENALTY,
|
||||
'0' AS CORPUS_ADJUST,
|
||||
'0' AS PENALTY_ADJUST,
|
||||
'0' AS ROLL_BACK,
|
||||
O.COIN AS COIN ,
|
||||
l_client_accnum,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number
|
||||
FROM
|
||||
LC_RENT_PLAN_temp O
|
||||
LEFT JOIN lC_RENT_PLAN lrp ON o.contract_id=lrp.contract_id AND o.plan_list=lrp.plan_list
|
||||
WHERE O.contract_id =l_contract_id
|
||||
AND o.flowunid = l_flowunid
|
||||
AND IFNULL(o.collect_status,'111')<>'手工收款'
|
||||
AND IFNULL(o.collect_status,'111')<>'批量收款'
|
||||
AND IFNULL(o.collect_status,'1111')<>'网银收款'
|
||||
AND IFNULL(o.collect_status,'1111')<>'提前结清'
|
||||
) ;
|
||||
-- 更新租金计划表核销状态
|
||||
|
||||
UPDATE LC_RENT_PLAN_temp SET collect_status='提前结清',collect_msg='提前结清'
|
||||
WHERE flowunid = l_flowunid
|
||||
AND IFNULL(collect_status,'1111')<>'手工收款'
|
||||
AND IFNULL(collect_status,'111')<>'批量收款'
|
||||
AND IFNULL(collect_status,'1111')<>'网银收款'
|
||||
AND IFNULL(collect_status,'1111')<>'提前结清'
|
||||
;
|
||||
|
||||
-- 调试结果：参数赋值
|
||||
SELECT '步骤1：参数赋值','可核销金额',l_bill_money,'本方账号',l_acc_number,
|
||||
'本分银行',l_acc_bank,'本分账户',l_acc_name,'应退保证金',l_caution_money,'违约金',l_SDHANDLING_CHARGE,'其他应收',l_OTHER_IN;
|
||||
-- end loop myLoop;
|
||||
-- close cur;
|
||||
END;
|
||||
|
||||
DELIMITER $$
|
||||
|
||||
USE `apzl`$$
|
||||
|
||||
DROP PROCEDURE IF EXISTS `proc_terminate_bill_income`$$
|
||||
|
||||
CREATE DEFINER=`apzl`@`%` PROCEDURE `proc_terminate_bill_income`(
|
||||
l_contract_id VARCHAR (200),
|
||||
l_flowunid VARCHAR (200),
|
||||
L_INPUTUSERID VARCHAR (200),
|
||||
L_INPUTORGID VARCHAR (200)
|
||||
)
|
||||
BEGIN
|
||||
DECLARE l_bill_money DOUBLE (22, 2) ;
|
||||
-- 可核销金额
|
||||
DECLARE l_adjust_type VARCHAR (32) ;
|
||||
-- 提前结清类型
|
||||
DECLARE l_payday_adjust VARCHAR (32) ;
|
||||
-- 提前结清日
|
||||
DECLARE l_handling_charge DOUBLE (22, 2) ; -- 违约手续费
|
||||
DECLARE l_SDHANDLING_CHARGE DOUBLE(22,2); -- 商定违约金
|
||||
DECLARE l_SDNOMINAL_PRICE DOUBLE(22,2); -- 商定留购价
|
||||
DECLARE l_FIST_CORPUS DOUBLE (22, 2) ;-- 一年内剩余利息
|
||||
DECLARE l_caution_money DOUBLE (22, 2) ;-- 客户保证金
|
||||
DECLARE l_OTHER_IN DOUBLE (22, 2) ;-- 其他应收
|
||||
DECLARE l_AGREED_DATEPENALTY DOUBLE (22, 2); -- 还款日差利息
|
||||
-- 本方银行、账户、账号、流水号
|
||||
DECLARE l_acc_number VARCHAR (32) ;
|
||||
DECLARE l_acc_bank VARCHAR (32) ;
|
||||
DECLARE l_acc_name VARCHAR (32) ;
|
||||
DECLARE l_ebank_sn VARCHAR (32) ;
|
||||
-- 对方本方银行、账户、账号
|
||||
DECLARE l_client_bank VARCHAR (32) ;
|
||||
DECLARE l_client_account VARCHAR (32) ;
|
||||
DECLARE l_client_accnum VARCHAR (32) ;
|
||||
DECLARE l_hire_date VARCHAR (32) ; -- 核销网银日期
|
||||
-- 查询可核销的挂账金额
|
||||
|
||||
-- DECLARE done BOOLEAN DEFAULT FALSE;
|
||||
-- DECLARE cur CURSOR FOR
|
||||
SELECT
|
||||
bill.fact_date,
|
||||
bill.had_money,
|
||||
bill.ownacc_number,
|
||||
bill.own_bank,
|
||||
bill.own_account,
|
||||
-- bill.ebank_sn,
|
||||
bill.id,
|
||||
bill.client_bank,
|
||||
bill.client_account,
|
||||
bill.client_acc_number
|
||||
INTO
|
||||
l_hire_date,
|
||||
l_bill_money,
|
||||
l_acc_number,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_ebank_sn,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum
|
||||
FROM
|
||||
(SELECT
|
||||
lcebank.id,
|
||||
-- le.ebank_number,
|
||||
-- le.mayope_money,
|
||||
-- le.contract_id,
|
||||
-- le.payment_number,
|
||||
MAX(le.fact_date) fact_date,
|
||||
MAX(le.ownacc_number) ownacc_number,
|
||||
MAX(le.own_bank) own_bank,
|
||||
MAX(le.own_account) own_account,
|
||||
-- le.client_name,
|
||||
-- le.client_bank,
|
||||
-- le.client_account,
|
||||
-- le.client_acc_number,
|
||||
SUM(le.had_money ) had_money,
|
||||
MAX(le.ebank_sn) ebank_sn,
|
||||
MAX(le.client_bank) client_bank,
|
||||
MAX(le.client_account) client_account,
|
||||
MAX(le.client_acc_number) client_acc_number
|
||||
FROM
|
||||
lc_ebank_temp le LEFT JOIN lc_ebank lcebank ON le.ebank_sn=lcebank.ebank_sn
|
||||
WHERE le.flowunid = l_flowunid
|
||||
AND NOT EXISTS
|
||||
(SELECT
|
||||
1
|
||||
FROM
|
||||
lc_occupy_rent_list lorl,
|
||||
lc_calc_condition_status lccs
|
||||
WHERE lorl.payment_number = lccs.payment_number
|
||||
AND lccs.contract_id = le.contract_id)
|
||||
) bill ;
|
||||
-- DECLARE CONTINUE HANDLER FOR NOT FOUND SET done=TRUE;
|
||||
-- 提前结清是完整的核销,如果合同项下有租金被占用,则不核销
|
||||
|
||||
-- 获取提前结清信息
|
||||
SELECT lfra.adjust_type,
|
||||
lfra.payday_adjust,
|
||||
lfra.SDHANDLING_CHARGE,
|
||||
lfra.FIST_CORPUS,
|
||||
lfra.OTHER_IN,
|
||||
lfra.AGREED_DATEPENALTY,
|
||||
lfra.OTHER_OUT,
|
||||
lfra.SDNOMINAL_PRICE
|
||||
INTO l_adjust_type,
|
||||
l_payday_adjust,
|
||||
l_SDHANDLING_CHARGE,
|
||||
l_FIST_CORPUS,
|
||||
l_OTHER_IN,
|
||||
l_AGREED_DATEPENALTY,
|
||||
l_caution_money,
|
||||
l_SDNOMINAL_PRICE
|
||||
FROM lc_fund_rent_adjust_temp lfra
|
||||
WHERE lfra.flowunid=l_flowunid;
|
||||
-- 如果有保证金指其他应退，在资金计划实收表核销保证金抵扣
|
||||
IF (l_caution_money > 0) THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod7',
|
||||
'1',
|
||||
'pay_type_out',
|
||||
l_payday_adjust,
|
||||
lfi.plan_money,
|
||||
IFNULL(lfi.fee_adjust,0),
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE (lfi.fee_type='feetype16' OR lfi.fee_type='feetype17') AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 如果有其他应收，在资金计划表加入其他应收资金计划
|
||||
IF l_OTHER_IN > 0 THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod11',
|
||||
'1',
|
||||
'pay_type_in',
|
||||
l_payday_adjust,
|
||||
lfi.plan_money,
|
||||
IFNULL(lfi.fee_adjust,0),
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE lfi.fee_type='feetype1' AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
AND lfi.id NOT IN (SELECT plan_id FROM lc_fund_income)
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 核销商定留购价
|
||||
IF l_SDNOMINAL_PRICE > 0 THEN
|
||||
INSERT INTO lc_fund_income
|
||||
(id,
|
||||
project_id,
|
||||
project_plan_number,
|
||||
contract_id,
|
||||
contract_plan_number,
|
||||
payment_number,
|
||||
plan_id,
|
||||
fee_type,
|
||||
plan_list,
|
||||
settle_method,
|
||||
charge_list,
|
||||
pay_type,
|
||||
fact_date,
|
||||
fact_money,
|
||||
fee_adjust,
|
||||
EBANK_NUMBER,
|
||||
bank,
|
||||
account,
|
||||
acc_number,
|
||||
client_bank,
|
||||
client_account,
|
||||
client_accnumber,
|
||||
pay_status,
|
||||
ROLL_BACK,
|
||||
INPUTUSERID,
|
||||
INPUTORGID,
|
||||
inputtime,
|
||||
DEDUCTION_ID
|
||||
|
||||
)(
|
||||
SELECT REPLACE(UUID(),'-',''),
|
||||
lfi.project_id,
|
||||
lfi.project_plan_number,
|
||||
lfi.contract_id,
|
||||
lfi.contract_plan_number,
|
||||
lfi.payment_number,
|
||||
lfi.id,
|
||||
lfi.fee_type,
|
||||
lfi.plan_list,
|
||||
'settlemethod11',
|
||||
'1',
|
||||
'pay_type_in',
|
||||
l_payday_adjust,
|
||||
l_SDNOMINAL_PRICE,
|
||||
lfi.plan_money-l_SDNOMINAL_PRICE,
|
||||
l_ebank_sn,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_client_accnum,
|
||||
'have_paid',
|
||||
'0',
|
||||
L_INPUTUSERID,
|
||||
L_INPUTORGID,
|
||||
REPLACE(CURDATE(),'-','/'),
|
||||
''
|
||||
FROM lc_fund_plan lfi
|
||||
WHERE lfi.fee_type='feetype4' AND lfi.contract_id=l_contract_id AND lfi.plan_list=1
|
||||
AND lfi.id NOT IN (SELECT plan_id FROM lc_fund_income)
|
||||
) ;
|
||||
-- COMMIT;
|
||||
END IF;
|
||||
-- 核销租金计划
|
||||
|
||||
INSERT INTO LC_RENT_INCOME (
|
||||
ID,
|
||||
QUOT_ID,
|
||||
CUST_ID,
|
||||
PROJECT_ID,
|
||||
PROJECT_PLAN_NUMBER,
|
||||
CONTRACT_ID,
|
||||
CONTRACT_PLAN_NUMBER,
|
||||
PAYMENT_NUMBER,
|
||||
EBANK_NUMBER,
|
||||
PLAN_ID,
|
||||
PLAN_LIST,
|
||||
INTEREST_ADJUST,
|
||||
SETTLE_METHOD,
|
||||
HIRE_LIST,
|
||||
HIRE_DATE,
|
||||
RENT,
|
||||
CORPUS,
|
||||
INTEREST,
|
||||
PENALTY,
|
||||
CORPUS_ADJUST,
|
||||
PENALTY_ADJUST,
|
||||
ROLL_BACK,
|
||||
COIN,
|
||||
hire_number,
|
||||
hire_bank,
|
||||
hire_account,
|
||||
own_bank,
|
||||
own_account,
|
||||
own_number
|
||||
)
|
||||
(SELECT
|
||||
REPLACE (UUID(), '-', '') AS id,
|
||||
O.QUOT_ID AS QUOT_ID,
|
||||
O.CUST_ID AS CUST_ID,
|
||||
O.PROJECT_ID AS PROJECT_ID,
|
||||
O.PROJECT_PLAN_NUMBER AS PROJECT_PLAN_NUMBER,
|
||||
O.CONTRACT_ID AS CONTRACT_ID,
|
||||
O.CONTRACT_PLAN_NUMBER AS CONTRACT_PLAN_NUMBER,
|
||||
O.PAYMENT_NUMBER AS PAYMENT_NUMBER,
|
||||
l_ebank_sn AS EBANK_NUMBER,
|
||||
lrp.id AS PLAN_ID,
|
||||
O.PLAN_LIST AS PLAN_LIST,
|
||||
'0' AS INTEREST_ADJUST,
|
||||
'settlemethod6' AS SETTLE_METHOD,
|
||||
'1' AS HIRE_LIST,
|
||||
DATE_FORMAT (l_hire_date,'%Y/%m/%d') AS HIRE_DATE,
|
||||
o.rent AS RENT,
|
||||
o.corpus AS CORPUS,
|
||||
o.interest AS INTEREST,
|
||||
'0' AS PENALTY,
|
||||
'0' AS CORPUS_ADJUST,
|
||||
'0' AS PENALTY_ADJUST,
|
||||
'0' AS ROLL_BACK,
|
||||
O.COIN AS COIN ,
|
||||
l_client_accnum,
|
||||
l_client_bank,
|
||||
l_client_account,
|
||||
l_acc_bank,
|
||||
l_acc_name,
|
||||
l_acc_number
|
||||
FROM
|
||||
LC_RENT_PLAN_temp O
|
||||
LEFT JOIN lC_RENT_PLAN lrp ON o.contract_id=lrp.contract_id AND o.plan_list=lrp.plan_list
|
||||
WHERE O.contract_id =l_contract_id
|
||||
AND o.flowunid = l_flowunid
|
||||
AND IFNULL(o.collect_status,'111')<>'手工收款'
|
||||
AND IFNULL(o.collect_status,'111')<>'批量收款'
|
||||
AND IFNULL(o.collect_status,'111')<>'微信'
|
||||
AND IFNULL(o.collect_status,'1111')<>'网银收款'
|
||||
AND IFNULL(o.collect_status,'1111')<>'提前结清'
|
||||
) ;
|
||||
-- 更新租金计划表核销状态
|
||||
|
||||
UPDATE LC_RENT_PLAN_temp SET collect_status='提前结清',collect_msg='提前结清'
|
||||
WHERE flowunid = l_flowunid
|
||||
AND IFNULL(collect_status,'1111')<>'手工收款'
|
||||
AND IFNULL(collect_status,'111')<>'批量收款'
|
||||
AND IFNULL(collect_status,'111')<>'微信'
|
||||
AND IFNULL(collect_status,'1111')<>'网银收款'
|
||||
AND IFNULL(collect_status,'1111')<>'提前结清'
|
||||
;
|
||||
|
||||
-- 调试结果：参数赋值
|
||||
SELECT '步骤1：参数赋值','可核销金额',l_bill_money,'本方账号',l_acc_number,
|
||||
'本分银行',l_acc_bank,'本分账户',l_acc_name,'应退保证金',l_caution_money,'违约金',l_SDHANDLING_CHARGE,'其他应收',l_OTHER_IN;
|
||||
-- end loop myLoop;
|
||||
-- close cur;
|
||||
END$$
|
||||
|
||||
DELIMITER ;
|
||||
Loading…
x
Reference in New Issue
Block a user