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

Committed prior to FAT testing

Browse Source 
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4072 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-26 09:15:49 +00:00
parent 3f2f18b4e5
commit e310449816
2 changed files with 27 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
InstallMIP.cmd
View File

@@ -111,7 +111,7 @@ cd Data\live
call InstallData %3/%4@%5
@echo Installed live data
@echo Installing live application in APEX...
ruby apex_auto_install.rb %3
ruby apex_auto_install.rb %3 MIP
cd ..\..
@echo live install Complete

36
Modules/mip_quotation.pck
View File

@@ -659,6 +659,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
PROCEDURE open_body IS
BEGIN
pl('open_body:entry');
dbms_lob.createtemporary(lob_loc => g_email_plain_body
,cache => TRUE);
dbms_lob.OPEN(lob_loc => g_email_plain_body
@@ -677,6 +678,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation IS
RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
al(' ');
al(' ');
pl('open_body:exit');
END open_body;
FUNCTION get_quote_row(p_qute_id IN quotes.id%TYPE) RETURN t_quote_row IS
@@ -856,6 +858,10 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
BEGIN
l_agent_prty_id := mip_enquiry.get_enquiry_role(p_enquiryid => p_enqu_id
,p_rolecode => 'ENQ OWN');
pl('l_agent_prty_id=' || l_agent_prty_id
,$$PLSQL_LINE);
EXCEPTION
WHEN OTHERS THEN
pl('mip_enquiry.get_enquiry_role returned ' || SQLERRM
@@ -863,16 +869,23 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
RAISE;
END;
SELECT agent_comt_code
,comt.description
,agent_contact_value
INTO l_agent_comt_code
,l_agent_comt_description
,l_agent_contact_value
FROM enquiries
,contact_mechanism_types comt
WHERE enquiries.id = p_enqu_id
AND comt.code = enquiries.agent_comt_code;
BEGIN
SELECT agent_comt_code
,comt.description
,agent_contact_value
INTO l_agent_comt_code
,l_agent_comt_description
,l_agent_contact_value
FROM enquiries
,contact_mechanism_types comt
WHERE enquiries.id = p_enqu_id
AND comt.code = enquiries.agent_comt_code;
EXCEPTION
WHEN OTHERS THEN
pl('email_to_agent:' || SQLERRM
,$$PLSQL_LINE);
RAISE;
END;
open_body;
@@ -894,6 +907,9 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
al(' ');
END IF;
pl('l_email_recipient=' || l_email_recipient
,$$PLSQL_LINE);
IF p_email_reason = gc_agent_q_sel_notification THEN
--Scenario one: Automatic quote generation notification
l_email_subject := get_system_name || ': Automatic Quote Selected';