a

-- Rincian hutang dagang - overdue
    WITH nota_overdue_2801 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        LEFT OUTER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(COALESCE(B.ou_id,-99)) NOT IN ('2803','2808')
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        LEFT OUTER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(COALESCE(C.ou_id,-99)) NOT IN ('2803','2808')
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaOverdue2801
    FROM nota_overdue_2801;

    WITH nota_overdue_2808 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        INNER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(B.ou_id) = '2808'
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        INNER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(C.ou_id) = '2808'
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaOverdue2808
    FROM nota_overdue_2808;

    WITH nota_overdue_2803 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        INNER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(B.ou_id) = '2803'
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        INNER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(C.ou_id) = '2803'
            AND A.curr_code = pCurrCode
            AND A.due_date < pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaOverdue2803
    FROM nota_overdue_2803;

    -- Rincian hutang dagang - lancar
    WITH nota_lancar_2801 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        LEFT OUTER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(COALESCE(B.ou_id,-99)) NOT IN ('2803','2808')
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        LEFT OUTER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(COALESCE(C.ou_id,-99)) NOT IN ('2803','2808')
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaLancar2801
    FROM nota_lancar_2801;

    WITH nota_lancar_2808 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        INNER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(B.ou_id) = '2808'
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        INNER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(C.ou_id) = '2808'
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaLancar2808
    FROM nota_lancar_2808;

    WITH nota_lancar_2803 AS (
        SELECT (A.amount-A.payment_amount) AS amount
        FROM fi_invoice_ap_balance A
        INNER JOIN m_partner_ou B ON A.partner_id = B.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(B.ou_id) = '2803'
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
        UNION ALL
        SELECT (A.gov_tax_amount-A.payment_amount) AS amount
        FROM fi_invoice_tax_ap_balance A
        INNER JOIN fi_invoice_ap_balance B ON A.invoice_ap_balance_id = B.invoice_ap_balance_id
        INNER JOIN m_partner_ou C ON B.partner_id = C.partner_id
        WHERE A.tenant_id = pTenantId
            AND f_get_ou_code(C.ou_id) = '2803'
            AND A.curr_code = pCurrCode
            AND A.due_date >= pDateNow
            AND A.flg_payment <> vFlgYes
    )
    SELECT COALESCE(SUM(amount), 0) INTO vAmountNotaLancar2803
    FROM nota_lancar_2803;