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

Addresses #451

Browse Source 
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4712 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-04-03 09:56:56 +00:00
parent d1dc847373
commit fde2af4036
1 changed files with 48 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Modules/mip_quotation.pck
View File

@@ -1560,7 +1560,8 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
AND p_enqu.required_svcp_code IN ('LP', 'MP') THEN
p_manual_or_automatic_quote := gc_manual_quote;
add_quote_reason(p_enqu.id
,'Site Survey is required for alteration (relocation or reposition) of an existing meter.'
,'Site Survey is required for alteration (relocation or reposition) of an existing ' ||
p_enqu.required_svcp_code || ' meter.'
,gc_external_reason);
END IF; -- ALTERATION
@@ -1581,7 +1582,8 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
p_manual_or_automatic_quote := gc_manual_quote;
add_quote_reason(p_enqu.id
,'Site Survey is required for exchange of an existing ' ||
l_svcpt_code || ' meter.'
l_svcpt_code || ' ' ||
l_rec_metr_details.mety_code || ' meter.'
,gc_external_reason);
ELSE
-- Exchange, MP
@@ -2527,7 +2529,11 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
END IF;
END IF;
/* Always get costs for LIFTING GEAR */
/* Lifting gear required UNLESS Install/Standard Install of an LP Diaphragm */
IF NOT (p_enqu.enty_code IN ('INSTALL', 'STD INSTALL') AND
l_rec_module.mety_code = 'DIAPHRAGM' AND
l_rec_module.laco_svcpt_code = 'LP') THEN
l_additional_costs := get_aico(p_adit_code => 'LIFTING GEAR'
,p_regi_code => l_regi_code);
@@ -2547,6 +2553,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,p_reason => 'Unable to find lead time for LIFTING GEAR.'
,p_internal_or_external => gc_internal_reason);
END IF;
END IF;
IF l_this_is_automatic_quote THEN
l_produced_automatic_quote := TRUE;
@@ -2711,7 +2718,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,'AQI');
END IF;
/* Always include LIFTING GEAR */
IF l_rec_module.lifting_gear_selling_price IS NOT NULL THEN
INSERT INTO quote_items
(id
@@ -2731,6 +2738,7 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
,l_rec_module.lifting_gear_delivery_cost
,l_rec_module.lifting_gear_lead_time
,'AQI');
END IF;
-- Generate the quote PDF
/*BEGIN*/