Fix for ticket #469 (SC2016) Meter type now looks up the description rather than the code (which was UPPERCASE)

git-svn-id: http://locode01.ad.dom/svn/WEBMIP/trunk@4717 248e525c-4dfb-0310-94bc-949c084e9493

Modules/mip_quotation_document.pck

@@ -416,6 +416,11 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation_document IS
     SELECT *
     FROM quote_items
     WHERE qute_id = cp_quoteid;
+  --Meter Description
+  CURSOR c_get_meter_type_desc(cp_metertypecode varchar2) IS
+    SELECT description
+    FROM meter_types
+    WHERE code = cp_metertypecode;
   --Module data
   l_module_row modules%ROWTYPE;
   --Additional Items
@@ -429,6 +434,7 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation_document IS
   l_counter number;
   l_service_pressure varchar2(80);   --these three used to determine whether to set
   l_meter_type varchar2(80); --the lifting gear item or not
+  l_meter_type_desc meter_types.description%TYPE; --The description of the meter
   l_enqu_type varchar2(80);
   begin
 
@@ -526,7 +532,13 @@ CREATE OR REPLACE PACKAGE BODY mip_quotation_document IS
           end if;
           --other module details
           l_module_row := get_module_row (quote_item_rec.modu_code);
-          l_works(3) := 'Meter Type: '|| l_meter_type || ' ' || p_quote_data.meter_reference;
+          IF NOT c_get_meter_type_desc%ISOPEN THEN
+            OPEN c_get_meter_type_desc(l_meter_type);
+          END IF;
+          FETCH c_get_meter_type_desc
+          INTO l_meter_type_desc;
+          CLOSE c_get_meter_type_desc;
+          l_works(3) := 'Meter Type: '|| l_meter_type_desc || ' ' || p_quote_data.meter_reference;
           p_quote_data.outlet_termninal_size := l_module_row.outlet_size;
           --module technical details
           p_quote_data.module_dimensions(1) := l_module_row.dim_a;