BVB1#79790 -- Diverse aanpassingen naar aanleiding van het gesprek op 16 augustus

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

BVB1/bvb1.sql

@@ -33,6 +33,14 @@ AS
    PROCEDURE melding_after_save (p_melding_key IN NUMBER)
    AS
 
+   CURSOR c IS
+      SELECT mld_melding_key
+        FROM mld_melding m, mld_stdmelding std
+       WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+         AND BITAND(std.mld_stdmelding_planbaar,4) = 4
+         AND m.mld_melding_status = 4
+         AND mld_melding_actiedatum IS NULL;
+
    v_tijdsduur  NUMBER;
    v_eenheid    VARCHAR2(1);
    v_actiedatum DATE;
@@ -60,12 +68,12 @@ AS
 
        -- Als de melding geaccepteerd wordt en de actiedatum is nog leeg dan gaan we de actiedatum
        -- vullen met de dag van vandaag zodat de melding ook op de kalender (rapportage) verschijnt.
-       IF v_status = 4 AND v_actiedatum IS NULL
-       THEN
+       FOR rec IN c
+       LOOP
           UPDATE mld_melding
              SET mld_melding_actiedatum = SYSDATE
-           WHERE mld_melding_key = p_melding_key;
-       END IF;
+           WHERE mld_melding_key = rec.mld_melding_key;
+       END LOOP;
 
    END;
 END;