KMMO#75641 -- Afhandelen vragen, storingen en feedback per email

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

KMMO/kmmo.sql

@@ -134,6 +134,8 @@ CREATE OR REPLACE PACKAGE BODY KMMO AS
       errormsg            fac_result.fac_result_waarde%TYPE;
    BEGIN
 
+      defaultstdmelding := NULL;
+
       CASE
          WHEN UPPER (pto) LIKE 'FEEDBACK@%'
          THEN
@@ -142,6 +144,26 @@ CREATE OR REPLACE PACKAGE BODY KMMO AS
             kkey_mail := 541;
             sender := 1841;    -- Ontvangen feedback
 
+         WHEN UPPER (pto) LIKE 'AANVRAAG@%'
+         THEN
+            defaultstdmelding := 481;
+            kkey_att := 1;
+            kkey_mail := 581;
+            sender := 1841;    -- Ontvangen feedback
+
+         WHEN UPPER (pto) LIKE 'STORING@%'
+         THEN
+            defaultstdmelding := 501;
+            kkey_att := 1;
+            kkey_mail := 582;
+            sender := 1841;    -- Ontvangen feedback
+
+         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
@@ -200,9 +222,7 @@ CREATE OR REPLACE PACKAGE BODY KMMO AS
                                        'maillog',
                                        'Geregistreerd onder melding ' || newkey);
             END;
-         ELSE
-            NULL;
-      END CASE;
+      END IF;
 
       IF errormsg IS NOT NULL
       THEN