andy/mip
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Bulk Load: Changes to default values for 'unknown' items, inclusion of LeadTimes.csv

Browse Source 
MIP_QUOTATION: Changes to make use of LeadTimes.csv

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3605 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-02-15 18:01:40 +00:00
parent 31e373438a
commit dfd3210818
21 changed files with 635 additions and 301 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
Modules/mip_quotation.pck
View File

@@ -1603,6 +1603,40 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
RETURN l_rec_costs;
END get_laco;
FUNCTION get_lead_time(p_enty_code enquiry_types.code%TYPE
,p_mety_code meter_types.code%TYPE
,p_svcp_code service_pressures.code%TYPE
,p_qmax NUMBER) RETURN NUMBER IS
l_days NUMBER;
BEGIN
SELECT days
INTO l_days
FROM (SELECT enty_code
,mety_code
,svcp.code AS svcp_code
,from_qmax
,to_qmax
,days
FROM v_lead_times v
,service_pressures svcp
WHERE v.svcpt_code = svcp.svcpt_code(+)) v
WHERE nvl(p_qmax
,0) >= v.from_qmax
AND nvl(p_qmax
,0) < v.to_qmax
AND v.enty_code = p_enty_code
AND v.mety_code = p_mety_code
AND ((v.svcp_code = p_svcp_code) OR
(v.svcp_code IS NULL AND p_svcp_code IS NULL));
RETURN l_days;
EXCEPTION
WHEN no_data_found THEN
RETURN NULL;
END get_lead_time;
PROCEDURE produce_module_quotes(p_enqu IN t_enqu
,p_rfq_prty_id IN parties.id%TYPE
,p_owner_prty_id IN parties.id%TYPE DEFAULT NULL
@@ -1660,7 +1694,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,modu.selling_price AS modu_selling_price
,modu.cost_price AS modu_cost_price
,modu.delivery_cost AS modu_delivery_cost
,modu.lead_time AS modu_lead_time
,NULL AS modu_lead_time
,modu.hou_code AS hou_code
,modu.inlet_orientation AS modu_inlet_orientation
,modu.outlet_orientation AS modu_outlet_orientation
@@ -1715,7 +1749,6 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,selling_price
,cost_price
,delivery_cost
,lead_time
FROM modules modu
,connection_orientations cnor_i
,connection_orientations cnor_o
@@ -1745,8 +1778,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,metr.qmin
,metr.qnom
,metr.mety_code
FROM meters metr
) metr
FROM meters metr) metr
WHERE modu.svcp_code = p_enqu.required_svcp_code
AND modu.outlet_pressure =
p_enqu.required_metering_pressure
@@ -1769,6 +1801,11 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
l_regi_code WHEN NULL THEN '' ELSE ' for region code ' || l_regi_code END || '.'
,p_internal_or_external => gc_internal_reason);
END IF;
l_rec_module.modu_lead_time := get_lead_time(p_enty_code => p_enqu.enty_code
,p_mety_code => l_rec_module.mety_code
,p_svcp_code => p_enqu.required_svcp_code
,p_qmax => l_rec_module.qmax);
IF l_rec_module.modu_lead_time IS NULL THEN
l_this_is_automatic_quote := FALSE;
add_quote_reason(p_enqu.id