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

Timestamp:

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

Author:

j.e.fischer

Message:

Verbesserungen am Löschtrigger

File:

• trunk/data/konvert/postnas_0.7/alkis-trigger-hist-oracle.sql (modified) (4 diffs)

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;
 /