Skip to content

L
leaf-hlcm
Commit d0912507 authored by homunculus's avatar homunculus
Browse files
Options

Merge branch 'develop' of https://hel.hand-china.com/hlcm/leaf-hlcm into develop 

# Conflicts:
#	src/main/database/Init/Sys_message/INITIALIZE_CREATED_BY_ERROR_MESSAGE.sql
parents 95c124d6 e46fd0fa
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 7245 additions and 1404 deletions
src/main/database/Init/INITIALIZE_SYS_FUNCTION_DYNAMIC.sql
View file @ d0912507
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733CF', '合同租金计划变更申请明细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733BPT', '合同承租人变更申请明细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733BPB', '合同回款账户变更申请明细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733BPBQ', '合同回款账户变更申请明细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733CF_Q','租金计划变更申请明细',1,SYSDATE,-1,SYSDATE,-1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON733BPT_Q','承租人变更申请明细',1,SYSDATE,-1,SYSDATE,-1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON_REPO001D_Q','回购申请明细',1,SYSDATE,-1,SYSDATE,-1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
SEQUENCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON_ET002_Q','提前结清申请明细',1,SYSDATE,-1,SYSDATE,-1);
INSERT INTO SYS_FUNCTION_DYNAMIC
(FUNCTION_CODE,
FUNCTION_NAME,
......@@ -18,4 +108,28 @@ VALUES
LAST_UPDATE_DATE,
LAST_UPDATED_BY)
VALUES
('CON_ET002', '提前结清申请明细', 1, SYSDATE, -1, SYSDATE, -1);
\ No newline at end of file
('CON_ET002', '提前结清申请明细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO sys_function_dynamic
(function_code,
function_name,
sequence,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES
('HLS36103', '授信详细', 1, SYSDATE, -1, SYSDATE, -1);
INSERT INTO sys_function_dynamic
(function_code,
function_name,
sequence,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES
('HLS36101', '授信详细', 1, SYSDATE, -1, SYSDATE, -1);
end;
\ No newline at end of file
src/main/database/Init/Layout_db_object/INITIALIZE_LAYOUT_DB_OBJECT.sql
View file @ d0912507
......@@ -19,6 +19,9 @@ values ('CONTRACT', 'CON_CONTRACT_REPO_LV', 'VIEW', -1, sysdate, -1, sysdate);
insert into HLS_DOC_CATEGORY_DB_OBJECT (DOCUMENT_CATEGORY, OBJECT_NAME, OBJECT_TYPE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
values ('CONTRACT', 'CON_CONTRACT_REPO_MODIFY_LV', 'VIEW', -1, sysdate, -1, sysdate);
insert into HLS_DOC_CATEGORY_DB_OBJECT (DOCUMENT_CATEGORY, OBJECT_NAME, OBJECT_TYPE, CREATED_BY, CREATION_DATE, LAST_UPDATED_BY, LAST_UPDATE_DATE)
values ('CONTRACT', 'CON_CONTRACT_CCR_Q_LV', 'VIEW', -1, sysdate, -1, sysdate);
end;
/
commit;
......
src/main/database/Init/Sys_message/INITIALIZE_MESSAGE.sql
View file @ d0912507
......@@ -11,6 +11,10 @@ sys_message_pkg.delete_message('ZJ_WFL_WORKFLOW_NODE_HIERARCHY_ERROR');
sys_message_pkg.insert_message('ZJ_WFL_WORKFLOW_NODE_HIERARCHY_ERROR','错误','查找工作流节点接收人出现错误,请联系管理员!','ZHS');
sys_message_pkg.insert_message('ZJ_WFL_WORKFLOW_NODE_HIERARCHY_ERROR','Error','查找工作流节点接收人出现错误,请联系管理员!','US');
sys_message_pkg.delete_message('CON_CONTRACT_CHANGE_REQ_PKG.IS_CALC_FLAG_ERR');
sys_message_pkg.insert_message('CON_CONTRACT_CHANGE_REQ_PKG.IS_CALC_FLAG_ERR','错误','未完成报价，请先完成报价计算操作！','ZHS');
sys_message_pkg.insert_message('CON_CONTRACT_CHANGE_REQ_PKG.IS_CALC_FLAG_ERR','Error','未完成报价，请先完成报价计算操作！','US');
end;
/
commit;
......
src/main/database/Init/Sys_prompt/CSH_TRANSACTION_PROMPT.sql → src/main/database/Init/Sys_prompt/INITIALIZE_CSH_TRANSACTION_PROMPT.sql
View file @ d0912507
......@@ -6,7 +6,10 @@ spool CSH_TRANSACTION_PROMPT.log
set feedback off
set define off
begin
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.RETURNED_AMOUNT',
p_language => 'ZHS',
p_description => '已退款金额',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH510.CSH_TRANSACTION.TRANSACTION_AMOUNT_FROM',
p_language => 'ZHS',
p_description => '收款金额从',
......@@ -135,6 +138,43 @@ sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH510.CSH_TRANSACTION.ACCT_CO
p_language => 'ZHS',
p_description => '会计确认人',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH509.CSH_RECEIPT_CONFIRM.NEW_APPLY_BTN',
p_language => 'ZHS',
p_description => '新增确认',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH509.CSH_RECEIPT_CONFIRM.REFUSE_BTN',
p_language => 'ZHS',
p_description => '新增驳回',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH509.CSH_RECEIPT_CONFIRM.DROP_BTN',
p_language => 'ZHS',
p_description => '作废',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH509.CSH_RECEIPT_CONFIRM.QUERY_BTN',
p_language => 'ZHS',
p_description => '查询',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.MANUAL_ADD',
p_language => 'ZHS',
p_description => '收款手动新增',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.CLASS_DESC',
p_language => 'ZHS',
p_description => '款项分类',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.STATEMENT',
p_language => 'ZHS',
p_description => '备注',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.BANK_INFO',
p_language => 'ZHS',
p_description => '账户信息',
p_created_by => 1);
sys_prompt_pkg.sys_prompts_load(p_prompt_code => 'CSH511.CSH_TRANSACTION.ATTACHMENT',
p_language => 'ZHS',
p_description => '附件',
p_created_by => 1);
end;
/
commit;
......
src/main/database/Package/FND_CODE_RULE_PKG.pck 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/Package/cus_con_change_req_pkg.pck 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/Package/cus_con_change_req_wfl_pkg.pck 0 → 100644
View file @ d0912507
create or replace package cus_con_change_req_wfl_pkg is
-- Author : Spencer 3893
-- Created : 2019/9/25 13:51:00
-- Purpose : 合同變更工作流相關邏輯
procedure workflow_start(p_change_req_rec in con_contract_change_req%rowtype,
p_change_con_rec in con_contract%rowtype,
p_layout_code in varchar2,
p_user_id in number);
procedure workflow_approve(p_change_req_id in number,
p_user_id in number);
procedure workflow_reject(p_change_req_id in number, p_user_id in number);
procedure workflow_cancel(p_change_req_id in number, p_user_id in number);
end cus_con_change_req_wfl_pkg;
/
create or replace package body cus_con_change_req_wfl_pkg is
procedure workflow_start(p_change_req_rec in con_contract_change_req%rowtype,
p_change_con_rec in con_contract%rowtype,
p_layout_code in varchar2,
p_user_id in number) is
v_document_info varchar2(2000);
v_instance_id number;
v_bp_name varchar2(300);
v_workflow_desc varchar2(2000);
begin
--承租人已改变，此时con_contract_bp并没有新的承租人信息，会返回no_data_found例外
if p_layout_code = 'CON_TENANT_CHANGE_MODIFY' then
select lv.bp_name
into v_bp_name
from con_contract_bp_tenant_lv lv
where lv.contract_id = p_change_req_rec.contract_id;
else
select lv.bp_name
into v_bp_name
from con_contract_bp_tenant_lv lv
where lv.contract_id = p_change_con_rec.contract_id;
end if;
update con_contract_change_req t
set t.req_status = 'APPROVING',
t.submit_date = sysdate,
last_updated_by = p_user_id,
last_update_date = sysdate
where t.change_req_id = p_change_req_rec.change_req_id;
v_instance_id := p_change_req_rec.wfl_instance_id;
begin
select t1.workflow_desc
into v_workflow_desc
from hls_document_type_v t1
where t1.enabled_flag = 'Y'
and t1.document_type = p_change_req_rec.document_type
and t1.document_category = p_change_req_rec.document_category;
exception
when others then
null;
end;
v_document_info := v_workflow_desc || '：' ||
p_change_con_rec.contract_number || '-' || v_bp_name;
hls_workflow_pkg.workflow_start(p_instance_id => v_instance_id,
p_document_id => p_change_req_rec.change_req_id,
p_document_category => p_change_req_rec.document_category,
p_document_type => p_change_req_rec.document_type,
p_business_type => p_change_req_rec.business_type,
p_business_type_2nd => p_change_con_rec.business_type,
p_document_category_2nd => p_change_con_rec.document_category,
p_document_type_2nd => p_change_con_rec.document_type,
p_company_id => p_change_con_rec.company_id,
p_user_id => p_user_id,
p_lease_org => p_change_con_rec.lease_organization, --事业部
p_lease_channel => p_change_con_rec.lease_channel,
p_division => p_change_con_rec.division,
p_ccr_reschedule => p_change_req_rec.reschedule_flag,
p_ccr_et => p_change_req_rec.et_flag,
p_ccr_tenant_change => p_change_req_rec.tenant_change_flag,
p_ccr_lease_item_change => p_change_req_rec.lease_item_change_flag,
p_ccr_mortgage_change => p_change_req_rec.mortgage_change_flag,
p_ccr_guarantor_change => p_change_req_rec.guarantor_change_flag,
p_ccr_bank_acc_change => p_change_req_rec.bank_acc_change_flag,
p_ccr_contract_cancel => p_change_req_rec.contract_cancel_flag,
p_ccr_cashflow_change => p_change_req_rec.cashflow_change_flag,
-- parameter values
p_parameter_1 => 'NEW_CONTRACT_ID',
p_parameter_1_value => p_change_req_rec.change_req_id,
p_parameter_2 => 'OLD_CONTRACT_ID',
p_parameter_2_value => p_change_req_rec.contract_id,
p_parameter_4 => 'OWNER_USER_ID',
p_parameter_4_value => nvl(p_change_req_rec.owner_user_id,
p_user_id),
p_parameter_5 => 'CHANGE_REQ_ID',
p_parameter_5_value => p_change_req_rec.change_req_id,
p_parameter_6 => 'DOCUMENT_INFO',
p_parameter_6_value => v_document_info,
p_parameter_8 => 'CHANGE_REQ_NUMBER',
p_parameter_8_value => p_change_req_rec.change_req_number,
p_parameter_9 => 'PROJECT_ID',
p_parameter_9_value => p_change_con_rec.project_id,
p_parameter_10 => 'LAYOUT_CODE',
p_parameter_10_value => p_layout_code);
update con_contract_change_req t
set t.wfl_instance_id = v_instance_id
where t.change_req_id = p_change_req_rec.change_req_id;
exception
when no_data_found then
sys_raise_app_error_pkg.raise_user_define_error(p_message_code => 'CON_CONTRACT_CHG_REQ_WFL_PKG.NO_DATA_FOUND',
p_created_by => p_user_id,
p_package_name => 'cus_con_change_req_wfl_pkg',
p_procedure_function_name => 'workflow_start');
raise_application_error(sys_raise_app_error_pkg.c_error_number,
sys_raise_app_error_pkg.g_err_line_id);
when others then
sys_raise_app_error_pkg.raise_sys_others_error(p_message => dbms_utility.format_error_backtrace || ' ' ||
sqlerrm,
p_created_by => p_user_id,
p_package_name => 'cus_con_change_req_wfl_pkg',
p_procedure_function_name => 'workflow_start');
raise_application_error(sys_raise_app_error_pkg.c_error_number,
sys_raise_app_error_pkg.g_err_line_id);
end;
procedure workflow_approve(p_change_req_id in number,
p_user_id in number) is
begin
con_contract_change_req_pkg.change_req_confirm(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
end;
procedure workflow_reject(p_change_req_id in number, p_user_id in number) is
begin
con_contract_change_req_pkg.change_req_reject(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
end;
procedure workflow_cancel(p_change_req_id in number, p_user_id in number) is
begin
con_contract_change_req_pkg.change_req_cancel(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
end;
end cus_con_change_req_wfl_pkg;
/
src/main/database/Package/cus_con_contract_repo_pkg.pck
View file @ d0912507
......@@ -3,7 +3,12 @@
-- Author : Spencer 3893
-- Created : 9/10/2019 2:21:13 PM
-- Purpose : 合同回购
function get_contract_repo_number(p_document_type varchar2,
p_document_date date,
p_company_id number,
p_user_id number,
p_contract_id number default null)
return varchar2;
--add by Spencer 3893 20190911 回购申请
procedure create_change_req_repo(p_contract_id in number,
p_req_type in varchar2,
......@@ -751,28 +756,10 @@ create or replace package body cus_con_contract_repo_pkg is
con_contract_history_pkg.calc_change_history(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
select approval_method
into v_approval_method
from hls_document_type
where document_category = r_change_req_rec.document_category
and document_type = r_change_req_rec.document_type;
if v_approval_method = 'WORK_FLOW' then
con_contract_change_req_wf_pkg.workflow_start(p_change_req_rec => r_change_req_rec,
p_change_con_rec => r_change_con_rec,
p_layout_code => p_layout_code,
p_user_id => p_user_id);
else
update con_contract_change_req t
set t.req_status = 'APPROVING',
t.submit_date = sysdate,
last_updated_by = p_user_id,
last_update_date = sysdate
where t.change_req_id = p_change_req_id;
con_contract_change_req_pkg.change_req_confirm(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
end if;
cus_con_change_req_wfl_pkg.workflow_start(p_change_req_rec => r_change_req_rec,
p_change_con_rec => r_change_con_rec,
p_layout_code => p_layout_code,
p_user_id => p_user_id);
exception
when e_attachment_error then
......
src/main/database/Package/cus_con_et_pkg.pck
View file @ d0912507
......@@ -164,18 +164,15 @@ create or replace package body cus_con_et_pkg is
and f.cf_type = 1
and f.contract_id = p_contract_id;
--上一次完全核销现金流
/*select (p_et_date - cwo.write_off_date) fund_possession_time
into v_fund_possession_time
from con_contract_cashflow f, csh_write_off cwo
where cwo.reversed_flag = 'N'
and cwo.cashflow_id = f.cashflow_id
and cwo.contract_id = p_contract_id
and f.due_date > p_et_date
and f.write_off_flag != 'NOT'
and f.cf_item = 1
and f.cf_type = 1
and f.contract_id = p_contract_id;*/
v_fund_possession_time := 11;
select (p_et_date - f.due_date + 1) fund_possession_time
into v_fund_possession_time
from con_contract_cashflow f
where f.due_date > p_et_date
and f.write_off_flag = 'FULL'
and f.cf_item = 1
and f.cf_type = 1
and f.cf_direction != 'NONCASH'
and f.contract_id = p_contract_id;
v_fund_possession_cost := v_sum_unreceived_principal *
nvl(v_fund_possession_time, 1) *
NVL(p_et_interest_rate,
......@@ -187,11 +184,12 @@ create or replace package body cus_con_et_pkg is
where f.write_off_flag != 'FULL'
and f.overdue_status = 'Y'
and f.cf_item = 1
and f.cf_type = 1
and f.cf_direction != 'NONCASH'
and f.contract_id = p_contract_id;
-- 逾期天数 overdue_max_days+现在至回购日天数
v_overdue_max_days := nvl(v_contract_rec.overdue_max_days, 0) +
trunc(p_et_date - sysdate);
v_fund_possession_time;
-- v_penalty 逾期罚息，逾期罚息=逾期租金* 逾期天数 * 0.0004。回购总额中罚息由系统自动计算，可直接进行手动调整，不需要通过罚息减免流程；逾期罚息，计算到回购解约日为止
v_penalty := v_sum_overdue_amount * v_overdue_max_days * 0.0004;
v_et_due_amount := v_sum_unreceived_principal + v_sum_overdue_amount;
......@@ -424,28 +422,10 @@ create or replace package body cus_con_et_pkg is
con_contract_history_pkg.calc_change_history(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
select approval_method
into v_approval_method
from hls_document_type
where document_category = r_change_req_rec.document_category
and document_type = r_change_req_rec.document_type;
if v_approval_method = 'WORK_FLOW' then
con_contract_change_req_wf_pkg.workflow_start(p_change_req_rec => r_change_req_rec,
p_change_con_rec => r_change_con_rec,
p_layout_code => p_layout_code,
p_user_id => p_user_id);
else
update con_contract_change_req t
set t.req_status = 'APPROVING',
t.submit_date = sysdate,
last_updated_by = p_user_id,
last_update_date = sysdate
where t.change_req_id = p_change_req_id;
con_contract_change_req_pkg.change_req_confirm(p_change_req_id => p_change_req_id,
p_user_id => p_user_id);
end if;
cus_con_change_req_wfl_pkg.workflow_start(p_change_req_rec => r_change_req_rec,
p_change_con_rec => r_change_con_rec,
p_layout_code => p_layout_code,
p_user_id => p_user_id);
end submit_change_req_et;
end cus_con_et_pkg;
/
src/main/database/Package/hls_fin_calculator_ccr_pkg.pck 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/Register_function/REGISTER_CSH_TRANSACTION_HAND_RECEIPT_UPDATE.sql → src/main/database/Register_function/REGISTER_CON733.sql
View file @ d0912507
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;
spool REGISTER_CON_REPO001.log
spool REGISTER_CON_ET001.log
set feedback off
set define off
begin
--页面注册
sys_function_assign_pkg.service_load('modules/csh/CSH510/csh_transaction_hand_receipt_update.lview','收款维护',1,1,0);
sys_function_assign_pkg.func_service_load('CSH510','modules/csh/CSH510/csh_transaction_hand_receipt_update.lview');
end;
--分配bm
sys_function_assign_pkg.func_bm_load('CON733','cont.CON733.create_change_req');
sys_function_assign_pkg.func_bm_load('CON733','cont.CON733.calc_change_req');
sys_function_assign_pkg.func_bm_load('CON733','cont.CON733.calc_tenant_change_req');
end;
/
commit;
......
src/main/database/Register_function/REGISTER_CSH_TRANSACTION_RECEIPT_CONFIRM.sql → src/main/database/Register_function/REGISTER_CSH509.sql
View file @ d0912507
......@@ -21,6 +21,9 @@ sys_function_assign_pkg.func_service_load('CSH509','modules/csh/CSH509/csh_trans
--分配菜单 p_function_group_code=>'DEMO1' 为功能EXERCISES001的菜单
sys_load_sys_function_grp_pkg.sys_function_group_item_load(p_function_group_code=>'CSH_MANAGE',p_function_code=>'CSH509',p_enabled_flag=>'Y',P_USER_ID=>-1);
sys_function_assign_pkg.func_bm_load('CSH509','csh.CSH509.query_roles_info');
end;
/
......
src/main/database/Register_function/REGISTER_CSH510.sql
View file @ d0912507
......@@ -12,9 +12,12 @@ begin
sys_function_assign_pkg.func_bm_load('CSH510','csh.CSH510N.csh_transaction_list_tmp');
sys_function_assign_pkg.func_bm_load('CSH510','csh.CSH510.csh_transaction_for_lov');
sys_function_assign_pkg.func_bm_load('CSH510','csh.CSH510.csh_transaction_update');
sys_function_assign_pkg.func_bm_load('CSH509','csh.CSH509.query_roles_info');
sys_function_assign_pkg.func_bm_load('CSH510','csh.CSH510.csh_transaction_update_bp_info');
--页面注册
sys_function_assign_pkg.service_load('modules/csh/CSH510/csh_transaction_hand_receipt_update.lview','收款维护',1,1,0);
sys_function_assign_pkg.func_service_load('CSH510','modules/csh/CSH510/csh_transaction_hand_receipt_update.lview');
end;
/
commit;
......
src/main/database/Register_function/REGISTER_HLS361N_credit_entrance_detail.sql → src/main/database/Register_function/REGISTER_CSH531N.sql
View file @ d0912507
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;
spool REGISTER_CON_REPO001.log
spool REGISTER_CON_ET001.log
set feedback off
set define off
begin
--页面注册
sys_function_assign_pkg.service_load('modules/hls/HLS361N/hls_bp_master_credit.lview','授信管理',1,1,0);
--创建动态页面的虚拟功能号
INSERT INTO sys_function_dynamic
(function_code,
function_name,
sequence,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES
('HLS36101', '授信详细', 1, SYSDATE, -1, SYSDATE, -1);
end;
--分配bm
sys_function_assign_pkg.func_bm_load('CSH531N','csh.CSH531N.csh_write_off');
sys_function_assign_pkg.func_bm_load('CSH531N','csh.CSH531N.csh_transaction_plan_query');
sys_function_assign_pkg.func_bm_load('CSH531N','csh.CSH531N.csh_con_contract_cashflow');
sys_function_assign_pkg.func_bm_load('CSH531N','csh.CSH531N.csh_reverse_write_off');
end;
/
commit;
......
src/main/database/Register_function/REGISTER_HLS361N.sql
View file @ d0912507
......@@ -7,6 +7,18 @@ set feedback off
set define off
begin
--页面注册
sys_function_assign_pkg.service_load('modules/hls/HLS361N/hls_bp_master_credit.lview','授信管理',1,1,0);
--功能定义 EXERCISES001 是功能号
SYS_LOAD_SYS_FUNCTION_PKG.SYS_FUNCTION_LOAD('HLS361N','授信管理','授信管理','30','','','modules/hls/HLS361N/hls_bp_master_credit.lview','ZHS',-1);
SYS_LOAD_SYS_FUNCTION_PKG.SYS_FUNCTION_LOAD('HLS361N','授信管理','授信管理','30','','','modules/hls/HLS361N/hls_bp_master_credit.lview','US',-1);
--分配页面 将页面分配给哪个功能号
sys_function_assign_pkg.func_service_load('HLS361N','modules/hls/HLS361N/hls_bp_master_credit.lview');
--分配菜单 p_function_group_code=>'DEMO1' 为功能EXERCISES001的菜单
sys_load_sys_function_grp_pkg.sys_function_group_item_load(p_function_group_code=>'CON_LEASE',p_function_code=>'HLS361N',p_enabled_flag=>'Y',P_USER_ID=>-1);
--分配bm
sys_function_assign_pkg.func_bm_load('HLS361N','csh.CSH509.query_roles_info');
......
src/main/database/Register_function/REGISTER_HLS361N_HLS_BP_MASTER_CREDIT.sql deleted 100644 → 0
View file @ 95c124d6
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;
spool REGISTER_CON_REPO001.log
set feedback off
set define off
begin
--页面注册
sys_function_assign_pkg.service_load('modules/hls/HLS361N/hls_bp_master_credit.lview','授信管理',1,1,0);
--功能定义 EXERCISES001 是功能号
SYS_LOAD_SYS_FUNCTION_PKG.SYS_FUNCTION_LOAD('HLS361N','授信管理','授信管理','30','','','modules/hls/HLS361N/hls_bp_master_credit.lview','ZHS',-1);
SYS_LOAD_SYS_FUNCTION_PKG.SYS_FUNCTION_LOAD('HLS361N','授信管理','授信管理','30','','','modules/hls/HLS361N/hls_bp_master_credit.lview','US',-1);
--分配页面 将页面分配给哪个功能号
sys_function_assign_pkg.func_service_load('HLS361N','modules/hls/HLS361N/hls_bp_master_credit.lview');
--分配菜单 p_function_group_code=>'DEMO1' 为功能EXERCISES001的菜单
sys_load_sys_function_grp_pkg.sys_function_group_item_load(p_function_group_code=>'CON_LEASE',p_function_code=>'HLS361N',p_enabled_flag=>'Y',P_USER_ID=>-1);
end;
/
commit;
set feedback on
set define on
spool off
exit
src/main/database/Register_function/REGISTER_HLS361N_credit_confirm.sql → src/main/database/Register_function/REGISTER_HLS362N.sql
View file @ d0912507
......@@ -23,6 +23,8 @@ sys_load_sys_function_grp_pkg.sys_function_group_item_load(p_function_group_code
--bm
sys_function_assign_pkg.func_bm_load('HLS362N','hls.HLS361N.hls_bp_master_credit_confirmed');
sys_function_assign_pkg.service_load('modules/hls/HLS362N/credit_entrance_detail_confirm.lview','授信详细',1,1,0);
sys_function_assign_pkg.func_service_load('HLS361N','modules/hls/HLS362N/credit_entrance_detail_confirm.lview');
end;
/
commit;
......
src/main/database/Register_function/REGISTER_HLS362N_credit_entrance_confirm_detail.sql deleted 100644 → 0
View file @ 95c124d6
WHENEVER SQLERROR EXIT FAILURE ROLLBACK;
WHENEVER OSERROR EXIT FAILURE ROLLBACK;
spool REGISTER_CON_REPO001.log
set feedback off
set define off
begin
--页面注册
begin
--页面注册
sys_function_assign_pkg.service_load('modules/hls/HLS362N/credit_entrance_detail_confirm.lview','授信详细',1,1,0);
sys_function_assign_pkg.func_service_load('HLS361N','modules/hls/HLS362N/credit_entrance_detail_confirm.lview');
end;
--创建动态页面的虚拟功能号
INSERT INTO sys_function_dynamic
(function_code,
function_name,
sequence,
creation_date,
created_by,
last_update_date,
last_updated_by)
VALUES
('HLS36103', '授信详细', 1, SYSDATE, -1, SYSDATE, -1);
/
commit;
set feedback on
set define on
spool off
exit
src/main/database/Table/Alter/CON_CONTRACT.sql
View file @ d0912507
......@@ -48,4 +48,16 @@ is '逾期租金(回购)';
alter table CON_CONTRACT add SUM_UNRECEIVED_PRINCIPAL number;
comment on column CON_CONTRACT.SUM_UNRECEIVED_PRINCIPAL
is '剩余本金(回购)';
\ No newline at end of file
is '剩余本金(回购)';
alter table CON_CONTRACT add extend_flag varchar2(1);
comment on column CON_CONTRACT.extend_flag
is '是否展期';
alter table CON_CONTRACT add deflation_flag varchar2(1);
comment on column CON_CONTRACT.deflation_flag
is '是否缩期';
alter table CON_CONTRACT add ccr_lease_date date;
comment on column CON_CONTRACT.ccr_lease_date
is '承租人变更日';
\ No newline at end of file
src/main/database/Table/CSH_TRANSACTION_PLAN.sql 0 → 100644
View file @ d0912507
CREATE TABLE csh_transaction_plan(
plan_id NUMBER,
transaction_id NUMBER,
write_off_type VARCHAR2(20),
company_id number,
bp_id NUMBER,
write_off_amount NUMBER,
write_off_date DATE,
created_by NUMBER,
creation_date DATE,
last_updated_by NUMBER,
last_update_date DATE
);
ALTER TABLE csh_transaction_plan
ADD CONSTRAINTS csh_transaction_plan_pk PRIMARY KEY (plan_id);
CREATE SEQUENCE csh_transaction_plan_s;
COMMENT ON TABLE csh_transaction_plan IS '保证金、预收款-收款单生成-核销计划';
COMMENT ON COLUMN csh_transaction_plan.plan_id IS 'pk';
COMMENT ON COLUMN csh_transaction_plan.company_id IS '公司ID';
COMMENT ON COLUMN csh_transaction_plan.transaction_id IS 'csh_transaction -- pk';
COMMENT ON COLUMN csh_transaction_plan.write_off_type IS '核销事务类型 （保证金/预收款）';
COMMENT ON COLUMN csh_transaction_plan.bp_id IS '商业伙伴ID -- 代理商（保证金）/商业伙伴（预收款）';
COMMENT ON COLUMN csh_transaction_plan.write_off_amount IS '核销金额';
COMMENT ON COLUMN csh_transaction_plan.write_off_date IS '核销日期';
\ No newline at end of file
src/main/database/View/CON_CHANGE_CONTRACT_LV.sql 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/View/CON_CONTRACT_CCR_LV.sql 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/View/CON_CONTRACT_CCR_LV.sql.bak 0 → 100644
View file @ d0912507
This diff is collapsed.
src/main/database/View/con_contract_change_req_lv.sql
View file @ d0912507
CREATE OR REPLACE VIEW CON_CONTRACT_CHANGE_REQ_LV AS
CREATE OR REPLACE VIEW CON_CONTRACT_CHANGE_REQ_LV AS
select t.change_req_id,
t.batch_id,
t.change_quotation,
......@@ -56,6 +56,7 @@ select t.change_req_id,
cc.contract_name,
cc.bp_id_tenant,
(select m.bp_name from hls_bp_master m where m.bp_id=cc.bp_id_tenant) as bp_id_tenant_n,
(select m.bp_name from hls_bp_master m,con_contract cct where m.bp_id=cct.bp_id_tenant AND cct.contract_id=t.contract_id) as s_bp_id_tenant_n,
cc.inception_of_lease,
nvl(t.et_ins_derate_amount,0) et_ins_derate_amount,
(select sum(cf.principal) - sum(nvl(cf.received_principal, 0))
......@@ -66,22 +67,24 @@ select t.change_req_id,
nvl(t.et_fee,500) et_fee,
nvl(t.et_total_amount,0) et_total_amount,
nvl(t.et_interest,0) et_interest,
--提前结清 start
nvl(t.FUND_POSSESSION_TIME,0)FUND_POSSESSION_TIME,--资金占用天数
NVL(t.FUND_POSSESSION_COST,0)FUND_POSSESSION_COST,--资金占用费
NVL(t.FUND_POSSESSION_RATE,0)FUND_POSSESSION_RATE,--资金占用费利率
NVL(t.ET_DUE_AMOUNT,0)ET_DUE_AMOUNT,--提前结清租金
NVL(t.SUM_UNRECEIVED_PRINCIPAL,0)SUM_UNRECEIVED_PRINCIPAL,--剩余本金
NVL(t.ET_INTEREST_RATE,cc.int_rate_display)ET_INTEREST_RATE,--提前结清利率
--提前结清 start
nvl(t.FUND_POSSESSION_TIME,0)FUND_POSSESSION_TIME,--资金占用天数
NVL(t.FUND_POSSESSION_COST,0)FUND_POSSESSION_COST,--资金占用费
NVL(t.FUND_POSSESSION_RATE,0)FUND_POSSESSION_RATE,--资金占用费利率
NVL(t.ET_DUE_AMOUNT,0)ET_DUE_AMOUNT,--提前结清租金
NVL(t.SUM_UNRECEIVED_PRINCIPAL,0)SUM_UNRECEIVED_PRINCIPAL,--剩余本金
NVL(t.ET_INTEREST_RATE,cc.int_rate_display)ET_INTEREST_RATE,--提前结清利率
cc.bp_id_agent_level1,
(SELECT m.bp_name
FROM hls_bp_master m
WHERE m.bp_id = cc.bp_id_agent_level1)
AS bp_id_agent_level1_n,
nvl(t.residual_value,cc.residual_value)residual_value,
t.ccr_reason
--提前结清 end
t.ccr_reason,
t.termination_date
--提前结清 end
from con_contract_change_req t,
con_contract cc
where t.contract_id = cc.contract_id
where cc.contract_id = t.change_req_id
AND cc.data_class = 'CHANGE_REQ'
;
src/main/webapp/WEB-INF/classes/csh/CSH531N/csh_write_off.lwm 0 → 100644
View file @ d0912507
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment