midsuit
/
core-jgi
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

IDEMPIERE-730 03_update_sequences.sql for native sequence

This commit is contained in:
Carlos Ruiz 2013-04-22 15:56:04 -05:00
parent 4a33f4434e
commit 9388df405b
2 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
migration/processes_post_migration/oracle/03_update_sequences.sql
View File

@ -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

15
migration/processes_post_migration/postgresql/03_update_sequences.sql
View File

@ -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,15 +84,22 @@ 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''';
END IF;
EXECUTE cmdseq INTO currentseq, currentseqsys;
END IF;
IF currentnextsys <> currentseqsys OR (currentnext <> currentseq AND isnativeseqon ='N')
THEN