Changeset 211

Timestamp:

01/27/13 16:43:12 (11 years ago)

Author:

j.e.fischer

Message:

Verbesserungen am Löschtrigger

Location:

trunk/data/konvert/postnas_0.7

Files:

• alkis-functions.sql (modified) (3 diffs)
• alkis-trigger-hist-oracle.sql (modified) (4 diffs)

trunk/data/konvert/postnas_0.7/alkis-functions.sql

@@ -314 +314 @@
                         || ' AND endet IS NULL'
                         INTO beginnt;
+        END IF;
+
+        IF beginnt IS NULL THEN
+                IF NEW.context = 'delete' OR NEW.safetoignore = 'true' THEN
+                        RAISE NOTICE 'Kein Beginndatum fuer Objekt % gefunden - ignoriert.', alt_id;
+                        NEW.ignored := true;
+                        RETURN NEW;
+                ELSE
+                        RAISE EXCEPTION 'Kein Beginndatum fuer Objekt % gefunden.', alt_id;
+                END IF;
         END IF;
 
@@ -356 +366 @@
                                 INTO endete;
                 END IF;
+
+                IF alt_id<>neu_id THEN
+                        RAISE NOTICE 'Objekt % wird durch Objekt % ersetzt.', alt_id, neu_id;
+                END IF;
+
+                IF endete IS NULL THEN
+                        RAISE NOTICE 'Kein Beginndatum fuer Objekt % gefunden.', neu_id;
+                END IF;
+
+                IF endete IS NULL OR beginnt=endete THEN
+                        RAISE EXCEPTION 'Objekt % wird durch Objekt % ersetzt (leere Lebensdauer?).', alt_id, neu_id;
+                END IF;
         ELSE
                 RAISE EXCEPTION '%: UngÃŒltiger Kontext % (''delete'' oder ''replace'' erwartet).', NEW.featureid, NEW.context;
-        END IF;
-
-        IF alt_id<>neu_id THEN
-                RAISE NOTICE 'Objekt % wird durch Objekt % ersetzt.', alt_id, neu_id;
-        END IF;
-
-        IF beginnt IS NULL THEN
-                RAISE NOTICE 'Kein Beginndatum fuer Objekt % gefunden.', alt_id;
-        END IF;
-
-        IF endete IS NULL THEN
-                RAISE NOTICE 'Kein Beginndatum fuer Objekt % gefunden.', neu_id;
-        END IF;
-
-        IF beginnt IS NULL OR endete IS NULL OR beginnt=endete THEN
-                RAISE EXCEPTION 'Objekt % wird durch Objekt % ersetzt (leere Lebensdauer?).', alt_id, neu_id;
         END IF;
 
@@ -396 +402 @@
 
                         IF NOT endete IS NULL THEN
-                                RAISE NOTICE '%: Objekte bereits % ungegegangen - ignoriert', NEW.featureid, endete;
+                                RAISE NOTICE '%: Objekt bereits % untergegangen - ignoriert', NEW.featureid, endete;
                         ELSE
                                 RAISE NOTICE '%: Objekt nicht gefunden - ignoriert', NEW.featureid;

trunk/data/konvert/postnas_0.7/alkis-trigger-hist-oracle.sql

@@ -90 +90 @@
         END IF;
 
+        IF beginnt IS NULL THEN
+                IF :NEW.context = 'delete' OR :NEW.safetoignore = 'true' THEN
+                        dbms_output.put_line('Kein Beginndatum fuer Objekt ' || alt_id || ' gefunden.');
+                        :NEW.ignored := 'true';
+                        RETURN;
+                ELSE
+                        raise_application_error(-20100, 'Kein Beginndatum fuer Objekt ' || alt_id || ' gefunden.');
+                END IF;
+        END IF;
+
         IF :NEW.context='delete' THEN
                 SELECT to_char(sysdate, 'YYYY-MM-DD"T"HH24:MI:SS"Z"') INTO endete FROM dual;
@@ -130 +140 @@
                                 INTO endete;
                 END IF;
+
+                IF alt_id<>neu_id THEN
+                        dbms_output.put_line('Objekt ' || alt_id || ' wird durch Objekt ' || neu_id || ' ersetzt.');
+                END IF;
+
+                IF endete IS NULL THEN
+                        dbms_output.put_line('Kein Beginndatum fuer Objekt ' || neu_id || '.');
+                END IF;
+
+                IF endete IS NULL OR beginnt=endete THEN
+                        raise_application_error(-20100, 'Objekt ' || alt_id || ' wird durch Objekt ' || neu_id || ' ersetzt (leere Lebensdauer?).');
+                END IF;
         ELSE
                 raise_application_error(-20100, :NEW.featureid || ': UngÃŒltiger Kontext ' || :NEW.context || '''delete'' oder ''replace'' erwartet).');
-        END IF;
-
-        IF alt_id<>neu_id THEN
-                dbms_output.put_line('Objekt ' || alt_id || ' wird durch Objekt ' || neu_id || ' ersetzt.');
-        END IF;
-
-        IF beginnt IS NULL THEN
-                dbms_output.put_line('Kein Beginndatum fuer Objekt ' || alt_id || '.');
-        END IF;
-
-        IF endete IS NULL THEN
-                dbms_output.put_line('Kein Beginndatum fuer Objekt ' || neu_id || '.');
-        END IF;
-
-        IF beginnt IS NULL OR endete IS NULL OR beginnt=endete THEN
-                raise_application_error(-20100, 'Objekt ' || alt_id || ' wird durch Objekt ' || neu_id || ' ersetzt (leere Lebensdauer?).');
         END IF;
 
@@ -163 +169 @@
                         :NEW.ignored := 'true';
                         RETURN;
+                ELSIF n=0 THEN
+                        EXECUTE IMMEDIATE 'SELECT endet FROM ' || :NEW.typename ||
+                                ' WHERE gml_id=''' || alt_id || '''' ||
+                                ' AND beginnt=''' || beginnt || ''''
+                                INTO endete;
+
+                        IF NOT endete IS NULL THEN
+                                dbms_output.put_line( :NEW.featureid || ': Objekt bereits ' || endete || ' untergegangen - ignoriert' );
+                        ELSE
+                                dbms_output.put_line( :NEW.featureid || ': Objekt nicht gefunden - ignoriert' );
+                        END IF;
+
+                        :NEW.ignored := 'true';
+                        RETURN;
                 ELSE
                         raise_application_error(-20100, :NEW.featureid || ': Untergangsdatum von ' || n || ' Objekten statt nur einem auf ' || endete || ' gesetzt - Abbruch' );
@@ -169 +189 @@
 
         :NEW.ignored := 'false';
-        RETURN;
 END delete_feature_trigger;
 /