FSN#40347 -- Parkeerplaatsenlijst houdt geen rekening met vervallen parkeerplaatsen

svn path=/Database/branches/DB30/; revision=33688

ADM/ADM_PAC.SRC

@@ -4,55 +4,18 @@
 
 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);
+   FUNCTION scriptspoolfile (custpattern IN VARCHAR2, scriptname IN VARCHAR) RETURN VARCHAR;
 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 +47,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)
@@ -127,14 +83,14 @@ AS
    EXCEPTION
        WHEN OTHERS
        THEN
-          IF SQLCODE IN (-942, -1418, -2289, -4043, -4080, -2443)
+          IF SQLCODE IN (-904, -942, -1418, -2289, -4043, -4080, -2443)
           THEN
-             -- did not exist, voor table, view, index, sequence, object and trigger, constraint
+             -- did not exist, voor identifier (column) table, view, index, sequence, object and trigger, constraint
              DBMS_OUTPUT.put_line ('Not found, not altered: ' || n);
              NULL;
-          ELSIF SQLCODE IN (-955)
+          ELSIF SQLCODE IN (-955, -1442)
           THEN
-             -- object already exist
+             -- object or not-null property already exist
              DBMS_OUTPUT.put_line ('Already exists, not altered:     ' || n);
              NULL;
           ELSE
@@ -142,7 +98,34 @@ AS
           END IF;
    END;
 
-END adm;
+   FUNCTION scriptspoolfile (custpattern  IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
+                             scriptname   IN VARCHAR)
+      RETURN VARCHAR
+   IS
+      lstname   VARCHAR2 (255);
+      tekst   VARCHAR2 (255);
+   BEGIN
+       IF NOT REGEXP_LIKE(USER, custpattern, 'i') THEN
+           tekst := CHR(10) || '============================================' || CHR(10)
+                 || 'Wrong user!!!!!!!!!' || CHR(10)
+                 || 'User should be match ' || custpattern || ' but is ' || USER || CHR(10)
+                 || '============================================' || CHR(10);
+           RAISE_APPLICATION_ERROR(-20000, tekst);
+       END IF;
+
+      lstname := UPPER (scriptname);
+      RETURN lstname || '_'
+             || UPPER(   USER
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVER_HOST'))
+             || '_'
+             || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
+             || '.lst';
+   END;
+
+   END adm;
 /
 
 REGISTERRUN('$Id$')

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_INI.SRC

@@ -3,7 +3,7 @@
  * $Id$
  */
 
-_FAC_MODULE('ALG','Vastgoedbeheer')
+_FAC_MODULE('ALG','lcl_module_ALG')
 
 DEF_FAC_MESSAGE ('ALG_OPENST_MELDING', 'heeft openstaande melding', '');
 DEF_FAC_MESSAGE ('ALG_BEVAT_OBJECT', 'bevat object', '');

ALG/ALG_TAB.SRC

@@ -73,7 +73,7 @@ CREATE_TABLE(alg_locatie,0)
         DATE
         DEFAULT NULLDATUM,
     alg_locatie_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_postcode
         VARCHAR2(12),
     alg_locatie_plaats
@@ -81,7 +81,7 @@ CREATE_TABLE(alg_locatie,0)
     alg_locatie_land
         VARCHAR2(30),
     alg_locatie_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_post_postcode
         VARCHAR2(12),
     alg_locatie_post_plaats
@@ -231,7 +231,7 @@ CREATE_TABLE(alg_gebouw,0)
         NUMBER(10)
         CONSTRAINT alg_r_alg_srtgebouw_key REFERENCES alg_srtgebouw(alg_srtgebouw_key),
     alg_gebouw_naam
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(alg_gebouw_naam, alg_c_alg_gebouw_naam),
     alg_gebouw_code
         VARCHAR2(12)
@@ -272,10 +272,13 @@ CREATE_TABLE(alg_gebouw,0)
 --    CONSTRAINT alg_r_mld_adres_key1 REFERENCES mld_adres(mld_adres_key),
     alg_gebouw_opmerking
         VARCHAR2(50),
--- in PRS_TAB.SRC: de gebouwverantwoordelijke
+-- in PRS_TAB.SRC: de gebouwverantwoordelijke (1 en 2)
 --    prs_perslid_key_verantw
 --        NUMBER(10)
 --        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
+--    prs_perslid_key_verantw2
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key),
     alg_gebouw_dwgx
         NUMBER(10,3),
     alg_gebouw_dwgy
@@ -298,6 +301,10 @@ 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),
+    alg_gebouw_vervaldatum
+        DATE,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 
@@ -382,17 +389,14 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(1)
         CONSTRAINT alg_c_prs_verhuurbaar CHECK(prs_verhuurbaar IS NULL
                                             OR prs_verhuurbaar = 1 ),
-    alg_srtruimte_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT alg_c_alg_srtruimt_uitvoertijd CHECK(alg_srtruimte_uitvoertijd >= 0),
     alg_srtruimte_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT alg_c_alg_srtruimt_t_uitvtijd CHECK(alg_srtruimte_t_uitvoertijd.tijdsduur >= 0),
    CONSTRAINT alg_c_prs_werkplek_verhuurbaar CHECK(NOT(prs_bevat_werkplek = 1
                                                     AND prs_verhuurbaar IS NULL)),
     CONSTRAINT alg_u_alg_srtruimte_upper UNIQUE(alg_srtruimte_upper, alg_srtruimte_verwijder)
 );
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_srtruimte_locatiegebouw,0)
 (
@@ -556,7 +560,7 @@ CREATE_TABLE(alg_kenmerk,0)
         VARCHAR2(10)
     ,alg_kenmerk_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+        CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,alg_kenmerk_systeem
         NUMBER(1)
     ,alg_kenmerk_toonbaar
@@ -569,6 +573,7 @@ CREATE_TABLE(alg_kenmerk,0)
        NUMBER(1)
     ,alg_kenmerk_groep
         NUMBER(1)
+       DEFAULT 0 NOT NULL
     ,alg_kenmerk_lengte
         NUMBER(4)
     ,alg_kenmerk_dec

ALG/ALG_TRI.SRC

@@ -448,18 +448,16 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'ALG_M238');
    END IF;
-   IF (:new.alg_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.alg_kenmerk_lengte IS NULL
+   IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.alg_kenmerk_kenmerktype = 'N'
-   AND :new.alg_kenmerk_lengte > 20
+   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20
    THEN
       :new.alg_kenmerk_lengte := 20;
    END IF;
-   IF :new.alg_kenmerk_kenmerktype = 'N' AND :old.alg_kenmerk_key IS NOT NULL
+   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :old.alg_kenmerk_key IS NOT NULL
    THEN
      IF :old.alg_kenmerk_nmin <> :new.alg_kenmerk_nmin OR
        :old.alg_kenmerk_nmin IS NULL AND :new.alg_kenmerk_nmin IS NOT NULL
@@ -614,7 +612,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -690,12 +688,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
@@ -1201,8 +1291,8 @@ AS
             x.ruimtesoort,
             x.ruimtegebruik,
             x.vloersoort,
-            REPLACE (TO_CHAR (ROUND (x.nen2580_opp, 2)), '.', ','),
-            REPLACE (TO_CHAR (ROUND (x.vloer_opp, 2)), '.', ','),
+            ROUND (x.nen2580_opp, 2),
+            ROUND (x.vloer_opp, 2),
             TO_CHAR (100 * ROUND (x.bezetting, 2)) || '%',
             x.werkplekken,
             x.alg_gebouw_key

BES/BES_INI.SRC

@@ -4,7 +4,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('BES','Bestellingenmodule')
+_FAC_MODULE('BES','lcl_module_BES')
 
 DEF_STATUS('bestelling', 1, 'lcl_bes_afgewezen');
 DEF_STATUS('bestelling', 2, 'lcl_bes_new');

BES/BES_PAC.SRC

@@ -771,7 +771,8 @@ AS
                p.prs_afdeling_key,
                abd.mld_adres_key_fac,
                bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
-               b.bes_bestelling_parentkey
+               b.bes_bestelling_parentkey,
+               b.prs_perslid_key
           FROM prs_bedrijf bd,
                bes_srtdeel s,
                bes_bestelling_item bi,
@@ -842,7 +843,7 @@ AS
                     BEGIN
                       SELECT a.prs_afdeling_parentkey
                         INTO afd_key_temp
-                        FROM prs_v_aanwezigafdeling a
+                        FROM prs_afdeling a
                        WHERE a.prs_afdeling_key = afd_key;
                       IF niveau != 1
                       THEN
@@ -900,7 +901,7 @@ AS
                 )
             VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
                  SYSDATE, rec1.mld_adres_key_lev, factura_key,
-                 i_userkey,
+                 rec1.prs_perslid_key,
                  lbord_id
                 );
             aantalopdrachtregels := 0;
@@ -1380,9 +1381,14 @@ 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   COALESCE(ma.alg_locatie_key, -1),
+         SELECT   DISTINCT
+                  COALESCE(ma.alg_locatie_key, -1),
                   p.prs_afdeling_key,
                   bsg.ins_discipline_key,
                   bd.ins_discipline_omschrijving
@@ -1414,14 +1420,21 @@ 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
+                  FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p, prs_v_afdeling d
                  WHERE       g.fac_functie_key = f.fac_functie_key
                          AND g.ins_discipline_key = ldisc_key
                          AND g.prs_perslid_key = p.prs_perslid_key
+                         AND d.prs_afdeling_key = p.prs_afdeling_key
                          AND (g.fac_gebruiker_prs_level_write = -1
-                              OR (g.fac_gebruiker_prs_level_write < 9
+                              OR (g.fac_gebruiker_prs_level_write = 0
+                              AND d.prs_bedrijf_key = (SELECT aa.prs_bedrijf_key
+                                                         FROM prs_v_afdeling aa
+                                                        WHERE aa.prs_afdeling_key = lafd_key))
+                              OR (g.fac_gebruiker_prs_level_write >0
                                   AND p.prs_afdeling_key IN
                                            (SELECT   prs_afdeling_key
                                               FROM   prs_v_afdeling_familie a
@@ -1452,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
@@ -1479,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),
@@ -1593,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
@@ -1631,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
@@ -1793,7 +1857,8 @@ AS
                   bes_bestelling_plaats,
                   mld_adres_key_lev,
                   prs_kostenplaats_key,
-                  bes_bestelling_leverdatum
+                  bes_bestelling_leverdatum,
+                  bes_bestelling_lev_opm
                   ) =
                      (SELECT bes_bestelling_datum,
                              prs_perslid_key,
@@ -1802,7 +1867,8 @@ AS
                              bes_bestelling_plaats,
                              mld_adres_key_lev,
                              prs_kostenplaats_key,
-                             bes_bestelling_leverdatum
+                             bes_bestelling_leverdatum,
+                             bes_bestelling_lev_opm
                         FROM bes_bestelling
                        WHERE bes_bestelling_key = beskey)
             WHERE bes_bestelling_key = orgbeskey;

BES/BES_TAB.SRC

@@ -30,6 +30,9 @@ CREATE_TABLE(bes_srtgroep,0)
         NOT_NULL(bes_srtgroep_omschrijving, bes_c_bes_srtgroep_omschr),
     bes_srtgroep_volgnr
         NUMBER(3),
+    prs_kostensoort_key
+        NUMBER(10)
+        CONSTRAINT bes_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key),
     bes_srtgroep_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -170,6 +173,9 @@ CREATE_TABLE(bes_srtdeel,0)
         NUMBER(6),
     bes_srtdeel_voorraadmax
         NUMBER(6),
+    bes_srtdeel_voorraadfactor
+        NUMBER(6)
+        DEFAULT 1,        /* factor tussen inkoop- en verkoopenheden van zelfde artikelnr tbv voorraadbepaling */
     bes_srtdeel_margepct  /* percentage van de leveranciersmarge (verkoop-inkoop) dat voor ons is, de rest is voor whoever */
         NUMBER(3),
     bes_srtdeel_wijzigdagen /* zoveel dagen voor leverdatum nog te wijzigen */
@@ -179,7 +185,11 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_depotverdeelpct
         NUMBER(3),
     bes_srtdeel_notitie /* magazijnlocatie */
-        VARCHAR2(50)
+        VARCHAR2(50),
+    bes_srtdeel_maxbestel    /* De voorrraad is het maximum aantal dat ik mag bestellen {0=nee (default), 1=ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 
@@ -248,7 +258,9 @@ CREATE_TABLE(bes_bestelling, 0)
     bes_bestelling_satisfaction_op
         VARCHAR2(2000),
     bes_bestelling_approved
-        NUMBER(11,2)
+        NUMBER(11,2),
+    bes_bestelling_lev_opm
+        VARCHAR2(320)
 );
 
 CREATE_TABLE(bes_bestelopdr, 0)
@@ -361,7 +373,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)
@@ -443,7 +457,7 @@ CREATE_TABLE(bes_disc_params, 0)
     bes_ins_discipline_key_inkoop  /* optionele corresponderende inkoopcatalogus tbv voorraad */
         NUMBER(10)
         CONSTRAINT bes_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
-    bes_disc_params_pgb /* 1=moet worden gecontroleerd tegen persoonsgebonden jaarbudget */
+    bes_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
         NUMBER(1),
     bes_disc_params_singlegroep /* 1=een bestelling mag alleen artikelen van 1 srtgroep bevatten */
         NUMBER(1),
@@ -487,7 +501,11 @@ CREATE_TABLE(bes_disc_params, 0)
         DEFAULT 1000000,
     bes_disc_params_bestellimiet5
         NUMBER(11,2)
-        DEFAULT 1000000
+        DEFAULT 1000000,
+    bes_disc_params_freeartikel /* Vrije-artikel mode {0=ouderwets, 1=vrij artikelen, 2=met suggest voor bestaande (future)} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 //// flexprops
@@ -527,7 +545,7 @@ CREATE_TABLE(bes_srtkenmerk, 0)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_omschr    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_srtkenmerk_omschrijving    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_u_bes_srtkenmerk_upper    UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
-,  CONSTRAINT bes_c_bes_srtkenmerk_kenmtype  CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+,  CONSTRAINT bes_c_bes_srtkenmerk_kenmtype  CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
 ,  CONSTRAINT bes_c_bes_srtkenmerk_systeem   CHECK(bes_srtkenmerk_systeem IS NULL
                                                 OR bes_srtkenmerk_systeem = 1)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_lengte    CHECK(bes_srtkenmerk_lengte >= 1
@@ -558,6 +576,7 @@ CREATE_TABLE(bes_kenmerk, 0)
       NUMBER(1)
 ,  bes_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  bes_kenmerk_toonbaar
       NUMBER(1)
 ,  bes_kenmerk_volgnummer

BES/BES_TRI.SRC

@@ -169,19 +169,17 @@ BEGIN
        raise_application_error(-20003, 'bes_C_bes_SRTKENMERK_SYSTEEM');
    END IF;
 
-   IF     (:NEW.bes_srtkenmerk_kenmerktype = 'C' OR :NEW.bes_srtkenmerk_kenmerktype = 'N')
-      AND :NEW.bes_srtkenmerk_lengte IS NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL
    THEN
       raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.bes_srtkenmerk_kenmerktype = 'N'
-   AND :new.bes_srtkenmerk_lengte > 20
+   IF :new.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20
    THEN
       :new.bes_srtkenmerk_lengte := 20;
    END IF;
 
-   IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :OLD.bes_srtkenmerk_key IS NOT NULL
    THEN
       IF    :OLD.bes_srtkenmerk_nmin <> :NEW.bes_srtkenmerk_nmin
          OR (:OLD.bes_srtkenmerk_nmin IS NULL AND :NEW.bes_srtkenmerk_nmin IS NOT NULL)
@@ -318,7 +316,7 @@ BEGIN
             THEN
                raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype = 'N'
+         ELSIF srtkenmerktype IN ('N', 'B')
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.
@@ -433,7 +431,7 @@ BEGIN
             THEN
                raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype = 'N'
+         ELSIF srtkenmerktype IN ('N', 'B')
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.

BES/BES_VIE.SRC

@@ -57,6 +57,8 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
                                     afdeling_omschrijving,
                                     alg_locatie_key,
                                     locatie_code,
+                                    locatie_omschrijving,
+                                    locatie_plaats,
                                     district_omschijving,
                                     afleveradres,
                                     mandaat,
@@ -84,28 +86,34 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
                                    )
 AS
    SELECT bes_bestelling_key, bestelaanvraagnr, besteldatum, besteller, invoerder, kostensoortgroep,kostensoort, kpn, kpn_omschrijving, prs_bedrijf_key,
-                afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, district_omschijving, afleveradres, mandaat,
+                afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, locatie_omschrijving, locatie_plaats, district_omschijving, afleveradres, mandaat,
                 personeelsnr, werkplek, ins_discipline_key, catalogus,  bes_srtgroep_key, groep, afleverdatum, doorlooptijd_werkdgn, sla_tijd,
                 productcode, prijs, inkoopprijs, status, gefiatteerddoor, bestelopdrachtnummer, aantal, itemprijs, iteminkoopprijs, bes_srtdeel_key, productomschrijving, itemposnr
      FROM (SELECT b.bes_bestelling_key bes_bestelling_key, 'A-' || b.bes_bestelling_key bestelaanvraagnr,
-                  TO_CHAR (b.bes_bestelling_datum, 'YYYY-MM-DD') besteldatum,
+                  TRUNC(b.bes_bestelling_datum) besteldatum,
                   (SELECT prs_perslid_naam_full
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = p.prs_perslid_key) besteller,
                   (SELECT prs_perslid_naam_full
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key))) invoerder,
-                  (select ksg.prs_kostensoortgrp_oms
-                                        from prs_kostensoortgrp ksg, prs_kostensoort ks
-                                        where ksg.PRS_KOSTENSOORTGRP_KEY = ks.PRS_KOSTENSOORTGRP_KEY
-                                        and ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
-                                                                                                from bes_discipline disc
-                                                                                                    where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key))  kostensoortgroep,
-                                    (select ks.prs_kostensoort_oms
-                                        from prs_kostensoort ks
-                                        where ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
-                                                                                                from bes_discipline disc
-                                                                                                    where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key))  kostensoort,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg,
+                          prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                      AND ks.prs_kostensoort_key =
+                            (SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
+                               FROM bes_discipline disc,
+                                    bes_srtgroep bsg
+                              WHERE disc.ins_discipline_key = d.ins_discipline_key)) kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                            (SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
+                               FROM bes_discipline disc,
+                                    bes_srtgroep bsg
+                              WHERE disc.ins_discipline_key = bsg.ins_discipline_key
+                                AND disc.ins_discipline_key = d.ins_discipline_key)) kostensoort,
                   k.prs_kostenplaats_nr kpn,
                   k.prs_kostenplaats_omschrijving kpn_omschrijving,
                   (SELECT prs_bedrijf_key
@@ -114,9 +122,9 @@ AS
                   a.prs_afdeling_naam afdeling_code,
                   a.prs_afdeling_omschrijving afdeling_omschrijving,
                   ma.alg_locatie_key alg_locatie_key,
-                  (SELECT alg_locatie_code
-                     FROM alg_locatie l
-                    WHERE l.alg_locatie_key = ma.alg_locatie_key) locatie_code,
+                  l.alg_locatie_code locatie_code,
+                  l.alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_plaats locatie_plaats,
                   (SELECT alg_district_omschrijving
                      FROM alg_locatie l, alg_district d
                     WHERE l.alg_district_key = d.alg_district_key
@@ -129,15 +137,14 @@ AS
                   d.ins_discipline_omschrijving catalogus,
                   sg.bes_srtgroep_key bes_srtgroep_key,
                   sg.bes_srtgroep_omschrijving groep,
-                  TO_CHAR (b.bes_bestelling_leverdatum, 'YYYY-MM-DD') afleverdatum,
-                  TO_CHAR (fac.count_work_days (b.bes_bestelling_datum, NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE))
-                          ) doorlooptijd_werkdgn,
+                  TRUNC(bes_bestelling_leverdatum) afleverdatum,
+                  fac.count_work_days (b.bes_bestelling_datum, NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE)) doorlooptijd_werkdgn,
                   NVL ((SELECT bdp.bes_disc_params_leverdagen
                           FROM bes_disc_params bdp
                          WHERE d.ins_discipline_key = bdp.bes_ins_discipline_key), 0) sla_tijd,
                   sd.bes_srtdeel_nr productcode,
-                  REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') prijs,
-                  REPLACE (TO_CHAR (NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') inkoopprijs,
+                  bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal prijs,
+                  NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) * bi.bes_bestelling_item_aantal inkoopprijs,
                   (SELECT bes_bestellingstatuses_omschr
                      FROM bes_bestellingstatuses bs
                     WHERE bs.bes_bestellingstatuses_key = b.bes_bestelling_status) status,
@@ -145,8 +152,8 @@ AS
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user) gefiatteerddoor,
                   'O-' || bo.bes_bestelopdr_id bestelopdrachtnummer, bi.bes_bestelling_item_aantal aantal,
-                  REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs, '9999990.99'), '.', ',') itemprijs,
-                  REPLACE (TO_CHAR (NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs), '9999990.99'), '.', ',') iteminkoopprijs,
+                  bi.bes_bestelling_item_prijs itemprijs,
+                  NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) iteminkoopprijs,
                   sd.bes_srtdeel_key bes_srtdeel_key,
                   sd.bes_srtdeel_omschrijving productomschrijving,
                   boi.bes_bestelopdr_item_posnr itemposnr
@@ -165,12 +172,14 @@ AS
                   bes_bestelopdr bo,
                   bes_srtdeel sd,
                   bes_srtgroep sg,
-                  ins_tab_discipline d
+                  ins_tab_discipline d,
+                  alg_locatie l
             WHERE b.prs_perslid_key = p.prs_perslid_key
               AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
               AND p.prs_afdeling_key = a.prs_afdeling_key
               AND b.mld_adres_key_lev = ma.mld_adres_key
               AND wp2.prs_perslid_key(+) = p.prs_perslid_key
+              AND l.alg_locatie_key(+) = ma.alg_locatie_key
               AND b.bes_bestelling_key = bi.bes_bestelling_key
               AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
               AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
@@ -252,6 +261,245 @@ AS
 CREATE_VIEW(bes_v_api_bestellingen, 1) AS SELECT * from bes_bestelling;
 CREATE_VIEW(bes_v_api_bestelopdrachten, 1) AS SELECT * from bes_bestelopdr;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bes_v_udr_bestelling, 1)
+(
+   bestelling_key,
+   bestelaanvraagnr,
+   besteldatum,
+   leverancier,
+   besteller,
+   invoerder,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   fclt_3d_afdeling_key,
+   afdeling_code,
+   afdeling_omschrijving,
+   fclt_3d_locatie_key,
+   locatie_code,
+   regio_omschrijving,
+   district_omschrijving,
+   afleveradres,
+   mandaat,
+   fclt_3d_discipline_key,
+   catalogus,
+   groep,
+   productomschrijving,
+   productcode,
+   afleverdatum,
+   doorlooptijd_werkdgn,
+   sla_tijd,
+   prijs,
+   inkoopprijs,
+   status,
+   gefiatteerddoor,
+   bestelopdrachtnummer,
+   aantal,
+   itemprijs,
+   iteminkoopprijs,
+   itemposnr
+)
+AS
+   SELECT bes_bestelling_key,
+          bestelaanvraagnr,
+          besteldatum,
+          bedrijf_naam,
+          besteller,
+          invoerder,
+          kostensoortgroep,
+          kostensoort,
+          kpn,
+          kpn_omschrijving,
+          prs_afdeling_key,
+          afdeling_code,
+          afdeling_omschrijving,
+          alg_locatie_key,
+          locatie_code,
+          regio_omschrijving,
+          district_omschijving,
+          afleveradres,
+          mandaat,
+          ins_discipline_key,
+          catalogus,
+          groep,
+          productomschrijving,
+          productcode,
+          afleverdatum,
+          doorlooptijd_werkdgn,
+          sla_tijd,
+          prijs,
+          inkoopprijs,
+          status,
+          gefiatteerddoor,
+          bestelopdrachtnummer,
+          aantal,
+          itemprijs,
+          iteminkoopprijs,
+          itemposnr
+     FROM (SELECT b.bes_bestelling_key bes_bestelling_key,
+                  'A-' || b.bes_bestelling_key bestelaanvraagnr,
+                  b.bes_bestelling_datum besteldatum,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = p.prs_perslid_key)
+                     besteller,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key =
+                             COALESCE (fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key),
+                                       fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)))
+                     invoerder,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                          AND ks.prs_kostensoort_key =
+                                (SELECT MAX(COALESCE (bsg.prs_kostensoort_key,
+                                                      disc.prs_kostensoort_key))
+                                   FROM bes_discipline disc, bes_srtgroep bsg
+                                  WHERE disc.ins_discipline_key = d.ins_discipline_key))
+                     kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                             (SELECT MAX(COALESCE (bsg.prs_kostensoort_key,
+                                                   disc.prs_kostensoort_key))
+                                FROM bes_discipline disc, bes_srtgroep bsg
+                               WHERE disc.ins_discipline_key = bsg.ins_discipline_key
+                                     AND disc.ins_discipline_key = d.ins_discipline_key))
+                     kostensoort,
+                  k.prs_kostenplaats_nr kpn,
+                  k.prs_kostenplaats_omschrijving kpn_omschrijving,
+                  (SELECT b.prs_bedrijf_naam
+                     FROM prs_bedrijf b
+                    WHERE b.prs_bedrijf_key = sd.prs_bedrijf_key)
+                     bedrijf_naam,
+                  a.prs_afdeling_key,
+                  a.prs_afdeling_naam afdeling_code,
+                  a.prs_afdeling_omschrijving afdeling_omschrijving,
+                  ma.alg_locatie_key alg_locatie_key,
+                  (SELECT alg_locatie_code
+                     FROM alg_locatie l
+                    WHERE l.alg_locatie_key = ma.alg_locatie_key)
+                     locatie_code,
+                  (SELECT alg_regio_omschrijving
+                     FROM alg_locatie l, alg_district d, alg_regio r
+                    WHERE r.alg_regio_key = d.alg_regio_key
+                          AND l.alg_district_key = d.alg_district_key
+                          AND l.alg_locatie_key = ma.alg_locatie_key)
+                     regio_omschrijving,
+                  (SELECT alg_district_omschrijving
+                     FROM alg_locatie l, alg_district d
+                    WHERE l.alg_district_key = d.alg_district_key
+                          AND l.alg_locatie_key = ma.alg_locatie_key)
+                     district_omschijving,
+                  ma.mld_adres_naam afleveradres,
+                  NVL ( (SELECT pr.fac_profiel_limiet
+                           FROM fac_profiel pr
+                          WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
+                     mandaat,
+                  d.ins_discipline_key ins_discipline_key,
+                  d.ins_discipline_omschrijving catalogus,
+                  sg.bes_srtgroep_omschrijving groep,
+                  b.bes_bestelling_leverdatum afleverdatum,
+                  fac.count_work_days (
+                     b.bes_bestelling_datum,
+                     NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE))
+                     doorlooptijd_werkdgn,
+                  NVL ( (SELECT bdp.bes_disc_params_leverdagen
+                           FROM bes_disc_params bdp
+                          WHERE d.ins_discipline_key = bdp.bes_ins_discipline_key), 0)
+                     sla_tijd,
+                  sd.bes_srtdeel_nr productcode,
+                  bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal prijs,
+                  NVL (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, bes_bestelling_datum),
+                       bi.bes_bestelling_item_prijs)
+                  * bi.bes_bestelling_item_aantal
+                     inkoopprijs,
+                  (SELECT bes_bestellingstatuses_omschr
+                     FROM bes_bestellingstatuses bs
+                    WHERE bs.bes_bestellingstatuses_key = b.bes_bestelling_status)
+                     status,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user)
+                     gefiatteerddoor,
+                  'O-' || bo.bes_bestelopdr_id bestelopdrachtnummer,
+                  bi.bes_bestelling_item_aantal aantal,
+                  bi.bes_bestelling_item_prijs itemprijs,
+                  NVL (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, bes_bestelling_datum),
+                       bi.bes_bestelling_item_prijs)
+                     iteminkoopprijs,
+                  sd.bes_srtdeel_omschrijving productomschrijving,
+                  boi.bes_bestelopdr_item_posnr itemposnr
+             FROM bes_bestelling b,
+                  prs_perslid p,
+                  prs_kostenplaats k,
+                  prs_afdeling a,
+                  mld_adres ma,
+                  bes_bestelling_item bi,
+                  bes_bestelopdr_item boi,
+                  bes_bestelopdr bo,
+                  bes_srtdeel sd,
+                  bes_srtgroep sg,
+                  ins_tab_discipline d
+            WHERE     b.prs_perslid_key = p.prs_perslid_key
+                  AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
+                  AND p.prs_afdeling_key = a.prs_afdeling_key
+                  AND b.mld_adres_key_lev = ma.mld_adres_key
+                  AND b.bes_bestelling_key = bi.bes_bestelling_key
+                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
+                  AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+                  AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
+                  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_INI.SRC

@@ -3,7 +3,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('BEZ','Bezoekersregistratie')
+_FAC_MODULE('BEZ','lcl_module_BEZ')
 
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Onbekend');
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Ontvanger bellen');

BEZ/BEZ_PAC.SRC

@@ -29,7 +29,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          SELECT   bez_bezoekers_key,
                   bez_afspraak_naam,
                   bez_afspraak_bedrijf,
-                  bez_afspraak_opmerking,
+                  bez_bezoekers_opmerking,
                   prs_contactpersoon_key
            FROM   bez_bezoekers
           WHERE   bez_afspraak_key = pkey;
@@ -54,13 +54,23 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
       SELECT   bez_s_bez_afspraak_key.NEXTVAL INTO newafspraakkey FROM DUAL;
 
-      INSERT INTO bez_afspraak (bez_afspraak_key, prs_perslid_key, bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_gastheer, bez_afspraak_datum, bez_actie_key, alg_locatie_key, res_rsv_ruimte_key, alg_onrgoed_keys, bez_afspraak_ruimte, bez_afspraak_opmerking, bez_afspraak_eind
+      INSERT INTO bez_afspraak (bez_afspraak_key,
+                  prs_perslid_key,
+                  bez_afspraak_host_key,
+                  bez_afspraak_contact_key,
+                  bez_afspraak_gastheer,
+                  bez_afspraak_telefoonnr,
+                  bez_afspraak_datum, bez_actie_key,
+                  alg_locatie_key, res_rsv_ruimte_key,
+                  alg_onrgoed_keys, bez_afspraak_ruimte,
+                  bez_afspraak_opmerking, bez_afspraak_eind
                                )
          SELECT   newafspraakkey,
                   puserkey,
                   a.bez_afspraak_host_key,
                   a.bez_afspraak_contact_key,
                   a.bez_afspraak_gastheer,
+                  a.bez_afspraak_telefoonnr,
                   nieuwvan,
                   a.bez_actie_key,
                   a.alg_locatie_key,
@@ -82,7 +92,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                        bez_afspraak_key,
                                        bez_afspraak_naam,
                                        bez_afspraak_bedrijf,
-                                       bez_afspraak_opmerking,
+                                       bez_bezoekers_opmerking,
                                        prs_contactpersoon_key
                     )
            VALUES   (
@@ -90,7 +100,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                         newafspraakkey,
                         b.bez_afspraak_naam,
                         b.bez_afspraak_bedrijf,
-                        b.bez_afspraak_opmerking,
+                        b.bez_bezoekers_opmerking,
                         b.prs_contactpersoon_key
                     );
 
@@ -181,6 +191,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 +220,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
@@ -228,15 +249,23 @@ CREATE OR REPLACE PACKAGE BODY bez AS
               FROM   res_ruimte_opstelling ro, res_alg_ruimte rag, alg_ruimte r, alg_verdieping v, alg_gebouw g
              WHERE       ro.res_ruimte_key = rag.res_ruimte_key
                      AND rag.alg_ruimte_key = r.alg_ruimte_key
+                     AND res_alg_ruimte_verwijder IS NULL
                      AND r.alg_verdieping_key = v.alg_verdieping_key
                      AND v.alg_gebouw_key = g.alg_gebouw_key
                      AND ro.res_ruimte_opstel_key = topstel;
          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
@@ -247,10 +276,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
@@ -260,6 +289,14 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
                              -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
                              AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -271,10 +308,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
@@ -286,6 +323,14 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND (og.alg_gebouw_key = palg_gebter_key
                                OR og.alg_terreinsector_key = palg_gebter_key)
                              AND id.ins_alg_ruimte_type IN ('R', 'T')
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;

BEZ/BEZ_TAB.SRC

@@ -84,6 +84,8 @@ CREATE_TABLE(bez_bezoekers,0)
         CONSTRAINT bez_r_prs_perslid REFERENCES prs_perslid(prs_perslid_key),
     bez_bezoekers_pasnr
         VARCHAR2(30),
+    bez_bezoekers_opmerking
+        VARCHAR2(50),
     bez_afspraak_opmerking
         VARCHAR2(50),
     bez_bezoekers_done
@@ -91,7 +93,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
  );
 
 
@@ -123,7 +128,7 @@ CREATE_TABLE(bez_kenmerk,0)
     ,bez_kenmerk_kenmerktype
         VARCHAR2(1)
         CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
-         (bez_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+         (bez_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,bez_kenmerk_systeem
         NUMBER(1)
     ,bez_kenmerk_toonbaar
@@ -136,6 +141,7 @@ CREATE_TABLE(bez_kenmerk,0)
         NUMBER(1)
     ,bez_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,bez_kenmerk_lengte
         NUMBER(4)
     ,bez_kenmerk_dec

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

@@ -19,7 +19,7 @@ SELECT a.bez_afspraak_key,
        b.bez_bezoekers_key,
        b.bez_afspraak_naam bezoeker_naam,
        b.bez_afspraak_bedrijf bezoeker_bedrijf,
-       b.bez_afspraak_opmerking bezoeker_opmerking,
+       b.bez_bezoekers_opmerking bezoeker_opmerking,
        b.bez_bezoekers_done,
        b.bez_bezoekers_out,
        b.bez_bezoekers_pasnr
@@ -33,6 +33,95 @@ SELECT a.bez_afspraak_key,
        AND p2.prs_perslid_key = a.bez_afspraak_contact_key
        AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bez_v_udr_bezoeker, 1)
+(
+   key,
+   host,
+   contact,
+   plaats_code,
+   plaats_omschrijving,
+   regio,
+   district,
+   locatie_code,
+   locatie_naam,
+   locatie_plaats,
+   gebouw_code,
+   gebouw_naam,
+   verdieping_code,
+   verdieping_naam,
+   ruimte_code,
+   ruimte_naam,
+   afspraak_ruimte,
+   afspraak_opmerking,
+   bezoeker_naam,
+   bezoeker_bedrijf,
+   bezoek_van,
+   bezoek_tot,
+   actie,
+   bezoeker_opmerking,
+   bezoeker_binnen,
+   bezoeker_buiten,
+   pasnr,
+   parkeerplaats,
+   fclt_3d_locatie_key,
+   fclt_3d_afdeling_key
+)
+AS
+   SELECT b.bez_bezoekers_key,
+          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,
+          r.alg_regio_omschrijving,
+          d.alg_district_omschrijving,
+          l.alg_locatie_code,
+          l.alg_locatie_omschrijving,
+          l.alg_locatie_plaats,
+          og.alg_gebouw_code,
+          og.alg_gebouw_naam,
+          og.alg_verdieping_code,
+          og.alg_verdieping_omschrijving,
+          og.alg_ruimte_nr,
+          og.alg_ruimte_omschrijving,
+          a.bez_afspraak_ruimte,
+          a.bez_afspraak_opmerking,
+          b.bez_afspraak_naam bezoeker_naam,
+          b.bez_afspraak_bedrijf bezoeker_bedrijf,
+          a.bez_afspraak_datum,
+          a.bez_afspraak_eind,
+          ba.bez_actie_omschrijving,
+          b.bez_bezoekers_opmerking bezoeker_opmerking,
+          b.bez_bezoekers_done,
+          b.bez_bezoekers_out,
+          b.bez_bezoekers_pasnr,
+          rd.res_deel_omschrijving,
+          og.alg_locatie_key,
+          pp1.prs_afdeling_key
+     FROM bez_afspraak a,
+          bez_bezoekers b,
+          prs_v_perslid_fullnames_all p1,
+          prs_v_perslid_fullnames_all p2,
+          alg_v_allonrgoed_gegevens og,
+          alg_locatie l,
+          alg_district d,
+          alg_regio r,
+          bez_actie ba,
+          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 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 b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
+          AND rrd.res_deel_key = rd.res_deel_key(+);
+
 REGISTERRUN('$Id$')
 
 #endif  // BEZ

CAD/CAD_INI.SRC

@@ -4,7 +4,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('CAD','Facilitor Graphics')
+_FAC_MODULE('CAD','lcl_module_CAD')
 
 
 INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default legenda', 1);
@@ -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

@@ -64,7 +64,7 @@ CREATE_TABLE(cad_legendawaarde,0)
 
 
 /* Welke thema's -kleur of label- zijn gedefinieerd?
- *      _type: bitwise codering: 
+ *      _type: bitwise codering:
  * bit 0 (1) is gezet voor 'binnen'
  * bit 1 (2) is gezet voor 'buiten'. (bit 0 en 1 mogen niet beide gezet zijn en ook niet beide leeg zijn)
  * bit 2 (4) is gezet voor projectomgeving (0 is actuele situatie)
@@ -75,6 +75,7 @@ CREATE_TABLE(cad_legendawaarde,0)
  * bit 5 (32) is gereserveerd
  * bit 6 (64) is gereserveerd
  * bit 7 (128) is gezet voor 'draggable', dan kan dit thema worden gebruikt om te muteren (FSN#14942).
+ * De optionele onclick_url wordt (vooralsnog) gebruikt in de touch-omgevingen (FSN#31594), aangevuld met de key (afh type)
  */
 
 CREATE_TABLE(cad_thema,0)
@@ -90,11 +91,14 @@ CREATE_TABLE(cad_thema,0)
     cad_thema_view
         VARCHAR2(1000)
         NOT_NULL(cad_thema_view, cad_c_cad_thema_view),
-    cad_thema_type VARCHAR2(3)
+    cad_thema_type
+        VARCHAR2(3)
         CONSTRAINT cad_c_cad_thema_type CHECK (cad_thema_type BETWEEN 1 AND 255),
     fac_functie_key
         NUMBER(10)
-        CONSTRAINT cad_fac_functie_key1 REFERENCES fac_functie(fac_functie_key)
+        CONSTRAINT cad_fac_functie_key1 REFERENCES fac_functie(fac_functie_key),
+    cad_thema_onclick_url
+        VARCHAR2(512)
 );
 
 CREATE_TABLE(cad_label,0)
@@ -114,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)
@@ -138,8 +147,8 @@ CREATE_TABLE(cad_imp_contour,0)
     cad_imp_contour_concept
         NUMBER(1)       -- valid are 0, 1
         DEFAULT 0
--- in PRJ_TAB.SRC:  
---  prj_scenario_key 
+-- in PRJ_TAB.SRC:
+--  prj_scenario_key
 --      NUMBER(10) REFERENCES prj_scenario(prj_scenario_key) ON DELETE CASCADE
 );
 

CAD/CAD_VIE.SRC

@@ -779,7 +779,7 @@ AS
    SELECT r.alg_ruimte_key,
           DECODE (rr.res_ruimte_key,  -- is dit een vergaderruimte?
                   NULL, '*' || sr.alg_srtruimte_omschrijving,
-                  DECODE (r2a.res_reservering_key, NULL, 0, 2))        -- 0 uit / 1 noshow / 2 aan
+                  DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan'))        -- 0 uit / 1 noshow / 2 aan
      FROM alg_v_aanwezigruimte r,
           alg_srtruimte sr,
           (SELECT rr2a.res_reservering_key, rr2a.alg_ruimte_key

CARE/CARE_INI.SRC

@@ -5,7 +5,7 @@
  * $Id$
  */
 
-_FAC_MODULE('CARE','Care-Webb')
+_FAC_MODULE('CARE','lcl_module_CARE')
 
 
 ------------ De eenvoudige bedrijfsstructuur vormgeven via 3 nivo's: bedrijf, afdeling en subafdeling ------------
@@ -142,18 +142,32 @@ INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,a
                                                  alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
 VALUES (1006, 'L', 33, 'Veiling tarieven', 'N', 1, 0, 1);
 
+
+-- BONS#31596: Gemeente is een budgetgemeente, van invloed op:
+-- kolom T+U+V van het Iwmo facturen rapport en,
+-- de clienten worden niet naar het CAK gestuurd.
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1007, 'L', 34, 'Budgetgemeente', 'N', 1, 0, 1);
+
+-- BONS#32746: OB code in het CAK rapport
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1008, 'L', 31, 'Ondersteunende Begeleiding', 'N', 1, 0, 1);
+
+
 -- Label factuur-infix en factuur-postfix
 INSERT INTO alg_kenmerk
 (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_default,alg_kenmerk_kenmerktype)
-VALUES (1003, 'L', 35, 'Factuurnr specificatie','<span style="color:red">Gemeente afhankelijke factuurnummers (afwijkend van standaard) </span>','L');
+VALUES (1003, 'L', 40, 'Factuurnr specificatie','<span style="color:red">Gemeente afhankelijke factuurnummers (afwijkend van standaard) </span>','L');
 
 -- Factnr infix (ATCH#21599)
 INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_kenmerktype, alg_kenmerk_lengte)
-VALUES (1004, 'L', 37, 'Factuurnr. infix', 'C', 10);
+VALUES (1004, 'L', 42, 'Factuurnr. infix', 'C', 10);
 
 -- Factnr suffix (ATCH#21599)
 INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_kenmerktype, alg_kenmerk_lengte)
-VALUES (1005, 'L', 39, 'Factuurnr. postfix', 'C', 10);
+VALUES (1005, 'L', 44, 'Factuurnr. postfix', 'C', 10);
 
 
 -- Label archief
@@ -838,6 +852,7 @@ AND UPPER(FAC_LOCALEITEMS_LCL) = 'LCL_MLD_BEHANDELAAR';
 -- FAC-TABELLEN FAC_USRRAP
 
 -- Rapportages
+-- Rapport IWMO) voor de BACKOFFICE/ADMINISTRATIE: Iwmo factuur rapport (BONS#31596)
 -- Rapport A) voor de BACKOFFICE/ADMINISTRATIE: NIET ingeleverde weekbrieven (UUR_BOF).
 -- Rapport B) voor de FRONTOFFICE/TEAMLEIDER: NIET ingeleverde weekbrieven van de teamleden (UUR_FOF).
 -- Rapport C) voor de FRONTEND/VERZORGER,medewerker: Overzichtslijst van je teamgenoten (WEB_MLDORD).
@@ -850,6 +865,36 @@ AND UPPER(FAC_LOCALEITEMS_LCL) = 'LCL_MLD_BEHANDELAAR';
 -- Rapport J) voor de MANINFO/FACTUURADMIN: Factuurrapport voor de gemaakte uren binnen 1 PERIODE, per week, per verzorger - variant C: (MLDBAC).
 
 
+
+-- BONS#31596: Iwmo factuurrapport via XSL
+-- Rapport Iwmo) FACTUURrapport voor Iwmo:
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving,
+             fac_usrrap_view_name,
+             fac_usrrap_in_huidige_locatie,
+             fac_usrrap_template,
+             fac_usrrap_macro,
+             fac_usrrap_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Factuur Iwmo) Per beschikking in periode, per week',
+             'care_v_rap2_factuur_uren_iwmo',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             1,
+             'Factuurrapportage Iwmo',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
+
+
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1474,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
@@ -1502,6 +1567,26 @@ INSERT INTO fac_usrrap
              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';
 
 
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -2073,7 +2158,7 @@ FROM  DUAL
 CONNECT BY LEVEL <= 1*52+1;
 
 INSERT INTO care_t_qvw_periodeweektabel
-SELECT 
+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,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
@@ -2081,7 +2166,7 @@ SELECT
 FROM  DUAL
 CONNECT BY LEVEL <= 1*52+1
 UNION
-SELECT 
+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,
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,

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

CNT/CNT_IND.SRC

@@ -19,11 +19,13 @@ 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);
 
 CREATE INDEX cnt_i_cnt_contract_note1 ON cnt_contract_note(cnt_contract_key);
+CREATE UNIQUE INDEX cnt_i_cnt_factuurschema1 ON cnt_factuurschema(cnt_contract_key, cnt_factuurschema_boekmaand);
 
 REGISTERONCE('$Id$')
 

CNT/CNT_INI.SRC

@@ -5,13 +5,13 @@
 /*
 ** Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden.
 */
-_FAC_MODULE('CNT','Contractbeheer')
+_FAC_MODULE('CNT','lcl_module_CNT')
 
 /*
 **      De MESSAGES van de CNT module.
 */
 DEF_FAC_MESSAGE ('CNT_M001','Verwijderen contract','Delete contract');
-DEF_FAC_MESSAGE ('CNT_M002','Er moet of een bedrijf of een afdeling ingevuld worden.','Either a company or a department must be entered.');
+DEF_FAC_MESSAGE ('CNT_M002','Er moet of een bedrijf of een afdeling of een persoon ingevuld worden.','Either a company or a department or a person must be entered.');
 DEF_FAC_MESSAGE ('CNT_M003','Locatie bestaat niet.','Location does not exist.');
 DEF_FAC_MESSAGE ('CNT_M004','Terreinsector bestaat niet.','Sublocation does not exist.');
 DEF_FAC_MESSAGE ('CNT_M005','Gebouw bestaat niet.','Building does not exist.');

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;
@@ -14,6 +15,8 @@ CREATE OR REPLACE PACKAGE cnt AS
 
   PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER);
   PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER);
+  PROCEDURE generatefactuurschema (pcontractkey IN NUMBER,ptermijnbedrag   IN NUMBER DEFAULT NULL);
+
   FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
   FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
 
@@ -93,7 +96,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 +142,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;
@@ -299,8 +344,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE;
       new_status cnt_contract.cnt_contract_status%TYPE;
    BEGIN
-      -- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum,
-      -- en een nieuwe kopie die begint op die datum
+      -- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum - 1,
+      -- en een nieuwe kopie die begint op die p_datum
       -- p_amount is -optioneel- het bedrag dat bij het oude contract moeten blijven
       -- de rest komt bij de nieuwe. Als p_amount NULL is, eindigen beide contracten
       -- met het originele bedrag.
@@ -337,8 +382,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
       -- de datum is een zinvolle splitsdatum, alles in orde
       INSERT INTO cnt_contract (cnt_contract_nummer, cnt_contract_omschrijving, cnt_contract_looptijd_tot, cnt_contract_kosten,
-                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_contract_verwijder,
-                                cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
+                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_prs_perslid_key,
+                                cnt_contract_verwijder, cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
                                 cnt_contract_contact_persoon, ins_discipline_key, cnt_contract_document,
                                 prs_perslid_key_eig, prs_perslid_key_beh, prs_afdeling_key_eig, cnt_contract_status,
                                 cnt_contract_looptijd_van, prs_kostenplaats_key, cnt_contract_termijnkosten, prs_kostensoort_key,
@@ -352,6 +397,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
                   cnt_prs_afdeling_key,
+                  cnt_prs_perslid_key,
                   NULL,
                   cnt_contract_nummer_intern,
                   cnt_contract_korting,
@@ -455,12 +501,52 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       --cnt_factuurschema: splitst op dezelfde grensdatum
       UPDATE   cnt_factuurschema
          SET   cnt_contract_key = newkey
-       WHERE   cnt_contract_key = p_key AND cnt_factuurschema_datum > p_datum;
+       WHERE   cnt_contract_key = p_key
+         AND cnt_factuurschema_boekmaand >= TO_CHAR(p_datum, 'YYYY-MM');
 
       fac.trackaction ('CNTNEW', newkey, p_user, NULL, NULL);
 
    END splitscontract;
 
+   -- Genereer een factuurschema met een gelijk bedrag per maand gedurende
+   -- de looptijd van het contract
+   -- Verondersteld dat er nog geen schema was.
+   PROCEDURE generatefactuurschema (
+      pcontractkey     IN NUMBER,
+      ptermijnbedrag   IN NUMBER DEFAULT NULL)
+   AS
+      maanden          NUMBER (10);
+      maand            NUMBER (10);
+      ltermijnbedrag   cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
+   BEGIN
+      FOR cnt_rec
+         IN (SELECT cnt_contract_kosten,
+                    cnt_contract_looptijd_tot,
+                    cnt_contract_looptijd_van
+               FROM cnt_contract
+              WHERE cnt_contract_key = pcontractkey)
+      LOOP
+         maanden :=
+            1
+            + TRUNC(MONTHS_BETWEEN (cnt_rec.cnt_contract_looptijd_tot,
+                                    cnt_rec.cnt_contract_looptijd_van));
+
+         ltermijnbedrag :=
+            COALESCE (ptermijnbedrag, cnt_rec.cnt_contract_kosten / maanden);
+         FOR maand IN 0 .. maanden - 1
+         LOOP
+            INSERT INTO cnt_factuurschema (cnt_contract_key,
+                                           cnt_factuurschema_boekmaand,
+                                           cnt_factuurschema_bedrag)
+                VALUES (pcontractkey,
+                        TO_CHAR (
+                           ADD_MONTHS (cnt_rec.cnt_contract_looptijd_van, maand),
+                           'YYYY-MM'),
+                        ltermijnbedrag);
+         END LOOP;
+      END LOOP;
+   END;
+
    -- Zoek de key van de hoogste revisie van het meegegeven contract
    -- Beseffende dat _versie een oplopende reeks is en hopende dat
    -- nummer_intern hetzelfde blijft over versies en vrij uniek is
@@ -506,7 +592,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN VARCHAR2
    IS
       s VARCHAR2 (2048 CHAR);
-      varlev prs_bedrijf.prs_bedrijf_naam%TYPE;
+      varlev VARCHAR2 (255 CHAR); -- Kan nu ook een samenstelling zijn van prs_perslid gegevens.
       varomsch cnt_contract.cnt_contract_omschrijving%TYPE;
       varnummer cnt_contract.cnt_contract_nummer_intern%TYPE;
    BEGIN
@@ -517,12 +603,19 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       -- ##KEY##    = cnt_contract_nummer_intern
       IF INSTR (s, '#') > 0
       THEN
-           SELECT prs_bedrijf_naam,
+         SELECT   COALESCE(prs_bedrijf_naam, fac.getsetting ('prs_pers_string'), fac.getsetting ('prs_dep_string')),
                   cnt_contract_omschrijving,
                   cnt_contract_nummer_intern
-           INTO   varlev, varomsch, varnummer
-           FROM   cnt_contract c, prs_bedrijf b
-          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+           INTO   varlev,
+                  varomsch,
+                  varnummer
+           FROM   cnt_contract c,
+                  prs_bedrijf b,
+                  prs_perslid p,
+                  prs_afdeling a
+          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+            AND   c.cnt_prs_perslid_key = p.prs_perslid_key(+)
+            AND   c.cnt_prs_afdeling_key = a.prs_afdeling_key(+)
             AND   c.cnt_contract_key = p_contract_key;
          s :=
             REPLACE (REPLACE (REPLACE (s, '##LEV##', varlev), '##OMSCH##', varomsch),

CNT/CNT_TAB.SRC

@@ -44,6 +44,10 @@ CREATE_TABLE(cnt_disc_params, 0)
         CONSTRAINT cnt_r_cnt_typecontract_key REFERENCES cnt_typecontract(cnt_typecontract_key),
     cnt_disc_params_opmerking
         VARCHAR2(320),
+    cnt_disc_params_factuurschema
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     cnt_disc_params_factuurmarge
         NUMBER(8,2)
         DEFAULT 0,
@@ -90,11 +94,17 @@ 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
    NUMBER(10)
    CONSTRAINT cnt_r_prs_bedrijf_key REFERENCES prs_bedrijf(prs_bedrijf_key)
+,  cnt_prs_perslid_key
+   NUMBER(10)
+   CONSTRAINT cnt_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
 ,  cnt_prs_afdeling_key
    NUMBER(10)
    CONSTRAINT cnt_r_prs_afdeling_key REFERENCES prs_afdeling(prs_afdeling_key)
@@ -288,7 +298,7 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_omschr    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_srtkenmerk_omschrijving    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_u_cnt_srtkenmerk_upper    UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
-,  CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype  CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+,  CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype  CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_systeem   CHECK(cnt_srtkenmerk_systeem IS NULL
                                                 OR cnt_srtkenmerk_systeem = 1)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_lengte    CHECK(cnt_srtkenmerk_lengte >= 1
@@ -313,6 +323,7 @@ CREATE_TABLE(cnt_kenmerk, 0)
       NUMBER(1)
 ,  cnt_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_toonbaar
       NUMBER(1)
 ,  cnt_kenmerk_volgnummer
@@ -365,7 +376,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
 );
 
@@ -445,12 +456,15 @@ CREATE_TABLE(cnt_factuurschema , 0)
         NUMBER(10)
         NOT NULL
         CONSTRAINT cnt_r_cnt_factuurschema1 REFERENCES cnt_contract(cnt_contract_key),
-    cnt_factuurschema_datum
-        DATE,
+    cnt_factuurschema_boekmaand  /* format YYYY-MM */
+        VARCHAR2(7),
     cnt_factuurschema_bedrag
         NUMBER(11,2),
-    cnt_factuurschema_referentie
-        VARCHAR2(20)
+    cnt_factuurschema_opmerking
+        VARCHAR2(320),
+    cnt_factuurschema_aanmaak
+        DATE
+        DEFAULT SYSDATE
 );
 
 REGISTERONCE('$Id$')

CNT/CNT_TRI.SRC

@@ -55,9 +55,14 @@ BEFORE INSERT OR UPDATE ON cnt_contract
 FOR EACH ROW
 BEGIN
   IF (   :new.cnt_prs_bedrijf_key  IS NULL
-     AND :new.cnt_prs_afdeling_key IS NULL)
+     AND :new.cnt_prs_afdeling_key IS NULL
+     AND :new.cnt_prs_perslid_key  IS NULL)
   OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
      AND :new.cnt_prs_afdeling_key IS NOT NULL)
+  OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
+     AND :new.cnt_prs_perslid_key IS NOT NULL)
+  OR (   :new.cnt_prs_perslid_key  IS NOT NULL
+     AND :new.cnt_prs_afdeling_key IS NOT NULL)
   THEN
     APPLICATION_ERROR_GOTO(-20000,'cnt_m002');
   ELSE
@@ -134,20 +139,18 @@ BEGIN
     raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
   END IF;
   --
-  IF (:new.cnt_srtkenmerk_kenmerktype = 'C'
-  OR  :new.cnt_srtkenmerk_kenmerktype = 'N')
-  AND :new.cnt_srtkenmerk_lengte IS NULL
+  IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL
   THEN
     raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_LENGTE');
   END IF;
   -- Numeriek mag niet te lang zijn (numeric overflow)
-  IF :new.cnt_srtkenmerk_kenmerktype = 'N'
+  IF :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
   AND :new.cnt_srtkenmerk_lengte > 20
   THEN
      :new.cnt_srtkenmerk_lengte := 20;
   END IF;
   --
-  IF  :new.cnt_srtkenmerk_kenmerktype = 'N'
+  IF  :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
   AND :old.cnt_srtkenmerk_key IS NOT NULL
   THEN
     IF :old.cnt_srtkenmerk_nmin <> :new.cnt_srtkenmerk_nmin
@@ -272,7 +275,7 @@ BEGIN
         THEN
           APPLICATION_ERROR_GOTO(-20004, 'cnt_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
         END IF;
-      ELSIF SrtKenmerkType = 'N'
+      ELSIF SrtKenmerkType IN ('N', 'B')
       THEN
         -- NUMBER
         -- Controleer of er een numerieke waarde ingevuld is.

CNT/CNT_VIE.SRC

@@ -273,31 +273,12 @@ SELECT basis.contract_key, basis.internnr, basis.externnr,
                   cs.ins_discipline_omschrijving contractsoort,
                   tc.cnt_typecontract_key typecontract_key,
                   tc.cnt_typecontract_omschrijving typecontract,
-                  TO_CHAR
-                       (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE),
-                        'DD-MM-YYYY'
-                       ) ingangsdatum,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) rappeldatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE)) ingangsdatum,
+                  TRUNC (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) rappeldatum,
                   rt.cnt_termijn_omschrijving rappeltermijn,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) opzegdatum,
+                  TRUNC (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) opzegdatum,
                   ot.cnt_termijn_omschrijving opzegtermijn,
-                  TO_CHAR (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE),
-                           'DD-MM-YYYY'
-                          ) einddatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)) einddatum,
                   (SELECT d.prs_afdeling_naam6
                      FROM prs_v_aanwezigafdeling d
                     WHERE d.prs_afdeling_key =
@@ -631,7 +612,8 @@ AS
                                                           'N',
                                                           'R',
                                                           'S',
-                                                          'X')
+                                                          'X',
+                                                          'B')
                                                 AND EXISTS
                                                       (SELECT   1
                                                          FROM   cnt_kenmerk k
@@ -925,6 +907,361 @@ AS
                ck k25
             ON x.cnt_contract_key = k25.cnt_contract_key AND k25.vnr = 25;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* NB: een contract komt net zo vaak voor als zijn scope */
+CREATE_VIEW(cnt_v_udr_contract, 1)
+(
+   nummer,
+   nummer_extern,
+   versie,
+   contractsoort,
+   omschrijving,
+   opmerking,
+   contractpartij,
+   contractafdeling,
+   contracteigenaar,
+   contractbeheerder,
+   begindatum,
+   einddatum,
+   opzegdatum,
+   rappeldatum,
+   opzegtermijn,
+   rappeltermijn,
+   fase_actief,
+   status,
+   contract_key,
+   fclt_3d_discipline_key,
+   fclt_3d_afdeling_key,
+   srtcontract_type,
+   fclt_3d_locatie_key,
+   locatie_oms,
+   locatie_omschrijving,
+   locatie_plaats,
+   regio_omschrijving,
+   district_omschrijving,
+   locatie_code,
+   gebouw,
+   gebouw_naam,
+   discipline_omschrijving,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   kosten,
+   termijnkosten,
+   factuurtermijn,
+   jaarkosten,
+   korting,
+   dienst_omschrijving
+)
+AS
+   SELECT c.cnt_contract_nummer_intern,
+          c.cnt_contract_nummer,
+          c.cnt_contract_versie,
+          lcl.x ('ins_discipline_omschrijving',
+                 cd.ins_discipline_key,
+                 cd.ins_discipline_omschrijving),
+          c.cnt_contract_omschrijving,
+          c.cnt_contract_document,
+          COALESCE (b.prs_bedrijf_naam, afd2.prs_afdeling_naam, pf2.prs_perslid_naam_full),
+          d.prs_afdeling_omschrijving,
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all
+            WHERE prs_perslid_key = prs_perslid_key_eig),
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all
+            WHERE prs_perslid_key = prs_perslid_key_beh),
+          c.cnt_contract_looptijd_van begindatum,
+          c.cnt_contract_looptijd_tot einddatum,
+          cnt.cnt_getopzegdatum (c.cnt_contract_key) cnt_opzegdatum,
+          cnt.cnt_getrappeldatum (c.cnt_contract_key) cnt_rappeldatum,
+          (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
+             FROM cnt_termijn
+            WHERE cnt_termijn_key = c.cnt_contract_opzegtermijn)
+             cnt_opzegtermijn,
+          (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
+             FROM cnt_termijn
+            WHERE cnt_termijn_key = c.cnt_contract_rappeltermijn)
+             cnt_rappeltermijn,
+          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,
+          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,
+          (SELECT lcl.x ('cnt_typecontract_omschrijving',
+                         dp.cnt_srtcontract_type,
+                         cnt_typecontract_omschrijving)
+             FROM cnt_typecontract
+            WHERE cnt_typecontract_key = dp.cnt_srtcontract_type)
+             cnt_srtcontract_type,
+          alg_locatie_key,
+          alg_locatie_oms,
+          alg_locatie_omschrijving,
+          alg_locatie_plaats,
+          alg_regio_omschrijving,
+          alg_district_omschrijving,
+          alg_locatie_code,
+          alg_gebouw_code,
+          alg_gebouw_naam,
+          cd.ins_discipline_omschrijving ins_discipline_omschrijving,
+          (SELECT ksg.prs_kostensoortgrp_oms
+             FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+            WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                  AND ks.prs_kostensoort_key = c.prs_kostensoort_key)
+             kostensoortgroep,
+          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,
+                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,
+          cnt_v_aanwezigcontract c,
+          prs_dienst di,
+          prs_v_afdeling d,
+          prs_afdeling afd2,
+          prs_v_perslid_fullnames_all pf2,
+          alg_district ad,
+          alg_regio ar,
+          cnt_disc_params dp,
+          cnt_discipline cd,
+          prs_kostenplaats kp,
+          prs_kostensoort ks,
+          (SELECT alg_locatie_omschrijving || ' (' || alg_locatie_code || ')' alg_locatie_oms,
+                  alg_locatie_omschrijving,
+                  alg_locatie_plaats,
+                  alg_locatie_code,
+                  alg_gebouw_code,
+                  alg_gebouw_naam,  /* men zou nog kunnen gaan vragen ook terrein/verdieping/ruimte/deel op te leveren */
+                  alg_district_key,
+                  cnt_contract_key,
+                  ll.alg_locatie_key,
+                  cnt_contract_plaats_gewicht
+             FROM alg_locatie ll,
+                  alg_gebouw gg,
+                  (SELECT cp.cnt_contract_key,
+                          cp.cnt_alg_plaats_key alg_locatie_key,
+                          NULL alg_gebouw_key,
+                          cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp
+                    WHERE cnt_alg_plaats_code = 'L'
+                   UNION ALL
+                   SELECT cp.cnt_contract_key,
+                          g.alg_locatie_key,
+                          cp.cnt_alg_plaats_key alg_gebouw_key,
+                          cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp, alg_gebouw g
+                    WHERE cnt_alg_plaats_code = 'G' AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
+                   UNION ALL
+                   SELECT cp.cnt_contract_key,
+                          t.alg_locatie_key,
+                          NULL,
+                          cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp, alg_terreinsector t
+                    WHERE cnt_alg_plaats_code = 'T'
+                          AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key,
+                          d.ins_alg_locatie_key,
+                          NULL,
+                          NULL
+                     FROM cnt_contract_object co, ins_deel d
+                    WHERE co.cnt_ins_deel_key = d.ins_deel_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key,
+                          g.alg_locatie_key,
+                          NULL,
+                          NULL
+                     FROM cnt_contract_onrgoed co,
+                          alg_gebouw g,
+                          alg_verdieping v,
+                          alg_ruimte r
+                    WHERE     co.alg_onrgoed_niveau = 'R'
+                          AND co.alg_onrgoed_key = r.alg_ruimte_key
+                          AND r.alg_verdieping_key = v.alg_verdieping_key
+                          AND v.alg_gebouw_key = g.alg_gebouw_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key,
+                          t.alg_locatie_key,
+                          NULL,
+                          NULL
+                     FROM cnt_contract_onrgoed co, alg_terreinsector t
+                    WHERE co.alg_onrgoed_niveau = 'T'
+                          AND co.alg_onrgoed_key = t.alg_terreinsector_key) scloc
+            WHERE ll.alg_locatie_key = scloc.alg_locatie_key
+                  AND gg.alg_gebouw_key(+) = scloc.alg_gebouw_key) cloc
+    WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+          AND c.cnt_prs_afdeling_key = afd2.prs_afdeling_key(+)
+          AND c.cnt_prs_perslid_key = pf2.prs_perslid_key(+)
+          AND c.prs_dienst_key = di.prs_dienst_key(+)
+          AND d.prs_afdeling_key = c.prs_afdeling_key_eig
+          AND c.ins_discipline_key = dp.cnt_ins_discipline_key
+          AND c.ins_discipline_key = cd.ins_discipline_key
+          AND cloc.cnt_contract_key(+) = c.cnt_contract_key
+          AND cloc.alg_district_key = ad.alg_district_key(+)
+          AND ad.alg_regio_key = ar.alg_regio_key(+)
+          AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+          AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+          AND c.cnt_contract_key IN
+                   (SELECT cnt_contract_key
+                      FROM (SELECT cc.cnt_contract_key,
+                                   ins_discipline_key,
+                                   di.alg_regio_key,
+                                   ll.alg_district_key,
+                                   clk.alg_locatie_key
+                              FROM (SELECT cp.cnt_contract_key,
+                                           cp.cnt_alg_plaats_key alg_locatie_key
+                                      FROM cnt_contract_plaats cp
+                                     WHERE cnt_alg_plaats_code = 'L'
+                                    UNION ALL
+                                    SELECT cp.cnt_contract_key, g.alg_locatie_key
+                                      FROM cnt_contract_plaats cp, alg_gebouw g
+                                     WHERE cnt_alg_plaats_code = 'G'
+                                           AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
+                                    UNION ALL
+                                    SELECT cp.cnt_contract_key, t.alg_locatie_key
+                                      FROM cnt_contract_plaats cp, alg_terreinsector t
+                                     WHERE cnt_alg_plaats_code = 'T'
+                                           AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, d.ins_alg_locatie_key
+                                      FROM cnt_contract_object co, ins_deel d
+                                     WHERE co.cnt_ins_deel_key = d.ins_deel_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, g.alg_locatie_key
+                                      FROM cnt_contract_onrgoed co,
+                                           alg_gebouw g,
+                                           alg_verdieping v,
+                                           alg_ruimte r
+                                     WHERE     co.alg_onrgoed_niveau = 'R'
+                                           AND co.alg_onrgoed_key = r.alg_ruimte_key
+                                           AND r.alg_verdieping_key = v.alg_verdieping_key
+                                           AND v.alg_gebouw_key = g.alg_gebouw_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, t.alg_locatie_key
+                                      FROM cnt_contract_onrgoed co, alg_terreinsector t
+                                     WHERE co.alg_onrgoed_niveau = 'T'
+                                           AND co.alg_onrgoed_key = t.alg_terreinsector_key) clk,
+                                   cnt_contract cc,
+                                   alg_locatie ll,
+                                   alg_district di
+                             WHERE     cc.cnt_contract_key = clk.cnt_contract_key
+                                   AND ll.alg_locatie_key(+) = clk.alg_locatie_key
+                                   AND ll.alg_district_key = di.alg_district_key(+)) sc,
+                           prs_v_afdeling_boom boom
+                     WHERE boom.prs_afdeling_key = c.prs_afdeling_key_eig
+                    UNION ALL
+                    SELECT cnt_contract_key
+                      FROM cnt_contract c, prs_v_afdeling_boom boom
+                     WHERE NOT EXISTS (SELECT cnt_contract_key
+                                         FROM cnt_contract_plaats cp
+                                        WHERE cp.cnt_contract_key = c.cnt_contract_key)
+                           AND NOT EXISTS (SELECT cnt_contract_key
+                                             FROM cnt_contract_onrgoed co
+                                            WHERE co.cnt_contract_key = c.cnt_contract_key)
+                           AND NOT EXISTS
+                                 (SELECT cnt_contract_key
+                                    FROM cnt_contract_object co
+                                   WHERE co.cnt_contract_key = c.cnt_contract_key
+                                         AND co.cnt_ins_deel_key IS NOT NULL)
+                           AND boom.prs_afdeling_key = c.prs_afdeling_key_eig);
+
+CREATE_VIEW(cnt_v_udr_contractkenmerk_cnd, 1)
+AS
+   SELECT c.*,
+          lcl.x ('skm.cnt_srtkenmerk_omschrijving',
+                 skm.cnt_srtkenmerk_key,
+                 cnt_srtkenmerk_omschrijving)
+             kenmerk,
+          CASE
+             WHEN    skm.cnt_srtkenmerk_kenmerktype = 'R'
+                  OR skm.cnt_srtkenmerk_kenmerktype = 'S'
+             THEN
+                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key,
+                                     km.cnt_kenmerkcontract_waarde)
+             WHEN    skm.cnt_srtkenmerk_kenmerktype = 'C'
+                  OR skm.cnt_srtkenmerk_kenmerktype = 'F'
+             THEN
+                km.cnt_kenmerkcontract_waarde
+             ELSE
+                NULL
+          END
+             waarde_c,
+          CASE
+             WHEN skm.cnt_srtkenmerk_kenmerktype = 'N'
+                  OR skm.cnt_srtkenmerk_kenmerktype = 'B'
+             THEN
+                TO_NUMBER (km.cnt_kenmerkcontract_waarde)
+             ELSE
+                TO_NUMBER (NULL)
+          END
+             waarde_n,
+          CASE
+             WHEN skm.cnt_srtkenmerk_kenmerktype = 'D'
+             THEN
+                TO_DATE (km.cnt_kenmerkcontract_waarde, 'DD-MM-YYYY')
+             ELSE
+                TO_DATE (NULL)
+          END
+             waarde_d
+     FROM cnt_v_udr_contract c,
+          cnt_kenmerkcontract km,
+          cnt_kenmerk K,
+          cnt_srtkenmerk skm
+    WHERE     km.cnt_contract_key = c.contract_key
+          AND km.cnt_kenmerkcontract_verwijder IS NULL
+          AND k.cnt_kenmerk_verwijder IS NULL
+          AND skm.cnt_srtkenmerk_verwijder IS NULL
+          AND km.cnt_kenmerk_key = k.cnt_kenmerk_key(+)
+          AND k.cnt_srtkenmerk_key = skm.cnt_srtkenmerk_key(+);
+
+
 REGISTERRUN('$Id$')
 
 #endif // CNT

COMSQL.H

@@ -21,10 +21,10 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 5
-#define _VERSIONMIN 4
-#define _VERSIONPATCH STRINGIZE(3)
-#define _VERSION '5.4.3'
+#define _VERSIONMAJ 2016
+#define _VERSIONMIN 2
+#define _VERSIONPATCH '0'
+#define _VERSION '2016.2.0'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \
@@ -632,10 +632,15 @@ CEIL
 #define UPD_FAC_FUNCTIE(c, o, m, l) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l) WHERE fac_functie_code=c
 #define DEF_FAC_FUNCTIE2(c, o, m, l, d, g, i) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, o, m, l, d, g, i)
 #define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l, fac_functie_discipline=d, fac_functie_groep=g, fac_functie_info=i) WHERE fac_functie_code=c
+#define DEF_FAC_FUNCTIE3(c, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, 'lcl_' || c, m, l, d, g, 'lcl_' || c || '_info')
 #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

CTR/CTR_IND.SRC

@@ -0,0 +1,9 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE UNIQUE INDEX ctr_i_ctr_disc_params1 ON ctr_disc_params(ctr_ins_discipline_key);
+
+REGISTERONCE('$Id$')
+

CTR/CTR_INI.SRC

@@ -0,0 +1,24 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+_FAC_MODULE('CTR','lcl_module_CTR')
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Controle');
+INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 1 FROM ins_tab_discipline;
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Vervanging');
+INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 2 FROM ins_tab_discipline;
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Certificering');
+insert into ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 3 FROM ins_tab_discipline;
+
+REGISTERONCE('$Id$')
+
+#endif // MRK

CTR/CTR_PAC.SRC

@@ -0,0 +1,10 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+REGISTERRUN('$Id$')
+
+#endif // CTR

CTR/CTR_SEQ.SRC

@@ -0,0 +1,11 @@
+#ifdef  CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE ctr_s_ctr_disc_params_key       MINVALUE 1;
+
+REGISTERONCE('$Id$')
+
+#endif  // CTR

CTR/CTR_TAB.SRC

@@ -0,0 +1,30 @@
+#ifdef  CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE_TABLE (ctr_disc_params,0)
+(
+  ctr_disc_params_key
+      NUMBER(10),
+  ctr_ins_discipline_key
+      NUMBER(10),
+  ctr_disc_params_controle_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+      NUMBER(1)
+      DEFAULT(1)
+      CONSTRAINT ctr_disc_params_controle_type NOT NULL,
+  ctr_disc_params_ismjob
+      NUMBER(1)       -- valid are 0, 1
+      DEFAULT 0
+      NOT NULL,
+
+  CONSTRAINT ctr_c_ins_discipline_key CHECK (ctr_ins_discipline_key IS NOT NULL),
+  CONSTRAINT ctr_k_ctr_disc_params_key PRIMARY KEY (ctr_disc_params_key),
+  CONSTRAINT ctr_r_ins_discipine_key FOREIGN KEY (ctr_ins_discipline_key)
+    REFERENCES ins_tab_discipline (ins_discipline_key)
+);
+
+REGISTERONCE('$Id$')
+
+#endif // CTR

CTR/CTR_TRI.SRC

@@ -0,0 +1,18 @@
+#ifdef  CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+CREATE_TRIGGER(ctr_t_ctr_disc_params_b_iu)
+BEFORE INSERT OR UPDATE ON ctr_disc_params
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(ctr_disc_params_key, ctr_s_ctr_disc_params_key);
+END;
+/
+
+REGISTERRUN('$Id$')
+
+#endif  // CTR

CTR/CTR_VIE.SRC

@@ -0,0 +1,17 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+CREATE_VIEW(ctr_discipline, 0)
+AS
+ SELECT * FROM all_discipline WHERE ins_discipline_module = 'CTR';
+
+DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
+    ctr_v_aanwezigdiscipline, 0);
+
+REGISTERRUN('$Id$')
+
+#endif // CTR

FAC/FAC_IND.SRC

@@ -27,6 +27,7 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
                       fac_import_app_prefix);
 
 CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
+CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
 CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key);
 
 CREATE INDEX fac_i_tracking_refkey1 ON fac_tracking(fac_tracking_refkey);
@@ -34,8 +35,18 @@ CREATE INDEX fac_i_tracking_perslidkey1 ON fac_tracking(prs_perslid_key);
 CREATE INDEX fac_i_tracking_srtnotkey1 ON fac_tracking(fac_srtnotificatie_key);
 
 CREATE INDEX fac_i_imp_factuur1 ON fac_imp_factuur (ordernr);
+CREATE INDEX fac_i_imp_factuur2 ON fac_imp_factuur (fac_import_key);
 
 CREATE UNIQUE INDEX fac_i_fac_locale_xref1 ON fac_locale_xref (fac_locale_xref_filepath, fac_locale_xsl_key);
 
 CREATE UNIQUE INDEX fac_i_fac_code2label ON fac_code2label (fac_code2label_domein, fac_code2label_code);
+
+CREATE UNIQUE INDEX fac_i_fac_menuitems1 ON fac_menuitems (fac_menuitems_label);
+
+CREATE INDEX fac_i_fac_menu_perslid_key ON fac_menu (prs_perslid_key);
+
+CREATE UNIQUE INDEX fac_i_idp_code ON fac_idp(fac_idp_code);
+
+CREATE UNIQUE INDEX fac_i_imp_usrdata1 ON fac_imp_usrdata (fac_usrtab_naam, fac_usrdata_code);
+
 REGISTERONCE('$Id$')

FAC/FAC_LCLMDL.csv

@@ -0,0 +1,5 @@
+model;field;NL;EN;DE;FR
+mld_afmeldtekst;name;de omschrijving van de afmeldtekst;;;
+;description;de tekst van de afmeldtekst die bij de afhandeling van meldingen wordt gebruikt;;;
+;vakgroep;de vakgroep waar de afmeldtekst beschikbaar is. Wordt ook een melding gevuld dan is deze tekst alleen bij de specifieke melding te gebruiken;;;
+;melding;de melding waar de afmeldtekst beschikbaar is. Worden de velden Vakgroep en Melding leeg gelaten dan is de tekst te gebruiken bij alle meldingen;;;

FAC/FAC_PACFLEX.SRC

@@ -0,0 +1,508 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+/*  FAC_PACFLEX
+ *
+ *  Contains all functions for flex values.
+ *
+ */
+
+CREATE OR REPLACE PACKAGE flx
+AS
+    PROCEDURE gettableinf (pmodule            IN OUT  VARCHAR2,
+                           o_ktable           OUT VARCHAR2,  -- Naam kenmerk tabel
+                           o_ktable_kdefault  OUT VARCHAR2,
+                           o_kvtable          OUT VARCHAR2,  -- Naam kenmerk waarden tabel
+                           o_kvtable_refkey   OUT VARCHAR2,
+                           o_kvtable_kniveau  OUT VARCHAR2,
+                           o_kvtable_kwaarde  OUT VARCHAR2,
+                           o_kvtable_kkey     OUT VARCHAR2,
+                           o_kvtable_kdelete  OUT VARCHAR2
+                        );
+    FUNCTION getflex (pmodule IN VARCHAR2,
+                      p_kenmerk_key   IN NUMBER,
+                      p_ref_key       IN NUMBER,
+                      p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+    PROCEDURE setflex (pmodule IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_waarde        IN VARCHAR2);
+    PROCEDURE setflex (pmodule IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_niveau        IN VARCHAR2,
+                       p_waarde        IN VARCHAR2);
+    PROCEDURE deleteflex (pmodule IN VARCHAR2,
+                          p_kenmerk_key   IN NUMBER,
+                          p_ref_key       IN NUMBER,
+                          p_niveau        IN NUMBER);
+    FUNCTION getflexexpression (pmodule IN VARCHAR2,
+                                p_kenmerk_key   IN NUMBER,
+                                p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+    FUNCTION getdomeinwaarde (dkey IN NUMBER,
+                              waarde IN VARCHAR2,
+                              ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
+    PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER);
+END flx;
+/
+
+
+CREATE OR REPLACE PACKAGE BODY flx
+AS
+    PROCEDURE gettableinf (pmodule            IN OUT  VARCHAR2,
+                           o_ktable           OUT VARCHAR2,  -- Naam kenmerk tabel
+                           o_ktable_kdefault  OUT VARCHAR2,
+                           o_kvtable          OUT VARCHAR2,  -- Naam kenmerk waarden tabel
+                           o_kvtable_refkey   OUT VARCHAR2,
+                           o_kvtable_kniveau  OUT VARCHAR2,
+                           o_kvtable_kwaarde  OUT VARCHAR2,
+                           o_kvtable_kkey     OUT VARCHAR2,
+                           o_kvtable_kdelete  OUT VARCHAR2
+                        )
+    AS
+       l_module          VARCHAR2 (3);
+    BEGIN
+       l_module := pmodule;
+       o_kvtable_kniveau := NULL;
+       CASE
+          WHEN pmodule = 'ALG'
+          THEN o_kvtable       := 'alg_onrgoedkenmerk';
+               o_kvtable_refkey  := 'alg_onrgoed_key';
+               o_kvtable_kniveau := 'alg_onrgoed_niveau';
+          WHEN pmodule = 'BES'
+          THEN o_kvtable       := 'bes_kenmerkbestell';
+               o_kvtable_refkey  := 'bes_bestelling_key';
+          WHEN pmodule = 'CNT'
+          THEN o_kvtable       := 'cnt_kenmerkcontract';
+               o_kvtable_refkey  := 'cnt_contract_key';
+          WHEN pmodule = 'FAQ'
+          THEN o_kvtable       := 'faq_kenmerkwaarde';
+               o_kvtable_refkey  := 'fac_faq_key';
+          WHEN pmodule = 'FIN'
+          THEN o_kvtable       := 'fin_kenmerkfactuur';
+               o_kvtable_refkey  := 'fin_factuur_key';
+          WHEN pmodule = 'CIL' OR pmodule = 'SLE'
+          THEN o_kvtable       := 'ins_kenmerkdeel';
+               o_kvtable_refkey  := 'ins_deel_key';
+          WHEN pmodule = 'INS'
+          THEN o_kvtable       := 'ins_kenmerkdeel';
+               o_kvtable_refkey  := 'ins_deel_key';
+          WHEN pmodule = 'MLD'
+          THEN o_kvtable       := 'mld_kenmerkmelding';
+               o_kvtable_refkey  := 'mld_melding_key';
+          WHEN pmodule = 'OPD'
+          THEN o_kvtable       := 'mld_kenmerkopdr';
+               o_kvtable_refkey  := 'mld_opdr_key';
+               l_module          := 'MLD';
+          WHEN pmodule = 'PRS'
+          THEN o_kvtable       := 'prs_kenmerklink';
+               o_kvtable_refkey  := 'prs_link_key';
+               o_kvtable_kniveau := 'prs_kenmerklink_niveau';
+          WHEN pmodule = 'RES'
+          THEN o_kvtable       := 'res_kenmerkwaarde';
+               o_kvtable_refkey  := 'res_rsv_ruimte_key';
+       END CASE;
+
+       IF l_module = 'RES'
+       THEN o_kvtable_kwaarde := 'res_kenmerkreservering_waarde'; -- RES is uitzondering
+       ELSE o_kvtable_kwaarde := o_kvtable || '_waarde';
+       END IF;
+
+       o_ktable          := l_module || '_kenmerk';
+       o_ktable_kdefault := l_module || '_kenmerk_default';
+       o_kvtable_kkey    := l_module || '_kenmerk_key';
+       o_kvtable_kdelete := o_kvtable || '_verwijder';
+    END;
+
+    FUNCTION getflex (pmodule IN VARCHAR2,
+                      p_kenmerk_key   IN NUMBER,
+                      p_ref_key       IN NUMBER,
+                      p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+    IS
+    BEGIN
+        RETURN NULL;  -- TODO
+    END;
+
+    PROCEDURE setflex (pmodule         IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_waarde        IN VARCHAR2)
+    AS
+    BEGIN
+        setflex(pmodule, p_kenmerk_key, p_ref_key, NULL, p_waarde);
+    END;
+
+    PROCEDURE setflex (pmodule         IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_niveau        IN VARCHAR2,
+                       p_waarde        IN VARCHAR2)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_kenm            VARCHAR2 (4500);
+       l_sql_insert          VARCHAR2 (4500);
+       l_sql_update          VARCHAR2 (4500);
+       l_sql                 VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_kenm         INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_cursor_upsert       INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_aantal_kenm         NUMBER;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau_col      VARCHAR2 (32) DEFAULT '';
+       l_niveau_val      VARCHAR2 (7)  DEFAULT '';
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       l_sql_kenm := 'SELECT COUNT(*)' ||
+                     '  FROM ' || l_kenmval_tablename ||
+                     ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                     '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                     '   AND ' || l_kcolumnname_delete || ' IS NULL';
+
+       EXECUTE IMMEDIATE l_sql_kenm INTO l_aantal_kenm;
+
+       IF l_aantal_kenm = 0
+       THEN
+          IF p_niveau IS NOT NULL
+          THEN
+             l_niveau_col := ', ' || l_kcolumnname_niveau;
+             l_niveau_val := ', ''' || p_niveau || '''';
+          END IF;
+
+          l_sql_insert := 'INSERT INTO ' || l_kenmval_tablename ||
+                          '           (' || l_kcolumnname_refkey ||
+                          '          , ' || l_kcolumnname_kkey ||
+                          '          , ' || l_kcolumnname_waarde ||
+                                            l_niveau_col ||
+                          '           )' ||
+                          '    VALUES (' || p_ref_key ||
+                          '          , ' || p_kenmerk_key ||
+                          '          , ' || '''' || p_waarde || '''' ||
+                                            l_niveau_val ||
+                          '           )';
+          l_sql := l_sql_insert;
+       ELSE
+          l_sql_update := 'UPDATE ' || l_kenmval_tablename ||
+                          '   SET ' || l_kcolumnname_waarde || ' = ''' || p_waarde || '''' ||
+                          ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                          '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                          '   AND ' || l_kcolumnname_delete || ' IS NULL';
+          l_sql := l_sql_update;
+       END IF;
+
+       DBMS_SQL.parse (l_cursor_upsert, l_sql, DBMS_SQL.native);
+
+       l_rowsprocessed := DBMS_SQL.execute (l_cursor_upsert);
+       DBMS_SQL.close_cursor(l_cursor_upsert);
+    END;
+
+    PROCEDURE deleteflex (pmodule IN VARCHAR2,
+                          p_kenmerk_key   IN NUMBER,
+                          p_ref_key       IN NUMBER,
+                          p_niveau        IN NUMBER)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_delete          VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_delete       INTEGER DEFAULT DBMS_SQL.open_cursor;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau          VARCHAR2 (40);
+
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       IF l_kcolumnname_niveau IS NOT NULL
+       THEN
+          l_niveau := ' AND ' || l_kcolumnname_niveau || ' = ' || p_niveau;
+       ELSE
+          l_niveau := '';
+       END IF;
+
+       l_sql_delete := 'DELETE FROM ' || l_kenmval_tablename ||
+                       ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                       '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                       '   AND ' || l_kcolumnname_delete || ' IS NULL' ||
+                       l_niveau;
+       DBMS_SQL.parse (l_cursor_delete, l_sql_delete, DBMS_SQL.native);
+
+       l_rowsprocessed := DBMS_SQL.execute (l_cursor_delete);
+       DBMS_SQL.close_cursor(l_cursor_delete);
+    END;
+
+    FUNCTION getflexexpression (pmodule IN VARCHAR2,
+                                p_kenmerk_key   IN NUMBER,
+                                p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+    IS
+       l_module              VARCHAR2 (3);
+       l_sql_expr            VARCHAR2 (4500);
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_expr                VARCHAR2 (4000);
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       -- Expressie opvragen uit de default waarde uit de kenmerk tabel.
+       l_sql_expr := 'SELECT (SUBSTR (' || l_kcolumnname_default || ', 9))' ||
+                     '  FROM ' || l_kenmerk_tablename ||
+                     ' WHERE ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key;
+
+       EXECUTE IMMEDIATE l_sql_expr INTO l_expr;
+
+       RETURN l_expr;
+    END;
+
+    FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0)
+       RETURN VARCHAR2
+    IS
+       sresult     VARCHAR2 (255);
+       kolomnaam   fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
+       kolomtxt    fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
+       objectnaam  fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
+       xmlnode     fac_kenmerkdomein.fac_kenmerkdomein_xmlnode%TYPE;
+       resultvalue VARCHAR2 (1000);
+    BEGIN
+       IF waarde IS NULL
+       THEN
+          resultvalue := NULL;                                                                             -- gauw klaar mee
+       ELSE
+          SELECT   rsk.fac_kenmerkdomein_kolomnaam,
+                   rsk.fac_kenmerkdomein_kolomtxt,
+                   rsk.fac_kenmerkdomein_objectnaam,
+                   rsk.fac_kenmerkdomein_xmlnode
+            INTO   kolomnaam,
+                   kolomtxt,
+                   objectnaam,
+                   xmlnode
+            FROM   fac_kenmerkdomein rsk
+           WHERE   rsk.fac_kenmerkdomein_key = dkey;
+          IF (xmlnode IS NOT NULL AND ignorewhenxmlnode = 1)
+          THEN
+             RETURN waarde;
+          END IF;
+          -- Optimalisatie: meestal is het dezelfde query op de usrdata-tabel
+          -- Dan hoeven we niet te bouwen en steeds te parsen (FSN#25653)
+          IF kolomtxt = 'FAC_USRDATA_OMSCHR'
+             AND objectnaam = 'FAC_USRDATA'
+             AND kolomnaam = 'FAC_USRDATA_KEY'
+          THEN
+            SELECT fac_usrdata_omschr
+              INTO resultvalue
+              FROM fac_usrdata
+             WHERE fac_usrdata_key = fac.safe_to_number(waarde);
+          ELSE
+             sresult := 'SELECT MIN(' || kolomtxt || ') FROM ' || objectnaam || ' WHERE ' || kolomnaam || ' = :bd_waarde';
+             EXECUTE IMMEDIATE sresult INTO resultvalue USING waarde;
+          END IF;
+       END IF;
+       RETURN resultvalue;
+    END;
+
+    PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_exprval         VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_exprval      NUMBER;  -- INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_desctab             DBMS_SQL.desc_tab;
+       l_colcnt              NUMBER;
+       l_expr                VARCHAR2 (4000);
+       l_exprval             VARCHAR2 (4000);
+       l_exprval_num         NUMBER;
+       l_exprval_date        DATE;
+       l_cntbind             NUMBER;
+       l_cnt                 NUMBER;
+       l_bvar                VARCHAR2 (1000);
+       l_rflex               VARCHAR2 (1000) DEFAULT '(\:flex[0-9_]+)'; -- supports ':flex111 = ''538'''
+       l_kenmerkwaarde       fac_kenmwaarden.fac_kenmwaarden_waarde%TYPE;
+       l_kenmerkw_date       DATE;
+       l_kenmerkw_num        NUMBER;
+       l_kenmerktype         fac_kenmwaarden.fac_kenmwaarden_kenmerktype%TYPE;
+       l_kenmerk_key         fac_kenmwaarden.fac_kenmwaarden_kenmerk_key%TYPE;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau_val          VARCHAR2 (1)  DEFAULT '';
+
+       CURSOR c_expressions
+       IS
+          SELECT fac_kenmwaarden_kenmerk_key,
+                 fac_kenmwaarden_kenmerktype,
+                 fac_kenmwaarden_niveau
+            FROM fac_kenmwaarden
+           WHERE fac_kenmwaarden_module = pmodule
+             AND fac_kenmwaarden_refkey = prefkey
+             AND prs_perslid_key = puserkey
+             AND fac_kenmwaarden_isexpr = 1
+           ORDER BY fac_kenmwaarden_key;
+
+    BEGIN
+
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       FOR expr IN c_expressions
+       LOOP
+          l_cursor_exprval := DBMS_SQL.open_cursor;
+          -- Expressie opvragen.
+          l_expr := flx.getflexexpression(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
+
+          l_sql_exprval := 'SELECT ' || '(' || l_expr || ')' || '  FROM DUAL';
+
+          DBMS_SQL.parse (l_cursor_exprval, l_sql_exprval, DBMS_SQL.native);
+
+
+          --DBMS_SQL.describe_columns(l_cursor_exprval, l_colcnt, l_desctab);
+
+          IF expr.fac_kenmwaarden_kenmerktype = 'N'
+          THEN
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num);
+          ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
+          THEN
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_date);
+          ELSE
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval, 4000);
+          END IF;
+
+          l_cntbind := REGEXP_COUNT (l_sql_exprval,
+                                     l_rflex,
+                                     1,
+                                     'i');
+
+          FOR l_cnt IN 1 .. l_cntbind
+          LOOP
+             l_bvar := REGEXP_SUBSTR (l_sql_exprval,
+                                      l_rflex,
+                                      1,
+                                      l_cnt,
+                                      'i');
+
+             l_kenmerk_key := TO_NUMBER (SUBSTR (l_bvar, 6));
+
+             BEGIN
+                SELECT fac_kenmwaarden_waarde,
+                       fac_kenmwaarden_kenmerktype
+                  INTO l_kenmerkwaarde,
+                       l_kenmerktype
+                  FROM fac_kenmwaarden
+                 WHERE fac_kenmwaarden_module = l_module
+                   AND fac_kenmwaarden_refkey = prefkey
+                   AND prs_perslid_key = puserkey
+                   AND fac_kenmwaarden_kenmerk_key = l_kenmerk_key;
+             EXCEPTION
+                WHEN NO_DATA_FOUND
+                THEN
+                   l_kenmerkwaarde := NULL;
+                   l_kenmerktype := NULL;
+             END;
+
+             -- Als <20><>n van de flexkenmerken NULL is, dan met die waarde verder rekenen. Waarde kan bewust NULL zijn
+             CASE l_kenmerktype
+                WHEN 'D'
+                THEN
+                   l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
+                WHEN 'N'
+                THEN
+                   l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
+                ELSE
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkwaarde);
+             END CASE;
+          END LOOP;
+
+          l_rowsprocessed := DBMS_SQL.execute_and_fetch (l_cursor_exprval);
+
+          IF expr.fac_kenmwaarden_kenmerktype = 'N'
+          THEN
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_num);
+             l_exprval := TO_CHAR(l_exprval_num);
+          ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
+          THEN
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_date);
+             l_exprval := TO_CHAR(l_exprval_date, 'DD-MM-YYYY');
+          ELSE
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval);
+          END IF;
+
+
+          IF l_kcolumnname_niveau IS NOT NULL
+          THEN
+             IF psavetodb = 1
+             THEN
+               -- Waarde opslaan in de database
+               flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, expr.fac_kenmwaarden_niveau, l_exprval);
+             END IF;
+
+             -- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
+             -- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
+             UPDATE fac_kenmwaarden
+                SET fac_kenmwaarden_waarde = l_exprval
+              WHERE fac_kenmwaarden_module = pmodule
+                AND fac_kenmwaarden_refkey = prefkey
+                AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
+                AND fac_kenmwaarden_niveau = expr.fac_kenmwaarden_niveau
+                AND prs_perslid_key = puserkey
+                AND fac_kenmwaarden_isexpr = 1;
+          ELSE
+             IF psavetodb = 1
+             THEN
+               -- Waarde opslaan in de database
+               flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, l_exprval);
+             END IF;
+
+             -- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
+             -- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
+             UPDATE fac_kenmwaarden
+                SET fac_kenmwaarden_waarde = l_exprval
+              WHERE fac_kenmwaarden_module = pmodule
+                AND fac_kenmwaarden_refkey = prefkey
+                AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
+                AND prs_perslid_key = puserkey
+                AND fac_kenmwaarden_niveau IS NULL
+                AND fac_kenmwaarden_isexpr = 1;
+          END IF;
+
+         DBMS_SQL.close_cursor(l_cursor_exprval);
+       END LOOP;
+    END;
+
+END flx;
+/
+REGISTERRUN('$Id$')

FAC/FAC_PACL.SRC

@@ -27,11 +27,13 @@ AS
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2;
 
-   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
+   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
       RETURN VARCHAR2;
 
-   FUNCTION L (pnaam IN VARCHAR2)
+   FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2;
+
+   PROCEDURE fallback_languages;
 END lcl;
 /
 
@@ -44,11 +46,17 @@ AS
       userlang   VARCHAR2 (10);
    BEGIN
       -- Bepaalt de applicatietaal van de user zoals vanuit ASP gezet
+      -- Links is wat Oracle teruggeeft, rechts wat ISO-639 vindt (onze keuze)
       userlang := SYS_CONTEXT ('userenv', 'LANG');
       RETURN CASE userlang
+                WHEN 'NL' THEN 'NL'
                 WHEN 'GB' THEN 'EN'
-                WHEN 'D' THEN 'DE'
-                WHEN 'F' THEN 'FR'
+                WHEN 'D'  THEN 'DE'
+                WHEN 'F'  THEN 'FR'
+                WHEN 'S'  THEN 'SV'
+                WHEN 'N'  THEN 'NO'
+                WHEN 'DK' THEN 'DA'
+                WHEN 'SF' THEN 'FI'
                 ELSE userlang
              END;
    END;
@@ -88,6 +96,18 @@ AS
          WHEN 'FR'
          THEN
             nlslang := 'FRENCH';
+         WHEN 'SV'
+         THEN
+            nlslang := 'SWEDISH';
+         WHEN 'NO'
+         THEN
+            nlslang := 'NORWEGIAN';
+         WHEN 'DA'
+         THEN
+            nlslang := 'DANISH';
+         WHEN 'FI'
+         THEN
+            nlslang := 'FINNISH';
          ELSE
             nlslang := 'DUTCH';
       END CASE;
@@ -134,7 +154,7 @@ AS
 
 
 
-   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
+   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
       RETURN VARCHAR2
    AS
       requiredlang fac_version.fac_version_lang%TYPE;
@@ -158,15 +178,26 @@ AS
          retval := lcl.xl (pnaam, pkey, pdefault, requiredlang);
       END IF;
 
+      --  Voor lcl_noti_* maar verder generiek
+      IF pautolcl = 1 THEN
+         retval := lcl.L(retval, pautolcl);
+      END IF;
+
       RETURN retval;
    END;
 
    -- Oracle variant van de ASP-L functie
-   FUNCTION L (pnaam IN VARCHAR2)
+   -- Geef pautolcl=1 mee als je niet zeker weet of het een lcl is
+   FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2
    AS
       retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
    BEGIN
+      --  Voor lcl_noti_* maar verder generiek
+      IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
+        RETURN pnaam;
+      END IF;
+
       SELECT COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst)
         INTO retval
         FROM fac_locale_xsl
@@ -177,6 +208,95 @@ AS
       RETURN retval;
    END;
 
-END lcl;
+   PROCEDURE fallback_languages
+   AS
+   BEGIN
+      -- Eerst: missende LCL's aanmaken vanuit NL (die ik compleet veronderstel)
+      -- Eerder ggeimporteerde talen zijn mogelijk niet compleet namelijk
+      FOR c_lang IN (SELECT DISTINCT (fac_locale_xsl_lang) lang
+                       FROM fac_locale_xsl
+                      WHERE fac_locale_xsl_lang <> 'NL')
+      LOOP
+         DBMS_OUTPUT.PUT_LINE ('Updating language ' || c_lang.lang);
+
+         INSERT INTO fac_locale_xsl (fac_locale_xsl_lang,
+                                     fac_locale_xsl_module,
+                                     fac_locale_xsl_label,
+                                     fac_locale_xsl_tekst,
+                                     fac_locale_xsl_isvalid)
+            SELECT c_lang.lang,
+                   fac_locale_xsl_module,
+                   fac_locale_xsl_label,
+                   '@@',
+                   0
+              FROM fac_locale_xsl x2
+             WHERE fac_locale_xsl_lang = 'NL'
+                   AND NOT EXISTS
+                         (SELECT 1
+                            FROM fac_locale_xsl x3
+                           WHERE x3.fac_locale_xsl_lang = c_lang.lang
+                                 AND x2.fac_locale_xsl_label =
+                                       x3.fac_locale_xsl_label
+                                 AND x2.fac_locale_xsl_module =
+                                       x3.fac_locale_xsl_module);
+      END LOOP;
+
+      -- Dan: Engelstalig terugvallen op de database taal (of NL)
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang =
+                              COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'))
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              OR fac_locale_xsl_tekst = '@'
+              OR fac_locale_xsl_tekst = '@@')
+             AND fac_locale_xsl_lang = 'EN';
+
+      -- Dan: Nu nog steeds missende Engelstalig echt terugvallen op NL. Altijd beter dan '@@'
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang = 'NL')
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              OR fac_locale_xsl_tekst = '@'
+              OR fac_locale_xsl_tekst = '@@')
+             AND fac_locale_xsl_lang = 'EN';
+
+      -- Daarna: Alle andere talen terugvallen op Engelstalig
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang = 'EN')
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              OR fac_locale_xsl_tekst = '@'
+              OR fac_locale_xsl_tekst = '@@')
+             AND fac_locale_xsl_lang NOT IN
+                      ('EN', COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'));
+
+      -- En allerlaatst: lege teksten zijn altijd valid
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 1
+       WHERE fac_locale_xsl_tekst IS NULL;
+   END;
+
+   END lcl;
 /
 REGISTERRUN('$Id$')

FAC/FAC_SEQ.SRC

@@ -7,6 +7,7 @@ CREATE SEQUENCE fac_s_fac_functie_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrtab_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrdata_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrrap_key            MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_usrrap_cols_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrgraph_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_mgtrap_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_groep_key             MINVALUE 1;
@@ -31,16 +32,19 @@ CREATE SEQUENCE fac_s_fac_nieuws_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_faq_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_locale_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_localeitems_key       MINVALUE 1;
-CREATE SEQUENCE fac_s_fac_locale_mgt_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_locale_xsl_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_locale_xref_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmerkdomein_key     MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_kenmwaarden_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_widget_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerk_key           MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerkwaarde_key     MINVALUE 1;
+CREATE SEQUENCE faq_s_fac_gui_counter_key       MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_email_setting_key     MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_idp_key               MINVALUE 1;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

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)
 );
 
@@ -203,6 +205,11 @@ CREATE_TABLE(fac_usrtab, 0)
         DATE
         DEFAULT SYSDATE
         NOT_NULL(fac_usrtab_aanmaak, fac_c_fac_usrtab_aanmaak),
+    fac_usrtab_verwijder
+        DATE,
+    fac_functie_key  /* optional required authorisation for editing, implies WEB_PRSSYS if NULL */
+        NUMBER(10)
+        CONSTRAINT fac_r_usrtab_functie REFERENCES fac_functie(fac_functie_key) ON DELETE SET NULL,
     CONSTRAINT fac_u_fac_usrtab_object UNIQUE(fac_usrtab_object)
 );
 
@@ -238,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)
 );
 
 /*
@@ -259,19 +266,11 @@ CREATE_TABLE(fac_usrrap, 0)
     fac_usrrap_view_name
         VARCHAR2(32)
         NOT_NULL(fac_usrrap_view_name, fac_c_fac_usrrap_view_name),
-    fac_usrrap_in_huidige_locatie
-        VARCHAR2(1)
-        CONSTRAINT fac_c_fac_usrrap_locatie CHECK (fac_usrrap_in_huidige_locatie = 0
-                                                OR fac_usrrap_in_huidige_locatie = 1),
+    fac_usrrap_col_refresh
+        DATE,
     fac_usrrap_aanmaak
         DATE
         DEFAULT SYSDATE,
-    fac_usrrap_template
-        VARCHAR2(32)
-        DEFAULT NULL,
-    fac_usrrap_macro
-        VARCHAR2(32)
-        DEFAULT NULL,
     fac_usrrap_vraagbegindatum
         NUMBER(1)
         DEFAULT 0,
@@ -279,18 +278,98 @@ CREATE_TABLE(fac_usrrap, 0)
         NUMBER(1)
         DEFAULT 0,
     fac_usrrap_functie
-        NUMBER(1)
+        NUMBER(3)
         DEFAULT 0,
     fac_usrrap_info
         VARCHAR2(100),
         CONSTRAINT fac_u_fac_usrrap UNIQUE(fac_usrrap_omschrijving),
+    fac_usrrap_urllink
+        VARCHAR2(100)
+        DEFAULT NULL,
+    fac_usrrap_groep
+        VARCHAR2(40)
+        DEFAULT NULL,
     fac_usrrap_autorefresh
         NUMBER(1)
         DEFAULT 0
         CONSTRAINT fac_c_fac_usrrap_refresh CHECK (fac_usrrap_autorefresh IN (0,1)),
-    FAC_FUNCTIE_KEY
+    fac_usrrap_count
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_count CHECK (fac_usrrap_count IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_ratio
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_ratio CHECK (fac_usrrap_ratio IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_pivot
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_pivot CHECK (fac_usrrap_pivot IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_graph
+        NUMBER(1)
+        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)
+//        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+);
+
+// De kolommen van een rapport
+CREATE_TABLE(fac_usrrap_cols, 0)
+(
+    fac_usrrap_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_usrrap_cols_key PRIMARY KEY,
+    fac_usrrap_key
+        NUMBER(10)
+        CONSTRAINT fac_r_usrrap_cols_usrrap_key REFERENCES fac_usrrap(fac_usrrap_key)
+        ON DELETE CASCADE,
+    fac_usrrap_cols_volgnr
+        NUMBER(10),
+    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 */
+        VARCHAR2(3),
+    fac_usrrap_cols_filterdefault /* Predefined filterval */
+        VARCHAR2(60),
+    fac_usrrap_cols_datatype
+        VARCHAR2(16)
+        NOT NULL,
+    fac_usrrap_cols_visible
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H')),
+    fac_usrrap_cols_group
+        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_u_fac_usrrap_cols1 UNIQUE(fac_usrrap_key, fac_usrrap_cols_column_name)
 );
 
 CREATE_TABLE(fac_usrgraph, 0)
@@ -483,7 +562,13 @@ 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),
+  fac_srtnotificatie_srtkm_key
+    NUMBER(10)
 );
 
 /*
@@ -609,7 +694,11 @@ CREATE_TABLE(fac_import, 0)
   fac_import_filenaam
      VARCHAR2 (256),
   fac_import_versie
-     VARCHAR2(30)
+     VARCHAR2(30),
+  fac_import_refkey
+     NUMBER(10),
+  fac_import_backupdir
+     VARCHAR(320)
 // Note: this column is defined in PRS_TAB.SRC
 //  prs_perslid_key
 //     NUMBER(10)
@@ -619,7 +708,7 @@ CREATE_TABLE(fac_import, 0)
 CREATE_TABLE(imp_log, 0)
 (
   imp_log_key              NUMBER(10) CONSTRAINT imp_k_imp_log_key PRIMARY KEY,
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key2 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   imp_log_applicatie       VARCHAR2(50)
 , imp_log_datum            DATE DEFAULT SYSDATE
 , imp_log_status           VARCHAR2(1)
@@ -663,7 +752,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
@@ -706,7 +796,7 @@ CREATE_TABLE(fac_activiteit, 0)
 
 CREATE_TABLE(fac_imp_file, 0)
 (
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   fac_imp_file_index       NUMBER(10),
   fac_imp_file_line        VARCHAR2(4000 CHAR)
 );
@@ -714,7 +804,7 @@ CREATE_TABLE(fac_imp_file, 0)
 
 CREATE_TABLE(fac_imp_catalogus, 0)
 (
-  fac_import_key             NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key             NUMBER(10) CONSTRAINT fac_r_fac_import_key3 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   ins_discipline_key         NUMBER(10),
   prs_bedrijf_key            NUMBER(10),
   fac_imp_catalogus_datum    DATE,
@@ -743,15 +833,15 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
   , alg_locatie_code               VARCHAR2(10)
   , alg_locatie_omschrijving       VARCHAR2(60)
   , alg_gebouw_code                VARCHAR2(12)
-  , alg_gebouw_naam                VARCHAR2(30)
+  , alg_gebouw_naam                VARCHAR2(60)
   , alg_srtgebouw_omschrijving     VARCHAR2(30)
   , alg_locatie_verantw            VARCHAR2(30)
   , alg_locatie_verantw_tel        VARCHAR2(15)
-  , alg_locatie_adres              VARCHAR2(35)
+  , alg_locatie_adres              VARCHAR2(50)
   , alg_locatie_postcode           VARCHAR2(12)
   , alg_locatie_plaats             VARCHAR2(30)
   , alg_locatie_land               VARCHAR2(30)
-  , alg_locatie_post_adres         VARCHAR2(35)
+  , alg_locatie_post_adres         VARCHAR2(50)
   , alg_locatie_post_postcode      VARCHAR2(12)
   , alg_locatie_post_plaats        VARCHAR2(30)
   , alg_locatie_post_land          VARCHAR2(30)
@@ -790,6 +880,15 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_typeopdr_omschrijving       VARCHAR2(30)
 );
 
+CREATE_TABLE(fac_imp_mldafmtxt, 0)
+(
+    mld_afmeldtekst_naam            VARCHAR2(60)
+  , mld_afmeldtekst_omschrijving    VARCHAR2(1000)
+  , ins_discipline_key              NUMBER(10)
+  , mld_stdmelding_key              NUMBER(10)
+  , mld_afmeldtekst_usefor          NUMBER(1)
+);
+
 CREATE_TABLE(fac_imp_onrgoed2, 0)
 (
     alg_locatie_code               VARCHAR2(10)
@@ -806,7 +905,7 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
   , res_ruimte_opstel_bezoekers    NUMBER (5)
   , res_ruimte_nr                  VARCHAR2(255)
   , res_ruimte_omschrijving        VARCHAR2(255)
-  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 10 zou genoeg zijn, wat speelruimte
+  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 15 zou genoeg zijn, wat speelruimte
   , prs_ruimteafdeling_bezetting   NUMBER(8,5)
   , alg_kenmerkwaarde1             VARCHAR2(255)
   , alg_kenmerkwaarde2             VARCHAR2(255)
@@ -818,12 +917,27 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
 CREATE_TABLE(fac_imp_organisatie, 0)
 (
    PRS_BEDRIJF_NAAM               VARCHAR2 (60)
-  ,PRS_AFDELING_NAAM              VARCHAR2 (10)
-  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (10)
+  ,PRS_AFDELING_NAAM              VARCHAR2 (15)
+  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (15)
   ,PRS_AFDELING_OMSCHRIJVING      VARCHAR2 (60 CHAR)
   ,PRS_KOSTENPLAATS_NR            VARCHAR2 (30)
 );
 
+CREATE_TABLE(fac_imp_kpn, 0)
+(
+   prs_kostenplaats_nr              VARCHAR2 (30),
+   prs_kostenplaats_omschrijving    VARCHAR2 (60),
+   prs_kostenplaats_module          VARCHAR2 (3),
+   prs_kostenplaats_begin           DATE,
+   prs_kostenplaats_eind            DATE,
+   prs_kostenplaatsgrp_key          NUMBER (10),
+   prs_perslid_key                  NUMBER (10),
+   prs_kostenplaats_limiet          NUMBER (8),
+   prs_kostenplaats_limietperiode   NUMBER (1),
+   prs_kostenplaats_extern          NUMBER (1),
+   prs_kostenplaats_fiat            NUMBER (1)
+);
+
 CREATE_TABLE(fac_imp_perslid, 0)
 (
    alg_locatie_code                VARCHAR2(10)
@@ -832,7 +946,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,alg_ruimte_nr                   VARCHAR2(10)
   ,prs_werkplek_volgnr             NUMBER (3)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
-  ,prs_afdeling_naam               VARCHAR2 (10)
+  ,prs_afdeling_naam               VARCHAR2 (15)
   ,prs_perslid_naam                VARCHAR2 (60)
   ,prs_perslid_tussenvoegsel       VARCHAR2 (15)
   ,prs_perslid_voorletters         VARCHAR2 (15)
@@ -840,7 +954,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,prs_perslid_titel               VARCHAR2 (15)
   ,prs_perslid_telefoonnr          VARCHAR2 (15)
   ,prs_perslid_mobiel              VARCHAR2 (15)
-  ,prs_perslid_email               VARCHAR2 (50)
+  ,prs_perslid_email               VARCHAR2 (200)
   ,prs_srtperslid_omschrijving     VARCHAR2 (60)
   ,prs_perslid_nr                  VARCHAR2 (16)
   ,prs_perslid_oslogin             VARCHAR2 (30)
@@ -942,11 +1056,11 @@ CREATE_TABLE(fac_imp_sle, 0)
 CREATE_TABLE(fac_imp_adres, 0)
 (
   adres_naam                  VARCHAR2(60),
-  adres_bezoek_adres          VARCHAR2(35),
+  adres_bezoek_adres          VARCHAR2(50),
   adres_bezoek_postcode       VARCHAR2(12),
   adres_bezoek_plaats         VARCHAR2(30),
   adres_bezoek_land           VARCHAR2(30),
-  adres_post_adres            VARCHAR2(35),
+  adres_post_adres            VARCHAR2(50),
   adres_gebouw_ruimte         VARCHAR2(30),
   adres_post_postcode         VARCHAR2(12),
   adres_post_plaats           VARCHAR2(30),
@@ -1001,17 +1115,17 @@ CREATE_TABLE(fac_imp_fac_gebruikersgroep, 0)
    email              VARCHAR2 (255)
 );
 
-CREATE TABLE fac_imp_ext_bedrijf
+CREATE_TABLE(fac_imp_ext_bedrijf, 0)
 (
    prs_bedrijf_naam VARCHAR2 (60),
    prs_leverancier_nr VARCHAR2 (50),
-   prs_bedrijf_bezoek_adres VARCHAR2 (35),
+   prs_bedrijf_bezoek_adres VARCHAR2 (50),
    prs_bedrijf_bezoek_postcode VARCHAR2 (12),
    prs_bedrijf_bezoek_plaats VARCHAR2 (30),
    prs_bedrijf_bezoek_land VARCHAR2 (30),
    prs_bedrijf_telefoon VARCHAR2 (20),
    prs_bedrijf_fax VARCHAR2 (20),
-   prs_bedrijf_post_adres VARCHAR2 (35),
+   prs_bedrijf_post_adres VARCHAR2 (50),
    prs_bedrijf_post_postcode VARCHAR2 (12),
    prs_bedrijf_post_plaats VARCHAR2 (30),
    prs_bedrijf_post_land VARCHAR2 (30),
@@ -1038,6 +1152,22 @@ CREATE TABLE fac_imp_ext_bedrijf
    prs_bedrijf_order_adres VARCHAR2(256)
 );
 
+CREATE_TABLE(fac_imp_bedrijfadres, 0)
+(
+   prs_bedrijf_key                NUMBER (10),
+   prs_bedrijfadres_type          VARCHAR2 (1),
+   mld_typeopdr_key               NUMBER (10),
+   prs_bedrijfadres_url           VARCHAR2 (512),
+   prs_bedrijfadres_ordermode     NUMBER (3),
+   prs_bedrijfadres_certificate   VARCHAR2 (255),
+   prs_bedrijfadres_xsl           VARCHAR2 (256),
+   prs_bedrijfadres_ext           VARCHAR2 (10),
+   prs_bedrijfadres_attachfile    VARCHAR2 (256),
+   prs_bedrijfadres_username      VARCHAR2 (32),
+   prs_bedrijfadres_password      VARCHAR2 (32)
+);
+
+
 // For OPrognose import (optional)
 CREATE_TABLE(fac_imp_oprognose, 0) (
  objectcode
@@ -1083,11 +1213,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)
@@ -1096,7 +1229,7 @@ CREATE_TABLE (fac_setting,0) (
 // We want the database to know what he is. This table has only one record.
 CREATE_TABLE (fac_version, 0) (
   fac_version_major
-    NUMBER(3),
+    NUMBER(4),
   fac_version_minor
     NUMBER(3),
   fac_version_patch
@@ -1199,6 +1332,10 @@ CREATE_TABLE(fac_menu, 0)
 //   ins_srtdiscipline_key NUMBER(10) CONSTRAINT fac_r_menu4 REFERENCES ins_srtdiscipline (ins_srtdiscipline_key),
    fac_menu_level       NUMBER(1),  /* 1=head, null=item, other=future use */
    fac_menu_portal      NUMBER(1),  /* 1=include in picture/portalmenu, null=donot include, other=future use */
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid          NUMBER(10) CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key),
+   fac_menu_filter      VARCHAR2(4000),
+   fac_menu_aanmaak     DATE DEFAULT SYSDATE,
    CONSTRAINT fac_c_menu1 CHECK (fac_menuitems_key IS NULL OR fac_menu_alturl IS NULL)
 );
 
@@ -1230,7 +1367,8 @@ CREATE_TABLE(fac_faq, 0)
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
    fac_faq_datum DATE,
    fac_faq_lang VARCHAR2(3),
-   fac_faq_hint VARCHAR2(1000)
+   fac_faq_hint VARCHAR2(1000),
+   fac_faq_displaymode NUMBER(3) DEFAULT 0  NOT NULL -- 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
 );
 
 CREATE_TABLE(fac_localeitems, 0) /* Alle mogelijk vertaalbare labels/teksten */
@@ -1260,16 +1398,6 @@ CREATE_TABLE(fac_locale, 0) /* Alle feitelijk vertaalde teksten */
    CONSTRAINT fac_c_fac_locale1 CHECK((fac_localeitems_key IS NOT NULL AND fac_locale_dialect_key IS NOT NULL AND fac_locale_kolomnaam IS NULL AND fac_locale_kolomkeyval IS NULL)
                                    OR (fac_localeitems_key IS NULL AND fac_locale_dialect_key IS NULL AND fac_locale_kolomnaam IS NOT NULL AND fac_locale_kolomkeyval IS NOT NULL))
 );
-CREATE_TABLE(fac_locale_mgt, 0) /* labelvertalingen van facmgt */
-(
-   fac_locale_mgt_key       NUMBER (10) PRIMARY KEY,
-   fac_locale_mgt_label     VARCHAR2(300 CHAR),
-   fac_locale_mgt_module    VARCHAR2(3 CHAR),
-   fac_locale_mgt_filenaam  VARCHAR2(60 CHAR),
-   fac_locale_mgt_lang      VARCHAR2(3) NOT NULL,
-   fac_locale_mgt_tekst     VARCHAR2(300 CHAR),
-   CONSTRAINT fac_u_fac_locale_mgt UNIQUE(fac_locale_mgt_label, fac_locale_mgt_lang, fac_locale_mgt_module, fac_locale_mgt_filenaam)
-);
 CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
 (
    fac_locale_xsl_key       NUMBER (10) PRIMARY KEY,
@@ -1278,6 +1406,7 @@ CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
    fac_locale_xsl_lang      VARCHAR2(3) NOT NULL,
    fac_locale_xsl_tekst     VARCHAR2(2000 CHAR),
    fac_locale_xsl_cust      VARCHAR2(2000),
+   fac_locale_xsl_isvalid   NUMBER(1) DEFAULT 1 NOT NULL,
    CONSTRAINT fac_u_fac_locale_xsl UNIQUE(fac_locale_xsl_label, fac_locale_xsl_lang, fac_locale_xsl_module)
 );
 
@@ -1304,7 +1433,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)
@@ -1323,7 +1452,14 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
    kenmerk3             VARCHAR2(250),
    kenmerk4             VARCHAR2(250),
    kenmerk5             VARCHAR2(250),
-   fac_import_key       NUMBER(10),
+   kenmerk6             VARCHAR2(250),
+   kenmerk7             VARCHAR2(250),
+   kenmerk8             VARCHAR2(250),
+   kenmerk9             VARCHAR2(250),
+   kenmerk10            VARCHAR2(250),
+   kenmerk11            VARCHAR2(250),
+   kenmerk12            VARCHAR2(250),
+   fac_import_key       NUMBER(10) CONSTRAINT fac_r_fac_imp_factuur1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
    fac_imp_file_index   NUMBER(10),
    fin_factuur_key      NUMBER(10),           -- geen importkolom, temp
    fin_factuurregel_key NUMBER(10),           -- geen importkolom, temp
@@ -1349,6 +1485,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),
@@ -1384,9 +1521,46 @@ 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)
 );
 
+CREATE_TABLE (fac_kenmwaarden, 0)
+(
+    fac_kenmwaarden_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_kenmwaarden_key PRIMARY KEY,
+    fac_kenmwaarden_module
+        VARCHAR2(3)
+        NOT_NULL(fac_kenmwaarden_module, fac_c_kenmwaarden_module),
+    fac_kenmwaarden_refkey
+        NUMBER(10),
+    fac_kenmwaarden_niveau
+        VARCHAR2(1)
+        CONSTRAINT fac_c_fac_kenmwaarden_niveau CHECK(fac_kenmwaarden_niveau IS NOT NULL
+               AND fac_kenmwaarden_niveau IN ('R','V','G','T','L','D','A','B','C','P')
+                OR fac_kenmwaarden_niveau IS NULL),
+    fac_kenmwaarden_kenmerk_key
+        NUMBER(10),
+    fac_kenmwaarden_waarde
+        VARCHAR2(4000),
+    fac_kenmwaarden_kenmerktype
+        VARCHAR2(1)
+        CONSTRAINT fac_c_fac_kenmwaarden_kenmtype  CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
+    fac_kenmwaarden_isexpr
+        VARCHAR2(1)
+        DEFAULT 0
+        CONSTRAINT fac_c_fac_kenmwaarden_isexpr CHECK(fac_kenmwaarden_isexpr IS NOT NULL
+               AND fac_kenmwaarden_isexpr IN (0, 1))
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT fac_r_prs_perslid_key8 REFERENCES prs_perslid(prs_perslid_key),
+//        CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL),
+//    CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key)
+);
 
 CREATE_TABLE(fac_session, 0)
 (
@@ -1491,6 +1665,8 @@ CREATE_TABLE(fac_bookmark, 0)
         NUMBER(10),
    fac_bookmark_aanmaak
         DATE DEFAULT SYSDATE,
+   fac_bookmark_flags
+        NUMBER(3) DEFAULT(1) NOT NULL, -- 0=onzichtbaar, 1=prssys zichtbaar, 2=iedereen zichtbaar, +4=prssys muteerbaar
    fac_bookmark_expire DATE
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
@@ -1501,8 +1677,12 @@ CREATE_TABLE(fac_bookmark, 0)
 --FSN#21091
 CREATE_TABLE(fac_email_setting, 0)
 (
-   fac_email_setting_user VARCHAR2 (255) PRIMARY KEY,
+   fac_email_setting_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_email_setting_key PRIMARY KEY,
+   fac_email_setting_user VARCHAR2 (255) NOT NULL,
    fac_email_setting_from VARCHAR2 (255),
+   fac_email_setting_frommode NUMBER(3) DEFAULT 0 NOT NULL, -- 0=MAIL FROM SMTP-command, 1=e-mail MIME header
    fac_email_setting_action VARCHAR2 (255),
    fac_email_setting_aanmaak DATE DEFAULT SYSDATE,
    fac_email_setting_expire DATE,
@@ -1538,7 +1718,10 @@ CREATE_TABLE(fac_imp_inspectie, 0) (
    ins_srtdeel_code             VARCHAR2 (10),
    ins_srtcontrole_omschrijving VARCHAR2 (60),
    ins_srtcontrole_info         VARCHAR2 (320),
-   ins_srtcontrole_periode      VARCHAR2 (4)
+   ins_srtcontrole_periode      VARCHAR2 (7),
+   ins_srtcontrole_mode					VARCHAR2 (1),
+   ins_srtcontrole_eenheid			VARCHAR2 (1),
+   ins_srtcontrole_bits					VARCHAR2 (4)
 );
 
 -- AAIT#25547
@@ -1556,7 +1739,7 @@ CREATE_TABLE(fac_imp_faq, 0) (
 );
 
 -- FSN#25952: Generieke contractenimport
-CREATE TABLE fac_imp_cnt
+CREATE_TABLE(fac_imp_cnt, 0)
 (
    nummer_intern      VARCHAR2 (30),
    nummer_extern      VARCHAR2 (30),
@@ -1564,7 +1747,7 @@ CREATE TABLE fac_imp_cnt
    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),
@@ -1610,6 +1793,14 @@ CREATE TABLE fac_imp_cnt
    flex25             VARCHAR2 (255)
 );
 
+CREATE_TABLE(fac_imp_translation, 0)
+(
+   locale_label     VARCHAR2(60 CHAR),
+   locale_module    VARCHAR2(3),
+   locale_lang      VARCHAR2(3) NOT NULL,
+   locale_tekst     VARCHAR2(2000 CHAR)
+);
+
 
 
 --FSN#23201
@@ -1639,13 +1830,13 @@ CREATE_TABLE(faq_kenmerk,0)
    faq_kenmerk_dimensie     VARCHAR2(10),
    faq_kenmerk_kenmerktype  VARCHAR2(1)
                             CONSTRAINT faq_c_faq_kenmerk_type1
-                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l')),
+                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
    faq_kenmerk_systeem      NUMBER(1),
    faq_kenmerk_toonbaar     NUMBER(1),
    faq_kenmerk_uniek        NUMBER(1),
    faq_kenmerk_regexp       VARCHAR2(255),
    faq_kenmerk_verplicht    NUMBER(1),
-   faq_kenmerk_groep        NUMBER(1),
+   faq_kenmerk_groep        NUMBER(1) DEFAULT 0 NOT NULL,
    faq_kenmerk_lengte       NUMBER(4),
    faq_kenmerk_dec          NUMBER(2),
    faq_kenmerk_nmin         NUMBER(10),
@@ -1659,7 +1850,7 @@ CREATE_TABLE(faq_kenmerk,0)
                             DEFAULT NULLDATUM
 );
 
-CREATE TABLE faq_kenmerkwaarde
+CREATE_TABLE(faq_kenmerkwaarde, 0)
 (
    faq_kenmerkwaarde_key       NUMBER(10)
                                CONSTRAINT faq_k_faq_kenmerkwaarde_key PRIMARY KEY,
@@ -1686,4 +1877,77 @@ CREATE_TABLE(fac_qvw_ticket, 0)
 //        CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
 
+// Holds several usage counters and related info for analyzing and stats
+CREATE_TABLE(fac_gui_counter, 0)
+(
+   fac_gui_counter_key      NUMBER (10) PRIMARY KEY,
+   fac_gui_counter_group    VARCHAR2 (12),                            /* prodsearch, menu, usrrap */
+   fac_gui_counter_refkey   NUMBER (10),
+   fac_gui_counter_count    NUMBER (12),
+   fac_gui_counter_info     VARCHAR2 (1000),
+   fac_gui_counter_date     DATE DEFAULT SYSDATE,
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key          NUMBER (10) CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+   CONSTRAINT fac_u_fac_gui_counter UNIQUE(fac_gui_counter_group, fac_gui_counter_date, fac_gui_counter_refkey, fac_gui_counter_info)
+);
+
+CREATE_TABLE(fac_sequence, 0)
+(
+   fac_sequence_name     VARCHAR2(50)
+                         CONSTRAINT fac_k_fac_sequence_name PRIMARY KEY,
+   fac_sequence_lastval  NUMBER(10),
+   fac_sequence_expire   DATE
+);
+
+// Documentatie in de wiki onder Authenticeren
+CREATE TABLE fac_idp
+(
+    fac_idp_key
+        NUMBER(10)
+        CONSTRAINT fac_k_idp_key PRIMARY KEY,
+    fac_idp_code            -- Voor &sso=<code>
+        VARCHAR2(30),
+    fac_idp_type            -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
+        NUMBER(3),          -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
+    fac_idp_algorithm       -- HS256 is HMAC-SHA256
+        VARCHAR2(30),
+    fac_idp_omschrijving
+        VARCHAR2(30),
+    fac_idp_opmerking
+        VARCHAR2(320),
+    fac_idp_secret
+        VARCHAR2(128),
+    fac_idp_audience
+        VARCHAR2(128),
+    fac_idp_issuer
+        VARCHAR2(128),
+    fac_idp_remote_loginurl
+        VARCHAR2(128),
+    fac_idp_remote_logouturl
+        VARCHAR2(128),
+    fac_idp_usermapping
+        VARCHAR2(30),
+    fac_idp_clockskew
+        NUMBER(10),
+    fac_idp_duration
+        NUMBER(10),
+-- Note: these column are defined in PRS_TAB.SRC
+--    prs_afdeling_key         NUMBER(10)
+--    prs_bedrijf_key          NUMBER(10)
+    fac_functie_key
+        NUMBER(10)
+        CONSTRAINT fac_r_idp_functie REFERENCES fac_functie(fac_functie_key),
+    fac_idp_internal        -- can be used for FACFAC
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    fac_idp_ipfilter
+        VARCHAR2(320),
+    fac_idp_ipauto
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    fac_idp_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -40,6 +40,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_email_setting_B_IU)
+BEFORE INSERT OR UPDATE ON fac_email_setting
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_email_setting_key, fac_s_fac_email_setting_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_groeprechten_B_IU)
 BEFORE INSERT OR UPDATE ON fac_groeprechten
 FOR EACH ROW
@@ -208,6 +216,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_usrrapcols_B_IU)
+BEFORE INSERT OR UPDATE ON fac_usrrap_cols
+FOR EACH ROW
+DECLARE
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_usrrap_cols_key, fac_s_fac_usrrap_cols_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_usrgraph_B_IU)
 BEFORE INSERT OR UPDATE ON fac_usrgraph
 FOR EACH ROW
@@ -284,7 +301,7 @@ BEGIN
    IF BITAND (:NEW.fac_notificatie_status, 1) = 1  AND :new.prs_perslid_key_receiver IS NOT NULL
    THEN
       -- strip zodat we alleen de eerste regel overhouden
-      loms := :NEW.fac_notificatie_oms;
+      loms := SUBSTR(:NEW.fac_notificatie_oms, 1, 512);
       IF INSTR (loms, chr(13)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(13)) -1);
       END IF;
@@ -356,16 +373,16 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_import_B_IU)
-BEFORE INSERT OR UPDATE ON fac_import
+CREATE_TRIGGER(fac_t_fac_import_B_I)
+BEFORE INSERT ON fac_import
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_import_key, fac_s_fac_import_key);
 END;
 /
 
-CREATE_TRIGGER(fac_t_imp_log_B_IU)
-BEFORE INSERT OR UPDATE ON imp_log
+CREATE_TRIGGER(fac_t_imp_log_B_I)
+BEFORE INSERT ON imp_log
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(imp_log_key, imp_s_imp_log_key);
@@ -531,14 +548,6 @@ BEGIN
    :new.fac_localeitems_dialect_id := UPPER (:new.fac_localeitems_dialect_id);
 END;
 /
-CREATE_TRIGGER(fac_t_fac_locale_mgt_b_iu)
-BEFORE INSERT OR UPDATE ON fac_locale_mgt
-FOR EACH ROW
-BEGIN
-   UPDATE_PRIMARY_KEY(fac_locale_mgt_key, fac_s_fac_locale_mgt_key);
-   :new.fac_locale_mgt_lang := UPPER (:new.fac_locale_mgt_lang);
-END;
-/
 CREATE_TRIGGER(fac_t_fac_locale_xsl_b_iu)
 BEFORE INSERT OR UPDATE ON fac_locale_xsl
 FOR EACH ROW
@@ -620,6 +629,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_kenmwaarden_B_IU)
+BEFORE INSERT OR UPDATE ON fac_kenmwaarden
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_kenmwaarden_key, fac_s_fac_kenmwaarden_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_widget_B_IU)
 BEFORE INSERT OR UPDATE ON fac_widget
 FOR EACH ROW
@@ -708,7 +725,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -792,17 +809,15 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'faq_m238');
    END IF;
-   IF (:new.faq_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.faq_kenmerk_lengte IS NULL
+   IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
    END IF;
-   IF :new.faq_kenmerk_kenmerktype = 'N'
-   AND :new.faq_kenmerk_lengte > 20
+   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20
    THEN
       :new.faq_kenmerk_lengte := 20;
    END IF;
-   IF :new.faq_kenmerk_kenmerktype = 'N' AND :old.faq_kenmerk_key IS NOT NULL
+   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :old.faq_kenmerk_key IS NOT NULL
    THEN
      IF :old.faq_kenmerk_nmin <> :new.faq_kenmerk_nmin OR
        :old.faq_kenmerk_nmin IS NULL AND :new.faq_kenmerk_nmin IS NOT NULL
@@ -857,4 +872,20 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_gui_counter_b_i)
+BEFORE INSERT ON fac_gui_counter
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_gui_counter_key, faq_s_fac_gui_counter_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_idp_B_IU)
+BEFORE INSERT OR UPDATE ON fac_idp
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_idp_key, fac_s_fac_idp_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/FAC_VIE.SRC

@@ -12,9 +12,9 @@ CREATE_VIEW(fac_v_functie_discipline, 0)
    SELECT fac_functie_key,
           'F',
           fac_functie_module,
-          fac_functie_omschrijving,
+          f.fac_functie_omschrijving,
           fac_functie_min_level
-   FROM fac_functie
+   FROM fac_functie f
    UNION
    SELECT ins_discipline_key,
           decode(ins_discipline_module,'INS','D','MLD','V','BES','C'),
@@ -114,7 +114,7 @@ AS
    SELECT -- GROEPEN MET DISCIPLINES
           p.prs_perslid_naam, p.prs_perslid_oslogin,
           f.fac_functie_code,
-          f.fac_functie_omschrijving,
+          COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
             (CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
              decode(a.ins_discipline_module, 'BES', 'Categorie ',
                      'INS', 'Discipline ',
@@ -134,7 +134,8 @@ AS
           fac_functie f,
           ins_srtdiscipline isd,
           ins_tab_discipline a,
-          fac_groep gr
+          fac_groep gr,
+          fac_locale_xsl flx
     WHERE g.ins_discipline_key = a.ins_discipline_key
       AND g.fac_groep_key = gr.fac_groep_key
       AND p.prs_perslid_key = gg.prs_perslid_key
@@ -143,10 +144,14 @@ AS
       AND f.fac_functie_key = g.fac_functie_key
       AND f.fac_functie_discipline = 1
       AND ins_discipline_verwijder IS NULL
+      AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
+      AND flx.fac_locale_xsl_lang (+)= 'NL'
+      AND flx.fac_locale_xsl_module (+)= 'ASP'
    UNION ALL -- GROEPEN ZONDER DISCIPLINES
    SELECT p.prs_perslid_naam, p.prs_perslid_oslogin,
           f.fac_functie_code,
-          f.fac_functie_omschrijving, NULL omschrijving,
+          COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
+          NULL omschrijving,
           gr.fac_groep_omschrijving,
              '(' || TO_CHAR(g.fac_gebruiker_prs_level_read)  || ', '
                  || TO_CHAR(g.fac_gebruiker_prs_level_write) || ', '
@@ -156,13 +161,17 @@ AS
           fac_functie f,
           fac_gebruikersgroep gg,
           prs_v_aanwezigperslid p,
-          fac_groep gr
+          fac_groep gr,
+          fac_locale_xsl flx -- lcl.l gebruik was extreem traag dus maar hardcoded
     WHERE fac_functie_module <> 'LAN'
       AND fac_functie_discipline = 0
       AND g.fac_functie_key = f.fac_functie_key
       AND g.fac_groep_key = gg.fac_groep_key
       AND gg.fac_groep_key = gr.fac_groep_key
-      AND p.prs_perslid_key = gg.prs_perslid_key;
+      AND p.prs_perslid_key = gg.prs_perslid_key
+      AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
+      AND flx.fac_locale_xsl_lang (+)= 'NL'
+      AND flx.fac_locale_xsl_module (+)= 'ASP';
 
 CREATE_VIEW(fac_v_rap_groeprechten2, 0)
  (fclt_f_groep,
@@ -175,7 +184,7 @@ AS
 SELECT -- GROEPEN MET DISCIPLINES
           gr.fac_groep_omschrijving,
           f.fac_functie_code,
-            f.fac_functie_omschrijving,
+          COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
           (CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
              DECODE( a.ins_discipline_module ,  'BES' ,  'Categorie ' ,
                      'INS' ,  'Discipline ' ,
@@ -192,29 +201,37 @@ SELECT -- GROEPEN MET DISCIPLINES
           FAC_FUNCTIE f,
           INS_TAB_DISCIPLINE a,
           ins_srtdiscipline isd,
-          FAC_GROEP gr
+          FAC_GROEP gr,
+          fac_locale_xsl flx
     WHERE g.ins_discipline_key = a.ins_discipline_key
       AND g.fac_groep_key = gr.fac_groep_key
       AND isd.ins_srtdiscipline_key(+) = a.ins_srtdiscipline_key
       AND f.fac_functie_key = g.fac_functie_key
       AND f.fac_functie_discipline = 1
       AND ins_discipline_verwijder IS NULL
+      AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
+      AND flx.fac_locale_xsl_lang (+)= 'NL'
+      AND flx.fac_locale_xsl_module (+)= 'ASP'
    UNION ALL -- GROEPEN ZONDER DISCIPLINES
    SELECT gr.fac_groep_omschrijving,
           f.fac_functie_code,
-          f.fac_functie_omschrijving, NULL omschrijving,
+          COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
+          NULL omschrijving,
              '('  ||  TO_CHAR(g.fac_gebruiker_prs_level_read)   ||  ', '
                   ||  TO_CHAR(g.fac_gebruiker_prs_level_write)  ||  ', '
                   ||  TO_CHAR(g.fac_gebruiker_alg_level_read)   ||  ', '
                   ||  TO_CHAR(g.fac_gebruiker_alg_level_write)  ||  ')' or_ow_ar_aw
      FROM FAC_GROEPRECHTEN g,
           FAC_FUNCTIE f,
-          FAC_GROEP gr
+          FAC_GROEP gr,
+          fac_locale_xsl flx
     WHERE fac_functie_module <> 'LAN'
       AND g.fac_groep_key = gr.fac_groep_key
       AND fac_functie_discipline = 0
       AND g.fac_functie_key = f.fac_functie_key
-/
+      AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
+      AND flx.fac_locale_xsl_lang (+)= 'NL'
+      AND flx.fac_locale_xsl_module (+)= 'ASP';
 
 CREATE_VIEW(fac_v_rap_groepleden, 0)
  (naam,
@@ -286,8 +303,8 @@ CREATE_VIEW (fac_v_perfmon, 0) (fclt_f_datum,
                                 users
                                )
 AS
-   SELECT DATE_TO_CHAR(fac_perfmon_datum, 'YYYY-MM-DD'), NUMBER_TO_CHAR (fac_perfmon_threshold),
-          fac_perfmon_AANTAL, NUMBER_TO_CHAR (ROUND(fac_perfmon_waarde / fac_perfmon_aantal)),
+   SELECT fac_perfmon_datum, fac_perfmon_threshold,
+          fac_perfmon_AANTAL, ROUND(fac_perfmon_waarde / fac_perfmon_aantal),
           fac_perfmon_users
      FROM fac_perfmon;
 
@@ -297,7 +314,6 @@ AS
 // perfmon.asp basic sample reports
 -- de platte waarden
 CREATE_VIEW(fac_v_perfmon_samplewaarde, 0) (fclt_f_datum,
-                                                   tijd,
                                                    waarde1,
                                                    waarde2,
                                                    waarde3,
@@ -311,8 +327,7 @@ CREATE_VIEW(fac_v_perfmon_samplewaarde, 0) (fclt_f_datum,
                                                    fclt_f_gebruiker
                                                   )
 AS
-   SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
-          DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'),
+   SELECT fac_perfmon_sample_datum,
           fac_perfmon_sample_waarde1, fac_perfmon_sample_waarde2,
           fac_perfmon_sample_waarde3, fac_perfmon_sample_waarde4,
           fac_perfmon_sample_waarde5, fac_perfmon_sample_waarde6,
@@ -902,7 +917,7 @@ AS
 SELECT fac_notificatie_receiver_email, fac_notificatie_receiver_phone, fac_notificatie_oms, fac_notificatie_status,
        fac_notificatie_key, fac_notificatie_refkey, fac_notificatie_datum, fac_srtnotificatie_code, fac_srtnotificatie_xmlnode,
        fac_notificatie_extrakey, fac_notificatie_sender_email, fac_notificatie_lang, fac_notificatie_systeemadres,
-       fac_notificatie_attachments, fac_srtnotificatie_delay
+       fac_notificatie_attachments, fac_srtnotificatie_delay, fac_srtnotificatie_srtkm_key
   FROM fac_notificatie n
   LEFT OUTER JOIN fac_srtnotificatie sn ON n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key;
 
@@ -1289,10 +1304,14 @@ AS
              FROM prs_v_aanwezigperslid p
             WHERE EXISTS               -- op basis van login + groep + rechten
                      (SELECT 1
-                        FROM fac_v_rap_groeprechten
-                       WHERE fclt_f_login =
-                                COALESCE (p.prs_perslid_oslogin,
-                                          p.prs_perslid_oslogin2))
+                        FROM fac_v_webgebruiker gg
+                       WHERE gg.prs_perslid_key = p.prs_perslid_key)
+                  AND NOT EXISTS -- FSN#36597: WEB_FACFAC-users niet meetellen!
+                        (SELECT 1
+                           FROM fac_v_webgebruiker gg, fac_functie f
+                          WHERE gg.prs_perslid_key = p.prs_perslid_key
+                            AND gg.fac_functie_key = f.fac_functie_key
+                            AND fac_functie_code = 'WEB_FACFAC')
            UNION ALL   -- FSN#24029: Soms ook personen zonder login meetellen!
            SELECT p.prs_perslid_key,
                   NULL oslogin,
@@ -1399,7 +1418,8 @@ AS
                                       AND fac_functie_groep IN (1, 2)) pfc
                      GROUP BY pfc.prs_perslid_key) pfcs
              ON x.prs_perslid_key = pfcs.prs_perslid_key
-    WHERE COALESCE (y.lev_write_cnt, 0) > 0 OR COALESCE (z.lev_read_cnt, 0) > 0;
+    WHERE (COALESCE (y.lev_write_cnt, 0) > 0 OR COALESCE (z.lev_read_cnt, 0) > 0)
+          AND INSTR (pfcs.funcodes, 'FACFAC') = 0;
 
 CREATE_VIEW (fac_v_lcrap_grp_stats, 0)
 (
@@ -1470,9 +1490,25 @@ AS
                               FROM   fac_gebruikersgroep
                              WHERE   prs_perslid_key = p.prs_perslid_key);
 
-/* KTO-views naar mld gemoved */
+CREATE_VIEW(fac_v_lcrap_saldo, 1)
+(
+   tijdstip,
+   fe_saldo,
+   key_saldo,
+   fe_diff_pct,
+   key_diff_pct
+)
+AS
+   SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss') tijdstip,
+          fac.getsetting ('licensed_fe_users') - fe_users fe_saldo,
+          fac.getsetting ('licensed_key_users') - key_users key_saldo,
+          DECODE(fac.getsetting ('licensed_fe_users'),0,100,100*(fac.getsetting ('licensed_fe_users') - fe_users)/fac.getsetting ('licensed_fe_users')),
+          DECODE(fac.getsetting ('licensed_key_users'),0,100,100*(fac.getsetting ('licensed_key_users') - fe_users)/fac.getsetting ('licensed_key_users'))
+     FROM fac_v_lcrap_fe_vs_key;
 
 
+/* KTO-views naar mld gemoved */
+
 /*****************************************************************************/
 /*****************************************************************************/
 /*          Grafiek views voor dashboards e.d. REAL TIME MONITORING          */
@@ -2111,26 +2147,153 @@ 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(ctr_disc_params_controle_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(cdp.ctr_disc_params_controle_type) ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_srtcontrole sc,
+                      ctr_disc_params cdp
+              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
+                      AND sc.ctr_discipline_key = cdp.ctr_ins_discipline_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,
-         nl.fac_locale_xsl_tekst FCLT_F_NL,
-         en.fac_locale_xsl_tekst FCLT_F_EN,
-         de.fac_locale_xsl_tekst FCLT_F_DE,
-         fr.fac_locale_xsl_tekst FCLT_F_FR
-    FROM fac_locale_xsl nl,
-         fac_locale_xsl en,
-         fac_locale_xsl de,
-         fac_locale_xsl fr
-   WHERE     nl.fac_locale_xsl_lang = 'NL'
-         AND en.fac_locale_xsl_lang = 'EN'
-         AND de.fac_locale_xsl_lang = 'DE'
-         AND fr.fac_locale_xsl_lang = 'FR'
-         AND en.fac_locale_xsl_label = nl.fac_locale_xsl_label
-         AND de.fac_locale_xsl_label = nl.fac_locale_xsl_label
-         AND fr.fac_locale_xsl_label = nl.fac_locale_xsl_label
-         AND nl.fac_locale_xsl_module = 'ASP'
-ORDER BY nl.fac_locale_xsl_label;
+   SELECT nl.fac_locale_xsl_label fclt_f_label,
+          nl.fac_locale_xsl_module module,
+          nl.fac_locale_xsl_lang fclt_f_language1,
+          nl.fac_locale_xsl_tekst translation1,
+          en.fac_locale_xsl_lang fclt_f_language2,
+          en.fac_locale_xsl_tekst translation2,
+          de.fac_locale_xsl_lang fclt_f_language3,
+          de.fac_locale_xsl_tekst translation3,
+          fr.fac_locale_xsl_lang fclt_f_language4,
+          fr.fac_locale_xsl_tekst translation4
+     FROM fac_locale_xsl nl,
+          fac_locale_xsl en,
+          fac_locale_xsl de,
+          fac_locale_xsl fr
+    WHERE     nl.fac_locale_xsl_lang = 'NL'
+          AND en.fac_locale_xsl_lang = 'EN'
+          AND de.fac_locale_xsl_lang = 'DE'
+          AND fr.fac_locale_xsl_lang = 'FR'
+          AND en.fac_locale_xsl_label = nl.fac_locale_xsl_label
+          AND de.fac_locale_xsl_label = nl.fac_locale_xsl_label
+          AND fr.fac_locale_xsl_label = nl.fac_locale_xsl_label
+          AND en.fac_locale_xsl_module = nl.fac_locale_xsl_module
+          AND de.fac_locale_xsl_module = nl.fac_locale_xsl_module
+          AND fr.fac_locale_xsl_module = nl.fac_locale_xsl_module;
 
 CREATE_VIEW(fac_v_rap_lcl_xref, 0) AS
 SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
@@ -2143,4 +2306,69 @@ SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
        AND fac_locale_xsl_lang = 'NL'
        AND fac_locale_xsl_module = 'ASP';
 
+-- Standard sample report shows GUI usage (menu, reports, search) stats of last 100 days
+CREATE_VIEW(fac_v_rap_gui_usage_last100, 0) AS
+     SELECT fac_gui_counter_group fclt_f_action,
+            COALESCE (fac_gui_counter_info,
+                      fac_menu_altlabel,
+                      lcl.l (fac_menuitems_label),
+                      fac_usrrap_omschrijving)
+               detail,
+            COALESCE (r.fac_usrrap_view_name, m.fac_menu_alturl, mi.fac_menuitems_url) techdetail,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+            LEFT JOIN fac_usrrap r
+               ON c.fac_gui_counter_group = 'report' AND c.fac_gui_counter_refkey = r.fac_usrrap_key
+      WHERE fac_gui_counter_group NOT IN ('searchresult', 'searchchoice')
+            AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            fac_usrrap_omschrijving,
+            r.fac_usrrap_view_name,
+            m.fac_menu_alturl,
+            mi.fac_menuitems_url
+     HAVING SUM (fac_gui_counter_count) > 1;
+
+CREATE_VIEW(fac_v_rap_gui_usage_device, 0)
+(
+   action,
+   fclt_f_device,
+   total
+)
+AS
+     SELECT COALESCE (fac_gui_counter_info, fac_menu_altlabel, lcl.l (fac_menuitems_label)) detail,
+            DECODE (COALESCE (m.fac_menu_altgroep, mi.fac_menuitems_groep), 3, 'Mobile', 'Default')
+               device,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+      WHERE fac_gui_counter_group IN ('menu') AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            m.fac_menu_altgroep,
+            mi.fac_menuitems_groep;
+
+CREATE_VIEW(fac_v_rap_language, 0)
+(
+ label, module, language, translation, fclt_f_undefined
+)
+AS
+   SELECT fac_locale_xsl_label,
+          fac_locale_xsl_module,
+          fac_locale_xsl_lang,
+          fac_locale_xsl_tekst,
+          CASE WHEN fac_locale_xsl_isvalid <> 1 THEN 'X' ELSE '' END
+     FROM fac_locale_xsl;
+
 REGISTERRUN('$Id$')

FAC/parse_fac_lclmld.js

@@ -0,0 +1,62 @@
+// FSN#32930 en FSN#29226
+// Zet FAC_LCLMDL.csv met teksten voor API-doc en Help@fingerdetails
+// om naar reguliere _fac_lclmdl.src
+// Nog erg experimenteel en niet in productie gebruik
+
+var fso = new ActiveXObject("Scripting.FileSystemObject");
+//var inFile = fso.OpenTextFile("FAC_LCLMDL.csv");
+var inFile = fso.OpenTextFile(WScript.Arguments(0));
+var alldata = inFile.ReadAll();
+
+var  alllines = alldata.split(/\x0D\x0A/);
+//WScript.Echo(alllines.length + " lines");
+var cntfields = alllines[0].split(";");
+
+WScript.Echo("/*********************************");
+WScript.Echo(" * GENERATED FILE, DO NOT MODIFY *");
+WScript.Echo(" *********************************/");
+
+WScript.Echo("START_FACXSL_LCL('ASP', NULL)");
+var prev_model;
+for (l=1; l < alllines.length; l++)
+{
+    var linearr = alllines[l].split(";");
+    var model = linearr[0];
+    if (prev_model && model && model != prev_model)
+    {
+        WScript.Echo("END_FACXSL_LCL()");
+        WScript.Echo("START_FACXSL_LCL('ASP', NULL)");
+    }
+    model = model || prev_model;
+    prev_model = model;
+    var fld = linearr[1];
+    for (var i = 2; i < linearr.length - 1; i++)
+    {
+        if (linearr[i].substr(0,1) == "\"" && linearr[i].substr(linearr[i].length - 1) != "\"")
+        {
+            linearr[i] += ";" + linearr[i + 1];
+            linearr.splice(i + 1, 1);
+            i--; // deze nog een keer proberen
+            continue;
+        }
+        if (linearr[i].substr(0,1) == "\"" && linearr[i].substr(linearr[i].length - 1) == "\"")
+            linearr[i] = linearr[i].substr(1, linearr[i].length - 2);
+        linearr[i] = linearr[i].replace(/\"\"/g, "\""); // Dubbele quote naar enkel
+
+    }
+    // FACXSL_LCL('lcl_facilitor_header_prefix', 'NL tekst', 'EN tekst', 'DE tekst', 'FR tekst')
+    WScript.Echo("FACXSL_LCL('" + model + "." + fld + ".hint', " + safe(linearr[2]) + ", "
+                                                                 + safe(linearr[3]) + ", "
+                                                                 + safe(linearr[4]) + ", "
+                                                                 + safe(linearr[5]) + ")");
+}
+WScript.Echo("END_FACXSL_LCL()");
+
+function safe(tekst)
+{
+    tekst = tekst.replace(/[\x00-\x08\x0B\x0C\x0E-\x1F]+/g, "?");
+    tekst = tekst.substr(0, 2000);
+    tekst = "'" + tekst.replace(/\'/g,"''") + "'"; // " syntax highlight correctie
+    tekst = tekst.replace(/\n/g, "'||CHR(10)||'");
+    return tekst;
+}

FCLT.NMK

@@ -1,9 +1,9 @@
-    ###############################################################################
+###############################################################################
 ##  MAK\SQL\FCLT.NMK
 ##
-##    Project: SM44 FACILITOR
+##    Project: FACILITOR
 ##
-##             (c) 1995-2012 SG|facilitor bv
+##             (c) 1995-2015 Facilitor B.V.
 ##
 ##   Auteur:    Ir. P.G. Feij
 ##   $Revision$
@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=22
-NEXTVERSION=23
-FILEVERSION=
-NEXTCAREVERSION=26
+CURRENTVERSION=29
+NEXTVERSION=30
+FILEVERSION=f
+NEXTCAREVERSION=32
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -152,26 +152,42 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\cnt\cnt_tab.src   \
       $(MSRC)\cnt\cnt_tri.src   \
       $(MSRC)\cnt\cnt_vie.src   \
+      $(MSRC)\ctr\ctr_ind.src   \
+      $(MSRC)\ctr\ctr_ini.src   \
+      $(MSRC)\ctr\ctr_pac.src   \
+      $(MSRC)\ctr\ctr_seq.src   \
+      $(MSRC)\ctr\ctr_tab.src   \
+      $(MSRC)\ctr\ctr_tri.src   \
+      $(MSRC)\ctr\ctr_vie.src   \
       $(MSRC)\fac\fac_ind.src   \
       $(MSRC)\fac\fac_ini.src   \
       $(MSRC)\fac\fac_lcl.src   \
-      $(MSRC)\fac\fac_lclasp.src \
+##       $(MSRC)\fac\_fac_lclmdl.src \
       $(MSRC)\fac\fac_set.src   \
       $(MSRC)\fac\fac_pac.src   \
       $(MSRC)\fac\fac_pacx.src  \
       $(MSRC)\fac\fac_pacf.src  \
       $(MSRC)\fac\fac_pacl.src  \
+      $(MSRC)\fac\fac_pacflex.src  \
       $(MSRC)\fac\fac_seq.src   \
       $(MSRC)\fac\fac_tab.src   \
       $(MSRC)\fac\fac_tri.src   \
       $(MSRC)\fac\fac_vie.src   \
       $(MSRC)\ins\ins_ind.src   \
       $(MSRC)\ins\ins_ini.src   \
+      $(MSRC)\ins\ins_lcl.src   \
       $(MSRC)\ins\ins_pac.src   \
       $(MSRC)\ins\ins_seq.src   \
       $(MSRC)\ins\ins_tab.src   \
       $(MSRC)\ins\ins_tri.src   \
       $(MSRC)\ins\ins_vie.src   \
+      $(MSRC)\kpi\kpi_ind.src   \
+      $(MSRC)\kpi\kpi_ini.src   \
+      $(MSRC)\kpi\kpi_pac.src   \
+      $(MSRC)\kpi\kpi_seq.src   \
+      $(MSRC)\kpi\kpi_tab.src   \
+      $(MSRC)\kpi\kpi_tri.src   \
+      $(MSRC)\kpi\kpi_vie.src   \
       $(MSRC)\mld\mld_ind.src   \
       $(MSRC)\mld\mld_ini.src   \
       $(MSRC)\mld\mld_lcl.src   \
@@ -231,10 +247,15 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\web\web_tab.src   \
       $(MSRC)\web\web_tri.src   \
       $(MSRC)\web\web_vie.src
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
+$(MSRC)\fac\_fac_lclmdl.src: \
+    $(MSRC)\fac\fac_lclmdl.csv
+ cscript /nologo $(MSRC)\fac\parse_fac_lclmld.js $** >$@
+
 ##########################################################################
 #### UPDATES CONSIST OF UPDATE AND RECREATE scripts
 ##########################################################################
@@ -246,6 +267,7 @@ $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src       \
       $(MSRC)\comsql.h       \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCUPDATE).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -257,6 +279,7 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -276,7 +299,8 @@ $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL:   \
       $(MSRC)\care\care_vie.src  \
       $(MSRC)\care\care_pac.src  \
       $(MSRC)\care\care_ini.src
-    $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
@@ -286,6 +310,7 @@ $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
       $(MSRC)\care.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\CARE\CARE$(NEXTCAREVERSION).sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
  $(PRECOMP) $(PRECOMP_OPTIONS) $(CARERECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql

FCLT.SRC

@@ -1,12 +1,14 @@
--- [CREA*.SQL]
+-- [FCLT*.SQL]
 --
 -- Script to initialise a FACILITOR database schema in Oracle
--- Copyright 1996-2014 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"
 
@@ -14,6 +16,7 @@ SET TIME ON
 SET HEADING OFF
 SET FEEDBACK OFF
 SET ECHO OFF
+SET SERVEROUTPUT ON SIZE UNLIMITED;
 
 column fcltlogfile new_value fcltlogfile NOPRINT;
 select 'FACILITOR'|| _DBV_STRING || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
@@ -44,10 +47,10 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2014 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
@@ -75,6 +78,8 @@ SET ECHO ON
 #include "fin\fin_tab.src"
 #include "prj\prj_tab.src"
 #include "msg\msg_tab.src"
+#include "kpi\kpi_tab.src"
+#include "ctr\ctr_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
@@ -92,6 +97,8 @@ SET ECHO ON
 #include "fin\fin_seq.src"
 #include "prj\prj_seq.src"
 #include "msg\msg_seq.src"
+#include "kpi\kpi_seq.src"
+#include "ctr\ctr_seq.src"
 
 /* INDICES */
 #include "fac\fac_ind.src"
@@ -109,6 +116,8 @@ SET ECHO ON
 #include "fin\fin_ind.src"
 #include "prj\prj_ind.src"
 #include "msg\msg_ind.src"
+#include "kpi\kpi_ind.src"
+#include "ctr\ctr_ind.src"
 
 /* VIEWS, PACKAGES, TRIGGERS and LOCALES */
 #include "_up/recreate.inc"
@@ -129,6 +138,8 @@ SET ECHO ON
 #include "fin\fin_ini.src"
 #include "prj\prj_ini.src"
 #include "msg\msg_ini.src"
+#include "kpi\kpi_ini.src"
+#include "ctr\ctr_ini.src"
 
 COMMIT;
 
@@ -155,5 +166,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-2014 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,8 +7,11 @@
 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);
+CREATE INDEX fin_i_fin_verkoopfactuur2 ON fin_verkoopfactuur(fin_verkoopfactuur_id);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_INI.SRC

@@ -3,7 +3,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('FIN','Facturen')
+_FAC_MODULE('FIN','lcl_module_FIN')
 
 DEF_STATUS('factuur', 1, 'lcl_fin_afgewezen');
 DEF_STATUS('factuur', 2, 'lcl_fin_ingevoerd');

FIN/FIN_PAC.SRC

@@ -40,8 +40,7 @@ AS
    FUNCTION getfactuurkostenplaats (pfactuur_key IN NUMBER)
       RETURN NUMBER;
 
-
-
+  FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
 END fin;
 /
 
@@ -66,10 +65,15 @@ AS
       CASE pstatus
          WHEN 1                                                                                             -- Afgewezen
          THEN
-            IF currentstatus IS NULL OR currentstatus = 2
+            IF currentstatus IS NULL OR currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
-               eventcode := 'FINFNO';
+               IF currentstatus = 5
+               THEN
+                 eventcode := 'FINGNO';
+               ELSE
+                 eventcode := 'FINFNO';
+               END IF;
             END IF;
          WHEN 2                                                                                             -- Ingevoerd
          THEN
@@ -77,19 +81,30 @@ AS
             THEN
                newstatus := pstatus;
                eventcode := 'FINNEW';
-            ELSIF currentstatus = 1 OR currentstatus = 6
+            ELSIF currentstatus = 1 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFUN';
+            ELSIF currentstatus = 6
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGUN';
             END IF;
-         WHEN 6                                                                                              -- Verwerkt
+         WHEN 5                                                                                             -- Ter goedkeuring
          THEN
             IF currentstatus = 2
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGOE';
+            END IF;
+         WHEN 6                                                                                             -- Verwerkt
+         THEN
+            IF currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFOK';
             END IF;
-         WHEN 7                                                                                            -- Uitgegeven
+         WHEN 7                                                                                             -- Uitgegeven
          THEN
             IF currentstatus = 6
             THEN
@@ -274,27 +289,30 @@ AS
       -- -1 factuur niet (automatisch) goed
       --  0 niks van te zeggen of reeds goed-/afgekeurd/verwerkt
       --  1 factuur okay
-      ftype VARCHAR2 (1);
-      c_key fin_factuur.cnt_contract_key%TYPE;
-      b_key fin_factuur.bes_bestelopdr_key%TYPE;
-      o_key fin_factuur.mld_opdr_key%TYPE;
-      factuurstatus fin_factuur.fin_factuur_statuses_key%TYPE;
-      factuurdatum fin_factuur.fin_factuur_datum%TYPE;
-      discipline ins_tab_discipline.ins_discipline_key%TYPE;
-      factmatchmode mld_disc_params.mld_disc_params_factmatchmode%TYPE;
-      korting bes_bestelopdr.bes_bestelopdr_korting%TYPE;
-      levkosten bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
-      contracttermijnkosten cnt_contract.cnt_contract_termijnkosten%TYPE;
-      contractkosten cnt_contract.cnt_contract_kosten%TYPE;
-      opdrachtkosten mld_opdr.mld_opdr_kosten%TYPE;
-      matchtype mld_typeopdr.mld_typeopdr_matchtype%TYPE;
-      factuurbedrag NUMBER (12, 2);
-      bestelbedrag NUMBER (12, 2);                                        -- van de opdracht waar deze factuur over gaat
-      totaalgefactureerd NUMBER (12, 2);               -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
-      totaalgefactureerdbtw NUMBER (12, 2);
-      opdrstatus mld_opdr.mld_statusopdr_key%TYPE;
-      retval NUMBER := 0;
-      inclbtw NUMBER := 0;
+      ftype                       VARCHAR2 (1);
+      c_key                       fin_factuur.cnt_contract_key%TYPE;
+      b_key                       fin_factuur.bes_bestelopdr_key%TYPE;
+      o_key                       fin_factuur.mld_opdr_key%TYPE;
+      factuurstatus               fin_factuur.fin_factuur_statuses_key%TYPE;
+      factuurdatum                fin_factuur.fin_factuur_datum%TYPE;
+      factuurboekmaand            fin_factuur.fin_factuur_boekmaand%TYPE;
+      discipline                  ins_tab_discipline.ins_discipline_key%TYPE;
+      factmatchmode               mld_disc_params.mld_disc_params_factmatchmode%TYPE;
+      korting                     bes_bestelopdr.bes_bestelopdr_korting%TYPE;
+      levkosten                   bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
+      contracttermijnkosten       cnt_contract.cnt_contract_termijnkosten%TYPE;
+      factuurschemabedrag         cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
+      contractkosten              cnt_contract.cnt_contract_kosten%TYPE;
+      opdrachtkosten              mld_opdr.mld_opdr_kosten%TYPE;
+      matchtype                   mld_typeopdr.mld_typeopdr_matchtype%TYPE;
+      factuurbedrag               NUMBER (12, 2);
+      bestelbedrag                NUMBER (12, 2);     -- van de opdracht waar deze factuur over gaat
+      totaalgefactureerd          NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
+      totaaltermijngefactureerd   NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde C igv factuurschema-gebruik
+      totaalgefactureerdbtw       NUMBER (12, 2);
+      opdrstatus                  mld_opdr.mld_statusopdr_key%TYPE;
+      retval                      NUMBER := 0;
+      inclbtw                     NUMBER := 0;
    -- Bepaal te tolerantie van de vakgroep
    -- waarschijnlijk in procenten of zo?
    -- of geven we de factuurwaarde mee en leveren we true/false op?
@@ -318,13 +336,15 @@ AS
                bes_bestelopdr_key,
                fin_factuur_totaal,
                fin_factuur_statuses_key,
-               fin_factuur_datum
+               fin_factuur_datum,
+               fin_factuur_boekmaand
         INTO   o_key,
                c_key,
                b_key,
                factuurbedrag,
                factuurstatus,
-               factuurdatum
+               factuurdatum,
+               factuurboekmaand
         FROM   fin_factuur
        WHERE   fin_factuur_key = pfactuur_key;
 
@@ -361,11 +381,13 @@ AS
             factmatchmode := fin.getfactmatchmode (discipline, 'B');
 
             -- Zijn de bestelbedragen incl. of excl. BTW.
-            SELECT ks.prs_kostensoort_btw
+            SELECT MAX((SELECT ks.prs_kostensoort_btw
+                          FROM prs_kostensoort ks
+                         WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
               INTO inclbtw
               FROM bes_discipline bd,
-                   prs_kostensoort ks
-             WHERE bd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+                   bes_srtgroep bsg
+             WHERE bd.ins_discipline_key = bsg.ins_discipline_key
                AND bd.ins_discipline_key = discipline;
 
             -- Bereken dan nu de voor de matching relevante bedragen
@@ -423,13 +445,16 @@ AS
          --
          WHEN ftype = 'C'
          THEN
+            -- om te beginnen zit deze factuur per definitie in deze termijn (welke dan ook)
+            totaaltermijngefactureerd := factuurbedrag;
+
             -- Controle op termijn bedrag en totaal, je kunt discussieren of _verwijder moet worden gecontroleerd.
             BEGIN
-                SELECT   c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
-                  INTO   contracttermijnkosten, contractkosten, discipline
-                  FROM   cnt_contract c
-                 WHERE   cnt_contract_status = 0  -- actief
-                   AND   cnt_contract_key = c_key;
+               SELECT c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
+                 INTO contracttermijnkosten, contractkosten, discipline
+                 FROM cnt_contract c
+                WHERE cnt_contract_status = 0                                              -- actief
+                                             AND cnt_contract_key = c_key;
             EXCEPTION
                WHEN NO_DATA_FOUND
                THEN
@@ -437,19 +462,52 @@ AS
                   RETURN -1;
             END;
 
+            -- Er kan ook gebruik gemaakt worden van een factuurschema, dan moet het termijnbedrag anders bepaald worden
+            BEGIN
+               SELECT s.cnt_factuurschema_bedrag
+                 INTO factuurschemabedrag
+                 FROM cnt_factuurschema s
+                WHERE s.cnt_factuurschema_boekmaand = factuurboekmaand
+                      AND s.cnt_contract_key = c_key;
+
+               -- Ok, er is dus een factuurschema-bedrag voor deze periode: dan controleren:
+               -- waren er niet al facturen voor dezelfde periode en komt het totaal er met deze dan niet overheen?
+               SELECT SUM (fin_factuur_totaal)                                          -- Excl. BTW
+                 INTO totaaltermijngefactureerd
+                 FROM fin_factuur
+                WHERE     cnt_contract_key = c_key
+                      AND fin_factuur_statuses_key <> 1
+                      AND fin_factuur_verwijder IS NULL
+                      AND fin_factuur_datum <= factuurdatum
+                      AND fin_factuur_boekmaand = factuurboekmaand;
+            -- totaaltermijngefactureerd is dus voor deze periode inclusief deze nieuwe, dus
+            -- dus mogelijk hoger dan deze ene factuur
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  DBMS_OUTPUT.put_line(   'Geen factuurschema van toepassing voor contract '
+                                       || c_key
+                                       || ' in periode '
+                                       || factuurboekmaand);
+            -- factuurschemabedrag is nu null
+            END;
+
             -- LET OP: contractbedragen worden altijd excl. BTW. verondersteld
-
             -- Zou hier horen, maar we doen er toch niks mee: factmatchmode := fin.getfactmatchmode (discipline, 'C');
-            SELECT   SUM (fin_factuur_totaal) -- Excl. BTW
-              INTO   totaalgefactureerd
-              FROM   fin_factuur
-             WHERE   cnt_contract_key = c_key
-               AND   fin_factuur_statuses_key <> 1
-               AND   fin_factuur_verwijder IS NULL
-               AND   fin_factuur_datum <= factuurdatum;
+            SELECT SUM (fin_factuur_totaal)                                             -- Excl. BTW
+              INTO totaalgefactureerd
+              FROM fin_factuur
+             WHERE     cnt_contract_key = c_key
+                   AND fin_factuur_statuses_key <> 1
+                   AND fin_factuur_verwijder IS NULL
+                   AND fin_factuur_datum <= factuurdatum;
 
-            IF totaalgefactureerd <= contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
-               AND fin.tolerantiematch (discipline, ftype, factuurbedrag, contracttermijnkosten) = 1
+            IF totaalgefactureerd <=
+                  contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
+               AND fin.tolerantiematch (discipline,
+                                        ftype,
+                                        totaaltermijngefactureerd,
+                                        COALESCE (factuurschemabedrag, contracttermijnkosten)) = 1
             THEN
                retval := 1;
             ELSE
@@ -526,7 +584,12 @@ AS
       CASE fin.matchfactuur (pfactuur_key)
          WHEN 1
          THEN
-            fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            IF fac.getsetting('fin_enable_goedkeuren') <> 0
+            THEN
+               fin.setfactuurstatus (pfactuur_key, 5, NULL);
+            ELSE
+               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            END IF;
          WHEN -1
          THEN
             IF prejecttoo
@@ -648,7 +711,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
@@ -816,6 +879,21 @@ AS
 
       RETURN kpkey;
    END;
+
+   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      s VARCHAR2 (2048 CHAR);
+   BEGIN
+      s :=  ps;
+      -- We do support substitution of placeholders in the messages
+      -- ##KEY##    = fin_factuur_key
+      IF INSTR (s, '#') > 0
+      THEN
+         s := REPLACE (s, '##KEY##', p_factuur_key);
+      END IF;
+      RETURN s;
+   END;
 END fin;
 /
 

FIN/FIN_SEQ.SRC

@@ -14,6 +14,7 @@ CREATE SEQUENCE fin_s_fin_btwtabelwaarde_key MINVALUE 4; /* eerste 3 standaard g
 
 CREATE SEQUENCE fin_s_fin_factuur_note_key MINVALUE 1;
 CREATE SEQUENCE fin_s_fin_verkoopfactuur_key MINVALUE 1;
+CREATE SEQUENCE fin_s_verkoopfactuurkop_key MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

FIN/FIN_TAB.SRC

@@ -57,6 +57,16 @@ 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);
+
+// FSN#37318
+ALTER TABLE ins_srtcontrole
+				ADD fin_btwtabelwaarde_key NUMBER(10)
+ CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
+
+
 CREATE_TABLE(fin_factuur,0)
 (
   fin_factuur_key
@@ -70,6 +80,8 @@ CREATE_TABLE(fin_factuur,0)
 , fin_factuur_totaal_btw
     NUMBER (10,4)
     NOT_NULL(fin_factuur_totaal_btw, fin_c_fin_factuur1)
+, fin_factuur_gbedrag
+    NUMBER(10,2)
 , mld_opdr_key
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur1 REFERENCES mld_opdr(mld_opdr_key)
@@ -82,6 +94,9 @@ CREATE_TABLE(fin_factuur,0)
 , prs_perslid_key_user
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur4 REFERENCES prs_perslid(prs_perslid_key)
+, prs_perslid_key_goedkeur
+    NUMBER(10)
+    CONSTRAINT fin_r_fin_factuur6 REFERENCES prs_perslid(prs_perslid_key)
 , fin_factuur_datum
     DATE
     NOT_NULL(fin_factuur_datum, fin_c_fin_factuur3)
@@ -96,8 +111,12 @@ CREATE_TABLE(fin_factuur,0)
     VARCHAR2(250)
 , fin_factuur_statuses_key
     NUMBER(10)
-    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,6,7))
+    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7))
     NOT_NULL(fin_factuur_statuses_key, fin_c_fin_factuur5)
+, fin_factuur_bron
+    NUMBER(3)
+    DEFAULT 0
+    NOT NULL
 , fin_factuur_verwijder
     DATE
 );
@@ -157,7 +176,7 @@ CREATE_TABLE(fin_kenmerk,0)
         VARCHAR2(10)
     ,fin_kenmerk_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+        CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,fin_kenmerk_systeem
         NUMBER(1)
     ,fin_kenmerk_toonbaar
@@ -170,6 +189,7 @@ CREATE_TABLE(fin_kenmerk,0)
         NUMBER(1)
     ,fin_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,fin_kenmerk_lengte
         NUMBER(4)
     ,fin_kenmerk_dec
@@ -242,23 +262,36 @@ CREATE_TABLE(fin_factuur_note, 0)
    fin_factuur_note_omschrijving    VARCHAR2 (4000 CHAR)
 );
 
-// Een basistabel waarin verkoopfactuurregels kunnen worden bewaard als een soort hardcopy
-// Deze tabel wordt (vooralsnog) niet door de core-programmatuur gevuld maar is wel een 
+// Met name om er een model (scaffolding) op te kunnen baseren is een kop-tabel erg wenselijk.
+CREATE_TABLE(fin_verkoopfactuurkop, 0)
+(
+    fin_verkoopfactuurkop_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuurkop_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    CONSTRAINT fin_u_verkoopfactuurkop_id UNIQUE(fin_verkoopfactuurkop_id)
+);
+
+// Een basistabel waarin verkoopfactuurREGELS kunnen worden bewaard als een soort hardcopy
+// Deze tabel wordt (vooralsnog) niet door de core-programmatuur gevuld maar is wel een
 // uniforme opslag voor latere referentie; vervangt de diverse cust-tabellen die ontstonden
 // Voor verschillende waarden (van bv kostenplaats of btwpercentage) zijn er verschillende regels
 // Stamgegevens kunnen later wijzigen en worden hier bevroren, overige gegevens kunnen worden
 // teruggevonden via de bijbehorende referentie
 // Tevens zijn er plenty extra kolommen voor gebruik naar eigen inzicht
+// LET OP: dit is bewust de rand van ons datamodel, hierin verder gaan opent de beerput van de financiele wereld
+//         waar we niet vrijwillig in willen vallen.
+// LET OP: de verwijzing fin_verkoopfactuurkop_key is optioneel.
+//         Indien een cust dit via de GUI wil gebruiken is deze vereist.
 CREATE_TABLE(fin_verkoopfactuur, 0)
 (
-    fin_verkoopfactuur_key          NUMBER(10),
-    fin_verkoopfactuur_aanmaak      DATE 
-                                    DEFAULT SYSDATE,
-    fin_verkoopfactuur_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak we numeriek */
-    fin_verkoopfactuur_datum        DATE,           /* de factuurdatum */        
+    fin_verkoopfactuur_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_key       NUMBER(10) REFERENCES fin_verkoopfactuurkop(fin_verkoopfactuurkop_key) ON DELETE CASCADE,
+    fin_verkoopfactuur_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuur_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    fin_verkoopfactuur_datum        DATE,           /* de factuurdatum */
     fin_verkoopfactuur_omschr       VARCHAR2(1000),
     fin_verkoopfactuur_xmlnode      VARCHAR2(60),   /* type van waarover deze factuur gaat */
-    fin_verkoopfactuur_refkey       VARCHAR2(60),   /* key van de bijbehorende entiteit van type xmlnode */
+    fin_verkoopfactuur_refkey       NUMBER(10),   /* key van de bijbehorende entiteit van type xmlnode */
     prs_kostenplaats_key            NUMBER(10),
     prs_kostenplaats_nr             VARCHAR2(30),
     prs_kostenplaats_omschrijving   VARCHAR2(60),

FIN/FIN_TRI.SRC

@@ -84,7 +84,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -302,14 +302,12 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'fin_M238');
    END IF;
-   IF (:new.fin_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.fin_kenmerk_lengte IS NULL
+   IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
    END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.fin_kenmerk_kenmerktype = 'N'
-   AND :new.fin_kenmerk_lengte > 20
+   IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20
    THEN
       :new.fin_kenmerk_lengte := 20;
    END IF;
@@ -391,6 +389,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fin_t_verkoopfactuurkop_b_i)
+BEFORE INSERT ON fin_verkoopfactuurkop
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuurkop_key, fin_s_verkoopfactuurkop_key);
+END;
+/
+
 CREATE_TRIGGER(fin_t_fin_verkoopfactuur_b_iu)
 BEFORE INSERT OR UPDATE ON fin_verkoopfactuur
 FOR EACH ROW

FIN/FIN_VIE.SRC

@@ -53,6 +53,419 @@ AS
 -- Vooralsnog placeholders, moeten aangepast worden
 CREATE_VIEW(fin_v_api_facturen, 1) AS SELECT * from fin_factuur;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(fin_v_udr_factuur, 1)
+(
+   factuur_key,
+   factuur_datum,
+   uitvoerende,
+   leverancier_nr,
+   factuurnr_extern,
+   factuur_voor,
+   opdrachtnr,
+   opdracht_key,
+   contract_key,
+   bestelling_key,
+   kostenplaats,
+   kostenplaats_extern,
+   discipline_omschrijving,
+   catalogus,
+   kostensoort,
+   kostensoort_opmerking,
+   kostensoort_refcode,
+   kostensoort_altcode,
+   kostensoort_btw,
+   stdmelding_omschrijving,
+   bedrag_incl_btw,
+   bedrag_excl_btw,
+   status,
+   opmerking,
+   budgethouder
+)
+AS
+   SELECT f.fin_factuur_key,
+          f.fin_factuur_datum factuur_datum,
+          (SELECT b.prs_bedrijf_naam
+             FROM prs_bedrijf b
+            WHERE prs_bedrijf_key =
+                     COALESCE (o.mld_uitvoerende_keys, c.cnt_prs_bedrijf_key, bo.prs_bedrijf_key))
+             uitvoerende,
+          (SELECT b.prs_leverancier_nr
+             FROM prs_bedrijf b
+            WHERE prs_bedrijf_key =
+                     COALESCE (o.mld_uitvoerende_keys, c.cnt_prs_bedrijf_key, bo.prs_bedrijf_key))
+             leverancier_nr,
+          fin_factuur_nr factuurnr_extern,
+          CASE
+             WHEN f.mld_opdr_key IS NOT NULL THEN lcl.l ('lcl_fin_mld_opdr')
+             WHEN f.cnt_contract_key IS NOT NULL THEN lcl.l ('lcl_fin_cnt_contract')
+             WHEN f.bes_bestelopdr_key IS NOT NULL THEN lcl.l ('lcl_fin_bestelling')
+          END
+             CASE,
+          COALESCE (
+             NVL2 (
+                f.mld_opdr_key,
+                   ins_srtdiscipline_prefix
+                || TO_CHAR (o.mld_melding_key)
+                || '/'
+                || o.mld_opdr_bedrijfopdr_volgnr,
+                NULL),
+             NVL2 (
+                f.cnt_contract_key,
+                   'C'
+                || cnt_contract_nummer_intern
+                || NVL2 (cnt_contract_versie, '.' || cnt_contract_versie, ''),
+                NULL),
+             NVL2 (f.bes_bestelopdr_key, bo.bes_bestelopdr_id, NULL),
+             ' ')
+             opdrachtnr,
+          f.mld_opdr_key,
+          f.cnt_contract_key,
+          f.bes_bestelopdr_key,
+          NVL2 (
+             k.prs_kostenplaats_nr,
+             prs_kostenplaats_nr || ' '
+             || lcl.x ('prs_kostenplaats_omschrijving',
+                       k.prs_kostenplaats_key,
+                       k.prs_kostenplaats_omschrijving),
+             '')
+             kostenplaats,
+          DECODE (k.prs_kostenplaats_extern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          cd.ins_discipline_omschrijving,
+          (SELECT MIN (ins_discipline_omschrijving)
+             FROM bes_discipline bd,
+                  bes_srtgroep bg,
+                  bes_srtdeel bs,
+                  bes_bestelling_item bi,
+                  bes_bestelopdr_item boi
+            WHERE     boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
+                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
+                  AND bs.bes_srtdeel_key = bi.bes_srtdeel_key
+                  AND bg.bes_srtgroep_key = bs.bes_srtgroep_key
+                  AND bd.ins_discipline_key = bg.ins_discipline_key)
+             bes_discipline_omschrijving,
+          ks.prs_kostensoort_oms,
+          ks.prs_kostensoort_opmerking,
+          ks.prs_kostensoort_refcode,
+          ks.prs_kostensoort_altcode,
+          DECODE (ks.prs_kostensoort_btw, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          mld_stdmelding_omschrijving,
+          f.fin_factuur_totaal + f.fin_factuur_totaal_btw bedrag_incl_btw,
+          f.fin_factuur_totaal bedrag_excl_btw,
+          fs.fin_factuur_statuses_omschr,
+          f.fin_factuur_opmerking,
+          (SELECT p.prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all p
+            WHERE prs_perslid_key = budgethouder)
+             budgethouder
+     FROM (SELECT prs.getkpverantwoordelijke (prs_kostenplaats_key, 2, -1) budgethouder, f.*
+             FROM (SELECT fin.getfactuurkostenplaats (f.fin_factuur_key) prs_kostenplaats_key, f.*
+                     FROM fin_factuur f) f) f,
+          prs_kostenplaats k,
+          mld_opdr o,
+          mld_melding m,
+          mld_discipline d,
+          mld_stdmelding sm,
+          ins_srtdiscipline sd,
+          cnt_contract c,
+          cnt_discipline cd,
+          bes_bestelopdr bo,
+          prs_kostensoort ks,
+          fin_factuur_statuses fs
+    WHERE     f.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+          AND f.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+          AND f.mld_opdr_key = o.mld_opdr_key(+)
+          AND o.mld_melding_key = m.mld_melding_key(+)
+          AND m.mld_stdmelding_key = sm.mld_stdmelding_key(+)
+          AND sm.mld_ins_discipline_key = d.ins_discipline_key(+)
+          AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+          AND f.cnt_contract_key = c.cnt_contract_key(+)
+          AND c.ins_discipline_key = cd.ins_discipline_key(+)
+          AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+          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,
+   regio,
+   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_regio_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,
+            alg_regio r
+      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 d.alg_regio_key = r.alg_regio_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_regio_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

@@ -4,21 +4,17 @@
  * $Id$
  */
 
-_FAC_MODULE('INS','Objectbeheer')
-_FAC_MODULE('SLE','Sleutelbeheer')
+_FAC_MODULE('INS','lcl_module_INS')
+_FAC_MODULE('SLE','lcl_module_SLE')
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('SLE: Sleuteloverzicht', 'ins_v_rap_sle_toegang',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Overzicht van sleutels en bezitters',
@@ -27,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_LCL.SRC

@@ -0,0 +1,122 @@
+#ifdef  INS
+/*
+ *  $Id$
+ *  $Revision$
+ */
+
+START_LOCALEITEMS('INS_TAB_DISCIPLINE_KEY')
+DEFINE_LOCALEITEM(ins_controlemode_success)
+DEFINE_LOCALEITEM(ins_srtcontrole_groep)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten2)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten3)
+DEFINE_LOCALEITEM(ins_srtcontrole_materiaal)
+DEFINE_LOCALEITEM(ins_srtcontrole_opmerking)
+DEFINE_LOCALEITEM(ins_srtcontrole_percentage)
+DEFINE_LOCALEITEM(ins_srtcontrole_uren)
+DEFINE_LOCALEITEM(lcl_bld_terra)
+DEFINE_LOCALEITEM(lcl_building)
+DEFINE_LOCALEITEM(lcl_cancel)
+DEFINE_LOCALEITEM(lcl_change)
+DEFINE_LOCALEITEM(lcl_count)
+DEFINE_LOCALEITEM(lcl_date)
+DEFINE_LOCALEITEM(lcl_delete)
+DEFINE_LOCALEITEM(lcl_discipline)
+DEFINE_LOCALEITEM(lcl_district)
+DEFINE_LOCALEITEM(lcl_estate_gebouw_title)
+DEFINE_LOCALEITEM(lcl_ins_additional_details)
+DEFINE_LOCALEITEM(lcl_ins_change_xcp)
+DEFINE_LOCALEITEM(lcl_ins_close)
+DEFINE_LOCALEITEM(lcl_ins_controle)
+DEFINE_LOCALEITEM(lcl_ins_controle_act_req)
+DEFINE_LOCALEITEM(lcl_ins_controle_afgemeld)
+DEFINE_LOCALEITEM(lcl_ins_controle_afgerond)
+DEFINE_LOCALEITEM(lcl_ins_controle_dagelijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_datum)
+DEFINE_LOCALEITEM(lcl_ins_controle_derde)
+DEFINE_LOCALEITEM(lcl_ins_controle_eenheid)
+DEFINE_LOCALEITEM(lcl_ins_controle_eennalaatste)
+DEFINE_LOCALEITEM(lcl_ins_controle_eerste)
+DEFINE_LOCALEITEM(lcl_ins_controle_first)
+DEFINE_LOCALEITEM(lcl_ins_controle_gestart)
+DEFINE_LOCALEITEM(lcl_ins_controle_groep)
+DEFINE_LOCALEITEM(lcl_ins_controle_identical_values)
+DEFINE_LOCALEITEM(lcl_ins_controle_is_upd)
+DEFINE_LOCALEITEM(lcl_ins_controle_jaarlijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_laatste)
+DEFINE_LOCALEITEM(lcl_ins_controle_legenda)
+DEFINE_LOCALEITEM(lcl_ins_controle_maandelijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_mode)
+DEFINE_LOCALEITEM(lcl_ins_controle_notholiday)
+DEFINE_LOCALEITEM(lcl_ins_controle_opm)
+DEFINE_LOCALEITEM(lcl_ins_controle_pending)
+DEFINE_LOCALEITEM(lcl_ins_controle_period)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_fronttext)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_ofthemonth)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearday)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearhour)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonth)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonthon)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweek)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweekon)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyear)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyearin)
+DEFINE_LOCALEITEM(lcl_ins_controle_plan)
+DEFINE_LOCALEITEM(lcl_ins_controle_plandate)
+DEFINE_LOCALEITEM(lcl_ins_controle_soon)
+DEFINE_LOCALEITEM(lcl_ins_controle_srt)
+DEFINE_LOCALEITEM(lcl_ins_controle_srt_verplicht)
+DEFINE_LOCALEITEM(lcl_ins_controle_tweede)
+DEFINE_LOCALEITEM(lcl_ins_controle_uurlijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_vierde)
+DEFINE_LOCALEITEM(lcl_ins_controle_vijfde)
+DEFINE_LOCALEITEM(lcl_ins_controle_wekelijks)
+DEFINE_LOCALEITEM(lcl_ins_finish)
+DEFINE_LOCALEITEM(lcl_ins_finishing)
+DEFINE_LOCALEITEM(lcl_ins_info)
+DEFINE_LOCALEITEM(lcl_ins_inspecteur)
+DEFINE_LOCALEITEM(lcl_ins_interval_kenmerken)
+DEFINE_LOCALEITEM(lcl_ins_kosten)
+DEFINE_LOCALEITEM(lcl_ins_object)
+DEFINE_LOCALEITEM(lcl_ins_planned_activities)
+DEFINE_LOCALEITEM(lcl_ins_respijt)
+DEFINE_LOCALEITEM(lcl_ins_schedule)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_insp)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_repl)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_type)
+DEFINE_LOCALEITEM(lcl_ins_start)
+DEFINE_LOCALEITEM(lcl_ins_starting)
+DEFINE_LOCALEITEM(lcl_ins_status)
+DEFINE_LOCALEITEM(lcl_ins_vervaldatum)
+DEFINE_LOCALEITEM(lcl_location)
+DEFINE_LOCALEITEM(lcl_mjb_becancelled)
+DEFINE_LOCALEITEM(lcl_mjb_dragdrop)
+DEFINE_LOCALEITEM(lcl_mjb_frequency)
+DEFINE_LOCALEITEM(lcl_mjb_group)
+DEFINE_LOCALEITEM(lcl_mjb_inclbtw)
+DEFINE_LOCALEITEM(lcl_mjb_inflation)
+DEFINE_LOCALEITEM(lcl_mjb_overruled_xcp)
+DEFINE_LOCALEITEM(lcl_mjb_phasingout)
+DEFINE_LOCALEITEM(lcl_mjb_uptoyear)
+DEFINE_LOCALEITEM(lcl_name)
+DEFINE_LOCALEITEM(lcl_obj_group)
+DEFINE_LOCALEITEM(lcl_obj_identification)
+DEFINE_LOCALEITEM(lcl_obj_sort)
+DEFINE_LOCALEITEM(lcl_opdr_plandate)
+DEFINE_LOCALEITEM(lcl_park)
+DEFINE_LOCALEITEM(lcl_remark)
+DEFINE_LOCALEITEM(lcl_search)
+DEFINE_LOCALEITEM(lcl_search_generic)
+DEFINE_LOCALEITEM(lcl_select_controlemode)
+DEFINE_LOCALEITEM(lcl_select_discipline)
+DEFINE_LOCALEITEM(lcl_select_srtcontrole)
+DEFINE_LOCALEITEM(lcl_shared_doaction)
+DEFINE_LOCALEITEM(lcl_show)
+DEFINE_LOCALEITEM(lcl_status_details)
+DEFINE_LOCALEITEM(lcl_submit)
+DEFINE_LOCALEITEM(lcl_Total)
+DEFINE_LOCALEITEM(lcl_valutasign)
+END_LOCALEITEMS()
+
+REGISTERONCE('$Id$')
+#endif  // INS

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,193 @@ 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).
+    -- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
+    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 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);
+
+        RETURN inspdate;
+    END;
+
+    -- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
+    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);
+
+        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

@@ -23,8 +23,8 @@ CREATE_TABLE(ins_srtdiscipline,0)
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2)),
     ins_srtdiscipline_alg
-        NUMBER(1) DEFAULT(1)
-        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1)),
+        NUMBER(3) DEFAULT(1)
+        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)),
     ins_srtdiscipline_ins
         NUMBER(1) DEFAULT(1)
         CONSTRAINT ins_c_ins_srtdiscipline_ins CHECK(ins_srtdiscipline_ins IN (0,1)),
@@ -354,17 +354,21 @@ CREATE_TABLE(ins_deel,0)
         VARCHAR2(128),
     ins_deel_statedate
         DATE,
-    ins_deel_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT ins_c_ins_deel_uitvoertijd CHECK(ins_deel_uitvoertijd >= 0),
     ins_deel_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT ins_c_ins_deel_uitvoertijd1 CHECK(ins_deel_t_uitvoertijd.tijdsduur >= 0),
-CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
+    ins_deel_actief                   -- Object 0=Inactief, 1=Actief.
+        NUMBER(1)
+        DEFAULT 1 NOT NULL,
+-- In: PRS_TAB.SRC
+--    prs_perslid_key_beh
+--        NUMBER(10)
+--        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key),
+    CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
            ins_deel_parent_key, ins_srtdeel_key, ins_deel_upper,
            ins_deel_verwijder)
 );
+ALTER TABLE ins_deel MODIFY ins_deel_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 // Track history of ins_deel_states, in principe alleen wijzigende waarden
 CREATE_TABLE(ins_deel_state_history, 0)
@@ -383,6 +387,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)
 (
@@ -397,10 +424,13 @@ CREATE_TABLE(ins_srtcontrole, 0)
     ins_srtcontrole_omschrijving
         VARCHAR2(60)
         NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
+    ctr_discipline_key NUMBER(10)
+        CONSTRAINT ctr_c_ins_srtcontrole_dis_key CHECK(ctr_discipline_key IS NOT NULL)
+        CONSTRAINT ctr_c_ins_srtctr_discipline REFERENCES ins_tab_discipline(ins_discipline_key),
     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),
@@ -413,12 +443,47 @@ 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_srtcontrole_options   /* bitwise: 1=(kan)inplannen, 2=(kan)starten, 4=(kan)afmelden, 8=(kan)voltooien */
+        NUMBER(3)
+        DEFAULT 15
+        NOT_NULL(ins_srtcontrole_options, ins_c_ins_srtcontr_options),
+    ins_scenario_key
+       NUMBER(10)
+       CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
+/* in fin_tab.src:
+    fin_btwtabelwaarde_key
+			 NUMBER(10)
+ 			 CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+*/
+	ins_srtcontrole_afbouwtijd
+        NUMBER(6,2)
+/* in prs_tab.src:
+    ,prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
+*/
 );
 
 CREATE_TABLE(ins_controlemode, 0)
@@ -431,15 +496,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)
 (
@@ -452,21 +520,40 @@ 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)
-       DATE,
     ins_srtcontroledl_xcp_periode
         NUMBER(6,2),
     ins_srtcontroledl_xcp_eenheid //  0=uurlijks, 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks
         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)
+        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_startdat  // Startdatum eerste inspectie.
+        DATE,
     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,
+		ins_srtcontroledl_xcp_opmerk
+        VARCHAR2(320),
+    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
@@ -479,18 +566,20 @@ 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),
-    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)
@@ -535,7 +624,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
       VARCHAR2(10),
    ins_srtkenmerk_kenmerktype
       VARCHAR2(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l')),
+      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l', 'B')),
    ins_srtkenmerk_systeem
       NUMBER(1)
       CONSTRAINT ins_c_ins_srtkenmerk_systeem CHECK(ins_srtkenmerk_systeem IS NULL
@@ -587,7 +676,8 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_verplicht
       NUMBER(1),
    ins_kenmerk_groep
-      NUMBER(1),
+      NUMBER(1)
+      DEFAULT 0 NOT NULL,
    ins_kenmerk_toonbaar
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_toonbaar CHECK(ins_kenmerk_toonbaar IS NULL
@@ -596,6 +686,10 @@ CREATE_TABLE(ins_kenmerk, 0)
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_meetwaarde CHECK(ins_kenmerk_meetwaarde IS NULL
                                                OR ins_kenmerk_meetwaarde = 1),
+   ins_kenmerk_wissen
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
+      CONSTRAINT ins_c_ins_kenmerk_wissen CHECK(ins_kenmerk_wissen IN (0,1,2)),
    ins_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL,
@@ -606,7 +700,7 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_regexp
       VARCHAR2(255),
    ins_kenmerk_default
-      VARCHAR2(255),
+      VARCHAR2(4000),
    ins_kenmerk_hint
       VARCHAR2(255 CHAR),
    ins_kenmerk_aanmaak
@@ -777,6 +871,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
   ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
   CONSTRAINT ins_r_ins_discipine_key FOREIGN KEY (ins_discipline_key)

INS/INS_TRI.SRC

@@ -102,6 +102,14 @@ BEGIN
       END;
    END IF;
 
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND :old.ins_discipline_verwijder IS NULL
+       AND :new.ins_discipline_module = 'RES')
+   THEN
+       BEGIN DELETE FROM res_activiteitdiscipline WHERE res_activiteitdiscipline.res_discipline_key = :new.ins_discipline_key; END;
+   END IF;
+
+
     SET_VERWIJDER_CHILDREN(ins_srtgroep, ins_discipline_key, ins_discipline_verwijder,
         ins_srtgroep_verwijder,ins_tab_discipline);
     SET_VERWIJDER_CHILDREN(bes_srtgroep, ins_discipline_key, ins_discipline_verwijder,
@@ -157,16 +165,20 @@ BEGIN
  END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_B_I)
+BEFORE INSERT ON ins_deel
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
+END;
+/
+
 CREATE_TRIGGER(ins_t_ins_deel_B_IU)
 BEFORE INSERT OR UPDATE ON ins_deel
 FOR EACH ROW
-declare
+DECLARE
   Dummy1 BOOLEAN;
-  new_date DATE;
-  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
 BEGIN
-
-   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
    UPDATE_UPPER(ins_deel_omschrijving,ins_deel_upper,ins_deel);
    IF :new.ins_deel_verwijder IS NOT NULL AND :old.ins_deel_verwijder IS NULL THEN
      DECLARE
@@ -300,6 +312,17 @@ BEGIN
          END IF;
       END;
    END IF;
+   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
+END;
+/
+
+CREATE_TRIGGER(ins_t_ins_deel_A_U)
+AFTER UPDATE ON ins_deel
+FOR EACH ROW
+DECLARE
+  new_date DATE;
+  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
+BEGIN
    IF (:old.ins_deel_state  IS NULL AND :new.ins_deel_state IS NOT NULL)
     OR (:new.ins_deel_state  <> :old.ins_deel_state)
    THEN
@@ -332,7 +355,6 @@ BEGIN
             END IF;
       END;
    END IF;
-   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
 END;
 /
 
@@ -533,20 +555,17 @@ BEGIN
       APPLICATION_ERROR(-20003, 'INS_M156');
     END IF;
 
-    IF (:new.ins_srtkenmerk_kenmerktype = 'C'
-    OR  :new.ins_srtkenmerk_kenmerktype = 'N')
-    AND :new.ins_srtkenmerk_lengte IS NULL
+    IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL
     THEN
        APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
     END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-    IF :new.ins_srtkenmerk_kenmerktype = 'N'
-    AND :new.ins_srtkenmerk_lengte > 20
+    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20
     THEN
        :new.ins_srtkenmerk_lengte := 20;
     END IF;
 
-    IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
+    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.ins_srtkenmerk_key IS NOT NULL
     THEN
       IF :old.ins_srtkenmerk_nmin <> :new.ins_srtkenmerk_nmin OR
         (:old.ins_srtkenmerk_nmin IS NULL AND :new.ins_srtkenmerk_nmin IS NOT NULL)
@@ -661,7 +680,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType = 'N' /* Number */
+   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -770,7 +789,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType = 'N' /* Number */
+   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -863,6 +882,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
@@ -273,6 +328,7 @@ CREATE_VIEW(ins_v_deel_gegevens,0)
    ,      ins_deel_aanmaak
    ,      ins_deel_opmerking
    ,      ins_deel_getekend
+   ,      ins_deel_vervaldatum
 )
 AS SELECT INS_D.ins_discipline_key
    ,      INS_D.ins_discipline_omschrijving
@@ -315,6 +371,7 @@ AS SELECT INS_D.ins_discipline_key
    ,      INS_DE.ins_deel_aanmaak
    ,      INS_DE.ins_deel_opmerking
    ,      INS_DE.ins_deel_getekend
+   ,      INS_DE.ins_deel_vervaldatum
    FROM   ins_deel               INS_DE
    ,      ins_tab_discipline     INS_D
    ,      ins_v_alg_overzicht    INS_AO
@@ -372,6 +429,7 @@ AS SELECT INS_D.ins_discipline_key
    ,      INS_DE.ins_deel_aanmaak
    ,      INS_DE.ins_deel_opmerking
    ,      INS_DE.ins_deel_getekend
+   ,      INS_DE.ins_deel_vervaldatum
    FROM   ins_deel               INS_DE
    ,      ins_tab_discipline     INS_D
    ,      prs_v_afdeling_perslid PRS_AP
@@ -827,6 +885,53 @@ CREATE_VIEW(ins_v_allsrtinst,0) (ins_srtinst_keys,
           'D'
    FROM ins_srtdeel;
 
+CREATE_VIEW(ins_v_allsrtinstallatie,0)
+( niveau
+, ins_srtinstallatie_key
+, discipline_oms
+, srtgroep_oms
+, srtdeel_oms
+, ins_discipline_key
+, ins_srtgroep_key
+, ins_srtdeel_key
+)
+AS
+SELECT 'D'
+     , ins_ID.ins_discipline_key
+     , ins_ID.ins_discipline_omschrijving discipline_oms
+     , null srtgroep_oms
+     , null srtdeel_oms
+     , ins_ID.ins_discipline_key
+     , null ins_srtgroep_key
+     , null ins_srtdeel_key
+  FROM ins_discipline ins_ID
+UNION
+SELECT 'G'
+     , ins_SG.ins_srtgroep_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , null
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , null
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+ WHERE ins_ID.ins_discipline_key = ins_SG.ins_discipline_key
+UNION
+SELECT 'S'
+     , ins_SD.ins_srtdeel_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , ins_SD.ins_srtdeel_omschrijving
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , ins_SD.ins_srtdeel_key
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+     , ins_srtdeel ins_SD
+ WHERE ins_SG.ins_srtgroep_key = ins_SD.ins_srtgroep_key
+   AND ins_ID.ins_discipline_key = ins_SG.ins_discipline_key;
+
 /* 17-01-96 */
 CREATE_VIEW(ins_v_srtinst_discipline,0) AS
     SELECT INS_SI.ins_srtinst_keys,
@@ -1362,7 +1467,7 @@ SELECT d.ins_deel_key,
        l.alg_locatie_code,
        l.alg_locatie_omschrijving,
        kd.ins_kenmerkdeel_aanmaak datum,
-       TO_CHAR (kd.ins_kenmerkdeel_aanmaak, 'hh24:mi') tijd,
+       TRUNC (kd.ins_kenmerkdeel_aanmaak) tijd,
        sk.ins_srtkenmerk_omschrijving ins_srtkenmerk_omschrijving,
        kd.ins_kenmerkdeel_verwijder,
        sk.ins_srtkenmerk_kenmerktype,
@@ -1411,7 +1516,7 @@ SELECT id.ins_deel_key,
        l.alg_locatie_code,
        l.alg_locatie_omschrijving,
        idsc.ins_deelsrtcontrole_datum datum,
-       TO_CHAR (idsc.ins_deelsrtcontrole_datum, 'hh24:mi') tijd,
+       TRUNC (idsc.ins_deelsrtcontrole_datum) tijd,
        idsc.ins_srtcontrole_key,
        ins_srtcontrole_omschrijving,
        idsc.ins_deelsrtcontrole_key,
@@ -1441,6 +1546,174 @@ SELECT id.ins_deel_key,
        AND v.alg_gebouw_key = g.alg_gebouw_key
        AND g.alg_locatie_key = l.alg_locatie_key;
 
+-- Merk op dat je nagenoeg altijd ins_v_defined_inspect_xcp wilt gebruiken
+CREATE_VIEW(ins_v_defined_inspect, 0)
+(
+   ins_deel_key,
+   ins_deel_aanmaak,
+   ins_deel_aantal,
+   ins_alg_locatie_key,
+   ins_discipline_key,
+   ins_srtgroep_key,
+   ins_srtdeel_key,
+   ins_srtcontrole_key,
+   ins_srtcontrole_omschrijving,
+   ins_srtcontrole_mode,
+   ins_srtcontrole_eenheid,
+   ins_srtcontrole_periode,
+   ins_srtcontrole_bits,
+   ins_srtcontrole_kosten,
+   ins_srtcontrole_kosten2,
+   ins_srtcontrole_kosten3,
+   ins_srtcontrole_uren,
+   ins_srtcontrole_materiaal,
+   ins_srtcontrole_percentage,
+   ins_srtcontrole_eind,
+   ins_srtcontrole_groep,
+   ins_srtcontrole_opmerking,
+   ins_srtcontrole_info,
+   ins_srtcontrole_level,
+   ins_srtcontrole_afbouwtijd,
+   ins_srtcontrole_options,
+   fin_btwtabelwaarde_key,
+   ctr_discipline_key,
+   ctr_controle_type,
+   ctr_ismjob
+)
+AS
+   SELECT id.ins_deel_key,
+          id.ins_deel_aanmaak,
+          id.ins_deel_aantal,
+          id.ins_alg_locatie_key,
+          id.ins_discipline_key,
+          s.ins_srtgroep_key,
+          id.ins_srtdeel_key,
+          isc.ins_srtcontrole_key,
+          isc.ins_srtcontrole_omschrijving,
+          isc.ins_srtcontrole_mode,
+          isc.ins_srtcontrole_eenheid,
+          isc.ins_srtcontrole_periode,
+          isc.ins_srtcontrole_bits,
+          isc.ins_srtcontrole_kosten,
+          isc.ins_srtcontrole_kosten2,
+          isc.ins_srtcontrole_kosten3,
+          isc.ins_srtcontrole_uren,
+          isc.ins_srtcontrole_materiaal,
+          isc.ins_srtcontrole_percentage,
+          isc.ins_srtcontrole_eind,
+          isc.ins_srtcontrole_groep,
+          isc.ins_srtcontrole_opmerking,
+          isc.ins_srtcontrole_info,
+          isc.ins_srtcontrole_level,
+          isc.ins_srtcontrole_afbouwtijd,
+          isc.ins_srtcontrole_options,
+          isc.fin_btwtabelwaarde_key,
+          isc.ctr_discipline_key,
+          cdp.ctr_disc_params_controle_type,
+          cdp.ctr_disc_params_ismjob
+     FROM ins_deel id,
+          ins_srtdeel s,
+          ins_srtcontrole isc,
+          ctr_disc_params cdp
+    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 isc.ctr_discipline_key = cdp.ctr_ins_discipline_key;
+
+CREATE_VIEW(ins_v_defined_inspect_xcp, 0)
+(
+   ins_deel_key,
+   ins_deel_aanmaak,
+   ins_deel_aantal,
+   ins_alg_locatie_key,
+   ins_discipline_key,
+   ins_srtgroep_key,
+   ins_srtdeel_key,
+   ins_srtcontrole_key,
+   ins_srtcontrole_omschrijving,
+   ins_srtcontrole_mode,
+   ins_srtcontrole_eenheid,
+   ins_srtcontrole_periode,
+   ins_srtcontrole_bits,
+   ins_srtcontrole_kosten,
+   ins_srtcontrole_kosten2,
+   ins_srtcontrole_kosten3,
+   ins_srtcontrole_uren,
+   ins_srtcontrole_materiaal,
+   ins_srtcontrole_percentage,
+   ins_srtcontrole_eind,
+   ins_srtcontrole_groep,
+   ins_srtcontrole_opmerking,
+   ins_srtcontrole_info,
+   ins_srtcontrole_level,
+   ins_srtcontrole_afbouwtijd,
+   ins_srtcontrole_options,
+   fin_btwtabelwaarde_key,
+   ins_srtcontroledl_xcp_key,
+   ins_srtcontroledl_xcp_kosten,
+   ins_srtcontroledl_xcp_kosten2,
+   ins_srtcontroledl_xcp_kosten3,
+   ins_srtcontroledl_xcp_uren,
+   ins_srtcontroledl_xcp_materia,
+   ins_srtcontroledl_xcp_perc,
+   ins_srtcontroledl_xcp_startdat,
+   ins_srtcontroledl_xcp_eind,
+   ins_scenario_key,
+   ctr_discipline_key,
+   ctr_controle_type,
+   ctr_ismjob
+)
+AS
+   SELECT di.ins_deel_key,
+          di.ins_deel_aanmaak,
+          di.ins_deel_aantal,
+          di.ins_alg_locatie_key,
+          di.ins_discipline_key,
+          di.ins_srtgroep_key,
+          di.ins_srtdeel_key,
+          di.ins_srtcontrole_key,
+          di.ins_srtcontrole_omschrijving,
+          di.ins_srtcontrole_mode,
+          COALESCE (ins_srtcontroledl_xcp_eenheid,
+                    di.ins_srtcontrole_eenheid),
+          COALESCE (ins_srtcontroledl_xcp_periode,
+                    di.ins_srtcontrole_periode),
+          COALESCE (ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+          COALESCE (ins_srtcontroledl_xcp_kosten, di.ins_srtcontrole_kosten),
+          COALESCE (ins_srtcontroledl_xcp_kosten2, di.ins_srtcontrole_kosten2),
+          COALESCE (ins_srtcontroledl_xcp_kosten3, di.ins_srtcontrole_kosten3),
+          COALESCE (ins_srtcontroledl_xcp_uren, di.ins_srtcontrole_uren),
+          COALESCE (ins_srtcontroledl_xcp_materia, di.ins_srtcontrole_materiaal),
+          COALESCE (ins_srtcontroledl_xcp_perc, di.ins_srtcontrole_percentage),
+          COALESCE (ins_srtcontroledl_xcp_eind, di.ins_srtcontrole_eind),
+          COALESCE (ins_srtcontroledl_xcp_groep, di.ins_srtcontrole_groep),
+          COALESCE (ins_srtcontroledl_xcp_opmerk, di.ins_srtcontrole_opmerking),
+          di.ins_srtcontrole_info,
+          ins_srtcontrole_level,
+          ins_srtcontrole_afbouwtijd,
+          ins_srtcontrole_options,
+          fin_btwtabelwaarde_key,
+          ins_srtcontroledl_xcp_key,
+          ins_srtcontroledl_xcp_kosten,
+          ins_srtcontroledl_xcp_kosten2,
+          ins_srtcontroledl_xcp_kosten3,
+          ins_srtcontroledl_xcp_uren,
+          ins_srtcontroledl_xcp_materia,
+          ins_srtcontroledl_xcp_perc,
+          ins_srtcontroledl_xcp_startdat,
+          ins_srtcontroledl_xcp_eind,
+          ins_scenario_key,
+          di.ctr_discipline_key,
+          di.ctr_controle_type,
+          di.ctr_ismjob
+     FROM ins_v_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(+);
+
 CREATE_VIEW(ins_v_api_delen, 1)
 AS
     SELECT d.ins_deel_key key,
@@ -1463,5 +1736,434 @@ AS
            AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 99) > SYSDATE
            AND d.ins_deel_verwijder IS NULL;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* Let op: kolomwijzigingen ook in de vervolgview(s) verwerken */
+CREATE_VIEW(ins_v_udr_deel, 1)
+(
+   deel_key,
+   discipline,
+   soort,
+   groep,
+   soortcode,
+   omschrijving,
+   plaatseigenaar,
+   plaatseigenaartype,
+   plaatsaanduiding,
+   eigenaar,
+   opmerking,
+   regio,
+   district,
+   locatie_code,
+   locatie_omschrijving,
+   locatie_plaats,
+   gebouwcode,
+   gebouw,
+   terreinsectorcode,
+   terreinsector,
+   verdiepingcode,
+   ruimtenr,
+   werkplekvolgnr,
+   werkplek,
+   uitleenbaar,
+   uitgeleend,
+   res_opmerking,
+   beheerder,
+   vervaldatum,
+   actief,
+   aantal,
+   state,
+   statedate,
+   fclt_3d_discipline_key,
+   fclt_3d_afdeling_key,
+   fclt_3d_locatie_key
+)
+AS
+   SELECT ii.ins_deel_key,
+          lcl.x ('ins_discipline_omschrijving',
+                 id.ins_discipline_key,
+                 id.ins_discipline_omschrijving),
+          lcl.x ('ins_srtdeel_omschrijving', s.ins_srtdeel_key, s.ins_srtdeel_omschrijving),
+          lcl.x ('ins_srtgroep_omschrijving', sg.ins_srtgroep_key, sg.ins_srtgroep_omschrijving),
+          s.ins_srtdeel_code,
+          ii.ins_deel_omschrijving,
+          COALESCE (ii.plaats, ii.eigenaar),
+          ii.ins_alg_ruimte_type,
+          ii.plaats,
+          ii.eigenaar,
+          ii.ins_deel_opmerking,
+          ii.regio,
+          ii.district,
+          ii.locatie_code,
+          ii.locatie_omschrijving,
+          ii.locatie_plaats,
+          ii.alg_gebouw_code,
+          ii.alg_gebouw_omschrijving,
+          ii.alg_terreinsector_code,
+          ii.alg_terreinsector_omschrijving,
+          ii.alg_verdieping_code,
+          ii.alg_ruimte_nr,
+          ii.prs_werkplek_volgnr,
+          ii.prs_werkplek_omschrijving,
+          DECODE (s.ins_srtdeel_uitleenbaar, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          DECODE (ii.ins_alg_ruimte_key_org, NULL, lcl.l ('lcl_no'), lcl.l ('lcl_yes')),
+          ii.res_deel_opmerking,
+          pf.prs_perslid_naam_full,
+          ii.ins_deel_vervaldatum,
+          DECODE (ii.ins_deel_actief, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          ii.ins_deel_aantal,
+          ii.ins_deel_state,
+          ii.ins_deel_statedate,
+          sg.ins_discipline_key,
+          ii.ins_alg_ruimte_key,
+          ii.alg_locatie_key
+     FROM (SELECT i.ins_deel_key,
+                  i.ins_deel_omschrijving,
+                  i.ins_srtdeel_key,
+                  i.prs_perslid_key_beh,
+                  TO_CHAR (NULL) plaats,
+                  i.ins_deel_opmerking,
+                  i.ins_alg_ruimte_type,
+                  NULL regio,
+                  NULL district,
+                  NULL locatie_code,
+                  NULL locatie_omschrijving,
+                  NULL locatie_plaats,
+                  NULL alg_gebouw_code,
+                  NULL alg_gebouw_omschrijving,
+                  NULL alg_terreinsector_code,
+                  NULL alg_terreinsector_omschrijving,
+                  NULL alg_verdieping_code,
+                  NULL alg_ruimte_nr,
+                  NULL prs_werkplek_volgnr,
+                  NULL prs_werkplek_omschrijving,
+                  rd.res_deel_opmerking,
+                  i.ins_deel_vervaldatum,
+                  (SELECT d.prs_afdeling_omschrijving
+                     FROM prs_v_afdeling d
+                    WHERE prs_afdeling_key = i.ins_alg_ruimte_key)
+                     eigenaar,
+                  i.ins_discipline_key,
+                  i.ins_alg_ruimte_key,
+                  NULL alg_locatie_key,
+                  i.ins_deel_actief,
+                  i.ins_deel_aantal,
+                  i.ins_alg_ruimte_key_org,
+                  i.ins_deel_state,
+                  i.ins_deel_statedate
+             FROM ins_deel i,
+                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                     FROM res_deel
+                    WHERE res_deel_verwijder IS NULL) rd,
+                  prs_v_afdeling_boom d,
+                  prs_bedrijf b
+            WHERE     i.ins_deel_verwijder IS NULL
+                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                  AND i.ins_deel_module = 'INS'
+                  AND i.ins_deel_parent_key IS NULL
+                  AND i.ins_alg_ruimte_key = d.prs_afdeling_key
+                  AND i.ins_alg_ruimte_type = 'A'
+           UNION
+           SELECT i.ins_deel_key,
+                  i.ins_deel_omschrijving,
+                  i.ins_srtdeel_key,
+                  i.prs_perslid_key_beh,
+                  TO_CHAR (NULL) plaats,
+                  i.ins_deel_opmerking,
+                  i.ins_alg_ruimte_type,
+                  NULL regio,
+                  NULL district,
+                  NULL locatie_code,
+                  NULL locatie_omschrijving,
+                  NULL locatie_plaats,
+                  NULL alg_gebouw_code,
+                  NULL alg_gebouw_omschrijving,
+                  NULL alg_terreinsector_code,
+                  NULL alg_terreinsector_omschrijving,
+                  NULL alg_verdieping_code,
+                  NULL alg_ruimte_nr,
+                  NULL prs_werkplek_volgnr,
+                  NULL prs_werkplek_omschrijving,
+                  rd.res_deel_opmerking,
+                  i.ins_deel_vervaldatum,
+                  pf.prs_perslid_naam_full eigenaar,
+                  i.ins_discipline_key,
+                  p.prs_afdeling_key,
+                  NULL alg_locatie_key,
+                  i.ins_deel_actief,
+                  i.ins_deel_aantal,
+                  i.ins_alg_ruimte_key_org,
+                  i.ins_deel_state,
+                  i.ins_deel_statedate
+             FROM ins_deel i,
+                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                     FROM res_deel
+                    WHERE res_deel_verwijder IS NULL) rd,
+                  prs_perslid p,
+                  prs_v_perslid_fullnames_all pf,
+                  prs_v_afdeling_boom d
+            WHERE     i.ins_deel_verwijder IS NULL
+                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                  AND i.ins_deel_module = 'INS'
+                  AND i.ins_deel_parent_key IS NULL
+                  AND i.ins_alg_ruimte_key = p.prs_perslid_key
+                  AND p.prs_perslid_key = pf.prs_perslid_key
+                  AND p.prs_afdeling_key = d.prs_afdeling_key
+                  AND i.ins_alg_ruimte_type = 'P'
+           UNION
+           SELECT i.ins_deel_key,
+                  i.ins_deel_omschrijving,
+                  i.ins_srtdeel_key,
+                  i.prs_perslid_key_beh,
+                  TO_CHAR (NULL) plaats,
+                  i.ins_deel_opmerking,
+                  i.ins_alg_ruimte_type,
+                  NULL regio,
+                  NULL district,
+                  NULL locatie_code,
+                  NULL locatie_omschrijving,
+                  NULL locatie_plaats,
+                  NULL alg_gebouw_code,
+                  NULL alg_gebouw_omschrijving,
+                  NULL alg_terreinsector_code,
+                  NULL alg_terreinsector_omschrijving,
+                  NULL alg_verdieping_code,
+                  NULL alg_ruimte_nr,
+                  NULL prs_werkplek_volgnr,
+                  NULL prs_werkplek_omschrijving,
+                  rd.res_deel_opmerking,
+                  i.ins_deel_vervaldatum,
+                  c.prs_contactpersoon_naam eigenaar,
+                  NULL discipline_key,
+                  NULL,
+                  NULL alg_locatie_key,
+                  i.ins_deel_actief,
+                  i.ins_deel_aantal,
+                  i.ins_alg_ruimte_key_org,
+                  i.ins_deel_state,
+                  i.ins_deel_statedate
+             FROM ins_deel i,
+                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                     FROM res_deel
+                    WHERE res_deel_verwijder IS NULL) rd,
+                  prs_contactpersoon c
+            WHERE     i.ins_deel_verwijder IS NULL
+                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                  AND i.ins_deel_module = 'INS'
+                  AND i.ins_deel_parent_key IS NULL
+                  AND i.ins_alg_ruimte_key = c.prs_contactpersoon_key
+                  AND i.ins_alg_ruimte_type = 'C'
+           UNION
+           SELECT i.ins_deel_key,
+                  i.ins_deel_omschrijving,
+                  i.ins_srtdeel_key,
+                  i.prs_perslid_key_beh,
+                  o.alg_plaatsaanduiding,
+                  i.ins_deel_opmerking,
+                  i.ins_alg_ruimte_type,
+                  re.alg_regio_omschrijving,
+                  di.alg_district_omschrijving,
+                  l.alg_locatie_code locatie_code,
+                  l.alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_plaats locatie_plaats,
+                  o.alg_gebouw_code,
+                  o.alg_gebouw_omschrijving,
+                  o.alg_terreinsector_code,
+                  o.alg_terreinsector_omschrijving,
+                  o.alg_verdieping_code,
+                  o.alg_ruimte_nr,
+                  o.prs_werkplek_volgnr,
+                  o.prs_werkplek_omschrijving,
+                  rd.res_deel_opmerking,
+                  i.ins_deel_vervaldatum,
+                  NULL eigenaar,
+                  i.ins_discipline_key,
+                  NULL,
+                  l.alg_locatie_key,
+                  i.ins_deel_actief,
+                  i.ins_deel_aantal,
+                  i.ins_alg_ruimte_key_org,
+                  i.ins_deel_state,
+                  i.ins_deel_statedate
+             FROM ins_deel i,
+                  ins_v_alg_overzicht o,
+                  alg_locatie l,
+                  alg_district di,
+                  alg_regio re,
+                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                     FROM res_deel
+                    WHERE res_deel_verwijder IS NULL) rd
+            WHERE     i.ins_deel_verwijder IS NULL
+                  AND i.ins_deel_module = 'INS'
+                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                  AND i.ins_deel_parent_key IS NULL
+                  AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
+                  AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
+                  AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
+                  AND o.alg_locatie_key = i.ins_alg_locatie_key
+                  AND i.ins_alg_locatie_key = l.alg_locatie_key
+                  AND l.alg_district_key = di.alg_district_key
+                  AND di.alg_regio_key = re.alg_regio_key) ii,
+          ins_srtdeel s,
+          ins_srtgroep sg,
+          ins_discipline id,
+          prs_v_perslid_fullnames pf
+    WHERE     sg.ins_srtgroep_key = s.ins_srtgroep_key
+          AND id.ins_discipline_key = sg.ins_discipline_key
+          AND ii.prs_perslid_key_beh = pf.prs_perslid_key(+)
+          AND s.ins_srtdeel_key = ii.ins_srtdeel_key;
+
+CREATE_VIEW(ins_v_udr_deelmelding, 1)
+AS
+SELECT
+   d.deel_key,
+   d.discipline,
+   d.soort,
+   d.groep,
+   d.soortcode,
+   d.omschrijving,
+   d.plaatseigenaar,
+   d.plaatseigenaartype,
+   d.plaatsaanduiding,
+   d.eigenaar,
+   d.opmerking,
+   d.regio,
+   d.district,
+   d.locatie_code,
+   d.locatie_omschrijving,
+   d.locatie_plaats,
+   d.gebouwcode,
+   d.gebouw,
+   d.terreinsectorcode,
+   d.terreinsector,
+   d.verdiepingcode,
+   d.ruimtenr,
+   d.werkplekvolgnr,
+   d.werkplek,
+   d.uitleenbaar,
+   d.uitgeleend,
+   d.res_opmerking,
+   d.beheerder,
+   d.vervaldatum,
+   d.actief,
+   d.aantal,
+   d.state,
+   d.statedate,
+   d.fclt_3d_discipline_key,
+   d.fclt_3d_afdeling_key,
+   d.fclt_3d_locatie_key,
+   m.melding_key,
+   m.meldingnummer,
+   m.melding_district,
+   m.melding_locatiecode,
+   m.melding_locatie,
+   m.melding_locatieplaats,
+   --m.fclt_3d_locatie_key,
+   m.melding_gebouwcode,
+   m.melding_gebouw,
+   m.melding_verdieping,
+   m.melding_ruimtenr,
+   m.melding_ruimte,
+   m.melding_ordernr,
+   m.kostensoortgroep,
+   m.kostensoort,
+   m.kostenplaats,
+   m.kostenplaats_oms,
+   m.melder,
+   m.melder_key,
+   m.afdeling,
+   m.afdeling_omschrijving,
+   --m.fclt_3d_afdeling_key,
+   m.bedrijf_key,
+   m.invoerder,
+   m.meldbron,
+   m.soortmelding,
+   --m.fclt_3d_discipline_key,
+   m.productgroep,
+   m.subproductgroep,
+   m.behandelgroep,
+   m.behandelaar,
+   m.behandelaar_key,
+   m.subproductgroepgroep,
+   m.melding_status,
+   m.sla_nvt,
+   m.sla_werkdgn,
+   m.sla_werkuren,
+   m.sla_respijtdgn,
+   m.sla_respijturen,
+   m.sla_accptdgn,
+   m.sla_accpturen,
+   m.plan_uitvoertijd_sla,
+   m.melding_datum,
+   m.melding_einddatum,
+   m.melding_acceptdatum,
+   m.melding_afgemeld,
+   m.melding_accepted,
+   m.doorlooptijd_werkdgn,
+   m.doorlooptijd_werkuren,
+   m.onderwerp,
+   m.vomschrijving,
+   m.melding_opmerking,
+   m.prioriteit,
+   m.prioriteittxt,
+   m.rating,
+   m.rating_opmerking,
+   m.bolletje,
+   m.accept_sla_dagen,
+   m.accept_sla_uren,
+   m.uitvoering_sla_dagen,
+   m.uitvoering_sla_uren,
+   m.afspraak_sla_dagen,
+   m.afspraak_sla_uren,
+   m.accept_sla_optijd,
+   m.uitvoering_sla_optijd,
+   m.afspraak_sla_optijd,
+   m.selfservice
+FROM ins_v_udr_deel d, mld_v_udr_melding m, mld_melding_object mo
+WHERE mo.mld_melding_key = m.melding_key
+  AND mo.ins_deel_key = d.deel_key;
+
+CREATE_VIEW(ins_v_udr_deelkenmerk_cnd, 1)
+AS
+   SELECT m.*,
+       lcl.x ('skm.ins_srtkenmerk_omschrijving',
+              skm.ins_srtkenmerk_key,
+              ins_srtkenmerk_omschrijving)
+          kenmerk,
+       CASE
+          WHEN skm.ins_srtkenmerk_kenmerktype = 'R' OR skm.ins_srtkenmerk_kenmerktype = 'S'
+          THEN
+             fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.ins_kenmerkdeel_waarde)
+          WHEN skm.ins_srtkenmerk_kenmerktype = 'C' OR skm.ins_srtkenmerk_kenmerktype = 'F'
+          THEN
+             km.ins_kenmerkdeel_waarde
+          ELSE
+             NULL
+       END
+          waarde_c,
+       CASE
+          WHEN skm.ins_srtkenmerk_kenmerktype = 'N' OR skm.ins_srtkenmerk_kenmerktype = 'B'
+          THEN TO_NUMBER (km.ins_kenmerkdeel_waarde)
+          ELSE TO_NUMBER (NULL)
+       END
+          waarde_n,
+       CASE
+          WHEN skm.ins_srtkenmerk_kenmerktype = 'D'
+          THEN
+             TO_DATE (km.ins_kenmerkdeel_waarde, 'DD-MM-YYYY')
+          ELSE
+             TO_DATE (NULL)
+       END
+          waarde_d
+  FROM ins_v_udr_deel M,
+       ins_kenmerkdeel km,
+       ins_kenmerk K,
+       ins_srtkenmerk skm
+ WHERE     km.ins_deel_key = m.deel_key
+       AND km.ins_kenmerkdeel_verwijder IS NULL
+       AND k.ins_kenmerk_verwijder IS NULL
+       AND skm.ins_srtkenmerk_verwijder IS NULL
+       AND km.ins_kenmerk_key = k.ins_kenmerk_key(+)
+       AND k.ins_srtkenmerk_key = skm.ins_srtkenmerk_key(+);
+
 REGISTERRUN('$Id$')
 #endif  // INS

KPI/KPI_IND.SRC

@@ -0,0 +1,9 @@
+#ifdef KPI
+
+/*  $Revision$
+ *  $Id$
+ */
+
+REGISTERONCE('$Id$')
+
+#endif // KPI

KPI/KPI_INI.SRC

@@ -0,0 +1,229 @@
+#ifdef KPI
+
+/*  $Revision$
+ *  $Id$
+ */
+/* TODO lcl */
+
+_FAC_MODULE('KPI','lcl_module_KPI')
+
+----- 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 '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_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 '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 '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_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 '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 '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_KPIRAP';
+
+SET SQLBLANKLINES ON
+
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{ title: "",
+   seriesDefaults: {
+      rendererOptions: {
+         background: "white",
+         ringColor: "#444",
+         needleThickness: 7,
+         hubRadius: 7,
+         intervalInnerRadius: 25,
+         intervalOuterRadius: 50,
+         shadowDepth: 0,
+         intervalColors: [ "#CC0000", "#EE9900", "#77BB00" ]
+      }
+   }
+}'
+WHERE fac_usrgraph_omschrijving = 'Total';
+
+-- onderdeel
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   stackSeries: false,
+   seriesDefaults:{
+      pointLabels: {
+         show: true,
+         edgeTolerance: -100,
+         ypadding: 0
+      }
+   },
+   series: [ {
+      renderer: $.jqplot.BarRenderer,
+      rendererOptions: {
+         barWidth: 50,
+         varyBarColor: true,
+         shadow: false
+      }
+   } ],
+   axes: {
+      yaxis: {
+         min: 0,
+         max: 100,
+         ticks: [0, 20, 40, 60, 80, 100],
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: {drawBaseline: false}
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+         }
+      },
+      {
+         horizontalLine: {
+            name: "n090",
+            y: 90,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(85, 238, 0, 0.5)",
+            shadow: false
+         }
+      } ]
+   },
+   axesStyles: {
+           borderWidth: 0,
+           ticks: {
+               fontSize: "20pt",
+               fontFamily: "Tahoma",
+               textColor: "black"
+           },
+           label: {
+               fontFamily: "Tahoma",
+               textColor: "black"
+           }
+        },
+   grid: {
+            backgroundColor: "white",
+            borderWidth: 0,
+            gridLineColor: "#eee",
+            gridLineWidth: 1,
+            borderColor: "white",
+            shadow: false
+        }
+}'
+WHERE fac_usrgraph_omschrijving = 'Category';
+
+-- trend
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   seriesDefaults: {
+      showMarker: false,
+      pointLabels: {
+         show: true
+      }
+   },
+   series: [ {
+      color: "#55acda",
+      shadow: true
+   } ],
+   axes: {
+      yaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: { drawBaseline: false }
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   axesStyles: {
+      borderWidth: 0,
+      ticks: {
+         fontSize: "20pt",
+         fontFamily: "Tahoma",
+         textColor: "black"
+      },
+      label: {
+         fontFamily: "Tahoma",
+         textColor: "black"
+      }
+   },
+   grid: {
+      backgroundColor: "white",
+      borderWidth: 0,
+      gridLineColor: "#eee",
+      gridLineWidth: 1,
+      borderColor: "white",
+      shadow: false
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 2,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+          }
+       },
+       {
+          horizontalLine: {
+             name: "n090",
+             y: 90,
+             lineWidth: 2,
+             lineCap: "square",
+             color: "rgba(85, 238, 0, 0.5)",
+             shadow: false
+          }
+       } ]
+    }
+}'
+WHERE fac_usrgraph_omschrijving = 'Trend';
+
+SET SQLBLANKLINES OFF
+
+
+REGISTERONCE('$Id$')
+
+#endif // KPI

KPI/KPI_PAC.SRC

@@ -0,0 +1,125 @@
+#ifdef KPI
+/*  $Revision$
+ *  $Id$
+ */
+
+-- Hulpfuncties voor berekenen normscores en bijbehorende kleuren in de grafiek
+CREATE OR REPLACE PACKAGE kpi
+AS
+   -- Gegeven berekende score en normdrempels, bereken normscore
+   FUNCTION getNormScore(pScore           IN NUMBER,
+                         p000             IN NUMBER,
+                         p070             IN NUMBER,
+                         p090             IN NUMBER,
+                         p100             IN NUMBER)
+      RETURN NUMBER;
+   -- Gegeven berekende score en normdrempels, bepaal kleur van grafiek (rood, oranje, groen)
+   FUNCTION getKleur(pScore               IN NUMBER,
+                     p000                 IN NUMBER,
+                     p070                 IN NUMBER,
+                     p090                 IN NUMBER,
+                     p100                 IN NUMBER)
+      RETURN VARCHAR2;
+   -- Gegeven normscore, bepaal kleur van grafiek (rood, oranje, groen)
+   FUNCTION getKleurNorm(pNormScore       IN NUMBER)
+      RETURN VARCHAR2;
+END kpi;
+/
+
+CREATE OR REPLACE PACKAGE BODY kpi
+AS
+
+   FUNCTION getNormScore(pScore           IN NUMBER,
+                         p000             IN NUMBER,
+                         p070             IN NUMBER,
+                         p090             IN NUMBER,
+                         p100             IN NUMBER)
+      RETURN NUMBER
+   IS
+      v_normScore NUMBER;
+   BEGIN
+      IF (p100 < p090)
+      THEN
+         v_normScore := CASE
+                           WHEN pScore < p100
+                              THEN 100
+                           WHEN pScore < p090
+                              THEN  90 + (100-90) * (p090 - pScore) / (p090-p100)
+                           WHEN pScore < p070
+                              THEN  70 + ( 90-70) * (p070 - pScore) / (p070-p090)
+                           WHEN pScore < p000
+                              THEN       ( 70- 0) * (p000 - pScore) / (p000-p070)
+                           ELSE
+                                     0
+                        END;
+      ELSE
+         v_normScore := CASE
+                           WHEN pScore > p100
+                              THEN 100
+                           WHEN pScore > p090
+                              THEN  90 + (100-90) * (pScore - p090) / (p100-p090)
+                           WHEN pScore > p070
+                              THEN  70 + ( 90-70) * (pScore - p070) / (p090-p070)
+                           WHEN pScore > p000
+                              THEN       ( 70- 0) * (pScore - p000) / (p070-p000)
+                           ELSE
+                                     0
+                        END;
+      END IF;
+
+      RETURN v_normScore;
+   END getNormScore;
+
+   -- Gegeven berekende score en normdrempels, bepaal kleur van grafiek (rood, oranje, groen)
+   FUNCTION getKleur(pScore               IN NUMBER,
+                     p000                 IN NUMBER,
+                     p070                 IN NUMBER,
+                     p090                 IN NUMBER,
+                     p100                 IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      v_kleur        VARCHAR2(7);
+   BEGIN
+      v_kleur :=  CASE
+                     WHEN pScore < p100
+                        THEN '#55EE00'
+                     WHEN pScore < p090
+                        THEN '#77BB00'
+                     WHEN pScore < p070
+                        THEN '#EE9900'
+                     WHEN pScore < p000
+                        THEN '#CC0000'
+                     ELSE
+                             '#000000'
+                  END;
+      RETURN v_kleur;
+   END getKleur;
+
+   -- Gegeven normscore, bepaal kleur van grafiek (rood, oranje, groen)
+   FUNCTION getKleurNorm(pNormScore       IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      v_kleur        VARCHAR2(7);
+   BEGIN
+      v_kleur :=  CASE
+                     WHEN pNormScore > 100
+                        THEN '#55EE00'
+                     WHEN pNormScore >  90
+                        THEN '#77BB00'
+                     WHEN pNormScore >  70
+                        THEN '#EE9900'
+                     WHEN pNormScore >   0
+                        THEN '#CC0000'
+                     ELSE
+                             '#000000'
+                  END;
+      RETURN v_kleur;
+   END getKleurNorm;
+
+END kpi;
+/
+
+
+REGISTERRUN('$Id$')
+
+#endif // KPI

KPI/KPI_SEQ.SRC

@@ -0,0 +1,11 @@
+#ifdef  KPI
+/*  $Revision$
+ *  $Id$
+ */
+
+CREATE SEQUENCE kpi_s_kpi_definitie_key   MINVALUE 1;
+CREATE SEQUENCE kpi_s_kpi_score_key   MINVALUE 1;
+
+REGISTERONCE('$Id$')
+
+#endif  // KPI

KPI/KPI_TAB.SRC

@@ -0,0 +1,34 @@
+#ifdef  KPI
+/*  $Revision$
+ *  $Id$
+ */
+
+CREATE_TABLE(kpi_definitie, 0)
+(
+    kpi_definitie_key           NUMBER(10) PRIMARY KEY,
+    kpi_definitie_code          VARCHAR2(15), -- verkorte aanduiding KPI
+    kpi_definitie_omschrijving  VARCHAR2(60), -- aanduiding KPI
+    kpi_definitie_info          VARCHAR2(4000), -- uitleg
+    kpi_definitie_categorie1    VARCHAR2(50), -- proces van KPI
+    kpi_definitie_categorie2    VARCHAR2(50), -- onderdeel van KPI
+    kpi_definitie_categorie3    VARCHAR2(50), -- alternate groepering van KPI (future use)
+    kpi_definitie_drempels      VARCHAR2(20), -- actuele drempelwaarde
+    fac_functie_key             NUMBER(10)    -- autorisatie
+);
+
+CREATE_TABLE(kpi_score, 0)
+(
+   kpi_score_key                NUMBER(10) PRIMARY KEY,
+   kpi_definitie_key            NUMBER(10) CONSTRAINT kpi_r_kpi_definitie1 REFERENCES kpi_definitie(kpi_definitie_key),
+   kpi_score_datum              DATE,         -- peildatum waarover KPI gaat
+   alg_locatie_key              NUMBER(10) CONSTRAINT kpi_r_alg_locatie1 REFERENCES alg_locatie(alg_locatie_key),
+   kpi_score_xmlnode            VARCHAR2(60), -- type van waarover deze KPI gaat
+   kpi_score_refkey             NUMBER(10),   -- key van de bijbehorende entiteit van type xmlnode
+   kpi_score_score              NUMBER(9,4),  -- behaalde score voor KPI+periode+loc
+   kpi_score_norm_score         VARCHAR2(20), -- behaalde genormeerde score
+   kpi_score_drempels           VARCHAR2(20)  -- drempelwaardes voor KPI in deze periode, pipeseparated
+);
+
+
+REGISTERONCE('$Id$')
+#endif // KPI

KPI/KPI_TRI.SRC

@@ -0,0 +1,25 @@
+#ifdef  KPI
+/*  $Revision$
+ *  $Id$
+ */
+
+CREATE_TRIGGER(kpi_t_kpi_definitie_b_i)
+BEFORE INSERT ON kpi_definitie
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(kpi_definitie_key, kpi_s_kpi_definitie_key);
+END;
+/
+
+CREATE_TRIGGER(kpi_t_kpi_score_b_i)
+BEFORE INSERT ON kpi_score
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(kpi_score_key, kpi_s_kpi_score_key);
+END;
+/
+
+
+REGISTERRUN('$Id$')
+
+#endif  // KPI

KPI/KPI_VIE.SRC

@@ -0,0 +1,452 @@
+#ifdef KPI
+/*  $Revision$
+ *  $Id$
+ */
+-- categorie1 = proces
+-- categorie2 = onderdeel
+-- categorie3: future use
+
+/*
+    TODO: lcl_all
+*/
+
+
+CREATE_VIEW(kpi_v_kpi_scores, 0)
+(
+   kpi_score_datum,
+   locatie,
+   alg_locatie_key,
+   kpi_definitie_categorie1,
+   kpi_definitie_categorie2,
+   kpi_code,
+   kpi_omschrijving,
+   kpi_definitie_info,
+   mld_melding_key,
+   score,
+   norm_drempels,
+   norm_scores
+)
+AS
+   SELECT s.kpi_score_datum,
+          l.alg_locatie_code,
+          l.alg_locatie_key,
+          d.kpi_definitie_categorie1,
+          d.kpi_definitie_categorie2,
+          d.kpi_definitie_code,
+          d.kpi_definitie_omschrijving,
+          d.kpi_definitie_info,
+          s.kpi_score_refkey,
+          s.kpi_score_score,
+          s.kpi_score_drempels,
+          s.kpi_score_norm_score
+     FROM kpi_definitie d, kpi_score s, alg_locatie l
+    WHERE     d.kpi_definitie_key = s.kpi_definitie_key
+          AND kpi_score_xmlnode = 'melding'
+          AND s.alg_locatie_key = l.alg_locatie_key;
+
+----- Views voor grafieken -----------------------------------------------------
+
+
+-- Totaalscore op een periode, over alle processen en onderdelen.
+CREATE_VIEW(kpi_v_graph_tot_tot, 0)
+AS
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_score_datum
+    UNION ALL
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_score_datum,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Trend van laatste 12 maanden over alle processen en onderdelen.
+CREATE_VIEW(kpi_v_graph_tot_trend, 0)
+AS
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG(ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX(kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key
+    UNION ALL
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG(ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX(kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Totalen op een periode per proces.
+CREATE_VIEW(kpi_v_graph_proc_tot, 0)
+AS
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1,
+          ks.kpi_score_datum
+    UNION ALL
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          TO_CHAR (ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie1 fclt_text2
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1,
+          ks.kpi_score_datum,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Score op een periode van Onderdelen, per proces.
+CREATE_VIEW(kpi_v_graph_proc_ond,0)
+AS
+   SELECT kpi_definitie_categorie2 fclt_xas_,
+          AVG(ks.score) fclt_yas_,
+          kpi.getKleurNorm(AVG(ks.score)) fclt_color,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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
+             fclt_url,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie1 fclt_text2,
+          ks.kpi_definitie_categorie2 fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_definitie_categorie1,
+          ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2
+    UNION ALL
+   SELECT kpi_definitie_categorie2 fclt_xas_,
+          AVG(ks.score) fclt_yas_,
+          kpi.getKleurNorm(AVG(ks.score)) fclt_color,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+            '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,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie1 fclt_text2,
+          ks.kpi_definitie_categorie2 fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_definitie_categorie1,
+          ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Trend, per proces.
+CREATE_VIEW(kpi_v_graph_proc_trend,0)
+AS
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG(ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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,
+          fac_v_my_locations ml
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX(kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1
+    UNION ALL
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG (ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          ks.kpi_definitie_categorie1 fclt_text2,
+          TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX (kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Totalen op een periode, per onderdeel.
+CREATE_VIEW(kpi_v_graph_ond_tot, 0)
+AS
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2,
+          ks.kpi_score_datum
+    UNION ALL
+   SELECT TO_CHAR(ROUND(AVG(ks.score), 1)) fclt_xas_,
+          100 fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie2 fclt_text2
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2,
+          ks.kpi_score_datum,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Score op een periode van Onderdelen, per proces.
+CREATE_VIEW(kpi_v_graph_ond_proc,0)
+AS
+   SELECT ks.kpi_definitie_categorie1 fclt_xas_,
+          AVG(ks.score) fclt_yas_,
+          kpi.getKleurNorm(AVG(ks.score)) fclt_color,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie2 fclt_text2,
+          ks.kpi_definitie_categorie1 fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_definitie_categorie2,
+          ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1
+    UNION ALL
+   SELECT ks.kpi_definitie_categorie1 fclt_xas_,
+          AVG(ks.score) fclt_yas_,
+          kpi.getKleurNorm(AVG(ks.score)) fclt_color,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+            '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,
+          TO_CHAR(ks.kpi_score_datum, 'yyyymm') fclt_text1,
+          ks.kpi_definitie_categorie2 fclt_text2,
+          kpi_definitie_categorie1 fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_definitie_categorie2,
+          ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie1,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- Trend, per kpi_definitie_categorie2.
+CREATE_VIEW(kpi_v_graph_ond_trend,0)
+AS
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG(ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          -1 fclt_key,
+          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,
+          fac_v_my_locations ml
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX(kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2
+    UNION ALL
+   SELECT TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_xas_,
+          ROUND(AVG(ks.score), 1) fclt_yas_,
+          ml.prs_perslid_key fclt_3d_user_key,
+          ml.alg_locatie_key fclt_key,
+          ks.locatie fclt_text0,
+          ks.kpi_definitie_categorie2 fclt_text2,
+          TO_CHAR(ks.kpi_score_datum, 'YYYY-MM') fclt_sort
+     FROM kpi_v_kpi_scores ks,
+          fac_v_my_locations ml
+    WHERE ks.kpi_score_datum > (SELECT ADD_MONTHS(MAX(kpi_score_datum), -12) FROM kpi_v_kpi_scores)
+      AND ml.alg_locatie_key = ks.alg_locatie_key
+ GROUP BY ks.kpi_score_datum,
+          ml.prs_perslid_key,
+          ks.kpi_definitie_categorie2,
+          ml.alg_locatie_key,
+          ks.locatie;
+
+-- 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,
+          lcl.l ('lcl_all') locatie,
+          -1 alg_locatie_key,
+          po.kpi_score_datum,
+          po.kpi_definitie_categorie1,
+          po.kpi_definitie_categorie2,
+          kpis.kpi_code,
+          kpis.kpi_omschrijving,
+          kpis.kpi_definitie_info kpi_uitleg,
+          kpis.score,
+          kpis.kleur,
+          po.score totaalscore,
+          po.kleur totaalkleur
+     FROM    (  SELECT ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       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
+          LEFT OUTER JOIN
+             (  SELECT ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       ROUND (AVG (ks.score), 1) score,
+                       kpi.getkleurnorm (AVG (ks.score)) kleur,
+                       ks.kpi_code,
+                       ks.kpi_omschrijving,
+                       ks.kpi_definitie_info
+                  FROM kpi_v_kpi_scores ks
+              GROUP BY ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       ks.kpi_code,
+                       ks.kpi_omschrijving,
+                       ks.kpi_definitie_info) kpis
+          ON     kpis.kpi_definitie_categorie1 = po.kpi_definitie_categorie1
+             AND kpis.kpi_definitie_categorie2 = po.kpi_definitie_categorie2
+             AND kpis.kpi_score_datum = po.kpi_score_datum
+   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,
+          kpis.kpi_code,
+          kpis.kpi_omschrijving,
+          kpis.kpi_definitie_info kpi_uitleg,
+          kpis.score,
+          kpis.kleur,
+          po.score totaalscore,
+          po.kleur totaalkleur
+     FROM    (  SELECT ks.alg_locatie_key,
+                       ks.locatie,
+                       ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       ROUND (AVG (ks.score), 1) score,
+                       kpi.getkleurnorm (AVG (ks.score)) kleur
+                  FROM kpi_v_kpi_scores ks
+              GROUP BY ks.alg_locatie_key,
+                       ks.locatie,
+                       ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2) po
+          LEFT OUTER JOIN
+             (  SELECT ks.alg_locatie_key,
+                       ks.locatie,
+                       ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       ROUND (AVG (ks.score), 1) score,
+                       kpi.getkleurnorm (AVG (ks.score)) kleur,
+                       ks.kpi_code,
+                       ks.kpi_omschrijving,
+                       ks.kpi_definitie_info
+                  FROM kpi_v_kpi_scores ks
+              GROUP BY ks.alg_locatie_key,
+                       ks.locatie,
+                       ks.kpi_score_datum,
+                       ks.kpi_definitie_categorie1,
+                       ks.kpi_definitie_categorie2,
+                       ks.kpi_code,
+                       ks.kpi_omschrijving,
+                       ks.kpi_definitie_info) kpis
+          ON     kpis.kpi_definitie_categorie1 = po.kpi_definitie_categorie1
+             AND kpis.kpi_definitie_categorie2 = po.kpi_definitie_categorie2
+             AND kpis.locatie = po.locatie
+             AND kpis.kpi_score_datum = po.kpi_score_datum;
+
+REGISTERRUN('$Id$')
+
+#endif // KPI

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

@@ -5,7 +5,7 @@
  */
 
 /* Installation of modules should fill or update this one */
-_FAC_MODULE('MLD','Servicedesk')
+_FAC_MODULE('MLD','lcl_module_MLD')
 
 INSERT INTO mld_typeopdr (mld_typeopdr_key, mld_typeopdr_omschrijving,
         mld_typeopdr_upper, mld_typeopdr_module)
@@ -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_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;
@@ -44,6 +44,7 @@ CREATE SEQUENCE mld_s_mld_opdr_uitvoeren_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_opdr_materiaal_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_afmeldtekst_key      MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmeldingfaq_key    MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdmsrtruimte_key    MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

MLD/MLD_TAB.SRC

@@ -57,8 +57,16 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_frontendprio
         NUMBER(1),
     mld_disc_params_bonotify
-        NUMBER(2)       -- valid are 0, 1 (and 2)
+        NUMBER(2)       -- BO notificatie accept 0=niet, 1=bof, 2=bo3, 3=bo3 (aanmaak nieuwe melding) en dan bof (accepteren melding)
         DEFAULT 0,
+    mld_disc_params_benotify
+        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,
@@ -90,7 +98,9 @@ CREATE_TABLE(mld_disc_params, 0)
         DEFAULT 1000000,
     mld_disc_params_bestellimiet5
         NUMBER(11,2)
-        DEFAULT 1000000
+        DEFAULT 1000000,
+    mld_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
+        NUMBER(1)
 );
 
 
@@ -208,6 +218,9 @@ CREATE_TABLE(mld_typeopdr,0)
     mld_typeopdr_typeopdr_key  /* de mld_typeopdr_key voor vervolgopdracht (indien dit een offerte was) */
         NUMBER(10)
         CONSTRAINT mld_r_typeopdr_key1 REFERENCES mld_typeopdr(mld_typeopdr_key),
+    mld_typeopdr_slamode
+        NUMBER(1)                                 -- 1: Leverancier-SLA, 2=Melding-SLA
+        DEFAULT 1 NOT NULL,
     mld_typeopdr_contract  /* of bij deze opdrachten een contract moet (3), kan (2) of niet kan (0) worden opgegeven */
         NUMBER(1)
         DEFAULT (2)
@@ -267,44 +280,20 @@ CREATE_TABLE(mld_stdmelding,0)
         NOT_NULL(mld_stdmelding_upper, mld_c_mld_stdmelding_upper),
     mld_stdmelding_hint
         VARCHAR2(1000),
-    mld_stdmelding_urgentie  /* !!! VERVALLEN !!! */
-        NUMBER(4,2)
-        CONSTRAINT mld_c_mld_srtmelding_urgentie CHECK(mld_stdmelding_urgentie >= 0),
     mld_stdmelding_t_accepttijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmelding_t_accept CHECK(mld_stdmelding_t_accepttijd.tijdsduur >= 0),
-    mld_stdmelding_uitvoertijd  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        DEFAULT 2
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd CHECK(mld_stdmelding_uitvoertijd >= 0)
-        NOT_NULL(mld_stdmelding_uitvoertijd, mld_c_stdmelding_uitvoertijd),
-    mld_stdmelding_uitvoertijd_pr1  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd1 CHECK(mld_stdmelding_uitvoertijd_pr1 >= 0),
-    mld_stdmelding_uitvoertijd_pr2  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd2 CHECK(mld_stdmelding_uitvoertijd_pr2 >= 0),
-    mld_stdmelding_uitvoertijd_pr4  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd4 CHECK(mld_stdmelding_uitvoertijd_pr4 >= 0),
     mld_stdmelding_t_uitvoertijd /* pr3*/
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(2, 1)
-        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0)
-        NOT_NULL(mld_stdmelding_t_uitvoertijd.tijdsduur, mld_c_stdmelding_t_uitvtijd)
-        NOT_NULL(mld_stdmelding_t_uitvoertijd.eenheid, mld_c_stdmelding_t_eenheid_uit),
+        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr1
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd1 CHECK(mld_stdmelding_t_uitvtijd_pr1.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr2
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd2 CHECK(mld_stdmelding_t_uitvtijd_pr2.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr4
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd4 CHECK(mld_stdmelding_t_uitvtijd_pr4.tijdsduur >= 0),
     mld_stdmelding_planbaar            -- 1: de einddatum van de melding is FE-aanpasbaar
         NUMBER(1),
@@ -368,7 +357,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)
@@ -394,8 +385,49 @@ CREATE_TABLE(mld_stdmelding,0)
     mld_stdmelding_kanverwijzen --0..127: 0: nee, +1: melding, +2: opdracht, +4: reservering, +8: bestelling, +16: bestelopdr, +32: contract, +64: factuur
         NUMBER(4)
         DEFAULT 0,
+    mld_stdmelding_subject  -- 0:geen onderwerp, 1:optionele onderwerp, 2:verplichte onderwerp
+        NUMBER(1)
+        DEFAULT 1
+        NOT_NULL(mld_stdmelding_subject, mld_c_mld_stdmelding_subject),
     CONSTRAINT mld_u_mld_stdmelding UNIQUE(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_verwijder)
 );
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(2, 1);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdmelding_t_uitvoertijd.tijdsduur, mld_c_stdmelding_t_uitvtijd);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdmelding_t_uitvoertijd.eenheid, mld_c_stdmelding_t_eenheid_uit);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+// Eventuele afwijkingen per srtruimte van SLA tijden.
+// Fungeert als COALESCE met alg_srtruimte.
+CREATE_TABLE(mld_stdmsrtruimte, 0)
+(
+    mld_stdmsrtruimte_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtruimte_key PRIMARY KEY,
+    alg_srtruimte_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtruimte_key3 REFERENCES alg_srtruimte(alg_srtruimte_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtruimte_key, alg_c_srtruimte_key2),
+    mld_stdmelding_key
+        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_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
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc CHECK(mld_stdmsrtruimte_t_accepttijd.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitvtijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
+        CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 -- Kruistabel tussen KB(faq) en standaardmeldingen
 CREATE_TABLE(mld_stdmeldingfaq, 0)
@@ -428,7 +460,7 @@ CREATE_TABLE(mld_adres, 0)
         VARCHAR2(60)
         NOT_NULL(mld_adres_upper, mld_c_mld_adres_upper),
     mld_adres_bezoek_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     mld_adres_bezoek_postcode
         VARCHAR2(12),
     mld_adres_bezoek_plaats
@@ -436,7 +468,7 @@ CREATE_TABLE(mld_adres, 0)
     mld_adres_bezoek_land
         VARCHAR2(30),
     mld_adres_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     mld_adres_gebouw_ruimte
         VARCHAR2(30),
     mld_adres_post_postcode
@@ -525,7 +557,11 @@ CREATE_TABLE(mld_workflowstep, 0)
       NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key2)
       CONSTRAINT mld_r_mld_stdmelding_key2 REFERENCES mld_stdmelding,
   mld_workflowstep_omschrijving
-      VARCHAR2(60)
+      VARCHAR2(60),
+  mld_workflowstep_jointype
+      NUMBER(2) -- 0 = AND, 1 = (X)OR, 2 = SYNC
+      DEFAULT 0
+      NOT_NULL(mld_workflowstep_jointype, mld_c_mld_wfstep_jointype)
 );
 
 
@@ -545,7 +581,9 @@ CREATE_TABLE(mld_workflowrule, 0)
    mld_workflowstep_next_key
       NUMBER(10)
       NOT_NULL(mld_workflowstep_next_key, mld_c_mld_workflowstep_key2)
-      CONSTRAINT mld_r_mld_workflowstep_key3 REFERENCES mld_workflowstep(mld_workflowstep_key) ON DELETE CASCADE
+      CONSTRAINT mld_r_mld_workflowstep_key3 REFERENCES mld_workflowstep(mld_workflowstep_key) ON DELETE CASCADE,
+   mld_workflowrule_condition
+      VARCHAR2(4000)  -- should evaluate to TRUE in order to be executed
 );
 
 CREATE_TABLE(mld_melding,0)
@@ -577,6 +615,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
@@ -588,25 +628,15 @@ CREATE_TABLE(mld_melding,0)
         NUMBER(10)
         NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key)
         CONSTRAINT mld_r_mld_stdmelding_key REFERENCES mld_stdmelding,
-    mld_melding_uitvoertijd  /* !!! VERVALLEN !!! */
-        NUMBER(8,5),
     mld_melding_t_uitvoertijd  -- freeze van stdmelding-uitvoertijd ten tijde van melden
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
         CONSTRAINT mld_c_mld_melding_t_uitvtijd CHECK (mld_melding_t_uitvoertijd.tijdsduur >= 0),
-    mld_melding_accepttijd  /* !!! VERVALLEN !!! */
-        NUMBER(4,2),
     mld_melding_t_accepttijd
-        MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
+        MLD_T_UITVOERTIJD,
     mld_melding_einddatum  -- geplande einddatum, trigger vult eventueel
         DATE,
-    mld_melding_respijt  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)  -- tijdsduur in uren die van de doorlooptijd afgetrokken wordt
-        DEFAULT 0,
     mld_melding_t_respijt
-        MLD_T_UITVOERTIJD  -- tijdsduur die van de doorlooptijd afgetrokken wordt
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
+        MLD_T_UITVOERTIJD,  -- tijdsduur die van de doorlooptijd afgetrokken wordt
     mld_melding_indult
         NUMBER(1)  -- individueel vrijgesteld van SLA-meting/beoordeling (1) of niet (0)
         DEFAULT 0
@@ -688,6 +718,9 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_locked_date
       DATE
 );
+ALTER TABLE mld_melding MODIFY mld_melding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_respijt DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 COMMENT ON COLUMN mld_workflowrule.mld_workflowrule_result IS '0 is failure/rejection, 1 is success';
 COMMENT ON COLUMN mld_melding.mld_workflowstep_key IS 'references the workflow step that this melding corresponds to';
@@ -876,7 +909,7 @@ CREATE_TABLE(mld_srtkenmerk, 0)
 ,  CONSTRAINT mld_c_mld_srtkenmerk_omschr    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_srtkenmerk_omschrijving    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_u_mld_srtkenmerk_upper    UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
-,  CONSTRAINT mld_c_mld_srtkenmerk_kenmtype  CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+,  CONSTRAINT mld_c_mld_srtkenmerk_kenmtype  CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
 ,  CONSTRAINT mld_c_mld_srtkenmerk_systeem   CHECK(mld_srtkenmerk_systeem IS NULL
                                                 OR mld_srtkenmerk_systeem = 1)
 ,  CONSTRAINT mld_c_mld_srtkenmerk_lengte    CHECK(mld_srtkenmerk_lengte >= 1
@@ -903,6 +936,7 @@ CREATE_TABLE(mld_kenmerk, 0)
       NUMBER(1)
 ,  mld_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  mld_kenmerk_toonbaar
       NUMBER(1)
 ,  mld_kenmerk_volgnummer
@@ -995,7 +1029,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
@@ -1085,6 +1119,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))
 );
 
@@ -1209,11 +1245,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))
 );
 
@@ -1231,6 +1288,12 @@ CREATE_TABLE(mld_afmeldtekst, 0)
     mld_stdmelding_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmelding_key3 REFERENCES mld_stdmelding (mld_stdmelding_key),
+    mld_ins_discipline_key
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
+    mld_afmeldtekst_usefor /* Bitwise 1=Afmeldtekst, 2=Afwijstekst, 3=Beide*/
+        NUMBER(1)
+        DEFAULT 1 NOT NULL,
   CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
 );
 

MLD/MLD_TRI.SRC

@@ -59,6 +59,11 @@ BEGIN
            SET ins_discipline_key = :new.mld_ins_discipline_key
          WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
     END IF;
+   IF :new.mld_stdmelding_verwijder IS NOT NULL AND :old.mld_stdmelding_verwijder IS NULL
+   THEN
+        DELETE FROM mld_afmeldtekst
+              WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
+   END IF;
 END;
 /
 
@@ -83,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;
 /
 
@@ -220,7 +225,9 @@ FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(mld_opdr_key, mld_s_mld_opdr_key);
     /* Controleer of de opdracht bij een melding hoort die de goede status heeft,
-     * namelijk: GEACCEPTEERD of AFGEMELD (minimaal GEACCEPTEERD),
+     * Het voorkomt dat er onverwachts opdrachten zijn op Afgewezen of nog niet Geaccepteerde meldingen
+     * namelijk: GEACCEPTEERD, UITGEGEVEN of AFGEMELD
+     * Sinds FSN#30228 hoort daar zelfs ook VERWERKT bij
      * Zo niet, dan mag het alleen als de contract_key is ingevuld
      */
    IF :NEW.mld_melding_key IS NOT NULL
@@ -232,7 +239,7 @@ BEGIN
            INTO dummy
            FROM mld_melding
           WHERE mld_melding_key = :NEW.mld_melding_key
-            AND mld_melding_status IN (4,5,7);
+            AND mld_melding_status IN (4,5,6,7);
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
@@ -291,20 +298,16 @@ BEGIN
     raise_application_error(-20003, 'MLD_C_MLD_SRTKENMERK_SYSTEEM');
   END IF;
   --
-  IF (:new.mld_srtkenmerk_kenmerktype = 'C'
-  OR  :new.mld_srtkenmerk_kenmerktype = 'N')
-  AND :new.mld_srtkenmerk_lengte IS NULL
+  IF :new.mld_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.mld_srtkenmerk_lengte IS NULL
   THEN
     raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_LENGTE');
   END IF;
-  IF :new.mld_srtkenmerk_kenmerktype = 'N'
-  AND :new.mld_srtkenmerk_lengte > 20
+  IF :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.mld_srtkenmerk_lengte > 20
   THEN
      :new.mld_srtkenmerk_lengte := 20;
   END IF;
   --
-  IF  :new.mld_srtkenmerk_kenmerktype = 'N'
-  AND :old.mld_srtkenmerk_key IS NOT NULL
+  IF  :new.mld_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.mld_srtkenmerk_key IS NOT NULL
   THEN
     IF :old.mld_srtkenmerk_nmin <> :new.mld_srtkenmerk_nmin
     OR (:old.mld_srtkenmerk_nmin IS NULL AND :new.mld_srtkenmerk_nmin IS NOT NULL)
@@ -427,7 +430,7 @@ BEGIN
         THEN
           APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
         END IF;
-      ELSIF SrtKenmerkType = 'N'
+      ELSIF SrtKenmerkType IN ('N', 'B')
       THEN
         -- NUMBER
         -- Controleer of er een numerieke waarde ingevuld is.
@@ -541,7 +544,7 @@ BEGIN
         THEN
           APPLICATION_ERROR_GOTO(-20004, 'mld_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
         END IF;
-      ELSIF SrtKenmerkType = 'N'
+      ELSIF SrtKenmerkType IN ('N', 'B')
       THEN
         -- NUMBER
         -- Controleer of er een numerieke waarde ingevuld is.
@@ -731,6 +734,15 @@ BEGIN
     UPDATE_PRIMARY_KEY(mld_stdmeldingfaq_key, mld_s_mld_stdmeldingfaq_key);
 END;
 /
+
+CREATE_TRIGGER(mld_t_mld_stdmsrtruimte_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmsrtruimte
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(mld_stdmsrtruimte_key, mld_s_mld_stdmsrtruimte_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif  // MLD

MLD/MLD_TYP.SRC

@@ -6,6 +6,6 @@
 /* uitvoertijd, duur en eenheid in uren (U) of dagen (D) */
 CREATE_TYPE (MLD_T_UITVOERTIJD)
 AS
-   OBJECT (tijdsduur NUMBER(8,5), eenheid VARCHAR2(1));     
+   OBJECT (tijdsduur NUMBER(12,5), eenheid VARCHAR2(1));
 /
 #endif // MLD

MLD/MLD_VIE.SRC

@@ -90,15 +90,17 @@ CREATE_VIEW(mld_v_aanweziguitvoerende,0)
          //'S' = srtperslid bij bedrijf
 */
 /* PF: op eigen houtje aangepast, achterhaalde onzin eruitgehaald */
-CREATE_VIEW(mld_v_uitvoerende,0) (mld_uitvoerende_key, naam, type) AS
+CREATE_VIEW(mld_v_uitvoerende,0) (mld_uitvoerende_key, naam, type, intern) AS
 SELECT B.prs_bedrijf_key,
        B.prs_bedrijf_naam,
-       'B'
+       'B',
+       COALESCE(prs_bedrijf_intern, 0)
 FROM prs_bedrijf B
 UNION ALL
 SELECT P.prs_perslid_key,
        p.prs_perslid_naam||DECODE(p.prs_perslid_voorletters,null,'',', '||p.prs_perslid_voorletters)||DECODE(p.prs_perslid_tussenvoegsel,null,'',' '||p.prs_perslid_tussenvoegsel)||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')'),
-       'P'
+       'P',
+       1
 FROM prs_perslid P;
 
 /*
@@ -391,9 +393,9 @@ AS
                   DECODE(m.mld_melding_t_respijt.eenheid, 'U', m.mld_melding_t_respijt.tijdsduur, NULL) sla_respijturen,
                   DECODE(m.mld_melding_t_accepttijd.eenheid, 'D', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accptdgn,
                   DECODE(m.mld_melding_t_accepttijd.eenheid, 'U', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accpturen,
-                  TO_CHAR (m.mld_melding_datum, 'YYYY-MM-DD') datum,
-                  COALESCE (TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,5), 'YYYY-MM-DD'),
-                            TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,1), 'YYYY-MM-DD')
+                  TRUNC (m.mld_melding_datum) datum,
+                  COALESCE (TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,5)),
+                            TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,1))
                            )
                      afgemeld,
                   mld.getactualuitvoer(m.mld_melding_key) t_doorlooptijd,
@@ -405,24 +407,20 @@ AS
                   (SELECT mld_statusopdr_omschrijving
                      FROM mld_statusopdr sta
                     WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key) opdracht_status,
-                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland, TO_CHAR (o.mld_opdr_datumbegin, 'YYYY-MM-DD') opdracht_datum,
-                  TO_CHAR (mld.getopdrachtstatusdate(o.mld_opdr_key,6), 'YYYY-MM-DD') opdracht_afgemeld,
+                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland,
+                  TRUNC (o.mld_opdr_datumbegin) opdracht_datum,
+                  TRUNC (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,
                   o.mld_opdr_omschrijving opdracht_omschrijving, o.mld_opdr_opmerking opdracht_opmerking,
                   (SELECT naam
                      FROM mld_v_uitvoerende u
                     WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys) opdracht_uitvoerende, NULL opdracht_contract,
                   NULL opdracht_contactpersoon,
-                  REPLACE (TO_CHAR (o.mld_opdr_uren, '9999990.99'), '.', ',') opdracht_uren,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon),
-                                    '9999990.99'
-                                   ),
-                           '.',
-                           ','
-                          ) opdracht_correctie,
-                  REPLACE (TO_CHAR (o.mld_opdr_materiaal, '9999990.99'), '.', ',') opdracht_materiaal,
-                  REPLACE (TO_CHAR (o.mld_opdr_uurloon, '9999990.99'), '.', ',') opdracht_uurtarief,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten, '9999990.99'), '.', ',') opdracht_kosten
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon) opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten
              FROM mld_melding m,
                   mld_stdmelding s,
                   alg_locatie l,
@@ -625,6 +623,7 @@ CREATE_VIEW(mld_v_rap_stdmelding, 0)
    beperk_tot_catalogus,
    kopieerbaar,
    regime,
+   malusbasis,
    malus,
    dubbele_mld_controleren,
    doet_mee_in_kto,
@@ -703,6 +702,7 @@ AS
                   2, 'Openingstijden',
                   3, '24/7')
              regime,
+          mld_stdmelding_malusbasis malusbasis,
           mld_stdmelding_malus malus,
           DECODE (mld_stdmelding_doublecheck,
                   1, 'alleen bij invoeren',
@@ -769,6 +769,51 @@ AS
       AND bd.ins_discipline_key(+) = std.bes_ins_discipline_key
       AND vak.ins_discipline_key = dp.mld_ins_discipline_key;
 
+-- UWVA#31346: Export tbv. import afmeldteksten!
+CREATE_VIEW(mld_v_rap_expimp_afmtxt, 0)
+(
+   afmeldtekstnaam,
+   afmeldtekstomschrijving,
+   fclt_x_discipline_key,
+   fclt_x_stdmelding_key,
+   discipline_key,
+   stdmelding_key
+)
+AS
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+             md.ins_discipline_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_ins_discipline_key)
+          || ']',
+             sm.mld_stdmelding_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_stdmelding_key)
+          || ']',
+          sm.mld_ins_discipline_key,
+          t.mld_stdmelding_key
+     FROM mld_afmeldtekst t, mld_stdmelding sm, mld_discipline md
+    WHERE     t.mld_stdmelding_key IS NOT NULL
+          AND t.mld_stdmelding_key = sm.mld_stdmelding_key
+          AND sm.mld_ins_discipline_key = md.ins_discipline_key
+   UNION ALL
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+          DECODE (
+             md.ins_discipline_key,
+             NULL,
+             NULL,
+                md.ins_discipline_omschrijving
+             || ' [key='
+             || TO_CHAR (md.ins_discipline_key)
+             || ']'),
+          NULL,
+          md.ins_discipline_key,
+          NULL
+     FROM mld_afmeldtekst t, mld_discipline md
+    WHERE t.mld_stdmelding_key IS NULL
+          AND t.mld_ins_discipline_key = md.ins_discipline_key(+);
+
 ---- KTO views + rapportages
 CREATE_VIEW(mld_v_kto_vragen, 0)
 (
@@ -1225,5 +1270,787 @@ CREATE_VIEW(mld_v_api_meldingen, 1) AS SELECT * from mld_melding;
 CREATE_VIEW(mld_v_api_opdrachten, 1) AS SELECT * from mld_opdr;
 
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* since melding and opdracht are joined later on, the columns must be unique */
+/* Note: als je kolommen toevoegt wil je dat zeer waarschijnlijk ook in mld_v_udr_meldingopdracht */
+CREATE_VIEW(mld_v_udr_melding, 1)
+(
+   melding_key,
+   meldingnummer,
+   melding_regio,
+   melding_district,
+   melding_locatiecode,
+   melding_locatie,
+   melding_locatieplaats,
+   fclt_3d_locatie_key,
+   melding_gebouwcode,
+   melding_gebouw,
+   melding_verdieping,
+   melding_ruimtenr,
+   melding_ruimte,
+   melding_ordernr,
+   kostensoortgroep,
+   kostensoort,
+   kostenplaats,
+   kostenplaats_oms,
+   melder,
+   melder_key,
+   afdeling,
+   afdeling_omschrijving,
+   fclt_3d_afdeling_key,
+   bedrijf_key,
+   invoerder,
+   meldbron,
+   soortmelding,
+   fclt_3d_discipline_key,
+   productgroep,
+   subproductgroep,
+   behandelgroep,
+   behandelaar,
+   behandelaar_key,
+   subproductgroepgroep,
+   melding_status,
+   sla_nvt,
+   sla_werkdgn,
+   sla_werkuren,
+   sla_respijtdgn,
+   sla_respijturen,
+   sla_accptdgn,
+   sla_accpturen,
+   plan_uitvoertijd_sla,
+   melding_datum,
+   melding_einddatum,
+   melding_acceptdatum,
+   melding_afgemeld,
+   melding_accepted,
+   doorlooptijd_werkdgn,
+   doorlooptijd_werkuren,
+   onderwerp,
+   vomschrijving,
+   melding_opmerking,
+   prioriteit,
+   prioriteittxt,
+   rating,
+   rating_opmerking,
+   bolletje,
+   accept_sla_dagen,
+   accept_sla_uren,
+   uitvoering_sla_dagen,
+   uitvoering_sla_uren,
+   afspraak_sla_dagen,
+   afspraak_sla_uren,
+   accept_sla_optijd,
+   uitvoering_sla_optijd,
+   afspraak_sla_optijd,
+   selfservice
+)
+AS
+   SELECT mld_melding_key,
+          meldingnummer,
+          alg_regio_omschrijving,
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          locatie_plaats,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          melding_ordernr,
+          kostensoortgroep,
+          kostensoort,
+          kostenplaats,
+          kostenplaats_oms,
+          melder,
+          prs_perslid_key,
+          afdeling,
+          afdeling_omschrijving,
+          afdeling_key,
+          prs_bedrijf_key,
+          invoerder,
+          meldbron,
+          soortmelding,
+          ins_discipline_key,
+          productgroep,
+          subproductgroep,
+          behandelgroep,
+          behandelaar,
+          behandelaar_key,
+          subproductgroepgroep,
+          status,
+          sla_nvt,
+          sla_werkdgn,
+          sla_werkuren,
+          sla_respijtdgn,
+          sla_respijturen,
+          sla_accptdgn,
+          sla_accpturen,
+          plan_uitvoertijd_sla,
+          datum,
+          einddatum,
+          acceptdatum,
+          afgemeld,
+          accepted,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkdgn,
+          DECODE (x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkuren,
+          onderwerp,
+          omschrijving,
+          opmerking,
+          mld_melding_spoed prioriteit,
+          DECODE(mld_melding_spoed,3,lcl.l('lcl_mld_urg_normaal'),1,lcl.l('lcl_mld_urg_kritiek'),2,lcl.l('lcl_mld_urg_hoog'),4,lcl.l('lcl_mld_urg_laag')),
+          mld_melding_satisfaction,
+          mld_melding_satisfaction_op,
+          mld_melding_flag,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', acceptdatum - COALESCE (accepted, afgemeld), NULL)
+             accept_sla_dagen,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                  NULL)
+             accept_sla_uren,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'D',
+               mld.geteinddatum (mld_melding_key)
+             - COALESCE (afgemeld, SYSDATE)
+             + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             uitvoering_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (mld.geteinddatum (mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+             + COALESCE (sla_respijturen, 0),
+             NULL)
+             uitvoering_sla_uren,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'D', einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                  NULL)
+             afspraak_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24) + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             afspraak_sla_uren,
+          CASE
+             WHEN acceptdatum IS NULL
+                  OR            -- Dan is er geen acceptatietijd gedefinieerd en dus altijd op tijd.
+                    DECODE (x.t_doorlooptijd.eenheid,
+                            'D', acceptdatum - COALESCE (accepted, afgemeld),
+                            0)
+                    + DECODE (x.t_doorlooptijd.eenheid,
+                              'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                              0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             accept_sla_optijd,
+          CASE
+             WHEN DECODE (
+                     x.t_doorlooptijd.eenheid,
+                     'D',
+                       mld.geteinddatum (mld_melding_key)
+                     - COALESCE (afgemeld, SYSDATE)
+                     + COALESCE (sla_respijtdgn, 0),
+                     0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (mld.geteinddatum(mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijturen, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             uitvoering_sla_optijd,
+          CASE
+             WHEN DECODE (x.t_doorlooptijd.eenheid,
+                          'D',
+                          einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                          0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijtdgn, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             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_regio_omschrijving,
+                  alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  alg_locatie_plaats locatie_plaats,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  m.mld_melding_ordernr melding_ordernr,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                          AND ks.prs_kostensoort_key =
+                                (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                   FROM mld_stdmelding sm, mld_discipline disc
+                                  WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                        AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                             (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                FROM mld_stdmelding sm, mld_discipline disc
+                               WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                     AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoort,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.prs_perslid_key)
+                     melder,
+                  (SELECT prs_afdeling_naam
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling,
+                  (SELECT prs_afdeling_omschrijving
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_omschrijving,
+                  (SELECT prs_afdeling_key
+                     FROM prs_perslid pp
+                    WHERE pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_key,
+                  (SELECT prs_bedrijf_key
+                     FROM prs_v_afdeling pva, prs_perslid pp
+                    WHERE pva.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     prs_bedrijf_key,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = mld.getmeldinguser (m.mld_melding_key))
+                     invoerder,
+                  (SELECT mb.mld_meldbron_omschrijving
+                     FROM mld_meldbron mb
+                    WHERE mb.mld_meldbron_key = m.mld_meldbron_key)
+                     meldbron,
+                  m.mld_meldbron_key,
+                  sd.ins_srtdiscipline_key ins_srtdiscipline_key,
+                  sd.ins_srtdiscipline_omschrijving soortmelding,
+                  md.ins_discipline_key ins_discipline_key,
+                  md.ins_discipline_omschrijving productgroep,
+                  s.mld_stdmelding_omschrijving subproductgroep,
+                  smg.mld_stdmeldinggroep_naam subproductgroepgroep,
+                  mbg.mld_behandelgroep_naam behandelgroep,
+                  (SELECT prs_perslid_naam_full
+                     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)
+                     status,
+                  CASE
+                     WHEN m.mld_melding_einddatum >
+                             COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
+                                       fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
+                                       SYSDATE)
+                     THEN
+                        1
+                     ELSE
+                        0
+                  END
+                     plan_uitvoertijd_sla,
+                  CASE
+                     WHEN m.mld_melding_indult = 1 OR s.mld_stdmelding_slabewaken = 0 THEN 1
+                     ELSE 0
+                  END
+                     sla_nvt,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'D', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkdgn,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'U', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkuren,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'D', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijtdgn,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'U', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijturen,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'D', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accptdgn,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'U', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accpturen,
+                  m.mld_melding_datum datum,
+                  m.mld_melding_einddatum einddatum,
+                  mld.getacceptdatum (m.mld_melding_datum,
+                                      m.mld_stdmelding_key,
+                                      og.alg_onroerendgoed_keys)
+                     acceptdatum,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5),
+                            mld.getmeldingstatusdate (m.mld_melding_key, 1))
+                     afgemeld,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 4),
+                            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,
+                  m.mld_melding_satisfaction,
+                  m.mld_melding_satisfaction_op,
+                  m.mld_melding_flag
+             FROM mld_melding m,
+                  mld_stdmelding s,
+                  alg_locatie l,
+                  alg_district d,
+                  alg_regio r,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_discipline md,
+                  mld_disc_params mdp,
+                  mld_behandelgroep mbg,
+                  ins_srtdiscipline sd,
+                  mld_stdmeldinggroep smg
+            WHERE     s.mld_stdmelding_key = m.mld_stdmelding_key
+                  AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
+                  AND md.ins_discipline_key = s.mld_ins_discipline_key
+                  AND md.ins_discipline_key = mdp.mld_ins_discipline_key
+                  AND s.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
+                  AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND d.alg_regio_key = r.alg_regio_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)
+(
+   opdracht_key,
+   opdracht_nummer,
+   opdracht_regio,
+   opdracht_district,
+   opdracht_locatie_code,
+   opdracht_locatie,
+   opdracht_locatieplaats,
+   fclt_3d_locatie_key,
+   opdracht_gebouwcode,
+   opdracht_gebouw,
+   opdracht_verdieping,
+   opdracht_ruimtenr,
+   opdracht_ruimte,
+   opdracht_kostenplaats,
+   opdracht_kostenplaats_oms,
+   melding_key,
+   opdracht_type,
+   opdracht_volgnummer,
+   opdracht_status,
+   opdracht_duur_gepland,
+   opdracht_datum,
+   opdracht_einddatum,
+   opdracht_plandatum,
+   opdracht_acceptdatum,
+   opdracht_afgemeld,
+   opdracht_doorlooptijd,
+   opdracht_accepttijd,
+   opdracht_omschrijving,
+   opdracht_opmerking,
+   opdracht_uitvoerende,
+   opdracht_contract,
+   opdracht_contract_versie,
+   opdracht_contactpersoon,
+   opdracht_uren,
+   opdracht_correctie,
+   opdracht_materiaal,
+   opdracht_uurtarief,
+   opdracht_kosten
+)
+AS
+   SELECT mld_opdr_key,
+          ins_srtdiscipline_prefix||TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
+          alg_regio_omschrijving,
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          locatie_plaats,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          kostenplaats,
+          kostenplaats_oms,
+          mld_melding_key,
+          opdracht_type,
+          opdracht_volgnummer,
+          opdracht_status,
+          opdracht_duur_gepland,
+          opdracht_datum,
+          opdracht_einddatum,
+          opdracht_plandatum,
+          opdracht_acceptdatum,
+          opdracht_afgemeld,
+          opdracht_doorlooptijd,
+          opdracht_accepttijd,
+          opdracht_omschrijving,
+          opdracht_opmerking,
+          opdracht_uitvoerende,
+          opdracht_contract,
+          opdracht_contract_versie,
+          opdracht_contactpersoon,
+          opdracht_uren,
+          opdracht_correctie,
+          opdracht_materiaal,
+          opdracht_uurtarief,
+          opdracht_kosten
+     FROM (SELECT alg_regio_omschrijving,
+                  alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  alg_locatie_plaats locatie_plaats,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  o.mld_opdr_key,
+                  o.mld_melding_key,
+                  top.mld_typeopdr_key,
+                  top.mld_typeopdr_omschrijving opdracht_type,
+                  o.mld_opdr_bedrijfopdr_volgnr opdracht_volgnummer,
+                  (SELECT mld_statusopdr_omschrijving
+                     FROM mld_statusopdr sta
+                    WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key)
+                     opdracht_status,
+                  fac.count_work_days (o.mld_opdr_datumbegin, o.mld_opdr_einddatum)
+                     opdracht_duur_gepland,
+                  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
+                     FROM mld_v_uitvoerende u
+                    WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys)
+                     opdracht_uitvoerende,
+                  c.cnt_contract_nummer_intern opdracht_contract,
+                  c.cnt_contract_versie opdracht_contract_versie,
+                  o.mld_opdr_contactpersoon opdracht_contactpersoon,
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
+                     opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten,
+                  sdi.ins_srtdiscipline_prefix
+             FROM alg_locatie l,
+                  alg_district d,
+                  alg_regio r,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_opdr o,
+                  mld_typeopdr top,
+                  mld_melding m,
+                  mld_stdmelding stdm,
+                  ins_tab_discipline di,
+                  ins_srtdiscipline sdi,
+                  cnt_contract c
+            WHERE     m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND d.alg_regio_key = r.alg_regio_key(+)
+                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND o.cnt_contract_key = c.cnt_contract_key(+)
+                  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;
+
+-- Noot: SELECT * is een slecht gebruik en leidt tot onoplosbare conflicten
+CREATE_VIEW(mld_v_udr_meldingopdracht, 1)
+AS
+SELECT
+   m.melding_key,
+   m.meldingnummer,
+   m.melding_regio,
+   m.melding_district,
+   m.melding_locatiecode,
+   m.melding_locatie,
+   m.melding_locatieplaats,
+   m.fclt_3d_locatie_key,
+   m.melding_gebouwcode,
+   m.melding_gebouw,
+   m.melding_verdieping,
+   m.melding_ruimtenr,
+   m.melding_ruimte,
+   m.melding_ordernr,
+   m.kostensoortgroep,
+   m.kostensoort,
+   m.kostenplaats,
+   m.kostenplaats_oms,
+   m.melder,
+   m.melder_key,
+   m.afdeling,
+   m.afdeling_omschrijving,
+   m.fclt_3d_afdeling_key,
+   m.bedrijf_key,
+   m.invoerder,
+   m.meldbron,
+   m.soortmelding,
+   m.fclt_3d_discipline_key,
+   m.productgroep,
+   m.subproductgroep,
+   m.behandelgroep,
+   m.behandelaar,
+   m.behandelaar_key,
+   m.subproductgroepgroep,
+   m.melding_status,
+   m.sla_nvt,
+   m.sla_werkdgn,
+   m.sla_werkuren,
+   m.sla_respijtdgn,
+   m.sla_respijturen,
+   m.sla_accptdgn,
+   m.sla_accpturen,
+   m.plan_uitvoertijd_sla,
+   m.melding_datum,
+   m.melding_einddatum,
+   m.melding_acceptdatum,
+   m.melding_afgemeld,
+   m.melding_accepted,
+   m.doorlooptijd_werkdgn,
+   m.doorlooptijd_werkuren,
+   m.onderwerp,
+   m.vomschrijving,
+   m.melding_opmerking,
+   m.prioriteit,
+   m.prioriteittxt,
+   m.rating,
+   m.rating_opmerking,
+   m.bolletje,
+   m.accept_sla_dagen,
+   m.accept_sla_uren,
+   m.uitvoering_sla_dagen,
+   m.uitvoering_sla_uren,
+   m.afspraak_sla_dagen,
+   m.afspraak_sla_uren,
+   m.accept_sla_optijd,
+   m.uitvoering_sla_optijd,
+   m.afspraak_sla_optijd,
+   m.selfservice,
+   o.opdracht_key,
+   o.opdracht_nummer,
+   o.opdracht_regio,
+   o.opdracht_district,
+   o.opdracht_locatie_code,
+   o.opdracht_locatie,
+   o.opdracht_locatieplaats,
+   --o.fclt_3d_locatie_key,
+   o.opdracht_gebouwcode,
+   o.opdracht_gebouw,
+   o.opdracht_verdieping,
+   o.opdracht_ruimtenr,
+   o.opdracht_ruimte,
+   o.opdracht_kostenplaats,
+   o.opdracht_kostenplaats_oms,
+   --o.melding_key,
+   o.opdracht_type,
+   o.opdracht_volgnummer,
+   o.opdracht_status,
+   o.opdracht_duur_gepland,
+   o.opdracht_datum,
+   o.opdracht_einddatum,
+   o.opdracht_plandatum,
+   o.opdracht_acceptdatum,
+   o.opdracht_afgemeld,
+   o.opdracht_doorlooptijd,
+   o.opdracht_accepttijd,
+   o.opdracht_omschrijving,
+   o.opdracht_opmerking,
+   o.opdracht_uitvoerende,
+   o.opdracht_contract,
+   o.opdracht_contract_versie,
+   o.opdracht_contactpersoon,
+   o.opdracht_uren,
+   o.opdracht_correctie,
+   o.opdracht_materiaal,
+   o.opdracht_uurtarief,
+   o.opdracht_kosten
+ FROM mld_v_udr_melding m, mld_v_udr_opdracht o
+ WHERE m.melding_key = o.melding_key(+);
+
+
+// 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)
+          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 IN ('N', 'B')
+          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_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)
+          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 IN ('N', 'B')
+          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

@@ -9,17 +9,18 @@
  * BEZ  - Bezoekers registratie
  * CAD  - AutoCAD koppeling
  * CNT  - Contracten
- * FAC  - Basismodule (altijd aanwezig)
- * FIN  - Financien/facturen [sinds 4.61]
+ * CTR  - Periodieke taken (controles)
+ * FAC  - Basismodule
+ * FIN  - Financien/facturen
  * INS  - Installaties
- * MLD  - Meldingen (basis)
+ * KPI  - KPI's
+ * MLD  - Meldingen
  * MRK  - Marktplaats
- * MSG  - Messenger [sinds 4.70 apart]
- * PRJ  - Projecten/verhuizingen [sinds 4.61 in web]
- * PRS  - Personen (kleine basisset tbv. Meldingen)
+ * MSG  - Messenger
+ * PRJ  - Projecten/verhuizingen
+ * PRS  - Personen
  * SLE  - Sleutelplan
  * WEB  - Intranet modules
- *
  */
 
 #define ALG    ALG
@@ -27,9 +28,11 @@
 #define BEZ    BEZ
 #define CAD    CAD
 #define CNT    CNT
+#define CTR    CTR
 #define FAC    FAC
 #define FIN    FIN
 #define INS    INS
+#define KPI    KPI
 #define MLD    MLD
 #define MRK    MRK
 #define MSG    MSG

MRK/MRK_INI.SRC

@@ -1,11 +1,11 @@
-#ifdef MRK 
+#ifdef MRK
 /*
  * $Revision$
  * $Id$
  */
 
- 
-_FAC_MODULE('MRK','Facilitor Marktplaats')
+
+_FAC_MODULE('MRK','lcl_module_MRK')
 
 insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Aangeboden');
 insert into ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('MRK', 'Gevraagd');

MSG/MSG_INI.SRC

@@ -3,8 +3,8 @@
 /*  $Revision$
  *  $Id$
  */
- 
-_FAC_MODULE('MSG','Facilitor Messenger')
+
+_FAC_MODULE('MSG','lcl_module_MSG')
 
 REGISTERONCE('$Id$')
 

MSG/MSG_TAB.SRC

@@ -14,7 +14,7 @@ CREATE_TABLE(msg_message, 0)
      NUMBER(10)
      REFERENCES msg_message(msg_message_key),
   msg_message_oms
-     VARCHAR2(2000),
+     VARCHAR2(4000),
   msg_message_onderwerp
      VARCHAR2(80),
   msg_message_prioriteit

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

PRJ/PRJ_INI.SRC

@@ -4,7 +4,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('PRJ','Projecten')
+_FAC_MODULE('PRJ','lcl_module_PRJ')
 
 
 INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default project legenda', 1);

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

@@ -4,10 +4,13 @@
  *  $Id$
  */
 
-_FAC_MODULE('PRS','Organisatiebeheer')
+_FAC_MODULE('PRS','lcl_module_PRS')
 
 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

@@ -75,7 +75,7 @@ AS
    FUNCTION getprofiellimiet (pperslidkey IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER;
 
-   FUNCTION getlimietagb (pperslidkey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
+   FUNCTION getlimietagb (pkostenplaatskey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER;
 
    FUNCTION getfiatteur (pkostenplaats_key   IN NUMBER,
@@ -87,14 +87,14 @@ AS
       RETURN NUMBER;
 
    PROCEDURE setpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2);
-   
+
    FUNCTION testpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2)
       RETURN NUMBER;
-   
+
    PROCEDURE upsertkenmerk (p_kenmerk_key IN NUMBER, p_prs_key IN NUMBER, p_waarde IN VARCHAR2);
-   
+
    PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2);
-   
+
    PROCEDURE import_perslid (p_import_key IN NUMBER, p_seq_of_columns IN VARCHAR2, p_header IN VARCHAR2);
 
    PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2);
@@ -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
@@ -276,28 +278,18 @@ AS
    END;
 
     -- Levert de limiet (maximaal bestelbedrag) van persoon pperslidkey i.v.m. Afdelings Gebonden Budget (AGB),
-   FUNCTION getlimietagb (pperslidkey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
+   FUNCTION getlimietagb (pkostenplaatskey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER
    IS
       llimiet prs_kostenplaats.prs_kostenplaats_limiet%TYPE;
-      lkpkey prs_perslid.prs_perslid_key%TYPE;
    BEGIN
-      IF pperslidkey IS NULL
+      IF pkostenplaatskey > 0
       THEN
-        RETURN NULL;
-      END IF;
-      -- persoon wordt geacht te bestaan
-      SELECT prs.getkostenplaats(pperslidkey, pmethode, -1)
-        INTO lkpkey
-        FROM DUAL;
-
-      IF lkpkey > 0
-      THEN
-        -- Er is een kostenplaats gevonden
+        -- Er is een kostenplaats meegegeven
         SELECT k.prs_kostenplaats_limiet
           INTO llimiet
           FROM prs_kostenplaats k
-          WHERE k.prs_kostenplaats_key = lkpkey;
+          WHERE k.prs_kostenplaats_key = pkostenplaatskey;
         -- AGB per kostenplaats of catalogus
         IF llimiet IS NULL
         THEN
@@ -305,7 +297,7 @@ AS
             SELECT prs_kostenplaatsdisc_limiet
               INTO llimiet
               FROM prs_kostenplaatsdisc
-             WHERE prs_kostenplaats_key = lkpkey
+             WHERE prs_kostenplaats_key = pkostenplaatskey
                AND ins_discipline_key = pdisckey;
           EXCEPTION
             WHEN NO_DATA_FOUND
@@ -314,6 +306,8 @@ AS
               RETURN NULL;
           END;
         END IF;
+      ELSE
+        RETURN NULL;
       END IF;
 
       RETURN llimiet;
@@ -416,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
@@ -587,7 +582,7 @@ AS
             END IF;
 
             -- Persoon krijgt wp op de meegegeven ruimte.
-            IF p_ruimte_key IS NOT NULL 
+            IF p_ruimte_key IS NOT NULL
             THEN
                 -- Bepalen vrije werkplek (kan alleen igv expliciete werkplekken).
                 IF fac.getsetting ('prs_werkplek_implicit') = '0'                                --expliciet
@@ -602,7 +597,7 @@ AS
                                              FROM prs_perslidwerkplek pw
                                             WHERE pw.prs_werkplek_key = wp.prs_werkplek_key);
                 END IF;
-    
+
                 IF v_wp_key IS NULL
                 THEN
                     -- Er is geen vrije (kan ook omdat we impliciet zijn), maak dan een nieuwe vrije werkplek.
@@ -615,14 +610,14 @@ AS
                             SELECT   prs_werkplek_volgnr
                               FROM   prs_werkplek
                              WHERE   prs_alg_ruimte_key = p_ruimte_key);
-    
+
                     SELECT alg_ruimte_nr
                       INTO v_ruimte_nr
                       FROM alg_ruimte
                      WHERE alg_ruimte_key = p_ruimte_key;
-    
+
                     v_wp_oms := v_ruimte_nr || '/' || TO_CHAR (v_wp_volgnr);
-    
+
                     -- Toevoegen nieuwe werkplek in meegegeven ruimte.
                     INSERT INTO prs_werkplek (prs_werkplek_volgnr,
                                               prs_werkplek_omschrijving,
@@ -632,7 +627,7 @@ AS
                      RETURNING prs_werkplek_key
                           INTO v_wp_key;
                 END IF;
-    
+
                 -- Koppelen persoon aan de (nieuwe of bestaande) vrije werkplek
                 INSERT INTO prs_perslidwerkplek (prs_perslid_key,
                                                  prs_werkplek_key,
@@ -651,15 +646,15 @@ AS
   --                        v_seq_of_columns ListOfInteger := (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 .....,46);
   --                        Het getal op een bepaalde postitie geeft aan in welke kolom dit veld in de csv staat
   --                        Voorbeeld: Als de derde waarde een 8 bevat betekent dit dat de verdieping volgnummer in kolom 8 van de csv staat.
-  --                        
+  --
   --                        Dus dan maar via een string, en ook op slimme wijze, nl alsof het een ingelezen perslid-record is met p_fielddelimitor
-  --                        
+  --
   --                        Afwijkingen op deze volgorde zijn in eigen cust_import_perslid te regelen.
-  --                          
+  --
   --                        Als locatiecode en gebouwcode b.v. zijn omgedraaid in het CSV-formaat,
   --                        dan perslid import ListOfInteger := (2,1,3,4,5,6,7,8,9,10,11,12);
   --                        v_seq_of_columns := '2;1;3;4;5;6;7;8;9;10;11;12';
-  --                          
+  --
   --                        Als locatiecode NIET in CSV staat, dan perslid import ListOfInteger := (0,2,3,4,5,6,7,8,9,10,11,12);
   --                        v_seq_of_columns := '0;2;3;4;5;6;7;8;9;10;11;12';
   --                        M.a.w. waar een 0 staat, wordt de variabele niet ingelezen en blijft LEEG.
@@ -693,7 +688,7 @@ AS
   -- v_prs_perslid_nr 20
   -- v_prs_srtperslid_omschrijving 21
   -- v_prs_perslid_oslogin 22
-  -- v_prs_perslid_wachtwoord 23 
+  -- v_prs_perslid_wachtwoord 23
   -- v_prs_perslid_titel 24
   -- v_prs_perslid_apikey 25
   -- v_dummy 26
@@ -736,7 +731,7 @@ AS
      v_header_is_valid               NUMBER (1) := 0;
      oracle_err_num                  NUMBER;
      oracle_err_mes                  VARCHAR2 (200);
-  
+
      -- De importvelden
      v_empty                         VARCHAR2 (100);
      v_alg_locatie_code              VARCHAR2 (256);
@@ -787,13 +782,13 @@ AS
      v_alg_verdieping_volgnr_num     NUMBER;
      v_prs_werkplek_volgnr_num       NUMBER;
      v_prs_perslid_dienstv_num       NUMBER;
-  
+
      v_seq_of_columns                VARCHAR2 (200);
-  
+
      TYPE array_t IS VARRAY (46) OF NUMBER (10);
-  
+
      v_colnr                         array_t := array_t ();
-  
+
      CURSOR c
      IS
           SELECT *
@@ -801,17 +796,22 @@ AS
            WHERE fac_import_key = p_import_key
         ORDER BY fac_imp_file_index;
   BEGIN
+     // JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
+     //      toevoegen zodat het script ook multi-user veilig is,
+     //      Heel veel klant-specifieke imports(/aanvullingen) controleren
+     //      echter niet op de fac_import_key en zouden flink de fout in gaan.
+     //      Daarom vooralsnog hier toch maar alles verwijderen
      DELETE FROM   fac_imp_perslid;
-     
+
      SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
        INTO v_count
        FROM fac_imp_factuur;
-  
+
      -- Init
      v_fielddelimitor := ';';
      v_seq_of_columns := p_seq_of_columns;
      v_errorhint := 'Bepalen volgorde kolommen';
-  
+
      FOR v_index IN 1 .. 46
      LOOP
         v_colnr.EXTEND;
@@ -820,24 +820,24 @@ AS
                           v_fielddelimitor,
                           v_colnr (v_index));
      END LOOP;
-  
+
      -- Indien geen header check is opgegeven, gaan we niet op zoek naar een geldige header
      IF p_header IS NULL
      THEN
         v_header_is_valid := 1;
      END IF;
-  
+
      FOR rec1 IN c
      LOOP
         BEGIN
            v_errormsg := 'Fout FETCH te importeren rij';
-  
+
            v_newline := rec1.fac_imp_file_line;
            v_errormsg := '';
            v_errorhint := 'Fout opvragen te importeren rij';
            v_aanduiding := '';
            v_ongeldig := 0;
-  
+
            IF v_header_is_valid = 0
            THEN
               IF UPPER (v_newline) LIKE UPPER (p_header)
@@ -1071,14 +1071,14 @@ AS
                                    v_fielddelimitor,
                                    v_colnr (46),
                                    v_prs_kenmerk20);
-  
+
               v_aanduiding :=
                  v_prs_perslid_naam || '|' || v_prs_perslid_voornaam || '| ';
-  
+
               v_count_tot := v_count_tot + 1;
               v_errorhint := 'Ongeldige locatiecode';
               v_alg_locatie_code := TRIM (v_alg_locatie_code);
-  
+
               IF LENGTH (v_alg_locatie_code) > 10
               THEN
                  v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
@@ -1090,11 +1090,11 @@ AS
                     || v_alg_locatie_code
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige gebouw code';
               v_alg_gebouw_code := TRIM (v_alg_gebouw_code);
-  
+
               IF LENGTH (v_alg_gebouw_code) > 12
               THEN
                  v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 12);
@@ -1106,11 +1106,11 @@ AS
                     || v_alg_gebouw_code
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig verdieping volgnummer';
               v_alg_verdieping_volgnr := TRIM (v_alg_verdieping_volgnr);
-  
+
               IF (v_alg_verdieping_volgnr IS NULL)
               THEN
                  v_alg_verdieping_volgnr_num :=
@@ -1133,11 +1133,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige ruimte nr';
               v_alg_ruimte_nr := TRIM (v_alg_ruimte_nr);
-  
+
               IF LENGTH (v_alg_ruimte_nr) > 10
               THEN
                  v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
@@ -1149,11 +1149,11 @@ AS
                     || v_alg_ruimte_nr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig werkplek volgnummer';
               v_prs_werkplek_volgnr := TRIM (v_prs_werkplek_volgnr);
-  
+
               IF (v_prs_werkplek_volgnr IS NULL)
               THEN
                  v_prs_werkplek_volgnr_num := TO_NUMBER (v_prs_werkplek_volgnr);
@@ -1175,11 +1175,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige werkplek omschrijving';
               v_prs_werkplek_omschrijving := TRIM (v_prs_werkplek_omschrijving);
-  
+
               IF LENGTH (v_prs_werkplek_omschrijving) > 30
               THEN
                  v_prs_werkplek_omschrijving :=
@@ -1192,14 +1192,14 @@ AS
                     || v_prs_werkplek_omschrijving
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige afdelingscode';
               v_prs_afdeling_naam := TRIM (v_prs_afdeling_naam);
-  
-              IF LENGTH (v_prs_afdeling_naam) > 10
+
+              IF LENGTH (v_prs_afdeling_naam) > 15
               THEN
-                 v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
+                 v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 15);
                  fac.imp_writelog (
                     p_import_key,
                     'W',
@@ -1217,11 +1217,11 @@ AS
                                       'Afdelingscode moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige naam persoon';
               v_prs_perslid_naam := TRIM (v_prs_perslid_naam);
-  
+
               IF LENGTH (v_prs_perslid_naam) > 60
               THEN
                  v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 60);
@@ -1242,11 +1242,11 @@ AS
                                       'Naam persoon moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige tussenvoegsel persoon';
               v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
-  
+
               IF LENGTH (v_prs_perslid_tussenvoegsel) > 10
               THEN
                  v_prs_perslid_tussenvoegsel :=
@@ -1259,11 +1259,11 @@ AS
                     || v_prs_perslid_tussenvoegsel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige voorletters persoon';
               v_prs_perslid_voorletters := TRIM (v_prs_perslid_voorletters);
-  
+
               IF LENGTH (v_prs_perslid_voorletters) > 15
               THEN
                  v_prs_perslid_voorletters :=
@@ -1276,11 +1276,11 @@ AS
                     || v_prs_perslid_voorletters
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Voornaam persoon';
               v_prs_perslid_voornaam := TRIM (v_prs_perslid_voornaam);
-  
+
               IF LENGTH (v_prs_perslid_voornaam) > 30
               THEN
                  v_prs_perslid_voornaam :=
@@ -1293,10 +1293,10 @@ AS
                     || v_prs_perslid_voornaam
                     || ']');
               END IF;
-  
+
               v_errorhint := 'Ongeldige partnernaam persoon';
               v_prs_perslid_partner_naam := TRIM (v_prs_perslid_partner_naam);
-  
+
               --
               IF LENGTH (v_prs_perslid_partner_naam) > 60
               THEN
@@ -1309,11 +1309,11 @@ AS
                     || v_prs_perslid_partner_naam
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige tussenvoegsel partner';
               v_prs_perslid_partner_tussenv := TRIM (v_prs_perslid_partner_tussenv);
-  
+
               IF LENGTH (v_prs_perslid_partner_tussenv) > 10
               THEN
                  v_prs_perslid_partner_tussenv :=
@@ -1326,11 +1326,11 @@ AS
                     || v_prs_perslid_partner_tussenv
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig geslacht';
               v_prs_perslid_geslacht := TRIM (v_prs_perslid_geslacht);
-  
+
               IF LENGTH (v_prs_perslid_geslacht) > 1
               THEN
                  SELECT DECODE(UPPER(v_prs_perslid_geslacht), 'MAN', '1', 'VROUW', '0', NULL)
@@ -1344,11 +1344,11 @@ AS
                       FROM DUAL;
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig dienstverband';
               v_prs_perslid_dienstverband := TRIM (v_prs_perslid_dienstverband);
-  
+
               IF (v_prs_perslid_dienstverband IS NOT NULL)
               THEN
                  BEGIN
@@ -1368,11 +1368,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige titel persoon';
               v_prs_perslid_titel := TRIM (v_prs_perslid_titel);
-  
+
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                  v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
@@ -1384,11 +1384,11 @@ AS
                     || v_prs_perslid_titel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige telefoonnr. persoon';
               v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
-  
+
               IF LENGTH (v_prs_perslid_telefoonnr) > 15
               THEN
                  v_prs_perslid_telefoonnr :=
@@ -1401,11 +1401,11 @@ AS
                     || v_prs_perslid_telefoonnr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige mobielnr. persoon';
               v_prs_perslid_mobiel := TRIM (v_prs_perslid_mobiel);
-  
+
               IF LENGTH (v_prs_perslid_mobiel) > 15
               THEN
                  v_prs_perslid_mobiel := SUBSTR (v_prs_perslid_mobiel, 1, 15);
@@ -1417,11 +1417,11 @@ AS
                     || v_prs_perslid_mobiel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige email persoon';
               v_prs_perslid_email := TRIM (v_prs_perslid_email);
-  
+
               IF LENGTH (v_prs_perslid_email) > 200
               THEN
                  v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 200);
@@ -1433,12 +1433,12 @@ AS
                     || v_prs_perslid_email
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige functie persoon';
               v_prs_srtperslid_omschrijving :=
                  TRIM (v_prs_srtperslid_omschrijving);
-  
+
               IF LENGTH (v_prs_srtperslid_omschrijving) > 60
               THEN
                  v_prs_srtperslid_omschrijving :=
@@ -1461,11 +1461,11 @@ AS
                        'Functie persoon moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige persoonnr.';
               v_prs_perslid_nr := TRIM (v_prs_perslid_nr);
-  
+
               IF LENGTH (v_prs_perslid_nr) > 16
               THEN
                  v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
@@ -1477,11 +1477,11 @@ AS
                     || v_prs_perslid_nr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige loginnaam';
               v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
-  
+
               IF LENGTH (v_prs_perslid_oslogin) > 30
               THEN
                  v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
@@ -1493,10 +1493,10 @@ AS
                     || v_prs_perslid_oslogin
                     || ']');
               END IF;
-              
+
               v_errorhint := 'Ongeldig wachtwoord';
-              v_prs_perslid_wachtwoord := TRIM (v_prs_perslid_wachtwoord);  
-  
+              v_prs_perslid_wachtwoord := TRIM (v_prs_perslid_wachtwoord);
+
               --
               -- Insert geformatteerde import record
               IF v_ongeldig = 0
@@ -1506,7 +1506,7 @@ AS
                        'Fout bij toevoegen te impoteren bedrijf/afdeling ['
                     || v_prs_afdeling_naam
                     || ']';
-  
+
                  INSERT INTO fac_imp_perslid (alg_locatie_code,
                                               alg_gebouw_code,
                                               alg_verdieping_volgnr,
@@ -1521,7 +1521,7 @@ AS
                                               prs_perslid_partner_naam,
                                               prs_perslid_partner_tussenv,
                                               prs_perslid_naamgebruik_code,
-                                              prs_perslid_geslacht,                                                
+                                              prs_perslid_geslacht,
                                               prs_perslid_telefoonnr,
                                               prs_perslid_mobiel,
                                               prs_perslid_email,
@@ -1601,13 +1601,13 @@ AS
                              v_prs_kenmerk20,
                              rec1.fac_import_key,
                              rec1.fac_imp_file_index);
-  
+
                  v_count_import := v_count_import + 1;
               END IF;
            END IF;
         END;
      END LOOP;
-  
+
      IF v_header_is_valid = 0
      THEN
         fac.imp_writelog (p_import_key,
@@ -1627,7 +1627,7 @@ AS
            || TO_CHAR (v_count_tot - v_count_import),
            '');
      END IF;
-  
+
      COMMIT;
   EXCEPTION
      WHEN OTHERS
@@ -1676,7 +1676,7 @@ AS
      v_srtperslid_key   NUMBER (10);
      v_prs_perslid_naam VARCHAR2(200);
      v_prs_perslid_tussenvoegsel VARCHAR2(200);
-     
+
      v_locatie_key      NUMBER (10);
      v_gebouw_key       NUMBER (10);
      v_verdieping_key   NUMBER (10);
@@ -1805,12 +1805,12 @@ AS
 
            v_space := '';
            -- kijk hoe we met partnernamen moeten omgaan:
-           IF recPersLid.prs_perslid_naamgebruik_code = 0 
+           IF recPersLid.prs_perslid_naamgebruik_code = 0
            THEN
               -- normaal gebruik van naam. Eigen naam wordt gebruikt
               v_prs_perslid_naam := recPersLid.prs_perslid_naam;
               v_prs_perslid_tussenvoegsel := recPersLid.prs_perslid_tussenvoegsel;
-           ELSIF recPersLid.prs_perslid_naamgebruik_code = 1 
+           ELSIF recPersLid.prs_perslid_naamgebruik_code = 1
            THEN
               -- personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
               IF recPersLid.prs_perslid_tussenvoegsel IS NOT NULL
@@ -1824,7 +1824,7 @@ AS
               -- personen die de geboortenaam van de partner willen gebruiken
               v_prs_perslid_naam := recPersLid.prs_perslid_partner_naam;
               v_prs_perslid_tussenvoegsel := recPersLid.prs_perslid_partner_tussenv;
-           ELSIF recPersLid.prs_perslid_naamgebruik_code = 3 
+           ELSIF recPersLid.prs_perslid_naamgebruik_code = 3
            THEN
               -- personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
               IF recPersLid.prs_perslid_partner_tussenv IS NOT NULL
@@ -1836,7 +1836,7 @@ AS
            END IF;
 
            IF length(v_prs_perslid_naam) > 60
-           THEN 
+           THEN
               v_prs_perslid_naam := SUBSTR(v_prs_perslid_naam, 1,60);
               fac.imp_writelog (
                    p_import_key,
@@ -1894,7 +1894,8 @@ AS
                                        prs_perslid_geslacht,
                                        prs_perslid_titel,
                                        prs_perslid_dienstverband,
-                                       prs_perslid_oslogin)
+                                       prs_perslid_oslogin,
+                                       prs_perslid_apikey)
                   VALUES ('PRS',
                           v_srtperslid_key,
                           v_afdeling_key,
@@ -1909,7 +1910,8 @@ AS
                           recPersLid.prs_perslid_geslacht,
                           recPersLid.prs_perslid_titel,
                           recPersLid.prs_perslid_dienstverband,
-                          recPersLid.prs_perslid_oslogin)
+                          recPersLid.prs_perslid_oslogin,
+                          recPersLid.prs_perslid_apikey)
                RETURNING prs_perslid_key
                     INTO v_perslid_key;
 
@@ -1935,7 +1937,8 @@ AS
                      prs_perslid_telefoonnr = recPersLid.prs_perslid_telefoonnr,
                      prs_perslid_mobiel = recPersLid.prs_perslid_mobiel,
                      prs_perslid_email = recPersLid.prs_perslid_email,
-                     prs_perslid_oslogin = recPersLid.prs_perslid_oslogin
+                     prs_perslid_oslogin = recPersLid.prs_perslid_oslogin,
+                     prs_perslid_apikey = recPersLid.prs_perslid_apikey
                WHERE prs_perslid_key = v_perslid_key;
 
               IF recPersLid.prs_perslid_wachtwoord IS NOT NULL
@@ -1949,7 +1952,7 @@ AS
               SET prs_perslid_key = v_perslid_key
             WHERE fac_import_key = recPersLid.fac_import_key
                AND fac_imp_file_index = recPersLid.fac_imp_file_index;
-           
+
            COMMIT;                      -- persoon in ieder geval toegevoegd.
 
            v_aanduiding :=
@@ -1978,32 +1981,31 @@ AS
            SELECT   MAX(alg_locatie_key)
              INTO   v_locatie_key
              FROM   alg_v_aanweziglocatie
-            WHERE   UPPER (alg_locatie_code) =
-                       UPPER (recPersLid.alg_locatie_code);
+            WHERE   UPPER (alg_locatie_code) = UPPER (recPersLid.alg_locatie_code);
 
            v_errorhint := 'Fout bij bepalen gebouw';
            SELECT   MAX(alg_gebouw_key)
              INTO   v_gebouw_key
              FROM   alg_v_aanweziggebouw
-            WHERE   UPPER (alg_gebouw_code) = UPPER (recPersLid.alg_gebouw_code);
+            WHERE   UPPER (alg_gebouw_code) = UPPER (recPersLid.alg_gebouw_code)
+                    AND alg_locatie_key = v_locatie_key;
 
            v_errorhint := 'Fout bij bepalen verdieping';
            SELECT   MAX(alg_verdieping_key)
              INTO   v_verdieping_key
              FROM   alg_v_aanwezigverdieping
-            WHERE   UPPER (alg_verdieping_volgnr) =
-                       UPPER (recPersLid.alg_verdieping_volgnr)
+            WHERE   UPPER (alg_verdieping_volgnr) = UPPER (recPersLid.alg_verdieping_volgnr)
                     AND alg_gebouw_key = v_gebouw_key;
 
            v_errorhint := 'Fout bij bepalen beoogde ruimte';
            SELECT   MAX(alg_ruimte_key)
              INTO   v_ruimte_key
              FROM   alg_v_aanwezigruimte r
-            WHERE       r.alg_ruimte_upper_nr = UPPER (recPersLid.alg_ruimte_nr)
+            WHERE   r.alg_ruimte_upper_nr = UPPER (recPersLid.alg_ruimte_nr)
                     AND r.alg_verdieping_key = v_verdieping_key;
 
            -- standaard ruimte moet door cust gedeelte van deFout bij bepalen beoogde ruimte import ingevuld worden.
-           
+
            -- als er een locatie ingevuld is willen we ook een ruimte vinden.
            IF v_ruimte_key IS NULL AND recPersLid.alg_locatie_code IS NOT NULL
            THEN
@@ -2011,8 +2013,8 @@ AS
                                 'W',
                                 v_aanduiding || ' Ruimte kan niet gevonden worden',
                                 'Controleer locatie,gebouw en verdieping');
-           END IF;            
-           
+           END IF;
+
            -- fouten bij het bepalen van de werkplek worden als waarschuwing weergegeven.
            BEGIN
                v_errorhint := 'Fout bij het aanpassen van de werkplek';
@@ -2025,7 +2027,7 @@ AS
               v_errormsg := ' (ORACLE error number = <' || ORACLE_err_num || '> ORACLE error message = <' || ORACLE_err_mes || '>)';
               fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, v_errorhint);
            END;
-           
+
         EXCEPTION WHEN OTHERS
         THEN
            v_count_error := v_count_error + 1;
@@ -2072,7 +2074,6 @@ AS
      v_count          NUMBER (10);
 
      --
-     v_perslid_key    NUMBER (10);
      v_perslid_naam   VARCHAR (100);
      v_perslid_nr     VARCHAR (30);
   BEGIN
@@ -2148,7 +2149,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
@@ -16,7 +32,7 @@ CREATE_TABLE(prs_bedrijf,0)
         VARCHAR2(60)
         NOT_NULL(prs_bedrijf_naam_upper, prs_c_prs_bedrijf_naam_upper),
     prs_bedrijf_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_post_postcode
         VARCHAR2(12),
     prs_bedrijf_post_plaats
@@ -24,7 +40,7 @@ CREATE_TABLE(prs_bedrijf,0)
     prs_bedrijf_post_land
         VARCHAR2(30),
     prs_bedrijf_bezoek_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_bezoek_postcode
         VARCHAR2(12),
     prs_bedrijf_bezoek_plaats
@@ -114,14 +130,14 @@ CREATE_TABLE(prs_bedrijf,0)
         NUMBER(8,6)
         DEFAULT 1,
         CONSTRAINT prs_u_prs_bedrijf_naam_upper UNIQUE(prs_bedrijf_naam_upper, prs_bedrijf_verwijder),
-    prs_bedrijf_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT prs_c_prs_bedrijf_uitvoertijd CHECK(prs_bedrijf_uitvoertijd >= 0), /* of null */
     prs_bedrijf_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
-        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);
 
 ALTER TABLE ins_srtdeel
 ADD
@@ -139,6 +155,14 @@ ADD
         CONSTRAINT fac_r_prs_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
 );
 
+ALTER TABLE fac_idp
+ADD
+(
+    prs_bedrijf_key
+        NUMBER(10)
+        CONSTRAINT fac_r_idp_prs_bedrijf REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
+);
+
 /*  Kruistabel met elektronische adressen van een bedrijf, toegepast door
  *  PutOrders voor Bestellingen, Contracten en Opdrachten. Bij Opdrachten kan
  *  er per opdrachttype een ander adres zijn, het record met mld_typeopdr_key NULL
@@ -151,9 +175,9 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
     prs_bedrijf_key
         NUMBER(10)
         CONSTRAINT prs_r_prs_bedrijf_key6 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
-    prs_bedrijfadres_type /* O = order, B = Bestelling, C = Contract */
+    prs_bedrijfadres_type /* O = order, B = Bestelling, V=Voorraadinfo, C = Contract */
         VARCHAR2(1)
-        CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C')),
+        CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V')),
 -- In MLD_TAB.SRC:
 --    mld_typeopdr_key
 --        NUMBER(10) CONSTRAINT prs_r_mld_typeopdr_key REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
@@ -161,30 +185,48 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
         VARCHAR2(512),
     prs_bedrijfadres_ordermode /* bitwise, TBD */
         NUMBER(3)  DEFAULT 0,
+    prs_bedrijfadres_soapversion /* future use, eg 1.1 or 1.2 */
+        VARCHAR2(10),
+    prs_bedrijfadres_soapaction
+        VARCHAR2(128),
     prs_bedrijfadres_certificate
         VARCHAR2(255),
     prs_bedrijfadres_xsl
         VARCHAR2(256),
     prs_bedrijfadres_ext
         VARCHAR2(10),
-    prs_bedrijfadres_username /* future use */
+    prs_bedrijfadres_username
         VARCHAR2(32),
-    prs_bedrijfadres_password /* future use */
+    prs_bedrijfadres_password
         VARCHAR2(32),
+    prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, >4=future use */
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL,
     prs_bedrijfadres_attachfile
         VARCHAR2(256),
     prs_bedrijfadres_flexfiles /* 0=default (volgens S("puo_order_flexfiles")), 1=wel, 2=niet */
-        NUMBER(3) 
-        DEFAULT 0 
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL,
+    prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data */
+        NUMBER(3)
+        DEFAULT 0
         NOT NULL
 );
 
 CREATE_TABLE(prs_kostenplaatsgrp,0) (
    prs_kostenplaatsgrp_key
        NUMBER (10) PRIMARY KEY,
+   prs_kostenplaatsgrp_nr
+       VARCHAR2(30),
    prs_kostenplaatsgrp_oms
        VARCHAR2(60)
-       NOT NULL
+       NOT NULL,
+   prs_kostenplaatsgrp_limiet
+       NUMBER(8),
+   prs_kostenplaatsgrp_limperiode /* 0(of NULL)=geen(oneindig), 1=maand, 2=jaar */
+       NUMBER(1)
 --,   prs_perslid_key
 --       NUMBER(10)
 --       CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key)
@@ -223,6 +265,11 @@ CREATE_TABLE(prs_kostenplaats,0) (
    prs_kostenplaats_extern -- 0=intern, 1=extern (gebruikt bij prijsberekeningen)
        NUMBER(1)
        DEFAULT 0,
+   prs_kostenplaats_fiat -- 0=geen, 1=wel fiattering
+       NUMBER(1)
+       DEFAULT 1
+       CONSTRAINT prs_c_prs_kostenplaat_fiat CHECK(prs_kostenplaats_fiat IS NOT NULL)
+       CONSTRAINT prs_c_prs_kostenplaat_fiat1 CHECK(prs_kostenplaats_fiat IN (0,1)),
 CONSTRAINT prs_u_prs_kostenplaats_upper UNIQUE(prs_kostenplaats_upper, prs_kostenplaats_verwijder)
 );
 
@@ -240,6 +287,13 @@ ALTER TABLE alg_terreinsector ADD
         CONSTRAINT alg_r_prs_afdeling_kostenp2 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
 );
 
+ALTER TABLE ins_srtcontrole ADD
+(
+    prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
+);
+
 /* disciplineafhankelijke afdelingsbudgetten (=kostenplaatsbudgetten),
  * vergelijkbaar met fac_profielwaarde voor persoonlijke budgetten
  * als prs_kostenplaats_limiet gevuld is, dan wordt die gebruikt
@@ -273,10 +327,10 @@ CREATE_TABLE(prs_afdeling,0)
         NUMBER(10)
         CONSTRAINT prs_r_prs_afdeling_parentkey REFERENCES prs_afdeling(prs_afdeling_key),
     prs_afdeling_naam
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_naam, prs_c_prs_afdeling_naam),
     prs_afdeling_upper
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_upper, prs_c_prs_afdeling_upper),
     prs_afdeling_omschrijving
         VARCHAR2(60),
@@ -305,6 +359,12 @@ ALTER TABLE alg_terreinsector ADD
        NUMBER(10)
        CONSTRAINT alg_r_prs_afdeling1 REFERENCES prs_afdeling(prs_afdeling_key)
 );
+ALTER TABLE fac_idp ADD
+(
+    prs_afdeling_key
+       NUMBER(10)
+       CONSTRAINT alg_r_idp_prs_afdeling REFERENCES prs_afdeling(prs_afdeling_key) ON DELETE CASCADE
+);
 
 CREATE_TABLE(prs_srtperslid,0)
 (
@@ -442,6 +502,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
@@ -506,6 +570,13 @@ CREATE_TABLE(prs_perslid,0)
         DEFAULT NULLDATUM,
     prs_perslid_options // JSON
         VARCHAR2(4000),
+    prs_perslid_credentials_datum /* wanneer voor het laatst gewijzigd. Oudere sessie ongeldig */
+        DATE
+        DEFAULT SYSDATE NOT NULL,
+    prs_perslid_terms_datum
+        DATE,
+    prs_perslid_terms_version /* filename of accepted terms of condition */
+        VARCHAR2(200),
     CONSTRAINT prs_c_prs_perslid_datums CHECK(prs_perslid_einddatum >= prs_perslid_ingangsdatum)
 );
 
@@ -574,17 +645,36 @@ ALTER TABLE fac_bookmark ADD (
         NUMBER(10)
         CONSTRAINT fac_r_prs_perslid_key4 REFERENCES prs_perslid(prs_perslid_key)
 );
+ALTER TABLE fac_menu ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key)
+);
 ALTER TABLE fac_qvw_ticket ADD (
     prs_perslid_key
         NUMBER(10)
         CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
-ALTER TABLE alg_gebouw ADD
-(
+ALTER TABLE fac_usrrap ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+ALTER TABLE fac_gui_counter ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
+
+ALTER TABLE alg_gebouw ADD (
     prs_perslid_key_verantw
         NUMBER(10)
-        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key)
+        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
+    prs_perslid_key_verantw2
+        NUMBER(10)
+        CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
 );
+
 ALTER TABLE prs_kostenplaatsgrp ADD
 (
    prs_perslid_key
@@ -606,6 +696,19 @@ ALTER TABLE fac_import ADD
      CONSTRAINT fac_r_prs_perslid_key5 REFERENCES prs_perslid(prs_perslid_key)
 );
 
+ALTER TABLE ins_deel
+ADD
+(    prs_perslid_key_beh
+        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 */
@@ -617,6 +720,19 @@ ADD
         CONSTRAINT ins_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
 );
 
+ALTER TABLE fac_kenmwaarden
+ADD
+(
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key8 REFERENCES prs_perslid(prs_perslid_key),
+        CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL)
+);
+
+ALTER TABLE fac_kenmwaarden
+ADD
+CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key);
+
 ALTER TABLE fac_setting ADD
 (
    prs_perslid_key
@@ -750,7 +866,7 @@ CREATE_TABLE(prs_kenmerk,0)
     ,prs_kenmerk_kenmerktype
         VARCHAR2(1)
         CONSTRAINT prs_c_prs_kenmerk_type2 CHECK
-         (prs_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l'))
+         (prs_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,prs_kenmerk_systeem
         NUMBER(1)
     ,prs_kenmerk_toonbaar
@@ -763,6 +879,7 @@ CREATE_TABLE(prs_kenmerk,0)
         NUMBER(1)
     ,prs_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,prs_kenmerk_lengte
         NUMBER(4)
     ,prs_kenmerk_dec
@@ -835,9 +952,11 @@ prs_contactpersoon_fax
 prs_contactpersoon_email
     VARCHAR2(50),
 prs_contactpersoon_functie
-    VARCHAR2(30),
+    VARCHAR2(60),
 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),
@@ -923,7 +1042,9 @@ CREATE_TABLE(prs_kostensoortgrp,0) (
        NUMBER (10) PRIMARY KEY,
    prs_kostensoortgrp_oms
        VARCHAR2(60)
-       NOT NULL
+       NOT NULL,
+   prs_kostensoortgrp_altcode
+       VARCHAR2(60)
 );
 
 CREATE_TABLE(prs_kostensoort,0) (
@@ -951,7 +1072,9 @@ CREATE_TABLE(prs_kostensoort,0) (
        NUMBER(10)
        CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key) ON DELETE SET NULL,
    prs_kostensoort_aanmaak
-       DATE DEFAULT SYSDATE
+       DATE DEFAULT SYSDATE,
+   prs_kostensoort_altcode
+       VARCHAR2(60)
 );
 
 ALTER TABLE ins_tab_discipline ADD

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
@@ -218,16 +221,23 @@ BEGIN
         EXCEPTION
             WHEN OTHERS THEN NULL;
         END;
-        -- FSN#672 Unieke prs_perslid_oslogin behouden
+        -- Wis alle authenticatiemogelijkheden
        :new.prs_perslid_oslogin := '';
        :new.prs_perslid_oslogin2 := '';
+       :new.prs_perslid_apikey := NULL;
+       -- And do what prs.setpassword(:new.prs_perslid_key, NULL) would do:
+       :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
+         :new.prs_perslid_credentials_datum := SYSDATE;
          DELETE FROM fac_session
                WHERE prs_perslid_key = :new.prs_perslid_key;
       END IF;
@@ -239,10 +249,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
@@ -307,16 +318,22 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(prs_t_prs_bedrijf_B_I)
+BEFORE INSERT ON prs_bedrijf
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(prs_bedrijf_key,prs_s_prs_alluitvoerende_keys);
+    UPDATE_AANMAAKDATUM(prs_bedrijf, prs_bedrijf_aanmaak);
+END;
+/
+
 CREATE_TRIGGER(prs_t_prs_bedrijf_B_IU)
 BEFORE INSERT OR UPDATE ON prs_bedrijf
 FOR EACH ROW
 BEGIN
-
-    UPDATE_PRIMARY_KEY(prs_bedrijf_key,prs_s_prs_alluitvoerende_keys);
     UPDATE_UPPER(prs_bedrijf_naam,prs_bedrijf_naam_upper,prs_bedrijf);
     SET_VERWIJDER_CHILDREN(prs_srtperslid, prs_bedrijf_key,
             prs_bedrijf_verwijder, prs_srtperslid_verwijder,prs_bedrijf);
-    UPDATE_AANMAAKDATUM(prs_bedrijf, prs_bedrijf_aanmaak);
 
     // Niet verwijderen als nog MLD_OPDRs zijn met status 'Uitgegeven' en
     // uitvoerende dit bedrijf
@@ -397,17 +414,15 @@ BEGIN
       APPLICATION_ERROR(-20003, 'ALG_M238');
    END IF;
 
-   IF (:new.prs_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.prs_kenmerk_lengte IS NULL
+   IF :new.prs_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.prs_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
-   IF :new.prs_kenmerk_kenmerktype = 'N'
-   AND :new.prs_kenmerk_lengte > 20
+   IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :new.prs_kenmerk_lengte > 20
    THEN
       :new.prs_kenmerk_lengte := 20;
    END IF;
-   IF :new.prs_kenmerk_kenmerktype = 'N' AND :old.prs_kenmerk_key IS NOT NULL
+   IF :new.prs_kenmerk_kenmerktype IN ('N', 'B') AND :old.prs_kenmerk_key IS NOT NULL
    THEN
      -- An existing property of type N
      IF :old.prs_kenmerk_nmin <> :new.prs_kenmerk_nmin OR
@@ -567,7 +582,7 @@ BEGIN
                APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -775,6 +790,16 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(prs_t_prs_relatietype_B_IU)
+BEFORE INSERT OR UPDATE ON prs_relatietype
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(prs_relatietype_key, prs_s_prs_relatietype_key);
+  CHECK_NOG_REFERENCES(prs_relatietype, prs_relatietype_verwijder, prs_v_aanwezigbedrijf,
+                       prs_relatietype_key, 'PRS_M182');
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif