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

had a stab at bringing the email output inline with the fds see ticket #550

Browse Source 
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@12254 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
jamie.priest
2009-08-17 12:19:49 +00:00
parent a778da1356
commit 502c6564f9
1 changed files with 24 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
Modules/mip_quotation.pck
View File

@@ -1002,10 +1002,6 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
BEGIN
pl('produce_enquiry_entry_details'
,$$PLSQL_LINE);
al(' ');
al(' ');
al(get_system_name ||
' recorded the following details against this enquiry:');
SELECT enty_code
INTO l_enty_code
@@ -1239,10 +1235,22 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
l_email_subject VARCHAR2(240);
l_email_recipient VARCHAR2(240) := get_internal_user_recipient;
l_qute_id quotes.id%TYPE;
l_postcode enquiries.install_postcode%TYPE;
l_shortcode parties.shortcode%TYPE;
BEGIN
pl('email_internal_users:entry:p_enqu_id=' || p_enqu_id ||
', p_email_reason=' || p_email_reason
,$$PLSQL_LINE);
SELECT p.shortcode
INTO l_shortcode
FROM v_latest_rt_code_for_enro v, parties p
WHERE rt_code='ENQ SUPP'
AND v.enqu_id = p_enqu_id
AND p.id = v.prty_id;
SELECT e.install_postcode
INTO l_postcode
FROM enquiries e
WHERE e.id = p_enqu_id;
open_body;
IF p_email_reason = gc_int_q_acc_notification THEN
-- Scenario five: Accepted quote + system data
@@ -1254,7 +1262,6 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
al(' ');
al('Please process this enquiry, as the quotation has been accepted.');
al(' ');
SELECT qute_id
INTO l_qute_id
FROM quote_events quev
@@ -1262,10 +1269,14 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
WHERE qute.enqu_id = p_enqu_id
AND quev.qute_id = qute.id
AND quev.qust_code = 'ACCEPTED';
--Insert Supplier Shortcode, Enquiry Ref and Network here new in purging update(09)
al('Supplier Shortcode: ' || l_shortcode);
al('Enquiry Reference: ' || p_enqu_id);
al('Network: ' || mip_regions.get_region_for_postcode(l_postcode));
--get all the other fields for the enquiry to display
produce_enquiry_entry_details(p_enqu_id);
produce_quote_summary(l_qute_id);
--
al(' ');
al('Regards');
al(' ');
@@ -1288,7 +1299,10 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
WHERE qute.enqu_id = p_enqu_id
AND quev.qute_id = qute.id
AND quev.qust_code = 'INP';
--Insert Supplier Shortcode, Enquiry Ref and Network here new in purging update(09)
al('Supplier Shortcode: ' || l_shortcode);
al('Enquiry Reference: ' || p_enqu_id);
al('Network: ' || mip_regions.get_region_for_postcode(l_postcode));
produce_enquiry_entry_details(p_enqu_id);
produce_reasoning_summary(p_enqu_id);
@@ -1763,7 +1777,6 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
l_valid := mip_tripartite.valid_enquiry(p_rec => p_rec
,p_tab_messages => l_tab_messages);
-- processing an enquiry that has not passed the tripartite agreement
-- infers a processing error
IF NOT l_valid THEN
@@ -1791,7 +1804,6 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
l_valid := mip_tripartite.valid_enquiry(p_enqu_id => p_enqu_id
,p_tab_messages => l_tab_messages);
-- processing an enquiry that has not passed the tripartite agreement
-- infers a processing error
IF NOT l_valid THEN