[Home] [Help]
134: l_klev_fin_rec.residual_code := nvl(p_las_rec.residual_code,'LESSEE');
135:
136: IF (p_las_rec.residual_value IS NOT NULL) THEN
137: l_residual_value := NULL;
138: l_residual_value := okl_accounting_util.cross_currency_round_amount(
139: p_amount => p_las_rec.residual_value,
140: p_currency_code => p_las_rec.currency_code
141: );
142: IF (l_residual_value IS NULL) THEN
156: END IF;
157:
158: IF (p_las_rec.guranteed_amount IS NOT NULL) THEN
159: l_guranteed_amount := NULL;
160: l_guranteed_amount := okl_accounting_util.cross_currency_round_amount(
161: p_amount => p_las_rec.guranteed_amount,
162: p_currency_code => p_las_rec.currency_code
163: );
164: IF (l_guranteed_amount IS NULL) THEN
235: l_talv_fa_rec.asset_key_id := p_las_rec.asset_key_id;
236:
237: IF (p_las_rec.unit_cost IS NOT NULL) THEN
238: l_unit_cost := NULL;
239: l_unit_cost := okl_accounting_util.cross_currency_round_amount(
240: p_amount => p_las_rec.unit_cost,
241: p_currency_code => p_las_rec.currency_code
242: );
243: IF (l_unit_cost IS NULL) THEN
466: l_klev_fin_rec.residual_code := nvl(p_las_rec.residual_code,'NONE');
467:
468: IF (p_las_rec.residual_value IS NOT NULL) THEN
469: l_residual_value := NULL;
470: l_residual_value := okl_accounting_util.cross_currency_round_amount(
471: p_amount => p_las_rec.residual_value,
472: p_currency_code => p_las_rec.currency_code
473: );
474: IF (l_residual_value IS NULL) THEN
488: END IF;
489:
490: IF (p_las_rec.guranteed_amount IS NOT NULL) THEN
491: l_guranteed_amount := NULL;
492: l_guranteed_amount := okl_accounting_util.cross_currency_round_amount(
493: p_amount => p_las_rec.guranteed_amount,
494: p_currency_code => p_las_rec.currency_code
495: );
496: IF (l_guranteed_amount IS NULL) THEN
533: l_talv_fa_rec.asset_key_id := p_las_rec.asset_key_id;
534:
535: IF (p_las_rec.unit_cost IS NOT NULL) THEN
536: l_unit_cost := NULL;
537: l_unit_cost := okl_accounting_util.cross_currency_round_amount(
538: p_amount => p_las_rec.unit_cost,
539: p_currency_code => p_las_rec.currency_code
540: );
541: IF (l_unit_cost IS NULL) THEN
1758: l_assoc_amount := l_tradein_amount * l_asset_tbl(i).oec / l_oec_total;
1759:
1760: END IF;
1761:
1762: l_assoc_amount := okl_accounting_util.round_amount(p_amount => l_assoc_amount,
1763: p_currency_code => l_currency_code);
1764:
1765: l_assoc_total := l_assoc_total + l_assoc_amount;
1766:
2024:
2025: ELSIF l_basis = 'FIXED' THEN
2026: l_assoc_amount := l_down_payment * l_asset_tbl(i).oec / l_oec_total;
2027:
2028: l_assoc_amount := okl_accounting_util.round_amount(p_amount => l_assoc_amount,
2029: p_currency_code => l_currency_code);
2030: END IF;
2031: END IF;
2032:
2100: p_subsidy_id IN NUMBER)
2101: RETURN VARCHAR2
2102: IS
2103: CURSOR c_subsidy_amount(p_khr_id NUMBER, p_subsidy_id NUMBER) IS
2104: SELECT OKL_ACCOUNTING_UTIL.format_amount(SUM(NVL(kle_sub.subsidy_override_amount,kle_sub.amount)), cleb_sub.currency_code) subsidy_amount
2105: FROM okl_k_lines kle_sub,
2106: okc_k_lines_b cleb_sub
2107: WHERE kle_sub.subsidy_id = p_subsidy_id
2108: AND cleb_sub.dnz_chr_id = p_khr_id
2124: p_khr_id IN NUMBER)
2125: RETURN VARCHAR2
2126: IS
2127: CURSOR c_down_payment_amount(p_khr_id NUMBER) IS
2128: SELECT OKL_ACCOUNTING_UTIL.format_amount(SUM( NVL(kle_fin.capital_reduction,0) + (NVL(kle_fin.capital_reduction_percent,0)/100 * kle_fin.oec) ), cleb_fin.currency_code) down_payment_amount
2129: FROM okl_k_lines kle_fin,
2130: okc_k_lines_b cleb_fin
2131: WHERE cleb_fin.chr_id = p_khr_id
2132: AND cleb_fin.dnz_chr_id = p_khr_id