CPICXIM/telsale-management
CPICXIM
/
telsale-management
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

...

This commit is contained in:
Kane Wang 2021-06-22 16:24:56 +08:00
parent 92d5d75e59
commit 944e6f9284
3 changed files with 103 additions and 104 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitignore vendored
View File

@ -10,10 +10,9 @@ Debug/
Release/
GeneratedFiles/
*.~sql
*.~pck
*.pkg
*.suo
*.sdf
*.opensdf
workspace.xml

104
代码/oracle/项目/包/telsale_policy_check_pkg.pck
View File

@ -99,13 +99,113 @@ CREATE OR REPLACE PACKAGE BODY telsale_policy_check_pkg IS
a_entry_staff_department_code OUT VARCHAR2,
a_entry_staff_department_name OUT VARCHAR2
) IS
l_policy_section_code VARCHAR2(6);
l_policy_department_code VARCHAR2(6);
l_policy_sectionoffice_code VARCHAR2(6);
l_policy_department_code VARCHAR2(6);
BEGIN
NULL;
--判断保单号是否存在，以及保单号的科室部门和经办人是否相同
--验证保单号是否存在，获取保单归属科室和部门
BEGIN
SELECT bd.section_office_code,
bd.department_code
INTO l_policy_sectionoffice_code,
l_policy_department_code
FROM idst0.auto_agreement_t@xmcx1.cpicxm bd
WHERE bd.policy_no = a_policy_no;
EXCEPTION
WHEN NO_DATA_FOUND THEN
raise_application_error(POLICYNO_NOT_EXIST_EXCEPT_CODE,
POLICYNO_NOT_EXIST_EXCEPT_TEXT);
END;
--验证经办人是否存在
BEGIN
SELECT ry.staff_name,
ksh.section_office_code,
ksh.section_office_name,
bm.department_code,
bm.department_name
INTO a_operator_name,
a_operator_sectionoffice_code,
a_operator_sectionoffice_name,
a_operator_department_code,
a_operator_department_name
FROM idst0.rydm_t@xmcx1.cpicxm ry,
idst0.ks_t@xmcx1.cpicxm ksh,
idst0.bm_t@xmcx1.cpicxm bm
WHERE ry.section_office_code = ksh.section_office_code
AND ry.department_code = bm.department_code
AND ry.staff_code = a_operator_code;
EXCEPTION
WHEN NO_DATA_FOUND THEN
raise_application_error(OPERATOE_CODE_NOT_EXIST_EXCEPT_CODE,
OPERATOE_CODE_NOT_EXIST_EXCEPT_TEXT);
END;
--验证录入人是否存在
BEGIN
SELECT ry.staff_name,
ksh.section_office_code,
ksh.section_office_name,
bm.department_code,
bm.department_name
INTO a_entry_staff_name,
a_entry_staff_sectionoffice_code,
a_entry_staff_sectionoffice_name,
a_entry_staff_department_code,
a_entry_staff_department_name
FROM idst0.rydm_t@xmcx1.cpicxm ry,
idst0.ks_t@xmcx1.cpicxm ksh,
idst0.bm_t@xmcx1.cpicxm bm
WHERE ry.section_office_code = ksh.section_office_code
AND ry.department_code = bm.department_code
AND ry.staff_code = a_entry_staff_code;
EXCEPTION
WHEN NO_DATA_FOUND THEN
raise_application_error(OPERATOE_CODE_NOT_EXIST_EXCEPT_CODE,
OPERATOE_CODE_NOT_EXIST_EXCEPT_TEXT);
END;
--判断保单归属和经办人所在部门是否匹配，不匹配视为错误
IF l_policy_sectionoffice_code != a_operator_sectionoffice_code OR
l_policy_department_code != a_operator_department_code
THEN
raise_application_error(OPERATOE_CODE_NOT_MATCH_EXCEPT_CODE,
OPERATOE_CODE_NOT_MATCH_EXCEPT_TEXT);
END IF;
--没错误后，保存记录
INSERT INTO telsale.电销保单信息表
(保单号,
经办人代码,
经办人名称,
经办人科室代码,
经办人科室名称,
经办人部门代码,
经办人部门名称,
操作员代码,
操作员名称,
操作员科室代码,
操作员科室名称,
操作员部门代码,
操作员部门名称,
操作日期)
VALUES
(a_policy_no,
a_operator_code,
a_operator_name,
a_operator_sectionoffice_code,
a_operator_sectionoffice_name,
a_operator_department_code,
a_operator_department_name,
a_entry_staff_code,
a_entry_staff_name,
a_entry_staff_sectionoffice_code,
a_entry_staff_sectionoffice_name,
a_entry_staff_department_code,
a_entry_staff_department_name,
SYSDATE);
END;
BEGIN

