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

Addressed #351 by adding existing_prty_id to calc_meter_reqs (similar change to screen 32).

Browse Source 
git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4022 248e525c-4dfb-0310-94bc-949c084e9493
This commit is contained in:
hardya
2008-03-17 14:10:40 +00:00
parent ac1542500f
commit 54a2987177
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Modules/MIP_ENQUIRY.pck
View File

@@ -12,8 +12,7 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS
,existing_mesc_code meters.mesc_code%TYPE
,existing_mety_code meters.mety_code%TYPE
,existing_prty_id meters.prty_id%TYPE
,required_mesc_code meters.mesc_code%TYPE
);
,required_mesc_code meters.mesc_code%TYPE);
-- Public function and procedure declarations
FUNCTION delete_enquiry(p_enquiryid IN NUMBER) RETURN BOOLEAN;
@@ -64,6 +63,7 @@ CREATE OR REPLACE PACKAGE mip_enquiry IS
,p_required_mesc_code meters.mesc_code%TYPE
,p_existing_metr_code meters.code%TYPE
,p_existing_mety_code meters.mety_code%TYPE
,p_existing_prty_id meters.prty_id%TYPE
,p_qmax meters.qmax%TYPE)
RETURN t_rec_meter_reqs;
@@ -426,6 +426,7 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
,p_required_mesc_code meters.mesc_code%TYPE
,p_existing_metr_code meters.code%TYPE
,p_existing_mety_code meters.mety_code%TYPE
,p_existing_prty_id meters.prty_id%TYPE
,p_qmax meters.qmax%TYPE)
RETURN t_rec_meter_reqs IS
l_dummy NUMBER;
@@ -495,12 +496,13 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
ELSE
-- we don't have real model details, chose the 'OTHER' meter
SELECT prty_id
INTO l_rec_meter_reqs.existing_prty_id
FROM meters
WHERE code = 'OTHER';
INTO l_rec_meter_reqs.existing_prty_id
FROM meters
WHERE code = 'OTHER';
l_rec_meter_reqs.existing_metr_code := 'OTHER';
l_rec_meter_reqs.existing_mety_code := p_existing_mety_code;
l_rec_meter_reqs.existing_mesc_code := p_existing_mesc_code;
l_rec_meter_reqs.existing_prty_id := p_existing_prty_id;
END IF;
END IF;
@@ -520,7 +522,7 @@ CREATE OR REPLACE PACKAGE BODY mip_enquiry IS
l_rec_meter_reqs.qmax := p_qmax;
END IF;
END IF;
pl('calc_meter_reqs:exit:' || l_rec_meter_reqs.existing_mesc_code || ':' ||
l_rec_meter_reqs.required_mesc_code || ':' ||
l_rec_meter_reqs.existing_metr_code || ':' || l_rec_meter_reqs.qmax);