[Home] [Help]
7:
8: /*----------------------------------------------------------------------
9: PROCEDURE OE_Config_Price_Items:
10:
11: get selected options from cz_pricing_structures table.
12: For list price, CZ sends to this API qty per unit model.
13: For selling price, Configurator sends to this API the actual
14: ordered quantity.
15:
20: table from which we get the options to price.
21:
22: For each option sent in we do the following:
23: 1. Get inventory_item_id from the item_key.
24: item_key in cz_pricing_structures table is concatenation of
25: component_code, explosion_type, organization_id, top_item_id.
26: These values are separated by ':'. We will parse the item_key
27: to get inventory_item_id(from the component code)
28: The order of concatenation is imp, if Configurator changes it,
93: SELECT cz.item_key, cz.quantity, cz.uom_code
94: ,item.bom_item_type, item.service_item_flag
95: ,item.pick_components_flag, item.inventory_item_id
96: ,cz.seq_nbr
97: FROM CZ_PRICING_STRUCTURES cz
98: , MTL_SYSTEM_ITEMS item
99: WHERE cz.item_key_type = cz_prc_callback_util.g_item_key_bom_node
100: AND cz.configurator_session_key = p_config_session_key
101: AND (cz.list_price is null
166: IF l_debug_level > 0 THEN
167: oe_debug_pub.add('PRICING CALLBACK: PACK H NEW LOGIC MI', 1);
168: END IF;
169:
170: UPDATE CZ_PRICING_STRUCTURES cz
171: SET cz.list_price =
172: ( SELECT ol.unit_list_price
173: FROM OE_ORDER_LINES ol
174: WHERE ol.top_model_line_id = l_top_model_line_id
180: --AND ol.configuration_id = cz.config_item_id--bug#7595079
181: )
182: WHERE cz.configurator_session_key = p_config_session_key;
183:
184: UPDATE CZ_PRICING_STRUCTURES cz
185: SET cz.selling_price =
186: ( SELECT ol.unit_selling_price
187: FROM OE_ORDER_LINES ol
188: WHERE ol.top_model_line_id = l_top_model_line_id
197: WHERE cz.configurator_session_key = p_config_session_key;
198:
199: ELSE
200:
201: UPDATE CZ_PRICING_STRUCTURES cz
202: SET cz.list_price =
203: ( SELECT ol.unit_list_price
204: FROM OE_ORDER_LINES ol
205: WHERE ol.top_model_line_id = l_top_model_line_id
207: SUBSTR( cz.item_key, 1, INSTR(cz.item_key, ':') - 1)
208: )
209: WHERE cz.configurator_session_key = p_config_session_key;
210:
211: UPDATE CZ_PRICING_STRUCTURES cz
212: SET cz.selling_price =
213: ( SELECT ol.unit_selling_price
214: FROM OE_ORDER_LINES ol
215: WHERE ol.top_model_line_id = l_top_model_line_id
346: l_total_price := 0;
347: BEGIN
348: SELECT sum(selling_price * quantity)
349: INTO l_total_price
350: FROM cz_pricing_structures
351: WHERE configurator_session_key = p_config_session_key;
352: EXCEPTION
353: WHEN OTHERS THEN
354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
424:
425:
426: -------------------------- update cz tables ----------------
427:
428: -- update cz_pricing_structures with pricing information.
429:
430: l_index := l_line_Tbl.FIRST;
431:
432: While l_index is not null
449: END IF;
450:
451: -- using msg_data field temporarily to save debug file name.
452:
453: UPDATE CZ_PRICING_STRUCTURES
454: SET
455: LIST_PRICE = l_line_tbl(l_index).unit_list_price,
456: SELLING_PRICE = l_line_Tbl(l_index).unit_selling_price
457: WHERE SUBSTR( item_key, 1, INSTR(item_key, ':') - 1)
478: l_total_price := 0;
479: BEGIN
480: SELECT sum(selling_price * quantity)
481: INTO l_total_price
482: FROM cz_pricing_structures
483: WHERE configurator_session_key = p_config_session_key;
484: EXCEPTION
485: WHEN OTHERS THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
516: l_config_pricing_error := OE_Msg_Pub.Get();
517: --l_config_pricing_error := 'raising error for testing purpose';
518:
519: -- set the error message in the model line field.
520: UPDATE CZ_PRICING_STRUCTURES
521: SET MSG_DATA = l_config_pricing_error
522: WHERE configurator_session_key = p_config_session_key
523: AND item_key = l_model_item_key;
524: