BVB1#77909 -- Graag planbord toevoegen in kalender om meldingen met actiedatum te tonen

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

BVB1/bvb1.sql

@@ -22,6 +22,45 @@ SET DEFINE OFF
 
 ------ payload begin ------
 
+CREATE OR REPLACE PACKAGE BVB1
+AS
+   PROCEDURE melding_after_save (p_melding_key IN NUMBER);
+END;
+/
+
+CREATE OR REPLACE PACKAGE BODY BVB1
+AS
+   PROCEDURE melding_after_save (p_melding_key IN NUMBER)
+   AS
+
+   v_tijdsduur  NUMBER;
+   v_eenheid    VARCHAR2(1);
+   v_actiedatum DATE;
+   BEGIN
+      -- meldingen die binnen een dag afgehandeld moeten worden krijgen
+      -- direct een actiedatum. Hierdoor komen ze in het planbord te staan.
+      SELECT std.mld_stdmelding_t_uitvoertijd.tijdsduur tijdsduur,
+             std.mld_stdmelding_t_uitvoertijd.eenheid eenheid,
+             m.mld_melding_actiedatum
+        INTO v_tijdsduur, v_eenheid, v_actiedatum
+        FROM mld_stdmelding std, mld_melding m
+       WHERE m.mld_stdmelding_key = std.mld_stdmelding_key
+         AND m.mld_melding_key = p_melding_key;
+
+       IF     v_actiedatum IS NULL
+          AND (   v_eenheid = 'D' AND v_tijdsduur = 1
+               OR v_eenheid = 'U' AND v_tijdsduur <= 8)
+       THEN
+          UPDATE mld_melding
+             SET mld_melding_actiedatum = mld_melding_datum
+           WHERE mld_melding_key = p_melding_key;
+       END IF;
+
+   END;
+END;
+/
+
+
 -- view om overzicht van de geplande acties te krijgen.
 CREATE OR REPLACE VIEW bvb1_v_rap_gepl_acties
 AS