1346: --
1347: -- Added Logic for Rounding Nov 12, 96: Bug #408762
1348: --
1349: l_max_allowed_discount :=
1350: arpcurr.CurrRound(l_max_allowed_discount, p_ps_rec.invoice_currency_code);
1351: --
1352: --
1353: -- Subtract discounts already taken from max total discount.
1354: l_max_allowed_discount := l_max_allowed_discount -
1543: --
1544:
1545: l_amt_due_remaining := p_ps_rec.amount_due_remaining;
1546: l_temp := l_amt_due_remaining
1547: - arpcurr.CurrRound(l_amt_due_remaining*l_earned_disc_pct,
1548: p_ps_rec.invoice_currency_code);
1549:
1550: IF PG_DEBUG in ('Y', 'C') THEN
1551: arp_standard.debug( 'l_temp = ' || to_char(l_temp));
1685: --
1686: -- Added Logic for Rounding Nov 12, 96: Bug #408762
1687: --
1688: p_earned_disc :=
1689: arpcurr.CurrRound(p_earned_disc, p_ps_rec.invoice_currency_code);
1690: p_unearned_disc :=
1691: arpcurr.CurrRound(p_unearned_disc, p_ps_rec.invoice_currency_code);
1692: --
1693: -- make sure max discount is not exceeded. reduce discounts as needed
1687: --
1688: p_earned_disc :=
1689: arpcurr.CurrRound(p_earned_disc, p_ps_rec.invoice_currency_code);
1690: p_unearned_disc :=
1691: arpcurr.CurrRound(p_unearned_disc, p_ps_rec.invoice_currency_code);
1692: --
1693: -- make sure max discount is not exceeded. reduce discounts as needed
1694: --
1695: IF NVL(l_ps_disc_partial_pay_flag,'N') = 'N'
1861: END IF;
1862: --
1863: -- Added logic for rounding: Nov 12, 96 Bug #408762
1864: p_earned_disc :=
1865: arpcurr.CurrRound(p_earned_disc, p_ps_rec.invoice_currency_code);
1866: p_unearned_disc :=
1867: arpcurr.CurrRound(p_unearned_disc, p_ps_rec.invoice_currency_code);
1868: --
1869: --
1863: -- Added logic for rounding: Nov 12, 96 Bug #408762
1864: p_earned_disc :=
1865: arpcurr.CurrRound(p_earned_disc, p_ps_rec.invoice_currency_code);
1866: p_unearned_disc :=
1867: arpcurr.CurrRound(p_unearned_disc, p_ps_rec.invoice_currency_code);
1868: --
1869: --
1870: -- make sure max discount is not exceeded. reduce discounts as needed
1871: IF PG_DEBUG in ('Y', 'C') THEN