FSN#34433 C versie

svn path=/Database/branches/DB26/; revision=26980

ADM/ADM_PAC.SRC

@@ -5,7 +5,10 @@
 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 trydrop (n IN VARCHAR2);
+   PROCEDURE tryalter (n IN VARCHAR2);
 END adm;
 /
 
@@ -15,8 +18,6 @@ AS
    AS
       revisionnr VARCHAR2 (60);
       scriptname VARCHAR2 (60);
-      d1 adm_tracking.adm_tracking_name%TYPE;
-      d2 adm_tracking.adm_tracking_revision%TYPE;
    BEGIN
       -- Als force = 1 dan wordt onvoorwaardelijk getrackt, anders
       -- wordt niet getrackt als deze (n,r) al eerder werd getrackt
@@ -49,6 +50,47 @@ AS
       END IF;
    END;
 
+   -- Voor SVN is dit handiger, vereist alleen de svn-id string
+   -- ($Id$)
+   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER)
+   AS
+      revisionnr VARCHAR2 (60);
+      scriptname VARCHAR2 (60);
+      tempstr VARCHAR2 (60);
+   BEGIN
+      -- op het gemakje ontleden
+      tempstr := REPLACE (svnid, '$Id: ', '');
+      tempstr := RTRIM(SUBSTR(tempstr, 1, instr(tempstr, ' ', 1, 2)));
+      -- is nu: ADM_PAC.SRC 19151
+      scriptname := RTRIM(SUBSTR(tempstr, 1, instr(tempstr, ' ', 1, 1)));  -- ADM_PAC
+      revisionnr := SUBSTR(tempstr, instr(tempstr, ' ', 1, 1) + 1);   -- 19151
+      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;
+
+   -- 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)
@@ -58,19 +100,49 @@ AS
        stmt := 'DROP ' || n;
 
        EXECUTE IMMEDIATE stmt;
+       DBMS_OUTPUT.put_line ('Found, successfully dropped: ' || n);
    EXCEPTION
        WHEN OTHERS
        THEN
           IF SQLCODE IN (-942, -1418, -2289, -4043, -4080)
           THEN
              -- did not exist, voor table, view, index, sequence, object and trigger
+             DBMS_OUTPUT.put_line ('Not found, no need to drop:  ' || n);
              NULL;
           ELSE
              raise_application_error (-20001, 'Error trying to DROP ' || n || ': ' || SQLERRM);
           END IF;
    END;
 
+   -- DDL. Probeert een object (TABLE, INDEX e.d.) te alteren, maar moppert niet als die niet bestond
+   -- Hiermee voorkomen we foutmeldingen in logfiles die niet erg zijn
+   PROCEDURE tryalter (n IN VARCHAR2)
+   AS
+       stmt VARCHAR2 (1000);
+   BEGIN
+       stmt := 'ALTER ' || n;
+
+       EXECUTE IMMEDIATE stmt;
+       DBMS_OUTPUT.put_line ('Found, successfully altered: ' || n);
+   EXCEPTION
+       WHEN OTHERS
+       THEN
+          IF SQLCODE IN (-904, -942, -1418, -2289, -4043, -4080, -2443)
+          THEN
+             -- 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, -1442)
+          THEN
+             -- object or not-null property already exist
+             DBMS_OUTPUT.put_line ('Already exists, not altered:     ' || n);
+             NULL;
+          ELSE
+             raise_application_error (-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM);
+          END IF;
+   END;
+
 END adm;
 /
 
-REGISTERRUN('$Workfile: ADM_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')

ALG/ALG_IND.SRC

@@ -20,4 +20,4 @@ create index alg_i_alg_ruimte3 on alg_ruimte(alg_ruimte_key, alg_ruimte_nr);
 // speciaal tbv ins_v_alg_overzicht:
 CREATE INDEX alg_i_alg_ruimte4 on alg_ruimte(alg_verdieping_key,alg_ruimte_key, alg_ruimte_upper_nr, alg_ruimte_nr);
 
-REGISTERONCE('$Workfile: ALG_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')

ALG/ALG_INI.SRC

@@ -12,4 +12,4 @@ DEF_FAC_MESSAGE ('ALG_OPENST_RES_V', 'heeft niet-verwerkte voorzieningsreserveri
 DEF_FAC_MESSAGE ('ALG_TOEK_AFSPRAAK', 'heeft toekomstige afspraak', '');
 DEF_FAC_MESSAGE ('ALG_OPEN_CONTRACT', 'heeft lopend contract', '');
 
-REGISTERONCE('$Workfile: ALG_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')

ALG/ALG_PAC.SRC

@@ -0,0 +1,74 @@
+#ifdef ALG
+/*
+ *  $Revision$
+ *  $Id$
+ */
+
+CREATE OR REPLACE PACKAGE alg
+AS
+  PROCEDURE upsertkenmerk (p_kenmerk_key   IN NUMBER,
+                           p_alg_key       IN NUMBER,
+                           p_waarde        IN VARCHAR2);
+END alg;
+/
+
+CREATE OR REPLACE PACKAGE BODY alg
+AS
+    -- Er wordt nu niet getrackt (wat eigenlijk niet zo goed is)
+    PROCEDURE upsertkenmerk (p_kenmerk_key   IN NUMBER,
+                             p_alg_key       IN NUMBER,
+                             p_waarde        IN VARCHAR2)
+    AS
+        v_count    NUMBER;
+        v_niveau   VARCHAR2 (1);
+    BEGIN
+        -- niveau van prs_kenmerk ophalen, omdat deze ook in prs_kenmerklink wordt opgeslagen
+        SELECT alg_kenmerk_niveau
+          INTO v_niveau
+          FROM alg_kenmerk
+         WHERE alg_kenmerk_key = p_kenmerk_key;
+
+        -- Is er al een actuele waarde?
+        SELECT COUNT ( * )
+          INTO v_count
+          FROM alg_onrgoedkenmerk
+         WHERE     alg_onrgoed_key = p_alg_key
+               AND alg_kenmerk_key = p_kenmerk_key
+               AND alg_onrgoedkenmerk_verwijder IS NULL;
+
+        IF v_count = 1
+        THEN
+            IF p_waarde IS NULL
+            THEN
+                -- Wissen bestaande waarde
+                DELETE alg_onrgoedkenmerk
+                 WHERE     alg_onrgoed_key = p_alg_key
+                       AND alg_kenmerk_key = p_kenmerk_key
+                       AND alg_onrgoedkenmerk_verwijder IS NULL;
+            ELSE
+                -- Bijwerken bestaande waarde
+                UPDATE alg_onrgoedkenmerk
+                   SET alg_onrgoedkenmerk_waarde = p_waarde
+                 WHERE     alg_onrgoed_key = p_alg_key
+                       AND alg_kenmerk_key = p_kenmerk_key
+                       AND alg_onrgoedkenmerk_verwijder IS NULL;
+            END IF;
+        ELSE
+            IF p_kenmerk_key IS NOT NULL AND p_waarde IS NOT NULL
+            THEN
+                -- Registreren waarde
+                INSERT INTO alg_onrgoedkenmerk (alg_kenmerk_key,
+                                                alg_onrgoed_key,
+                                                alg_onrgoed_niveau,
+                                                alg_onrgoedkenmerk_waarde)
+                    VALUES (p_kenmerk_key,
+                            p_alg_key,
+                            v_niveau,
+                            p_waarde);
+            END IF;
+        END IF;
+    END;
+END alg;
+/
+REGISTERRUN('$Id$')
+#endif // ALG

ALG/ALG_TAB.SRC

@@ -60,10 +60,10 @@ CREATE_TABLE(alg_locatie,0)
         VARCHAR2(10)
         NOT_NULL(alg_locatie_code, alg_c_alg_locatie_code),
     alg_locatie_omschrijving
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(alg_locatie_omschrijving, alg_c_alg_locatie_omschrijving),
     alg_locatie_upper
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(alg_locatie_upper, alg_c_alg_locatie_upper),
     alg_locatie_aanmaak
         DATE
@@ -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
@@ -272,6 +272,10 @@ 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
+--    prs_perslid_key_verantw
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
     alg_gebouw_dwgx
         NUMBER(10,3),
     alg_gebouw_dwgy
@@ -287,8 +291,8 @@ CREATE_TABLE(alg_gebouw,0)
     alg_gebouw_werkdagen
         NUMBER(1)
         DEFAULT 1
-        CONSTRAINT alg_c_alg_gebouw_week CHECK(alg_gebouw_werkdagen IS NULL
-                                           OR alg_gebouw_werkdagen = 1),
+        NOT_NULL(alg_gebouw_werkdagen, alg_c_gebouw_werkdagen)
+        CONSTRAINT alg_c_alg_gebouw_werk CHECK(alg_gebouw_werkdagen IN (0,1)),
     alg_gebouw_bez
         NUMBER(1)
         DEFAULT 1
@@ -346,10 +350,10 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(10)
         CONSTRAINT alg_k_alg_srtruimte_key PRIMARY KEY,
     alg_srtruimte_omschrijving
-        VARCHAR2(30)
+        VARCHAR2(50)
         NOT_NULL(alg_srtruimte_omschrijving, alg_c_alg_srtruimte_omschr),
     alg_srtruimte_upper
-        VARCHAR2(30)
+        VARCHAR2(50)
         NOT_NULL(alg_srtruimte_upper, alg_c_alg_srtruimte_upper),
     alg_srtruimte_code
         VARCHAR2(10),
@@ -378,10 +382,14 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(1)
         CONSTRAINT alg_c_prs_verhuurbaar CHECK(prs_verhuurbaar IS NULL
                                             OR prs_verhuurbaar = 1 ),
-    CONSTRAINT alg_c_prs_werkplek_verhuurbaar CHECK(NOT(prs_bevat_werkplek = 1
+    alg_srtruimte_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        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)
 (
@@ -468,6 +476,14 @@ CREATE_TABLE(alg_ruimte,0)
         NUMBER(8,2),
     alg_ruimte_opp_gevelbekleding
         NUMBER(8,2),
+    alg_ruimte_beginuur
+        NUMBER(5,2),
+    alg_ruimte_einduur
+        NUMBER(5,2),
+    alg_ruimte_werkdagen
+        NUMBER(1)
+        -- DEFAULT NULL op gebouw terugvallen
+        CONSTRAINT alg_c_alg_ruimte_werk CHECK(alg_ruimte_werkdagen IN (0,1)),
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -524,6 +540,7 @@ CREATE_TABLE(alg_kenmerk,0)
                AND alg_kenmerk_niveau IN ('R','V','G','T','L','D'))
     ,alg_kenmerk_volgnr
         NUMBER(3)
+        NOT NULL
     ,alg_kenmerk_omschrijving
         VARCHAR2(50)
     ,alg_kenmerk_upper
@@ -547,6 +564,9 @@ CREATE_TABLE(alg_kenmerk,0)
        VARCHAR2(255)
     ,alg_kenmerk_verplicht
        NUMBER(1)
+    ,alg_kenmerk_groep
+        NUMBER(1)
+       DEFAULT 0 NOT NULL
     ,alg_kenmerk_lengte
         NUMBER(4)
     ,alg_kenmerk_dec
@@ -567,4 +587,4 @@ CREATE_TABLE(alg_kenmerk,0)
         DEFAULT NULLDATUM
 );
 
-REGISTERONCE('$Workfile: ALG_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')

ALG/ALG_TRI.SRC

@@ -304,7 +304,7 @@ BEGIN
           INTO dummy
           FROM alg_srtruimte ALG_SR_1,
                alg_srtruimte ALG_SR_2,
-               all_v_aanwezigwerkplek PRS_W
+               prs_werkplek PRS_W
           WHERE ALG_SR_1.alg_srtruimte_key = :old.alg_srtruimte_key
             AND ALG_SR_1.prs_bevat_werkplek = 1
             AND ALG_SR_2.alg_srtruimte_key = :new.alg_srtruimte_key
@@ -429,10 +429,8 @@ BEGIN
          SET alg_onrgoed_keys = :NEW.alg_verdieping_key
        WHERE alg_onrgoed_keys = :NEW.alg_ruimte_key AND bez_afspraak_datum > SYSDATE;
 
-       UPDATE prs_werkplek
-       SET    prs_werkplek_verwijder = :new.alg_ruimte_verwijder
-       WHERE  prs_werkplek.prs_alg_ruimte_key = :new.alg_ruimte_key
-       AND    prs_werkplek_verwijder IS NULL;
+       DELETE FROM prs_werkplek
+        WHERE prs_werkplek.prs_alg_ruimte_key = :new.alg_ruimte_key;
 
     END IF;
 
@@ -455,6 +453,12 @@ BEGIN
    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
+   THEN
+      :new.alg_kenmerk_lengte := 20;
+   END IF;
    IF :new.alg_kenmerk_kenmerktype = 'N' AND :old.alg_kenmerk_key IS NOT NULL
    THEN
      IF :old.alg_kenmerk_nmin <> :new.alg_kenmerk_nmin OR
@@ -549,7 +553,7 @@ BEGIN
          KenmerkNMin     alg_kenmerk.alg_kenmerk_nmin%TYPE;
          KenmerkNMax     alg_kenmerk.alg_kenmerk_nmax%TYPE;
          RefKenmerkKey   NUMBER(10);
-         NumberWaarde    NUMBER(15,5);
+         NumberWaarde    NUMBER(25,5);
          FormatMask      VARCHAR2(60);
          KenmerkWaarde   alg_onrgoedkenmerk.alg_onrgoedkenmerk_waarde%TYPE;
       BEGIN
@@ -695,4 +699,4 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: ALG_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')

ALG/ALG_VIE.SRC

@@ -473,57 +473,57 @@ AS SELECT ALG_R.alg_ruimte_key
 CREATE_VIEW(alg_v_my_room, 0) AS
    SELECT DISTINCT r.alg_ruimte_key, r.alg_verdieping_key, pl.prs_perslid_key
               FROM alg_ruimte r,
-                   prs_v_aanwezigperslidwerkplek pl,
-                   prs_v_aanwezigwerkplek wp
+                   prs_perslidwerkplek pl,
+                   prs_werkplek wp
              WHERE r.alg_ruimte_key = wp.prs_alg_ruimte_key
                AND pl.prs_werkplek_key = wp.prs_werkplek_key;
 
 CREATE_VIEW(alg_v_my_floor, 0) AS
   SELECT v.alg_verdieping_key,
          alg_gebouw_key,
-     prs_perslid_key
+         r.prs_perslid_key
     FROM alg_v_my_room r, alg_verdieping v
    WHERE r.alg_verdieping_key = v.alg_verdieping_key;
 
 CREATE_VIEW(alg_v_my_building, 0) AS
   SELECT f.alg_gebouw_key,
          alg_locatie_key,
-     prs_perslid_key
+         f.prs_perslid_key
     FROM alg_v_my_floor f, alg_gebouw b
    WHERE f.alg_gebouw_key = b.alg_gebouw_key;
 
 CREATE_VIEW(alg_v_my_location, 0) AS
   SELECT b.alg_locatie_key,
          l.alg_district_key,
-     prs_perslid_key
+         b.prs_perslid_key
     FROM alg_v_my_building b, alg_locatie l
    WHERE b.alg_locatie_key = l.alg_locatie_key;
 
 CREATE_VIEW(alg_v_my_district, 0) AS
   SELECT l.alg_district_key,
          alg_regio_key,
-     prs_perslid_key
+         l.prs_perslid_key
     FROM alg_v_my_location l, alg_district d
    WHERE l.alg_district_key = d.alg_district_key;
 
 CREATE_VIEW(alg_v_my_region, 0) AS
   SELECT alg_regio_key,
-     prs_perslid_key
+         prs_perslid_key
     FROM alg_v_my_district;
 
 
 CREATE_VIEW(fac_v_my_regions, 0)
-       (alg_regio_key,
+   (alg_regio_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_regio_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
@@ -537,28 +537,28 @@ UNION
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
-  prs_perslid_key,
-  1
+        prs_perslid_key,
+        1
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
-  prs_perslid_key,
-  0
+        prs_perslid_key,
+        0
    FROM alg_v_my_region;
 
 
 CREATE_VIEW(fac_v_my_districts, 0)
-       (alg_district_key,
+   (alg_district_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_district_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
@@ -572,29 +572,29 @@ UNION
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
-  prs_perslid_key,
-  1
+        prs_perslid_key,
+        1
    FROM alg_v_my_district d
 UNION
  SELECT alg_district_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_district d, alg_v_my_region ro
   WHERE ro.alg_regio_key = d.alg_regio_key;
 
 
 CREATE_VIEW(fac_v_my_locations, 0)
-       (alg_locatie_key,
+   (alg_locatie_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_locatie_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_location
 UNION
  SELECT alg_locatie_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_location
 UNION
  SELECT alg_locatie_key,
@@ -608,31 +608,31 @@ UNION
    FROM alg_v_my_location
 UNION
  SELECT l.alg_locatie_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l
   WHERE l.alg_district_key= d.alg_district_key
 UNION
  SELECT l.alg_locatie_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_locatie l, alg_district d, alg_v_my_region ro
   WHERE l.alg_district_key= d.alg_district_key
     AND ro.alg_regio_key = d.alg_regio_key;
 
 
 CREATE_VIEW(fac_v_my_buildings, 0)
-       (alg_gebouw_key,
+   (alg_gebouw_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_gebouw_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_building
 UNION
  SELECT alg_gebouw_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_building
 UNION
  SELECT alg_gebouw_key,
@@ -641,21 +641,21 @@ UNION
    FROM alg_v_my_building
  UNION
  SELECT alg_gebouw_key,
-        prs_perslid_key,
+        l.prs_perslid_key,
         2
    FROM alg_v_my_location l, alg_gebouw g
   WHERE g.alg_locatie_key = l.alg_locatie_key
 UNION
  SELECT g.alg_gebouw_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw g
   WHERE d.alg_district_key = l.alg_district_key
     AND g.alg_locatie_key = l.alg_locatie_key
 UNION
  SELECT g.alg_gebouw_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_gebouw g, alg_locatie l, alg_district d
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND l.alg_district_key= d.alg_district_key
@@ -663,83 +663,82 @@ UNION
 
 
 CREATE_VIEW(fac_v_my_floors, 0)
-       (alg_verdieping_key,
+   (alg_verdieping_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_verdieping_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_floor
 UNION
  SELECT alg_verdieping_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_floor
 UNION
  SELECT v.alg_verdieping_key,
-        prs_perslid_key,
+        b.prs_perslid_key,
         3
    FROM alg_v_my_building b, alg_verdieping v
   WHERE b.alg_gebouw_key = v.alg_gebouw_key
  UNION
  SELECT v.alg_verdieping_key,
-        prs_perslid_key,
+        l.prs_perslid_key,
         2
    FROM alg_v_my_location l, alg_gebouw g, alg_verdieping v
   WHERE l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_key = v.alg_gebouw_key
 UNION
  SELECT v.alg_verdieping_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw g, alg_verdieping v
   WHERE d.alg_district_key = l.alg_district_key
     AND l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_key = v.alg_gebouw_key
 UNION
  SELECT v.alg_verdieping_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND d.alg_district_key= l.alg_district_key
     AND l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_key = v.alg_gebouw_key;
 
-
 CREATE_VIEW(fac_v_my_rooms, 0)
-       (alg_ruimte_key,
+   (alg_ruimte_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_room
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  4
+        f.prs_perslid_key,
+        4
    FROM alg_v_my_floor f, alg_ruimte r
   WHERE f.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  3
+        b.prs_perslid_key,
+        3
    FROM alg_v_my_building b, alg_verdieping v, alg_ruimte r
   WHERE b.alg_gebouw_key = v.alg_gebouw_key
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  2
+        l.prs_perslid_key,
+        2
    FROM alg_v_my_location l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE l.alg_locatie_key = b.alg_locatie_key
     AND b.alg_gebouw_key = v.alg_gebouw_key
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE d.alg_district_key = l.alg_district_key
     AND l.alg_locatie_key = b.alg_locatie_key
@@ -747,8 +746,8 @@ UNION
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_district d, alg_locatie l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND d.alg_district_key = l.alg_district_key
@@ -756,6 +755,86 @@ UNION
     AND b.alg_gebouw_key = v.alg_gebouw_key
     AND v.alg_verdieping_key = r.alg_verdieping_key;
 
+-- Zwaar geoptimaliseerd FSN#25609
+-- 5.4.1 toch weer terug naar bovenstaande originele
+-- Deze even een versie laten staan om relatief simpel terug te kunnen
+CREATE_VIEW(fac_v_my_rooms11, 0)
+(
+   ALG_RUIMTE_KEY,
+   PRS_PERSLID_KEY,
+   NIVEAU
+)
+AS
+WITH avmr -- alg_v_my_room
+        AS (SELECT DISTINCT
+                   r.alg_ruimte_key, r.alg_verdieping_key, pl.prs_perslid_key
+              FROM alg_ruimte r,
+                   prs_perslidwerkplek pl,
+                   prs_werkplek wp
+             WHERE r.alg_ruimte_key = wp.prs_alg_ruimte_key
+                   AND pl.prs_werkplek_key = wp.prs_werkplek_key),
+     avmf -- alg_v_my_floor
+        AS (SELECT v.alg_verdieping_key, alg_gebouw_key, r.prs_perslid_key
+                FROM avmr r, alg_verdieping v
+               WHERE r.alg_verdieping_key = v.alg_verdieping_key),
+     avmb -- alg_v_my_building
+        AS (SELECT f.alg_gebouw_key, alg_locatie_key, f.prs_perslid_key
+                FROM avmf f, alg_gebouw b
+               WHERE f.alg_gebouw_key = b.alg_gebouw_key),
+     avml -- alg_v_my_location
+        AS (SELECT b.alg_locatie_key, l.alg_district_key, b.prs_perslid_key
+                FROM avmb b, alg_locatie l
+               WHERE b.alg_locatie_key = l.alg_locatie_key),
+     avmd -- alg_v_my_district
+        AS (SELECT l.alg_district_key, alg_regio_key, l.prs_perslid_key
+                FROM avml l, alg_district d
+               WHERE l.alg_district_key = d.alg_district_key),
+     avmrr -- alg_v_my_region
+        AS (SELECT alg_regio_key, prs_perslid_key FROM avmd)
+SELECT alg_ruimte_key, prs_perslid_key, 5 FROM avmr
+UNION ALL
+SELECT alg_ruimte_key, f.prs_perslid_key, 4
+  FROM avmf f, alg_ruimte r
+ WHERE f.alg_verdieping_key = r.alg_verdieping_key
+UNION ALL
+SELECT alg_ruimte_key, b.prs_perslid_key, 3
+  FROM avmb b, alg_verdieping v, alg_ruimte r
+ WHERE b.alg_gebouw_key = v.alg_gebouw_key
+       AND v.alg_verdieping_key = r.alg_verdieping_key
+UNION ALL
+SELECT alg_ruimte_key, l.prs_perslid_key, 2
+  FROM avml l,
+       alg_gebouw b,
+       alg_verdieping v,
+       alg_ruimte r
+ WHERE     l.alg_locatie_key = b.alg_locatie_key
+       AND b.alg_gebouw_key = v.alg_gebouw_key
+       AND v.alg_verdieping_key = r.alg_verdieping_key
+UNION ALL
+SELECT alg_ruimte_key, d.prs_perslid_key, 1
+  FROM avmd d,
+       alg_locatie l,
+       alg_gebouw b,
+       alg_verdieping v,
+       alg_ruimte r
+ WHERE     d.alg_district_key = l.alg_district_key
+       AND l.alg_locatie_key = b.alg_locatie_key
+       AND b.alg_gebouw_key = v.alg_gebouw_key
+       AND v.alg_verdieping_key = r.alg_verdieping_key
+UNION ALL
+SELECT alg_ruimte_key, ro.prs_perslid_key, 0
+  FROM avmrr ro,
+       alg_district d,
+       alg_locatie l,
+       alg_gebouw b,
+       alg_verdieping v,
+       alg_ruimte r
+ WHERE     ro.alg_regio_key = d.alg_regio_key
+       AND d.alg_district_key = l.alg_district_key
+       AND l.alg_locatie_key = b.alg_locatie_key
+       AND b.alg_gebouw_key = v.alg_gebouw_key
+       AND v.alg_verdieping_key = r.alg_verdieping_key;
+
 DEFINIEER_VIEW_AANWEZIG(alg_srtterreinsector, alg_srtterreinsector_verwijder,
     alg_v_aanwezigsrtterreinsector,0);
 
@@ -1122,8 +1201,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
@@ -1228,6 +1307,7 @@ AS
                                              (SELECT   alg_kenmerk_key
                                                 FROM   alg_kenmerk
                                                WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%WERKPLEK%'
+                                               AND     alg_kenmerk_systeem = 1
                                                AND     alg_kenmerk_verwijder IS NULL)
                                                 AND ok.alg_onrgoed_niveau = 'R'
                                                 AND ok.alg_onrgoedkenmerk_verwijder IS NULL)
@@ -1242,6 +1322,7 @@ AS
                                              (SELECT   alg_kenmerk_key
                                                 FROM   alg_kenmerk
                                                WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%GEBRUIK%'
+                                               AND     alg_kenmerk_systeem = 1
                                                AND     alg_kenmerk_verwijder IS NULL)
                                           AND ok.alg_onrgoed_niveau = 'R'
                                           AND ok.alg_onrgoedkenmerk_waarde =
@@ -1256,10 +1337,11 @@ AS
                                              (SELECT   alg_kenmerk_key
                                                 FROM   alg_kenmerk
                                                WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%VLOER%'
+                                               AND     alg_kenmerk_systeem = 1
                                                AND     alg_kenmerk_verwijder IS NULL)
                                           AND ok.alg_onrgoed_niveau = 'R'
                                           AND ok.alg_onrgoedkenmerk_waarde =
-                                                ud.fac_usrdata_key) h 
+                                                ud.fac_usrdata_key) h
                              ON a.alg_ruimte_key = h.alg_onrgoed_key
                           LEFT JOIN                        -- bezettingstotaal
                              (  SELECT   ra.alg_ruimte_key,
@@ -1277,6 +1359,68 @@ AS
                           AND a.mld_adres_verwijder IS NULL) y
              ON x.alg_gebouw_key = y.alg_gebouw_key);
 
+-- Vooralsnog even rechttoerechtaan, moet aangepast worden
+CREATE_VIEW(alg_v_api_regios, 1) AS
+    SELECT alg_regio_key key,
+           alg_regio_omschrijving regioomschrijving
+      FROM alg_v_aanwezigregio;
 
+CREATE_VIEW(alg_v_api_districten, 1) AS
+    SELECT alg_district_key key,
+           alg_regio_omschrijving regioomschrijving,
+           alg_district_omschrijving districtomschrijving
+      FROM alg_v_district_gegevens;
 
-REGISTERRUN('$Workfile: ALG_VIE.SRC $','$Revision$')
+CREATE_VIEW(alg_v_api_locaties, 1) AS
+    SELECT l.alg_locatie_key key,
+           lg.alg_regio_omschrijving regioomschrijving,
+           lg.alg_district_omschrijving districtomschrijving,
+           l.alg_locatie_code locatiecode,
+           l.alg_locatie_omschrijving locatieomschrijving,
+           l.alg_locatie_adres locatieadres,
+           l.alg_locatie_postcode locatiepostcode,
+           l.alg_locatie_plaats locatieplaats,
+           l.alg_locatie_x locatiex,
+           l.alg_locatie_y locatiey
+      FROM alg_v_locatie_gegevens lg, alg_locatie l
+     WHERE lg.alg_locatie_key = l.alg_locatie_key;
+
+CREATE_VIEW(alg_v_api_gebouwen, 1) AS
+    SELECT g.alg_gebouw_key key,
+           l.alg_locatie_code locatiecode,
+           g.alg_gebouw_code gebouwcode,
+           g.alg_gebouw_naam gebouwnaam,
+           sg.alg_srtgebouw_omschrijving soortgebouw,
+           l.alg_locatie_adres locatieadres,
+           l.alg_locatie_postcode locatiepostcode,
+           l.alg_locatie_plaats locatieplaats,
+           COALESCE(l.alg_locatie_x, g.alg_gebouw_x) gebouwx,
+           COALESCE(l.alg_locatie_y, g.alg_gebouw_y) gebouwy
+      FROM alg_locatie l,
+           alg_v_aanweziggebouw g,
+           alg_v_aanwezigsrtgebouw sg
+     WHERE l.alg_locatie_key = g.alg_locatie_key AND
+           g.alg_srtgebouw_key = sg.alg_srtgebouw_key (+);
+
+CREATE_VIEW(alg_v_api_verdiepingen, 1) AS
+    SELECT alg_verdieping_key key,
+           alg_locatie_code locatiecode,
+           alg_gebouw_code gebouwcode,
+           alg_verdieping_code verdiepingcode,
+           alg_verdieping_omschrijving verdiepingomschrijving,
+           alg_verdieping_volgnr verdiepingvolgnr
+      FROM alg_v_verdieping_gegevens vg, alg_gebouw g
+     WHERE g.alg_gebouw_key = vg.alg_gebouw_key;
+
+CREATE_VIEW(alg_v_api_ruimten, 1) AS
+    SELECT alg_ruimte_key key,
+           alg_locatie_code locatiecode,
+           alg_gebouw_code gebouwcode,
+           alg_verdieping_code verdiepingcode,
+           alg_ruimte_nr ruimtecode,
+           alg_ruimte_omschrijving ruimtenaam,
+           alg_srtruimte_omschrijving soortruimte
+      FROM alg_v_ruimte_gegevens rg, alg_gebouw g
+     WHERE g.alg_gebouw_key = rg.alg_gebouw_key;
+
+REGISTERRUN('$Id$')

BES/BES_IND.SRC

@@ -16,6 +16,7 @@ create index bes_i_bes_bestelling9 on bes_bestelling (prs_perslid_key_voor);
 create index bes_i_bes_bestelling10 on bes_bestelling (bes_bestelling_kto_verstuurd);
 create index bes_i_bes_bestelling11 on bes_bestelling (bes_bestelling_parentkey);
 create index bes_i_bes_bestelling12 on bes_bestelling (mld_melding_key);
+CREATE INDEX bes_i_bes_bestelling13 ON bes_bestelling (bes_bestelling_retourvan_key);
 
 CREATE INDEX bes_i_bes_bestelling_item1 ON bes_bestelling_item(bes_bestelopdr_item_key);
 create index bes_i_bes_bestelling_item2 on bes_bestelling_item(bes_bestelling_item_status);
@@ -29,6 +30,7 @@ create index bes_i_bes_bestelopdr_datum on bes_bestelopdr(bes_bestelopdr_datum);
 create index bes_i_bes_bestelopdr_item on bes_bestelopdr_item(bes_bestelopdr_item_verwerkt);
 
 create index bes_i_bes_srtdeel1 on bes_srtdeel(bes_srtgroep_key);
+CREATE UNIQUE INDEX bes_i_bes_srtdeel2 ON bes_srtdeel(bes_srtdeel_nr, prs_bedrijf_key, bes_srtgroep_key, bes_srtdeel_verwijder);
 CREATE INDEX bes_i_bes_srtdeel_prs_bdr_key on bes_srtdeel (prs_bedrijf_key);
 CREATE INDEX bes_i_bes_bestelling_item5 ON bes_bestelling_item(bes_srtdeel_key);
 
@@ -50,6 +52,6 @@ CREATE INDEX bes_i_bes_favoriet1 ON bes_favoriet(prs_perslid_key);
 CREATE INDEX bes_i_bes_srtdeel_prijs1 ON bes_srtdeel_prijs (bes_srtdeel_key);
 CREATE INDEX bes_i_bes_srtprod_prijs1 ON bes_srtprod_prijs (bes_srtprod_key);
 
-REGISTERONCE('$Workfile: BES_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BES

BES/BES_INI.SRC

@@ -24,6 +24,6 @@ DEF_STATUS('bestelopdr', 6, 'lcl_bes_ord_geleverd');
 DEF_STATUS('bestelopdr', 7, 'lcl_bes_ord_verwerkt');
 DEF_STATUS('bestelopdr', 8, 'lcl_bes_ord_geannuleerd');
 
-REGISTERONCE('$Workfile: BES_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // BES

BES/BES_PAC.SRC

@@ -61,10 +61,12 @@ AS
    PROCEDURE setbestelopdrstatus (pbestelopdrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
    PROCEDURE updatebestellingstatus (pbestelling_key IN NUMBER, user_key IN NUMBER);
    PROCEDURE updatebestelopdrstatus (pbestelopdr_key IN NUMBER, user_key IN NUMBER);
+   PROCEDURE notifybackoffice (pbeskey IN NUMBER);
+   PROCEDURE notifybesgoedkeurders (pbeskey IN NUMBER);
    PROCEDURE acceptopdracht (pbestelopdr_key IN NUMBER, user_key IN NUMBER, presulttext IN VARCHAR2);
    PROCEDURE rejectopdracht (pbestelopdr_key IN NUMBER, user_key IN NUMBER, presulttext IN VARCHAR2);
    FUNCTION bestelopdr_tooltip (besopdrkey IN NUMBER) RETURN VARCHAR2;
-   FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number)
+   FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number, pbes_discipline IN VARCHAR2)
       RETURN varchar2;
    FUNCTION opdrsprintf (ps IN varchar2, pbes_bestelopdr_key IN number)
       RETURN varchar2;
@@ -562,7 +564,7 @@ AS
            VALUES   (p_bes_srtdeel_key, p_bes_srtdeel_prijs, p_bes_srtdeel_inkprijs
                     );                                                                                 -- geen einddatum
 
-         IF v_currentprijs IS NOT NULL AND v_currentinkprijs IS NOT NULL
+         IF v_currentprijs IS NOT NULL OR v_currentinkprijs IS NOT NULL
          THEN
             SELECT   MIN (bes_srtdeel_prijs_key)
               INTO   loldkey
@@ -737,204 +739,211 @@ AS
 
     PROCEDURE makeorders (i_userkey IN NUMBER, bes_key IN NUMBER)
     AS
-       lfound                    BOOLEAN;
-       niveau                    NUMBER (10);
-       afd_key                   NUMBER (10);
-       afd_key_temp              NUMBER (10);
-       link_key                  NUMBER (10);
-       lbord_key                 NUMBER (10);
-       lbord_id                  bes_bestelopdr.bes_bestelopdr_id%TYPE;
-       i_cnt_sum                 NUMBER (5);
-       i_price_sum               NUMBER (8, 2);
-       current_leverancier_key   NUMBER (10);
-       aantalopdrachtregels      NUMBER;
-       factura_key               mld_adres.mld_adres_key%TYPE;
-       bedrijf_email             prs_bedrijf.prs_bedrijf_email%TYPE;
-       bedrijf_telefoon2         prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
-       itemprijsmetkorting       NUMBER (12, 6);
-       besopdrachtkorting        NUMBER (8, 2);
-       besopdrachtkosten         NUMBER (8, 2);
-       bedrijfvolgnr             NUMBER (3);
-       CURSOR tebestellen
-       IS
-            SELECT   bd.prs_bedrijf_key,
-                     bd.prs_bedrijf_naam,
-                     s.bes_srtdeel_omschrijving,
-                     NVL (s.bes_srtdeel_eenheid, '') bes_srtdeel_eenheid,
-                     bes.getsrtdeelprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_prijs,
-                     s.bes_srtdeel_key,
-                     bi.bes_bestelling_item_key,
-                     bi.bes_bestelling_item_aantal,
-                     NVL (b.mld_adres_key_lev, abd.mld_adres_key_lev) mld_adres_key_lev,
-                     p.prs_afdeling_key,
-                     abd.mld_adres_key_fac,
-                     bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
-                     b.bes_bestelling_parentkey
-              FROM prs_bedrijf bd,
-                   bes_srtdeel s,
-                   bes_bestelling_item bi,
-                   bes_bestelling b,
-                   prs_perslid p,
-                   prs_v_afdeling d,
-                   prs_bedrijf abd
-             WHERE abd.prs_bedrijf_key = d.prs_bedrijf_key
-               AND p.prs_afdeling_key = d.prs_afdeling_key
-               AND b.prs_perslid_key = p.prs_perslid_key
-               AND bi.bes_bestelling_key = b.bes_bestelling_key
-               AND s.bes_srtdeel_key = bi.bes_srtdeel_key
-               AND s.prs_bedrijf_key = bd.prs_bedrijf_key
-               AND b.bes_bestelling_status IN (1, 2, 3, 4)   -- om dubbelen te vermijden
-               AND b.bes_bestelling_key = bes_key
-          ORDER BY 1, 7;
-    BEGIN
-       -- Maakt bestelopdrachten van bestelaanvragen
-       current_leverancier_key := -1;
-       bedrijfvolgnr := 0;
-       FOR rec1 IN tebestellen
-       LOOP
+      lfound                    BOOLEAN;
+      niveau                    NUMBER (10);
+      afd_key                   NUMBER (10);
+      afd_key_temp              NUMBER (10);
+      link_key                  NUMBER (10);
+      lbord_key                 NUMBER (10);
+      lbord_id                  bes_bestelopdr.bes_bestelopdr_id%TYPE;
+      i_cnt_sum                 NUMBER (5);
+      i_price_sum               NUMBER (8, 2);
+      current_leverancier_key   NUMBER (10);
+      aantalopdrachtregels      NUMBER;
+      factura_key               mld_adres.mld_adres_key%TYPE;
+      bedrijf_email             prs_bedrijf.prs_bedrijf_email%TYPE;
+      bedrijf_telefoon2         prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
+      itemprijsmetkorting       NUMBER (12, 6);
+      besopdrachtkorting        NUMBER (8, 2);
+      besopdrachtkosten         NUMBER (8, 2);
+      bedrijfvolgnr             NUMBER (3);
+      CURSOR tebestellen
+      IS
+        SELECT bd.prs_bedrijf_key,
+               bd.prs_bedrijf_naam,
+               s.bes_srtdeel_omschrijving,
+               NVL (s.bes_srtdeel_eenheid, '') bes_srtdeel_eenheid,
+               bes.getsrtdeelprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_prijs,
+               s.bes_srtdeel_key,
+               bi.bes_bestelling_item_key,
+               bi.bes_bestelling_item_aantal,
+               NVL (b.mld_adres_key_lev, abd.mld_adres_key_lev) mld_adres_key_lev,
+               p.prs_afdeling_key,
+               abd.mld_adres_key_fac,
+               bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
+               b.bes_bestelling_parentkey,
+               b.prs_perslid_key
+          FROM prs_bedrijf bd,
+               bes_srtdeel s,
+               bes_bestelling_item bi,
+               bes_bestelling b,
+               prs_perslid p,
+               prs_v_afdeling d,
+               prs_bedrijf abd
+         WHERE abd.prs_bedrijf_key = d.prs_bedrijf_key
+           AND p.prs_afdeling_key = d.prs_afdeling_key
+           AND b.prs_perslid_key = p.prs_perslid_key
+           AND bi.bes_bestelling_key = b.bes_bestelling_key
+           AND s.bes_srtdeel_key = bi.bes_srtdeel_key
+           AND s.prs_bedrijf_key = bd.prs_bedrijf_key
+           AND b.bes_bestelling_status IN (1, 2, 3, 4)   -- om dubbelen te vermijden
+           AND b.bes_bestelling_key = bes_key
+         ORDER BY 1, 7;
+      BEGIN
+        -- Maakt bestelopdrachten van bestelaanvragen
+        current_leverancier_key := -1;
+        bedrijfvolgnr := 0;
+        FOR rec1 IN tebestellen
+        LOOP
           --DBMS_OUTPUT.put_line ('Een regel');
           -- Moeten we van leverancier wisselen?
           IF current_leverancier_key <> rec1.prs_bedrijf_key
           THEN
-             BEGIN
-                --DBMS_OUTPUT.put_line ('Een nieuwe leverancier:' || TO_CHAR (rec1.prs_bedrijf_key));
-                -- Bepaal het factuuradres. Deze kan binnen 1 aanvraag verschillen als er meerdere leveranciers betrokken zijn.
-                -- Dit is het factuuradres van de leverancier indien gedefinieerd,
-                -- en zo niet, dan het factuuradres van de afdeling (daarbij zover omhoog zoeken tot gevonden)
-                -- van de aanvrager. Is die er niet, dan is het het factuuradres van het bedrijf van de aanvrager.
-                -- Er zou geen factuuraders gevonden kunnen worden, dan blijft die gewoon leeg.
-                -- Van de aanvrager:
-                factura_key := rec1.mld_adres_key_fac;
-                -- Van de leverancier:
-                SELECT mld_adres_key_fac, prs_bedrijf_email, prs_bedrijf_telefoon2
-                  INTO factura_key, bedrijf_email, bedrijf_telefoon2
-                  FROM prs_bedrijf
-                 WHERE prs_bedrijf_key = rec1.prs_bedrijf_key AND mld_adres_key_fac IS NOT NULL;
-             EXCEPTION
-                WHEN NO_DATA_FOUND
-                THEN
-                   -- Van de afdeling:
-                   SELECT a.niveau, a.prs_afdeling_key
-                     INTO niveau, afd_key
-                     FROM prs_v_aanwezigafdeling a
-                    WHERE a.prs_afdeling_key = rec1.prs_afdeling_key;
-                   lfound := FALSE;
-                   WHILE (niveau >= 1 AND NOT lfound)
-                   LOOP
-                      -- zoek kenmerk
-                      BEGIN
-                         SELECT prs_kenmerklink_waarde
-                           INTO link_key
-                           FROM prs_kenmerklink kl, prs_kenmerk k
-                          WHERE kl.prs_kenmerk_key = k.prs_kenmerk_key
-                            AND kl.prs_link_key = afd_key
-                            AND k.prs_kenmerk_key = 6
-                            AND kl.prs_kenmerklink_waarde IS NOT NULL;
-                      EXCEPTION
-                         WHEN NO_DATA_FOUND
-                         THEN
-                            link_key := NULL;
-                      END;
-                      IF link_key IS NULL
-                      THEN   -- -- kenmerk factuuradres niet aanwezig, zoek parent afdeling
-                         BEGIN
-                            SELECT a.prs_afdeling_parentkey
-                              INTO afd_key_temp
-                              FROM prs_v_aanwezigafdeling a
-                             WHERE a.prs_afdeling_key = afd_key;
-                            IF niveau != 1
-                            THEN
-                               afd_key := afd_key_temp;   -- als niveau=1 en geen kenmerk gevonden dan nog afd_key van niveau=1 nodig
-                            END IF;
-                            niveau := niveau - 1;
-                         END;
-                      ELSE
-                         lfound := TRUE;   -- kenmerk aanwezig
+            BEGIN
+              --DBMS_OUTPUT.put_line ('Een nieuwe leverancier:' || TO_CHAR (rec1.prs_bedrijf_key));
+              -- Bepaal het factuuradres. Deze kan binnen 1 aanvraag verschillen als er meerdere leveranciers betrokken zijn.
+              -- Dit is het factuuradres van de leverancier indien gedefinieerd,
+              -- en zo niet, dan het factuuradres van de afdeling (daarbij zover omhoog zoeken tot gevonden)
+              -- van de aanvrager. Is die er niet, dan is het het factuuradres van het bedrijf van de aanvrager.
+              -- Er zou geen factuuraders gevonden kunnen worden, dan blijft die gewoon leeg.
+              -- Van de aanvrager:
+              factura_key := rec1.mld_adres_key_fac;
+              -- Van de leverancier:
+              SELECT mld_adres_key_fac, prs_bedrijf_email, prs_bedrijf_telefoon2
+                INTO factura_key, bedrijf_email, bedrijf_telefoon2
+                FROM prs_bedrijf
+               WHERE prs_bedrijf_key = rec1.prs_bedrijf_key AND mld_adres_key_fac IS NOT NULL;
+            EXCEPTION
+              WHEN NO_DATA_FOUND
+              THEN
+                -- Van de afdeling:
+                SELECT a.niveau, a.prs_afdeling_key
+                  INTO niveau, afd_key
+                  FROM prs_v_aanwezigafdeling a
+                 WHERE a.prs_afdeling_key = rec1.prs_afdeling_key;
+                lfound := FALSE;
+                WHILE (niveau >= 1 AND NOT lfound)
+                LOOP
+                  -- zoek kenmerk
+                  BEGIN
+                    SELECT prs_kenmerklink_waarde
+                      INTO link_key
+                      FROM prs_kenmerklink kl, prs_kenmerk k
+                     WHERE kl.prs_kenmerk_key = k.prs_kenmerk_key
+                       AND kl.prs_link_key = afd_key
+                       AND k.prs_kenmerk_key = 6
+                       AND kl.prs_kenmerklink_waarde IS NOT NULL;
+                  EXCEPTION
+                    WHEN NO_DATA_FOUND
+                    THEN
+                      link_key := NULL;
+                  END;
+                  IF link_key IS NULL
+                  THEN   -- -- kenmerk factuuradres niet aanwezig, zoek parent afdeling
+                    BEGIN
+                      SELECT a.prs_afdeling_parentkey
+                        INTO afd_key_temp
+                        FROM prs_v_aanwezigafdeling a
+                       WHERE a.prs_afdeling_key = afd_key;
+                      IF niveau != 1
+                      THEN
+                        afd_key := afd_key_temp;    -- als niveau=1 en geen kenmerk gevonden dan nog afd_key van niveau=1 nodig
                       END IF;
-                   END LOOP;
-                   IF link_key IS NOT NULL
-                   THEN
-                      factura_key := link_key;
-                   END IF;
-             END;
-               -- factuuradres is bepaald, maak nu de opdracht aan
-               IF current_leverancier_key <> -1
-               THEN
-                  -- Afronden vorige opdracht
-                  UPDATE bes_bestelopdr
-                     SET bes_bestelopdr_item_cnt = aantalopdrachtregels,
-                         bes_bestelopdr_status = 3 -- JGL: stond hij hier nog niet op dan?
-                   WHERE bes_bestelopdr_key = lbord_key;
-                  fac.trackaction ('BES2NE',
-                                   lbord_key,
-                                   i_userkey,
-                                   NULL,
-                                   '');
-                    -- Bepaal opdrachtkorting en opdrachtkosten en sla deze op
-                  -- Met parameter 1 geven we aan dat de berekende waarde automaisch ook word opgeslagen
-                  besopdrachtkorting := bes.calcbesopdrachtkorting(lbord_key, 1);
-                  besopdrachtkosten := bes.calcbesopdrachtkosten(lbord_key, 1);
-               END IF;
-               -- Op naar de volgende
-               current_leverancier_key := rec1.prs_bedrijf_key;
-               bedrijfvolgnr := bedrijfvolgnr + 1;
-               SELECT bes_s_bes_bestelopdr_key.NEXTVAL
-                 INTO lbord_key
-                 FROM DUAL;
-               -- UWVA#13420, als zichtbaar opdrachtnummer wordt het aanvraagnummer gebruikt
-               -- Indien dit ooit anders moet, bv bundeling, dan moet alleen dit anders
-               -- Met UWVA#21074 hanteren we voor mutaties toch hetzelfde opdrachtnummer, zodat
-               -- de leverancier de link met het origineel kan vinden.
-               lbord_id := TO_CHAR(COALESCE(rec1.bes_bestelling_parentkey, bes_key))||'/'|| bedrijfvolgnr;
-               --DBMS_OUTPUT.put_line ('Bestelopdracht maken: ' || TO_CHAR (lbord_key));
-               INSERT INTO bes_bestelopdr
-                           (bes_bestelopdr_key, bes_bestelopdr_status, prs_bedrijf_key,
-                            bes_bestelopdr_datum, mld_adres_key_lev, mld_adres_key_fac,
-                            prs_perslid_key,
-                            bes_bestelopdr_item_cnt, bes_bestelopdr_item_cnt_lev, bes_bestelopdr_id
-                           )
-                    VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
-                            SYSDATE, rec1.mld_adres_key_lev, factura_key,
-                            i_userkey,
-                            0, 0, lbord_id
-                           );
-               aantalopdrachtregels := 0;
+                      niveau := niveau - 1;
+                    END;
+                  ELSE
+                    lfound := TRUE;     -- kenmerk aanwezig
+                  END IF;
+                END LOOP;
+                IF link_key IS NOT NULL
+                THEN
+                  factura_key := link_key;
+                END IF;
+            END;
+            -- factuuradres is bepaald, maak nu de opdracht aan
+            IF current_leverancier_key <> -1
+            THEN
+               -- Afronden vorige opdracht
+               UPDATE bes_bestelopdr
+                  SET bes_bestelopdr_status = 3 -- JGL: stond hij hier nog niet op dan?
+                WHERE bes_bestelopdr_key = lbord_key;
+               fac.trackaction ('BES2NE',
+                        lbord_key,
+                        i_userkey,
+                        NULL,
+                        '');
+               -- Bepaal opdrachtkorting en opdrachtkosten en sla deze op
+               -- Met parameter 1 geven we aan dat de berekende waarde automaisch ook word opgeslagen
+               besopdrachtkorting := bes.calcbesopdrachtkorting(lbord_key, 1);
+               besopdrachtkosten := bes.calcbesopdrachtkosten(lbord_key, 1);
+               UPDATE bes_bestelopdr
+                  SET bes_bestelopdr_levkosten = besopdrachtkosten
+                    , bes_bestelopdr_korting = besopdrachtkorting
+                WHERE bes_bestelopdr_key = lbord_key;
+            END IF;
+            -- Op naar de volgende
+            current_leverancier_key := rec1.prs_bedrijf_key;
+            bedrijfvolgnr := bedrijfvolgnr + 1;
+            SELECT bes_s_bes_bestelopdr_key.NEXTVAL
+              INTO lbord_key
+              FROM DUAL;
+            -- UWVA#13420, als zichtbaar opdrachtnummer wordt het aanvraagnummer gebruikt
+            -- Indien dit ooit anders moet, bv bundeling, dan moet alleen dit anders
+            -- Met UWVA#21074 hanteren we voor mutaties toch hetzelfde opdrachtnummer, zodat
+            -- de leverancier de link met het origineel kan vinden.
+            lbord_id := TO_CHAR(COALESCE(rec1.bes_bestelling_parentkey, bes_key))||'/'|| bedrijfvolgnr;
+            --DBMS_OUTPUT.put_line ('Bestelopdracht maken: ' || TO_CHAR (lbord_key));
+            INSERT INTO bes_bestelopdr
+                (bes_bestelopdr_key, bes_bestelopdr_status, prs_bedrijf_key,
+                 bes_bestelopdr_datum, mld_adres_key_lev, mld_adres_key_fac,
+                 prs_perslid_key,
+                 bes_bestelopdr_id
+                )
+            VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
+                 SYSDATE, rec1.mld_adres_key_lev, factura_key,
+                 rec1.prs_perslid_key,
+                 lbord_id
+                );
+            aantalopdrachtregels := 0;
           END IF;
           itemprijsmetkorting := bes.calcbesartikelkortingsprijs(rec1.bes_bestelling_item_key);
           --DBMS_OUTPUT.put_line ('Bestelregel maken: ' || TO_CHAR (aantalopdrachtregels + 1));
           INSERT INTO bes_bestelopdr_item
-                      (bes_bestelopdr_item_key, bes_bestelopdr_item_posnr, bes_bestelopdr_key,
-                       bes_bestelopdr_item_aantal, bes_bestelopdr_item_aantalontv, bes_bestelopdr_item_omschrijv,
-                       bes_bestelopdr_item_brutoprijs, bes_bestelopdr_item_ontvangen, bes_bestelopdr_item_inkprijs,
-                       bes_bestelopdr_item_prijs
-                      )
-               VALUES (bes_s_bes_bestelopdr_item_key.NEXTVAL, aantalopdrachtregels + 1, lbord_key,
-                       rec1.bes_bestelling_item_aantal, NULL, rec1.bes_srtdeel_omschrijving,
-                       rec1.bes_srtdeel_prijs, NULL, rec1.bes_srtdeel_inkprijs,
-                       itemprijsmetkorting
-                      );
+              (bes_bestelopdr_item_key, bes_bestelopdr_item_posnr, bes_bestelopdr_key,
+               bes_bestelopdr_item_aantal, bes_bestelopdr_item_aantalontv, bes_bestelopdr_item_omschrijv,
+               bes_bestelopdr_item_brutoprijs, bes_bestelopdr_item_ontvangen, bes_bestelopdr_item_inkprijs,
+               bes_bestelopdr_item_prijs
+              )
+          VALUES (bes_s_bes_bestelopdr_item_key.NEXTVAL, aantalopdrachtregels + 1, lbord_key,
+               rec1.bes_bestelling_item_aantal, NULL, rec1.bes_srtdeel_omschrijving,
+               rec1.bes_srtdeel_prijs, NULL, rec1.bes_srtdeel_inkprijs,
+               itemprijsmetkorting
+              );
           aantalopdrachtregels := aantalopdrachtregels + 1;
           UPDATE bes_bestelling_item
              SET bes_bestelopdr_item_key = bes_s_bes_bestelopdr_item_key.CURRVAL
            WHERE bes_bestelling_item_key = rec1.bes_bestelling_item_key;
-       END LOOP;
-       IF current_leverancier_key <> -1
-       THEN
+        END LOOP;
+        IF current_leverancier_key <> -1
+        THEN
           -- Afronden vorige opdracht
           UPDATE bes_bestelopdr
-             SET bes_bestelopdr_item_cnt = aantalopdrachtregels,
-                 bes_bestelopdr_status = 3
+             SET bes_bestelopdr_status = 3
            WHERE bes_bestelopdr_key = lbord_key;
-           fac.trackaction ('BES2NE',
-                            lbord_key,
-                            i_userkey,
-                            NULL,
-                            '');
+          fac.trackaction ('BES2NE',
+                    lbord_key,
+                    i_userkey,
+                    NULL,
+                    '');
           -- Bepaal opdrachtkorting en opdrachtkosten en sla deze op
           -- Met parameter 1 geven we aan dat de berekende waarde automaisch ook word opgeslagen
           besopdrachtkorting := bes.calcbesopdrachtkorting(lbord_key, 1);
           besopdrachtkosten := bes.calcbesopdrachtkosten(lbord_key, 1);
-       END IF;
+          UPDATE bes_bestelopdr
+             SET bes_bestelopdr_levkosten = besopdrachtkosten
+               , bes_bestelopdr_korting = besopdrachtkorting
+           WHERE bes_bestelopdr_key = lbord_key;
+        END IF;
     END;
 
     PROCEDURE makecontract (bestelopdr_key IN NUMBER)
@@ -1112,7 +1121,8 @@ AS
                                   cnt_contract_kosten,
                                   prs_kostenplaats_key,
                                   cnt_contract_verlenging,
-                                  bes_bestelopdr_key)
+                                  bes_bestelopdr_key,
+                                  cnt_contract_status)
                           VALUES (lcnt_key,
                                   lcnt_nummer,
                                   lcnt_disckey,
@@ -1131,12 +1141,13 @@ AS
                                   ltotaal,
                                   lprs_kostenplaats_key,
                                   NULL,
-                                  bestelopdr_key);
+                                  bestelopdr_key,
+                                  0);              -- Status zou eigenlijk afhankelijk moeten zijn van het approval mechanisme of deze wel of niet actief is (Setting cnt_contract_approval). Voor nu nog niet. TODO...
         fac.trackaction ('CNTNEW', lcnt_key, NULL, NULL, lcl.L ('lcl_bes_cnt_insert') || lcnt_nummer);
       END IF;
     END;
 
-   -- Geef bestellingkey, gewenste status en userkey, en de status wortdt
+   -- Geef bestellingkey, gewenste status en userkey, en de status wordt
    -- gezet, waarbij zonodig (indien verandering) een trackrecord wordt gemaakt
    -- Als de status niet wijzigt, wordt ook geen trackrecord gemaakt
    -- ZIE schema StateDiagramBestellingen.vsd
@@ -1357,6 +1368,284 @@ AS
       END IF;
    END;
 
+
+   -- Stuur alle mogelijke backofficemedewerkers een bericht als de
+   -- melding NIEUW is. Naar wie, wordt reversed opgezocht op basis van
+   -- toegekende autorisaties
+   -- (zoals bij de lijst van BO-behandelaars in suggest/persoonfilter.inc)
+   PROCEDURE notifybackoffice (pbeskey IN NUMBER)
+   AS
+      lloc_key   mld_adres.alg_locatie_key%TYPE;
+      lafd_key   prs_perslid.prs_afdeling_key%TYPE;
+      ldisc_key  bes_srtgroep.ins_discipline_key%TYPE;
+      ldisc_oms  bes_discipline.ins_discipline_omschrijving%TYPE;
+      loms       fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      bericht    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+   BEGIN
+      BEGIN
+         SELECT   DISTINCT
+                  COALESCE(ma.alg_locatie_key, -1),
+                  p.prs_afdeling_key,
+                  bsg.ins_discipline_key,
+                  bd.ins_discipline_omschrijving
+           INTO   lloc_key,
+                  lafd_key,
+                  ldisc_key,
+                  ldisc_oms
+           FROM   bes_bestelling b,
+                  bes_bestelling_item bi,
+                  bes_srtdeel bsd,
+                  bes_srtgroep bsg,
+                  bes_discipline bd,
+                  prs_perslid p,
+                  mld_adres ma
+          WHERE   b.bes_bestelling_key = bi.bes_bestelling_key
+            AND   bi.bes_srtdeel_key = bsd.bes_srtdeel_key
+            AND   bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+            AND   bsg.ins_discipline_key = bd.ins_discipline_key
+            AND   b.prs_perslid_key = p.prs_perslid_key
+            AND   b.mld_adres_key_lev = ma.mld_adres_key
+            AND   b.bes_bestelling_key = pbeskey;                   -- op dit moment nog alleen voor NIEUWE bestellingen
+
+         -- Als die er niet is sprongen we al naar de exception
+         -- Als die er wel is, gaan we verder
+         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
+           INTO   loms
+           FROM   fac_srtnotificatie
+          WHERE   fac_srtnotificatie_code = 'BES2BO';
+
+         bericht := bes.bessprintf (loms, pbeskey, ldisc_oms);      -- de variabelen invullen
+
+         FOR boer
+            IN (SELECT   g.prs_perslid_key
+                  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 = 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
+                                             WHERE   a.prs_afdeling_elder_key IN
+                                                           (SELECT   aa.prs_afdeling_elder_key
+                                                              FROM   prs_v_afdeling_familie aa
+                                                             WHERE   aa.prs_afdeling_key = lafd_key
+                                                                     AND aa.niveau = g.fac_gebruiker_prs_level_write))))
+                         -- in ASP:  if (params.loc_key>0)
+                         AND (g.fac_gebruiker_alg_level_write = -1
+                              OR (g.fac_gebruiker_alg_level_write < 9
+                                  AND lloc_key IN
+                                           (SELECT   alg_locatie_key
+                                              FROM   fac_v_my_locations
+                                             WHERE   prs_perslid_key = p.prs_perslid_key
+                                                     AND niveau = fac_gebruiker_alg_level_write)))
+                         AND fac_functie_code = 'WEB_BESBOF')
+         LOOP
+            fac.putnotificationsrtprio (NULL,
+                                        boer.prs_perslid_key,
+                                        'BES2BO',
+                                        pbeskey,
+                                        bericht,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        2,
+                                        NULL
+                                       );
+         END LOOP;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            RETURN;
+      END;
+   END;
+
+   -- Stuur alle mogelijke bestelling goedkeurders een bericht als de bestelling status 3 heeft.
+   -- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties.
+   PROCEDURE notifybesgoedkeurders (pbeskey IN NUMBER)
+   AS
+      lloc_key mld_adres.alg_locatie_key%TYPE;
+      lafd_key prs_perslid.prs_afdeling_key%TYPE;
+      ldisc_key bes_srtgroep.ins_discipline_key%TYPE;
+      loms fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lbes_approved bes_bestelling.bes_bestelling_approved%TYPE;
+      lbes_kosten NUMBER (11,2);
+      lbestellimiet bes_disc_params.bes_disc_params_bestellimiet%TYPE;
+      lbestellimiet2 bes_disc_params.bes_disc_params_bestellimiet2%TYPE;
+      lbestellimiet3 bes_disc_params.bes_disc_params_bestellimiet3%TYPE;
+      lbestellimiet4 bes_disc_params.bes_disc_params_bestellimiet4%TYPE;
+      lbestellimiet5 bes_disc_params.bes_disc_params_bestellimiet5%TYPE;
+      lbonotify      bes_disc_params.bes_disc_params_bonotify%TYPE;
+      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
+   BEGIN
+      BEGIN
+         SELECT COALESCE(ma.alg_locatie_key, -1),
+                p.prs_afdeling_key,
+                bsg.ins_discipline_key,
+                COALESCE (b.bes_bestelling_approved, -1),
+                COALESCE (SUM (bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs) - b.bes_bestelling_korting + b.bes_bestelling_levkosten, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet2, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet3, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet4, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet5, 0),
+                bdp.bes_disc_params_bonotify
+           INTO lloc_key,
+                lafd_key,
+                ldisc_key,
+                lbes_approved,
+                lbes_kosten,
+                lbestellimiet,
+                lbestellimiet2,
+                lbestellimiet3,
+                lbestellimiet4,
+                lbestellimiet5,
+                lbonotify
+           FROM bes_bestelling b,
+                bes_bestelling_item bi,
+                bes_srtdeel bsd,
+                bes_srtgroep bsg,
+                bes_disc_params bdp,
+                prs_perslid p,
+                mld_adres ma
+          WHERE b.bes_bestelling_key = bi.bes_bestelling_key
+            AND bi.bes_srtdeel_key = bsd.bes_srtdeel_key
+            AND bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+            AND bsg.ins_discipline_key = bdp.bes_ins_discipline_key
+            AND b.prs_perslid_key = p.prs_perslid_key
+            AND b.mld_adres_key_lev = ma.mld_adres_key
+            AND bi.bes_bestelling_key = pbeskey
+         GROUP BY ma.alg_locatie_key,
+                  p.prs_afdeling_key,
+                  bsg.ins_discipline_key,
+                  b.bes_bestelling_approved,
+                  b.bes_bestelling_korting,
+                  b.bes_bestelling_levkosten,
+                  bdp.bes_disc_params_bestellimiet,
+                  bdp.bes_disc_params_bestellimiet2,
+                  bdp.bes_disc_params_bestellimiet3,
+                  bdp.bes_disc_params_bestellimiet4,
+                  bdp.bes_disc_params_bestellimiet5,
+                  bdp.bes_disc_params_bonotify;
+
+         IF lbes_kosten <= lbestellimiet   -- Dit eerst testen i.v.m. Acceptering. Verder moet sowieso geaccepteerd worden.
+         THEN
+           IF lbonotify = 1
+           THEN                             -- Er hoeft niet gefiatteerd te worden,
+             bes.notifybackoffice(pbeskey); -- dus stuur de backoffice een bericht dat er een nieuwe bestelling is.
+           END IF;
+           RETURN;   -- Het bedrag is lager als de eerste limiet. De bestelling hoeft niet goed gekeurd te worden, dus een lege fiatteurs array teruggeven.
+         ELSIF (((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet) OR
+                 (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten <= lbestellimiet2)) AND
+                lbes_approved <= lbestellimiet)
+         THEN
+           lfunctiecode := 'WEB_BESBOF';
+         ELSIF ((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet2 AND lbes_approved = lbestellimiet2) OR
+                (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten <= lbestellimiet3 AND lbes_approved <= lbestellimiet2))
+         THEN
+           lfunctiecode := 'WEB_BESGO2';
+         ELSIF ((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet3 AND lbes_approved = lbestellimiet3) OR
+                (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten <= lbestellimiet4 AND lbes_approved <= lbestellimiet3))
+         THEN
+           lfunctiecode := 'WEB_BESGO3';
+         ELSIF ((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet4 AND lbes_approved = lbestellimiet4) OR
+                (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten <= lbestellimiet5 AND lbes_approved <= lbestellimiet4))
+         THEN
+           lfunctiecode := 'WEB_BESGO4';
+         ELSIF((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet5 AND lbes_approved >= lbestellimiet5) OR
+               (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten > lbestellimiet5 AND lbes_approved <= lbestellimiet5))
+         THEN
+           lfunctiecode := 'WEB_BESGO5';
+         ELSE
+           IF lbonotify = 1
+           THEN                             -- De laatste fiatteur heeft de bestelling goedgekeurd,
+             bes.notifybackoffice(pbeskey); -- dus nu mag de backoffice het bericht krijgen dat er een nieuwe bestelling is.
+           END IF;
+           RETURN; -- Het goedgekeurde bedrag zit al boven de limiet. Geen approval meer nodig.
+         END IF;
+
+         -- These notifications are now sent on behalf of the system, what might be the local FM organisation
+         SELECT MAX (COALESCE (bd.ins_discipline_email, l.alg_locatie_email)) email
+           INTO lsender
+           FROM bes_bestelling b,
+                bes_bestelling_item bi,
+                bes_srtdeel bsd,
+                bes_srtgroep bsg,
+                bes_discipline bd,
+                mld_adres ma,
+                alg_locatie l
+          WHERE b.bes_bestelling_key = bi.bes_bestelling_key
+            AND bi.bes_srtdeel_key = bsd.bes_srtdeel_key
+            AND bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+            AND bsg.ins_discipline_key = bd.ins_discipline_key
+            AND b.mld_adres_key_lev = ma.mld_adres_key
+            AND ma.alg_locatie_key = l.alg_locatie_key
+            AND bi.bes_bestelling_key = pbeskey;
+
+         -- Als die er niet is sprongen we al naar de exception
+         -- Als die er wel is, gaan we verder
+         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
+           INTO   loms
+           FROM   fac_srtnotificatie
+          WHERE   fac_srtnotificatie_code = 'BESAP1';
+
+         bericht := bes.bessprintf (loms, pbeskey, '');             -- de variabelen invullen
+
+         FOR boer
+            IN (SELECT   g.prs_perslid_key
+                  FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p
+                 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 (g.fac_gebruiker_prs_level_write = -1
+                              OR (g.fac_gebruiker_prs_level_write < 9
+                                  AND p.prs_afdeling_key IN
+                                           (SELECT   prs_afdeling_key
+                                              FROM   prs_v_afdeling_familie a
+                                             WHERE   a.prs_afdeling_elder_key IN
+                                                           (SELECT   aa.prs_afdeling_elder_key
+                                                              FROM   prs_v_afdeling_familie aa
+                                                             WHERE   aa.prs_afdeling_key = lafd_key
+                                                                     AND aa.niveau = g.fac_gebruiker_prs_level_write))))
+                         -- in ASP:  if (params.loc_key>0)
+                         AND (g.fac_gebruiker_alg_level_write = -1
+                              OR (g.fac_gebruiker_alg_level_write < 9
+                                  AND lloc_key IN
+                                           (SELECT   alg_locatie_key
+                                              FROM   fac_v_my_locations
+                                             WHERE   prs_perslid_key = p.prs_perslid_key
+                                                     AND niveau = fac_gebruiker_alg_level_write)))
+                         AND fac_functie_code = lfunctiecode)
+         LOOP
+            fac.putnotificationsrtprio (NULL,
+                                        boer.prs_perslid_key,
+                                        'BESAP1',
+                                        pbeskey,
+                                        bericht,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        2,
+                                        lsender
+                                       );
+         END LOOP;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            RETURN;
+      END;
+   END;
+
   -- Opdracht wordt geaccepteerd door de leverancier (of door de BO namens de leverancier)
   PROCEDURE acceptopdracht (pbestelopdr_key IN NUMBER, user_key IN NUMBER, presulttext IN VARCHAR2)
   AS
@@ -1652,7 +1941,7 @@ AS
        RETURN lret;
     END;
 
-    FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number)
+    FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number, pbes_discipline IN VARCHAR2)
        RETURN varchar2
     IS
        s varchar2 (2048 CHAR);
@@ -1662,19 +1951,17 @@ AS
          -- We support substitution of placeholders in the messages
          -- ##KEY##    = bes_bestelling_key
          -- ##DATUM##  = bes_bestelling_datum
+         -- ##DISC##   = ins_discipline_omschrijving
          IF INSTR2 (s, '#') > 0
          THEN
-           SELECT   bes_bestelling_datum
+           SELECT   b.bes_bestelling_datum
              INTO   lbes_bestelling_datum
-             FROM   bes_bestelling
-            WHERE   bes_bestelling_key = pbes_bestelling_key;
-            s :=
-               REPLACE (REPLACE (s,
-                                 '##KEY##',
-                                 NUMBER_TO_CHAR (pbes_bestelling_key)
-                                ),
-                        '##DATUM##',
-                        DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI')
+             FROM   bes_bestelling b
+            WHERE   b.bes_bestelling_key  = pbes_bestelling_key;
+           s := REPLACE( REPLACE( REPLACE( s
+                       , '##KEY##',   NUMBER_TO_CHAR (pbes_bestelling_key) )
+                       , '##DATUM##', DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
+                       , '##DISC##',  pbes_discipline
                        );
          END IF;
 
@@ -1707,6 +1994,6 @@ END bes;
 /
 
 
-REGISTERRUN('$Workfile: BES_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // BES

BES/BES_SEQ.SRC

@@ -30,6 +30,6 @@ CREATE SEQUENCE bes_s_bes_srtprod_prijs_key MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_bedrijf_srtprod_key MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_bedrijf_bedrijf_key MINVALUE 1;
 
-REGISTERONCE('$Workfile: BES_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BES

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
@@ -142,7 +145,8 @@ CREATE_TABLE(bes_srtdeel,0)
         NUMBER(1)
         DEFAULT 0,
     bes_srtdeel_nr
-        VARCHAR2(32),
+        VARCHAR2(32)
+        NOT_NULL(bes_srtdeel_nr, bes_c_bes_srtdeel_nr),
     prs_bedrijf_key
         NUMBER(10)
         CONSTRAINT bes_r_prs_bedrijf_key3 REFERENCES prs_bedrijf(prs_bedrijf_key),
@@ -153,6 +157,8 @@ CREATE_TABLE(bes_srtdeel,0)
         DATE,
     bes_srtdeel_image
         VARCHAR2(255),
+    bes_srtdeel_details_loc
+        VARCHAR2(255),
     bes_srtdeel_veelvoud
         NUMBER(6),
     bes_srtdeel_minimum
@@ -167,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 */
@@ -176,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
 );
 
 
@@ -232,15 +245,6 @@ CREATE_TABLE(bes_bestelling, 0)
         NUMBER(8,2),
     bes_bestelling_korting
         NUMBER(8,2),
-    bes_bestelling_item_cnt
-        NUMBER(10)
-        DEFAULT 0,
-    bes_bestelling_item_cnt_acpt
-        NUMBER(10)
-        DEFAULT 0,
-    bes_bestelling_item_cnt_lev
-        NUMBER(10)
-        DEFAULT 0,
     fac_activiteit_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_activiteit3 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
@@ -248,7 +252,13 @@ CREATE_TABLE(bes_bestelling, 0)
         NUMBER(10)
         CONSTRAINT bes_r_mld_melding1 REFERENCES mld_melding(mld_melding_key),
     bes_bestelling_kto_verstuurd
-        DATE
+        DATE,
+    bes_bestelling_satisfaction
+        NUMBER(2),
+    bes_bestelling_satisfaction_op
+        VARCHAR2(2000),
+    bes_bestelling_approved
+        NUMBER(11,2)
 );
 
 CREATE_TABLE(bes_bestelopdr, 0)
@@ -288,13 +298,7 @@ CREATE_TABLE(bes_bestelopdr, 0)
         NUMBER(10)
         CONSTRAINT bes_r_opdr_prs_user_key1 REFERENCES prs_perslid(prs_perslid_key),
     bes_bestelopdr_delivery_opmerk
-        VARCHAR2(320),
-    bes_bestelopdr_item_cnt
-        NUMBER(10)
-        DEFAULT 0,
-    bes_bestelopdr_item_cnt_lev
-        NUMBER(10)
-        DEFAULT 0
+        VARCHAR2(320)
 );
 
 ALTER TABLE cnt_contract ADD bes_bestelopdr_key
@@ -426,7 +430,7 @@ CREATE_TABLE(bes_disc_params, 0)
     bes_disc_params_leverdagen    /* default levertijd */
         NUMBER,
     bes_disc_params_punchouturl
-        VARCHAR2(255),
+        VARCHAR2(1024),
     bes_disc_params_punch_bedr_key
       NUMBER(10)
       CONSTRAINT bes_r_prs_bedrijf_key4 REFERENCES prs_bedrijf(prs_bedrijf_key),
@@ -449,12 +453,15 @@ 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),
     bes_disc_params_noti_opdr /* 1=notificeer besteller over bestelopdracht(en) */
         NUMBER(1),
+    bes_disc_params_bonotify /* 1=notificeer BO als er een bestelling is */
+        NUMBER(1)
+        NOT NULL,
     bes_disc_params_herfiat /* 0=nooit, 1=zie criteria, 2=altijd */
         NUMBER(1),
     bes_disc_params_herfiatpct
@@ -477,8 +484,24 @@ CREATE_TABLE(bes_disc_params, 0)
         NUMBER(10)
         CONSTRAINT bes_r_cnt_termijn_key2 REFERENCES cnt_termijn(cnt_termijn_key),
     bes_disc_params_for_others /* Kan ik als FE een bestelling voor een ander plaatsen? {0=no | 1=yes} */
+        NUMBER(1)
+        DEFAULT 0,
+    bes_disc_params_bestellimiet2
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    bes_disc_params_bestellimiet3
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    bes_disc_params_bestellimiet4
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    bes_disc_params_bestellimiet5
+        NUMBER(11,2)
+        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
@@ -547,10 +570,14 @@ CREATE_TABLE(bes_kenmerk, 0)
             (bes_kenmerk_niveau is not null and (bes_kenmerk_niveau IN( 'D', 'G', 'S')))
 ,  bes_kenmerk_verplicht
       NUMBER(1)
+,  bes_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  bes_kenmerk_toonbaar
       NUMBER(1)
 ,  bes_kenmerk_volgnummer
       NUMBER(3)
+      NOT NULL
 ,  bes_kenmerk_uniek
       NUMBER(1)
 ,  bes_kenmerk_regexp
@@ -565,12 +592,13 @@ CREATE_TABLE(bes_kenmerk, 0)
 ,  bes_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
-,  CONSTRAINT bes_c_bes_srtkenmerk_key1       CHECK(bes_srtkenmerk_key IS NOT NULL)
-,  CONSTRAINT bes_r_bes_srtkenmerk_key2 FOREIGN KEY(bes_srtkenmerk_key) REFERENCES bes_srtkenmerk(bes_srtkenmerk_key)
-,  CONSTRAINT bes_c_bes_kenmerk_niveau1       CHECK(bes_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT bes_c_bes_kenmerk_toonbaar      CHECK(bes_kenmerk_toonbaar IS NULL
-                                                 OR bes_kenmerk_toonbaar = 1)
-,  CONSTRAINT bes_c_bes_kenmerk_aanmaak       CHECK(bes_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT bes_c_bes_srtkenmerk_key1      CHECK(bes_srtkenmerk_key IS NOT NULL)
+,  CONSTRAINT bes_r_bes_srtkenmerk_key2      FOREIGN KEY(bes_srtkenmerk_key) REFERENCES bes_srtkenmerk(bes_srtkenmerk_key)
+,  CONSTRAINT bes_c_bes_kenmerk_niveau1      CHECK(bes_kenmerk_niveau IS NOT NULL)
+,  CONSTRAINT bes_c_bes_kenmerk_toonbaar     CHECK(bes_kenmerk_toonbaar IS NULL
+                                                OR bes_kenmerk_toonbaar = 1)
+,  CONSTRAINT bes_c_bes_kenmerk_aanmaak      CHECK(bes_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT bes_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_groep, bes_kenmerk_verwijder)
 );
 
 CREATE_TABLE(bes_kenmerkbestell, 0)
@@ -723,6 +751,6 @@ CREATE_TABLE(bes_bedrijf_bedrijf,0)
 );
 
 
-REGISTERONCE('$Workfile: BES_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BES

BES/BES_TRI.SRC

@@ -60,8 +60,8 @@ CREATE_TRIGGER(bes_t_bes_bestelling_a_d)
    ON bes_bestelling
    FOR EACH ROW
 BEGIN
-   -- Of alle BES% weggooien?
-   fac.clrnotifications ('BESAP1', :new.bes_bestelling_key);
+   -- Alle BES% weggooien. XML generatie zou er toch op falen
+   fac.clrnotifications ('BES%', :old.bes_bestelling_key);
 END;
 /
 
@@ -174,6 +174,12 @@ BEGIN
    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
+   THEN
+      :new.bes_srtkenmerk_lengte := 20;
+   END IF;
 
    IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
    THEN
@@ -278,7 +284,7 @@ BEGIN
          srtkenmerknmin            bes_srtkenmerk.bes_srtkenmerk_nmin%TYPE;
          srtkenmerknmax            bes_srtkenmerk.bes_srtkenmerk_nmax%TYPE;
          kenmerkverplicht          bes_kenmerk.bes_kenmerk_verplicht%TYPE;
-         numberwaarde              NUMBER (15, 5);
+         numberwaarde              NUMBER (25,5);
          formatmask                VARCHAR2 (60);
          kenmerkbestellingwaarde   bes_kenmerkbestell.bes_kenmerkbestell_waarde%TYPE;
       BEGIN
@@ -393,7 +399,7 @@ BEGIN
          srtkenmerknmin            bes_srtkenmerk.bes_srtkenmerk_nmin%TYPE;
          srtkenmerknmax            bes_srtkenmerk.bes_srtkenmerk_nmax%TYPE;
          kenmerkverplicht          bes_kenmerk.bes_kenmerk_verplicht%TYPE;
-         numberwaarde              NUMBER (15, 5);
+         numberwaarde              NUMBER (25,5);
          formatmask                VARCHAR2 (60);
          kenmerkbestelitemwaarde   bes_kenmerkbesteli.bes_kenmerkbesteli_waarde%TYPE;
       BEGIN
@@ -560,6 +566,6 @@ BEGIN
  END;
 /
 
-REGISTERRUN('$Workfile: BES_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif  // BES

BES/BES_VIE.SRC

@@ -88,24 +88,30 @@ AS
                 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 = 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,
+                    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 prs_bedrijf_key
@@ -129,15 +135,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 +150,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
@@ -179,66 +184,265 @@ AS
               AND sg.ins_discipline_key = d.ins_discipline_key);
 
 CREATE_VIEW(bes_v_qvw_locale, 0)
-(FAC_LOCALE_KOLOMKEYVAL, FAC_LOCALE_KOLOMNAAM, FAC_LOCALE_TEKST_EN, FAC_LOCALE_TEKST_DE, FAC_LOCALE_TEKST_FR)
+(fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst_nl, fac_locale_tekst_en, fac_locale_tekst_de, fac_locale_tekst_fr)
 AS
-   SELECT d.ins_discipline_key,
-          'INS_DISCIPLINE_OMSCHRIJVING', 
-          COALESCE(en.FAC_LOCALE_TEKST, d.ins_discipline_omschrijving),
-          COALESCE(de.FAC_LOCALE_TEKST, d.ins_discipline_omschrijving),
-          COALESCE(fr.FAC_LOCALE_TEKST, d.ins_discipline_omschrijving)
-     FROM FAC_LOCALE en,
-          FAC_LOCALE de,
-          FAC_LOCALE fr,
-          bes_discipline d
-    WHERE d.ins_discipline_key = en.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND en.FAC_LOCALE_KOLOMNAAM(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-      AND en.FAC_LOCALE_LANG(+) = 'EN'
-      AND d.ins_discipline_key = de.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND de.FAC_LOCALE_KOLOMNAAM (+)= 'INS_DISCIPLINE_OMSCHRIJVING'
-      AND de.FAC_LOCALE_LANG (+) = 'DE'
-      AND d.ins_discipline_key = fr.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND fr.FAC_LOCALE_KOLOMNAAM (+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-      AND fr.FAC_LOCALE_LANG (+) = 'FR'
-   UNION ALL
-   SELECT sg.bes_srtgroep_key,
-          'BES_SRTGROEP_OMSCHRIJVING', 
-          COALESCE(en.FAC_LOCALE_TEKST, sg.bes_srtgroep_omschrijving),
-          COALESCE(de.FAC_LOCALE_TEKST, sg.bes_srtgroep_omschrijving),
-          COALESCE(fr.FAC_LOCALE_TEKST, sg.bes_srtgroep_omschrijving)
-     FROM FAC_LOCALE en,
-          FAC_LOCALE de,
-          FAC_LOCALE fr,
-          bes_srtgroep sg
-    WHERE sg.bes_srtgroep_key = en.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND en.FAC_LOCALE_KOLOMNAAM(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-      AND en.FAC_LOCALE_LANG(+) = 'EN'
-      AND sg.bes_srtgroep_key = de.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND de.FAC_LOCALE_KOLOMNAAM (+)= 'BES_SRTGROEP_OMSCHRIJVING'
-      AND de.FAC_LOCALE_LANG (+) = 'DE'
-      AND sg.bes_srtgroep_key = fr.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND fr.FAC_LOCALE_KOLOMNAAM (+) = 'BES_SRTGROEP_OMSCHRIJVING'
-      AND fr.FAC_LOCALE_LANG (+) = 'FR'
-   UNION ALL
-   SELECT sd.bes_srtdeel_key,
-          'BES_SRTDEEL_OMSCHRIJVING', 
-          COALESCE(en.FAC_LOCALE_TEKST, sd.bes_srtdeel_omschrijving),
-          COALESCE(de.FAC_LOCALE_TEKST, sd.bes_srtdeel_omschrijving),
-          COALESCE(fr.FAC_LOCALE_TEKST, sd.bes_srtdeel_omschrijving)
-     FROM FAC_LOCALE en,
-          FAC_LOCALE de,
-          FAC_LOCALE fr,
-          bes_srtdeel sd
-    WHERE sd.bes_srtdeel_key = en.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND en.FAC_LOCALE_KOLOMNAAM(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-      AND en.FAC_LOCALE_LANG(+) = 'EN'
-      AND sd.bes_srtdeel_key = de.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND de.FAC_LOCALE_KOLOMNAAM (+)= 'BES_SRTDEEL_OMSCHRIJVING'
-      AND de.FAC_LOCALE_LANG (+) = 'DE'
-      AND sd.bes_srtdeel_key = fr.FAC_LOCALE_KOLOMKEYVAL (+)
-      AND fr.FAC_LOCALE_KOLOMNAAM (+) = 'BES_SRTDEEL_OMSCHRIJVING'
-      AND fr.FAC_LOCALE_LANG (+) = 'FR';
+    WITH bqa AS (SELECT DISTINCT ins_discipline_key,
+                                 catalogus,
+                                 bes_srtgroep_key,
+                                 groep,
+                                 bes_srtdeel_key,
+                                 productomschrijving
+                   FROM bes_v_qvw_algemeen)
+    SELECT DISTINCT bqa.ins_discipline_key,
+                    'INS_DISCIPLINE_OMSCHRIJVING',
+                    bqa.catalogus,
+                    COALESCE (en.fac_locale_tekst, bqa.catalogus),
+                    COALESCE (de.fac_locale_tekst, bqa.catalogus),
+                    COALESCE (fr.fac_locale_tekst, bqa.catalogus)
+      FROM fac_locale en,
+           fac_locale de,
+           fac_locale fr,
+           bqa
+     WHERE     bqa.ins_discipline_key = en.fac_locale_kolomkeyval(+)
+           AND en.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+           AND en.fac_locale_lang(+) = 'EN'
+           AND bqa.ins_discipline_key = de.fac_locale_kolomkeyval(+)
+           AND de.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+           AND de.fac_locale_lang(+) = 'DE'
+           AND bqa.ins_discipline_key = fr.fac_locale_kolomkeyval(+)
+           AND fr.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+           AND fr.fac_locale_lang(+) = 'FR'
+    UNION ALL
+    SELECT DISTINCT bqa.bes_srtgroep_key,
+                    'BES_SRTGROEP_OMSCHRIJVING',
+                    bqa.groep,
+                    COALESCE (en.fac_locale_tekst, bqa.groep),
+                    COALESCE (de.fac_locale_tekst, bqa.groep),
+                    COALESCE (fr.fac_locale_tekst, bqa.groep)
+      FROM fac_locale en,
+           fac_locale de,
+           fac_locale fr,
+           bqa
+     WHERE     bqa.bes_srtgroep_key = en.fac_locale_kolomkeyval(+)
+           AND en.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+           AND en.fac_locale_lang(+) = 'EN'
+           AND bqa.bes_srtgroep_key = de.fac_locale_kolomkeyval(+)
+           AND de.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+           AND de.fac_locale_lang(+) = 'DE'
+           AND bqa.bes_srtgroep_key = fr.fac_locale_kolomkeyval(+)
+           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+           AND fr.fac_locale_lang(+) = 'FR'
+    UNION ALL
+    SELECT DISTINCT bqa.bes_srtdeel_key,
+                    'BES_SRTDEEL_OMSCHRIJVING',
+                    bqa.productomschrijving,
+                    COALESCE (en.fac_locale_tekst, bqa.productomschrijving),
+                    COALESCE (de.fac_locale_tekst, bqa.productomschrijving),
+                    COALESCE (fr.fac_locale_tekst, bqa.productomschrijving)
+      FROM fac_locale en,
+           fac_locale de,
+           fac_locale fr,
+           bqa
+     WHERE     bqa.bes_srtdeel_key = en.fac_locale_kolomkeyval(+)
+           AND en.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+           AND en.fac_locale_lang(+) = 'EN'
+           AND bqa.bes_srtdeel_key = de.fac_locale_kolomkeyval(+)
+           AND de.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+           AND de.fac_locale_lang(+) = 'DE'
+           AND bqa.bes_srtdeel_key = fr.fac_locale_kolomkeyval(+)
+           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+           AND fr.fac_locale_lang(+) = 'FR';
 
-REGISTERRUN('$Workfile: BES_VIE.SRC $','$Revision$')
+-- Vooralsnog placeholders, moeten aangepast worden
+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,
+   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,
+          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_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);
+
+REGISTERRUN('$Id$')
 
 #endif  // BES

BEZ/BEZ_IND.SRC

@@ -1,17 +1,17 @@
 #ifdef  BEZ // 03-11-2000 PF
-/* 
+/*
  * $Revision$
  * $Id$
  */
 
 create index bez_res_rsv_ruimte_key1 on bez_afspraak(res_rsv_ruimte_key);
-create index bez_i_bez_afspraak_bez1 on bez_afspraak (bez_afspraak_contact_key);
-create index bez_i_bez_afspraak_bez2 on bez_afspraak (bez_afspraak_host_key);
 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_bezoeker_afsp on bez_bezoekers (bez_afspraak_key);
 
-REGISTERONCE('$Workfile: BEZ_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_INI.SRC

@@ -11,6 +11,6 @@ INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Begeleiden naar ontvange
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Verwijzen naar ontvanger');
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Op laten halen (bellen)');
 
-REGISTERONCE('$Workfile: BEZ_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_PAC.SRC

@@ -9,7 +9,8 @@ CREATE OR REPLACE PACKAGE bez AS
   PROCEDURE sync_resafspraak (presvruimtevan IN NUMBER, presvruimtenaar IN NUMBER);
   PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER);
   FUNCTION  hasparking    (pbez_bezoekers_key IN NUMBER) RETURN NUMBER;
-  FUNCTION  sprintf       (ps IN VARCHAR2 , p_afspraak_key IN NUMBER) RETURN VARCHAR2 ;
+  FUNCTION  afssprintf       (ps IN VARCHAR2 , p_afspraak_key IN NUMBER) RETURN VARCHAR2 ;
+  FUNCTION  bzksprintf       (ps IN VARCHAR2 , p_bezoekers_key IN NUMBER) RETURN VARCHAR2 ;
 END bez;
 /
 
@@ -71,7 +72,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
            FROM   bez_afspraak a
           WHERE   a.bez_afspraak_key = pkey;
 
-      -- Er zijn geen flexkenmerken in het spel
+      -- Er zijn geen flexkenmerken in het spel voor afspraak
       FOR b IN bezoekers
       LOOP
          SELECT   bez_s_bez_bezoekers_key.NEXTVAL INTO newbezoekerskey FROM DUAL;
@@ -102,6 +103,22 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          -- Eventueel: controleren of de nieuwe nu ook een P heeft,
          -- en zo niet dat dan tracken; goed doordenken!
          END IF;
+
+         -- Kopieer de flexkenmerken van de bezoekers
+         INSERT INTO bez_kenmerkwaarde
+                     ( bez_bezoekers_key,
+                       bez_kenmerk_key,
+                       bez_kenmerkwaarde_waarde
+                     )
+                     SELECT newbezoekerskey,
+                            w.bez_kenmerk_key,
+                            w.bez_kenmerkwaarde_waarde
+                       FROM bez_kenmerkwaarde w,
+                            bez_kenmerk k
+                      WHERE w.bez_kenmerk_key = k.bez_kenmerk_key
+                        AND w.bez_bezoekers_key = b.bez_bezoekers_key
+                        AND w.bez_kenmerkwaarde_verwijder IS NULL;
+
       END LOOP;
 
       fac.trackaction ('BEZMUT', newafspraakkey, puserkey, NULL, NULL);
@@ -211,6 +228,7 @@ 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;
@@ -219,7 +237,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
       -- ik weet genoeg, behalve: de discipline_key van parkeerplaatsen!
       bez_parkingdiscipline_key :=  fac.safe_to_number (fac.getsetting ('vis_parking_key'));
-      
+
       -- Heb ik een gebouwkey of terreinkey meegekregen?
       IF palg_gebter_key IS NULL
       THEN
@@ -236,10 +254,19 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                        AND rd.res_rsv_deel_tot > lbegin + 1 / 1440
                                        AND d.res_discipline_key = bez_parkingdiscipline_key)
                                 aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id
+                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_aanwezigterreinsector t
                      WHERE       d.res_ins_deel_key = id.ins_deel_key
                              AND id.ins_alg_locatie_key = llocatiekey
                              AND d.res_discipline_key = bez_parkingdiscipline_key
+                             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))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -264,8 +291,14 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
                                OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
                              AND (og.alg_gebouw_key = palg_gebter_key
-                               OR og.alg_terreinsector_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))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;
@@ -303,7 +336,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
    END;
 
 
-  FUNCTION sprintf (ps IN VARCHAR2, p_afspraak_key IN NUMBER) RETURN VARCHAR2 IS
+  FUNCTION afssprintf (ps IN VARCHAR2, p_afspraak_key IN NUMBER) RETURN VARCHAR2 IS
     lafspraak_datum  bez_afspraak.bez_afspraak_datum%TYPE;
     lbezoek          VARCHAR2 (200);
     s varchar2 (2048 CHAR);
@@ -311,7 +344,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
    s :=  ps;
     -- We support substitution of placeholders in the messages
    -- ##KEY##    afspraaknummer
-   -- ##NAAM##   volledige naam van de bezoeker
+   -- ##NAAM##   volledige naam van de (eerst opgeslagen) bezoeker
    IF INSTR (s, '#') > 0
    THEN
     SELECT bez_afspraak_datum
@@ -334,9 +367,44 @@ CREATE OR REPLACE PACKAGE BODY bez AS
    RETURN s;
 
   END;
+
+  FUNCTION  bzksprintf (ps IN VARCHAR2 , p_bezoekers_key IN NUMBER) RETURN VARCHAR2 IS
+    lafspraak_datum  bez_afspraak.bez_afspraak_datum%TYPE;
+    lafspraak_key    bez_afspraak.bez_afspraak_key%TYPE;
+    lbezoek          bez_bezoekers.bez_afspraak_naam%TYPE;
+    lbedrijf         bez_bezoekers.bez_afspraak_bedrijf%TYPE;
+    lbadgenr         bez_bezoekers.bez_bezoekers_pasnr%TYPE;
+    s varchar2 (2048 CHAR);
+  BEGIN
+   s :=  ps;
+    -- We support substitution of placeholders in the messages
+   -- ##KEY##    afspraaknummer
+   -- ##NAAM##   volledige naam van de bezoeker
+   -- ##BEDRIJF##   naam van het bedrijf van de bezoeker
+   -- ##PASNR##   pasnr (badgenr)
+   IF INSTR (s, '#') > 0
+   THEN
+    SELECT a.bez_afspraak_datum, b.bez_afspraak_key, b.bez_afspraak_naam, b.bez_afspraak_bedrijf, b.bez_bezoekers_pasnr
+      INTO lafspraak_datum, lafspraak_key, lbezoek, lbedrijf, lbadgenr
+      FROM bez_afspraak a, bez_bezoekers b
+     WHERE a.bez_afspraak_key = b.bez_afspraak_key
+       AND bez_bezoekers_key = p_bezoekers_key;
+
+       s :=
+          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (s, '##NAAM##', lbezoek), '##KEY##', NUMBER_TO_CHAR (lafspraak_key)),
+                   '##DATUM##',
+                   DATE_TO_CHAR (lafspraak_datum, 'DD-MM-YY HH24:MI')
+                  ), '##BEDRIJF##', lbedrijf), '##PASNR##', lbadgenr);
+   END IF;
+   RETURN s;
+
+  END;
+
+
+
 END bez;
 /
 
-REGISTERRUN('$Workfile: BEZ_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // BEZ

BEZ/BEZ_SEQ.SRC

@@ -10,6 +10,6 @@ CREATE SEQUENCE bez_s_bez_actie_key     MINVALUE 1;
 CREATE SEQUENCE bez_s_bez_kenmerk_key          MINVALUE 1000;
 CREATE SEQUENCE bez_s_bez_kenmerkwaarde_key MINVALUE 1;
 
-REGISTERONCE('$Workfile: BEZ_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_TAB.SRC

@@ -11,10 +11,19 @@ CREATE_TABLE(bez_actie,0)
         PRIMARY KEY,
     bez_actie_omschrijving
         VARCHAR2(64),
+    bez_actie_default
+        NUMBER(1),
+    bez_actie_flags
+        NUMBER(3) DEFAULT 0 NOT NULL, -- 0x001=oproepen, 0x002=autobadge
     bez_actie_verwijder
         DATE
 );
 
+ALTER TABLE res_ruimte
+    ADD  bez_actie_key
+    NUMBER(10)
+    REFERENCES bez_actie(bez_actie_key);
+
 CREATE_TABLE(bez_afspraak,0)
 (
     bez_afspraak_key
@@ -80,6 +89,8 @@ CREATE_TABLE(bez_bezoekers,0)
     bez_bezoekers_done
         DATE,
     bez_bezoekers_out
+        DATE,
+    bez_bezoekers_oproep
         DATE
  );
 
@@ -98,6 +109,7 @@ CREATE_TABLE(bez_kenmerk,0)
         CONSTRAINT bez_k_bez_kenmerk_key PRIMARY KEY
     ,bez_kenmerk_volgnr
         NUMBER(3)
+        NOT NULL
     ,bez_kenmerk_omschrijving
         VARCHAR2(50)
     ,bez_kenmerk_upper
@@ -122,6 +134,9 @@ CREATE_TABLE(bez_kenmerk,0)
         VARCHAR2(255)
     ,bez_kenmerk_verplicht
         NUMBER(1)
+    ,bez_kenmerk_groep
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,bez_kenmerk_lengte
         NUMBER(4)
     ,bez_kenmerk_dec
@@ -166,6 +181,6 @@ CREATE_TABLE(bez_kenmerkwaarde,0)
     CONSTRAINT bez_u_bez_kenmerkwaarde_key UNIQUE(bez_bezoekers_key, bez_kenmerk_key)
 );
 
-REGISTERONCE('$Workfile: BEZ_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_TRI.SRC

@@ -69,7 +69,18 @@ CREATE_TRIGGER(bez_t_notificatie_afspraak_d)
    ON bez_afspraak
    FOR EACH ROW
 BEGIN
-   fac.clrnotifications('BEZ%', :OLD.bez_afspraak_key);
+   fac.clrnotifications('BEZMUT', :OLD.bez_afspraak_key);
+   fac.clrnotifications('BEZUPD', :OLD.bez_afspraak_key);
+END;
+/
+CREATE_TRIGGER(bez_t_notificatie_bezoekers_d)
+   AFTER DELETE
+   ON bez_bezoekers
+   FOR EACH ROW
+BEGIN
+   fac.clrnotifications('BEZDO%', :OLD.bez_bezoekers_key);
+   fac.clrnotifications('BEZOU%', :OLD.bez_bezoekers_key);
+   fac.clrnotifications('BEZBAD', :OLD.bez_bezoekers_key);
 END;
 /
 
@@ -94,6 +105,11 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
+   IF :new.bez_kenmerk_kenmerktype = 'N'
+   AND :new.bez_kenmerk_lengte > 20
+   THEN
+      :new.bez_kenmerk_lengte := 20;
+   END IF;
 
    IF :new.bez_kenmerk_kenmerktype = 'N' AND :old.bez_kenmerk_key IS NOT NULL
    THEN
@@ -166,7 +182,7 @@ BEGIN
          KenmerkDec      bez_kenmerk.bez_kenmerk_dec%TYPE;
          KenmerkNMin     bez_kenmerk.bez_kenmerk_nmin%TYPE;
          KenmerkNMax     bez_kenmerk.bez_kenmerk_nmax%TYPE;
-         NumberWaarde    NUMBER(15,5);
+         NumberWaarde    NUMBER(25,5);
          FormatMask      VARCHAR2(60);
          KenmerkWaarde   bez_kenmerkwaarde.bez_kenmerkwaarde_waarde%TYPE;
       BEGIN
@@ -279,6 +295,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: BEZ_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_VIE.SRC

@@ -4,6 +4,116 @@
  *  $Id$
  */
 
-REGISTERRUN('$Workfile: BEZ_VIE.SRC $','$Revision$')
+CREATE_VIEW(bez_v_api_afspraken, 1) AS
+SELECT a.bez_afspraak_key,
+       a.prs_perslid_key,
+       p1.prs_perslid_naam_full bez_afspraak_host,
+       p2.prs_perslid_naam_full bez_afspraak_contact,
+       a.bez_afspraak_datum,
+       a.bez_actie_key,
+       og.alg_onroerendgoed_code,
+       og.alg_onroerendgoed_omschrijving,
+       a.bez_afspraak_ruimte,
+       a.bez_afspraak_opmerking,
+       a.bez_afspraak_eind,
+       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_done,
+       b.bez_bezoekers_out,
+       b.bez_bezoekers_pasnr
+  FROM bez_afspraak a,
+       bez_bezoekers b,
+       prs_v_perslid_fullnames_all p1,
+       prs_v_perslid_fullnames_all p2,
+       alg_v_allonrgoed_gegevens og
+ WHERE     a.bez_afspraak_key = b.bez_afspraak_key
+       AND p1.prs_perslid_key = a.bez_afspraak_host_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,
+   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,
+   FCLT_3D_LOCATIE_KEY,
+   FCLT_3D_AFDELING_KEY
+)
+AS
+   SELECT b.bez_bezoekers_key,
+          p1.prs_perslid_naam_full 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,
+          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_afspraak_opmerking bezoeker_opmerking,
+          b.bez_bezoekers_done,
+          b.bez_bezoekers_out,
+          b.bez_bezoekers_pasnr,
+          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
+    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;
+
+REGISTERRUN('$Id$')
 
 #endif  // BEZ

CAD/CAD_IND.SRC

@@ -10,6 +10,6 @@ CREATE INDEX cad_i_cad_tekening3 ON cad_tekening(alg_verdieping_key);
 CREATE INDEX cad_i_cad_contour1 ON cad_imp_contour(cad_tekening_key);
 CREATE UNIQUE INDEX cad_i_cad_legendaw1 ON cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value);
 
-REGISTERONCE('$Workfile: CAD_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // CAD

CAD/CAD_INI.SRC

@@ -37,8 +37,6 @@ INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_leg
 VALUES (2,'99','FF0000','99');
 
 
-/* zijn de functies hier al bekend? */
-
 INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
    SELECT 'Ruimtefunctie', 1, 'cad_v_thema_srtruimte', 1, fac_functie_key
      FROM fac_functie
@@ -54,6 +52,27 @@ INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view,
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_MLDBAC';
 
+INSERT INTO CAD_THEMA
+    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW, CAD_THEMA_TYPE, fac_functie_key )
+    SELECT 'Bezetting: aantal werkplekken', 1, 'CAD_V_THEMA_AANTALWP', '1', fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_PRSBOF';
+
+INSERT INTO CAD_THEMA
+    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW,CAD_THEMA_TYPE, fac_functie_key )
+    SELECT  'Oppervlakte: Gemiddeld/werkplek', 1, 'CAD_V_THEMA_WPOPP', '1', fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_PRSBOF';
+
+-- NB: deze gaat met vaste key 12, een harde default voor infobord.
+INSERT INTO cad_thema
+    ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
+    SELECT 12, 'Actuele bezetting', 1, 'cad_v_thema_srtruimtesensor', '1', fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_RESFOF';
+-- De cad_thema_key sequence gaat later vanzelf wel verder met 21.
+
+
 
 INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
    SELECT 'Ruimtefunctie/opp', 'cad_v_label_srtruimteopp', 1, fac_functie_key, 360
@@ -65,16 +84,6 @@ INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, f
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_PRSUSE';
 
-INSERT INTO CAD_THEMA
-    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW, CAD_THEMA_TYPE, fac_functie_key )
-    SELECT 'Bezetting: aantal werkplekken', 1, 'CAD_V_THEMA_AANTALWP', '1', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSBOF';
-INSERT INTO CAD_THEMA
-    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW,CAD_THEMA_TYPE, fac_functie_key )
-    SELECT  'Oppervlakte: Gemiddeld/werkplek', 1, 'CAD_V_THEMA_WPOPP', '1', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSBOF';
 INSERT INTO CAD_LABEL
     ( CAD_LABEL_OMSCHRIJVING, CAD_LABEL_VIEW, CAD_LABEL_TYPE, CAD_LABEL_SIZE, FAC_FUNCTIE_KEY )
     SELECT  'Werkplekken', 'cad_v_label_werkplekken', '1', 800, fac_functie_key
@@ -91,6 +100,14 @@ INSERT INTO CAD_LABEL
       from fac_functie
     where fac_functie_code = 'WEB_ALGUSE';
 
-REGISTERONCE('$Workfile: CAD_INI.SRC $','$Revision$')
+-- 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
+      from fac_functie
+    where fac_functie_code = 'WEB_RESFOF';
+-- De cad_label_key sequence gaat later vanzelf wel verder met 21.
+
+REGISTERONCE('$Id$')
 
 #endif // CAD

CAD/CAD_PAC.SRC

@@ -1,10 +1,80 @@
 #ifdef CAD // 22-05-1998 KTH
-/* 
+/*
  * $Revision$
  * $Id$
  */
 
-REGISTERRUN('$Workfile: CAD_PAC.SRC $','$Revision$')
+CREATE OR REPLACE PACKAGE cad AS
+    PROCEDURE refreshlegenda (themakey IN NUMBER, reinit IN NUMBER);
+END cad;
+/
+CREATE OR REPLACE PACKAGE BODY cad
+AS
+    PROCEDURE refreshlegenda (themakey IN NUMBER, reinit IN NUMBER)
+    AS
+        vname           cad_thema.cad_thema_view%TYPE;
+        lkey            cad_thema.cad_legenda_key%TYPE;
+        tomschrijving   cad_thema.cad_thema_omschrijving%TYPE;
+        sql_stmt        VARCHAR2 (1000);
+        newlegenda      BOOLEAN := FALSE;
+    BEGIN
+        BEGIN
+            -- Welke domein en welke legenda?
+            SELECT cad_thema_view, cad_legenda_key, cad_thema_omschrijving
+              INTO vname, lkey, tomschrijving
+              FROM cad_thema
+             WHERE cad_thema_key = themakey;
+        EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+                newlegenda := TRUE;
+        END;
+
+
+        IF newlegenda OR lkey IS NULL
+        THEN
+            -- nieuwe legenda
+            INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet)
+                VALUES (SUBSTR(tomschrijving, 1, 32), 1)
+             RETURNING cad_legenda_key
+                  INTO lkey;
+
+            -- gebruiken bij dit thema
+            UPDATE cad_thema
+               SET cad_legenda_key = lkey
+             WHERE cad_thema_key = themakey;
+        ELSE
+            -- bestaande legenda, eventueel wissen
+            IF reinit = 1
+            THEN
+                DELETE FROM cad_legendawaarde WHERE cad_legenda_key = lkey;
+            END IF;
+        END IF;
+
+
+
+        sql_stmt :=
+            'INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) '
+            || 'SELECT DISTINCT '
+            || TO_CHAR (lkey)
+            || ',  waarde, '
+            || 'TO_CHAR(DBMS_UTILITY.get_hash_value (waarde, 0, POWER (2, 24)), ''0XXXXX'')'
+            || ', REPLACE(waarde, ''*'', '''')'
+            || ' FROM '
+            || vname -- er zit een constraint op cad_thema.cad_thema_view dus relatief SQL-injection safe
+            || ' thv WHERE REPLACE (waarde, ''*'', '''') IS NOT NULL'
+            || ' AND NOT EXISTS '
+            || ' (SELECT cl.cad_legendawaarde_value FROM cad_legendawaarde cl WHERE cl.cad_legendawaarde_value = thv.waarde AND cl.cad_legenda_key = '
+            || TO_CHAR (lkey)
+            || ')';
+
+        DBMS_OUTPUT.put_line (sql_stmt);
+
+        EXECUTE IMMEDIATE sql_stmt;
+    END;
+END cad;
+/
+REGISTERRUN('$Id$')
 
 #endif // CAD
 

CAD/CAD_SEQ.SRC

@@ -12,6 +12,6 @@ CREATE SEQUENCE cad_s_cad_thema_key MINVALUE 1;
 CREATE SEQUENCE cad_s_cad_label_key MINVALUE 1;
 CREATE SEQUENCE cad_s_cad_imp_contour_key MINVALUE 1;
 
-REGISTERONCE('$Workfile: CAD_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // CAD

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)
@@ -138,11 +142,11 @@ 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
 );
 
-REGISTERONCE('$Workfile: CAD_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // CAD

CAD/CAD_TRI.SRC

@@ -40,6 +40,8 @@ CREATE_TRIGGER(cad_t_cad_thema_B_IU)
 BEFORE INSERT OR UPDATE ON cad_thema
 FOR EACH ROW
 BEGIN
+   -- Geeft een 44002 als invalid
+   :new.cad_thema_view := DBMS_ASSERT.SQL_OBJECT_NAME(:new.cad_thema_view);
    UPDATE_PRIMARY_KEY(cad_thema_key, cad_s_cad_thema_key);
 END;
 /
@@ -48,6 +50,8 @@ CREATE_TRIGGER(cad_t_cad_label_B_IU)
 BEFORE INSERT OR UPDATE ON cad_label
 FOR EACH ROW
 BEGIN
+   -- Geeft een 44002 als invalid
+   :new.cad_label_view := DBMS_ASSERT.SQL_OBJECT_NAME(:new.cad_label_view);
    UPDATE_PRIMARY_KEY(cad_label_key, cad_s_cad_label_key);
 END;
 /
@@ -60,6 +64,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: CAD_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif

CAD/CAD_VIE.SRC

@@ -150,13 +150,13 @@ CREATE_VIEW(cad_v_prs_werkplek,0)
         W.prs_werkplek_volgnr,
         W.prs_werkplek_omschrijving,
         W.prs_werkplek_opp   /* Alleen een waarde indien prs_werkplek_vastopp 1 is, anders te traag? */
-   FROM prs_v_aanwezigwerkplek W;
+   FROM prs_werkplek W;
 
 CREATE_VIEW(cad_v_lpn_prs_werkplek_1,0) AS
  SELECT W.prs_werkplek_key,
         W.prs_werkplek_volgnr,
         W.prs_werkplek_omschrijving
-   FROM prs_v_aanwezigwerkplek W;
+   FROM prs_werkplek W;
 
 
 /* Standard thema/label views */
@@ -177,14 +177,14 @@ SELECT prs_w.prs_alg_ruimte_key,
           prs_p.prs_perslid_naam
        || DECODE (prs_p.prs_perslid_voorletters, NULL, '', ', ' || prs_p.prs_perslid_voorletters)
        || DECODE (prs_p.prs_perslid_voornaam, NULL, '', ' (' || prs_p.prs_perslid_voornaam || ')')
-  FROM prs_v_aanwezigwerkplek prs_w, prs_v_aanwezigperslidwerkplek prs_pw, prs_perslid prs_p
+  FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_perslid prs_p
  WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
    AND prs_pw.prs_perslid_key IS NOT NULL
    AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
    AND prs_w.prs_werkplek_virtueel = 0
 UNION
 SELECT prs_w.prs_alg_ruimte_key, '[Vrij]'
-  FROM prs_v_aanwezigwerkplek prs_w, prs_v_werkplek_bezetting prs_wb
+  FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb
  WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key
    AND prs_w.prs_werkplek_virtueel = 0
    AND prs_wb.prs_werkplek_bezetting < 100;
@@ -263,9 +263,7 @@ AS
                            || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0))
                            || '%' waarde
                       FROM prs_werkplek prs_w,
-                           (SELECT *
-                              FROM prs_perslidwerkplek
-                             WHERE prs_perslidwerkplek_verwijder IS NULL) prs_pw,
+                           prs_perslidwerkplek prs_pw,
                            prs_perslid prs_p
                      WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
                        AND prs_pw.prs_perslid_key IS NOT NULL
@@ -278,10 +276,8 @@ AS
                              || TO_CHAR (100 - NVL (SUM (prs_wb.prs_perslidwerkplek_bezetting), 0))
                              || '%'
                         FROM prs_werkplek prs_w,
-                             (SELECT *
-                                FROM prs_perslidwerkplek
-                               WHERE prs_perslidwerkplek_verwijder IS NULL) prs_wb
-                       WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+) AND prs_werkplek_verwijder IS NULL
+                             prs_perslidwerkplek prs_wb
+                       WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+)
                     GROUP BY prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr
                       HAVING SUM (NVL (prs_wb.prs_perslidwerkplek_bezetting, 0)) < 100) DATA
 /
@@ -291,48 +287,43 @@ CREATE_VIEW(CAD_V_THEMA_AANTALWP, 0) (ALG_RUIMTE_KEY, WAARDE)
 AS
 SELECT   wp.prs_alg_ruimte_key, COUNT (*)
        FROM PRS_WERKPLEK wp
-      WHERE wp.prs_werkplek_verwijder IS NULL
    GROUP BY prs_alg_ruimte_key;
 /
 
 CREATE_VIEW(cad_v_label_werkplekken,0)
     (alg_ruimte_key, waarde, highlight)
 AS
-   SELECT prs_alg_ruimte_key,
-             CHR (1)
-          || prs_werkplek_volgnr
-          || ' ('
-          || TO_CHAR (wpopp, 'FM9999.0')
-          || 'm2 '
-          || TO_CHAR (bez)
-          || '%)' waarde,
-		  DECODE (SIGN (bez - 100),
-                  1, 2,
-                  0
-                 ) highlight
-     FROM (SELECT   prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_volgnr,
-                    SUM (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) bez,
-                    wpopp
-               FROM PRS_WERKPLEK prs_w,
-                    prs_v_werkplek_oppervlakte pwo,
-                    (SELECT *
-                       FROM PRS_PERSLIDWERKPLEK
-                      WHERE prs_perslidwerkplek_verwijder IS NULL) prs_pw
-              WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key(+)
-                AND pwo.prs_werkplek_key(+) = prs_w.prs_werkplek_key
-                AND prs_w.prs_werkplek_verwijder IS NULL
-           GROUP BY prs_w.prs_alg_ruimte_key,
-                    prs_w.prs_werkplek_volgnr,
-                    'prs_werkplek',
-                    prs_w.prs_werkplek_key,
-                    wpopp) vdata;
+    SELECT prs_alg_ruimte_key,
+              CHR (1)
+           || prs_werkplek_volgnr
+           || ' ('
+           || TO_CHAR (wpopp, 'FM9990.0')
+           || ' m2'
+           || DECODE (bez, 100, '', ' '||TO_CHAR (bez) || '%')
+           || ')'
+               waarde,
+           DECODE (SIGN (bez - 100), 1, 2, 0) highlight
+      FROM (  SELECT prs_w.prs_alg_ruimte_key,
+                     prs_w.prs_werkplek_volgnr,
+                     SUM (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) bez,
+                     wpopp
+                FROM prs_werkplek prs_w,
+                     prs_v_werkplek_oppervlakte pwo,
+                     prs_perslidwerkplek prs_pw
+               WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key(+)
+                     AND pwo.prs_werkplek_key(+) = prs_w.prs_werkplek_key
+            GROUP BY prs_w.prs_alg_ruimte_key,
+                     prs_w.prs_werkplek_volgnr,
+                     'prs_werkplek',
+                     prs_w.prs_werkplek_key,
+                     wpopp);
 
 CREATE_VIEW(CAD_V_THEMA_WPOPP, 0)
 (alg_ruimte_key, waarde)
 AS
 SELECT wp.prs_alg_ruimte_key, r.alg_ruimte_bruto_vloeropp / COUNT (prs_werkplek_key)
      FROM PRS_WERKPLEK wp, ALG_RUIMTE r
-    WHERE wp.prs_werkplek_verwijder IS NULL AND wp.prs_alg_ruimte_key = r.alg_ruimte_key
+    WHERE wp.prs_alg_ruimte_key = r.alg_ruimte_key
  GROUP BY wp.prs_alg_ruimte_key, r.alg_ruimte_bruto_vloeropp
 /
 
@@ -529,12 +520,10 @@ AS
     WHERE NOT EXISTS
              (SELECT ''
                 FROM prs_werkplek
-               WHERE prs_werkplek_verwijder IS NULL
-                     AND prs_alg_ruimte_key = alg_ruimte_key)
+               WHERE prs_alg_ruimte_key = alg_ruimte_key)
    UNION
    SELECT DISTINCT prs_alg_ruimte_key, -2
-     FROM prs_werkplek
-    WHERE prs_werkplek_verwijder IS NULL;
+     FROM prs_werkplek;
 
 CREATE_VIEW(cad_v_label_flexwerkers, 0)
 (
@@ -546,7 +535,6 @@ AS
      FROM   prs_werkplek wp, prs_perslidwerkplek pwp, prs_v_perslid_fullnames pf
     WHERE       pwp.prs_perslid_key = pf.prs_perslid_key
             AND wp.prs_werkplek_key = pwp.prs_werkplek_key
-            AND pwp.prs_perslidwerkplek_verwijder IS NULL
             AND wp.prs_werkplek_type = 1;
 
 -- Een werkplekkleurenthema, flex/vast/vrij/bezet
@@ -565,12 +553,43 @@ AS
                    END)
                  status
        FROM   prs_werkplek wp, prs_perslidwerkplek pwp
-      WHERE       wp.prs_werkplek_verwijder IS NULL
-              AND pwp.prs_perslidwerkplek_verwijder IS NULL
-              AND wp.prs_werkplek_virtueel = 0
+      WHERE       wp.prs_werkplek_virtueel = 0
               AND pwp.prs_werkplek_key(+) = wp.prs_werkplek_key
    GROUP BY   wp.prs_werkplek_key;
 
+-- Werkplekthema met de bezetter(s) ervan
+CREATE_VIEW(cad_v_label_wp_bewoner, 0)
+(
+   prs_werkplek_key,
+   waarde
+)
+AS
+    SELECT DISTINCT
+           prs_w.prs_werkplek_key,
+           DECODE (
+               prs_p.prs_perslid_voornaam,
+               NULL,
+               DECODE (prs_p.prs_perslid_voorletters,
+                       NULL, '',
+                       prs_p.prs_perslid_voorletters || ' '),
+               prs_p.prs_perslid_voornaam || ' ')
+           || DECODE (prs_p.prs_perslid_tussenvoegsel,
+                      NULL, '',
+                      prs_p.prs_perslid_tussenvoegsel || ' ')
+           || prs_p.prs_perslid_naam
+           || CASE
+                  WHEN prs_pw.prs_perslidwerkplek_bezetting < 100
+                  THEN
+                      ' (' || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) || '%)'
+              END
+               waarde
+      FROM prs_werkplek prs_w,
+           prs_perslidwerkplek prs_pw,
+           prs_perslid prs_p
+     WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
+           AND prs_pw.prs_perslid_key IS NOT NULL
+           AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key;
+
 -- Reserveerbare ruimtes kleurenthema (waarde = aantal minuten nog vrij)
 CREATE_VIEW(cad_v_thema_ruimte_reservering,0)
 (ALG_RUIMTE_KEY, WAARDE)
@@ -594,6 +613,34 @@ AS
                        blokkerend.res_ruimte_opstel_key(+))
     GROUP BY alg_ruimte_key;
 
+-- Reserveerbare ruimtes label thema, toont de ruimtenaam van
+-- ruimtes die reserveerbaar zijn, hetzij door een reservering,
+-- hetzij door een sensor
+-- DEZE VIEW WORDT STANDAARD GEBRUIKT ALS DEFAULT THEMA VOOR HET INFOBORD
+CREATE_VIEW(cad_v_label_bezetbareruimtes, 0)
+(
+    alg_ruimte_key,
+    waarde
+)
+AS
+      SELECT rar.alg_ruimte_key, MIN (res_ruimte_nr) waarde
+        FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rar
+       WHERE     rro.res_ruimte_key = rr.res_ruimte_key
+             AND rar.res_ruimte_key = rr.res_ruimte_key
+             AND rar.res_alg_ruimte_verwijder IS NULL
+    GROUP BY rar.alg_ruimte_key
+    UNION
+    SELECT alg_ruimte_key, alg_ruimte_nr
+      FROM alg_ruimte r, ins_deel d, ins_srtdeel sd
+     WHERE     d.ins_alg_ruimte_key = r.alg_ruimte_key
+           AND d.ins_alg_ruimte_type = 'R'
+           AND d.ins_deel_state IS NOT NULL
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+           AND NOT EXISTS (SELECT ''
+                             FROM res_alg_ruimte
+                            WHERE alg_ruimte_key = r.alg_ruimte_key);
+
 -- Reserveerbare ruimtes label thema
 -- Let op: Toont *eerstvolgende* reservering als die binnen een uur begint
 CREATE_VIEW(cad_v_label_ruimte_reservering,0)
@@ -609,7 +656,7 @@ AS
                           || TO_CHAR (res_rsv_ruimte_van, 'HH24:MI')
                           || '-'
                           || TO_CHAR (res_rsv_ruimte_tot, 'HH24:MI')
-                          || '[br][s50]host: '
+                          || '[br][s50]'
                           || prs_perslid_naam_full
                           || '[br][s80][b]'
                           || res_rsv_ruimte_omschrijving)
@@ -666,6 +713,114 @@ AS
                                   AND  res_rsv_deel_tot - 1 / 24 / 60) res -- NU bezig
     WHERE isd.ins_deel_key = res.res_ins_deel_key(+);
 
-REGISTERRUN('$Workfile: CAD_VIE.SRC $','$Revision$')
+--
+-- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren)
+--
+CREATE_VIEW(cad_v_thema_ruimtesensor,0)
+(
+    alg_ruimte_key,
+    waarde
+)
+AS
+    SELECT r.alg_ruimte_key alg_ruimte_key, initcap(d.ins_deel_state) status
+      FROM alg_ruimte r, ins_deel d, ins_srtdeel sd
+     WHERE     r.alg_ruimte_verwijder IS NULL
+           AND d.ins_deel_verwijder IS NULL
+           AND d.ins_alg_ruimte_type = 'R'
+           AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+           AND d.ins_deel_state IS NOT NULL;
+
+-- Kleurenthema dat reserveringen en actuele bezetting weergeeft
+-- Geeft van de overige ruimte de ruimtesoort terug
+-- DEZE VIEW WORDT STANDAARD GEBRUIKT ALS DEFAULT THEMA VOOR HET INFOBORD
+CREATE_VIEW(cad_v_thema_srtruimtesensor, 0)
+(
+   alg_ruimte_key,
+   waarde
+)
+AS
+   -- zalen met een sensor
+   SELECT alg_ruimte_key, DECODE (MAX (status), 0, 'Uit', 2, 'Aan', 'NoShow')
+     FROM ( SELECT r.alg_ruimte_key,
+                   DECODE (
+                      INITCAP (d.ins_deel_state),
+                      '0',                      -- als de sensor uit is kijken we naar de reservering
+                      DECODE (r2a.res_reservering_key,
+                              NULL, 0,        -- als er geen reservering gescheduled staat is de status uit
+                              DECODE (eerste10min, 1, 2, 1)),  --  in de eerste 10 minuten v/d reservering melden we nog geen noshow(1) aan(2)
+                      2)
+                      status
+              FROM alg_ruimte r,
+                   ins_deel d,
+                   ins_srtdeel sd,
+                   (SELECT rr2a.res_reservering_key,
+                           rr2a.alg_ruimte_key,
+                           CASE WHEN (SYSDATE - res_rsv_ruimte_van > 10 / 1440)
+                                THEN 0
+                                ELSE 1
+                           END eerste10min
+                      FROM res_v_rsv_ruimte_2_alg_ruimte rr2a
+                     WHERE res_rsv_ruimte_dirtlevel = 0
+                       AND rr2a.res_alg_ruimte_verwijder IS NULL
+                       AND rr2a.res_rsv_ruimte_van BETWEEN TRUNC(SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen
+                       AND rr2a.res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC(SYSDATE + 1)) r2a
+             WHERE r.alg_ruimte_verwijder IS NULL
+               AND d.ins_deel_verwijder IS NULL
+               AND d.ins_alg_ruimte_type = 'R'
+               AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+               AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+               AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+               AND d.ins_deel_state IS NOT NULL
+               AND r.alg_ruimte_key = r2a.alg_ruimte_key(+))
+    GROUP BY alg_ruimte_key
+   UNION ALL               -- en dan de ruimten zonder sensor
+   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, '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
+             FROM res_v_rsv_ruimte_2_alg_ruimte rr2a
+            WHERE res_rsv_ruimte_dirtlevel = 0
+              AND rr2a.res_alg_ruimte_verwijder IS NULL
+              AND rr2a.res_rsv_ruimte_van BETWEEN TRUNC(SYSDATE) AND SYSDATE
+              AND rr2a.res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC(SYSDATE + 1)) r2a,
+          (  SELECT alg_ruimte_key, MAX (res_ruimte_key) res_ruimte_key
+               FROM res_alg_ruimte
+              WHERE res_alg_ruimte_verwijder IS NULL
+           GROUP BY alg_ruimte_key) rr
+    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+      AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
+      AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
+      AND NOT EXISTS
+             (SELECT r.alg_ruimte_key
+                FROM ins_deel d, ins_srtdeel sd
+               WHERE d.ins_deel_verwijder IS NULL
+                 AND d.ins_alg_ruimte_type = 'R'
+                 AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+                 AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+                 AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+                 AND d.ins_deel_state IS NOT NULL);
+
+CREATE_VIEW(cad_v_thema_wpsensor,0)
+(
+    prs_werkplek_key,
+    waarde
+)
+AS
+    SELECT wp.prs_werkplek_key prs_werkplek_key, initcap(d.ins_deel_state) status
+      FROM prs_werkplek wp, ins_deel d, ins_srtdeel sd
+     WHERE     d.ins_deel_verwijder IS NULL
+           AND wp.prs_werkplek_virtueel = 0
+           AND d.ins_alg_ruimte_type = 'W'
+           AND d.ins_alg_ruimte_key = wp.prs_werkplek_key
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+           AND d.ins_deel_state IS NOT NULL;
+
+REGISTERRUN('$Id$')
 
 #endif // CAD

CARE.SRC

@@ -15,7 +15,7 @@ SET DEFINE OFF
 SPOOL xcarewebb
 PROMPT [carewebb.lst]
 PROMPT
-PROMPT Copyright 2010 SG|facilitor bv. ALL RIGHTS RESERVED.
+PROMPT Copyright 2013 SG|facilitor bv. ALL RIGHTS RESERVED.
 PROMPT
 PROMPT Dit is de gegenereerde list-file van CARExxxx.sql welke
 PROMPT is gebruikt om de Facilitor(r) Care-Webb _VERSION omgeving in Oracle aan te
@@ -26,7 +26,7 @@ SHOW USER
 PROMPT
 PROMPT
 
-SET LINESIZE 500
+SET LINESIZE 1000
 SET ECHO ON
 #include "care\care_tab.src"
 #include "care\care_ind.src"
@@ -39,12 +39,12 @@ COMMIT;
 ///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
 /
-REGISTERONCE('$Workfile: CARE.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 COMMIT;
 ///////////////////////////// Report invalid objects, if any ///////
 SET ECHO OFF
-SET LINESIZE 120
+SET LINESIZE 132
 PROMPT List of all invalid objects after Facilitor Care-Webb upgrade:
 SELECT _VERSION||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
   FROM user_objects

CARE/CARE_IND.SRC

@@ -5,4 +5,4 @@
 
 CREATE INDEX care_i_periode ON care_periode(jaar, periode, week, maandag);
 
-REGISTERONCE('$Workfile: CARE_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')

CARE/CARE_INI.SRC

@@ -44,8 +44,8 @@ CREATE SEQUENCE prs_s_prs_afdeling_key START WITH 2000 NOCACHE;
 -- FAC-TABELLEN FAC_USRTAB, FAC_USRDATA
 
 -- Eigen tabel Produkt met HV1 en HV2
-INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
-VALUES (1, 'Produkt', 'Produkt', 'T');
+INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving)
+VALUES (1, 'Produkt', 'Produkt');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(1,1,'HV1','HV1');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
@@ -55,16 +55,16 @@ INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_
 VALUES(3,1,'HV3','HV3');
 
 -- Eigen tabel ManVrouw met Man en Vrouw
-INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
-VALUES (21, 'ManVrouw', 'ManVrouw', 'T');
+INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving)
+VALUES (21, 'ManVrouw', 'ManVrouw');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(21,21,'Man','Man');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(22,21,'Vrouw','Vrouw');
 
 -- Eigen tabel $SYSTEM-CAK: een systeemtabel met allerlei instellingen voor het CAK rapport
-INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
-VALUES (41, '$SYSTEM-CAK', 'Systeem tabel voor CAK rapport', 'T');
+INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving)
+VALUES (41, '$SYSTEM-CAK', 'Systeem tabel voor CAK rapport');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(41,41,'BESTANDSNUMMER','000');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
@@ -87,8 +87,8 @@ VALUES(49,41,'HV3','100');
 
 
 
-INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
-VALUES (61, 'Redenbeeindiging', 'Redenbeeindiging', 'T');
+INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving)
+VALUES (61, 'Redenbeeindiging', 'Redenbeeindiging');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(61,61,'Sterfgeval','Sterfgeval');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
@@ -100,8 +100,8 @@ VALUES(64,61,'Op verzoek aanbieder','Op verzoek aanbieder');
 
 -- ATCH#21595: Google km: Nieuw flexveld auto/rijbewijs via ref_kenmerkdomein/standaard tabel JaNee
 -- Eigen tabel Ja-Nee met de waarden 'Ja' en 'Nee'
-INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_view)
-VALUES (81, 'JaNee', 'JaNee', 'T');
+INSERT INTO fac_usrtab (fac_usrtab_key, fac_usrtab_naam, fac_usrtab_omschrijving)
+VALUES (81, 'JaNee', 'JaNee');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
 VALUES(81,81,'Ja','Ja');
 INSERT INTO fac_usrdata (fac_usrdata_key, fac_usrtab_key, fac_usrdata_code, fac_usrdata_omschr)
@@ -137,22 +137,41 @@ INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,a
                                                  alg_kenmerk_lengte,alg_kenmerk_dec,alg_kenmerk_nmin)
 VALUES (1002, 'L', 30, 'Tarief HV3', 'EUR. / uur', 'N', 1, 5, 2, 0);
 
+-- BONS#23781: Client van gemeente wel/niet naar CAK. Uitgangspunt (default) = wel naar CAK. Is een vink-veldje "Niet doorzetten naar CAK", standaard uit.
+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 (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 
+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
-INSERT INTO alg_kenmerk 
+INSERT INTO alg_kenmerk
 (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_default,alg_kenmerk_kenmerktype)
 VALUES (1020, 'L', 50, 'Documenten archief','<span style="color:red">Archivering van gemeentegebonden documenten </span>','L');
 
@@ -269,7 +288,7 @@ VALUES(1065, 'P', 190, 'Auto/Rijbewijs', 'R', 4);
 INSERT INTO prs_kenmerk
     (prs_kenmerk_key, prs_kenmerk_niveau, prs_kenmerk_volgnr ,prs_kenmerk_omschrijving,
      prs_kenmerk_default, prs_kenmerk_kenmerktype)
-VALUES(1080, 'P', 890, 'Documenten archief', 
+VALUES(1080, 'P', 890, 'Documenten archief',
 '<span style="color:red">Archivering van persoonsgebonden documenten</span>', 'L');
 
 -- Kenmerk Folder Openbaar
@@ -291,7 +310,7 @@ CREATE SEQUENCE prs_s_prs_kenmerk_key START WITH 2000 NOCACHE;
 -- Profiel-tabel wordt (mis)gebruikt voor CAK acties (w.o. opnieuw aanmelden client bij CAK)
 INSERT INTO fac_profiel
    (fac_profiel_key, fac_profiel_omschrijving)
-VALUES(1,'Opnieuw bij CAK aanmelden');
+VALUES(1,'Zorguren naar CAK vergeten');
 
 INSERT INTO fac_profiel
    (fac_profiel_key, fac_profiel_omschrijving)
@@ -304,7 +323,7 @@ CREATE SEQUENCE fac_s_fac_profiel_key START WITH 2000 NOCACHE;
 
 ------------------- Voor elke meldingtype (=beschikking) de volgende kenmerken -------------------
 
--- MLD-TABELLEN INS_SRTDISCIPLINE, MLD_TYPEOPDR, MLD_TYPEOPDR_SRTDISCIPLINE, 
+-- MLD-TABELLEN INS_SRTDISCIPLINE, MLD_TYPEOPDR, MLD_TYPEOPDR_SRTDISCIPLINE,
 --              MLD_REFSRTKENMERK, MLD_SRTKENMERK, MLD_KENMERK,
 --              MLD_IMPROPDR, MLD_KOSTEN
 
@@ -334,12 +353,12 @@ DROP SEQUENCE mld_s_mld_typeopdr_srtdisc;
 CREATE SEQUENCE mld_s_mld_typeopdr_srtdisc START WITH 2000 NOCACHE;
 
 INSERT INTO fac_kenmerkdomein
-(fac_kenmerkdomein_key, fac_kenmerkdomein_module, fac_kenmerkdomein_omschrijving, fac_kenmerkdomein_objectnaam, 
+(fac_kenmerkdomein_key, fac_kenmerkdomein_module, fac_kenmerkdomein_omschrijving, fac_kenmerkdomein_objectnaam,
  fac_kenmerkdomein_kolomnaam ,fac_kenmerkdomein_kolomtxt,fac_usrtab_key)
 VALUES(2,'MLD','Redenbeeindiging','FAC_USRDATA','FAC_USRDATA_KEY','FAC_USRDATA_OMSCHR',61);
 
 INSERT INTO fac_kenmerkdomein
-(fac_kenmerkdomein_key, fac_kenmerkdomein_module, fac_kenmerkdomein_omschrijving, fac_kenmerkdomein_objectnaam, 
+(fac_kenmerkdomein_key, fac_kenmerkdomein_module, fac_kenmerkdomein_omschrijving, fac_kenmerkdomein_objectnaam,
  fac_kenmerkdomein_kolomnaam ,fac_kenmerkdomein_kolomtxt,fac_usrtab_key)
 VALUES(1,'MLD','Produkt','FAC_USRDATA','FAC_USRDATA_KEY','FAC_USRDATA_OMSCHR',1);
 
@@ -362,7 +381,7 @@ VALUES(3,'Beschikkingsnr', 'C', 25);
 INSERT INTO mld_srtkenmerk
 (mld_srtkenmerk_key, mld_srtkenmerk_omschrijving, mld_srtkenmerk_dimensie, mld_srtkenmerk_kenmerktype,
  mld_srtkenmerk_lengte, mld_srtkenmerk_dec, mld_srtkenmerk_nmin)
-VALUES(4,'PGB uurtarief', '<27>', 'N', 4, 2, 0);
+VALUES(4,'Client uurtarief', '<27>', 'N', 4, 2, 0);
 
 INSERT INTO mld_srtkenmerk
 (mld_srtkenmerk_key, mld_srtkenmerk_omschrijving, mld_srtkenmerk_kenmerktype, fac_kenmerkdomein_key)
@@ -454,7 +473,7 @@ INSERT INTO fac_srtnotificatie
      				 'Conflict in uitgegeven uren t.o.v. de beschikking (melding ##KEY##)', 'melding',
              0
             );
-           
+
 -- Notificatie JOB die elk heel uur afgaat tijdens kantooruren van 7.00 t/m 18.00 u (zo is ook gen_notify op SAAS geconfigureerd)
 INSERT INTO fac_notificatie_job
             (fac_notificatie_job_key, fac_notificatie_job_view,
@@ -465,7 +484,7 @@ INSERT INTO fac_notificatie_job
              'MLD: Notificatie van nieuwe meldingen voor de teamleider(s)',
              1, 3, trunc (SYSDATE, 'HH')
             );
-           
+
 -- Notificatie JOB die aan het begin van elke dag afgaat om 8.00u
 INSERT INTO fac_notificatie_job
             (fac_notificatie_job_key, fac_notificatie_job_view,
@@ -485,7 +504,7 @@ CREATE SEQUENCE fac_s_fac_notificatie_job_key START WITH 2000 NOCACHE;
 
 
 ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---
--- MODULE Klachten registratie 
+-- MODULE Klachten registratie
 ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---   ---
 
 INSERT INTO ins_srtdiscipline
@@ -502,20 +521,20 @@ INSERT INTO mld_disc_params(mld_ins_discipline_key, mld_disc_params_notify)
 SELECT ins_discipline_key,0 FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Klachten over verzorger';
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Slechte kwaliteit geleverd',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Slechte kwaliteit geleverd',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Niet komen opdagen',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Niet komen opdagen',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Schade',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Schade',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Houding en/of communicatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Houding en/of communicatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO ins_tab_discipline
 (ins_discipline_module,  ins_discipline_omschrijving, ins_srtdiscipline_key)
@@ -525,16 +544,16 @@ INSERT INTO mld_disc_params(mld_ins_discipline_key, mld_disc_params_notify)
 SELECT ins_discipline_key,0 FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Klachten over zorgaanbieder';
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Afspraak niet nagekomen',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Afspraak niet nagekomen',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Houding en/of communicatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Houding en/of communicatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Onduidelijke informatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Onduidelijke informatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 
 -- Autorisatiegroepen met rechten voor klachten: FO, BO en MI.
@@ -552,7 +571,7 @@ AND d.ins_srtdiscipline_key = 2;
 
 INSERT INTO fac_groep (fac_groep_omschrijving) VALUES ('BO-MLD: Klachten');
 
-INSERT INTO fac_groeprechten(fac_groep_key, fac_functie_key, ins_discipline_key, 
+INSERT INTO fac_groeprechten(fac_groep_key, fac_functie_key, ins_discipline_key,
             fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read,
             fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write)
 SELECT g.fac_groep_key,f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
@@ -833,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).
@@ -845,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,
@@ -857,7 +907,7 @@ INSERT INTO fac_usrrap
              fac_usrrap_info,
              fac_functie_key,
              fac_usrrap_autorefresh
-            ) 
+            )
 SELECT   'Admin:  Niet ingeleverde weekbrieven',
          'care_v_rap_missing_weekbrief',
          NULL,
@@ -959,7 +1009,7 @@ FROM fac_functie WHERE fac_functie_code = 'WEB_PRSMAN';
 
 
 --
--- Rapport E) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant A: 
+-- Rapport E) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant A:
 -- op periode -nivo eventuele de conflicten analyseren...
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -988,7 +1038,7 @@ SELECT 'Admin: A) Urenconflict in periode',
 FROM fac_functie WHERE fac_functie_code = 'WEB_UURBOF';
 
 
--- Rapport F) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant B: 
+-- Rapport F) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant B:
 -- periode + week-nivo de conflicten analyseren...
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1017,7 +1067,7 @@ SELECT 'Admin: B) Urenconflict in een periode, per week',
 FROM fac_functie WHERE fac_functie_code = 'WEB_UURBOF';
 
 
--- Rapport G) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant C: 
+-- Rapport G) Analyserapport voor de gemaakte uren binnen 1 PERIODE - variant C:
 -- periode + week-nivo + verzorger de conflicten analyseren...
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1049,7 +1099,7 @@ INSERT INTO fac_usrrap
 
 
 
--- Rapport H) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant A: 
+-- Rapport H) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant A:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1077,7 +1127,7 @@ INSERT INTO fac_usrrap
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 
--- Rapport I) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN - variant B: 
+-- Rapport I) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN - variant B:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1105,7 +1155,7 @@ INSERT INTO fac_usrrap
       FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 
--- Rapport J) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant C: 
+-- Rapport J) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant C:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1133,7 +1183,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport D) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant D: 
+-- Rapport D) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant D:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1161,7 +1211,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport E) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant E: 
+-- Rapport E) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant E:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1189,7 +1239,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport F) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant F: 
+-- Rapport F) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, verdeeld over de 4 WEKEN, en daarbinnen per datum - variant F:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1217,7 +1267,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport G) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant G: 
+-- Rapport G) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant G:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1245,7 +1295,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport I) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant I: 
+-- Rapport I) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant I:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1274,7 +1324,7 @@ INSERT INTO fac_usrrap
 
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport J) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant J: 
+-- Rapport J) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant J:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1302,7 +1352,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport K) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant K: 
+-- Rapport K) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant K:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1330,7 +1380,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport L) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant L: 
+-- Rapport L) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - variant L:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1358,7 +1408,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- ATCH#21599: 9 nieuwe factuurrapporten
--- Rapport M) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, uitgesplitst per week - variant M: 
+-- Rapport M) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, uitgesplitst per week - variant M:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1387,7 +1437,7 @@ INSERT INTO fac_usrrap
 
 
 -- BONS#22915: 1 nieuwe factuurrapport
--- Rapport N) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, - variant N (Woudenberg): 
+-- Rapport N) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, - variant N (Woudenberg):
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1415,7 +1465,7 @@ INSERT INTO fac_usrrap
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- BONS#22915: 1 nieuwe factuurrapport
--- Rapport O) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, - variant O (Scherpenzeel): 
+-- Rapport O) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE, - variant O (Scherpenzeel):
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1442,6 +1492,61 @@ INSERT INTO fac_usrrap
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
+-- Rapport P) FACTUURrapport voor de gemaakte uren per week - variant P:
+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 P) Per beschikking in periode, per week',
+             'care_v_rap2_factuur_uren_P',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             0,
+             'Factuurrapportage per beschikking in een gekozen periode, uitgesplitst per week',
+             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
+            (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 Q) Per beschikking in periode, per week, per datum',
+             'care_v_rap2_factuur_uren_Q',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             0,
+             'Factuurrapportage per beschikking in een gekozen periode, uitgesplitst per week/per datum',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
+
 
 
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -1449,7 +1554,7 @@ INSERT INTO fac_usrrap
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
 
--- Rapport I) SALARISrapport voor de gemaakte uren binnen 1 PERIODE - variant A: 
+-- Rapport I) SALARISrapport voor de gemaakte uren binnen 1 PERIODE - variant A:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1629,8 +1734,8 @@ INSERT INTO fac_usrrap
              0
       FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
-      
--- rapport controle cak rapport FSN#20131      
+
+-- rapport controle cak rapport FSN#20131
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1655,10 +1760,10 @@ INSERT INTO fac_usrrap
              'Rapport met basis controles tbv het CAK rapport',
              fac_functie_key,
              0
-    FROM fac_functie WHERE fac_functie_code = 'WEB_PRSSYS';      
+    FROM fac_functie WHERE fac_functie_code = 'WEB_PRSSYS';
 
 
--- Rapport Voorblad factuur voor gemeenten: 
+-- Rapport Voorblad factuur voor gemeenten:
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1687,7 +1792,7 @@ INSERT INTO fac_usrrap
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 
--- Rapport PGB-facturen: 
+-- Rapport PGB-facturen:
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1744,7 +1849,7 @@ INSERT INTO fac_usrrap
              0
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
--- ADMIN: Rapport Controle autokosten (km) op weeknivo 
+-- ADMIN: Rapport Controle autokosten (km) op weeknivo
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1771,7 +1876,7 @@ INSERT INTO fac_usrrap
              0
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
--- ADMIN: Rapport Controle autokosten (km) op dagnivo 
+-- ADMIN: Rapport Controle autokosten (km) op dagnivo
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1797,10 +1902,10 @@ INSERT INTO fac_usrrap
              fac_functie_key,
              0
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-     
 
-     
--- VERZORGER: 'Mijn' Rapport Controle autokosten (km) op dagnivo 
+
+
+-- VERZORGER: 'Mijn' Rapport Controle autokosten (km) op dagnivo
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1827,7 +1932,7 @@ INSERT INTO fac_usrrap
              fac_functie_key,
              0
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDORD';
-     
+
 
 -- ADMIN: Rapport Controle autokosten (km) van improductieve uren op periode-nivo
 INSERT INTO fac_usrrap
@@ -1933,7 +2038,7 @@ INSERT INTO fac_usrrap
 
 Rapporten op nieuwe wijze (zonder 6-weken beperking)
 
--- Rapport A2) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - zonder periode-uren: 
+-- Rapport A2) FACTUURrapport voor de gemaakte uren binnen 1 PERIODE - zonder periode-uren:
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1968,10 +2073,10 @@ INSERT INTO fac_usrrap
 -----------  Alle overbodige menuitem (module BES, BEZ, CAD, etc uit het menu halen)
 
 DELETE FROM fac_menu m
-WHERE EXISTS 
+WHERE EXISTS
     (SELECT 'x'
     FROM fac_menuitems mi
-    WHERE mi.fac_menuitems_key = m.fac_menuitems_key 
+    WHERE mi.fac_menuitems_key = m.fac_menuitems_key
     AND mi.fac_menuitems_module IN ('BES', 'BEZ', 'CAD', 'CNT', 'FIN', 'INS', 'MRK', 'PRJ', 'RES','SCH', 'SLE')
     AND mi.fac_menuitems_groep IN (0,1)
     );
@@ -2004,7 +2109,7 @@ WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- Een insert in de periodetabel van alle weken tot en met 1 jaar terug.
 INSERT INTO care_periode (jaar, periode, week, maandag)
-SELECT 
+SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
     FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
@@ -2012,6 +2117,24 @@ SELECT
 FROM  DUAL
 CONNECT BY LEVEL <= 1*52+1;
 
-REGISTERONCE('$Workfile: CARE_INI.SRC $','$Revision$')
+INSERT INTO care_t_qvw_periodeweektabel
+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,
+    TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
+FROM  DUAL
+CONNECT BY LEVEL <= 1*52+1
+UNION
+SELECT 
+    TO_CHAR (SYSDATE + 7*(LEVEL), 'IYYY') jaar,
+    DECODE(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1)  periode,
+    TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,
+    TRUNC (SYSDATE + 7*(LEVEL), 'IW') startdatum
+FROM  DUAL
+CONNECT BY LEVEL <= 20*52+1;
+
+
+REGISTERONCE('$Id$')
 
 #endif // CARE

CARE/CARE_PAC.SRC

@@ -170,6 +170,7 @@ PROCEDURE care_v_rap2_factuur_uren_a
             FROM care_periode pw, care_v_beschikking_all b
             WHERE pw.maandag >= B.BESCHIKKING_MAANDAG_VAN
             AND pw.maandag < B.BESCHIKKING_MAANDAG_TOT
+            AND b.beschikking_datum_tot >= sysdate - 53*7
             GROUP BY pw.jaar, pw.periode, b.client_bsn, b.product;
 
         OPEN p_cursor FOR
@@ -225,6 +226,7 @@ PROCEDURE care_v_rap2_factuur_uren_e
             FROM care_periode pw, care_v_beschikking_all b
             WHERE pw.maandag >= B.BESCHIKKING_MAANDAG_VAN
             AND pw.maandag < B.BESCHIKKING_MAANDAG_TOT
+            AND b.beschikking_datum_tot >= sysdate - 53*7
             GROUP BY pw.jaar, pw.periode, b.client_bsn, b.product;
 
         OPEN p_cursor FOR   
@@ -251,6 +253,6 @@ PROCEDURE care_v_rap2_factuur_uren_e
 END care;
 /
 
-REGISTERRUN('$Workfile: CARE_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // CARE

CARE/CARE_TAB.SRC

@@ -22,4 +22,13 @@ CREATE_TABLE(CARE_T_BESCHIKK_X_PERIODETABEL, 0)
   UREN_BESCHIKKING  NUMBER (10)
 )
 
-REGISTERONCE('$Workfile: CARE_TAB.SRC $','$Revision$')
+CREATE_TABLE(CARE_T_QVW_PERIODEWEEKTABEL, 0)
+(
+  JAAR VARCHAR(4),
+  PERIODE NUMBER(2),
+  WEEK VARCHAR(4),
+  MAANDAG DATE
+);
+
+
+REGISTERONCE('$Id$')

CNT/CNT_IND.SRC

@@ -25,6 +25,6 @@ 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);
 
-REGISTERONCE('$Workfile: CNT_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // CNT

CNT/CNT_INI.SRC

@@ -11,7 +11,7 @@ _FAC_MODULE('CNT','Contractbeheer')
 **      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.');
@@ -89,7 +89,7 @@ INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omsch
 INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('M', 9, '9 Maanden', 90);
 INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('Y', 1, '1 Jaar', 100);
 
-REGISTERONCE('$Workfile: CNT_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 
 #endif // CNT

CNT/CNT_PAC.SRC

@@ -4,7 +4,8 @@
  *  $Id$
  */
 
-CREATE OR REPLACE PACKAGE Cnt AS
+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 cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE;
   FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE;
@@ -14,172 +15,249 @@ 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);
   FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
+  FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
 
   PRAGMA RESTRICT_REFERENCES (cnt_contract_items, WNDS, WNPS);
   PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
 END Cnt;
 /
 
-CREATE OR REPLACE PACKAGE BODY Cnt AS
+CREATE OR REPLACE PACKAGE BODY cnt AS
+    -- Geef contractkey, 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
+    -- ZIE schema StateDiagramContracten.vsd
+   PROCEDURE setcontractstatus (pcontractkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER)
+   AS
+      currentstatus cnt_contract.cnt_contract_status%TYPE;
+      newstatus cnt_contract.cnt_contract_status%TYPE;
+      eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
+   BEGIN
+      SELECT   cnt_contract_status
+        INTO   currentstatus
+        FROM   cnt_contract
+       WHERE   cnt_contract_key = pcontractkey;
 
--- Deze functie bepaald 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) RETURN DATE IS
- ptermijn_type VARCHAR2(1);
- ptermijn_aantal NUMBER;
- lrichting NUMBER;
-BEGIN
-  IF prichting = -1
-  THEN
-    lrichting :=  -1;
-  ELSE
-    lrichting := 1;
-  END IF;
+      CASE pstatus
+         WHEN 0                                                                                             -- Actief
+         THEN
+            IF currentstatus IS NULL
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTNEW';
+            ELSIF currentstatus = 2 OR currentstatus = 3         -- Het kan ook zijn dat er geen fiattering nodig is.
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTFIT';
+            END IF;
+         WHEN 1                                                                                             -- Gesloten
+         THEN
+            IF currentstatus = 0
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTCLO';
+            END IF;
+         WHEN 2                                                                                             -- Nieuw
+         THEN
+            IF currentstatus IS NULL
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTNEW';
+            ELSIF currentstatus = 3
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTREJ';
+            END IF;
+         WHEN 3                                                                                             -- Ter goedkeuring
+         THEN
+            IF currentstatus = 2
+            THEN
+               newstatus := pstatus;
+               eventcode := 'CNTCPT';
+            END IF;
+         ELSE
+            -- Invalid statuschange or no change
+            newstatus := NULL;
+      END CASE;
 
-  -- Bepaal type en aantal periodes
-  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 pdate (ofwel termijn dan impliciet 0 dagen)!
-    RETURN pdate;
-  END IF;
+      IF newstatus IS NOT NULL
+      THEN
+         -- vooralsnog lopen de notificaties 1-op-1 met de tracking
+         -- noticode := eventcode;
+         UPDATE   cnt_contract
+            SET   cnt_contract_status = newstatus
+          WHERE   cnt_contract_key = pcontractkey;
 
-  IF ptermijn_type = 'D'
-  THEN
-    RETURN pdate + (lrichting * ptermijn_aantal);
-  ELSIF ptermijn_type = 'W'
-  THEN
-    RETURN pdate + (lrichting * ptermijn_aantal * 7);
-  ELSIF ptermijn_type = 'M'
-  THEN
-    RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal);
-  ELSE
-    -- ptermijn_type = 'Y'
-    RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal * 12);
-  END IF;
-END;
+         -- We know that trackaction doesnt do tracking if eventcode is null
+         fac.trackaction (eventcode, pcontractkey, puserkey, NULL, NULL);
+      END IF;
+   END;
 
-FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
-  plooptijd_tot DATE;
-  popzegtermijn NUMBER;
-BEGIN
-  SELECT cnt_contract_looptijd_tot,
-         cnt_contract_opzegtermijn
-    INTO plooptijd_tot,
-         popzegtermijn
-    FROM cnt_contract
-   WHERE cnt_contract_key = pcnt_contract_key;
-   RETURN cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1);
-END;
+   -- Deze functie bepaald 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)
+      RETURN DATE
+   IS
+      ptermijn_type VARCHAR2(1);
+      ptermijn_aantal NUMBER;
+      lrichting NUMBER;
+   BEGIN
+      IF prichting = -1
+      THEN
+        lrichting :=  -1;
+      ELSE
+        lrichting := 1;
+      END IF;
 
-FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
-  plooptijd_tot DATE;
-  prappeltermijn NUMBER;
-  popzegtermijn NUMBER;
-BEGIN
-  SELECT cnt_contract_looptijd_tot,
-         cnt_contract_rappeltermijn,
-         cnt_contract_opzegtermijn
-    INTO plooptijd_tot,
-         prappeltermijn,
-         popzegtermijn
-    FROM cnt_contract
-   WHERE cnt_contract_key = pcnt_contract_key;
-   RETURN cnt_getTermijndatum (cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1), prappeltermijn, -1);
-END;
+      -- Bepaal type en aantal periodes
+      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 pdate (ofwel termijn dan impliciet 0 dagen)!
+        RETURN pdate;
+      END IF;
 
-FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER AS
-  varSysdate DATE;
-BEGIN
-  varSysdate:=SYSDATE;
+      IF ptermijn_type = 'D'
+      THEN
+        RETURN pdate + (lrichting * ptermijn_aantal);
+      ELSIF ptermijn_type = 'W'
+      THEN
+        RETURN pdate + (lrichting * ptermijn_aantal * 7);
+      ELSIF ptermijn_type = 'M'
+      THEN
+        RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal);
+      ELSE
+        -- ptermijn_type = 'Y'
+        RETURN fac.addMonths(pdate, lrichting * ptermijn_aantal * 12);
+      END IF;
+   END;
 
-  IF varSysdate < van THEN
-    RETURN 0;
-  ELSIF varSysdate <= rappel THEN
-    RETURN 1;
-  ELSIF varSysdate <= opzeg THEN
-    RETURN 2;
-  ELSIF varSysdate <= tot THEN
-    RETURN 3;
-  END IF;
+   FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
+       plooptijd_tot DATE;
+       popzegtermijn NUMBER;
+   BEGIN
+      SELECT cnt_contract_looptijd_tot,
+             cnt_contract_opzegtermijn
+        INTO plooptijd_tot,
+             popzegtermijn
+        FROM cnt_contract
+       WHERE cnt_contract_key = pcnt_contract_key;
+       RETURN cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1);
+   END;
 
-  RETURN 4;
-END;
+   FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER)
+      RETURN DATE
+   IS
+      plooptijd_tot DATE;
+      prappeltermijn NUMBER;
+      popzegtermijn NUMBER;
+   BEGIN
+      SELECT cnt_contract_looptijd_tot,
+             cnt_contract_rappeltermijn,
+             cnt_contract_opzegtermijn
+        INTO plooptijd_tot,
+             prappeltermijn,
+             popzegtermijn
+        FROM cnt_contract
+       WHERE cnt_contract_key = pcnt_contract_key;
+       RETURN cnt_getTermijndatum (cnt_getTermijndatum (plooptijd_tot, popzegtermijn, -1), prappeltermijn, -1);
+   END;
 
+   FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE)
+      RETURN NUMBER
+   AS
+      varSysdate DATE;
+   BEGIN
+      varSysdate:=SYSDATE;
 
-FUNCTION cnt_contract_items (cntKey IN NUMBER) RETURN VARCHAR2 AS
- ret    VARCHAR2(512);
- var_ckey   number;
-CURSOR query(cntKey NUMBER) IS
-  SELECT 1 ckey, S.INS_SRTDEEL_CODE || ' ' ||S.INS_SRTDEEL_OMSCHRIJVING cntText
-    from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGSRTDEEL S
-   WHERE O.CNT_CONTRACT_KEY = cntKey
-     AND S.ins_srtdeel_key   = O.cnt_ins_srtdeel_key
-     AND O.cnt_ins_DEEL_key IS NULL
-UNION
-  SELECT 2 ckey, D.INS_DEEL_OMSCHRIJVING cntText
-    from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGDEEL D
-   WHERE O.CNT_CONTRACT_KEY = cntKey
-     AND D.ins_DEEL_key   = O.cnt_ins_DEEL_key
-UNION
-  SELECT 3 ckey, g.alg_locatie_omschrijving cntText
-    FROM alg_v_aanweziglocatie g, CNT_v_aanwezigCONTRACT_PLAATS P
-   WHERE p.CNT_CONTRACT_KEY = cntKey
-     AND p.cnt_alg_plaats_key = g.alg_locatie_key
-     AND p.CNT_ALG_PLAATS_CODE = 'L'
-UNION
-  SELECT 4 ckey, l.alg_locatie_omschrijving || ' ' ||g.alg_gebouw_omschrijving cntText
-    FROM alg_v_aanweziggebouw g, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
-   WHERE p.CNT_CONTRACT_KEY = cntKey
-     AND p.cnt_alg_plaats_key = g.alg_gebouw_key
-     AND p.CNT_ALG_PLAATS_CODE = 'G'
-     AND l.alg_locatie_key = g.alg_locatie_key
-UNION
-  SELECT 5 ckey, l.alg_locatie_omschrijving || ' ' ||alg_terreinsector_naam cntText
-    FROM alg_v_aanwezigterreinsector T, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
-   WHERE p.CNT_CONTRACT_KEY = cntKey
-     AND p.cnt_alg_plaats_key = T.alg_terreinsector_key
-     AND p.CNT_ALG_PLAATS_CODE = 'T'
-     AND l.alg_locatie_key = t.alg_locatie_key
-   ORDER BY 2;
+      IF varSysdate < van THEN
+        RETURN 0;
+      ELSIF varSysdate <= rappel THEN
+        RETURN 1;
+      ELSIF varSysdate <= opzeg THEN
+        RETURN 2;
+      ELSIF varSysdate <= tot THEN
+        RETURN 3;
+      END IF;
 
-BEGIN
-   ret   := null;
-   var_ckey  := -1;
-   FOR cntitem_rec IN query(cntKey) LOOP
-     IF var_ckey = -1 THEN
-        ret := cntitem_rec.cntText;
-     ELSE
-        IF LENGTH(ret)+LENGTH(cntitem_rec.cntText)<(512-5) THEN
-           ret := ret || CHR(10) || cntitem_rec.cntText;
+      RETURN 4;
+   END;
+
+   FUNCTION cnt_contract_items (cntKey IN NUMBER)
+      RETURN VARCHAR2
+   AS
+      ret    VARCHAR2(512);
+      var_ckey   NUMBER;
+   CURSOR query(cntKey NUMBER) IS
+      SELECT 1 ckey, S.INS_SRTDEEL_CODE || ' ' ||S.INS_SRTDEEL_OMSCHRIJVING cntText
+        from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGSRTDEEL S
+       WHERE O.CNT_CONTRACT_KEY = cntKey
+         AND S.ins_srtdeel_key   = O.cnt_ins_srtdeel_key
+         AND O.cnt_ins_DEEL_key IS NULL
+   UNION
+      SELECT 2 ckey, D.INS_DEEL_OMSCHRIJVING cntText
+        from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGDEEL D
+       WHERE O.CNT_CONTRACT_KEY = cntKey
+         AND D.ins_DEEL_key   = O.cnt_ins_DEEL_key
+   UNION
+      SELECT 3 ckey, g.alg_locatie_omschrijving cntText
+        FROM alg_v_aanweziglocatie g, CNT_v_aanwezigCONTRACT_PLAATS P
+       WHERE p.CNT_CONTRACT_KEY = cntKey
+         AND p.cnt_alg_plaats_key = g.alg_locatie_key
+         AND p.CNT_ALG_PLAATS_CODE = 'L'
+   UNION
+      SELECT 4 ckey, l.alg_locatie_omschrijving || ' ' ||g.alg_gebouw_omschrijving cntText
+        FROM alg_v_aanweziggebouw g, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
+       WHERE p.CNT_CONTRACT_KEY = cntKey
+         AND p.cnt_alg_plaats_key = g.alg_gebouw_key
+         AND p.CNT_ALG_PLAATS_CODE = 'G'
+         AND l.alg_locatie_key = g.alg_locatie_key
+   UNION
+      SELECT 5 ckey, l.alg_locatie_omschrijving || ' ' ||alg_terreinsector_naam cntText
+        FROM alg_v_aanwezigterreinsector T, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
+       WHERE p.CNT_CONTRACT_KEY = cntKey
+         AND p.cnt_alg_plaats_key = T.alg_terreinsector_key
+         AND p.CNT_ALG_PLAATS_CODE = 'T'
+         AND l.alg_locatie_key = t.alg_locatie_key
+       ORDER BY 2;
+
+   BEGIN
+      ret   := null;
+      var_ckey  := -1;
+      FOR cntitem_rec IN query(cntKey) LOOP
+        IF var_ckey = -1 THEN
+           ret := cntitem_rec.cntText;
         ELSE
-           ret := ret || CHR(10) || '...';
-           RETURN ret;
+           IF LENGTH(ret)+LENGTH(cntitem_rec.cntText)<(512-5) THEN
+              ret := ret || CHR(10) || cntitem_rec.cntText;
+           ELSE
+              ret := ret || CHR(10) || '...';
+              RETURN ret;
+           END IF;
         END IF;
-     END IF;
-     var_ckey := cntitem_rec.ckey;
-   END LOOP;
+        var_ckey := cntitem_rec.ckey;
+      END LOOP;
 
-   RETURN ret;
-END;
+      RETURN ret;
+   END;
 
 
-  PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER) IS
-
--- The following actions should be executed when the state becomes 'Voltooid':
--- Find the matching records in the CNT_CONTRACT_ONRGOED table where one row without a mutation_key
--- filled in matches a row with a mutation_key filled in.
--- The match will be successful if both rows have the same ALG_ONRGOED_KEY,
--- the same ALG_ONRGOED_NIVEAU and the same CNT_CONTRACT_KEY.
--- From these matching records the one without CNT_MUTATION_KEY should be deleted
-    BEGIN
+   PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER)
+   IS
+   -- The following actions should be executed when the state becomes 'Voltooid':
+   -- Find the matching records in the CNT_CONTRACT_ONRGOED table where one row without a mutation_key
+   -- filled in matches a row with a mutation_key filled in.
+   -- The match will be successful if both rows have the same ALG_ONRGOED_KEY,
+   -- the same ALG_ONRGOED_NIVEAU and the same CNT_CONTRACT_KEY.
+   -- From these matching records the one without CNT_MUTATION_KEY should be deleted
+   BEGIN
       DELETE
       cnt_contract_onrgoed
       WHERE cnt_contract_onrgoed_key IN (
@@ -191,28 +269,26 @@ END;
       AND   b.cnt_mutatie_key = p_mutaite_key
       AND   a.cnt_mutatie_key  IS  NULL);
 
--- Delete the entries in the CNT_CONTRACT_ONRGOED table with the mutation_key equal
--- to the CNT_MUTATION that will be accepted and where the area size (CNT_CONTRACT_ONRGOED_OPP) = 0.
-
+      -- Delete the entries in the CNT_CONTRACT_ONRGOED table with the mutation_key equal
+      -- to the CNT_MUTATION that will be accepted and where the area size (CNT_CONTRACT_ONRGOED_OPP) = 0.
       DELETE
       cnt_contract_onrgoed
       WHERE cnt_mutatie_key = p_mutaite_key
       AND CNT_CONTRACT_ONRGOED_OPP = 0;
 
--- Set the Mutation_key to NULL from the rows where the CNT_MUTATION_KEY will be equal to the CNT_MUTATION that was accepted.
+      -- Set the Mutation_key to NULL from the rows where the CNT_MUTATION_KEY will be equal to the CNT_MUTATION that was accepted.
       UPDATE
       cnt_contract_onrgoed
       SET cnt_mutatie_key = NULL
       WHERE cnt_mutatie_key = p_mutaite_key;
---The state of the mutation should be set to 'Voltooid'
+      -- The state of the mutation should be set to 'Voltooid'
       UPDATE cnt_mutatie
       SET CNT_MUTATIE_DATUM_VOLTOOID = SYSDATE,
           CNT_MUTATIE_STATUS = 5
       WHERE cnt_mutatie_key = p_mutaite_key;
-  END cnt_complete_mutatie;
+   END cnt_complete_mutatie;
 
-
-PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
+   PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
    IS
       begin1 DATE;
       eind1 DATE;
@@ -220,6 +296,8 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
       newkey NUMBER;
       nummer1 cnt_contract.cnt_contract_nummer_intern%TYPE;
       amount1 cnt_contract.cnt_contract_kosten%TYPE;
+      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
@@ -236,22 +314,31 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
                   c.cnt_contract_looptijd_tot,
                   COALESCE (c.cnt_contract_versie, '0'),
                   cnt_contract_nummer_intern,
-                  cnt_contract_kosten
-           INTO   begin1, eind1, versie1, nummer1, amount1
-           FROM   cnt_contract c
-          WHERE       c.cnt_contract_key = p_key
-                  AND c.cnt_contract_looptijd_van < p_datum
-                  AND c.cnt_contract_looptijd_tot > p_datum;
+                  cnt_contract_kosten,
+                  cdp.cnt_srtcontract_type
+           INTO   begin1, eind1, versie1, nummer1, amount1, srtcontract_type
+           FROM   cnt_contract c,
+                  cnt_disc_params cdp
+          WHERE   c.ins_discipline_key = cdp.cnt_ins_discipline_key
+            AND   c.cnt_contract_key = p_key
+            AND   c.cnt_contract_looptijd_van < p_datum
+            AND   c.cnt_contract_looptijd_tot > p_datum;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             RETURN;
       END;
 
+      IF (fac.getsetting('cnt_contract_approval') = 1 AND srtcontract_type != 6)
+      THEN
+        new_status := 2; -- altijd op nieuw
+      ELSE
+        new_status := 0; -- direct actief
+      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,
@@ -265,6 +352,7 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
                   cnt_prs_afdeling_key,
+                  cnt_prs_perslid_key,
                   NULL,
                   cnt_contract_nummer_intern,
                   cnt_contract_korting,
@@ -275,7 +363,7 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
                   prs_perslid_key_eig,
                   prs_perslid_key_beh,
                   prs_afdeling_key_eig,
-                  0,
+                  new_status,
                   p_datum,
                   prs_kostenplaats_key,
                   cnt_contract_termijnkosten,
@@ -354,6 +442,17 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
            FROM   cnt_contract_plaats cop
           WHERE   cop.cnt_contract_key = p_key AND cop.cnt_contract_plaats_verwijder IS NULL;
 
+      IF p_amount IS NOT NULL AND amount1 <> 0 AND fac.getsetting('cnt_scopeverdeling') = 1
+      THEN -- gewicht is dan telkens een bedrag en cnt_contract_kosten is het totaal daarvan
+        UPDATE cnt_contract_plaats
+           SET cnt_contract_plaats_gewicht = cnt_contract_plaats_gewicht / amount1 * p_amount
+        WHERE cnt_contract_key = p_key;
+
+        UPDATE cnt_contract_plaats
+           SET cnt_contract_plaats_gewicht = cnt_contract_plaats_gewicht / amount1 * (amount1 - p_amount)
+        WHERE cnt_contract_key = newkey;
+      END IF;
+
       --cnt_factuurschema: splitst op dezelfde grensdatum
       UPDATE   cnt_factuurschema
          SET   cnt_contract_key = newkey
@@ -404,10 +503,47 @@ PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_
       RETURN resultkey;
    END;
 
+   FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER )
+      RETURN VARCHAR2
+   IS
+      s VARCHAR2 (2048 CHAR);
+      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
+      s :=  ps;
+      -- We do support substitution of placeholders in the messages
+      -- ##LEV##    = prs_bedrijf_naam
+      -- ##OMSCH##  = cnt_contract_omschrijving
+      -- ##KEY##    = cnt_contract_nummer_intern
+      IF INSTR (s, '#') > 0
+      THEN
+         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,
+                  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),
+                     '##KEY##',
+                     varnummer
+                    );
+      END IF;
+      RETURN s;
+   END;
 
-END Cnt;
+END cnt;
 /
 
-REGISTERRUN('$Workfile: CNT_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // CNT

CNT/CNT_SEQ.SRC

@@ -22,6 +22,6 @@ CREATE SEQUENCE cnt_s_cnt_mutatie_key           MINVALUE 1;
 CREATE SEQUENCE cnt_s_cnt_contract_note_key     MINVALUE 1;
 CREATE SEQUENCE cnt_s_cnt_factuurschema_key     MINVALUE 1;
 
-REGISTERONCE('$Workfile: CNT_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // CNT

CNT/CNT_TAB.SRC

@@ -42,6 +42,8 @@ CREATE_TABLE(cnt_disc_params, 0)
         DEFAULT 1
         NOT_NULL(cnt_srtcontract_type, cnt_c_cnt_srtcontract_type1)
         CONSTRAINT cnt_r_cnt_typecontract_key REFERENCES cnt_typecontract(cnt_typecontract_key),
+    cnt_disc_params_opmerking
+        VARCHAR2(320),
     cnt_disc_params_factuurmarge
         NUMBER(8,2)
         DEFAULT 0,
@@ -93,6 +95,9 @@ CREATE_TABLE(cnt_contract,0)
 ,  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)
@@ -131,10 +136,9 @@ CREATE_TABLE(cnt_contract,0)
 ,  prs_afdeling_key_eig
    NUMBER(10)
    CONSTRAINT cnt_r_prs_afdeling_key_eig REFERENCES prs_afdeling(prs_afdeling_key)
-,  cnt_contract_status  /* 0=actief, 1=inactief */
+,  cnt_contract_status  /* 0=actief, 1=inactief, 2=nieuw, 3=ter goedkeuring */
    NUMBER(1)
-   DEFAULT 0
-   CONSTRAINT cnt_r_cnt_contract_status CHECK(cnt_contract_status IN (0,1))
+   CONSTRAINT cnt_c_cnt_contract_status CHECK(cnt_contract_status IN (0,1,2,3))
 ,  cnt_contract_looptijd_van
    DATE
    DEFAULT to_date('01-01-'|| DATE_TO_CHAR(sysdate,'yyyy'),'dd-mm-yyyy')
@@ -152,6 +156,14 @@ CREATE_TABLE(cnt_contract,0)
    NUMBER(1)
    DEFAULT 2
    CONSTRAINT cnt_r_cnt_contract_verlenging CHECK(cnt_contract_verlenging IN (0,1,2,3))
+,  cnt_contract_approved
+   NUMBER(11,2)
+,  cnt_contract_teverzenden
+   NUMBER(1)
+,  cnt_contract_locked_user_key
+   NUMBER(10)
+,  cnt_contract_locked_date
+   DATE
 -- In BES_TAB.SRC:
 --,  bes_bestelopdr_key
 --   NUMBER(10)
@@ -302,10 +314,14 @@ CREATE_TABLE(cnt_kenmerk, 0)
       VARCHAR2(1)
 ,  cnt_kenmerk_verplicht
       NUMBER(1)
+,  cnt_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_toonbaar
       NUMBER(1)
 ,  cnt_kenmerk_volgnummer
       NUMBER(3)
+      NOT NULL
 ,  cnt_kenmerk_locatiekolom
       VARCHAR2(30)
 ,  cnt_kenmerk_uniek
@@ -321,14 +337,14 @@ CREATE_TABLE(cnt_kenmerk, 0)
       DATE
       DEFAULT NULLDATUM
 ,  cnt_kenmerk_default VARCHAR2(4000)
-,  CONSTRAINT cnt_r_cnt_srtkenmerk_key1       CHECK(cnt_srtkenmerk_key IS NOT NULL)
-,  CONSTRAINT cnt_r_cnt_srtkenmerk_key2 FOREIGN KEY(cnt_srtkenmerk_key) REFERENCES cnt_srtkenmerk(cnt_srtkenmerk_key)
-,  CONSTRAINT cnt_c_cnt_kenmerk_niveau1       CHECK(cnt_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT cnt_c_cnt_kenmerk_niveau2       CHECK(cnt_kenmerk_niveau IN ('C','S'))
-,  CONSTRAINT cnt_c_cnt_kenmerk_toonbaar      CHECK(cnt_kenmerk_toonbaar IS NULL
-                                                 OR cnt_kenmerk_toonbaar = 1)
-,  CONSTRAINT cnt_c_cnt_kenmerk_aanmaak       CHECK(cnt_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_verwijder)
+,  CONSTRAINT cnt_r_cnt_srtkenmerk_key1      CHECK(cnt_srtkenmerk_key IS NOT NULL)
+,  CONSTRAINT cnt_r_cnt_srtkenmerk_key2      FOREIGN KEY(cnt_srtkenmerk_key) REFERENCES cnt_srtkenmerk(cnt_srtkenmerk_key)
+,  CONSTRAINT cnt_c_cnt_kenmerk_niveau1      CHECK(cnt_kenmerk_niveau IS NOT NULL)
+,  CONSTRAINT cnt_c_cnt_kenmerk_niveau2      CHECK(cnt_kenmerk_niveau IN ('C','S'))
+,  CONSTRAINT cnt_c_cnt_kenmerk_toonbaar     CHECK(cnt_kenmerk_toonbaar IS NULL
+                                                OR cnt_kenmerk_toonbaar = 1)
+,  CONSTRAINT cnt_c_cnt_kenmerk_aanmaak      CHECK(cnt_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_groep, cnt_kenmerk_verwijder)
 );
 
 CREATE_TABLE(cnt_kenmerkcontract, 0)
@@ -441,7 +457,7 @@ CREATE_TABLE(cnt_factuurschema , 0)
         VARCHAR2(20)
 );
 
-REGISTERONCE('$Workfile: CNT_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 
 #endif // CNT

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
@@ -140,6 +145,12 @@ BEGIN
   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'
+  AND :new.cnt_srtkenmerk_lengte > 20
+  THEN
+     :new.cnt_srtkenmerk_lengte := 20;
+  END IF;
   --
   IF  :new.cnt_srtkenmerk_kenmerktype = 'N'
   AND :old.cnt_srtkenmerk_key IS NOT NULL
@@ -223,7 +234,7 @@ BEGIN
       SrtKenmerkNMin        cnt_srtkenmerk.cnt_srtkenmerk_nmin%TYPE;
       SrtKenmerkNMax        cnt_srtkenmerk.cnt_srtkenmerk_nmax%TYPE;
       KenmerkVerplicht      cnt_kenmerk.cnt_kenmerk_verplicht%TYPE;
-      NumberWaarde          NUMBER(15,5);
+      NumberWaarde          NUMBER(25,5);
       FormatMask            VARCHAR2(60);
       KenmerkContractWaarde  cnt_kenmerkcontract.cnt_kenmerkcontract_waarde%TYPE;
     BEGIN
@@ -363,6 +374,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: CNT_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif  // CNT

CNT/CNT_VIE.SRC

@@ -103,7 +103,7 @@ SELECT CC.cnt_contract_key,
        ID.ins_alg_ruimte_key,
        ID.ins_alg_ruimte_type
   FROM cnt_v_aanwezigcontract CC, cnt_v_aanwezigcontract_object CO,
-       ins_v_aanwezigdeel ID, prs_v_aanwezigwerkplek WP
+       ins_v_aanwezigdeel ID, prs_werkplek WP
  WHERE CC.cnt_contract_key = CO.cnt_contract_key
    AND CO.cnt_ins_deel_key = ID.ins_deel_key
    AND ID.ins_alg_ruimte_type = 'W'
@@ -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 =
@@ -397,81 +378,777 @@ SELECT basis.contract_key, basis.internnr, basis.externnr,
              FROM cnt_contract_plaats cp
             WHERE cp.cnt_contract_plaats_verwijder IS NULL) plaats
           ON basis.contract_key = plaats.contract_key;
-/
 
-
-CREATE_VIEW(CNT_V_CONTRACT_HUURDER,0)
-(ALG_ONRGOED_KEY, CNT_CONTRACT_KEY, ins_discipline_key, CNT_PRS_BEDRIJF_KEY1, CNT_PRS_AFDELING_KEY1,
- CNT_CONTRACT_ONRGOED_KEY, CNT_CONTRACT_ONRGOED_OPP1, CNT_CONTRACT_ONRGOED_TYPE1, CNT_MLD_MELDING_KEY, CNT_PRS_BEDRIJF_KEY2,
- CNT_PRS_AFDELING_KEY2, CNT_CONTRACT_ONRGOED_KEY2, CNT_CONTRACT_ONRGOED_OPP2, CNT_CONTRACT_ONRGOED_TYPE2, CNT_CONTRACT_KEY2)
+/* Formatted on 31-1-2013 16:52:13 (QP5 v5.136.908.31019) */
+CREATE_VIEW(cnt_v_contract_huurder,0)
+    (alg_onrgoed_key, cnt_contract_key, ins_discipline_key, cnt_prs_bedrijf_key1, cnt_prs_afdeling_key1,
+     cnt_contract_onrgoed_key, cnt_contract_onrgoed_opp1, cnt_contract_onrgoed_type1, cnt_mld_melding_key, cnt_prs_bedrijf_key2,
+     cnt_prs_afdeling_key2, cnt_contract_onrgoed_key2, cnt_contract_onrgoed_opp2, cnt_contract_onrgoed_type2, cnt_contract_key2)
 AS
-select alg_onrgoed_key
-      ,org_contract_key AS CNT_CONTRACT_KEY
-      ,(select ins_discipline_key from cnt_contract c where c.cnt_contract_key = mut.org_contract_key) as CNT_SRTCONTRACT_KEY
-      ,(select c.cnt_PRS_BEDRIJF_KEY from cnt_contract c where c.cnt_contract_key = mut.org_contract_key) as CNT_PRS_BEDRIJF_KEY1
-      ,(select c.cnt_PRS_AFDELING_KEY from cnt_contract c where c.cnt_contract_key = mut.org_contract_key) as CNT_PRS_AFDELING_KEY1
-      ,org_contract_onrgoed_key as CNT_CONTRACT_ONRGOED_KEY
-      ,org_contract_onrgoed_opp AS CNT_CONTRACT_ONRGOED_OPP1
-      ,NVL((select sr.alg_srtruimte_code from alg_srtruimte sr where sr.alg_srtruimte_key = mut.org_alg_srtonrgoed_key and mut.alg_onrgoed_niveau = 'R'),
-	       (select st.alg_srtterreinsector_code from alg_srtterreinsector st where st.alg_srtterreinsector_key = mut.org_alg_srtonrgoed_key)) AS CNT_CONTRACT_ONRGOED_TYPE1
-      ,cnt_melding_key AS CNT_MLD_MELDING_KEY
-      ,(select c.cnt_PRS_BEDRIJF_KEY from cnt_contract c where c.cnt_contract_key = mut.mut_contract_key) as CNT_PRS_BEDRIJF_KEY2
-      ,(select c.cnt_PRS_AFDELING_KEY from cnt_contract c where c.cnt_contract_key = mut.mut_contract_key) as CNT_PRS_AFDELING_KEY2
-      ,mut_contract_onrgoed_key as CNT_CONTRACT_ONRGOED_KEY2
-      ,mut_contract_onrgoed_opp AS CNT_CONTRACT_ONRGOED_OPP2
-       ,NVL((select sr.alg_srtruimte_code from alg_srtruimte sr where sr.alg_srtruimte_key = mut.org_alg_srtonrgoed_key and mut.alg_onrgoed_niveau = 'R'),
-	       (select st.alg_srtterreinsector_code from alg_srtterreinsector st where st.alg_srtterreinsector_key = mut.mut_alg_srtonrgoed_key)) AS CNT_CONTRACT_ONRGOED_TYPE2
-      ,mut_contract_key
-   from (
-    select cogo.ALG_ONRGOED_KEY,
-       cogm.cnt_mld_melding_key as cnt_melding_key,
-       cogo.cnt_contract_key as org_contract_key,
-       cogo.cnt_contract_onrgoed_key as org_contract_onrgoed_key,
-       cogo.cnt_contract_onrgoed_opp as org_contract_onrgoed_opp,
-       cogo.alg_srtonrgoed_key as org_alg_srtonrgoed_key,
-       cogm.cnt_contract_key as mut_contract_key,
-       cogm.cnt_contract_onrgoed_key as mut_contract_onrgoed_key,
-       cogm.cnt_contract_onrgoed_opp as mut_contract_onrgoed_opp,
-       cogm.alg_srtonrgoed_key as mut_alg_srtonrgoed_key,
-	   cogo.alg_onrgoed_niveau as alg_onrgoed_niveau
-     FROM cnt_contract_onrgoed cogo,
-       cnt_contract_onrgoed cogm
- WHERE cogo.cnt_contract_onrgoed_key  = cogm.cnt_contract_onrgoed_key_org
-   AND cogo.cnt_mld_melding_key IS NULL
-   AND cogm.cnt_mld_melding_key IS NOT NULL
-   AND cogm.cnt_contract_onrgoed_key_org IS NOT NULL
-union all
-select cogo.ALG_ONRGOED_KEY,
-       cogo.cnt_mld_melding_key as cnt_melding_key,
-       cogo.cnt_contract_key as org_contract_key,
-       cogo.cnt_contract_onrgoed_key as org_contract_onrgoed_key,
-       cogo.cnt_contract_onrgoed_opp as org_contract_onrgoed_opp,
-       cogo.alg_srtonrgoed_key as org_alg_srtonrgoed_key,
-       TO_NUMBER(null) as mut_contract_key,
-       TO_NUMBER(null) as mut_contract_onrgoed_key,
-       TO_NUMBER(null) as mut_contract_onrgoed_opp,
-       TO_NUMBER(null) as mut_alg_srtonrgoed_key,
-	   cogo.alg_onrgoed_niveau as alg_onrgoed_niveau
-  FROM cnt_contract_onrgoed cogo
- WHERE cogo.cnt_contract_onrgoed_key NOT in (select cnt_contract_onrgoed_key_org from cnt_contract_onrgoed where cnt_contract_onrgoed_key_org is not null) AND
-       cogo.cnt_mld_melding_key IS NULL
-union all
-select cogm.ALG_ONRGOED_KEY,
-       cogm.cnt_mld_melding_key as cnt_melding_key,
-       TO_NUMBER(null) as org_contract_key,
-       TO_NUMBER(null) as org_contract_onrgoed_key,
-       TO_NUMBER(null) as org_contract_onrgoed_opp,
-       TO_NUMBER(null) as org_alg_srtonrgoed_key,
-       cogm.cnt_contract_key as mut_contract_key,
-       cogm.cnt_contract_onrgoed_key as mut_contract_onrgoed_key,
-       cogm.cnt_contract_onrgoed_opp as mut_contract_onrgoed_opp,
-       cogm.alg_srtonrgoed_key as mut_alg_srtonrgoed_key,
-	   cogm.alg_onrgoed_niveau as alg_onrgoed_niveau
-FROM cnt_contract_onrgoed cogm WHERE cogm.cnt_mld_melding_key IS NOT NULL
- and cogm.cnt_contract_onrgoed_key_org IS NULL
-)mut
-/
+    SELECT alg_onrgoed_key,
+           org_contract_key AS cnt_contract_key,
+           (SELECT ins_discipline_key
+              FROM cnt_contract c
+             WHERE c.cnt_contract_key = mut.org_contract_key)
+               AS cnt_srtcontract_key,
+           (SELECT c.cnt_prs_bedrijf_key
+              FROM cnt_contract c
+             WHERE c.cnt_contract_key = mut.org_contract_key)
+               AS cnt_prs_bedrijf_key1,
+           (SELECT c.cnt_prs_afdeling_key
+              FROM cnt_contract c
+             WHERE c.cnt_contract_key = mut.org_contract_key)
+               AS cnt_prs_afdeling_key1,
+           org_contract_onrgoed_key AS cnt_contract_onrgoed_key,
+           org_contract_onrgoed_opp AS cnt_contract_onrgoed_opp1,
+           NVL (
+               (SELECT sr.alg_srtruimte_code
+                  FROM alg_srtruimte sr
+                 WHERE sr.alg_srtruimte_key = mut.org_alg_srtonrgoed_key
+                       AND mut.alg_onrgoed_niveau = 'R'),
+               (SELECT st.alg_srtterreinsector_code
+                  FROM alg_srtterreinsector st
+                 WHERE st.alg_srtterreinsector_key = mut.org_alg_srtonrgoed_key))
+               AS cnt_contract_onrgoed_type1,
+           cnt_melding_key AS cnt_mld_melding_key,
+           (SELECT c.cnt_prs_bedrijf_key
+              FROM cnt_contract c
+             WHERE c.cnt_contract_key = mut.mut_contract_key)
+               AS cnt_prs_bedrijf_key2,
+           (SELECT c.cnt_prs_afdeling_key
+              FROM cnt_contract c
+             WHERE c.cnt_contract_key = mut.mut_contract_key)
+               AS cnt_prs_afdeling_key2,
+           mut_contract_onrgoed_key AS cnt_contract_onrgoed_key2,
+           mut_contract_onrgoed_opp AS cnt_contract_onrgoed_opp2,
+           NVL (
+               (SELECT sr.alg_srtruimte_code
+                  FROM alg_srtruimte sr
+                 WHERE sr.alg_srtruimte_key = mut.org_alg_srtonrgoed_key
+                       AND mut.alg_onrgoed_niveau = 'R'),
+               (SELECT st.alg_srtterreinsector_code
+                  FROM alg_srtterreinsector st
+                 WHERE st.alg_srtterreinsector_key = mut.mut_alg_srtonrgoed_key))
+               AS cnt_contract_onrgoed_type2,
+           mut_contract_key
+      FROM (SELECT cogo.alg_onrgoed_key,
+                   cogm.cnt_mld_melding_key AS cnt_melding_key,
+                   cogo.cnt_contract_key AS org_contract_key,
+                   cogo.cnt_contract_onrgoed_key AS org_contract_onrgoed_key,
+                   cogo.cnt_contract_onrgoed_opp AS org_contract_onrgoed_opp,
+                   cogo.alg_srtonrgoed_key AS org_alg_srtonrgoed_key,
+                   cogm.cnt_contract_key AS mut_contract_key,
+                   cogm.cnt_contract_onrgoed_key AS mut_contract_onrgoed_key,
+                   cogm.cnt_contract_onrgoed_opp AS mut_contract_onrgoed_opp,
+                   cogm.alg_srtonrgoed_key AS mut_alg_srtonrgoed_key,
+                   cogo.alg_onrgoed_niveau AS alg_onrgoed_niveau
+              FROM cnt_contract_onrgoed cogo, cnt_contract_onrgoed cogm
+             WHERE     cogo.cnt_contract_onrgoed_key = cogm.cnt_contract_onrgoed_key_org
+                   AND cogo.cnt_mld_melding_key IS NULL
+                   AND cogm.cnt_mld_melding_key IS NOT NULL
+                   AND cogm.cnt_contract_onrgoed_key_org IS NOT NULL
+            UNION ALL
+            SELECT cogo.alg_onrgoed_key,
+                   cogo.cnt_mld_melding_key AS cnt_melding_key,
+                   cogo.cnt_contract_key AS org_contract_key,
+                   cogo.cnt_contract_onrgoed_key AS org_contract_onrgoed_key,
+                   cogo.cnt_contract_onrgoed_opp AS org_contract_onrgoed_opp,
+                   cogo.alg_srtonrgoed_key AS org_alg_srtonrgoed_key,
+                   TO_NUMBER (NULL) AS mut_contract_key,
+                   TO_NUMBER (NULL) AS mut_contract_onrgoed_key,
+                   TO_NUMBER (NULL) AS mut_contract_onrgoed_opp,
+                   TO_NUMBER (NULL) AS mut_alg_srtonrgoed_key,
+                   cogo.alg_onrgoed_niveau AS alg_onrgoed_niveau
+              FROM cnt_contract_onrgoed cogo
+             WHERE cogo.cnt_contract_onrgoed_key NOT IN
+                           (SELECT cnt_contract_onrgoed_key_org
+                              FROM cnt_contract_onrgoed
+                             WHERE cnt_contract_onrgoed_key_org IS NOT NULL)
+                   AND cogo.cnt_mld_melding_key IS NULL
+            UNION ALL
+            SELECT cogm.alg_onrgoed_key,
+                   cogm.cnt_mld_melding_key AS cnt_melding_key,
+                   TO_NUMBER (NULL) AS org_contract_key,
+                   TO_NUMBER (NULL) AS org_contract_onrgoed_key,
+                   TO_NUMBER (NULL) AS org_contract_onrgoed_opp,
+                   TO_NUMBER (NULL) AS org_alg_srtonrgoed_key,
+                   cogm.cnt_contract_key AS mut_contract_key,
+                   cogm.cnt_contract_onrgoed_key AS mut_contract_onrgoed_key,
+                   cogm.cnt_contract_onrgoed_opp AS mut_contract_onrgoed_opp,
+                   cogm.alg_srtonrgoed_key AS mut_alg_srtonrgoed_key,
+                   cogm.alg_onrgoed_niveau AS alg_onrgoed_niveau
+              FROM cnt_contract_onrgoed cogm
+             WHERE cogm.cnt_mld_melding_key IS NOT NULL AND cogm.cnt_contract_onrgoed_key_org IS NULL)
+           mut;
 
-REGISTERRUN('$Workfile: CNT_VIE.SRC $','$Revision$')
+-- Een eerste versie
+CREATE_VIEW(cnt_v_api_contracten, 1)
+AS
+    SELECT c.cnt_contract_key contract_key,
+           c.cnt_contract_nummer contract_nummer,
+           c.cnt_contract_omschrijving omschrijving,
+           c.cnt_contract_looptijd_van looptijd_van,
+           c.cnt_contract_looptijd_tot looptijd_tot,
+           c.cnt_contract_kosten kosten,
+           c.cnt_contract_nummer_intern nummer_intern,
+           c.cnt_contract_korting korting,
+           c.cnt_contract_contact_persoon contactpersoon,
+           c.cnt_contract_document beschrijving,
+           c.cnt_contract_status status,
+           c.cnt_contract_termijnkosten termijnkosten,
+           c.cnt_contract_opmerking opmerking,
+           c.cnt_contract_versie versie,
+           c.cnt_contract_verlenging verlenging,
+           cm.cnt_contract_nummer mantelcontract,
+           b.prs_bedrijf_naam bedrijf,
+           a1.prs_afdeling_naam afdeling,
+           d.ins_discipline_omschrijving discipline,
+           p1.prs_perslid_naam_full eigenaar,
+           p2.prs_perslid_naam_full beheerder,
+           kp.prs_kostenplaats_omschrijving,
+           ks.prs_kostensoort_oms kostensoort,
+           t1.cnt_termijn_omschrijving opzegtermijn,
+           pd.prs_dienst_omschrijving dienst,
+           cp.prs_contactpersoon_naam contactpersoon_extern,
+           c.ins_discipline_key fclt_3d_discipline_key,
+           c.cnt_prs_afdeling_key fclt_3d_afdeling_key
+      FROM cnt_contract c,
+           cnt_contract cm,
+           prs_bedrijf b,
+           prs_afdeling a1,
+           ins_tab_discipline d,
+           prs_v_perslid_fullnames_all p1,
+           prs_v_perslid_fullnames_all p2,
+           prs_kostenplaats kp,
+           prs_kostensoort ks,
+           cnt_termijn t1,
+           prs_dienst pd,
+           prs_contactpersoon cp
+     WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+           AND c.cnt_prs_afdeling_key = a1.prs_afdeling_key(+)
+           AND c.prs_contactpersoon_key = cp.prs_contactpersoon_key(+)
+           AND c.ins_discipline_key = d.ins_discipline_key(+)
+           AND c.prs_perslid_key_eig = p1.prs_perslid_key(+)
+           AND c.prs_perslid_key_beh = p2.prs_perslid_key(+)
+           AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+           AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+           AND c.cnt_contract_mantel_key = cm.cnt_contract_key(+)
+           AND c.cnt_contract_opzegtermijn = t1.cnt_termijn_key
+           AND c.prs_dienst_key = pd.prs_dienst_key(+)
+           AND c.cnt_contract_verwijder IS NULL;
+
+/* Formatted on 17-9-2013 16:56:26 (QP5 v5.115.810.9015) */
+CREATE_VIEW(cnt_v_rap_expimp_cnt, 0)
+(
+   hide_f_result_order,
+   contractnr,
+   externnr,
+   fclt_f_contractsoort,
+   beschrijving,
+   fclt_f_mantelnr,
+   omschrijving,
+   versie,
+   fclt_f_dienst,
+   fclt_f_eigenaar_afd,
+   eigenaar_login,
+   beheerder_login,
+   opmerking,
+   ingangsdatum,
+   rappeldatum,
+   opzegdatum,
+   einddatum,
+   fclt_f_bedrijfnaam,
+   contactnaam,
+   kostenplaatscode,
+   contractbedrag,
+   termijnbedrag,
+   uurtarief,
+   korting,
+   locatiegebouw,
+   verlengen,
+   kenmerk1,
+   kenmerk2,
+   kenmerk3,
+   kenmerk4,
+   kenmerk5,
+   kenmerk6,
+   kenmerk7,
+   kenmerk8,
+   kenmerk9,
+   kenmerk10,
+   kenmerk11,
+   kenmerk12,
+   kenmerk13,
+   kenmerk14,
+   kenmerk15,
+   kenmerk16,
+   kenmerk17,
+   kenmerk18,
+   kenmerk19,
+   kenmerk20,
+   kenmerk21,
+   kenmerk22,
+   kenmerk23,
+   kenmerk24,
+   kenmerk25
+)
+AS
+   WITH ck
+          AS (SELECT   sk.vnr,
+                       sk.cnt_srtkenmerk_key,
+                       sk.cnt_srtkenmerk_omschrijving,
+                       kw.cnt_contract_key,
+                       kw.waarde
+                FROM      (SELECT   ROWNUM vnr,
+                                    cnt_srtkenmerk_key,
+                                    cnt_srtkenmerk_omschrijving
+                             FROM   (  SELECT   sk.cnt_srtkenmerk_key,
+                                                sk.cnt_srtkenmerk_omschrijving
+                                         FROM   cnt_srtkenmerk sk
+                                        WHERE   sk.cnt_srtkenmerk_verwijder IS NULL
+                                                AND sk.cnt_srtkenmerk_kenmerktype IN
+                                                         ('C',
+                                                          'D',
+                                                          'N',
+                                                          'R',
+                                                          'S',
+                                                          'X')
+                                                AND EXISTS
+                                                      (SELECT   1
+                                                         FROM   cnt_kenmerk k
+                                                        WHERE   k.cnt_kenmerk_verwijder IS NULL
+                                                                AND k.cnt_srtkenmerk_key =
+                                                                      sk.cnt_srtkenmerk_key)
+                                     ORDER BY   sk.cnt_srtkenmerk_omschrijving))
+                          sk
+                       LEFT JOIN
+                          (SELECT   sk.cnt_srtkenmerk_key,
+                                    ck.cnt_contract_key,
+                                    DECODE (
+                                       sk.cnt_srtkenmerk_kenmerktype,
+                                       'R',
+                                       fac.getdomeinwaarde (
+                                          sk.fac_kenmerkdomein_key,
+                                          ck.cnt_kenmerkcontract_waarde
+                                       ),
+                                       'S',
+                                       fac.getdomeinwaarde (
+                                          sk.fac_kenmerkdomein_key,
+                                          ck.cnt_kenmerkcontract_waarde
+                                       ),
+                                       ck.cnt_kenmerkcontract_waarde
+                                    )
+                                       waarde
+                             FROM   cnt_kenmerkcontract ck,
+                                    cnt_kenmerk k,
+                                    cnt_srtkenmerk sk
+                            WHERE   ck.cnt_kenmerkcontract_verwijder IS NULL
+                                    AND ck.cnt_kenmerk_key =
+                                          k.cnt_kenmerk_key
+                                    AND k.cnt_kenmerk_verwijder IS NULL
+                                    AND k.cnt_srtkenmerk_key =
+                                          sk.cnt_srtkenmerk_key) kw
+                       ON sk.cnt_srtkenmerk_key = kw.cnt_srtkenmerk_key)
+   SELECT   0,
+            'Contractnr' contractnr,
+            'Externnr' externnr,
+            'Contractsoort' contractsoort,
+            'Beschrijving' beschrijving,
+            'Mantelnr' mantelnr,
+            'Omschrijving' omschrijving,
+            'Versie' versie,
+            'Dienst' dienst,
+            'Contractafdelingcode' eigenaar_afd,
+            'Contactpersoonlogin' eigenaar_login,
+            'Contractbeheerderlogin' beheerder_login,
+            'Opmerking' opmerking,
+            'Ingangsdatum' ingangsdatum,
+            'Rappeldatum' rappeldatum,
+            'Opzegdatum' opzegdatum,
+            'Einddatum' einddatum,
+            'Bedrijfnaam' bedrijfnaam,
+            'Contactnaam' contactnaam,
+            'Kostenplaatscode' kostenplaatscode,
+            'Contractbedrag' contractbedrag,
+            'Termijnbedrag' termijnbedrag,
+            'Uurtarief' uurtarief,
+            'Korting' korting,
+            'Locatiegebouw' locatiegebouw,
+            'Verlengen' verlengen,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 1)) kenmerk1,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 2)) kenmerk2,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 3)) kenmerk3,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 4)) kenmerk4,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 5)) kenmerk5,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 6)) kenmerk6,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 7)) kenmerk7,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 8)) kenmerk8,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 9)) kenmerk9,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 10)) kenmerk10,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 11)) kenmerk11,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 12)) kenmerk12,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 13)) kenmerk13,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 14)) kenmerk14,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 15)) kenmerk15,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 16)) kenmerk16,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 17)) kenmerk17,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 18)) kenmerk18,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 19)) kenmerk19,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 20)) kenmerk20,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 21)) kenmerk21,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 22)) kenmerk22,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 23)) kenmerk23,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 24)) kenmerk24,
+            TO_CHAR ( (SELECT MAX (cnt_srtkenmerk_omschrijving) FROM ck WHERE vnr = 25)) kenmerk25
+     FROM   DUAL
+   UNION ALL
+   SELECT   1,
+            x.cnt_contract_nummer_intern contractnr,
+            x.cnt_contract_nummer externnr,
+            x.contractsoort,
+            x.cnt_contract_omschrijving beschrijving,
+            x.mantelnr,
+            x.cnt_contract_document omschrijving,
+            x.cnt_contract_versie versie,
+            x.dienst,
+            x.afd_eig eigenaar_afd,
+            x.login_eig eigenaar_login,
+            x.login_beh beheerder_login,
+            x.cnt_contract_opmerking opmerking,
+            TO_CHAR (x.cnt_contract_looptijd_van, 'dd-mm-yyyy') ingangsdatum,
+            TO_CHAR (cnt.cnt_getRappeldatum (x.cnt_contract_key),
+                     'dd-mm-yyyy')
+               rappeldatum,
+            TO_CHAR (cnt.cnt_getOpzegdatum (x.cnt_contract_key),
+                     'dd-mm-yyyy')
+               opzegdatum,
+            TO_CHAR (x.cnt_contract_looptijd_tot, 'dd-mm-yyyy') einddatum,
+            x.bedrijfnaam,
+            x.contactnaam,
+            x.kostenplaatscode,
+            TO_CHAR (x.cnt_contract_kosten) contractbedrag,
+            TO_CHAR (x.cnt_contract_termijnkosten) termijnbedrag,
+            TO_CHAR (x.cnt_contract_uurloon) uurtarief,
+            TO_CHAR (x.cnt_contract_korting) korting,
+            x.plaats locatiegebouw,
+            TO_CHAR (x.cnt_contract_verlenging) verlengen,
+            k1.waarde kenmerk1,
+            k2.waarde kenmerk2,
+            k3.waarde kenmerk3,
+            k4.waarde kenmerk4,
+            k5.waarde kenmerk5,
+            k6.waarde kenmerk6,
+            k7.waarde kenmerk7,
+            k8.waarde kenmerk8,
+            k9.waarde kenmerk9,
+            k10.waarde kenmerk10,
+            k11.waarde kenmerk11,
+            k12.waarde kenmerk12,
+            k13.waarde kenmerk13,
+            k14.waarde kenmerk14,
+            k15.waarde kenmerk15,
+            k16.waarde kenmerk16,
+            k17.waarde kenmerk17,
+            k18.waarde kenmerk18,
+            k19.waarde kenmerk19,
+            k20.waarde kenmerk20,
+            k21.waarde kenmerk21,
+            k22.waarde kenmerk22,
+            k23.waarde kenmerk23,
+            k24.waarde kenmerk24,
+            k25.waarde kenmerk25
+     FROM                                                                              (SELECT   c.*,
+                                                                                                 cd.ins_discipline_omschrijving
+                                                                                                    contractsoort,
+                                                                                                 cm.cnt_contract_nummer_intern
+                                                                                                    mantelnr,
+                                                                                                 d.prs_dienst_omschrijving
+                                                                                                    dienst,
+                                                                                                 a.prs_afdeling_naam
+                                                                                                    afd_eig,
+                                                                                                 eig.prs_perslid_oslogin
+                                                                                                    login_eig,
+                                                                                                 beh.prs_perslid_oslogin
+                                                                                                    login_beh,
+                                                                                                 b.prs_bedrijf_naam
+                                                                                                    bedrijfnaam,
+                                                                                                 cp.prs_contactpersoon_naam
+                                                                                                    contactnaam,
+                                                                                                 kp.prs_kostenplaats_nr
+                                                                                                    kostenplaatscode,
+                                                                                                 p.plaats
+                                                                                          FROM   cnt_v_aanwezigcontract c,
+                                                                                                 cnt_discipline cd,
+                                                                                                 cnt_v_aanwezigcontract cm,
+                                                                                                 prs_dienst d,
+                                                                                                 prs_afdeling a,
+                                                                                                 prs_v_aanwezigperslid eig,
+                                                                                                 prs_v_aanwezigperslid beh,
+                                                                                                 prs_v_aanwezigbedrijf b,
+                                                                                                 prs_contactpersoon cp,
+                                                                                                 prs_kostenplaats kp,
+                                                                                                 (SELECT   DISTINCT
+                                                                                                           cp.cnt_contract_key,
+                                                                                                           COALESCE (
+                                                                                                              l.alg_locatie_code,
+                                                                                                              g.alg_gebouw_code
+                                                                                                           )
+                                                                                                              plaats
+                                                                                                    FROM         cnt_contract_plaats cp
+                                                                                                              LEFT JOIN
+                                                                                                                 alg_v_aanweziglocatie l
+                                                                                                              ON cp.cnt_alg_plaats_key =
+                                                                                                                    l.alg_locatie_key
+                                                                                                                 AND cp.cnt_alg_plaats_code =
+                                                                                                                       'L'
+                                                                                                           LEFT JOIN
+                                                                                                              alg_v_aanweziggebouw g
+                                                                                                           ON cp.cnt_alg_plaats_key =
+                                                                                                                 g.alg_gebouw_key
+                                                                                                              AND cp.cnt_alg_plaats_code =
+                                                                                                                    'G'
+                                                                                                   WHERE   cp.cnt_contract_plaats_verwijder IS NULL)
+                                                                                                 p
+                                                                                         WHERE   c.ins_discipline_key =
+                                                                                                    cd.ins_discipline_key
+                                                                                                 AND c.cnt_contract_mantel_key =
+                                                                                                       cm.cnt_contract_key(+)
+                                                                                                 AND c.prs_dienst_key =
+                                                                                                       d.prs_dienst_key(+)
+                                                                                                 AND c.prs_afdeling_key_eig =
+                                                                                                       a.prs_afdeling_key
+                                                                                                 AND c.prs_perslid_key_eig =
+                                                                                                       eig.prs_perslid_key(+)
+                                                                                                 AND c.prs_perslid_key_beh =
+                                                                                                       beh.prs_perslid_key(+)
+                                                                                                 AND c.cnt_prs_bedrijf_key =
+                                                                                                       b.prs_bedrijf_key
+                                                                                                 AND c.prs_kostenplaats_key =
+                                                                                                       kp.prs_kostenplaats_key(+)
+                                                                                                 AND c.prs_contactpersoon_key =
+                                                                                                       cp.prs_contactpersoon_key(+)
+                                                                                                 AND c.cnt_contract_key =
+                                                                                                       p.cnt_contract_key(+))
+                                                                                       x
+                                                                                    LEFT JOIN
+                                                                                       ck k1
+                                                                                    ON x.cnt_contract_key = k1.cnt_contract_key AND k1.vnr = 1
+                                                                                 LEFT JOIN
+                                                                                    ck k2
+                                                                                 ON x.cnt_contract_key = k2.cnt_contract_key AND k2.vnr = 2
+                                                                              LEFT JOIN
+                                                                                 ck k3
+                                                                              ON x.cnt_contract_key = k3.cnt_contract_key AND k3.vnr = 3
+                                                                           LEFT JOIN
+                                                                              ck k4
+                                                                           ON x.cnt_contract_key = k4.cnt_contract_key AND k4.vnr = 4
+                                                                        LEFT JOIN
+                                                                           ck k5
+                                                                        ON x.cnt_contract_key = k5.cnt_contract_key AND k5.vnr = 5
+                                                                     LEFT JOIN
+                                                                        ck k6
+                                                                     ON x.cnt_contract_key = k6.cnt_contract_key AND k6.vnr = 6
+                                                                  LEFT JOIN
+                                                                     ck k7
+                                                                  ON x.cnt_contract_key = k7.cnt_contract_key AND k7.vnr = 7
+                                                               LEFT JOIN
+                                                                  ck k8
+                                                               ON x.cnt_contract_key = k8.cnt_contract_key AND k8.vnr = 8
+                                                            LEFT JOIN
+                                                               ck k9
+                                                            ON x.cnt_contract_key = k9.cnt_contract_key AND k9.vnr = 9
+                                                         LEFT JOIN
+                                                            ck k10
+                                                         ON x.cnt_contract_key = k10.cnt_contract_key AND k10.vnr = 10
+                                                      LEFT JOIN
+                                                         ck k11
+                                                      ON x.cnt_contract_key = k11.cnt_contract_key AND k11.vnr = 11
+                                                   LEFT JOIN
+                                                      ck k12
+                                                   ON x.cnt_contract_key = k12.cnt_contract_key AND k12.vnr = 12
+                                                LEFT JOIN
+                                                   ck k13
+                                                ON x.cnt_contract_key = k13.cnt_contract_key AND k13.vnr = 13
+                                             LEFT JOIN
+                                                ck k14
+                                             ON x.cnt_contract_key = k14.cnt_contract_key AND k14.vnr = 14
+                                          LEFT JOIN
+                                             ck k15
+                                          ON x.cnt_contract_key = k15.cnt_contract_key AND k15.vnr = 15
+                                       LEFT JOIN
+                                          ck k16
+                                       ON x.cnt_contract_key = k16.cnt_contract_key AND k16.vnr = 16
+                                    LEFT JOIN
+                                       ck k17
+                                    ON x.cnt_contract_key = k17.cnt_contract_key AND k17.vnr = 17
+                                 LEFT JOIN
+                                    ck k18
+                                 ON x.cnt_contract_key = k18.cnt_contract_key AND k18.vnr = 18
+                              LEFT JOIN
+                                 ck k19
+                              ON x.cnt_contract_key = k19.cnt_contract_key AND k19.vnr = 19
+                           LEFT JOIN
+                              ck k20
+                           ON x.cnt_contract_key = k20.cnt_contract_key AND k20.vnr = 20
+                        LEFT JOIN
+                           ck k21
+                        ON x.cnt_contract_key = k21.cnt_contract_key AND k21.vnr = 21
+                     LEFT JOIN
+                        ck k22
+                     ON x.cnt_contract_key = k22.cnt_contract_key AND k22.vnr = 22
+                  LEFT JOIN
+                     ck k23
+                  ON x.cnt_contract_key = k23.cnt_contract_key AND k23.vnr = 23
+               LEFT JOIN
+                  ck k24
+               ON x.cnt_contract_key = k24.cnt_contract_key AND k24.vnr = 24
+            LEFT JOIN
+               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,
+   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,
+   district_omschrijving,
+   locatie_code,
+   discipline_omschrijving,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   kosten,
+   termijnkosten,
+   korting,
+   dienst_omschrijving
+)
+AS
+   SELECT c.cnt_contract_nummer_intern,
+          c.cnt_contract_nummer,
+          c.cnt_contract_versie,
+          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,
+          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)
+             fase_actief,
+          c.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_district_omschrijving,
+          alg_locatie_code,
+          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,   cloc.cnt_contract_plaats_gewicht
+                            * c.cnt_contract_kosten
+                            / (SELECT SUM (cnt_contract_plaats_gewicht)
+                                 FROM cnt_contract_plaats ccp
+                                WHERE ccp.cnt_contract_key = cnt_contract_key),
+                         c.cnt_contract_kosten), 2)
+             kosten,
+          c.cnt_contract_termijnkosten,
+          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,
+          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_code,
+                  alg_district_key,
+                  cnt_contract_key,
+                  ll.alg_locatie_key,
+                  cnt_contract_plaats_gewicht
+             FROM alg_locatie ll,
+                  (SELECT cp.cnt_contract_key,
+                          cp.cnt_alg_plaats_key alg_locatie_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, 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, 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
+                     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
+                     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
+                     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) 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 c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+          AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+          AND (c.cnt_contract_status = 0
+               AND (SYSDATE < c.cnt_contract_looptijd_van
+                    OR (SYSDATE BETWEEN c.cnt_contract_looptijd_van
+                                    AND  cnt.cnt_getrappeldatum (c.cnt_contract_key))
+                    OR (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
+                                    AND  cnt.cnt_getopzegdatum (c.cnt_contract_key))
+                    OR (SYSDATE - 1 BETWEEN cnt.cnt_getopzegdatum (c.cnt_contract_key) - 1
+                                        AND  c.cnt_contract_looptijd_tot)))
+          AND c.cnt_contract_key IN
+                   (SELECT cnt_contract_key
+                      FROM (SELECT cc.cnt_contract_key,
+                                   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);
+
+REGISTERRUN('$Id$')
 
 #endif // CNT

COMSQL.H

@@ -14,22 +14,24 @@
 #define STRINGIZE(a) #@a
 #define _EVALCONCAT(a, b) a ## b
 #define EVALCONCAT(a, b) _EVALCONCAT(a, b)
+#define _MKSTRING(a) STRINGIZE(a)
 
 /*
- * The database schema version; must increase with every release
+ * The database schema version must increase with every release
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 5
+#define _VERSIONMAJ 2015
 #define _VERSIONMIN 2
-#define _VERSIONPATCH STRINGIZE(2)
-#define _VERSION '5.2.2'
+#define _VERSIONPATCH 'a'
+#define _VERSION '2015.2.a'
+#define _DBV_STRING _MKSTRING(_DBV)
 
-#define REGISTERONCE(f, r) \
-BEGIN adm.systrackscript(f, r, 1); END;~/
+#define REGISTERONCE(svnid) \
+BEGIN adm.systrackscriptId(svnid, 1); END;~/
 
-#define REGISTERRUN(f, r) \
-BEGIN adm.systrackscript(f, r, 0); END;~/
+#define REGISTERRUN(svnid) \
+BEGIN adm.systrackscriptId(svnid, 0); END;~/
 
 #define SET_VERWIJDER_CHILDREN(child_table, parent_key, parent_verwijder,      \
         child_verwijder, table)                                                \
@@ -77,6 +79,9 @@ BEGIN adm.systrackscript(f, r, 0); END;~/
  END
 
 
+#define CREATE_TYPE(type_name)                                                 \
+ CREATE TYPE type_name
+
 #define CREATE_TABLE(table_name, level)                                        \
  CREATE TABLE table_name
 
@@ -97,16 +102,16 @@ INTO x
 #define CREATE_SEQUENCE(sequence_name, minval) \
 CREATE SEQUENCE sequence_name MINVALUE minval;
 
-#define CREATE_VIEW(view_name, level)                                          \
+#define CREATE_VIEW(view_name, level) \
  CREATE OR REPLACE FORCE VIEW view_name
 
-#define CREATE_TRIGGER(trigger_name)                           \
+#define CREATE_TRIGGER(trigger_name) \
   CREATE OR REPLACE TRIGGER trigger_name
 
-#define _END_TRIGGER()                           \
+#define _END_TRIGGER() \
   END;~/
 
-#define CREATE_PROCEDURE(pack_name, proc_name)                      \
+#define CREATE_PROCEDURE(pack_name, proc_name) \
     CREATE OR REPLACE PROCEDURE proc_name
 
 #define MONEY \
@@ -219,49 +224,9 @@ INTO x
 #define _INTO3(x) \
 ,x
 
-#define _DUMMY1_FROM \
-DECLARE dummy CHAR;~BEGIN~SELECT 'X' INTO dummy FROM
-#define _DUMMY1_WHEN1
-#define _DUMMY1_WHEN0 \
-EXCEPTION WHEN NO_DATA_FOUND THEN
-#define _DUMMY1_WHEN2 \
-WHEN TOO_MANY_ROWS THEN
-#define _DUMMY1_END1
-#define _DUMMY1_END2 \
-end;
-
-#define _U_NEW \
-:new.
-#define _U_OLD \
-:old.
-
-#define _U_UPDATE(table,field,new) \
-field := new;
-
 #define UPDATE_UPPER(omschrijving, upper_omschrijving,tab)          \
  :new.upper_omschrijving := UPPER(:new.omschrijving)
 
-#define _BEFORE_INSERT_OR_UPDATE(TableName) \
-BEFORE INSERT OR UPDATE ON TableName
-
-#define _AFTER_UPDATE(TableName) \
-AFTER UPDATE ON TableName
-
-#define _BEFORE_UPDATE(TableName) \
-BEFORE UPDATE ON TableName
-
-#define _BEFORE_INSERT_OR_UPDATE_OR_DELETE(TableName) \
-BEFORE INSERT OR UPDATE OR DELETE ON TableName
-
-#define _AFTER_INSERT_OR_UPDATE_OR_DELETE(TableName) \
-AFTER INSERT OR UPDATE OR DELETE ON TableName
-
-#define _AFTER_INSERT_OR_UPDATE(TableName) \
-AFTER INSERT OR UPDATE ON TableName
-
-#define _BEFORE_DELETE(TableName) \
-BEFORE DELETE ON TableName
-
 #define UPDATE_AANMAAKDATUM(TableName, Datum_veld)          \
  BEGIN                                                      \
    IF :new.Datum_veld IS NULL                   \
@@ -270,11 +235,6 @@ BEFORE DELETE ON TableName
    END IF;                          \
  END
 
-#define _OR_REPLACE \
-OR REPLACE
-
-#define _FOR_EACH_ROW \
-FOR EACH ROW
 
 #define _CC \
 ||
@@ -672,14 +632,19 @@ 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_SRTNOT(c, m, o, u, g, x) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode) VALUES (c, m, o, u, g, x)
+#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_MENUITEM(g, l, i, m, u, s, d, f, rw, x) 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) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x FROM fac_functie WHERE fac_functie_code=f
-#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_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_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
 #define DEF_STATUS(x, c, t)INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
+
+// Voeg (nieuwe, default) menukop met label a van groep g en level l toe na bestaande menuoptie met label b, increment n
+#define MENU_INSKOP_AFTER(a, b, g, n) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT fac_menu_volgnr + n, a, g, 1 FROM fac_menu m WHERE m.fac_menuitems_key = (SELECT MAX (mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
+// Voeg (nieuwe, default) menuoptie met label a toe na de eerste bestaande menukop met label b, increment n
+#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, MIN (m.fac_menu_volgnr) + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
 // Voeg (nieuwe, default) menuoptie met label a toe na bestaande menuoptie met label b, increment n
 #define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // poging 1
@@ -690,48 +655,6 @@ CEIL
 // De CHECK() geeft het wel, dus wordt deze gebruikt.
 #define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
 
-/* Doorloop de onthouden PrimaryKeys via FAC_P_FAC_SAVE_RESTORE en roep voor elke key de functie Func
- * aan. Deze doet de uiteindelijke actie.
- * Func krijgt als argument de key (NUMBER) mee en moet een BOOLEAN teruggeven.
- * Zie ook commentaar in FAC_PAC.SRC.
- */
-#define FAC_P_FAC_SAVE_RESTORE_UPDATE(Func, TableName) \
-_ORACLE(DECLARE) \
-   _DECLARE_VAR(IndexNr)    NUMBER; \
-   _DECLARE_VAR(PrimaryKey) NUMBER(10); \
-   _DECLARE_VAR(Dummy)      BOOLEAN; \
-_ORACLE(BEGIN) \
-   _SET_VAR(IndexNr) _ASSIGN 1; \
-   _SET_VAR(PrimaryKey) _ASSIGN fac_p_fac_save_restore.GetPrimaryKey(TableName, _VAR(IndexNr)); \
-   WHILE _VAR(PrimaryKey) IS NOT NULL \
-   _ORACLE(LOOP)_MSSQL(begin) \
-      _ORACLE( _SET_VAR(Dummy) _ASSIGN Func(PrimaryKey) ); \
-      _MSSQL(  _EXEC1( Func, _VAR(PrimaryKey)) ); \
-      _SET_VAR(IndexNr) _ASSIGN _VAR(IndexNr) + 1; \
-      _SET_VAR(PrimaryKey) _ASSIGN fac_p_fac_save_restore.GetPrimaryKey(TableName, _VAR(IndexNr)); \
-   _END_LOOP; \
-_MSSQL(  _EXEC1( fac_p_fac_save_restore.ResetSelectie, TableName) ); \
-_ORACLE(Dummy := fac_p_fac_save_restore.ResetSelectie(TableName)); \
-_ORACLE(END)
-
-/* Macros voor het vullen van de INS bibliotheek in INS_DATA.SRC */
-#define DEF_DISCIPLINE(ldis)\
- INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level) \
- VALUES('INS', SUBSTR(ldis ,1, 30), 1)
-
-#define DEF_GROEPSOORT(ldis, lgrp)\
- INSERT INTO ins_srtgroep (ins_discipline_key, ins_srtgroep_module, ins_srtgroep_omschrijving) \
- SELECT ins_discipline_key, 'INS', SUBSTR(lgrp, 1,30) FROM ins_tab_discipline \
- WHERE SUBSTR(UPPER(ins_discipline_omschrijving),1,30) = SUBSTR(UPPER(ldis),1,30)
-
-#define DEF_DEELSOORT(ldis, lgrp, lds, lsym, lcode)\
- INSERT INTO ins_srtdeel \
- (ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_code, \
- ins_srtdeel_acadsymbol, ins_srtdeel_omschrijving,ins_srtdeel_dimensie) \
- SELECT ins_srtgroep_key, 'INS', lcode ,lsym, SUBSTR(lds,1,30), 0 \
- FROM ins_srtgroep \
- WHERE SUBSTR(UPPER(ins_srtgroep_omschrijving),1,30) = SUBSTR(UPPER(lgrp),1,30)
-
 #define BEGIN_MODULE(m) \
  DECLARE ~\
    dummy VARCHAR2(1); ~\
@@ -753,12 +676,6 @@ _ORACLE(END)
  SQL_SPOOL(START n.m) ~\
  END_MODULE(m)
 
-#define __T__USER_OBJECTS__OBJECT_TYPE__TYPE \
-VARCHAR2(50)
-
-#define __T__ins_discipline__ins_discipline_key__TYPE \
-NUMBER(10)
-
 #define START_LOCALEITEMS(dialect_id) \
 DECLARE                            ~ \
     v_dialect_id fac_localeitems.fac_localeitems_dialect_id%TYPE; ~ \

FAC/FAC_IND.SRC

@@ -26,6 +26,10 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
                       prs_bedrijf_key,
                       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);
 CREATE INDEX fac_i_tracking_perslidkey1 ON fac_tracking(prs_perslid_key);
 CREATE INDEX fac_i_tracking_srtnotkey1 ON fac_tracking(fac_srtnotificatie_key);
@@ -35,4 +39,4 @@ CREATE INDEX fac_i_imp_factuur1 ON fac_imp_factuur (ordernr);
 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);
-REGISTERONCE('$Workfile: FAC_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')

FAC/FAC_LCL.SRC

@@ -53,6 +53,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Aantal bezoekers' ,                     'Number of visitors',                   'Anzahl Besucher', 'Nombre de visiteurs')
     FACMGT_LCL('Aantal bezoekers verplicht (alleen ruimtes)' , 'Number of visitors mandatory (rooms only)', 'Anzahl Besucher verpflichtet (nur R<>ume)', 'Nombre de visiteurs oblig<69> (espaces seul)')
     FACMGT_LCL('Aantal dagen tbv. herinnering' ,        'Number of days for reminder',          'Anzahl Tage f<>r Erinnerung', 'Nombres de jours pour rappel')
+    FACMGT_LCL('Aantal leden',                          'Number of members',                    'Anzahl Mitglieder', 'Nombre de membres')
     FACMGT_LCL('Aanwijzing' ,                           'Hint',                                 'Hinweis', 'Conseil')
     FACMGT_LCL('Acceptatietijd (uren)' ,                'Accept time (hours)',                   'Akzeptierungzeit (Stunden)', 'temps de l''acceptation')
     FACMGT_LCL('Activiteit' ,                           'Activity',                             'Aktivit<69>t', 'Activit<69>')
@@ -67,19 +68,29 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Artikelnummer' ,                        'Item number',                          'Artikelnummer', 'No. d''article')
     FACMGT_LCL('AutoCAD lagen' ,                        'AutoCAD layers',                       'AutoCAD Schichten', 'Calques AutoCAD')
     FACMGT_LCL('Automatisch aanmaken bestelopdracht' ,  'Automatically create a purchase order', 'Automatisch schaffen Auftrag', 'Cr<43>er ordre d''achat automatiquement')
-    FACMGT_LCL('Automatisch accepteren aanvraag' ,      'Automatically accept request',             'Automatisch akzeptieren Antrag', 'Accepter demande automatiquement')
+    FACMGT_LCL('Automatisch fiatteren aanvragen' ,      'Automatically approve requests',             'Automatisch Genehmigen Antr<EFBFBD>ge', 'Accepter demande automatiquement')
     FACMGT_LCL('Automatisch opdracht aanmaken' ,        'Automatically create order',               'Automatisch schaffen Auftrag', 'Cr<43>er ordre automatiquement')
     FACMGT_LCL('Automatisch verversen' ,                'Automatically refresh',                    'Automatische Bildwiederholung', 'Actualisation automatique')
+    FACMGT_LCL('Automatisch nummeren',                  'Auto id number',                  'Automatische Nummerierung', 'Num<75>rotation automatique')
     FACMGT_LCL('Autorisatie als' ,                      'Authorisation like',                     'Autorisierung als', 'Autorisation comme')
     FACMGT_LCL('Autorisatie groep' ,                    'Authorisation group',                  'Autorisierungsgruppe', 'Groupe d''autorisation')
     FACMGT_LCL('Autorisatie',                           'Authorisation',                        'Autorisierung' , 'Autorisation')
     FACMGT_LCL('BTW' ,                                  'VAT',                                  'MwSt', 'TVA')
     FACMGT_LCL('BTW tabel' ,                            'VAT table',                            'MwSt Tabelle', 'Tableau TVA')
     FACMGT_LCL('Backoffice bestellimiet' ,              'Back office purchase order limit',     'Innendienst Bestellungsgrenze', 'Limit de commande du back-office')
-    FACMGT_LCL('Backoffice notificeren (MLD2BO)' ,      'Notify back office (MLD2BO)',          'Innendienst notifizieren (MLD2BO)', 'Notifier back-office')
+    FACMGT_LCL('Backoffice bestellimiet2' ,              'Back office purchase order limit2',     'Innendienst Bestellungsgrenze2', 'Limit2 de commande du back-office')
+    FACMGT_LCL('Backoffice bestellimiet3' ,              'Back office purchase order limit3',     'Innendienst Bestellungsgrenze3', 'Limit3 de commande du back-office')
+    FACMGT_LCL('Backoffice bestellimiet4' ,              'Back office purchase order limit4',     'Innendienst Bestellungsgrenze4', 'Limit4 de commande du back-office')
+    FACMGT_LCL('Backoffice bestellimiet5' ,              'Back office purchase order limit5',     'Innendienst Bestellungsgrenze5', 'Limit5 de commande du back-office')
+    FACMGT_LCL('Backoffice notificeren (MLD2BO/MLD2B3)', 'Notify back office (MLD2BO/MLD2B3)',    'Innendienst notifizieren (MLD2BO/MLD2B3)', 'Notifier back-office')
+    FACMGT_LCL('Backoffice notificeren (BES2BO)' ,      'Notify back office (BES2BO)',          'Innendienst notifizieren (BES2BO)', 'Notifier back-office')
     FACMGT_LCL('Bedrijf' ,                              'Company',                              'Betrieb', 'Enterprise')
+    FACMGT_LCL('Behandelaar notificeren (MLDBE2)',      'Notify assigned to (MLDBE2)',          'Bearbeiter notifizieren (MLDBE2)', ' Notifier Praticien')
+    FACMGT_LCL('Behandelgroep',                         'Treatment group',                      'Behandlungsgruppe', 'Groupe de traitement')
+    FACMGT_LCL('Beschikbaarheid',                       'Availability',                         'Verf<72>gbarkeit', 'Disponibilit<69>')
     FACMGT_LCL('Bestelgegevens' ,                       'Purchase orders data',               'Bestellungsdaten', 'Donn<6E>es de commande')
     FACMGT_LCL('Bevat werkplek' ,                       'Contains work place',                  'Enth<74>lt Arbeitsplatz', 'Compred lieu de travail')
+    FACMGT_LCL('Bits' ,                                 'Bits',                                 'Bits', 'Bits')
     FACMGT_LCL('Bij' ,                                  'By',                                   'Bei', 'A')
     FACMGT_LCL('Bijbehorende melding sluiten met laatste opdracht' , 'Close related call together with last order', 'Dazugeh<65>rige Meldung schlie<69>en mit letzten Auftrag', 'Terminer appel correspondant avec dernier ordre')
     FACMGT_LCL('Bijbehorende melding sluiten<br>met laatste opdracht' , 'Close related call<br>together with last order', 'Dazugeh<65>rige Meldung schlie<69>en<br>mit letzten Auftrag', 'Terminer appel correspondant<br>avec dernier ordre')
@@ -115,6 +126,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Eenheid' ,                              'Unit',                                 'Einheit', 'Unit<69>')
     FACMGT_LCL('Eenheid/Extensie' ,                     'Unit/Extension',                    'Einheit/Extension', 'Unit<69>/Extension')
     FACMGT_LCL('Eigen tabel' ,                          'Custom table',                         'Eigene Tabelle', 'Tableaux personels')
+    FACMGT_LCL('Einddatum',                             'End date',                             'Schlu<6C>datum', 'Date de fin')
     FACMGT_LCL('Exacte waarden' ,                       'Exact values',                      'Genaue Werte', 'Valeurs exactes')
     FACMGT_LCL('Expire dagen' ,                         'Expire days',                        'Ablauf Tage', 'Jours d''expiration')
     FACMGT_LCL('Expire tijdstip' ,                      'Expire time',                     'Ablauf Zeit', 'Heure d''expiration')
@@ -180,6 +192,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Gebruikerstabel' ,                      'User table',                     'Benutzertabelle', 'Tableau d''utilisateur')
     FACMGT_LCL('Gekoppeld aan inkoopcatalogus' ,        'Related to purchase catalogue',       'Gekoppelt zu Einkaufkatalog', 'Relat<61> <20> Catalogue d''achat')
     FACMGT_LCL('Genereer legenda' ,                     'Generate legend',                    'Schaffe Erkl<6B>rung', 'Cr<43>er legende')
+    FACMGT_LCL('Goedkeuringsvrijstelling',              'Approval exemption',            'Genehmigungsfreistellung', 'Exemption d''approbation')
     FACMGT_LCL('Grafisch binnen' ,                      'Graphics inside',                     'Grafisch innen', 'Graphique <20> l''int<6E>rieur')
     FACMGT_LCL('Grafisch buiten' ,                      'Graphics outside',                     'Grafisch au<61>en', 'Graphique <20> l''ext<78>rieur')
     FACMGT_LCL('Grenswaarde' ,                          'Limit value',                         'Grenzwert', 'Valeur de limite')
@@ -204,7 +217,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Is default' ,                           'Is default',                          'Ist Vorgabe', 'Est standard')
     FACMGT_LCL('Is default opstelling' ,                'Is default configuration',               'Ist Standardkonfiguration', 'Est agencement standard')
     FACMGT_LCL('KPN Groep' ,                            'Cost centre group',                           'Kostenstellegruppe', 'Groupe de centre de co<63>ts')
-    FACMGT_LCL('Behandeling door frontoffice' ,         'Processing by front office',          'Abwicklungn durch Zentrale', 'Manipulation par front-office')
+    FACMGT_LCL('Kan door frontoffice worden behandeld', 'Can be processed by front office',      'Kann durch Front-Office behandelt werden', 'Peut <20>tre manipul<EFBFBD> par front office')
     FACMGT_LCL('Kenmerkdomein' ,                        'Property domain',                       'Eigenschaftdom<6F>ne', 'Domaine de caract<63>ristique')
     FACMGT_LCL('Kenmerksoort' ,                         'Property type',                        'Eigenschaftsorte', 'Sorte de caract<63>ristique')
     FACMGT_LCL('Kenmerktype' ,                          'Property type',                         'Eigenschafttyp', 'Type de caract<63>ristique')
@@ -225,6 +238,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Kostensoort' ,                          'Cost category',                          'Kostenart', 'Type de co<63>ts')
     FACMGT_LCL('Kostensoortgroep' ,                     'Cost category group',                    'Kostenartgruppe', 'Groupe de type de co<63>ts')
     FACMGT_LCL('Label grootte' ,                        'Label size',                       'Kennsatz Gr<47><72>e', 'Etiquette mesures')
+    FACMGT_LCL('Label tonen' ,                          'Show label',                       'Kennsatz zeigen', 'Montrer l''<27>tiquette')
     FACMGT_LCL('Leesrechten' ,                          'Read rights',                         'Leserechten', 'droits de lecture')
     FACMGT_LCL('Legenda' ,                              'Legend',                               'Legende', 'Legende')
     FACMGT_LCL('Lengte' ,                               'Length',                              'Lange', 'Longeur')
@@ -241,6 +255,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Mail' ,                                 'Mail',                                 'E-Mail', 'Courrier')
     FACMGT_LCL('Malus' ,                                'Malus',                                'Malus', 'Sanction')
     FACMGT_LCL('Maximum' ,                              'Maximum',                              'Maximum', 'Maximum')
+    FACMGT_LCL('Meermaals reserveerbaar',               'Repeatedly reservable',                'Mehrmals reservierbar', 'Plusieurs reprises r<>servables')
     FACMGT_LCL('Meetwaarde' ,                           'Measure value',                        'Ma<4D>nahme', 'Valeur mesur<75>e')
     FACMGT_LCL('Melder notificeren' ,                   'Notify customer',                      'Kunde benachrichtigen', 'Notifier client')
     FACMGT_LCL('Melding' ,                              'Call',                                 'Meldung', 'Appel')
@@ -249,6 +264,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Minimum' ,                              'Minimum',                              'Minimum', 'Minimum')
     FACMGT_LCL('Mode' ,                                 'Mode',                                 'Mode', 'Mode')
     FACMGT_LCL('Module' ,                               'Module',                               'Modul', 'Module')
+    FACMGT_LCL('Moment' ,                               'Moment',                               'Moment', 'Moment')
     FACMGT_LCL('Naam' ,                                 'Name',                                 'Name', 'Nom')
     FACMGT_LCL('NextRun' ,                              'NextRun',                              'N<>chstes Mal', 'Prochaine ex<65>cution')
     FACMGT_LCL('Nextrun (dd-mm-jjjj hh:mm:ss)' ,        'Nextrun (dd-mm-yyyy hh:mm:ss)',        'N<>chstes Mal (dd-mm-jjjj uu:mm:ss)', 'Prochaine ex<65>cution (dd-mm-aaaa hh:mm:ss)')
@@ -262,10 +278,11 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Object naam' ,                          'Object name',                          'Objekt Name', 'Nom d''objet')
     FACMGT_LCL('Objectgegevens' ,                       'Object details',                       'Objektdaten', 'Donn<6E>es de l''objet')
     FACMGT_LCL('Objectnaam' ,                           'Object name',                          'Objekt Name', 'Nom d''objet')
-    FACMGT_LCL('Objectsoort' ,                          'Object type',                          'Objektsorte', 'Sorte d''opbjet')
+    FACMGT_LCL('Objectsoort' ,                          'Object type',                          'Objektsorte', 'Sorte d''objet')
     FACMGT_LCL('Omschrijving' ,                         'Description',                          'Umschreibung', 'Description')
     FACMGT_LCL('Omschrijving object' ,                  'Description object',                   'Umschreibung Objekt', 'Description d''objet')
     FACMGT_LCL('Omschrijvingsveld' ,                    'Description field',                    'Umschreibungsfeld', 'Champ de description')
+    FACMGT_LCL('Omschrijvings URL' ,                    'Description URL',                      'Umschreibungs URL', 'URL de description')
     FACMGT_LCL('Onroerend goed' ,                       'Real estate',                          'Immobilien', 'Immobilier')
     FACMGT_LCL('Opdracht sjabloon' ,                    'Order template',                       'Auftragvorlage', 'Mod<6F>le d''ordre')
     FACMGT_LCL('Opdrachttype' ,                         'Order type',                           'Auftragtyp', 'Type d''ordre')
@@ -279,6 +296,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Opmerking URL' ,                        'Remark URL',                           'Bemerkung URL', 'URL Remarque')
     FACMGT_LCL('Oppervlakte' ,                          'Area',                                 'Fl<46>che', 'Surface')
     FACMGT_LCL('Opstelling' ,                           'Configuration',                        'Einrichtung', 'Agencement')
+    FACMGT_LCL('Oproepen',                              'Call',                                 'Aufruf', 'Appel')
     FACMGT_LCL('Org. lezen' ,                           'Org. read',                            'Org. lesen', 'Lire org.')
     FACMGT_LCL('Org. schrijven' ,                       'Org. write',                           'Org. schreiben', 'Ecrire org.')
     FACMGT_LCL('Percentage' ,                           'Percentage',                           'Prozentzahl', 'Pourcentage')
@@ -297,6 +315,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Prijs ''s avonds' ,                     'Price evenings',                       'Preis Abends', 'Prix du soir')
     FACMGT_LCL('Prijs ''s middags' ,                    'Price afternoons',                     'Preis Mittags', 'Prix d''apr<70>s-midi')
     FACMGT_LCL('Prijs ''s ochtends' ,                   'Price mornings',                       'Preis Morgens', 'Prix du matin')
+    FACMGT_LCL('Prijs per dag' ,                        'Price per day',                        'Preis pro Tag', 'Prix par jour')
     FACMGT_LCL('Prijs (&euro; / uur)' ,                 'Price (&euro; / hour)',                'Preis (&euro; / Stunde)', 'Prix (&euro; / heure)')
     FACMGT_LCL('Prijs (&euro;)' ,                       'Price (&euro;)',                       'Preis (&euro;)', 'Prix (&euro)')
     FACMGT_LCL('Prijs (&euro;/ uur)' ,                  'Price(&euro;/ hour)',                 'Preis (&euro;/ Stunde)', 'Prix (&euro;/ heure)')
@@ -309,7 +328,8 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Retour URL' ,                           'Return URL',                           'R<>cksendung URL', 'URL Retour')
     FACMGT_LCL('Retouren toegestaan' ,                  'Returning allowed',                    'R<>cksendungen erlaubt', 'Retourner possible')
     FACMGT_LCL('Ruimte' ,                               'Room',                                 'Raum', 'Espace')
-    FACMGT_LCL('Ruimte categorie' ,                     'Room category',                        'Raumkategorie', 'Cat<EFBFBD>gorie d''espace')
+    FACMGT_LCL('Ruimte catalogus' ,                     'Room catalogue',                       'Raumkatalog', 'Catalogue d''espace')
+    FACMGT_LCL('Ruimte label tonen' ,                   'Show room label',                      'Raum Kennsatz zeigen', 'Montrer l''<27>tiquette d''espace')
     FACMGT_LCL('Ruimte naam' ,                          'Room name',                            'Raumname', 'Nom d''espace')
     FACMGT_LCL('Schoonmaaktijd uren (alleen ruimtes en objecten)', 'Cleaning time hours (rooms and objects only)', 'Reinigungdauer Stunden (nur R<>ume und Objekte)', 'Temps de heures nettoyage (espaces <20> objets seul)')
     FACMGT_LCL('Schrijfrechten' ,                       'Write rights',                         'Schreib-rechten', 'Droits d''<27>crire')
@@ -325,11 +345,11 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Staffelgroep' ,                         'Discount group',                       'Staffelgruppe', 'Groupe de r<>duction')
     FACMGT_LCL('Standaard opdrachttype' ,               'Default order type',                   'Vorgegeben Auftragtyp', 'Type d''ordre standard')
     FACMGT_LCL('Verplicht opdrachttype',                'Mandatory order type',                 'Zwingend Auftragtyp', 'Type d''ordre obligatoire')
+    FACMGT_LCL('Standaard actie',                       'Default action',                       'Standard-Aktion', 'Action par d<>faut')
     FACMGT_LCL('Standaard tijdsduur' ,                  'Default duration',                     'vorgegeben Dauer', 'Dur<75>e standard')
     FACMGT_LCL('Stap' ,                                 'Step',                                 'Schritt', 'Pas')
     FACMGT_LCL('Startdatum te bepalen' ,                'Adjusting start date allowed',                    'Startdatum zu stellen', 'Date de debut <20> d<>terminer')
     FACMGT_LCL('Status' ,                               'Status',                               'Status', 'Etat')
-    FACMGT_LCL('Streeftijd (uren, als uitvoertijd 0)' , 'Strive time (hours, when process time 0)', 'Zeitziel (Stunden, wenn Ausf<73>hrungszeit 0)', 'Temps cible (Heures, si temps d''exc<78>cution est 0)')
     FACMGT_LCL('Stuur SMS' ,                            'Send SMS',                             'Schick SMS', 'Envoyer SMS')
     FACMGT_LCL('Stuur e-mail' ,                         'Send e-mail',                          'Schick E-mail', 'Envoyer e-mail')
     FACMGT_LCL('Symbool Upload' ,                       'Symbol Upload',                        'Symbol Upload', 'T<>l<EFBFBD>charger ic<69>ne')
@@ -341,7 +361,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Te behandelen door dienst' ,            'To be processed by service',           'Zu behandeln durch Dienst', 'A manipuler par service')
     FACMGT_LCL('Tekst' ,                                'Text',                                 'Text', 'Texte')
     FACMGT_LCL('Tekstkolom' ,                           'Text column',                         'Textspalte', 'Colonne de texte')
-    FACMGT_LCL('Ten laste van PGB' ,                    'Charge personal budget',               'Anrechnen zu Pers<72>nliches Budget', 'A la charge du budget personnel')
+    FACMGT_LCL('Ten laste van PGB en/of AGB' ,          'Charge personal/department budget',   'Anrechnen zu Pers<72>nliches/Abteilungs Budget', 'A la charge du budget personnel/d<>partement')
     FACMGT_LCL('Terminologie' ,                         'Terminology',                          'Fachausdr<64>cke', 'Terminologie')
     FACMGT_LCL('Toegang' ,                              'Entry',                                'Zugang', 'Acc<63>s')
     FACMGT_LCL('Toevoegen' ,                            'Add',                                  'Hinzuf<75>gen', 'Ajouter')
@@ -367,12 +387,16 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Verantwoordelijke' ,                    'resp.',                                'Sachbearbeiter(in)', 'Responsable')
     FACMGT_LCL('Verdieping' ,                           'Floor',                                'Stockwerk', 'Etage')
     FACMGT_LCL('Verhuurbaar' ,                          'For rent',                             'Zu Miete', 'Locative')
+    FACMGT_LCL('Uitvoertijd meldingen' ,                'Processing time calls',                'Ausgang Zeit Meldungen', '@Les messages de sortie Temps')
     FACMGT_LCL('Verlegd' ,                              'Shifted',                              'Verstellt', 'D<>plac<61>')
     FACMGT_LCL('Verplicht' ,                            'Mandatory',                            'Erfordlich', 'Obligatoire')
     FACMGT_LCL('Verplicht niveau' ,                     'Mandatory level',                      'Erfordliches Niveau', 'Niveau obligatoire')
-    FACMGT_LCL('Verplicht opdrachtbedrag' ,             'Mandatory order amount',               'Erfordliches Auftragsumme', 'Montant d''ordre obligatoire')
+    FACMGT_LCL('Verplicht opdrachtbedrag vanaf' ,       'Mandatory order amount from',          'Erfordliches Auftragsumme von', 'Montant d''ordre obligatoire de')
     FACMGT_LCL('Vervaldatum' ,                          'Expire date',                          'Ablaufdatum', 'Date d''expiration')
+    FACMGT_LCL('Vervangers' ,                           'Alternates',                           'Stellvertreters', 'Suppl<70>ants')
     FACMGT_LCL('View' ,                                 'View',                                 'View', 'Vue')
+    FACMGT_LCL('Details Ruimtefunctie' ,                'Room function details',                'Room-Funktion Details', '@Salle de d<>tails sur la fonction')
+    FACMGT_LCL('Details Gebouwfunctie' ,                'Building function details',            'Geb<65>uden Funktion Details', '@Du b<>timent de fonction')
 END_FACMGT_LCL()
 
 START_FACMGT_LCL(NULL, NULL)
@@ -390,6 +414,8 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Waarde 4' ,                             'Value 4',                              'Wert 4', 'Valeur 4')
     FACMGT_LCL('Waarde code' ,                          'Value code',                           'Wert Kode', 'Code de la valeur')
     FACMGT_LCL('Waarde omschrijving' ,                  'Value description',                    'Wert Umschreibung', 'Valeur description')
+    FACMGT_LCL('Wachtplaats',                           'Waiting area',                         'Warteplatz', 'Place d''attente')
+    FACMGT_LCL('Verzenden uitstellen (sec)',            'Sending delay (sec)',                  'Versandverz<72>gerung (sec)', 'Retard de livraison (sec)')
     FACMGT_LCL('Wijzigen groep' ,                       'Change group',                         'Gruppe <20>ndern', 'Changer groupe')
     FACMGT_LCL('Wijzigen legenda' ,                     'Change legend',                        'Erkl<6B>rung <20>ndern', 'Modifier legende')
     FACMGT_LCL('Wijzigen profiel' ,                     'Change profile',                       'Profil <20>ndern', 'Changer profil')
@@ -457,21 +483,78 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Opmerking zichtbaar',       'Remark visible',            'Bemerkung sichtbar',      'Remarque visible')
     FACMGT_LCL('Aantal bezoekers zichtbaar','Number of visitors visible','Anzahl Besucher sichtbar','Nombre de visiteurs visible')
     FACMGT_LCL('Automatische offerteafhandeling', 'Automatic offer progress', 'Automatische Preisanfrage Abwicklung', 'Manipulation demande de offre automatique')
-    FACMGT_LCL('Bewerken bij', 'Editable at', '@', '@')
+    FACMGT_LCL('Bewerken bij', 'Editable at', '@Editable bei', '@Modifiable <20>')
     FACMGT_LCL('Via notities interactie met melder', 'Interact with caller by notes', '@Interact with caller by notes', '@Interact with caller by notes')
-    FACMGT_LCL('Bestellen via mandatering ipv scope', '@', '@', '@')
-    FACMGT_LCL('Max. artikelen per bestelling', '@', '@', '@')
-    FACMGT_LCL('Abonnement', 'Subscription', '@', '@')
-    FACMGT_LCL('Contractperiode', '@', '@', '@')
-    FACMGT_LCL('Opzegtermijn', '@', '@', '@')
-    FACMGT_LCL('FE kan bestellen voor anderen', '@', '@', '@')
-    FACMGT_LCL('Interactie met FE mogelijk', '@Interaction with FE possible', '@Interaktion mit FE m<>glich', '@Interaction avec Libre-Service possible')
-    FACMGT_LCL('Door te zetten na acceptatie' , '@', '@', '@')
-    FACMGT_LCL('Verplicht bij status', '@', '@', '@')
+    FACMGT_LCL('Bestellen via mandatering ipv scope', 'Order through mandate instead of scope', '@Bestellung durch mandat statt Bereich', '@Commande par mandat au lieu de port<72>e')
+    FACMGT_LCL('Max. artikelen per bestelling', 'Max. articles per order', 'Maximale Anzahl der Artikel pro Bestellung', '@Articles maximum par commande')
+    FACMGT_LCL('Abonnement', 'Subscription', '@Zeichnung', '@Abonnement')
+    FACMGT_LCL('Contractperiode', 'Contract period', '@Vertragslaufzeit', '@Dur<75>e du contrat')
+    FACMGT_LCL('Opzegtermijn', 'Notice period', '@K<>ndigungsfrist', '@Pr<50>avis')
+    FACMGT_LCL('FE kan bestellen voor anderen', 'FE can order for others', '@FE kann f<>r andere bestellen', '@FE peut commander d''autres')
+    FACMGT_LCL('Interactie met FE mogelijk', 'Possible to interact with FE', '@Interaktion mit FE m<>glich', '@Interaction avec Libre-Service possible')
+    FACMGT_LCL('Door te zetten na acceptatie' , 'Forward to another category after acceptance', '@Vorw<72>rts in eine andere Kategorie nach Annahme', '@Renvoi d''appel vers une autre cat<61>gorie apr<70>s l''acceptation')
+    FACMGT_LCL('Verplicht bij status', 'Mandatory for status', '@Vorgeschrieben f<>r Status', '@Obligatoire sur le statut')
+    FACMGT_LCL('Direct klaar', 'Instantly ready', '@Sofort bereit', '@Instantan<61>ment pr<70>t')
+    FACMGT_LCL('Minimum bestelaantal', 'Minimum order quantity', '@Minimale Bestellmenge', '@Montant minimum de commande')
+    FACMGT_LCL('Regelomschrijving', 'Rule description', '@Regel Beschreibung', '@Description de la r<>gle')
+    FACMGT_LCL('Stapomschrijving', 'Step description', '@Stufe Beschreibung', '@Description de l''<27>tape')
+    FACMGT_LCL('Instellingen', 'Settings', 'Einstellungen', '@R<>glages')
+    FACMGT_LCL('Externe prijzen (&euro;)', 'External prices (&euro;)', 'Externen Preise (&euro;)', 'Prix externes (&euro;)')
+    FACMGT_LCL('Interne prijzen (&euro;)', 'Internal prices (&euro;)', 'Internen Preise (&euro;)', 'Prix internes (&euro;)')
+    FACMGT_LCL('Prijs per uur' ,   'Price per hour',  'Preis pro Stunde', 'Prix par heure')
+    FACMGT_LCL('Prijs ochtend' ,   'Price morning',   'Preis Morgen',     'Prix matin')
+    FACMGT_LCL('Prijs middag' ,    'Price afternoon', 'Preis Mittag',     'Prix apr<70>s-midi')
+    FACMGT_LCL('Prijs avond' ,     'Price evening',   'Preis Abend',      'Prix soir')
+    FACMGT_LCL('Prijs hele dag' ,  'Price whole day', 'Preis ganzen Tag', 'Prix tout les jour')
+    FACMGT_LCL('Kenmerk voor', 'Property for', 'Eigenschaft f<>r', 'Caract<63>ristique pour')
+    FACMGT_LCL('Externe partnerlocatie', 'External partner location', 'Externe Partner', 'Partenaires externes')
+    FACMGT_LCL('Afhandeling verplicht bij afmelden opdracht', 'Progress required when closing order', '@Handhabung erforderlich zum abmelden Auftrag', '@Manipulation n<>cessaire pour fermeture l'' ordre')
+    FACMGT_LCL('Inspectiesoort', 'Inspection type', 'Pr<50>fart', 'Type d''inspection')
+    FACMGT_LCL('Inspectietype', 'Inspection type', 'Pr<50>fart', 'Type d''inspection')
+    FACMGT_LCL('Details inspectiekenmerk', 'Details inspection property', '@Pr<50>fmerkmal Daten', '@D<>tails caract<63>ristique de l''inspection')
+    FACMGT_LCL('Details objectkenmerk', 'Details object property', '@Objekteigenschaften', '@D<>tails caract<63>ristique de l''objet')
+    FACMGT_LCL('Styling optie', 'Styling option', 'Styling-Option', 'Option de styling')
+    FACMGT_LCL('Controle succes', 'Control success', '@Kontrole Erfolg', '@V<>rification de succ<63>s')
+    FACMGT_LCL('Charset', 'Charset', '@Charset', '@Charset')
+    FACMGT_LCL('Maximaal reserveerbare tijd', 'Maximum reservable time', 'Maximal reservierbaren Zeit', 'Le temps maximum r<>servable')
+    FACMGT_LCL('Artikelen', 'Articles', 'Artikel', 'Articles')
+    FACMGT_LCL('Alternatieve naam', 'Other name', 'Weiteren Name', 'Autre nom')
+    FACMGT_LCL('Alternatieve code', 'Other code', 'Weiteren Kode', 'Autre code')
+
+    FACMGT_LCL('Uurlijks', 'Hourly', 'St<53>ndlich', 'Horaires')
+    FACMGT_LCL('Dagelijks', 'Daily', 'T<>glich', 'Quotidien')
+    FACMGT_LCL('Wekelijks', 'Weekly', 'W<>chentlich', 'Hebdomadaire')
+    FACMGT_LCL('Maandelijks', 'Monthly', 'Monatlich', 'Mensuel')
+    FACMGT_LCL('Jaarlijks', 'Yearly', 'J<>hrlich', 'Annuel')
+	  FACMGT_LCL(' is verwijderd', ' has been deleted', ' w<>rde entfernt', ' est <20>limin<69>')
+	  FACMGT_LCL(' niet gevonden', ' not found', ' nicht gefunden', ' non trouv<75>e')
+	  FACMGT_LCL('Soort Controles', 'Inspection types', 'Art der Kontrollen', 'type de contr<74>les')
+    FACMGT_LCL('Details soort controle', 'Inspection type details', 'Art der Kontrolle Daten', 'D<>tails de type contr<74>le')
+    FACMGT_LCL('Selecteer', 'Select', 'Auswahl', 'S<>lectionner')
+    FACMGT_LCL('Controle modes', 'Inspection methodes', 'Kontrolle Methoden', 'M<>thodes de contr<74>le')
+    FACMGT_LCL('Details controle mode', 'Inspection methodes details', 'Kontrolle Methoden Daten', 'D<>tails de m<>thodes contr<74>le')
+    FACMGT_LCL('Controle', 'Inspection', 'Kontrolle', 'Contr<74>le')
+    FACMGT_LCL('D;Object;S;Objectsoort'
+              ,'D;Object;S;Object type'
+              ,'D;Objekt;S;Objektsorte'
+              ,'D;Objet;S;Sorte d''objet')
+    FACMGT_LCL('Normaal', 'Normal', 'Normal', 'Normal')
+    FACMGT_LCL('Persoonsgebonden', 'Related to person', 'Personenbezogen' ,'Caract<63>re personnel')
+    FACMGT_LCL('Verbruiksartikelen-scope', 'Catering scope', 'Verbrauchsmaterialbereich', 'Port<72>e de consommable')
+    FACMGT_LCL('Details Verbruiksartikelen-scope', 'Catering scope details', 'Verbrauchsmaterialbereich daten', 'D<>tails de port<72>e consommable')
+
+
+
+
 END_FACMGT_LCL()
 
 /* Vaste waarden in lijsten van facmgt */
 START_FACMGT_LCL(NULL, NULL)
+
+    FACMGT_LCL('F;Factuur;R;Factuurregel'
+              ,'F;Invoice;R;Invoice lines'
+              ,'F;Rechnung;R;Rechnunglinien'
+              ,'F;Facture;R;Lignes de facture')
     FACMGT_LCL('-1;Alles;0;Regio;1;District;2;Locatie;3;Gebouw;4;Verdieping;5;Ruimte'
               ,'-1;Everything;0;Region;1;District;2;Location;3;Building;4;Floor;5;Room'
 			  ,'-1;Alles;0;Region;1;Bezirk;2;Standort;3;Geb<65>ude;4;Stockwerk;5;Raum'
@@ -508,10 +591,10 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Actual situation;4;Scenario situation'
 			  ,'0;Aktuelle Situation;4;Szenario Situation'
 			  ,'0;Situation actuelle;4;Situation sc<73>nario')
-    FACMGT_LCL('0;Altijd goed;1;Opdrachttotaal;2;Termijn tot opdrachttotaal;3;Wekelijks geregistreerde uren;4;Geen kosten;5;Materiaal;6;Totaal geregistreerde uren'
-              ,'0;Always Ok;1;Order total;2;Term up to order total;3;Weekly registered hours;4;No costs;5;Material;6;Total registered hours'
-			  ,'0;Immer gut;1;Auftragsumme;2;Frist bis zu Auftragsumme;3;W<>chentlich registrierte Stunden;4;Keine Kosten;5;Material;6;Summe registrierte Stunden'
-			  ,'0;Toujours OK;1;Montant de l''ordre;2;Terme jusqu''<27> montant de l''ordre;3;Heures enregistr<74>es par semaine;4;Sans co<63>ts;5;Mat<61>riels;6;Nombre total d''heures enregistr<74>es')
+    FACMGT_LCL('0;Altijd goed;1;Opdrachttotaal;2;Termijn tot opdrachttotaal;3;Wekelijks geregistreerde uren;4;Geen kosten;5;Materiaal;6;Totaal geregistreerde uren;7;Maximum geregistreerde uren'
+              ,'0;Always Ok;1;Order total;2;Term up to order total;3;Weekly registered hours;4;No costs;5;Material;6;Total registered hours;7;Maximum recorded hours'
+			  ,'0;Immer gut;1;Auftragsumme;2;Frist bis zu Auftragsumme;3;W<>chentlich registrierte Stunden;4;Keine Kosten;5;Material;6;Summe registrierte Stunden;7;H<>chste aufgezeichnete Stunden'
+			  ,'0;Toujours OK;1;Montant de l''ordre;2;Terme jusqu''<27> montant de l''ordre;3;Heures enregistr<74>es par semaine;4;Sans co<63>ts;5;Mat<61>riels;6;Nombre total d''heures enregistr<74>es;7;Heures enregistr<74>es maximales')
     FACMGT_LCL('0;Centraal;1;Centraal/Decentraal;2;Decentraal (exclusief)'
               ,'0;Centralised;1;Centralised/Decentralised;2;Decentralised (exclusive)'
 			  ,'0;Zentral;1;Zentral/Dezentral;2;Dezentral (exklusiv)'
@@ -540,12 +623,16 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Not applicable;2;Default off;10;Default on'
 			  ,'0;Nicht anwendbar;2;Standard Aus;10;Standard An'
 			  ,'0;Pas applciable;2;Standard d<>sactiv<69>;10;Standard activ<69>')
+    FACMGT_LCL('0;Standaard uit;1;Standaard aan;2;Kostenplaats niet tonen'
+              ,'0;Default off;1;Default on;2;Don''t show cost centre'
+			  ,'0;Standard Aus;1;Standard An;2;Kostenstelle nicht zeigen'
+			  ,'0;Standard d<>sactiv<69>;1;Standard activ<69>;2;Montrent pas centre de co<63>ts')
     FACMGT_LCL('0;Niet zien;1;Zien;2;Afmelden'
               ,'0;Don''t show;1;Show;2;Close'
 			  ,'0;Nicht anzeigen;1;Anzeigen;2;Abmelden'
 			  ,'0;Pas voir;1;Voir;2;Se d<>sinscrire')
     FACMGT_LCL('0;Niet;1;Alleen bij invoeren;2;Alleen bij accepteren;3;Bij invoeren en accepteren'
-              ,'0;Not;1;Only when entering;2;Only when accepting;3;When entering and when accepting'
+              ,'0;No;1;At issuance;2;At acceptance;3;At issuance and acceptance'
 			  ,'0;Nicht;1;Nur bei Eingabe;2;Nur bei Akzeptierung;3;Bei Eingabe und Akzeptierung'
 			  ,'0;Non;1;Seulement quand enter;2;Seulement quand accepter;3;Quand entrer et accepter')
     FACMGT_LCL('0;Nooit;1;Altijd;2;Afhankelijk van melding'
@@ -564,6 +651,10 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Invisible;1;Optional;2;Mandatory'
 			  ,'0;Unsichtbar;1;Fakultativ;2;Erfordlich'
 			  ,'0;Invisible;1;Optionel;2;Obligatoire')
+    FACMGT_LCL('0;Geen;2;Optioneel;3;Verplicht'
+              ,'0;None;2;Optional;3;Mandatory'
+        ,'0;Kein;2;Fakultativ;3;Erfordlich'
+        ,'0;Aucun;2;Optionel;3;Obligatoire')
     FACMGT_LCL('0;Reserveerbare ruimtes;1;Niet reserveerbare ruimtes'
               ,'0;Reservable rooms;1;Non-reservable rooms'
 			  ,'0;Reservierbare R<>ume;1;Nicht reservierbare R<>ume'
@@ -587,7 +678,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('1;Normaal;3;Persoonsgebonden'
               ,'1;Normal;3;Related to person'
 			  ,'1;Normal;3;Personenbezogen'
-			  ,'1;Normaal;3;Caract<63>re personnel')
+			  ,'1;Normal;3;Caract<63>re personnel')
     FACMGT_LCL('1;Optioneel;2;Verplicht'
               ,'1;Optional;2;Mandatory'
 			  ,'1;Fakultativ;2;Erfordlich'
@@ -632,6 +723,14 @@ START_FACMGT_LCL(NULL, NULL)
               ,'L;Location;G;Building;V;Floor;R;Room'
               ,'L;Standort;G;Geb<65>ude;V;Stockwerk;R;Raum'
               ,'L;Emplacement;G;Immeuble;V;Etage;R;Espace')
+    FACMGT_LCL('0;Niet tonen;7;Locatie;5;Gebouw;3;Verdieping;1;Ruimte'
+              ,'0;Don''t show;7;Location;5;Building;3;Floor;1;Room'
+              ,'0;Nicht zeigen;7;Standort;5;Geb<65>ude;3;Stockwerk;1;Raum'
+              ,'0;Montrent pas;7;Emplacement;5;Immeuble;3;Etage;1;Espace')
+    FACMGT_LCL(';Geen objecten;L;Locatie;G;Gebouw;V;Verdieping;R;Ruimte'
+              ,';No objects;L;Location;G;Building;V;Floor;R;Room'
+              ,';Keine Objektdaten;L;Standort;G;Geb<65>ude;V;Stockwerk;R;Raum'
+              ,';Aucun objet;L;Emplacement;G;Immeuble;V;Etage;R;Espace')
     FACMGT_LCL('0;Geen geheim;1;Geheim voor FE'
               ,'0;No secret;1;Secret for FE'
               ,'0;Kein Geheimnis;1;Geheimnis f<>r FE'
@@ -656,6 +755,54 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Default not visible for FE;1;Default visible for FE;2;Per note, default not visible for FE;3;Per note, default visible for FE'
               ,'0;@Standard nicht sichtbar f<>r FE;1;@Standard sichtbar f<>r FE;2;@Per Notiz, standard nicht sichtbar f<>r FE;3;@Per Notiz, standard sichtbar f<>r FE'
               ,'0;@Standard ne pas visible pour Libre-Service;1;@Standard visible pour Libre-Service;2;@En note, standard ne pas visible pour Libre-Service;3;@En note, standard visible pour Libre-Service')
+    FACMGT_LCL('0;Nee;1;Ja;2;Initieel ook eerst naar de front office'
+              ,'0;No;1;Yes;2;Initially to front office'
+              ,'0;Nein;1;Ja;2;Zuerst zu Front-Office'
+              ,'0;Non;1;Qui;2;Initialement au front-office')
+    FACMGT_LCL('0;On-gestylede;1;Gestylede;2;Procedure;3;Procedure gestyled;8;Via tabelizer'
+              ,'0;Unstyled;1;Styled;2;Procedure;3;Procedure styled;8;Via tabelizer'
+              ,'0;Nicht gestylt;1;Styled;2;Prozedur;3;Prozedur Styled;8;@Via tabelizer'
+              ,'0;Pas de style;1;De style;2;Proc<6F>dure;3;Proc<6F>dure de style;8;@Via tabelizer')
+    FACMGT_LCL('0;Moment modus;1;Interval modus'
+              ,'0;Moment mode;1;Interval mode'
+              ,'0;Moment Modus;1;Intervall Modus'
+              ,'0;Mode de moment;1;Mode d''intervalle')
+    FACMGT_LCL('0;Uurlijks;1;Dagelijks;2;Wekelijks;3;Maandelijks;4;Jaarlijks'
+              ,'0;Hourly;1;Daily;2;Weekly;3;Monthly;4;Yearly'
+              ,'0;St<53>ndlich;1;T<>glich;2;W<>chentlich;3;Monatlich;4;J<>hrlich'
+              ,'0;Horaires;1;Quotidien;2;Hebdomadaire;3;Mensuel;4;Annuel')
+    FACMGT_LCL('0;N.v.t;1;Oproepen;2;Automatisch badgenummer;3;Oproepen en automatisch badgenummer'
+              ,'0;N.a.;1;Call;2;Automatic badge number;3;Call and Automatic badge number'
+              ,'0;N.a.;1;Aufruf;2;Automatische Ausweisnummer;3;Aufruf und automatische Ausweisnummer'
+              ,'0;P.a.;1;Appel;2;Num<75>ro de badge automatique;3;Appel et le num<75>ro de badge automatique')
+    FACMGT_LCL('0;Niet verplicht;7;Aanmaak;6;Afmelden;4;Afronden'
+              ,'0;Optional;7;Creation;6;Close;4;Complete'
+              ,'0;Nicht erfordlich;7;Erstellung;6;Abmelden;4;Abschlie<69>en'
+              ,'0;Non obligatoire;7;cr<63>ation;6;Se d<>sabonner;4;Terminer')
+    FACMGT_LCL('1;Optie;2;Definitief;3;Geblokkeerd;4;Vervallen'
+              ,'1;Option;2;Definitive;3;Blocked;4;Expired'
+              ,'1;Option;2;Definitiv;3;Blockiert;4;Verfallen'
+              ,'1;Option;2;Definitive;3;Bloqu<71>e;4;Retir<69>e')
+    FACMGT_LCL('2;Nee;1;Ja, niet wijzigbaar;3;Ja, wijzigbaar'
+              ,'2;No;1;Yes, not editable;3;Yes, editable'
+              ,'2;Nein;1;Ja, unver<65>nderlich;3;Ja, modifizierbar'
+              ,'2;Non;1;Qui, immuable;3;Qui, modifiable')
+    FACMGT_LCL('0;Uit catalogus;1;Vrij aanmaken'
+              ,'0;From catalog;1;Create free'
+              ,'0;Von Katalog;1;Frei schaffen'
+              ,'0;De catalogue;1;Place la libre')
+    FACMGT_LCL('1;Controle;2;Vervanging;3;Certificering'
+              ,'1;Control;2;Replacement;3;Certification'
+              ,'1;Kontrolle;2;Ersatz;3;Zertifizierung'
+              ,'1;Contr<74>le;2;Remplacement;3;Certification')
+    FACMGT_LCL('0;Niet;1;BOF;2;BO3;3;BO3 en dan BOF'
+              ,'0;Not;1;BOF;2;BO3;3;BO3 then BOF'
+              ,'0;Nicht;1;BOF;2;BO3;3;BO3 dann BOF'
+              ,'0;Pas;1;BOF;2;BO3;3;BO3 puis BOF')
+    FACMGT_LCL('0;AND: Start na de laatste van alle voorgaande stappen;1;OR:  Start na de eerste van de voorgaande stappen"'
+              ,'0;AND: Start after the last of all the previous steps;1;OR:  Start after the first of the previous steps'
+              ,'0;AND: Starten nach dem letzten aller vorherigen Schritte;1;OR:  Zu starten, nachdem die erste von den vorherigen Schritten'
+              ,'0;AND: Lancer apr<70>s la derni<6E>re de toutes les <20>tapes pr<70>c<EFBFBD>dentes;1;OR:  Lancer apr<70>s la premi<6D>re des <20>tapes pr<70>c<EFBFBD>dentes')
 
 
     FACMGT_LCL('Karakter'            ,'Character'           ,'Zeichen','Caract<63>re')
@@ -669,7 +816,8 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Label'               ,'Label'               ,'Aufschrift','Etiquette')
     FACMGT_LCL('Label (inklapbaar)'  ,'Label (collapsible)','Aufschrift (faltbar)','Etiquette (pliable)')
     FACMGT_LCL('Blanco'              ,'Blanc'               ,'Leer','Vide')
-    FACMGT_LCL('Niet verplicht'      ,'Optional'         ,'Nicht erfordlich','Non obligatoire')
+    FACMGT_LCL('Niet verplicht'      ,'Optional'            ,'Nicht erfordlich','Non obligatoire')
+    FACMGT_LCL('Altijd verplicht'    ,'Mandatory'           ,'Immer erforderlich', 'Toujours oblig<69>')
     FACMGT_LCL('Groepsverplichting'  ,'Group obligation'    ,'Gruppe erfordlich','Groupe obligatoire')
     FACMGT_LCL('Regio'               ,'Region'              ,'Regio','R<>gion')
     FACMGT_LCL('District'            ,'District'            ,'Bezirk','District')
@@ -713,8 +861,8 @@ COMMIT;
 DELETE FROM fac_locale_xsl WHERE fac_locale_xsl_module <> 'ASP';
 COMMIT;
 START_FACXSL_LCL('FAC', NULL)
-	FACXSL_LCL('facilitorformulier', 'Facilitor formulier', 'Facilitor form', 'Facilitor Formular', 'Formulaire Facilitor')
-    FACXSL_LCL('printdatum',   'Printdatum',        'Print date',     'Druckdatum', 'Date d''impression')
+	FACXSL_LCL('facilitorformulier', 'FACILITOR formulier', 'FACILITOR form', 'FACILITOR Formular', 'Formulaire FACILITOR')
+  FACXSL_LCL('printdatum',   'Printdatum',        'Print date',     'Druckdatum', 'Date d''impression')
 	FACXSL_LCL('aanvrager',    'Aanvrager',         'Requestor',         'Antragsteller(in)', 'Demandeur')
 	FACXSL_LCL('behandelaar', 'Behandelaar', 'Assigned to', 'Bearbeiter', 'Praticien')
 	FACXSL_LCL('contactgegevens', 'Contactgegevens', 'Contact details', 'Kontaktinformationen', 'Information de contact')
@@ -735,7 +883,7 @@ START_FACXSL_LCL('FAC', NULL)
 	FACXSL_LCL('prijs', 'Prijs', 'Price', 'Preis', 'Prix')
 	FACXSL_LCL('totaal', 'Totaal', 'Total', 'Summe', 'Montant')
 	FACXSL_LCL('werkplek',     'Werkplek',          'Workplace',      'Arbeitsplatz', 'Lieu de travail')
-    FACXSL_LCL('terrein',      'Terrein',           'Terrain',       'Terrain', 'Terrain')
+  FACXSL_LCL('terrein',      'Terrein',           'Terrain',       'Terrain', 'Terrain')
 	FACXSL_LCL('eenheid', 'Eenheid', 'Unit', 'Einheit', 'Unit<69>')
 	FACXSL_LCL('bedrijf', 'Bedrijf', 'Company', 'Betrieb', 'Enterprise')
 	FACXSL_LCL('contactpersoon', 'Contactpersoon', 'Contact', 'Verbindungsmann/frau', 'Contact')
@@ -751,24 +899,26 @@ END_FACXSL_LCL()
 
 START_FACXSL_LCL('MLD', NULL)   /* melding, opdracht */
 	FACXSL_LCL('meldingvoor',  'Melding namens',    'Call on behalf of',   'Meldung f<>r', 'Appel au nom de')
-    FACXSL_LCL('afhandeling',  'Afhandeling',       'Progress',   'Abwicklung', 'Manipulation')
-    FACXSL_LCL('melddatum',    'Melddatum',         'Call date',     'Meldungsdatum', 'Date d''appel')
-    FACXSL_LCL('melding',      'Melding',           'Call',           'Meldung', 'Appel')
-    FACXSL_LCL('objecten',     'Objecten',          'Objects',      'Objekte', 'Objets')
-    FACXSL_LCL('ordernr',      'Ordernr',           'Order nr',       'Order Nr', 'No. de l''ordre')
-    FACXSL_LCL('spoed',        'Spoed!',            'Urgent!',         'Eilig!', 'Urgent!')
-    FACXSL_LCL('status',       'Status',            'Status',        'Status', 'Etat')
-    FACXSL_LCL('stdmelding',   'Melding',           'Category',           'Meldung', 'Appel')
+  FACXSL_LCL('afhandeling',  'Afhandeling',       'Progress',   'Abwicklung', 'Manipulation')
+  FACXSL_LCL('melddatum',    'Melddatum',         'Call date',     'Meldungsdatum', 'Date d''appel')
+  FACXSL_LCL('melding',      'Melding',           'Call',           'Meldung', 'Appel')
+  FACXSL_LCL('objecten',     'Objecten',          'Objects',      'Objekte', 'Objets')
+  FACXSL_LCL('ordernr',      'Ordernr',           'Order nr',       'Order Nr', 'No. de l''ordre')
+  FACXSL_LCL('spoed',        'Spoed!',            'Urgent!',         'Eilig!', 'Urgent!')
+  FACXSL_LCL('status',       'Status',            'Status',        'Status', 'Etat')
+  FACXSL_LCL('stdmelding',   'Melding',           'Call',           'Meldung', 'Appel')
 
-
-    FACXSL_LCL('uitvoertijd',  'Uitvoertijd',       'Process time',   'Ausf<73>hrungszeit', 'Temps de l''ex<65>cution')
-    FACXSL_LCL('vakgroep',     'Vakgroep',          'Discipline',      'Innendienst', 'Groupe de service')
+  FACXSL_LCL('uitvoertijd',  'SLA tijd',       'SLA time',   'SLA Zeit', 'Temps de SLA')
+  FACXSL_LCL('vakgroep',     'Vakgroep',          'Discipline',      'Innendienst', 'Groupe de service')
 	FACXSL_LCL('datum_gereed', 'Datum gereed', 'Completed', 'Fertig', 'Date de fin')
-    FACXSL_LCL('datum_verzonden', 'Datum verzonden', 'Date sent', 'Gesendet', 'Date envoy<6F>')
+  FACXSL_LCL('datum_verzonden', 'Datum verzonden', 'Date sent', 'Gesendet', 'Date envoy<6F>')
 	FACXSL_LCL('uren', 'Uren', 'Hours', 'Stunden', 'heures')
 	FACXSL_LCL('arbeid', 'Arbeid', 'Work', 'Arbeit', 'Travaux')
 	FACXSL_LCL('materiaal', 'Materiaal', 'Material', 'Material', 'Mat<61>riels')
 	FACXSL_LCL('correctie', 'Correctie', 'Correction', 'Korrektur', 'Correction')
+  FACXSL_LCL('hergoedkeuring', 'Hergoedkeuring', 'Reapprove', 'Wiedergenehmigung', 'Reapprouver ')
+  FACXSL_LCL('herfiattering', 'Herfiattering', 'Refiat', 'Wiedergenehmigung', 'Reautoriser')
+  FACXSL_LCL('was', 'was', 'was', 'war', 'a <20>t<EFBFBD>')
 END_FACXSL_LCL()
 
 START_FACXSL_LCL('RES', NULL)   /* reservering, xreservering */
@@ -779,7 +929,7 @@ START_FACXSL_LCL('RES', NULL)   /* reservering, xreservering */
 	FACXSL_LCL('annulering_text4', 'Deze reservering wordt niet verder verwerkt.', 'This reservation will not be processed any further.', 'Diese Reservierung wird nicht bearbeitet.', 'Cette r<>servation n''est plus manipul<75>.')
 	FACXSL_LCL('annulering_text5', 'Wilt u toch een reservering aanmaken voeg dan een nieuwe reservering toe waarbij een zaal, voorziening of artikel gereserveerd is.', 'If you still want to make a reservation then add a new reservation.', 'Wenn Sie jedoch etwas reservieren m<>chten, bitte geben Sie eine aufs neue eine Reservierung ein.', 'Si vous voulez encore faire une r<>servation, puis ajoutez une nouvelle r<>servation.')
 	FACXSL_LCL('reservering', 'Reservering', 'Reservation', 'Reservierung', 'R<>servation')
-	FACXSL_LCL('deelreservering', 'Deelreservering', 'Reservation part', 'Teilreservierung', 'Sous-r<EFBFBD>servation')
+	FACXSL_LCL('deelreservering', 'Reservering', 'Reservation', 'Reservierung', 'R<EFBFBD>servation')
 	FACXSL_LCL('gastheer_vrouw', 'Gastheer/-vrouw', 'Host(ess)', 'Gastgeber(in)', 'H<>te(sse)')
 	FACXSL_LCL('behandeld_door', 'Behandeld door', 'Processed by', 'Bearbeitet von', 'Manipul<75> par')
 	FACXSL_LCL('reservering_vervallen', 'DE RESERVERING IS VERVALLEN', 'THE RESERVATION IS CANCELLED', 'DIE RESERVIERUNG IST ABGEBROCHEN', 'LA R<>SERVATION A <20>T<EFBFBD> ANNUL<55>E')
@@ -810,6 +960,7 @@ START_FACXSL_LCL('BES', NULL)   /* bestelaanvraag, bestelopdracht */
 	FACXSL_LCL('inkooporder', 'Inkooporder' , 'Purchase order', 'Auftrag', 'Ordre d''achat')
 	FACXSL_LCL('factuur_aan', 'Factuur aan', 'Invoice to', 'Rechnung zu', 'Facture <20>')
 	FACXSL_LCL('leverancier', 'Leverancier', 'Supplier', 'Lieferant', 'Fournisseur')
+	FACXSL_LCL('transportkosten', 'Transportkosten', 'Transportation costs', 'Transportkosten', 'Co<43>ts de transport')
 	FACXSL_LCL('gewenste_afleverdatum', 'Gewenste afleverdatum', 'Required delivery date', 'Gew<65>nschte Liefertermin', 'Date d<>sir<69>e de livraison')
 	FACXSL_LCL('regel','Regel', 'Line', 'Linie', 'Ligne')
 	FACXSL_LCL('geleverd', 'Geleverd', 'Delivered', 'Geliefert', 'Livr<76>')
@@ -845,7 +996,7 @@ START_FACXSL_LCL('BEZ', NULL)	/* bezoekafspraak */
 END_FACXSL_LCL()
 
 START_FACXSL_LCL('PRS', NULL)  /* (nieuwe) medewerker */
-    FACXSL_LCL('prs_begintext1', 'Binnen Facilitor is een nieuw persoonsrecord aangemaakt.', 'A new person record has been created in Facilitor.', 'In Facilitor ein neuer Datensatz ist eingegeben worden.', 'Un nouveau record personnel est cr<63><72> dans Facilitor')
+    FACXSL_LCL('prs_begintext1', 'Binnen FACILITOR is een nieuw persoonsrecord aangemaakt.', 'A new person record has been created in FACILITOR.', 'In FACILITOR ein neuer Datensatz ist eingegeben worden.', 'Un nouveau record personnel est cr<63><72> dans FACILITOR')
     FACXSL_LCL('prs_begintext2', 'De algemene gegevens van deze persoon zijn:', 'The general details of this person are:', 'Die allgemeine Daten dieses Person sind:', 'Les donn<6E>es de cette personne sont: ')
     FACXSL_LCL('personeelsnr', 'Personeelsnr', 'Employee nr', 'Personalnr', 'Num<75>ro d''employ<6F>')
 END_FACXSL_LCL()
@@ -859,7 +1010,7 @@ START_FACXSL_LCL('INS', NULL)  /* objecten */
 END_FACXSL_LCL()
 
 START_FACXSL_LCL('PRJ', NULL) /* verhuisscenario */
-    FACXSL_LCL('facilitor_verhuisscenario', 'Facilitor Verhuisscenario', 'Facilitor moving scenario', 'Facilitor Umzug Szenario', 'Facilitor sc<73>nario de d<>m<EFBFBD>nagement')
+    FACXSL_LCL('facilitor_verhuisscenario', 'FACILITOR Verhuisscenario', 'FACILITOR moving scenario', 'FACILITOR Umzug Szenario', 'FACILITOR sc<73>nario de d<>m<EFBFBD>nagement')
     FACXSL_LCL('opgesteld_door', 'Opgesteld door', 'Created by', 'Zusammengestellt von', 'Compos<6F> par')
     FACXSL_LCL('in_opdracht_van', 'In opdracht van', 'On behalf of', 'Antragsteller(in)', 'A l''ordre de')
     FACXSL_LCL('aanvraag_nummer', 'Aanvraag nummer', 'Request number', 'Antragnummer', 'No. de la demande')
@@ -904,7 +1055,7 @@ START_FACXSL_LCL('CNT', NULL) /* contract */
     FACXSL_LCL('ingangsdatum', 'Ingangsdatum', 'Start date', 'Anfangsdatum', 'Date de debut')
     FACXSL_LCL('rappeldatum', 'Rappeldatum', 'Reminder date', 'Warnungsdatum', 'Date de rappel')
     FACXSL_LCL('opzegdatum', 'Opzegdatum', 'Cancellation date', 'Austragdatum', 'Date de r<>siliation')
-    FACXSL_LCL('eidndatum', 'Einddatum', 'End date', 'Schlu<6C>datum', 'Date de fin')
+    FACXSL_LCL('einddatum', 'Einddatum', 'End date', 'Schlu<6C>datum', 'Date de fin')
     FACXSL_LCL('eigenaar', 'Eigenaar', 'Owner', 'Inhaber', 'Propri<72>taire')
     FACXSL_LCL('contractpartij', 'Contractpartij', 'Contract party', 'Vertragspartei', 'Parti')
     FACXSL_LCL('beheerder', 'Beheerder', 'Administrator', 'Verwender', 'Gestionnaire')
@@ -923,9 +1074,9 @@ END_FACXSL_LCL()
 
 START_FACXSL_LCL('FIN', NULL) /* factuur */
     FACXSL_LCL('fininf_aanhef', 'Beste budgethouder', 'Dear budget holder', 'Sehr geehrte Officer', 'Cher officier')
-    FACXSL_LCL('fininf_text1', 'In het kader van plausibiliteitscontrole zijn de door de leverancier aangeleverde factuurregels in Facilitor geregistreerd. Deze actie heeft voor uw kostenplaats(en) geresulteerd in een aantal niet automatisch goedgekeurde factuurregels.', 'Because of plausibility verification the invoice lines provided by the supplier have been registered in Facilitor. Some invoice lines of your cost centre(s) could not be automatically verified.', 'Im Rahmen der Plausibilit<69>tskontrole sind die angelieferte Rechnunglinien in Facilitor eingegeben. Einige Linien k<>nnten nicht automatisch gepr<70>ft werden.', 'En raison de la v<>rification de plausibilit<69> les lignes de facture fourni par le fournisseur ont <20>t<EFBFBD> enregistr<74>s dans Facilitor. Certaines lignes de facture de votre centre(s) de co<63>ts ne pouvait pas <20>tre automatiquement v<>rifi<66>.')
-    FACXSL_LCL('fininf_text2', 'Aan u het verzoek deze regels spoedig te beoordelen en verder af te handelen in Facilitor.','You are requested to verify these invoice lines as soon as possible in Facilitor.', 'Bitte kontrollieren Sie diese Linien in K<>rze in Facilitor.', 'Vous <20>tes pri<72> de v<>rifier ces lignes de facture d<>s que possible dans Facilitor.')
-    FACXSL_LCL('fininf_text3', 'U kunt daarvoor in Facilitor terecht.', 'You can find them in Facilitor.', 'Sie k<>nnen sie in Facilitor finden.', 'Vous pouvez les trouver dans Facilitor.')
+    FACXSL_LCL('fininf_text1', 'In het kader van plausibiliteitscontrole zijn de door de leverancier aangeleverde factuurregels in FACILITOR geregistreerd. Deze actie heeft voor uw kostenplaats(en) geresulteerd in een aantal niet automatisch goedgekeurde factuurregels.', 'Because of plausibility verification the invoice lines provided by the supplier have been registered in FACILITOR. Some invoice lines of your cost centre(s) could not be automatically verified.', 'Im Rahmen der Plausibilit<69>tskontrole sind die angelieferte Rechnunglinien in FACILITOR eingegeben. Einige Linien k<>nnten nicht automatisch gepr<70>ft werden.', 'En raison de la v<>rification de plausibilit<69> les lignes de facture fourni par le fournisseur ont <20>t<EFBFBD> enregistr<74>s dans FACILITOR. Certaines lignes de facture de votre centre(s) de co<63>ts ne pouvait pas <20>tre automatiquement v<>rifi<66>.')
+    FACXSL_LCL('fininf_text2', 'Aan u het verzoek deze regels spoedig te beoordelen en verder af te handelen in FACILITOR.','You are requested to verify these invoice lines as soon as possible in FACILITOR.', 'Bitte kontrollieren Sie diese Linien in K<>rze in FACILITOR.', 'Vous <20>tes pri<72> de v<>rifier ces lignes de facture d<>s que possible dans FACILITOR.')
+    FACXSL_LCL('fininf_text3', 'U kunt daarvoor in FACILITOR terecht.', 'You can find them in FACILITOR.', 'Sie k<>nnen sie in FACILITOR finden.', 'Vous pouvez les trouver dans FACILITOR.')
     FACXSL_LCL('factuur', 'Factuur', 'Invoice', 'Rechnung', 'Facture')
     FACXSL_LCL('factuurnr', 'Factuurnr', 'Invoice nr', 'Rechnungnr', 'No. de facture')
     FACXSL_LCL('factuurdatum', 'Factuurdatum', 'Invoice date', 'Rechnungdatum', 'Date de facture')
@@ -941,5 +1092,6 @@ START_FACXSL_LCL('FIN', NULL) /* factuur */
     FACXSL_LCL('ex_btw', 'Excl. BTW', 'Excl. VAT', 'Exklusiv MwSt.', 'hors TVA')
     FACXSL_LCL('incl_btw', 'Incl. BTW', 'Incl. VAT', 'Inklusiv MwSt.', 'TVA incluse')
     FACXSL_LCL('behoort_bij_onderstaande_verplichting', 'Behoort bij onderstaande verplichting', 'Belongs to obligation below', 'Geh<65>rt zu Erpflichtung hierunter', 'Appartient <20> l''obligation suivante')
+    FACXSL_LCL('verkoopfactuur', 'Verkoopfactuur', 'Salesinvoice', 'Rechnung', 'Facture')
 END_FACXSL_LCL()
-REGISTERONCE('$Workfile: FAC_LCL.SRC $','$Revision$')
+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_PACL.SRC

@@ -22,6 +22,8 @@ AS
 
    PROCEDURE setuserlanguage (flcode IN VARCHAR2);
 
+   PROCEDURE setdatabaselanguage (flcode IN VARCHAR2);
+
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2;
 
@@ -36,22 +38,19 @@ END lcl;
 
 CREATE OR REPLACE PACKAGE BODY lcl
 AS
-   FUNCTION getuserlanguage RETURN VARCHAR2
+   FUNCTION getuserlanguage
+      RETURN VARCHAR2
    AS
+      userlang   VARCHAR2 (10);
    BEGIN
-     -- Bepaalt de applicatietaal van de user zoals vanuit ASP gezet
-     IF SYS_CONTEXT('userenv', 'LANG') = 'GB'
-     THEN
-         RETURN 'EN';
-     ELSIF  SYS_CONTEXT('userenv', 'LANG') = 'D'
-     THEN
-         RETURN 'DE';
-     ELSIF  SYS_CONTEXT('userenv', 'LANG') = 'F'
-     THEN
-         RETURN 'FR';
-     ELSE
-         RETURN SYS_CONTEXT('userenv', 'LANG');
-     END IF;
+      -- Bepaalt de applicatietaal van de user zoals vanuit ASP gezet
+      userlang := SYS_CONTEXT ('userenv', 'LANG');
+      RETURN CASE userlang
+                WHEN 'GB' THEN 'EN'
+                WHEN 'D' THEN 'DE'
+                WHEN 'F' THEN 'FR'
+                ELSE userlang
+             END;
    END;
 
    PROCEDURE setuserlanguage (flcode IN VARCHAR2)
@@ -98,6 +97,15 @@ AS
       EXECUTE IMMEDIATE setsql;
    END;
 
+   /* Let op dat ASP-code mogelijk ook nog cache't. Wijzig een willekeurige setting voor een re-cache */
+   PROCEDURE setdatabaselanguage (flcode IN VARCHAR2)
+   AS
+   BEGIN
+    UPDATE   fac_version
+       SET   fac_version_lang = flcode;
+    fcltdblanguage := flcode; -- Gecachete waarde bijwerken
+   END;
+
    /* levert de vertaalde string op*/
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2
@@ -136,7 +144,7 @@ AS
       IF fcltdblanguage IS NULL
       THEN
          SELECT fac_version_lang INTO fcltdblanguage FROM fac_version;
-         DBMS_OUTPUT.put_line ('Rechaching language ' || fcltdblanguage);
+         DBMS_OUTPUT.put_line ('Recaching language ' || fcltdblanguage);
       END IF;
 
       requiredlang := lcl.getuserlanguage ();
@@ -171,4 +179,4 @@ AS
 
 END lcl;
 /
-REGISTERRUN('$Workfile: FAC_PACL.SRC $','$Revision$')
+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;
@@ -19,6 +20,7 @@ CREATE SEQUENCE fac_s_fac_srtnotificatie_key    MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_notificatie_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_notificatie_job_key   MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_import_app_key        MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_export_app_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_import_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_activiteit_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_setting_key           MINVALUE 1;
@@ -38,6 +40,9 @@ 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;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing
@@ -47,4 +52,4 @@ CREATE SEQUENCE fac_s_user03 MINVALUE 1 NOCACHE;
 CREATE SEQUENCE fac_s_user04 MINVALUE 1 NOCACHE;
 CREATE SEQUENCE fac_s_user05 MINVALUE 1 NOCACHE;
 
-REGISTERONCE('$Workfile: FAC_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')

FAC/FAC_SET.SRC

@@ -25,131 +25,164 @@ CREATE GLOBAL TEMPORARY TABLE tmp_set (
     VARCHAR2(2000)
 ) ON COMMIT PRESERVE ROWS;
 
+// LET OP: naam wordt altijd naar lowercase geconverteerd
 #define DEFINE_SETTING(m, f, n, t, v, d, c)\
 INSERT INTO tmp_set (fac_setting_module, fac_setting_flags, fac_setting_name, fac_setting_type, fac_setting_default, fac_setting_description, fac_setting_comment) \
- VALUES (m, f, /*LOWER*/(n), t, v, COALESCE(d, n), NULL);
-// nog niet naar LOWER, dan werkt upgrade/db15to16.asp niet goed
+ VALUES (m, f, LOWER(n), t, v, COALESCE(d, n), NULL);
 
 DELETE FROM tmp_set;
 COMMIT;
 
 // _FACILITOR ziet altijd alles en mag alles wijzigen
-//    0 = Onzichtbaar
-//    1 = PRSSYS zichtbaar
+//    0 = Onzichtbaar, alleen via script te wijzigen
+//    1 = PRSSYS zichtbaar, _FACILITOR wijzigbaar
 //    2 = PRSSYS mag ook wijzigen, laag risico (typisch gebruik 3 = 2+1)
 //    8 = Default waarde wordt gezet in ASP (met name custpath afhankelijk)
-// naam wordt altijd naar lowercase geconverteerd
 DEFINE_SETTING('FAC', 0003, 'logoff_return_url'                     , 'string'                      , '../../'                      , 'Return url to go to after log off')
-DEFINE_SETTING('FAC', 0003, 'checkBrowser'                          , 'number'                      , '0'                           , 'Check for IE6/7/8 at login (1) or not. Default toggled to 0 since 5.1.2')
+DEFINE_SETTING('FAC', 0003, 'checkBrowser'                          , 'number'                      , '0'                           , 'Check for IE6 at login (1) or not.')
 DEFINE_SETTING('FAC', 0003, 'ProxyServerIPAddress'                  , 'string'                      , NULL                          , 'For webserver to reach outside world')
 DEFINE_SETTING('FAC', 0001, 'language_toggles'                      , 'array'                       , 'NL'                          , 'Allow language toggle for alternate languages')
 DEFINE_SETTING('FAC', 0001, 'multi_language_option'                 , 'number'                      , '0'                           , 'Enable multi language')
 DEFINE_SETTING('FAC', 0000, 'hiresTimer'                            , 'number'                      , '0'                           , 'internal use only')
-DEFINE_SETTING('FAC', 0000, 'crypto_provider'                       , 'number'                      , '0'                           , '0=JavaScript, 1=Slnkdwf.dll')
-DEFINE_SETTING('FAC', 0002, 'image_path_local'                      , 'string'                      , 'nodefault'                   , 'path used by LAN for flexproperties of type X (fclt.ini:Documentdir)')
+DEFINE_SETTING('FAC', 0000, 'crypto_provider'                       , 'number'                      , '0'                           , '0=JavaScript, 1=Slnkdwf.dll (Future use)')
+DEFINE_SETTING('FAC', 0001, 'cache_changecounter'                   , 'number'                      , '0'                           , 'Increment by one to reset FCLT caching.')
+DEFINE_SETTING('FAC', 0001, 'csstemplate'                           , 'json'                        , '{}'                          , 'Color scheme.')
+DEFINE_SETTING('FAC', 0001, 'csscust'                               , 'string'                      , ''                            , 'cust.css replacement (Future use)')
+DEFINE_SETTING('FAC', 0001, 'cssenvcust'                            , 'string'                      , ''                            , 'custenv.css replacement (Future use)')
+DEFINE_SETTING('FAC', 0001, 'cssfordesktop'                         , 'string'                      , ''                            , 'jQuery themeroller desktop replacement')
+DEFINE_SETTING('FAC', 0001, 'cssformobile'                          , 'string'                      , ''                            , 'jQuery themeroller mobile replacement')
+DEFINE_SETTING('FAC', 0001, 'autoscrollmode'                        , 'number'                      , '255'                         , 'autoscroll mode (Future use)')
+DEFINE_SETTING('FAC', 0002, 'image_path_local'                      , 'string'                      , '\\'                          , 'path used by LAN for flexproperties of type X (fclt.ini:Documentdir)')
 DEFINE_SETTING('FAC', 0002, 'image_path_local_regexp'               , 'string'                      , NULL                          , 'Reguliere expressie, bijvoorbeed /^G:/i')
-DEFINE_SETTING('FAC', 0011, 'image_path_virtual'                    , 'string'                      , NULL                          , 'path used by WEB for flexproperties of type X')
-DEFINE_SETTING('FAC', 0011, 'flexFilesPath'                         , 'string'                      , NULL                          , 'Path for Flexbestanden type ''F'' en ''M'', zonder eindslash')
-DEFINE_SETTING('FAC', 0003, 'flexAllowedExt'                        , 'string'                      , '.*\.(doc|docx|xls|xlsx|jpg|jpeg|png|gif|bmp|dwg|dwf|eml|pdf|msg|zip|vsd|txt|ppt|pptx|oft|rtf|tif|csv|dot|xml|mcw|rar|encrypted)$', 'Allowed extensions')
+DEFINE_SETTING('FAC', 0009, 'image_path_virtual'                    , 'string'                      , NULL                          , 'path used by WEB for flexproperties of type X')
+DEFINE_SETTING('FAC', 0009, 'flexFilesPath'                         , 'string'                      , NULL                          , 'Path for Flexbestanden type ''F'' en ''M'', zonder eindslash')
+DEFINE_SETTING('FAC', 0001, 'flexAllowedExt'                        , 'string'                      , '.*\.(doc|docx|xls|xlsx|jpg|jpeg|png|gif|bmp|dwg|dwf|eml|pdf|msg|zip|vsd|txt|ppt|pptx|oft|rtf|tif|tiff|csv|dot|xml|mcw|rar|encrypted|gz|gzip)$', 'Allowed extensions')
+DEFINE_SETTING('FAC', 0001, 'flex_min_size'                         , 'number'                      , '64'                          , 'E-mail attachments smaller (in bytes) than this are silently ignored')
+DEFINE_SETTING('FAC', 0001, 'impAllowedExt'                         , 'string'                      , '.*\.(txt|csv|xml)$'          , 'Allowed importfile extensions')
 DEFINE_SETTING('FAC', 0003, 'flexExtensionFilter'                   , 'string'                      , NULL                          , 'All files can be uploaded. "PDF DOC TIFF XLS" would filter')
 DEFINE_SETTING('FAC', 0003, 'flexFilesOrdering'                     , 'number'                      , '0'                           , 'Ordering for list of flexfilenames {0=ascending | 1=descending}')
 DEFINE_SETTING('FAC', 0000, 'BijlagenStreamPath'                    , 'string'                      , '../shared/BijlagenStream.asp', 'ASP path to BijlagenStream.asp file')
-DEFINE_SETTING('FAC', 0001, 'flex_X_is_URL'                         , 'number'                      , '0'                           , '0=browse-knop 1=gewoon input field')
+DEFINE_SETTING('FAC', 0001, 'MaxDownloadSize'                       , 'number'                      , '-1'                          , 'Should match IIS Metabase AspBufferingLimit for download warning (Future use)')
+DEFINE_SETTING('FAC', 0001, 'flex_X_is_URL'                         , 'number'                      , '1'                           , '0=browse-knop 1=gewoon input field')
 DEFINE_SETTING('FAC', 0003, 'menu_start_open'                       , 'boolean'                     , 'true'                        , 'Menu is open by default')
 DEFINE_SETTING('FAC', 0003, 'menu_collapse_threshold'               , 'number'                      , '5'                           , 'Max number menugroups in a tab before we will collapse')
 DEFINE_SETTING('FAC', 0003, 'menu_tab_toggles_portalmenu'           , 'number'                      , '1'                           , 'Also activate corresponding portal_menu in body (1) or not (0)')
-DEFINE_SETTING('FAC', 0011, 'menu_image_path'                       , 'string'                      , NULL                          , 'relative! path to folder storing menu pictures')
+DEFINE_SETTING('FAC', 0009, 'menu_image_path'                       , 'string'                      , NULL                          , 'relative! path to folder storing menu pictures and files')
+DEFINE_SETTING('FAC', 0009, 'menu_use_menuicons'                    , 'number'                      , '1'                           , 'Use the images of the portalmenu in the regular menu as well (1) or do not (0)')
 DEFINE_SETTING('FAC', 0000, 'custfunctionspath'                     , 'string'                      , NULL                          , 'path to custfunctions.wsc')
 DEFINE_SETTING('FAC', 0001, 'view_dwf_with_slnkdwf'                 , 'boolean'                     , 'false'                       , 'View DWF document files using SLNKDWF')
 DEFINE_SETTING('INS', 0001, 'ins_history'                           , 'string'                      , '1'                           , 'historymode for flexproperties {0 | 1}')
 DEFINE_SETTING('FAC', 0001, 'os_logon'                              , 'boolean'                     , 'false'                       , 'enable NT domain logon {true | false}')
 DEFINE_SETTING('FAC', 0001, 'os_logon_exclude'                      , 'array'                       , ''                            , 'Disable NT domain logon, for example  "HTTP_VIA,HTTP_REVERSE_VIA,HTTP_X_BLUECOAT_VIA"')
-DEFINE_SETTING('FAC', 0003, 'helppage_url'                          , 'string'                      , 'http://wiki.facilitor.nl/fac_wrapper.php', 'Helppage')
+DEFINE_SETTING('FAC', 0003, 'helppage_url'                          , 'string'                      , 'https://help.facilitor.nl/fac_wrapper.php', 'Helppage')
 DEFINE_SETTING('FAC', 0000, 'helppage_secret'                       , 'string'                      , 'yuszkRZXlGqjOgyE'            , 'Helppage hmac secret')
 DEFINE_SETTING('FAC', 0003, 'timepickercolumns'                     , 'number'                      , '4'                           , 'Nr of columns for timepicker (increase for long days or short intervals)')
-DEFINE_SETTING('FAC', 0003, 'fo_may_edit_kostenplaats'              , 'number'                      , '0'                           , 'company setting whether the FrontOffice may change the kostenplaats free format (1) or kostenplaats is fixed dependent on organisation (0).')
-DEFINE_SETTING('PRS', 0001, 'man_kenmerk_hidden'                    , 'number'                      , '0'                           , 'kenmerken met (PRS)MAN rechten zijn hidden in profiel. {0:USE rechten hidden | 1:MAN rechten hidden}')
 DEFINE_SETTING('PRS', 0001, 'prs_max_dep_level'                     , 'number'                      , '2'                           , 'number of levels between prs_bedijf and prs_perslid (max = 5)')
-DEFINE_SETTING('FAC', 0003, 'max_result_in_filtered_listbox'        , 'number'                      , '-1'                          , 'maximum number of items allowed in a filtered listbox (-1 = old fashioned listbox)')
-DEFINE_SETTING('FAC', 0003, 'qp_maxrows'                            , 'number'                      , '100'                         , 'Maximum number of rows to show, displays ''lcl_qp_maxrows'' if exceeded (was: 1000)')
-DEFINE_SETTING('FAC', 0003, 'qp_maxrows2'                           , 'number'                      , '1000'                        , 'Maximum number of rows to show, displays ''lcl_qp_maxrows'' if exceeded (was: 5000)')
+DEFINE_SETTING('FAC', 0003, 'qp_maxrows'                            , 'number'                      , '100'                         , 'Maximum number of rows to show, displays ''lcl_qp_maxrows1/2'' if exceeded')
+DEFINE_SETTING('FAC', 0003, 'qp_maxrows2'                           , 'number'                      , '1000'                        , 'Maximum number of rows to show, displays ''lcl_qp_maxrows3'' if exceeded')
 DEFINE_SETTING('FAC', 0003, 'rs_maxchar'                            , 'number'                      , '150'                         , 'vanaf hier afgekapt en ''Meer...'' tonen.')
+DEFINE_SETTING('FAC', 0003, 'rs_mobile_maxchar'                     , 'number'                      , '80'                          , 'vanaf hier afgekapt en ''...'' tonen.')
+DEFINE_SETTING('FAC', 0001, 'asp_timeout'                           , 'number'                      , '-1'                          , 'Copy the IIS configuration asp AspScriptTimeout setting (future use)')
+DEFINE_SETTING('FAC', 0001, 'asp_max_upload'                        , 'number'                      , '-1'                          , 'Copy the IIS configuration setting AspMaxRequestEntityAllowed (future use)')
+DEFINE_SETTING('FAC', 0001, 'asp_max_download'                      , 'number'                      , '-1'                          , 'Copy the IIS configuration setting AspBufferingLimit (future use)')
+DEFINE_SETTING('FAC', 0003, 'prodsearch_rank'                       , 'array'                       , 'faq,besartikel,resruimte,mldstdm,prsperslid,resartikel,resdeel', 'Ranking in product search')
 DEFINE_SETTING('FAC', 0003, 'kosten_klant_default'                  , 'number'                      , '1'                           , 'initial status of kosten klant checkbox { 0 - unchecked | 1 - checked }')
 DEFINE_SETTING('FAC', 0003, 'prs_password_validation'               , 'string'                      , '.{8,}'                       , 'At least 8 characters')
+DEFINE_SETTING('FAC', 0003, 'prs_password_fail_limit'               , 'number'                      , '999'                         , 'Lockout after many password failures (Future use)')
+DEFINE_SETTING('FAC', 0003, 'prs_password_expiration'               , 'number'                      , '-1'                          , 'Password expire days (Future use)')
+DEFINE_SETTING('FAC', 0001, 'prs_password_hash_factor'              , 'number'                      , '0'                           , 'Password hash workfactor (2^x, future use)')
 DEFINE_SETTING('FAC', 0003, 'iconcolumns'                           , 'number'                      , '6'                           , 'number of columns in an iconmenu page.')
-DEFINE_SETTING('FAC', 0001, 'BackgrounderInterval'                  , 'number'                      , '0'                           , 'time (seconds) between Backgrounder.asp [=Check for new messages] refreshes (min = 300)')
 DEFINE_SETTING('FAC', 0001, 'NotifyMessageInterval'                 , 'number'                      , '0'                           , 'time (seconds) between NotifyMessage.asp [=Check for popups] refreshes. 0=disable')
 DEFINE_SETTING('FAC', 0003, 'usrrap_refreshrate'                    , 'number'                      , '60'                          , 'time between auto refresh of selected usrraps (seconds)')
+DEFINE_SETTING('FAC', 0003, 'refresher_doubleauto'                  , 'number'                      , '3'                           , 'Double buffering delay (seconds)')
 DEFINE_SETTING('FAC', 0001, 'PerformInterval'                       , 'number'                      , '0'                           , 'time (seconds) between shared/performancetester.asp refreshes 0=disable')
 DEFINE_SETTING('FAC', 0001, 'perfmon_threshold'                     , 'number'                      , '-1'                          , 'time threshold for statements to be monitored for performance {milliseconds | -1}')
 DEFINE_SETTING('FAC', 0001, 'login_url'                             , 'string'                      , 'appl/shared/login.asp'       , 'url providing login-services')
-DEFINE_SETTING('FAC', 0001, 'login_pda_url'                         , 'string'                      , 'appl/shared/login.asp'       , 'url providing login-services when pda detected')
+DEFINE_SETTING('FAC', 0001, 'login_pda_url'                         , 'string'                      , 'appl/shared/login.asp'       , 'url providing login-services when pda detected. Future use')
 DEFINE_SETTING('FAC', 0003, 'login_use_email'                       , 'number'                      , '0'                           , 'use email to check user authentication { 0 - use oslogin | 1 - use email }')
 DEFINE_SETTING('FAC', 0003, 'login_remember_days'                   , 'number'                      , '30'                          , 'Days to remember login. { 0 disable }')
-DEFINE_SETTING('FAC', 0003, 'email_password'                        , 'number'                      , '0'                           , 'Show ''wachtwoord vergeten'' optie')
+DEFINE_SETTING('FAC', 0003, 'fac_firstlogin_url'                    , 'string'                      , 'appl/fac/welcome.asp'        , 'Url to show upon first login of user')
+DEFINE_SETTING('FAC', 0003, 'fac_firstlogin_expire'                 , 'number'                      , '14'                          , 'Remove firstlogin_url automatically after nn days')
+DEFINE_SETTING('FAC', 0003, 'email_password'                        , 'number'                      , '0'                           , 'Show ''wachtwoord vergeten'' optie (1=voor mensen met wachtwoord, 2=voor iedereen)')
 DEFINE_SETTING('FAC', 0000, 'SmsUrl'                                , 'string'                      , ''                            , 'SMS service URL')
 DEFINE_SETTING('FAC', 0000, 'SmsUid'                                , 'string'                      , ''                            , 'User id for SMS service')
 DEFINE_SETTING('FAC', 0000, 'SmsPwd'                                , 'string'                      , ''                            , 'Password for SMS service')
 DEFINE_SETTING('FAC', 0000, 'SmsReplyPhone'                         , 'string'                      , ''                            , 'Reply id for SMS service, this can be either a phonenumber or a string')
 DEFINE_SETTING('FAC', 0001, 'self_register'                         , 'number'                      , '0'                           , 'Can user self-register? ( 0 disable )')
-DEFINE_SETTING('FAC', 0001, 'self_register_expire'                  , 'number'                      , '60'                          , 'Minuted to respond to confirmation e-mail ( default 60 )')
+DEFINE_SETTING('FAC', 0001, 'self_register_expire'                  , 'number'                      , '60'                          , 'Minutes to respond to confirmation e-mail ( default 60 )')
 DEFINE_SETTING('FAC', 0001, 'self_register_groep_key'               , 'number'                      , '-1'                          , 'Default fac_groep for unconfirmed user. If >0 it overrules _DEFAULT groep')
 DEFINE_SETTING('FAC', 0001, 'self_register_srtperslid_key'          , 'number'                      , '-1'                          , 'Default srtperslid key')
 DEFINE_SETTING('FAC', 0001, 'self_register_afdeling_key'            , 'number'                      , '-1'                          , 'Default afdeling key')
 DEFINE_SETTING('FAC', 0001, 'self_register_email_whitelist'         , 'string'                      , ''                            , 'Regexp email-restriction eg. \@facilitor\.nl$')
 DEFINE_SETTING('FAC', 0001, 'sys_ip_restrict'                       , 'string'                      , ''                            , 'Regexp ip-restriction')
 DEFINE_SETTING('FAC', 0000, 'sys_ip_restrict_internal'              , 'string'                      , ''                            , 'Regexp ip-restriction internal')
-DEFINE_SETTING('FAC', 0001, 'auto_https'                            , 'number'                      , '0'                           , '0=not https, 1=http redirects to https, (2=error when not http, not supported yet)')
+DEFINE_SETTING('FAC', 0001, 'sys_ip_jail'                           , 'string'                      , ''                            , 'Regexp ip-jail to prevent roaming (future use)')
+DEFINE_SETTING('FAC', 0001, 'auto_https'                            , 'number'                      , '3'                           , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
+DEFINE_SETTING('FAC', 0001, 'hsts_maxage'                           , 'number'                      , '0'                           , 'HTTP Strict Transport Security max-age (0=off, eg. 31536000 for one year)')
 DEFINE_SETTING('FAC', 0001, 'qrc_enable'                            , 'number'                      , '1'                           , 'Enable QRC-authentication feature (1) or not (0)')
 DEFINE_SETTING('FAC', 0001, 'qr_auth_expire'                        , 'number'                      , '5'                           , 'Minutes QRC-code is valid (default 5)')
 DEFINE_SETTING('FAC', 0001, 'qr_color'                              , 'number'                      , '5452544'                     , 'QRC color')
 DEFINE_SETTING('FAC', 0001, 'fac_nieuws_forum_url'                  , 'string'                      , 'http://wordpress.facilitor.nl/api/get_category_posts/?category_id=40&count=15&date_format=d-m-Y', NULL)
+DEFINE_SETTING('FAC', 0001, 'fac_emailtoken_auth_expire'            , 'number'                      , '0'                           , 'Minutes e-mail login token is valid (default 0)')
 DEFINE_SETTING('FAC', 0001, 'fac_nieuws_forum_max'                  , 'number'                      , '6'                           , 'Max number of news items to show')
 DEFINE_SETTING('PRS', 0001, 'prs_dep_all'                           , 'boolean'                     , 'false'                       , 'allow attaching persons on all department level { true | false }')
 DEFINE_SETTING('PRS', 0001, 'prs_dep_string'                        , 'string'                      , 'd.prs_afdeling_naam'         , NULL)
 DEFINE_SETTING('PRS', 0001, 'prs_pers_string'                       , 'string'                      , ' 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 || '')'', '''')', NULL)
-DEFINE_SETTING('PRS', 0001, 'prs_contactpers_string'                , 'string'                      , 'cp.prs_contactpersoon_naam || NVL2(cp.prs_contactpersoon_voorletters, '', '' || cp.prs_contactpersoon_voorletters, '''')|| NVL2(cp.prs_contactpersoon_tussenv, '' '' || cp.prs_contactpersoon_tussenv, '''')|| NVL2(cp.prs_contactpersoon_voornaam, ''( '' || cp.prs_contactpersoon_voornaam || '')'', '''')', NULL)
-DEFINE_SETTING('PRS', 0001, 'prs_kpn_string'                        , 'string'                      , ' k.prs_kostenplaats_nr || '' '' || k.prs_kostenplaats_omschrijving', NULL)
+DEFINE_SETTING('PRS', 0001, 'prs_contactpers_string'                , 'string'                      , 'cp.prs_contactpersoon_naam || NVL2(cp.prs_contactpersoon_voorletters, '', '' || cp.prs_contactpersoon_voorletters, '''')|| NVL2(cp.prs_contactpersoon_tussenv, '' '' || cp.prs_contactpersoon_tussenv, '''')|| NVL2(cp.prs_contactpersoon_voornaam, '' ('' || cp.prs_contactpersoon_voornaam || '')'', '''')', NULL)
+DEFINE_SETTING('PRS', 0001, 'prs_kpn_string'                        , 'string'                      , ' NVL2(k.prs_kostenplaats_nr, prs_kostenplaats_nr || '' ''|| lcl.x(''prs_kostenplaats_omschrijving'', k.prs_kostenplaats_key, k.prs_kostenplaats_omschrijving), '''')', NULL)
 DEFINE_SETTING('FAC', 0001, 'alg_loc_string'                        , 'string'                      , ' l.alg_locatie_omschrijving || '' ('' || l.alg_locatie_code || '')'' ', NULL)
 DEFINE_SETTING('FAC', 0001, 'EnableMailService'                     , 'number'                      , '0'                           , 'Enable email notifications {0 | 1} [requires "SMTP Service" on server]')
 DEFINE_SETTING('FAC', 0001, 'email_regexp'                          , 'string'                      , '^\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*([,;]\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*)*$', 'Meerdere gescheiden door , of ;')
 DEFINE_SETTING('FAC', 0001, 'email_regexp_single'                   , 'string'                      , '^\s*[A-Z0-9\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*$', 'E<>n email adres')
-DEFINE_SETTING('FAC', 0003, 'FromAddress'                           , 'string'                      , 'nodefault'                   , 'must be defined if EnableMailService')
-DEFINE_SETTING('FAC', 0003, 'ReplyAddress'                          , 'string'                      , 'nodefault'                   , 'ReplyTo Address')
+DEFINE_SETTING('FAC', 0003, 'FromAddress'                           , 'string'                      , 'FACILITOR<no_reply@facilitor.nl>', 'must be defined if EnableMailService')
+DEFINE_SETTING('FAC', 0003, 'ReplyAddress'                          , 'string'                      , ''                            , 'ReplyTo Address')
 DEFINE_SETTING('FAC', 0001, 'widgetportal'                          , 'number'                      , '0'                           , 'Use a widgetpage as startpage (1) or the standard page (0)')
-DEFINE_SETTING('FAC', 0003, 'portalnewslength'                      , 'number'                      , '72'                          , 'Max. length of a line in statusinfo frame for hyperlinked messages {0..512}')
+DEFINE_SETTING('FAC', 0003, 'portalnewslength'                      , 'number'                      , '96'                          , 'Max. length of a line in statusinfo frame for hyperlinked messages {0..512}')
 DEFINE_SETTING('FAC', 0003, 'portalnewsmax'                         , 'number'                      , '25'                          , 'Max. number of messages in statusinfo frame {-1=unlimited | n=limit to n most recent messages}')
 DEFINE_SETTING('FAC', 0003, 'portalmsgmax'                          , 'number'                      , '5'                           , 'Max. number of messages in messages frame {-1=unlimited | n=limit to n most recent messages | 0=no messages}')
 DEFINE_SETTING('FAC', 0003, 'portalmenucols'                        , 'number'                      , '2'                           , 'Nr cols in portal menu')
 DEFINE_SETTING('FAC', 0003, 'portalmenulines'                       , 'number'                      , '5'                           , 'Max lines in protalmenu (incl. "More..."')
-DEFINE_SETTING('FAC', 0003, 'facilitiespast'                        , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities')
-DEFINE_SETTING('FAC', 0003, 'facilitiesfuture'                      , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities')
+DEFINE_SETTING('FAC', 0003, 'facilitiespast_bes'                    , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities for orders')
+DEFINE_SETTING('FAC', 0003, 'facilitiesfuture_bes'                  , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities for orders')
+DEFINE_SETTING('FAC', 0003, 'facilitiespast_bez'                    , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities for visitors')
+DEFINE_SETTING('FAC', 0003, 'facilitiesfuture_bez'                  , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities for visitors')
+DEFINE_SETTING('FAC', 0003, 'facilitiespast_mld'                    , 'number'                      , '10'                          , 'Number of days in the past to show (my) facilities for calls')
+DEFINE_SETTING('FAC', 0003, 'facilitiesfuture_mld'                  , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities for calls')
+DEFINE_SETTING('FAC', 0003, 'facilitiespast_res'                    , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities for reservations')
+DEFINE_SETTING('FAC', 0003, 'facilitiesfuture_res'                  , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities for reservations')
+DEFINE_SETTING('FAC', 0001, 'personal_satisfaction_period'          , 'number'                      , '100'                         , 'Number of days for which the personal satisfaction rating is calculated')
 DEFINE_SETTING('FAC', 0003, 'currency_pref'                         , 'string'                      , 'EUR '                        , 'Currency prefix')
 DEFINE_SETTING('FAC', 0003, 'currency_suff'                         , 'string'                      , ''                            , 'Currency suffix')
 DEFINE_SETTING('FAC', 0001, 'cal_showOn'                            , 'string'                      , 'button'                      , '''button'' or ''focus'' or ''both''')
 DEFINE_SETTING('FAC', 0003, 'show_ordernr'                          , 'number'                      , '0'                           , '0=never,>0=always, 3=also bo-list')
-DEFINE_SETTING('FAC', 0003, 'can_selfapprove'                       , 'number'                      , '1'                           , 'I can approve myself below my limits (1) or someone else must approve always (0)')
+DEFINE_SETTING('FAC', 0003, 'can_selfapprove'                       , 'number'                      , '999999'                      , 'I can approve myself below or equal this limit or someone else must approve always above this limit')
 DEFINE_SETTING('PRS', 0001, 'prs_approvemethod'                     , 'number'                      , '1'                           , 'Approval tree: 1 = kp.budgethouder, kpngroep.verantwoordelijke, 2 = first traverse up the departments for a kp.budgethouder')
 DEFINE_SETTING('FAC', 0001, 'use_simple_sso'                        , 'number'                      , '0'                           , 'Use user id decoding UID_DEC (Simple Single Signon uit of aan zetten) {0=no | 1=yes}')
-DEFINE_SETTING('FAC', 0000, 'sso_advanced_secret'                   , 'string'                      , ''                            , 'Shared secret for advanced SSO')
-DEFINE_SETTING('FAC', 0001, 'sso_advanced_timeout'                  , 'number'                      , '10'                          , 'Advanced SSO grace period (minutes)')
-DEFINE_SETTING('FAC', 0001, 'sso_advanced_url'                      , 'string'                      , ''                            , 'Advanced SSO path to customer sso script')
-DEFINE_SETTING('FAC', 0001, 'sso_advanced_url_alt'                  , 'string'                      , ''                            , 'Advanced SSO path to alternate customer sso script')
+DEFINE_SETTING('FAC', 0000, 'sso_advanced_secret'                   , 'string'                      , ''                            , 'Shared secret for advanced SSO=1')
+DEFINE_SETTING('FAC', 0000, 'sso_advanced_secret_alt'               , 'string'                      , ''                            , 'Shared secret for alternate advanced SSO=2')
+DEFINE_SETTING('FAC', 0001, 'sso_advanced_timeout'                  , 'number'                      , '10'                          , 'Advanced SSO grace period (seconds)')
+DEFINE_SETTING('FAC', 0001, 'sso_advanced_url'                      , 'string'                      , ''                            , 'Advanced SSO path to customer sso=1 script')
+DEFINE_SETTING('FAC', 0001, 'sso_advanced_url_alt'                  , 'string'                      , ''                            , 'Advanced SSO path to alternate customer sso=2 script')
+DEFINE_SETTING('FAC', 0001, 'sso_advanced_autoip'                   , 'string'                      , ''                            , 'Advanced SSO ip-regexp for automatic sso (future use)')
+DEFINE_SETTING('FAC', 0001, 'sso_advanced_autoip_alt'               , 'string'                      , ''                            , 'Advanced SSO ip-regexp for automatic alternate sso (future use)')
 DEFINE_SETTING('FAC', 0003, 'note_collapsed'                        , 'number'                      , '1'                           , 'Notes overview collapsed/fold up (=1 default) or unfold (=0)')
 DEFINE_SETTING('MLD', 0003, 'workflow_collapsed'                    , 'number'                      , '1'                           , 'Workflow overview collapsed/fold up (=1 default) or unfold (=0)')
 DEFINE_SETTING('FAC', 0001, 'use_capacity_planning'                 , 'number'                      , '0'                           , 'De inzetbaarheid van personen en uitvoerbaarheid bij opdrachten kan worden aangegeven (0=nee {default}, 1=ja)')
 DEFINE_SETTING('FAC', 0001, 'allow_framed_facilitor'                , 'boolean'                     , 'false'                       , 'Is it allowed to use FACILITOR in an (i)frame?')
+DEFINE_SETTING('FAC', 0001, 'p3p_header'                            , 'string'                      , ''                            , 'P3P privacy policy')
+DEFINE_SETTING('FAC', 0001, 'cors_header'                           , 'string'                      , ''                            , 'CORS header (future use)')
+DEFINE_SETTING('FAC', 0001, 'http_meta_head'                        , 'string'                      , '<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">', 'Submitted in each html <head>')
 DEFINE_SETTING('MLD', 0003, 'mld_melding_recent'                    , 'number'                      , '60'                          , 'Tijdsinterval voor de recente wijzigingen in minuten')
 DEFINE_SETTING('MLD', 0003, 'mld_opdracht_recent'                   , 'number'                      , '60'                          , 'Tijdsinterval voor de recente opdracht wijzigingen in minuten')
 DEFINE_SETTING('CNT', 0003, 'cnt_contract_recent'                   , 'number'                      , '60'                          , 'Tijdsinterval voor de recente contract wijzigingen in minuten')
 DEFINE_SETTING('RES', 0003, 'res_reservering_recent'                , 'number'                      , '60'                          , 'Tijdsinterval voor de recente reserverings wijzigingen in minuten')
 DEFINE_SETTING('FAC', 0001, 'mobile_enabled'                        , 'number'                      , '0'                           , 'Is FACILITOR Mobile available {0 | 1}')
+DEFINE_SETTING('FAC', 0001, 'mobile_imageportal'                    , 'boolean'                     , 'true'                        , 'Use the fancy mobile icon portal (true) or text portal (false)')
 DEFINE_SETTING('FAC', 0003, 'mobile_guest_user'                     , 'string'                      , NULL                          , 'QRCode only for now, set to "_GAST" and assign rights to _GAST.')
 DEFINE_SETTING('FAC', 0003, 'qp_maxrows_mobile'                     , 'number'                      , '30'                          , 'Maximum number of rows to show mobile, displays ''lcl_qp_maxrows'' if exceeded')
 DEFINE_SETTING('FAC', 0003, 'mobile_password'                       , 'number'                      , '0'                           , 'get the login password sent to your mobile')
 DEFINE_SETTING('FAC', 0003, 'mobile_password_pda'                   , 'number'                      , '0'                           , 'get the login password sent your mobile when using a mobile')
 DEFINE_SETTING('FAC', 0001, 'mobile_password_exp'                   , 'number'                      , '15'                          , 'time to enter the login code received on the mobile in minutes.')
-DEFINE_SETTING('MLD', 0003, 'mld_mobile_close_own_call_only'        , 'number'                      , '0'                           , 'Only close own orders or close orders in scope ORDBO2 (0=own calls | 1=ORDBO2 scope)')
 DEFINE_SETTING('MLD', 0003, 'mld_restrict_mobile_to_me'             , 'number'                      , '0'                           , 'For mobile, show calls within scope (0) or only list calls assigned to me (1) with scope')
 DEFINE_SETTING('FAC', 0003, 'mobile_alg_level'                      , 'string'                      , 'G'                           , 'Level to use for mobile scoping: L(ocatie), G(ebouw) of V(erdieping)')
 DEFINE_SETTING('CAD', 0009, 'fg_dwf_path'                           , 'string'                      , NULL                          , 'full filepath to FACILITOR Graphics DWF files')
@@ -159,24 +192,16 @@ DEFINE_SETTING('CAD', 0009, 'fg_symbols_path'                       , 'string'
 DEFINE_SETTING('CAD', 0009, 'fg_dwf_path_prj'                       , 'string'                      , NULL                          , 'full filepath to FACILITOR Graphics DWF files for scenarios')
 DEFINE_SETTING('CAD', 0001, 'fg_rap_alg'                            , 'string'                      , '../cad/rap_alg.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_algc'                           , 'string'                      , '../cad/rap_algc.asp'         , 'concept')
-DEFINE_SETTING('CAD', 0001, 'fg_rap_bez'                            , 'string'                      , '../cad/rap_bez.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_cnt'                            , 'string'                      , '../cad/rap_cnt.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_ins'                            , 'string'                      , '../cad/rap_ins.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_mld'                            , 'string'                      , '../cad/rap_mld.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_prs'                            , 'string'                      , '../cad/rap_prs.asp'          , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_sch'                            , 'string'                      , '../cad/rap_sch.asp'          , NULL)
+DEFINE_SETTING('CAD', 0001, 'fg_rap_sch'                            , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_sle'                            , 'string'                      , '../cad/rap_sle.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_mov'                            , 'string'                      , '../cad/rap_move.asp'         , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_cust'                           , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_alg2'                           , 'string'                      , '../cad/rap_alg2.asp'         , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_bez2'                           , 'string'                      , '../cad/rap_bez.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_cnt2'                           , 'string'                      , '../cad/rap_cnt.asp'          , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_rap_ins2'                           , 'string'                      , '../cad/rap_ins2.asp'         , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_mld2'                           , 'string'                      , '../cad/rap_mld.asp'          , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_prs2'                           , 'string'                      , '../cad/rap_prs.asp'          , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_sch2'                           , 'string'                      , '../cad/rap_sch.asp'          , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_sle2'                           , 'string'                      , '../cad/rap_sle.asp'          , NULL)
-DEFINE_SETTING('CAD', 0001, 'fg_rap_cust2'                          , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_paperColor'                         , 'number'                      , '15395820'                    , 'paper background or -1 for ''as published''')
 DEFINE_SETTING('CAD', 0003, 'fg_contourColor'                       , 'number'                      , '65280'                       , 'Default roomcontour coloring')
 DEFINE_SETTING('CAD', 0001, 'fg_contourAlpha'                       , 'number'                      , '0'                           , 'Default roomcontour transparancy. 0==invisible!')
@@ -192,65 +217,74 @@ DEFINE_SETTING('CAD', 0003, 'fg_outLabelSize'                       , 'number'
 DEFINE_SETTING('CAD', 0003, 'fg_outINSLabelSize'                    , 'number'                      , '8000'                        , 'Buiten objectlabels grootte')
 DEFINE_SETTING('CAD', 0003, 'fg_labelPosition'                      , 'number'                      , '1'                           , '1=default, 2=center, 3=topleft')
 DEFINE_SETTING('CAD', 0000, 'fg_startBuiten'                        , 'boolean'                     , 'false'                       , 'Bij binnenkomst van FGII buiten/terrein-situatie tonen')
-DEFINE_SETTING('CAD', 0001, 'fg_translateprintcolor'                , 'array'                       , ''                            , 'Kleur vertalingen bij printen')
+DEFINE_SETTING('CAD', 0001, 'fg_translateprintcolor'                , 'json'                        , '[]'                          , 'Kleurvertalingen bij printen')
 DEFINE_SETTING('CAD', 0001, 'fg_antialias'                          , 'number'                      , '2'                           , 'Antialias, 1=off, 2=pleasant, 4=slower')
 DEFINE_SETTING('CAD', 0001, 'fg_dobbelScale'                        , 'float'                       , '0.5'                         , 'Schaal voor de dobbelsymbolen versus normale grootte')
 DEFINE_SETTING('CAD', 0001, 'fg_dobbelDist'                         , 'number'                      , '1400'                        , 'Afstand dobbel symbolen')
 DEFINE_SETTING('CAD', 0001, 'fg_WPScale'                            , 'float'                       , '1'                           , 'Schaal voor werkplek symbolen tov 1.0')
 DEFINE_SETTING('CAD', 0003, 'fg_ins_symbols'                        , 'boolean'                     , 'false'                       , 'Objecten als symbolen in de tekening plaatsen.')
-DEFINE_SETTING('CAD', 0000, 'fg_show_all_help'                      , 'boolean'                     , 'false'                       , 'Activering help wanneer bij klik op uitklapschermpje {false=no | true=yes}')
+DEFINE_SETTING('CAD', 0003, 'fg_bitmapsymbolsize'                   , 'number'                      , '1000'                        , 'Symbool hoogte bitmap symbolen.')
 DEFINE_SETTING('CAD', 0001, 'fg_maximize'                           , 'boolean'                     , 'true'                        , 'Maximaliseer plaatje naar wat echt zichtbaar is.')
 DEFINE_SETTING('CAD', 0001, 'fg_syncruimteview'                     , 'string'                      , 'cad_v_sync_alg_ruimte'       , NULL)
 DEFINE_SETTING('CAD', 0001, 'fg_syncterreinview'                    , 'string'                      , 'cad_v_sync_alg_terrein'      , NULL)
-DEFINE_SETTING('CAD', 0003, 'fg_contourlayers'                      , 'string'                      , '{CONT!.}|{CONT\|.*}'        , NULL)
-DEFINE_SETTING('CAD', 0003, 'fg_labellayers'                        , 'string'                      , '{CONT!.}|{CONT\|.*}'        , NULL)
+DEFINE_SETTING('CAD', 0003, 'fg_contourlayers'                      , 'string'                      , '{CONT!.}|{CONT\|.*}'         , NULL)
+DEFINE_SETTING('CAD', 0003, 'fg_labellayers'                        , 'string'                      , '{CONT!.}|{CONT\|.*}'         , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_contourlayers_alt1'                 , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_labellayers_alt1'                   , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_contourlayers_alt2'                 , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_labellayers_alt2'                   , 'string'                      , ''                            , NULL)
 DEFINE_SETTING('CAD', 0003, 'fg_contour_minArea'                    , 'number'                      , '200010'                      , 'minimale mm2 om herkend te worden als ruimte (millimeter! dus)')
+DEFINE_SETTING('CAD', 0003, 'fg_mobile_thema'                       , 'number'                      , '12'                          , 'kleurthema om mobile te tonen')
+DEFINE_SETTING('CAD', 0003, 'fg_mobile_label'                       , 'number'                      , '-1'                          , 'labelthema om mobile te tonen')
 DEFINE_SETTING('CAD', 0003, 'fg_werkpleksymbool'                    , 'string'                      , 'WERKPLEK'                    , 'Moet in fg_symbols_path staan')
+DEFINE_SETTING('CAD', 0003, 'fg_publiclayers'                       , 'array'                       , ''                            , 'ins_disc_keys of layers visible without INSUSE')
 DEFINE_SETTING('ALG', 0001, 'alg_ruimtenr_aut_use'                  , 'number'                      , '0'                           , 'WEB_ALGUSE may change alg_ruimte_nr/omschrijving {0=WEB_ALGMAN required | 1=WEB_ALGUSE allowed too}')
 DEFINE_SETTING('ALG', 0001, 'alg_ruimte_comm_opp_key'               , 'number'                      , '-1'                          , 'Key to be used for commercial ruimte oppervlakte')
 DEFINE_SETTING('ALG', 0001, 'alg_terrein_comm_opp_key'              , 'number'                      , '-1'                          , 'Key to be used for commercial terrein oppervlakte')
-DEFINE_SETTING('ALG', 0001, 'alg_ruimte_extra_key'                  , 'number'                      , '-1'                          , 'ALG_KENMERK_KEY representing additional column (after ruimte_nr) in overview room')
 DEFINE_SETTING('ALG', 0003, 'alg_fg_remote_maps'                    , 'string'                      , ''                            , 'URL. if not empty use Google Maps for locations en buildings in FACILITOR Graphics')
 DEFINE_SETTING('BES', 0009, 'bes_image_path'                        , 'string'                      , NULL                          , 'path to folder storing bes_srtdeel pictures')
 DEFINE_SETTING('BES', 0003, 'bes_show_RFO_price'                    , 'number'                      , '2'                           , 'show prices {0=no support | 1=FO support | 2=FE&FO support}')
-DEFINE_SETTING('BES', 0003, 'bes_show_local_adr'                    , 'boolean'                     , 'true'                        , 'show local address (workplace) in bestelling forms')
-DEFINE_SETTING('BES', 0000, 'bes_lower_bo_only'                     , 'number'                      , '0'                           , 'button ''Lower'' present {0=FO and BO | 1=only BO}')
-DEFINE_SETTING('BES', 0000, 'rfo_order_limit_kkey'                  , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property Order Limit')
-DEFINE_SETTING('BES', 0000, 'rfo_approval_person_kkey'              , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property Approver')
-DEFINE_SETTING('BES', 0001, 'cust_bes_checkrfo_function'            , 'string'                      , ''                            , 'customer specific check function to restrict RFOs')
 DEFINE_SETTING('BES', 0003, 'bes_datum_limiet'                      , 'number'                      , '90'                          , 'max days in the future')
 DEFINE_SETTING('BES', 0000, 'bes_bestelling_prefix'                 , 'string'                      , ''                            , 'prefix voor het aanvraagnummer van de bestelling')
 DEFINE_SETTING('BES', 0000, 'bes_bestelopdr_prefix'                 , 'string'                      , ''                            , 'prefix voor het opdrachtnummer van de bestelling')
 DEFINE_SETTING('BES', 0003, 'bes_afleverruimte_verplicht'           , 'number'                      , '0'                           , 'Afleverruimte required {0=no (default) | 1=yes}')
 DEFINE_SETTING('BES', 0003, 'bes_retour_need_approval'              , 'number'                      , '0'                           , 'retourbestelaanvraag wel(=1)/niet(=0) langs de BO laten gaan voor fiattering')
-DEFINE_SETTING('BES', 0003, 'bes_exact_nr_search'                   , 'number'                      , '1'                           , 'use filtervalue as start-with (1) or contains (0)')
 DEFINE_SETTING('BES', 0003, 'bes_show_inkprijs'                     , 'number'                      , '0'                           , 'show inkoopprijs column with BES management info {0=no | 1=yes}')
 DEFINE_SETTING('BES', 0003, 'bes_pgb_fiattering'                    , 'number'                      , '0'                           , 'Algemene fiatteringsproces noodzakelijk naast PGB/AGB fiatering? {0=no | 1=yes}')
 DEFINE_SETTING('BES', 0003, 'bes_pgb_fe_fiat'                       , 'number'                      , '0'                           , 'Een bestelling van FE-er moet naast PGB/AGB fiattering ook altijd gefiatteerd worden, anders altijd afwijzen {0=no | 1=yes}')
 DEFINE_SETTING('BES', 0003, 'bes_confirm_order_before_submit'       , 'boolean'                     , 'false'                       , 'Bevestig bestelaanvraag voordat het uitgevoerd wordt')
-DEFINE_SETTING('CNT', 0000, 'cnt_srttype_maintenance'               , 'number'                      , '1'                           , 'cnt_srtcontract_type of maintenance contract type')
+DEFINE_SETTING('BES', 0003, 'bes_approval_all'                      , 'number'                      , '0'                           , 'Goedkeuring bestelling vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
 DEFINE_SETTING('CNT', 0000, 'cnt_srttype_rental'                    , 'number'                      , '2'                           , 'cnt_srtcontract_type of room rental contract type')
-DEFINE_SETTING('CNT', 0000, 'cnt_srttype_support'                   , 'number'                      , '3'                           , 'cnt_srtcontract_type of supporting contracts (loc / bld and obj sort)')
-DEFINE_SETTING('CNT', 0000, 'cnt_srttype_generic'                   , 'number'                      , '4'                           , 'cnt_srtcontract_type of generic contracts without a scope')
-DEFINE_SETTING('CNT', 0000, 'cnt_srttype_loc_lev_rel'               , 'number'                      , '5'                           , 'cnt_srtcontract_type to maintain location supplier relations. these contracts are not shown in the MLD BO order window.')
-DEFINE_SETTING('CNT', 0003, 'cnt_srttype_default'                   , 'number'                      , '1'                           , 'default type for new contracts(?)')
-DEFINE_SETTING('CNT', 0003, 'cnt_internnr_readonly'                 , 'number'                      , '0'                           , 'intern contract number may be edited or is read only (0=changeble | 1=read only)')
-DEFINE_SETTING('CNT', 0001, 'mld_huurmut_vakgroep_key'              , 'number'                      , '-1'                          , 'mld_discipline waaronder meldingen voor huurmutaties worden gemaakt')
-DEFINE_SETTING('CNT', 0001, 'cnt_minhuurmut_level'                  , 'string'                      , 'L'                           , '"L", "G", "V": Mimaal te kiezen niveau (Locatie/Gebouw/Verdieping) voor zoeken huurmutaties')
+DEFINE_SETTING('CNT', 0003, 'cnt_scopeverdeling'                    , 'number'                      , '0'                           , '0|1, cost distribution by scope weights 0=relative weight, 1=absolute amount')
 DEFINE_SETTING('CNT', 0003, 'cnt_inactivate_mode'                   , 'number'                      , '0'                           , 'inactivate contract with WEB_CNTMAN/WEB_CNTUSE read rights and WEB_CNTMSU rights (0) or with extra WEB_CNTMAN write rights (1)')
 DEFINE_SETTING('CNT', 0003, 'cnt_all_kostenplaats'                  , 'number'                      , '0'                           , 'show all (1) active kostenplaats values or only the one i have mandate for (0) in list')
 DEFINE_SETTING('CNT', 0003, 'cnt_rappel_abonnement'                 , 'number'                      , '3'                           , 'Rappel termijn van een abonnement contract')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_approval'                 , 'number'                      , '0'                           , 'Het contract approval mechanisme is wel (=1) of niet (=0) ingeschakeld')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit1'                   , 'number'                      , '0'                           , 'De eerste limiet van het contract approval mechanisme')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit2'                   , 'number'                      , '5000'                        , 'De tweede limiet van het contract approval mechanisme')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit3'                   , 'number'                      , '125000'                      , 'De derde limiet van het contract approval mechanisme')
+DEFINE_SETTING('CNT', 0003, 'cnt_approval_all'                      , 'number'                      , '0'                           , 'Goedkeuring contract vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
+DEFINE_SETTING('CNT', 0003, 'cnt_factuur_totaalmarge'               , 'number'                      , '0'                           , 'De toegestane marge op de totaal factuur (default 0)')
+DEFINE_SETTING('CNT', 0003, 'cnt_internalnr_readonly'               , 'number'                      , '0'                           , 'Het interne contractnummer wordt automatisch bepaalt en is niet wijzigbaar')
+DEFINE_SETTING('CNT', 0003, 'cnt_enable_kostensoort'                , 'number'                      , '1'                           , 'can contract kostensoort be changed?')
 DEFINE_SETTING('FAQ', 0001, 'faq_enabled'                           , 'number'                      , '0'                           , 'Is kennisbank available {0 | 1} licensed separately')
 DEFINE_SETTING('FAQ', 0003, 'faq_max_results'                       , 'number'                      , '10'                          , 'Limit the result to this number')
+DEFINE_SETTING('FAQ', 0003, 'faq_kennisbank_popup'                  , 'number'                      , '3'                           , 'Show kennisbank popup {0=no | 01=1=FE | 10=2=FO | 11=3=FE+FO}')
 DEFINE_SETTING('FAC', 0001, 'iLearning_enabled'                     , 'number'                      , '0'                           , 'Is iLearning available {0 | 1} licensed separately')
 DEFINE_SETTING('FAC', 0001, 'kto_srtdiscipline_key'                 , 'number'                      , '-1'                          , 'key van KTO (klanttevredenheidsonderzoek) vakgroeptype')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_pie_colors'                  , 'string'                      , '[''red'', ''grey'', ''green'', ''orange'', ''blue'', ''yellow'', ''purple'']', 'Colors being used for pie charts (string!)')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_colors1'                     , 'string'                      , '[''blue'']'                  , 'Color used for single bar /line graphs (string!)')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_colors2'                     , 'string'                      , '[''red'',''green'']'         , 'Colors used for stacked bar /line graphs (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_pie_colors'                  , 'string'                      , '[''#E37B00'',''#747578'',''#009979'',''#AB1455'',''#003478'',''#60B0E6'',''#DFE200'']', 'Colors being used for pie charts (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_colors1'                     , 'string'                      , '[''#003478'']'               , 'Color used for single bar /line graphs (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_colors2'                     , 'string'                      , '[''#AB1455'',''#009979'']'   , 'Colors used for stacked bar /line graphs (string!)')
+DEFINE_SETTING('FAC', 0003, 'menu_photo_size'                       , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
+DEFINE_SETTING('FAC', 0003, 'fac_like_bad'                          , 'number'                      , '2'                           , 'Rating for bad service')
+DEFINE_SETTING('FAC', 0003, 'fac_like_poor'                         , 'number'                      , '4'                           , 'Rating for poor service')
+DEFINE_SETTING('FAC', 0003, 'fac_like_normal'                       , 'number'                      , '6'                           , 'Rating for normal service')
+DEFINE_SETTING('FAC', 0003, 'fac_like_good'                         , 'number'                      , '8'                           , 'Rating for good service')
+DEFINE_SETTING('FAC', 0003, 'fac_like_excellent'                    , 'number'                      , '10'                          , 'Rating for excellent service')
+DEFINE_SETTING('FAC', 0003, 'facilities_flike_past'                 , 'number'                      , '7'                           , 'Number of days in the past to show (my) facilities for rating')
+DEFINE_SETTING('FAC', 0003, 'fac_mld_deeplike_expire'               , 'number'                      , '0'                           , 'Number of days melding deeplike bookmark is valid (default 0 is disabled)')
+DEFINE_SETTING('FAC', 0003, 'fac_res_deeplike_expire'               , 'number'                      , '0'                           , 'Number of days reservation deeplike bookmark is valid (default 0 is disabled) future use')
+DEFINE_SETTING('FAC', 0003, 'fac_bes_deeplike_expire'               , 'number'                      , '0'                           , 'Number of days bestelling deeplike bookmark is valid (default 0 is disabled) future use')
 DEFINE_SETTING('FIN', 0003, 'fin_btw_default'                       , 'number'                      , '3'                           , 'Standaard btw tarief (1=NL|Nul, 2=NL|Laag, 3=NL|Hoog, enz.)')
 DEFINE_SETTING('FIN', 0001, 'fin_defaultboekmaand'                  , 'number'                      , '1'                           , 'How to determine default "boekmaand" for entered invoice: 1=sysdate, 2=orderdate')
 DEFINE_SETTING('FIN', 0003, 'fin_new_after_save'                    , 'number'                      , '0'                           , 'Na het opslaan terugkomen met de factuur in de showmode of met nieuw leeg invulformulier (0=showmode || 1=nieuw formulier)')
@@ -259,15 +293,13 @@ DEFINE_SETTING('FIN', 0003, 'fin_enable_kostensoort'                , 'number'
 DEFINE_SETTING('FIN', 0003, 'fin_kostensoort_verplicht'             , 'number'                      , '0'                           , 'Is kostensoort required? {0=not required | 1=required}')
 DEFINE_SETTING('FIN', 0003, 'fin_bof_mag_editen'                    , 'number'                      , '1'                           , 'Users/Approvers with FINBOF rights have edit possibilities {0=no edit (only approve) | 1=edit (default)}')
 DEFINE_SETTING('FIN', 0003, 'fin_enable_afwijzen'                   , 'number'                      , '1'                           , 'Is it possible to reject an invoice or not {0=Afwijzen unavailable | 1=Afwijzen available}')
+DEFINE_SETTING('FIN', 0003, 'fin_enable_goedkeuren'                 , 'number'                      , '0'                           , 'Is it possible to validate an invoice or not {0=Goedkeuren unavailable | 1=Goedkeuren available}')
 DEFINE_SETTING('FIN', 0003, 'fin_match_lowerlimit'                  , 'number'                      , '0'                           , 'Check lowerlimit also for matching {0=Only upperlimit (invoice<order+tolerance | 1=Upper and lowerlimit (order-tolerance<invoice<order+tolerance)}')
+DEFINE_SETTING('FIN', 0003, 'fin_use_verkoopfacturen'               , 'number'                      , '0'                           , 'Provide direct access to generated salesinvoices (if any) from contract/order/reservation details {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'mld_meldbron_key'                      , 'number'                      , '5'                           , 'MLD_MELDBRON_KEY of meldbron ''intranet''')
-DEFINE_SETTING('MLD', 0000, 'mld_same_mld_days'                     , 'number'                      , '-1'                          , 'in days')
-DEFINE_SETTING('MLD', 0003, 'mld_melding_autoprint'                 , 'number'                      , '0'                           , 'auto print melding form after insert by FO 2= unconditionally print complain | 1= print if ask_for_orders=0 | 0= no print')
+DEFINE_SETTING('MLD', 0003, 'mld_melding_autoprint'                 , 'number'                      , '0'                           , 'auto print melding form after insert by FO 2=unconditionally print complain | 1=print if ask_for_orders=0 | 0=no print')
 DEFINE_SETTING('MLD', 0003, 'mld_ask_for_orders'                    , 'boolean'                     , 'true'                        , 'ask for immediate order input after call entry { true | false }')
 DEFINE_SETTING('MLD', 0003, 'mld_rejected_is_open'                  , 'number'                      , '0'                           , 'show rejected meldingen as Open FE/FO {1=Open | 0=Closed}.')
-DEFINE_SETTING('MLD', 0003, 'mld_ord_input_company_list'            , 'number'                      , '1'                           , 'select table to fill executive list {0=external | 1=external and internal}')
-DEFINE_SETTING('MLD', 0003, 'mld_fe_force_vakgroep'                 , 'number'                      , '0'                           , 'vakgroep is required first for FE {1=required | 0= present}')
-DEFINE_SETTING('MLD', 0003, 'mld_fo_force_vakgroep'                 , 'number'                      , '0'                           , 'vakgroep is required first for FO {1=required | 0= present}')
 DEFINE_SETTING('MLD', 0003, 'mld_typeopdr_key'                      , 'number'                      , '5'                           , 'Default order type or -1 to select default (at order-creation) from most to least specific per vakgroep')
 DEFINE_SETTING('MLD', 0003, 'mld_fo_default_user'                   , 'boolean'                     , 'false'                       , 'user current user a default caller, { true=user default | false=empty default }')
 DEFINE_SETTING('MLD', 0003, 'mld_order_autoprint'                   , 'number'                      , '1'                           , 'orders will be printed {0=print only at insert for extern and intern | 1=print with any save | 2=print only at insert for extern | 3=never print}')
@@ -275,38 +307,32 @@ DEFINE_SETTING('MLD', 0003, 'mld_ord_show_cost'                     , 'number'
 DEFINE_SETTING('MLD', 0003, 'mld_ord_show_ordernr'                  , 'number'                      , '0'                           , 'show ordernr field for orders {0=don''t show(&use mld_melding_ordernr) | 1=show}')
 DEFINE_SETTING('MLD', 0003, 'mld_ord_show_kostenplaats'             , 'number'                      , '1'                           , 'show kostenplaats field for orders {0=don''t show | 1=editable | 2=show}')
 DEFINE_SETTING('MLD', 0003, 'mld_ord_change_type'                   , 'number'                      , '1'                           , 'Can change opdr_type (0=no, 1=yes, 2=undefined)')
-DEFINE_SETTING('MLD', 0003, 'mld_order_in_mail_body'                , 'number'                      , '0'                           , 'include order information in the body of the mail (1) or as attachment (0) (default = 0)')
-DEFINE_SETTING('MLD', 0003, 'mld_order_on_behalf_of'                , 'number'                      , '1'                           , 'bo sends orders on behalf of the company of the caller. {0:use caller''s company stylesheet | 1: use backoffice company stylesheet}')
 DEFINE_SETTING('MLD', 0001, 'mld_contract_startdate_key'            , 'number'                      , '-1'                          , 'key of flex prop in rental contract mutation call')
 DEFINE_SETTING('MLD', 0003, 'mld_enable_workflow'                   , 'number'                      , '1'                           , 'enable workflow in call handling {0=workflow disabled | 1=workflow enabled }')
 DEFINE_SETTING('MLD', 0003, 'mld_notify_workflowsteps'              , 'number'                      , '1'                           , 'Notify each workflowstep to caller {0=do not notify steps (blackbox) | 1=notify each step (whitebox)}')
-DEFINE_SETTING('MLD', 0003, 'mld_close_mld_auto'                    , 'number'                      , '0'                           , 'Close call automatically (no question) when last order is closed (0=question 1=auto)')
-DEFINE_SETTING('MLD', 0003, 'mld_close_opdr_auto'                   , 'number'                      , '0'                           , 'Show popup with question to close all orders (0=no closing of orders 1=question)')
+DEFINE_SETTING('MLD', 0003, 'mld_close_opdr_default'                , 'number'                      , '0'                           , 'De checkbox met de vraag of de open opdrachten ook afgemeld moeten worden is standaard niet(0=default) of wel(1) aangevinkt')
 DEFINE_SETTING('MLD', 0001, 'mld_contract_no_renter_key'            , 'number'                      , '-1'                          , 'Key of company to indicate that the contract - room relation (CNT_CONTRACT_ONRGOED) can be removed')
 DEFINE_SETTING('MLD', 0003, 'mld_bo_sort_descending'                , 'number'                      , '0'                           , 'Sort ordering of mld_melding for BO (0 = most urgent first | 1 = last made first );')
-DEFINE_SETTING('MLD', 0000, 'mld_show_exec_time_always'             , 'number'                      , '0'                           , 'Show exec time in details of complain (0 = only BO and existing complains | 1 = always);')
 DEFINE_SETTING('MLD', 0003, 'mld_max_history'                       , 'number'                      , '0'                           , 'Show calls and orders not longer then mld_max_history days ago (FE/FO/BO) ((mld_max_history <= 0) : show all finished calls and orders (default))')
 DEFINE_SETTING('MLD', 0003, 'mld_melding_close'                     , 'number'                      , '0'                           , 'Can close complain with orders in complain overview window without seeing complain details? {0=yes default | 1=no}')
 DEFINE_SETTING('MLD', 0003, 'mld_opdr_close'                        , 'number'                      , '0'                           , 'Can close orders in order overview window without seeing order details? {0=yes default | 1=no}')
 DEFINE_SETTING('MLD', 0003, 'mld_opdr_ask_mail_if_unknown'          , 'number'                      , '0'                           , 'Workaround for sending order by e-mail to ''externe relatie'' if address unknown (0=disabled default | 1=enabled)')
 DEFINE_SETTING('MLD', 0003, 'mld_opdr_confirm_for_send'             , 'number'                      , '0'                           , 'Ask confirmation before sending an e-Order to a supplier (0=do not ask| 1=ask)')
-DEFINE_SETTING('MLD', 0003, 'mld_behandeling_fo'                    , 'number'                      , '1'                           , 'FO can see the ''Note'' button (0=No, 1=Yes)')
 DEFINE_SETTING('MLD', 0003, 'mld_note_sort_ascending'               , 'number'                      , '0'                           , 'Sort (of time) ordering of melding notes for FO and BO {0 = descending | 1 = ascending }')
-DEFINE_SETTING('MLD', 0000, 'mld_bo_logboek_mode'                   , 'number'                      , '2'                           , 'Determine what is/can be logged in ''Logboek'' (0=disabled | 1=automatic log enabled | 2=manual log enabled | 3=both enabled)') //  see also FBTI#12870
 DEFINE_SETTING('MLD', 0003, 'mld_afmelden_extern'                   , 'number'                      , '0'                           , 'Are external orders visible and/or changeble by ORDBO2 (0=not visible | 1=visible for ORDBO2 | 2=visible and changeble by ORDBO2)')
 DEFINE_SETTING('MLD', 0003, 'mld_max_kosten_extern'                 , 'float'                       , '9999999'                     , 'limit order amount to be entered by external handlers')
-DEFINE_SETTING('MLD', 0003, 'mld_melding_start_empty'               , 'number'                      , '0'                           , 'Melding selectbox starts with empty selection instead of first one (0=select first | 1=select empty)')
 DEFINE_SETTING('MLD', 0003, 'mld_use_order_approval'                , 'number'                      , '1'                           , 'Approval mechanism is used for mld orders (0=disabled | 1=enabled)')
 DEFINE_SETTING('MLD', 0003, 'mld_ord_flexsummary'                   , 'number'                      , '1'                           , 'User summary of melding-flexprop in initial order description {0=no | 1=yes}')
-DEFINE_SETTING('MLD', 0003, 'mld_print_loc_address'                 , 'number'                      , '0'                           , 'Print location adress details in backoffice overview orders {0=no | 1=yes}')
-DEFINE_SETTING('MLD', 0003, 'mld_print_order_details'               , 'number'                      , '1'                           , 'Print order details in backoffice overview orders {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0003, 'mld_print_loc_address'                 , 'number'                      , '0'                           , 'Print location address details in backoffice overview orders {0=no | 1=yes | 2=show address+building}')
+DEFINE_SETTING('MLD', 0003, 'mld_plandate_in_list'                  , 'number'                      , '0'                           , 'Show Planned Date as a column in backoffice overview orders {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_show_order_details'                , 'number'                      , '1'                           , 'Show remark in backoffice Orders Management {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_forward_all'                       , 'number'                      , '1'                           , 'Forward a complain 0= to a complain with the same srtdiscipline 1= (default) to a complain for all srtdisciplines')
+DEFINE_SETTING('MLD', 0003, 'mld_forward_if_closed'                 , 'number'                      , '0'                           , 'WEB_MLDMSU can forward a complaint even with status ''afgemeld''')
+DEFINE_SETTING('MLD', 0003, 'mld_fixdatums_marge'                   , 'number'                      , '7'                           , 'WEB_MLDMSU can fix invoer/afgemeld dates')
 DEFINE_SETTING('MLD', 0003, 'mld_fe_show_statusnames'               , 'number'                      , '1'                           , 'Show name to FE of the users who changed the status of a melding {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_uren_weeks_back'                   , 'number'                      , '8'                           , 'Show this number of weeks in the overview, endig at the selected date')
 DEFINE_SETTING('MLD', 0003, 'mld_uren_omschrijving'                 , 'number'                      , '1'                           , 'Description to show in hour screen {1=melder (care)| 2=vakgroep/stdmelding}')
 DEFINE_SETTING('MLD', 0003, 'mld_uren_more'                         , 'boolean'                     , 'true'                        , 'Overige opdrachten mogen ook getoond worden {true=link tonen (care) | false=link niet tonen}')
-DEFINE_SETTING('MLD', 0003, 'mld_plaats_is_locatie_only'            , 'number'                      , '0'                           , 'Bij de plaats van een melding tot en met ruimte (0) opgeven of alleen locatie(1), ongeacht de stdmelding')
 DEFINE_SETTING('MLD', 0003, 'mld_enforce_orderdates'                , 'number'                      , '0'                           , 'Enforce order start/ending dates to be within call start/ending dates')
 DEFINE_SETTING('MLD', 0003, 'mld_afhandeling_required_for_close'    , 'number'                      , '0'                           , 'Het veld afhandeling verplicht bij het afmelden van een melding (0=no, 1=yes)')
 DEFINE_SETTING('MLD', 0003, 'mld_suppress_directklaar_notification' , 'number'                      , '0'                           , 'Suppress de notificatie bij DirectKlaar {0=no (default) | 1=yes}')
@@ -322,7 +348,17 @@ DEFINE_SETTING('MLD', 0001, 'mld_opdr_minuren'                      , 'boolean'
 DEFINE_SETTING('MLD', 0003, 'mld_melding_flags'                     , 'number'                      , '0'                           , 'Number of flags fo/bo can define on complaint. Max 10')
 DEFINE_SETTING('MLD', 0003, 'mld_flag_on_fenote'                    , 'number'                      , '0'                           , 'Set/Clear this mld_melding_flag when the FOBO/caller saves a note {0=no flag}')
 DEFINE_SETTING('MLD', 0003, 'mld_flag_on_bonote'                    , 'number'                      , '0'                           , 'Value of flag when BO has to read note')
-DEFINE_SETTING('MLD', 0003, 'mld_forward_opm_required'              , 'number'                      , '0'                           , 'remark/reason is required when forwarded {1=Yes | 0=No}.')
+DEFINE_SETTING('MLD', 0003, 'mld_forward_opm_flags'                 , 'number'                      , '0'                           , 'remark/reason is required when forwarded {to comment field: 0=No(default) | 1=Yes | to note field: 2=No | 3=Yes}.')
+DEFINE_SETTING('MLD', 0009, 'mlds_image_path'                       , 'string'                      , NULL                          , 'path to folder storing stdmelding symbols pictures')
+DEFINE_SETTING('MLD', 0003, 'mld_add_mldopmerk_on_opdrclose'        , 'number'                      , '0'                           , 'Automatically copy remark from order to call when supplier close last order {1=Yes | 0=No}')
+DEFINE_SETTING('MLD', 0003, 'mld_reference_days'                    , 'number'                      , '100'                         , 'Het aantal dagen terug in de tijd van waaraf eigen referentie getoond dienen te worden')
+DEFINE_SETTING('MLD', 0003, 'mld_locked_expire'                     , 'number'                      , '30'                          , 'Minutes after which edit-lock automatically released')
+DEFINE_SETTING('MLD', 0003, 'mld_opdr_approval_all'                 , 'number'                      , '0'                           , 'Goedkeuring opdracht vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
+DEFINE_SETTING('MLD', 0003, 'mld_object_filled_in_alert'            , 'number'                      , '1'                           , '{0=geen, 1=wel} alert tonen als er automatisch een object wordt ingevuld bij een melding.')
+DEFINE_SETTING('MLD', 0003, 'mld_pgb_fiattering'                    , 'number'                      , '0'                           , 'Voor een opdracht is het algemene fiatteringsproces noodzakelijk naast PGB/AGB fiatering? {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0003, 'mld_show_urgent_as_new'                , 'boolean'                     , 'false'                       , 'Show urgent calls as new calls')
+DEFINE_SETTING('MLD', 0003, 'mld_opdr_refiat_preference'            , 'number'                      , '0'                           , 'Bij herfiattering opnieuw fiatteren {0=(default) fiatteur moet opnieuw fiatteren, 1=goedkeurder kan aangeven of dat moet}')
+DEFINE_SETTING('MLD', 0003, 'mld_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with call details (0=just notes | 1=both combined)')
 DEFINE_SETTING('PRS', 0003, 'prs_h'                                 , 'float'                       , '0.25'                        , 'Employability time stepsize')
 DEFINE_SETTING('PRS', 0003, 'prs_t1'                                , 'float'                       , '8'                           , 'Employability day start (hour)')
 DEFINE_SETTING('PRS', 0003, 'prs_t2'                                , 'float'                       , '18'                          , 'Employability day end (hour)')
@@ -335,9 +371,11 @@ DEFINE_SETTING('PRS', 0003, 'prs_bedrijf_leveranciernr_unique'      , 'number'
 DEFINE_SETTING('PRS', 0003, 'prs_hide_fixed_fields'                 , 'number'                      , '0'                           , 'Do not (1) display phonenumber/tarif fields with person details')
 DEFINE_SETTING('PRS', 0003, 'prs_dep_default_kpn'                   , 'number'                      , '1'                           , 'A user can make costs for his own department by default {0=no | 1=yes}')
 DEFINE_SETTING('PRS', 0001, 'prs_werkplek_implicit'                 , 'number'                      , '0'                           , 'Are workplaces treated as separate entitities (0) or implicitly/invisible used in person-room relations(1)')
-DEFINE_SETTING('PRS', 0003, 'prs_ruimteafdeling_explicit'           , 'number'                      , '1'                           , 'Manage the room departments explicit (=1) or room occupation follows from prs_perslidwerkplek (=0)')
-DEFINE_SETTING('PRS', 0003, 'prs_collegas_used'                     , 'number'                      , '0'                           , 'Can FE users indicate collegues for replacement (1) or not (0)')
+DEFINE_SETTING('PRS', 0003, 'prs_collegas_used'                     , 'number'                      , '9'                           , 'Can FE users indicate collegues for replacement. Use value as autlevel scope: everything (-1) ... nothing (9=default)')
+DEFINE_SETTING('PRS', 0003, 'prs_collegas_groep'                    , 'number'                      , '0'                           , 'Maximum number of group collegues (0=default)')
 DEFINE_SETTING('PRS', 0003, 'prs_dep_default_kpn_voor'              , 'number'                      , '0'                           , 'Gebruik de kostenplaatsen van de prs_perslid_voor indien gezet samen met mld_allow_for_others/bes_allow_for_others')
+DEFINE_SETTING('PRS', 0001, 'prs_mgt_edit_login'                    , 'boolean'                     , 'false'                       , 'WEB_FACMGT may change login')
+DEFINE_SETTING('PRS', 0003, 'prs_restrict_kpedit'                   , 'number'                      , '0'                           , 'Wijzigen van de kostenplaats? {0=volgens autorisatie (default) | 1=alleen eigen kp/kpg wijzigen}')
 DEFINE_SETTING('PHB', 0003, 'prs_phonebook_info'                    , 'string'                      , ''                            , 'Message to be shown at the top of the phonebook')
 DEFINE_SETTING('PHB', 0001, 'photo_kenmerk_key'                     , 'number'                      , '-1'                          , 'ALG_KENMERK_KEY of property Room picture')
 DEFINE_SETTING('PHB', 0001, 'prs_photo_kenmerk_key'                 , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property Person picture tonen Ja/Nee')
@@ -349,8 +387,6 @@ DEFINE_SETTING('PHB', 0001, 'phone_usrrap_key'                      , 'number'
 DEFINE_SETTING('PHB', 0003, 'phone_show_functie'                    , 'boolean'                     , 'true'                        , 'Toon Functie filter veld')
 DEFINE_SETTING('PHB', 0001, 'prs_plaats_key'                        , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property location, if -1, the workplace is used for the location')
 DEFINE_SETTING('PHB', 0009, 'prs_image_path'                        , 'string'                      , NULL                          , 'path to folder storing person pictures')
-DEFINE_SETTING('PHB', 0001, 'flex_wrkplace_building'                , 'number'                      , '-1'                          , 'ALG_GEBOUW_KEY of pseudo building storing all flexible workplaces')
-DEFINE_SETTING('PHB', 0001, 'editworkplace'                         , 'boolean'                     , 'false'                       , 'allow editing of workplace with personel data behind phonebook {false}')
 DEFINE_SETTING('PHB', 0003, 'ph_loc_search'                         , 'boolean'                     , 'true'                        , 'provide search on locations in phonebook (true) or not (false)')
 DEFINE_SETTING('PHB', 0003, 'ph_bedr_search'                        , 'boolean'                     , 'true'                        , 'provide search on companies in phonebook (true) or not (false)')
 DEFINE_SETTING('FAC', 0003, 'ph_rowdetails'                         , 'number'                      , '1'                           , 'Show phonebook details when click-on-row')
@@ -364,27 +400,20 @@ DEFINE_SETTING('FAC', 0001, 'ph_cust_flexsearch_key'                , 'number'
 DEFINE_SETTING('PRJ', 0003, 'prj_fg_paperColor'                     , 'number'                      , '16777215'                    , 'paper background for projects {nn=color | -1=''as published''}')
 DEFINE_SETTING('PRJ', 0001, 'fg_prj_syncruimteview'                 , 'string'                      , 'cad_v_sync_prj_ruimte'       , NULL)
 DEFINE_SETTING('PRJ', 0003, 'prj_discipline_key'                    , 'number'                      , '-1'                          , 'mld_discipline_key of discipline for moves')
-DEFINE_SETTING('INS', 0001, 'ins_excel_obj_report'                  , 'string'                      , 'ins_v_srtdeel_kenmerkdeel'   , 'query for excel-report overview object window')
+DEFINE_SETTING('INS', 0009, 'ins_image_path'                        , 'string'                      , NULL                          , 'path to folder storing ins_srtdeel pictures')
 DEFINE_SETTING('INS', 0003, 'ins_fg_remote_maps'                    , 'string'                      , ''                            , 'URL. if not empty use Google Maps instead of FG if x,y coordinates of an object are available')
 DEFINE_SETTING('INS', 0003, 'ins_inspect_soon_days'                 , 'number'                      , '30'                          , 'Days margin for needs inspection ''soon''')
-DEFINE_SETTING('INS', 0003, 'ins_inspect_late_days'                 , 'number'                      , '-7'                          , 'Days margin for needs inspection ''late''')
-DEFINE_SETTING('INS', 0003, 'ins_inspect_allow_past'                , 'number'                      , '1'                           , 'May we register inspections for the past or not {0=no | 1=yes}')
+DEFINE_SETTING('INS', 0001, 'inspect_enabled'                       , 'number'                      , '0'                           , 'Is FACILITOR Inspect available {0 | 1} (future use)')
 DEFINE_SETTING('INS', 0003, 'ins_flex_uitgifte_empty'               , 'number'                      , '0'                           , 'Flexvelden die geen meetwaarden zijn leeg maken bij uitgifte {0=no (default) | 1=yes}')
-DEFINE_SETTING('PRS', 0001, 'fac_usrtab_badge_key'                  , 'number'                      , '-1'                          , 'FAC_USRTAB_KEY of Badges list')
-DEFINE_SETTING('PRS', 0001, 'fac_usrdata_key_titel'                 , 'number'                      , '-1'                          , 'FAC_USRTAB_KEY of Titles list')
-DEFINE_SETTING('PRS', 0001, 'prs_werkplek_key_rooms_yes'            , 'number'                      , '-1'                          , 'ALG_RUIMTE_KEY of default room for people requiring wp')
-DEFINE_SETTING('PRS', 0001, 'prs_werkplek_key_rooms_no'             , 'number'                      , '-1'                          , 'ALG_RUIMTE_KEY of default room for people not requiring wp')
-DEFINE_SETTING('PRS', 0001, 'contract_type_kenmerk_key'             , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property person contract type')
+DEFINE_SETTING('INS', 0003, 'ins_occupationsensors_srtgroep_key'    , 'number'                      , '-1'                          , 'INS_SRTGROEP_KEY of sensor objects to be used for occupation/availability')
 DEFINE_SETTING('PRS', 0001, 'badgenum_kenmerk_key'                  , 'number'                      , '-1'                          , 'PRS_KENMERK_KEY of property badge number')
-DEFINE_SETTING('QVW', 0001, 'qvw_enabled'                           , 'number'                      , '0'                           , 'Is qlikview available {0 | 1}')
-DEFINE_SETTING('QVW', 0001, 'qvw_ajaxzfcpath'                       , 'string'                      , 'http://qv.facilitor.nl/QvAjaxZfc/', 'Root prefix to QlikView Analyzer Zero Footprint Client (must end with /)')
+DEFINE_SETTING('QVW', 0001, 'qvw_enabled'                           , 'number'                      , '0'                           , 'Number of licensed Qlikview users {0 | n}')
+DEFINE_SETTING('QVW', 0001, 'qvw_ajaxzfcpath'                       , 'string'                      , 'https://qv.facilitor.nl/QvAjaxZfc/', 'Root prefix to QlikView Analyzer Zero Footprint Client (must end with /)')
+DEFINE_SETTING('QVW', 0001, 'qvw_docfolder'                         , 'string'                      , 'cust/'                       , 'path to the QVW-docs on the server (must end with /)')
 DEFINE_SETTING('QVW', 0001, 'qv_ticket_prefix'                      , 'string'                      , ''                            , 'Ticket name prefix.')
-DEFINE_SETTING('QVW', 0000, 'qv_ticket_auth'                        , 'string'                      , 'Basic UVZfRkNMVDpx'          , 'Qlikview server authentication.') // base64("QV_FCLT:q")
-DEFINE_SETTING('RES', 0000, 'reduced_obj_info'                      , 'boolean'                     , 'true'                        , 'suppress place details of reservable object {true | false}')
+DEFINE_SETTING('QVW', 0000, 'qv_ticket_auth'                        , 'string'                      , 'Basic UVZfRkNMVDpDczJxbnRQSFdKeExNdUxjWWRwRQ==', 'Qlikview server authentication.') // base64("QV_FCLT:<secret>")
 DEFINE_SETTING('RES', 0003, 'res_descript_required'                 , 'boolean'                     , 'false'                       , 'require description field for reservation')
 DEFINE_SETTING('RES', 0003, 'res_default_alg_ruimte_key'            , 'number'                      , '-1'                          , 'Standard roomkey for catering')
-DEFINE_SETTING('RES', 0003, 'res_default_room_disc_key'             , 'number'                      , '-1'                          , 'Standard room category')
-DEFINE_SETTING('RES', 0003, 'bes_catering'                          , 'number'                      , '-1'                          , 'Button "Take/Deliver" not visible in Planboard window')
 DEFINE_SETTING('RES', 0003, 'res_block'                             , 'float'                       , '1'                           , 'Minimal reservation duration (hours)')
 DEFINE_SETTING('RES', 0003, 'res_bo_status_key'                     , 'number'                      , '5'                           , 'status of reservations to be considered as Closed')
 DEFINE_SETTING('RES', 0003, 'res_dur'                               , 'float'                       , '2'                           , 'initial reserving duration (hours)')
@@ -399,9 +428,11 @@ DEFINE_SETTING('RES', 0003, 'res_cat_t1'                            , 'float'
 DEFINE_SETTING('RES', 0003, 'res_cat_t2'                            , 'float'                       , '-1'                          , 'Catering day start (hour), -1 is take res_t2')
 DEFINE_SETTING('RES', 0001, 'res_pda_room_times'                    , 'array'                       , '30,60,120'                   , 'Proposed reservation times pda rooms')
 DEFINE_SETTING('RES', 0001, 'res_pda_deel_times'                    , 'array'                       , '15,30,60,120,240'            , 'Proposed reservation times pda objects')
-DEFINE_SETTING('RES', 0003, 'res_t1_c'                              , 'float'                       , '8'                           , 'Standard catering take/deliver time (hour)')
 DEFINE_SETTING('RES', 0003, 'res_t_middag'                          , 'float'                       , '-1'                          , 'Start time for afternoon tarif for rooms (hour), -1 is one price over the day')
 DEFINE_SETTING('RES', 0003, 'res_t_avond'                           , 'float'                       , '-1'                          , 'Start time for evening tarif for rooms (hour),   -1 is one price over the day')
+DEFINE_SETTING('RES', 0003, 'res_roompricingmethod'                 , 'number'                      , '1'                           , 'Method for room price calculation {1|2|3|n}')
+DEFINE_SETTING('RES', 0003, 'res_roompricingkorting'                , 'number'                      , '0'                           , 'Show editable korting field (0=hide, +1=FO, +2=BO, +4=catering too)')
+DEFINE_SETTING('RES', 0003, 'res_roompricingtotaal'                 , 'number'                      , '0'                           , 'Show fixed totaal field (0=hide, +1=FO, +2=BO, +4=catering too)')
 DEFINE_SETTING('RES', 0003, 'res_fo_default_user'                   , 'boolean'                     , 'true'                        , 'Res user current user a default caller, { true=user default | false=empty default }')
 DEFINE_SETTING('RES', 0003, 'res_hide_remark'                       , 'number'                      , '0'                           , 'Hide remark field in reservation screen ( 0=show | 1=hide | 2=hide only at add)')
 DEFINE_SETTING('RES', 0003, 'res_copy_to_bez'                       , 'number'                      , '3'                           , 'Duplicate properties to visitors {0=none | 1=remark | 2=flex | 3=remark and flex | &4=at all changes}')
@@ -414,8 +445,6 @@ DEFINE_SETTING('RES', 0003, 'res_fe_list_days'                      , 'number'
 DEFINE_SETTING('RES', 0003, 'res_fe_init_host_empty'                , 'boolean'                     , 'false'                       , 'Define how FE reservation host is set initially { false=same as user/caller | true=empty }')
 DEFINE_SETTING('RES', 0003, 'res_247organisation'                   , 'number'                      , '0'                           , '24/7 organisation (1= weekends are working days 0= weekends are holidays)')
 DEFINE_SETTING('RES', 0003, 'res_fe_show_plantooltip'               , 'number'                      , '0'                           , 'FE can(1) or cannot (0) see who has reserved a room in the planboard')
-DEFINE_SETTING('RES', 0003, 'res_fe_anotherroom'                    , 'number'                      , '0'                           , 'Show anotherroom button for FE in new reservations (0=no button | 1=button)')
-DEFINE_SETTING('RES', 0003, 'res_fe_nextroom'                       , 'number'                      , '0'                           , 'Show nextroom button for FE (0=no button | 1=button)')
 DEFINE_SETTING('RES', 0003, 'res_fe_discs_only_in_res'              , 'number'                      , '-1'                          , 'List of disciplines that can only be reserved in RES_ROOMS')
 DEFINE_SETTING('RES', 0003, 'res_search_require_locatie'            , 'number'                      , '0'                           , '(5i)Require selection of a location (for large users) for res_search or not (1=require | 0=dont require)')
 DEFINE_SETTING('RES', 0003, 'res_default_CVAB_mode'                 , 'number'                      , '1'                           , '0 (00)=Te kiezen&default Afhalen, 1 (01)=Te kiezen, default Bezorgen (default), 2 (10)=Vast     &default Afhalen  3 (11)=Vast,      default Bezorgen')
@@ -423,10 +452,23 @@ DEFINE_SETTING('RES', 0003, 'res_fe_allow_dirty'                    , 'number'
 DEFINE_SETTING('RES', 0003, 'res_noshow_detailed'                   , 'number'                      , '1'                           , 'No-show is a checkbox (0) or a number (1)')
 DEFINE_SETTING('RES', 0003, 'res_vcalendar_link'                    , 'number'                      , '1'                           , 'Download naar ''Outlook''')
 DEFINE_SETTING('RES', 0003, 'res_room_order'                        , 'number'                      , '0'                           , 'Planbord sorted by capacity or description (0=capacity (default) | 1=description)')
+DEFINE_SETTING('FAC', 0001, 'res_plan_max_bezet'                    , 'number'                      , '0'                           , 'Maximum planbord ''occupied'' fields. AiAi timeout prevention (future use)')
+DEFINE_SETTING('RES', 0003, 'res_xml_max_rsv_ruimte'                , 'number'                      , '60'                          , 'Maximum number of non-concise rsv_ruimte nodes in reserering node')
 DEFINE_SETTING('RES', 0009, 'res_image_path'                        , 'string'                      , NULL                          , 'path to folder storing res_ruimte pictures')
 DEFINE_SETTING('RES', 0003, 'res_with_mld'                          , 'number'                      , '0'                           , 'Reservering kan meldingen hebben {0=Nee (default) | 1=Ja}')
-DEFINE_SETTING('RES', 0003, 'res_uitleen_early'                     , 'float'                       , '-1'                          , 'Days in advance objects can be lent out { -1=unlimited }')
-DEFINE_SETTING('BEZ', 0003, 'vis_dur'                               , 'float'                       , '0'                           , 'default visitors duration')
+DEFINE_SETTING('RES', 0003, 'res_delete_ask_kosten'                 , 'number'                      , '1'                           , 'Aks for recharge costs at delete (0=never ask, 1=ask after, 2=ask only final, 3=ask only final after)')
+DEFINE_SETTING('RES', 0003, 'res_pool_early'                        , 'number'                      , '30'                          , 'Minutes for early pool-visitors')
+DEFINE_SETTING('RES', 0003, 'res_pool_late'                         , 'number'                      , '30'                          , 'Minutes for late pool-visitors')
+DEFINE_SETTING('RES', 0003, 'res_bez_desk_refresh'                  , 'number'                      , '180'                         , 'Seconds for autorefresh res_bez_desk.asp')
+DEFINE_SETTING('RES', 0003, 'res_allow_for_others'                  , 'number'                      , '1'                           , 'Can I make reservations for others ? {0=no | 1=yes}')
+DEFINE_SETTING('RES', 0003, 'res_reservering_flags'                 , 'number'                      , '0'                           , 'Number of flags fo/bo can define on reservation. Max 10')
+DEFINE_SETTING('RES', 0001, 'res_remoteurl_refuse'                  , 'string'                      , ''                            , 'Regexp, do not jump to these remote url (future use)')
+DEFINE_SETTING('RES', 0003, 'res_strict_locfilter'                  , 'boolean'                     , 'false'                       , 'Do not show locations without catering. Can be extremely slow!')
+DEFINE_SETTING('RES', 0003, 'res_cat_with_expired_room'             , 'boolean'                     , 'false'                       , 'Can catering be edited when room is expired {false | true}')
+DEFINE_SETTING('RES', 0003, 'res_allow_multi_cat'                   , 'boolean'                     , 'false'                       , 'Can catering be done on multi day reservation {false | true}')
+DEFINE_SETTING('RES', 0003, 'res_allow_undelete'                    , 'boolean'                     , 'false'                       , 'Deleted reservations can be undeleted {false | true}')
+DEFINE_SETTING('RES', 0003, 'res_appointment_action'                , 'boolean'                     , 'false'                       , 'Visitor action at reservation available')
+DEFINE_SETTING('RES', 0003, 'res_approval'                          , 'number'                      , '0'                           , 'Reserveringsgoedkeuring door aanvrager {0=Uit (default) | 1=Na afloop | 2=Na Afmelden}')
 DEFINE_SETTING('BEZ', 0003, 'vis_h'                                 , 'float'                       , '0.25'                        , 'time stepsize')
 DEFINE_SETTING('BEZ', 0003, 'vis_t1'                                , 'float'                       , '8'                           , 'visitors day start (hour)')
 DEFINE_SETTING('BEZ', 0003, 'vis_t2'                                , 'float'                       , '18'                          , 'visitors day end (hour)')
@@ -435,18 +477,19 @@ DEFINE_SETTING('BEZ', 0003, 'vis_t2_std'                            , 'float'
 DEFINE_SETTING('BEZ', 0003, 'vis_afspraak_limiet'                   , 'number'                      , '-1'                          , 'max number of days from now that visitors are allowed, in past or future {-1 = no limit}')
 DEFINE_SETTING('BEZ', 0003, 'vis_fe_afspraak_limiet'                , 'number'                      , '180'                         , 'max number of days from now that visitors are allowed by FE, in past or future {-1 = no limit}')
 DEFINE_SETTING('BEZ', 0003, 'vis_checkout_enable'                   , 'number'                      , '1'                           , 'register checkout of visitors by BO {0=no | 1=yes}')
-DEFINE_SETTING('BEZ', 0003, 'vis_badgeprint_enable'                 , 'number'                      , '1'                           , 'print {0=no | 1=print at check in | 2=show print button | 3=both 1 and 2}')
+DEFINE_SETTING('BEZ', 0003, 'vis_badgeprint_enable'                 , 'number'                      , '1'                           , 'print {0=no | 1=print at check in | 2=show print button | 4=only when bez_actie autobadge, 3=both 1 and 2 etc. | 8=location/building}')
+DEFINE_SETTING('BEZ', 0003, 'vis_autobadgeletters'                  , 'string'                      , ''                            , 'eg. ABCDEFG: Cycle through these letters daily')
+DEFINE_SETTING('BEZ', 0003, 'vis_autobadgestart'                    , 'number'                      , '1'                           , 'Daily autobadge start')
+DEFINE_SETTING('BEZ', 0003, 'vis_autobadgelength'                   , 'number'                      , '3'                           , 'Autobadge digits')
 DEFINE_SETTING('BEZ', 0003, 'vis_user_history'                      , 'number'                      , '7'                           , 'number of days in the past the FE can see his vistors')
 DEFINE_SETTING('BEZ', 0003, 'vis_expire'                            , 'number'                      , '0'                           , 'number of days in the future from which the FE can delete de visitors')
 DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_onrgoed_uses_keys'        , 'number'                      , '0'                           , 'listboxes location until room instead of only a room text field; INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
 DEFINE_SETTING('BEZ', 0003, 'vis_mandatory_alg_level'               , 'string'                      , 'L'                           , 'alg level ''L'' (location), ''G'' (building, ''V'' (floor) or ''R'' (room)')
-DEFINE_SETTING('RES', 0001, 'vis_afspraak_host_uses_keys'           , 'number'                      , '0'                           , 'the field "Bezoek voor" is a listbox (1 = true) otherwise a textfield; INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
-DEFINE_SETTING('BEZ', 0003, 'vis_park_pretime'                      , 'float'                       , '0'                           , 'extra park time before an appointment')
-DEFINE_SETTING('BEZ', 0003, 'vis_park_posttime'                     , 'float'                       , '0'                           , 'extra park time after an appointment')
+DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_host_uses_keys'           , 'number'                      , '0'                           , 'the field "Bezoek voor" is a listbox (1 = true) otherwise a textfield (0 or 2 for required). INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
+DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_tel_required'             , 'number'                      , '0'                           , 'when vis_afspraak_host_uses_keys==0, is phone required?')
 DEFINE_SETTING('BEZ', 0003, 'vis_bo_end_interval'                   , 'float'                       , '12'                          , 'standard bo end time interval')
-DEFINE_SETTING('BEZ', 0003, 'vis_bez_autoprint'                     , 'number'                      , '0'                           , 'appointment will be printed each time it is saved { 0=never | 1=only at insert | 2=always at save }')
 DEFINE_SETTING('BEZ', 0003, 'vis_bo_uses_badgenrs'                  , 'number'                      , '0'                           , 'the BO enters and uses badgenr registration { 0=no | 1=yes }')
-DEFINE_SETTING('BEZ', 0003, 'bez_sel_contactpersoon'                , 'number'                      , '1'                           , 'can I select contactpersonen')
+DEFINE_SETTING('BEZ', 0003, 'bez_sel_contactpersoon'                , 'number'                      , '1'                           , 'can I select contactpersonen { 0=no | 1=yes | 2=yes, but depending on location}')
 DEFINE_SETTING('BEZ', 0003, 'bez_sel_internpersoon'                 , 'number'                      , '0'                           , 'can I select internal persons { 0=no | 1=yes }')
 DEFINE_SETTING('BEZ', 0003, 'bez_closeafteradd'                     , 'number'                      , '0'                           , '0=not, 1=bo, 2=fo, 3=bo&fo')
 DEFINE_SETTING('BEZ', 0003, 'vis_allow_check_all'                   , 'number'                      , '1'                           , 'multiple-checkin visitors { 0=no | 1=yes }')
@@ -461,34 +504,49 @@ DEFINE_SETTING('BEZ', 0003, 'vis_future_checkin'                    , 'number'
 DEFINE_SETTING('BEZ', 0003, 'vis_default_number'                    , 'number'                      , '4'                           , 'Default number of visitors (= nr of lines to be filled out) for new appointment')
 DEFINE_SETTING('BEZ', 0003, 'vis_increment_number'                  , 'number'                      , '1'                           , 'Number of visitors (= nr of lines to be filled out) to be added with one click')
 DEFINE_SETTING('BEZ', 0003, 'bez_bo_orderby'                        , 'number'                      , '0'                           , 'Bezoekersbalie na datumtijd sorteren op { 0=Naam van de bezoeker | 1=Naam van de gastheer}')
-DEFINE_SETTING('BEZ', 0003, 'bez_uitleen_toestaan'                  , 'number'                      , '0'                           , 'Het uitlenen van objecten aan bezoekers { 0=no | 1=yes }')
+DEFINE_SETTING('BEZ', 0003, 'bez_gastheer_telfnr'                   , 'number'                      , '1'                           , 'In bezoekersbalie telfoon nummer van gastheer ook tonen { 0=Nee | 1=Ja}')
+DEFINE_SETTING('BEZ', 0003, 'bez_max_flex_on_line'                  , 'number'                      , '0'                           , 'Max aantal flexkenmerken op een bezoekersregel')
+DEFINE_SETTING('BEZ', 0003, 'bez_use_buildinghours'                 , 'number'                      , '0'                           , 'Gebouwtijden als tijdgrenzen van afspraken gebruiken {0=Nee (default), 1=Ja}')
 DEFINE_SETTING('SLE', 0003, 'cil_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Cylinders')
 DEFINE_SETTING('SLE', 0003, 'sle_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Keys')
-DEFINE_SETTING('SLE', 0000, 'ins_dummy_ruimte'                      , 'number'                      , '-1'                          , 'ALG_RUIMTE_KEY of room holding unused cylinders(??)')
 DEFINE_SETTING('SLE', 0003, 'sle_cil_koppelen'                      , 'number'                      , '1'                           , 'Sleutels en cilinders zijn door bo handmatig te koppelen {0=nee, 1=ja(default)}')
-DEFINE_SETTING('SCH', 0001, 'sch_alg_ruimte_opp_column'             , 'number'                      , '0'                           , 'Determine what ALG_RUIMTE-column to use as surface for cleaning (0=bruto | 1=alt1 | 2=alt2)')
-DEFINE_SETTING('SCH', 0001, 'sch_alt_v_locatiegeg'                  , 'string'                      , ''                            , 'Alternative view to use instead of sch_v_locatiegegevens for location cleaning data (in sch_search.asp)')
-DEFINE_SETTING('SCH', 0001, 'sch_alt_v_ruimtegeg'                   , 'string'                      , ''                            , 'Alternative view to use instead of sch_v_ruimtegegevens for room cleaning data (in sch_search.asp)')
 DEFINE_SETTING('MRK', 0003, 'mrk_message_expire_days'               , 'number'                      , '30'                          , 'Message automatically expires after ')
-DEFINE_SETTING('MRK', 0009, 'mrk_message_image_path'                , 'string'                      , NULL                          , 'Directory for Images marketplace')
+DEFINE_SETTING('MRK', 0009, 'mrk_image_path'                        , 'string'                      , NULL                          , 'path to folder storing marketplace pictures')
 DEFINE_SETTING('MSG', 0003, 'msg_reply_enabled'                     , 'number'                      , '1'                           , 'Only show answer button if msg_reply_enabled=1 (default).')
-DEFINE_SETTING('MSG', 0003, 'msg_afzender'                          , 'string'                      , ''                            , 'ReplyTo Address for messages (module berichten)')
-DEFINE_SETTING('FAC', 0001, 'help_window'                           , 'boolean'                     , '0'                           , 'New window for Help')
+DEFINE_SETTING('FAC', 0001, 'help_window'                           , 'boolean'                     , 'false'                       , 'New window for Help')
 DEFINE_SETTING('ALG', 0003, 'alg_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for ALG [1|2]')
 DEFINE_SETTING('BES', 0003, 'bes_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for BES [1|2]')
 DEFINE_SETTING('BEZ', 0003, 'bez_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for BEZ [1|2]')
 DEFINE_SETTING('CNT', 0003, 'cnt_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for CNT [1|2]')
+DEFINE_SETTING('FAC', 0003, 'faq_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for FAQ [1|2]')
 DEFINE_SETTING('FIN', 0003, 'fin_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for FIN [1|2]')
 DEFINE_SETTING('INS', 0003, 'ins_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for INS [1|2]')
 DEFINE_SETTING('MLD', 0003, 'mld_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for MLD [1|2]')
 DEFINE_SETTING('PRS', 0003, 'prs_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for PRS [1|2]')
 DEFINE_SETTING('RES', 0003, 'res_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for RES [1|2]')
 DEFINE_SETTING('FAC', 0003, 'sml_photo_size'                        , 'string'                      , 'r200x150'                    , 'Resize uploads to this maximum SML photo size. Ex: r200x150')
-DEFINE_SETTING('BES', 0003, 'bes_photo_size'                        , 'string'                      , ''                            , 'Resize uploads to this maximum BES photo size. Ex: r200x150')
-DEFINE_SETTING('MLD', 0003, 'mld_photo_size'                        , 'string'                      , ''                            , 'Resize uploads to this maximum MLD photo size. Ex: r200x150')
-DEFINE_SETTING('RES', 0003, 'res_photo_size'                        , 'string'                      , ''                            , 'Resize uploads to this maximum RES photo size. Ex: r200x150')
-DEFINE_SETTING('MRK', 0003, 'mrk_photo_size'                        , 'string'                      , ''                            , 'Resize uploads to this maximum MRK photo size. Ex: r200x150')
-DEFINE_SETTING('FAC', 0003, 'menu_photo_size'                       , 'string'                      , ''                            , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
+DEFINE_SETTING('BES', 0003, 'bes_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum BES photo size. Ex: r200x150')
+DEFINE_SETTING('INS', 0003, 'ins_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum INS photo size. Ex: r200x150')
+DEFINE_SETTING('MLD', 0003, 'mld_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum MLD photo size. Ex: r200x150')
+DEFINE_SETTING('RES', 0003, 'res_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum RES photo size. Ex: r200x150')
+DEFINE_SETTING('MRK', 0003, 'mrk_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum MRK photo size. Ex: r200x150')
+DEFINE_SETTING('MLD', 0003, 'mld_disable_continuation'              , 'boolean'                     , 'false'                       , 'Disable creating continuation calls { false | true }')
+DEFINE_SETTING('FAC', 0001, 'fac_api_key_in_url'                    , 'boolean'                     , 'false'                       , 'Is APIKEY= in url also allowed (unsafe)? Default is header X-FACILITOR-API-Key only')
+DEFINE_SETTING('FAC', 0001, 'fac_api_allow_impersonate'             , 'boolean'                     , 'false'                       , 'Allow impersoniation through X-FACILITOR-Switch-user (future use)')
+DEFINE_SETTING('FAC', 0003, 'fac_api_limit'                         , 'number'                      , '100'                         , 'Default maximum number of records to return using the REST API')
+DEFINE_SETTING('FAC', 0003, 'fac_api_limit2'                        , 'number'                      , '5000'                        , 'Ultime maximum number of records to return using the REST API')
+DEFINE_SETTING('FAC', 0003, 'prs_bulk_mail_max'                     , 'number'                      , '0'                           , 'Maximum number of persons to be mailed')
+DEFINE_SETTING('FAC', 0001, 'fac_pdf_printer'                       , 'number'                      , '0'                           , 'PDF Printer support bits (future use)')
+DEFINE_SETTING('FAC', 0003, 'progress_notification_for'             , 'boolean'                     , 'false'                       , 'Send progress notification to [false=prs_perslid_key | true=prs_perslid_key_voor]')
+DEFINE_SETTING('FAC', 0001, 'xd_secundarydomains'                   , 'json'                        , '' /* moet leeg!*/            , 'Object of related secondary domains {id: {name, url}} (for XD-module)')
+DEFINE_SETTING('FAC', 0001, 'xd_primary_bedrijfkey'                 , 'number'                      , '-1'                          , 'bedrijf_key of this Service Organisation (for XD-module)')
+DEFINE_SETTING('FAC', 0001, 'xd_add2deeplinkurl'                    , 'string'                      , '&sso=2'                      , 'parameters to be added to the XD-deeplink calls (for XD-module)')
+DEFINE_SETTING('FAC', 0003, 'fac_favicon_folder'                    , 'string'                      , 'appl/pictures/'              , 'Folder for favorite/bookmark icons')
+DEFINE_SETTING('FAC', 0003, 'excel_mode'                            , 'number'                      , '0'                           , 'Save Excel as {0=html-table | 1=as CSV (not supported)| 2=native XLS (future use)}')
+DEFINE_SETTING('FAC', 0001, 'fac_usrrap_mode'                       , 'number'                      , '0'                           , 'User reports mode {0=default, 1=advanced}')
+DEFINE_SETTING('FAC', 0001, 'fac_usrrap_safe_view_regexp'           , 'string'                      , ''                            , 'User reports safe views regexp')
+DEFINE_SETTING('MLD', 0003, 'show_perslidselector_by_mail'          , 'number'                      , '1'                           , 'Show person selector at sending mail {1=true | 0=false}')
+DEFINE_SETTING('FAC', 0001, 'basic_auth_realm'                      , 'string'                      , ''                            , 'Realm for Basic Authentication (API only) (future use)')
 
 /*
  *
@@ -500,69 +558,113 @@ DEFINE_SETTING('FAC', 0000, 'fac_logfilename',  'string', '', 'Logfile name') //
 DEFINE_SETTING('FAC', 0001, 'fac_t_startofworkday', 'float',  '8', 'Start time (hour, decimal) of a working day')
 DEFINE_SETTING('FAC', 0001, 'fac_t_endofworkday' ,  'float', '17', 'End time (hour, decimal) of a working day')
 
-DEFINE_SETTING('MLD', 0001, 'defaultstdmelding',  'number', '-1', 'The stdmeldingkey for generic calls received by e-mail')
+DEFINE_SETTING('MLD', 0001, 'defaultstdmelding',         'number', '-1', 'The stdmeldingkey for generic calls received by e-mail')
+DEFINE_SETTING('MLD', 0001, 'mld_reply_subject_regexp',  'string', '[[:alpha:]]*[[:digit:]]{3,}', 'The regexp for recognizing reply melding numbers (future use)')
 
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een melding')
-DEFINE_SETTING ('MLD', 0001, 'kto_mld_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een melding')
+DEFINE_SETTING ('KTO', 0001, 'kto_mld_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een melding')
 
 ---- Fac_Settings voor KTO-RES -- For Future Use
 
-DEFINE_SETTING ('MLD', 0001, 'kto_res_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een reservering')
-DEFINE_SETTING ('MLD', 0001, 'kto_res_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een reservering')
+DEFINE_SETTING ('KTO', 0001, 'kto_res_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een reservering')
 
 ---- Fac_Settings voor KTO-BES -- For Future Use
 
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een bestelling')
-DEFINE_SETTING ('MLD', 0001, 'kto_bes_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_vraag1','number', '-1','Kenmerk-key Vraag1 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_vraag2','number', '-1','Kenmerk-key Vraag2 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_vraag3','number', '-1','Kenmerk-key Vraag3 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_vraag4','number', '-1','Kenmerk-key Vraag4 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_vraag5','number', '-1','Kenmerk-key Vraag5 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_cijfer1','number', '-1','Kenmerk-key Cijfer1 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_cijfer2','number', '-1','Kenmerk-key Cijfer2 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_cijfer3','number', '-1','Kenmerk-key Cijfer3 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_cijfer4','number', '-1','Kenmerk-key Cijfer4 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_cijfer5','number', '-1','Kenmerk-key Cijfer5 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_toelicht1','number', '-1','Kenmerk-key Toelichting1 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_toelicht2','number', '-1','Kenmerk-key Toelichting2 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_toelicht3','number', '-1','Kenmerk-key Toelichting3 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_toelicht4','number', '-1','Kenmerk-key Toelichting4 bij KTO van een bestelling')
+DEFINE_SETTING ('KTO', 0001, 'kto_bes_toelicht5','number', '-1','Kenmerk-key Toelichting5 bij KTO van een bestelling')
 
 DEFINE_SETTING('BEZ', 0001, 'vis_parking_key' , 'number', '-1', 'Catalog key (res_discipline_key) for Parking places')
 
-// Voor conversie 5.2.1 naar 5.2.2 zitten de settings nog niet noodzakelijkerwijs lowercase in de tabel
-// daarom wat extra LOWERs op diverse plekken
+---- Fac_Settings voor PutOrders --
+
+DEFINE_SETTING('PUO', 0001, 'puo_notificationdelay'      , 'number'  , '0'                                         , 'notification delay')
+DEFINE_SETTING('PUO', 0001, 'puo_notificationinmailbody' , 'boolean' , 'false'                                     , 'false = as attachments, true = in body')
+DEFINE_SETTING('PUO', 0001, 'puo_mailbodycharset'        , 'string'  , 'unicode-1-1-utf-8'                         , 'Putorders e-mail charset')
+DEFINE_SETTING('PUO', 0001, 'puo_notificationxsl'        , 'string'  , 'xsl/cust.xsl'                              , 'stylesheet to be applied for notifications')
+DEFINE_SETTING('PUO', 0001, 'puo_system2systemxsl'       , 'string'  , 'xsl/system2system.xsl'                     , 'Stylesheet to be applied for system 2 system notifications')
+DEFINE_SETTING('PUO', 0001, 'puo_subjectprefix'          , 'string'  , 'Facilitor bestelling: Bestelopdracht nr.'  , 'Mail subject prefix for BES orders (to be followed by ordernr)')
+DEFINE_SETTING('PUO', 0001, 'puo_subjectprefixmld'       , 'string'  , 'Facilitor opdracht: Opdracht nr.'          , 'Mail subject prefix for MLD orders')
+DEFINE_SETTING('PUO', 0001, 'puo_subjectprefixcnt'       , 'string'  , 'Facilitor contract nr.'                    , 'Mail subject prefix for CNT')
+DEFINE_SETTING('PUO', 0001, 'puo_fromaddress'            , 'string'  , ''                                          , 'The fixed From address for Facilitor orders')
+DEFINE_SETTING('PUO', 0001, 'puo_replyaddress'           , 'string'  , ''                                          , 'Optional reply address if that is different from FromAddress')
+DEFINE_SETTING('PUO', 0001, 'puo_usesenderasreplyto'     , 'boolean' , 'false'                                     , 'If false the sender will be the sender, if true the sender will be FromAddress and ReplyAddress will be the sender')
+DEFINE_SETTING('PUO', 0001, 'puo_receiptto'              , 'string'  , ''                                          , 'Address to send the receipt confirmation to for ORDERS only')
+DEFINE_SETTING('PUO', 0001, 'puo_cc'                     , 'string'  , ''                                          , 'Copy email address for ORDERS only')
+DEFINE_SETTING('PUO', 0001, 'puo_bcc'                    , 'string'  , ''                                          , 'Blind copy email address for ORDERS only')
+DEFINE_SETTING('PUO', 0001, 'puo_loglevel'               , 'number'  , '1'                                         , 'Level of logging (0-3) for troubleshooting purposes')
+DEFINE_SETTING('PUO', 0001, 'puo_connectionflag'         , 'number'  , '0'                                         , 'INTERNET_FLAG_PASSIVE = 0x8000000, else = 0')
+DEFINE_SETTING('PUO', 0001, 'puo_useproxy'               , 'boolean' , 'false'                                     , 'true = Use Proxy Server (recognizes TIS FTP gateway only), false = don''t use Proxy')
+DEFINE_SETTING('PUO', 0001, 'puo_proxyserveripaddress'   , 'string'  , '127.0.0.1:8888'                            , 'Proxy Server IP Address, only used when UseProxy = true')
+DEFINE_SETTING('PUO', 0001, 'puo_logdestination'         , 'number'  , '1'                                         , 'Where to log: 1=file, 2 = database, 3=both')
+DEFINE_SETTING('PUO', 0001, 'puo_emergencymailaddress'   , 'string'  , ''                                          , 'Fallback e-mail address if database cannot be reached')
+DEFINE_SETTING('PUO', 0001, 'puo_custorders'             , 'boolean' , 'false'                                     , 'true = use customer orderqueue')
+DEFINE_SETTING('PUO', 0001, 'puo_forcemailaddress'       , 'string'  , ''                                          , 'Force this email address for test purposes eg john@example.com')
+DEFINE_SETTING('PUO', 0001, 'puo_forceorderaddress'      , 'string'  , ''                                          , 'Force this order address for test purposes eg mailto://john@example.com')
+DEFINE_SETTING('PUO', 0001, 'puo_forcefromaddress'       , 'string'  , ''                                          , 'Force the from and reply address for test purposes eg john@example.com')
+DEFINE_SETTING('PUO', 0001, 'puo_forcemobile'            , 'string'  , ''                                          , 'Force this mobile number for test purposes eg 31612345678')
+DEFINE_SETTING('PUO', 0001, 'puo_smsprotocol'            , 'string'  , 'HTTP'                                      , 'HTTP or SMTP(*)')
+DEFINE_SETTING('PUO', 0001, 'puo_smsaccount'             , 'string'  , ''                                          , 'SMS email address for protocol SMTP')
+DEFINE_SETTING('PUO', 0001, 'puo_uid'                    , 'string'  , ''                                          , 'SMS provider user id')
+DEFINE_SETTING('PUO', 0001, 'puo_pwd'                    , 'string'  , ''                                          , 'SMS provider user password')
+DEFINE_SETTING('PUO', 0001, 'puo_replyphone'             , 'string'  , 'FACILITOR'                                 , 'Include country code')
+DEFINE_SETTING('PUO', 0001, 'puo_sendusing'              , 'number'  , '1'                                         , '1=cdoSendUsingPickup (IIS SMTP Service must be installed), 2=cdoSendUsingPort')
+DEFINE_SETTING('PUO', 0001, 'puo_smtpserver'             , 'string'  , ''                                          , 'Server when sendusing cdoSendUsingPort')
+DEFINE_SETTING('PUO', 0001, 'puo_smtpserverport'         , 'number'  , '25'                                        , 'Serverport when sendusing cdoSendUsingPort')
+DEFINE_SETTING('PUO', 0001, 'puo_smtpauthenticate'       , 'number'  , '0'                                         , 'Authentication when sendusing cdoSendUsingPort 0=cdoAnonymous, 1=cdoBasic, 2=cdoNTLM')
+DEFINE_SETTING('PUO', 0001, 'puo_sendusername'           , 'string'  , ''                                          , 'Username when puo_smtpauthenticate=cdoBasic')
+DEFINE_SETTING('PUO', 0001, 'puo_sendpassword'           , 'string'  , ''                                          , 'Password when puo_smtpauthenticate=cdoBasic')
+DEFINE_SETTING('PUO', 0001, 'puo_flags'                  , 'number'  , '255'                                       , '+1=send notifications, +2=send orders, +4=all orders Immediate')
+DEFINE_SETTING('PUO', 0001, 'puo_order_flexfiles'        , 'number'  , '0'                                         , 'Include flexfiles with sent orders')
+DEFINE_SETTING('PUO', 0001, 'bdradrfiles_path'           , 'string'  , NULL                                        , 'Technische adressen bijlagen folder')
+DEFINE_SETTING('PUO', 0001, 'puo_lcl_friendly_mailto'    , 'string'  , 'Opdracht per e-mail gestuurd naar {0}'     , 'Friendly text for mail tracking')
+DEFINE_SETTING('PUO', 0001, 'puo_lcl_friendly_http'      , 'string'  , 'Opdracht per SOAP gestuurd naar {0}'       , 'Friendly text for http tracking')
+DEFINE_SETTING('PUO', 0001, 'puo_lcl_friendly_ftp'       , 'string'  , 'Opdracht per ftp gestuurd naar {0}'  , 'Friendly text for ftp tracking, also port {1} folder {2}')
+DEFINE_SETTING('PUO', 0001, 'puo_lcl_friendly_file'      , 'string'  , 'Opdracht naar bestand in {0} gestuurd'     , 'Friendly text for file tracking')
 
 // Vervallen settings opruimen
 DELETE FROM fac_setting
-      WHERE LOWER(fac_setting_name) NOT IN
-              (SELECT LOWER(fac_setting_name) FROM tmp_set);
+      WHERE fac_setting_name NOT IN
+              (SELECT fac_setting_name FROM tmp_set);
 COMMIT;
 
 // Gewijzigde settings bijwerken
@@ -581,8 +683,8 @@ UPDATE fac_setting fs
                   fac_setting_description,
                   fac_setting_comment
              FROM tmp_set
-            WHERE LOWER(fs.fac_setting_name) = LOWER(tmp_set.fac_setting_name))
- WHERE LOWER(fs.fac_setting_name) IN (SELECT LOWER(fac_setting_name) FROM tmp_set);
+            WHERE fs.fac_setting_name = tmp_set.fac_setting_name)
+ WHERE fs.fac_setting_name IN (SELECT fac_setting_name FROM tmp_set);
 COMMIT;
 
 // Nieuwe settings toevoegen
@@ -601,12 +703,13 @@ INSERT INTO fac_setting (fac_setting_module,
                          fac_setting_description,
                          fac_setting_comment
      FROM tmp_set
-    WHERE LOWER(tmp_set.fac_setting_name) NOT IN
-                (SELECT LOWER(fac_setting_name)
+    WHERE tmp_set.fac_setting_name NOT IN
+                (SELECT fac_setting_name
                    FROM fac_setting);
 COMMIT;
 
 -- Bij elke klant anders, moet dus in pvalue
+-- Alleen effectief bij de CREA
 UPDATE fac_setting
    SET fac_setting_pvalue = 'temp/log_' || USER || '_' || DBMS_RANDOM.string ('a', 16)
  WHERE fac_setting_pvalue IS NULL
@@ -617,4 +720,4 @@ COMMIT;
 TRUNCATE TABLE tmp_set;
 DROP TABLE tmp_set PURGE;
 
-REGISTERONCE('$Workfile: FAC_SET.SRC $','$Revision$')
+REGISTERONCE('$Id$')

FAC/FAC_TAB.SRC

@@ -133,6 +133,9 @@ CREATE_TABLE(fac_groep, 0)
     fac_groep_upper
         VARCHAR2(30),
 --        CONSTRAINT fac_c_fac_groep_upper CHECK(fac_groep_upper IS NOT NULL),
+    fac_groep_collega
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
     fac_groep_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -193,10 +196,6 @@ CREATE_TABLE(fac_usrtab, 0)
         NOT_NULL(fac_usrtab_object, fac_c_fac_usrtab_object),
     fac_usrtab_omschrijving
         VARCHAR2(30),
-    fac_usrtab_viewdef
-        VARCHAR2(512),
-    fac_usrtab_view
-        VARCHAR2(1),
     fac_usrtab_parentkey  /* verwijzing naar welke tabel een eventuele data_parentkey verwijst */
         NUMBER(10)
         CONSTRAINT fac_r_usrtab_parentkey REFERENCES fac_usrtab(fac_usrtab_key),
@@ -204,6 +203,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)
 );
 
@@ -260,19 +264,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,
@@ -280,18 +276,79 @@ 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_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_functie_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key)
+// 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_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'))
 );
 
 CREATE_TABLE(fac_usrgraph, 0)
@@ -324,7 +381,9 @@ CREATE_TABLE(fac_usrgraph, 0)
     fac_usrgraph_orderby
         VARCHAR(60),
     fac_usrgraph_maxrows
-        NUMBER(10)
+        NUMBER(10),
+    fac_usrgraph_options  // JSON
+        VARCHAR2(4000)
 );
 
 
@@ -457,6 +516,8 @@ CREATE GLOBAL TEMPORARY TABLE fac_xml
  * fac_srtnotificatie_xmlnode: de xml-tagnaam in facilitor XML om de gegevens voor fac_notificatie_refkey te kunnen vinden.
  * fac_srtnotificatie_groep: 0 of 1 om aan te geven dat record met gelijke srtnotificatie_key en gelijke receiver
  *  bij elkaar in 1 bericht mogen.
+ * fac_srtnotificatie_purgemode: ongebruikt
+ * fac_srtnotificatie_delay: aantal seconden dat(minimaal, na insert) gewacht moet worden alvorens deze notificatie te verzenden
  */
 
 CREATE_TABLE(fac_srtnotificatie, 0)
@@ -478,7 +539,9 @@ CREATE_TABLE(fac_srtnotificatie, 0)
   fac_srtnotificatie_url
     VARCHAR2(255),
   fac_srtnotificatie_groep
-    VARCHAR2(1)
+    VARCHAR2(1),
+  fac_srtnotificatie_delay
+    NUMBER(4)
 );
 
 /*
@@ -529,7 +592,9 @@ CREATE_TABLE(fac_notificatie, 0)
   fac_notificatie_lang
     VARCHAR2(3),
   fac_notificatie_systeemadres
-    VARCHAR2(200)
+    VARCHAR2(200),
+  fac_notificatie_attachments   /* comma-separated filenames */
+    VARCHAR2(4000)
 );
 /* Welke notificatiejobs bestaan er
  * Vermelding hierin veroorzaakt periodieke notificaties
@@ -582,7 +647,9 @@ CREATE_TABLE(fac_import_app, 0)
   fac_import_app_folder
     VARCHAR(320),
   fac_import_app_files
-    VARCHAR(32)
+    VARCHAR(32),
+  fac_import_app_action
+    VARCHAR(320) DEFAULT 'ORACLE' NOT NULL
 );
 
 /* Uitgevoerde importjobs */
@@ -601,12 +668,16 @@ CREATE_TABLE(fac_import, 0)
      VARCHAR2 (256),
   fac_import_versie
      VARCHAR2(30)
+// Note: this column is defined in PRS_TAB.SRC
+//  prs_perslid_key
+//     NUMBER(10)
+//     CONSTRAINT fac_r_prs_perslid_key5 REFERENCES prs_perslid(prs_perslid_key)
 );
 
 CREATE_TABLE(imp_log, 0)
 (
-  imp_log_key              NUMBER(10) PRIMARY KEY,
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  imp_log_key              NUMBER(10) CONSTRAINT imp_k_imp_log_key PRIMARY KEY,
+  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)
@@ -615,6 +686,44 @@ CREATE_TABLE(imp_log, 0)
 , CONSTRAINT fac_c_imp_log_appl CHECK(fac_import_key IS NOT NULL OR imp_log_applicatie IS NOT NULL)
 );
 
+CREATE_TABLE(fac_export_app, 0)
+(
+  fac_export_app_key
+    NUMBER(10)
+    PRIMARY KEY,
+  fac_export_app_code
+    VARCHAR2(20),
+  fac_export_app_oms
+    VARCHAR2(60),
+  fac_functie_key
+    NUMBER(10)
+    NOT_NULL(fac_functie_key, fac_c_fac_functie_key3)
+    CONSTRAINT fac_r_fac_functie_key3 REFERENCES fac_functie(fac_functie_key),
+  fac_export_app_charset
+    VARCHAR(32),
+  fac_export_app_folder
+    VARCHAR(320),
+  fac_export_app_prefix
+    VARCHAR2(4),
+  fac_export_app_file_prefix
+    VARCHAR2(60),
+  fac_export_app_postfix
+    VARCHAR2(20),
+  fac_export_app_log_postfix
+    VARCHAR2(4),
+  fac_export_app_flags
+    NUMBER(10) DEFAULT 0, -- Documentatie in APPL\EXP\exp_shared.js
+  fac_export_app_xsl
+    VARCHAR2(256),
+  fac_export_app_timestamp
+    VARCHAR2(20),
+  fac_export_app_datum
+    DATE,
+  fac_export_app_aanmaak
+    DATE
+    DEFAULT SYSDATE
+);
+
 -- Might still need some changes
 CREATE_TABLE(fac_activiteit, 0)
 (
@@ -655,7 +764,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)
 );
@@ -663,7 +772,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,
@@ -677,10 +786,11 @@ CREATE_TABLE(fac_imp_catalogus, 0)
   ins_srtdeel_btw            NUMBER(3),
   ins_srtdeel_vervaldatum    DATE,
   ins_srtdeel_inkprijs       NUMBER(8,2),
-  ins_srtdeel_minimum		 NUMBER(6),
+  ins_srtdeel_minimum        NUMBER(6),
   bes_staffeltabel_key       NUMBER(10),
   ins_srtdeel_wijzigdagen    NUMBER(3),
-  ins_srtdeel_annuleerdagen  NUMBER(3)
+  ins_srtdeel_annuleerdagen  NUMBER(3),
+  ins_srtdeel_opmerking      VARCHAR2(2000)
 );
 
 // Facilitor Import (FIP) tabellen
@@ -689,20 +799,30 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
     alg_regio_omschrijving         VARCHAR2(30)
   , alg_district_omschrijving      VARCHAR2(30)
   , alg_locatie_code               VARCHAR2(10)
-  , alg_locatie_omschrijving       VARCHAR2(30)
+  , alg_locatie_omschrijving       VARCHAR2(60)
   , alg_gebouw_code                VARCHAR2(12)
   , alg_gebouw_naam                VARCHAR2(30)
   , 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)
+  , alg_kenmerkwaarde1             VARCHAR2(255)
+  , alg_kenmerkwaarde2             VARCHAR2(255)
+  , alg_kenmerkwaarde3             VARCHAR2(255)
+  , alg_kenmerkwaarde4             VARCHAR2(255)
+  , alg_kenmerkwaarde5             VARCHAR2(255)
+  , alg_kenmerkwaarde6             VARCHAR2(255)
+  , alg_kenmerkwaarde7             VARCHAR2(255)
+  , alg_kenmerkwaarde8             VARCHAR2(255)
+  , alg_kenmerkwaarde9             VARCHAR2(255)
+  , alg_kenmerkwaarde10            VARCHAR2(255)
 );
 
 CREATE_TABLE(fac_imp_mld, 0)
@@ -718,12 +838,22 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_stdmelding_kostensoort      VARCHAR2(60)
   , mld_stdmelding_urgentie         VARCHAR2(6)
   , mld_stdmelding_uitvoertijd      NUMBER(3)
-  , mld_stdmelding_streeftijd       NUMBER(3)
   , mld_discipline_directklaar      NUMBER(1)
   , mld_stdmelding_uitvoertijd1     NUMBER(3)
   , mld_stdmelding_uitvoertijd2     NUMBER(3)
   , mld_stdmelding_uitvoertijd4     NUMBER(3)
   , prs_dienst                      VARCHAR2(60)
+  , mld_stdmelding_notfrontend      VARCHAR2(1)
+  , alg_onrgoed_niveau              VARCHAR2(1)
+  , 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)
 );
 
 CREATE_TABLE(fac_imp_onrgoed2, 0)
@@ -731,7 +861,7 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
     alg_locatie_code               VARCHAR2(10)
   , alg_gebouw_code                VARCHAR2(12)
   , alg_verdieping_volgnr          NUMBER(3,0)
-  , alg_srtruimte_omschrijving     VARCHAR2(30)
+  , alg_srtruimte_omschrijving     VARCHAR2(50)
   , alg_ruimte_nr                  VARCHAR2(10)
   , alg_ruimte_omschrijving        VARCHAR2(30)
   , alg_ruimte_bruto_vloeropp      NUMBER(8,2)
@@ -742,38 +872,74 @@ 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)  -- 15 zou genoeg zijn, wat speelruimte
+  , prs_ruimteafdeling_bezetting   NUMBER(8,5)
+  , alg_kenmerkwaarde1             VARCHAR2(255)
+  , alg_kenmerkwaarde2             VARCHAR2(255)
+  , alg_kenmerkwaarde3             VARCHAR2(255)
+  , alg_kenmerkwaarde4             VARCHAR2(255)
+  , alg_kenmerkwaarde5             VARCHAR2(255)
 );
 
 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_perslid, 0)
 (
-   ALG_LOCATIE_CODE                VARCHAR2(10)
-  ,ALG_GEBOUW_CODE                 VARCHAR2(12)
-  ,ALG_VERDIEPING_VOLGNR           NUMBER(3,0)
-  ,ALG_RUIMTE_NR                   VARCHAR2(10)
-  ,PRS_WERKPLEK_VOLGNR             NUMBER (3)
-  ,PRS_WERKPLEK_OMSCHRIJVING       VARCHAR2 (30)
-  ,PRS_AFDELING_NAAM               VARCHAR2 (10)
-  ,PRS_PERSLID_NAAM                VARCHAR2 (60)
-  ,PRS_PERSLID_TUSSENVOEGSEL       VARCHAR2 (15)
-  ,PRS_PERSLID_VOORLETTERS         VARCHAR2 (10)
-  ,PRS_PERSLID_VOORNAAM            VARCHAR2 (30)
-  ,PRS_PERSLID_TITEL               VARCHAR2 (15)
-  ,PRS_PERSLID_TELEFOONNR          VARCHAR2 (15)
-  ,PRS_PERSLID_MOBIEL              VARCHAR2 (15)
-  ,PRS_PERSLID_EMAIL               VARCHAR2 (50)
-  ,PRS_SRTPERSLID_OMSCHRIJVING     VARCHAR2 (60)
-  ,PRS_PERSLID_NR                  VARCHAR2 (16)
-  ,PRS_PERSLID_OSLOGIN             VARCHAR2 (30)
-  ,PRS_PERSLID_WACHTWOORD          VARCHAR2 (30)
+   alg_locatie_code                VARCHAR2(10)
+  ,alg_gebouw_code                 VARCHAR2(12)
+  ,alg_verdieping_volgnr           NUMBER(3,0)
+  ,alg_ruimte_nr                   VARCHAR2(10)
+  ,prs_werkplek_volgnr             NUMBER (3)
+  ,prs_werkplek_omschrijving       VARCHAR2 (30)
+  ,prs_afdeling_naam               VARCHAR2 (15)
+  ,prs_perslid_naam                VARCHAR2 (60)
+  ,prs_perslid_tussenvoegsel       VARCHAR2 (15)
+  ,prs_perslid_voorletters         VARCHAR2 (15)
+  ,prs_perslid_voornaam            VARCHAR2 (30)
+  ,prs_perslid_titel               VARCHAR2 (15)
+  ,prs_perslid_telefoonnr          VARCHAR2 (15)
+  ,prs_perslid_mobiel              VARCHAR2 (15)
+  ,prs_perslid_email               VARCHAR2 (200)
+  ,prs_srtperslid_omschrijving     VARCHAR2 (60)
+  ,prs_perslid_nr                  VARCHAR2 (16)
+  ,prs_perslid_oslogin             VARCHAR2 (30)
+  ,prs_perslid_wachtwoord          VARCHAR2 (30)
+  ,prs_perslid_partner_naam        VARCHAR2(60)
+  ,prs_perslid_partner_tussenv     VARCHAR2(15)
+  ,prs_perslid_naamgebruik_code    NUMBER(1) DEFAULT 0
+  ,prs_perslid_geslacht            NUMBER(1)
+  ,prs_perslid_dienstverband       NUMBER(3)
+  ,prs_kenmerk1                    VARCHAR2(255)
+  ,prs_kenmerk2                    VARCHAR2(255)
+  ,prs_kenmerk3                    VARCHAR2(255)
+  ,prs_kenmerk4                    VARCHAR2(255)
+  ,prs_kenmerk5                    VARCHAR2(255)
+  ,prs_kenmerk6                    VARCHAR2(255)
+  ,prs_kenmerk7                    VARCHAR2(255)
+  ,prs_kenmerk8                    VARCHAR2(255)
+  ,prs_kenmerk9                    VARCHAR2(255)
+  ,prs_kenmerk10                   VARCHAR2(255)
+  ,prs_kenmerk11                   VARCHAR2(255)
+  ,prs_kenmerk12                   VARCHAR2(255)
+  ,prs_kenmerk13                   VARCHAR2(255)
+  ,prs_kenmerk14                   VARCHAR2(255)
+  ,prs_kenmerk15                   VARCHAR2(255)
+  ,prs_kenmerk16                   VARCHAR2(255)
+  ,prs_kenmerk17                   VARCHAR2(255)
+  ,prs_kenmerk18                   VARCHAR2(255)
+  ,prs_kenmerk19                   VARCHAR2(255)
+  ,prs_kenmerk20                   VARCHAR2(255)
+  ,fac_import_key                  NUMBER(10)       /* for internal processing */
+  ,fac_imp_file_index              NUMBER(10)       /* for internal processing */
+  ,prs_perslid_key                 NUMBER(10)       /* for internal processing */
+  ,prs_perslid_apikey              VARCHAR2(128)    /* for XD-syncing */
 );
 
 CREATE_TABLE(fac_imp_ins, 0)
@@ -784,6 +950,7 @@ CREATE_TABLE(fac_imp_ins, 0)
   ,ins_srtdeel_code            VARCHAR2 (10)
   ,ins_srtdeel_omschrijving    VARCHAR2 (100)
   ,ins_deel_omschrijving       VARCHAR2 (60)
+  ,ins_deel_opmerking          VARCHAR2 (320)
   ,reserveerbaar               NUMBER (1)
   ,res_deel_eenheid            VARCHAR2 (10)
   ,res_deel_prijs              NUMBER (7,2)
@@ -801,6 +968,21 @@ CREATE_TABLE(fac_imp_ins, 0)
   ,ins_kenmerkwaarde3          VARCHAR2(255)
   ,ins_kenmerkwaarde4          VARCHAR2(255)
   ,ins_kenmerkwaarde5          VARCHAR2(255)
+  ,ins_kenmerkwaarde6          VARCHAR2 (255)
+  ,ins_kenmerkwaarde7          VARCHAR2 (255)
+  ,ins_kenmerkwaarde8          VARCHAR2 (255)
+  ,ins_kenmerkwaarde9          VARCHAR2 (255)
+  ,ins_kenmerkwaarde10         VARCHAR2 (255)
+  ,ins_kenmerkwaarde11         VARCHAR2 (255)
+  ,ins_kenmerkwaarde12         VARCHAR2 (255)
+  ,ins_kenmerkwaarde13         VARCHAR2 (255)
+  ,ins_kenmerkwaarde14         VARCHAR2 (255)
+  ,ins_kenmerkwaarde15         VARCHAR2 (255)
+  ,ins_kenmerkwaarde16         VARCHAR2 (255)
+  ,ins_kenmerkwaarde17         VARCHAR2 (255)
+  ,ins_kenmerkwaarde18         VARCHAR2 (255)
+  ,ins_kenmerkwaarde19         VARCHAR2 (255)
+  ,ins_kenmerkwaarde20         VARCHAR2 (255)
 );
 
 CREATE_TABLE(fac_imp_sle, 0)
@@ -826,11 +1008,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),
@@ -861,7 +1043,8 @@ CREATE_TABLE(fac_imp_res_artikel_sync, 0)
   res_artikel_groep            VARCHAR2(10),
   res_artikel_volgnummer       NUMBER(3),
   res_artikel_ingangsdatum     DATE,
-  res_artikel_vervaldatum      DATE
+  res_artikel_vervaldatum      DATE,
+  res_artikel_minimum          NUMBER(3)
 );
 
 CREATE_TABLE(fac_imp_fac_groep, 0)
@@ -884,17 +1067,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),
@@ -916,9 +1099,27 @@ CREATE TABLE fac_imp_ext_bedrijf
    alg_gebouw_code VARCHAR2 (12),
    prs_bedrijf_overig1 VARCHAR2 (256),
    prs_bedrijf_overig2 VARCHAR2 (256),
-   prs_bedrijf_overig3 VARCHAR2 (256)
+   prs_bedrijf_overig3 VARCHAR2 (256),
+   prs_bedrijf_xsl VARCHAR2(256),
+   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
@@ -977,7 +1178,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
@@ -1098,7 +1299,6 @@ CREATE_TABLE(fac_nieuws, 0)
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
 );
 
-/* Eerste opzet, moet vast uitgebreider */
 CREATE_TABLE(fac_faq, 0)
 (
    fac_faq_key NUMBER (10) PRIMARY KEY,
@@ -1108,16 +1308,12 @@ CREATE_TABLE(fac_faq, 0)
    fac_faq_url VARCHAR2 (250 CHAR),
    fac_faq_level NUMBER(1),
    fac_faq_rank NUMBER,
-// Note: this column is defined in INS_TAB.SRC
-//   ins_discipline_key NUMBER(10
-//   CONSTRAINT fac_r_mld_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key)
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
-// Note: this column is defined in MLD_TAB.SRC
-//   mld_stdmelding_key NUMBER(10)
-//   CONSTRAINT fac_r_mld_stdmelding_key1 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE,
-   fac_faq_datum DATE DEFAULT SYSDATE,
-   fac_faq_lang VARCHAR2(3)
+   fac_faq_datum DATE,
+   fac_faq_lang VARCHAR2(3),
+   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 */
@@ -1143,7 +1339,7 @@ CREATE_TABLE(fac_locale, 0) /* Alle feitelijk vertaalde teksten */
    fac_locale_kolomkeyval NUMBER(10),
    fac_locale_lang VARCHAR2(3) NOT NULL,
    fac_locale_tekst VARCHAR2(300 CHAR),
-   CONSTRAINT fac_u_fac_locale UNIQUE(fac_localeitems_key, fac_locale_dialect_key, fac_locale_kolomnaam, fac_locale_kolomkeyval, fac_locale_lang),
+   CONSTRAINT fac_u_fac_locale UNIQUE(fac_locale_dialect_key, fac_locale_lang, fac_localeitems_key, fac_locale_kolomnaam, fac_locale_kolomkeyval),
    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))
 );
@@ -1210,10 +1406,18 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
    kenmerk3             VARCHAR2(250),
    kenmerk4             VARCHAR2(250),
    kenmerk5             VARCHAR2(250),
+   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),
    fac_imp_file_index   NUMBER(10),
    fin_factuur_key      NUMBER(10),           -- geen importkolom, temp
-   fin_factuurregel_key NUMBER(10)            -- geen importkolom, temp
+   fin_factuurregel_key NUMBER(10),           -- geen importkolom, temp
+   boekmaand            VARCHAR2(7)
 );
 
 CREATE_TABLE(fac_imp_menu, 0)
@@ -1252,6 +1456,7 @@ CREATE_TABLE(fac_imp_flex, 0)
    srtkenmerk_dimensie          VARCHAR2(255),
    kenmerk_niveau               VARCHAR2(255),
    kenmerk_verplicht            VARCHAR2(255),
+   kenmerk_groep                VARCHAR2(255),
    kenmerk_volgnummer           VARCHAR2(255),
    kenmerk_default              VARCHAR2(4000),
    kenmerk_type                 VARCHAR2(255),
@@ -1268,16 +1473,19 @@ CREATE_TABLE(fac_imp_flex, 0)
    mld_typeopdr                 VARCHAR2(255),
    bes_discipline               VARCHAR2(255),
    bes_srtgroep                 VARCHAR2(255),
-   bes_srtdeel                  VARCHAR2(255)
+   bes_srtdeel                  VARCHAR2(255),
+   cnt_discipline               VARCHAR2(255)
 );
 
 
 CREATE_TABLE(fac_session, 0)
 (
-   fac_session_sessionid    VARCHAR(32),    -- HEX-codering 32 byte random
-   fac_session_data         VARCHAR(256),   -- De oorspronkelijke URL
-   fac_session_expire       DATE DEFAULT SYSDATE+(1/24),
-   fac_session_aanmaak      DATE DEFAULT SYSDATE
+   fac_session_sessionid_hash VARCHAR(128),
+   fac_session_data           VARCHAR(256),   -- Diverse data
+   fac_session_expire         DATE DEFAULT SYSDATE+(1/24),
+   fac_session_aanmaak        DATE DEFAULT SYSDATE,
+   fac_session_ip             VARCHAR(64),    -- Ruimte voor ipv6
+   fac_session_useragent      VARCHAR(256)
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
@@ -1305,6 +1513,8 @@ CREATE_TABLE(fac_kenmerkdomein, 0)
    fac_kenmerkdomein_kolomtxt
       VARCHAR2(30)
       NOT_NULL(fac_kenmerkdomein_kolomtxt, fac_c_refsrtkenm_kolomtxt),
+   fac_kenmerkdomein_verval
+      VARCHAR2(30),
    fac_usrtab_key
       NUMBER(10)
       CONSTRAINT fac_r_usrtab_key2 REFERENCES fac_usrtab(fac_usrtab_key),
@@ -1363,10 +1573,16 @@ CREATE_TABLE(fac_bookmark, 0)
         VARCHAR(1000),
    fac_bookmark_unauth_url
         VARCHAR(1000),
+   fac_bookmark_refreshtime
+        NUMBER(10),
    fac_bookmark_xmlnode
         VARCHAR2(60),
+   fac_bookmark_refkey
+        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
@@ -1407,20 +1623,97 @@ CREATE_TABLE(fac_imp_usrdata, 0)
    fac_usrdata_vervaldatum DATE
 );
 
+-- FSN#25766
+CREATE_TABLE(fac_imp_inspectie, 0) (
+   ins_discipline_omschrijving  VARCHAR2 (30),
+   ins_srtgroep_omschrijving    VARCHAR2 (60),
+   ins_srtdeel_code             VARCHAR2 (10),
+   ins_srtcontrole_omschrijving VARCHAR2 (60),
+   ins_srtcontrole_info         VARCHAR2 (320),
+   ins_srtcontrole_periode      VARCHAR2 (7),
+   ins_srtcontrole_mode					VARCHAR2 (1),
+   ins_srtcontrole_eenheid			VARCHAR2 (1),
+   ins_srtcontrole_bits					VARCHAR2 (4)
+);
+
+-- AAIT#25547
+CREATE_TABLE(fac_imp_faq, 0) (
+   fac_faq_question             VARCHAR2 (4000),
+   fac_faq_answer               VARCHAR2 (4000),
+   fac_faq_level                VARCHAR2 (30),
+   ins_discipline_key           NUMBER(10),
+   mld_stdmelding_key           NUMBER(10),
+   fac_faq_source               VARCHAR2 (60),
+   fac_faq_url                  VARCHAR2 (250),
+   fac_faq_datum                DATE,
+   fac_faq_lang                 VARCHAR2 (3),
+   fac_faq_hint                 VARCHAR2 (1000)
+);
+
+-- FSN#25952: Generieke contractenimport
+CREATE_TABLE(fac_imp_cnt, 0)
+(
+   nummer_intern      VARCHAR2 (30),
+   nummer_extern      VARCHAR2 (30),
+   cnt_soort          VARCHAR2 (30),
+   beschrijving       VARCHAR2 (50),
+   mantel_nr          VARCHAR2 (30),
+   omschrijving       VARCHAR2 (1000),
+   afdeling           VARCHAR2 (10),
+   perslid_eig        VARCHAR2 (30),
+   perslid_beh        VARCHAR2 (30),
+   opmerking          VARCHAR2 (1000),
+   datum_ingang       DATE,
+   datum_eind         DATE,
+   datum_opzeg        DATE,
+   datum_rappel       DATE,
+   bedrijf_naam       VARCHAR2 (60),
+   contact_naam       VARCHAR2 (30),
+   kpn_code           VARCHAR2 (30),
+   bedrag             NUMBER (11,2),
+   bedrag_termijn     NUMBER (11,2),
+   uurtarief          NUMBER (6,2),
+   korting            NUMBER (4,2),
+   gebouwcode         VARCHAR2 (12),
+   verlengen          VARCHAR2 (1),
+   versie             VARCHAR2(10),
+   dienst             VARCHAR2(60),
+   flex1              VARCHAR2 (255),
+   flex2              VARCHAR2 (255),
+   flex3              VARCHAR2 (255),
+   flex4              VARCHAR2 (255),
+   flex5              VARCHAR2 (255),
+   flex6              VARCHAR2 (255),
+   flex7              VARCHAR2 (255),
+   flex8              VARCHAR2 (255),
+   flex9              VARCHAR2 (255),
+   flex10             VARCHAR2 (255),
+   flex11             VARCHAR2 (255),
+   flex12             VARCHAR2 (255),
+   flex13             VARCHAR2 (255),
+   flex14             VARCHAR2 (255),
+   flex15             VARCHAR2 (255),
+   flex16             VARCHAR2 (255),
+   flex17             VARCHAR2 (255),
+   flex18             VARCHAR2 (255),
+   flex19             VARCHAR2 (255),
+   flex20             VARCHAR2 (255),
+   flex21             VARCHAR2 (255),
+   flex22             VARCHAR2 (255),
+   flex23             VARCHAR2 (255),
+   flex24             VARCHAR2 (255),
+   flex25             VARCHAR2 (255)
+);
+
+
+
 --FSN#23201
 CREATE_TABLE(fac_api, 0)
 (
-   fac_api_key              NUMBER(10)
-                            CONSTRAINT fac_k_fac_api_key PRIMARY KEY,
+   fac_api_key              NUMBER(10) CONSTRAINT fac_k_fac_api_key PRIMARY KEY,
    fac_api_name             VARCHAR2 (32) NOT NULL,
-   fac_api_apikey           VARCHAR2 (32) NOT NULL,
    fac_api_omschrijving     VARCHAR2(60),
-   fac_api_no_session       NUMBER (1)
-                            CONSTRAINT fac_c_fac_api_no_session
-                                 CHECK(fac_api_no_session IS NULL OR fac_api_no_session = 1),
    fac_api_filepath         VARCHAR2(64) NOT NULL,
-   -- voorheen os_login:
-   prs_perslid_key          NUMBER (10),
    fac_api_loglevel         NUMBER DEFAULT 0,
    fac_usrrap_key           NUMBER (10),
    fac_api_viewmapping_json VARCHAR2 (4000),
@@ -1429,4 +1722,85 @@ CREATE_TABLE(fac_api, 0)
    fac_api_options_json     VARCHAR2 (4000)
 );
 
-REGISTERONCE('$Workfile: FAC_TAB.SRC $','$Revision$')
+-- AAIT#25547
+CREATE_TABLE(faq_kenmerk,0)
+(
+   faq_kenmerk_key          NUMBER(10) CONSTRAINT faq_k_faq_kenmerk_key PRIMARY KEY,
+   faq_kenmerk_volgnr       NUMBER(3) NOT NULL,
+   faq_kenmerk_omschrijving VARCHAR2(50),
+   faq_kenmerk_upper        VARCHAR2(50),
+   faq_kenmerk_hint         VARCHAR2(255),
+   faq_kenmerk_default      VARCHAR2(4000),
+   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')),
+   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) DEFAULT 0 NOT NULL,
+   faq_kenmerk_lengte       NUMBER(4),
+   faq_kenmerk_dec          NUMBER(2),
+   faq_kenmerk_nmin         NUMBER(10),
+   faq_kenmerk_nmax         NUMBER(10),
+   fac_kenmerkdomein_key    NUMBER(10)
+                            CONSTRAINT faq_r_kenmerkdomein_key1 REFERENCES fac_kenmerkdomein(fac_kenmerkdomein_key),
+   faq_kenmerk_aanmaak      DATE
+                            DEFAULT SYSDATE
+                            NOT_NULL(faq_kenmerk_aanmaak, faq_c_faq_kenmerk_aanmaak),
+   faq_kenmerk_verwijder    DATE
+                            DEFAULT NULLDATUM
+);
+
+CREATE_TABLE(faq_kenmerkwaarde, 0)
+(
+   faq_kenmerkwaarde_key       NUMBER(10)
+                               CONSTRAINT faq_k_faq_kenmerkwaarde_key PRIMARY KEY,
+   fac_faq_key                 NUMBER(10)
+                               CONSTRAINT faq_r_faq_key REFERENCES fac_faq(fac_faq_key)  ON DELETE CASCADE,
+   faq_kenmerk_key             NUMBER(10),
+   faq_kenmerkwaarde_waarde    VARCHAR2(4000),
+   faq_kenmerkwaarde_aanmaak   DATE
+                               DEFAULT SYSDATE
+                               NOT_NULL(faq_kenmerkwaarde_aanmaak, faq_c_faq_kenmerkwaarde_aanm),
+   faq_kenmerkwaarde_verwijder DATE
+                               DEFAULT NULLDATUM,
+   CONSTRAINT faq_u_faq_kenmerkwaarde_key UNIQUE(fac_faq_key, faq_kenmerk_key, faq_kenmerkwaarde_verwijder)
+);
+
+CREATE_TABLE(fac_qvw_ticket, 0)
+(
+    fac_qvw_ticket_userid   VARCHAR(32), -- XXXX01 t/m XXXX02 of AAXX_martin.leneman
+    fac_qvw_ticket_flags    NUMBER(3) DEFAULT 0  NOT NULL, -- 0=shared, 1=reserved
+    fac_qvw_ticket_aanmaak  DATE DEFAULT SYSDATE,
+    fac_qvw_ticket_uitgifte DATE DEFAULT SYSDATE
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key         NUMBER(10)
+//        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
+);
+
+REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -53,6 +53,10 @@ BEGIN
 
   -- Determine whether we really need to store these values
     /* see web_ini for meaning of this bitwise value */
+
+  -- Note: the ASP-code does all the checking and fixing
+  -- This is not very necessary anymore, and does not really help
+  -- However: if it ain't broke, we don't fix it.
   SELECT fac_functie_min_level
     INTO funclevel
     FROM fac_functie
@@ -129,8 +133,14 @@ BEGIN
      OR :new.fac_gebruiker_alg_level_write <> 9)
         THEN keepit:=1;
   END IF;
-  IF keepit=0 THEN
-        Dummy :=  Fac_P_Fac_Save_Restore.SavePrimaryKey('FAC_GROEPRECHTEN',:new.fac_groeprechten_key);
+  -- Slotbetoog: als deze autorisatie niet minsten iets te lezen heeft, mag-ie weg.
+  -- Omdat de ASP dit voorkomt, is dit een error als vangnet
+  IF keepit = 1 AND (:new.fac_gebruiker_prs_level_read = 9 OR :new.fac_gebruiker_alg_level_read = 9)
+  THEN
+      raise_application_error (-20000, 'FAC_MGG1 this is insufficient authorisation for this right');
+  END IF;
+  IF keepit = 0 THEN
+        Dummy :=  fac.remember_SavePrimaryKey('FAC_GROEPRECHTEN',:new.fac_groeprechten_key);
   END IF;
 END;
 /
@@ -145,16 +155,16 @@ DECLARE
   IndexNr NUMBER;
 BEGIN
   IndexNr   := 1;
-  PrimKey :=  Fac_P_Fac_Save_Restore.GetPrimaryKey('FAC_GROEPRECHTEN',IndexNr);
+  PrimKey :=  fac.remember_GetPrimaryKey('FAC_GROEPRECHTEN',IndexNr);
   WHILE PrimKey IS NOT NULL
   LOOP
     DELETE
     FROM   FAC_groeprechten
     WHERE  fac_groeprechten_key = PrimKey;
 	IndexNr    := IndexNr + 1;
-    PrimKey :=  Fac_P_Fac_Save_Restore.GetPrimaryKey('FAC_GROEPRECHTEN',IndexNr);
+    PrimKey :=  fac.remember_GetPrimaryKey('FAC_GROEPRECHTEN',IndexNr);
   END LOOP;
-  Dummy :=  fac_p_fac_save_restore.ResetSelectie('FAC_GROEPRECHTEN');
+  Dummy :=  fac.remember_ResetSelectie('FAC_GROEPRECHTEN');
 END;
 /
 
@@ -189,16 +199,31 @@ END;
 CREATE_TRIGGER(fac_t_fac_usrrap_B_IU)
 BEFORE INSERT OR UPDATE ON fac_usrrap
 FOR EACH ROW
+DECLARE
 BEGIN
+   -- Geeft een 44002 als invalid
+   :new.fac_usrrap_view_name := DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_usrrap_view_name);
    UPDATE_PRIMARY_KEY(fac_usrrap_key, fac_s_fac_usrrap_key);
    UPDATE_AANMAAKDATUM(fac_usrrap, fac_usrrap_aanmaak);
 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
+DECLARE
 BEGIN
+   -- Geeft een 44002 als invalid
+   :new.fac_usrgraph_view_name := DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_usrgraph_view_name);
    UPDATE_PRIMARY_KEY(fac_usrgraph_key, fac_s_fac_usrgraph_key);
    UPDATE_AANMAAKDATUM(fac_usrgraph, fac_usrgraph_aanmaak);
 END;
@@ -261,26 +286,36 @@ CREATE_TRIGGER(fac_t_fac_notificatie_B_I)
    FOR EACH ROW
 DECLARE
     loms   web_user_messages.web_user_mess_dsc%TYPE;
+    lxmlnode fac_srtnotificatie.fac_srtnotificatie_xmlnode%TYPE;
 BEGIN
    -- Kopieer direct naar statusinformatie op de portal indien van toepassing
+   -- Daarbij worden alle oude berichten (eerst) verwijderd
    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;
       IF INSTR (loms, chr(10)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(10)) -1);
       END IF;
-      -- Verwijder oude gelijkluidende berichten
-      -- Noot: die check op _dsc voorkomt dat bij meerdere bezoekers alleen de laatste overblijft
-      DELETE FROM web_user_messages
-            WHERE fac_srtnotificatie_key = :NEW.fac_srtnotificatie_key
-              AND prs_perslid_key_receiver = :NEW.prs_perslid_key_receiver
-              AND web_user_mess_action_params = :NEW.fac_notificatie_refkey
-              AND web_user_mess_dsc = loms;
+      -- Verwijder oudere (achterhaalde) portalberichten over hetzelfde
+      IF :NEW.fac_srtnotificatie_key IS NOT NULL
+      THEN
+          SELECT fac_srtnotificatie_xmlnode
+            INTO lxmlnode
+            FROM fac_srtnotificatie
+           WHERE fac_srtnotificatie_key = :NEW.fac_srtnotificatie_key;
 
+          DELETE FROM web_user_messages
+                WHERE fac_srtnotificatie_key IN
+                      (SELECT fac_srtnotificatie_key
+                         FROM fac_srtnotificatie
+                        WHERE fac_srtnotificatie_xmlnode = lxmlnode)
+                  AND prs_perslid_key_receiver = :NEW.prs_perslid_key_receiver
+                  AND web_user_mess_action_params = COALESCE (:NEW.fac_notificatie_extrakey, :NEW.fac_notificatie_refkey);
+      END IF;
       -- En voeg de nieuwe toe. Let op: als een extrakey bekend is, wordt die als parameter gebruikt, anders gewoon refkey
       INSERT INTO web_user_messages
                   (prs_perslid_key_sender, prs_perslid_key_receiver, web_user_mess_dsc, web_user_mess_action_status,
@@ -314,6 +349,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_export_app_B_IU)
+BEFORE INSERT OR UPDATE ON fac_export_app
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_export_app_key, fac_s_fac_export_app_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_import_app_B_IU)
 BEFORE INSERT OR UPDATE ON fac_import_app
 FOR EACH ROW
@@ -321,16 +364,17 @@ BEGIN
     UPDATE_PRIMARY_KEY(fac_import_app_key, fac_s_fac_import_app_key);
 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);
@@ -399,14 +443,26 @@ BEFORE INSERT or UPDATE ON fac_setting
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_setting_key, fac_s_fac_setting_key);
-    IF :new.fac_setting_datum IS NULL OR UPDATING ('fac_setting_pvalue') OR UPDATING ('fac_setting_default') THEN
+    IF :new.fac_setting_datum IS NULL OR
+        COALESCE(:OLD.fac_setting_pvalue,'undefined') <> COALESCE(:NEW.fac_setting_pvalue,'undefined') OR
+        COALESCE(:OLD.fac_setting_default,'undefined') <> COALESCE(:NEW.fac_setting_default,'undefined')
+    THEN
         -- Datum bijwerken is belangrijk omdat webserver op basis hiervan
         -- eventueel versneld zijn settings-cache refreshed
         :new.fac_setting_datum := SYSDATE;
     END IF;
 
     :new.fac_setting_module := UPPER(:new.fac_setting_module);
-    -- :new.fac_setting_name := LOWER(:new.fac_setting_name); db15to16.asp kan niet tegen lowercase
+    :new.fac_setting_name := LOWER(:new.fac_setting_name);
+    -- Het kan geen kwaad om wijzigingen te tracken
+    IF :new.fac_setting_datum <> :old.fac_setting_datum
+    THEN
+        INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision, adm_tracking_osuser)
+           VALUES   (SUBSTR('S('||:new.fac_setting_name||')', 1, 60),
+                     SUBSTR(:new.fac_setting_pvalue, 1, 60),
+                     :new.prs_perslid_key   -- we gaan de naam er niet bijzoeken hoor
+                    );
+    END IF;
 END;
 /
 
@@ -517,14 +573,14 @@ DECLARE
    objecttype user_objects.object_type%TYPE;
 BEGIN
    UPDATE_PRIMARY_KEY(fac_kenmerkdomein_key, fac_s_fac_kenmerkdomein_key);
-    :new.fac_kenmerkdomein_upper := UPPER(:new.fac_kenmerkdomein_omschrijving);
-    :new.fac_kenmerkdomein_module := UPPER(:new.fac_kenmerkdomein_module);
-    :new.fac_kenmerkdomein_xmlnode := LOWER(:new.fac_kenmerkdomein_xmlnode);
+   :new.fac_kenmerkdomein_upper := UPPER(:new.fac_kenmerkdomein_omschrijving);
+   :new.fac_kenmerkdomein_module := UPPER(:new.fac_kenmerkdomein_module);
+   :new.fac_kenmerkdomein_xmlnode := LOWER(:new.fac_kenmerkdomein_xmlnode);
    BEGIN
       SELECT   object_type
         INTO   objecttype
         FROM   user_objects
-       WHERE   object_name = :new.fac_kenmerkdomein_objectnaam;
+       WHERE   UPPER(object_name) = UPPER(DBMS_ASSERT.SQL_OBJECT_NAME(:new.fac_kenmerkdomein_objectnaam));
    EXCEPTION
       WHEN NO_DATA_FOUND
       THEN
@@ -533,7 +589,7 @@ BEGIN
 
    IF objecttype IS NULL
    THEN
-      raise_application_error (-20000, 'ALG_M235');
+      raise_application_error (-20000, 'FAC_MXX3 Invalid object');
    ELSIF objecttype IN ('TABLE', 'VIEW')
    THEN
       DECLARE
@@ -597,4 +653,225 @@ BEGIN
    UPDATE_PRIMARY_KEY(fac_api_key, fac_s_fac_api_key);
 END;
 /
-REGISTERRUN('$Workfile: FAC_TRI.SRC $','$Revision$')
+
+CREATE_TRIGGER(faq_t_faq_kenmerkwaarde_b_iu)
+BEFORE INSERT OR UPDATE ON faq_kenmerkwaarde
+FOR EACH ROW
+BEGIN
+   UPDATE_AANMAAKDATUM(faq_kenmerkwaarde, faq_kenmerkwaarde_aanmaak);
+   /*
+   ** Controleer eerst of de ingevulde waarde goed is.
+   */
+   IF :new.faq_kenmerkwaarde_waarde <> :old.faq_kenmerkwaarde_waarde
+   OR :old.faq_kenmerkwaarde_waarde IS NULL
+   OR :new.faq_kenmerkwaarde_waarde IS NULL
+   THEN
+      DECLARE
+         KenmerkOmschr   faq_kenmerk.faq_kenmerk_omschrijving%TYPE;
+         KenmerkType     faq_kenmerk.faq_kenmerk_kenmerktype%TYPE;
+         KenmerkLengte   faq_kenmerk.faq_kenmerk_lengte%TYPE;
+         KenmerkDec      faq_kenmerk.faq_kenmerk_dec%TYPE;
+         KenmerkNMin     faq_kenmerk.faq_kenmerk_nmin%TYPE;
+         KenmerkNMax     faq_kenmerk.faq_kenmerk_nmax%TYPE;
+         NumberWaarde    NUMBER(25,5);
+         FormatMask      VARCHAR2(60);
+         KenmerkWaarde   faq_kenmerkwaarde.faq_kenmerkwaarde_waarde%TYPE;
+      BEGIN
+         KenmerkWaarde := :new.faq_kenmerkwaarde_waarde;
+         BEGIN
+            DECLARE
+               dummy VARCHAR2(1);
+            BEGIN
+            SELECT faq_kenmerk_omschrijving
+            ,      faq_kenmerk_kenmerktype
+            ,      faq_kenmerk_lengte
+            ,      faq_kenmerk_dec
+            ,      faq_kenmerk_nmin
+            ,      faq_kenmerk_nmax
+            INTO   KenmerkOmschr
+            ,      KenmerkType
+            ,      KenmerkLengte
+            ,      KenmerkDec
+            ,      KenmerkNMin
+            ,      KenmerkNMax
+            FROM   faq_kenmerk
+            WHERE  faq_kenmerk_key = :new.faq_kenmerk_key;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+         END;
+
+         /* Kijk welk KenmerkType gebruikt wordt.
+         ** Aan de hand daarvan moet een controle uitgevoerd worden.
+         **/
+         IF   KenmerkType = 'C'
+         /*
+         ** Char
+         */
+         THEN
+            /*
+            ** Controleer of de lengte te groot of goed is
+            */
+            IF LENGTH(KenmerkWaarde) > KenmerkLengte
+            THEN
+               APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||','
+                                                    || TO_CHAR(KenmerkLengte));
+            END IF;
+         ELSIF KenmerkType = 'N'
+         /*
+         ** Number
+         */
+         THEN
+            /*
+            ** Controleer of er een numerieke waarde ingevuld is
+            */
+            IF KenmerkDec IS NULL OR KenmerkDec = 0
+            THEN
+               FormatMask := RPAD('9', KenmerkLengte, '9');
+            ELSE
+               FormatMask := RPAD('9', KenmerkLengte - KenmerkDec, '9')
+                                ||'D'||RPAD('9', KenmerkDec, '9');
+            END IF;
+            /*
+            ** Controleer of er een numerieke waarde ingevuld is
+            */
+            BEGIN
+               NumberWaarde := TO_NUMBER(KenmerkWaarde);
+            EXCEPTION
+               WHEN OTHERS
+               THEN FormatMask := REPLACE(FormatMask, '9', '#');
+                    FormatMask := REPLACE(FormatMask, '0', '#');
+                    FormatMask := REPLACE(FormatMask, 'D', '.');
+                    RAISE_APPLICATION_ERROR(-20004,'faq_m233,'|| KenmerkOmschr ||','
+                                                              || FormatMask);
+            END;
+            /*
+            ** Controleer of de waarde binnen NMin en NMax ligt
+            */
+            IF (   (KenmerkNMin IS NOT NULL AND NumberWaarde < KenmerkNMin)
+                OR (KenmerkNMax IS NOT NULL AND NumberWaarde > KenmerkNMax))
+            THEN
+               APPLICATION_ERROR_GOTO(-20004, 'faq_m234,'|| KenmerkOmschr       ||','
+                                                    || TO_CHAR(KenmerkNMin)||','
+                                                    || TO_CHAR(KenmerkNMax));
+            ELSE
+               /*
+               **  Controleer of de waarde aan het formaat voldoet
+               */
+               KenmerkWaarde := LTRIM(NUMBER_TO_CHAR(NumberWaarde, FormatMask));
+               IF INSTR2(KenmerkWaarde, '#') <> 0
+               THEN
+                  FormatMask := REPLACE(FormatMask, '9', '#');
+                  FormatMask := REPLACE(FormatMask, '0', '#');
+                  FormatMask := REPLACE(FormatMask, 'D', '.');
+                  APPLICATION_ERROR_GOTO(-20004,'faq_m233,'|| KenmerkOmschr ||','
+                                                      || FormatMask);
+               END IF;
+            END IF;
+            /*
+            ** Zet de geconverteerde waarde terug
+            */
+            :new.faq_kenmerkwaarde_waarde := KenmerkWaarde;
+         ELSIF KenmerkType = 'D'
+         /*
+         ** Datum
+         */
+         THEN
+            KenmerkWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkWaarde,'DD-MM-YY'),'DD-MM-YYYY');
+            /*
+            ** Zet de geconverteerde waarde terug
+            */
+            :new.faq_kenmerkwaarde_waarde := KenmerkWaarde;
+         END IF;
+      END;
+    END;
+    UPDATE_PRIMARY_KEY(faq_kenmerkwaarde_key, faq_s_faq_kenmerkwaarde_key);
+   END IF;
+END;
+/
+
+CREATE_TRIGGER(faq_t_faq_kenmerk_b_iu)
+BEFORE INSERT OR UPDATE ON faq_kenmerk
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(faq_kenmerk_key, faq_s_faq_kenmerk_key);
+   UPDATE_UPPER(faq_kenmerk_omschrijving, faq_kenmerk_upper,faq_kenmerk);
+   IF (:new.faq_kenmerk_verwijder IS NOT NULL AND :old.faq_kenmerk_verwijder IS NULL AND
+       :new.faq_kenmerk_systeem = 1)
+   THEN
+      APPLICATION_ERROR(-20003, 'faq_m238');
+   END IF;
+   IF (:new.faq_kenmerk_kenmerktype IN ('C','N'))
+   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
+   THEN
+      :new.faq_kenmerk_lengte := 20;
+   END IF;
+   IF :new.faq_kenmerk_kenmerktype = 'N' 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
+     THEN
+       DECLARE
+         Dummy CHAR;
+       BEGIN
+         SELECT 'X'
+           INTO Dummy
+           FROM faq_kenmerkwaarde
+          WHERE faq_kenmerk_key = :old.faq_kenmerk_key
+            AND faq_kenmerk_key IN
+              (SELECT faq_kenmerk_key FROM faq_kenmerkwaarde
+                WHERE faq_kenmerk_key = :old.faq_kenmerk_key
+                  AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) < :new.faq_kenmerk_nmin
+                  AND rownum=1);
+               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
+       EXCEPTION
+         WHEN NO_DATA_FOUND
+           THEN NULL;
+         WHEN TOO_MANY_ROWS THEN
+               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
+       END;
+     END IF;
+     IF :old.faq_kenmerk_nmax <> :new.faq_kenmerk_nmax OR
+       :old.faq_kenmerk_nmax IS NULL AND :new.faq_kenmerk_nmax IS NOT NULL
+     THEN
+       DECLARE
+         Dummy CHAR;
+       BEGIN
+         SELECT 'X'
+           INTO Dummy
+           FROM faq_kenmerkwaarde
+          WHERE faq_kenmerk_key = :old.faq_kenmerk_key
+            AND faq_kenmerk_key IN
+              (SELECT  faq_kenmerk_key FROM faq_kenmerkwaarde
+                WHERE faq_kenmerk_key = :old.faq_kenmerk_key
+                  AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) > :new.faq_kenmerk_nmax
+                  AND rownum=1);
+               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
+       EXCEPTION
+         WHEN NO_DATA_FOUND
+           THEN NULL;
+         WHEN TOO_MANY_ROWS THEN
+           BEGIN
+               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
+           END;
+       END;
+     END IF;
+   END IF;
+   UPDATE_AANMAAKDATUM(faq_kenmerk, faq_kenmerk_aanmaak);
+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;
+/
+
+REGISTERRUN('$Id$')

FAC/FAC_VIE.SRC

@@ -175,7 +175,8 @@ AS
 SELECT -- GROEPEN MET DISCIPLINES
           gr.fac_groep_omschrijving,
           f.fac_functie_code,
-          f.fac_functie_omschrijving,
+            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 ' ,
                      'MLD' ,  'Vakgroep ' ,
@@ -190,9 +191,11 @@ SELECT -- GROEPEN MET DISCIPLINES
      FROM FAC_GROEPRECHTEN g,
           FAC_FUNCTIE f,
           INS_TAB_DISCIPLINE a,
+          ins_srtdiscipline isd,
           FAC_GROEP gr
     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
@@ -283,8 +286,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;
 
@@ -294,7 +297,6 @@ AS
 // perfmon.asp basic sample reports
 -- de platte waarden
 CREATE_VIEW(fac_v_perfmon_samplewaarde, 0) (fclt_f_datum,
-                                                   tijd,
                                                    waarde1,
                                                    waarde2,
                                                    waarde3,
@@ -308,8 +310,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,
@@ -736,7 +737,7 @@ SELECT 'RESINF'
    AND rsvr.res_status_fo_key <= 5
    AND rsvr.res_rsv_ruimte_van BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen, 'DAGEN')
                                    AND fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen+1, 'DAGEN')
-   AND DATE_TO_CHAR(sysdate, 'D') NOT IN (1,7)
+   AND fac.getweekdaynum(sysdate) NOT IN (1,7)
    AND rsvr.res_rsv_ruimte_van >= SYSDATE
 UNION ALL
 SELECT 'RESINF'
@@ -779,7 +780,7 @@ SELECT 'RESINF'
        AND rsvd.res_rsv_deel_verwijder IS NULL
        AND rsvd.res_rsv_deel_van BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen, 'DAGEN')
                                      AND fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen+1, 'DAGEN')
-       AND DATE_TO_CHAR(sysdate, 'D') NOT IN (1,7)
+       AND fac.getweekdaynum(sysdate) NOT IN (1,7)
        AND rsvd.res_rsv_deel_van >= SYSDATE
     UNION ALL
     SELECT rsvr.res_rsv_ruimte_contact_key
@@ -803,7 +804,7 @@ SELECT 'RESINF'
        AND rsva.res_rsv_artikel_verwijder IS NULL
        AND rsva.res_rsv_artikel_levering BETWEEN fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen, 'DAGEN')
                                              AND fac.datumtijdplusuitvoertijd (SYSDATE, res_disc_params_noti_dagen+1, 'DAGEN')
-       AND DATE_TO_CHAR(sysdate, 'D') NOT IN (1,7)
+       AND fac.getweekdaynum(sysdate) NOT IN (1,7)
        AND rsva.res_rsv_artikel_levering >= SYSDATE
     )
 GROUP BY res_rsv_ruimte_contact_key, res_reservering_key, res_rsv_ruimte_key, ruimte_key;
@@ -813,7 +814,7 @@ CREATE_VIEW (fac_v_noti_cntreminder, 0) (code, sender, receiver, text, key, par1
 AS
    SELECT '', '', c.prs_perslid_key_beh,
              'Rapp<70>l: Contract '
-          || c.cnt_contract_nummer_intern
+          || c.cnt_contract_nummer_intern||DECODE(cnt_contract_versie, NULL, '', '.'||cnt_contract_versie)
           || ' ('
           || c.cnt_contract_omschrijving
           || ' '
@@ -898,7 +899,8 @@ CREATE_VIEW(fac_v_notifyqueue, 0)
 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_extrakey, fac_notificatie_sender_email, fac_notificatie_lang, fac_notificatie_systeemadres,
+       fac_notificatie_attachments, fac_srtnotificatie_delay
   FROM fac_notificatie n
   LEFT OUTER JOIN fac_srtnotificatie sn ON n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key;
 
@@ -912,7 +914,7 @@ AS
     WHERE b.prs_bedrijf_key = o.prs_bedrijf_key
       AND o.mld_adres_key_lev = ma.mld_adres_key
       AND ma.alg_locatie_key = l.alg_locatie_key(+)
-      AND b.prs_bedrijf_order_adres IS NOT NULL
+      AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='B')
       AND o.bes_bestelopdr_status = 3
    UNION ALL
    SELECT b.prs_bedrijf_key, 'opdracht', o.mld_opdr_key, 2, o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr,
@@ -923,11 +925,17 @@ AS
       AND m.mld_adres_key = ma.mld_adres_key(+)
       AND ma.alg_locatie_key = l1.alg_locatie_key(+)
       AND m.mld_alg_locatie_key = l2.alg_locatie_key(+)
-      AND b.prs_bedrijf_mldorder_adres IS NOT NULL
+      AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='O')
       AND (o.mld_statusopdr_key = 5 OR o.mld_statusopdr_key = 4)
       AND o.mld_opdr_teverzenden = 1
-      AND o.mld_opdr_verzonden IS NULL;
-
+      AND o.mld_opdr_verzonden IS NULL
+   UNION ALL
+   SELECT b.prs_bedrijf_key, 'contract', c.cnt_contract_key, 2, cnt_contract_nummer_intern, ins_discipline_email
+     FROM prs_bedrijf b, cnt_contract c, ins_tab_discipline d
+    WHERE b.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+      AND d.ins_discipline_key = c.ins_discipline_key
+      AND EXISTS (SELECT '' FROM prs_bedrijfadres ba where ba.prs_bedrijf_key= b.prs_bedrijf_key AND ba.prs_bedrijfadres_type='C' )
+      AND c.cnt_contract_teverzenden = 1;
 
 
 
@@ -961,11 +969,11 @@ SELECT op.*,
                  ins_srtdiscipline sd,
                  (SELECT o.mld_opdr_key, o.mld_opdr_kosten, 0 mld_opdr_kosten_raming, o.mld_melding_key
                     FROM mld_opdr o
-                   WHERE o.mld_statusopdr_key IN (6, 7)
+                   WHERE o.mld_statusopdr_key IN (6, 7, 9)
                   UNION ALL
                   SELECT o.mld_opdr_key, 0 mld_opdr_kosten, o.mld_opdr_kosten mld_opdr_kosten_raming, o.mld_melding_key
                     FROM mld_opdr o
-                   WHERE o.mld_statusopdr_key IN (4, 5)) o
+                   WHERE o.mld_statusopdr_key IN (4, 5, 3, 10, 8)) o
            WHERE std.mld_stdmelding_key = m.mld_stdmelding_key
              AND m.mld_melding_status = s.mld_statuses_key
              AND m.mld_melding_key = o.mld_melding_key(+)                        -- Dus ook meldingen zonder opdrachten!
@@ -1119,7 +1127,8 @@ CREATE_VIEW (fac_v_imp_res_artikel_sync ,0)  (hide_f_artikel_catalogus,
                                               artikelGroep,
                                               artikelVolgnummer,
                                               artikelIngangsdatum,
-                                              artikelVervaldatum
+                                              artikelVervaldatum,
+                                              artikelMinimum
                                              )
 AS
    SELECT (SELECT ins_discipline_omschrijving
@@ -1147,7 +1156,8 @@ AS
           res_artikel_groep,
           TO_CHAR (res_artikel_volgnummer),
           TO_CHAR (res_artikel_ingangsdatum, 'YYYYMMDD'),
-          TO_CHAR (res_artikel_vervaldatum, 'YYYYMMDD')
+          TO_CHAR (res_artikel_vervaldatum, 'YYYYMMDD'),
+          TO_CHAR (res_artikel_minimum)
      FROM res_v_aanwezigartikel;
 
 /* View met het maximale actuele menu van de huidige configuratie */
@@ -1251,125 +1261,143 @@ AS
 CREATE_VIEW (fac_v_lcrap_fe_vs_key, 0)
 (
    tijdstip,
+   all_users,
    fe_users,
    key_users,
+   xdfe_users,
+   xdkey_users,
    recent_login
 )
 AS
-   SELECT   TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss') tijdstip,
-            SUM (x.login) - SUM (a.key_user) fe_users,
-            SUM (a.key_user) key_users,
-            SUM (x.recent_login) recent_login
-     FROM      (SELECT   p.prs_perslid_key,
-                         COALESCE (p.prs_perslid_oslogin,
-                                   p.prs_perslid_oslogin2)
-                            oslogin,
-                         1 login,      -- 1=user heeft login + groep + rechten
-                         DECODE (
-                            SIGN(TRUNC(COALESCE (p.prs_perslid_login + 92,
-                                                 SYSDATE - 1))
-                                 - TRUNC (SYSDATE)),
-                            -1,
-                            0,
-                            1        -- 1=user heeft laatste 92 dagen ingelogd
-                         )
-                            recent_login
-                  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))
-                UNION ALL -- FSN#24029: Soms ook personen zonder login meetellen!
-                SELECT   p.prs_perslid_key,
-                         NULL oslogin,
-                         1 login,   -- 1=user telt mee, want allow_for_others!
-                         0 recent_login -- geen login, dus nooit recent ingelogd
-                  FROM   prs_v_aanwezigperslid p
-                 WHERE   COALESCE (p.prs_perslid_oslogin,
-                                   p.prs_perslid_oslogin2) IS NULL
-                         AND (fac.getSetting ('mld_allow_for_others') = 1
-                              OR EXISTS
-                                   (SELECT   1
-                                      FROM   bes_disc_params dp
-                                     WHERE   dp.bes_disc_params_for_others =
-                                                1))) x
-            LEFT JOIN         -- 1=user heeft rechten op key-codes=notFE-codes
-               (SELECT   DISTINCT fclt_f_login, 1 key_user
-                  FROM   fac_v_rap_groeprechten gr, fac_functie f
-                 WHERE   gr.fclt_f_funcode = f.fac_functie_code
-                         AND f.fac_functie_groep IN (1, 2)) a
-            ON x.oslogin = a.fclt_f_login;
+   SELECT TO_CHAR (SYSDATE, 'dd-mm-yyyy hh24:mi:ss') tijdstip,
+          SUM (x.login) all_users,
+          SUM (x.login) - SUM (DECODE (a.key_user, NULL, DECODE (b.xd_user, NULL, 0, 1), 1)) fe_users,
+          SUM (DECODE (a.key_user, NULL, 0, DECODE (b.xd_user, NULL, 1, 0))) key_users,
+          SUM (DECODE (a.key_user, NULL, DECODE (b.xd_user, NULL, 0, 1), 0)) xdfe_users,
+          SUM (DECODE (a.key_user, NULL, 0, DECODE (b.xd_user, NULL, 0, 1))) xdkey_users,
+          SUM (x.recent_login) recent_login
+     FROM (SELECT p.prs_perslid_key,
+                  COALESCE (p.prs_perslid_oslogin, p.prs_perslid_oslogin2) oslogin,
+                  1 login,             -- 1=user heeft login + groep + rechten
+                  DECODE (
+                     SIGN(TRUNC(COALESCE (p.prs_perslid_login + 92, SYSDATE - 1)) - TRUNC (SYSDATE)),
+                     -1, 0,
+                     1)              -- 1=user heeft laatste 92 dagen ingelogd
+                     recent_login
+             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))
+           UNION ALL   -- FSN#24029: Soms ook personen zonder login meetellen!
+           SELECT p.prs_perslid_key,
+                  NULL oslogin,
+                  1 login,          -- 1=user telt mee, want allow_for_others!
+                  0 recent_login      -- geen login, dus nooit recent ingelogd
+             FROM prs_v_aanwezigperslid p
+            WHERE COALESCE (p.prs_perslid_oslogin, p.prs_perslid_oslogin2) IS NULL
+                  AND (fac.getSetting ('mld_allow_for_others') = 1
+                       OR EXISTS (SELECT 1
+                                    FROM bes_disc_params dp
+                                   WHERE dp.bes_disc_params_for_others = 1))
+           UNION ALL   -- FSN#27315: En ook eventuele "sensorusers" meetellen!
+           SELECT NULL prs_perslid_key,
+                  NULL oslogin,
+                  COUNT ( * ) login,       -- elke sensoruser telt mee als FE!
+                  1 recent_login        -- recent actief dus tellen als recent
+             FROM ins_v_aanwezigdeel d
+            WHERE ins_deel_statedate > TRUNC (SYSDATE - 30)) x
+          LEFT JOIN           -- 1=user heeft rechten op key-codes=notFE-codes
+                    (SELECT DISTINCT fclt_f_login, 1 key_user
+                       FROM fac_v_rap_groeprechten gr, fac_functie f
+                      WHERE gr.fclt_f_funcode = f.fac_functie_code
+                            AND f.fac_functie_groep IN (1, 2)) a
+             ON x.oslogin = a.fclt_f_login
+          LEFT JOIN             -- FSN#30404: 1=user is cross-domain (xd) user
+                    (SELECT p.prs_perslid_key, 1 xd_user
+                       FROM prs_v_aanwezigperslid p, prs_v_afdeling_boom ab
+                      WHERE p.prs_afdeling_key = ab.prs_afdeling_key
+                        AND p.prs_perslid_apikey IS NOT NULL
+                        AND ab.prs_bedrijf_key = fac.safe_to_number(fac.getSetting('xd_primary_bedrijfkey'))) b
+             ON x.prs_perslid_key = b.prs_perslid_key;
 
 CREATE_VIEW (fac_v_lcrap_key_stats, 0)
 (
    prs_perslid_key,
    prs_perslid_naam_full,
+   xd_user,
    lev_write_cnt,
    max_alg_write,
    max_prs_write,
    lev_read_cnt,
    max_alg_read,
    max_prs_read,
-   aut_groep_cnt
+   aut_groep_cnt,
+   funcodes
 )
 AS
-     SELECT   x.prs_perslid_key,
-              x.prs_perslid_naam_full,
-              COALESCE (y.lev_write_cnt, 0) lev_write_cnt,
-              y.max_alg_write,
-              y.max_prs_write,
-              COALESCE (z.lev_read_cnt, 0) lev_read_cnt,
-              z.max_alg_read,
-              z.max_prs_read,
-              x.aut_groep_cnt
-       FROM         (  SELECT   fn.prs_perslid_key,
-                                fn.prs_perslid_naam_full,
-                                COUNT (DISTINCT gg.fac_groep_key) aut_groep_cnt
-                         FROM   prs_v_aanwezigperslid p,
-                                prs_v_perslid_fullnames fn,
-                                fac_gebruikersgroep gg
-                        WHERE       p.prs_perslid_oslogin IS NOT NULL
-                                AND p.prs_perslid_key = fn.prs_perslid_key
-                                AND p.prs_perslid_key = gg.prs_perslid_key
-                     GROUP BY   fn.prs_perslid_key, fn.prs_perslid_naam_full) x
-                 LEFT JOIN
-                    (  SELECT   gg.prs_perslid_key,
-                                COUNT (DISTINCT gr.fac_groeprechten_key)
-                                   lev_write_cnt,
-                                MIN (gr.fac_gebruiker_alg_level_write)
-                                   max_alg_write,
-                                MIN (gr.fac_gebruiker_prs_level_write)
-                                   max_prs_write
-                         FROM   fac_gebruikersgroep gg,
-                                fac_groeprechten gr,
-                                fac_functie f
-                        WHERE       gg.fac_groep_key = gr.fac_groep_key
-                                AND gr.fac_functie_key = f.fac_functie_key
-                                AND fac_functie_groep IN (1, 2)
-                                AND (gr.fac_gebruiker_alg_level_write <> 9
-                                     OR gr.fac_gebruiker_prs_level_write <> 9)
-                     GROUP BY   gg.prs_perslid_key) y
-                 ON x.prs_perslid_key = y.prs_perslid_key
-              LEFT JOIN
-                 (  SELECT   gg.prs_perslid_key,
-                             COUNT (DISTINCT gr.fac_groeprechten_key)
-                                lev_read_cnt,
-                             MIN (gr.fac_gebruiker_alg_level_read) max_alg_read,
-                             MIN (gr.fac_gebruiker_prs_level_read) max_prs_read
-                      FROM   fac_gebruikersgroep gg,
-                             fac_groeprechten gr,
-                             fac_functie f
-                     WHERE       gg.fac_groep_key = gr.fac_groep_key
-                             AND gr.fac_functie_key = f.fac_functie_key
-                             AND fac_functie_groep IN (1, 2)
-                             AND (gr.fac_gebruiker_alg_level_read <> 9
-                                  OR gr.fac_gebruiker_prs_level_read <> 9)
-                  GROUP BY   gg.prs_perslid_key) z
-              ON x.prs_perslid_key = z.prs_perslid_key
-      WHERE   COALESCE (y.lev_write_cnt, 0) > 0
-              OR COALESCE (z.lev_read_cnt, 0) > 0;
+    SELECT x.prs_perslid_key,
+          x.prs_perslid_naam_full,
+          DECODE (xd.prs_bedrijf_key, NULL, NULL, 'Ja'),
+          COALESCE (y.lev_write_cnt, 0) lev_write_cnt,
+          y.max_alg_write,
+          y.max_prs_write,
+          COALESCE (z.lev_read_cnt, 0) lev_read_cnt,
+          z.max_alg_read,
+          z.max_prs_read,
+          x.aut_groep_cnt,
+          pfcs.funcodes
+     FROM (  SELECT p.prs_perslid_key, p.prs_afdeling_key, fn.prs_perslid_naam_full,
+                    p.prs_perslid_apikey,
+                    COUNT (DISTINCT gg.fac_groep_key) aut_groep_cnt
+               FROM prs_v_aanwezigperslid p, prs_v_perslid_fullnames fn, fac_gebruikersgroep gg
+              WHERE     p.prs_perslid_oslogin IS NOT NULL
+                    AND p.prs_perslid_key = fn.prs_perslid_key
+                    AND p.prs_perslid_key = gg.prs_perslid_key
+           GROUP BY p.prs_perslid_key, p.prs_perslid_apikey, p.prs_afdeling_key, fn.prs_perslid_naam_full) x
+          LEFT JOIN prs_v_afdeling_boom xd
+             ON x.prs_afdeling_key = xd.prs_afdeling_key
+                AND x.prs_perslid_apikey IS NOT NULL
+                AND xd.prs_bedrijf_key = fac.safe_to_number (fac.getSetting ('xd_primary_bedrijfkey'))
+          LEFT JOIN (  SELECT gg.prs_perslid_key,
+                              COUNT (DISTINCT gr.fac_groeprechten_key) lev_write_cnt,
+                              MIN (gr.fac_gebruiker_alg_level_write) max_alg_write,
+                              MIN (gr.fac_gebruiker_prs_level_write) max_prs_write
+                         FROM fac_gebruikersgroep gg, fac_groeprechten gr, fac_functie f
+                        WHERE     gg.fac_groep_key = gr.fac_groep_key
+                              AND gr.fac_functie_key = f.fac_functie_key
+                              AND fac_functie_groep IN (1, 2)
+                              AND (gr.fac_gebruiker_alg_level_write <> 9
+                                   OR gr.fac_gebruiker_prs_level_write <> 9)
+                     GROUP BY gg.prs_perslid_key) y
+             ON x.prs_perslid_key = y.prs_perslid_key
+          LEFT JOIN (  SELECT gg.prs_perslid_key,
+                              COUNT (DISTINCT gr.fac_groeprechten_key) lev_read_cnt,
+                              MIN (gr.fac_gebruiker_alg_level_read) max_alg_read,
+                              MIN (gr.fac_gebruiker_prs_level_read) max_prs_read
+                         FROM fac_gebruikersgroep gg, fac_groeprechten gr, fac_functie f
+                        WHERE     gg.fac_groep_key = gr.fac_groep_key
+                              AND gr.fac_functie_key = f.fac_functie_key
+                              AND fac_functie_groep IN (1, 2)
+                              AND (gr.fac_gebruiker_alg_level_read <> 9
+                                   OR gr.fac_gebruiker_prs_level_read <> 9)
+                     GROUP BY gg.prs_perslid_key) z
+             ON x.prs_perslid_key = z.prs_perslid_key
+          LEFT JOIN (  SELECT pfc.prs_perslid_key,
+                              LISTAGG (pfc.fac_functie_code, ', ') WITHIN GROUP (ORDER BY pfc.fac_functie_code) AS funcodes
+                         FROM (SELECT DISTINCT gg.prs_perslid_key, SUBSTR (f.fac_functie_code, 5) fac_functie_code
+                                 FROM fac_gebruikersgroep gg,
+                                      fac_groeprechten gr,
+                                      fac_functie f
+                                WHERE gg.fac_groep_key = gr.fac_groep_key
+                                      AND gr.fac_functie_key =
+                                            f.fac_functie_key
+                                      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;
 
 CREATE_VIEW (fac_v_lcrap_grp_stats, 0)
 (
@@ -1650,8 +1678,8 @@ AS
                       m.mld_melding_key mld_key,
                       md.ins_discipline_key,
                       CASE SIGN(fac.datumtijdplusuitvoertijd (fac.gettrackingdate ('MLDNEW', m.mld_melding_key),
-                                                              std.mld_stdmelding_urgentie,
-                                                              'UREN'
+                                                              std.mld_stdmelding_t_accepttijd.tijdsduur,
+                                                              DECODE (std.mld_stdmelding_t_accepttijd.eenheid,'U', 'UREN', 'DAGEN')
                                                              )
                                 - SYSDATE)
                          WHEN -1
@@ -1768,7 +1796,8 @@ AS
             fac_usrdata_prijs prijs,
             fac_usrdata_vervaldatum vervaldatum
        FROM fac_usrdata ud, fac_usrtab ut
-      WHERE ud.fac_usrtab_key = ut.fac_usrtab_key;
+      WHERE fac_usrdata_verwijder IS NULL
+        AND ud.fac_usrtab_key = ut.fac_usrtab_key;
 
 CREATE_VIEW(fac_v_exp_menu, 0)
 AS
@@ -1813,6 +1842,7 @@ AS
             NULL kenmerk_type,
             km.res_kenmerk_niveau kenmerk_niveau,
             km.res_kenmerk_verplicht kenmerk_verplicht,
+            km.res_kenmerk_groep kenmerk_groep,
             km.res_kenmerk_volgnummer kenmerk_volgnummer,
             km.res_kenmerk_default kenmerk_default,
             km.res_kenmerk_toonbaar kenmerk_toonbaar,
@@ -1854,6 +1884,7 @@ AS
             bes_kenmerk_type kenmerk_type,
             bes_kenmerk_niveau kenmerk_niveau,
             bes_kenmerk_verplicht kenmerk_verplicht,
+            bes_kenmerk_groep kenmerk_groep,
             bes_kenmerk_volgnummer kenmerk_volgnummer,
             bes_kenmerk_default kenmerk_default,
             bes_kenmerk_toonbaar kenmerk_toonbaar,
@@ -1944,6 +1975,7 @@ AS
             NULL kenmerk_type,
             mld_kenmerk_niveau kenmerk_niveau,
             mld_kenmerk_verplicht kenmerk_verplicht,
+            mld_kenmerk_groep kenmerk_groep,
             mld_kenmerk_volgnummer kenmerk_volgnummer,
             mld_kenmerk_default kenmerk_default,
             mld_kenmerk_toonbaar kenmerk_toonbaar,
@@ -2035,6 +2067,48 @@ AS
                       AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
                       AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key);
 
+CREATE_VIEW(fac_v_exp_flex_cnt, 0)
+AS
+   SELECT   fac_kenmerkdomein_omschrijving,
+            fac_kenmerkdomein_objectnaam,
+            fac_kenmerkdomein_kolomnaam,
+            fac_kenmerkdomein_kolomtxt,
+            fac_usrtab_naam,
+            kms.cnt_srtkenmerk_omschrijving srtkenmerk_omschrijving,
+            kms.cnt_srtkenmerk_kenmerktype srtkenmerk_kenmerktype,
+            kms.cnt_srtkenmerk_systeem srtkenmerk_systeem,
+            kms.cnt_srtkenmerk_lengte srtkenmerk_lengte,
+            kms.cnt_srtkenmerk_dec srtkenmerk_dec,
+            kms.cnt_srtkenmerk_nmin srtkenmerk_nmin,
+            kms.cnt_srtkenmerk_nmax srtkenmerk_nmax,
+            kms.cnt_srtkenmerk_dimensie srtkenmerk_dimensie,
+            NULL kenmerk_type,
+            km.cnt_kenmerk_niveau kenmerk_niveau,
+            km.cnt_kenmerk_verplicht kenmerk_verplicht,
+            km.cnt_kenmerk_groep kenmerk_groep,
+            km.cnt_kenmerk_volgnummer kenmerk_volgnummer,
+            km.cnt_kenmerk_default kenmerk_default,
+            km.cnt_kenmerk_toonbaar kenmerk_toonbaar,
+            km.cnt_kenmerk_uniek kenmerk_uniek,
+            km.cnt_kenmerk_hint kenmerk_hint,
+            km.cnt_kenmerk_regexp kenmerk_regexp,
+            TO_CHAR (km.cnt_kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS')
+               kenmerk_verwijder,
+            cd.ins_discipline_omschrijving fclt_f_contractsoort
+     FROM   cnt_kenmerk km,
+            cnt_srtkenmerk kms,
+            fac_kenmerkdomein kmd,
+            fac_usrtab fut,
+            cnt_discipline cd
+    WHERE       km.cnt_srtkenmerk_key = kms.cnt_srtkenmerk_key
+            AND kms.fac_kenmerkdomein_key = kmd.fac_kenmerkdomein_key(+)
+            AND kmd.fac_usrtab_key = fut.fac_usrtab_key(+)
+            AND km.cnt_srtcontract_key = cd.ins_discipline_key
+            AND km.cnt_kenmerk_verwijder IS NULL
+            AND kms.cnt_srtkenmerk_verwijder IS NULL
+            AND kmd.fac_kenmerkdomein_verwijder IS NULL
+            AND cd.ins_discipline_verwijder IS NULL;
+
 -- 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,
@@ -2067,4 +2141,57 @@ SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
        AND fac_locale_xsl_lang = 'NL'
        AND fac_locale_xsl_module = 'ASP';
 
-REGISTERRUN('$Workfile: FAC_VIE.SRC $','$Revision$')
+-- 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;
+
+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=16
-NEXTVERSION=17
-FILEVERSION=
-NEXTCAREVERSION=19
+CURRENTVERSION=25
+NEXTVERSION=26
+FILEVERSION=C
+NEXTCAREVERSION=28
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -87,7 +87,7 @@ EXE=$(PROJEXE)
 
 PRECOMP=$(MAKTOOLS)\CL
 WRAP1=$(MAKTOOLS)\WRAP10.EXE
-PRECOMP_OPTIONS=/EP /D_VER=$(CURRENTUPDATE) /D_DBV=$(NEXTVERSION)
+PRECOMP_OPTIONS=/EP /D_VER=$(CURRENTUPDATE)$(FILEVERSION) /D_DBV=$(NEXTVERSION)$(FILEVERSION)
 CLEANUP1=$(MAKTOOLS)\sedclean.bat
 
 ##
@@ -119,6 +119,7 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\ins\inssql.h      \
       $(MSRC)\alg\alg_ind.src   \
       $(MSRC)\alg\alg_ini.src   \
+      $(MSRC)\alg\alg_pac.src   \
       $(MSRC)\alg\alg_seq.src   \
       $(MSRC)\alg\alg_tab.src   \
       $(MSRC)\alg\alg_tri.src   \
@@ -155,6 +156,7 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(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  \
@@ -171,12 +173,20 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(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   \
       $(MSRC)\mld\mld_pac.src   \
       $(MSRC)\mld\mld_seq.src   \
       $(MSRC)\mld\mld_tab.src   \
+      $(MSRC)\mld\mld_typ.src   \
       $(MSRC)\mld\mld_tri.src   \
       $(MSRC)\mld\mld_vie.src   \
       $(MSRC)\mrk\mrk_ind.src   \
@@ -229,10 +239,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
 ##########################################################################
@@ -244,6 +259,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
@@ -255,6 +271,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
@@ -274,7 +291,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
 
@@ -284,6 +302,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,7 +1,7 @@
--- [CREA*.SQL]
+-- [FCLT*.SQL]
 --
--- Script tbv het aanmaken van de FACILITOR omgeving in Oracle
--- Copyright 1996-2012 SG|facilitor bv.
+-- Script to initialise a FACILITOR database schema in Oracle
+-- Copyright 1996-2015 Facilitor bv, the Netherlands.
 -- All rights reserved!
 /*
  * $Revision$
@@ -15,9 +15,8 @@ SET HEADING OFF
 SET FEEDBACK OFF
 SET ECHO OFF
 
-#define _MKVER(a) STRINGIZE(a)
 column fcltlogfile new_value fcltlogfile NOPRINT;
-select 'FACILITOR'||_MKVER(_DBV) || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
+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;
 spool &fcltlogfile
 
 WHENEVER SQLERROR EXIT;
@@ -45,19 +44,21 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2012 SG|facilitor bv. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2015 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
 PROMPT
-PROMPT Dit is de gegenereerde list-file van FCLTnnn.sql welke
-PROMPT is gebruikt om de FACILITOR(r) _VERSION omgeving in Oracle aan te
-PROMPT maken.
+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
 
-SET LINESIZE 500
+SET LINESIZE 1000
 SET DEFINE OFF
 SET ECHO ON
 #include "adm\adm_tab.src"
 #include "adm\adm_pac.src"
 
+/* TYPES */
+#include "mld\mld_typ.src"
+
 /* TABLES */
 #include "fac\fac_tab.src"
 #include "alg\alg_tab.src"
@@ -74,6 +75,7 @@ SET ECHO ON
 #include "fin\fin_tab.src"
 #include "prj\prj_tab.src"
 #include "msg\msg_tab.src"
+#include "kpi\kpi_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
@@ -91,6 +93,7 @@ SET ECHO ON
 #include "fin\fin_seq.src"
 #include "prj\prj_seq.src"
 #include "msg\msg_seq.src"
+#include "kpi\kpi_seq.src"
 
 /* INDICES */
 #include "fac\fac_ind.src"
@@ -108,6 +111,7 @@ SET ECHO ON
 #include "fin\fin_ind.src"
 #include "prj\prj_ind.src"
 #include "msg\msg_ind.src"
+#include "kpi\kpi_ind.src"
 
 /* VIEWS, PACKAGES, TRIGGERS and LOCALES */
 #include "_up/recreate.inc"
@@ -128,28 +132,32 @@ SET ECHO ON
 #include "fin\fin_ini.src"
 #include "prj\prj_ini.src"
 #include "msg\msg_ini.src"
+#include "kpi\kpi_ini.src"
 
 COMMIT;
 
 ///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
 /
-BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV, 'NL'); END;
+BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, 'NL'); END;
 /
-REGISTERONCE('$Workfile: FCLT.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 COMMIT;
-///////////////////////////// Report invalid objects, if any ///////
+/* Report invalid objects, if any */
 SET ECHO OFF
-SET LINESIZE 80
-PROMPT List of all invalid objects after FACILITOR creation:
-SELECT 'OR'||'A-'||'DB'||TO_CHAR(_DBV)||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
+SET LINESIZE 132
+PROMPT List of all invalid objects after FACILITOR initialisation:
+SELECT 'OR'||'A-'||'DB'|| _DBV_STRING ||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
   FROM user_objects
 WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
 AND status <> 'VALID'
 ORDER BY object_name;
 
-SELECT 'FACILITOR/' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
-PROMPT Schema initialisatie is gereed, controleer de LST-files.
-PROMPT Neem bij vragen, twijfels of problemen contact op met FACILITOR.
+PROMPT ======================================================================
+SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
+PROMPT
+PROMPT Your schema initialisation is ready. Please check the logfile for errors.
+PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
+PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
 SPOOL OFF

FIN/FIN_IND.SRC

@@ -7,7 +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_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('$Workfile: fin_ind.src $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // FIN

FIN/FIN_INI.SRC

@@ -14,8 +14,8 @@ DEF_STATUS('factuur', 7, 'lcl_fin_verwerkt');
 INSERT INTO fin_btwtabel (fin_btwtabel_key, fin_btwtabel_omschrijving, fin_btwtabel_default) VALUES (1, 'NL standaard', 1);
 INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(1, 1, '0', 'Nul', 0);
 INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(2, 1, 'L', 'Laag', 6);
-INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(3, 1, 'H', 'Hoog', 19);
+INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(3, 1, 'H', 'Hoog', 21);
 
-REGISTERONCE('$Workfile: fin_ini.src $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // FIN

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
@@ -291,8 +306,10 @@ AS
       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;
    -- Bepaal te tolerantie van de vakgroep
    -- waarschijnlijk in procenten of zo?
    -- of geven we de factuurwaarde mee en leveren we true/false op?
@@ -358,6 +375,16 @@ AS
 
             factmatchmode := fin.getfactmatchmode (discipline, 'B');
 
+            -- Zijn de bestelbedragen incl. of excl. 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,
+                   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
             -- Voor bestellingen nemen we de INKOOPPRIJS (het is immers een factuur die wij ontvangen)
             -- Maar als die niet gevuld is (ook bv bij punchout), dan de enige andere prijs die we weten
@@ -365,38 +392,43 @@ AS
             CASE
                WHEN factmatchmode = 2
                THEN
-                  SELECT   SUM (boi.bes_bestelopdr_item_aantal * COALESCE(boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
-                           MAX (COALESCE (bo.bes_bestelopdr_korting, 0)),
-                           MAX (COALESCE (bo.bes_bestelopdr_levkosten, 0))
-                    INTO   bestelbedrag, korting, levkosten
-                    FROM   bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
-                   WHERE       boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
-                           AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
-                           AND bo.bes_bestelopdr_status NOT IN (1,3,8)     -- als die maar niet afgewezen/geannuleerd is
-                           AND boi.bes_bestelopdr_key = b_key;
+                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
+                         MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
+                         MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
+                    INTO bestelbedrag, korting, levkosten
+                    FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
+                   WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
+                         AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                         AND bo.bes_bestelopdr_status NOT IN (1, 3, 8) -- als die maar niet afgewezen/geannuleerd is
+                         AND boi.bes_bestelopdr_key = b_key;
                WHEN factmatchmode = 3
                THEN
-                  SELECT   SUM (boi.bes_bestelopdr_item_aantal * COALESCE(boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
-                           MAX (COALESCE (bo.bes_bestelopdr_korting, 0)),
-                           MAX (COALESCE (bo.bes_bestelopdr_levkosten, 0))
-                    INTO   bestelbedrag, korting, levkosten
-                    FROM   bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
-                   WHERE       boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
-                           AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
-                           AND boi.bes_bestelopdr_item_status IN (6, 7)          -- alleen de geleverde regels meetellen
-                           AND boi.bes_bestelopdr_key = b_key;
+                  SELECT SUM(boi.bes_bestelopdr_item_aantal * COALESCE (boi.bes_bestelopdr_item_inkprijs, boi.bes_bestelopdr_item_prijs)),
+                         MAX(COALESCE (bo.bes_bestelopdr_korting, 0)),
+                         MAX(COALESCE (bo.bes_bestelopdr_levkosten, 0))
+                    INTO bestelbedrag, korting, levkosten
+                    FROM bes_bestelopdr_item boi, bes_bestelling_item bbi, bes_bestelopdr bo
+                   WHERE boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
+                         AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                         AND boi.bes_bestelopdr_item_status IN (6, 7) -- alleen de geleverde regels meetellen
+                         AND boi.bes_bestelopdr_key = b_key;
             END CASE;
 
-            bestelbedrag := bestelbedrag - korting + levkosten;
+            bestelbedrag := bestelbedrag - korting + levkosten;                                           -- Bedragen zijn excl. BTW?
 
-            SELECT   SUM (fin_factuur_totaal)                                                             -- is excl BTW
-              INTO   totaalgefactureerd
+            SELECT   SUM (fin_factuur_totaal), SUM(fin_factuur_totaal_btw)
+              INTO   totaalgefactureerd, totaalgefactureerdbtw
               FROM   fin_factuur
              WHERE   bes_bestelopdr_key = b_key
                AND   fin_factuur_statuses_key <> 1
                AND   fin_factuur_verwijder IS NULL
                AND   fin_factuur_datum <= factuurdatum;
 
+            IF inclbtw = 1 -- Artikelen zijn al inclusief, dan ook maar factuur inclusief matchen
+            THEN
+                totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
+            END IF;
+
             IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, bestelbedrag) = 1
             THEN
                retval := 1;
@@ -422,13 +454,10 @@ AS
                   RETURN -1;
             END;
 
-            IF contracttermijnkosten IS NULL OR contractkosten IS NULL
-            THEN
-               retval := 0;
-            END IF;
+            -- 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)
+            SELECT   SUM (fin_factuur_totaal) -- Excl. BTW
               INTO   totaalgefactureerd
               FROM   fin_factuur
              WHERE   cnt_contract_key = c_key
@@ -436,7 +465,7 @@ AS
                AND   fin_factuur_verwijder IS NULL
                AND   fin_factuur_datum <= factuurdatum;
 
-            IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, contractkosten) = 1
+            IF totaalgefactureerd <= contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
                AND fin.tolerantiematch (discipline, ftype, factuurbedrag, contracttermijnkosten) = 1
             THEN
                retval := 1;
@@ -456,12 +485,13 @@ AS
                 WHERE       o.mld_melding_key = m.mld_melding_key
                         AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                         AND o.mld_typeopdr_key = top.mld_typeopdr_key
+                        AND top.mld_typeopdr_kosten = 1                                          -- daar mag een factuur bij
                         AND mld_statusopdr_key NOT IN (1, 2, 3, 10)                   -- dat zijn (nog) ongeldige opdrachten
                         AND mld_opdr_key = o_key;
             EXCEPTION
                WHEN NO_DATA_FOUND
                THEN
-                  DBMS_OUTPUT.put_line ('Bijbehorende opdracht(status?) is ongeldig: ' || o_key);
+                  DBMS_OUTPUT.put_line ('Bijbehorende opdracht(status/kosten?) is ongeldig: ' || o_key);
                   RETURN -1;
             END;
 
@@ -477,47 +507,15 @@ AS
                RETURN -1;
             END IF;
 
-            --IF opdrachtkosten IS NULL                                                              -- niks van te zeggen
-            --THEN
-            -- vroeger: RETURN 0;
-            -- als er een factuurgrens is, maakt het niet uit wat de opdracht was
-            --END IF;
-            IF matchtype = 0                                                                       -- bedrag altijd goed
+            IF matchtype = 3
             THEN
-               retval := 1;
-            ELSIF matchtype = 4                                               -- 4 er mag geen factuur bij deze opdracht
-            THEN
-               retval := 0;
-            ELSIF matchtype = 1                                                   -- 1 factuur moet matchen met opdracht
-            THEN
-               IF fin.tolerantiematch (discipline, ftype, factuurbedrag, opdrachtkosten) = 1
-               THEN
-                  retval := 1;
-               ELSE
-                  retval := -1;
-               END IF;
-            ELSIF matchtype = 2                                                                      -- 2 termijnfactuur
-            THEN
-               SELECT   SUM (fin_factuur_totaal)
-                 INTO   totaalgefactureerd
-                 FROM   fin_factuur
-                WHERE   mld_opdr_key = o_key
-                  AND   fin_factuur_statuses_key <> 1
-                  AND   fin_factuur_verwijder IS NULL
-                  AND   fin_factuur_datum <= factuurdatum;
-
-               IF fin.tolerantiematch (discipline, ftype, totaalgefactureerd, opdrachtkosten) = 1
-               THEN
-                  retval := 1;
-               ELSE
-                  retval := -1;
-               END IF;
-            ELSE                                                                              --IF matchtype = 3    THEN
                DBMS_OUTPUT.put_line ('matchtype unsupported yet!');
                RETURN 0;
             END IF;
 
-            SELECT   SUM (fin_factuur_totaal)
+            -- LET OP: opdrachtbedragen worden altijd excl. BTW. verondersteld
+
+            SELECT   SUM (fin_factuur_totaal) -- Excl. BTW
               INTO   totaalgefactureerd
               FROM   fin_factuur
              WHERE   mld_opdr_key = o_key
@@ -545,7 +543,12 @@ AS
       CASE fin.matchfactuur (pfactuur_key)
          WHEN 1
          THEN
-            fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            IF fac.getsetting('fin_enable_goedkeuren') = 1
+            THEN
+               fin.setfactuurstatus (pfactuur_key, 5, NULL);
+            ELSE
+               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            END IF;
          WHEN -1
          THEN
             IF prejecttoo
@@ -775,7 +778,7 @@ AS
            INTO   lperc, lverlegd
            FROM   fin_btwtabelwaarde
           WHERE   fin_btwtabelwaarde_key = pbtwtabelwaardekey;
-         
+
          IF lverlegd = 1 THEN
             lbtwbedrag := 0;
          ELSE
@@ -835,9 +838,24 @@ 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;
 /
 
-REGISTERRUN('$Workfile: fin_pac.src $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // FIN

FIN/FIN_SEQ.SRC

@@ -6,13 +6,16 @@
 CREATE SEQUENCE fin_s_fin_factuur_key MINVALUE 1 NOCACHE;
 CREATE SEQUENCE fin_s_fin_factuurregel_key MINVALUE 1;
 CREATE SEQUENCE fin_s_fin_kenmerk_key MINVALUE 1;
-CREATE SEQUENCE fin_s_fin_kenmerkfactuur_key MINVALUE 1;
+CREATE SEQUENCE fin_s_fin_kenmerkfactuur_key MINVALUE 2; /* 1/-1 wordt nu gebruikt voor nieuwe factuurregel (fin_edit_factuur.js) */
+CREATE SEQUENCE fin_s_fin_kenmerkfactregel_key MINVALUE 1;
 
 CREATE SEQUENCE fin_s_fin_btwtabel_key MINVALUE 2;  /* 1 wordt gebruikt in de fin_ini */
 CREATE SEQUENCE fin_s_fin_btwtabelwaarde_key MINVALUE 4; /* eerste 3 standaard gevuld */
 
 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('$Workfile: FIN_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // FIN

FIN/FIN_TAB.SRC

@@ -82,6 +82,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,7 +99,7 @@ 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_verwijder
     DATE
@@ -141,10 +144,14 @@ CREATE_TABLE(fin_kenmerk,0)
         CONSTRAINT fin_k_fin_kenmerk_key PRIMARY KEY
     ,fin_kenmerk_volgnr
         NUMBER(3)
+        NOT NULL
     ,fin_kenmerk_omschrijving
         VARCHAR2(50)
     ,fin_kenmerk_upper
         VARCHAR2(50)
+    ,fin_kenmerk_type  -- Factuur of factuurRegel
+      VARCHAR2(1)
+      CONSTRAINT fin_c_fin_kenmerk_type CHECK (fin_kenmerk_type is not null and (fin_kenmerk_type IN( 'F', 'R')))
     ,fin_kenmerk_hint
         VARCHAR2(255)
     ,fin_kenmerk_default
@@ -164,6 +171,9 @@ CREATE_TABLE(fin_kenmerk,0)
        VARCHAR2(255)
     ,fin_kenmerk_verplicht
         NUMBER(1)
+    ,fin_kenmerk_groep
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,fin_kenmerk_lengte
         NUMBER(4)
     ,fin_kenmerk_dec
@@ -205,6 +215,28 @@ CREATE_TABLE(fin_kenmerkfactuur,0)
     CONSTRAINT fin_u_fin_kenmerkfactuur_key UNIQUE(fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_verwijder)
 );
 
+CREATE_TABLE(fin_kenmerkfactregel,0)
+    (fin_kenmerkfactregel_key
+        NUMBER(10)
+        CONSTRAINT fin_k_kenmerkfactregel_key PRIMARY KEY
+    ,fin_factuurregel_key
+        NUMBER(10)
+        CONSTRAINT fin_r_fin_factuurregel_key REFERENCES fin_factuurregel(fin_factuurregel_key)
+    ,fin_kenmerk_key
+        NUMBER(10)
+        CONSTRAINT fin_r_fin_kenmerk_key2 REFERENCES fin_kenmerk(fin_kenmerk_key)
+    ,fin_kenmerkfactregel_waarde
+        VARCHAR2(4000)
+    ,fin_kenmerkfactregel_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        NOT_NULL(fin_kenmerkfactregel_aanmaak, fin_c_kenmerkfactregel_aanm)
+    ,fin_kenmerkfactregel_verwijder
+        DATE
+        DEFAULT NULLDATUM,
+    CONSTRAINT fin_u_kenmerkfactregel_key UNIQUE(fin_factuurregel_key, fin_kenmerk_key, fin_kenmerkfactregel_verwijder)
+);
+
 CREATE_TABLE(fin_factuur_note, 0)
 (
    fin_factuur_note_key             NUMBER (10) PRIMARY KEY,
@@ -214,7 +246,73 @@ CREATE_TABLE(fin_factuur_note, 0)
    fin_factuur_note_omschrijving    VARCHAR2 (4000 CHAR)
 );
 
+// 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)
+);
 
-REGISTERONCE('$Workfile: FIN_TAB.SRC $','$Revision$')
+// 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) 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       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),
+    prs_kostenplaatsgrp_oms         VARCHAR2(60),
+    prs_kostensoort_oms             VARCHAR2(60),
+    prs_kostensoort_opmerking       VARCHAR2(255),
+    prs_kostensoort_refcode         VARCHAR2(60),
+    prs_bedrijf_key                 NUMBER(10),
+    prs_debiteur_naam               VARCHAR2(60),   /* kan prs_bedrijf_naam zijn maar hoeft niet */
+    prs_kostensoortgrp_oms          VARCHAR2(60),
+    fin_verkoopfactuur_bedrag       NUMBER(12,2),
+    fin_verkoopfactuur_btw          NUMBER(12,2),
+    fin_btwtabelwaarde_code         VARCHAR2(10),
+    fin_btwtabelwaarde_oms          VARCHAR2(30),
+    fin_btwtabelwaarde_perc         NUMBER(5,3),
+    fin_btwtabelwaarde_verlegd      NUMBER(1),
+    fin_verkoopfactuur_maand        VARCHAR2(6),    /* boekmaand, bv 201409 */
+    fin_verkoopfactuur_n1           NUMBER(14,4),
+    fin_verkoopfactuur_n2           NUMBER(14,4),
+    fin_verkoopfactuur_n3           NUMBER(14,4),
+    fin_verkoopfactuur_n4           NUMBER(14,4),
+    fin_verkoopfactuur_n5           NUMBER(14,4),
+    fin_verkoopfactuur_c1           VARCHAR2(200),
+    fin_verkoopfactuur_c2           VARCHAR2(200),
+    fin_verkoopfactuur_c3           VARCHAR2(200),
+    fin_verkoopfactuur_c4           VARCHAR2(200),
+    fin_verkoopfactuur_c5           VARCHAR2(200),
+    fin_verkoopfactuur_c6           VARCHAR2(500),
+    fin_verkoopfactuur_c7           VARCHAR2(1000),
+    fin_verkoopfactuur_c8           VARCHAR2(4000),
+    fin_verkoopfactuur_d1           DATE,
+    fin_verkoopfactuur_d2           DATE,
+    fin_verkoopfactuur_d3           DATE,
+    fin_verkoopfactuur_d4           DATE,
+    fin_verkoopfactuur_d5           DATE
+);
+
+REGISTERONCE('$Id$')
 
 #endif // FIN

FIN/FIN_TRI.SRC

@@ -40,7 +40,7 @@ BEGIN
          KenmerkDec      fin_kenmerk.fin_kenmerk_dec%TYPE;
          KenmerkNMin     fin_kenmerk.fin_kenmerk_nmin%TYPE;
          KenmerkNMax     fin_kenmerk.fin_kenmerk_nmax%TYPE;
-         NumberWaarde    NUMBER(15,5);
+         NumberWaarde    NUMBER(25,5);
          FormatMask      VARCHAR2(60);
          KenmerkWaarde   fin_kenmerkfactuur.fin_kenmerkfactuur_waarde%TYPE;
       BEGIN
@@ -156,6 +156,141 @@ BEGIN
    END IF;
 END;
 /
+CREATE_TRIGGER(fin_t_fin_kenmerkfacreg_b_iu)
+BEFORE INSERT OR UPDATE ON fin_kenmerkfactregel
+FOR EACH ROW
+BEGIN
+   UPDATE_AANMAAKDATUM(fin_kenmerkfactregel, fin_kenmerkfactregel_aanmaak);
+   /*
+   ** Controleer eerst of de ingevulde waarde goed is.
+   */
+   IF :new.fin_kenmerkfactregel_waarde <> :old.fin_kenmerkfactregel_waarde
+   OR :old.fin_kenmerkfactregel_waarde IS NULL
+   OR :new.fin_kenmerkfactregel_waarde IS NULL
+   THEN
+      DECLARE
+         KenmerkOmschr   fin_kenmerk.fin_kenmerk_omschrijving%TYPE;
+         KenmerkType     fin_kenmerk.fin_kenmerk_kenmerktype%TYPE;
+         KenmerkLengte   fin_kenmerk.fin_kenmerk_lengte%TYPE;
+         KenmerkDec      fin_kenmerk.fin_kenmerk_dec%TYPE;
+         KenmerkNMin     fin_kenmerk.fin_kenmerk_nmin%TYPE;
+         KenmerkNMax     fin_kenmerk.fin_kenmerk_nmax%TYPE;
+         NumberWaarde    NUMBER(25,5);
+         FormatMask      VARCHAR2(60);
+         KenmerkWaarde   fin_kenmerkfactregel.fin_kenmerkfactregel_waarde%TYPE;
+      BEGIN
+         KenmerkWaarde := :new.fin_kenmerkfactregel_waarde;
+         BEGIN
+            DECLARE
+               dummy VARCHAR2(1);
+            BEGIN
+            SELECT fin_kenmerk_omschrijving
+            ,      fin_kenmerk_kenmerktype
+            ,      fin_kenmerk_lengte
+            ,      fin_kenmerk_dec
+            ,      fin_kenmerk_nmin
+            ,      fin_kenmerk_nmax
+            INTO   KenmerkOmschr
+            ,      KenmerkType
+            ,      KenmerkLengte
+            ,      KenmerkDec
+            ,      KenmerkNMin
+            ,      KenmerkNMax
+            FROM   fin_kenmerk
+            WHERE  fin_kenmerk_key = :new.fin_kenmerk_key;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+         END;
+
+         /* Kijk welk KenmerkType gebruikt wordt.
+         ** Aan de hand daarvan moet een controle uitgevoerd worden.
+         **/
+         IF   KenmerkType = 'C'
+         /*
+         ** Char
+         */
+         THEN
+            /*
+            ** Controleer of de lengte te groot of goed is
+            */
+            IF LENGTH(KenmerkWaarde) > KenmerkLengte
+            THEN
+               APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
+                                                    || TO_CHAR(KenmerkLengte));
+            END IF;
+         ELSIF KenmerkType = 'N'
+         /*
+         ** Number
+         */
+         THEN
+            /*
+            ** Controleer of er een numerieke waarde ingevuld is
+            */
+            IF KenmerkDec IS NULL OR KenmerkDec = 0
+            THEN
+               FormatMask := RPAD('9', KenmerkLengte, '9');
+            ELSE
+               FormatMask := RPAD('9', KenmerkLengte - KenmerkDec, '9')
+                                ||'D'||RPAD('9', KenmerkDec, '9');
+            END IF;
+            /*
+            ** Controleer of er een numerieke waarde ingevuld is
+            */
+            BEGIN
+               NumberWaarde := TO_NUMBER(KenmerkWaarde);
+            EXCEPTION
+               WHEN OTHERS
+               THEN FormatMask := REPLACE(FormatMask, '9', '#');
+                    FormatMask := REPLACE(FormatMask, '0', '#');
+                    FormatMask := REPLACE(FormatMask, 'D', '.');
+                    RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                                                              || FormatMask);
+            END;
+            /*
+            ** Controleer of de waarde binnen NMin en NMax ligt
+            */
+            IF (   (KenmerkNMin IS NOT NULL AND NumberWaarde < KenmerkNMin)
+                OR (KenmerkNMax IS NOT NULL AND NumberWaarde > KenmerkNMax))
+            THEN
+               APPLICATION_ERROR_GOTO(-20004, 'fin_M234,'|| KenmerkOmschr       ||','
+                                                    || TO_CHAR(KenmerkNMin)||','
+                                                    || TO_CHAR(KenmerkNMax));
+            ELSE
+               /*
+               **  Controleer of de waarde aan het formaat voldoet
+               */
+               KenmerkWaarde := LTRIM(NUMBER_TO_CHAR(NumberWaarde, FormatMask));
+               IF INSTR2(KenmerkWaarde, '#') <> 0
+               THEN
+                  FormatMask := REPLACE(FormatMask, '9', '#');
+                  FormatMask := REPLACE(FormatMask, '0', '#');
+                  FormatMask := REPLACE(FormatMask, 'D', '.');
+                  APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                                                      || FormatMask);
+               END IF;
+            END IF;
+            /*
+            ** Zet de geconverteerde waarde terug
+            */
+            :new.fin_kenmerkfactregel_waarde := KenmerkWaarde;
+         ELSIF KenmerkType = 'D'
+         /*
+         ** Datum
+         */
+         THEN
+            KenmerkWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkWaarde,'DD-MM-YY'),'DD-MM-YYYY');
+            /*
+            ** Zet de geconverteerde waarde terug
+            */
+            :new.fin_kenmerkfactregel_waarde := KenmerkWaarde;
+         END IF;
+      END;
+    END;
+    UPDATE_PRIMARY_KEY(fin_kenmerkfactregel_key, fin_s_fin_kenmerkfactregel_key);
+   END IF;
+END;
+/
 CREATE_TRIGGER(fin_t_fin_kenmerk_b_iu)
 BEFORE INSERT OR UPDATE ON fin_kenmerk
 FOR EACH ROW
@@ -171,6 +306,12 @@ BEGIN
    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
+   THEN
+      :new.fin_kenmerk_lengte := 20;
    END IF;
    IF :new.fin_kenmerk_kenmerktype = 'N' AND :old.fin_kenmerk_key IS NOT NULL
    THEN
@@ -250,6 +391,22 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: FIN_TRI.SRC $','$Revision$')
+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
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuur_key, fin_s_fin_verkoopfactuur_key);
+END;
+/
+
+REGISTERRUN('$Id$')
 
 #endif // FIN

FIN/FIN_VIE.SRC

@@ -36,7 +36,7 @@ CREATE_VIEW(fac_v_noti_finreminder,0)
 AS
      SELECT   'FININF',
               '',
-              prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), 2, -1) budgethouder,
+              prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1) budgethouder,
                  'Fiatteringsverzoek voor '
               || COUNT (f.fin_factuur_key)
               || DECODE (COUNT (f.fin_factuur_key), 1, ' factuur.', ' facturen.'),
@@ -45,10 +45,145 @@ AS
               NULL,
               NULL
        FROM   fin_factuur f
-      WHERE   f.fin_factuur_statuses_key = 2
+      WHERE   prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1) <> -1  -- die kan ik geen bericht sturen
+        AND   f.fin_factuur_statuses_key = 2
         AND   f.fin_factuur_verwijder IS NULL
-   GROUP BY   prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), 2, -1);
+   GROUP BY   prs.getkpverantwoordelijke (fin.getfactuurkostenplaats (f.fin_factuur_key), fac.getSetting('prs_approvemethod'), -1);
 
-REGISTERRUN('$Workfile: fin_vie.src $','$Revision$')
+-- 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;
+
+REGISTERRUN('$Id$')
 #endif // FIN

INS/INS_IND.SRC

@@ -37,6 +37,8 @@ CREATE INDEX ins_i_ins_deelkoppeling3 ON ins_deelkoppeling (ins_deelkoppeling_na
 
 CREATE UNIQUE INDEX ins_i_ins_disc_params1 ON ins_disc_params(ins_discipline_key);
 
-REGISTERONCE('$Workfile: INS_IND.SRC $','$Revision$')
+CREATE UNIQUE INDEX ins_i_ins_deel_state_hist1 ON ins_deel_state_history(ins_deel_key, ins_deel_statedate);
+
+REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_INI.SRC

@@ -9,16 +9,12 @@ _FAC_MODULE('SLE','Sleutelbeheer')
 
 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',
@@ -28,6 +24,6 @@ INSERT INTO fac_usrrap
             );
 
 
-REGISTERONCE('$Workfile: INS_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // INS

INS/INS_PAC.SRC

@@ -6,7 +6,7 @@
 
 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, PrefixKey IN NUMBER) RETURN VARCHAR2;
+    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;
 END ins;
 /
@@ -28,33 +28,32 @@ CREATE OR REPLACE PACKAGE BODY ins AS
     -- Was: FAC_F_FAC_GET_DESCRIPTION
     FUNCTION get_description(LPNName   IN VARCHAR2
                             ,CondKey   IN NUMBER
-                            ,Prefix    IN VARCHAR2
-                            ,PrefixKey IN NUMBER) RETURN VARCHAR2 IS
+                            ,Prefix    IN VARCHAR2) RETURN VARCHAR2 IS
       NextVolgNr    VARCHAR2(30);
       DeelUpper     ins_deel.ins_deel_omschrijving%TYPE;
       ReturnString  VARCHAR2(30);
     BEGIN
-      -- From 4.40 on, CondKey is dummy for ins_deel (object/subobject): uniqueness is assumed over the entire database
+      -- From 4.40 on, CondKey is dummy for ins_deel (object): uniqueness is assumed over the entire database
+      -- From DB23 on, object uniqueness is forced by prefix only, last parameter PrefixKey was dropped
       IF LPNName = 'LPN_INS_DEEL'
       THEN
         SELECT NVL(LPAD( TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))))+1) , MAX(LENGTH(ins_deel_upper)-LENGTH(Prefix)),'0'),'001')
-            INTO NextVolgNr
-        FROM INS_DEEL
-        WHERE ins_deel_upper LIKE Prefix||'%'
-        AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
-        AND LTRIM(SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1), '0') = TO_CHAR(fac.safe_to_integer ((SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1))))
-        AND ins_deel_parent_key IS NULL
-        AND ins_deel_verwijder IS NULL
-        AND ins_srtdeel_key = PrefixKey;
+          INTO NextVolgNr
+          FROM ins_deel
+         WHERE ins_deel_upper LIKE Prefix||'%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
+           AND LTRIM(SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1), '0') = TO_CHAR(fac.safe_to_integer ((SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1))))
+           AND ins_deel_parent_key IS NULL
+           AND ins_deel_verwijder IS NULL;
       ELSIF LPNName = 'LPN_INS_ONDERDEEL'
       THEN
         SELECT NVL(LPAD( TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))))+1) , MAX(LENGTH(ins_deel_upper)-LENGTH(Prefix)),'0'),'001')
-            INTO NextVolgNr
-        FROM INS_DEEL
-        WHERE ins_deel_upper LIKE Prefix||'%'
-        AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
-        AND ins_deel_parent_key = CondKey
-        AND ins_deel_verwijder IS NULL;
+          INTO NextVolgNr
+          FROM INS_DEEL
+         WHERE ins_deel_upper LIKE Prefix||'%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
+           AND ins_deel_parent_key = CondKey
+           AND ins_deel_verwijder IS NULL;
       ELSIF LPNName = 'LPN_ALG_TERREINSECTOR'
       THEN
         FOR i IN 3..10
@@ -142,8 +141,7 @@ CREATE OR REPLACE PACKAGE BODY ins AS
           SELECT TO_CHAR(NVL(MAX(prs_werkplek_volgnr),0) +1)
           INTO   NextVolgNr
           FROM   prs_werkplek
-          WHERE  prs_alg_ruimte_key = CondKey
-          AND    prs_werkplek_verwijder IS NULL;
+          WHERE  prs_alg_ruimte_key = CondKey;
         EXCEPTION
           WHEN NO_DATA_FOUND
           THEN NextVolgNr := '1';
@@ -193,6 +191,6 @@ END ins;
 
 
 
-REGISTERRUN('$Workfile: INS_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif  // INS

INS/INS_SEQ.SRC

@@ -21,15 +21,19 @@ CREATE SEQUENCE ins_s_ins_kenmerkdeel_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_deelkoppeling_key MINVALUE 1;
 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_srtcontrole_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_controlemode_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_deelsrtcontrole_key MINVALUE 1;
+CREATE SEQUENCE ins_s_srtcontroledl_xcp_key MINVALUE 1;
+CREATE SEQUENCE ins_s_ins_kmdeelsrtcontr_key MINVALUE 1;
 
 CREATE SEQUENCE ins_s_ins_srtdeel_srtdeel_key MINVALUE 1;
 
 CREATE SEQUENCE ins_s_ins_disc_params_key START WITH 1 NOCACHE;
 
-REGISTERONCE('$Workfile: INS_SEQ.SRC $','$Revision$')
+
+REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_TAB.SRC

@@ -19,11 +19,12 @@ CREATE_TABLE(ins_srtdiscipline,0)
         VARCHAR(2000 CHAR),
     ins_srtdiscipline_prefix
         VARCHAR2(3),
-    ins_srtdiscipline_kostenklant
-        NUMBER(1),
+    ins_srtdiscipline_kostenklant  /* 0 = uit, 1 = aan, 2 = niet tonen */
+        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)),
@@ -50,7 +51,8 @@ CREATE_TABLE(ins_srtdiscipline,0)
         DATE
         DEFAULT NULLDATUM,
     CONSTRAINT ins_u_ins_srtdisc_omschr UNIQUE (ins_srtdiscipline_omschrijving,
-                                                   ins_srtdiscipline_module)
+                                                ins_srtdiscipline_verwijder,
+                                                ins_srtdiscipline_module)
 );
 
 
@@ -137,13 +139,6 @@ ALTER TABLE fac_import_app ADD
         REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
 );
 
-ALTER TABLE fac_faq ADD
-(
-    ins_discipline_key
-        NUMBER(10)
-        CONSTRAINT fac_r_mld_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key)
-);
-
 CREATE_TABLE(ins_srtgroep,0)
 (
     ins_srtgroep_key
@@ -303,7 +298,6 @@ CREATE_TABLE(ins_deel,0)
     ins_deel_aantal
         NUMBER(6)
         DEFAULT 1
-       /* NOT_NULL(ins_deel_aantal, ins_c_ins_deel_aantal1) */
         CONSTRAINT ins_c_ins_deel_aantal2 CHECK
           (ins_deel_aantal is not null and ins_deel_aantal > 0),
     ins_deel_omschrijving
@@ -327,13 +321,10 @@ CREATE_TABLE(ins_deel,0)
         DEFAULT NULLDATUM,
     ins_discipline_key
         NUMBER(10)
-/*      I.o.m. MB is deze constraint verwijderd
-        NOT_NULL(ins_discipline_key, ins_r_ins_deel_discipline1) */
         CONSTRAINT ins_r_ins_deel_discipline2 REFERENCES ins_tab_discipline(ins_discipline_key),
     ins_alg_locatie_key
         NUMBER(10)
         CONSTRAINT ins_r_ins_deel_locatie2 REFERENCES alg_locatie(alg_locatie_key),
-/* 03/09/1988/BIV - # 1993 */
     ins_deel_parent_key
         NUMBER(10)
         CONSTRAINT ins_r_ins_deel_key REFERENCES ins_deel(ins_deel_key),
@@ -359,10 +350,39 @@ CREATE_TABLE(ins_deel,0)
         NUMBER(10),
     ins_alg_ruimte_type_org
         VARCHAR2(1),
+    ins_deel_state
+        VARCHAR2(128),
+    ins_deel_statedate
+        DATE,
+    ins_deel_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT ins_c_ins_deel_uitvoertijd1 CHECK(ins_deel_t_uitvoertijd.tijdsduur >= 0),
+-- 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)
+(
+    ins_deel_state_history_key
+        NUMBER(10)
+        CONSTRAINT ins_k_deel_state_history_key PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        CONSTRAINT ins_r_ins_deel_key2 REFERENCES ins_deel(ins_deel_key),
+    ins_deel_state
+        VARCHAR2(128),
+    ins_deel_statedate
+        DATE,
+    ins_deel_state_history_opmerk /* je weet het niet he */
+        VARCHAR2(320)
+);
 
 /* welke inspecties, controles etc gelden er voor objecten van deze soorten */
 CREATE_TABLE(ins_srtcontrole, 0)
@@ -370,20 +390,39 @@ CREATE_TABLE(ins_srtcontrole, 0)
     ins_srtcontrole_key
        NUMBER(10)
        PRIMARY KEY,
-   ins_srtinstallatie_key
-      NUMBER(10),
-   ins_srtcontrole_niveau
-      VARCHAR2(1)
-      CONSTRAINT ins_c_srtcontrole_niveau1 CHECK
-            (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
+    ins_srtinstallatie_key
+       NUMBER(10),
+    ins_srtcontrole_niveau
+       VARCHAR2(1)
+       CONSTRAINT ins_c_srtcontrole_niveau1 CHECK (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
     ins_srtcontrole_omschrijving
         VARCHAR2(60)
         NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
+    ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+        NUMBER(1)
+        DEFAULT(1),
+    ins_srtcontrole_groep  // vrijblijvende categorisering voor groepering in rapportages
+        VARCHAR2(60),
     ins_srtcontrole_info
         VARCHAR2(320),
-    ins_srtcontrole_periode     /* in dagen */
-        NUMBER(4)
-        NOT_NULL(ins_srtcontrole_periode, ins_c_ins_srtcontrole_periode)
+    ins_srtcontrole_periode
+        NUMBER(6,2)
+        NOT_NULL(ins_srtcontrole_periode, ins_c_ins_srtcontrole_periode),
+    ins_srtcontrole_eenheid //  0=uurlijks, 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks, null=niet
+        NUMBER(1)
+        DEFAULT(1),
+    ins_srtcontrole_bits //  details, afhankelijk van de mode (mag best null zijn)
+        NUMBER(4),
+    ins_srtcontrole_mode //  0=moment-modus of 1=interval-modus
+        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)
+         NUMBER(11,2),
+    ins_srtcontrole_opmerking
+        VARCHAR2(320),
+    ins_srtcontrole_eind  // hier eindigt deze
+        DATE
 );
 
 CREATE_TABLE(ins_controlemode, 0)
@@ -396,9 +435,42 @@ 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)
+    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))
 );
 
+// Eventuele afwijkingen (xcp=exception) per specifiek deel
+// De methodiek (flags) kan niet overruled worden; fungeert als COALESCE met ins_srtcontrole
+// Het kan ook voor alleen respijt bestaan
+CREATE_TABLE(ins_srtcontroledl_xcp, 0)
+(
+    ins_srtcontroledl_xcp_key
+       NUMBER(10)
+       PRIMARY KEY,
+    ins_deel_key
+       NUMBER(10)
+       NOT NULL REFERENCES ins_deel ON DELETE CASCADE,
+    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_kosten  // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_groep // Vrijblijvende categorisering voor groepering in rapportages
+        VARCHAR2(60),
+    ins_srtcontroledl_xcp_eind  // hier eindigt deze
+        DATE
+);
 
 /* wanneer zijn de inspecties uitgevoerd */
 CREATE_TABLE(ins_deelsrtcontrole, 0)
@@ -415,6 +487,11 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
     ins_deelsrtcontrole_datum
        DATE
        NOT NULL,
+    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,
@@ -424,7 +501,7 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
 //    prs_perslid_key
 //        NUMBER(10)
 //        CONSTRAINT ins_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
-    CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_datum)
+    CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_datum_org)
 );
 
 CREATE_TABLE(ins_import,0)
@@ -464,7 +541,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')),
+      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l')),
    ins_srtkenmerk_systeem
       NUMBER(1)
       CONSTRAINT ins_c_ins_srtkenmerk_systeem CHECK(ins_srtkenmerk_systeem IS NULL
@@ -508,14 +585,16 @@ CREATE_TABLE(ins_kenmerk, 0)
       NUMBER(10),
    ins_kenmerk_niveau
       VARCHAR2(1)
-     /* NOT_NULL(ins_kenmerk_niveau, ins_c_ins_kenmerk_niveau1) */
       CONSTRAINT ins_c_ins_kenmerk_niveau2 CHECK
-            (ins_kenmerk_niveau is not null and (ins_kenmerk_niveau IN( 'D', 'G', 'S'))),
-   ins_kenmerk_bewerkniveau
+            (ins_kenmerk_niveau IS NOT NULL AND (ins_kenmerk_niveau IN('D', 'G', 'S', 'C'))),  /* C=srtcontrole */
+   ins_kenmerk_bewerkniveau /* Kenmerk behoort bij individueel Deel of algemeen Srtdeel */
         VARCHAR2(1) DEFAULT 'D' NOT NULL
         CONSTRAINT ins_c_ins_kenmerk_bewerk CHECK(ins_kenmerk_bewerkniveau IN ('D', 'S')),
    ins_kenmerk_verplicht
       NUMBER(1),
+   ins_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL,
    ins_kenmerk_toonbaar
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_toonbaar CHECK(ins_kenmerk_toonbaar IS NULL
@@ -525,7 +604,8 @@ CREATE_TABLE(ins_kenmerk, 0)
       CONSTRAINT ins_c_ins_kenmerk_meetwaarde CHECK(ins_kenmerk_meetwaarde IS NULL
                                                OR ins_kenmerk_meetwaarde = 1),
    ins_kenmerk_volgnummer
-      NUMBER(3),
+      NUMBER(3)
+      NOT NULL,
    ins_kenmerk_locatiekolom
       VARCHAR2(30),
    ins_kenmerk_uniek
@@ -543,9 +623,8 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM,
-   CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL
-                                               OR ins_kenmerk_niveau = 'D'),
-   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_verwijder)
+   CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL OR ins_kenmerk_niveau = 'D'),
+   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_groep, ins_kenmerk_verwijder)
 );
 
 /* De waarde mag in de tabel NULL zijn, maar om de database niet
@@ -575,6 +654,32 @@ CREATE_TABLE(ins_kenmerkdeel,0)
    //  Kan ook naar ins_srtdeel wijzen CONSTRAINT ins_r_kenmerk_deel FOREIGN KEY (ins_deel_key) REFERENCES ins_deel(ins_deel_key) ON DELETE CASCADE
 );
 
+-- FSN#28732
+// Kenmerken bij inspecties; gebruikt dezelfde kenmerkdefinities als ins, wel eigen waardentabel
+CREATE_TABLE(ins_kmdeelsrtcontr,0)
+( ins_kmdeelsrtcontr_key
+      NUMBER(10)
+      CONSTRAINT ins_k_kmdeelsrtcontr_key PRIMARY KEY,
+  ins_deelsrtcontrole_key
+      NUMBER(10)
+      NOT NULL REFERENCES ins_deelsrtcontrole (ins_deelsrtcontrole_key) ON DELETE CASCADE,
+   ins_kenmerk_key
+      NUMBER(10)
+      NOT_NULL(ins_kenmerk_key, ins_c_ins_kenmerk_key1)
+      CONSTRAINT ins_r_ins_kenmerk_key3 REFERENCES ins_kenmerk(ins_kenmerk_key),
+   ins_kmdeelsrtcontr_waarde
+      VARCHAR2(4000),
+   ins_kmdeelsrtcontr_aanmaak
+      DATE
+      DEFAULT SYSDATE
+      NOT_NULL(ins_kmdeelsrtcontr_aanmaak,ins_c_kmdeelsrtcontr_aanmaak),
+   ins_kmdeelsrtcontr_verwijder
+      DATE
+      DEFAULT NULLDATUM,
+   CONSTRAINT ins_u_ins_kmdeelsrtcontr UNIQUE(ins_kenmerk_key, ins_deelsrtcontrole_key, ins_kmdeelsrtcontr_verwijder)
+);
+
+
 /* De velden aanmaak en verwijder zijn hier toegevoegd om het mechanisme van
  * CASCADE verwijderen in triggers op te kunnen lossen. In de after-statement-trigger
  * van INS_DEELKOPPELING worden de logisch-verwijderde deelkoppelingen echt verwijderd.
@@ -678,13 +783,14 @@ CREATE_TABLE(ins_disc_params,0)
   ins_disc_params_key          NUMBER(10),
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
-  ins_disc_params_type         NUMBER(2),   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  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)
     REFERENCES ins_tab_discipline (ins_discipline_key)
 );
 
-REGISTERONCE('$Workfile: INS_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_TRI.SRC

@@ -76,6 +76,40 @@ BEGIN
             raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
       END;
    END IF;
+
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND:old.ins_discipline_verwijder IS NULL
+       AND:new.ins_discipline_module = 'CNT')
+   THEN
+      DECLARE
+         dummy CHAR;
+      BEGIN
+         SELECT   'x'
+           INTO   dummy
+           FROM   cnt_contract c
+          WHERE   c.ins_discipline_key = :new.ins_discipline_key
+            AND   c.cnt_contract_status = 0
+            AND   c.cnt_contract_verwijder IS NULL
+            AND   c.cnt_contract_looptijd_tot >= SYSDATE;
+         raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            NULL;
+         WHEN TOO_MANY_ROWS
+         THEN
+            raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+      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,
@@ -131,14 +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;
 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
@@ -161,7 +201,7 @@ BEGIN
        DECLARE
          Dummy BOOLEAN;
        BEGIN
-          Dummy := fac_p_fac_save_restore.SavePrimaryKeyAndDate('INS_DEEL_VERWIJDER', :new.ins_deel_key, :old.ins_deel_verwijder);
+          Dummy := fac.remember_SavePrimaryKeyAndDate('INS_DEEL_VERWIJDER', :new.ins_deel_key, :old.ins_deel_verwijder);
        END;
      END IF;
 
@@ -179,7 +219,7 @@ BEGIN
  	  IF lCount > 0 THEN
           APPLICATION_ERROR_GOTO(-20000,'ins_m202');
       ELSE
-        Dummy1 := fac_p_fac_save_restore.SavePrimaryKey('INS_DEEL_ONTKOPPEL', :new.ins_deel_key);
+        Dummy1 := fac.remember_SavePrimaryKey('INS_DEEL_ONTKOPPEL', :new.ins_deel_key);
       END IF;
 
      UPDATE res_deel SET res_deel_verwijder = :new.ins_deel_verwijder
@@ -242,7 +282,7 @@ BEGIN
    THEN
       IF    :new.ins_alg_ruimte_type = 'W'
       THEN
-         CHECK_KEY_REFERENCE(prs_v_aanwezigwerkplek     , prs_werkplek_key     , :new.ins_alg_ruimte_key, 'ins_m174');
+         CHECK_KEY_REFERENCE(prs_werkplek     , prs_werkplek_key     , :new.ins_alg_ruimte_key, 'ins_m174');
       ELSIF :new.ins_alg_ruimte_type = 'R'
       THEN
          CHECK_KEY_REFERENCE(alg_v_aanwezigruimte       , alg_ruimte_key       , :new.ins_alg_ruimte_key, 'ins_m092');
@@ -268,7 +308,7 @@ BEGIN
          IF  :old.ins_deel_aanmaak IS NOT NULL
          AND :new.ins_deel_parent_key IS NULL
          THEN
-            Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_DEEL_CASCADE', :new.ins_deel_key);
+            Dummy := fac.remember_SavePrimaryKey('INS_DEEL_CASCADE', :new.ins_deel_key);
          END IF;
       END;
    END IF;
@@ -276,6 +316,48 @@ BEGIN
 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
+     BEGIN
+       new_date := COALESCE (:new.ins_deel_statedate, SYSDATE); -- voorkom dat de update *net* een seconde later kan zijn
+       INSERT INTO ins_deel_state_history (ins_deel_key, ins_deel_state, ins_deel_statedate)
+       VALUES (:new.ins_deel_key, :new.ins_deel_state, COALESCE(:new.ins_deel_statedate, new_date));
+     EXCEPTION
+         WHEN DUP_VAL_ON_INDEX
+         THEN
+            SELECT ins_deel_state
+              INTO prev_state
+              FROM ins_deel_state_history
+             WHERE ins_deel_state_history_key =
+                      (SELECT MAX (ins_deel_state_history_key)
+                         FROM ins_deel_state_history
+                        WHERE ins_deel_key = :new.ins_deel_key
+                              AND ins_deel_statedate < new_date);
+
+            IF (prev_state = :new.ins_deel_state)
+            THEN
+               DELETE ins_deel_state_history
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            ELSE -- kan alleen bij tri-stste statussen gebeuren
+               UPDATE ins_deel_state_history
+                  SET ins_deel_state = :new.ins_deel_state
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            END IF;
+      END;
+   END IF;
+END;
+/
+
 CREATE_TRIGGER(ins_t_ins_deel_S_A_IU)
 AFTER UPDATE ON ins_deel
 BEGIN
@@ -293,16 +375,16 @@ BEGIN
       -- die moeten we niet weer vanaf nummer 1 gaan behandelen, anders zitten we echt
       -- in een oneindige loop.
       -- We krijgen hier geen mee, omdat we geen onderdelen van onderdelen kennen.
-      lNested := fac_p_fac_save_restore.GetPrimaryKey('INS_TRIGGER_BUSY', 1);
+      lNested := fac.remember_GetPrimaryKey('INS_TRIGGER_BUSY', 1);
       IF lNested IS NULL
       THEN
          IndexNr    := 1;
-         PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_VERWIJDER', IndexNr);
-         old_datum_of_deel := fac_p_fac_save_restore.GetDate('INS_DEEL_VERWIJDER', PrimaryKey);
+         PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_VERWIJDER', IndexNr);
+         old_datum_of_deel := fac.remember_GetDate('INS_DEEL_VERWIJDER', PrimaryKey);
 
          WHILE PrimaryKey IS NOT NULL
          LOOP
-            Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1);
+            Dummy := fac.remember_SavePrimaryKey('INS_TRIGGER_BUSY', 1);
             /* Jammer maar helaas, vanwege syntaxredenen moeten we weten of we met UNDO te maken hebben
             /* Als parent is verwijderd, dan is deletemode gevuld met zijn datum */
             /* Als parent terug wordt gehaald, dan is delete-mode gevuld met NULL ( betekent FALSE) */
@@ -372,15 +454,15 @@ BEGIN
                 END;
             END IF;
 
-            Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY');
+            Dummy := fac.remember_ResetSelectie('INS_TRIGGER_BUSY');
             IndexNr    := IndexNr + 1;
-            PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_VERWIJDER', IndexNr);
-            old_datum_of_deel := fac_p_fac_save_restore.GetDate('INS_DEEL_VERWIJDER', PrimaryKey);
+            PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_VERWIJDER', IndexNr);
+            old_datum_of_deel := fac.remember_GetDate('INS_DEEL_VERWIJDER', PrimaryKey);
 
          END LOOP;
-         Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_VERWIJDER');
+         Dummy := fac.remember_ResetSelectie('INS_DEEL_VERWIJDER');
          IndexNr    := 1;
-         PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
+         PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
          WHILE PrimaryKey IS NOT NULL
          LOOP
             -- Om weer te voorkomen dat de BEFORE STATEMENT trigger onnodig vuurt, controleren
@@ -394,7 +476,7 @@ BEGIN
 
             IF lCount > 0
             THEN
-               Dummy := fac_p_fac_save_restore.SavePrimaryKey('INS_TRIGGER_BUSY', 1);
+               Dummy := fac.remember_SavePrimaryKey('INS_TRIGGER_BUSY', 1);
                UPDATE ins_deel
                SET   (ins_alg_ruimte_key
                ,      ins_alg_ruimte_type
@@ -406,12 +488,12 @@ BEGIN
                WHERE  ins_deel.ins_deel_parent_key = PrimaryKey
                AND    ins_deel.ins_deel_verwijder IS NULL;
 
-               Dummy := fac_p_fac_save_restore.ResetSelectie('INS_TRIGGER_BUSY');
+               Dummy := fac.remember_ResetSelectie('INS_TRIGGER_BUSY');
             END IF;
             IndexNr    := IndexNr + 1;
-            PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
+            PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_CASCADE', IndexNr);
          END LOOP;
-         Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_CASCADE');
+         Dummy := fac.remember_ResetSelectie('INS_DEEL_CASCADE');
       ELSE
          NULL;
       END IF; -- lNested
@@ -429,18 +511,26 @@ BEGIN
       Dummy       BOOLEAN;
    BEGIN
       IndexNr    := 1;
-      PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
+      PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
       WHILE PrimaryKey IS NOT NULL
       LOOP
          Dummy := ins.delete_deelkoppeling(PrimaryKey);
          IndexNr    := IndexNr + 1;
-         PrimaryKey := fac_p_fac_save_restore.GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
+         PrimaryKey := fac.remember_GetPrimaryKey('INS_DEEL_ONTKOPPEL', IndexNr);
       END LOOP;
-      Dummy := fac_p_fac_save_restore.ResetSelectie('INS_DEEL_ONTKOPPEL');
+      Dummy := fac.remember_ResetSelectie('INS_DEEL_ONTKOPPEL');
     END;
 END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_state_hist_B_I)
+BEFORE INSERT ON ins_deel_state_history
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(ins_deel_state_history_key,ins_s_ins_deel_state_hist_key);
+END;
+/
+
 
 CREATE_TRIGGER(ins_t_ins_import_B_IU)
 BEFORE INSERT OR UPDATE ON ins_import
@@ -471,6 +561,12 @@ BEGIN
     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
+    THEN
+       :new.ins_srtkenmerk_lengte := 20;
+    END IF;
 
     IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
     THEN
@@ -549,7 +645,7 @@ DECLARE
    SrtKenmerkNMin     ins_srtkenmerk.ins_srtkenmerk_nmin%TYPE;
    SrtKenmerkNMax     ins_srtkenmerk.ins_srtkenmerk_nmax%TYPE;
    KenmerkVerplicht   ins_kenmerk.ins_kenmerk_verplicht%TYPE;
-   NumberWaarde       NUMBER(15,5);
+   NumberWaarde       NUMBER(25,5);
    FormatMask         VARCHAR2(60);
    KenmerkDeelWaarde  ins_kenmerkdeel.ins_kenmerkdeel_waarde%TYPE;
 BEGIN
@@ -637,28 +733,119 @@ BEGIN
    END IF;
 END;
    UPDATE_PRIMARY_KEY(ins_kenmerkdeel_key, ins_s_ins_kenmerkdeel_key);
---    UPDATE_AANMAAKDATUM(ins_kenmerkdeel, ins_kenmerkdeel_aanmaak);
 END IF;
 
 END;
 /
-
-/* Vanaf Facilitor 3 worden lege ins_kenmerkdeel-records via de form verwijderd
- * i.v.m. performance (trigger wordt per deel net zovaak aangeroepen als er kenmerken
- * zijn voor dat deel.
- * ---
- * Nadat de waardes ingevuld zijn worden de INS_KENMERKDEEL-records
- * met NULL-waardes weer verwijderd. Ze zijn blijkbaar door de B_IU-trigger
- * goedgekeurd, maar om de database niet overbodig te vullen worden ze weer verwijderd.
- *
-CREATE_TRIGGER(ins_t_ins_kenmerkdeel_a_iu)
-AFTER INSERT OR UPDATE ON ins_kenmerkdeel
+CREATE_TRIGGER(ins_t_ins_kmdeelsrtcontr_b_iu)
+BEFORE INSERT OR UPDATE ON ins_kmdeelsrtcontr
+FOR EACH ROW
 BEGIN
-   DELETE FROM ins_kenmerkdeel
-   WHERE ins_kenmerkdeel_waarde IS NULL;
+/* Controleer eerst of de ingevulde waarde goed is. */
+IF :new.ins_kmdeelsrtcontr_waarde <> :old.ins_kmdeelsrtcontr_waarde
+OR :old.ins_kmdeelsrtcontr_waarde IS NULL
+OR :new.ins_kmdeelsrtcontr_waarde IS NULL
+THEN
+DECLARE
+   SrtKenmerkOmschr   ins_srtkenmerk.ins_srtkenmerk_omschrijving%TYPE;
+   SrtKenmerkType     ins_srtkenmerk.ins_srtkenmerk_kenmerktype%TYPE;
+   SrtKenmerkLengte   ins_srtkenmerk.ins_srtkenmerk_lengte%TYPE;
+   SrtKenmerkDec      ins_srtkenmerk.ins_srtkenmerk_dec%TYPE;
+   SrtKenmerkNMin     ins_srtkenmerk.ins_srtkenmerk_nmin%TYPE;
+   SrtKenmerkNMax     ins_srtkenmerk.ins_srtkenmerk_nmax%TYPE;
+   KenmerkVerplicht   ins_kenmerk.ins_kenmerk_verplicht%TYPE;
+   NumberWaarde       NUMBER(25,5);
+   FormatMask         VARCHAR2(60);
+   KenmerkControleWaarde  ins_kmdeelsrtcontr.ins_kmdeelsrtcontr_waarde%TYPE;
+BEGIN
+   KenmerkControleWaarde := :new.ins_kmdeelsrtcontr_waarde;
+
+   SELECT INS_SK.ins_srtkenmerk_omschrijving,
+          INS_SK.ins_srtkenmerk_kenmerktype,
+          INS_SK.ins_srtkenmerk_lengte,
+          INS_SK.ins_srtkenmerk_dec,
+          INS_SK.ins_srtkenmerk_nmin,
+          INS_SK.ins_srtkenmerk_nmax,
+          INS_K.ins_kenmerk_verplicht
+   INTO  SrtKenmerkOmschr,
+         SrtKenmerkType,
+         SrtKenmerkLengte,
+         SrtKenmerkDec,
+         SrtKenmerkNMin,
+         SrtKenmerkNMax,
+         KenmerkVerplicht
+   FROM ins_srtkenmerk INS_SK, ins_kenmerk INS_K
+   WHERE INS_SK.ins_srtkenmerk_key = INS_K.ins_srtkenmerk_key
+     AND INS_K.ins_kenmerk_key = :new.ins_kenmerk_key;
+
+   /* Controleer eerst of het verplichte veld ingevuld is */
+   IF KenmerkVerplicht IS NOT NULL AND KenmerkControleWaarde IS NULL
+   THEN
+      APPLICATION_ERROR_GOTO(-20004, 'ins_m149,'||SrtKenmerkOmschr);
+   /* Kijk welk KenmerkType gebruikt wordt.
+    * Aan de hand daarvan moet een controle uitgevoerd worden.
+    */
+   ELSIF SrtKenmerkType = 'C' /* Char */
+   THEN
+      /* Controleer of de lengte te groot of goed is */
+      IF LENGTH(KenmerkControleWaarde) > SrtKenmerkLengte
+      THEN
+         APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
+      END IF;
+   ELSIF SrtKenmerkType = 'N' /* Number */
+   THEN
+     /* Controleer of er een numerieke waarde ingevuld is */
+     IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
+     THEN
+        FormatMask := RPAD('9', SrtKenmerkLengte, '9');
+     ELSE
+        FormatMask := RPAD('9', SrtKenmerkLengte - SrtKenmerkDec, '9')||
+                           'D'||RPAD('9', SrtKenmerkDec, '9');
+     END IF;
+     /* Controleer of er een numerieke waarde ingevuld is */
+     BEGIN
+      NumberWaarde := TO_NUMBER(KenmerkControleWaarde);
+     EXCEPTION
+      WHEN OTHERS
+      THEN FormatMask := REPLACE(FormatMask, '9', '#');
+           FormatMask := REPLACE(FormatMask, '0', '#');
+           FormatMask := REPLACE(FormatMask, 'D', '.');
+           APPLICATION_ERROR_GOTO(-20004,'ins_m146,'||SrtKenmerkOmschr||','||FormatMask);
+     END;
+      /* Controleer of de waarde binnen NMin en NMax ligt */
+      IF (SrtKenmerkNMin IS NOT NULL
+      AND NumberWaarde < SrtKenmerkNMin)
+      OR (SrtKenmerkNMax IS NOT NULL
+      AND NumberWaarde > SrtKenmerkNMax)
+      THEN
+         APPLICATION_ERROR_GOTO(-20004, 'ins_m145,'||SrtKenmerkOmschr||','||
+                                                TO_CHAR(SrtKenmerkNMin)||','||
+                                                TO_CHAR(SrtKenmerkNMax));
+      ELSE
+          /*  Controleer of de waarde aan het formaat voldoet */
+          KenmerkControleWaarde := LTRIM(NUMBER_TO_CHAR(NumberWaarde, FormatMask));
+          IF INSTR2(KenmerkControleWaarde, '#') <> 0
+          THEN
+            FormatMask := REPLACE(FormatMask, '9', '#');
+            FormatMask := REPLACE(FormatMask, '0', '#');
+            FormatMask := REPLACE(FormatMask, 'D', '.');
+            APPLICATION_ERROR_GOTO(-20004,'ins_m146,'||SrtKenmerkOmschr||','||FormatMask);
+          END IF;
+      END IF;
+      /* Zet de geconverteerde waarde terug */
+      :new.ins_kmdeelsrtcontr_waarde := KenmerkControleWaarde;
+   ELSIF SrtKenmerkType = 'D' /* Datum */
+   THEN
+      KenmerkControleWaarde := DATE_TO_CHAR(_TO_DATE2(KenmerkControleWaarde,'DD-MM-YY'), 'DD-MM-YYYY');
+      /* Zet de geconverteerde waarde terug */
+      :new.ins_kmdeelsrtcontr_waarde := KenmerkControleWaarde;
+   END IF;
+END;
+   UPDATE_PRIMARY_KEY(ins_kmdeelsrtcontr_key, ins_s_ins_kmdeelsrtcontr_key);
+END IF;
+
 END;
 /
-*/
 
 CREATE_TRIGGER(ins_t_ins_deelkoppeling_b_iu)
 BEFORE INSERT OR UPDATE ON ins_deelkoppeling
@@ -669,23 +856,6 @@ BEGIN
 END;
 /
 
-
-/* Verwijderen INS_DEELKOPPELING-records vanaf Fac. 3 via de CAD-package.
-   T.z.t. kan dit weg...
-
- * Verwijder hier de INS_DEELKOPPELING-records echt die door het systeem
- * logisch verwijderd zijn.
- *
-CREATE_TRIGGER(ins_t_ins_deelkoppeling_a_iu)
-AFTER INSERT OR UPDATE ON ins_deelkoppeling
-BEGIN
-   DELETE FROM ins_deelkoppeling
-   WHERE ins_deelkoppeling_verwijder IS NOT NULL;
-END;
-/
-
-*/
-
 CREATE_TRIGGER(ins_t_ins_compositie_b_iu)
 BEFORE INSERT OR UPDATE ON ins_compositie
 FOR EACH ROW
@@ -693,13 +863,6 @@ BEGIN
    UPDATE_PRIMARY_KEY(ins_compositie_key, ins_s_ins_compositie_key);
    UPDATE_UPPER(ins_compositie_naam,ins_compositie_upper,ins_compositie);
    UPDATE_AANMAAKDATUM(ins_compositie, ins_compositie_aanmaak);
-  /* 990420/BIV - gebruik set_verwijder_children i.p.v. onderstaande code
-     IF :new.ins_compositie_verwijder IS NOT NULL THEN
-       UPDATE ins_srtdeel_compositie
-          SET ins_srtdeel_comp_verwijder = SYSDATE
-        WHERE ins_compositie_key = :new.ins_compositie_key;
-     END IF;
-   */
    SET_VERWIJDER_CHILDREN(ins_srtdeel_compositie, ins_compositie_key, ins_compositie_verwijder,
        ins_srtdeel_comp_verwijder,ins_compositie);
 END;
@@ -738,6 +901,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_srtcontroledl_xcp_B_IU)
+BEFORE INSERT  OR UPDATE ON ins_srtcontroledl_xcp
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(ins_srtcontroledl_xcp_key, ins_s_srtcontroledl_xcp_key);
+END;
+/
+
 CREATE_TRIGGER(ins_t_deelsrtcontrole_B_IU)
 BEFORE INSERT  OR UPDATE ON ins_deelsrtcontrole
 FOR EACH ROW
@@ -754,6 +925,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: INS_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif

INS/INS_VIE.SRC

@@ -137,9 +137,9 @@ CREATE_VIEW(ins_v_alg_overzicht,0)
 ,    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_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
@@ -164,9 +164,9 @@ CREATE_VIEW(ins_v_alg_overzicht,0)
    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_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
@@ -197,7 +197,7 @@ CREATE_VIEW(ins_v_alg_overzicht,0)
    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_L.alg_locatie_code ||'-'
        || ALG_T.alg_terreinsector_code
    ,      ALG_T.alg_locatie_key
    ,      to_number(NULL), NULL, NULL, NULL
@@ -280,7 +280,7 @@ AS SELECT INS_D.ins_discipline_key
    ,      INS_SG.ins_srtgroep_omschrijving
    ,      INS_SG.ins_srtgroep_upper
    ,      INS_SD.ins_srtdeel_key
-   ,      INS_SD.ins_srtdeel_code||' - '||INS_SD.ins_srtdeel_omschrijving
+   ,      INS_SD.ins_srtdeel_code||'-'||INS_SD.ins_srtdeel_omschrijving
    ,      INS_SD.ins_srtdeel_upper
    ,      INS_DE.ins_alg_locatie_key
    ,      INS_AO.alg_gebouw_key
@@ -337,7 +337,7 @@ AS SELECT INS_D.ins_discipline_key
    ,      INS_SG.ins_srtgroep_omschrijving
    ,      INS_SG.ins_srtgroep_upper
    ,      INS_SD.ins_srtdeel_key
-   ,      INS_SD.ins_srtdeel_code||' - '||INS_SD.ins_srtdeel_omschrijving
+   ,      INS_SD.ins_srtdeel_code||'-'||INS_SD.ins_srtdeel_omschrijving
    ,      INS_SD.ins_srtdeel_upper
    ,      INS_DE.ins_alg_locatie_key
    ,      to_number(NULL)
@@ -441,7 +441,7 @@ SELECT INS_D.ins_discipline_key
    ,      INS_SG.ins_srtgroep_omschrijving
    ,      INS_SG.ins_srtgroep_upper
    ,      INS_SD.ins_srtdeel_key
-   ,      INS_SD.ins_srtdeel_code || ' - ' || INS_SD.ins_srtdeel_omschrijving
+   ,      INS_SD.ins_srtdeel_code || '-' || INS_SD.ins_srtdeel_omschrijving
    ,      INS_SD.ins_srtdeel_upper
    ,      INS_DE.ins_alg_locatie_key
    ,      INS_AO.alg_gebouw_key
@@ -498,7 +498,7 @@ SELECT INS_D.ins_discipline_key
    ,      INS_SG.ins_srtgroep_omschrijving
    ,      INS_SG.ins_srtgroep_upper
    ,      INS_SD.ins_srtdeel_key
-   ,      INS_SD.ins_srtdeel_code || ' - ' || INS_SD.ins_srtdeel_omschrijving
+   ,      INS_SD.ins_srtdeel_code || '-' || INS_SD.ins_srtdeel_omschrijving
    ,      INS_SD.ins_srtdeel_upper
    ,      INS_DE.ins_alg_locatie_key
    ,      TO_NUMBER(NULL)
@@ -827,6 +827,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,
@@ -1180,17 +1227,15 @@ CREATE_VIEW(ins_v_compositie_gegevens,0)
 CREATE_VIEW(ins_v_deel_plaatsaanduiding_r,0)
    (      alg_plaatsaanduiding
    ,      prs_werkplek_key
-   ,      prs_werkplek_verwijder
    ,      ins_deel_key
    ,      ins_deel_omschrijving
    ,      ins_deel_verwijder
    ,      alg_verdieping_key)
-AS SELECT ALG_L.alg_locatie_code ||' - '
-       || ALG_G.alg_gebouw_code                ||' - '
-       || ALG_V.alg_verdieping_volgnr ||' - '
+AS SELECT ALG_L.alg_locatie_code ||'-'
+       || ALG_G.alg_gebouw_code                ||'-'
+       || ALG_V.alg_verdieping_volgnr ||'-'
        || ALG_R.alg_ruimte_nr
    ,      to_number(NULL)
-   ,      to_date(NULL)
    ,      INS_D.ins_deel_key
    ,      INS_D.ins_deel_omschrijving
    ,      INS_D.ins_deel_verwijder
@@ -1210,18 +1255,16 @@ AS SELECT ALG_L.alg_locatie_code ||' - '
 CREATE_VIEW(ins_v_deel_plaatsaanduiding_w,0)
    (      alg_plaatsaanduiding
    ,      prs_werkplek_key
-   ,      prs_werkplek_verwijder
    ,      ins_deel_key
    ,      ins_deel_omschrijving
    ,      ins_deel_verwijder
    ,      alg_verdieping_key)
-AS SELECT ALG_L.alg_locatie_code ||' - '
-       || ALG_G.alg_gebouw_code                ||' - '
-       || ALG_V.alg_verdieping_code 	       ||' - '
+AS SELECT 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),
           PRS_W.prs_werkplek_key
-   ,      PRS_W.prs_werkplek_verwijder
    ,      INS_D.ins_deel_key
    ,      INS_D.ins_deel_omschrijving
    ,      INS_D.ins_deel_verwijder
@@ -1366,7 +1409,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,
@@ -1415,7 +1458,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,
@@ -1445,6 +1488,186 @@ SELECT id.ins_deel_key,
        AND v.alg_gebouw_key = g.alg_gebouw_key
        AND g.alg_locatie_key = l.alg_locatie_key;
 
-REGISTERRUN('$Workfile: INS_VIE.SRC $','$Revision$')
+CREATE_VIEW(ins_v_api_delen, 1)
+AS
+    SELECT d.ins_deel_key key,
+           d.ins_deel_omschrijving deel,
+           ig.ins_srtdeel_omschrijving soortdeel,
+           ig.ins_srtgroep_omschrijving soortgroep,
+           ig.ins_discipline_omschrijving discipline,
+           ig.alg_plaatsaanduiding plaats,
+           d.ins_alg_ruimte_type plaatstype,
+           d.ins_alg_ruimte_key plaats_key,
+           d.ins_deel_parent_key parentdeel_key,
+           d.ins_deel_opmerking opmerking,
+           d.ins_deel_x x,
+           d.ins_deel_y y,
+           DECODE (d.ins_alg_ruimte_key_org, NULL, NULL, 1) uitgeleend,
+           d.ins_deel_state state,
+           d.ins_deel_statedate statedate
+      FROM ins_deel d, ins_v_deel_gegevens ig
+     WHERE     ig.ins_deel_key = d.ins_deel_key
+           AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 99) > SYSDATE
+           AND d.ins_deel_verwijder IS NULL;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(ins_v_udr_deel, 1)
+(
+   key,
+   deel_omschrijving,
+   plaats,
+   srtdeel_code,
+   soort,
+   deel_opmerking,
+   discipline_key,
+   plaats_type,
+   district,
+   uitleenbaar,
+   res_opmerking,
+   deel_vervaldatum,
+   eigenaar
+)
+AS
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          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
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (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     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND 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,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+             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 || ')', '')
+             eigenaar
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (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_afdeling_boom d
+    WHERE     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND 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_afdeling_key = d.prs_afdeling_key
+          AND i.ins_alg_ruimte_type = 'P'
+   UNION
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+          c.prs_contactpersoon_naam eigenaar
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (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     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND 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 ALL
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          o.alg_plaatsaanduiding || ' ('
+          || DECODE (
+                o.alg_onroerendgoed_type,
+                'R',
+                (SELECT r.alg_ruimte_omschrijving
+                   FROM alg_ruimte r
+                  WHERE r.alg_ruimte_key = i.ins_alg_ruimte_key),
+                'T',
+                (SELECT t.alg_terreinsector_naam
+                   FROM alg_terreinsector t
+                  WHERE t.alg_terreinsector_key = i.ins_alg_ruimte_key),
+                'W',
+                (SELECT r.alg_ruimte_omschrijving
+                   FROM alg_ruimte r, prs_werkplek w
+                  WHERE r.alg_ruimte_key = w.prs_alg_ruimte_key
+                        AND w.prs_werkplek_key = i.ins_alg_ruimte_key))
+          || ')'
+             plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          l.alg_district_key,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+          NULL eigenaar
+     FROM ins_deel i,
+          ins_v_alg_overzicht o,
+          ins_srtdeel s,
+          alg_locatie l,
+          alg_district di,
+          (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 s.ins_srtdeel_key = i.ins_srtdeel_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','Key Performance Indicators')
+
+----- Grafieken -----
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_tot_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_tot_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_proc_tot',   2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Onderdelen ', 'kpi_v_graph_proc_ond',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_proc_trend', 4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_ond_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Onderdelen ', 'kpi_v_graph_ond_proc',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+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 = 'Totaal ';  /* TODO lcl */
+
+-- 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 = 'Onderdelen ';  /* TODO lcl */
+
+-- 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 ';  /* TODO lcl */
+
+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,434 @@
+#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,
+          'Alle' 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,
+          'Alle' 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,
+          'Alle' 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,
+          'Alle' 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,
+            'kpi/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,
+          'Alle' 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,
+          'Alle' 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,
+          'Alle' fclt_text0,
+            'kpi/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,
+            'kpi/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,
+          'Alle' 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)
+AS
+   SELECT -1 fclt_key,
+          'Alle' locatie,
+          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.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

@@ -21,6 +21,8 @@ create index mld_i_mld_melding16 on mld_melding (mld_melding_kto_type);
 create index mld_i_mld_melding17 on mld_melding (mld_melding_kto_verstuurd);
 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_opdr1 on mld_opdr(mld_opdr_module);
 create index mld_i_mld_opdr2 on mld_opdr(mld_melding_key);
@@ -53,16 +55,21 @@ CREATE UNIQUE INDEX mld_i_mld_disc_params1 ON mld_disc_params(mld_ins_discipline
 
 CREATE INDEX mld_i_mld_melding_note1 ON mld_melding_note(mld_melding_key);
 CREATE INDEX mld_i_mld_melding_object1 ON mld_melding_object(mld_melding_key);
+CREATE INDEX mld_i_mld_melding_object2 ON mld_melding_object(ins_deel_key, mld_melding_key);
 CREATE INDEX mld_i_mld_opdr_note1 ON mld_opdr_note(mld_opdr_key);
 
 CREATE UNIQUE INDEX mld_i_mld_opdruren_kosten1 ON mld_opdruren_kosten(mld_opdr_uren_key, mld_kosten_key);
 CREATE UNIQUE INDEX mld_i_mld_opdr_uren1 ON mld_opdr_uren(mld_opdr_uren_datum, mld_opdr_key, mld_impropdr_key, prs_perslid_key);
+CREATE UNIQUE INDEX mld_i_opdruren_dagkosten1 ON mld_opdruren_dagkosten(prs_perslid_key, mld_opdruren_dagkosten_datum);
 
 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);
 
-REGISTERONCE('$Workfile: MLD_IND.SRC $','$Revision$')
+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);
+
+REGISTERONCE('$Id$')
 
 #endif  // MLD

MLD/MLD_INI.SRC

@@ -40,6 +40,6 @@ DEF_STATUS('melding', 6, 'lcl_mld_verwerkt');
 DEF_STATUS('melding', 7, 'lcl_mld_uitgegeven');
 DEF_STATUS('melding', 99, 'lcl_mld_not_solved');
 
-REGISTERONCE('$Workfile: MLD_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // MLD

MLD/MLD_LCL.SRC

@@ -101,7 +101,6 @@ DEFINE_LOCALEITEM(lcl_mld_is_mldbeh_none)
 DEFINE_LOCALEITEM(lcl_mld_is_mldbeh_to)
 DEFINE_LOCALEITEM(lcl_mld_kenmerken)
 DEFINE_LOCALEITEM(lcl_mld_kosten)
-DEFINE_LOCALEITEM(lcl_mld_mldverwerkt)
 DEFINE_LOCALEITEM(lcl_mld_name)
 DEFINE_LOCALEITEM(lcl_mld_call_for)
 DEFINE_LOCALEITEM(lcl_mld_not_solved)
@@ -199,7 +198,7 @@ DEFINE_LOCALEITEM(lcl_mld_vakgroep)
 END_LOCALEITEMS()
 
 START_LOCALEITEMS('MLD_TYPEOPDR_KEY')
-DEFINE_LOCALEITEM(lcl_bes_supplier)
+DEFINE_LOCALEITEM(lcl_bes_Supplier)
 DEFINE_LOCALEITEM(lcl_bes_hint)
 DEFINE_LOCALEITEM(lcl_accept)
 DEFINE_LOCALEITEM(lcl_account)
@@ -327,7 +326,13 @@ DEFINE_LOCALEITEM(lcl_mld_hours)
 DEFINE_LOCALEITEM(lcl_mld_hoursperweek)
 DEFINE_LOCALEITEM(lcl_shared_order)
 DEFINE_LOCALEITEM(lcl_mld_approver)
+DEFINE_LOCALEITEM(lcl_mld_frame_notes)
+DEFINE_LOCALEITEM(lcl_mld_note_emptyset)
+DEFINE_LOCALEITEM(lcl_date_time)
+DEFINE_LOCALEITEM(lcl_mld_changedby)
+DEFINE_LOCALEITEM(lcl_mld_note)
+DEFINE_LOCALEITEM(lcl_mld_note_new)
 END_LOCALEITEMS()
 
-REGISTERONCE('$Workfile: MLD_LCL.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 #endif  // MLD

MLD/MLD_SEQ.SRC

@@ -17,6 +17,7 @@ CREATE SEQUENCE mld_s_mld_typeopdr_srtdisc MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_vrije_dagen_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmelding_key MINVALUE 1;  /* also used for mld_typeopdr */
 CREATE SEQUENCE mld_s_mld_stdmeldinggroep_key MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_behandelgroep_key MINVALUE 1;
 
 CREATE SEQUENCE mld_s_mld_object_key MINVALUE 1;
 
@@ -41,7 +42,10 @@ CREATE SEQUENCE mld_s_dienstniveau_key         MINVALUE 1;
 CREATE SEQUENCE mld_s_dienstpakket_key         MINVALUE 1;
 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('$Workfile: MLD_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // MLD

MLD/MLD_TAB.SRC

@@ -3,6 +3,19 @@
  *  $Id$
  */
 
+CREATE_TABLE(mld_behandelgroep,0)
+(
+    mld_behandelgroep_key
+        NUMBER(10)
+        CONSTRAINT mld_k_behandelgroep_key PRIMARY KEY,
+    mld_behandelgroep_naam
+        VARCHAR2(30)
+        NOT_NULL(mld_behandelgroep_naam, mld_c_behandelgroep_naam),
+    mld_behandelgroep_oms
+        VARCHAR2(1000),
+  CONSTRAINT mld_u_behandelgroep_naam UNIQUE (mld_behandelgroep_naam)
+);
+
 /* fac_activiteit_key verwijst optioneel naar een activiteit en daarmee mld_opdr, waarmee
  * aangegeven kan worden dat automatisch na een melding van deze discipline zo'n opdracht moet
  * worden aangemaakt, CONN#3513
@@ -37,15 +50,19 @@ CREATE_TABLE(mld_disc_params, 0)
         DEFAULT 1,
     mld_disc_params_noti_dagen
         NUMBER(2),
-    mld_disc_params_opdr_kosten
+    mld_disc_params_opdr_kosten  -- bitwise valid are 0, 1, 2 and 4. Opdr kosten verplicht bij (0 = niet verplicht, 1 = save + 2 = afmelden, 4 = afronden)
         NUMBER(1),
     mld_disc_params_directklaar
         NUMBER(1),
     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_fenotes
         NUMBER(2)       -- bitwise valid are 0, 1, 2 and 3 (0,1 = (default) niet/wel + 0,2 = vast/keuze)
         DEFAULT 0,
@@ -55,14 +72,31 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_startdatum -- if null then matches setting mld_stdmelding_startdatum
         NUMBER(1),
     mld_disc_params_bestellimiet
-        NUMBER(8,2)
+        NUMBER(11,2)
         DEFAULT 100000,
     mld_disc_params_offerteauto  -- Automatische offerteafhandeling Ja/Nee(1/0)
         NUMBER(1)
         DEFAULT 1,
     mld_disc_params_keten -- Call can be assigned to another category {0=no (default) | 1=yes}
         NUMBER(1)
-        DEFAULT 0
+        DEFAULT 0,
+    mld_behandelgroep_key
+        NUMBER(10)
+        CONSTRAINT mld_r_behandelgroep_key1 REFERENCES mld_behandelgroep(mld_behandelgroep_key),
+    mld_disc_params_bestellimiet2
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    mld_disc_params_bestellimiet3
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    mld_disc_params_bestellimiet4
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    mld_disc_params_bestellimiet5
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    mld_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
+        NUMBER(1)
 );
 
 
@@ -166,7 +200,7 @@ CREATE_TABLE(mld_typeopdr,0)
         CONSTRAINT mld_c_mld_typeopdr_sluitm CHECK(mld_typeopdr_sluitmelding IN (0,1,2)), /*0=niet, 1=vragen, 2=vanzelf*/
     mld_typeopdr_matchtype
         NUMBER(1) DEFAULT(2)
-        CONSTRAINT mld_c_mld_typeopdr_match CHECK(mld_typeopdr_matchtype IN (0,1,2,3,4,5,6)), /*0=altijd ok, 1=mld_opdr_totaal, 2=termijnen, 3=mld_opdr_uren(per week), 4=geen kosten, 5=aantal x prijs, 6=mld_opdr_uren(totaal) */
+        CONSTRAINT mld_c_mld_typeopdr_match CHECK(mld_typeopdr_matchtype IN (0,1,2,3,4,5,6,7)), /*0=altijd ok, 1=mld_opdr_totaal, 2=termijnen, 3=mld_opdr_uren(per week), 4=geen kosten, 5=aantal x prijs, 6=mld_opdr_uren(totaal),7=max aantal uren */
     mld_typeopdr_afmeldmarge  /* aantal dagen dat afmeldtijdstip vroeger mag zijn dan sysdate */
         NUMBER(2),
     mld_typeopdr_zichtbaarfe  /* of deze opdrachten zichtbaar zijn voor de melders (1) of niet (0/null) */
@@ -180,8 +214,28 @@ 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_contract  /* of bij deze opdrachten een contract moet (3), kan (2) of niet kan (0) worden opgegeven */
+        NUMBER(1)
+        DEFAULT (2)
+        CONSTRAINT mld_c_mld_typeopdr_contract CHECK(mld_typeopdr_contract IN (0,2,3)),
+    mld_typeopdr_afhandeling  /* Afhandeling verplicht bij afmelden opdracht van dit opdrachttype (0=Nee/1=Ja) */
+        NUMBER(1)
+        DEFAULT 0,
+    mld_typeopdr_gvs
+        NUMBER(11,2)
+        DEFAULT 1000000,
+    mld_typeopdr_kosten_verplicht  /* bitwise valid are 0, 1, 2 and 4. Opdr kosten verplicht bij (0 = niet verplicht, 1 = save + 2 = afmelden, 4 = afronden) */
+        NUMBER(1),
     CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
 );
+
+ALTER TABLE prs_bedrijfadres ADD (
+    mld_typeopdr_key
+        NUMBER(10)
+        CONSTRAINT prs_r_mld_typeopdr_key REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE
+);
+
+
 /*
 -- 0 = ignore mld_opdr_totaal (factuur altijd goed)
 -- 1 = match met mld_opdr_totaal (binnen marges, 1 factuur per opdracht)
@@ -219,40 +273,38 @@ CREATE_TABLE(mld_stdmelding,0)
         NOT_NULL(mld_stdmelding_upper, mld_c_mld_stdmelding_upper),
     mld_stdmelding_hint
         VARCHAR2(1000),
-    mld_stdmelding_urgentie
-        NUMBER(4,2)
-        CONSTRAINT mld_c_mld_srtmelding_urgentie CHECK(mld_stdmelding_urgentie >= 0),
-    mld_stdmelding_uitvoertijd /* pr3*/
-        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
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd1 CHECK(mld_stdmelding_uitvoertijd_pr1 >= 0),
-    mld_stdmelding_uitvoertijd_pr2
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd2 CHECK(mld_stdmelding_uitvoertijd_pr2 >= 0),
-    mld_stdmelding_uitvoertijd_pr4
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd4 CHECK(mld_stdmelding_uitvoertijd_pr4 >= 0),
-    mld_stdmelding_streeftijd
-        NUMBER(3)
-        CONSTRAINT mld_c_mld_stdmeld_streeftijd CHECK(mld_stdmelding_streeftijd >= 0),
-    mld_stdmelding_planbaar    -- 1: de einddatum van de melding is aanpasbaar
+    mld_stdmelding_t_accepttijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmelding_t_accept CHECK(mld_stdmelding_t_accepttijd.tijdsduur >= 0),
+    mld_stdmelding_t_uitvoertijd /* pr3*/
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0),
+    mld_stdmelding_t_uitvtijd_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd1 CHECK(mld_stdmelding_t_uitvtijd_pr1.tijdsduur >= 0),
+    mld_stdmelding_t_uitvtijd_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd2 CHECK(mld_stdmelding_t_uitvtijd_pr2.tijdsduur >= 0),
+    mld_stdmelding_t_uitvtijd_pr4
+        MLD_T_UITVOERTIJD
+        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),
-    mld_stdmelding_notfrontend          -- 0 : zichtbaar voor alle webusers
-        NUMBER(1)               -- 1 : niet zichtbaar voor front end webusers
+    mld_stdmelding_slabewaken
+        NUMBER(1)                                 -- 0: overschrijden van SLA is niet erg
+        DEFAULT 1 NOT NULL,
+    mld_stdmelding_notfrontend
+        NUMBER(1)                           -- 1 : niet zichtbaar voor front end webusers
         DEFAULT 0,
     mld_stdmelding_prseigen
         NUMBER(1)
-        DEFAULT 0,              -- 1: alleen op ruimte van eigen afdeling
+        DEFAULT 0,                              -- 1: alleen op ruimte van eigen afdeling
     mld_stdmelding_notify   -- valid are 0 and 1, only used when mld_disc_params_notify=2
         NUMBER(2)
         DEFAULT 1,
     mld_stdmelding_volgnr
       NUMBER(3),
-    mld_stdmeldinggroep_key   -- reference to mld_stdmeldinggroep
+    mld_stdmeldinggroep_key                           -- reference to mld_stdmeldinggroep
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmeldinggroep_key REFERENCES mld_stdmeldinggroep(mld_stdmeldinggroep_key),
     ins_srtinst_key     -- optional reference to objecttype (level defined by ins_srtinst_niveau)
@@ -265,6 +317,13 @@ CREATE_TABLE(mld_stdmelding,0)
     alg_onrgoed_niveau    -- level of onrgoed of objects to display with new melding and/or required level
         VARCHAR2(1)
         CONSTRAINT mld_c_alg_onrgoed_niveau CHECK (alg_onrgoed_niveau IN ('L','G','V','R')),
+    alg_onrgoed_obj_niveau    -- level of onrgoed which should be selected before chosing objects
+        VARCHAR2(1)
+        CONSTRAINT mld_c_alg_onrgoed_objniveau CHECK (alg_onrgoed_obj_niveau IN ('L','G','V','R')),
+    alg_org_obj_niveau    -- level of organisation from which objects can be chosen (-1=alle, 0=bedrijf, ...., 9=geen)
+        NUMBER(1)
+        DEFAULT 9
+        CONSTRAINT mld_c_alg_org_objniveau CHECK (alg_org_obj_niveau IN (-1,0,1,2,3,4,5,9)),
     mld_stdmelding_freetext  -- 0:geen omschrijving, 1:optionele omschrijving, 2:verplichte omschrijving
         NUMBER(1)
         DEFAULT 1,
@@ -293,6 +352,10 @@ CREATE_TABLE(mld_stdmelding,0)
         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]
         NUMBER(8,2),
+    mld_stdmelding_afhankelijk  -- is de uitvoertijd afhankelijk van de ins_deel/alg_srtruimte (1) of niet (0)
+        NUMBER(1)
+        DEFAULT 0
+        CONSTRAINT mld_c_stdmelding_afhankelijk CHECK (mld_stdmelding_afhankelijk IN (0,1)),
     prs_dienst_key
         NUMBER(10)
         CONSTRAINT mld_r_prs_dienst_key1 REFERENCES prs_dienst(prs_dienst_key),
@@ -308,12 +371,67 @@ CREATE_TABLE(mld_stdmelding,0)
     mld_stdmelding_opdrtypevast  -- 0: standaard opdrachttype
         NUMBER(1)                -- 1: verplicht opdrachttype
         DEFAULT 0,
-    CONSTRAINT mld_u_mld_stdmelding UNIQUE(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_verwijder),
-    CONSTRAINT mld_c_stdmelding_urenofdagen CHECK(mld_stdmelding_streeftijd IS NULL OR (mld_stdmelding_uitvoertijd = 0 AND mld_stdmelding_streeftijd IS NOT NULL))
+    mld_stdmelding_directklaar
+        NUMBER(1),
+    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,
+    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);
 
-ALTER TABLE fac_faq ADD mld_stdmelding_key NUMBER(10)
-     CONSTRAINT fac_r_mld_stdmelding_key1 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE;
+// 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_malus -- boete/korting bij overschrijding [per dag]
+        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)
+(
+    mld_stdmeldingfaq_key
+        NUMBER(10)
+        CONSTRAINT mld_k_stdmeldingfaq_key PRIMARY KEY,
+    ins_discipline_key
+        NUMBER(10)
+        NOT_NULL(ins_discipline_key, mld_c_ins_discipline_key3)
+        CONSTRAINT mld_r_mld_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE,
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key4 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE,
+    fac_faq_key
+        NUMBER(10)
+        NOT_NULL(fac_faq_key, mld_c_fac_faq_key)
+        CONSTRAINT mld_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
+);
 
 CREATE_TABLE(mld_adres, 0)
 (
@@ -327,7 +445,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
@@ -335,7 +453,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
@@ -424,7 +542,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)
 );
 
 
@@ -444,7 +566,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)
@@ -464,7 +588,7 @@ CREATE_TABLE(mld_melding,0)
         NOT_NULL(mld_meldbron_key, mld_r_mld_meldbron_key1)
         CONSTRAINT mld_r_mld_meldbron_key2 REFERENCES mld_meldbron,
     mld_meldbron_nr
-        VARCHAR2(12),
+        VARCHAR2(30),
     mld_oorzaak_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_oorzaak_key REFERENCES mld_oorzaak,
@@ -487,12 +611,25 @@ 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  -- freeze van stdmelding-uitvoertijd ten tijde van melden
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_melding_uitvoertijd2 CHECK
-          (mld_melding_uitvoertijd is not null and mld_melding_uitvoertijd >= 0),
+    mld_melding_t_uitvoertijd  -- freeze van stdmelding-uitvoertijd ten tijde van melden
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_melding_t_uitvtijd CHECK (mld_melding_t_uitvoertijd.tijdsduur >= 0),
+    mld_melding_t_accepttijd
+        MLD_T_UITVOERTIJD,
     mld_melding_einddatum  -- geplande einddatum, trigger vult eventueel
         DATE,
+    mld_melding_t_respijt
+        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
+        CONSTRAINT mld_c_mld_melding_indult1 CHECK(mld_melding_indult IN (0, 1))
+        NOT_NULL(mld_melding_indult, mld_c_mld_melding_indult2),
+    mld_melding_afgerond
+        NUMBER(1)  -- SLA-gegevens bevroren (1) of niet(0)
+        DEFAULT 0
+        CONSTRAINT mld_c_mld_melding_afgerond1 CHECK(mld_melding_afgerond IN (0, 1))
+        NOT_NULL(mld_melding_afgerond, mld_c_mld_melding_afgerond2),
     mld_melding_einddatum_std  -- SLA freeze einddatum,  trigger vult eventueel
         DATE,
     mld_melding_acceptdatum_std  -- sla freeze acceptatie
@@ -548,14 +685,25 @@ CREATE_TABLE(mld_melding,0)
         VARCHAR2(30),
     mld_melding_flag
         NUMBER(1),
+    mld_melding_satisfaction
+        NUMBER(2),
+    mld_melding_satisfaction_op
+        VARCHAR2(2000),
     prs_project_key  /* future use: groepeer meldingen in een project (release) oid */
       NUMBER(10)
-      CONSTRAINT mld_r_prs_project_key1 REFERENCES prs_project(prs_project_key)
+      CONSTRAINT mld_r_prs_project_key1 REFERENCES prs_project(prs_project_key),
 /* in RES_TAB.src:
     res_rsv_ruimte_key
       NUMBER(10)
       CONSTRAINT mld_r_res_rsv_ruimte_key REFERENCES res_rsv_ruimte(res_rsv_ruimte_key) */
+    mld_melding_locked_user_key
+      NUMBER(10),
+    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';
@@ -574,6 +722,8 @@ CREATE_TABLE(mld_opdr,0)
         NUMBER(10)
         NOT_NULL(mld_melding_key, mld_r_mld_melding_key1)
         CONSTRAINT mld_r_mld_melding_key2 REFERENCES mld_melding ON DELETE CASCADE,
+    mld_opdr_id         /* optionele alternatieve referentie indien afwijkend van meldingkey/volgnr */
+        VARCHAR2(30),
     mld_alg_locatie_key
         NUMBER(10)
         CONSTRAINT mld_r_alg_locatie_key4 REFERENCES alg_locatie(alg_locatie_key),
@@ -601,6 +751,8 @@ CREATE_TABLE(mld_opdr,0)
         NUMBER(4),
     mld_opdr_einddatum    /* wordt op termijn vervanger van mld-opdr_dagen */
         DATE,
+    mld_opdr_plandatum    /* (beoogd) tijdstip van feitelijke start-uitvoering */
+        DATE,
     mld_opdr_werkzaamheden
         VARCHAR2(80),
     mld_opdr_uren
@@ -649,7 +801,29 @@ CREATE_TABLE(mld_opdr,0)
     mld_opdr_opmerking
         VARCHAR2(4000),
     mld_opdr_flag
+        NUMBER(1),
+    mld_opdr_approved
+        NUMBER(11,2),
+    mld_opdr_uren_refiat
+        NUMBER(7,2)
+        CONSTRAINT mld_c_mld_opdr_uren_refiat CHECK(mld_opdr_uren_refiat IS NULL OR mld_opdr_uren_refiat >= 0),
+    mld_opdr_uurloon_refiat
+        NUMBER(6,2),
+    mld_opdr_materiaal_refiat
+        NUMBER(8,2)
+        CONSTRAINT mld_c_mld_opdr_mat_refiat CHECK(mld_opdr_materiaal_refiat IS NULL OR mld_opdr_materiaal_refiat >= 0),
+    mld_opdr_kosten_refiat
+        NUMBER(12,2),
+        CONSTRAINT mld_c_mld_opdr_kosten_refiat CHECK(mld_opdr_kosten_refiat IS NULL OR mld_opdr_kosten_refiat >= 0),
+    mld_statusopdr_key_refiat
+        NUMBER(10)
+        CONSTRAINT mld_c_mld_statusopdr_refiat CHECK (mld_statusopdr_key_refiat IN (5,6,8,9)),
+    mld_opdr_approved_refiat
+        NUMBER(11,2),
+    mld_opdr_handfiat /* handmatig fiatteren verzocht (overrule-t evt limieten) */
         NUMBER(1)
+        CONSTRAINT mld_c_mld_opdr_handfiat CHECK(mld_opdr_handfiat IS NULL
+                                             OR mld_opdr_handfiat = 1)
 );
 
 CREATE_TABLE(mld_vrije_dagen, 0)
@@ -743,10 +917,14 @@ CREATE_TABLE(mld_kenmerk, 0)
       VARCHAR2(1)
 ,  mld_kenmerk_verplicht
       NUMBER(1)
+,  mld_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  mld_kenmerk_toonbaar
       NUMBER(1)
 ,  mld_kenmerk_volgnummer
       NUMBER(3)
+      NOT NULL
 ,  mld_kenmerk_locatiekolom
       VARCHAR2(30)
 ,  mld_kenmerk_uniek
@@ -773,7 +951,7 @@ CREATE_TABLE(mld_kenmerk, 0)
 ,  CONSTRAINT mld_c_mld_kenmerk_toonbaar      CHECK(mld_kenmerk_toonbaar IS NULL
                                                  OR mld_kenmerk_toonbaar = 1)
 ,  CONSTRAINT mld_c_mld_kenmerk_aanmaak       CHECK(mld_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT mld_u_mld_kenmerk UNIQUE(mld_srtkenmerk_key, mld_stdmelding_key, mld_typeopdr_key, mld_kenmerk_niveau, mld_kenmerk_verwijder)
+,  CONSTRAINT mld_u_mld_kenmerk              UNIQUE(mld_srtkenmerk_key, mld_stdmelding_key, mld_typeopdr_key, mld_kenmerk_niveau, mld_kenmerk_groep, mld_kenmerk_verwijder)
 ,  CONSTRAINT mld_r_mld_srtkenmerk_key3 FOREIGN KEY(mld_typeopdr_key) REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE
 );
 
@@ -1056,6 +1234,26 @@ CREATE_TABLE(mld_opdr_materiaal, 0)
     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))
 );
 
+CREATE_TABLE(mld_afmeldtekst, 0)
+(
+    mld_afmeldtekst_key
+        NUMBER(10)
+        CONSTRAINT mld_k_afmeldtekst_key PRIMARY KEY,
+    mld_afmeldtekst_naam
+        VARCHAR2(60)
+        NOT_NULL(mld_afmeldtekst_naam, mld_c_afmeldtekst_naam),
+    mld_afmeldtekst_omschrijving
+        VARCHAR2(1000)
+        NOT_NULL(mld_afmeldtekst_omschrijving, mld_c_mld_afmeldtekst_omschr),
+    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),
+  CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
+);
+
 ALTER TABLE alg_ruimte
     ADD mld_dienstniveau_key NUMBER(10)
     REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL;
@@ -1069,6 +1267,6 @@ ALTER TABLE alg_locatie
     ADD mld_dienstniveau_key NUMBER(10)
     REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL;
 
-REGISTERONCE('$Workfile: MLD_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // MLD

MLD/MLD_TRI.SRC

@@ -3,6 +3,13 @@
  * $Revision$
  * $Id$
  */
+CREATE_TRIGGER(mld_t_mld_behandelgroep_B_IU)
+BEFORE INSERT OR UPDATE ON mld_behandelgroep
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(mld_behandelgroep_key, mld_s_mld_behandelgroep_key);
+END;
+/
 
 CREATE_TRIGGER(mld_t_mld_disc_params_b_iu)
 BEFORE INSERT OR UPDATE ON mld_disc_params
@@ -45,6 +52,18 @@ FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(mld_stdmelding_key,mld_s_mld_stdmelding_key);
     UPDATE_UPPER(mld_stdmelding_omschrijving,mld_stdmelding_upper,mld_stdmelding);
+    IF :new.mld_ins_discipline_key <> :old.mld_ins_discipline_key
+    THEN
+        -- is omhangen, dus afhankelijken laten volgen
+        UPDATE mld_stdmeldingfaq
+           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;
 /
 
@@ -73,15 +92,20 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(mld_t_mld_melding_B_I)
+BEFORE INSERT ON mld_melding
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(mld_melding_key, mld_s_mld_melding_key);
+END;
+/
+
 CREATE_TRIGGER(mld_t_mld_melding_B_IU)
 BEFORE INSERT OR UPDATE ON mld_melding
 FOR EACH ROW
 BEGIN
-    UPDATE_PRIMARY_KEY(mld_melding_key, mld_s_mld_melding_key);
-    /*
-         Vul het dan redundante veld MLD_ALG_LOCATIE_KEY als de onroerendgoed_key gedefinieerd is,
-         zo niet, dan krijgt mld_alg_locatie_key gewoon de waarde die wordt meegegeven (of die het had)
-     */
+    -- Vul het dan redundante veld MLD_ALG_LOCATIE_KEY als de onroerendgoed_key gedefinieerd is,
+    -- zo niet, dan krijgt mld_alg_locatie_key gewoon de waarde die wordt meegegeven (of die het had)
     IF :new.mld_alg_onroerendgoed_keys IS NOT NULL
         AND (:old.mld_alg_onroerendgoed_keys IS NULL
            OR :old.mld_alg_onroerendgoed_keys <> :new.mld_alg_onroerendgoed_keys)
@@ -99,17 +123,19 @@ BEGIN
        OR UPDATING ('mld_stdmelding_key')
     THEN
         :new.mld_melding_acceptdatum_std :=
-            mld.getacceptdatum (:new.mld_melding_datum, :new.mld_stdmelding_key);
+            mld.getacceptdatum (:new.mld_melding_datum, :new.mld_stdmelding_key, :new.mld_alg_onroerendgoed_keys);
     END IF;
 
     -- Als prs_perslid_key_voor geen waarde heeft dan gelijk aan prs_perslid_key.
+    -- en afhankelijk van de setting ook gelijkhouden.
     IF :new.prs_perslid_key_voor IS NULL
+       OR (:new.prs_perslid_key <> :old.prs_perslid_key
+           AND fac.getSetting('mld_allow_for_others') <> 1)
     THEN
       :new.prs_perslid_key_voor := :new.prs_perslid_key;
     END IF;
 
     DECLARE
-        l_gebouw_key   alg_gebouw.alg_gebouw_key%TYPE;
         l_planbaar     mld_stdmelding.mld_stdmelding_planbaar%TYPE;
     BEGIN
         IF :new.mld_melding_einddatum_std IS NULL
@@ -118,34 +144,32 @@ BEGIN
            OR UPDATING ('mld_melding_spoed')
            OR UPDATING ('mld_alg_onroerendgoed_keys')
         THEN
-            SELECT MAX (alg_gebouw_key)                 -- ik wil gewoon een NULL als die er niet is
-              INTO l_gebouw_key
-              FROM alg_v_allonroerendgoed
-             WHERE alg_onroerendgoed_keys = :new.mld_alg_onroerendgoed_keys AND alg_type = 'G';
-
             :new.mld_melding_einddatum_std :=
                 mld.geteinddatum (:new.mld_melding_datum,
                                   :new.mld_stdmelding_key,
                                   :new.mld_melding_spoed,
-                                  l_gebouw_key);
+                                  :new.mld_alg_onroerendgoed_keys,
+                                  mld.getlowestobjectuitvoer(:new.mld_melding_key)); -- Ik weet bij nieuwe meldingen nog niet welke objecten aan de meldingen zijn gekoppeld. Dan is de waarde null.
+
             -- Jammer dat ik dat zelf nog een keer moet ophalen, maar ja
-            -- Deze waarde bewaren, want is iha niet terug te berekenen
-            SELECT CASE :new.mld_melding_spoed
-                       WHEN 1 THEN mld_stdmelding_uitvoertijd_pr1
-                       WHEN 2 THEN mld_stdmelding_uitvoertijd_pr2
-                       WHEN 4 THEN mld_stdmelding_uitvoertijd_pr4
-                       ELSE mld_stdmelding_uitvoertijd
-                   END,
+            -- Deze waarden bewaren, want is iha niet terug te berekenen
+            SELECT mld.getstduitvoer(:new.mld_stdmelding_key,
+                                     :new.mld_melding_spoed,
+                                     :new.mld_alg_onroerendgoed_keys,
+                                     mld.getlowestobjectuitvoer(:new.mld_melding_key)),
+                   mld_stdmelding_t_accepttijd,
                    mld_stdmelding_planbaar
-              INTO :new.mld_melding_uitvoertijd,
+              INTO :new.mld_melding_t_uitvoertijd,
+                   :new.mld_melding_t_accepttijd,
                    l_planbaar
               FROM mld_stdmelding msm
              WHERE msm.mld_stdmelding_key = :new.mld_stdmelding_key;
             -- Alleen aanpassen aan de SLA indien niet meegegeven en mogelijk gewijzigd (!)
-            IF NOT UPDATING('mld_melding_einddatum')
-               AND  (:old.mld_melding_einddatum_std IS NULL
-                  OR :old.mld_melding_einddatum_std <> :new.mld_melding_einddatum_std)
-               AND l_planbaar <> 1
+            IF (UPDATING AND NOT UPDATING('mld_melding_einddatum')
+                AND (:old.mld_melding_einddatum_std IS NULL
+                     OR :old.mld_melding_einddatum_std <> :new.mld_melding_einddatum_std)
+                AND l_planbaar <> 1)
+               OR (INSERTING AND :new.mld_melding_einddatum IS NULL)
             THEN
                 :new.mld_melding_einddatum := :new.mld_melding_einddatum_std;
             END IF;
@@ -156,12 +180,6 @@ BEGIN
     THEN
        APPLICATION_ERROR_GOTO(-20000, 'mld_m233');
     END IF;
-    -- Afmelden
-   IF :new.mld_melding_status = 5 AND :old.mld_melding_status <> 5
-   THEN
-    -- Wis de behandelaar
-    :new.mld_melding_behandelaar_key := NULL;
-   END IF;
   -- Verwerken
    IF :new.mld_melding_status = 6 AND :old.mld_melding_status <> 6
    THEN
@@ -170,26 +188,6 @@ BEGIN
       THEN
          -- wat alleen mag als de status afgemeld(5) was
          raise_application_error (-20000, 'mld_m203');
-      ELSE
-         -- en niet mag als er nog niet verwerkte opdracht zijn
-         DECLARE
-            dummy   CHAR;
-         BEGIN
-            SELECT   'X'
-              INTO   dummy
-              FROM   mld_opdr
-             WHERE   mld_statusopdr_key NOT IN (1, 2, 7)
-               AND   mld_melding_key = :new.mld_melding_key;
-
-            raise_application_error (-20000, 'mld_m192');
-         EXCEPTION
-            WHEN NO_DATA_FOUND
-            THEN
-               NULL;
-            WHEN TOO_MANY_ROWS
-            THEN
-               raise_application_error (-20000, 'mld_m192');
-         END;
       END IF;
    END IF;
 
@@ -218,8 +216,6 @@ BEGIN
          END IF;
       END;
    END IF;
-
-
 END;
 /
 
@@ -229,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
@@ -241,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
@@ -306,6 +304,11 @@ BEGIN
   THEN
     raise_application_error(-20000, 'MLD_C_MLD_SRTKENMERK_LENGTE');
   END IF;
+  IF :new.mld_srtkenmerk_kenmerktype = 'N'
+  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
@@ -389,7 +392,7 @@ BEGIN
       SrtKenmerkNMin        mld_srtkenmerk.mld_srtkenmerk_nmin%TYPE;
       SrtKenmerkNMax        mld_srtkenmerk.mld_srtkenmerk_nmax%TYPE;
       KenmerkVerplicht      mld_kenmerk.mld_kenmerk_verplicht%TYPE;
-      NumberWaarde          NUMBER(15,5);
+      NumberWaarde          NUMBER(25,5);
       FormatMask            VARCHAR2(60);
       KenmerkMeldingWaarde  mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
     BEGIN
@@ -503,7 +506,7 @@ BEGIN
       SrtKenmerkNMin        mld_srtkenmerk.mld_srtkenmerk_nmin%TYPE;
       SrtKenmerkNMax        mld_srtkenmerk.mld_srtkenmerk_nmax%TYPE;
       KenmerkVerplicht      mld_kenmerk.mld_kenmerk_verplicht%TYPE;
-      NumberWaarde          NUMBER(15,5);
+      NumberWaarde          NUMBER(25,5);
       FormatMask            VARCHAR2(60);
       KenmerkOpdrWaarde     mld_kenmerkopdr.mld_kenmerkopdr_waarde%TYPE;
     BEGIN
@@ -720,6 +723,30 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: MLD_TRI.SRC $','$Revision$')
+CREATE_TRIGGER(mld_t_mld_afmeldtekst_B_IU)
+BEFORE INSERT OR UPDATE ON mld_afmeldtekst
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(mld_afmeldtekst_key, mld_s_mld_afmeldtekst_key);
+END;
+/
+
+CREATE_TRIGGER(mld_t_mld_stdmeldingfaq_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmeldingfaq
+FOR EACH ROW
+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

@@ -0,0 +1,11 @@
+#ifdef  MLD // 13-03-96 AH
+/*  $Revision$
+ *  $Id$
+ */
+
+/* uitvoertijd, duur en eenheid in uren (U) of dagen (D) */
+CREATE_TYPE (MLD_T_UITVOERTIJD)
+AS
+   OBJECT (tijdsduur NUMBER(12,5), eenheid VARCHAR2(1));
+/
+#endif // MLD

MODULES.H

@@ -9,17 +9,17 @@
  * BEZ  - Bezoekers registratie
  * CAD  - AutoCAD koppeling
  * CNT  - Contracten
- * FAC  - Basismodule (altijd aanwezig)
- * FIN  - Financien/facturen [sinds 4.61]
+ * FAC  - Basismodule
+ * FIN  - Financien/facturen
  * INS  - Installaties
- * MLD  - Meldingen (basis)
+ * KPI  - KPI's (planned 2015.3)
+ * 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
@@ -30,6 +30,7 @@
 #define FAC    FAC
 #define FIN    FIN
 #define INS    INS
+#define no_KPI    KPI
 #define MLD    MLD
 #define MRK    MRK
 #define MSG    MSG

MRK/MRK_IND.SRC

@@ -4,6 +4,6 @@
  * $Id$
  */
 
-REGISTERONCE('$Workfile: MRK_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // MRK

MRK/MRK_INI.SRC

@@ -10,6 +10,6 @@ _FAC_MODULE('MRK','Facilitor Marktplaats')
 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');
 
-REGISTERONCE('$Workfile: MRK_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // MRK

MRK/MRK_PAC.SRC

@@ -5,6 +5,6 @@
  */
 
 
-REGISTERRUN('$Workfile: MRK_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // MRK

MRK/MRK_SEQ.SRC

@@ -6,6 +6,6 @@
 
 CREATE SEQUENCE mrk_s_mrk_bericht_key MINVALUE 1 NOCACHE;
 
-REGISTERONCE('$Workfile: MRK_SEQ.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif  // MRK

MRK/MRK_TAB.SRC

@@ -30,6 +30,6 @@ CREATE_TABLE(mrk_bericht,0)
        NOT_NULL(ins_discipline_key, mrk_c_ins_discipline_key)
        CONSTRAINT  mrk_r_ins_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key));
 
-REGISTERONCE('$Workfile: MRK_TAB.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // MRK

MRK/MRK_TRI.SRC

@@ -13,6 +13,6 @@ BEGIN
 END;
 /
 
-REGISTERRUN('$Workfile: MRK_TRI.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif  // MRK

MRK/MRK_VIE.SRC

@@ -12,6 +12,6 @@ AS
 DEFINIEER_VIEW_AANWEZIG(mrk_discipline, ins_discipline_verwijder,
     mrk_v_aanwezigdiscipline, 0);
 
-REGISTERRUN('$Workfile: MRK_VIE.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // MRK

MSG/MSG_IND.SRC

@@ -4,6 +4,6 @@
  *  $Id$
  */
 
-REGISTERONCE('$Workfile: msg_IND.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // MSG

MSG/MSG_INI.SRC

@@ -6,6 +6,6 @@
  
 _FAC_MODULE('MSG','Facilitor Messenger')
 
-REGISTERONCE('$Workfile: msg_INI.SRC $','$Revision$')
+REGISTERONCE('$Id$')
 
 #endif // MSG

MSG/MSG_PAC.SRC

@@ -3,6 +3,6 @@
  *  $Id$
  */
 
-REGISTERRUN('$Workfile: msg_PAC.SRC $','$Revision$')
+REGISTERRUN('$Id$')
 
 #endif // MSG