Changeset 18338

Timestamp:

11/12/08 08:25:46 (2 months ago)

Author:

umesha

Message:

bug-210 Form copy seems to copy only half a form

Files:

• trunk/core/db/oracle/create-scripts/versions/8.5.0/packages/forms.bdy (modified) (6 diffs)

trunk/core/db/oracle/create-scripts/versions/8.5.0/packages/forms.bdy

@@ -13 +13 @@
---                       be able to copy checkboxes information in
---                       form definition page.
+-- Umesh       11-12-08  Modified copy_fields and copy_field to enable copying 
+--                       of calculated fields and their associated formulas
+--
---==================================================================
-
@@ -461 +464 @@
-        where class_id = i_class_id;
-
+    -- cursor for getting all calculated fields which need updates
+    cursor cal_field_prop_cur(i_class_id in number) is
+        select fp.value as old_id, f.field_id as new_id
+        from pn_class_field_property fp, pn_class_field f
+        where
+        f.class_id = fp.class_id AND
+        to_char( f.source_field_id ) = fp.value AND
+        fp.class_id = i_class_id;
+        
+    -- cursor for getting all calculated field formulas which need updates
+    cursor cal_field_formula_cur(i_class_id in number) is
+        select ff.op_value as old_id, f.field_id as new_id
+        from pn_calculation_field_formula ff, pn_class_field f
+        where
+        f.class_id = ff.class_id AND
+        to_char( f.source_field_id ) = ff.op_value AND
+        ff.class_id = i_class_id;
+        
-    field_rec field_cur%rowtype;
-    v_new_field_id pn_class_field.field_id%type;
@@ -469 +490 @@
-    for field_rec in field_cur(i_from_class_id)
-    loop
+      begin
-        copy_field(i_from_space_id, i_to_space_id, i_from_class_id,
-                   i_to_class_id, field_rec.field_id, i_created_by_id, v_new_field_id);
-
+      exception -- if there is any error in copying field, log error
+        when others then
+          BASE.LOG_ERROR ('copy_fields', SQLCODE, 'Error copying field:' || field_rec.field_id || ' - ' || SUBSTR(SQLERRM,1,80));
+      end;
+      
-    end loop;
-
@@ -480 +507 @@
-    and class_id = i_to_class_id;
-
+
+    -- update calculated field referances
+    for cal_field_rec in cal_field_prop_cur(i_to_class_id)
+    loop
+      update pn_class_field_property 
+        set value = cal_field_rec.new_id
+        where value = cal_field_rec.old_id
+        and class_id = i_to_class_id;
+    end loop;  
+
+    -- update calculated field formula referances
+    for cal_field_formula_rec in cal_field_formula_cur(i_to_class_id)
+    loop
+      update pn_calculation_field_formula
+        set op_value = cal_field_formula_rec.new_id
+        where op_value = cal_field_formula_rec.old_id
+        and class_id = i_to_class_id;
+    end loop;
+    
-end copy_fields;
-
@@ -505 +551 @@
-            field_id = i_field_id;
-
+    -- Cursor for field formulas
+    cursor field_formula_cur(i_class_id in number, i_field_id in number) is
+        select *
+        from pn_calculation_field_formula
+        where
+            class_id = i_class_id and
+            field_id = i_field_id;
+            
-    -- Cursor for reading domain values
-    cursor domain_value_cur(i_domain_id in number) is
@@ -662 +716 @@
-    end loop; -- field properties
-
+    -- Copy all formulas for this field (if available)
+    for field_formula_rec in field_formula_cur(i_from_class_id, v_source_field_id)
+    loop
+        insert into pn_calculation_field_formula (
+            CLASS_ID,
+            FIELD_ID,
+            ORDER_ID,
+            OP_VALUE,
+            OP_TYPE)
+        values (
+             i_to_class_id,
+             v_field_id,
+             field_formula_rec.ORDER_ID,
+             field_formula_rec.OP_VALUE,
+             field_formula_rec.OP_TYPE);
+    end loop; -- field formulas
+
-    -- Copy the domain values if the domain is not null.
-    if (v_from_domain_id IS NOT NULL) then