FCLT#89765 Problemen afgemelde meldingen na update functie #83589

svn path=/Database/trunk/; revision=70057

FAC/FAC_PAC.SRC

@@ -5602,10 +5602,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                            , NULL
                            , '#Notitie via email');  -- TODO testen of okay zo
 
-            UPDATE mld_melding
-               SET mld_melding_actiecode = 128 + 1
-             WHERE mld_melding_key = l_existing_mld_key;
-
             -- logging voor de mailserver..
             INSERT INTO fac_result (fac_result_sessionid, fac_result_naam, fac_result_waarde)
                  VALUES (p_session_id, 'maillog', 'Notitie toegevoegd aan melding ' || TO_CHAR (l_existing_mld_key));

MLD/MLD_PAC.SRC

@@ -338,6 +338,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                THEN
                   behandelaar2_key := NULL;
                END IF;
+               -- Van actiecode bit 128 wissen indien gezet.
+               IF BITAND(actiecode, 128) = 128
+               THEN
+                  actiecode := actiecode - 128;
+               END IF;
             END IF;
          WHEN 6                                                                                              -- Verwerkt
          THEN