[Home] [Help]
581:
582: -- RMUNJULU 23-DEC-02 2726739 Added code to get chr_currency_code for the
583: -- first quotes contract
584: -- Get the contract currency from AM_Util
585: l_contract_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(l_qtev_tbl(l_qtev_tbl.FIRST).khr_id);
586:
587: -- Get the product id of first quote
588: OPEN prod_id_csr(l_qtev_tbl(l_qtev_tbl.FIRST).khr_id);
589: FETCH prod_id_csr INTO l_product_id, l_contract_number;
705: END IF;
706:
707: -- RMUNJULU 23-DEC-02 2726739 Added condition and new message
708: -- Get the contract currency from AM_Util
709: l_chr_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(l_qtev_tbl(i).khr_id);
710:
711: -- If the contract currency of the first contract does not match
712: -- contract currency of the current contract then error
713: IF l_contract_currency_code <> l_chr_currency_code THEN
821: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name,'In param, p_first_qtev_rec.id: ' || p_first_qtev_rec.id);
822: END IF;
823:
824: -- Get the functional currency from AM_Util
825: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
826:
827: -- Get the contract currency from AM_Util
828: l_contract_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_first_qtev_rec.khr_id);
829:
824: -- Get the functional currency from AM_Util
825: l_functional_currency_code := OKL_AM_UTIL_PVT.get_functional_currency();
826:
827: -- Get the contract currency from AM_Util
828: l_contract_currency_code := OKL_AM_UTIL_PVT.get_chr_currency(p_first_qtev_rec.khr_id);
829:
830: px_qtev_rec.currency_code := l_contract_currency_code;
831: px_qtev_rec.currency_conversion_code := l_functional_currency_code;
832:
1182: -- You must enter a value for PROMPT
1183: OKL_API.set_message(p_app_name => OKL_API.G_APP_NAME,
1184: p_msg_name => 'OKL_AM_REQ_FIELD_ERR',
1185: p_token1 => 'PROMPT',
1186: p_token1_value => OKL_AM_UTIL_PVT.get_ak_attribute('OKL_EFFECTIVE_TO'));
1187: RAISE G_EXCEPTION_HALT_VALIDATION;
1188:
1189: END IF;
1190: