CREATE OR REPLACE FUNCTION in_process_costing_wip(bigint, character varying, character varying, bigint, character varying, bigint)
  RETURNS void AS
$BODY$
DECLARE

    pTenantId           ALIAS FOR $1;
    pSessionId          ALIAS FOR $2;
    pYearMonth          ALIAS FOR $3;
    pOuId               ALIAS FOR $4;
    pDatetime           ALIAS FOR $5;
    pUserId             ALIAS FOR $6;

    vNextYearMonth          character varying(6);
    vCurrGL                 character varying(5);
    vFlagNo                 character varying(1);
    vFlagYes                character varying(1);
    vEmptyValue             character varying(1);
    vEmptyId                bigint;
    vDocTypeAwal            bigint;
    vGroupProductFG         character varying(5);
    vGroupProductRM         character varying(5);
    vRoundingDigit          integer;
    vTypeRate               character varying(5);
    vStatusRelease          character varying(1);
    vProductStatusPending   character varying := 'PENDING';
BEGIN

    vFlagNo := 'N';
    vFlagYes := 'Y';
    vDocTypeAwal := -99;
    vEmptyId := -99;
    vEmptyValue := ' ';
    vGroupProductFG := 'FG';
    vGroupProductRM := 'RM';
    vTypeRate := 'COM';
    vStatusRelease := 'R';

    SELECT TO_CHAR(TO_DATE(MAX(pYearMonth),'YYYYMM') + interval '1 Month','YYYYMM') INTO vNextYearMonth;

    vCurrGL := f_get_value_system_config_by_param_code(pTenantId,'ValutaBuku');
    vRoundingDigit := CAST(f_get_value_system_config_by_param_code(pTenantId,'rounding.gl.amount') AS integer);

    DELETE FROM tt_in_doc_product_price WHERE session_id = pSessionId;

    DELETE FROM tt_in_add_product_unamount WHERE session_id = pSessionId;

    DELETE FROM tt_in_product_base_price WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_product WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_cogs WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_amount_remain WHERE session_id = pSessionId;

    /*
     * costing product hanya berdasarkan ou business unit ( artinya tbl cogs hanya ada ou_id )
     */

    /*
     * membuat summary nilai pembelian berdasarkan hasil jurnal
     * untuk transaksi receive goods
     * NK, 16 Feb 2015 : Pembelian Internal menghasilkan dokumen semua sesuai doc type Receive Goods
     * Receive Goods : 111
     *
     * WTC, 20161123, Ambil data item dokumen Receive Goods beserta nilainya dari data jurnal, khusus untuk produk-produk yang not ready to sell
     */
    INSERT INTO in_summary_monthly_amount_wip
    (date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount,
    "version", create_datetime, create_user_id, update_datetime, update_user_id, remark)
    SELECT pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, C.product_id, C.uom_id, SUM(C.qty),
        C.gl_curr_code, SUM(C.gl_amount), 'PURCH_PRICE',
        0, pDatetime, pUserId, pDatetime, pUserId, vGroupProductFG
    FROM gl_journal_trx A, dt_date B, gl_journal_trx_item C, m_document_journal D, vw_finish_goods_product E
    WHERE A.tenant_id = pTenantId AND
        A.ou_bu_id = pOuId AND
        A.status_doc = vStatusRelease AND
        A.doc_date = B.string_date AND
        B.year_month_date = pYearMonth AND
        A.journal_trx_id = C.journal_trx_id AND
        A.doc_type_id = D.doc_type_id AND
        D.ledger_code IN ('PURCH') AND
        C.journal_desc = 'TEMPORARY_PRODUCT_STOCK' AND
        A.doc_type_id IN (111) AND
        C.product_id = E.product_id AND
        f_check_product_ready_to_sell(C.product_id) = 0
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, C.product_id, C.uom_id, C.gl_curr_code;

    /*
     * ambil data receive goods dari in_summary_monthly_amount_wip yang product finish goods
     * NK, 16 Feb 2015 : receive goods internal menggunakan doc type receive goods
     */
    INSERT INTO tt_in_doc_product_price
    (session_id, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id, product_id,
     doc_type_id, ref_id, doc_no, doc_date,
     curr_code, amount, qty, uom_id,
     numerator_rate, denominator_rate,
     gl_curr_code, gl_amount)
    SELECT pSessionId, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.product_id,
        A.doc_type_id, vEmptyId, vEmptyValue, vEmptyValue,
        A.gl_curr_code, A.gl_amount, A.qty, A.base_uom_id,
        1, 1,
        A.gl_curr_code, A.gl_amount
    FROM in_summary_monthly_amount_wip A, vw_finish_goods_product E
    WHERE A.date_year_month = pYearMonth AND
        A.doc_type_id IN (111) AND
        A.tenant_id = pTenantId AND
        A.ou_bu_id = pOuId AND
        A.product_id = E.product_id;

    /*
     * ambil data adjusment stok amount
     * jika curr <> curr G/L, maka lakukan hitung rate untuk ke nilai sesuai valuta G/L
     * 522 : adj stock amount ( mempengaruhi COGS )
     * 523 : adj stock amount balance ( mempengaruhi saldo akhir )
     * 528 : costing allocation to product ( mempengaruhi COGS )
     *
     * WTC, 20161126, ambil data adj stock amount balance dan costing allocation to product, khusus untuk produk not ready to sell.
     * Ambil data adj stock amount, khusus untuk product not ready to sell yang product status nya PENDING. Nilainya menggunakan metode prorate
     */
    INSERT INTO tt_in_doc_product_price
    (session_id, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id, product_id,
     doc_type_id, ref_id, doc_no, doc_date,
     curr_code, amount, qty, uom_id,
     numerator_rate, denominator_rate,
     gl_curr_code, gl_amount)
    SELECT pSessionId, A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.product_id,
        A.doc_type_id, A.ref_id, A.doc_no, A.doc_date,
        A.curr_code, A.amount, A.qty, A.uom_id,
        1, 1, vCurrGL, ROUND( A.amount, vRoundingDigit)
    FROM in_product_price_balance A, m_ou_structure B, dt_date C, vw_finish_goods_product E
    WHERE A.doc_date = C.string_date AND
        C.year_month_date = pYearMonth AND
        A.tenant_id = pTenantId AND
        A.ou_id = B.ou_id AND
        B.ou_bu_id = pOuId AND
        A.doc_type_id IN (523, 528) AND
        A.product_id = E.product_id AND
        f_check_product_ready_to_sell(A.product_id) = 0;

    INSERT INTO tt_in_doc_product_price
    (session_id, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id, product_id,
     doc_type_id, ref_id, doc_no, doc_date,
     curr_code, amount, qty, uom_id,
     numerator_rate, denominator_rate,
     gl_curr_code, gl_amount)
    SELECT pSessionId, A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.product_id,
        A.doc_type_id, A.ref_id, A.doc_no, A.doc_date,
        A.curr_code, SUM(F.amount), SUM(F.qty_realization), A.uom_id,
        1, 1, vCurrGL, ROUND(SUM(F.amount), vRoundingDigit)
    FROM in_product_price_balance A, m_ou_structure B, dt_date C, vw_finish_goods_product E, in_inventory_item F
    WHERE A.doc_date = C.string_date AND
        C.year_month_date = pYearMonth AND
        A.tenant_id = pTenantId AND
        A.ou_id = B.ou_id AND
        B.ou_bu_id = pOuId AND
        A.doc_type_id = 522 AND
        A.product_id = E.product_id AND
        f_check_product_ready_to_sell(A.product_id) = 0 AND
        A.ref_id = F.inventory_item_id AND
        F.product_status = vProductStatusPending
    GROUP BY A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.product_id,
        A.doc_type_id, A.ref_id, A.doc_no, A.doc_date,
        A.curr_code, A.uom_id;

    -- hitung nilai pembukuan untuk transaksi adjusment stok amount
    UPDATE tt_in_doc_product_price SET numerator_rate = B.amount_to, denominator_rate = B.amount_from
    FROM m_exchange_rate B
    WHERE tt_in_doc_product_price.session_id = pSessionId AND
        tt_in_doc_product_price.tenant_id = B.tenant_id AND
        B.type_exchange_rate = vTypeRate AND
        tt_in_doc_product_price.doc_date = B.date_from AND
        tt_in_doc_product_price.curr_code = B.curr_code_from AND
        tt_in_doc_product_price.gl_curr_code = B.curr_code_to AND
        tt_in_doc_product_price.doc_type_id IN (522, 523, 528) AND
        tt_in_doc_product_price.curr_code <> vCurrGL;

    UPDATE tt_in_doc_product_price SET gl_amount = ROUND(amount * numerator_rate / denominator_rate, vRoundingDigit)
    WHERE tt_in_doc_product_price.session_id = pSessionId AND
          tt_in_doc_product_price.doc_type_id IN (522, 523, 528) AND
          tt_in_doc_product_price.curr_code <> vCurrGL;

    /*
     * product non assembly
     * ambil data transaksi yg tambah stok, tp belum memiliki nilai
     * 1.adj stok qty plus : 521, khusus tuk product not ready to sell
     */
    INSERT INTO tt_in_add_product_unamount
    (session_id, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id, product_id,
     doc_type_id, qty, uom_id, gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.product_id,
        A.doc_type_id, A.qty, A.base_uom_id, vCurrGL, 0, vEmptyValue
    FROM in_log_product_balance_stock A, m_ou_structure B, dt_date C, vw_finish_goods_product E
    WHERE A.ou_id = B.ou_id AND
        B.ou_bu_id = pOuId AND
        A.doc_date = C.string_date AND
        C.year_month_date = pYearMonth AND
        A.doc_type_id = 521 AND
        A.product_id = E.product_id AND
        A.qty > 0 AND
        f_check_product_ready_to_sell(A.product_id) = 0 AND
        A.product_status = vProductStatusPending;

    /*
     * buat data yang akan menjadi acuan harga standard
     * 1.data purch price di bulan bersangkutan
     * 2.data nilai barang di awal bulan
     * 3.data master harga standard
     */
    INSERT INTO tt_in_product_base_price
    (session_id, tenant_id, ou_id, product_id,
     flg_amount, qty, uom_id, gl_curr_code, gl_amount)
    SELECT A.session_id, A.tenant_id, A.ou_bu_id, A.product_id,
        'PURCH_PRICE', SUM(A.qty), A.uom_id, A.gl_curr_code, SUM(A.gl_amount)
    FROM tt_in_doc_product_price A
    WHERE A.session_id = pSessionId AND
        A.doc_type_id IN (111)
    GROUP BY A.session_id, A.tenant_id, A.ou_bu_id, A.product_id,
        A.uom_id, A.gl_curr_code;

    INSERT INTO tt_in_product_base_price
    (session_id, tenant_id, ou_id, product_id,
     flg_amount, qty, uom_id, gl_curr_code, gl_amount)
    SELECT pSessionId, A.tenant_id, A.ou_bu_id, A.product_id,
        'BGN_BALANCE', SUM(A.qty), A.base_uom_id, A.gl_curr_code, SUM(A.gl_amount)
    FROM in_summary_monthly_amount_wip A, vw_finish_goods_product E
    WHERE A.date_year_month = pYearMonth AND
        A.doc_type_id = vDocTypeAwal AND
        A.tenant_id = pTenantId AND
        A.ou_bu_id = pOuId AND
        A.product_id = E.product_id
    GROUP BY A.tenant_id, A.ou_bu_id, A.product_id,
        A.base_uom_id, A.gl_curr_code;

    INSERT INTO tt_in_product_base_price
    (session_id, tenant_id, ou_id, product_id,
     flg_amount, qty, uom_id, gl_curr_code, gl_amount)
    SELECT pSessionId, A.tenant_id, A.ou_id, A.product_id,
        'STANDARD_PRICE', 0, E.base_uom_id, A.curr_code, SUM(A.amount)
    FROM in_product_standard_cogs A, vw_finish_goods_product E
    WHERE A.tenant_id = pTenantId AND
        A.ou_id = pOuId AND
        A.year_month_date = pYearMonth AND
        A.product_id = E.product_id
    GROUP BY A.tenant_id, A.ou_id, A.product_id, A.curr_code, E.base_uom_id;

    /*
     * isi nilai data tt_in_add_product_unamount dengan urutan :
     * 1. update dengan data flg amount STANDARD_PRICE
     * 2. jika belum ada, update dengan data flg amount BGN_BALANCE
     * 3. jika belum ada, update dengan data flg amount PURCH_PRICE
     */

    UPDATE tt_in_add_product_unamount SET gl_amount = tt_in_add_product_unamount.qty * A.gl_amount, flg_amount = A.flg_amount
    FROM tt_in_product_base_price A
    WHERE A.session_id = pSessionId AND
        tt_in_add_product_unamount.session_id = A.session_id AND
        tt_in_add_product_unamount.tenant_id = A.tenant_id AND
        tt_in_add_product_unamount.ou_bu_id = A.ou_id AND
        tt_in_add_product_unamount.product_id = A.product_id AND
        tt_in_add_product_unamount.flg_amount = vEmptyValue AND
        A.flg_amount = 'STANDARD_PRICE';

    UPDATE tt_in_add_product_unamount SET gl_amount = ROUND(tt_in_add_product_unamount.qty * ( A.gl_amount / A.qty ), vRoundingDigit), flg_amount = A.flg_amount
    FROM tt_in_product_base_price A
    WHERE A.session_id = pSessionId AND
        tt_in_add_product_unamount.session_id = A.session_id AND
        tt_in_add_product_unamount.tenant_id = A.tenant_id AND
        tt_in_add_product_unamount.ou_bu_id = A.ou_id AND
        tt_in_add_product_unamount.product_id = A.product_id AND
        tt_in_add_product_unamount.flg_amount = vEmptyValue AND
        A.flg_amount = 'BGN_BALANCE' AND
        A.qty <> 0;

    UPDATE tt_in_add_product_unamount SET gl_amount = ROUND(tt_in_add_product_unamount.qty * ( A.gl_amount / A.qty ), vRoundingDigit), flg_amount = A.flg_amount
    FROM tt_in_product_base_price A
    WHERE A.session_id = pSessionId AND
        tt_in_add_product_unamount.session_id = A.session_id AND
        tt_in_add_product_unamount.tenant_id = A.tenant_id AND
        tt_in_add_product_unamount.ou_bu_id = A.ou_id AND
        tt_in_add_product_unamount.product_id = A.product_id AND
        tt_in_add_product_unamount.flg_amount = vEmptyValue AND
        A.flg_amount = 'PURCH_PRICE' AND
        A.qty <> 0;


/*
 *  menghitung harga rata rata product (non assembly ) berdasarkan :
 *  1. harga purchasing
 *  2. harga adj stock amount ( bukan yg balance amount )
 *  3. transaksi tambah stok qty, dengan harga sudah diproses : retur jual, adj stok qty > 0
 *  4. harga saldo awal
 */
    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.uom_id, SUM(A.qty),
        A.gl_curr_code, SUM(A.gl_amount), 'PURCH_PRICE'
    FROM tt_in_doc_product_price A
    WHERE A.session_id = pSessionId AND
        A.doc_type_id IN (111)
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, A.product_id, A.uom_id, A.gl_curr_code;

    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.uom_id, SUM(A.qty),
        A.gl_curr_code, SUM(A.gl_amount), 'TRANSACTION'
    FROM tt_in_doc_product_price A
    WHERE A.session_id = pSessionId AND
        A.doc_type_id IN ( 522, 528 )
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, A.product_id, A.uom_id, A.gl_curr_code;

    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.uom_id, SUM(A.qty),
        A.gl_curr_code, SUM(A.gl_amount), A.flg_amount
    FROM tt_in_add_product_unamount A
    WHERE A.session_id = pSessionId
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, A.product_id, A.uom_id, A.gl_curr_code, A.flg_amount;

    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, SUM(A.qty),
        A.gl_curr_code, SUM(A.gl_amount), A.flg_amount
    FROM in_summary_monthly_amount_wip A, vw_finish_goods_product E
    WHERE A.date_year_month = pYearMonth AND
        A.doc_type_id = vDocTypeAwal AND
        A.ou_bu_id = pOuId AND
        A.tenant_id = pTenantId AND
        A.product_id = E.product_id
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, A.product_id, A.base_uom_id, A.gl_curr_code, A.flg_amount;

    /*
     * hitung harga rata-rata sebagai dasar harga pokok
     */
    INSERT INTO tt_in_summary_monthly_cogs
    (session_id, date_year_month, tenant_id, ou_id,
    product_id, qty_total, curr_code, amount_total, avg_price)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id,
        A.product_id, SUM(A.qty), A.gl_curr_code, SUM(A.gl_amount), 0
    FROM tt_in_summary_monthly_product A
    WHERE A.session_id = pSessionId
    GROUP BY A.tenant_id, A.ou_bu_id, A.product_id, A.gl_curr_code;

    UPDATE tt_in_summary_monthly_cogs
      SET avg_price = amount_total / qty_total
    WHERE session_id = pSessionId AND
      qty_total <> 0;

    /*
     * memberikan nilai untuk transaksi stok yang mengurangi qty, sesuai harga rata rata bulan ini
     * - transaksi adj stok qty(521), yang qty < 0, produknya not ready to sell, dan product status nya PENDING.
     * - transaksi LPBD (198), yg  product statusnya PENDING
     */
    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id,  ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, SUM(A.qty),
        vCurrGL, 0, 'MONTHLY_AVG'
    FROM in_log_product_balance_stock A, m_ou_structure B, dt_date C, vw_finish_goods_product E
    WHERE A.ou_id = B.ou_id AND
        B.ou_bu_id = pOuId AND
        A.doc_date = C.string_date AND
        C.year_month_date = pYearMonth AND
        A.doc_type_id = 198 AND
        A.product_id = E.product_id AND
        A.product_status = vProductStatusPending
    GROUP BY A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.doc_type_id, A.product_id, A.base_uom_id;

    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id,  ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, SUM(A.qty),
        vCurrGL, 0, 'MONTHLY_AVG'
    FROM in_log_product_balance_stock A, m_ou_structure B, dt_date C, vw_finish_goods_product E
    WHERE A.ou_id = B.ou_id AND
        B.ou_bu_id = pOuId AND
        A.doc_date = C.string_date AND
        C.year_month_date = pYearMonth AND
        A.doc_type_id = 521 AND
        A.product_id = E.product_id AND
        A.qty < 0 AND
        f_check_product_ready_to_sell(A.product_id) = 0 AND
        A.product_status = vProductStatusPending
    GROUP BY A.tenant_id, B.ou_bu_id, B.ou_branch_id, B.ou_sub_bu_id, A.doc_type_id, A.product_id, A.base_uom_id;

    UPDATE tt_in_summary_monthly_product SET gl_amount = ROUND(qty * (A.amount_total / A.qty_total), vRoundingDigit)
    FROM tt_in_summary_monthly_cogs A
    WHERE A.session_id = pSessionId AND
        tt_in_summary_monthly_product.session_id = A.session_id AND
        tt_in_summary_monthly_product.tenant_id = A.tenant_id AND
        tt_in_summary_monthly_product.ou_bu_id = A.ou_id AND
        tt_in_summary_monthly_product.product_id = A.product_id AND
        tt_in_summary_monthly_product.doc_type_id IN (198,521) AND
        tt_in_summary_monthly_product.flg_amount = 'MONTHLY_AVG' AND
        A.qty_total <> 0;

    /*
     * untuk menghitung saldo akhir di bulan tersebut, dengan cara membuat record saldo awal untuk bulan berikutnya
     * 1. ambil data adj stok balance amount ( adjust nilai akhir saldo barang )
     * 2. hitung saldo akhir
     */
    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount)
    SELECT pSessionId, pYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.uom_id, SUM(A.qty),
        A.gl_curr_code, SUM(A.gl_amount), 'TRANSACTION'
    FROM tt_in_doc_product_price A
    WHERE A.session_id = pSessionId AND
        A.doc_type_id = 523
    GROUP BY A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id, A.doc_type_id, A.product_id, A.uom_id, A.gl_curr_code;

    /*
     * Persiapan data saldo awal untuk bulan berikutnya. Periksa terlebih dahulu apakah ada data yg qty = 0, tetapi gl_amount <> 0.
     * Nilai gl_amount tsb akan dialokasikan ke data transaksi pengeluaran stok dengan id terbesar untuk product ybs.
     */
    INSERT INTO tt_in_summary_monthly_amount_remain
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount, summary_monthly_product_id)
    SELECT pSessionId, A.date_year_month, A.tenant_id, A.ou_bu_id, vEmptyId, vEmptyId,
        vDocTypeAwal, A.product_id, A.base_uom_id, SUM(A.qty),
        vCurrGL, SUM(A.gl_amount), 'BGN_BALANCE', vEmptyId
    FROM tt_in_summary_monthly_product A
    WHERE A.session_id = pSessionId
    GROUP BY A.date_year_month, A.tenant_id, A.ou_bu_id, A.product_id, A.base_uom_id;

    -- Cari id data sebagai penampung alokasi nilai
    UPDATE tt_in_summary_monthly_amount_remain
        SET summary_monthly_product_id = (
            SELECT MAX(A.summary_monthly_product_id)
            FROM tt_in_summary_monthly_product A
            WHERE A.session_id = pSessionId AND
                tt_in_summary_monthly_amount_remain.session_id = A.session_id AND
                tt_in_summary_monthly_amount_remain.date_year_month = A.date_year_month AND
                tt_in_summary_monthly_amount_remain.tenant_id = A.tenant_id AND
                tt_in_summary_monthly_amount_remain.ou_bu_id = A.ou_bu_id AND
                tt_in_summary_monthly_amount_remain.product_id = A.product_id AND
                A.doc_type_id IN (511,311,431,526,521,413) AND
                A.flg_amount = 'MONTHLY_AVG')
    WHERE session_id = pSessionId AND qty = 0 AND gl_amount <> 0;

    /*
     * NK, 16 Feb 2015
     * simpan terlebih dahulu data product yang qty = 0, dan nilai <> 0
     * dimana nilai dari product tersebut akan dialokasi ke trx yang menggunakan produk tersebut
     */
    INSERT INTO in_summary_monthly_zero_qty_amount_wip
    (date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    product_id, qty_sum, base_uom_id, gl_curr_code, amount_sum,
    doc_type_id, qty, gl_amount, remark)
    SELECT A.date_year_month, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.product_id, A.qty, A.base_uom_id, A.gl_curr_code, A.gl_amount,
        B.doc_type_id, B.qty, B.gl_amount, vGroupProductFG
    FROM tt_in_summary_monthly_amount_remain A, tt_in_summary_monthly_product B
    WHERE A.session_id = pSessionId AND
        A.summary_monthly_product_id <> vEmptyId AND
        B.summary_monthly_product_id = A.summary_monthly_product_id;

    UPDATE tt_in_summary_monthly_product SET gl_amount = tt_in_summary_monthly_product.gl_amount - A.gl_amount
    FROM tt_in_summary_monthly_amount_remain A
    WHERE A.session_id = pSessionId AND
        A.summary_monthly_product_id <> vEmptyId AND
        tt_in_summary_monthly_product.summary_monthly_product_id = A.summary_monthly_product_id;

    INSERT INTO tt_in_summary_monthly_product
    (session_id, date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty, gl_curr_code, gl_amount, flg_amount)
    SELECT A.session_id, vNextYearMonth, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, A.qty, A.gl_curr_code, A.gl_amount, A.flg_amount
    FROM tt_in_summary_monthly_amount_remain A
    WHERE A.session_id = pSessionId AND A.qty <> 0;

    INSERT INTO in_summary_monthly_cogs_wip
    (date_year_month, tenant_id, ou_id, product_id,
    qty_total, curr_code, amount_total, avg_price,
    "version", create_datetime, create_user_id, update_datetime, update_user_id, remark)
    SELECT A.date_year_month, A.tenant_id, A.ou_id, A.product_id,
            A.qty_total, A.curr_code, A.amount_total, A.avg_price,
            0, pDatetime, pUserId, pDatetime, pUserId, vGroupProductFG
    FROM tt_in_summary_monthly_cogs A
    WHERE A.session_id = pSessionId;

    INSERT INTO in_summary_monthly_amount_wip
    (date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount,
    "version", create_datetime, create_user_id, update_datetime, update_user_id, remark)
    SELECT A.date_year_month, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, A.qty,
        A.gl_curr_code, A.gl_amount, A.flg_amount,
        0, pDatetime, pUserId, pDatetime, pUserId, vGroupProductFG
    FROM tt_in_summary_monthly_product A
    WHERE A.session_id = pSessionId AND
            A.date_year_month = pYearMonth AND
            A.doc_type_id NOT IN (vDocTypeAwal, 111);

    INSERT INTO in_summary_monthly_amount_wip
    (date_year_month, tenant_id, ou_bu_id, ou_branch_id, ou_sub_bu_id,
    doc_type_id, product_id, base_uom_id, qty,
    gl_curr_code, gl_amount, flg_amount,
    "version", create_datetime, create_user_id, update_datetime, update_user_id, remark)
    SELECT A.date_year_month, A.tenant_id, A.ou_bu_id, A.ou_branch_id, A.ou_sub_bu_id,
        A.doc_type_id, A.product_id, A.base_uom_id, A.qty,
        A.gl_curr_code, A.gl_amount, A.flg_amount,
        0, pDatetime, pUserId, pDatetime, pUserId, vGroupProductFG
    FROM tt_in_summary_monthly_product A
    WHERE A.session_id = pSessionId AND
        A.date_year_month = vNextYearMonth;

    DELETE FROM tt_in_doc_product_price WHERE session_id = pSessionId;

    DELETE FROM tt_in_add_product_unamount WHERE session_id = pSessionId;

    DELETE FROM tt_in_product_base_price WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_product WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_cogs WHERE session_id = pSessionId;

    DELETE FROM tt_in_summary_monthly_amount_remain WHERE session_id = pSessionId;

 END;
$BODY$
  LANGUAGE plpgsql VOLATILE
  COST 100;
  /