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

Fixes made for #102, #103, #49, #108

Browse Source 
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@3504 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-02-08 16:23:12 +00:00
parent 073c5f5230
commit 68f300c2ca
16 changed files with 150 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/mip_bulk_load.pck
View File

@@ -206,11 +206,13 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
INSERT INTO parties
(id
,manu_ref
,NAME
,description
,prty_type
,created_on
,created_by)
(SELECT prty_seq.NEXTVAL
,manu_ref
,manu_ref
,'Inserted for load_meters'
,'MANU'
@@ -372,11 +374,13 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
INSERT INTO parties
(id
,manu_ref
,NAME
,description
,prty_type
,created_on
,created_by)
(SELECT prty_seq.NEXTVAL
,manu_ref
,manu_ref
,'Inserted for load_modules'
,'MANU'
@@ -975,11 +979,13 @@ CREATE OR REPLACE PACKAGE BODY mip_bulk_load IS
INSERT INTO parties
(id
,manu_ref
,NAME
,description
,prty_type
,created_on
,created_by)
(SELECT prty_seq.NEXTVAL
,manu_ref
,manu_ref
,'Inserted for load_housings'
,'MANU'

6
Modules/mip_quotation.pck
View File

@@ -1284,13 +1284,9 @@ RECEIVED AT THIS ADDRESS CANNOT BE RESPONDED TO.');
l_idx := l_tab_messages.FIRST;
LOOP
EXIT WHEN l_idx IS NULL;
l_return := l_return || l_tab_messages(l_idx) || ',';
l_return := l_return || l_tab_messages(l_idx);
l_idx := l_tab_messages.NEXT(l_idx);
END LOOP;
-- remove the trailing comma
l_return := substr(l_return
,1
,length(l_return) - 1);
END IF;
RETURN l_return;

16
Modules/mip_tripartite.pck
View File

@@ -190,21 +190,21 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
AND NOT addon_allowed(p_adit_code => 'AMR'
,p_regi_code => p_regi_code) THEN
l_valid := FALSE;
al('Tripartite agreement prevents AMR being requested.'
al('Tripartite Agreement prevents AMR being requested. '
,p_tab_messages);
END IF;
IF p_ems_required = 'YES'
AND NOT addon_allowed(p_adit_code => 'EMS'
,p_regi_code => p_regi_code) THEN
l_valid := FALSE;
al('Tripartite agreement prevents EMS being requested.'
al('Tripartite Agreement prevents EMS being requested. '
,p_tab_messages);
END IF;
IF p_bypass_required = 'YES'
AND NOT addon_allowed(p_adit_code => 'BYPASS'
,p_regi_code => p_regi_code) THEN
l_valid := FALSE;
al('Tripartite agreement prevents Bypass being requested.'
al('Tripartite Agreement prevents Bypass being requested. '
,p_tab_messages);
END IF;
@@ -250,6 +250,7 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
l_valid BOOLEAN DEFAULT TRUE;
l_regi_code regions.code%TYPE;
l_supp_prty_id parties.id%TYPE;
l_contact_text regions.contact_text%TYPE;
BEGIN
l_regi_code := mip_regions.get_region_for_postcode(p_postcode => p_rec.install_postcode);
l_supp_prty_id := mip_enquiry.get_enquiry_role(p_enquiryid => p_rec.id
@@ -257,7 +258,14 @@ CREATE OR REPLACE PACKAGE BODY mip_tripartite IS
IF NOT enquiry_allowed(p_supp_prty_id => l_supp_prty_id
,p_enty_code => p_rec.enty_code
,p_regi_code => l_regi_code) THEN
al('Tripartite agreement prevents this enquiry being processed.'
SELECT regions.contact_text
INTO l_contact_text
FROM regions
WHERE code = l_regi_code;
al('Unable to quote for the specified postcode due to Tripartite Agreement. Please contact ' ||
l_contact_text || ' metering services. '
,l_tab_messages);
l_valid := FALSE;
ELSE