MAAS#56991 Processemail tbv hr workflows

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

MAAS/maas.sql

@@ -113,12 +113,12 @@ AS
    mldkey       mld_melding.mld_melding_key%TYPE;
    mldstat      mld_melding.mld_melding_status%TYPE;
    stdmelding   mld_stdmelding.mld_stdmelding_key%TYPE;
-   errormsg     fac_result.fac_result_waarde%TYPE;
+   v_errormsg   fac_result.fac_result_waarde%TYPE;
    v_from       VARCHAR2 (4000);
    v_body       VARCHAR2 (4000);
    m_body       VARCHAR2 (4000);
 BEGIN
-   errormsg := '(0x143)';
+   v_errormsg := '(0x143)';
    sender := 3;                           --Standaard de persoon     Facilitor
 
    -- Verwijder de Bounce Address Tag Validation
@@ -135,7 +135,7 @@ BEGIN
    CASE
       WHEN UPPER (pto) LIKE 'HRM@%'
       THEN
-         errormsg := '(0x145)';
+         v_errormsg := '(0x145)';
          stdmelding :=
             fac.safe_to_number (fac.getsetting ('defaultstdmelding'));
 
@@ -145,27 +145,27 @@ BEGIN
          CASE
             WHEN UPPER (psubject) LIKE '%NIEUWE MEDEWERKER%'
             THEN
-               stdmelding := 421;
+               stdmelding := 501;
             WHEN UPPER (psubject) LIKE '%NIEUWE STAGIAIR%'
             THEN
-               stdmelding := 422;
+               stdmelding := 501;
             WHEN UPPER (psubject) LIKE '%NIEUWE INLEENKRACHT%'
             THEN
-               stdmelding := 423;
+               stdmelding := 501;
             WHEN UPPER (psubject) LIKE '%UIT DIENST%'
             THEN
-               stdmelding := 425;
+               stdmelding := 522;
             WHEN UPPER (psubject) LIKE '%ANDERE FUNCTIE%'
             THEN
-               stdmelding := 426;
+               stdmelding := 564;
             ELSE
-               stdmelding := 424; -- Dit is de verzamelbak van binnenkomende meldingen/mails waarvan niet de juiste stdmelding kan worden bepaald.
+               stdmelding := 581; -- Dit is de verzamelbak van binnenkomende meldingen/mails waarvan niet de juiste stdmelding kan worden bepaald.
                mldstat := 2; -- Standaard de status in behandeling (4). Bij geen overeenkomend onderwerp, dan status Nieuw (2), zodat de melding kan worden doorgezet en er een workflow gaat starten na het doorzetten.
          END CASE;
 
          -- Hier maken we de melding aan.
          BEGIN
-            errormsg :=
+            v_errormsg :=
                   'Melding kan niet worden aangemaakt ('
                || 'To: '
                || pto
@@ -215,7 +215,7 @@ BEGIN
                   INTO mldkey;
 
             --                DBMS_OUTPUT.PUT_LINE('Melding toegevoegd: ' || mldkey);
-            errormsg := '(0x147)';
+            v_errormsg := '(0x147)';
 
             INSERT INTO fac_result (fac_result_sessionid,
                                     fac_result_naam,
@@ -225,7 +225,7 @@ BEGIN
                         'Geregistreerd onder melding ' || mldkey);
 
             -- Indien het een melding is die start is van een workflow, dan moet ook de eerstvolgende stap(pen) aangemaakt worden.
-            errormsg := '(0x146)';
+            v_errormsg := '(0x146)';
             mld.mld_nextworkflowstep (mldkey, -1);
          END;
    END CASE;
@@ -246,14 +246,10 @@ BEGIN
 EXCEPTION
    WHEN OTHERS
    THEN
-      --      DBMS_OUTPUT.PUT_LINE('Mail niet geaccepteerd: ' || 'OTHERS (error ' ||  SQLCODE  || '/' || SUBSTR (SQLERRM, 1, 100) || ')');
       INSERT INTO fac_result (fac_result_sessionid,
                               fac_result_naam,
                               fac_result_waarde)
-          VALUES (psessionid,
-                  'errormsg',
-                  'Database fout - Neem contact op met uw systeembeheerder '
-                  || errormsg);
+          VALUES (psessionid, 'maillog', v_errormsg);
 
       fac.writelog (
          'PROCESSEMAIL',
@@ -261,7 +257,7 @@ EXCEPTION
             'Mail kon niet ingelezen worden afzender:'
          || pfrom
          || '['
-         || errormsg
+         || v_errormsg
          || ']',
             'OTHERS (error '
          || SQLCODE