UWVA#36449 Branch DB28b

svn path=/Database/branches/DB28/; revision=29512

ADM/ADM_PAC.SRC

@@ -4,9 +4,7 @@
 
 CREATE OR REPLACE PACKAGE adm
 AS
-   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER);
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2);
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
+   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
 END adm;
@@ -14,45 +12,9 @@ END adm;
 
 CREATE OR REPLACE PACKAGE BODY adm
 AS
-   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER)
-   AS
-      revisionnr VARCHAR2 (60);
-      scriptname VARCHAR2 (60);
-   BEGIN
-      -- Als force = 1 dan wordt onvoorwaardelijk getrackt, anders
-      -- wordt niet getrackt als deze (n,r) al eerder werd getrackt
-      revisionnr := REPLACE (r, '$', '');
-      revisionnr := RTRIM (REPLACE (revisionnr, 'Revision: ', ''));
-      scriptname := REPLACE (n, '$', '');
-      scriptname := RTRIM (REPLACE (scriptname, 'Workfile: ', ''));
-
-      IF force = 1
-      THEN
-         INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
-                                  )
-           VALUES   (scriptname, revisionnr
-                    );
-      ELSE
-         BEGIN
-            UPDATE   adm_tracking
-               SET   adm_tracking_date = SYSDATE, adm_tracking_osuser = SYS_CONTEXT ('USERENV', 'OS_USER')
-             WHERE   UPPER (adm_tracking_name) = UPPER (scriptname)
-                     AND UPPER (adm_tracking_revision) = UPPER (revisionnr);
-
-            IF SQL%ROWCOUNT = 0
-            THEN
-               INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
-                                        )
-                 VALUES   (scriptname, revisionnr
-                          );
-            END IF;
-         END;
-      END IF;
-   END;
-
    -- Voor SVN is dit handiger, vereist alleen de svn-id string
    -- ($Id$)
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER)
+   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1)
    AS
       revisionnr VARCHAR2 (60);
       scriptname VARCHAR2 (60);
@@ -84,13 +46,6 @@ AS
     END IF;
    END;
 
-   -- Trackt altijd
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2)
-   AS
-   BEGIN
-        adm.systrackscriptId(svnid, 1);
-   END;
-
    -- DDL. Probeert een object (TABLE, INDEX e.d.) te droppen, maar moppert niet als die niet bestond
    -- Hiermee voorkomen we foutmeldingen in logfiles die niet erg zijn
    PROCEDURE trydrop (n IN VARCHAR2)

ALG/ALGSQL.H

@@ -5,35 +5,6 @@
  *
  * History:
  */
-#ifdef MS_SQL
-
-#define SET_VERWIJDER_CHILDREN_DEEL(child_table, parent_key, parent_verwijder, \
-        dummy1, child_verwijder, child_key, dummy2)      \
- BEGIN                                                                    \
-   UPDATE child_table                                                     \
-   SET child_verwijder = i.parent_verwijder                               \
-   FROM inserted i left join deleted d                                    \
-  on i.parent_key = d.parent_key                                          \
-   WHERE child_table.child_key = i.parent_key                             \
-   AND (i.parent_verwijder IS NOT NULL OR                                 \
-       (i.parent_verwijder IS NULL AND d.parent_verwijder IS NOT NULL))   \
-   AND ins_alg_ruimte_type NOT IN ('W','T');                              \
- END
-
-#define SET_VERWIJDER_CHILDREN_DEELT(child_table, parent_key, parent_verwijder, \
-        dummy1, child_verwijder, child_key, dummy2)      \
- BEGIN                                                                    \
-   UPDATE child_table                                                     \
-   SET child_verwijder = i.parent_verwijder                               \
-   FROM inserted i left join deleted d                                    \
-  on i.parent_key = d.parent_key                                          \
-   WHERE child_table.child_key = i.parent_key                             \
-   AND (i.parent_verwijder IS NOT NULL OR                                 \
-       (i.parent_verwijder IS NULL AND d.parent_verwijder IS NOT NULL))   \
-   AND ins_alg_ruimte_type = 'T';                                        \
- END
-
-#else
 
 #define SET_VERWIJDER_CHILDREN_DEEL(child_table, parent_key, parent_verwijder,  \
         dummy1, child_verwijder, child_key, dummy2)           \
@@ -61,8 +32,6 @@
     END IF;                                                                    \
  END
 
-#endif
-
 #define SET_VERWIJDER_CHILDREN_DEELWP(child_table, parent_key, parent_verwijder,        \
         dummy1, child_verwijder, child_key, dummy2)           \
  BEGIN                                                                         \

ALG/ALG_TAB.SRC

@@ -298,6 +298,8 @@ CREATE_TABLE(alg_gebouw,0)
         DEFAULT 1
         CONSTRAINT alg_c_alg_gebouw_bez CHECK(alg_gebouw_bez IS NULL
                                            OR alg_gebouw_bez = 1),
+    alg_gebouw_email
+        VARCHAR2(200),
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 

ALG/ALG_TRI.SRC

@@ -690,12 +690,12 @@ CREATE_TRIGGER(alg_t_alg_srtterreinsec_B_IU)
 BEFORE INSERT OR UPDATE ON alg_srtterreinsector
 FOR EACH ROW
 BEGIN
-    UPDATE_PRIMARY_KEY(alg_srtterreinsector_key, alg_s_alg_srtruimte_key);
+    UPDATE_PRIMARY_KEY(alg_srtterreinsector_key, alg_s_alg_srtterrein_key);
     UPDATE_UPPER(alg_srtterreinsec_omschrijving, alg_srtterreinsector_upper,alg_srtterreinsector);
     UPDATE_AANMAAKDATUM(alg_srtterreinsector, alg_srtterreinsector_aanmaak);
 
     CHECK_NOG_REFERENCES(alg_srtterreinsector, alg_srtterreinsector_verwijder,
-                alg_v_aanwezigsrtterreinsector, alg_srtterreinsector_key, 'alg_m041');
+                alg_v_aanwezigterreinsector, alg_srtterreinsector_key, 'alg_m041');
 END;
 /
 

ALG/ALG_VIE.SRC

@@ -268,6 +268,8 @@ SELECT ALG_R.alg_ruimte_key,
 CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
 (
    alg_onroerendgoed_keys,
+   alg_plaatsaanduiding,
+   alg_plaatsomschrijving,
    alg_onroerendgoed_code,
    alg_onroerendgoed_omschrijving,
    alg_ruimte_key,
@@ -286,180 +288,268 @@ CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
    alg_type
 )
 AS
-   SELECT   alg_r.alg_ruimte_key,
-            alg_r.alg_ruimte_nr,
-            alg_r.alg_ruimte_omschrijving,
-            alg_r.alg_ruimte_key,
-            alg_r.alg_ruimte_nr,
-            alg_r.alg_ruimte_omschrijving,
-            alg_r.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'R'
-     FROM   alg_ruimte alg_r, alg_verdieping alg_v, alg_gebouw alg_g
-    WHERE   alg_r.alg_verdieping_key = alg_v.alg_verdieping_key AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+   SELECT alg_r.alg_ruimte_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code)
+          || DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', '-' || alg_r.alg_ruimte_nr),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (
+                SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                '_',
+                alg_g.alg_gebouw_naam,
+                DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', alg_r.alg_ruimte_omschrijving))),
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'R'
+     FROM alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_v.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_v.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'V'
-     FROM   alg_verdieping alg_v, alg_gebouw alg_g
-    WHERE   alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+   SELECT alg_v.alg_verdieping_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', alg_v.alg_verdieping_omschrijving)),
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'V'
+     FROM alg_verdieping alg_v, alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'G'
-     FROM   alg_gebouw alg_g
+   SELECT alg_g.alg_gebouw_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code),
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_g.alg_gebouw_naam),
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'G'
+     FROM alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_t.alg_terreinsector_key,
-            alg_t.alg_terreinsector_code,
-            alg_t.alg_terreinsector_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_t.alg_terreinsector_key,
-            alg_t.alg_terreinsector_code,
-            alg_t.alg_terreinsector_naam,
-            alg_t.alg_locatie_key,
-            'T'
-     FROM   alg_terreinsector alg_t;
+   SELECT alg_t.alg_terreinsector_key,
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', '',
+                  '-' || alg_t.alg_terreinsector_code),
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_terreinsector_naam),
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_t.alg_terreinsector_key,
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          alg_t.alg_locatie_key,
+          'T'
+     FROM alg_terreinsector alg_t, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_t.alg_locatie_key;
 
 CREATE_VIEW(alg_v_onroerendgoed_gegevens,0)
-                                (alg_onroerendgoed_keys,
-                                 alg_onroerendgoed_code,
-                                 alg_onroerendgoed_omschrijving,
-                                 alg_ruimte_key,
-                                 alg_ruimte_nr,
-                                 alg_ruimte_omschrijving,
-                                 alg_verdieping_key,
-                                 alg_verdieping_code,
-                                 alg_verdieping_omschrijving,
-                                 alg_gebouw_key,
-                                 alg_gebouw_code,
-                                 alg_gebouw_naam,
-                                 alg_terreinsector_key,
-                                 alg_terreinsector_code,
-                                 alg_terreinsector_naam,
-                                 alg_type,
-                                 alg_locatie_key ) AS
-   SELECT ALG_R.alg_ruimte_key,
-          ALG_R.alg_ruimte_nr,
-          ALG_R.alg_ruimte_omschrijving,
-          ALG_R.alg_ruimte_key,
-          ALG_R.alg_ruimte_nr,
-          ALG_R.alg_ruimte_omschrijving,
-          ALG_R.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+(
+   alg_onroerendgoed_keys,
+   alg_plaatsaanduiding,
+   alg_plaatsomschrijving,
+   alg_onroerendgoed_code,
+   alg_onroerendgoed_omschrijving,
+   alg_ruimte_key,
+   alg_ruimte_nr,
+   alg_ruimte_omschrijving,
+   alg_verdieping_key,
+   alg_verdieping_code,
+   alg_verdieping_omschrijving,
+   alg_gebouw_key,
+   alg_gebouw_code,
+   alg_gebouw_naam,
+   alg_terreinsector_key,
+   alg_terreinsector_code,
+   alg_terreinsector_naam,
+   alg_locatie_key,
+   alg_type
+)
+AS
+   SELECT alg_r.alg_ruimte_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code)
+          || DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', '-' || alg_r.alg_ruimte_nr),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (
+                SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                '_',
+                alg_g.alg_gebouw_naam,
+                DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', alg_r.alg_ruimte_omschrijving))),
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'R',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanwezigruimte ALG_R, alg_verdieping ALG_V, alg_gebouw ALG_G
-   WHERE ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-     AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-   UNION
-   SELECT ALG_V.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'R'
+     FROM alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_v.alg_verdieping_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', alg_v.alg_verdieping_omschrijving)),
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_V.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'V',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanwezigverdieping ALG_V, alg_gebouw ALG_G
-   WHERE ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-   UNION
-   SELECT ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'V'
+     FROM alg_verdieping alg_v, alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_g.alg_gebouw_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code),
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_g.alg_gebouw_naam),
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'G',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanweziggebouw ALG_G
-   UNION
-   SELECT ALG_T.alg_terreinsector_key,
-          ALG_T.alg_terreinsector_code,
-          ALG_T.alg_terreinsector_naam,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'G'
+     FROM alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_t.alg_terreinsector_key,
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', '',
+                  '-' || alg_t.alg_terreinsector_code),
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_terreinsector_naam),
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_T.alg_terreinsector_key,
-          ALG_T.alg_terreinsector_code,
-          ALG_T.alg_terreinsector_naam,
-          'T',
-          ALG_T.alg_locatie_key
-   FROM alg_v_aanwezigterreinsector ALG_T;
+          alg_t.alg_terreinsector_key,
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          alg_t.alg_locatie_key,
+          'T'
+     FROM alg_terreinsector alg_t, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_t.alg_locatie_key;
 
 CREATE_VIEW(alg_v_alg_ruimte_verdieping,0)
 AS SELECT ALG_R.alg_ruimte_key

BES/BES_PAC.SRC

@@ -1381,6 +1381,10 @@ AS
       ldisc_oms  bes_discipline.ins_discipline_omschrijving%TYPE;
       loms       fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
       bericht    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
    BEGIN
       BEGIN
          SELECT   DISTINCT
@@ -1416,6 +1420,8 @@ AS
 
          bericht := bes.bessprintf (loms, pbeskey, ldisc_oms);      -- de variabelen invullen
 
+         lnrreceivers := 0;
+         lreceivers := '';
          FOR boer
             IN (SELECT   g.prs_perslid_key
                   FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p, prs_v_afdeling d
@@ -1459,7 +1465,29 @@ AS
                                         2,
                                         NULL
                                        );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+               lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
          END LOOP;
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_bes_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#BESMAI', pbeskey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
@@ -1486,6 +1514,10 @@ AS
       lfunctiecode fac_functie.fac_functie_code%TYPE;
       lsender mld_discipline.ins_discipline_email%TYPE;
       bericht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
    BEGIN
       BEGIN
          SELECT COALESCE(ma.alg_locatie_key, -1),
@@ -1600,6 +1632,8 @@ AS
 
          bericht := bes.bessprintf (loms, pbeskey, '');             -- de variabelen invullen
 
+         lnrreceivers := 0;
+         lreceivers := '';
          FOR boer
             IN (SELECT   g.prs_perslid_key
                   FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p
@@ -1638,7 +1672,30 @@ AS
                                         2,
                                         lsender
                                        );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+               lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
          END LOOP;
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_ord_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#BES2MA', pbeskey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN

BES/BES_TAB.SRC

@@ -371,7 +371,9 @@ CREATE_TABLE(bes_bestelling_item, 0)
         NUMBER(5),
     bes_bestelling_item_status
         NUMBER(10),
-    CONSTRAINT bes_c_bes_bestelling_item CHECK (bes_bestelling_item_aantalontv<=bes_bestelling_item_aantal)
+    CONSTRAINT bes_c_bes_bestelling_item
+        CHECK ((bes_bestelling_item_aantal>=0 AND bes_bestelling_item_aantalontv<=bes_bestelling_item_aantal)
+               OR (bes_bestelling_item_aantal<0 AND bes_bestelling_item_aantalontv>=bes_bestelling_item_aantal))
 );
 
 --CREATE_TABLE(bes_bestellingstatuses, 0)

BES/BES_VIE.SRC

@@ -443,6 +443,51 @@ AS
                   AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
                   AND sg.ins_discipline_key = d.ins_discipline_key);
 
+CREATE_VIEW(bes_v_allsrtinstallatie, 0)
+(
+   NIVEAU,
+   BES_SRTINSTALLATIE_KEY,
+   DISCIPLINE_OMS,
+   SRTGROEP_OMS,
+   SRTDEEL_OMS,
+   BES_DISCIPLINE_KEY,
+   BES_SRTGROEP_KEY,
+   BES_SRTDEEL_KEY
+)
+AS
+   SELECT 'D',
+          bes_ID.ins_discipline_key,
+          bes_ID.ins_discipline_omschrijving discipline_oms,
+          NULL srtgroep_oms,
+          NULL srtdeel_oms,
+          bes_ID.ins_discipline_key,
+          NULL bes_srtgroep_key,
+          NULL bes_srtdeel_key
+     FROM bes_discipline bes_ID
+   UNION
+   SELECT 'G',
+          bes_SG.bes_srtgroep_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          NULL,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          NULL
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG
+    WHERE bes_ID.ins_discipline_key = bes_SG.ins_discipline_key
+   UNION
+   SELECT 'S',
+          bes_SD.bes_srtdeel_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          bes_SD.bes_srtdeel_omschrijving,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          bes_SD.bes_srtdeel_key
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG, bes_srtdeel bes_SD
+    WHERE bes_SG.bes_srtgroep_key = bes_SD.bes_srtgroep_key
+          AND bes_ID.ins_discipline_key = bes_SG.ins_discipline_key;
+
 REGISTERRUN('$Id$')
 
 #endif  // BES

BEZ/BEZ_IND.SRC

@@ -9,6 +9,7 @@ create index bez_i_bez_afspraak_bez3 on bez_afspraak (prs_perslid_key);
 create index bez_i_bez_afspraak_bez4 on bez_afspraak (bez_afspraak_datum);
 CREATE INDEX bez_i_bez_afspraak_bez5 ON bez_afspraak(bez_afspraak_contact_key, bez_afspraak_datum);
 CREATE INDEX bez_i_bez_afspraak_bez6 ON bez_afspraak(bez_afspraak_host_key, bez_afspraak_datum);
+CREATE INDEX bez_i_bez_afspraak_bez7 ON bez_afspraak(alg_locatie_key);
 
 create index bez_i_bez_bezoeker_afsp on bez_bezoekers (bez_afspraak_key);
 

BEZ/BEZ_PAC.SRC

@@ -181,6 +181,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       talgruimte res_rsv_ruimte.alg_ruimte_key%TYPE;
       lparkeerkey res_deel.res_deel_key%TYPE;
       bez_parkingdiscipline_key NUMBER;
+      lpreposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
    BEGIN
       -- Claim een (nieuwe) parkeerplaats voor de gegeven bezoeker
       -- Reserveer voor de tijden van de bijbehorende afspraak cq. res_rsv_ruimte
@@ -209,11 +210,21 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       IF ldeelreskey IS NOT NULL
       THEN
          -- Zoek de noodzakelijke gegevens op
-         SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot, r.res_ruimte_opstel_key, r.alg_ruimte_key
-           INTO   lbegin, leinde, topstel, talgruimte
+         SELECT   r.res_ruimte_opstel_key, r.alg_ruimte_key
+           INTO   topstel, talgruimte
            FROM   res_rsv_ruimte r
           WHERE   res_rsv_ruimte_key = ldeelreskey;
 
+         -- Begin- en eindtijd zouden al bekend moeten zijn via afspraak (zal eigenlijk altijd gevuld zijn)
+         -- Zo niet, dan nog ophalen uit rsv_ruimte
+         IF lbegin IS NULL OR leinde IS NULL
+         THEN
+            SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot
+              INTO   lbegin, leinde
+              FROM   res_rsv_ruimte r
+             WHERE   res_rsv_ruimte_key = ldeelreskey;
+         END IF;
+
          IF talgruimte IS NOT NULL
          THEN
             SELECT   g.alg_locatie_key
@@ -235,9 +246,16 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          END IF;
       END IF;
 
-      -- ik weet genoeg, behalve: de discipline_key van parkeerplaatsen!
-      bez_parkingdiscipline_key :=  fac.safe_to_number (fac.getsetting ('vis_parking_key'));
+      -- ik weet genoeg, behalve: de discipline_key van parkeerplaatsen en de pre/post tijden van deze discipline!
+      bez_parkingdiscipline_key := fac.safe_to_number (fac.getsetting ('vis_parking_key'));
 
+      SELECT COALESCE(rdp.res_disc_params_preposttime, 0) / 24
+        INTO lpreposttime
+        FROM res_disc_params rdp
+       WHERE rdp.res_ins_discipline_key = bez_parkingdiscipline_key;
+
+      -- lpreposttime is nu in dagen (in uren / 24 = in dagen).
+      -- In de query wordt rekening gehouden met 1 minuut marge voor afrondfouten (+/- 1 / 1440).
       -- Heb ik een gebouwkey of terreinkey meegekregen?
       IF palg_gebter_key IS NULL
       THEN
@@ -248,10 +266,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              (SELECT   MIN (rd.res_deel_key)
                                 FROM   res_v_aanwezigrsv_deel rd
                                WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440
+                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
                                        AND d.res_discipline_key = bez_parkingdiscipline_key)
                                 aantal
                       FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_aanwezigterreinsector t
@@ -278,10 +296,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              (SELECT   MIN (rd.res_deel_key)
                                 FROM   res_v_aanwezigrsv_deel rd
                                WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440
+                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
                                        AND d.res_discipline_key = bez_parkingdiscipline_key)
                                 aantal
                       FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_allonroerendgoed og

BEZ/BEZ_TAB.SRC

@@ -91,7 +91,10 @@ CREATE_TABLE(bez_bezoekers,0)
     bez_bezoekers_out
         DATE,
     bez_bezoekers_oproep
-        DATE
+        DATE,
+    bez_bezoekers_flags -- documentatie in appl/bez/xxx.inc
+        NUMBER(10)
+        DEFAULT 0 NOT NULL
  );
 
 

BEZ/BEZ_TRI.SRC

@@ -17,7 +17,21 @@ BEGIN
    END IF;
 
    IF :new.bez_afspraak_host_key IS NULL AND :new.bez_afspraak_gastheer IS NULL THEN
-        :new.bez_afspraak_host_key := :new.bez_afspraak_contact_key;
+      BEGIN
+        IF fac.getsetting ('vis_afspraak_host_uses_keys') = 1 THEN
+           :new.bez_afspraak_host_key := :new.bez_afspraak_contact_key;
+        ELSE
+           BEGIN
+              SELECT SUBSTR(prs_perslid_naam_full,1,50)
+              INTO :new.bez_afspraak_gastheer
+              FROM prs_v_perslid_fullnames_all
+              WHERE prs_perslid_key=:new.bez_afspraak_contact_key;
+           EXCEPTION
+              WHEN OTHERS THEN
+                :new.bez_afspraak_gastheer := '*';
+           END;
+        END IF;
+      END;
    END IF;
    IF :new.bez_afspraak_host_key IS NOT NULL THEN
         SELECT SUBSTR(prs_perslid_naam_full,1,50)

BEZ/BEZ_VIE.SRC

@@ -62,12 +62,13 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
    bezoeker_binnen,
    bezoeker_buiten,
    pasnr,
-   FCLT_3D_LOCATIE_KEY,
-   FCLT_3D_AFDELING_KEY
+   parkeerplaats,
+   fclt_3d_locatie_key,
+   fclt_3d_afdeling_key
 )
 AS
    SELECT b.bez_bezoekers_key,
-          p1.prs_perslid_naam_full bez_afspraak_host,
+          COALESCE (p1.prs_perslid_naam_full, a.bez_afspraak_gastheer) bez_afspraak_host,
           p2.prs_perslid_naam_full bez_afspraak_contact,
           og.alg_onroerendgoed_code,
           og.alg_onroerendgoed_omschrijving,
@@ -92,8 +93,9 @@ AS
           b.bez_bezoekers_done,
           b.bez_bezoekers_out,
           b.bez_bezoekers_pasnr,
+          rd.res_deel_omschrijving,
           og.alg_locatie_key,
-          PP1.PRS_AFDELING_KEY
+          pp1.prs_afdeling_key
      FROM bez_afspraak a,
           bez_bezoekers b,
           prs_v_perslid_fullnames_all p1,
@@ -103,16 +105,20 @@ AS
           alg_district d,
           alg_regio r,
           bez_actie ba,
-          prs_perslid pp1
+          prs_perslid pp1,
+          res_rsv_deel rrd,
+          res_deel rd
     WHERE     a.bez_afspraak_key = b.bez_afspraak_key
-          AND pp1.prs_perslid_key = a.bez_afspraak_host_key
-          AND p1.prs_perslid_key = a.bez_afspraak_host_key
+          AND pp1.prs_perslid_key(+) = a.bez_afspraak_host_key
+          AND p1.prs_perslid_key(+) = a.bez_afspraak_host_key
           AND p2.prs_perslid_key = a.bez_afspraak_contact_key
           AND a.bez_actie_key = ba.bez_actie_key
           AND l.alg_district_key = d.alg_district_key
           AND d.alg_regio_key = r.alg_regio_key
           AND l.alg_locatie_key = og.alg_locatie_key
-          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
+          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys
+          AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
+          AND rrd.res_deel_key = rd.res_deel_key(+);
 
 REGISTERRUN('$Id$')
 

CAD/CAD_INI.SRC

@@ -102,8 +102,8 @@ INSERT INTO CAD_LABEL
 
 -- NB: deze gaat met vaste key 12, een harde default voor infobord.
 INSERT INTO cad_label
-    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, fac_functie_key )
-    SELECT 12, 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', -500, fac_functie_key
+    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, cad_label_visible, fac_functie_key )
+    SELECT 12, 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', 500, 0, fac_functie_key
       from fac_functie
     where fac_functie_code = 'WEB_RESFOF';
 -- De cad_label_key sequence gaat later vanzelf wel verder met 21.

CAD/CAD_TAB.SRC

@@ -118,7 +118,12 @@ CREATE_TABLE(cad_label,0)
         NUMBER,
     fac_functie_key
         NUMBER(10)
-        CONSTRAINT cad_fac_functie_key2 REFERENCES fac_functie(fac_functie_key)
+        CONSTRAINT cad_fac_functie_key2 REFERENCES fac_functie(fac_functie_key),
+    cad_label_visible
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT cad_c_cad_label_visible CHECK (cad_label_visible IN (0,1))
 );
 
 CREATE_TABLE(cad_imp_contour,0)

CARE/CARE_INI.SRC

@@ -1519,6 +1519,26 @@ INSERT INTO fac_usrrap
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
+-- Rapport R) FACTUURrapport met detailgegevens client per beschikking - variant R:    
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving,
+             fac_usrrap_view_name,
+             fac_usrrap_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Factuur R) Details Client per beschikking',
+             'care_v_rap2_factuur_uren_R',
+             0,
+             0,
+             1,
+             'Factuurrapportage per beschikking met detailgegevens clienten',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- Rapport Q) FACTUURrapport voor de gemaakte uren per datum - variant Q (Bernisse):
 INSERT INTO fac_usrrap
@@ -1546,7 +1566,27 @@ INSERT INTO fac_usrrap
              fac_functie_key,
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-
+    
+-- BONS#36043: Totaallijst clienten in zorg (outerjoin uren):    
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving,
+             fac_usrrap_view_name,
+             fac_usrrap_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Totaal lijst cli<6C>nten in zorg',
+             'care_v_rap_tot_clientzorg',
+             0,
+             0,
+             1,
+             'Totaal lijst cli<6C>nten in zorg (ook zonder uren)',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';    
 
 
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

CARE/CARE_PAC.SRC

@@ -157,7 +157,7 @@ PROCEDURE care_v_rap2_factuur_uren_a
         INSERT INTO care_periode (jaar, periode, week, maandag)
         SELECT 
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-            FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+      			LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
             TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
         FROM  DUAL
@@ -213,7 +213,7 @@ PROCEDURE care_v_rap2_factuur_uren_e
         INSERT INTO care_periode (jaar, periode, week, maandag)
         SELECT 
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-            FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+            LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
             TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
         FROM  DUAL

CARE/CARE_VIE.SRC

@@ -610,6 +610,7 @@ CREATE_VIEW( care_v_beschikking_all, 0)
    prs_client_mobiel,
    prs_client_email,
    client_bijzonderheden,
+   client_contactpersonen,
    beschikking_datum_van,
    beschikking_week_van,
    beschikking_jaar_van,
@@ -646,13 +647,13 @@ AS
             gemeente.alg_locatie_verantw,
             (SELECT ok.alg_onrgoedkenmerk_waarde
             FROM alg_onrgoedkenmerk ok
-    				WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
+                    WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
             AND ok.alg_onrgoed_niveau = 'L'
             AND ok.alg_kenmerk_key = 1004
             AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
             (SELECT ok.alg_onrgoedkenmerk_waarde
             FROM alg_onrgoedkenmerk ok
-    				WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
+                    WHERE ok.alg_onrgoed_key = gemeente.alg_locatie_key
             AND ok.alg_onrgoed_niveau = 'L'
             AND ok.alg_kenmerk_key = 1005
             AND ok.alg_onrgoedkenmerk_verwijder IS NULL),
@@ -741,6 +742,13 @@ AS
                       AND kl.prs_kenmerklink_verwijder IS NULL
                       AND prs_kenmerk_key = 1041)
                client_bijzonderheden,
+            (SELECT   kl.prs_kenmerklink_waarde
+               FROM   prs_kenmerklink kl
+              WHERE       kl.prs_link_key = client.prs_perslid_key
+                      AND kl.prs_kenmerklink_niveau = 'P'
+                      AND kl.prs_kenmerklink_verwijder IS NULL
+                      AND prs_kenmerk_key = 2000)
+               client_contactpersonen,               
             m.mld_melding_datum beschikking_datum_van,
             TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IW')) beschikking_week_van,
             TO_NUMBER (TO_CHAR (m.mld_melding_datum, 'IYYY')) beschikking_jaar_van,
@@ -867,7 +875,7 @@ AS
             ou.mld_opdr_uren_key,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IYYY')) jaar,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IW')) weeknr,
-            FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1 periodenr,
+            LEAST(FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1, 13) periodenr,
             (  TRUNC (ou.mld_opdr_uren_datum)
              - DECODE (TO_CHAR (ou.mld_opdr_uren_datum, 'D'), '1', 8, TO_CHAR (ou.mld_opdr_uren_datum, 'D'))
              + 2)
@@ -942,7 +950,7 @@ AS
             ou.mld_opdr_uren_key,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IYYY')) jaar,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IW')) weeknr,
-            FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1 periodenr,
+            LEAST(FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1, 13) periodenr,
             (  TRUNC (ou.mld_opdr_uren_datum)
              - DECODE (TO_CHAR (ou.mld_opdr_uren_datum, 'D'), '1', 8, TO_CHAR (ou.mld_opdr_uren_datum, 'D'))
              + 2)
@@ -2917,7 +2925,7 @@ CREATE_VIEW(care_v_periodeweektabel_2jaar, 0)
 AS
 SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
@@ -2937,7 +2945,7 @@ CREATE_VIEW(care_v_periodeweektabel, 0)
 AS
 SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
@@ -3000,13 +3008,17 @@ CREATE_VIEW( care_v_tmp2_factuur_uren, 0)
    client_naam,
    client_meisjesnaam,
    client_mv,
+   prs_client_email,
+   client_contactpersonen,
    prs_client_cak_actie,
    client_geboortedatum,
    client_adres,
    client_huisnr,
    client_postcode,
    client_woonplaats,
-   --- uren_periode,
+   client_telefoon_thuis,
+   prs_client_mobiel,   
+   client_bijzonderheden,
    indicatie_uren,
    pgb,
    product,
@@ -3024,85 +3036,108 @@ CREATE_VIEW( care_v_tmp2_factuur_uren, 0)
    week_uren_besteed
 )
 AS
-   SELECT   uur.jaar || '-' ||  LPAD (uur.periodenr, 2, '0'),
+   SELECT   uur.jaar || '-' || LPAD (uur.periodenr, 2, '0'),
             uur.periodenr,
             pb.prs_leverancier_nr,
             pb.prs_bedrijf_naam,
             pb.prs_bedrijf_post_adres,
-				   	pb.prs_bedrijf_post_postcode,
-				   	pb.prs_bedrijf_post_plaats,
-				   	pb.prs_overeenkomst_nr,
-				   	pb.prs_bedrijf_opmerking,
-				   	pb.prs_bedrijf_contact_persoon,
-				   	pb.prs_bedrijf_contact_telefoon,
-				   	pb.prs_bedrijf_contact_fax,
-				   	pb.prs_bedrijf_email,
-				   	pb.prs_bedrijf_telefoon2,
+            pb.prs_bedrijf_post_postcode,
+            pb.prs_bedrijf_post_plaats,
+            pb.prs_overeenkomst_nr,
+            pb.prs_bedrijf_opmerking,
+            pb.prs_bedrijf_contact_persoon,
+            pb.prs_bedrijf_contact_telefoon,
+            pb.prs_bedrijf_contact_fax,
+            pb.prs_bedrijf_email,
+            pb.prs_bedrijf_telefoon2,
             b.mld_melding_key,
-    				b.gemeente_omschrijving,
-						b.gemeente_code,
-				    b.gemeente_post_adres,
-				    b.gemeente_post_postcode,
-				    b.gemeente_post_plaats,
-				    b.gemeente_contactpersoon,
-				    b.gemeente_factnr_infix,
-				    b.gemeente_factnr_suffix,
-				    b.gemeente_hv1_code,
-   					b.gemeente_hv2_code,
-   					b.gemeente_veiling,
-   					b.gemeente_budget,
-   					b.gemeente_ob,
+            b.gemeente_omschrijving,
+            b.gemeente_code,
+            b.gemeente_post_adres,
+            b.gemeente_post_postcode,
+            b.gemeente_post_plaats,
+            b.gemeente_contactpersoon,
+            b.gemeente_factnr_infix,
+            b.gemeente_factnr_suffix,
+            b.gemeente_hv1_code,
+            b.gemeente_hv2_code,
+            b.gemeente_veiling,
+            b.gemeente_budget,
+            b.gemeente_ob,
             b.beschikking_nr,
             b.beschikking_datum_van,
             b.beschikking_datum_tot,
             b.client_bsn,
-            DECODE (ud.fac_usrdata_omschr, 1, b.prs_client_nr, b.prs_client_key),
-            b.prs_client_naam || ',' || b.prs_client_voorletters || ' ' || b.prs_client_tussenvoegsel,
-            b.prs_client_voorletters || ' ' || b.prs_client_tussenvoegsel || ' ' || b.prs_client_naam,
+            DECODE (ud.fac_usrdata_omschr,
+                    1, b.prs_client_nr,
+                    b.prs_client_key),
+               b.prs_client_naam
+            || ','
+            || b.prs_client_voorletters
+            || ' '
+            || b.prs_client_tussenvoegsel,
+               b.prs_client_voorletters
+            || ' '
+            || b.prs_client_tussenvoegsel
+            || ' '
+            || b.prs_client_naam,
             b.prs_client_voorletters,
             b.prs_client_tussenvoegsel,
             b.prs_client_naam,
             b.client_meisjesnaam,
-						b.client_mv,
+            b.client_mv,
+            b.prs_client_email,
+            b.client_contactpersonen,
             b.prs_client_cak_actie,
             b.client_geboortedatum,
             b.client_adres,
-   					b.client_huisnr,
-   					b.client_postcode,
-   					b.client_woonplaats,
+            b.client_huisnr,
+            b.client_postcode,
+            b.client_woonplaats,
+            b.client_telefoon_thuis,
+            b.prs_client_mobiel,            
+            b.client_bijzonderheden,
             b.uren_beschikking,
             b.pgb,
             b.product,
             CASE
-	               WHEN b.pgb = 1 THEN b.pgb_tarief
-	               WHEN b.gemeente_veiling = 1 THEN b.pgb_tarief
-	               ELSE gt.tarief
+               WHEN b.pgb = 1 THEN b.pgb_tarief
+               WHEN b.gemeente_veiling = 1 THEN b.pgb_tarief
+               ELSE gt.tarief
             END,
             b.beschikking_omschr,
             uur.prs_perslid_key,
             uur.bsn,
             uur.nr_verzorger,
-            uur.prs_perslid_naam || ',' || uur.prs_perslid_voorletters || ' ' || uur.prs_perslid_tussenvoegsel,
+               uur.prs_perslid_naam
+            || ','
+            || uur.prs_perslid_voorletters
+            || ' '
+            || uur.prs_perslid_tussenvoegsel,
             uur.prs_perslid_dienstverband,
             uur.jaar,
             uur.weeknr,
             uur.datum_gewerkt,
             uur.uren_opdracht,
             uur.uren_besteed
-     FROM   care_v_beschikking_all b, care_v_bestede_uren_all uur, prs_bedrijf pb, fac_usrdata ud, care_v_gemeente_tarieven gt
-    WHERE   uur.mld_melding_key = b.mld_melding_key
-      AND 	uur.uren_status = 3
-      AND 	pb.prs_bedrijf_key = 2
-      AND 	ud.fac_usrdata_key = 48
-      AND   gt.alg_locatie_key = b.gemeente_key
-      AND   gt.product_code = b.product_code
-      AND   COALESCE(gt.duedatum,SYSDATE) =
-                          (SELECT COALESCE(MIN (gt2.duedatum),SYSDATE)
-                            FROM care_v_gemeente_tarieven gt2
-                            WHERE COALESCE(gt2.duedatum,SYSDATE+999) >= uur.datum_gewerkt
-                            AND   gt2.alg_locatie_key = b.gemeente_key
-                            AND   gt2.product_code = b.product_code
-                           );
+     FROM   care_v_beschikking_all b,
+            care_v_bestede_uren_all uur,
+            prs_bedrijf pb,
+            fac_usrdata ud,
+            care_v_gemeente_tarieven gt
+    WHERE       uur.mld_melding_key = b.mld_melding_key
+            AND uur.uren_status = 3
+            AND pb.prs_bedrijf_key = 2
+            AND ud.fac_usrdata_key = 48
+            AND gt.alg_locatie_key = b.gemeente_key
+            AND gt.product_code = b.product_code
+            AND COALESCE (gt.duedatum, SYSDATE) =
+                  (SELECT   COALESCE (MIN (gt2.duedatum), SYSDATE)
+                     FROM   care_v_gemeente_tarieven gt2
+                    WHERE   COALESCE (gt2.duedatum, SYSDATE + 999) >=
+                               uur.datum_gewerkt
+                            AND gt2.alg_locatie_key = b.gemeente_key
+                            AND gt2.product_code = b.product_code);
 
 CREATE_VIEW(care_v_gemeente_fact2_uren, 0)
 AS
@@ -4035,7 +4070,169 @@ AS
     FROM        care_v_gemeente_fact2_uren fu
     GROUP BY  fu.periode, fu.gemeente, fu.beschikkingsnr, fu.bsn_client, fu.product, fu.jaar, fu.weeknr;
 
-
+-- BONS#33906 variant R
+CREATE_VIEW( care_v_rap2_factuur_uren_r, 0)
+(
+   fclt_x_periode,
+   fclt_x_gemeente,
+   factuurnummer,
+   bsn,
+   voorletters,
+   tussenvoegsel,
+   naam,
+   meisjes_naam,
+   naam2,
+   geboortedatum,
+   geslacht,
+   straat,
+   huisnummer,
+   postcode,
+   woonplaats,
+   telefoonnummer,
+   mobielnummer,
+   contactpersoon,
+   email,
+   opmerking,
+   bijzonderheden,
+   beschikkingsnummer,
+   start_indicatie,
+   eind_indicatie,
+   soort_hv,
+   indicatie_uren,
+   uren_besteed
+)
+AS
+     SELECT periode,
+            gemeente,
+            MIN (jaar)
+            || COALESCE (MIN (TO_CHAR (gemeente_factnr_infix)),
+                         MIN (prs_bedrijf_factnr_infix))
+            || SUBSTR (periode, 6, 2)
+            || COALESCE (MIN (TO_CHAR (gemeente_factnr_suffix)),
+                         MIN (gemeente_code))
+               factuurnr,
+            bsn_client,
+            MIN (client_voorletters),
+            MIN (client_tussenvoegsel),
+            MIN (client_naam),
+            MIN (client_meisjesnaam),
+            MIN (client2),
+            MIN (client_geboortedatum),
+            MIN (client_mv),
+            MIN (client_adres),
+            MIN (client_huisnr),
+            MIN (client_postcode),
+            MIN (client_woonplaats),
+            MIN (client_telefoon_thuis),
+            MIN (prs_client_mobiel),
+            MIN (client_contactpersonen),
+            MIN (prs_client_email),
+            MIN (beschikking_omschr),
+            MIN (client_bijzonderheden),
+            beschikkingsnr,
+            TRUNC (beschikking_datum_van),
+            TRUNC (beschikking_datum_tot),
+            product,
+            indicatie_uren,
+            SUM (week_uren_besteed)
+       FROM care_v_tmp2_factuur_uren
+      WHERE pgb IS NULL
+   GROUP BY periode,
+            gemeente,
+            bsn_client,
+            beschikkingsnr,
+            beschikking_datum_van,
+            beschikking_datum_tot,
+            product,
+            indicatie_uren;
+ 
+CREATE_VIEW( care_v_rap_tot_clientzorg, 0)
+(
+   fclt_f_periode,
+   fclt_f_gemeente,
+   fclt_f_status,
+   bsn,
+   voorletters,
+   tussenvoegsel,
+   naam,
+   meisjes_naam,
+   naam2,
+   geboortedatum,
+   geslacht,
+   straat,
+   huisnummer,
+   postcode,
+   woonplaats,
+   telefoonnummer,
+   mobielnummer,
+   contactpersoon,
+   email,
+   opmerking,
+   bijzonderheden,
+   beschikkingsnummer,
+   fclt_f_start_indicatie,
+   eind_indicatie,
+   soort_hv,
+   indicatie_uren,
+   uren_besteed
+)
+AS
+     SELECT COALESCE (periode, 'nvt'),
+            gemeente_omschrijving,
+            DECODE (mld_melding_status, 5, 'Afgemeld', 6, 'Afgemeld', 'Open')
+               status,
+            MIN (client_bsn),
+            prs_client_voorletters,
+            prs_client_tussenvoegsel,
+            prs_client_naam,
+            MIN (client_meisjesnaam),
+               b.prs_client_naam
+            || ','
+            || b.prs_client_voorletters
+            || ' '
+            || b.prs_client_tussenvoegsel,
+            MIN (client_geboortedatum),
+            MIN (client_mv),
+            MIN (client_adres),
+            MIN (client_huisnr),
+            MIN (client_postcode),
+            MIN (client_woonplaats),
+            MIN (client_telefoon_thuis),
+            MIN (prs_client_mobiel),
+            MIN (client_contactpersonen),
+            MIN (prs_client_email),
+            MIN (beschikking_omschr),
+            MIN (client_bijzonderheden),
+            beschikking_nr,
+            beschikking_datum_van,
+            beschikking_datum_tot,
+            product,
+            uren_beschikking,
+            SUM (uur.uren_besteed) besteed
+       FROM care_v_beschikking_all b,
+            (SELECT mld_melding_key,
+                    jaar || '-' || LPAD (periodenr, 2, '0') periode,
+                    uren_besteed
+               FROM care_v_bestede_uren_all
+              WHERE uren_status = 3) uur
+      WHERE mld_melding_status != 1
+        AND pgb IS NULL
+        AND uur.mld_melding_key(+) = b.mld_melding_key
+   GROUP BY periode,
+            gemeente_omschrijving,
+            mld_melding_status,
+            prs_client_naam,
+            prs_client_voorletters,
+            prs_client_tussenvoegsel,
+            beschikking_nr,
+            beschikking_datum_van,
+            beschikking_datum_tot,
+            beschikking_nr,
+            beschikking_datum_van,
+            beschikking_datum_tot,
+            product,
+            uren_beschikking;
+            
 -- mbmb
 -- Rapport Q) FACTUURrapport voor de gemaakte uren per datum - variant Q (Bernisse):
 CREATE_VIEW( care_v_rap2_factuur_uren_q, 0)
@@ -5147,7 +5344,7 @@ CREATE_VIEW(care_v_qvw_periodeweektabel, 0)
 AS
 SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    DECODE(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1)  periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
@@ -5155,7 +5352,7 @@ CONNECT BY LEVEL <= 5*52+1
 UNION
 SELECT
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IYYY') jaar,
-    DECODE(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1)  periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,
     TRUNC (SYSDATE + 7*(LEVEL), 'IW') startdatum
 FROM  DUAL

CNT/CNT_IND.SRC

@@ -19,6 +19,7 @@ create index cnt_i_cnt_contract_plaats1 on cnt_contract_plaats(cnt_alg_plaats_ke
 create index cnt_i_cnt_contract_plaats2 on cnt_contract_plaats(cnt_contract_key);
 
 create index cnt_i_cnt_contract_object1 on cnt_contract_object(cnt_contract_key);
+CREATE INDEX cnt_i_cnt_contract_object2 ON cnt_contract_object(cnt_ins_deel_key);
 
 CREATE INDEX cnt_i_cnt_contract_onrg1 ON cnt_contract_onrgoed(cnt_contract_key);
 CREATE INDEX cnt_i_cnt_contract_onrg2 ON cnt_contract_onrgoed(alg_onrgoed_key);

CNT/CNT_PAC.SRC

@@ -7,6 +7,7 @@
 CREATE OR REPLACE PACKAGE cnt AS
   PROCEDURE setcontractstatus (pcontractkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
   FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER) RETURN DATE;
+  FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER) RETURN NUMBER;
   FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE;
   FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE;
   FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER;
@@ -93,7 +94,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
    END;
 
-   -- Deze functie bepaald de datum door het termijn (ptermijn_key) van de datum (pdate) in mindering te brengen.
+   -- Deze functie bepaalt de datum door het termijn (ptermijn_key) van de datum (pdate) in mindering te brengen.
    -- Indien de 29, 30 of 31 datum niet in de betreffende maand voorkomt wordt de eerste van de volgende maand genomen.
    -- prichting geeft aan of ten opzichte van pdate achteruit (-1) of vooruit (1, of anders) moet worden gerekend.
    FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER)
@@ -139,6 +140,48 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
    END;
 
+   -- Deze functie benadert de factor om een contracttermijn te normaliseren tot een (1) jaar.
+   -- Als dat niet kan (ongeldige termijn) wordt nu -1 opgeleverd
+   -- Vb: 4W -> 13, 2M ->6, 2J-> 0,5
+   -- Kan geen rekening houden met schrikkeljaren en 53 weken en zo
+   FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER)
+      RETURN NUMBER
+   IS
+      ptermijn_type     VARCHAR2 (1);
+      ptermijn_aantal   NUMBER;
+   BEGIN
+      IF ptermijn_key IS NOT NULL
+      THEN
+         SELECT cnt_termijn_type, cnt_termijn_aantal
+           INTO ptermijn_type, ptermijn_aantal
+           FROM cnt_termijn
+          WHERE cnt_termijn_key = ptermijn_key;
+      ELSE
+         -- Als ptermijn_key leeg/ongedefinieerd, return dan maar 1
+         RETURN -1;
+      END IF;
+
+      IF ptermijn_aantal = 0
+      THEN
+         RETURN -1;  -- delen door null mag niet he
+      END IF;
+
+      IF ptermijn_type = 'D'
+      THEN
+         RETURN 365 / ptermijn_aantal;
+      -- soms 366
+      ELSIF ptermijn_type = 'W'
+      THEN
+         RETURN 52 / ptermijn_aantal;                                                     -- soms 53
+      ELSIF ptermijn_type = 'M'
+      THEN
+         RETURN 12 / ptermijn_aantal;
+      ELSE
+         -- ptermijn_type = 'Y'
+         RETURN 1 / ptermijn_aantal;
+      END IF;
+   END;
+
    FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
        plooptijd_tot DATE;
        popzegtermijn NUMBER;

CNT/CNT_TAB.SRC

@@ -90,6 +90,9 @@ CREATE_TABLE(cnt_contract,0)
    NUMBER(11,2)
 ,  cnt_contract_termijnkosten
    NUMBER(11,2)
+,  cnt_contract_termijntermijn
+    NUMBER(10)
+    CONSTRAINT cnt_r_cnt_termijn_key4 REFERENCES cnt_termijn(cnt_termijn_key)
 ,  cnt_contract_uurloon
    NUMBER(6,2)
 ,  cnt_prs_bedrijf_key
@@ -369,7 +372,7 @@ CREATE_TABLE(cnt_kenmerkcontract, 0)
 ,  CONSTRAINT cnt_r_cnt_kenmerk_key1             CHECK(cnt_kenmerk_key IS NOT NULL)
 ,  CONSTRAINT cnt_r_cnt_kenmerk_key2       FOREIGN KEY(cnt_kenmerk_key) REFERENCES cnt_kenmerk(cnt_kenmerk_key)
 ,  CONSTRAINT cnt_c_cnt_kenmerkcontract_aan      CHECK(cnt_kenmerkcontract_aanmaak IS NOT NULL)
-,  CONSTRAINT cnt_u_cnt_kenmerkcontract          UNIQUE(cnt_kenmerk_key, cnt_contract_key, cnt_kenmerkcontract_verwijder)
+,  CONSTRAINT cnt_u_cnt_kenmerkcontract          UNIQUE(cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_verwijder)
 ,  CONSTRAINT cnt_r_kenmerk_contract       FOREIGN KEY (cnt_contract_key) REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE
 );
 

CNT/CNT_VIE.SRC

@@ -943,6 +943,8 @@ CREATE_VIEW(cnt_v_udr_contract, 1)
    kpn_omschrijving,
    kosten,
    termijnkosten,
+   factuurtermijn,
+   jaarkosten,
    korting,
    dienst_omschrijving
 )
@@ -972,12 +974,29 @@ AS
              FROM cnt_termijn
             WHERE cnt_termijn_key = c.cnt_contract_rappeltermijn)
              cnt_rappeltermijn,
-          cnt.cnt_contract_status (c.cnt_contract_looptijd_van,
-                                   cnt.cnt_getrappeldatum (c.cnt_contract_key),
-                                   cnt.cnt_getopzegdatum (c.cnt_contract_key),
-                                   c.cnt_contract_looptijd_tot)
+          DECODE (cnt.cnt_contract_status (c.cnt_contract_looptijd_van,
+                                           cnt.cnt_getrappeldatum (c.cnt_contract_key),
+                                           cnt.cnt_getopzegdatum (c.cnt_contract_key),
+                                           c.cnt_contract_looptijd_tot),
+                  0, lcl.l ('lcl_cnt_future'),
+                  1, lcl.l ('lcl_cnt_topical'),
+                  2, lcl.l ('lcl_cnt_warn'),
+                  3, lcl.l ('lcl_cnt_cancel'),
+                  4, lcl.l ('lcl_cnt_past'))
              fase_actief,
-          c.cnt_contract_status,
+          DECODE (
+             c.cnt_contract_status,
+             0,
+             DECODE (fac.getsetting ('cnt_contract_approval'),
+                     1, lcl.l ('lcl_cnt_active_approval'),
+                     lcl.l ('lcl_cnt_active')),
+             1,
+             lcl.l ('lcl_cnt_inactive'),
+             2,
+             lcl.l ('lcl_cnt_new'),
+             3,
+             lcl.l ('lcl_cnt_forapproval'))
+             cnt_contract_status,
           c.cnt_contract_key cnt_contract_key,
           COALESCE (c.ins_discipline_key, -1) disc_key,
           c.prs_afdeling_key_eig eigenaar_key,
@@ -1001,16 +1020,27 @@ AS
           ks.prs_kostensoort_oms kostensoort,
           kp.prs_kostenplaats_nr kpn,
           kp.prs_kostenplaats_omschrijving kpn_omschrijving,
-          ROUND (DECODE (fac.getsetting ('cnt_scopeverdeling'),
-                         1, cloc.cnt_contract_plaats_gewicht,
-                         0,   cloc.cnt_contract_plaats_gewicht
-                            * c.cnt_contract_kosten
-                            / (SELECT SUM (cnt_contract_plaats_gewicht)
-                                 FROM cnt_contract_plaats ccp
-                                WHERE ccp.cnt_contract_key = cnt_contract_key),
-                         c.cnt_contract_kosten), 2)
+          ROUND (
+             DECODE (
+                fac.getsetting ('cnt_scopeverdeling'),
+                1,
+                cloc.cnt_contract_plaats_gewicht,
+                0,
+                COALESCE (cloc.cnt_contract_plaats_gewicht, 1) * c.cnt_contract_kosten
+                / (SELECT DECODE (SUM (COALESCE (cnt_contract_plaats_gewicht, 0)),
+                                  0, 1,
+                                  SUM (cnt_contract_plaats_gewicht))
+                     FROM cnt_contract_plaats ccp
+                    WHERE ccp.cnt_contract_key = cnt_contract_key),
+                c.cnt_contract_kosten),
+             2)
              kosten,
           c.cnt_contract_termijnkosten,
+          (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
+             FROM cnt_termijn
+            WHERE cnt_termijn_key = c.cnt_contract_termijntermijn)
+             factuurtermijn,
+          DECODE(cnt.termijnjaarfactor (c.cnt_contract_termijntermijn), -1, to_number(null), cnt.termijnjaarfactor (c.cnt_contract_termijntermijn)*cnt_contract_termijnkosten) jaarkosten,
           c.cnt_contract_korting,
           di.prs_dienst_omschrijving
      FROM prs_bedrijf b,
@@ -1077,14 +1107,6 @@ AS
           AND cloc.alg_district_key = ad.alg_district_key(+)
           AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
           AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
-          AND (c.cnt_contract_status = 0
-               AND (SYSDATE < c.cnt_contract_looptijd_van
-                    OR (SYSDATE BETWEEN c.cnt_contract_looptijd_van
-                                    AND  cnt.cnt_getrappeldatum (c.cnt_contract_key))
-                    OR (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
-                                    AND  cnt.cnt_getopzegdatum (c.cnt_contract_key))
-                    OR (SYSDATE - 1 BETWEEN cnt.cnt_getopzegdatum (c.cnt_contract_key) - 1
-                                        AND  c.cnt_contract_looptijd_tot)))
           AND c.cnt_contract_key IN
                    (SELECT cnt_contract_key
                       FROM (SELECT cc.cnt_contract_key,

COMSQL.H

@@ -21,10 +21,10 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 2015
-#define _VERSIONMIN 2
-#define _VERSIONPATCH 'a'
-#define _VERSION '2015.2.a'
+#define _VERSIONMAJ 2016
+#define _VERSIONMIN 1
+#define _VERSIONPATCH '0'
+#define _VERSION '2016.1.0'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \
@@ -635,7 +635,11 @@ CEIL
 #define DEF_FAC_SRTNOT(c, m, o, u, g, x, d) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode, fac_srtnotificatie_delay) VALUES (c, m, o, u, g, x, d)
 
 #define DEF_MENUKOP(g, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, 1 FROM fac_menuitems
+#define DEF_MENUKOPV(g, v, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) VALUES (v, s, g, 1)
 #define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x, img) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default, fac_menuitems_image) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x, img FROM fac_functie WHERE fac_functie_code=f
+
+#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_functie_key) SELECT v, l, i, u, g, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
+
 #define DEF_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
 #define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
 // We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter

FAC/FAC_INI.SRC

@@ -21,7 +21,7 @@ DEF_FAC_MESSAGE ('fac_m002', 'Facilitor '_CONCAT _VERSION,'Facilitor '_CONCAT _V
 DEF_FAC_MESSAGE ('fac_m001', 'Printvoorbeeld','Preview');
 DEF_FAC_MESSAGE ('fac_m003', 'U heeft geen rechten om Facilitor te gebruiken.','No rights to use Facilitor');
 DEF_FAC_MESSAGE ('fac_m004', 'Er is een probleem opgetreden bij het opstarten van ','Problem starting Facilitor');
-DEF_FAC_MESSAGE ('fac_m005', 'Copyright (c) 1996-2015, Facilitor BV, Nederland', 'Copyright (c) 1996-2015, Facilitor BV, the Netherlands');
+DEF_FAC_MESSAGE ('fac_m005', 'Copyright (c) 1996-2016, Facilitor BV, Nederland', 'Copyright (c) 1996-2016, Facilitor BV, the Netherlands');
 DEF_FAC_MESSAGE ('fac_m006', 'Geinstalleerde modules','Installed modules');
 DEF_FAC_MESSAGE ('fac_m007', 'Uitvoer Rapportage','Output Reports');
 DEF_FAC_MESSAGE ('fac_m008', 'Bestandsnaam is niet ingevuld.','Filename not entered.');
@@ -124,8 +124,8 @@ DEF_FAC_MESSAGE ('alg_m036', 'Volgnummer voor de bouwlaag is niet ingevuld.','Se
 DEF_FAC_MESSAGE ('alg_m038', 'Verwijderen is niet toegestaan.','Deleting is not allowed.');
 DEF_FAC_MESSAGE ('alg_m039', 'Omschrijving voor de ruimtefunctie is niet ingevuld.','Description for room function is not entered.');
 DEF_FAC_MESSAGE ('alg_m040', 'Omschrijving voor de ruimtefunctie bestaat al.','Description for room function already exists.');
-DEF_FAC_MESSAGE ('alg_m041', 'Verwijderen is niet toegestaan, deze ruimtefunctie komt nog voor.','Deleting is not allowed, there building functions');
-DEF_FAC_MESSAGE ('alg_m042', 'Bouwlaag is niet opgegeven voor deze ruimte.','Layer not supplied for this room.');
+DEF_FAC_MESSAGE ('alg_m041', 'Verwijderen is niet toegestaan, deze functie komt nog voor.','Deleting is not allowed, this is still used');
+DEF_FAC_MESSAGE ('alg_m042', 'Bouwlaag is niet opgegeven voor deze ruimte.','Floor not supplied for this room.');
 DEF_FAC_MESSAGE ('alg_m043', 'Ruimtenummer is niet ingevuld.','Roomnumber is not entered.');
 DEF_FAC_MESSAGE ('alg_m044', 'Ruimtenummer bestaat al.','Roomnumber already exists.');
 DEF_FAC_MESSAGE ('alg_m045', 'Ruimtefunctie bestaat al.','Roomfunction already exists.');
@@ -978,6 +978,7 @@ DEF_FAC_MESSAGE ('PRS_M178', 'Domein %1% is nog in gebruik.','Domain %1% is in u
 DEF_FAC_MESSAGE ('PRS_M179', 'Verwijderen niet toegestaan, er zijn nog afdelingen gekoppeld aan deze Unit.', 'Can not delete, departments found with this Business Unit.');
 DEF_FAC_MESSAGE ('PRS_M180', 'Geen Personen gevonden.','No persons found.');
 DEF_FAC_MESSAGE ('PRS_M181', 'Geen Business Units gevonden.','No Business Units found.');
+DEF_FAC_MESSAGE ('PRS_M182', 'Verwijderen niet toegestaan, er zijn nog relatietypes gekoppeld aan bedrijven.', 'Can not delete, companies found with a relation type.');
 DEF_FAC_MESSAGE ('PRS_M200', 'Afdelingen per contactpersoon', 'Departments per Contact Person');
 
 /* SLE */
@@ -1353,7 +1354,7 @@ DEF_FAC_MESSAGE ('INS_R_INS_DEEL_LOCATIE1', 'De locatie is niet ingevuld.','Loca
 DEF_FAC_MESSAGE ('INS_R_INS_DEEL_DISCIPLINE2', 'Er zijn nog objecten van deze discipline.','Objects of this discipline still exists');
 DEF_FAC_MESSAGE ('INS_R_INS_DEEL_LOCATIE2', 'Er zijn nog objecten op deze locatie.','Object of this location still exists');
 DEF_FAC_MESSAGE ('INS_U_INS_DEEL_UPPER', 'De velden ''Ruimte'', ''Objectsoort'' en ''Omschrijving'' zijn niet uniek.','Values for fields ''Floor'', ''Objecttype'' en ''Description'' are not unique');
-DEF_FAC_MESSAGE ('INS_U_INS_DEEL_UPPER2', 'Het veld ''Omschijving'' is niet uniek binnen de combinatie Locatie/Objectsoort.','Field ''Description'' not unique within the combination Location/Objecttype');
+DEF_FAC_MESSAGE ('INS_U_INS_DEEL_UPPER2', 'Het veld ''Identificatie'' is niet uniek binnen de combinatie Locatie/Objectsoort.','Field ''Identification'' not unique within the combination Location/Objecttype');
 DEF_FAC_MESSAGE ('INS_U_INS_DISCIPLINE_OMSCHR', 'Het veld ''Omschrijving'' is niet uniek.','Value for field ''Description'' is not unique');
 //DEF_FAC_MESSAGE ('INS_U_INS_ELEMENT_UPPER', 'De velden ''Elementsoort'', ''Onderdeel'' en ''Omschijving'' zijn niet uniek.','EN2');
 //DEF_FAC_MESSAGE ('INS_U_INS_ONDERDEEL_UPPER', 'De velden ''Onderdeelsoort'', ''Deel'' en ''Omschijving'' zijn niet uniek.','EN2');
@@ -1585,6 +1586,7 @@ DEF_FAC_MESSAGE ('PRS_U_PRS_PERSLID_INITIAAL', 'Het veld ''Initialen'' is niet u
 DEF_FAC_MESSAGE ('PRS_U_PRS_SRTPERSLID_UPPER', 'Het veld ''Omschrijving'' is niet uniek.','The field ''Description'' is not unique.');
 DEF_FAC_MESSAGE ('PRS_U_PRS_WERKPLEK_VOLGNR', 'Het veld ''Volgnummer'' is niet uniek.','The field ''Sequence-number'' is not unique.');
 DEF_FAC_MESSAGE ('PRS_U_PRS_EENHEID_UPPER', 'Het veld ''Code'' is niet uniek.','The field ''Code'' is not unique.');
+DEF_FAC_MESSAGE ('PRS_C_PRS_PERSLID_OSLOGIN', 'Het veld ''Login'' is niet uniek.','The field ''Login'' is not unique.');
 
 /* SCH */
 DEF_FAC_MESSAGE ('SCH_C_SCH_ACTIVITEIT_CODE', 'De code van de activiteit is niet ingevuld.','Code of activity must be entered.');
@@ -1726,6 +1728,7 @@ DEF_FAC_FUNCTIE2('WEB_FAQFOF', 'Frontoffice:Kennisbank',         'FAQ',  3, 0,
 /* Backoffice functions */
 DEF_FAC_FUNCTIE2('WEB_RESBOF', 'Backoffice:Reserveringen',       'RES', 11, 1,    1, 'Om reserveringen af te kunnen handelen');
 DEF_FAC_FUNCTIE2('WEB_RESNOS', 'Backoffice:Reserv-noshow',       'RES', 11, 1,    0, 'Om no-show van reserveringen te kunnen registreren');
+DEF_FAC_FUNCTIE2('WEB_RESAFR', 'Backoffice:Reserv-afronden',     'RES',  0, 0,    1, 'Om goedgekeurde reserveringen te kunnen wijzigen');
 DEF_FAC_FUNCTIE2('WEB_MLDBOF', 'Backoffice:ServiceDesk',         'MLD', 15, 1,    1, 'Om meldingen te kunnen behandelen');
 DEF_FAC_FUNCTIE2('WEB_MLDBO2', 'Backoffice:ServiceDesk-afmeld',  'MLD', 15, 1,    1, 'Om alleen meldingen af te kunnen melden');
 DEF_FAC_FUNCTIE2('WEB_MLDBO3', 'Backoffice:ServiceDesk-accept',  'MLD', 15, 1,    1, 'Om alleen meldingen te kunnen accepteren/afwijzen');
@@ -1776,6 +1779,8 @@ DEF_FAC_FUNCTIE2('WEB_CNTUSE', 'Backoffice:Contractgegevens',    'CNT', 15, 1,
 DEF_FAC_FUNCTIE2('WEB_CNTGO1', 'Backoffice:Contracten-goedk1',   'CNT', 11, 1,    0, 'Om contracten boven de eerste limiet goed te kunnen keuren');
 DEF_FAC_FUNCTIE2('WEB_CNTGO2', 'Backoffice:Contracten-goedk2',   'CNT', 11, 1,    0, 'Om contracten boven de tweede limiet goed te kunnen keuren');
 DEF_FAC_FUNCTIE2('WEB_CNTGO3', 'Backoffice:Contracten-goedk3',   'CNT', 11, 1,    0, 'Om contracten boven de derde limiet goed te kunnen keuren');
+DEF_FAC_FUNCTIE2('WEB_CNTGO4', 'Backoffice:Contracten-goedk4',   'CNT', 11, 1,    0, 'Om contracten boven de vierde limiet goed te kunnen keuren');
+DEF_FAC_FUNCTIE2('WEB_CNTGO5', 'Backoffice:Contracten-goedk5',   'CNT', 11, 1,    0, 'Om contracten boven de vijfde limiet goed te kunnen keuren');
 DEF_FAC_FUNCTIE2('WEB_MRKBOF', 'Backoffice:Marktplaats',         'MRK',  0, 0,    1, 'Om berichten op marktplaats te beheren.');
 DEF_FAC_FUNCTIE2('WEB_PRJBOF', 'Backoffice:Verhuizingen',        'PRJ', 11, 0,    1, 'Om verhuisscenarios te kunnen maken.');
 DEF_FAC_FUNCTIE2('WEB_PRJMAN', 'Backoffice:Verhuizingen',        'PRJ', 11, 0,    1, 'Om verhuisscenarios te kunnen doorvoeren.');
@@ -1789,9 +1794,15 @@ DEF_FAC_FUNCTIE2('WEB_BESBAC', 'Info:Bestellingen',              'BES', 13, 1,
 DEF_FAC_FUNCTIE2('WEB_USRRAP', 'Info:Rapportages',               'FAC',  0, 0, NULL, 'Om voorgedefinieerde (vaste) rapportages te kunnen uitvoeren');
 DEF_FAC_FUNCTIE2('WEB_BEZBAC', 'Info:Bezoekers',                 'BEZ', 13, 0,    1, 'Om historische gegevens m.b.t. bezoekers te kunnen raadplegen');
 DEF_FAC_FUNCTIE2('WEB_MGTRAP', 'Info:Dashboards',                'FAC',  3, 0,    1, 'Om voorgedefinieerde managementdashboards te kunnen raadplegen');
+DEF_FAC_FUNCTIE2('WEB_KPIRAP', 'Info:KPI''s',                    'KPI',  0, 0,    1, 'Om voorgedefinieerde KPI-rapportages te kunnen raadplegen');
 
 DEF_FAC_FUNCTIE2('WEB_HLPADM', 'Beheer:Hulpadministrator',       'FAC',  0, 0,    2, 'Voor klein systeembeheer');
-DEF_FAC_FUNCTIE2('WEB_PRSSYS', 'Beheer:Gebruikersbeheer',        'FAC',  0, 0,    2, 'Om als beheerder de gebruikers te kunnen beheren');
+DEF_FAC_FUNCTIE2('WEB_PRSSYS', 'Beheer:Applicatiebeheer',        'FAC',  0, 0,    2, 'Functioneel applicatie beheer');
+DEF_FAC_FUNCTIE2('WEB_FACTAB', 'Beheer:Technisch Appl. beheer',  'FAC',  0, 0,    2, 'Technisch applicatie beheer (server instellingen)');
+DEF_FAC_FUNCTIE2('WEB_FACFAC', 'Beheer:FACILITOR intern beheer', 'FAC',  0, 0,    2, 'FACILITOR internal use only');
+DEF_FAC_FUNCTIE2('WEB_APIDOC', 'Beheer:API documentatie',        'FAC',  0, 0, NULL, 'Kan online API documentatie opvragen');
+DEF_FAC_FUNCTIE2('WEB_UDRMAN', 'Beheer:Rapportages',             'FAC',  0, 0,    2, 'Om rapportages te kunnen defini<6E>ren.');
+
 DEF_FAC_FUNCTIE2('WEB_PERMON', 'Beheer:Performancemetingen',     'FAC',  0, 0,    2, 'Autorisatie tbv performancemetingen (indien geconfigureerd!).');
 DEF_FAC_FUNCTIE2('WEB_IMPORT', 'Beheer:Importfuncties',          'FAC',  0, 0,    2, 'Basisautorisatie voor toegang tot de importfuncties.');
 DEF_FAC_FUNCTIE2('WEB_LCLSYS', 'Beheer:Terminologie',            'FAC',  0, 0,    2, 'Om als beheerder de vaste teksten en vertalingen te kunnen muteren');
@@ -1941,6 +1952,7 @@ DEF_FAC_SRTNOT('BEZUPD', 0, 'Uw afspraak ##KEY## is gewijzigd',             'bez
 
 DEF_FAC_SRTNOT('BEZBAD', 0, 'Badge toegewezen aan ##NAAM##',                'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 10);
 DEF_FAC_SRTNOT('BEZDON', 9, 'Uw bezoeker ##NAAM## is gearriveerd',          'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 0);
+DEF_FAC_SRTNOT('BEZUNI', 9, 'Uw bezoeker ##NAAM## is nog niet gearriveerd', 'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 0);
 DEF_FAC_SRTNOT('BEZDO2', 0, 'Bezoeker ##NAAM## is gearriveerd',             'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 0);
 DEF_FAC_SRTNOT('BEZOUT', 1, 'Uw bezoeker ##NAAM## is uitgecheckt',          'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 10);
 DEF_FAC_SRTNOT('BEZOU2', 0, 'Bezoeker ##NAAM## is uitgecheckt',             'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 10);
@@ -2003,6 +2015,7 @@ DEF_FAC_SRTNOT('PRSINF', 2, '*beschikbaar tbv persoonsafhankelijke notificatiejo
 DEF_FAC_SRTNOT('PRSNEW', 0, 'Persoon geregistreerd',   'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
 DEF_FAC_SRTNOT('PRSUPD', 0, 'Persoon gewijzigd',       'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
 DEF_FAC_SRTNOT('PRSDEL', 0, 'Persoon verwijderd',      'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
+DEF_FAC_SRTNOT('PRSLOG', 0, 'Persoon ingelogd',        'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
 DEF_FAC_SRTNOT('PRSKPU', 1, 'Kostenplaats gewijzigd',  'prs/kpn_show_kpn.asp?kpn_key='  , '0', 'kostenplaats', 10);
 
 DEF_FAC_SRTNOT('RESNEW', 1, 'Uw reservering ##KEY## (##DESC##) is geregistreerd',           'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering', 60);
@@ -2028,6 +2041,11 @@ DEF_FAC_SRTNOT('INSUPD', 0, 'Object gewijzigd',      'ins/ins_deel.asp?ins_key='
 DEF_FAC_SRTNOT('INSDEL', 0, 'Object verwijderd',     'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
 DEF_FAC_SRTNOT('INSOUT', 0, 'Object uitgegeven',     'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
 DEF_FAC_SRTNOT('INSINN', 0, 'Object ingenomen',      'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
+-- INSC** is for Controle (inspections) tracking.
+DEF_FAC_SRTNOT('INSCBE', 0, 'Inspectie gestart',     'ins/ins_inspect.asp?deelsrtcont_key=', '0', 'controle', 10);
+DEF_FAC_SRTNOT('INSCAF', 0, 'Inspectie uitgevoerd',  'ins/ins_inspect.asp?deelsrtcont_key=', '0', 'controle', 10);
+DEF_FAC_SRTNOT('INSCVE', 0, 'Inspectie gereed',      'ins/ins_inspect.asp?deelsrtcont_key=', '0', 'controle', 10);
+DEF_FAC_SRTNOT('INSCUP', 0, 'Inspectie gewijzigd',   'ins/ins_inspect.asp?deelsrtcont_key=', '0', 'controle', 10);
 
 DEF_FAC_SRTNOT('CNTNEW', 0, 'Contract geregistreerd',                                                  'cnt/cnt_contract.asp?cnt_key=', '0', 'contract', 60);
 DEF_FAC_SRTNOT('CNTUPD', 0, 'Contract gewijzigd',                                                      'cnt/cnt_contract.asp?cnt_key=', '0', 'contract', 60);
@@ -2074,6 +2092,7 @@ DEF_FAC_SRTNOT('PRJMAI', 0, 'Scenario ##KEY##',          '', '0', 'scenario',
 DEF_FAC_SRTNOT('MESMAI', 0, 'Bericht ##KEY##',           '', '0', 'message',      10);
 DEF_FAC_SRTNOT('PRSMAI', 0, 'Persoon ##KEY##',           '', '0', 'perslid',      10);
 DEF_FAC_SRTNOT('INSMAI', 0, 'Object ##KEY##',            '', '0', 'deel',         10);
+DEF_FAC_SRTNOT('INSCMA', 0, 'Controle ##KEY##',          '', '0', 'controle',     10);
 DEF_FAC_SRTNOT('RAPMAI', 0, 'Rapport ##KEY##',           '', '0', 'rapport',      10);
 DEF_FAC_SRTNOT('CNTMAI', 0, 'Contract ##KEY##',          '', '0', 'contract',     10);
 DEF_FAC_SRTNOT('FINMAI', 0, 'Factuur ##KEY##',           '', '0', 'factuur',      10);
@@ -2095,14 +2114,15 @@ INSERT INTO fac_notificatie_job (fac_notificatie_job_view, fac_notificatie_job_o
 INSERT INTO fac_notificatie_job (fac_notificatie_job_view, fac_notificatie_job_oms, fac_notificatie_job_interval, fac_notificatie_job_mode)
      VALUES ('fac_v_noti_finreminder', 'Fiatteringsverzoek voor facturen naar budgethouder', 24, 0);
 
+// Settings hebben fac_functies nodig dus na fac_ini.src
+#include "fac_set.src"
 
 /* bootstrapping: we need a user to create users
    so the minimal requirements for starting are created here:
    perslid -> afdeling -> bedrijf
    perslid -> srtperslid
-   and the 2 standard users are created:
+   and the standard user is created:
    _facilitor for the system administrator with prssys rights
-   _gast for the anonymous user with no initial rights
 */
 INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving, prs_bedrijf_key)
      VALUES ('Onbekend', NULL);
@@ -2123,32 +2143,7 @@ INSERT INTO prs_perslid
              prs_perslid_oslogin,
              prs_perslid_salt,
              prs_perslid_wachtwoord_hash,
-             prs_perslid_dienstverband,
-             prs_perslid_ingangsdatum
-            )
-     VALUES ('PRS',
-             (SELECT prs_srtperslid_key
-                FROM prs_srtperslid
-               WHERE prs_srtperslid_upper = 'ONBEKEND'),
-             (SELECT prs_afdeling_key
-                FROM prs_afdeling
-               WHERE prs_afdeling_upper = 'ONBEKEND'),
-             'Gast',
-             '_GAST',
-             'tfYBQzSFECrhRcCgMhvVAgfgNtFaYZuh',
-             '6E52C06F3A8895E5BB79E36CC04502D7', /* nobodyknow$ */
-             100,
-             SYSDATE
- );
-
-INSERT INTO prs_perslid
-            (prs_perslid_module,
-             prs_srtperslid_key,
-             prs_afdeling_key,
-             prs_perslid_naam,
-             prs_perslid_oslogin,
-             prs_perslid_salt,
-             prs_perslid_wachtwoord_hash,
+             prs_perslid_otpsecret,
              prs_perslid_dienstverband,
              prs_perslid_ingangsdatum
             )
@@ -2163,10 +2158,47 @@ INSERT INTO prs_perslid
              '_FACILITOR',
              'wAxYpizzUNeWAFdkIkhcEbfzFAYvEpoH',
              '9D8B5A6A8AED1496DF8C1CC54A9EBFF2', /* fictorial */
+             '1$30$6$0$' || RAWTOHEX(DBMS_RANDOM.string ('p', 20)), /* printable characters geeft zo'n 130 bits */
              100,
              SYSDATE
  );
 
+-- Toevoegen gebruiker om HMAIL-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. hMail-koppeling',
+          '_HMAIL',
+          DBMS_RANDOM.string ('a', 32),
+          4
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR';
+
+-- Toevoegen gebruiker om PUTORDERS-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. Putorders-koppeling',
+          '_PUTORDERS',
+          DBMS_RANDOM.string ('a', 32),
+          4
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR';
+
 INSERT INTO fac_groep
             (fac_groep_omschrijving)
      VALUES ('_Default');
@@ -2175,23 +2207,20 @@ INSERT INTO fac_groep
             (fac_groep_omschrijving)
      VALUES ('_Admin');
 
-INSERT INTO fac_gebruikersgroep
-            (fac_groep_key, prs_perslid_key)
-     VALUES ((SELECT fac_groep_key
-                FROM fac_groep
-               WHERE fac_groep_upper = '_DEFAULT'), (SELECT prs_perslid_key
-                                                       FROM prs_perslid
-                                                      WHERE prs_perslid_upper = 'GAST'));
+INSERT INTO fac_groep
+            (fac_groep_omschrijving)
+     VALUES ('_FACILITOR');
 
+-- Stop gebruiker _FACILITOR in groepen _Admin en _FACILITOR
 INSERT INTO fac_gebruikersgroep
             (fac_groep_key, prs_perslid_key)
-     VALUES ((SELECT fac_groep_key
-                FROM fac_groep
-               WHERE fac_groep_upper = '_ADMIN'), (SELECT prs_perslid_key
-                                                     FROM prs_perslid
-                                                    WHERE prs_perslid_upper = 'FACILITOR'));
+     SELECT fac_groep_key, prs_perslid_key
+       FROM fac_groep, prs_perslid
+      WHERE fac_groep_upper IN ('_ADMIN', '_FACILITOR')
+        AND prs_perslid_upper = 'FACILITOR';
 
 -- De Admin groep krijgt alle rechten (zonder vakgroepen), waaronder WEB_PRSSYS
+-- maar niet PRS_FACFAC/PRS_FACTAB
 INSERT INTO fac_groeprechten
             (fac_groep_key,
              fac_functie_key,
@@ -2204,8 +2233,25 @@ INSERT INTO fac_groeprechten
              FROM fac_groep
             WHERE fac_groep_upper = '_ADMIN'), fac_functie_key, -1, -1, -1, -1
      FROM fac_functie
-    WHERE fac_functie_discipline = 0;
+    WHERE fac_functie_discipline = 0
+      AND fac_functie_code <> 'WEB_FACFAC'
+      AND fac_functie_code <> 'WEB_FACTAB';
 
+-- De _FACILITOR groep krijgt PRS_FACFAC/PRS_FACTAB
+INSERT INTO fac_groeprechten
+            (fac_groep_key,
+             fac_functie_key,
+             fac_gebruiker_prs_level_read,
+             fac_gebruiker_alg_level_read,
+             fac_gebruiker_prs_level_write,
+             fac_gebruiker_alg_level_write
+            )
+   SELECT (SELECT fac_groep_key
+             FROM fac_groep
+            WHERE fac_groep_upper = '_FACILITOR'), fac_functie_key, -1, -1, -1, -1
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_FACFAC'
+      OR  fac_functie_code = 'WEB_FACTAB';
 
 /* definieer de FIP-importfuncties */
 INSERT INTO fac_import_app
@@ -2456,6 +2502,23 @@ INSERT INTO fac_usrrap
                WHERE fac_functie_code = 'WEB_PRSSYS'),
              0
             );
+
+-- UWVA#32742:  flexkenmerken transport voor objecten
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving, fac_usrrap_view_name,
+             fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key, fac_usrrap_autorefresh
+            )
+     VALUES ('TRANSPORT: Flexkenmerken Objecten', 'fac_v_exp_flex_ins',
+             0, 0,
+             0,
+             'Exporteren van flexkenmerken voor INS (per discipline/groep/objectsoort of soort controle)',
+             (SELECT fac_functie_key FROM fac_functie
+               WHERE fac_functie_code = 'WEB_PRSSYS'),
+             0
+            );
 COMMIT;
 
 INSERT INTO fac_qlikview
@@ -2542,51 +2605,64 @@ INSERT INTO fac_usrrap (fac_usrrap_key, fac_usrrap_omschrijving, fac_usrrap_view
 /* ROOT reports for User defined Reports (UDR) cloning */
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Bestellingen','BES_V_UDR_BESTELLING','Basisrapport voor bestellingsrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BES_V_UDR_BESTELLING');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Bezoekers','BEZ_V_UDR_BEZOEKER','Basisrapport voor bezoekersrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BEZ_V_UDR_BEZOEKER');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Contracten','CNT_V_UDR_CONTRACT','Basisrapport voor contractrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='CNT_V_UDR_CONTRACT');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Facturen','FIN_V_UDR_FACTUUR','Basisrapport voor factuurrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FIN_V_UDR_FACTUUR');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Objecten','INS_V_UDR_DEEL','Basisrapport voor objectrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='INS_V_UDR_DEEL');
 
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Meldingen','MLD_V_UDR_MELDING','Basisrapport voor meldingsrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDING');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Opdrachten','MLD_V_UDR_OPDRACHT','Basisrapport voor opdrachtrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHT');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Meldingen/opdrachten','MLD_V_UDR_MELDINGOPDRACHT','Basisrapport voor melding+opdrachtrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGOPDRACHT');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
- SELECT 'UDR: Meldingen plus','MLD_V_UDR_MELDINGKENMERK','Basisrapport voor melding+kenmerk rapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
-    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGKENMERK');
+ SELECT 'UDR: Meldingen plus','MLD_V_UDR_MELDINGKENMERK_CND','Basisrapport voor melding+kenmerk rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGKENMERK_CND');
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
- SELECT 'UDR: Opdrachten plus','MLD_V_UDR_OPDRACHTKENMERK','Basisrapport voor opdracht+kenmerk rapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
-    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHTKENMERK');
+ SELECT 'UDR: Opdrachten plus','MLD_V_UDR_OPDRACHTKENMERK_CND','Basisrapport voor opdracht+kenmerk rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHTKENMERK_CND');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Opdrachten-materialen','MLD_V_UDR_OPDRACHTMATERIAAL','Basisrapport voor opdracht+materiaal rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHTMATERIAAL');
+
 
 INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
  SELECT 'UDR: Reserveringen','RES_V_UDR_RESERVERING','Basisrapport voor reserveringsrapportages', fac_functie_key, 32
-   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
     AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='RES_V_UDR_RESERVERING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Bedrijven','PRS_V_UDR_BEDRIJF','Basisrapport voor bedrijfrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='PRS_V_UDR_BEDRIJF');
 
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+   SELECT 'UDR: Kostenoverzicht', 'FIN_V_UDR_KOSTENOVERZICHT', 'Basisrapport voor kostenrapportages', fac_functie_key, 32
+     FROM fac_functie WHERE fac_functie_code = 'WEB_UDRMAN'
+      AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER (fac_usrrap_view_name)='FIN_V_UDR_KOSTENOVERZICHT');
 
 /*  STANDAARD MENUOPTIES */
 // De regel: vereis R-recht voor overzicht en W-recht voor mutatie
@@ -2689,7 +2765,8 @@ DEF_MENUITEM(1, 'lcl_menu_mld_mi'               , '', 'MLD', 'appl/mld/mld_searc
 DEF_MENUITEM(1, 'lcl_menu_bes_mi'               , '', 'BES', 'appl/bes/bes_search.asp?urole=mi', 0, 0, 'WEB_BESBAC', 'R', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_res_mi'               , '', 'RES', 'appl/res/res_search.asp?urole=mi', 0, 0, 'WEB_RESBAC', 'R', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_bez_mi'               , '', 'BEZ', 'appl/bez/bez_search.asp?urole=mi', 0, 0, 'WEB_BEZBAC', 'R', '1', '');
-DEF_MENUITEM(1, 'lcl_menu_res_quality'          , '', 'MLD', 'appl/res/res_search_ppi.asp', 0, 0, 'WEB_RESBAC', 'R', '1', '');
+DEF_MENUITEM(1, 'lcl_menu_res_quality'          , '', 'MLD', 'appl/res/res_search_ppi.asp',      0, 0, 'WEB_RESBAC', 'R', '1', '');
+DEF_MENUITEM(1, 'lcl_menu_kpi'                  , '', 'KPI', 'appl/kpi/kpi_search.asp',          0, 0, 'WEB_KPIRAP', 'R', '0', '');
 
 DEF_MENUKOP(1, 'lcl_menu_fac_qlikview');
 DEF_MENUITEM(1, 'lcl_menu_fac_qlikview_mld'     , '', 'FAC', 'appl/qvw/qlikview.asp?module=MLD', 0, 0, 'WEB_MGTRAP', 'R', '1', '');
@@ -2755,65 +2832,68 @@ DEF_MENUITEM(1, 'lcl_menu_fac_adres'            , '', 'PRS', 'appl/fac/fac_adres
 
 // ==================================== APPLICATION MANAGEMENT OPTIES =============================
 DEF_MENUKOP(2, 'lcl_facmgt_aut');
-DEF_MENUITEM(2, 'lcl_menu_fac_autorisatiefuncti', '', 'FAC', 'appl/facmgtVB/fac_functiegrid.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_autorisaties'     , '', 'FAC', 'appl/facmgtVB/fac_persoongroepgrid.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_autorisatiegroepe', '', 'FAC', 'appl/facmgtVB/fac_groepgrid.asp', 0, 0, 'WEB_FACMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_aut_edit_functie' , '', 'FAC', 'appl/mgt/fac_functie.asp?editmode=1', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_aut_edit_groep'   , '', 'FAC', 'appl/mgt/fac_groep.asp?editmode=1',   0, 0, 'WEB_FACMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_aut_functie'      , '', 'FAC', 'appl/mgt/fac_functie.asp',            0, 0, 'WEB_FACMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_aut_groep'        , '', 'FAC', 'appl/mgt/fac_groep.asp',              0, 0, 'WEB_FACMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_aut_perslid'      , '', 'FAC', 'appl/mgt/prs_perslid.asp',            0, 0, 'WEB_FACMSU', 'W', '1', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_fac');
 DEF_MENUITEM(2, 'lcl_Facilitor_Logcentre'       , '', 'FAC', 'https://logcentre.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_Facilitor_Forum'           , '', 'FAC', 'http://forum.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_alg');
-DEF_MENUITEM(2, 'lcl_menu_alg_gebouwfuncties'   , '', 'ALG', 'appl/facmgtVB/alg_srtgebouwgrid.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_gebouwfuncties'   , '', 'ALG', 'appl/mgt/alg_srtgebouw.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_alg_ruimtefuncties'   , '', 'ALG', 'appl/alg/alg_srtruimte_search.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_alg_ruimtetarieven'   , '', 'ALG', 'appl/alg/alg_ruimtefunctie_search.asp', 0, 0, 'WEB_ALGMSU', 'R', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_terreinsoorten'   , '', 'ALG', 'appl/facmgtVB/alg_srtterreinsectorgrid.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_districtkenmerken', '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=D', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_locatiekenmerken' , '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=L', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_terreinkenmerken' , '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=T', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_gebouwkenmerken'  , '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=G', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_verdiepkenmerken' , '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=V', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_alg_ruimtekenmerken'  , '', 'ALG', 'appl/facmgtVB/alg_kenmerkgrid.asp?ALG_KENMERK_NIVEAU=R', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_terreinsoorten'   , '', 'ALG', 'appl/mgt/alg_srtterreinsector.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_districtkenmerken', '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=D', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_locatiekenmerken' , '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=L', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_terreinkenmerken' , '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=T', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_gebouwkenmerken'  , '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=G', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_verdiepkenmerken' , '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=V', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_alg_ruimtekenmerken'  , '', 'ALG', 'appl/mgt/alg_kenmerk.asp?ALG_KENMERK_NIVEAU=R', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_alg_kenmerkdomeinen'  , '', 'ALG', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=ALG', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_alg_setting'          , '', 'ALG', 'appl/fac/fac_setting_search.asp?module=ALG', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_prs');
-DEF_MENUITEM(2, 'lcl_menu_prs_functies'         , '', 'PRS', 'appl/facmgtVB/prs_srtperslidgrid.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_diensten'         , '', 'PRS', 'appl/facmgtVB/prs_dienstgrid.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_staffels'         , '', 'PRS', 'appl/facmgtVB/prs_staffelgrid.asp', 0, 0, 'WEB_PRSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_bedrijfkenmerken' , '', 'PRS', 'appl/facmgtVB/prs_kenmerkgrid.asp?PRS_KENMERK_NIVEAU=B', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_afdelingskenmerke', '', 'PRS', 'appl/facmgtVB/prs_kenmerkgrid.asp?PRS_KENMERK_NIVEAU=A', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_persoonskenmerken', '', 'PRS', 'appl/facmgtVB/prs_kenmerkgrid.asp?PRS_KENMERK_NIVEAU=P', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_prs_contactkenmerken' , '', 'PRS', 'appl/facmgtVB/prs_kenmerkgrid.asp?PRS_KENMERK_NIVEAU=C', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_functies'         , '', 'PRS', 'appl/mgt/prs_srtperslid.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_diensten'         , '', 'PRS', 'appl/mgt/prs_dienst.asp', 0, 0, 'WEB_PRSMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_staffels'         , '', 'PRS', 'appl/mgt/prs_staffel.asp', 0, 0, 'WEB_PRSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_relatietypes'     , '', 'PRS', 'appl/mgt/prs_relatietype.asp', 0, 0, 'WEB_PRSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_bedrijfkenmerken' , '', 'PRS', 'appl/mgt/prs_kenmerk.asp?PRS_KENMERK_NIVEAU=B', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_afdelingskenmerke', '', 'PRS', 'appl/mgt/prs_kenmerk.asp?PRS_KENMERK_NIVEAU=A', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_persoonskenmerken', '', 'PRS', 'appl/mgt/prs_kenmerk.asp?PRS_KENMERK_NIVEAU=P', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_prs_contactkenmerken' , '', 'PRS', 'appl/mgt/prs_kenmerk.asp?PRS_KENMERK_NIVEAU=C', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_prs_kenmerkdomeinen'  , '', 'PRS', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=PRS', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_prs_setting'          , '', 'PRS', 'appl/fac/fac_setting_search.asp?module=PRS', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_ins');
-DEF_MENUITEM(2, 'lcl_menu_ins_disciplines'      , '', 'INS', 'appl/facmgtVB/ins_disciplinegrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_groepen'          , '', 'INS', 'appl/facmgtVB/ins_srtgroepgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_disciplines'      , '', 'INS', 'appl/mgt/ins_discipline.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_groepen'          , '', 'INS', 'appl/mgt/ins_srtgroep.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_objectsoorten'    , '', 'INS', 'appl/ins/ins_srtdeel_search.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken'        , '', 'INS', 'appl/facmgtVB/ins_kenmerkgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerksoorten'   , '', 'INS', 'appl/facmgtVB/ins_srtkenmerkgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken'        , '', 'INS', 'appl/mgt/ins_kenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_kenmerksoorten'   , '', 'INS', 'appl/mgt/ins_srtkenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_kenmerkdomeinen'  , '', 'INS', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=INS', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_srtcontrole'      , '', 'INS', 'appl/facmgtVB/ins_srtcontrolegrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_controlemode'     , '', 'INS', 'appl/facmgtVB/ins_controlemodegrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_srtcontrole'      , '', 'INS', 'appl/mgt/ins_srtcontrole.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_controlemode'     , '', 'INS', 'appl/mgt/ins_controlemode.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_setting'          , '', 'INS', 'appl/fac/fac_setting_search.asp?module=INS', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_mld');
-DEF_MENUITEM(2, 'lcl_menu_mld_vakgroeptypes'    , '', 'MLD', 'appl/facmgtVB/mld_srtdisciplinegrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_vakgroepen'       , '', 'MLD', 'appl/facmgtVB/mld_disciplinegrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_stdmeldinggroep'  , '', 'MLD', 'appl/facmgtVB/mld_stdmelding_groepgrid.asp?module=MLD', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_behandelgroep'    , '', 'MLD', 'appl/facmgtVB/mld_behandelgroepgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_vakgroeptypes'    , '', 'MLD', 'appl/mgt/mld_srtdiscipline.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_vakgroepen'       , '', 'MLD', 'appl/mgt/mld_discipline.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_stdmeldinggroep'  , '', 'MLD', 'appl/mgt/mld_stdmelding_groep.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_behandelgroep'    , '', 'MLD', 'appl/mgt/mld_behandelgroep.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_meldingen'        , '', 'MLD', 'appl/mld/mld_stdmelding_search.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_dienst_niveaus'   , '', 'MLD', 'appl/facmgtVB/mld_dienstniveaugrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_dienst_niveaus'   , '', 'MLD', 'appl/mgt/mld_dienstniveau.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/mgt/mld_afmeldtekst.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_opdrachttypes'    , '', 'MLD', 'appl/facmgtVB/mld_typeopdrgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_improdopdr'       , '', 'MLD', 'appl/facmgtVB/mld_impropdrgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_opdrkosten'       , '', 'MLD', 'appl/facmgtVB/mld_kostengrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_workflows'        , '', 'MLD', 'appl/facmgtVB/mld_workflowgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_opdrachttypes'    , '', 'MLD', 'appl/mgt/mld_typeopdr.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_improdopdr'       , '', 'MLD', 'appl/mgt/mld_impropdr.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_opdrkosten'       , '', 'MLD', 'appl/mgt/mld_kosten.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_workflows'        , '', 'MLD', 'appl/mgt/mld_workflow.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_kenmerken_m'      , '', 'MLD', 'appl/mld/mld_kenmerk_search.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_kenmerken'        , '', 'MLD', 'appl/facmgtVB/mld_kenmerkgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_kenmerksoorten'   , '', 'MLD', 'appl/facmgtVB/mld_srtkenmerkgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_kenmerken'        , '', 'MLD', 'appl/mgt/mld_kenmerk.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_kenmerksoorten'   , '', 'MLD', 'appl/mgt/mld_srtkenmerk.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_kenmerkdomeinen'  , '', 'MLD', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=MLD', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_setting'          , '', 'MLD', 'appl/fac/fac_setting_search.asp?module=MLD', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
@@ -2833,86 +2913,100 @@ DEF_MENUITEM(2, 'lcl_menu_res_kenmerkdomeinen'  , '', 'RES', 'appl/fac/fac_kenme
 DEF_MENUITEM(2, 'lcl_menu_res_setting'          , '', 'RES', 'appl/fac/fac_setting_search.asp?module=RES', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_bes');
-DEF_MENUITEM(2, 'lcl_menu_bes_catalogi'         , '', 'BES', 'appl/facmgtVB/bes_disciplinegrid.asp', 0, 0, 'WEB_BESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_groepen'          , '', 'BES', 'appl/facmgtVB/bes_srtgroepgrid.asp', 0, 0, 'WEB_BESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_catalogi'         , '', 'BES', 'appl/mgt/bes_discipline.asp', 0, 0, 'WEB_BESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_groepen'          , '', 'BES', 'appl/mgt/bes_srtgroep.asp', 0, 0, 'WEB_BESMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_items'            , '', 'BES', 'appl/bes/bes_srtdeel_search.asp', 0, 0, 'WEB_BESMSU', 'R', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_prodcatalogi'     , '', 'BES', 'appl/facmgtVB/bes_disciplineprodgrid.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_prodgroepen'      , '', 'BES', 'appl/facmgtVB/bes_srtprodgroepgrid.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_prodcatalogi'     , '', 'BES', 'appl/mgt/bes_disciplineprod.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_prodgroepen'      , '', 'BES', 'appl/mgt/bes_srtprodgroep.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_proditems'        , '', 'BES', 'appl/bes/bes_srtprod_search.asp', 0, 0, 'WEB_PRDMSU', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_prodmonitor'      , '', 'BES', 'appl/bes/bes_assmon_search.asp', 0, 0, 'WEB_PRDMSU', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_bedrijfprod'      , '', 'BES', 'appl/bes/bes_bedrijfproduct_search.asp', 0, 0, 'WEB_PRDMSU', 'R', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_staffeltabel'     , '', 'BES', 'appl/facmgtVB/bes_staffeltabelgrid.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_grootheden'       , '', 'BES', 'appl/facmgtVB/bes_grootheidgrid.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_kenmerken'        , '', 'BES', 'appl/facmgtVB/bes_kenmerkbestelgrid.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_itemkenmerken'    , '', 'BES', 'appl/facmgtVB/bes_kenmerkgrid.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_kenmerksoorten'   , '', 'BES', 'appl/facmgtVB/bes_srtkenmerkgrid.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_staffeltabel'     , '', 'BES', 'appl/mgt/bes_staffeltabel.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_grootheden'       , '', 'BES', 'appl/mgt/bes_grootheid.asp', 0, 0, 'WEB_PRDMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_kenmerken'        , '', 'BES', 'appl/mgt/bes_kenmerkbestel.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_itemkenmerken'    , '', 'BES', 'appl/mgt/bes_kenmerk.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_kenmerksoorten'   , '', 'BES', 'appl/mgt/bes_srtkenmerk.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_kenmerkdomeinen'  , '', 'BES', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=BES', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bes_importeren'       , '', 'BES', 'appl/facmgtVB/fac_importappgrid.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bes_importeren'       , '', 'BES', 'appl/mgt/fac_import_app.asp', 0, 0, 'WEB_BESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_importfuncties'   , '', 'BES', 'appl/imp/imp_search.asp?catonly=1', 0, 0, 'WEB_IMPORT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bes_setting'          , '', 'BES', 'appl/fac/fac_setting_search.asp?module=BES', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_cnt');
-DEF_MENUITEM(2, 'lcl_menu_cnt_contractsoorten'  , '', 'CNT', 'appl/facmgtVB/cnt_disciplinegrid.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cnt_termijnen'        , '', 'CNT', 'appl/facmgtVB/cnt_termijngrid.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cnt_kenmerken'        , '', 'CNT', 'appl/facmgtVB/cnt_kenmerkgrid.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cnt_kenmerksoorten'   , '', 'CNT', 'appl/facmgtVB/cnt_srtkenmerkgrid.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cnt_contractsoorten'  , '', 'CNT', 'appl/mgt/cnt_discipline.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cnt_termijnen'        , '', 'CNT', 'appl/mgt/cnt_termijn.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cnt_kenmerken'        , '', 'CNT', 'appl/mgt/cnt_kenmerk.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cnt_kenmerksoorten'   , '', 'CNT', 'appl/mgt/cnt_srtkenmerk.asp', 0, 0, 'WEB_CNTMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_cnt_kenmerkdomeinen'  , '', 'CNT', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=CNT', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_cnt_setting'          , '', 'CNT', 'appl/fac/fac_setting_search.asp?module=CNT', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_fin');
 DEF_MENUITEM(2, 'lcl_menu_fin_kostenplaatsen'   , '', 'FIN', 'appl/prs/kpn_search.asp', 0, 0, 'WEB_FINMSU', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fin_kostenplaatsgroep', '', 'FIN', 'appl/prs/kpngroep_search.asp', 0, 0, 'WEB_FINMSU', 'R', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_kostensoorten'    , '', 'FIN', 'appl/facmgtVB/prs_kostensoortgrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_kostensoortgroepe', '', 'FIN', 'appl/facmgtVB/prs_kostensoortgrpgrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_combinatievalidat', '', 'FIN', 'appl/facmgtVB/prs_kostencombinatiegrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_profielen'        , '', 'FIN', 'appl/facmgtVB/fac_profielgrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_profiel_limieten' , '', 'FIN', 'appl/facmgtVB/fac_profielwaardegrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_btwtabellen'      , '', 'FIN', 'appl/facmgtVB/fin_btwtabelgrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_btwtabelwaarden'  , '', 'FIN', 'appl/facmgtVB/fin_btwtabelwaardegrid.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fin_kenmerken'        , '', 'FIN', 'appl/facmgtVB/fin_kenmerkgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_kostensoorten'    , '', 'FIN', 'appl/mgt/prs_kostensoort.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_kostensoortgroepe', '', 'FIN', 'appl/mgt/prs_kostensoortgrp.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_combinatievalidat', '', 'FIN', 'appl/mgt/prs_kostencombinatie.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_profielen'        , '', 'FIN', 'appl/mgt/fac_profiel.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_profiel_limieten' , '', 'FIN', 'appl/mgt/fac_profielwaarde.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_btwtabellen'      , '', 'FIN', 'appl/mgt/fin_btwtabel.asp', 0, 0, 'WEB_FINMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fin_kenmerken'        , '', 'FIN', 'appl/mgt/fin_kenmerk.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fin_kenmerkdomeinen'  , '', 'FIN', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=FIN', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fin_setting'          , '', 'FIN', 'appl/fac/fac_setting_search.asp?module=FIN', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_fg');
-DEF_MENUITEM(2, 'lcl_menu_cad_labels'           , '', 'CAD', 'appl/facmgtVB/cad_labelgrid.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cad_themas'           , '', 'CAD', 'appl/facmgtVB/cad_themagrid.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cad_legendas'         , '', 'CAD', 'appl/facmgtVB/cad_legendagrid.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_cad_legendawaarden'   , '', 'CAD', 'appl/facmgtVB/cad_legendawaardegrid.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cad_labels'           , '', 'CAD', 'appl/mgt/cad_label.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cad_themas'           , '', 'CAD', 'appl/mgt/cad_thema.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cad_legendas'         , '', 'CAD', 'appl/mgt/cad_legenda.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_cad_legendawaarden'   , '', 'CAD', 'appl/mgt/cad_legendawaarde.asp', 0, 0, 'WEB_CADMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_cad_setting'          , '', 'CAD', 'appl/fac/fac_setting_search.asp?module=CAD', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_mrk');
-DEF_MENUITEM(2, 'lcl_menu_mrk_categorieen'      , '', 'MRK', 'appl/facmgtVB/mrk_disciplinegrid.asp', 0, 0, 'WEB_MRKMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mrk_categorieen'      , '', 'MRK', 'appl/mgt/mrk_discipline.asp', 0, 0, 'WEB_MRKMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mrk_setting'          , '', 'MRK', 'appl/fac/fac_setting_search.asp?module=MRK', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_bez');
-DEF_MENUITEM(2, 'lcl_menu_bez_acties'           , '', 'BEZ', 'appl/facmgtVB/bez_actiegrid.asp', 0, 0, 'WEB_BEZMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_bez_kenmerken'        , '', 'BEZ', 'appl/facmgtVB/bez_kenmerkgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bez_acties'           , '', 'BEZ', 'appl/mgt/bez_actie.asp', 0, 0, 'WEB_BEZMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_bez_kenmerken'        , '', 'BEZ', 'appl/mgt/bez_kenmerk.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bez_kenmerkdomeinen'  , '', 'BEZ', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=BEZ', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_bez_setting'          , '', 'BEZ', 'appl/fac/fac_setting_search.asp?module=BEZ', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_faq');
-DEF_MENUITEM(2, 'lcl_menu_faq_kenmerk'          , '', 'FAQ', 'appl/facmgtVB/faq_kenmerkgrid.asp', 0, 0, 'WEB_FAQMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_faq_kenmerk'          , '', 'FAQ', 'appl/mgt/faq_kenmerk.asp', 0, 0, 'WEB_FAQMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_faq_kenmerkdomeinen'  , '', 'FAQ', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=FAQ', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_faq_setting'          , '', 'FAQ', 'appl/fac/fac_setting_search.asp?module=FAQ', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_overig');
-DEF_MENUITEM(2, 'lcl_menu_fac_rapportages'      , '', 'FAC', 'appl/fac/fac_reportx.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_graphs'           , '', 'FAC', 'appl/facmgtVB/fac_usergraphgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_notificatiejobs'  , '', 'FAC', 'appl/facmgtVB/fac_notificatiejobgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_rapportages'      , '', 'FAC', 'appl/fac/fac_reportx.asp', 0, 0, 'WEB_UDRMAN', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_graphs'           , '', 'FAC', 'appl/mgt/fac_usergraph.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_notificatiejobs'  , '', 'FAC', 'appl/mgt/fac_notificatiejob.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_importfuncties'   , '', 'FAC', 'appl/imp/imp_search.asp', 0, 0, 'WEB_IMPORT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_jobs'             , '', 'FAC', 'appl/fac/job_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_vrije_dagen'      , '', 'FAC', 'appl/facmgtVB/mld_vrije_dagengrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_eigen_tabellen'   , '', 'FAC', 'appl/facmgtVB/fac_usrtabgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_vrije_dagen'      , '', 'FAC', 'appl/mgt/mld_vrije_dagen.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_eigen_tabellen'   , '', 'FAC', 'appl/mgt/fac_usrtab.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUITEM(2, 'lcl_menu_msg_overzicht'        , '', 'MSG', 'appl/msg/msg_search.asp?urole=bo', 0, 0, 'WEB_MSGBOF', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_msg_berichten'        , '', 'MSG', 'appl/msg/msg_message.asp?urole=bo', 0, 0, 'WEB_MSGBOF', 'W', '0', '');
-DEF_MENUITEM(2, 'lcl_menu_fac_notificaties'     , '', 'FAC', 'appl/facmgtVB/fac_srtnotificatiesrtgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_notificaties'     , '', 'FAC', 'appl/mgt/fac_srtnotificatie.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_menustructuur'    , '', 'FAC', 'appl/fac/fac_menu_search.asp?urole=bo', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_bookmarks'        , '', 'FAC', 'appl/fac/fac_bookmark_list.asp', 0, 0, 'WEB_HLPADM', 'R', '0', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_vertalingen'      , '', 'FAC', 'appl/fac/fac_locale_search_std.asp', 0, 0, 'WEB_LCLSYS', 'R', '1', '');
+
 DEF_MENUITEM(2, 'lcl_menu_fac_setting'          , '', 'FAC', 'appl/fac/fac_setting_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_xsledit'          , '', 'FAC', 'appl/fac/fac_edit_xsl.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_styling'          , '', 'FAC', 'appl/fac/fac_edit_template.asp', 0, 0, 'WEB_LAYOUT', 'W', '0', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_widgets'          , '', 'FAC', 'appl/fac/fac_widget_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+
+DEF_MENUKOPV(2, 99000, 'lcl_facmgt_setup'); // Facilitor-use only
+DEF_MENUENTRY(2, 99010, 'lcl_menu_fac_exporteren'      , '', 'FAC', 'appl/mgt/fac_export_app.asp', 0, 0, 'WEB_FACFAC');
+DEF_MENUENTRY(2, 99020, 'lcl_menu_fac_importeren'      , '', 'FAC', 'appl/mgt/fac_import_app.asp?gen=1', 0, 0, 'WEB_FACFAC');
+DEF_MENUENTRY(2, 99020, 'lcl_menu_admtracking_search'  , '', 'FAC', 'appl/fac/fac_admtracking_search.asp', 0, 0, 'WEB_FACTAB');
+DEF_MENUENTRY(2, 99030, 'lcl_menu_api_list'            , '', 'FAC', 'appl/fac/fac_api_list.asp', 0, 0, 'WEB_FACFAC');
+DEF_MENUENTRY(2, 99040, 'lcl_menu_locale_search'       , '', 'FAC', 'appl/fac/fac_locale_search.asp', 0, 0, 'WEB_LCLSYS');
+DEF_MENUENTRY(2, 99050, 'lcl_menu_session'             , '', 'FAC', 'appl/fac/fac_session.asp', 0, 0, 'WEB_FACTAB');
+DEF_MENUENTRY(2, 99050, 'lcl_menu_mytracking'          , '', 'FAC', 'appl/fac/fac_mytracking.asp', 0, 0, 'WEB_FACTAB');
+DEF_MENUENTRY(2, 99060, 'lcl_menu_fac_verify'          , '', 'FAC', 'appl/fac/fac_verify.asp', 0, 0, 'WEB_FACTAB');
+DEF_MENUENTRY(2, 99070, 'lcl_menu_cad_verify'          , '', 'FAC', 'appl/cad/cad_verify.asp', 0, 0, 'WEB_FACTAB');
+DEF_MENUENTRY(2, 99080, 'lcl_menu_fac_verify_data'     , '', 'FAC', 'appl/fac/fac_verify_data.asp', 0, 0, 'WEB_FACTAB');
+
 
 //DEF_MENUKOP(3, 'lcl_menu_mobile');  // Er is vooralsnog geen kop nodig
 // Voor een aantal is eigenlijk geen autorisatie vereist; we kiezen dan voor eentje die geen bezwaar kent om authenticatie generiek te controleren
@@ -3037,6 +3131,14 @@ INSERT INTO fac_api (fac_api_name, fac_api_filepath, fac_api_loglevel, fac_api_v
     ||'{"req": "Voorzieningen", "node": "voorziening", "view": "res_v_api_voorzieningen","filter":{"locatiecode":"locatiecode","gebouwcode":"gebouwcode","verdiepingcode":"verdiepingcode", "catalogus": "catalogus"},"limit":75}]'
    );
 
+-- HMAIL
+INSERT INTO fac_api (fac_api_name, fac_api_filepath, fac_api_loglevel, fac_api_viewmapping_json) VALUES
+   ('HMAIL', 'appl/api/api_hmail.asp', 0, NULL);
+
+-- GETFLEX
+INSERT INTO fac_api (fac_api_name, fac_api_filepath, fac_api_loglevel, fac_api_viewmapping_json) VALUES
+   ('GETFLEX', 'appl/api/api_flex.asp', 0, NULL);
+
 COMMIT;
 
 REGISTERONCE('$Id$')

FAC/FAC_LCL.SRC

@@ -514,7 +514,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Details inspectiekenmerk', 'Details inspection property', '@Pr<50>fmerkmal Daten', '@D<>tails caract<63>ristique de l''inspection')
     FACMGT_LCL('Details objectkenmerk', 'Details object property', '@Objekteigenschaften', '@D<>tails caract<63>ristique de l''objet')
     FACMGT_LCL('Styling optie', 'Styling option', 'Styling-Option', 'Option de styling')
-    FACMGT_LCL('Controle succes', 'Control success', '@Kontrole Erfolg', '@V<>rification de succ<63>s')
+    FACMGT_LCL('Controle succes', 'Success', '@Kontrole Erfolg', '@V<>rification de succ<63>s')
     FACMGT_LCL('Charset', 'Charset', '@Charset', '@Charset')
     FACMGT_LCL('Maximaal reserveerbare tijd', 'Maximum reservable time', 'Maximal reservierbaren Zeit', 'Le temps maximum r<>servable')
     FACMGT_LCL('Artikelen', 'Articles', 'Artikel', 'Articles')
@@ -792,7 +792,7 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Von Katalog;1;Frei schaffen'
               ,'0;De catalogue;1;Place la libre')
     FACMGT_LCL('1;Controle;2;Vervanging;3;Certificering'
-              ,'1;Control;2;Replacement;3;Certification'
+              ,'1;Inspection;2;Replacement;3;Certification'
               ,'1;Kontrolle;2;Ersatz;3;Zertifizierung'
               ,'1;Contr<74>le;2;Remplacement;3;Certification')
     FACMGT_LCL('0;Niet;1;BOF;2;BO3;3;BO3 en dan BOF'
@@ -869,6 +869,7 @@ START_FACXSL_LCL('FAC', NULL)
 
 	FACXSL_LCL('afdeling',     'Afdeling',          'Department',      'Abteilung', 'D<>partement')
 	FACXSL_LCL('e-mail', 	   'E-mail', 			'E-mail', 			'E-Mail', 'E-mail')
+	FACXSL_LCL('bericht', 	   'Bericht', 			'Message', 			'Nachricht', 'Message')
 	FACXSL_LCL('telefoon',     'Telefoon',          'Telephone',          'Telefon', 't<>l<EFBFBD>phone')
 	FACXSL_LCL('kostenplaats', 'Kostenplaats', 'Cost centre', 'Kostenstelle', 'Centre de co<63>ts')
 	FACXSL_LCL('dagen',        'dagen',             'days',           'Tage', 'jours')
@@ -898,7 +899,7 @@ START_FACXSL_LCL('FAC', NULL)
 END_FACXSL_LCL()
 
 START_FACXSL_LCL('MLD', NULL)   /* melding, opdracht */
-	FACXSL_LCL('meldingvoor',  'Melding namens',    'Call on behalf of',   'Meldung f<>r', 'Appel au nom de')
+  FACXSL_LCL('meldingvoor',  'Melding namens',    'Call on behalf of',   'Meldung f<>r', 'Appel au nom de')
   FACXSL_LCL('afhandeling',  'Afhandeling',       'Progress',   'Abwicklung', 'Manipulation')
   FACXSL_LCL('melddatum',    'Melddatum',         'Call date',     'Meldungsdatum', 'Date d''appel')
   FACXSL_LCL('melding',      'Melding',           'Call',           'Meldung', 'Appel')
@@ -906,16 +907,16 @@ START_FACXSL_LCL('MLD', NULL)   /* melding, opdracht */
   FACXSL_LCL('ordernr',      'Ordernr',           'Order nr',       'Order Nr', 'No. de l''ordre')
   FACXSL_LCL('spoed',        'Spoed!',            'Urgent!',         'Eilig!', 'Urgent!')
   FACXSL_LCL('status',       'Status',            'Status',        'Status', 'Etat')
-  FACXSL_LCL('stdmelding',   'Melding',           'Call',           'Meldung', 'Appel')
-
-  FACXSL_LCL('uitvoertijd',  'SLA tijd',       'SLA time',   'SLA Zeit', 'Temps de SLA')
+  FACXSL_LCL('stdmelding',   'Melding',           'Call',       'Meldung', 'Appel')
+  FACXSL_LCL('behandeling',  'Behandeling',       'Handling',   'Behandlung', 'Traitement')
+  FACXSL_LCL('uitvoertijd',  'SLA tijd',          'SLA time',   'SLA Zeit', 'Temps de SLA')
   FACXSL_LCL('vakgroep',     'Vakgroep',          'Discipline',      'Innendienst', 'Groupe de service')
-	FACXSL_LCL('datum_gereed', 'Datum gereed', 'Completed', 'Fertig', 'Date de fin')
+  FACXSL_LCL('datum_gereed', 'Datum gereed', 'Completed', 'Fertig', 'Date de fin')
   FACXSL_LCL('datum_verzonden', 'Datum verzonden', 'Date sent', 'Gesendet', 'Date envoy<6F>')
-	FACXSL_LCL('uren', 'Uren', 'Hours', 'Stunden', 'heures')
-	FACXSL_LCL('arbeid', 'Arbeid', 'Work', 'Arbeit', 'Travaux')
-	FACXSL_LCL('materiaal', 'Materiaal', 'Material', 'Material', 'Mat<61>riels')
-	FACXSL_LCL('correctie', 'Correctie', 'Correction', 'Korrektur', 'Correction')
+  FACXSL_LCL('uren', 'Uren', 'Hours', 'Stunden', 'heures')
+  FACXSL_LCL('arbeid', 'Arbeid', 'Work', 'Arbeit', 'Travaux')
+  FACXSL_LCL('materiaal', 'Materiaal', 'Material', 'Material', 'Mat<61>riels')
+  FACXSL_LCL('correctie', 'Correctie', 'Correction', 'Korrektur', 'Correction')
   FACXSL_LCL('hergoedkeuring', 'Hergoedkeuring', 'Reapprove', 'Wiedergenehmigung', 'Reapprouver ')
   FACXSL_LCL('herfiattering', 'Herfiattering', 'Refiat', 'Wiedergenehmigung', 'Reautoriser')
   FACXSL_LCL('was', 'was', 'was', 'war', 'a <20>t<EFBFBD>')

FAC/FAC_PAC.SRC

@@ -60,6 +60,8 @@ CREATE OR REPLACE PACKAGE fac
     FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
     FUNCTION count_Work_Days  ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
     FUNCTION count_Work_Days_InclTime ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
+    FUNCTION iswerkdag (begindatum IN DATE) RETURN NUMBER;
+    FUNCTION iswerktijd RETURN NUMBER;
     FUNCTION datumtijdplusuitvoertijd (begindatum IN DATE, uitvoertijd IN NUMBER, uitvoertijdtype IN VARCHAR2) RETURN DATE;
     FUNCTION datumtijdplusuitvoertijd (begindatum IN DATE, uitvoertijd IN NUMBER, uitvoertijdtype IN VARCHAR2,
                       pBeginWerkUur IN NUMBER, pEindWerkUur IN NUMBER, pMode IN NUMBER) RETURN DATE;
@@ -105,7 +107,7 @@ CREATE OR REPLACE PACKAGE fac
     PROCEDURE putnotificationsrtprio (pfrom NUMBER, pto NUMBER, pcode VARCHAR2, pref NUMBER,
               poptmessage VARCHAR2, poptstatus NUMBER, poptemail VARCHAR2, poptmobile VARCHAR2, pxref NUMBER,
               pprio NUMBER, psender VARCHAR2, pattach VARCHAR2 DEFAULT NULL);
-    PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER);
+    PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, puitz VARCHAR2 DEFAULT NULL);
     PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, psubject VARCHAR2, preceiver NUMBER);
     PROCEDURE putnotificationjobs (pcust VARCHAR2);
     PROCEDURE putjobnotifications (pviewname VARCHAR2, pmode NUMBER, pflags NUMBER);
@@ -122,13 +124,12 @@ CREATE OR REPLACE PACKAGE fac
     PROCEDURE registerversion (pmaj IN NUMBER, pmin IN NUMBER, ppatch IN VARCHAR2, pschema IN VARCHAR2, plang IN VARCHAR2);
     PROCEDURE registercustversion (pcustid IN VARCHAR2, pcustnr IN NUMBER);
     FUNCTION getdbversion RETURN VARCHAR2;
-    PROCEDURE processemail (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, pextra IN VARCHAR2);
+    PROCEDURE processemail (pfrom IN VARCHAR2, pto IN VARCHAR2, psubject IN VARCHAR2, pbody IN VARCHAR2, psessionid IN VARCHAR2);
     FUNCTION isdatefeestdag(p_date IN DATE) RETURN BOOLEAN;
     FUNCTION calcnextcyclusdate (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER) RETURN DATE;
     FUNCTION nextcyclusdate (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
-    FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
+    FUNCTION nextcyclusdatedeel (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
     FUNCTION nextcyclusdatesteps (p_date IN DATE, p_mode IN NUMBER, p_eenheid IN NUMBER, p_periode IN NUMBER, p_bits IN NUMBER, p_steps IN NUMBER DEFAULT 1, p_enddate IN DATE DEFAULT SYSDATE) RETURN NUMBER;
-    FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
     FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5') RETURN VARCHAR2;
     FUNCTION testhash (p_hash VARCHAR2, p_in VARCHAR2) RETURN NUMBER;
     PROCEDURE createlikebookmark (pxmlnode VARCHAR2, prefkey NUMBER);
@@ -389,6 +390,23 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        END IF;
     END;
 
+    FUNCTION iswerktijd
+       RETURN NUMBER
+    AS
+       lBeginWerkUur NUMBER;
+       lEindWerkUur NUMBER;
+    BEGIN
+       lBeginWerkUur := fac.safe_to_number(fac.getsetting('fac_t_startofworkday'));
+       lEindWerkUur := fac.safe_to_number(fac.getsetting('fac_t_endofworkday'));
+       IF SYSDATE BETWEEN TRUNC(SYSDATE) + (lBeginWerkUur / 24)
+                      AND TRUNC(SYSDATE) + (lEindWerkUur  / 24)
+       THEN
+          RETURN 1;
+       ELSE
+          RETURN 0;
+       END IF;
+    END;
+
     -- Return number of workdays between two dates, not including the startdate, weekends and holidays
     FUNCTION count_Work_Days0( pdate1 IN DATE , pdate2 IN DATE, pInclTime IN BOOLEAN ) RETURN NUMBER IS
     eikdag NUMBER;
@@ -1035,6 +1053,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    -- 'Uiteraard' is deze functie gebaseerd op imp_getfield!
    -- Verschil is dat p_parseline hier alleen IN-parameter is (en niet IN-OUT), en natuurlijk de extra parameter p_nr.
    -- En de gelezen waarde wordt itt imp_getfield gewoon getrimd (weg met die overbodige spaties die alleen voor de rommel zorgen): VOD D'R MET!
+   -- Gebaseerd op het gebruik in de importfuncties is de lengte van een line 4000 posities (chars of bytes, daar wil ik van af zijn)
    PROCEDURE imp_getfield_nr (
        p_parseline        IN       VARCHAR2,
        p_fielddelimitor   IN       VARCHAR2,
@@ -1042,9 +1061,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        p_field            OUT      VARCHAR2
    )
    AS
-        l_parseline VARCHAR2(1024);
+        l_parseline VARCHAR2(4000);
         l_nr        NUMBER(10);
-        l_field     VARCHAR2(1024);
+        l_field     VARCHAR2(4000);
    BEGIN
         l_parseline :=p_parseline;
         l_nr        :=p_nr;
@@ -1223,13 +1242,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       oracle_err_mes   VARCHAR2 (200);
 
       v_bedrijf_key           NUMBER(10);
-      v_srtperslid_key        NUMBER(10);
-      v_afdeling_key          NUMBER(10);
-      v_groep_key_def         NUMBER(10);
-      v_groep_key_admin       NUMBER(10);
-      v_perslid_key_gast      NUMBER(10);
-      v_perslid_key_fac       NUMBER(10);
-      v_functie_key_prssys    NUMBER(10);
 
       -- PRS_CONTACTPERSOON_LOCATIE
       CURSOR c1
@@ -1276,7 +1288,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       IS
          SELECT   prs_perslid_key
            FROM   prs_perslid
-           WHERE  prs_perslid_oslogin not in ('_GAST','_FACILITOR')
+           WHERE  prs_perslid_oslogin not in ('_GAST','_FACILITOR') /* van vroeger */
               OR prs_perslid_oslogin IS NULL;
 
       rec6             c6%ROWTYPE;
@@ -1477,11 +1489,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 v_errormsg := 'Ok. Kennelijk bestaat het record al';
       END;
 
-      SELECT  prs_srtperslid_key
-      INTO    v_srtperslid_key
-      FROM    prs_srtperslid
-      WHERE   prs_srtperslid_upper = 'ONBEKEND';
-
       BEGIN
         INSERT INTO prs_bedrijf (prs_bedrijf_naam, prs_bedrijf_intern)
              VALUES ('Onbekend', 1);
@@ -1495,15 +1502,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       FROM    prs_bedrijf
       WHERE   prs_bedrijf_naam_upper = 'ONBEKEND';
 
-
-
-
-
-
-
-
-
-
       BEGIN
         INSERT INTO prs_afdeling (prs_bedrijf_key, prs_afdeling_naam)
              VALUES (v_bedrijf_key, 'Onbekend');
@@ -1512,145 +1510,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 v_errormsg := 'Ok. Kennelijk bestaat het record al';
       END;
 
-      SELECT  prs_afdeling_key
-      INTO    v_afdeling_key
-      FROM    prs_afdeling
-      WHERE   prs_afdeling_upper = 'ONBEKEND';
-
-      BEGIN
-        INSERT INTO prs_perslid
-                    (prs_perslid_module,
-                     prs_srtperslid_key,
-                     prs_afdeling_key,
-                     prs_perslid_naam,
-                     prs_perslid_oslogin,
-                     prs_perslid_salt,
-                     prs_perslid_wachtwoord_hash,
-                     prs_perslid_dienstverband,
-                     prs_perslid_ingangsdatum,
-                     prs_perslid_login
-                    )
-             VALUES ('PRS',
-                     v_srtperslid_key,
-                     v_afdeling_key,
-                     'Gast',
-                     '_GAST',
-                     'tfYBQzSFECrhRcCgMhvVAgfgNtFaYZuh',
-                     '6E52C06F3A8895E5BB79E36CC04502D7', /* nobodyknow$ */
-                     100,
-                     SYSDATE,
-                     SYSDATE
-                    );
-            EXCEPTION
-              WHEN OTHERS THEN
-                v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      SELECT  prs_perslid_key
-      INTO    v_perslid_key_gast
-      FROM    prs_perslid
-      WHERE   prs_perslid_oslogin = '_GAST';
-
-      BEGIN
-        INSERT INTO prs_perslid
-                    (prs_perslid_module,
-                     prs_srtperslid_key,
-                     prs_afdeling_key,
-                     prs_perslid_naam,
-                     prs_perslid_oslogin,
-                     prs_perslid_salt,
-                     prs_perslid_wachtwoord_hash,
-                     prs_perslid_dienstverband,
-                     prs_perslid_ingangsdatum,
-                     prs_perslid_login
-                    )
-             VALUES ('PRS',
-                     v_srtperslid_key,
-                     v_afdeling_key,
-                     'Facilitor',
-                     '_FACILITOR',
-                     'wAxYpizzUNeWAFdkIkhcEbfzFAYvEpoH',
-                     '9D8B5A6A8AED1496DF8C1CC54A9EBFF2', /* fictorial */
-                     100,
-                     SYSDATE,
-                     SYSDATE
-                    );
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      SELECT  prs_perslid_key
-      INTO    v_perslid_key_fac
-      FROM    prs_perslid
-      WHERE   prs_perslid_oslogin = '_FACILITOR';
-
-      BEGIN
-        INSERT INTO fac_groep
-                    (fac_groep_omschrijving)
-             VALUES ('_Default');
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      SELECT  fac_groep_key
-      INTO    v_groep_key_def
-      FROM    fac_groep
-      WHERE   fac_groep_upper = '_DEFAULT';
-
-      BEGIN
-        INSERT INTO fac_groep
-                    (fac_groep_omschrijving)
-             VALUES ('_Admin');
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      SELECT  fac_groep_key
-      INTO    v_groep_key_admin
-      FROM    fac_groep
-      WHERE   fac_groep_upper = '_ADMIN';
-
-      BEGIN
-        INSERT INTO fac_gebruikersgroep
-                    (fac_groep_key, prs_perslid_key)
-             VALUES (v_groep_key_def, v_perslid_key_gast);
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      BEGIN
-        INSERT INTO fac_gebruikersgroep
-                    (fac_groep_key, prs_perslid_key)
-             VALUES (v_groep_key_admin, v_perslid_key_fac);
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
-      SELECT  fac_functie_key
-      INTO    v_functie_key_prssys
-      FROM    fac_functie
-      WHERE   fac_functie_code = 'WEB_PRSSYS';
-
-      BEGIN
-        INSERT INTO fac_groeprechten
-                    (fac_groep_key,
-                     fac_functie_key,
-                     fac_gebruiker_prs_level_read,
-                     fac_gebruiker_alg_level_read,
-                     fac_gebruiker_prs_level_write,
-                     fac_gebruiker_alg_level_write
-                    )
-             VALUES (v_groep_key_admin, v_functie_key_prssys, -1, -1, -1, -1);
-        EXCEPTION
-          WHEN OTHERS THEN
-            v_errormsg := 'Ok. Kennelijk bestaat het record al';
-      END;
-
       commit;
 
       EXCEPTION
@@ -1745,9 +1604,11 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                         (fac_perfmon_aantal, fac_perfmon_waarde,
                          fac_perfmon_datum, fac_perfmon_threshold
                         )
-                 VALUES (1, zwaarte,
+                 SELECT 1, zwaarte,
                          TRUNC (SYSDATE), limiet
-                        );
+                   FROM DUAL
+                      WHERE TRUNC (SYSDATE) NOT IN -- multi-user safe maken
+                        (SELECT fac_perfmon_datum FROM fac_perfmon);
       END;
    END;
 
@@ -2065,8 +1926,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
             soms := SUBSTR(soms, 1, INSTR (soms, CHR(10)) - 1);
          END IF;
 
-         -- voorkom e-mail/sms van deze *UPD als de *NEW nog niet eens de deur uit is door Putorders
+         -- Gooi bestaande identieke notificaties eerst maar eens uit de queue. Voor het gemak.
+         -- De nieuwe is minstens zo goed en gaat per definitie via dezelfde kanalen
+         fac.clrnotifications(pcode, pref, soms, pto); -- Dubbele notificaties verwijderen indien dezelfde omschrijving en voor dezelfde ontvanger.
+
+         -- Voorkom e-mail/sms van deze zwakkere *UPD als de *NEW nog niet eens de deur uit is door Putorders
          -- of meer algemeen: elke e-mail/sms die nog niet de deur is.
+         -- Je wilt wel op alle gedefinieerde kanalen precies een bericht houden
          IF BITAND (smode, 2 + 4) <> 0
          THEN
             -- Zoek de lmode van een al/nog aanwezige fac_notificatie die over hetzelfde gaat
@@ -2074,7 +1940,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                SELECT fac_srtnotificatie_code, fac_notificatie_status, fac_notificatie_oms
                  INTO oldercode, oldersmode, oldersoms
                  FROM fac_v_notifyqueue ander
-                WHERE (pcode = ander.fac_srtnotificatie_code
+                WHERE (pcode = ander.fac_srtnotificatie_code  -- die is meestal al gewist, zou nog kunnen met andere tekst
                        OR pcode = 'BESUPD'
                          AND ander.fac_srtnotificatie_code IN ('BESNEW')
                        OR pcode IN ('RESUPD','RESBEV','RESOPT','RESCLN')
@@ -2099,37 +1965,26 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   NULL;
             END;
 
-            -- Identieke noti als reeds in de queue staat, dan zijn wij klaar; hoeft niet nog eens
-            -- en direct RETURN zodat bestaande noti niet ook nog eens wordt teruggetrokken (is in
-            -- dit geval, hoewel ouder, dus niet waardeloos)!
-            IF (pcode = oldercode AND smode = oldersmode AND soms = oldersoms)
+            IF (oldercode IS NOT NULL)
             THEN
-               -- Nothing to do
-               RETURN;
-            END IF;
-
-            IF BITAND (smode, 2) = 2 AND BITAND (oldersmode, 2) = 2
-            THEN
-               lmode := BITAND (lmode, 255 - 2);
-            END IF;
-
-            IF BITAND (smode, 4) = 4 AND BITAND (oldersmode, 4) = 4
-            THEN
-               lmode := BITAND (lmode, 255 - 4);
+               -- Deze is zwakker dan de bestaande, deze hoeft dus niet nog eens via diezelfde kanalen.
+               -- Het kan dus best zijn dat er niets over blijft.
+               lmode := BITAND (lmode, 255 - oldersmode);
             END IF;
 
             -- Dan nog omgekeerd: trek eerdere zwakkere notificaties terug als deze pcode sterker is
-            -- als die oudere nog niet de deur uit is. NB: de tracking blijft natuurlijk gewoon
+            -- en die oudere nog niet de deur uit is. NB: de tracking blijft natuurlijk gewoon
             -- Ook portalberichten worden zo verminderd, en niet alleen die van de laatste 5 minuten
-            -- U zult bezwaar maken, maar mijn motivatie is dat notificatie een attentiewaarde heeft
-            -- en een oude attentie waardeloos is. Herhaalde update werden ook al onderdrukt.
-            -- De tracking tells it all! Gooi je zelf niks weg, dan resteert in de portal de NEW en de AFM, tof.
-            -- Wellicht dat deze lijst nog wat groeit.
+            -- De tracking tells it all! Gooi je zelf niks weg, dan resteert in de portal meestal de AFM, tof.
+            -- Wellicht dat deze lijst nog wat groeit. Voor MLD durf ik alle weg te doen bij afmelden,
+            -- Bij die andere is dat misschien wat riskanter als na TV nog KTV kan volgen en zo.
             CASE pcode
             WHEN 'MLDAFM'
             THEN
-                fac.clrnotifications('MLDUPD', pref);
-                fac.clrnotifications('MLD2BO', pref); -- De Backoffice hoeft al niet meer
+                fac.clrnotifications('MLD%', pref);
+            WHEN 'MLD2BO'
+            THEN
+                fac.clrnotifications('MLD2B3', pref);
             WHEN 'RESAFM'
             THEN
                 fac.clrnotifications('RESUPD', pref);
@@ -2153,8 +2008,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
             ELSE
                 NULL;
             END CASE;
-            -- Alle dubbele notificaties met dezelfde omschrijving voor dezelfde ontvanger verwijderen.
-            fac.clrnotifications(pcode, pref, soms, pto); -- Dubbele notificaties verwijderen indien dezelfde omschrijving en voor dezelfde ontvanger.
 
          END IF;
       END IF;
@@ -2193,8 +2046,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       END IF;
    END;
 
-   -- Ruim zoveel mogelijk notificatiespul op voor dit item. Pcode mag een wildcard zijn!
-   PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER)
+   -- Ruim zoveel mogelijk notificatiespul op voor dit item uitgezonderd de meegegeven notificatie. Pcode mag een wildcard zijn!
+   PROCEDURE clrnotifications (pcode VARCHAR2, pref NUMBER, puitz VARCHAR2 DEFAULT NULL)
    AS
       skey     fac_srtnotificatie.fac_srtnotificatie_key%TYPE;
    BEGIN
@@ -2202,14 +2055,16 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       DELETE FROM fac_notificatie
        WHERE fac_srtnotificatie_key IN (SELECT sn.fac_srtnotificatie_key
                                           FROM fac_srtnotificatie sn
-                                         WHERE sn.fac_srtnotificatie_code LIKE pcode)
+                                         WHERE sn.fac_srtnotificatie_code LIKE pcode
+                                         AND sn.fac_srtnotificatie_code NOT IN (COALESCE(puitz, ' ')))
          AND fac_notificatie_refkey = pref;
 
       -- portalberichten. Hier moet je wel de dubbele webuser_messages verwijderen. Hier gaat het om ander notificaties als dan die net aangemaakt zijn.
       DELETE FROM web_user_messages
        WHERE fac_srtnotificatie_key IN (SELECT sn.fac_srtnotificatie_key
                                           FROM fac_srtnotificatie sn
-                                         WHERE sn.fac_srtnotificatie_code LIKE pcode)
+                                         WHERE sn.fac_srtnotificatie_code LIKE pcode
+                                         AND sn.fac_srtnotificatie_code NOT IN (COALESCE(puitz, ' ')))
          AND web_user_mess_action_params = pref;
 
    END;
@@ -2979,6 +2834,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lcode2                   fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
         loms                     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
         loms2                    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+        lsrtnotigebouw           fac_srtnotificatie.fac_srtnotificatie_gebouw%TYPE;
         bericht                  fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
         bericht2                 fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
         lreceiver                fac_notificatie.prs_perslid_key_receiver%TYPE;
@@ -2993,6 +2849,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lstart_key               mld_melding.mld_melding_start_key%TYPE;
         luitvtype                mld_v_uitvoerende.TYPE%TYPE;
         lemail                   prs_bedrijf.prs_bedrijf_email%TYPE;
+        lemail3                  alg_gebouw.alg_gebouw_email%TYPE;
         lphone                   prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
         lreskey                  res_rsv_ruimte.res_reservering_key%TYPE;
         lres_ruimte_opstel_key   res_rsv_ruimte.res_ruimte_opstel_key%TYPE;
@@ -3000,10 +2857,13 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lxrefkey                 res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
         lalg_ruimte_key          res_rsv_ruimte.alg_ruimte_key%TYPE;
         lalglocatiekey           alg_locatie.alg_locatie_key%TYPE;
+        lalgonrgoedkey           mld_melding.mld_alg_onroerendgoed_keys%TYPE;
         lmld_adres_key           mld_adres.mld_adres_key%TYPE;
         lprs_bedrijf_key         prs_bedrijf.prs_bedrijf_key%TYPE;
         lmldbehandelaar          mld_melding.mld_melding_behandelaar_key%TYPE;
         lafs_key                 bez_afspraak.bez_afspraak_key%TYPE;
+        lins_deel_ley            ins_deel.ins_deel_key%TYPE;
+        lpoolnotified            NUMBER;
     BEGIN
         -- Het gaat om een notificatie bij een entiteit prefkey,
         -- waarvan het type alleen nog moet worden bepaald via
@@ -3025,11 +2885,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
         lrefkey := prefkey;                            -- dan kunnen we bij reservering nog wijzigen
         bericht := ptracking_oms;                                  -- als die leeg is zoeken we zelf
+        lpoolnotified := 0;
 
         -- welk type?
-        SELECT fac_srtnotificatie_xmlnode, fac_srtnotificatie_code,
-               lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
-          INTO lxmlnode, lcode, loms
+        SELECT fac_srtnotificatie_xmlnode,
+               fac_srtnotificatie_code,
+               lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
+               fac_srtnotificatie_gebouw
+          INTO lxmlnode,
+               lcode,
+               loms,
+               lsrtnotigebouw
           FROM fac_srtnotificatie
          WHERE fac_srtnotificatie_key = psrtnotificatiekey;
 
@@ -3050,6 +2916,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                        m.mld_stdmelding_key,
                        m.mld_adres_key,
                        m.mld_alg_locatie_key,
+                       m.mld_alg_onroerendgoed_keys,
                        mld_disc_params_notify,
                        stdm.mld_stdmelding_notify,
                        d.ins_discipline_email,
@@ -3062,6 +2929,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                        lmld_stdmelding_key,
                        lmld_adres_key,
                        lalglocatiekey,
+                       lalgonrgoedkey,
                        lnotify,
                        lmnotify,
                        lsender,
@@ -3151,6 +3019,18 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                          WHERE l2.alg_locatie_key = lalglocatiekey;
                     END IF;
                 END IF;
+
+                -- Controleren of er ook naar het gebouw een mailtje gestuurd moet worden.
+                IF lsrtnotigebouw = 1 AND lalgonrgoedkey IS NOT NULL
+                THEN
+                    -- Stuur een notificatie naar het e-mail adres van het gebouw.
+                    SELECT g.alg_gebouw_email
+                      INTO lemail3
+                      FROM alg_v_allonroerendgoed aog,
+                           alg_gebouw g
+                     WHERE aog.alg_gebouw_key = g.alg_gebouw_key
+                       AND aog.alg_onroerendgoed_keys = lalgonrgoedkey;
+                END IF;
             WHEN lxmlnode = 'opdracht'
             THEN
                 IF ptracking_oms IS NULL
@@ -3222,8 +3102,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
                 -- de afzender
                 BEGIN
-                    SELECT ins_discipline_email
-                      INTO lsender
+                    SELECT ins_discipline_email,
+                           m.mld_alg_onroerendgoed_keys
+                      INTO lsender,
+                           lalgonrgoedkey
                       FROM ins_tab_discipline d,
                            mld_stdmelding sm,
                            mld_melding m,
@@ -3235,8 +3117,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
                     IF lsender IS NULL
                     THEN
-                        SELECT COALESCE (l1.alg_locatie_email, l2.alg_locatie_email)
-                          INTO lsender
+                        SELECT COALESCE (l1.alg_locatie_email, l2.alg_locatie_email),
+                               m.mld_alg_onroerendgoed_keys
+                          INTO lsender,
+                               lalgonrgoedkey
                           FROM mld_melding m,
                                mld_adres ma,
                                alg_locatie l1,
@@ -3253,6 +3137,18 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                     THEN
                         NULL;
                 END;
+
+                -- Controleren of er ook naar het gebouw een mailtje gestuurd moet worden.
+                IF lsrtnotigebouw = 1 AND lalgonrgoedkey IS NOT NULL
+                THEN
+                    -- Stuur een notificatie naar het e-mail adres van het gebouw.
+                    SELECT g.alg_gebouw_email
+                      INTO lemail3
+                      FROM alg_v_allonroerendgoed aog,
+                           alg_gebouw g
+                     WHERE aog.alg_gebouw_key = g.alg_gebouw_key
+                       AND aog.alg_onroerendgoed_keys = lalgonrgoedkey;
+                END IF;
             WHEN lxmlnode = 'reservering' OR lxmlnode = 'xreservering'
             THEN
                 IF ptracking_oms IS NULL
@@ -3550,7 +3446,11 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 -- De normale notificatie gaat naar de contact (UWVA#19008)
                 -- Moeten dus kijken of psrtnotificatiekey naar BEZDON of BEZOUT wijst
                 -- Dan moeten we ook BEZDO2 of BEZOU2 versturen naar de host.
-                IF lcode = 'BEZDON'
+               IF lcode = 'BEZDON'
+                THEN
+                    lcode2 := 'BEZDO2';
+                    lpoolnotified := res.notifypool(prefkey, lcode2);
+                ELSIF lcode = 'BEZUNI'
                 THEN
                     lcode2 := 'BEZDO2';
                 ELSIF lcode = 'BEZOUT'
@@ -3629,6 +3529,44 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                             NULL;
                     END;
                 END IF;
+            WHEN lxmlnode = 'controle'
+            THEN
+                IF ptracking_oms IS NULL
+                THEN
+                    bericht := ins.contrsprintf (loms, prefkey);
+                END IF;
+
+                -- Bij Controle, Vervanging of Certificering sturen we een notificatie naar diegene die de Controle, Vervanging of Certificering heeft uitgevoerd.
+                SELECT prs_perslid_key, ins_deel_key
+                  INTO lreceiver, lins_deel_ley
+                  FROM ins_deelsrtcontrole
+                 WHERE ins_deelsrtcontrole_key = prefkey;
+
+                -- Afzender via ins_deel.
+                BEGIN
+                    SELECT MAX (ins_discipline_email)
+                      INTO lsender
+                      FROM ins_tab_discipline d,
+                           ins_deel dl,
+                           ins_srtdeel sd,
+                           ins_srtgroep sg
+                     WHERE     dl.ins_srtdeel_key = sd.ins_srtdeel_key
+                           AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+                           AND sg.ins_discipline_key = d.ins_discipline_key
+                           AND dl.ins_deel_key = lins_deel_ley;
+
+                    IF lsender IS NULL
+                    THEN
+                        SELECT l.alg_locatie_email
+                          INTO lsender
+                          FROM alg_locatie l
+                         WHERE l.alg_locatie_key = lalglocatiekey;
+                    END IF;
+                EXCEPTION
+                    WHEN NO_DATA_FOUND
+                    THEN
+                        NULL;
+                END;
             WHEN lxmlnode = 'contract'
             THEN
                 IF ptracking_oms IS NULL
@@ -3708,14 +3646,31 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                                     lsender);
 
         IF lcode2 IS NOT NULL AND lreceiver2 IS NOT NULL
+        THEN
+            IF lpoolnotified = 0 THEN
+                fac.putnotificationsrtprio (pperslid_key,
+                                            lreceiver2,
+                                            lcode2,
+                                            lrefkey,
+                                            bericht2,
+                                            NULL,
+                                            lemail,
+                                            lphone,
+                                            lxrefkey,
+                                            2,
+                                            lsender);
+            END IF;
+        END IF;
+
+        IF lemail3 IS NOT NULL
         THEN
             fac.putnotificationsrtprio (pperslid_key,
-                                        lreceiver2,
-                                        lcode2,
-                                        lrefkey,
-                                        bericht2,
                                         NULL,
-                                        lemail,
+                                        lcode,
+                                        lrefkey,
+                                        bericht,
+                                        NULL,
+                                        lemail3,
                                         lphone,
                                         lxrefkey,
                                         2,
@@ -3859,7 +3814,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                            pto        IN VARCHAR2,
                            psubject   IN VARCHAR2,
                            pbody      IN VARCHAR2,
-                           pextra     IN VARCHAR2
+                           psessionid IN VARCHAR2
                           )
    AS
       sender              prs_perslid.prs_perslid_key%TYPE;
@@ -3967,7 +3922,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   INSERT INTO fac_result (fac_result_sessionid,
                                           fac_result_naam,
                                           fac_result_waarde)
-                      VALUES ('hMailServer',
+                      VALUES (psessionid,
                               'kenmerkpath',
                               'MLD\M' || to_char( TRUNC(newkey/1000), 'FM0000') || '___\M' || newkey || '\' || kkey || '\');
                END IF;
@@ -3983,7 +3938,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          INSERT INTO fac_result (fac_result_sessionid,
                                  fac_result_naam,
                                  fac_result_waarde)
-             VALUES ('hMailServer', 'errormsg', errormsg);
+             VALUES (psessionid, 'errormsg', errormsg);
       END IF;
    EXCEPTION
       WHEN OTHERS
@@ -4004,7 +3959,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
          INSERT INTO fac_result (fac_result_sessionid,
                                  fac_result_naam,
                                  fac_result_waarde)
-             VALUES ('hMailServer',
+             VALUES (psessionid,
                      'errormsg',
                      'Database fout - Neem contact op met uw systeembeheerder');
    END;
@@ -4383,7 +4338,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         -- Bij het meegegeven van de huidige datum en steps is 0 de huidige controledatum weer teruggeven.
         IF NOT (p_steps = 0 AND toekomst)  -- p_steps != 0 || !toekomst
         THEN
-            -- Calulate next cyclus date m.b.v. voledige datum met tijd.
+            -- Calculate next cyclus date m.b.v. voledige datum met tijd.
             inspdate := calcnextcyclusdate (inspdate, p_mode, p_eenheid, p_periode, p_bits);
         END IF;
 
@@ -4415,11 +4370,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         END IF;
     END;
 
-    -- Berekent de n-de (p_steps) controledatum na p_date.
+    -- Berekent de n-de (p_steps) controledatum van een object na p_date.
     -- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
-    -- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidite datum is, dan deze weer teruggeven).
-    -- steps = n: n-volgende vanaf meegegeven datum (p_date). Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
-    FUNCTION nextcyclusdate (p_insdeel     IN NUMBER,
+    -- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidige datum is, dan deze weer teruggeven).
+    -- steps = n: n-volgende vanaf meegegeven datum (p_date).
+    --   Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
+    FUNCTION nextcyclusdatedeel (p_insdeel     IN NUMBER,
                              p_srtcontrole IN NUMBER,
                              p_steps       IN NUMBER DEFAULT 0)
         RETURN DATE
@@ -4447,20 +4403,25 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                                              AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
                                             AND id.ins_deel_key = p_insdeel)
 
-                SELECT fac.nextcyclusdate (COALESCE ( (SELECT MAX ( GREATEST (COALESCE (idsc.ins_deelsrtcontrole_datum_xcp,
-                                                                              CASE di.ins_srtcontrole_mode
-                                                                              WHEN 0
-                                                                              THEN idsc.ins_deelsrtcontrole_datum_org
-                                                                              ELSE idsc.ins_deelsrtcontrole_datum END),
-                                                                    CASE di.ins_srtcontrole_mode
-                                                                    WHEN 0
-                                                                    THEN idsc.ins_deelsrtcontrole_datum_org
-                                                                    ELSE idsc.ins_deelsrtcontrole_datum
-                                                                    END)
-                                                                  ) ins_deelsrtcontrole_datum
+                SELECT fac.nextcyclusdate (COALESCE ( (SELECT GREATEST (COALESCE (idsc.ins_deelsrtcontrole_plandatum,
+                                                                                  CASE di.ins_srtcontrole_mode
+                                                                                  WHEN 0
+                                                                                  THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                                  ELSE idsc.ins_deelsrtcontrole_datum END),
+                                                                                  CASE di.ins_srtcontrole_mode
+                                                                                  WHEN 0
+                                                                                  THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                                  ELSE idsc.ins_deelsrtcontrole_datum
+                                                                                  END)
+                                                                ins_deelsrtcontrole_datum
                                                          FROM ins_deelsrtcontrole idsc
                                                         WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
-                                                          AND idsc.ins_deel_key = di.ins_deel_key),
+                                                          AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                          AND idsc.ins_deel_key = di.ins_deel_key
+                                                          AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
+                                                                                                FROM ins_deelsrtcontrole idsc2
+                                                                                               WHERE idsc2.ins_deel_key = p_insdeel
+                                                                                                 AND idsc2.ins_srtcontrole_key = p_srtcontrole)),
                                                       di.ins_deel_aanmaak),
                                            di.ins_srtcontrole_mode,
                                            COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
@@ -4495,7 +4456,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         inspdate   DATE;
         enddate    DATE;
     BEGIN
-        -- Calulate next cyclus date
+        -- Calculate next cyclus date
         inspdate := calcnextcyclusdate (p_date, p_mode, p_eenheid, p_periode, p_bits);
         IF ((p_eenheid = 0 AND TRUNC(inspdate, 'HH24') >= TRUNC(p_enddate, 'HH24')) OR
             (p_eenheid > 0 AND TRUNC(inspdate, 'DDD') >= TRUNC(p_enddate, 'DDD')))
@@ -4506,55 +4467,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         END IF;
     END;
 
-    FUNCTION nextcyclusdatesteps (p_insdeel     IN NUMBER,
-                                  p_srtcontrole IN NUMBER,
-                                  p_steps       IN NUMBER DEFAULT 1)     -- Standaard beginnen te tellen bij 1.
-        RETURN NUMBER
-    IS
-        lsteps     NUMBER;
-    BEGIN
-        SELECT inspectie_steps
-          INTO lsteps
-          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
-                                                isc.ins_srtcontrole_mode,
-                                                isc.ins_srtcontrole_eenheid,
-                                                isc.ins_srtcontrole_bits,
-                                                isc.ins_srtcontrole_periode,
-                                                id.ins_deel_key,
-                                                id.ins_deel_aanmaak
-                                           FROM ins_deel id,
-                                                ins_srtdeel s,
-                                                ins_srtcontrole isc
-                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
-                                            AND (isc.ins_srtcontrole_niveau = 'S'
-                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
-                                              OR isc.ins_srtcontrole_niveau = 'G'
-                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
-                                              OR isc.ins_srtcontrole_niveau = 'D'
-                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
-                                            AND id.ins_deel_key = p_insdeel)
-                SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT MAX (COALESCE(idsc.ins_deelsrtcontrole_datum_xcp, idsc.ins_deelsrtcontrole_datum_org)) ins_deelsrtcontrole_datum
-                                                               FROM ins_deelsrtcontrole idsc
-                                                              WHERE di.ins_srtcontrole_key = idsc.ins_srtcontrole_key
-                                                                AND idsc.ins_deel_key = di.ins_deel_key),
-                                                             ins_deel_aanmaak),
-                                                di.ins_srtcontrole_mode,
-                                                COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
-                                                COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
-                                                COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
-                                                p_steps
-                                               ) inspectie_steps
-                   FROM defined_inspect di,
-                        ins_srtcontroledl_xcp xcp
-                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
-                    AND di.ins_deel_key = xcp.ins_deel_key(+)
-                    AND di.ins_deel_key = p_insdeel
-                    AND di.ins_srtcontrole_key = p_srtcontrole
-                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
-
-        RETURN lsteps;
-    END;
-
    -- We garanderen maximaal 64 characters
    -- We ondersteunen alleen nog maar 'MD5'
    FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5')

FAC/FAC_PACF.SRC

@@ -3876,7 +3876,8 @@ BEGIN
         SELECT ALG_LOCATIE_KEY
         INTO   v_locatie_key
         FROM   ALG_LOCATIE
-        WHERE  UPPER(ALG_LOCATIE_CODE) = UPPER(recVerdieping.ALG_LOCATIE_CODE);
+        WHERE  UPPER(ALG_LOCATIE_CODE) = UPPER(recVerdieping.ALG_LOCATIE_CODE)
+        AND    ALG_LOCATIE_VERWIJDER IS NULL;
 
         v_errorhint := ' Fout bij bepalen gebouw ['||recVerdieping.ALG_GEBOUW_CODE||']';
 
@@ -3884,7 +3885,8 @@ BEGIN
         INTO   v_gebouw_key
         FROM   ALG_GEBOUW
         WHERE  UPPER(ALG_GEBOUW_CODE) = UPPER(recVerdieping.ALG_GEBOUW_CODE)
-        AND    ALG_LOCATIE_KEY = v_locatie_key;
+        AND    ALG_LOCATIE_KEY = v_locatie_key
+        AND    ALG_GEBOUW_VERWIJDER IS NULL;
 
         v_errorhint := 'Fout bij toevoegen verdieping';
 
@@ -13475,7 +13477,7 @@ BEGIN
                    VALUES   (   v_rec.fac_import_key,
                                 v_count,
                                 UPPER (SUBSTR (v_leveranciernr, 1, 20)),
-                                SUBSTR (REPLACE(v_ordernr,' ',''), 1, 15),
+                                SUBSTR (REPLACE(v_ordernr,' ',''), 1, 31),
                                 SUBSTR (v_factuurnr, 1, 30),
                                 SUBSTR (v_factuurdatum, 1, 10),
                                 SUBSTR (v_aantal, 1, 10),
@@ -13854,75 +13856,6 @@ AS
         END IF;
    END;
 
-
-   -- Default wordt de user als "invoerder" van een te importeren factuur als volgt bepaald:
-   -- A) Eerst (indien aanwezig) de in fac_setting geregistreerde persoon
-   -- B) En anders (persoon niet in fac_setting aanwezig) als volgt:
-   ---- 1) personen met FINFOF rechten
-   ---- 2) indien meer personen met FO, dan diegene met de hoogste FO-rechten
-   ---- 3) indien meer personen met FO en dezelfde hoogste rechten, dan de persoon die ook BO-rechten heeft
-   ---- 4) indien meer personen met FO hoogste rechten + BO rechten, dan een willekeurige persoon (maakt niet meer uit)
-   -- C) En anders (indien bij B ook niets aanwezig) de persoon 'Facilitor' (soort van system-user).
-   -- D) En anders (indien bij C niets) een willekeurige persoon (de laatste persoon die is toegevoegd -> met de hoogste key)
-
-   FUNCTION get_factuur_key_user
-   RETURN NUMBER
-   IS
-
-      CURSOR fin_fof IS
-        SELECT   p.prs_perslid_key, MAX (fac_functie_code) fo, MIN(gr.fac_gebruiker_prs_level_write) rechten, count(*) aantal
-        FROM   prs_perslid p, fac_groeprechten gr, fac_gebruikersgroep gg, fac_functie f
-        WHERE   p.prs_perslid_key = gg.prs_perslid_key
-        AND gr.fac_groep_key = gg.fac_groep_key
-        AND gr.fac_functie_key = f.fac_functie_key
-        AND (f.fac_functie_code = 'WEB_FINFOF' OR f.fac_functie_code = 'WEB_FINBOF')
-        AND gr.fac_gebruiker_prs_level_write < 9
-        AND p.prs_perslid_oslogin <> '_FACILITOR'
-        GROUP BY p.prs_perslid_key
-        ORDER BY aantal DESC, fo, rechten, p.prs_perslid_key DESC;
-
-      p_prs_perslid_key_user NUMBER(10);
-
-   BEGIN
-      p_prs_perslid_key_user:=NULL;
-      BEGIN
-        SELECT fac.getSetting('fin_import_perslid_key')
-        INTO p_prs_perslid_key_user
-        FROM DUAL;
-
-        IF (p_prs_perslid_key_user IS NULL OR p_prs_perslid_key_user = -1)
-        THEN
-            FOR rc IN fin_fof
-            LOOP
-                p_prs_perslid_key_user := rc.prs_perslid_key;
-                EXIT WHEN p_prs_perslid_key_user IS NOT NULL;
-            END LOOP;
-
-            IF p_prs_perslid_key_user IS NULL
-            THEN
-                SELECT  MAX(prs_perslid_key)
-                INTO    p_prs_perslid_key_user
-                FROM    prs_perslid
-                WHERE   prs_perslid_oslogin = '_FACILITOR'
-                AND     prs_perslid_verwijder IS NULL;
-
-                IF p_prs_perslid_key_user IS NULL
-                THEN
-                    SELECT  MAX(prs_perslid_key)
-                    INTO    p_prs_perslid_key_user
-                    FROM    prs_perslid
-                    WHERE   prs_perslid_verwijder IS NULL;
-                END IF;
-            END IF;
-        END IF;
-      EXCEPTION
-         WHEN OTHERS
-         THEN
-            p_prs_perslid_key_user := NULL;
-      END;
-      RETURN p_prs_perslid_key_user;
-   END;
-
    FUNCTION try_getkostensoort (p_ckey IN NUMBER, p_okey IN NUMBER, p_bkey IN NUMBER)
    RETURN NUMBER
    IS
@@ -15179,6 +15112,7 @@ END fac_update_usrdata;
 
 // FLEX
 -- kenmerken-import (transport), volgens UWVA#20708
+-- UWVA#32742:  flexkenmerken transport voor objecten
 CREATE OR REPLACE PROCEDURE fac_import_flex (p_import_key IN NUMBER
                                             )
 IS
@@ -15238,6 +15172,10 @@ IS
    v_bes_srtgroep VARCHAR2(300);
    v_bes_srtdeel VARCHAR2(300);
    v_cnt_discipline VARCHAR2(300);
+   v_ins_discipline               VARCHAR2(300);
+   v_ins_srtgroep                 VARCHAR2(300);
+   v_ins_srtdeel                  VARCHAR2(300);
+
    header_found BOOLEAN := FALSE;
 BEGIN
 
@@ -15328,6 +15266,11 @@ BEGIN
                ELSIF UPPER (v_deflevel1) = 'CONTRACTSOORT'
                THEN
                     flexmodule := 'CNT';
+               ELSIF UPPER (v_deflevel1) = 'DISCIPLINE'
+                 AND UPPER (v_deflevel2) = 'GROEP'
+                 AND UPPER (v_deflevel3) = 'OBJECTSOORT'
+               THEN
+                    flexmodule := 'INS';
                END IF;
             END IF;
          ELSE
@@ -15349,6 +15292,17 @@ BEGIN
             ELSIF flexmodule = 'CNT'
             THEN
                    v_cnt_discipline := v_deflevel1;
+            ELSIF flexmodule = 'INS'
+            THEN
+            			 -- Hieronder staat telkens de splisting van kenmerk: of op discipline/groep/objectsoort of op inspectiekenmerk.
+            			 -- In de update-procedure wordt deze splitsing bepaald door kenmerk_niveau (D = deel, C = controle)
+
+                   -- Discipline of (voor inspectiekenmerken) een dummy Tekst voor ins_srtcontrole_type (1,2,3), iets als inspectie controle, - vervanging, - certificering
+                   v_ins_discipline := v_deflevel1;
+                   -- Groep binnen de discipline, of (voor inspectiekenmerken) de omschrijving van de soortcontrole (ins_srtcontrole_omschrijving)
+                   v_ins_srtgroep   := v_deflevel2;
+                   -- Objectsoort, of (voor inspectiekenmerken) de (tekst)waarde '1', '2' of '3' (ins_srtcontrole_type).
+                   v_ins_srtdeel    := v_deflevel3;
             END IF;
             INSERT INTO fac_imp_flex (
                                              fac_kenmerkdomein_omschrijving,
@@ -15384,7 +15338,10 @@ BEGIN
                                              bes_discipline,
                                              bes_srtgroep,
                                              bes_srtdeel,
-                                             cnt_discipline
+                                             cnt_discipline,
+                                             ins_discipline,
+                                             ins_srtgroep,
+                                             ins_srtdeel
                        )
               VALUES   (
                            SUBSTR (v_fac_kenmerkdomein_omschr, 1, 255),
@@ -15420,7 +15377,10 @@ BEGIN
                            v_bes_discipline,
                            v_bes_srtgroep,
                            v_bes_srtdeel,
-                           v_cnt_discipline
+                           v_cnt_discipline,
+                					 v_ins_discipline,
+                					 v_ins_srtgroep,
+                					 v_ins_srtdeel
                        );
 
             v_count_import := v_count_import + 1;
@@ -15463,6 +15423,7 @@ END;
 
 -- flexkenmerken-import (transport) voor RES/MLD/BES, volgens UWVA#20706
 --                               en voor CNT, volgens AALB#27395
+-- UWVA#32742:  flexkenmerken transport voor objecten
 CREATE OR REPLACE PROCEDURE fac_update_flex (p_import_key IN NUMBER)
 IS
    CURSOR c_flex
@@ -15527,6 +15488,8 @@ BEGIN
             flexmodule := 'BES';
          ELSIF rec.cnt_discipline IS NOT NULL THEN
             flexmodule := 'CNT';
+         ELSIF rec.ins_discipline IS NOT NULL THEN
+            flexmodule := 'INS';
          ELSE
             flexmodule := 'MLD';
          END IF;
@@ -15628,6 +15591,12 @@ BEGIN
                  FROM   cnt_srtkenmerk
                 WHERE       cnt_srtkenmerk_omschrijving = rec.srtkenmerk_omschrijving
                         AND cnt_srtkenmerk_verwijder IS NULL;
+						WHEN 'INS' THEN
+               SELECT   COUNT ( * ), MIN(ins_srtkenmerk_key)
+                 INTO   v_count, v_srtkenmerk_key
+                 FROM   ins_srtkenmerk
+                WHERE       ins_srtkenmerk_omschrijving = rec.srtkenmerk_omschrijving
+                        AND ins_srtkenmerk_verwijder IS NULL;
             END CASE;
 
             IF (v_count = 0)
@@ -15741,6 +15710,32 @@ BEGIN
                               )
                   RETURNING   cnt_srtkenmerk_key
                        INTO   v_srtkenmerk_key;
+               WHEN 'INS' THEN
+                  INSERT INTO ins_srtkenmerk (
+                                                 ins_srtkenmerk_omschrijving,
+                                                 ins_srtkenmerk_kenmerktype,
+                                                 ins_srtkenmerk_systeem,
+                                                 ins_srtkenmerk_lengte,
+                                                 ins_srtkenmerk_dec,
+                                                 ins_srtkenmerk_nmin,
+                                                 ins_srtkenmerk_nmax,
+                                                 ins_srtkenmerk_dimensie,
+                                                 fac_kenmerkdomein_key
+                              )
+                     VALUES   (
+                                  rec.srtkenmerk_omschrijving,
+                                  rec.srtkenmerk_kenmerktype,
+                                  rec.srtkenmerk_systeem,
+                                  rec.srtkenmerk_lengte,
+                                  rec.srtkenmerk_dec,
+                                  rec.srtkenmerk_nmin,
+                                  rec.srtkenmerk_nmax,
+                                  rec.srtkenmerk_dimensie,
+                                  v_kenmerkdomein_key
+                              )
+                  RETURNING   ins_srtkenmerk_key
+                       INTO   v_srtkenmerk_key;
+
                END CASE;
 
                fac.imp_writelog (p_import_key, 'I', 'Kenmersoort toegevoegd', v_desc);
@@ -15799,6 +15794,21 @@ BEGIN
                      cnt_srtkenmerk_dimensie     = rec.srtkenmerk_dimensie,
                      fac_kenmerkdomein_key       = v_kenmerkdomein_key
                   WHERE cnt_srtkenmerk_key = v_srtkenmerk_key;
+
+               WHEN 'INS' THEN
+                  UPDATE ins_srtkenmerk SET
+                     ins_srtkenmerk_omschrijving = rec.srtkenmerk_omschrijving,
+                     ins_srtkenmerk_kenmerktype  = rec.srtkenmerk_kenmerktype,
+                     ins_srtkenmerk_systeem      = rec.srtkenmerk_systeem,
+                     ins_srtkenmerk_lengte       = rec.srtkenmerk_lengte,
+                     ins_srtkenmerk_dec          = rec.srtkenmerk_dec,
+                     ins_srtkenmerk_nmin         = rec.srtkenmerk_nmin,
+                     ins_srtkenmerk_nmax         = rec.srtkenmerk_nmax,
+                     ins_srtkenmerk_dimensie     = rec.srtkenmerk_dimensie,
+                     fac_kenmerkdomein_key       = v_kenmerkdomein_key
+                  WHERE ins_srtkenmerk_key = v_srtkenmerk_key;
+
+
                END CASE;
 
                fac.imp_writelog (p_import_key,
@@ -16202,6 +16212,139 @@ BEGIN
 
                fac.imp_writelog (p_import_key, 'I', 'Kenmerk bijgewerkt', v_desc || ' (' || v_kenmerk_key || ')');
             END IF;
+
+
+            WHEN 'INS' THEN
+
+
+            IF rec.kenmerk_niveau = 'C'
+            THEN
+	            	-- Kenmerk is inspectie-gerelateerd (dus via ins_srtcontrole)
+	            	-- Bepalen van soort controle, dat is op basis van de omschrijving van soort controle in kolom ins_srtgroep, icm rec.controle_type (1,2 of 3) via kolom rec.ins_srtdeel
+	            	v_errormsg := 'Fout bij bepalen soort controle ' || rec.ins_discipline;
+	            	SELECT   ins_srtcontrole_key
+	              INTO   v_srtinstallatie_key
+	              FROM   ins_srtcontrole
+	             	WHERE  ins_srtcontrole_omschrijving = rec.ins_srtgroep
+	             	AND    ins_srtcontrole_type = fac.safe_to_number(rec.ins_srtdeel);
+
+             	  v_desc := rec.srtkenmerk_omschrijving || ' (' || rec.ins_discipline || '/' || rec.ins_srtgroep || ')';
+            ELSE
+            	-- Kenmerk is object-gerelateerd (dus via ins_discipline, ins_srtgroep of ins_srtdeel)
+
+		            -- Bepaal discipline /  (soort)groep / objectsoort
+		            v_errormsg := 'Fout bij bepalen discipline ' || rec.ins_discipline;
+		            SELECT   ins_discipline_key
+		              INTO   v_discipline_key
+		              FROM   ins_discipline
+		             WHERE       ins_discipline_verwijder IS NULL
+		                     AND ins_discipline_omschrijving = rec.ins_discipline;
+		            v_srtinstallatie_key := v_discipline_key;
+
+		            IF rec.ins_srtgroep IS NOT NULL THEN
+		               v_errormsg := 'Fout bij bepalen groep ' || rec.ins_discipline || '/' || rec.ins_srtgroep;
+		               SELECT   ins_srtgroep_key
+		                 INTO   v_srtgroep_key
+		                 FROM   ins_srtgroep
+		                WHERE       ins_srtgroep_verwijder IS NULL
+		                        AND ins_discipline_key = v_discipline_key
+		                        AND ins_srtgroep_omschrijving = rec.ins_srtgroep;
+		               v_srtinstallatie_key := v_srtgroep_key;
+		            END IF;
+
+		            IF rec.ins_srtdeel IS NOT NULL THEN
+		               v_errormsg := 'Fout bij objectsoort ' || rec.ins_discipline || '/' || rec.ins_srtgroep || '/' || rec.ins_srtdeel;
+		               SELECT   ins_srtdeel_key
+		                 INTO   v_srtdeel_key
+		                 FROM   ins_srtdeel
+		                WHERE       ins_srtdeel_verwijder IS NULL
+		                        AND ins_srtgroep_key = v_srtgroep_key
+		                        AND ins_srtdeel_omschrijving = rec.ins_srtdeel;
+		               v_srtinstallatie_key := v_srtdeel_key;
+		            END IF;
+
+		            v_desc := rec.srtkenmerk_omschrijving || ' (' || rec.ins_discipline || '/' || rec.ins_srtgroep || '/' || rec.ins_srtdeel || ')';
+
+		        END IF;
+
+            -- Bestaat dit kenmerk al?
+            v_errormsg := 'Fout bij bepalen kenmerk ' || v_desc;
+            SELECT   COUNT ( * ), MIN(ins_kenmerk_key)
+              INTO   v_count, v_kenmerk_key
+              FROM   ins_kenmerk
+             WHERE       ins_srtkenmerk_key = v_srtkenmerk_key
+                     AND ins_kenmerk_niveau = rec.kenmerk_niveau
+                     AND ins_kenmerk_bewerkniveau = rec.kenmerk_type
+                     AND ins_srtinstallatie_key = v_srtinstallatie_key
+                     AND ins_kenmerk_verwijder IS NULL; 	-- MB: Let op, deze verbetering in de vorm van extra conditie bij INS erbij gezet,
+                     																		-- Is niet bij de andere (RES,MLD,BES,CNT) takken aangepast. Kan tzt eventueel indien hier meldingen over komen.
+                     																		-- Dit zorgt ervoor dat een verwijderd kenmerk in doel met dezelfde kenmerksoort NIET wordt beschouwd als kenmerk bestaat al, want dan wordt een update geprobeerd die faalt.
+                     																		-- Nu wordt een nieuw kenmerk van die soort aangemaakt. Zie details in call UWVA#32742
+
+            IF (v_count = 0)
+            THEN
+               -- Bestaat nog niet --> aanmaken
+
+               v_errormsg := 'Fout bij toevoegen kenmerk ' || v_desc;
+               INSERT INTO ins_kenmerk (
+                                           ins_srtkenmerk_key,
+                                           ins_srtinstallatie_key,
+                                           ins_kenmerk_niveau,
+                                           ins_kenmerk_bewerkniveau,
+                                           ins_kenmerk_verplicht,
+                                           ins_kenmerk_groep,
+                                           ins_kenmerk_volgnummer,
+                                           ins_kenmerk_default,
+                                           ins_kenmerk_verwijder,
+                                           ins_kenmerk_toonbaar,
+                                           ins_kenmerk_uniek,
+                                           ins_kenmerk_hint,
+                                           ins_kenmerk_regexp
+                           )
+                  VALUES   (
+                               v_srtkenmerk_key,
+                               v_srtinstallatie_key,
+                               rec.kenmerk_niveau,
+                               rec.kenmerk_type,
+                               fac.safe_to_number (rec.kenmerk_verplicht),
+                               fac.safe_to_number (rec.kenmerk_groep),
+                               fac.safe_to_number (rec.kenmerk_volgnummer),
+                               rec.kenmerk_default,
+                               TO_DATE (rec.kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS'),
+                               fac.safe_to_number (rec.kenmerk_toonbaar),
+                               fac.safe_to_number (rec.kenmerk_uniek),
+                               rec.kenmerk_hint,
+                               rec.kenmerk_regexp
+                           )
+               RETURNING   ins_kenmerk_key
+                    INTO   v_kenmerk_key;
+
+               fac.imp_writelog (p_import_key, 'I', 'Kenmerk toegevoegd', v_desc || ' (' || v_kenmerk_key || ')');
+            ELSE
+               -- Bestaat al wel --> updaten (dat kan ook verwijderen zijn!)
+
+               v_errormsg := 'Fout bij bijwerken kenmerk ' || v_desc;
+               UPDATE   ins_kenmerk
+                  SET   ins_srtkenmerk_key = v_srtkenmerk_key,
+                        ins_srtinstallatie_key = v_srtinstallatie_key,
+                        ins_kenmerk_niveau = rec.kenmerk_niveau,
+                        ins_kenmerk_bewerkniveau = rec.kenmerk_type,
+                        ins_kenmerk_verplicht = fac.safe_to_number (rec.kenmerk_verplicht),
+                        ins_kenmerk_groep = fac.safe_to_number (rec.kenmerk_groep),
+                        ins_kenmerk_volgnummer = fac.safe_to_number (rec.kenmerk_volgnummer),
+                        ins_kenmerk_default = rec.kenmerk_default,
+                        ins_kenmerk_verwijder = TO_DATE (rec.kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS'),
+                        ins_kenmerk_toonbaar = fac.safe_to_number (rec.kenmerk_toonbaar),
+                        ins_kenmerk_uniek = fac.safe_to_number (rec.kenmerk_uniek),
+                        ins_kenmerk_hint = rec.kenmerk_hint,
+                        ins_kenmerk_regexp = rec.kenmerk_regexp
+                WHERE       ins_kenmerk_key = v_kenmerk_key
+                        AND ins_kenmerk_verwijder IS NULL;
+
+               fac.imp_writelog (p_import_key, 'I', 'Kenmerk bijgewerkt', v_desc || ' (' || v_kenmerk_key || ')');
+            END IF;
+
+
          END CASE;
       END;
    END LOOP;
@@ -17549,7 +17692,7 @@ BEGIN
 
             --
             v_errormsg := 'Eigenaarafdeling (code) ongedefinieerd';
-            v_afdeling := SUBSTR (TRIM (v_afdeling), 1, 10);
+            v_afdeling := SUBSTR (TRIM (v_afdeling), 1, 15);
             IF (v_afdeling IS NULL)
             THEN
                fac.imp_writelog (p_import_key,
@@ -19382,5 +19525,77 @@ END;
 /
 
 
+-- MS-Exchange sync-import: onthoudt de laatste syncstate van een reserveerbare ruimte
+-- met betekenis: tot die markering ben ik bij.
+-- De importfile heeft voorlopig format key;syncstate
+CREATE OR REPLACE PROCEDURE fac_import_exchsync (p_import_key IN NUMBER)
+AS
+   v_newline          fac_imp_file.fac_imp_file_line%TYPE;                             -- Input line
+   v_fielddelimitor   VARCHAR2 (1);
+   v_errormsg         VARCHAR2 (200);
+   oracle_err_mes     VARCHAR2 (200);
+   header_is_valid    NUMBER;
+   --
+   v_res_ruimte_key   res_ruimte.res_ruimte_key%TYPE;
+   v_syncstate        res_ruimte.res_ruimte_syncstate%TYPE;
+
+   CURSOR c1
+   IS
+        SELECT *
+          FROM fac_imp_file
+         WHERE fac_import_key = p_import_key
+      ORDER BY fac_imp_file_index;
+
+   rec1               c1%ROWTYPE;
+BEGIN
+   v_fielddelimitor := ';';
+   header_is_valid := 0;
+
+   -- Clear old importdata: we kunnen wel zonder eigen tabel
+   SELECT fac_import_refkey
+     INTO v_res_ruimte_key
+     FROM fac_import
+    WHERE fac_import_key = p_import_key;
+
+   FOR rec1 IN c1 LOOP
+      BEGIN
+         v_newline := rec1.fac_imp_file_line;
+         fac.imp_getfield (v_newline, v_fielddelimitor, v_syncstate);
+
+         IF header_is_valid = 0
+         THEN
+            IF UPPER (TRIM (v_syncstate)) LIKE '%SYNCSTATE%'
+            THEN
+               header_is_valid := 1;
+               DBMS_OUTPUT.put_line ('hoeie header');
+            END IF;
+         ELSE
+            v_errormsg := 'Fout bij update van syncstate';
+            DBMS_OUTPUT.put_line ('echte data');
+
+            UPDATE res_ruimte
+               SET res_ruimte_syncstate = TRIM(v_syncstate)
+             WHERE res_ruimte_key = v_res_ruimte_key AND res_ruimte_extern_id IS NOT NULL;
+         END IF;
+      END;
+   END LOOP;
+EXCEPTION
+   WHEN OTHERS
+   THEN
+      oracle_err_mes := SUBSTR (SQLERRM, 1, 1000);
+      v_errormsg := oracle_err_mes;
+      fac.imp_writelog (p_import_key,
+                        'E',
+                        v_errormsg,
+                        'res_ruimte_key: ' || p_import_key);
+END;
+/
+
+CREATE OR REPLACE PROCEDURE fac_update_exchsync (p_import_key IN NUMBER)
+AS
+BEGIN
+   NULL;
+END;
+/
 
 REGISTERRUN('$Id$')

FAC/FAC_PACX.SRC

@@ -103,7 +103,7 @@ AS
       p_withchildren   IN   BOOLEAN
    );
 
-   PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_concise IN BOOLEAN);
+   PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_extra_key IN NUMBER, p_concise IN BOOLEAN);
    PROCEDURE create_bes_bestelling_node (p_key       IN NUMBER, p_concise IN BOOLEAN);
    PROCEDURE create_bes_bestelopdr_node (p_key IN NUMBER, p_concise IN BOOLEAN);
    PROCEDURE create_bez_afspraak_node (p_key       IN NUMBER,
@@ -212,6 +212,7 @@ AS
                                  'gebouw',
                                  'locatie',
                                  'deel',
+                                 'controle',
                                  'contract')
                    UNION ALL
                    SELECT 'PRS'
@@ -242,7 +243,7 @@ AS
                    SELECT 'INS'
                      FROM DUAL
                     WHERE p_xmlnode IN
-                                ('deel', 'melding', 'opdracht', 'contract')
+                                ('deel', 'melding', 'opdracht', 'contract', 'controle')
                    UNION ALL
                    SELECT 'CNT'
                      FROM DUAL
@@ -1222,6 +1223,26 @@ AS
       END IF;
    END;
 
+   PROCEDURE create_prs_relatietype_node (p_key IN NUMBER)
+   AS
+      v_omschrijving         prs_relatietype.prs_relatietype_omschrijving%TYPE;
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('relatietype');
+
+         SELECT prs_relatietype_omschrijving
+           INTO v_omschrijving
+           FROM prs_relatietype
+          WHERE prs_relatietype_key = p_key;
+
+         createxmltagvalue ('key', mynumbertochar (p_key));
+         createxmltagvalue ('omschrijving', v_omschrijving);
+
+         createclosetag ('relatietype');
+      END IF;
+   END;
+
    PROCEDURE create_prs_bedrijf_node (p_bedrijf_key   IN NUMBER,
                                       p_nodename      IN VARCHAR2)
    AS
@@ -1259,6 +1280,7 @@ AS
       v_xmldetails_loc       prs_bedrijf.prs_bedrijf_xmldetails_loc%TYPE;
       v_bes_limiet           prs_bedrijf.prs_bedrijf_bes_limiet%TYPE;
       v_bes_kosten           prs_bedrijf.prs_bedrijf_bes_kosten%TYPE;
+      v_relatietype_key      prs_bedrijf.prs_relatietype_key%TYPE;
 
       CURSOR c1
       IS
@@ -1304,7 +1326,8 @@ AS
                 mld_adres_key_fac,
                 prs_bedrijf_xmldetails_loc,
                 prs_bedrijf_bes_limiet,
-                prs_bedrijf_bes_kosten
+                prs_bedrijf_bes_kosten,
+                prs_relatietype_key
            INTO v_naam,
                 v_post_adres,
                 v_post_postcode,
@@ -1338,7 +1361,8 @@ AS
                 v_mld_adres_key_fac,
                 v_xmldetails_loc,
                 v_bes_limiet,
-                v_bes_kosten
+                v_bes_kosten,
+                v_relatietype_key
            FROM prs_bedrijf
           WHERE prs_bedrijf_key = p_bedrijf_key;
 
@@ -1384,6 +1408,8 @@ AS
             create_prs_contactpersoon_node (rec1.prs_contactpersoon_key);
          END LOOP;
 
+         create_prs_relatietype_node (v_relatietype_key);
+
          createclosetag (p_nodename);
       END IF;
    END;
@@ -2939,11 +2965,298 @@ AS
                 create_ins_deel_node (rec1.ins_deel_key, FALSE);
              END LOOP;
              create_fac_tracking_node ('deel', p_key);
+             -- TER OVERWEGING: loop voor create_ins_deelsrtcontr_node()
          END IF;
          createclosetag ('deel');
       END IF;
    END;
 
+   -- INSPECTIES
+   PROCEDURE create_ins_srtcontrole_node (p_key IN NUMBER, p_deel_key IN NUMBER)
+   AS
+      v_srtcontrole_omschrijving    ins_srtcontrole.ins_srtcontrole_omschrijving%TYPE;
+      v_srtcontrole_info            ins_srtcontrole.ins_srtcontrole_info%TYPE;
+      v_srtcontrole_periode         ins_srtcontrole.ins_srtcontrole_periode%TYPE;
+      v_srtcontrole_eenheid         ins_srtcontrole.ins_srtcontrole_eenheid%TYPE;
+      v_srtcontrole_bits            ins_srtcontrole.ins_srtcontrole_bits%TYPE;
+      v_srtcontrole_mode            ins_srtcontrole.ins_srtcontrole_mode%TYPE;
+      v_srtcontrole_groep           ins_srtcontrole.ins_srtcontrole_groep%TYPE;
+      v_srtcontrole_level           ins_srtcontrole.ins_srtcontrole_level%TYPE;
+      v_srtcontrole_kosten          ins_srtcontrole.ins_srtcontrole_kosten%TYPE;
+      v_srtcontrole_kosten2         ins_srtcontrole.ins_srtcontrole_kosten%TYPE;
+      v_srtcontrole_kosten3         ins_srtcontrole.ins_srtcontrole_kosten%TYPE;
+      v_srtcontrole_uren            ins_srtcontrole.ins_srtcontrole_uren%TYPE;
+      v_srtcontrole_materiaal       ins_srtcontrole.ins_srtcontrole_materiaal%TYPE;
+      v_srtcontrole_opmerking       ins_srtcontrole.ins_srtcontrole_opmerking%TYPE;
+      v_srtcontrole_eind            ins_srtcontrole.ins_srtcontrole_eind%TYPE;
+      v_srtcontrole_type            ins_srtcontrole.ins_srtcontrole_type%TYPE;
+      v_srtcontroledl_xcp_key       ins_srtcontroledl_xcp.ins_srtcontroledl_xcp_key%TYPE;
+      v_srtcontroledl_xcp_respijt   ins_srtcontroledl_xcp.ins_srtcontroledl_xcp_respijt%TYPE;
+      v_srtcontroledl_xcp_eind      ins_srtcontroledl_xcp.ins_srtcontroledl_xcp_eind%TYPE;
+      l_typetext                    fac_locale.fac_locale_tekst%TYPE;
+   BEGIN
+      DBMS_OUTPUT.put_line (p_key);
+      DBMS_OUTPUT.put_line (p_deel_key);
+
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('srtcontrole');
+
+         SELECT ins_srtcontrole_omschrijving,
+                ins_srtcontrole_info,
+                ins_srtcontrole_periode,
+                ins_srtcontrole_eenheid,
+                ins_srtcontrole_bits,
+                ins_srtcontrole_mode,
+                ins_srtcontrole_groep,
+                ins_srtcontrole_level,
+                ins_srtcontrole_kosten,
+                ins_srtcontrole_kosten2,
+                ins_srtcontrole_kosten3,
+                ins_srtcontrole_uren,
+                ins_srtcontrole_materiaal,
+                ins_srtcontrole_opmerking,
+                ins_srtcontrole_eind,
+                ins_srtcontrole_type
+           INTO v_srtcontrole_omschrijving,
+                v_srtcontrole_info,
+                v_srtcontrole_periode,
+                v_srtcontrole_eenheid,
+                v_srtcontrole_bits,
+                v_srtcontrole_mode,
+                v_srtcontrole_groep,
+                v_srtcontrole_level,
+                v_srtcontrole_kosten,
+                v_srtcontrole_kosten2,
+                v_srtcontrole_kosten3,
+                v_srtcontrole_uren,
+                v_srtcontrole_materiaal,
+                v_srtcontrole_opmerking,
+                v_srtcontrole_eind,
+                v_srtcontrole_type
+           FROM ins_srtcontrole
+          WHERE ins_srtcontrole_key = p_key;
+
+         -- check for effective exceptions and use those
+         IF p_deel_key IS NOT NULL
+         THEN
+            BEGIN
+               SELECT ins_srtcontroledl_xcp_key,
+                      ins_srtcontroledl_xcp_periode,
+                      ins_srtcontroledl_xcp_eenheid,
+                      ins_srtcontroledl_xcp_bits,
+                      ins_srtcontroledl_xcp_groep,
+                      ins_srtcontroledl_xcp_eind,
+                      ins_srtcontroledl_xcp_kosten,
+                      ins_srtcontroledl_xcp_kosten2,
+                      ins_srtcontroledl_xcp_kosten3,
+                      ins_srtcontroledl_xcp_uren,
+                      ins_srtcontroledl_xcp_materia
+                 INTO v_srtcontroledl_xcp_key,
+                      v_srtcontrole_periode,
+                      v_srtcontrole_eenheid,
+                      v_srtcontrole_bits,
+                      v_srtcontrole_groep,
+                      v_srtcontroledl_xcp_eind,
+                      v_srtcontrole_kosten,
+                      v_srtcontrole_kosten2,
+                      v_srtcontrole_kosten3,
+                      v_srtcontrole_uren,
+                      v_srtcontrole_materiaal
+                 FROM ins_srtcontroledl_xcp
+                WHERE ins_deel_key = p_deel_key AND ins_srtcontrole_key = p_key;
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  NULL;
+            END;
+         END IF;
+      END IF;
+
+      createxmltagvalue ('key', p_key);
+      createxmltagvalue ('omschrijving', v_srtcontrole_omschrijving);
+
+      IF v_srtcontroledl_xcp_key IS NOT NULL
+      THEN
+         createxmltagvalue ('isexception', 1);
+      END IF;
+
+      createxmltagvalue ('periode', v_srtcontrole_periode);
+      createxmltagvalue ('eenheid', v_srtcontrole_eenheid);
+      createxmltagvalue ('bits', v_srtcontrole_bits);
+      createxmltagvalue ('mode', v_srtcontrole_mode);
+      createxmltagvalue ('groep', v_srtcontrole_groep);
+      createxmltagvalue ('level', v_srtcontrole_level);
+      createxmltagvalue ('kosten', v_srtcontrole_kosten);
+      createxmltagvalue ('kosten2', v_srtcontrole_kosten2);
+      createxmltagvalue ('kosten3', v_srtcontrole_kosten3);
+      createxmltagvalue ('uren', v_srtcontrole_uren);
+      createxmltagvalue ('materiaal', v_srtcontrole_materiaal);
+      createxmltagvalue ('opmerking', v_srtcontrole_opmerking);
+      mydatetochar ('einddatum', v_srtcontrole_eind);
+
+      SELECT DECODE (v_srtcontrole_type,
+                     1, lcl.l ('lcl_ins_srtcontrole_insp'),
+                     2, lcl.l ('lcl_ins_srtcontrole_repl'),
+                     3, lcl.l ('lcl_ins_srtcontrole_cert'),
+                     '')
+        INTO l_typetext
+        FROM DUAL;
+
+      createxmltagvalue ('type', l_typetext);
+      createxmltagvalue ('type_code', v_srtcontrole_type);
+
+      createclosetag ('srtcontrole');
+   END;
+
+   PROCEDURE create_controle_kenmerken (p_key IN NUMBER)
+   AS
+      CURSOR c1
+      IS
+           SELECT k.ins_kenmerk_key,
+                  lcl.x ('ins_srtkenmerk_omschrijving',
+                         s.ins_srtkenmerk_key,
+                         ins_srtkenmerk_omschrijving)
+                     ins_srtkenmerk_omschrijving,
+                  s.ins_srtkenmerk_kenmerktype,
+                  s.fac_kenmerkdomein_key,
+                  s.ins_srtkenmerk_lengte,
+                  s.ins_srtkenmerk_dec,
+                  s.ins_srtkenmerk_nmin,
+                  s.ins_srtkenmerk_nmax,
+                  k.ins_kenmerk_default,
+                  NVL (k.ins_kenmerk_volgnummer, 0) volgnummer,
+                  lcl.x ('ins_srtkenmerk_dimensie', s.ins_srtkenmerk_key, ins_srtkenmerk_dimensie)
+                     dimensie,
+                  lcl.x ('ins_kenmerk_hint', k.ins_kenmerk_key, ins_kenmerk_hint) hint,
+                  v.ins_kmdeelsrtcontr_waarde,
+                  v.ins_kmdeelsrtcontr_aanmaak,
+                  v.ins_kmdeelsrtcontr_verwijder
+             FROM ins_kenmerk k,
+                  ins_srtkenmerk s,
+                  ins_deelsrtcontrole d,
+                  (SELECT v.ins_kenmerk_key,
+                          v.ins_kmdeelsrtcontr_waarde,
+                          v.ins_kmdeelsrtcontr_aanmaak,
+                          v.ins_kmdeelsrtcontr_verwijder
+                     FROM ins_kmdeelsrtcontr v
+                    WHERE v.ins_deelsrtcontrole_key = p_key) v
+            WHERE     k.ins_kenmerk_niveau = 'C'
+                  AND (k.ins_srtinstallatie_key = d.ins_srtcontrole_key OR k.ins_srtinstallatie_key IS NULL)
+                  AND d.ins_deelsrtcontrole_key = p_key
+                  AND k.ins_kenmerk_verwijder IS NULL
+                  AND ins_kenmerk_bewerkniveau = 'D'
+                  AND s.ins_srtkenmerk_verwijder IS NULL
+                  AND k.ins_srtkenmerk_key = s.ins_srtkenmerk_key
+                  AND v.ins_kenmerk_key(+) = k.ins_kenmerk_key
+         ORDER BY k.ins_kenmerk_volgnummer;
+
+      v_kenmerk_waarde      ins_kmdeelsrtcontr.ins_kmdeelsrtcontr_waarde%TYPE;
+      v_kenmerk_aanmaak     ins_kmdeelsrtcontr.ins_kmdeelsrtcontr_aanmaak%TYPE;
+      v_kenmerk_verwijder   ins_kmdeelsrtcontr.ins_kmdeelsrtcontr_verwijder%TYPE;
+   BEGIN
+      FOR rec1 IN c1 LOOP
+         v_kenmerk_aanmaak := rec1.ins_kmdeelsrtcontr_aanmaak;
+         v_kenmerk_verwijder := rec1.ins_kmdeelsrtcontr_verwijder;
+         v_kenmerk_waarde :=
+            find_kenmerk_waarde (rec1.ins_kmdeelsrtcontr_waarde,
+                                 rec1.ins_kenmerk_default,
+                                 rec1.ins_srtkenmerk_kenmerktype,
+                                 rec1.fac_kenmerkdomein_key,
+                                 rec1.ins_srtkenmerk_nmin,
+                                 rec1.ins_srtkenmerk_nmax);
+
+         createxmltagvalueattributes ('kenmerk',
+                                      'naam',
+                                      rec1.ins_srtkenmerk_omschrijving,
+                                      'type',
+                                      rec1.ins_srtkenmerk_kenmerktype,
+                                      'volgnummer',
+                                      rec1.volgnummer,
+                                      'key',
+                                      rec1.ins_kenmerk_key,
+                                      'aanmaak',
+                                      TO_CHAR (v_kenmerk_aanmaak, 'YYYYMMDD HH24:MI'),
+                                      rec1.fac_kenmerkdomein_key,
+                                      v_kenmerk_waarde);
+      END LOOP;
+   END;
+
+
+   PROCEDURE create_ins_deelsrtcontr_node (p_key IN NUMBER)
+   AS
+      v_deel_key                    ins_deelsrtcontrole.ins_deel_key%TYPE;
+      v_srtcontrole_key             ins_deelsrtcontrole.ins_srtcontrole_key%TYPE;
+      v_deelsrtcontrole_datum       ins_deelsrtcontrole.ins_deelsrtcontrole_datum%TYPE;
+      v_deelsrtcontrole_datum_org   ins_deelsrtcontrole.ins_deelsrtcontrole_datum_org%TYPE;
+      v_controlemode_key            ins_deelsrtcontrole.ins_controlemode_key%TYPE;
+      v_deelsrtcontrole_opmerking   ins_deelsrtcontrole.ins_deelsrtcontrole_opmerking%TYPE;
+      v_deelsrtcontrole_plandatum   ins_deelsrtcontrole.ins_deelsrtcontrole_plandatum%TYPE;
+      v_deelsrtcontrole_status      ins_deelsrtcontrole.ins_deelsrtcontrole_status%TYPE;
+      v_perslid_key                 ins_deelsrtcontrole.prs_perslid_key%TYPE;
+      v_controlemode_oms            ins_controlemode.ins_controlemode_oms%TYPE;
+      v_controlemode_opmerking      ins_controlemode.ins_controlemode_opmerking%TYPE;
+      v_controlemode_success        ins_controlemode.ins_controlemode_success%TYPE;
+      v_controlestatus_omschr       ins_controlestatuses.ins_controlestatus_omschr%TYPE;
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('controle');
+
+         SELECT ins_deel_key,
+                ins_srtcontrole_key,
+                ins_deelsrtcontrole_datum,
+                ins_deelsrtcontrole_datum_org,
+                dsc.ins_controlemode_key,
+                ins_deelsrtcontrole_opmerking,
+                ins_deelsrtcontrole_plandatum,
+                ins_deelsrtcontrole_status,
+                prs_perslid_key,
+                ins_controlemode_oms,
+                ins_controlemode_opmerking,
+                ins_controlemode_success,
+                ins_controlestatus_omschr
+           INTO v_deel_key,
+                v_srtcontrole_key,
+                v_deelsrtcontrole_datum,
+                v_deelsrtcontrole_datum_org,
+                v_controlemode_key,
+                v_deelsrtcontrole_opmerking,
+                v_deelsrtcontrole_plandatum,
+                v_deelsrtcontrole_status,
+                v_perslid_key,
+                v_controlemode_oms,
+                v_controlemode_opmerking,
+                v_controlemode_success,
+                v_controlestatus_omschr
+           FROM ins_deelsrtcontrole dsc, ins_controlemode cm, ins_controlestatuses cs
+          WHERE     dsc.ins_controlemode_key = cm.ins_controlemode_key(+)
+                AND cs.ins_controlestatus_key = dsc.ins_deelsrtcontrole_status
+                AND ins_deelsrtcontrole_key = p_key;
+
+         createxmltagvalue ('key', p_key);
+         createxmltagvalue ('status_key', v_deelsrtcontrole_status);
+         createxmltagvalue ('status', v_controlestatus_omschr);
+
+         create_ins_srtcontrole_node (v_srtcontrole_key, v_deel_key);
+         --createxmltagvalue ('controlemode', v_controlemode_key);
+         createxmltagvalue ('controle_omschrijving', v_controlemode_oms);
+         createxmltagvalue ('controle_opmerking', v_controlemode_opmerking);
+         createxmltagvalue ('controle_succes', v_controlemode_success);
+
+         mydatetochar ('datum', v_deelsrtcontrole_datum);
+         mydatetochar ('orgdatum', v_deelsrtcontrole_datum_org);
+         mydatetochar ('plandatum', v_deelsrtcontrole_plandatum);
+         createxmltagvalue ('opmerking', v_deelsrtcontrole_opmerking);
+         create_ins_deel_node (v_deel_key, TRUE);
+         create_prs_perslid_node (v_perslid_key, 'inspector', TRUE);
+         create_controle_kenmerken (p_key);
+         create_fac_tracking_node ('controle', p_key);
+         createclosetag ('controle');
+      END IF;
+   END;
+
+
    -- *
    -- * MLD zaken
    -- *
@@ -3066,8 +3379,36 @@ AS
    END;
 
    -- *
-   -- * MLD OPDRACHT kenmerken
+   -- * MLD OPDRACHT stuff
    -- *
+   PROCEDURE create_mld_opdr_note_node (p_key IN NUMBER)
+   AS
+      CURSOR c1
+      IS
+           SELECT mld_opdr_note_key,
+                  mld_opdr_note_aanmaak,
+                  prs_perslid_key,
+                  mld_opdr_note_omschrijving
+             FROM mld_opdr_note
+            WHERE mld_opdr_key = p_key
+         ORDER BY mld_opdr_note_key;
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+         createopentag ('notes');
+         FOR rec1 IN c1
+         LOOP
+            createopentag ('note');
+            createxmltagvalue ('key', rec1.mld_opdr_note_key);
+            mydatetochar ('aanmaak', rec1.mld_opdr_note_aanmaak);
+            createxmltagvalue ('omschrijving',
+                               rec1.mld_opdr_note_omschrijving);
+            create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
+            createclosetag ('note');
+         END LOOP;
+         createclosetag ('notes');
+      END IF;
+   END;
 
    PROCEDURE create_mld_opdr_kenmerken (p_key IN NUMBER)
    AS
@@ -3693,6 +4034,7 @@ AS
       v_groepoms              mld_stdmeldinggroep.mld_stdmeldinggroep_oms%TYPE;
       v_discipline_key        mld_stdmelding.mld_ins_discipline_key%TYPE;
       v_slabewaken            mld_stdmelding.mld_stdmelding_slabewaken%TYPE;
+      v_image                 mld_stdmelding.mld_stdmelding_image%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -3724,7 +4066,8 @@ AS
                        mld_stdmeldinggroep_oms)
                    mld_stdmelding_groep,
                 mld_ins_discipline_key,
-                mld_stdmelding_slabewaken
+                mld_stdmelding_slabewaken,
+                mld_stdmelding_image
            INTO v_omschrijving,
                 v_accepttijd_td,
                 v_accepttijd_e,
@@ -3742,7 +4085,8 @@ AS
                 v_groep,
                 v_groepoms,
                 v_discipline_key,
-                v_slabewaken
+                v_slabewaken,
+                v_image
            FROM mld_stdmelding stdm, mld_stdmeldinggroep smg
           WHERE stdm.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
             AND mld_stdmelding_key = p_key;
@@ -3807,6 +4151,7 @@ AS
          createxmltagvalue ('groepomschrijving', v_groepoms);
          createxmltagvalue ('notfrontend', v_notfrontend);
          createxmltagvalue ('slabewaken', v_slabewaken);
+         createxmltagvalue ('image', v_image);
          create_prs_kostensoort_node (v_prs_kostensoort_key);
          createxmltagvalue ('verwijder', v_verwijder);
          createclosetag ('stdmelding');
@@ -3816,10 +4161,13 @@ AS
    -- * create_MLD_MELDING_node
 
    PROCEDURE create_mld_melding_node (p_key            IN NUMBER,
-                                      p_withchildren   IN BOOLEAN)
+                                      p_extra_key      IN NUMBER,
+                                      p_withchildren   IN BOOLEAN,
+                                      p_withrelated    IN NUMBER DEFAULT 0)
    AS
       v_meldbron_nr              mld_melding.mld_meldbron_nr%TYPE;
       v_datum                    mld_melding.mld_melding_datum%TYPE;
+      v_onderwerp                mld_melding.mld_melding_onderwerp%TYPE;
       v_omschrijving             mld_melding.mld_melding_omschrijving%TYPE;
       v_opmerking                mld_melding.mld_melding_opmerking%TYPE;
       v_geprint                  mld_melding.mld_melding_geprint%TYPE;
@@ -3884,6 +4232,7 @@ AS
 
          SELECT NVL (mld_meldbron_nr, ''),
                 NVL (mld_melding_datum, ''),
+                NVL (mld_melding_onderwerp, ''),
                 NVL (mld_melding_omschrijving, ''),
                 NVL (mld_melding_opmerking, ''),
                 NVL (mld_melding_geprint, 0),
@@ -3923,6 +4272,7 @@ AS
                 mld_melding_kto_key
            INTO v_meldbron_nr,
                 v_datum,
+                v_onderwerp,
                 v_omschrijving,
                 v_opmerking,
                 v_geprint,
@@ -3966,10 +4316,13 @@ AS
                 AND mld_melding_key = p_key;
 
          createxmltagvalue ('key', p_key);
+         createxmltagvalue ('extra_key', p_extra_key);
          createxmltagvalue ('meldbron_nr', v_meldbron_nr);
          mydatetochar ('gemeld', v_datum);         -- deprecated, see tracking
          mydatetochar ('begindatum', v_datum);
+         createxmltagvalue ('onderwerp', v_onderwerp);
          createxmltagvalue ('omschrijving', v_omschrijving);
+         createxmltagvalue ('behandelwijze', fac.getsetting('mld_note_mode'));  //1=oldstyle via opmerking, 2=newstyle via notes
          createxmltagvalue ('opmerking', v_opmerking);
          createxmltagvalue ('geprint', v_geprint);
          createxmltagvalue ('kosten_klant', v_kosten_klant);
@@ -4060,7 +4413,7 @@ AS
          THEN
             FOR rec2 IN c2
             LOOP
-               create_mld_opdr_node (rec2.mld_opdr_key, TRUE);
+               create_mld_opdr_node (rec2.mld_opdr_key, NULL, TRUE);
             END LOOP;
             FOR rec3 IN c3
             LOOP
@@ -4068,7 +4421,7 @@ AS
             END LOOP;
          END IF;
 
-         create_mld_melding_node (v_parentkey, p_withchildren); --Zou zomaar NULL kunnen zijn, geeft niks.
+         create_mld_melding_node (v_parentkey, p_extra_key, p_withchildren); --Zou zomaar NULL kunnen zijn, geeft niks.
          -- Voor een workflow kan de (ene) root interessant zijn
          -- Dit doen we niet voor adhoc vervolgmeldingen
          -- Er is geen aanduiding bij de tag dat dit de root is, mocht dat
@@ -4076,7 +4429,7 @@ AS
          IF v_workflowstep_key IS NOT NULL AND v_start_key <> p_key
          THEN
             createxmltagvalue ('workflowstep', v_workflowstep_key);  -- als boolean te gebruiken
-            create_mld_melding_node (v_start_key, FALSE);
+            create_mld_melding_node (v_start_key, p_extra_key, FALSE);
          END IF;
          IF v_rsv_ruimte_key IS NOT NULL
          THEN
@@ -4085,9 +4438,12 @@ AS
 
          -- Deze melding kan betrekking hebben op een (andere) BROC
          -- Dan zal het wenselijk zijn daarvan hier ook info op te nemen
-         IF v_kto_key IS NOT NULL
+         -- Om oneindigheid te voorkomen doen we dat een maximaal aantal keer voor meldingen
+         IF v_kto_key IS NOT NULL AND p_withrelated < 5
          THEN
            createopentag ('referentie');
+           -- Weet niet wat je hier mee zou willen, maar het kost ook niks en biedt helderheid
+           createxmltagvalue ('referencelevel', p_withrelated+1);
            CASE v_kto_type
              WHEN 'B'
              THEN
@@ -4097,13 +4453,13 @@ AS
                 create_res_rsv_ruimte_node (v_kto_key, TRUE);
              WHEN 'O'
              THEN
-                create_mld_opdr_node (v_kto_key, TRUE);
+                create_mld_opdr_node (v_kto_key, NULL, TRUE);
              WHEN 'C'
              THEN
                 create_cnt_contract_node (v_kto_key, TRUE);
              WHEN 'M'
              THEN
-                create_mld_melding_node (v_kto_key, FALSE);
+                create_mld_melding_node (v_kto_key, p_extra_key, FALSE, p_withrelated + 1);
              WHEN 'X'
              THEN
                 create_bes_bestelopdr_node (v_kto_key, TRUE);
@@ -4123,10 +4479,20 @@ AS
    AS
       v_aantal       mld_opdr_materiaal.mld_opdr_materiaal_aantal%TYPE;
       v_code         fac_usrdata.fac_usrdata_code%TYPE;
+      v_groep        mld_opdr_materiaal.mld_opdr_materiaal_groep%TYPE;
+      v_extra1       mld_opdr_materiaal.mld_opdr_materiaal_extra1%TYPE;
+      v_extra2       mld_opdr_materiaal.mld_opdr_materiaal_extra2%TYPE;
+      v_extra3       mld_opdr_materiaal.mld_opdr_materiaal_extra3%TYPE;
       v_omschr       mld_opdr_materiaal.mld_opdr_materiaal_omschr%TYPE;
       v_stuksprijs   mld_opdr_materiaal.mld_opdr_materiaal_prijs%TYPE;
       v_volgnr       mld_opdr_materiaal.mld_opdr_materiaal_key%TYPE;
       v_verwijder    fac_usrdata.fac_usrdata_verwijder%TYPE;
+      v_eenheid      mld_opdr_materiaal.mld_opdr_materiaal_eenheid%TYPE;
+      v_eenheidcode  mld_opdr_materiaal.mld_opdr_materiaal_eenheidcode%TYPE;
+      v_info         mld_opdr_materiaal.mld_opdr_materiaal_info%TYPE;
+      v_btwcode      fin_btwtabelwaarde.fin_btwtabelwaarde_code%TYPE;
+      v_btwperc      fin_btwtabelwaarde.fin_btwtabelwaarde_perc%TYPE;
+      v_btwverlegd   fin_btwtabelwaarde.fin_btwtabelwaarde_verlegd%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -4134,26 +4500,58 @@ AS
 
          SELECT ma.mld_opdr_materiaal_aantal,
                 ma.mld_opdr_materiaal_prijs,
-                NVL(d.fac_usrdata_code, 'vm'),
-                NVL(d.fac_usrdata_omschr, ma.mld_opdr_materiaal_omschr),
-                NVL(d.fac_usrdata_volgnr, ma.mld_opdr_materiaal_key),
-                d.fac_usrdata_verwijder
+                COALESCE(d.fac_usrdata_code, ma.mld_opdr_materiaal_code),
+                COALESCE(d.fac_usrdata_omschr, ma.mld_opdr_materiaal_omschr),
+                COALESCE(d.fac_usrdata_volgnr, ma.mld_opdr_materiaal_key),
+                d.fac_usrdata_verwijder,
+                mld_opdr_materiaal_eenheid,
+                mld_opdr_materiaal_eenheidcode,
+                mld_opdr_materiaal_info,
+                fin_btwtabelwaarde_code,
+                COALESCE(fin_btwtabelwaarde_perc, 0),
+                fin_btwtabelwaarde_verlegd,
+                mld_opdr_materiaal_groep,
+                mld_opdr_materiaal_extra1,
+                mld_opdr_materiaal_extra2,
+                mld_opdr_materiaal_extra3
            INTO v_aantal,
                 v_stuksprijs,
                 v_code,
                 v_omschr,
                 v_volgnr,
-                v_verwijder
-           FROM mld_opdr_materiaal ma, fac_usrdata d
+                v_verwijder,
+                v_eenheid,
+                v_eenheidcode,
+                v_info,
+                v_btwcode,
+                v_btwperc,
+                v_btwverlegd,
+                v_groep,
+                v_extra1,
+                v_extra2,
+                v_extra3
+           FROM mld_opdr_materiaal ma, fac_usrdata d, fin_btwtabelwaarde b
           WHERE d.fac_usrdata_key (+) = ma.fac_usrdata_key
+            AND b.fin_btwtabelwaarde_key (+) = ma.fin_btwtabelwaarde_key
                 AND ma.mld_opdr_materiaal_key = p_key;
 
          createxmltagvalue ('code', v_code);
          createxmltagvalue ('volgnr', v_volgnr);
          createxmltagvalue ('omschrijving', v_omschr);
+         createxmltagvalue ('groep', v_groep);
+         createxmltagvalue ('extra1', v_extra1);
+         createxmltagvalue ('extra2', v_extra2);
+         createxmltagvalue ('extra3', v_extra3);
+         createxmltagvalue ('info', v_info);
          createxmltagvalue ('aantal', v_aantal);
+         createxmltagvalue ('eenheid', v_eenheid);
+         createxmltagvalue ('eenheidcode', v_eenheidcode);
          createxmltagvalue ('stuksprijs', v_stuksprijs);
          createxmltagvalue ('totaalprijs', v_aantal * v_stuksprijs);
+         createxmltagvalue ('btwbedrag', mynumbertochar (v_aantal * v_stuksprijs * v_btwperc/100 ));
+         createxmltagvalue ('btwcode', v_btwcode);
+         createxmltagvalue ('btwpercentage', mynumbertochar (v_btwperc));
+         createxmltagvalue ('btwverlegd', mynumbertochar (v_btwverlegd));
          mydatetochar ('verwijder', v_verwijder);
          createclosetag ('materialen');
       END IF;
@@ -4162,7 +4560,7 @@ AS
    -- * create_MLD_OPDR_node
    -- select xml.create_MLD_OPDR_node(7120) FROM DUAL
 
-   PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_concise IN BOOLEAN)
+   PROCEDURE create_mld_opdr_node (p_key IN NUMBER, p_extra_key IN NUMBER, p_concise IN BOOLEAN)
    AS
       v_mld_melding_key           mld_opdr.mld_melding_key%TYPE;
       v_mld_uitvoerende_keys      mld_opdr.mld_uitvoerende_keys%TYPE;
@@ -4293,6 +4691,7 @@ AS
                 AND mld_opdr_key = p_key;
 
          createxmltagvalue ('key', p_key);
+         createxmltagvalue ('extra_key', p_extra_key);
          createxmltagvalue ('melding_key', v_mld_melding_key);
          createxmltagvalue ('uitvoerende_keys', v_mld_uitvoerende_keys);
          createxmltagvalue ('statusopdr_key', v_statusopdr_key);
@@ -4342,10 +4741,11 @@ AS
 
          IF NOT p_concise
          THEN
-            create_mld_melding_node (v_mld_melding_key, FALSE);
+            create_mld_melding_node (v_mld_melding_key, p_extra_key, FALSE);
          END IF;
 
          create_fac_activiteit_node (v_activiteit_key);
+         create_mld_opdr_note_node (p_key);
          create_fac_tracking_node ('opdracht', p_key);
          createclosetag ('opdracht');
       END IF;
@@ -4750,7 +5150,7 @@ AS
          createxmltagvalue ('status', v_status);
          createxmltagvalue ('datum', v_datum);
          createxmltagvalue ('raming', v_raming);
-         create_mld_melding_node (v_mld_melding_key, FALSE);
+         create_mld_melding_node (v_mld_melding_key, NULL, FALSE);
          create_prs_perslid_node (v_prs_perslid_key, 'behandelaar', TRUE);
 
          FOR rec1 IN c1
@@ -6077,6 +6477,8 @@ AS
       v_prijs_dag        res_ruimte.res_ruimte_prijs_dag%TYPE;
       v_prijsfactor_intern res_ruimte.res_ruimte_prijsfactor_intern%TYPE;
       v_groep            res_ruimte.res_ruimte_groep%TYPE;
+      v_extern_id        res_ruimte.res_ruimte_extern_id%TYPE;
+      v_image            res_ruimte.res_ruimte_image%type;
 
       CURSOR c1 (k IN NUMBER)
       IS
@@ -6108,7 +6510,9 @@ AS
              res_ruimte_prijs_avond,
              res_ruimte_prijs_dag,
              res_ruimte_prijsfactor_intern,
-             res_ruimte_groep
+             res_ruimte_groep,
+             res_ruimte_extern_id,
+	         COALESCE(res_ruimte_opstel_image, res_ruimte_image)
         INTO v_bezoekers,
              v_opstelling,
              v_res_ruimte_key,
@@ -6124,7 +6528,9 @@ AS
              v_prijs_avond,
              v_prijs_dag,
              v_prijsfactor_intern,
-             v_groep
+             v_groep,
+             v_extern_id,
+             v_image
         FROM res_ruimte_opstelling ro, res_opstelling o, res_ruimte r
        WHERE     o.res_opstelling_key = ro.res_opstelling_key
              AND r.res_ruimte_key = ro.res_ruimte_key
@@ -6146,6 +6552,8 @@ AS
       createxmltagvalue ('prijs_dag', v_prijs_dag);
       createxmltagvalue ('prijsfactor_intern', v_prijsfactor_intern);
       createxmltagvalue ('groep', v_groep);
+      createxmltagvalue ('extern_id', v_extern_id);
+      createxmltagvalue ('image', v_image);
 
       FOR rec1 IN c1 (v_res_ruimte_key)
       LOOP
@@ -6497,6 +6905,7 @@ AS
       v_bezoekers_shown        res_rsv_ruimte.res_rsv_ruimte_bezoekers_shown%TYPE;
       v_cvab_mode              res_rsv_ruimte.res_rsv_ruimte_cvab_mode%TYPE;
       v_afgerond               res_rsv_ruimte.res_rsv_ruimte_afgerond%TYPE;
+      v_externnr               res_rsv_ruimte.res_rsv_ruimte_externnr%TYPE;
 
       CURSOR c2d
       IS
@@ -6560,7 +6969,8 @@ AS
              res_rsv_ruimte_dirtlevel,
              res_rsv_ruimte_bezoekers_shown,
              res_rsv_ruimte_cvab_mode,
-             res_rsv_ruimte_afgerond
+             res_rsv_ruimte_afgerond,
+             res_rsv_ruimte_externnr
         INTO v_reservering_key,
              v_ruimte_opstel_key,
              v_activiteit_key,
@@ -6590,7 +7000,8 @@ AS
              v_dirtlevel,
              v_bezoekers_shown,
              v_cvab_mode,
-             v_afgerond
+             v_afgerond,
+             v_externnr
         FROM res_rsv_ruimte rr, res_status_fo sf, res_status_bo sb
        WHERE     rr.res_status_bo_key = sb.res_status_bo_key(+)
              AND rr.res_status_fo_key = sf.res_status_fo_key(+)
@@ -6642,6 +7053,7 @@ AS
                                         FALSE);
          createxmltagvalue ('cvab_mode', v_cvab_mode);
          createxmltagvalue ('afgerond', v_afgerond);
+         createxmltagvalue ('externnr', v_externnr);
          createxmltagvalue ('dirtlevel', v_dirtlevel);
          create_res_kenmerken (p_key);
          create_fac_tracking_node ('reservering', p_key);
@@ -6663,7 +7075,7 @@ AS
 
          FOR rec4 IN c4
          LOOP
-            create_mld_melding_node (rec4.mld_melding_key, TRUE);  -- de opdrachtinfo is ook gewenst
+            create_mld_melding_node (rec4.mld_melding_key, NULL, TRUE);  -- de opdrachtinfo is ook gewenst
          END LOOP;
       END IF;
 
@@ -6857,7 +7269,8 @@ AS
                                 p_info       IN VARCHAR2,
                                 p_where      IN VARCHAR2,
                                 p_nodename   IN VARCHAR2,
-                                p_rowname    IN VARCHAR2)
+                                p_rowname    IN VARCHAR2,
+                                p_rapkey     IN NUMBER)
     AS
         v_xml_clob_length   NUMBER (10);
         v_xml_tag_length    NUMBER (10);
@@ -6885,8 +7298,8 @@ AS
                                      p_oms,
                                      'info',
                                      p_info,
-                                     NULL,
-                                     NULL);
+                                     'usrrap_key',
+                                     p_rapkey);
             createxmltagvalue ('where', p_where);
             ctx :=
                 DBMS_XMLGEN.newcontext('SELECT COLUMN_NAME, DATA_TYPE, DATA_LENGTH, DATA_PRECISION, NULLABLE, COLUMN_ID FROM user_tab_columns WHERE table_name = UPPER('''
@@ -7001,7 +7414,8 @@ AS
                            rinfo,
                            p_where,
                            NULL,
-                           NULL);
+                           NULL,
+                           p_key);
       END IF;
    END;
 
@@ -7273,13 +7687,17 @@ AS
       v_looptijd_van         cnt_contract.cnt_contract_looptijd_van%TYPE;
       v_kostenplaats_key     cnt_contract.prs_kostenplaats_key%TYPE;
       v_termijnkosten        cnt_contract.cnt_contract_termijnkosten%TYPE;
+      v_jaarkosten           cnt_contract.cnt_contract_termijnkosten%TYPE;  -- moet volstaan
       v_kostensoort_key      cnt_contract.prs_kostensoort_key%TYPE;
       v_opmerking            cnt_contract.cnt_contract_opmerking%TYPE;
       v_mantel_key           cnt_contract.cnt_contract_mantel_key%TYPE;
       v_rappeltermijn        cnt_termijn.cnt_termijn_omschrijving%TYPE;
       v_opzegtermijn         cnt_termijn.cnt_termijn_omschrijving%TYPE;
+      v_termijntermijn       cnt_termijn.cnt_termijn_omschrijving%TYPE;
+      v_termijntermijn_key   cnt_contract.cnt_contract_termijntermijn%TYPE;
       l_totaalgewicht        NUMBER;
       l_totaalkosten         cnt_contract.cnt_contract_kosten%TYPE;
+      l_jaarfactor           NUMBER;
       l_locatiekosten        cnt_contract.cnt_contract_kosten%TYPE;
       v_bestelopdr_key       cnt_contract.bes_bestelopdr_key%TYPE;
       CURSOR c1
@@ -7361,6 +7779,11 @@ AS
                        t2.cnt_termijn_key,
                        t2.cnt_termijn_omschrijving)
                    cnt_termijn_omschrijving2,
+                lcl.x ('cnt_termijn_omschrijving',
+                       t3.cnt_termijn_key,
+                       t3.cnt_termijn_omschrijving)
+                   cnt_termijn_omschrijving3,
+                c.cnt_contract_termijntermijn,
                 cnt_contract_versie,
                 cnt_contract_verlenging,
                 bes_bestelopdr_key
@@ -7392,12 +7815,15 @@ AS
                 v_mantel_key,
                 v_rappeltermijn,
                 v_opzegtermijn,
+                v_termijntermijn,
+                v_termijntermijn_key,
                 v_versie,
                 v_verlenging,
                 v_bestelopdr_key
-           FROM cnt_contract c, cnt_termijn t1, cnt_termijn t2
+           FROM cnt_contract c, cnt_termijn t1, cnt_termijn t2, cnt_termijn t3
           WHERE     c.cnt_contract_rappeltermijn = t1.cnt_termijn_key(+)
                 AND c.cnt_contract_opzegtermijn = t2.cnt_termijn_key(+)
+                AND c.cnt_contract_termijntermijn = t3.cnt_termijn_key(+)
                 AND cnt_contract_key = p_key;
 
          createxmltagvalue ('key', mynumbertochar (p_key));
@@ -7419,6 +7845,13 @@ AS
          createxmltagvalue ('verlenging', v_verlenging);
          createxmltagvalue ('kosten', v_kosten);
          createxmltagvalue ('termijnkosten', v_termijnkosten);
+         createxmltagvalue ('termijntermijn', v_termijntermijn);
+         l_jaarfactor := cnt.termijnjaarfactor(v_termijntermijn_key);
+         IF l_jaarfactor <> -1
+         THEN
+             v_jaarkosten := l_jaarfactor * v_termijnkosten;
+             createxmltagvalue ('jaarkosten', v_jaarkosten);
+         END IF;
          createxmltagvalue ('uurloon', v_uurloon);
          createxmltagvalue ('korting', v_korting);
          create_prs_bedrijf_node (v_bedrijf_key, 'bedrijf'); -- uitvoerder/huurder
@@ -7537,7 +7970,7 @@ AS
                   createxmltagvalue (
                      'opp',
                      mynumbertochar (rec3.cnt_contract_onrgoed_opp));
-                  create_mld_melding_node (rec3.cnt_mld_melding_key, FALSE);
+                  create_mld_melding_node (rec3.cnt_mld_melding_key, NULL, FALSE);
                   createxmltagvalue (
                      'status_key',
                      mynumbertochar (rec3.cnt_mutatie_status_key));
@@ -7827,7 +8260,7 @@ AS
             create_fin_factuurregel_node (rec1.fin_factuurregel_key);
          END LOOP;
 
-         create_mld_opdr_node (v_opdr_key, FALSE);
+         create_mld_opdr_node (v_opdr_key, NULL, FALSE);
          create_cnt_contract_node (v_contract_key, FALSE);
          create_bes_bestelopdr_node (v_bestelopdr_key, FALSE);
          create_prs_perslid_node (v_perslid_key_user, 'invoerder', TRUE);
@@ -7953,7 +8386,7 @@ AS
                CASE rec1.fin_verkoopfactuur_xmlnode
                   WHEN 'opdracht'
                   THEN
-                     create_mld_opdr_node (rec1.fin_verkoopfactuur_refkey, FALSE);
+                     create_mld_opdr_node (rec1.fin_verkoopfactuur_refkey, NULL, FALSE);
                   WHEN 'contract'
                   THEN
                      create_cnt_contract_node (rec1.fin_verkoopfactuur_refkey, FALSE);
@@ -8003,10 +8436,10 @@ AS
             create_prs_bedrijf_node (p_key, 'bedrijf');
          WHEN 'melding'
          THEN
-            create_mld_melding_node (p_key, TRUE);
+            create_mld_melding_node (p_key, p_extra, TRUE);
          WHEN 'opdracht'
          THEN
-            create_mld_opdr_node (p_key, p_concise);
+            create_mld_opdr_node (p_key, p_extra, p_concise);
          WHEN 'reservering'
          THEN -- Deelreservering
             create_res_reservering_node (p_key, p_extra);
@@ -8031,6 +8464,9 @@ AS
          WHEN 'deel'
          THEN
             create_ins_deel_node (p_key, p_concise);
+         WHEN 'controle'
+         THEN
+            create_ins_deelsrtcontr_node (p_key);
          WHEN 'srtdeel'
          THEN
             create_ins_srtdeel_node (p_key, p_concise);
@@ -8212,7 +8648,8 @@ AS
                         NULL,
                         p_where,
                         p_nodename,
-                        p_rowname);
+                        p_rowname,
+                        NULL);
       add_footer ('');
       RETURN aclob;
    END;

FAC/FAC_TAB.SRC

@@ -117,7 +117,7 @@ CREATE_TABLE(fac_functie, 0)
         DEFAULT 0
         NOT_NULL(fac_functie_discipline, fac_c_fac_functie_discipline),
     fac_functie_info
-        VARCHAR2(100),
+        VARCHAR2(320),
     CONSTRAINT fac_u_fac_functie UNIQUE(fac_functie_code)
 );
 
@@ -140,6 +140,8 @@ CREATE_TABLE(fac_groep, 0)
         DATE
         DEFAULT SYSDATE
         CONSTRAINT fac_c_fac_groep_aanmaak NOT NULL,
+    fac_groep_opmerking
+        VARCHAR2(320),
     CONSTRAINT fac_u_fac_groep_upper UNIQUE(fac_groep_upper)
 );
 
@@ -243,7 +245,7 @@ CREATE_TABLE(fac_usrdata, 0)
         NOT_NULL(fac_usrdata_aanmaak, fac_c_fac_usrdata_aanmaak),
     fac_usrdata_verwijder
         DATE,
-    CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrdata_upper, fac_usrtab_key, fac_usrdata_verwijder)
+    CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrtab_key, fac_usrdata_upper, fac_usrdata_verwijder)
 );
 
 /*
@@ -306,9 +308,20 @@ CREATE_TABLE(fac_usrrap, 0)
         DEFAULT 0
         NOT NULL
         CONSTRAINT fac_c_fac_usrrap_graph CHECK (fac_usrrap_graph IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_cond
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_cond CHECK (fac_usrrap_cond IN (0,1,2,3)), // 0=AND, 2=OR, +1 changeable
     fac_functie_key
         NUMBER(10)
-        CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key)
+        CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key),
+    fac_usrrap_graph_options // JSON
+        VARCHAR2(4000),
+    fac_usrrap_graph_type
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 // Note: this column is defined in PRS_TAB.SRC
 //  , prs_perslid_key
 //        NUMBER(10)
@@ -330,6 +343,8 @@ CREATE_TABLE(fac_usrrap_cols, 0)
     fac_usrrap_cols_column_name
         VARCHAR2(32)
         NOT_NULL(fac_usrrap_cols_column_name, fac_c_usrrap_cols_column_name),
+    fac_usrrap_cols_expression
+        VARCHAR2(4000),
     fac_usrrap_cols_caption
         VARCHAR2(60),
     fac_usrrap_cols_filter /* See lcl_rap_filterLOV */
@@ -348,7 +363,8 @@ CREATE_TABLE(fac_usrrap_cols, 0)
         VARCHAR2(1)
         DEFAULT 'G'
         NOT NULL
-        CONSTRAINT fac_c_usrrap_cols_group CHECK (fac_usrrap_cols_group IN ('G', 'S', 'C', 'A', 'H', 'D', 'W', 'M', 'Q', 'Y'))
+        CONSTRAINT fac_c_usrrap_cols_group CHECK (fac_usrrap_cols_group IN ('G', 'S', 'C', 'A', 'H', 'D', 'W', 'M', 'Q', 'Y')),
+    CONSTRAINT fac_u_fac_usrrap_cols1 UNIQUE(fac_usrrap_key, fac_usrrap_cols_column_name)
 );
 
 CREATE_TABLE(fac_usrgraph, 0)
@@ -541,7 +557,11 @@ CREATE_TABLE(fac_srtnotificatie, 0)
   fac_srtnotificatie_groep
     VARCHAR2(1),
   fac_srtnotificatie_delay
-    NUMBER(4)
+    NUMBER(4),
+  fac_srtnotificatie_gebouw
+    NUMBER(1)
+    DEFAULT 0
+    NOT_NULL(fac_srtnotificatie_gebouw, fac_c_fac_srtnotificatie_geb)
 );
 
 /*
@@ -667,7 +687,9 @@ CREATE_TABLE(fac_import, 0)
   fac_import_filenaam
      VARCHAR2 (256),
   fac_import_versie
-     VARCHAR2(30)
+     VARCHAR2(30),
+  fac_import_refkey
+     NUMBER(10)
 // Note: this column is defined in PRS_TAB.SRC
 //  prs_perslid_key
 //     NUMBER(10)
@@ -721,7 +743,8 @@ CREATE_TABLE(fac_export_app, 0)
     DATE,
   fac_export_app_aanmaak
     DATE
-    DEFAULT SYSDATE
+    DEFAULT SYSDATE,
+  CONSTRAINT fac_u_fac_export_app_code UNIQUE(fac_export_app_code)
 );
 
 -- Might still need some changes
@@ -1165,11 +1188,14 @@ CREATE_TABLE (fac_setting,0) (
     DEFAULT 'string'
     NOT_NULL(fac_setting_type, fac_c_setting_type),
   fac_setting_default
-    VARCHAR2(1024),
+    VARCHAR2(4000),
   fac_setting_pvalue
-    VARCHAR2(1024),
+    VARCHAR2(4000),
   fac_setting_datum
-    DATE
+    DATE,
+  fac_functie_key
+    NUMBER(10)
+    CONSTRAINT fac_r_setting_functie REFERENCES fac_functie(fac_functie_key)
 // Note: this column is defined in PRS_TAB.SRC
 // ,prs_perslid_key
 //  NUMBER(10) CONSTRAINT prs_perslid_key12 REFERENCES prs_perslid (prs_perslid_key)
@@ -1387,7 +1413,7 @@ CREATE_TABLE(fac_code2label, 0)
 CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
 (
    leveranciernr        VARCHAR2 (20),      -- prs_bedrijf.overeenkomstnr
-   ordernr              VARCHAR2 (15),      -- de code van de BROC
+   ordernr              VARCHAR2 (31),      -- de code van de BROC (optionally even prefixed although unsupported with standard import)
    factuurnr            VARCHAR2 (30),
    factuurdatum         VARCHAR2 (10),
    aantal               VARCHAR2 (10),      -- aantal geleverd (info)
@@ -1439,6 +1465,7 @@ CREATE_TABLE(fac_imp_menu, 0)
 );
 
 // PF: 1 anamorphe tabel voor alle modules
+// -- UWVA#32742:  flexkenmerken transport voor objecten
 CREATE_TABLE(fac_imp_flex, 0)
 (
    fac_kenmerkdomein_omschrijving   VARCHAR2(255),
@@ -1474,7 +1501,10 @@ CREATE_TABLE(fac_imp_flex, 0)
    bes_discipline               VARCHAR2(255),
    bes_srtgroep                 VARCHAR2(255),
    bes_srtdeel                  VARCHAR2(255),
-   cnt_discipline               VARCHAR2(255)
+   cnt_discipline               VARCHAR2(255),
+   ins_discipline               VARCHAR2(255),
+   ins_srtgroep                 VARCHAR2(255),
+   ins_srtdeel                  VARCHAR2(255)
 );
 
 
@@ -1659,7 +1689,7 @@ CREATE_TABLE(fac_imp_cnt, 0)
    beschrijving       VARCHAR2 (50),
    mantel_nr          VARCHAR2 (30),
    omschrijving       VARCHAR2 (1000),
-   afdeling           VARCHAR2 (10),
+   afdeling           VARCHAR2 (15),
    perslid_eig        VARCHAR2 (30),
    perslid_beh        VARCHAR2 (30),
    opmerking          VARCHAR2 (1000),

FAC/FAC_VIE.SRC

@@ -2109,6 +2109,125 @@ AS
             AND kmd.fac_kenmerkdomein_verwijder IS NULL
             AND cd.ins_discipline_verwijder IS NULL;
 
+-- UWVA#32742:  flexkenmerken transport voor objecten
+CREATE_VIEW(fac_v_exp_flex_ins, 0)
+AS
+   SELECT   fac_kenmerkdomein_omschrijving,
+            fac_kenmerkdomein_objectnaam,
+            fac_kenmerkdomein_kolomnaam,
+            fac_kenmerkdomein_kolomtxt,
+            fac_usrtab_naam,
+            ins_srtkenmerk_omschrijving srtkenmerk_omschrijving,
+            ins_srtkenmerk_kenmerktype srtkenmerk_kenmerktype,
+            ins_srtkenmerk_systeem srtkenmerk_systeem,
+            ins_srtkenmerk_lengte srtkenmerk_lengte,
+            ins_srtkenmerk_dec srtkenmerk_dec,
+            ins_srtkenmerk_nmin srtkenmerk_nmin,
+            ins_srtkenmerk_nmax srtkenmerk_nmax,
+            ins_srtkenmerk_dimensie srtkenmerk_dimensie,
+            ins_kenmerk_bewerkniveau kenmerk_type,
+            ins_kenmerk_niveau kenmerk_niveau,
+            ins_kenmerk_verplicht kenmerk_verplicht,
+            ins_kenmerk_groep kenmerk_groep,
+            ins_kenmerk_volgnummer kenmerk_volgnummer,
+            ins_kenmerk_default kenmerk_default,
+            ins_kenmerk_toonbaar kenmerk_toonbaar,
+            ins_kenmerk_uniek kenmerk_uniek,
+            ins_kenmerk_hint kenmerk_hint,
+            ins_kenmerk_regexp kenmerk_regexp,
+            TO_CHAR (ins_kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS') kenmerk_verwijder,
+            ins_discipline_omschrijving fclt_f_discipline,
+            ins_srtgroep_omschrijving fclt_f_groep,
+            ins_srtdeel_omschrijving fclt_f_objectsoort
+     FROM   (SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      NULL ins_srtgroep_omschrijving,
+                      NULL ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km, ins_srtkenmerk kms, fac_kenmerkdomein kmd, fac_usrtab fut, ins_discipline vak
+              WHERE       ins_kenmerk_niveau = 'D'
+                      AND km.ins_srtinstallatie_key = vak.ins_discipline_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      grp.ins_srtgroep_omschrijving,
+                      NULL ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_discipline vak,
+                      ins_srtgroep grp
+              WHERE       ins_kenmerk_niveau = 'G'
+                      AND grp.ins_discipline_key = vak.ins_discipline_key
+                      AND km.ins_srtinstallatie_key = grp.ins_srtgroep_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+                      AND grp.ins_srtgroep_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      grp.ins_srtgroep_omschrijving,
+                      sd.ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_discipline vak,
+                      ins_srtgroep grp,
+                      ins_srtdeel sd
+              WHERE       ins_kenmerk_niveau = 'S'
+                      AND grp.ins_discipline_key = vak.ins_discipline_key
+                      AND sd.ins_srtgroep_key = grp.ins_srtgroep_key
+                      AND km.ins_srtinstallatie_key = sd.ins_srtdeel_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+                      AND grp.ins_srtgroep_verwijder IS NULL
+                      AND sd.ins_srtdeel_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      (SELECT loc.fac_locale_xsl_tekst FROM fac_version v, fac_locale_xsl loc
+                      				WHERE COALESCE(v.fac_version_lang, 'NL') = LOC.FAC_LOCALE_XSL_LANG
+                      				AND LOC.FAC_LOCALE_XSL_LABEL = 'lcl_ins_inspectie'
+                      )
+                      || ' - ' ||
+                      (SELECT loc.fac_locale_xsl_tekst FROM fac_version v, fac_locale_xsl loc
+                      				WHERE COALESCE(v.fac_version_lang, 'NL') = LOC.FAC_LOCALE_XSL_LANG
+                      				AND LOC.FAC_LOCALE_XSL_LABEL = DECODE(ins_srtcontrole_type, 1, 'lcl_ins_srtcontrole_insp', 2, 'lcl_ins_srtcontrole_repl', 3, 'lcl_ins_srtcontrole_cert' , '?')
+                      ) ins_discipline_omschrijving,
+                      sc.ins_srtcontrole_omschrijving ins_srtgroep_omschrijving,
+                      TO_CHAR(sc.ins_srtcontrole_type) ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_srtcontrole sc
+              WHERE       ins_kenmerk_niveau = 'C'
+                      AND km.ins_srtinstallatie_key = sc.ins_srtcontrole_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key);
+
+
 -- Rapporten worden niet standaard aangemaakt bij gebruikerrs
 CREATE_VIEW(fac_v_rap_lcl_lang, 0) AS
   SELECT nl.fac_locale_xsl_label FCLT_F_LABEL,

FCLT.NMK

@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=25
-NEXTVERSION=26
-FILEVERSION=C
-NEXTCAREVERSION=28
+CURRENTVERSION=27
+NEXTVERSION=28
+FILEVERSION=b
+NEXTCAREVERSION=32
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 

FCLT.SRC

@@ -1,12 +1,14 @@
 -- [FCLT*.SQL]
 --
 -- Script to initialise a FACILITOR database schema in Oracle
--- Copyright 1996-2015 Facilitor bv, the Netherlands.
+-- Copyright 1996-2016 Facilitor bv, the Netherlands.
 -- All rights reserved!
 /*
  * $Revision$
  * $Id$
  */
+#define FCLT_CREATE
+
 #include "modules.h"
 #include "comsql.h"
 
@@ -44,10 +46,10 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2015 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2016 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
 PROMPT
-PROMPT This is the generated list-file of FCLT _DBV_STRING.sql which was used
-PROMPT to create the FACILITOR(r) _DBV_STRING schema in Oracle
+PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
+PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
 PROMPT
 
 SET LINESIZE 1000
@@ -159,5 +161,5 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
 PROMPT
 PROMPT Your schema initialisation is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1992-2016 Facilitor bv, the Netherlands. All rights reserved.
 SPOOL OFF

FIN/FIN_IND.SRC

@@ -7,6 +7,7 @@
 CREATE INDEX fin_i_fin_factuur1 ON fin_factuur(mld_opdr_key);
 CREATE INDEX fin_i_fin_factuur2 ON fin_factuur(cnt_contract_key);
 CREATE INDEX fin_i_fin_factuur3 ON fin_factuur(bes_bestelopdr_key);
+CREATE INDEX fin_i_fin_factuur4 ON fin_factuur(fin_factuur_statuses_key, fin_factuur_verwijder);
 CREATE INDEX fin_i_fin_factuurregel1 ON fin_factuurregel(fin_factuur_key);
 CREATE INDEX fin_i_fin_factuurnote1 ON fin_factuur_note(fin_factuur_key);
 CREATE INDEX fin_i_fin_verkoopfactuur1 ON fin_verkoopfactuur(fin_verkoopfactuur_refkey, fin_verkoopfactuur_xmlnode);

FIN/FIN_PAC.SRC

@@ -670,7 +670,7 @@ AS
          SELECT   DISTINCT COALESCE (btw.fin_btwtabel_key, fin.getdefaultbtwtabelkey ()) btwtabel_key
            FROM   cnt_contract c, prs_bedrijf bd, fin_btwtabel btw
           WHERE       btw.fin_btwtabel_key(+) = bd.fin_btwtabel_key
-                  AND bd.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+                  AND bd.prs_bedrijf_key(+) = c.cnt_prs_bedrijf_key
                   AND c.cnt_contract_key = p_ckey;
 
       CURSOR mld_btwtabel

FIN/FIN_TAB.SRC

@@ -57,6 +57,10 @@ ALTER TABLE prs_bedrijf
         ADD fin_btwtabel_key NUMBER(10)
  CONSTRAINT prs_r_fin_btwtabel_key1 REFERENCES fin_btwtabel(fin_btwtabel_key);
 
+ALTER TABLE mld_opdr_materiaal
+        ADD fin_btwtabelwaarde_key NUMBER(10)
+ CONSTRAINT mld_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
+
 CREATE_TABLE(fin_factuur,0)
 (
   fin_factuur_key

FIN/FIN_VIE.SRC

@@ -185,5 +185,282 @@ AS
           AND f.fin_factuur_statuses_key = fs.fin_factuur_statuses_key
           AND f.fin_factuur_verwijder IS NULL;
 
+// Dit is strict geen fin view, maar het is de UDR-versie van het kostenoverzicht
+// dat bedragen rapporteert over de BROC.
+CREATE_VIEW(fin_v_udr_kostenoverzicht, 0)
+(
+   datum,
+   aanvrager,
+   organisatie,
+   categorie,
+   referentie,
+   bedrag,
+   status,
+   kostenplaatsgroep,
+   kostenplaatsnr,
+   kostenplaats,
+   kostensoortgroep,
+   kostensoortnr,
+   kostensoort,
+   ordernr,
+   locatie,
+   district,
+   fclt_3d_locatie_key,
+   fclt_3d_afdeling_key
+)
+AS
+     SELECT datum,
+               p.prs_perslid_naam
+            || NVL2 (p.prs_perslid_voorletters, ', ' || p.prs_perslid_voorletters, '')
+            || NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
+            || NVL2 (p.prs_perslid_voornaam, ' (' || p.prs_perslid_voornaam || ')', '')
+               aanvrager,
+            d.prs_afdeling_naam organisatie,
+            categorie,
+            categorienummer,
+            SUM (bedrag) bedrag,
+            status,
+            kpg.prs_kostenplaatsgrp_oms,
+            k.prs_kostenplaats_nr,
+            lcl.x ('prs_kostenplaats_omschrijving',
+                   k.prs_kostenplaats_key,
+                   k.prs_kostenplaats_omschrijving),
+            ksg.prs_kostensoortgrp_oms,
+            ks.prs_kostensoort_oms,
+            ks.prs_kostensoort_opmerking,
+            ordernr,
+            alg_locatie_code,
+            alg_district_omschrijving,
+            alg_locatie_key,
+            d.prs_afdeling_key
+       FROM (SELECT rr.prs_kostenplaats_key,
+                    rr.res_rsv_ruimte_van datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_ruimte_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    (SELECT MAX (g.alg_locatie_key)
+                       FROM alg_ruimte r,
+                            alg_verdieping v,
+                            alg_gebouw g,
+                            res_alg_ruimte ar
+                      WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                            AND ar.alg_ruimte_key = r.alg_ruimte_key
+                            AND r.alg_verdieping_key = v.alg_verdieping_key
+                            AND v.alg_gebouw_key = g.alg_gebouw_key
+                            AND ar.res_ruimte_key = ro.res_ruimte_key)
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_ruimte_opstelling ro,
+                    res_ruimte ru,
+                    res_discipline dis,
+                    res_status_bo s
+              WHERE     ru.res_ruimte_prijs <> 0
+                    AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                    AND ro.res_ruimte_key = ru.res_ruimte_key
+                    AND s.res_status_bo_key = rr.res_status_bo_key
+                    AND ru.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT rr.prs_kostenplaats_key,
+                    ra.res_rsv_artikel_levering datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_artikel_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    COALESCE (
+                       (SELECT g.alg_locatie_key
+                          FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
+                         WHERE     rr.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key),
+                       (SELECT MAX (g.alg_locatie_key)
+                          FROM alg_ruimte r,
+                               alg_verdieping v,
+                               alg_gebouw g,
+                               res_alg_ruimte ar,
+                               res_ruimte_opstelling ro
+                         WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                               AND ar.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key
+                               AND ar.res_ruimte_key = ro.res_ruimte_key
+                               AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key))
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_v_aanwezigrsv_artikel ra,
+                    res_artikel a,
+                    res_discipline dis,
+                    res_status_bo s
+              WHERE     COALESCE (ra.res_rsv_artikel_prijs, a.res_artikel_prijs) <> 0
+                    AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+                    AND ra.res_artikel_key = a.res_artikel_key
+                    AND s.res_status_bo_key = ra.res_status_bo_key
+                    AND a.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT rr.prs_kostenplaats_key,
+                    rd.res_rsv_deel_van datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_deel_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    COALESCE (
+                       (SELECT g.alg_locatie_key
+                          FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
+                         WHERE     rr.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key),
+                       (SELECT MAX (g.alg_locatie_key)
+                          FROM alg_ruimte r,
+                               alg_verdieping v,
+                               alg_gebouw g,
+                               res_alg_ruimte ar,
+                               res_ruimte_opstelling ro
+                         WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                               AND ar.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key
+                               AND ar.res_ruimte_key = ro.res_ruimte_key
+                               AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key))
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_v_aanwezigrsv_deel rd,
+                    res_deel d,
+                    res_discipline dis,
+                    res_status_bo,
+                    res_status_bo s
+              WHERE     d.res_deel_prijs <> 0
+                    AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
+                    AND rd.res_deel_key = d.res_deel_key
+                    AND s.res_status_bo_key = rd.res_status_bo_key
+                    AND d.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT o.prs_kostenplaats_key,
+                    o.mld_opdr_datumbegin datum,
+                    m.prs_perslid_key prs_perslid_key,
+                    mdis.ins_discipline_omschrijving categorie,
+                       sd.ins_srtdiscipline_prefix
+                    || m.mld_melding_key
+                    || '/'
+                    || o.mld_opdr_bedrijfopdr_volgnr
+                       categorienummer,
+                    COALESCE (o.mld_opdr_kosten, 0) bedrag,
+                    s.mld_statusopdr_omschrijving status,
+                    'MLD' module,
+                    COALESCE (s.prs_kostensoort_key, mdis.prs_kostensoort_key) prs_kostensoort_key,
+                    o.mld_opdr_ordernr ordernr,
+                    o.mld_opdr_key kostenplaats_item_key,
+                    -1 kostenplaats_item_child_key,
+                    m.mld_alg_locatie_key locatie_key
+               FROM mld_opdr o,
+                    mld_typeopdr ot,
+                    mld_melding m,
+                    mld_stdmelding s,
+                    mld_discipline mdis,
+                    ins_srtdiscipline sd,
+                    mld_statusopdr s
+              WHERE     o.mld_opdr_kosten <> 0
+                    AND o.mld_typeopdr_key = ot.mld_typeopdr_key
+                    AND ot.mld_typeopdr_kosten = 1
+                    AND o.mld_melding_key = m.mld_melding_key
+                    AND s.mld_statusopdr_key = o.mld_statusopdr_key
+                    AND m.mld_stdmelding_key = s.mld_stdmelding_key
+                    AND mdis.ins_discipline_key = s.mld_ins_discipline_key
+                    AND mdis.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
+                    AND o.mld_statusopdr_key NOT IN (1, 2, 3, 4, 10)
+             UNION ALL
+             SELECT b.prs_kostenplaats_key,
+                    bo.bes_bestelopdr_datum datum,
+                    b.prs_perslid_key prs_perslid_key,
+                    'Bestelling' categorie,
+                    TO_CHAR (b.bes_bestelling_key) categorienummer,
+                    (boi.bes_bestelopdr_item_aantal * boi.bes_bestelopdr_item_prijs) bedrag,
+                    s.bes_bestelopdrstatuses_omschr status,
+                    'BES' module,
+                    bdis.prs_kostensoort_key,
+                    b.bes_bestelling_ordernr ordernr,
+                    b.bes_bestelling_key kostenplaats_item_key,
+                    -1 kostenplaats_item_child_key,
+                    (SELECT alg_locatie_key
+                       FROM mld_adres ma
+                      WHERE ma.mld_adres_key = b.mld_adres_key_lev)
+                       locatie_key
+               FROM bes_bestelling b,
+                    bes_bestelling_item bi,
+                    bes_bestelopdr bo,
+                    bes_bestelopdr_item boi,
+                    bes_srtdeel isd,
+                    bes_srtgroep isg,
+                    bes_discipline bdis,
+                    bes_bestelopdrstatuses s
+              WHERE     b.bes_bestelling_key = bi.bes_bestelling_key
+                    AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                    AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
+                    AND s.bes_bestelopdrstatuses_key = bo.bes_bestelopdr_status
+                    AND bi.bes_srtdeel_key = isd.bes_srtdeel_key
+                    AND isd.bes_srtgroep_key = isg.bes_srtgroep_key
+                    AND isg.ins_discipline_key = bdis.ins_discipline_key
+                    AND bo.bes_bestelopdr_status IN (4, 6, 7)) tab,
+            prs_kostenplaats k,
+            prs_kostenplaatsgrp kpg,
+            prs_kostensoort ks,
+            prs_kostensoortgrp ksg,
+            prs_perslid p,
+            prs_v_afdeling d,
+            alg_locatie l,
+            alg_district d
+      WHERE     tab.prs_kostenplaats_key(+) = k.prs_kostenplaats_key
+            AND tab.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+            AND k.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
+            AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
+            AND tab.prs_perslid_key = p.prs_perslid_key(+)
+            AND p.prs_afdeling_key = d.prs_afdeling_key(+)
+            AND tab.locatie_key = l.alg_locatie_key(+)
+            AND l.alg_district_key = d.alg_district_key(+)
+            AND datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')
+   GROUP BY k.prs_kostenplaats_nr,
+            lcl.x ('prs_kostenplaats_omschrijving',
+                   k.prs_kostenplaats_key,
+                   k.prs_kostenplaats_omschrijving),
+            datum,
+               p.prs_perslid_naam
+            || NVL2 (p.prs_perslid_voorletters, ', ' || p.prs_perslid_voorletters, '')
+            || NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
+            || NVL2 (p.prs_perslid_voornaam, ' (' || p.prs_perslid_voornaam || ')', ''),
+            d.prs_afdeling_naam,
+            d.prs_afdeling_key,
+            categorie,
+            categorienummer,
+            status,
+            kpg.prs_kostenplaatsgrp_oms,
+            ksg.prs_kostensoortgrp_oms,
+            ks.prs_kostensoort_oms,
+            ks.prs_kostensoort_opmerking,
+            ordernr,
+            ksg.prs_kostensoortgrp_oms,
+            alg_locatie_key,
+            alg_district_omschrijving,
+            alg_locatie_code;
+
 REGISTERRUN('$Id$')
 #endif // FIN

INS/INSSQL.H

@@ -184,8 +184,6 @@
     END;                                                                       \
  END IF
 
-#ifndef MS_SQL
-
 #define INS_CHECK_NOG_REFERENCES(tabel,tabel_verwijder_veld,reference_view,    \
     reference_verwijder_veld, key_veld, message)                               \
  DECLARE                                                                       \
@@ -206,19 +204,4 @@
         APPLICATION_ERROR(-20000,message);                                     \
  END
 
-#else
-
-#define INS_CHECK_NOG_REFERENCES(tabel,tabel_verwijder_veld,reference_view,    \
-    reference_verwijder_veld, key_veld, message)                               \
-    IF :new.tabel_verwijder_veld IS NOT NULLDATUM _THEN                        \
-      if (  SELECT count(*)                                                    \
-            FROM reference_view                                                \
-            WHERE reference_view.key_veld = :old.key_veld                      \
-              AND reference_view.reference_verwijder_veld IS NULL)>0 _THEN     \
-        APPLICATION_ERROR(-20000,message);                                     \
-      _END_IF                                                                  \
-    _END_IF
-
-#endif
-
 #endif // _INSSQL_H

INS/INS_IND.SRC

@@ -39,6 +39,8 @@ CREATE UNIQUE INDEX ins_i_ins_disc_params1 ON ins_disc_params(ins_discipline_key
 
 CREATE UNIQUE INDEX ins_i_ins_deel_state_hist1 ON ins_deel_state_history(ins_deel_key, ins_deel_statedate);
 
+CREATE INDEX ins_i_ins_deelsrtcontrole1 ON ins_deelsrtcontrole(ins_deelsrtcontrole_status, ins_deel_key);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_INI.SRC

@@ -23,6 +23,10 @@ INSERT INTO fac_usrrap
              0
             );
 
+DEF_STATUS('controle', 0, 'lcl_ins_controle_pending');
+DEF_STATUS('controle', 2, 'lcl_ins_controle_gestart');
+DEF_STATUS('controle', 5, 'lcl_ins_controle_afgemeld');
+DEF_STATUS('controle', 6, 'lcl_ins_controle_verwerkt');
 
 REGISTERONCE('$Id$')
 

INS/INS_PAC.SRC

@@ -8,6 +8,10 @@ CREATE OR REPLACE PACKAGE ins AS
     FUNCTION delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN;
     FUNCTION get_description(LPNName   IN VARCHAR2, CondKey   IN NUMBER, Prefix    IN VARCHAR2) RETURN VARCHAR2;
     FUNCTION sprintf (ps IN varchar2, pins_deel_key IN number) RETURN varchar2;
+    FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number) RETURN varchar2;
+    FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
+    FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
+    PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
 END ins;
 /
 
@@ -176,21 +180,199 @@ CREATE OR REPLACE PACKAGE BODY ins AS
              INTO   lins_deel_omschrijving
              FROM   ins_deel
             WHERE   ins_deel_key = pins_deel_key;
-            s :=
-               REPLACE (s,
-                        '##DESC##',
-                        lins_deel_omschrijving
-                       );
+           s :=  REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key));
          END IF;
 
        RETURN s;
     END;
 
+    FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number)
+       RETURN varchar2
+    IS
+       s varchar2 (2048 CHAR);
+    BEGIN
+       s := ps;
+         IF INSTR2 (s, '#') > 0
+         THEN
+           s :=  REPLACE (s, '##KEY##', TO_CHAR (pins_deelsrtcontr_key));
+         END IF;
+
+       RETURN s;
+    END;
+
+    -- Berekent de n-de (p_steps) controledatum na p_date.
+    -- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
+    -- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidite datum is, dan deze weer teruggeven).
+    -- steps = n: n-volgende vanaf meegegeven datum (p_date). Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
+    FUNCTION nextcyclusdate (p_insdeel     IN NUMBER,
+                             p_srtcontrole IN NUMBER,
+                             p_steps       IN NUMBER DEFAULT 0)
+        RETURN DATE
+    IS
+        inspdate   DATE;
+    BEGIN
+        SELECT inspectie_next
+          INTO inspdate
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+
+                SELECT fac.nextcyclusdate (COALESCE ( (SELECT GREATEST (COALESCE (idsc.ins_deelsrtcontrole_plandatum,
+                                                                                  CASE di.ins_srtcontrole_mode
+                                                                                  WHEN 0
+                                                                                  THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                                  ELSE idsc.ins_deelsrtcontrole_datum END),
+                                                                                  CASE di.ins_srtcontrole_mode
+                                                                                  WHEN 0
+                                                                                  THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                                  ELSE idsc.ins_deelsrtcontrole_datum
+                                                                                  END)
+                                                                ins_deelsrtcontrole_datum
+                                                         FROM ins_deelsrtcontrole idsc
+                                                        WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                          AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                          AND idsc.ins_deel_key = di.ins_deel_key
+                                                          AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
+                                                                                                FROM ins_deelsrtcontrole idsc2
+                                                                                               WHERE idsc2.ins_deel_key = di.ins_deel_key
+                                                                                                 AND idsc2.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                                                                 AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
+                                                      di.ins_deel_aanmaak),
+                                           di.ins_srtcontrole_mode,
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                           p_steps
+                                          ) inspectie_next
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
+
+        RETURN inspdate;
+    END;
+
+    FUNCTION nextcyclusdatesteps (p_insdeel     IN NUMBER,
+                                  p_srtcontrole IN NUMBER,
+                                  p_steps       IN NUMBER DEFAULT 1)     -- Standaard beginnen te tellen bij 1.
+        RETURN NUMBER
+    IS
+        lsteps     NUMBER;
+    BEGIN
+        SELECT inspectie_steps
+          INTO lsteps
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+                SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT COALESCE(idsc.ins_deelsrtcontrole_plandatum, idsc.ins_deelsrtcontrole_datum_org) ins_deelsrtcontrole_datum
+                                                               FROM ins_deelsrtcontrole idsc
+                                                              WHERE di.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                                                                AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                                AND idsc.ins_deel_key = di.ins_deel_key
+                                                                AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
+                                                                                                      FROM ins_deelsrtcontrole idsc2
+                                                                                                      WHERE idsc2.ins_deel_key = p_insdeel
+                                                                                                      AND idsc2.ins_srtcontrole_key = p_srtcontrole
+                                                                                                       AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
+                                                             ins_deel_aanmaak),
+                                                di.ins_srtcontrole_mode,
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                                p_steps
+                                               ) inspectie_steps
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
+
+        RETURN lsteps;
+    END;
+
+    -- Geef deelsrtcontrolekey, gewenste status en userkey, en de status wortdt
+    -- gezet, waarbij zonodig (indien verandering) een trackrecord wordt gemaakt
+    -- Als de status niet wijzigt, wordt ook geen trackrecord gemaakt
+    PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER)
+    AS
+       currentstatus ins_deelsrtcontrole.ins_deelsrtcontrole_status%TYPE;
+       newstatus ins_deelsrtcontrole.ins_deelsrtcontrole_status%TYPE;
+       eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
+    BEGIN
+       SELECT   ins_deelsrtcontrole_status
+         INTO   currentstatus
+         FROM   ins_deelsrtcontrole
+        WHERE   ins_deelsrtcontrole_key = pdlsrtcontrkey;
+       CASE pstatus
+          WHEN 0  -- Gepland
+          THEN
+             newstatus :=  pstatus;
+          WHEN 2  -- In behandeling
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCBE';
+          WHEN 5  -- Afgemeld
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCAF';
+          WHEN 6  -- Verwerkt
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCVE';
+          ELSE
+             -- Invalid statuschange or no change
+             newstatus :=  NULL;
+       END CASE;
+       IF newstatus IS NOT NULL
+       THEN
+          -- vooralsnog lopen de notificaties 1-op-1 met de tracking
+          -- noticode :=  eventcode;
+          UPDATE   ins_deelsrtcontrole
+             SET   ins_deelsrtcontrole_status = newstatus
+           WHERE   ins_deelsrtcontrole_key = pdlsrtcontrkey;
+          -- We know that trackaction doesnt do tracking if eventcode is null
+          fac.trackaction (eventcode, pdlsrtcontrkey, puserkey, NULL, NULL);
+       END IF;
+    END;
+
 END ins;
 /
 
-
-
 REGISTERRUN('$Id$')
 
 #endif  // INS

INS/INS_SEQ.SRC

@@ -23,6 +23,7 @@ CREATE SEQUENCE ins_s_ins_compositie_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_srtdeel_comp_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_deel_state_hist_key MINVALUE 1;
 
+CREATE SEQUENCE ins_s_ins_scenario_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_srtcontrole_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_controlemode_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_deelsrtcontrole_key MINVALUE 1;

INS/INS_TAB.SRC

@@ -384,6 +384,29 @@ CREATE_TABLE(ins_deel_state_history, 0)
         VARCHAR2(320)
 );
 
+CREATE_TABLE(ins_scenario, 0)
+(
+    ins_scenario_key
+        NUMBER(10)
+        CONSTRAINT insk_ins_scenario_key PRIMARY KEY,
+    ins_scenario_omschrijving
+        VARCHAR2(30),
+        NOT_NULL(ins_scenario_omschrijving, ins_r_ins_scenario_omschr),
+    ins_scenario_status
+        NUMBER(3), /* not ietwat ongedefinieerd  */
+    ins_scenario_opmerking
+        VARCHAR2(4000),
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT ins_r_prs_perslid_key0 REFERENCES prs_perslid(prs_perslid_key),
+    ins_scenario_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    ins_scenario_verwerkt
+        DATE
+);
+
 /* welke inspecties, controles etc gelden er voor objecten van deze soorten */
 CREATE_TABLE(ins_srtcontrole, 0)
 (
@@ -404,7 +427,7 @@ CREATE_TABLE(ins_srtcontrole, 0)
     ins_srtcontrole_groep  // vrijblijvende categorisering voor groepering in rapportages
         VARCHAR2(60),
     ins_srtcontrole_info
-        VARCHAR2(320),
+        VARCHAR2(4000),
     ins_srtcontrole_periode
         NUMBER(6,2)
         NOT_NULL(ins_srtcontrole_periode, ins_c_ins_srtcontrole_periode),
@@ -417,12 +440,31 @@ CREATE_TABLE(ins_srtcontrole, 0)
         NUMBER(1)
         DEFAULT(1)
         NOT_NULL(ins_srtcontrole_mode, ins_c_ins_srtcontrole_mode),
-    ins_srtcontrole_kosten  // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+    ins_srtcontrole_level //  hierarchy level (relative; lower = more important)
+        NUMBER(3)
+        DEFAULT(10)
+        NOT_NULL(ins_srtcontrole_level, ins_c_ins_srtcontrole_level),
+    ins_srtcontrole_uren      // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) bv tbv capaciteitsplanning
+         NUMBER(8,2),
+    ins_srtcontrole_materiaal // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+         NUMBER(9,2),
+    ins_srtcontrole_kosten    // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 1 (bv BTW hoog)
          NUMBER(11,2),
+    ins_srtcontrole_kosten2   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 2 (bv BTW laag)
+         NUMBER(11,2),
+    ins_srtcontrole_kosten3   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 3 (spare)
+         NUMBER(11,2),
+    ins_srtcontrole_percentage // percentage van het aantal delen waarop dit betrekking heeft
+        NUMBER(3)
+        DEFAULT (100)
+        CONSTRAINT ins_c_srtcontrole_percentage CHECK(ins_srtcontrole_percentage BETWEEN 0 AND 100),
     ins_srtcontrole_opmerking
         VARCHAR2(320),
     ins_srtcontrole_eind  // hier eindigt deze
-        DATE
+        DATE,
+    ins_scenario_key
+       NUMBER(10)
+        CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE
 );
 
 CREATE_TABLE(ins_controlemode, 0)
@@ -435,15 +477,18 @@ CREATE_TABLE(ins_controlemode, 0)
         NOT_NULL(ins_controlemode_oms, ins_c_controlemode_oms),
     ins_controlemode_opmerking
         VARCHAR(2000 CHAR),
-    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_controlemode_oms),
     ins_controlemode_success        // 1=positive/neutral result, 0=negative result
         NUMBER(1)
         DEFAULT(1)
-        CONSTRAINT ins_c_ins_controlemode_success CHECK (ins_controlemode_success IN (0,1))
+        CONSTRAINT ins_c_ins_controlemode_success CHECK (ins_controlemode_success IN (0,1)),
+    ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+        NUMBER(1)
+        DEFAULT(1),
+    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_srtcontrole_type,ins_controlemode_oms)
 );
 
 // Eventuele afwijkingen (xcp=exception) per specifiek deel
-// De methodiek (flags) kan niet overruled worden; fungeert als COALESCE met ins_srtcontrole
+// De methodiek (flags) en het level kunnen niet overruled worden; fungeert als COALESCE met ins_srtcontrole
 // Het kan ook voor alleen respijt bestaan
 CREATE_TABLE(ins_srtcontroledl_xcp, 0)
 (
@@ -456,7 +501,7 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
     ins_srtcontrole_key
        NUMBER(10)
        NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
-    ins_srtcontroledl_xcp_respijt    // eerstvolgende keer (indien officieel uitgesteld)
+    ins_srtcontroledl_xcp_respijt    // eerstvolgende keer (indien officieel uitgesteld) >> hoort hier niet maar in ins_deelsrtcontrole_plandatum
        DATE,
     ins_srtcontroledl_xcp_periode
         NUMBER(6,2),
@@ -464,15 +509,31 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
         NUMBER(3),
     ins_srtcontroledl_xcp_bits //  details, afhankelijk van de mode (mag best null zijn)
         NUMBER(4),
+    ins_srtcontroledl_xcp_uren      // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) bv tbv capaciteitsplanning
+         NUMBER(8,2),
+    ins_srtcontroledl_xcp_materia // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+         NUMBER(9,2),
     ins_srtcontroledl_xcp_kosten  // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
          NUMBER(11,2),
+    ins_srtcontroledl_xcp_kosten2   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 2 (bv BTW laag)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_kosten3   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 3 (spare)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_perc   // percentage van het aantal delen waarop dit betrekking heeft
+        NUMBER(3)
+        DEFAULT (100)
+        CONSTRAINT ins_c_srtcontroledl_xcp_perc CHECK(ins_srtcontroledl_xcp_perc BETWEEN 0 AND 100),
     ins_srtcontroledl_xcp_groep // Vrijblijvende categorisering voor groepering in rapportages
         VARCHAR2(60),
     ins_srtcontroledl_xcp_eind  // hier eindigt deze
-        DATE
+        DATE,
+    ins_scenario_key
+       NUMBER(10)
+        CONSTRAINT ins_r_ins_scenario_key2 REFERENCES ins_scenario(ins_scenario_key)  ON DELETE CASCADE,
+    CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key)
 );
 
-/* wanneer zijn de inspecties uitgevoerd */
+/* de feitelijke inspecties */
 CREATE_TABLE(ins_deelsrtcontrole, 0)
 (
     ins_deelsrtcontrole_key
@@ -485,18 +546,22 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
        NUMBER(10)
        NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
     ins_deelsrtcontrole_datum
-       DATE
-       NOT NULL,
+       DATE,
     ins_deelsrtcontrole_datum_org
-       DATE
-       NOT_NULL(ins_deelsrtcontrole_datum_org, ins_c_ins_deelsrtcontrole_org),
+       DATE,
     ins_deelsrtcontrole_datum_xcp
        DATE,
     ins_controlemode_key
        NUMBER(10)
-       NOT NULL REFERENCES ins_controlemode ON DELETE SET NULL,
+       CONSTRAINT ins_r_ins_controlemode_key REFERENCES ins_controlemode,
     ins_deelsrtcontrole_opmerking
         VARCHAR(2000 CHAR),
+    ins_deelsrtcontrole_plandatum
+       DATE,
+    ins_deelsrtcontrole_status // (vooralsnog 0,2,5,6)
+       NUMBER(1)
+       DEFAULT (6)
+       CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,
 // Note: this column is defined in PRS_TAB.SRC
 //    prs_perslid_key
 //        NUMBER(10)

INS/INS_TRI.SRC

@@ -885,6 +885,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_scenario_B_IU)
+BEFORE INSERT  OR UPDATE ON ins_scenario
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(ins_scenario_key, ins_s_ins_scenario_key);
+END;
+/
+
 CREATE_TRIGGER(ins_t_srtcontrole_B_IU)
 BEFORE INSERT  OR UPDATE ON ins_srtcontrole
 FOR EACH ROW

INS/INS_VIE.SRC

@@ -49,6 +49,18 @@ DEFINIEER_VIEW_AANWEZIG(ins_srtgroep, ins_srtgroep_verwijder,
 DEFINIEER_VIEW_AANWEZIG(ins_srtdeel, ins_srtdeel_verwijder,
     ins_v_aanwezigsrtdeel,0);
 
+CREATE_VIEW(ins_controlestatuses, 0)
+(
+   ins_controlestatus_key,
+   ins_controlestatus_omschr
+)
+AS
+   SELECT fac_code2label_code,
+          COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst)
+     FROM fac_locale_xsl fl, fac_code2label fs
+    WHERE     fl.fac_locale_xsl_label = fac_code2label_label
+          AND fac_code2label_domein = 'controle'
+          AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 /* Views met ins_deel moeten voorwaarde : "WHERE ins_deel_parent_key IS NULL" bevatten... */
 DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder,
@@ -112,106 +124,149 @@ CREATE_VIEW(all_v_srtdeel_gegevens,0) AS
 
 
 CREATE_VIEW(ins_v_alg_overzicht,0)
-(    alg_onroerendgoed_keys
-,    alg_onroerendgoed_type
-,    alg_plaatsaanduiding
-,    alg_locatie_key
-,    alg_gebouw_key
-,    alg_gebouw_code
-,    alg_gebouw_omschrijving
-,    alg_gebouw_upper
-,    alg_verdieping_key
-,    alg_verdieping_omschrijving
-,    alg_verdieping_upper
-,    alg_verdieping_code
-,    alg_ruimte_key
-,    alg_ruimte_nr
-,    alg_ruimte_upper_nr
-,    prs_werkplek_key
-,    prs_werkplek_module
-,    prs_werkplek_omschrijving
-,    prs_werkplek_volgnr
-,    alg_terreinsector_key
-,    alg_terreinsector_code
-,    alg_terreinsector_omschrijving
-,    alg_terreinsector_upper
-) AS
-   SELECT ALG_R.alg_ruimte_key,'R'
-   ,      ALG_L.alg_locatie_code ||'-'
-       || ALG_G.alg_gebouw_code                ||'-'
-       || ALG_V.alg_verdieping_code ||'-'
-       || ALG_R.alg_ruimte_nr
-   ,      ALG_G.alg_locatie_key
-   ,      ALG_G.alg_gebouw_key
-   ,      ALG_G.alg_gebouw_code
-   ,      ALG_G.alg_gebouw_omschrijving
-   ,      ALG_G.alg_gebouw_upper
-   ,      ALG_V.alg_verdieping_key
-   ,      ALG_V.alg_verdieping_omschrijving
-   ,      ALG_V.alg_verdieping_upper
-   ,      ALG_V.alg_verdieping_volgnr
-   ,      ALG_R.alg_ruimte_key
-   ,      ALG_R.alg_ruimte_nr
-   ,      ALG_R.alg_ruimte_upper_nr
-   ,      to_number(NULL), NULL, NULL, to_number(NULL)
-   ,      to_number(NULL), NULL, NULL, NULL
-   FROM   alg_ruimte     ALG_R
-   ,      alg_verdieping ALG_V
-   ,      alg_gebouw     ALG_G
-   ,      alg_locatie    ALG_L
-   WHERE  ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-   AND    ALG_V.alg_gebouw_key     = ALG_G.alg_gebouw_key
-   AND    ALG_G.alg_locatie_key    = ALG_L.alg_locatie_key
+(
+   alg_onroerendgoed_keys,
+   alg_onroerendgoed_type,
+   alg_plaatsaanduiding,
+   alg_plaatsomschrijving,
+   alg_locatie_key,
+   alg_gebouw_key,
+   alg_gebouw_code,
+   alg_gebouw_omschrijving,
+   alg_gebouw_upper,
+   alg_verdieping_key,
+   alg_verdieping_omschrijving,
+   alg_verdieping_upper,
+   alg_verdieping_code,
+   alg_ruimte_key,
+   alg_ruimte_nr,
+   alg_ruimte_upper_nr,
+   prs_werkplek_key,
+   prs_werkplek_module,
+   prs_werkplek_omschrijving,
+   prs_werkplek_volgnr,
+   alg_terreinsector_key,
+   alg_terreinsector_code,
+   alg_terreinsector_omschrijving,
+   alg_terreinsector_upper
+)
+AS
+   SELECT alg_r.alg_ruimte_key,
+          'R',
+          alg_l.alg_locatie_code
+          || DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', '-' || alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code)
+          || DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', '-' || alg_r.alg_ruimte_nr),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (
+                SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                '_',
+                alg_g.alg_gebouw_naam,
+                DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1),
+                        '_', ''                                /*alg_v.alg_verdieping_omschrijving*/
+                               ,
+                        alg_r.alg_ruimte_omschrijving))),
+          alg_g.alg_locatie_key,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_omschrijving,
+          alg_g.alg_gebouw_upper,
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_omschrijving,
+          alg_v.alg_verdieping_upper,
+          alg_v.alg_verdieping_volgnr,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_upper_nr,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          NULL
+     FROM alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_g.alg_locatie_key = alg_l.alg_locatie_key
    UNION
-   SELECT PRS_W.prs_werkplek_key,'W'
-   ,      ALG_L.alg_locatie_code ||'-'
-       || ALG_G.alg_gebouw_code                ||'-'
-       || ALG_V.alg_verdieping_code ||'-'
-       || ALG_R.alg_ruimte_nr                  ||'/'
-       || to_char(PRS_W.prs_werkplek_volgnr)
-   ,      ALG_G.alg_locatie_key
-   ,      ALG_G.alg_gebouw_key
-   ,      ALG_G.alg_gebouw_code
-   ,      ALG_G.alg_gebouw_omschrijving
-   ,      ALG_G.alg_gebouw_upper
-   ,      ALG_V.alg_verdieping_key
-   ,      ALG_V.alg_verdieping_omschrijving
-   ,      ALG_V.alg_verdieping_upper
-   ,      ALG_V.alg_verdieping_volgnr
-   ,      ALG_R.alg_ruimte_key
-   ,      ALG_R.alg_ruimte_nr
-   ,      ALG_R.alg_ruimte_upper_nr
-   ,      PRS_W.prs_werkplek_key
-   ,      PRS_W.prs_werkplek_module
-   ,      PRS_W.prs_werkplek_omschrijving
-   ,      PRS_W.prs_werkplek_volgnr
-   ,      to_number(NULL), NULL, NULL, NULL
-   FROM   prs_werkplek   PRS_W
-   ,      alg_ruimte     ALG_R
-   ,      alg_verdieping ALG_V
-   ,      alg_gebouw     ALG_G
-   ,      alg_locatie    ALG_L
-   WHERE  PRS_W.prs_alg_ruimte_key = ALG_R.alg_ruimte_key
-   AND    ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-   AND    ALG_V.alg_gebouw_key     = ALG_G.alg_gebouw_key
-   AND    ALG_G.alg_locatie_key    = ALG_L.alg_locatie_key
+   SELECT prs_w.prs_werkplek_key,
+          'W',
+             alg_l.alg_locatie_code
+          || '-'
+          || alg_g.alg_gebouw_code
+          || '-'
+          || alg_v.alg_verdieping_code
+          || '-'
+          || alg_r.alg_ruimte_nr
+          || '/'
+          || TO_CHAR (prs_w.prs_werkplek_volgnr),
+          alg_r.alg_ruimte_omschrijving,
+          alg_g.alg_locatie_key,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_omschrijving,
+          alg_g.alg_gebouw_upper,
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_omschrijving,
+          alg_v.alg_verdieping_upper,
+          alg_v.alg_verdieping_volgnr,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_upper_nr,
+          prs_w.prs_werkplek_key,
+          prs_w.prs_werkplek_module,
+          prs_w.prs_werkplek_omschrijving,
+          prs_w.prs_werkplek_volgnr,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          NULL
+     FROM prs_werkplek prs_w,
+          alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     prs_w.prs_alg_ruimte_key = alg_r.alg_ruimte_key
+          AND alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_g.alg_locatie_key = alg_l.alg_locatie_key
    UNION
-   SELECT ALG_T.alg_terreinsector_key,'T'
-   ,      ALG_L.alg_locatie_code ||'-'
-       || ALG_T.alg_terreinsector_code
-   ,      ALG_T.alg_locatie_key
-   ,      to_number(NULL), NULL, NULL, NULL
-   ,      to_number(NULL), NULL, NULL, to_number(NULL)
-   ,      to_number(NULL), NULL, NULL
-   ,      to_number(NULL), NULL, NULL, to_number(NULL)
-   ,      ALG_T.alg_terreinsector_key
-   ,      ALG_T.alg_terreinsector_code
-   ,      ALG_T.alg_terreinsector_omschrijving
-   ,      ALG_T.alg_terreinsector_upper
-   FROM   alg_terreinsector ALG_T
-   ,      alg_locatie ALG_L
-   WHERE  ALG_T.alg_locatie_key    = ALG_L.alg_locatie_key
-;
+   SELECT alg_t.alg_terreinsector_key,
+          'T',
+          alg_l.alg_locatie_code || '-' || alg_t.alg_terreinsector_code,
+          alg_terreinsector_omschrijving,
+          alg_t.alg_locatie_key,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          alg_t.alg_terreinsector_key,
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_omschrijving,
+          alg_t.alg_terreinsector_upper
+     FROM alg_terreinsector alg_t, alg_locatie alg_l
+    WHERE alg_t.alg_locatie_key = alg_l.alg_locatie_key;
 
 --
 -- dummy definitie van prs_v_afdeling_perslid

KPI/KPI_INI.SRC

@@ -10,35 +10,35 @@ _FAC_MODULE('KPI','Key Performance Indicators')
 ----- Grafieken -----
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Totaal ',     'kpi_v_graph_tot_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Total',     'kpi_v_graph_tot_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Trend ',      'kpi_v_graph_tot_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Trend',      'kpi_v_graph_tot_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Totaal ',     'kpi_v_graph_proc_tot',   2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Total',     'kpi_v_graph_proc_tot',   2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Onderdelen ', 'kpi_v_graph_proc_ond',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Category', 'kpi_v_graph_proc_ond',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Trend ',      'kpi_v_graph_proc_trend', 4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Trend',      'kpi_v_graph_proc_trend', 4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Totaal ',     'kpi_v_graph_ond_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Total',     'kpi_v_graph_ond_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Onderdelen ', 'kpi_v_graph_ond_proc',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Category', 'kpi_v_graph_ond_proc',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 INSERT INTO fac_usrgraph
 ( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
-SELECT 'Trend ',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+SELECT 'Trend',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
 
 SET SQLBLANKLINES ON
 
@@ -56,7 +56,7 @@ UPDATE fac_usrgraph SET fac_usrgraph_options = '{ title: "",
       }
    }
 }'
-WHERE fac_usrgraph_omschrijving = 'Totaal ';  /* TODO lcl */
+WHERE fac_usrgraph_omschrijving = 'Total';
 
 -- onderdeel
 UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
@@ -142,7 +142,7 @@ UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
             shadow: false
         }
 }'
-WHERE fac_usrgraph_omschrijving = 'Onderdelen ';  /* TODO lcl */
+WHERE fac_usrgraph_omschrijving = 'Category';
 
 -- trend
 UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
@@ -219,7 +219,7 @@ UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
        } ]
     }
 }'
-WHERE fac_usrgraph_omschrijving = 'Trend ';  /* TODO lcl */
+WHERE fac_usrgraph_omschrijving = 'Trend';
 
 SET SQLBLANKLINES OFF
 

KPI/KPI_VIE.SRC

@@ -54,7 +54,7 @@ AS
           100 fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1
      FROM kpi_v_kpi_scores ks,
           fac_v_my_locations ml
@@ -83,7 +83,7 @@ AS
           ROUND(AVG(ks.score), 1) fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
      FROM kpi_v_kpi_scores ks,
           fac_v_my_locations ml
@@ -114,7 +114,7 @@ AS
           100 fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
           ks.kpi_definitie_categorie1 fclt_text2
      FROM kpi_v_kpi_scores ks,
@@ -148,7 +148,7 @@ AS
           kpi.getKleurNorm(AVG(ks.score)) fclt_color,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
             'appl/kpi/kpi_detail.asp?fclt_key=-1'
             || '&periode=' || TO_CHAR(ks.kpi_score_datum, 'yyyymm')
             || '&fclt_f_kpi_definitie_categorie1=' || ks.kpi_definitie_categorie1
@@ -170,7 +170,7 @@ AS
           ml.prs_perslid_key fclt_3d_user_key,
           ml.alg_locatie_key fclt_key,
           ks.locatie fclt_text0,
-            'kpi/kpi/kpi_detail.asp?fclt_key=' || ml.alg_locatie_key
+            'appl/kpi/kpi_detail.asp?fclt_key=' || ml.alg_locatie_key
             || '&periode=' || TO_CHAR(ks.kpi_score_datum, 'yyyymm')
             || '&fclt_f_kpi_definitie_categorie1=' || ks.kpi_definitie_categorie1
              fclt_url,
@@ -194,7 +194,7 @@ AS
           ROUND(AVG(ks.score), 1) fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           ks.kpi_definitie_categorie1 fclt_text2,
           TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
      FROM kpi_v_kpi_scores ks,
@@ -229,7 +229,7 @@ AS
           100 fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
           ks.kpi_definitie_categorie2 fclt_text2
      FROM kpi_v_kpi_scores ks,
@@ -263,8 +263,8 @@ AS
           kpi.getKleurNorm(AVG(ks.score)) fclt_color,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
-            'kpi/kpi/kpi_detail.asp?fclt_key=-1'
+          lcl.l('lcl_all') fclt_text0,
+            'appl/kpi/kpi_detail.asp?fclt_key=-1'
             || '&periode=' || TO_CHAR(ks.kpi_score_datum, 'yyyymm')
             || '&fclt_f_kpi_definitie_categorie2=' || ks.kpi_definitie_categorie2
              fclt_url,
@@ -285,7 +285,7 @@ AS
           ml.prs_perslid_key fclt_3d_user_key,
           ml.alg_locatie_key fclt_key,
           ks.locatie fclt_text0,
-            'kpi/kpi/kpi_detail.asp?fclt_key=' || ml.alg_locatie_key
+            'appl/kpi/kpi_detail.asp?fclt_key=' || ml.alg_locatie_key
             || '&periode=' || TO_CHAR(ks.kpi_score_datum, 'yyyymm')
             || '&fclt_f_kpi_definitie_categorie2=' || ks.kpi_definitie_categorie2
              fclt_url,
@@ -309,7 +309,7 @@ AS
           ROUND(AVG(ks.score), 1) fclt_yas_,
           ml.prs_perslid_key fclt_3d_user_key,
           -1 fclt_key,
-          'Alle' fclt_text0,
+          lcl.l('lcl_all') fclt_text0,
           ks.kpi_definitie_categorie2 fclt_text2,
           TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
      FROM kpi_v_kpi_scores ks,
@@ -339,9 +339,25 @@ AS
 
 -- Details score.
 CREATE_VIEW(kpi_v_cat1_cat2_detail,0)
+(
+   fclt_key,
+   locatie,
+   alg_locatie_key,
+   kpi_score_datum,
+   kpi_definitie_categorie1,
+   kpi_definitie_categorie2,
+   kpi_code,
+   kpi_omschrijving,
+   kpi_uitleg,
+   score,
+   kleur,
+   totaalscore,
+   totaalkleur
+)
 AS
-   SELECT -1 fclt_key,
-          'Alle' locatie,
+       SELECT -1 fclt_key,
+          lcl.l ('lcl_all') locatie,
+          -1 alg_locatie_key,
           po.kpi_score_datum,
           po.kpi_definitie_categorie1,
           po.kpi_definitie_categorie2,
@@ -358,7 +374,8 @@ AS
                        ROUND (AVG (ks.score), 1) score,
                        kpi.getkleurnorm (AVG (ks.score)) kleur
                   FROM kpi_v_kpi_scores ks
-              GROUP BY ks.kpi_score_datum, ks.kpi_definitie_categorie1, ks.kpi_definitie_categorie2) po
+              GROUP BY ks.kpi_score_datum, ks.kpi_definitie_categorie1, ks.kpi_definitie_categorie2)
+             po
           LEFT OUTER JOIN
              (  SELECT ks.kpi_score_datum,
                        ks.kpi_definitie_categorie1,
@@ -381,6 +398,7 @@ AS
    UNION ALL
    SELECT po.alg_locatie_key fclt_key,
           po.locatie,
+          po.alg_locatie_key,
           po.kpi_score_datum,
           po.kpi_definitie_categorie1,
           po.kpi_definitie_categorie2,

MLD/MLD_IND.SRC

@@ -23,6 +23,7 @@ create index mld_i_mld_melding18 on mld_melding(mld_melding_parentkey);
 create index mld_i_mld_melding19 on mld_melding(res_rsv_ruimte_key);
 CREATE INDEX mld_i_mld_melding20 ON mld_melding(mld_melding_datum);
 CREATE INDEX mld_i_mld_melding21 ON mld_melding(mld_melding_externnr);
+CREATE INDEX mld_i_mld_melding22 ON mld_melding(mld_alg_locatie_key);
 
 create index mld_i_mld_opdr1 on mld_opdr(mld_opdr_module);
 create index mld_i_mld_opdr2 on mld_opdr(mld_melding_key);
@@ -65,7 +66,7 @@ CREATE UNIQUE INDEX mld_i_opdruren_dagkosten1 ON mld_opdruren_dagkosten(prs_pers
 CREATE UNIQUE INDEX mld_i_mld_dienstpakket ON mld_dienstpakket(mld_stdmelding_key, mld_dienstniveau_key);
 
 CREATE UNIQUE INDEX mld_i_mld_opdr_uitvoeren1 ON mld_opdr_uitvoeren(mld_opdr_key, mld_opdr_uitvoeren_dag);
-CREATE UNIQUE INDEX mld_i_mld_opdr_materiaal1 ON mld_opdr_materiaal(mld_opdr_key, fac_usrdata_key, mld_opdr_materiaal_omschr);
+CREATE INDEX mld_i_mld_opdr_materiaal1 ON mld_opdr_materiaal(mld_opdr_key, fac_usrdata_key, mld_opdr_materiaal_omschr);
 
 CREATE UNIQUE INDEX mld_i_mld_stdmeldingfaq1 ON mld_stdmeldingfaq(mld_stdmelding_key, ins_discipline_key, fac_faq_key);
 CREATE INDEX mld_i_mld_stdmeldingfaq2 ON mld_stdmeldingfaq(ins_discipline_key, fac_faq_key);

MLD/MLD_INI.SRC

@@ -29,6 +29,9 @@ INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (4,
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (5, 'Internet');
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (6, 'System');
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (7, 'Mobile');
+INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (8, 'Chat');
+INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (9, 'Social media');
+INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (10, 'Inspectie');
 
 DEF_STATUS('melding', 0, 'lcl_mld_pending');
 DEF_STATUS('melding', 1, 'lcl_mld_afgewezen');

MLD/MLD_PAC.SRC

@@ -230,7 +230,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             THEN
                newstatus := pstatus;
                eventcode := 'MLDDOO';
-            ELSIF currentstatus = 3
+            ELSIF currentstatus = 3 OR currentstatus = 4 OR currentstatus = 7 -- mld_disc_params_keten of mld_forward_if_active
             THEN
                newstatus := pstatus;
                eventcode := 'MLDFWD';
@@ -319,7 +319,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
            CASE pstatus
               WHEN 1
               THEN
-                    eventcode :=  'ORDREJ';
+                    eventcode :=  'ORDCAN';
               WHEN 2
               THEN
                     eventcode :=  'ORDFNO';  -- of ORDFNGO of ORDOOK
@@ -517,6 +517,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       lsrtnoticode   fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
       lstatus        mld_melding.mld_melding_status%TYPE;
       bericht        fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
+      lnotifyooh          mld_disc_params.mld_disc_params_offhours%TYPE;
    BEGIN
       BEGIN
          -- De vakgroep (discipline) setting MLD_DISC_PARAMS_BONOTIFY geeft aan of de notificatie moeten worden verstuurd.
@@ -537,12 +542,14 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                   stdm.mld_ins_discipline_key,
                   m.mld_melding_spoed,
                   mdp.mld_disc_params_bonotify,
+                  mdp.mld_disc_params_offhours,
                   m.mld_melding_status
            INTO   lloc_key,
                   lafd_key,
                   ldisc_key,
                   lspoed,
                   lbonotify,
+                  lnotifyooh,
                   lstatus
            FROM   mld_melding m,
                   prs_perslid p,
@@ -605,6 +612,33 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             RETURN;
          END IF;
 
+         lnrreceivers := 0;
+         lreceivers := '';
+         -- Buiten kantooruren naar de achterwacht melden.
+         IF lnotifyooh = 1
+         THEN
+            IF (  (fac.iswerkdag(SYSDATE) = 0) -- weekend of vrije dag
+               OR (fac.iswerktijd = 0)         -- buiten kantoortijd
+               )
+            THEN
+               lreceivers := fac.getsetting('nightly_mld2bo_emailaddress');
+               lnrreceivers := lnrreceivers+1;
+               fac.putnotificationsrtprio (NULL,
+                                           NULL,
+                                           lsrtnoticode,
+                                           pmeldingkey,
+                                           bericht,
+                                           NULL,
+                                           lreceivers,
+                                           NULL,
+                                           NULL,
+                                           lspoed,    -- 1,2,3,4
+                                           NULL
+                                          );
+                RETURN; -- Dan doen we de rest van de gebruikers helemaal niet
+            END IF;
+         END IF;
+
          FOR boer
             IN (SELECT   g.prs_perslid_key
                   FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p, prs_v_afdeling d
@@ -648,14 +682,37 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                         lspoed,                                                               -- 1,2,3,4
                                         NULL
                                        );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+                lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
          END LOOP;
+
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_mld_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#MLDMAI', pmeldingkey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             RETURN;
       END;
    END;
-
    -- Stuur alle mogelijke opdracht goedkeurders een bericht als de opdracht status 10 heeft.
    -- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties.
    -- Lijkt heel erg sterk op bovenstaande notifybackoffice
@@ -677,6 +734,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       lfunctiecode fac_functie.fac_functie_code%TYPE;
       lsender mld_discipline.ins_discipline_email%TYPE;
       bericht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
    BEGIN
       BEGIN
          SELECT   m.mld_alg_locatie_key, p.prs_afdeling_key, stdm.mld_ins_discipline_key, m.mld_melding_spoed,
@@ -698,7 +759,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                   AND o.mld_statusopdr_key = 10
                   AND m.mld_melding_key = o.mld_melding_key
                   AND o.mld_opdr_key = popdrkey;
-
          IF lopdr_kosten <= lbestellimiet   -- Dit eerst testen i.v.m. Ter goedkeuring. Verder moet sowieso goedgekeurd worden.
          THEN
            RETURN;   -- Het bedrag is lager als de eerste limiet. De opdracht hoeft niet goed gekeurd te worden, dus een lege fiatteurs array teruggeven.
@@ -727,7 +787,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          ELSE
            RETURN; -- Het goedgekeurde bedrag zit al boven de vijfde limiet. Geen approval meer nodig.
          END IF;
-
          -- These notifications are now sent on behalf of the system, what might be the local FM organisation
          SELECT MAX (COALESCE(cd.ins_discipline_email, l.alg_locatie_email)) email
            INTO lsender
@@ -741,7 +800,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             AND sm.mld_ins_discipline_key = cd.ins_discipline_key
             AND m.mld_alg_locatie_key = l.alg_locatie_key
             AND o.mld_opdr_key = popdrkey;
-
          -- Als die er niet is sprongen we al naar de exception
          -- Als die er wel is, gaan we verder
          SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
@@ -752,7 +810,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          -- Die laatste conditie is optimalisatie. Met code 0 is de notificatie feitelijk uitgeschakeld en
          -- hoef ik dus ook niet duur te bepalen naar wie een notificatie niet gestuurd hoeft
          -- Als deze niets oplevert gaan we dus ook weer naar de exception
-
          -- Vertaal melding-spoed  (1-4) naar email-spoed (1-3), 3=normaal
          IF lspoed < 3
          THEN
@@ -763,9 +820,10 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          ELSE
             lspoed := 2;
          END IF;
-
          bericht := mld.opdrsprintf (loms, popdrkey);                                        -- de variabelen invullen
 
+         lnrreceivers := 0;
+         lreceivers := '';
          FOR boer
             IN (SELECT   g.prs_perslid_key
                   FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p, prs_v_afdeling d
@@ -808,7 +866,30 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                         lspoed,                                                               -- 1,2,3,4
                                         lsender
                                        );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+               lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
          END LOOP;
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_ord_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#ORDMAI', popdrkey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
@@ -829,7 +910,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       l_workflowstep_next_key    NUMBER (10);
       l_new_melding_key          NUMBER (10);
       l_success                  NUMBER;
-      l_nrofpredecessors         NUMBER;
       l_nrofreadypredecessors    NUMBER;
       l_nrofactualpredecessors   NUMBER;
       tmp                        NUMBER;
@@ -1012,34 +1092,41 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             -- Using the basic properties of l_melding_start_key
             -- and the flexprops of p_melding_key if these match the mld_srtkenmerk_key
             LOOP
-               SELECT COUNT ( * )
-                 INTO l_nrofpredecessors
-                 FROM mld_workflowrule wr1, mld_workflowstep ws1
-                WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
-                      AND wr1.mld_workflowstep_next_key = r_nextsteps.mld_workflowstep_key;
 
                DBMS_OUTPUT.put_line(   'startkey:'
                                     || l_melding_start_key
                                     || ' step key:'
                                     || r_nextsteps.mld_workflowstep_key);
 
-               SELECT COUNT ( * )
-                 INTO l_nrofreadypredecessors
-                 FROM mld_melding m
-                WHERE m.mld_workflowstep_key IN
-                            (SELECT wr1.mld_workflowstep_key
-                               FROM mld_workflowrule wr1, mld_workflowstep ws1
-                              WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
-                                    AND wr1.mld_workflowstep_next_key =
-                                          r_nextsteps.mld_workflowstep_key)
-                      -- the step to be continued
-                      AND mld_melding_status IN (1, 5, 6) -- predecessor has been handled, no matter how
-                      AND mld_melding_start_key = l_melding_start_key;            -- for this thread
+             SELECT COUNT ( * )
+               INTO l_nrofactualpredecessors                             -- disregard status
+               FROM mld_melding m
+              WHERE m.mld_workflowstep_key IN
+                          (SELECT wr1.mld_workflowstep_key
+                             FROM mld_workflowrule wr1, mld_workflowstep ws1
+                            WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
+                                  AND wr1.mld_workflowstep_next_key =
+                                        r_nextsteps.mld_workflowstep_key)
+                    -- the step to be continued
+                    AND mld_melding_start_key = l_melding_start_key;      -- for this thread
+
+             DBMS_OUTPUT.put_line('total nr of actual predecessors for next step: '
+                                  || l_nrofactualpredecessors);
+             SELECT COUNT ( * )
+               INTO l_nrofreadypredecessors
+               FROM mld_melding m
+              WHERE m.mld_workflowstep_key IN
+                          (SELECT wr1.mld_workflowstep_key
+                             FROM mld_workflowrule wr1, mld_workflowstep ws1
+                            WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
+                                  AND wr1.mld_workflowstep_next_key =
+                                        r_nextsteps.mld_workflowstep_key)
+                    -- the step to be continued
+                    AND mld_melding_status IN (1, 5, 6) -- predecessor has been handled, no matter how
+                    AND mld_melding_start_key = l_melding_start_key;            -- for this thread
 
-               DBMS_OUTPUT.put_line('total nr of predecessors in wf-definition for next step: '
-                                    || l_nrofpredecessors);
                DBMS_OUTPUT.put_line (
-                  'READY nr of actual predecessors for next step: ' || l_nrofreadypredecessors);
+                  'total nr of READY predecessors for next step: ' || l_nrofreadypredecessors);
                createthisnextstep := FALSE;
 
                -- What we do next depends on the jointype. We are one predecessor ourselves. Options are:
@@ -1059,39 +1146,16 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                   WHEN 0
                   THEN                                                                        -- AND
                      createthisnextstep :=
-                        l_nrofreadypredecessors >= l_nrofpredecessors OR p_success = -1;
+                        l_nrofreadypredecessors >= l_nrofactualpredecessors OR p_success = -1;
                   WHEN 1
                   THEN                                                                         -- OR
                      createthisnextstep := l_nrofreadypredecessors = 1;
                   -- if l_nrofreadypredecessors > 1 the creation has already taken place :-)
                   WHEN 2
                   THEN                                                                       -- SYNC
-                     -- TODO: kijk naar de vorige stap van de workflowDEFINITIE naar de stappen
-                     -- die hadden kunnen bestaan door de evaluatecondition opnieuw uit te voeren
-                     -- de true-stappen tellen wel mee als (ready or not) predecessors
-                     -- de false-stappen moeten we negeren.
-                     -- MAAR WACHT EENS EVENTJES: GAAT DAT NIET HELEMAAL VANZELF GEWOON GOED??
-                     -- Nee, ik moet nog iets meer weten: het totaal aantal feitelijke voorgangers
-                     -- maar die kan ik tellen zonder opnieuw de condities uit te voeren
-                     SELECT COUNT ( * )
-                       INTO l_nrofactualpredecessors                             -- disregard status
-                       FROM mld_melding m
-                      WHERE m.mld_workflowstep_key IN
-                                  (SELECT wr1.mld_workflowstep_key
-                                     FROM mld_workflowrule wr1, mld_workflowstep ws1
-                                    WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
-                                          AND wr1.mld_workflowstep_next_key =
-                                                r_nextsteps.mld_workflowstep_key)
-                            -- the step to be continued
-                            AND mld_melding_start_key = l_melding_start_key;      -- for this thread
-
-                     DBMS_OUTPUT.put_line('total nr of actual predecessors for next step: '
-                                          || l_nrofactualpredecessors);
                      -- Wel nog een beetje raar in onze <20>naar mijn groeiende overtuiging slimmere- implementatie:
                      -- dit wil je altijd als je condities toepast, ook met een AND. Je wilt toch nooit wachten op een voorganger die niet bestaat?!?
                      -- Onze traditionele AND lijkt me een SYNC, en dan is deze mode toch niet nodig.
-                     -- m.a.w. l_nrofpredecessors moet gewoon altijd l_nrofactualpredecessors zijn
-                     --  TODO Nagaan of dit gevoel helemaal juist is
                      createthisnextstep := l_nrofreadypredecessors >= l_nrofactualpredecessors;
                END CASE;
 

MLD/MLD_SEQ.SRC

@@ -5,7 +5,7 @@
 
 CREATE SEQUENCE mld_s_mld_disc_params_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_oorzaak_key MINVALUE 1;
-CREATE SEQUENCE mld_s_mld_meldbron_key MINVALUE 10;
+CREATE SEQUENCE mld_s_mld_meldbron_key MINVALUE 50;
 CREATE SEQUENCE mld_s_mld_standaardopdr_key MINVALUE 1;
 
 CREATE SEQUENCE mld_s_mld_melding_key MINVALUE 1 NOCACHE;

MLD/MLD_TAB.SRC

@@ -63,6 +63,10 @@ CREATE_TABLE(mld_disc_params, 0)
         NUMBER(1)       -- valid are 0, 1
         DEFAULT 0
         NOT NULL,
+    mld_disc_params_offhours
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     mld_disc_params_fenotes
         NUMBER(2)       -- bitwise valid are 0, 1, 2 and 3 (0,1 = (default) niet/wel + 0,2 = vast/keuze)
         DEFAULT 0,
@@ -350,7 +354,9 @@ CREATE_TABLE(mld_stdmelding,0)
         NUMBER(2)
         DEFAULT 1
         CONSTRAINT mld_c_stdmelding_regime CHECK (mld_stdmelding_regime IS NOT NULL AND mld_stdmelding_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
-    mld_stdmelding_malus -- boete/korting bij overschrijding [per dag]
+    mld_stdmelding_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmelding_malus -- boete/korting bij overschrijding [per periode]
         NUMBER(8,2),
     mld_stdmelding_afhankelijk  -- is de uitvoertijd afhankelijk van de ins_deel/alg_srtruimte (1) of niet (0)
         NUMBER(1)
@@ -401,7 +407,9 @@ CREATE_TABLE(mld_stdmsrtruimte, 0)
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmelding_key5 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
         NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key),
-    mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per dag]
+    mld_stdmsrtruimte_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per periode]
         NUMBER(8,2),
     mld_stdmsrtruimte_t_accepttijd
         MLD_T_UITVOERTIJD
@@ -600,6 +608,8 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_datum
         DATE
         NOT_NULL(mld_melding_datum, mld_c_mld_melding_datum),
+    mld_melding_onderwerp /* optionele korte omschrijving */
+        VARCHAR2(60),
     mld_melding_omschrijving
         VARCHAR2(4000),
     mld_melding_opmerking
@@ -1012,7 +1022,7 @@ CREATE_TABLE(mld_kenmerkopdr, 0)
  */
 CREATE_TABLE(mld_typeopdr_srtdiscipline, 0)
 (
-    mld_typeopdr_srtdiscipline_key
+    mld_typeopdr_srtdisc_key
         NUMBER(10)
         PRIMARY KEY,
     mld_typeopdr_key
@@ -1102,6 +1112,8 @@ CREATE_TABLE(mld_opdr_uren, 0)
         NUMBER(7,4) NOT NULL,
     mld_opdr_uren_status
         NUMBER(1) NOT NULL, --2=ingevoerd, 3=terfiat, 4=gefiatteerd, 1=afgekeurd, 6=verwerkt(=gefactureerd)
+     mld_opdr_uren_opmerking
+        VARCHAR2(100),
     CONSTRAINT mld_c_mld_opdr_uren1 CHECK ((mld_opdr_key IS NULL AND mld_impropdr_key IS NOT NULL) OR (mld_opdr_key IS NOT NULL AND mld_impropdr_key IS NULL))
 );
 
@@ -1226,11 +1238,32 @@ CREATE_TABLE(mld_opdr_materiaal, 0)
     mld_opdr_materiaal_aantal
         NUMBER(8,2)
         NOT_NULL(mld_opdr_materiaal_aantal, mld_c_mld_opdr_mat_aantal),
+    mld_opdr_materiaal_eenheidcode
+        VARCHAR2(10),
+    mld_opdr_materiaal_eenheid
+        VARCHAR2(30),
     mld_opdr_materiaal_prijs
        NUMBER(9,2)
        CONSTRAINT mld_c_mld_opdr_mat_prijs CHECK((mld_opdr_materiaal_prijs >= 0) or (mld_opdr_materiaal_prijs IS NULL)),
+/* in fin_tab.src:
+    fin_btwtabelwaarde_key
+        NUMBER(10)
+        CONSTRAINT mld_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+*/
+    mld_opdr_materiaal_code
+        VARCHAR2(30),
     mld_opdr_materiaal_omschr
         VARCHAR2(255),
+    mld_opdr_materiaal_info
+        VARCHAR2(4000),
+    mld_opdr_materiaal_groep
+        VARCHAR2(60),
+    mld_opdr_materiaal_extra1
+        VARCHAR2(60),
+    mld_opdr_materiaal_extra2
+        VARCHAR2(60),
+    mld_opdr_materiaal_extra3
+        VARCHAR2(4000),
     CONSTRAINT mld_c_mld_opdr_mat_omschr CHECK((mld_opdr_materiaal_omschr IS NULL AND fac_usrdata_key IS NOT NULL) OR (mld_opdr_materiaal_omschr IS NOT NULL AND fac_usrdata_key IS NULL))
 );
 

MLD/MLD_TRI.SRC

@@ -88,7 +88,7 @@ CREATE_TRIGGER(mld_t_mld_typeopdr_srtdi_B_IU)
 BEFORE INSERT OR UPDATE ON mld_typeopdr_srtdiscipline
 FOR EACH ROW
 BEGIN
-    UPDATE_PRIMARY_KEY(mld_typeopdr_srtdiscipline_key,mld_s_mld_typeopdr_srtdisc);
+    UPDATE_PRIMARY_KEY(mld_typeopdr_srtdisc_key,mld_s_mld_typeopdr_srtdisc);
 END;
 /
 

MLD/MLD_VIE.SRC

@@ -621,6 +621,7 @@ CREATE_VIEW(mld_v_rap_stdmelding, 0)
    beperk_tot_catalogus,
    kopieerbaar,
    regime,
+   malusbasis,
    malus,
    dubbele_mld_controleren,
    doet_mee_in_kto,
@@ -699,6 +700,7 @@ AS
                   2, 'Openingstijden',
                   3, '24/7')
              regime,
+          mld_stdmelding_malusbasis malusbasis,
           mld_stdmelding_malus malus,
           DECODE (mld_stdmelding_doublecheck,
                   1, 'alleen bij invoeren',
@@ -1287,6 +1289,7 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    kostenplaats,
    kostenplaats_oms,
    melder,
+   melder_key,
    afdeling,
    afdeling_omschrijving,
    fclt_3d_afdeling_key,
@@ -1299,6 +1302,7 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    subproductgroep,
    behandelgroep,
    behandelaar,
+   behandelaar_key,
    subproductgroepgroep,
    melding_status,
    sla_nvt,
@@ -1316,6 +1320,7 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    melding_accepted,
    doorlooptijd_werkdgn,
    doorlooptijd_werkuren,
+   onderwerp,
    vomschrijving,
    melding_opmerking,
    prioriteit,
@@ -1330,7 +1335,8 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    afspraak_sla_uren,
    accept_sla_optijd,
    uitvoering_sla_optijd,
-   afspraak_sla_optijd
+   afspraak_sla_optijd,
+   selfservice
 )
 AS
    SELECT mld_melding_key,
@@ -1350,6 +1356,7 @@ AS
           kostenplaats,
           kostenplaats_oms,
           melder,
+          prs_perslid_key,
           afdeling,
           afdeling_omschrijving,
           afdeling_key,
@@ -1362,6 +1369,7 @@ AS
           subproductgroep,
           behandelgroep,
           behandelaar,
+          behandelaar_key,
           subproductgroepgroep,
           status,
           sla_nvt,
@@ -1381,6 +1389,7 @@ AS
              doorlooptijd_werkdgn,
           DECODE (x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL)
              doorlooptijd_werkuren,
+          onderwerp,
           omschrijving,
           opmerking,
           mld_melding_spoed prioriteit,
@@ -1469,8 +1478,10 @@ AS
              ELSE
                 lcl.l ('lcl_no')
           END
-             afspraak_sla_optijd
+             afspraak_sla_optijd,
+             DECODE(invoerder, melder, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) selfservice
      FROM (SELECT m.mld_melding_key,
+                  m.prs_perslid_key,
                   sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
                   alg_district_omschrijving,
                   alg_locatie_code locatie,
@@ -1550,6 +1561,7 @@ AS
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = m.mld_melding_behandelaar_key)
                      behandelaar,
+                  m.mld_melding_behandelaar_key behandelaar_key,
                   (SELECT mld_statuses_omschrijving
                      FROM mld_statuses sta
                     WHERE sta.mld_statuses_key = m.mld_melding_status)
@@ -1607,6 +1619,7 @@ AS
                             mld.getmeldingstatusdate (m.mld_melding_key, 1))
                      accepted,
                   mld.getactualuitvoer (m.mld_melding_key) t_doorlooptijd,
+                  m.mld_melding_onderwerp onderwerp,
                   m.mld_melding_omschrijving omschrijving,
                   m.mld_melding_opmerking opmerking,
                   m.mld_melding_spoed,
@@ -1632,6 +1645,7 @@ AS
                   AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
                   AND l.alg_district_key = d.alg_district_key(+)
                   AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND m.fac_activiteit_key IS NULL
                   AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
 
 CREATE_VIEW(mld_v_udr_opdracht, 1)
@@ -1657,8 +1671,10 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
    opdracht_datum,
    opdracht_einddatum,
    opdracht_plandatum,
+   opdracht_acceptdatum,
    opdracht_afgemeld,
    opdracht_doorlooptijd,
+   opdracht_accepttijd,
    opdracht_omschrijving,
    opdracht_opmerking,
    opdracht_uitvoerende,
@@ -1672,7 +1688,7 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
 )
 AS
    SELECT mld_opdr_key,
-          TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,         -- ik vind prefix te duur
+          ins_srtdiscipline_prefix||TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
           alg_district_omschrijving,
           locatie,
           locatie_omschrijving,
@@ -1692,8 +1708,10 @@ AS
           opdracht_datum,
           opdracht_einddatum,
           opdracht_plandatum,
+          opdracht_acceptdatum,
           opdracht_afgemeld,
           opdracht_doorlooptijd,
+          opdracht_accepttijd,
           opdracht_omschrijving,
           opdracht_opmerking,
           opdracht_uitvoerende,
@@ -1735,10 +1753,16 @@ AS
                   o.mld_opdr_datumbegin opdracht_datum,
                   o.mld_opdr_einddatum opdracht_einddatum,
                   o.mld_opdr_plandatum opdracht_plandatum,
+                  COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 1)) opdracht_acceptdatum,
                   mld.getopdrachtstatusdate (o.mld_opdr_key, 6) opdracht_afgemeld,
                   fac.count_work_days (o.mld_opdr_datumbegin,
                                        mld.getopdrachtstatusdate (o.mld_opdr_key, 6))
                      opdracht_doorlooptijd,
+                  COALESCE (fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
+                                                 COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 6))),
+                            fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
+                                                 mld.getopdrachtstatusdate (o.mld_opdr_key, 1)))
+                    opdracht_accepttijd,
                   o.mld_opdr_omschrijving opdracht_omschrijving,
                   o.mld_opdr_opmerking opdracht_opmerking,
                   (SELECT naam
@@ -1752,16 +1776,23 @@ AS
                      opdracht_correctie,
                   o.mld_opdr_materiaal opdracht_materiaal,
                   o.mld_opdr_uurloon opdracht_uurtarief,
-                  o.mld_opdr_kosten opdracht_kosten
+                  o.mld_opdr_kosten opdracht_kosten,
+                  sdi.ins_srtdiscipline_prefix
              FROM alg_locatie l,
                   alg_district d,
                   alg_v_allonrgoed_gegevens og,
                   mld_opdr o,
                   mld_typeopdr top,
-                  mld_melding m
+                  mld_melding m,
+                  mld_stdmelding stdm,
+                  ins_tab_discipline di,
+                  ins_srtdiscipline sdi
             WHERE     m.mld_alg_locatie_key = l.alg_locatie_key(+)
                   AND l.alg_district_key = d.alg_district_key(+)
                   AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
+                  AND stdm.mld_ins_discipline_key = di.ins_discipline_key
+                  AND di.ins_srtdiscipline_key = sdi.ins_srtdiscipline_key
                   AND o.mld_melding_key = m.mld_melding_key
                   AND o.mld_typeopdr_key = top.mld_typeopdr_key(+)
                   AND o.mld_opdr_datumbegin >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
@@ -1787,6 +1818,7 @@ SELECT
    m.kostenplaats,
    m.kostenplaats_oms,
    m.melder,
+   m.melder_key,
    m.afdeling,
    m.afdeling_omschrijving,
    m.fclt_3d_afdeling_key,
@@ -1799,6 +1831,7 @@ SELECT
    m.subproductgroep,
    m.behandelgroep,
    m.behandelaar,
+   m.behandelaar_key,
    m.subproductgroepgroep,
    m.melding_status,
    m.sla_nvt,
@@ -1814,6 +1847,7 @@ SELECT
    m.melding_afgemeld,
    m.doorlooptijd_werkdgn,
    m.doorlooptijd_werkuren,
+   m.onderwerp,
    m.vomschrijving,
    m.melding_opmerking,
    m.rating,
@@ -1856,53 +1890,118 @@ SELECT
  WHERE m.melding_key = o.melding_key(+);
 
 
-// UDR met kenmerken (1 record per kenmerk, aangevuld met 1 record voor meldingen zonder kenmerk)
-CREATE_VIEW(mld_v_udr_meldingkenmerk, 1)
+// UDR met kenmerken (1 record per kenmerk met waarde in kolom c, n of d afhankelijk van type
+// Geen kenmerk, geen record.
+CREATE_VIEW(mld_v_udr_meldingkenmerk_cnd, 1)
 AS
    SELECT m.*,
-          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
-          CASE
-             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
-             THEN
-                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)
-             ELSE
-                km.mld_kenmerkmelding_waarde
-          END
-             waarde
-    FROM mld_v_udr_melding m,
-          mld_kenmerkmelding km,
-          mld_kenmerk k,
-          mld_srtkenmerk skm
-    WHERE     km.mld_melding_key(+) = m.melding_key
-          AND km.mld_kenmerkmelding_verwijder IS NULL
-          AND k.mld_kenmerk_verwijder IS NULL
-          AND skm.mld_srtkenmerk_verwijder IS NULL
-          AND km.mld_kenmerk_key = k.mld_kenmerk_key(+)
-          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+       lcl.x ('skm.mld_srtkenmerk_omschrijving',
+              skm.mld_srtkenmerk_key,
+              mld_srtkenmerk_omschrijving)
+          kenmerk,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+          THEN
+             fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'C' OR skm.mld_srtkenmerk_kenmerktype = 'F'
+          THEN
+             km.mld_kenmerkmelding_waarde
+          ELSE
+             NULL
+       END
+          waarde_c,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'N' THEN TO_NUMBER (km.mld_kenmerkmelding_waarde)
+          ELSE TO_NUMBER (NULL)
+       END
+          waarde_n,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'D'
+          THEN
+             TO_DATE (km.mld_kenmerkmelding_waarde, 'DD-MM-YYYY')
+          ELSE
+             TO_DATE (NULL)
+       END
+          waarde_d
+  FROM mld_v_udr_melding M,
+       mld_kenmerkmelding km,
+       mld_kenmerk K,
+       mld_srtkenmerk skm
+ WHERE     km.mld_melding_key = m.melding_key
+       AND km.mld_kenmerkmelding_verwijder IS NULL
+       AND k.mld_kenmerk_verwijder IS NULL
+       AND skm.mld_srtkenmerk_verwijder IS NULL
+       AND km.mld_kenmerk_key = k.mld_kenmerk_key(+)
+       AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
 
 
-CREATE_VIEW(mld_v_udr_opdrachtkenmerk, 1)
+CREATE_VIEW(mld_v_udr_opdrachtkenmerk_cnd, 1)
 AS
-   SELECT o.*,
-          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
-          CASE
-             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
-             THEN
-                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, ko.mld_kenmerkopdr_waarde)
-             ELSE
-                ko.mld_kenmerkopdr_waarde
-          END
-             waarde
-     FROM mld_v_udr_opdracht o,
-          mld_kenmerkopdr ko,
-          mld_kenmerk k,
-          mld_srtkenmerk skm
-    WHERE     ko.mld_opdr_key(+) = o.opdracht_key
-          AND ko.mld_kenmerkopdr_verwijder IS NULL
-          AND k.mld_kenmerk_verwijder IS NULL
-          AND skm.mld_srtkenmerk_verwijder IS NULL
-          AND ko.mld_kenmerk_key = k.mld_kenmerk_key(+)
-          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+SELECT o.*,
+       lcl.x ('skm.mld_srtkenmerk_omschrijving',
+              skm.mld_srtkenmerk_key,
+              mld_srtkenmerk_omschrijving)
+          kenmerk,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+          THEN
+             fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, ko.mld_kenmerkopdr_waarde)
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'C' OR skm.mld_srtkenmerk_kenmerktype = 'F'
+          THEN
+             ko.mld_kenmerkopdr_waarde
+          ELSE
+             NULL
+       END
+          waarde_c,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'N' THEN TO_NUMBER (ko.mld_kenmerkopdr_waarde)
+          ELSE TO_NUMBER (NULL)
+       END
+          waarde_n,
+       CASE
+          WHEN skm.mld_srtkenmerk_kenmerktype = 'D'
+          THEN
+             TO_DATE (ko.mld_kenmerkopdr_waarde, 'DD-MM-YYYY')
+          ELSE
+             TO_DATE (NULL)
+       END
+          waarde_d
+  FROM mld_v_udr_opdracht o,
+       mld_kenmerkopdr ko,
+       mld_kenmerk k,
+       mld_srtkenmerk skm
+ WHERE     ko.mld_opdr_key = o.opdracht_key
+       AND ko.mld_kenmerkopdr_verwijder IS NULL
+       AND k.mld_kenmerk_verwijder IS NULL
+       AND skm.mld_srtkenmerk_verwijder IS NULL
+       AND ko.mld_kenmerk_key = k.mld_kenmerk_key(+)
+       AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+
+CREATE_VIEW(mld_v_udr_opdrachtmateriaal, 1)
+AS
+SELECT o.*,
+       mld_opdr_materiaal_aantal aantal,
+       mld_opdr_materiaal_eenheid eenheid,
+       mld_opdr_materiaal_eenheidcode eenheidcode,
+       COALESCE (mld_opdr_materiaal_omschr, fu.fac_usrdata_omschr) omschrijving,
+       COALESCE (mld_opdr_materiaal_prijs, fu.fac_usrdata_prijs) prijs,
+       mld_opdr_materiaal_code code,
+       mld_opdr_materiaal_info info,
+       mld_opdr_materiaal_groep groep,
+       mld_opdr_materiaal_extra1 extra1,
+       mld_opdr_materiaal_extra2 extra2,
+       mld_opdr_materiaal_extra3 extra3,
+       fin_btwtabelwaarde_code btwcode,
+       fin_btwtabelwaarde_oms btwomschrijving,
+       fin_btwtabelwaarde_perc btw,
+       fin_btwtabelwaarde_verlegd btwverlegd
+  FROM mld_v_udr_opdracht o,
+       mld_opdr_materiaal mo,
+       fac_usrdata fu,
+       fin_btwtabelwaarde btw
+ WHERE     mo.mld_opdr_key = o.opdracht_key
+       AND mo.fac_usrdata_key = fu.fac_usrdata_key(+)
+       AND mo.fin_btwtabelwaarde_key = btw.fin_btwtabelwaarde_key(+);
 
 REGISTERRUN('$Id$')
 #endif  // MLD

MODULES.H

@@ -30,7 +30,7 @@
 #define FAC    FAC
 #define FIN    FIN
 #define INS    INS
-#define no_KPI    KPI
+#define KPI    KPI
 #define MLD    MLD
 #define MRK    MRK
 #define MSG    MSG

MX.BAT

@@ -1,15 +1,23 @@
 @echo off
 echo Making SQL Create and Update scripts for Facilitor(R)
 
+@REM USAGE MX [NOWAIT] [path/to/result]
+
 SET MAKTOOLS=z:\Project\FACILITOR\Tools\MAKTOOLS
+SET FORCEEXE=
+IF x%2==x GOTO noforce
+SET FORCEEXE=PROJEXE=%2
+:NOFORCE
 
 REM Zie http://www.orafaq.com/forum/t/77843/0/
+SET ORG_HOME=%ORACLE_HOME%
 SET ORACLE_HOME=%MAKTOOLS%
 SET INCLUDE=.
-%MAKTOOLS%\nmake /nologo /f fclt.nmk
+%MAKTOOLS%\nmake /nologo /f fclt.nmk %FORCEEXE%
+SET ORACLE_HOME=%ORG_HOME%
 
 @echo Done... (check process output above)
-IF x%1==xNOWAIT GOTO DONE
+IF NOT x%1==x GOTO DONE
 
 pause
 :DONE

PRS/PRS_IND.SRC

@@ -6,6 +6,7 @@
  */
 
 create index prs_i_prs_afdeling1 on prs_afdeling(prs_afdeling_parentkey);
+CREATE INDEX prs_i_prs_afdeling2 ON prs_afdeling(prs_kostenplaats_key);
 
 CREATE INDEX prs_i_prs_bedrijfadres1 on prs_bedrijfadres(prs_bedrijf_key);
 CREATE UNIQUE INDEX prs_i_prs_bedrijfadres2 on prs_bedrijfadres(prs_bedrijf_key, prs_bedrijfadres_type, mld_typeopdr_key);

PRS/PRS_INI.SRC

@@ -8,6 +8,9 @@ _FAC_MODULE('PRS','Organisatiebeheer')
 
 DEF_FAC_MESSAGE ('prs_r_prs_contactpersoon_key2','Er zijn nog referenties van contracten naar deze contactpersoon.'   ,'There are still references from contracts to this contract.');
 
+INSERT INTO prs_relatietype (prs_relatietype_key, prs_relatietype_omschrijving) VALUES (1, 'Contracting party');
+INSERT INTO prs_relatietype (prs_relatietype_key, prs_relatietype_omschrijving) VALUES (2, 'Managing agent');
+
 REGISTERONCE('$Id$')
 
 #endif  // PRS

PRS/PRS_PAC.SRC

@@ -137,11 +137,13 @@ AS
 
       -- Is de meegegeven pexcludekey wellicht een vervanger van kostenplaatsverantwoordelijke van de kostenplaats?
       -- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey
-      SELECT COUNT(prs_perslid_key)
-        INTO lexcludeisvervanger
-        FROM prs_collega
-       WHERE prs_perslid_key_alt = pexcludekey
-         AND prs_perslid_key = lkpverantwkey;
+      IF pexcludekey > 0 THEN
+          SELECT COUNT(prs_perslid_key)
+            INTO lexcludeisvervanger
+            FROM prs_collega
+           WHERE prs_perslid_key_alt = pexcludekey
+             AND prs_perslid_key = lkpverantwkey;
+      END IF;
 
       IF (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1) AND pmethode = 2
       -- doorloop de boom naar boven, met allerlei aannames
@@ -408,7 +410,8 @@ AS
           UPDATE prs_perslid
              SET prs_perslid_salt = NULL,
                  prs_perslid_wachtwoord_hash = NULL,
-                 prs_perslid_wachtwoord_exp = NULL
+                 prs_perslid_wachtwoord_exp = NULL,
+                 prs_perslid_otpsecret = NULL
            WHERE prs_perslid_key = pperslidkey;
       ELSE
           UPDATE prs_perslid
@@ -2063,7 +2066,6 @@ AS
      v_count          NUMBER (10);
 
      --
-     v_perslid_key    NUMBER (10);
      v_perslid_naam   VARCHAR (100);
      v_perslid_nr     VARCHAR (30);
   BEGIN
@@ -2139,7 +2141,7 @@ AS
         THEN
            -- Persoon heeft geen enkele (actuele of historische) verplichting
            v_errorhint :=
-              'Verwijderen van persoon met key ' || TO_CHAR (v_perslid_key);
+              'Verwijderen van persoon met key ' || TO_CHAR (p_perslid_key);
 
            DELETE FROM prs_perslid
                  WHERE prs_perslid_key = p_perslid_key;

PRS/PRS_SEQ.SRC

@@ -31,6 +31,7 @@ CREATE SEQUENCE prs_s_prs_kostensoortgrp_key   MINVALUE 1;
 CREATE SEQUENCE prs_s_prs_collega_key          MINVALUE 1;
 CREATE SEQUENCE prs_s_prs_staffel_key          MINVALUE 1;
 CREATE SEQUENCE prs_s_prs_perslid_inzet_key    MINVALUE 1;
+CREATE SEQUENCE prs_s_prs_relatietype_key      MINVALUE 10;
 
 REGISTERONCE('$Id$')
 

PRS/PRS_TAB.SRC

@@ -4,6 +4,22 @@
  *  $Id$
  */
 
+CREATE_TABLE(prs_relatietype, 0)
+(
+   prs_relatietype_key
+       NUMBER (10) PRIMARY KEY,
+   prs_relatietype_omschrijving
+       VARCHAR2(100)
+       NOT_NULL(prs_relatietype_omschrijving, prs_c_prs_relatietype_omschr),
+   prs_relatietype_aanmaak
+       DATE
+       DEFAULT SYSDATE,
+   prs_relatietype_verwijder
+       DATE
+       DEFAULT NULLDATUM,
+   CONSTRAINT prs_u_prs_relatietype_oms UNIQUE(prs_relatietype_omschrijving, prs_relatietype_verwijder)
+);
+
 CREATE_TABLE(prs_bedrijf,0)
 (
     prs_bedrijf_key
@@ -116,7 +132,10 @@ CREATE_TABLE(prs_bedrijf,0)
         CONSTRAINT prs_u_prs_bedrijf_naam_upper UNIQUE(prs_bedrijf_naam_upper, prs_bedrijf_verwijder),
     prs_bedrijf_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        CONSTRAINT prs_c_prs_bedrijf_t_uitvtijd CHECK(prs_bedrijf_t_uitvoertijd.tijdsduur >= 0) /* of null */
+        CONSTRAINT prs_c_prs_bedrijf_t_uitvtijd CHECK(prs_bedrijf_t_uitvoertijd.tijdsduur >= 0), /* of null */
+    prs_relatietype_key
+        NUMBER(10)
+        CONSTRAINT prs_r_prs_relatietype_key REFERENCES prs_relatietype(prs_relatietype_key)
 );
 ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
@@ -450,6 +469,10 @@ CREATE_TABLE(prs_perslid,0)
         VARCHAR2(128),
     prs_perslid_authenticatie_exp
         DATE,
+    prs_perslid_otpsecret
+        VARCHAR2(128),
+    prs_perslid_otpcounter
+        NUMBER(10),
     prs_perslid_apikey
         VARCHAR2(128),
     prs_perslid_flags -- documentatie in appl/shared/user.inc
@@ -630,6 +653,13 @@ ADD
         NUMBER(10)
         CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key)
 );
+
+ALTER TABLE ins_scenario
+ADD
+(    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_perslid_key0 REFERENCES prs_perslid(prs_perslid_key)
+);
 /* Dat iemand ooit geinspecteerd heeft is geen reden om die niet te mogen verwijderen
    en de inspectie blijft evenzogoed als je niet meer weet wie het gedaan heeft,
    vandaar on delete set null */
@@ -863,6 +893,8 @@ prs_contactpersoon_functie
     VARCHAR2(30),
 prs_contactpersoon_opmerking
     VARCHAR2(255),
+prs_contactpersoon_uurloon
+    NUMBER(6,2),
 prs_bedrijf_key
     NUMBER(10)
     CONSTRAINT prs_r_prs_bedrijf_key4 REFERENCES prs_bedrijf(prs_bedrijf_key),

PRS/PRS_TRI.SRC

@@ -177,13 +177,16 @@ BEGIN
         BEGIN
             -- Ja, je zou zeggen dat dit een zaak is van prs_perslidwerkplek, maar
             -- dat is toch niet zo. Bovendien krijg je dan nare mutating trigger errors.
+            -- Alleen vaste werkplekken, geen flexplekken
             IF fac.getsetting ('prs_werkplek_implicit') = 1
             THEN
                 DELETE FROM prs_werkplek
                       WHERE prs_werkplek_key IN (SELECT prs_werkplek_key
                                                    FROM prs_perslidwerkplek
-                                                  WHERE prs_perslid_key = :old.prs_perslid_key);
+                                                  WHERE prs_perslid_key = :old.prs_perslid_key)
+                        AND prs_werkplek_type = 0;
                 -- Deze delete cascadeert naar de werkplekbezetting door, gooit die dus ook weg
+                -- Let wel: de werkplekken blijven helaas wel bestaan
             ELSE
                 -- Bij expliciet gooien wij de bezetting weg en blijft de werkplek leeg achter
                 DELETE FROM prs_perslidwerkplek
@@ -226,13 +229,14 @@ BEGIN
        :new.prs_perslid_salt := NULL;
        :new.prs_perslid_wachtwoord_hash := NULL;
        :new.prs_perslid_wachtwoord_exp := NULL;
+       :new.prs_perslid_otpsecret := NULL;
       END IF;
 
       IF    :new.prs_perslid_oslogin  IS NULL AND :old.prs_perslid_oslogin  IS NOT NULL
          OR :new.prs_perslid_oslogin2 IS NULL AND :old.prs_perslid_oslogin2 IS NOT NULL
          OR NVL(:new.prs_perslid_wachtwoord_hash, 'X') <> NVL(:old.prs_perslid_wachtwoord_hash, 'X')
       THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
-           --          automatisch door uitgelogt
+           --          automatisch door uitgelogd
          DELETE FROM fac_session
                WHERE prs_perslid_key = :new.prs_perslid_key;
       END IF;
@@ -244,10 +248,11 @@ AFTER INSERT OR UPDATE ON prs_perslid
 FOR EACH ROW
 BEGIN
   /*
-   * Als persoon een login krijgt, dan ook in de default autorisatiegroep als die nog geen rechten had
+   * Als echte persoon een login krijgt, dan ook in de default autorisatiegroep als die nog geen rechten had
    */
    IF :new.prs_perslid_verwijder IS NULLDATUM AND
-      :new.prs_perslid_oslogin IS NOT NULL AND :old.prs_perslid_oslogin IS NULL
+      :new.prs_perslid_oslogin IS NOT NULL AND :old.prs_perslid_oslogin IS NULL AND
+      SUBSTR(:new.prs_perslid_oslogin, 1, 1) <> '_'
    THEN
       BEGIN
          INSERT INTO fac_gebruikersgroep
@@ -312,16 +317,22 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(prs_t_prs_bedrijf_B_I)
+BEFORE INSERT ON prs_bedrijf
+FOR EACH ROW