Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- /
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement