From 9388df405bab8e74698f595dcdbf94959a4dce22 Mon Sep 17 00:00:00 2001
From: Carlos Ruiz <carg67@gmail.com>
Date: Mon, 22 Apr 2013 15:56:04 -0500
Subject: [PATCH] IDEMPIERE-730 03_update_sequences.sql for native sequence

---
 .../oracle/03_update_sequences.sql               | 16 +++++++++++++---
 .../postgresql/03_update_sequences.sql           | 15 ++++++++++++---
 2 files changed, 25 insertions(+), 6 deletions(-)

diff --git a/migration/processes_post_migration/oracle/03_update_sequences.sql b/migration/processes_post_migration/oracle/03_update_sequences.sql
index 061710f3d9..156bf102a6 100644
--- a/migration/processes_post_migration/oracle/03_update_sequences.sql
+++ b/migration/processes_post_migration/oracle/03_update_sequences.sql
@@ -3,6 +3,7 @@ DECLARE
    cmdsys           VARCHAR2 (1000);
    cmdnosys         VARCHAR2 (1000);
    cmdseq           VARCHAR2 (1000);
+   cmdcrseq         VARCHAR2 (1000);
    cmdupd           VARCHAR2 (1000);
    currentnextsys   NUMBER (10);
    currentnext      NUMBER (10);
@@ -10,6 +11,8 @@ DECLARE
    Currentseq       Number (10);
    Isnativeseqon    Varchar2(1);  
    sqlcmd           VARCHAR2(200);
+   seq_doesnot_exist EXCEPTION;
+   PRAGMA EXCEPTION_INIT(seq_doesnot_exist, -2289);   
 BEGIN
    DBMS_OUTPUT.PUT_LINE ('Start');
 
@@ -20,6 +23,7 @@ BEGIN
                            FROM AD_COLUMN c
                           WHERE t.ad_table_id = c.ad_table_id
                             AND c.columnname = t.tablename || '_ID')
+                 AND IsView= 'N'
              ORDER BY 1)
    LOOP
       cmdsys :=
@@ -87,17 +91,23 @@ BEGIN
          || 'WHERE Name = '''
          || r.Tablename
          || ''' AND istableid = ''Y''';      
+        BEGIN
+          EXECUTE IMMEDIATE cmdseq INTO currentseq, currentseqsys;
+        EXCEPTION
+          WHEN seq_doesnot_exist THEN
+            cmdcrseq:= 'CREATE SEQUENCE '||Trim(R.Tablename)||'_SQ MINVALUE 1000000 MAXVALUE 2147483647 INCREMENT BY 1 START WITH 1000000';
+            Execute Immediate cmdcrseq;
+            EXECUTE IMMEDIATE cmdseq INTO currentseq, currentseqsys;
+        END;
       ELSE   
         cmdseq :=
               'SELECT currentnext, currentnextsys FROM AD_Sequence '
            || 'WHERE Name = '''
            || r.tablename
            || ''' AND istableid = ''Y''';
+        EXECUTE IMMEDIATE cmdseq INTO currentseq, currentseqsys;
       END IF;
 
-      EXECUTE IMMEDIATE cmdseq
-                   INTO currentseq, currentseqsys;
-
       IF currentnextsys <> currentseqsys OR (currentnext <> currentseq AND Isnativeseqon ='N')
       THEN
          DBMS_OUTPUT.PUT_LINE (   r.tablename
diff --git a/migration/processes_post_migration/postgresql/03_update_sequences.sql b/migration/processes_post_migration/postgresql/03_update_sequences.sql
index 490cdae5fd..7239f37c7f 100644
--- a/migration/processes_post_migration/postgresql/03_update_sequences.sql
+++ b/migration/processes_post_migration/postgresql/03_update_sequences.sql
@@ -1,9 +1,10 @@
-CREATE OR REPLACE FUNCTION update_sequences() RETURNS void as $func$
 -- TODO: Currently not inserting new sequences
+CREATE OR REPLACE FUNCTION update_sequences() RETURNS void as $func$
 DECLARE
    cmdsys           VARCHAR (1000);
    cmdnosys         VARCHAR (1000);
    cmdseq           VARCHAR (1000);
+   cmdcrseq         VARCHAR (1000);
    cmdupd           VARCHAR (1000);
    currentnextsys   NUMERIC (10);
    currentnext      NUMERIC (10);
@@ -21,6 +22,7 @@ BEGIN
                            FROM AD_COLUMN c
                           WHERE t.ad_table_id = c.ad_table_id
                             AND c.columnname = t.tablename || '_ID')
+                AND IsView= 'N'
              ORDER BY 1)
    LOOP
       cmdsys :=
@@ -82,16 +84,23 @@ BEGIN
  	 || 'WHERE Name = '''
 	 || r.tablename
 	 || ''' AND istableid = ''Y''';
+	   BEGIN
+        EXECUTE cmdseq INTO currentseq, currentseqsys;
+       EXCEPTION
+        WHEN undefined_table THEN
+          cmdcrseq := 'CREATE SEQUENCE '||trim(r.tablename)||'_SQ INCREMENT 1 MINVALUE 1000000 MAXVALUE 2147483647 START '||currentseq;
+	      EXECUTE cmdcrseq;
+          EXECUTE cmdseq INTO currentseq, currentseqsys;
+       END;
       ELSE 
        cmdseq :=
  	    'SELECT currentnext, currentnextsys FROM AD_Sequence '
  	 || 'WHERE Name = '''
 	 || r.tablename
 	 || ''' AND istableid = ''Y''';
+       EXECUTE cmdseq INTO currentseq, currentseqsys;
       END IF;  
 
-      EXECUTE cmdseq INTO currentseq, currentseqsys;
-
       IF currentnextsys <> currentseqsys OR (currentnext <> currentseq AND isnativeseqon ='N')
       THEN
          cmdupd :=