[Home] [Help]
118: l_klev_fin_rec.residual_code := nvl(p_las_rec.residual_code,'LESSEE');
119:
120: IF (p_las_rec.residual_value IS NOT NULL) THEN
121: l_residual_value := NULL;
122: l_residual_value := okl_accounting_util.cross_currency_round_amount(
123: p_amount => p_las_rec.residual_value,
124: p_currency_code => p_las_rec.currency_code
125: );
126: IF (l_residual_value IS NULL) THEN
140: END IF;
141:
142: IF (p_las_rec.guranteed_amount IS NOT NULL) THEN
143: l_guranteed_amount := NULL;
144: l_guranteed_amount := okl_accounting_util.cross_currency_round_amount(
145: p_amount => p_las_rec.guranteed_amount,
146: p_currency_code => p_las_rec.currency_code
147: );
148: IF (l_guranteed_amount IS NULL) THEN
200: l_talv_fa_rec.asset_key_id := p_las_rec.asset_key_id;
201:
202: IF (p_las_rec.unit_cost IS NOT NULL) THEN
203: l_unit_cost := NULL;
204: l_unit_cost := okl_accounting_util.cross_currency_round_amount(
205: p_amount => p_las_rec.unit_cost,
206: p_currency_code => p_las_rec.currency_code
207: );
208: IF (l_unit_cost IS NULL) THEN
424: l_klev_fin_rec.residual_code := nvl(p_las_rec.residual_code,'NONE');
425:
426: IF (p_las_rec.residual_value IS NOT NULL) THEN
427: l_residual_value := NULL;
428: l_residual_value := okl_accounting_util.cross_currency_round_amount(
429: p_amount => p_las_rec.residual_value,
430: p_currency_code => p_las_rec.currency_code
431: );
432: IF (l_residual_value IS NULL) THEN
446: END IF;
447:
448: IF (p_las_rec.guranteed_amount IS NOT NULL) THEN
449: l_guranteed_amount := NULL;
450: l_guranteed_amount := okl_accounting_util.cross_currency_round_amount(
451: p_amount => p_las_rec.guranteed_amount,
452: p_currency_code => p_las_rec.currency_code
453: );
454: IF (l_guranteed_amount IS NULL) THEN
491: l_talv_fa_rec.asset_key_id := p_las_rec.asset_key_id;
492:
493: IF (p_las_rec.unit_cost IS NOT NULL) THEN
494: l_unit_cost := NULL;
495: l_unit_cost := okl_accounting_util.cross_currency_round_amount(
496: p_amount => p_las_rec.unit_cost,
497: p_currency_code => p_las_rec.currency_code
498: );
499: IF (l_unit_cost IS NULL) THEN
1694: l_assoc_amount := l_tradein_amount * l_asset_tbl(i).oec / l_oec_total;
1695:
1696: END IF;
1697:
1698: l_assoc_amount := okl_accounting_util.round_amount(p_amount => l_assoc_amount,
1699: p_currency_code => l_currency_code);
1700:
1701: l_assoc_total := l_assoc_total + l_assoc_amount;
1702:
1958:
1959: ELSIF l_basis = 'FIXED' THEN
1960: l_assoc_amount := l_down_payment * l_asset_tbl(i).oec / l_oec_total;
1961:
1962: l_assoc_amount := okl_accounting_util.round_amount(p_amount => l_assoc_amount,
1963: p_currency_code => l_currency_code);
1964: END IF;
1965: END IF;
1966:
2034: p_subsidy_id IN NUMBER)
2035: RETURN VARCHAR2
2036: IS
2037: CURSOR c_subsidy_amount(p_khr_id NUMBER, p_subsidy_id NUMBER) IS
2038: SELECT OKL_ACCOUNTING_UTIL.format_amount(SUM(NVL(kle_sub.subsidy_override_amount,kle_sub.amount)), cleb_sub.currency_code) subsidy_amount
2039: FROM okl_k_lines kle_sub,
2040: okc_k_lines_b cleb_sub
2041: WHERE kle_sub.subsidy_id = p_subsidy_id
2042: AND cleb_sub.dnz_chr_id = p_khr_id
2058: p_khr_id IN NUMBER)
2059: RETURN VARCHAR2
2060: IS
2061: CURSOR c_down_payment_amount(p_khr_id NUMBER) IS
2062: 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
2063: FROM okl_k_lines kle_fin,
2064: okc_k_lines_b cleb_fin
2065: WHERE cleb_fin.chr_id = p_khr_id
2066: AND cleb_fin.dnz_chr_id = p_khr_id