CREATE OR REPLACE PACKAGE telsale_archievement_pkg IS

    -- Author  : WANGWEI-202
    -- Created : 2023/3/10 15:13:34
    -- Purpose : 桌面霸屏项目基础数据生成包

    TYPE cur_type IS REF CURSOR;

    -- 异常
    DEPARTMENTCODE_EXCEPTION_CODE CONSTANT INTEGER := -20000;
    DEPARTMENTCODE_EXCEPTION_MSG  CONSTANT VARCHAR2(100) := '部门代码无效。';

    CALLERCODE_EXCEPTION_CODE CONSTANT INTEGER := -20001;
    CALLERCODE_EXCEPTION_MSG  CONSTANT VARCHAR2(100) := '坐席工号无效。';

    PROCEDURE department_archievement
    (
        a_department_code IN VARCHAR2,
        a_attaching_rate  OUT VARCHAR2,
        a_renewal_rate    OUT VARCHAR2,
        a_total           OUT INTEGER,
        a_mensual_cur     OUT cur_type
    );

    PROCEDURE caller_archievement
    (
        a_caller_code    IN VARCHAR2,
        a_attaching_rate OUT VARCHAR2,
        a_renewal_rate   OUT VARCHAR2,
        a_total          OUT INTEGER,
        a_present_month  OUT NUMBER,
        a_mensual_cur    OUT cur_type
    );

    PROCEDURE caller_archievement2
    (
        a_caller_code    IN VARCHAR2,
        a_attaching_rate OUT VARCHAR2,
        a_renewal_rate   OUT VARCHAR2,
        a_total          OUT INTEGER,
        a_present_month  OUT NUMBER,
        a_mensual_cur    OUT cur_type
    );

    PROCEDURE caller_arch_ranking_list
    (
        a_department_code        IN VARCHAR2,
        a_year                   IN VARCHAR2,
        a_month                  IN VARCHAR2,
        a_attaching_ranking_list OUT cur_type,
        a_renewal_ranking_list   OUT cur_type
    );

