r_achievement_vs_target 20180313

CREATE OR REPLACE FUNCTION r_achievement_vs_target(character varying, bigint, bigint, bigint, character varying, bigint, bigint, bigint, character varying, character varying)
  RETURNS SETOF refcursor AS
$BODY$
DECLARE
    pRefHeader                  REFCURSOR := 'refHeader';
    pRefDetailSummary           REFCURSOR := 'refDetailSummary';
    pRefDetail                  REFCURSOR := 'refDetail';
    pSessionId                  ALIAS FOR $1;
    pTenantId                   ALIAS FOR $2;
    pUserId                     ALIAS FOR $3;
    pRoleId                     ALIAS FOR $4;
    pDatetime                   ALIAS FOR $5;

    pOuId                       ALIAS FOR $6;
    pSalesmanId                 ALIAS FOR $7;
    pCustomerId                 ALIAS FOR $8;
    pYear                       ALIAS FOR $9;
    pPeriod                     ALIAS FOR $10;

    vPartnerCodeMou                 character varying(50);
    vPartnerNameMou                 character varying(100);
    vDocTypeIdSOByBrand             bigint;
    vStatusReleased                 character varying(1);
    vStatusFinal                    character varying(1);
    vStatusInProgress               character varying(1);
    vStatusDraft                    character varying(1);
    vTagKeyMOU                  character varying(10);
    vDocTypeIdReturnNote                bigint;
    vDocTypeIdSalesInvoice              bigint;
    vDocTypeIdInvoiceTemp               bigint;
    vDocTypeIdConversionOfExchangeIn        bigint;
    vDocTypeIdConversionOfExchangeOut       bigint;
    vDocTypeIdRRS                   bigint;
    vStatusMapping                  character varying(1);
    vStatusApproved                 character varying(1);
    vRaw                        character varying(20);
    vSummary                    character varying(20);
    vEmptyId                    bigint;
    vOne                        integer := 1;
    vEmptyValue                 character varying;
    vParamCodeInsentif          character varying := 'INCENTIVE';
    vActivityGLCodeInsentif     character varying;
    vActivityGLInsentif         bigint;

    vFlagYes                    character varying(1) :='Y';

    vCurrentDate                character varying;
    vSystemCurrentYear          character varying;
    vLastYear                   character varying;
    vEndDate                    character varying;
    vDateTo                     character varying;
    vFlgTypeSOReg               character varying;
    vZero                       numeric;
    vDocTypeIdSOB               bigint;
    vComboGroupBrand            character varying;
    vArraySeparator             character varying;
    vQuote                      character varying;
    vDocTypeIdReturnInvoice     bigint;
    vDocTypeIdCNAR              bigint;
    vDocTypeIdDNAR              bigint;
    i                           bigint;

BEGIN

    vPartnerCodeMou := ' ';
    vPartnerNameMou := ' ';
    vDocTypeIdSOByBrand := 398;
    vStatusReleased := 'R';
    vStatusFinal := 'F';
    vStatusInProgress := 'I';
    vStatusDraft := 'D';
    vTagKeyMOU := 'MOU';
    vDocTypeIdReturnNote := 502;
    vDocTypeIdSalesInvoice := 321;
    vDocTypeIdInvoiceTemp := 361;
    vDocTypeIdConversionOfExchangeIn := 394;
    vDocTypeIdConversionOfExchangeOut := 395;
    vDocTypeIdRRS :=381;
    vStatusMapping := 'M';
    vStatusApproved := 'A';
    vRaw := 'RAW';
    vSummary := 'SUMMARY';
    vEmptyId := -99;
    vEmptyValue := '';
    vEndDate := '1231';
    vFlgTypeSOReg := 'REG';
    vZero := 0;
    vDocTypeIdSOB := 398;
    vComboGroupBrand := 'GROUPBRANDPARENT';
    vArraySeparator := ', ';
    vQuote := '''';
    vDocTypeIdReturnInvoice := 380;
    vDocTypeIdCNAR := 251;
    vDocTypeIdCNAR := 241;
    i := 0;

    -- Get data-data activity gl code incentive dari system config value
    SELECT TRIM(REPLACE(f_get_value_system_config_by_param_code(pTenantId, vParamCodeInsentif), ';', ''',''')) INTO vActivityGLCodeInsentif;

    SELECT TO_CHAR(current_timestamp, 'YYYY') INTO vSystemCurrentYear;
    SELECT TO_CHAR(TO_DATE(pYear,'YYYY') - INTERVAL '1 Year','YYYY') INTO vLastYear;

    IF (pYear = vSystemCurrentYear) THEN
        SELECT TO_CHAR(current_timestamp, 'YYYYMMDD') INTO vDateTo;
    ELSIF (pYear < vSystemCurrentYear) THEN
        SELECT vLastYear || vEndDate INTO vDateTo;
    END IF;


    DELETE FROM tt_salesman_from_salesman_hierarchy WHERE session_id = pSessionId;
    DELETE FROM tt_salesman_customer_info_for_report_achievement_and_target WHERE session_id = pSessionId;
    DELETE FROM tt_achievement_transaction_for_report_achievement_and_target WHERE session_id = pSessionId;
    DELETE FROM tt_summary_for_report_achievement_and_target WHERE session_id = pSessionId;

    --Mendapatkan daftar salesman dalam hierarchy periode
    PERFORM f_get_salesman_from_salesman_hierarchy(pSessionId, pTenantId, pSalesmanId, pPeriod);

    WITH grouped_salesman AS (
        SELECT DISTINCT A.tenant_id, A.sales_child_id, A.group_brand, A.level
        FROM tt_salesman_from_salesman_hierarchy A
        WHERE A.session_id = pSessionId AND
            A.tenant_id = pTenantId AND
            pPeriod BETWEEN A.period_from AND A.period_to
    )
    INSERT INTO tt_salesman_customer_info_for_report_achievement_and_target (
        session_id, tenant_id, customer_id, customer_code, customer_name, customer_city,
        salesman_id, salesman_code, salesman_name, salesman_level, group_brand,
        target_sales, q1_amount, q2_amount, q3_amount
    )
    SELECT DISTINCT pSessionId, A.tenant_id, COALESCE(D.customer_id, vEmptyId), COALESCE(E.partner_code, vEmptyValue), COALESCE(E.partner_name, vEmptyValue), COALESCE(I.city, vEmptyValue),
        A.sales_child_id, C.partner_code, C.partner_name, A.level, A.group_brand,
        vZero, vZero, vZero, vZero
    FROM grouped_salesman A
    INNER JOIN m_partner C
        ON A.sales_child_id = C.partner_id
            AND A.tenant_id = C.tenant_id
    LEFT JOIN m_salesman_to_customer D
        ON A.tenant_id = D.tenant_id
            AND A.sales_child_id = D.salesman_id
            AND A.group_brand = D.group_brand
            AND pPeriod BETWEEN D.period_from AND D.period_to
    LEFT JOIN m_partner E
        ON D.customer_id = E.partner_id
            AND D.tenant_id = E.tenant_id
    LEFT JOIN m_ctgr_partner F
        ON F.tenant_id = E.tenant_id
            AND F.ctgr_partner_id = F.ctgr_partner_id
    LEFT JOIN t_user_role G
        ON G.user_id = pUserId
            AND G.role_id = pRoleId
    LEFT JOIN m_policy_partner H
        ON H.ctgr_partner_id = F.ctgr_partner_id
            AND H.user_role_id = G.user_role_id
    LEFT JOIN m_partner_address I
        ON I.tenant_id = E.tenant_id
            AND I.partner_id = E.partner_id
            AND I.flg_default = vFlagYes
    WHERE EXISTS (
        SELECT 1
        FROM m_partner_ou D
        INNER JOIN m_ou_structure E
            ON ( E.ou_bu_id = D.ou_id
                OR E.ou_branch_id = D.ou_id
                OR E.ou_sub_bu_id = D.ou_id )
        WHERE C.partner_id = D.partner_id
            AND e.ou_id = pOuId
    );

    UPDATE tt_salesman_customer_info_for_report_achievement_and_target A
    SET curr_code = B.curr_code,
        target_sales = B.target_sales,
        q1_amount = B.q1_amount,
        q2_amount = B.q2_amount,
        q3_amount = B.q3_amount
    FROM m_customer_target_sales B
    WHERE B.tenant_id = A.tenant_id
        AND A.customer_id = B.customer_id
        AND B.year = pYear
        AND B.group_brand = A.group_brand;

    --Temporary Sales Invoice
    EXECUTE
    'INSERT INTO tt_achievement_transaction_for_report_achievement_and_target (
        session_id, tenant_id, ou_id,
        doc_id, doc_type_id, doc_no, doc_date, partner_id, curr_code, amount,
        status_doc, workflow_status,
        group_brand_parent_code
    )
    SELECT DISTINCT ON (D.so_id) $1, A.tenant_id, C.ou_id,
        C.invoice_temp_id AS doc_id, C.doc_type_id, C.doc_no, C.doc_date, C.partner_id, B.curr_code, B.amount,
        C.status_doc AS status_doc_invoice_temp, C.workflow_status,
        G.code
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    INNER JOIN fi_invoice_ar_balance B ON B.partner_id = A.customer_id
    INNER JOIN sl_invoice_temp C ON C.invoice_temp_id = B.invoice_ar_id
    INNER JOIN sl_so_info D ON D.so_id = C.ref_id
    INNER JOIN sl_so_brand_item E ON E.so_id = D.so_id
    INNER JOIN m_brand_ext F ON F.brand_id = E.brand_id
    INNER JOIN t_combo_value G ON A.group_brand = G.code
    WHERE A.session_id = $1 AND
        C.tenant_id = $2 AND
        C.ou_id = $3 AND
        B.doc_type_id = $4 AND
        C.ref_doc_type_id = $5 AND
        D.flg_type_so = $6 AND
        SUBSTR(C.doc_date, 1, 4) BETWEEN $7 AND $8 AND
        G.combo_id = $9 AND
        $11 || F.group_brand || $11 = ANY (string_to_array (G.prop_key, $10))'
    USING pSessionId, pTenantId, pOuId, vDocTypeIdInvoiceTemp, vDocTypeIdSOB, vFlgTypeSOReg, vLastYear, pYear, vComboGroupBrand, vArraySeparator, vQuote;

    --Sales Invoice
    EXECUTE
    'INSERT INTO tt_achievement_transaction_for_report_achievement_and_target (
        session_id, tenant_id, ou_id,
        doc_id, doc_type_id, doc_no, doc_date, partner_id, curr_code, amount,
        status_doc, workflow_status,
        group_brand_parent_code
    )
    SELECT DISTINCT ON (D.so_id) $1, A.tenant_id, C.ou_id,
        C.invoice_id AS doc_id, C.doc_type_id, C.doc_no, C.doc_date, C.partner_id, B.curr_code, B.amount,
        C.status_doc AS status_doc_invoice_temp, C.workflow_status,
        G.code
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    INNER JOIN fi_invoice_ar_balance B ON B.partner_id = A.customer_id
    INNER JOIN sl_invoice C ON C.invoice_id = B.invoice_ar_id
    INNER JOIN sl_so_info D ON D.so_id = C.ref_id
    INNER JOIN sl_so_brand_item E ON E.so_id = D.so_id
    INNER JOIN m_brand_ext F ON F.brand_id = E.brand_id
    INNER JOIN t_combo_value G ON A.group_brand = G.code
    WHERE A.session_id = $1 AND
        C.tenant_id = $2 AND
        C.ou_id = $3 AND
        B.doc_type_id = $4 AND
        C.ref_doc_type_id = $5 AND
        D.flg_type_so = $6 AND
        SUBSTR(C.doc_date, 1, 4) BETWEEN $7 AND $8 AND
        G.combo_id = $9 AND
        $11 || F.group_brand || $11 = ANY (string_to_array (G.prop_key, $10))'
    USING pSessionId, pTenantId, pOuId, vDocTypeIdSalesInvoice, vDocTypeIdSOB, vFlgTypeSOReg, vLastYear, pYear, vComboGroupBrand, vArraySeparator, vQuote;

    --Return
    EXECUTE
    'INSERT INTO tt_achievement_transaction_for_report_achievement_and_target (
        session_id, tenant_id, ou_id,
        doc_id, doc_type_id, doc_no, doc_date, partner_id, curr_code, amount,
        status_doc, workflow_status,
        group_brand_parent_code
    )
    SELECT DISTINCT ON (D.request_return_sales_id) $1, A.tenant_id, C.ou_id,
        C.invoice_id AS doc_id, C.doc_type_id, C.doc_no, C.doc_date, C.partner_id, B.curr_code, B.amount,
        C.status_doc AS status_doc_invoice_temp, C.workflow_status,
        G.code
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    INNER JOIN fi_invoice_ar_balance B ON B.partner_id = A.customer_id
    INNER JOIN sl_invoice C ON C.invoice_id = B.invoice_ar_id
    INNER JOIN sl_request_return_sales_brand_item D ON D.request_return_sales_id = C.ref_id
    INNER JOIN m_brand_ext F ON F.brand_id = D.brand_id
    INNER JOIN t_combo_value G ON A.group_brand = G.code
    WHERE A.session_id = $1 AND
        C.tenant_id = $2 AND
        C.ou_id = $3 AND
        B.doc_type_id = $4 AND
        C.ref_doc_type_id = $5 AND
        SUBSTR(C.doc_date, 1, 4) BETWEEN $7 AND $8 AND
        G.combo_id = $9 AND
        $11 || F.group_brand || $11 = ANY (string_to_array (G.prop_key, $10))'
    USING pSessionId, pTenantId, pOuId, vDocTypeIdReturnInvoice, vDocTypeIdRRS, vFlgTypeSOReg, vLastYear, pYear, vComboGroupBrand, vArraySeparator, vQuote;

    --CN AR
    EXECUTE
    'INSERT INTO tt_achievement_transaction_for_report_achievement_and_target (
        session_id, tenant_id, ou_id,
        doc_id, doc_type_id, doc_no, doc_date, partner_id, curr_code, amount,
        status_doc, workflow_status,
        group_brand_parent_code
    )
    SELECT $1, A.tenant_id, C.ou_id,
        C.invoice_ar_id AS doc_id, C.doc_type_id, C.doc_no, C.doc_date, C.partner_id, B.curr_code, B.amount,
        C.status_doc AS status_doc_invoice_temp, C.workflow_status,
        G.code
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    INNER JOIN fi_invoice_ar_balance B ON B.partner_id = A.customer_id
    INNER JOIN fi_invoice_ar C ON C.invoice_ar_id = B.invoice_ar_id
    INNER JOIN t_combo_value G ON A.group_brand = G.code
    WHERE A.session_id = $1 AND
        C.tenant_id = $2 AND
        C.ou_id = $3 AND
        B.doc_type_id = $4 AND
        SUBSTR(C.doc_date, 1, 4) BETWEEN $7 AND $8 AND
        G.combo_id = $9'
    USING pSessionId, pTenantId, pOuId, vDocTypeIdCNAR, vDocTypeIdCNAR, vFlgTypeSOReg, vLastYear, pYear, vComboGroupBrand, vArraySeparator, vQuote;

    --DN AR
    EXECUTE
    'INSERT INTO tt_achievement_transaction_for_report_achievement_and_target (
        session_id, tenant_id, ou_id,
        doc_id, doc_type_id, doc_no, doc_date, partner_id, curr_code, amount,
        status_doc, workflow_status,
        group_brand_parent_code
    )
    SELECT $1, A.tenant_id, C.ou_id,
        C.invoice_ar_id AS doc_id, C.doc_type_id, C.doc_no, C.doc_date, C.partner_id, B.curr_code, B.amount,
        C.status_doc AS status_doc_invoice_temp, C.workflow_status,
        G.code
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    INNER JOIN fi_invoice_ar_balance B ON B.partner_id = A.customer_id
    INNER JOIN fi_invoice_ar C ON C.invoice_ar_id = B.invoice_ar_id
    INNER JOIN t_combo_value G ON A.group_brand = G.code
    WHERE A.session_id = $1 AND
        C.tenant_id = $2 AND
        C.ou_id = $3 AND
        B.doc_type_id = $4 AND
        SUBSTR(C.doc_date, 1, 4) BETWEEN $7 AND $8 AND
        G.combo_id = $9'
    USING pSessionId, pTenantId, pOuId, vDocTypeIdDNAR, vDocTypeIdDNAR, vFlgTypeSOReg, vLastYear, pYear, vComboGroupBrand, vArraySeparator, vQuote;


    Open pRefHeader FOR
        SELECT f_get_partner_name(pSalesmanId) AS salesman_name, vDateTo AS date_to, vLastYear AS last_year, pYear AS current_year;
    RETURN NEXT pRefHeader;

    WITH tt_grouped_summary AS (
        SELECT A.tenant_id, A.salesman_id,
            A.target_sales AS target,
            SUM(COALESCE(B.amount, 0)) AS year_to_date_accumulative_amount,
            A.salesman_level,
            A.group_brand AS group_brand_parent_code
        FROM tt_salesman_customer_info_for_report_achievement_and_target A
        LEFT JOIN tt_achievement_transaction_for_report_achievement_and_target B
            ON B.partner_id = A.customer_id AND
                B.tenant_id = A.tenant_id AND
                SUBSTR(B.doc_date, 1, 4) = pYear AND
                B.group_brand_parent_code = A.group_brand
        WHERE A.session_id = pSessionId AND
            A.tenant_id = pTenantId
        GROUP BY A.tenant_id, A.salesman_id, A.target_sales, A.salesman_level, A.group_brand
    )
    INSERT INTO tt_summary_for_report_achievement_and_target (
        session_id, tenant_id, salesman_id,
        target_amount,
        year_to_date_accumulative_amount,
        salesman_level, group_brand_parent_code
    )
    SELECT pSessionId, A.tenant_id, A.salesman_id,
            SUM(A.target) AS target,
            SUM(A.year_to_date_accumulative_amount) AS year_to_date_accumulative_amount,
            A.salesman_level,
            A.group_brand_parent_code
    FROM tt_grouped_summary A
    GROUP BY A.tenant_id, A.salesman_id, A.salesman_level, A.group_brand_parent_code;


    SELECT MAX(A.salesman_level) - 1
    FROM tt_salesman_customer_info_for_report_achievement_and_target A
    WHERE A.session_id = pSessionId AND
        A.tenant_id = pTenantId INTO i;

    WHILE i >= 1 LOOP
        PERFORM f_get_total_achievement_from_salesman_hierarchy(pSessionId, pTenantId, A.salesman_id, pYear, A.group_brand_parent_code)
        FROM tt_summary_for_report_achievement_and_target A
        WHERE A.session_id = pSessionId AND
            A.tenant_id = pTenantId AND
            A.salesman_level = i;
        i := i - 1 ;
    END LOOP ;

    Open pRefDetailSummary FOR
        SELECT f_get_partner_name(A.salesman_id) AS salesman_name,
            SUM(A.target_amount) AS target_amount,
            SUM(A.year_to_date_accumulative_amount) AS year_to_date_accumulative_amount
        FROM tt_summary_for_report_achievement_and_target A
        WHERE A.session_id = pSessionId AND
            A.tenant_id = pTenantId
        GROUP BY A.tenant_id, A.salesman_id;
    RETURN NEXT pRefDetailSummary;

    PERFORM SETVAL('r_achievement_vs_target_line_no_seq', 0);

    Open pRefDetail FOR
        SELECT NEXTVAL('r_achievement_vs_target_line_no_seq') AS line_no,
            B.customer_code, B.customer_name, B.customer_city,
            'Septi' AS manager_name, '-' AS supervisor_name, 'Efendi' AS senior_sales_name, B.salesman_name AS junior_sales_name,
            SUM(
                CASE WHEN C.year_date = vLastYear THEN
                    A.amount
                ELSE
                    0
                END
            ) AS last_year_achievement_amount,
            B.target_sales AS current_year_target_amount, B.q1_amount, B.q2_amount, B.q3_amount,
            SUM(
                CASE WHEN C.year_date = pYear THEN
                    A.amount
                ELSE
                    0
                END
            ) AS year_to_date_amount,
            SUM(
                CASE WHEN C.q_no = 1 THEN
                    A.amount
                ELSE
                    0
                END
            ) AS q1_achievement_amount,
            SUM(
                CASE WHEN C.q_no = 2 THEN
                    A.amount
                ELSE
                    0
                END
            ) AS q2_achievement_amount,
            SUM(
                CASE WHEN C.q_no = 3 THEN
                    A.amount
                ELSE
                    0
                END
            ) AS q3_achievement_amount
        FROM tt_achievement_transaction_for_report_achievement_and_target A
        INNER JOIN tt_salesman_customer_info_for_report_achievement_and_target B
            ON A.partner_id = B.customer_id AND
                A.tenant_id = B.tenant_id
        INNER JOIN dt_date C ON A.doc_date = C.string_date
        GROUP BY B.customer_code, B.customer_name, B.customer_city,
            B.salesman_name,
            B.target_sales, B.q1_amount, B.q2_amount, B.q3_amount, group_brand_parent_code;
    RETURN NEXT pRefDetail;

    DELETE FROM tt_salesman_from_salesman_hierarchy WHERE session_id = pSessionId;
    DELETE FROM tt_salesman_customer_info_for_report_achievement_and_target WHERE session_id = pSessionId;
    DELETE FROM tt_achievement_transaction_for_report_achievement_and_target WHERE session_id = pSessionId;
    DELETE FROM tt_summary_for_report_achievement_and_target WHERE session_id = pSessionId;

END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100
  /