[Home] [Help]
1688: PROCEDURE okc_pricing_callback( p_config_session_key IN VARCHAR2,
1689: p_price_type IN VARCHAR2,
1690: x_total_price OUT NOCOPY NUMBER )
1691: IS
1692: CURSOR cur_cz_pricing_structures
1693: IS
1694: SELECT TO_NUMBER(SUBSTR(p_config_session_key,1,
1695: INSTR( p_config_session_key, '-' ) - 1 )) id,
1696: CZ_ATP_CALLBACK_UTIL.inv_item_id_from_item_key(item_key) item_id,
1782:
1783: -- ----------------------------------------------------------
1784: -- Prepare the cz temporary table rows for pricing
1785: -- ----------------------------------------------------------
1786: OPEN cur_cz_pricing_structures;
1787: LOOP
1788: FETCH cur_cz_pricing_structures
1789: INTO l_top_model_line_id,
1790: l_item_id,
1784: -- Prepare the cz temporary table rows for pricing
1785: -- ----------------------------------------------------------
1786: OPEN cur_cz_pricing_structures;
1787: LOOP
1788: FETCH cur_cz_pricing_structures
1789: INTO l_top_model_line_id,
1790: l_item_id,
1791: l_quantity,
1792: l_uom_code,
1847: l_cle_price_tbl(i).id1 := l_item_id;
1848: l_cle_price_tbl(i).id2 := l_org_id;
1849: l_cle_price_tbl(i).pricelist_id := l_price_list_id;
1850:
1851: EXIT WHEN cur_cz_pricing_structures%NOTFOUND;
1852: i := i + 1;
1853: END LOOP;
1854: CLOSE cur_cz_pricing_structures;
1855:
1850:
1851: EXIT WHEN cur_cz_pricing_structures%NOTFOUND;
1852: i := i + 1;
1853: END LOOP;
1854: CLOSE cur_cz_pricing_structures;
1855:
1856: -- delete last blank row
1857: l_cle_price_tbl.DELETE(i);
1858:
1968:
1969: -- --------------------------------------------------------------
1970: -- Update the CZ temporary table with the pricing info.
1971: -- --------------------------------------------------------------
1972: UPDATE cz_pricing_structures
1973: SET selling_price = l_unit_sell_price,
1974: list_price = l_cle_price_tbl(i).list_price
1975: WHERE configurator_session_key = p_config_session_key
1976: AND CZ_ATP_CALLBACK_UTIL.inv_item_id_from_item_key(item_key) =