END telsale_archievement_pkg;
/
CREATE OR REPLACE PACKAGE BODY TELSALE_ARCHIEVEMENT_PKG IS
    -- 部门业绩
    PROCEDURE DEPARTMENT_ARCHIEVEMENT
    (
        A_DEPARTMENT_CODE IN VARCHAR2,
        A_ATTACHING_RATE  OUT VARCHAR2,
        A_RENEWAL_RATE    OUT VARCHAR2,
        A_TOTAL           OUT INTEGER,
        A_MENSUAL_CUR     OUT CUR_TYPE
    ) IS
        --L_THIS_MONTH      VARCHAR2(4);
        --L_THIS_YEAR       VARCHAR2(4);
        L_FIRSTDAY        DATE;
        L_DEPARTMENT_NAME VARCHAR2(100);
    BEGIN
        /*L_THIS_MONTH := TO_CHAR(SYSDATE,
                                'mm');
        L_THIS_YEAR  := TO_CHAR(SYSDATE,
                                'yyyy');*/
        L_FIRSTDAY := TO_DATE(TO_CHAR(SYSDATE,
                                      'yyyy') || '-01-01 00:00:00',
                              'yyyy-mm-dd hh24:mi:ss');
        -- 获取部门名称
        BEGIN
            SELECT DEPARTMENT_NAME INTO L_DEPARTMENT_NAME FROM IDST0.BM_T BM WHERE BM.DEPARTMENT_CODE = A_DEPARTMENT_CODE;
        EXCEPTION
            -- 如果没有找到部门名称，说明代码错误，抛出异常
            WHEN NO_DATA_FOUND THEN
                RAISE_APPLICATION_ERROR(DEPARTMENTCODE_EXCEPTION_CODE,
                                        DEPARTMENTCODE_EXCEPTION_MSG);
        END;
        --车非渗透率
        BEGIN
            SELECT round(dept.当月保费渗透率,
                         2)
              INTO A_ATTACHING_RATE
              FROM desktop_archievement_admin.BI机构渗透率跟踪表 dept
             WHERE dept.部门 = L_DEPARTMENT_NAME;
        EXCEPTION
            WHEN no_data_found THEN
                A_ATTACHING_RATE := 0;
        END;
        --续保率
        BEGIN
            SELECT round(t."个车续保率（全月）(%)",
                         2)
              INTO A_RENEWAL_RATE
              FROM BI机构当月个车续保率跟踪表 t
             WHERE t.责任部门 = L_DEPARTMENT_NAME;
        EXCEPTION
            WHEN no_data_found THEN
                A_RENEWAL_RATE := 0;
        END;
        --总业绩
        BEGIN
            SELECT ROUND(NVL(SUM(CF.车险个人客户保费 + CF.车非融合保费),
                             0),
                         0)
              INTO A_TOTAL
              FROM 坐席车非每日保费 CF
             WHERE 部门代码 = A_DEPARTMENT_CODE
               AND 签单日期 >= L_FIRSTDAY
               AND 签单日期 <= SYSDATE;
        EXCEPTION
            WHEN no_data_found THEN
                A_TOTAL := 0;
        END;
        --每月业绩
        OPEN A_MENSUAL_CUR FOR
            SELECT CF.月份 MM,
                   ROUND(NVL(SUM(CF.车险个人客户保费 + CF.车非融合保费) / 10000,
                             0),
                         0) BF
              FROM 坐席车非每日保费 CF
             WHERE 部门代码 = A_DEPARTMENT_CODE
               AND 签单日期 >= TO_DATE(TO_CHAR(SYSDATE,
                                           'yyyy') || '-01-01 00:00:00',
                                   'yyyy-mm-dd hh24:mi:ss')
               AND 签单日期 < TO_DATE(TO_CHAR(SYSDATE,
                                          'yyyy-mm') || '-01 00:00:00',
                                  'yyyy-mm-dd hh24:mi:ss')
             GROUP BY CF.月份
             ORDER BY CF.月份;
    END;

    /*******************************************************/
    -- 坐席业绩
    PROCEDURE caller_archievement
    (
        a_caller_code    IN VARCHAR2,
        a_attaching_rate OUT VARCHAR2,
        a_renewal_rate   OUT VARCHAR2,
        a_total          OUT INTEGER,
        a_present_month  OUT NUMBER,
        a_mensual_cur    OUT cur_type
    ) IS
        l_caller_name     VARCHAR2(100);
        l_department_name VARCHAR2(100);
        --l_this_month      VARCHAR2(4);
        l_this_year VARCHAR2(4);
        --l_firstday        DATE;
        l_rownum INTEGER;
    BEGIN
        --查询坐席名称，和部门名称，验证代码
        BEGIN
            /*SELECT zx.saler_name, bm.department_name
              INTO l_caller_name, l_department_name
              FROM tele_saler zx, tele_saler_team team, idst0.bm_t bm
             WHERE zx.saler_code = a_caller_code
               AND zx.team_code = team.team_code
               AND team.department_code = bm.department_code;
            SELECT saler_name
             INTO l_caller_name
             FROM tele_saler
            WHERE saler_code = a_caller_code;*/
            SELECT zx.人员姓名,
                   bm.department_name
              INTO l_caller_name,
                   l_department_name
              FROM twr_telsaler      zx,
                   twr_telsaler_team t,
                   idst0.bm_t        bm
             WHERE zx.人员工号 = a_caller_code
               AND zx.团队名称 = t.team_name
               AND t.department_code = bm.department_code;
        EXCEPTION
            -- 如果没有查询到坐席名称，说明代码有误，抛出异常
            WHEN no_data_found THEN
                raise_application_error(CALLERCODE_EXCEPTION_CODE,
                                        CALLERCODE_EXCEPTION_MSG);
        END;
    
        --l_this_month := to_char(SYSDATE,
        --                        'mm');
        l_this_year := to_char(SYSDATE,
                               'yyyy');
        --l_firstday   := to_date(l_this_year || '-01-01 00:00:00',
        --                        'yyyy-mm-dd hh24:mi:ss');
    
        --总车险保费
        SELECT round(nvl(SUM(cf.车险个人客户保费),
                         0),
                     2) bf
          INTO a_total
          FROM 坐席车非每日保费 cf
         WHERE cf.坐席名称 = l_caller_name
           AND cf.部门 = l_department_name
           AND cf.年份 = l_this_year;
    
        --渗透率
        BEGIN
            SELECT rownum,
                   round(nvl(t.当月保费渗透率,
                             0),
                         2),
                   round(nvl(t."车险保费(万)" * 10000,
                             0),
                         2)
              INTO l_rownum,
                   a_attaching_rate,
                   a_present_month
              FROM BI电销坐席车非渗透率跟踪表 t
             WHERE t.经办 = l_caller_name
               AND rownum = 1;
        EXCEPTION
            WHEN no_data_found THEN
                l_rownum         := 1;
                a_attaching_rate := 0.0;
                a_present_month  := 0.0;
        END;
    
        --续保率
        BEGIN
            SELECT rownum,
                   round(nvl(t."个车续保率（全月）(%)",
                             0),
                         2)
              INTO l_rownum,
                   a_renewal_rate
              FROM BI电销坐席续保率跟踪表 t
             WHERE t.责任人 = l_caller_name
               AND rownum = 1;
        EXCEPTION
            WHEN no_data_found THEN
                l_rownum       := 1;
                a_renewal_rate := 0.0;
        END;
    
        --每月业绩
        OPEN A_MENSUAL_CUR FOR
            SELECT CF.月份 MM,
                   ROUND(NVL(SUM(CF.车险个人客户保费),
                             0),
                         0) BF
              FROM 坐席车非每日保费 CF
             WHERE cf.坐席名称 = l_caller_name
               AND cf.部门 = l_department_name
               AND 签单日期 >= TO_DATE(TO_CHAR(SYSDATE,
                                           'yyyy') || '-01-01 00:00:00',
                                   'yyyy-mm-dd hh24:mi:ss')
               AND 签单日期 <= SYSDATE
             GROUP BY CF.月份
             ORDER BY CF.月份;
    END;

    PROCEDURE caller_archievement2
    (
        a_caller_code    IN VARCHAR2,
        a_attaching_rate OUT VARCHAR2,
        a_renewal_rate   OUT VARCHAR2,
        a_total          OUT INTEGER,
        a_present_month  OUT NUMBER,
        a_mensual_cur    OUT cur_type
    ) IS
        l_caller_name     VARCHAR2(100);
        l_department_name VARCHAR2(100);
        --l_this_month      VARCHAR2(4);
        l_this_year VARCHAR2(4);
        --l_firstday        DATE;
        l_rownum INTEGER;
    BEGIN
        --查询坐席名称，和部门名称，验证代码
        BEGIN
            SELECT zx.saler_name,
                   bm.department_name
              INTO l_caller_name,
                   l_department_name
              FROM tele_saler      zx,
                   tele_saler_team team,
                   idst0.bm_t      bm
             WHERE zx.saler_code = a_caller_code
               AND zx.team_code = team.team_code
               AND team.department_code = bm.department_code;
            /* SELECT saler_name
             INTO l_caller_name
             FROM tele_saler
            WHERE saler_code = a_caller_code;*/
        EXCEPTION
            -- 如果没有查询到坐席名称，说明代码有误，抛出异常
            WHEN no_data_found THEN
                raise_application_error(CALLERCODE_EXCEPTION_CODE,
                                        CALLERCODE_EXCEPTION_MSG);
        END;
    
        --l_this_month := to_char(SYSDATE,
        --                        'mm');
        l_this_year := to_char(SYSDATE,
                               'yyyy');
        --l_firstday   := to_date(l_this_year || '-01-01 00:00:00',
        --                        'yyyy-mm-dd hh24:mi:ss');
    
        --总车险保费
        SELECT round(nvl(SUM(cf.车险个人客户保费),
                         0),
                     2) bf
          INTO a_total
          FROM 坐席车非每日保费 cf
         WHERE cf.坐席名称 = l_caller_name
           AND cf.部门 = l_department_name
           AND cf.年份 = l_this_year;
    
        --渗透率
        SELECT rownum,
               round(nvl(t.当月保费渗透率,
                         0),
                     2),
               round(nvl(t."车险保费(万)" * 10000,
                         0),
                     2)
          INTO l_rownum,
               a_attaching_rate,
               a_present_month
          FROM BI电销坐席车非渗透率跟踪表 t
         WHERE t.经办 = l_caller_name
           AND rownum = 1;
        --续保率
        SELECT rownum,
               round(nvl(t."个车续保率（全月）(%)",
                         0),
                     2)
          INTO l_rownum,
               a_renewal_rate
          FROM BI电销坐席续保率跟踪表 t
         WHERE t.责任人 = l_caller_name
           AND rownum = 1;
    
        --每月业绩
        OPEN A_MENSUAL_CUR FOR
            SELECT CF.月份 MM,
                   ROUND(NVL(SUM(CF.车险个人客户保费),
                             0),
                         0) BF
              FROM 坐席车非每日保费 CF
             WHERE cf.坐席名称 = l_caller_name
               AND cf.部门 = l_department_name
               AND 签单日期 >= TO_DATE(TO_CHAR(SYSDATE,
                                           'yyyy') || '-01-01 00:00:00',
                                   'yyyy-mm-dd hh24:mi:ss')
               AND 签单日期 <= SYSDATE
             GROUP BY CF.月份
             ORDER BY CF.月份;
    END;

    /*******************************************************/
    -- 坐席排行榜
    PROCEDURE CALLER_ARCH_RANKING_LIST
    (
        A_DEPARTMENT_CODE        IN VARCHAR2,
        A_YEAR                   IN VARCHAR2,
        A_MONTH                  IN VARCHAR2,
        A_ATTACHING_RANKING_LIST OUT CUR_TYPE,
        A_RENEWAL_RANKING_LIST   OUT CUR_TYPE
    ) IS
        L_DEPARTMENT_NAME VARCHAR2(100);
    BEGIN
        -- 获取部门名称
        BEGIN
            SELECT DEPARTMENT_NAME INTO L_DEPARTMENT_NAME FROM IDST0.BM_T BM WHERE BM.DEPARTMENT_CODE = A_DEPARTMENT_CODE;
        EXCEPTION
            -- 如果没有找到部门名称，说明代码错误，抛出异常
            WHEN NO_DATA_FOUND THEN
                RAISE_APPLICATION_ERROR(DEPARTMENTCODE_EXCEPTION_CODE,
                                        DEPARTMENTCODE_EXCEPTION_MSG);
        END;
        -- 车非融合率排行榜
        OPEN A_ATTACHING_RANKING_LIST FOR
            SELECT rownum,
                   paihang.经办 AS caller_name,
                   paihang.xbl  AS attaching_rate
              FROM (SELECT t.经办,
                           round(t.当月保费渗透率,
                                 2) xbl
                      FROM BI电销坐席车非渗透率跟踪表 t
                     WHERE t.部门 = L_DEPARTMENT_NAME
                     ORDER BY t.当月保费渗透率 DESC) paihang;
    
        -- 续保率排行榜
        OPEN A_RENEWAL_RANKING_LIST FOR
            SELECT rownum,
                   paihang.责任人 AS CALLER_NAME,
                   paihang.xbl    AS RENEWAL_RATE
              FROM (SELECT t.责任人,
                           round(t."个车续保率（全月）(%)",
                                 2) xbl
                      FROM BI电销坐席续保率跟踪表 t
                     WHERE t.责任部门 = L_DEPARTMENT_NAME
                     ORDER BY xbl DESC) paihang;
        /*OPEN A_RENEWAL_RANKING_LIST FOR
        SELECT rownum,
               paihang.责任人 AS CALLER_NAME,
               paihang.xbl    AS RENEWAL_RATE
          FROM (SELECT DISTINCT *
                  FROM (SELECT t.责任人,
                               round(t."个车续保率（全月）(%)", 2) xbl,
                               zuoxi.department_name
                          FROM BI电销坐席续保率跟踪表 t,
                               (SELECT DISTINCT t.saler_code,
                                                t.saler_name,
                                                t.team_code,
                                                team.team,
                                                bm.department_name
                                  FROM tele_saler      t,
                                       tele_saler_team team,
                                       idst0.bm_t      bm
                                 WHERE t.team_code = team.team_code
                                   AND team.department_code = bm.department_code
                                   AND bm.department_name = L_DEPARTMENT_NAME) zuoxi
                         WHERE t.责任人 = zuoxi.saler_name) xb
                 ORDER BY xb.department_name, xb.xbl DESC) paihang;*/
    END;
BEGIN
    NULL;
END TELSALE_ARCHIEVEMENT_PKG;
/