BVB1#88438 bvb1.processemail ondersteunt nu ook de standaardmelding objectregistratie.

svn path=/Customer/trunk/; revision=68733

BVB1/bvb1.sql

@@ -119,7 +119,17 @@ AS
             defaultstdmelding := 1861;
             kkey_att := 1;
             kkey_mail := 4661;
+         WHEN UPPER (pto) LIKE 'OBJECTREGISTRATIE@%'
+         THEN
+            defaultstdmelding := 1981;
+            kkey_att := 1;
+            kkey_mail := 4661;
+         ELSE
+            NULL;
+      END CASE;
 
+      IF defaultstdmelding IS NOT NULL
+      THEN
             -- suggested extensions:
             -- check for MLDUSE-write autorisations
             -- parse the subject to find an appropriate stdmelding, if uniquely possible
@@ -173,9 +183,7 @@ AS
 
                mld.setmeldingstatus (newkey, 2, sender);
             END;
-         ELSE
-            NULL;
-      END CASE;
+      END IF;
 
       IF errormsg IS NOT NULL
       THEN