100
代码/oracle/项目/包/telsale_policy_check_pkg.~pck
View File

@ -1,100 +0,0 @@
CREATE OR REPLACE PACKAGE telsale_policy_check_pkg IS
-- Author : 王炜
-- Created : 2021/6/21 10:18:01
-- Purpose : 电销保单数据验证
--定义异常
--保单号不存在
POLICYNO_NOT_EXIST_EXCEPT_CODE CONSTANT INTEGER := -20000;
POLICYNO_NOT_EXIST_EXCEPT_TEXT CONSTANT VARCHAR2(100) := '保单号不存在。';
FUNCTION policy_check(a_policy_no VARCHAR2) RETURN BOOLEAN;
FUNCTION staff_check(a_stuff_code VARCHAR2) RETURN BOOLEAN;
PROCEDURE save_policy
(
a_policy_no IN VARCHAR2,
a_operator_code IN VARCHAR2,
a_operator_name OUT VARCHAR2,
a_operator_sectionoffice_code OUT VARCHAR2,
a_operator_sectionoffice_name OUT VARCHAR2,
a_operator_department_code OUT VARCHAR2,
a_operator_department_name OUT VARCHAR2,
a_entry_staff_code IN VARCHAR2,
a_entry_staff_name OUT VARCHAR2,
a_entry_staff_sectionoffice_code OUT VARCHAR2,
a_entry_staff_sectionoffice_name OUT VARCHAR2,
a_entry_staff_department_code OUT VARCHAR2,
a_entry_staff_department_name OUT VARCHAR2
);
END telsale_policy_check_pkg;
/
CREATE OR REPLACE PACKAGE BODY telsale_policy_check_pkg IS
/*********************************************************************************/
FUNCTION staff_check(a_stuff_code VARCHAR2) RETURN BOOLEAN IS
l_count INTEGER;
BEGIN
SELECT COUNT(*)
INTO l_count
FROM idst0.rydm_t@xmcx1.cpicxm ry
WHERE ry.staff_code = a_stuff_code;
IF l_count = 0
THEN
RETURN FALSE;
END IF;
RETURN TRUE;
END;
/*********************************************************************************/
FUNCTION policy_check(a_policy_no VARCHAR2) RETURN BOOLEAN IS
l_count INTEGER;
BEGIN
SELECT COUNT(*)
INTO l_count
FROM idst0.auto_agreement_t@xmcx1.cpicxm a
WHERE a.policy_no = a_policy_no;
IF l_count = 0
THEN
RETURN FALSE;
END IF;
RETURN TRUE;
END;
/*********************************************************************************/
PROCEDURE save_policy
(
a_policy_no IN VARCHAR2,
a_operator_code IN VARCHAR2,
a_operator_name OUT VARCHAR2,
a_operator_sectionoffice_code OUT VARCHAR2,
a_operator_sectionoffice_name OUT VARCHAR2,
a_operator_department_code OUT VARCHAR2,
a_operator_department_name OUT VARCHAR2,
a_entry_staff_code IN VARCHAR2,
a_entry_staff_name OUT VARCHAR2,
a_entry_staff_sectionoffice_code OUT VARCHAR2,
a_entry_staff_sectionoffice_name OUT VARCHAR2,
a_entry_staff_department_code OUT VARCHAR2,
a_entry_staff_department_name OUT VARCHAR2
) IS
l_policy_section_code VARCHAR2(6);
l_policy_department_code VARCHAR2(6);
BEGIN
NULL;
--判断保单号是否存在，以及保单号的科室部门和经办人是否相同
END;
BEGIN
NULL;
END telsale_policy_check_pkg;
/