0015204: Implement elements in parameters

diff -r ebdd64b7e73b src-db/database/model/functions/AD_SYNCHRONIZE.xml
--- a/src-db/database/model/functions/AD_SYNCHRONIZE.xml	Tue Nov 16 17:00:51 2010 +0100
+++ b/src-db/database/model/functions/AD_SYNCHRONIZE.xml	Tue Nov 16 17:09:52 2010 +0100
@@ -37,6 +37,7 @@
   -- Logistice
   v_ResultStr VARCHAR2(2000):='';
   v_Message VARCHAR2(2000):='';
+  v_sql VARCHAR2(32000):='';
   v_Result NUMBER:=1; -- 0=failure
   v_Record_ID VARCHAR2(32);
   v_AD_User_ID VARCHAR2(32);
@@ -161,40 +162,46 @@
       ;
     v_rowcount:=SQL%ROWCOUNT;
     DBMS_OUTPUT.PUT_LINE('  rows added: ' || v_rowcount) ;
+   
     DBMS_OUTPUT.PUT_LINE('Deleting unused Elements') ;
-    DELETE
-    FROM AD_ELEMENT_TRL
-    WHERE AD_Element_ID IN
-      (SELECT AD_Element_ID
-      FROM AD_ELEMENT e, AD_MODULE M
-      WHERE M.AD_MODULE_ID = E.AD_MODULE_ID
-        AND m.isindevelopment = 'Y'
-      AND NOT EXISTS
+   
+    --Obtain all tables using elements
+    for Cur_Parameter in (select tablename
+                            from ad_table t
+                          where t.ad_table_id != '276'
+                            and exists (select 1 
+                                          from ad_column c
+                                          where lower(columnname)='ad_element_id'
+                                           and c.ad_table_id = t.ad_table_id)
+                            and exists (select 1
+                                          from ad_column c
+                                         where lower(columnname)='columnname'
+                                           and c.ad_table_id = t.ad_table_id)) loop
+      v_sql := v_sql || 
+        'AND NOT EXISTS
         (SELECT 1
-        FROM AD_COLUMN c
-        WHERE UPPER(e.ColumnName)=UPPER(c.ColumnName) OR e.AD_Element_ID=c.AD_Element_ID
-        )
-        AND NOT EXISTS
-        (SELECT 1
-        FROM AD_PROCESS_PARA p
-        WHERE UPPER(e.ColumnName)=UPPER(p.ColumnName) OR e.AD_Element_ID=p.AD_Element_ID
-        )
-      )
-      ;
-    DELETE
-    FROM AD_ELEMENT
-    WHERE NOT EXISTS
-      (SELECT 1
-      FROM AD_COLUMN c
-      WHERE UPPER(AD_ELEMENT.ColumnName)=UPPER(c.ColumnName) OR AD_ELEMENT.AD_Element_ID=c.AD_Element_ID
-      )
-      AND NOT EXISTS
-      (SELECT 1
-      FROM AD_PROCESS_PARA p
-      WHERE UPPER(AD_ELEMENT.ColumnName)=UPPER(p.ColumnName) OR AD_ELEMENT.AD_Element_ID=p.AD_Element_ID
-      )
-      AND EXISTS (SELECT 1 FROM AD_MODULE WHERE AD_MODULE_ID = AD_ELEMENT.AD_MODULE_ID AND ISINDEVELOPMENT ='Y')
-      ;
+           FROM '||Cur_Parameter.tablename||' c
+          WHERE UPPER(e.ColumnName)=UPPER(c.ColumnName) OR e.AD_Element_ID=c.AD_Element_ID
+         ) ';                                      
+    end loop;
+    
+    execute immediate 
+            'DELETE
+            FROM AD_ELEMENT_TRL
+            WHERE AD_Element_ID IN
+              (SELECT AD_Element_ID
+              FROM AD_ELEMENT e, AD_MODULE M
+              WHERE M.AD_MODULE_ID = E.AD_MODULE_ID
+                AND m.isindevelopment = ''Y'' '||v_sql||')';
+                
+    execute immediate 
+            'DELETE
+            FROM AD_ELEMENT e
+            WHERE EXISTS (SELECT 1 FROM AD_MODULE 
+                           WHERE AD_MODULE_ID = e.AD_MODULE_ID 
+                           AND ISINDEVELOPMENT =''Y'') '||v_sql;
+   
+
     v_rowcount:=SQL%ROWCOUNT;
     DBMS_OUTPUT.PUT_LINE('  rows deleted: ' || v_rowcount) ;
     DBMS_OUTPUT.PUT_LINE('Creating link from Column to Element') ;
diff -r ebdd64b7e73b src-db/database/sourcedata/AD_MODULE.xml
--- a/src-db/database/sourcedata/AD_MODULE.xml	Tue Nov 16 17:00:51 2010 +0100
+++ b/src-db/database/sourcedata/AD_MODULE.xml	Tue Nov 16 17:09:52 2010 +0100
@@ -6,7 +6,7 @@
 <!--0-->  <AD_ORG_ID><![CDATA[0]]></AD_ORG_ID>
 <!--0-->  <ISACTIVE><![CDATA[Y]]></ISACTIVE>
 <!--0-->  <NAME><![CDATA[Core]]></NAME>
-<!--0-->  <VERSION><![CDATA[2.50.18840]]></VERSION>
+<!--0-->  <VERSION><![CDATA[3.0.0]]></VERSION>
 <!--0-->  <DESCRIPTION><![CDATA[Core module is the base one]]></DESCRIPTION>
 <!--0-->  <HELP><![CDATA[Core module is the base one, all developments in core are included as part of the standard Openbravo ERP.]]></HELP>
 <!--0-->  <URL><![CDATA[www.openbravo.com]]></URL>