FCLT#78796 Schema leeg test moet MLD_T_UITVOERTIJD negeren

svn path=/Database/trunk/; revision=61465
2023-08-16 11:06:18 +00:00
parent 955eca50ee
commit 8df62cb191
1 changed files with 5 additions and 1 deletions
--- a/FCLT.SRC
+++ b/FCLT.SRC
@@ -40,7 +40,11 @@ BEGIN
        RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
    END IF;

-    SELECT COUNT (*) INTO n_object FROM USER_OBJECTS;
+    -- Negeer MLD_T_UITVOERTIJD die we nogal eens 'precreated' hebben
+    SELECT COUNT (*)
+      INTO n_object
+      FROM USER_OBJECTS
+     WHERE object_type <> 'TYPE';
    IF (n_object > 0)
    THEN
        RAISE_APPLICATION_ERROR (-20000, 'OR' || 'A-' || 'Schema ' || USER || ' must be empty before creating database');