admin/Database
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Ophogen sequence PRS_S_PRS_ALLUITVOERENDE_KEYS ging fout als table

Browse Source 
prs_bedrijf leeg was. Code aangepast !

svn path=/Database/trunk/; revision=6963
This commit is contained in:
Bert in het Veld
1999-07-16 10:22:22 +00:00
parent 8b20bd1127
commit 17ccb59e25
3 changed files with 24 additions and 30 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
_UP/GMS2TO3.SQL
View File

@@ -1,8 +1,9 @@
--****************************************************************
--Conversie GMS2 naar Facilitor 3.0
-- last update : RD/4-mrt-1999
-- previous update : RD/4-mrt-1999
-- last update : BIV/16-jul-1999 - Ophogen sequence PRS_S_PRS_ALLUITVOERENDE_KEYS ging fout
-- als table prs_bedrijf leeg was. Code aangepast !
-- previous update : RD /4-mrt-1999
-- o.a. uitgaande van CREA_GMS van 18-05-1999
-- De 2.0 data van GMS staat in GMS2/G
-- De 3.0 data voor GMS komt in GMS3/G
@@ -1314,23 +1315,18 @@ END;
/
DECLARE
-- PRS_BEDRIJF geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_SRTPERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_PERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
maxval NUMBER(10);
seqval NUMBER;
seqval NUMBER(10);
maxval_b NUMBER(10);
maxval_s NUMBER(10);
maxval_p NUMBER(10);
maxval_d NUMBER(10);
BEGIN
SELECT MAX(PRS_BEDRIJF_KEY) INTO maxval_b FROM PRS_BEDRIJF;
SELECT MAX(PRS_SRTPERSLID_KEY) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT MAX(PRS_PERSLID_KEY) INTO maxval_p FROM PRS_PERSLID;
SELECT NVL(MAX(PRS_BEDRIJF_KEY), 0) INTO maxval_b FROM PRS_BEDRIJF;
SELECT NVL(MAX(PRS_SRTPERSLID_KEY), 0) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT NVL(MAX(PRS_PERSLID_KEY), 0) INTO maxval_p FROM PRS_PERSLID;
maxval := maxval_b;
IF (maxval < maxval_s) THEN maxval := maxval_s; END IF;
IF (maxval < maxval_p) THEN maxval := maxval_p; END IF;
IF (maxval < maxval_d) THEN maxval := maxval_d; END IF;
SELECT PRS_S_PRS_ALLUITVOERENDE_KEYS.nextval INTO seqval FROM DUAL;
WHILE seqval<maxval
LOOP

16
_UP/HSY2TO3.SQL
View File

@@ -1,3 +1,6 @@
-- last update : BIV/16-jul-1999 - Ophogen sequence PRS_S_PRS_ALLUITVOERENDE_KEYS ging fout
-- als table prs_bedrijf leeg was. Code aangepast !
CONNECT HSY/H
/*
@@ -496,23 +499,18 @@ END;
/
DECLARE
-- PRS_BEDRIJF geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_SRTPERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_PERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
maxval NUMBER(10);
seqval NUMBER;
seqval NUMBER(10);
maxval_b NUMBER(10);
maxval_s NUMBER(10);
maxval_p NUMBER(10);
maxval_d NUMBER(10);
BEGIN
SELECT MAX(PRS_BEDRIJF_KEY) INTO maxval_b FROM PRS_BEDRIJF;
SELECT MAX(PRS_SRTPERSLID_KEY) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT MAX(PRS_PERSLID_KEY) INTO maxval_p FROM PRS_PERSLID;
SELECT NVL(MAX(PRS_BEDRIJF_KEY), 0) INTO maxval_b FROM PRS_BEDRIJF;
SELECT NVL(MAX(PRS_SRTPERSLID_KEY), 0) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT NVL(MAX(PRS_PERSLID_KEY), 0) INTO maxval_p FROM PRS_PERSLID;
maxval := maxval_b;
IF (maxval < maxval_s) THEN maxval := maxval_s; END IF;
IF (maxval < maxval_p) THEN maxval := maxval_p; END IF;
IF (maxval < maxval_d) THEN maxval := maxval_d; END IF;
SELECT PRS_S_PRS_ALLUITVOERENDE_KEYS.nextval INTO seqval FROM DUAL;
WHILE seqval<maxval
LOOP

20
_UP/IBG2to3.SQL
View File

@@ -2,6 +2,10 @@
--Coversie-statements IBG
-- De 2.0 data van IBG staat in ibg0133/i
-- De 3.0 data voor IBG gaan naar IBG3/i
-- last update : BIV/16-jul-1999 - Ophogen sequence PRS_S_PRS_ALLUITVOERENDE_KEYS ging fout
-- als table prs_bedrijf leeg was. Code aangepast !
--****************************************************************
CONNECT IBG0133/I
@@ -792,22 +796,18 @@ END;
/
DECLARE
-- PRS_BEDRIJF geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_SRTPERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
-- PRS_PERSLID geen sequence?! Ja, prs_s_prs_alluitvoerende_keys.
maxval NUMBER(10);
seqval NUMBER;
seqval NUMBER(10);
maxval_b NUMBER(10);
maxval_s NUMBER(10);
maxval_d NUMBER(10);
maxval_p NUMBER(10);
BEGIN
SELECT MAX(PRS_BEDRIJF_KEY) INTO maxval_b FROM PRS_BEDRIJF;
SELECT MAX(PRS_SRTPERSLID_KEY) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT MAX(PRS_PERSLID_KEY) INTO maxval_d FROM PRS_PERSLID;
SELECT NVL(MAX(PRS_BEDRIJF_KEY), 0) INTO maxval_b FROM PRS_BEDRIJF;
SELECT NVL(MAX(PRS_SRTPERSLID_KEY), 0) INTO maxval_s FROM PRS_SRTPERSLID;
SELECT NVL(MAX(PRS_PERSLID_KEY), 0) INTO maxval_p FROM PRS_PERSLID;
maxval := maxval_b;
IF (maxval < maxval_b) THEN maxval := maxval_b; END IF;
IF (maxval < maxval_s) THEN maxval := maxval_s; END IF;
IF (maxval < maxval_d) THEN maxval := maxval_d; END IF;
IF (maxval < maxval_p) THEN maxval := maxval_p; END IF;
SELECT PRS_S_PRS_ALLUITVOERENDE_KEYS.nextval INTO seqval FROM DUAL;
WHILE seqval<maxval
LOOP