UWVA#35268 backport (was al in trunk doorgevoerd, moet eerder geleverd worden)

svn path=/Database/branches/DB27/; revision=28360

ADM/ADM_PAC.SRC

@@ -127,14 +127,14 @@ AS
    EXCEPTION
        WHEN OTHERS
        THEN
-          IF SQLCODE IN (-942, -1418, -2289, -4043, -4080, -2443)
+          IF SQLCODE IN (-904, -942, -1418, -2289, -4043, -4080, -2443)
           THEN
-             -- did not exist, voor table, view, index, sequence, object and trigger, constraint
+             -- did not exist, voor identifier (column) table, view, index, sequence, object and trigger, constraint
              DBMS_OUTPUT.put_line ('Not found, not altered: ' || n);
              NULL;
-          ELSIF SQLCODE IN (-955)
+          ELSIF SQLCODE IN (-955, -1442)
           THEN
-             -- object already exist
+             -- object or not-null property already exist
              DBMS_OUTPUT.put_line ('Already exists, not altered:     ' || n);
              NULL;
           ELSE

ALG/ALG_TAB.SRC

@@ -73,7 +73,7 @@ CREATE_TABLE(alg_locatie,0)
         DATE
         DEFAULT NULLDATUM,
     alg_locatie_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_postcode
         VARCHAR2(12),
     alg_locatie_plaats
@@ -81,7 +81,7 @@ CREATE_TABLE(alg_locatie,0)
     alg_locatie_land
         VARCHAR2(30),
     alg_locatie_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_post_postcode
         VARCHAR2(12),
     alg_locatie_post_plaats
@@ -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
@@ -378,13 +382,14 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(1)
         CONSTRAINT alg_c_prs_verhuurbaar CHECK(prs_verhuurbaar IS NULL
                                             OR prs_verhuurbaar = 1 ),
-    alg_srtruimte_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT alg_c_alg_srtruimt_uitvoertijd CHECK(alg_srtruimte_uitvoertijd >= 0),
-    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)
 (
@@ -559,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

ALG/ALG_VIE.SRC

@@ -481,49 +481,49 @@ CREATE_VIEW(alg_v_my_room, 0) AS
 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,51 +663,102 @@ 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;
 
--- Zwaar geoptimaliseerd FSN#25609
 CREATE_VIEW(fac_v_my_rooms, 0)
+   (alg_ruimte_key,
+    prs_perslid_key,
+    niveau) AS
+ SELECT alg_ruimte_key,
+        prs_perslid_key,
+        5
+   FROM alg_v_my_room
+UNION
+ SELECT alg_ruimte_key,
+        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,
+        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,
+        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,
+        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
+    AND b.alg_gebouw_key = v.alg_gebouw_key
+    AND v.alg_verdieping_key = r.alg_verdieping_key
+UNION
+ SELECT alg_ruimte_key,
+        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
+    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;
+
+-- 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,
@@ -723,35 +774,35 @@ WITH avmr -- alg_v_my_room
              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, prs_perslid_key
+        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, prs_perslid_key
+        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, prs_perslid_key
+        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, prs_perslid_key
+        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, prs_perslid_key, 4
+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, prs_perslid_key, 3
+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, prs_perslid_key, 2
+SELECT alg_ruimte_key, l.prs_perslid_key, 2
   FROM avml l,
        alg_gebouw b,
        alg_verdieping v,
@@ -760,7 +811,7 @@ SELECT alg_ruimte_key, prs_perslid_key, 2
        AND b.alg_gebouw_key = v.alg_gebouw_key
        AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 1
+SELECT alg_ruimte_key, d.prs_perslid_key, 1
   FROM avmd d,
        alg_locatie l,
        alg_gebouw b,
@@ -771,7 +822,7 @@ SELECT alg_ruimte_key, prs_perslid_key, 1
        AND b.alg_gebouw_key = v.alg_gebouw_key
        AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 0
+SELECT alg_ruimte_key, ro.prs_perslid_key, 0
   FROM avmrr ro,
        alg_district d,
        alg_locatie l,
@@ -1150,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

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
@@ -769,7 +771,8 @@ AS
                p.prs_afdeling_key,
                abd.mld_adres_key_fac,
                bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
-               b.bes_bestelling_parentkey
+               b.bes_bestelling_parentkey,
+               b.prs_perslid_key
           FROM prs_bedrijf bd,
                bes_srtdeel s,
                bes_bestelling_item bi,
@@ -898,7 +901,7 @@ AS
                 )
             VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
                  SYSDATE, rec1.mld_adres_key_lev, factura_key,
-                 i_userkey,
+                 rec1.prs_perslid_key,
                  lbord_id
                 );
             aantalopdrachtregels := 0;
@@ -1118,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,
@@ -1137,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
@@ -1363,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
@@ -1658,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);
@@ -1668,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;
 

BES/BES_TAB.SRC

@@ -30,6 +30,9 @@ CREATE_TABLE(bes_srtgroep,0)
         NOT_NULL(bes_srtgroep_omschrijving, bes_c_bes_srtgroep_omschr),
     bes_srtgroep_volgnr
         NUMBER(3),
+    prs_kostensoort_key
+        NUMBER(10)
+        CONSTRAINT bes_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key),
     bes_srtgroep_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -170,6 +173,9 @@ CREATE_TABLE(bes_srtdeel,0)
         NUMBER(6),
     bes_srtdeel_voorraadmax
         NUMBER(6),
+    bes_srtdeel_voorraadfactor
+        NUMBER(6)
+        DEFAULT 1,        /* factor tussen inkoop- en verkoopenheden van zelfde artikelnr tbv voorraadbepaling */
     bes_srtdeel_margepct  /* percentage van de leveranciersmarge (verkoop-inkoop) dat voor ons is, de rest is voor whoever */
         NUMBER(3),
     bes_srtdeel_wijzigdagen /* zoveel dagen voor leverdatum nog te wijzigen */
@@ -179,7 +185,11 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_depotverdeelpct
         NUMBER(3),
     bes_srtdeel_notitie /* magazijnlocatie */
-        VARCHAR2(50)
+        VARCHAR2(50),
+    bes_srtdeel_maxbestel    /* De voorrraad is het maximum aantal dat ik mag bestellen {0=nee (default), 1=ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 
@@ -244,7 +254,11 @@ CREATE_TABLE(bes_bestelling, 0)
     bes_bestelling_kto_verstuurd
         DATE,
     bes_bestelling_satisfaction
-        NUMBER(2)
+        NUMBER(2),
+    bes_bestelling_satisfaction_op
+        VARCHAR2(2000),
+    bes_bestelling_approved
+        NUMBER(11,2)
 );
 
 CREATE_TABLE(bes_bestelopdr, 0)
@@ -439,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
@@ -467,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
@@ -537,6 +570,9 @@ 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
@@ -556,13 +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_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_verwijder)
+,  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)

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
@@ -252,6 +257,237 @@ AS
 CREATE_VIEW(bes_v_api_bestellingen, 1) AS SELECT * from bes_bestelling;
 CREATE_VIEW(bes_v_api_bestelopdrachten, 1) AS SELECT * from bes_bestelopdr;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bes_v_udr_bestelling, 1)
+(
+   bestelling_key,
+   bestelaanvraagnr,
+   besteldatum,
+   leverancier,
+   besteller,
+   invoerder,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   fclt_3d_afdeling_key,
+   afdeling_code,
+   afdeling_omschrijving,
+   fclt_3d_locatie_key,
+   locatie_code,
+   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);
+
+CREATE_VIEW(bes_v_allsrtinstallatie, 0)
+(
+   NIVEAU,
+   BES_SRTINSTALLATIE_KEY,
+   DISCIPLINE_OMS,
+   SRTGROEP_OMS,
+   SRTDEEL_OMS,
+   BES_DISCIPLINE_KEY,
+   BES_SRTGROEP_KEY,
+   BES_SRTDEEL_KEY
+)
+AS
+   SELECT 'D',
+          bes_ID.ins_discipline_key,
+          bes_ID.ins_discipline_omschrijving discipline_oms,
+          NULL srtgroep_oms,
+          NULL srtdeel_oms,
+          bes_ID.ins_discipline_key,
+          NULL bes_srtgroep_key,
+          NULL bes_srtdeel_key
+     FROM bes_discipline bes_ID
+   UNION
+   SELECT 'G',
+          bes_SG.bes_srtgroep_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          NULL,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          NULL
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG
+    WHERE bes_ID.ins_discipline_key = bes_SG.ins_discipline_key
+   UNION
+   SELECT 'S',
+          bes_SD.bes_srtdeel_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          bes_SD.bes_srtdeel_omschrijving,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          bes_SD.bes_srtdeel_key
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG, bes_srtdeel bes_SD
+    WHERE bes_SG.bes_srtgroep_key = bes_SD.bes_srtgroep_key
+          AND bes_ID.ins_discipline_key = bes_SG.ins_discipline_key;
+
 REGISTERRUN('$Id$')
 
 #endif  // BES

BEZ/BEZ_PAC.SRC

@@ -72,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;
@@ -103,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);
@@ -193,11 +209,21 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       IF ldeelreskey IS NOT NULL
       THEN
          -- Zoek de noodzakelijke gegevens op
-         SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot, r.res_ruimte_opstel_key, r.alg_ruimte_key
-           INTO   lbegin, leinde, topstel, talgruimte
+         SELECT   r.res_ruimte_opstel_key, r.alg_ruimte_key
+           INTO   topstel, talgruimte
            FROM   res_rsv_ruimte r
           WHERE   res_rsv_ruimte_key = ldeelreskey;
 
+         -- Begin- en eindtijd zouden al bekend moeten zijn via afspraak (zal eigenlijk altijd gevuld zijn)
+         -- Zo niet, dan nog ophalen uit rsv_ruimte
+         IF lbegin IS NULL OR leinde IS NULL
+         THEN
+            SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot
+              INTO   lbegin, leinde
+              FROM   res_rsv_ruimte r
+             WHERE   res_rsv_ruimte_key = ldeelreskey;
+         END IF;
+
          IF talgruimte IS NOT NULL
          THEN
             SELECT   g.alg_locatie_key
@@ -212,6 +238,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;
@@ -244,6 +271,12 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
                              -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
                              AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -270,6 +303,12 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND (og.alg_gebouw_key = palg_gebter_key
                                OR og.alg_terreinsector_key = palg_gebter_key)
                              AND id.ins_alg_ruimte_type IN ('R', 'T')
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;

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,7 +89,12 @@ CREATE_TABLE(bez_bezoekers,0)
     bez_bezoekers_done
         DATE,
     bez_bezoekers_out
-        DATE
+        DATE,
+    bez_bezoekers_oproep
+        DATE,
+    bez_bezoekers_flags -- documentatie in appl/bez/xxx.inc
+        NUMBER(10)
+        DEFAULT 0 NOT NULL
  );
 
 
@@ -123,6 +137,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

BEZ/BEZ_TRI.SRC

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

BEZ/BEZ_VIE.SRC

@@ -33,6 +33,93 @@ SELECT a.bez_afspraak_key,
        AND p2.prs_perslid_key = a.bez_afspraak_contact_key
        AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bez_v_udr_bezoeker, 1)
+(
+   key,
+   host,
+   contact,
+   plaats_code,
+   plaats_omschrijving,
+   regio,
+   district,
+   locatie_code,
+   locatie_naam,
+   gebouw_code,
+   gebouw_naam,
+   verdieping_code,
+   verdieping_naam,
+   ruimte_code,
+   ruimte_naam,
+   afspraak_ruimte,
+   afspraak_opmerking,
+   bezoeker_naam,
+   bezoeker_bedrijf,
+   bezoek_van,
+   bezoek_tot,
+   actie,
+   bezoeker_opmerking,
+   bezoeker_binnen,
+   bezoeker_buiten,
+   pasnr,
+   parkeerplaats,
+   fclt_3d_locatie_key,
+   fclt_3d_afdeling_key
+)
+AS
+   SELECT b.bez_bezoekers_key,
+          COALESCE (p1.prs_perslid_naam_full, a.bez_afspraak_gastheer) bez_afspraak_host,
+          p2.prs_perslid_naam_full bez_afspraak_contact,
+          og.alg_onroerendgoed_code,
+          og.alg_onroerendgoed_omschrijving,
+          r.alg_regio_omschrijving,
+          d.alg_district_omschrijving,
+          l.alg_locatie_code,
+          l.alg_locatie_omschrijving,
+          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,
+          rd.res_deel_omschrijving,
+          og.alg_locatie_key,
+          pp1.prs_afdeling_key
+     FROM bez_afspraak a,
+          bez_bezoekers b,
+          prs_v_perslid_fullnames_all p1,
+          prs_v_perslid_fullnames_all p2,
+          alg_v_allonrgoed_gegevens og,
+          alg_locatie l,
+          alg_district d,
+          alg_regio r,
+          bez_actie ba,
+          prs_perslid pp1,
+          res_rsv_deel rrd,
+          res_deel rd
+    WHERE     a.bez_afspraak_key = b.bez_afspraak_key
+          AND pp1.prs_perslid_key(+) = a.bez_afspraak_host_key
+          AND p1.prs_perslid_key(+) = a.bez_afspraak_host_key
+          AND p2.prs_perslid_key = a.bez_afspraak_contact_key
+          AND a.bez_actie_key = ba.bez_actie_key
+          AND l.alg_district_key = d.alg_district_key
+          AND d.alg_regio_key = r.alg_regio_key
+          AND l.alg_locatie_key = og.alg_locatie_key
+          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys
+          AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
+          AND rrd.res_deel_key = rd.res_deel_key(+);
+
 REGISTERRUN('$Id$')
 
 #endif  // BEZ

CAD/CAD_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,8 +142,8 @@ CREATE_TABLE(cad_imp_contour,0)
     cad_imp_contour_concept
         NUMBER(1)       -- valid are 0, 1
         DEFAULT 0
--- in PRJ_TAB.SRC:  
---  prj_scenario_key 
+-- in PRJ_TAB.SRC:
+--  prj_scenario_key
 --      NUMBER(10) REFERENCES prj_scenario(prj_scenario_key) ON DELETE CASCADE
 );
 

CAD/CAD_VIE.SRC

@@ -631,10 +631,12 @@ AS
     GROUP BY rar.alg_ruimte_key
     UNION
     SELECT alg_ruimte_key, alg_ruimte_nr
-      FROM alg_ruimte r, ins_deel
-     WHERE     ins_alg_ruimte_key = alg_ruimte_key
-           AND ins_alg_ruimte_type = 'R'
-           AND ins_deel_state IS NOT NULL
+      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);
@@ -721,11 +723,13 @@ CREATE_VIEW(cad_v_thema_ruimtesensor,0)
 )
 AS
     SELECT r.alg_ruimte_key alg_ruimte_key, initcap(d.ins_deel_state) status
-      FROM alg_ruimte r, ins_deel d
+      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
@@ -738,47 +742,52 @@ CREATE_VIEW(cad_v_thema_srtruimtesensor, 0)
 )
 AS
    -- zalen met een sensor
-   SELECT r.alg_ruimte_key,
-          DECODE (
-             INITCAP (d.ins_deel_state),
-             'Uit',                      -- als de sensor uit is kijken we naar de reservering
-             DECODE (r2a.res_reservering_key,
-                     NULL, 'Uit',        -- als er geen reservering gescheduled staat is de status uit
-                     DECODE (eerste10min, 1, 'Aan', 'NoShow')),  -- in de eerste 10 minuten v/d reservering melden we nog geen noshow
-             'Aan')
-             status
-     FROM alg_ruimte r,
-          ins_deel d,
-          (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 < SYSDATE
-              AND rr2a.res_rsv_ruimte_tot > SYSDATE) 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_deel_state IS NOT NULL
-      AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
+   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'))
+                  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 < SYSDATE
-              AND rr2a.res_rsv_ruimte_tot > SYSDATE) r2a,
+              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
@@ -788,10 +797,12 @@ AS
       AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
       AND NOT EXISTS
              (SELECT r.alg_ruimte_key
-                FROM ins_deel d
+                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)
@@ -801,11 +812,13 @@ CREATE_VIEW(cad_v_thema_wpsensor,0)
 )
 AS
     SELECT wp.prs_werkplek_key prs_werkplek_key, initcap(d.ins_deel_state) status
-      FROM prs_werkplek wp, ins_deel d
+      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$')

CARE/CARE_INI.SRC

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

CARE/CARE_PAC.SRC

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

CARE/CARE_VIE.SRC

@@ -22,12 +22,20 @@ AS
             gemeente.alg_locatie_verantw,
             gemeente.alg_locatie_x,
             gemeente.alg_locatie_y,
-            coalesce(fac.safe_to_number(K.ALG_ONRGOEDKENMERK_WAARDE),0) as alg_locatie_veiling
-     FROM   alg_locatie gemeente, alg_onrgoedkenmerk k
+            coalesce(fac.safe_to_number(K.ALG_ONRGOEDKENMERK_WAARDE),0) as alg_locatie_veiling,
+            coalesce(fac.safe_to_number(K2.ALG_ONRGOEDKENMERK_WAARDE),0) as gemeente_budget,
+            coalesce(fac.safe_to_number(K3.ALG_ONRGOEDKENMERK_WAARDE),0) as gemeente_ob
+     FROM   alg_locatie gemeente, alg_onrgoedkenmerk k, alg_onrgoedkenmerk k2, alg_onrgoedkenmerk k3
     WHERE   gemeente.alg_locatie_verwijder IS NULL
-    AND     alg_onrgoed_niveau (+) = 'L'
-    AND     alg_kenmerk_key (+) = 1006
-    AND     alg_onrgoed_key (+) = alg_locatie_key;
+    AND     k.alg_onrgoed_niveau (+) = 'L'
+    AND     k.alg_kenmerk_key (+) = 1006
+    AND     k.alg_onrgoed_key (+) = alg_locatie_key
+    AND     k2.alg_onrgoed_niveau (+) = 'L'
+    AND     k2.alg_kenmerk_key (+) = 1007
+    AND     k2.alg_onrgoed_key (+) = alg_locatie_key
+    AND     k3.alg_onrgoed_niveau (+) = 'L'
+    AND     k3.alg_kenmerk_key (+) = 1008
+    AND     k3.alg_onrgoed_key (+) = alg_locatie_key;
 
 -- Let op de decode: dit is een mapping van locatie-kenmerk op melding-kenmerk, die elders aan elkaar worden gelinked.
 -- Decode-Mapping: van alg-kenmerk_key 1000 -> fac_usrdata_key 1 (HV1)
@@ -45,7 +53,7 @@ FROM  alg_onrgoedkenmerk, alg_locatie l
 WHERE alg_onrgoed_niveau = 'L'
 AND alg_kenmerk_key IN (1000,1001,1002)
 AND alg_onrgoed_key = alg_locatie_key
-AND alg_locatie_verwijder IS NULL; 
+AND alg_locatie_verwijder IS NULL;
 
 -- View met alle geregistreerde clienten (ongeacht of ze een lopende beschikking hebben).
 -- Let op de afdelings-key 22 (= afdeling waar alle clienten in zitten) in onderstaande view:
@@ -309,7 +317,7 @@ SELECT prs_client_naam,
        'BSN nummer voldoet niet aan de 11-proef' foutmelding,
        'E'
   FROM XX
-  WHERE mod (fac.safe_to_number(SUBSTR(client_bsn,1,1)) * 9 + 
+  WHERE mod (fac.safe_to_number(SUBSTR(client_bsn,1,1)) * 9 +
                 fac.safe_to_number(SUBSTR(client_bsn,2,1)) * 8 +
                 fac.safe_to_number(SUBSTR(client_bsn,3,1)) * 7 +
                 fac.safe_to_number(SUBSTR(client_bsn,4,1)) * 6 +
@@ -580,6 +588,8 @@ CREATE_VIEW( care_v_beschikking_all, 0)
    gemeente_hv1_code,
    gemeente_hv2_code,
    gemeente_veiling,
+   gemeente_budget,
+   gemeente_ob,
    prs_client_key,
    prs_client_naam,
    prs_client_tussenvoegsel,
@@ -649,6 +659,8 @@ AS
             gemeente.alg_locatie_x,
             gemeente.alg_locatie_y,
             gemeente.alg_locatie_veiling,
+            gemeente.gemeente_budget,
+            gemeente.gemeente_ob,
             client.prs_perslid_key prs_client_key,
             client.prs_perslid_naam prs_client_naam,
             client.prs_perslid_tussenvoegsel prs_client_tussenvoegsel,
@@ -779,7 +791,7 @@ AS
                       AND km.mld_kenmerkmelding_verwijder IS NULL
                       AND mld_kenmerk_key = 1)
                beschikking_nr,
-            mld_melding_omschrijving,   
+            mld_melding_omschrijving,
             std.mld_ins_discipline_key,
             ins_discipline_omschrijving
      FROM   care_v_gemeente gemeente, prs_perslid client, mld_melding m, mld_stdmelding std, ins_tab_discipline d
@@ -855,7 +867,7 @@ AS
             ou.mld_opdr_uren_key,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IYYY')) jaar,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IW')) weeknr,
-            FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1 periodenr,
+            LEAST(FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1, 13) periodenr,
             (  TRUNC (ou.mld_opdr_uren_datum)
              - DECODE (TO_CHAR (ou.mld_opdr_uren_datum, 'D'), '1', 8, TO_CHAR (ou.mld_opdr_uren_datum, 'D'))
              + 2)
@@ -930,7 +942,7 @@ AS
             ou.mld_opdr_uren_key,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IYYY')) jaar,
             TO_NUMBER (TO_CHAR (ou.mld_opdr_uren_datum, 'IW')) weeknr,
-            FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1 periodenr,
+            LEAST(FLOOR((TO_CHAR (ou.mld_opdr_uren_datum,'IW') - 1) /4) + 1, 13) periodenr,
             (  TRUNC (ou.mld_opdr_uren_datum)
              - DECODE (TO_CHAR (ou.mld_opdr_uren_datum, 'D'), '1', 8, TO_CHAR (ou.mld_opdr_uren_datum, 'D'))
              + 2)
@@ -2455,7 +2467,7 @@ CREATE_VIEW( care_v_rap_personeel, 0)
    datum_indienst,
    datum_uitdienst,
    verwijderd
-   
+
 )
 AS
    SELECT   v.team_naam,
@@ -2534,23 +2546,23 @@ AS
 
 CREATE_VIEW( care_v_rap_clienten, 0)
 (
-fclt_f_clientnr, 
-fclt_f_bsn, 
-fclt_f_naam, 
-tussenvoegsel, 
-voorletters, 
-geboortejaar, 
-adres, 
-huisnr, 
-postcode, 
-fclt_f_woonplaats, 
-telefoon, 
-mobiel, 
+fclt_f_clientnr,
+fclt_f_bsn,
+fclt_f_naam,
+tussenvoegsel,
+voorletters,
+geboortejaar,
+adres,
+huisnr,
+postcode,
+fclt_f_woonplaats,
+telefoon,
+mobiel,
 bijzonderheden
 )
 AS
-   SELECT prs_client_nr, client_bsn, prs_client_naam, prs_client_tussenvoegsel, prs_client_voorletters, 
-          client_geboortedatum, client_adres, client_huisnr, client_postcode, client_woonplaats, 
+   SELECT prs_client_nr, client_bsn, prs_client_naam, prs_client_tussenvoegsel, prs_client_voorletters,
+          client_geboortedatum, client_adres, client_huisnr, client_postcode, client_woonplaats,
           client_telefoon_thuis, prs_client_mobiel, client_bijzonderheden
    FROM care_v_client;
 
@@ -2902,10 +2914,10 @@ AS
 -- Periodetabel van 2 jaar in het verleden t/m heden
 CREATE_VIEW(care_v_periodeweektabel_2jaar, 0)
 (jaar, periode, week, maandag)
-AS  
-SELECT 
+AS
+SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
@@ -2913,7 +2925,7 @@ CONNECT BY LEVEL <= 2*52+1;
 
 CREATE_VIEW(care_v_periodetabel_2jaar, 0)
 (jaar, periode, jaar_periode, week_van, week_tm, maandag_van, zondag_tm)
-AS 
+AS
 SELECT DISTINCT jaar, periode, jaar || '-' ||  LPAD (periode, 2, '0'), MIN(week), MAX(week), MIN(maandag), MAX(maandag)+6
 FROM  care_v_periodeweektabel_2jaar
 GROUP BY jaar, periode;
@@ -2922,10 +2934,10 @@ GROUP BY jaar, periode;
 -- Periodetabel van 10 weken in het verleden t/m heden
 CREATE_VIEW(care_v_periodeweektabel, 0)
 (jaar, periode, week, maandag)
-AS  
-SELECT 
+AS
+SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1 periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
@@ -2934,7 +2946,7 @@ CONNECT BY LEVEL <= 1*10+1;
 
 CREATE_VIEW(care_v_periodetabel, 0)
 (jaar, periode, jaar_periode, week_van, week_tm, maandag_van, zondag_tm)
-AS  
+AS
 SELECT DISTINCT jaar, periode, jaar || '-' ||  LPAD (periode, 2, '0'), MIN(week), MAX(week), MIN(maandag), MAX(maandag)+6
 FROM  care_v_periodeweektabel
 GROUP BY jaar, periode;
@@ -2974,6 +2986,8 @@ CREATE_VIEW( care_v_tmp2_factuur_uren, 0)
    gemeente_hv1_code,
    gemeente_hv2_code,
    gemeente_veiling,
+   gemeente_budget,
+   gemeente_ob,
    beschikkingsnr,
    beschikking_datum_van,
    beschikking_datum_tot,
@@ -2984,6 +2998,7 @@ CREATE_VIEW( care_v_tmp2_factuur_uren, 0)
    client_voorletters,
    client_tussenvoegsel,
    client_naam,
+   client_meisjesnaam,
    client_mv,
    prs_client_cak_actie,
    client_geboortedatum,
@@ -3035,6 +3050,8 @@ AS
 				    b.gemeente_hv1_code,
    					b.gemeente_hv2_code,
    					b.gemeente_veiling,
+   					b.gemeente_budget,
+   					b.gemeente_ob,
             b.beschikking_nr,
             b.beschikking_datum_van,
             b.beschikking_datum_tot,
@@ -3045,6 +3062,7 @@ AS
             b.prs_client_voorletters,
             b.prs_client_tussenvoegsel,
             b.prs_client_naam,
+            b.client_meisjesnaam,
 						b.client_mv,
             b.prs_client_cak_actie,
             b.client_geboortedatum,
@@ -3077,13 +3095,13 @@ AS
       AND 	pb.prs_bedrijf_key = 2
       AND 	ud.fac_usrdata_key = 48
       AND   gt.alg_locatie_key = b.gemeente_key
-      AND   gt.product_code = b.product_code 
-      AND   COALESCE(gt.duedatum,SYSDATE) = 
+      AND   gt.product_code = b.product_code
+      AND   COALESCE(gt.duedatum,SYSDATE) =
                           (SELECT COALESCE(MIN (gt2.duedatum),SYSDATE)
-                            FROM care_v_gemeente_tarieven gt2 
+                            FROM care_v_gemeente_tarieven gt2
                             WHERE COALESCE(gt2.duedatum,SYSDATE+999) >= uur.datum_gewerkt
                             AND   gt2.alg_locatie_key = b.gemeente_key
-                            AND   gt2.product_code = b.product_code 
+                            AND   gt2.product_code = b.product_code
                            );
 
 CREATE_VIEW(care_v_gemeente_fact2_uren, 0)
@@ -3114,7 +3132,7 @@ CREATE_VIEW( care_v_rap2_factuur_voorblad_a, 0)
 				   prs_bedrijf_contact_telefoon,
 				   prs_bedrijf_contact_fax,
 				   prs_bedrijf_email,
-				   prs_bedrijf_factnr_infix,				   
+				   prs_bedrijf_factnr_infix,
 				   fclt_f_gemeente,
 				   gemeente_code,
 				   gemeente_post_adres,
@@ -3313,7 +3331,7 @@ AS
               ROUND (100 * MIN (fu.tarief) * SUM(fu.week_uren_besteed))
     FROM		care_v_gemeente_fact2_uren fu
     GROUP BY  fu.periode, fu.gemeente, fu.beschikkingsnr, fu.bsn_client, fu.product;
-   
+
 
 
 -- FactuurRapportage view B (postfix B): op per gemeente, op periode/week-nivo de gemaakte uren per beschikking totaliseren...
@@ -3357,7 +3375,7 @@ AS
               ROUND (100 * MIN (tarief) * SUM (week_uren_besteed))
        FROM   care_v_gemeente_fact2_uren f
    GROUP BY   periode, gemeente, beschikkingsnr, f.bsn_client, product, jaar, weeknr;
- 
+
 
 -- FactuurRapportage view C (postfix C): op per gemeente, op periode/week-nivo/datum de gemaakte uren per beschikking totaliseren...
 
@@ -3552,7 +3570,7 @@ CREATE_VIEW( care_v_rap2_factuur_uren_g, 0)
    record_einde
 )
 AS
-   
+
    SELECT     f.periode,
      					f.gemeente,
      					1,
@@ -3999,7 +4017,7 @@ CREATE_VIEW( care_v_rap2_factuur_uren_p, 0)
    factuurbedrag
 )
 AS
-   SELECT           
+   SELECT
         periode,
         gemeente,
         MIN(jaar) || COALESCE(MIN(TO_CHAR(gemeente_factnr_infix)), MIN(prs_bedrijf_factnr_infix)) || SUBSTR(periode,6,2) || COALESCE(MIN(TO_CHAR(gemeente_factnr_suffix)), MIN(gemeente_code)),
@@ -4010,7 +4028,7 @@ AS
         MIN (client_postcode),
         MIN (client_woonplaats),
         MIN (client_geboortedatum),
-        ROUND(SUM(week_uren_besteed),2),           
+        ROUND(SUM(week_uren_besteed),2),
         DECODE(product, 'HV1', 'CHT basis','HV2', 'CHT plus', 'HV3', '', ''),
         weeknr,
         ROUND (MIN (tarief) * SUM(week_uren_besteed), 2)
@@ -4085,6 +4103,94 @@ AS
    GROUP BY   periode, gemeente, beschikkingsnr, f.bsn_client, product, jaar, weeknr, datum;
 
 
+
+
+
+-- FactuurRapportage view Iwmo
+CREATE_VIEW( care_v_rap2_factuur_uren_iwmo, 0)
+(
+	 fclt_x_periode,
+	 fclt_x_gemeente,
+	 bsn,
+	 geboortedatum,
+	 geslacht,
+	 geboortenaam,
+	 voorvoegsel,
+	 naamcode1,
+	 achternaampartner,
+	 voorvoegselpartner,
+	 voorletters,
+	 naamcode2,
+	 postcode,
+	 huisnummer,
+	 huisnummertoevoeging,
+   indicatieoverleden,
+	 beschikkingsnummer,
+	 productcategorie,
+	 begindatumproduct,
+	 einddatumproduct,
+	 productcode,
+	 aantaluitgevoerdeproduct,
+	 tijdseenheidzorgperiode,
+	 declaratiebedrag,
+	 debetcredit,
+	 referentienummercredit
+)
+AS
+     SELECT   f.periode,
+     					f.gemeente,
+     					f.bsn_client, -- kolom A
+     					SUBSTR(MIN (client_geboortedatum),7,4)||SUBSTR(MIN (client_geboortedatum),4,2)||SUBSTR(MIN (client_geboortedatum),1,2), --kolom B
+     					DECODE(MIN(client_mv),'M',1,'V',2,''), -- kolom C
+     					COALESCE(MIN(client_meisjesnaam), MIN (client_naam)), -- kolom D
+     					'', -- kolom E
+     					'1', -- kolom F
+     					'', -- kolom G
+     					'', -- kolom H
+     					REPLACE(REPLACE (MIN (client_voorletters), ' ', ''),'.',''), --kolom I
+     					'0', -- kolom J
+     					REPLACE(MIN (client_postcode), ' ', ''), --kolom K
+     					SUBSTR (
+                  MIN(client_huisnr),
+                  1,
+                  DECODE (REGEXP_INSTR (MIN(client_huisnr), '[[:alpha:]]|[-]'),
+                          0, LENGTH (MIN(client_huisnr)),
+                          REGEXP_INSTR (MIN(client_huisnr), '[[:alpha:]]|[-]') - 1
+                         )
+              ), --Kolom L
+              SUBSTR (
+                      MIN(client_huisnr),
+                      DECODE (REGEXP_INSTR (MIN(client_huisnr), '[[:alpha:]]|[-]'),
+                              0, LENGTH (MIN(client_huisnr)) + 1,
+                              REGEXP_INSTR (MIN(client_huisnr), '[[:alpha:]]|[-]')
+                             )
+              ), --Kolom M
+     					'2', -- kolom N
+     					beschikkingsnr, -- Kolom O
+     					'01', -- Kolom P
+     					TO_CHAR(GREATEST(MIN(pt.maandag_van), MIN(beschikking_datum_van)),'YYYYMMDD'), -- Kolom Q
+     					TO_CHAR(LEAST(MIN(pt.zondag_tm), MIN(beschikking_datum_tot)),'YYYYMMDD'), -- Kolom R
+     					LPAD(DECODE(product, 'HV1', TO_CHAR(COALESCE(MIN(gemeente_hv1_code), 1)), 'HV2', TO_CHAR(COALESCE(MIN(gemeente_hv2_code),2)), 'HV3', TO_CHAR(COALESCE(MIN(gemeente_hv2_code),2)+1), ''),5,'0')   , -- Kolom S
+     					CASE
+	               WHEN MIN(gemeente_budget)=0 THEN TO_CHAR(ROUND (60 * SUM (week_uren_besteed)))
+	               ELSE '0001'
+            	END, -- Kolom T
+     					CASE
+	               WHEN MIN(gemeente_budget)=0 THEN '01'
+	               ELSE '81'
+            	END, -- Kolom U
+     					CASE
+	               WHEN MIN(gemeente_budget)=0 THEN LPAD(TO_CHAR(ROUND (100 * MIN (tarief) * SUM (week_uren_besteed))), 8, '0')
+	               ELSE LPAD(TO_CHAR(ROUND (100 * MIN (tarief))), 8, '0')
+            	END, -- Kolom V
+     					'D', -- Kolom W
+     					'' --Kolom X
+       FROM   care_v_gemeente_fact2_uren f, care_v_periodetabel_2jaar pt
+       WHERE  f.periode = pt.jaar_periode
+   GROUP BY   f.periode, gemeente, beschikkingsnr, f.bsn_client, product;
+
+
+
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 
@@ -4217,7 +4323,7 @@ AS
    SELECT   periode,
             bsn_verzorger,
             nr_verzorger,
-            verzorger,            
+            verzorger,
             prs_perslid_dienstverband,
             mld_impropdr_key,
             week_uren_besteed,
@@ -4273,49 +4379,49 @@ CREATE_VIEW( care_v_periode_x_salaris, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, periode_uren_besteed, dagen, bsn_periode)
 AS
 SELECT jaar_periode, bsn_verzorger, MIN(nr_verzorger), MIN(verzorger), MIN(prs_perslid_dienstverband), ROUND(SUM (week_uren_besteed),2), COUNT(DISTINCT datum), bsn_verzorger ||'_'|| jaar_periode
-   FROM  care_v_periodetabel_2jaar pt, care_v_rap2_salaris x 
+   FROM  care_v_periodetabel_2jaar pt, care_v_rap2_salaris x
   WHERE      pt.jaar_periode = x.periode
   GROUP BY jaar_periode, bsn_verzorger;
 
-  
+
 CREATE_VIEW( care_v_periode_x_ziek, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, ziekte_uren, dagen, bsn_periode)
 AS
 SELECT jaar_periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, ziekte_uren, dagen, bsn_verzorger ||'_'|| jaar_periode
-     FROM  care_v_periodetabel_2jaar pt, care_v_gekeurde_ziek2_uren x 
+     FROM  care_v_periodetabel_2jaar pt, care_v_gekeurde_ziek2_uren x
     WHERE      pt.jaar_periode = x.periode;
-    
-CREATE_VIEW( care_v_periode_x_vrij, 0) 
+
+CREATE_VIEW( care_v_periode_x_vrij, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, verlof_uren, dagen, bsn_periode)
 AS
 SELECT  jaar_periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, verlof_uren, dagen, bsn_verzorger ||'_'|| jaar_periode
-     FROM  care_v_periodetabel_2jaar pt, care_v_gekeurde_vrij2_uren x 
+     FROM  care_v_periodetabel_2jaar pt, care_v_gekeurde_vrij2_uren x
     WHERE      pt.jaar_periode = x.periode;
 
-CREATE_VIEW( care_v_periode_x_auto, 0) 
+CREATE_VIEW( care_v_periode_x_auto, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, woonwerk_km, rest_km, bsn_periode)
-AS      
+AS
 SELECT jaar_periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, woonwerk_km, rest_km, bsn_verzorger ||'_'|| jaar_periode
-     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_auto x 
+     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_auto x
     WHERE      pt.jaar_periode = x.periode;
 
-CREATE_VIEW( care_v_periode_x_fiets, 0) 
+CREATE_VIEW( care_v_periode_x_fiets, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, mld_opdruren_kosten_besteed, bsn_periode)
-AS            
+AS
 SELECT jaar_periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, mld_opdruren_kosten_besteed, bsn_verzorger ||'_'|| jaar_periode
-     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_fiets x 
+     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_fiets x
     WHERE      pt.jaar_periode = x.periode;
- 
-CREATE_VIEW( care_v_periode_x_bromfiets, 0) 
+
+CREATE_VIEW( care_v_periode_x_bromfiets, 0)
 (periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, mld_opdruren_kosten_besteed, bsn_periode)
-AS        
+AS
 SELECT jaar_periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, mld_opdruren_kosten_besteed, bsn_verzorger ||'_'|| jaar_periode
-     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_bromfiets x 
+     FROM  care_v_periodetabel_2jaar pt, care_v_rap2_bromfiets x
     WHERE      pt.jaar_periode = x.periode;
 
 
 CREATE_VIEW( care_v_salaris_all, 0)
-(periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, periode_uren_besteed, werkdagen,ziekte_uren, ziekdagen, verlof_uren, verlofdagen, woonwerk_km, rest_km, fietsdagen, bromfietsdagen) 
+(periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, periode_uren_besteed, werkdagen,ziekte_uren, ziekdagen, verlof_uren, verlofdagen, woonwerk_km, rest_km, fietsdagen, bromfietsdagen)
 AS
     SELECT periode, bsn_verzorger, nr_verzorger, verzorger, prs_perslid_dienstverband, periode_uren_besteed, dagen, 0, 0, 0, 0, 0, 0, 0, 0
     FROM  care_v_periode_x_salaris s
@@ -4498,6 +4604,7 @@ CREATE_VIEW( care_v_cak2_factuur_uren_b, 0)
    factuurdatum,
    wzacode,
    fclt_f_gemeente,
+   gemeente_ob,
    beschikkingsnr,
    bsn_client,
    client_nr,
@@ -4521,6 +4628,7 @@ AS
               TO_CHAR (SYSDATE, 'DD-MM-YYYY'),
               MIN (wzacode),
               gemeente,
+              MIN(gemeente_ob),
               beschikkingsnr,
               bsn_client,
               MIN (client_nr),
@@ -4539,6 +4647,7 @@ AS
               ROUND (100 * MIN (tarief) * SUM (week_uren_besteed))
        FROM   care_v_gemeente_fact2_uren
        WHERE  gemeente_veiling = 0
+       AND    gemeente_budget = 0
    GROUP BY   periode, gemeente, beschikkingsnr, bsn_client, product, jaar, weeknr, verzorger_key;
 
 
@@ -4577,7 +4686,7 @@ AS
             || RPAD (' ', 54, ' ')
      FROM   prs_bedrijf pb, fac_usrdata ud2, fac_usrdata ud3, care_v_cak_choose_periode cp
     WHERE   ud2.fac_usrdata_key = 42 AND ud3.fac_usrdata_key = 43;
-    
+
 
 
 
@@ -4603,14 +4712,14 @@ AS
             jaar
             || LPAD(weeknr,2,'0')
             || LPAD (COALESCE (client_nr, ' '), 10, '0')
-            || DECODE (product, 'HV1', ud1.fac_usrdata_omschr, 'HV2', ud2.fac_usrdata_omschr, 'HV3', ud4.fac_usrdata_omschr, '000')
+            || DECODE (product, 'HV1', DECODE( gemeente_ob, 1, '428',  ud1.fac_usrdata_omschr), 'HV2', DECODE( gemeente_ob, 1, '429',  ud2.fac_usrdata_omschr), 'HV3', DECODE( gemeente_ob, 1, '430',  ud4.fac_usrdata_omschr), '000')
             || ud3.fac_usrdata_omschr
             || LPAD (FLOOR (f.uren), 3, '0')
             || LPAD (ROUND(60 * (f.uren - FLOOR (f.uren))), 2, '0')
             || LPAD (verzorger_key, 10, '0')
             || RPAD (' ', 2, ' ')
             || RPAD (' ', 39, ' ')
-     FROM   care_v_cak2_factuur_uren_b f, fac_usrdata ud1, fac_usrdata ud2, 
+     FROM   care_v_cak2_factuur_uren_b f, fac_usrdata ud1, fac_usrdata ud2,
             fac_usrdata ud3, fac_usrdata ud4
     WHERE   ud1.fac_usrdata_key = 44
       AND 	ud2.fac_usrdata_key = 45
@@ -4645,7 +4754,7 @@ AS
            minuten,
            '51' || '1' || txt
    FROM care_v_cak_zorg_pre_record;
-   
+
 
 --- Gewijzigde cq. correctie zorguren die naar CAK moeten.
 --- KEY(prs_client_cak_actie) = 2 betekent "Correctie zorguren voor CAK"
@@ -4671,7 +4780,7 @@ AS
            '51' || prs_client_cak_actie || txt
     FROM care_v_cak_zorg_pre_record
     WHERE prs_client_cak_actie = 1 OR prs_client_cak_actie = 2;
-   
+
 
 -- MB: let wel: een beetje tricky, maar wel ok!
 -- Er mogen alleen clienten in bestand die nog niet eerder zijn aangeleverd (dus alleen de nieuwe clienten van dezer periode)
@@ -4711,7 +4820,7 @@ AS
               || RPAD (' ', 6, ' ')
        FROM   care_v_beschikking_all b, care_v_cak_client_zorg_record cz
       WHERE   cz.bsn_client = b.client_bsn
-              AND b.pgb IS NULL              
+              AND b.pgb IS NULL
    GROUP BY   cz.fclt_f_periode, b.client_bsn;
 
 
@@ -4741,7 +4850,7 @@ AS
               b.client_bsn,
               '12' || TO_NUMBER (TO_CHAR (MIN (b.beschikking_datum_van), 'IYYY'))
               || LPAD (TO_NUMBER (TO_CHAR (MIN (b.beschikking_datum_van), 'IW')), 2,'0')
-              || LPAD (COALESCE (MIN(client_nr), ' '), 10, '0')   
+              || LPAD (COALESCE (MIN(client_nr), ' '), 10, '0')
               || '1'
               || LPAD (COALESCE (MIN (client_mv), ' '), 1, ' ')
               || UPPER (LPAD (COALESCE (REPLACE (MIN (client_postcode), ' ', ''), ' '), 6, ' '))
@@ -4803,7 +4912,7 @@ AS
               || RPAD (' ', 6, ' ')
        FROM   care_v_beschikking_all b, care_v_cak_changed_zorg_record cz
       WHERE   cz.bsn_client = b.client_bsn
-              AND b.pgb IS NULL              
+              AND b.pgb IS NULL
    GROUP BY   cz.fclt_f_periode, b.client_bsn;
 
 
@@ -4833,7 +4942,7 @@ AS
               b.client_bsn,
               '12' || TO_NUMBER (TO_CHAR (MIN (b.beschikking_datum_van), 'IYYY'))
               || LPAD (TO_NUMBER (TO_CHAR (MIN (b.beschikking_datum_van), 'IW')), 2,'0')
-              || LPAD (COALESCE (MIN(client_nr), ' '), 10, '0')   
+              || LPAD (COALESCE (MIN(client_nr), ' '), 10, '0')
               || '1'
               || LPAD (COALESCE (MIN (client_mv), ' '), 1, ' ')
               || UPPER (LPAD (COALESCE (REPLACE (MIN (client_postcode), ' ', ''), ' '), 6, ' '))
@@ -5035,18 +5144,18 @@ AS
 -- Periodetabel van 10 jaar in het verleden t/m 10 jaar in toekomst
 CREATE_VIEW(care_v_qvw_periodeweektabel, 0)
 (jaar, periode, week, maandag)
-AS  
-SELECT 
+AS
+SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
-    DECODE(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1)  periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
     TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
 FROM  DUAL
 CONNECT BY LEVEL <= 5*52+1
 UNION
-SELECT 
+SELECT
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IYYY') jaar,
-    DECODE(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1)  periode,
+    LEAST(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 13) periode,
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,
     TRUNC (SYSDATE + 7*(LEVEL), 'IW') startdatum
 FROM  DUAL
@@ -5062,7 +5171,7 @@ AS
        FROM   care_v_beschikking_all b, care_v_te_factureren_uren uur
       WHERE   b.mld_melding_key = uur.mld_melding_key(+)
    GROUP BY   b.mld_melding_key;
-   
+
 
 CREATE_VIEW( care_v_qvw_beschikk, 0)
 AS
@@ -5074,7 +5183,7 @@ AS
             b.prs_client_naam || ',' || prs_client_tussenvoegsel || ',' || prs_client_voorletters AS prs_client_naam,
             b.client_bsn,
             b.client_mv,
-            b.client_geboortedatum,
+            TO_DATE(b.client_geboortedatum, 'DD-MM-YYYY') client_geboortedatum,
             b.client_woonplaats,
             b.beschikking_datum_van,
             DECODE (
@@ -5148,13 +5257,13 @@ AND COALESCE(gt.duedatum,SYSDATE)=  (SELECT COALESCE(MIN (gt2.duedatum),SYSDATE)
                             WHERE gt2.alg_locatie_key = gt.alg_locatie_key
                             AND   gt2.product_code = gt.product_code
                            );
-*/                           
-                           
-                           
+*/
+
+
 CREATE_VIEW( care_v_qvw_gemeente_tarieven, 0)
 (alg_locatie_key, product_code, tarief, vandatum, tmdatum)
 AS
-SELECT alg_locatie_key, product_code, tarief,   
+SELECT alg_locatie_key, product_code, tarief,
         COALESCE(LAG(duedatum+1, 1,  TO_DATE('01-01-2010','DD-MM-YYYY')) OVER (ORDER BY alg_locatie_key, product_code, duedatum),  TO_DATE('01-01-2010','DD-MM-YYYY')) AS vandatum,
         COALESCE(duedatum,TO_DATE('31-12-2099','DD-MM-YYYY')) AS tmdatum
 FROM  care_v_gemeente_tarieven;
@@ -5174,7 +5283,7 @@ WHERE pw.maandag >= vandatum AND pw.maandag <= tmdatum;
 CREATE_VIEW( care_v_qvw_beschikk_per_week, 0)
 (mld_melding_key, beschikking_maandag_van, beschikking_maandag_tot, uren_beschikking, tarief, jaar, periode, week, maandag_vande_week)
 AS
-SELECT mld_melding_key, beschikking_maandag_van, beschikking_maandag_tot, uren_beschikking, 
+SELECT mld_melding_key, beschikking_maandag_van, beschikking_maandag_tot, uren_beschikking,
        CASE
          WHEN b.pgb = 1 THEN b.pgb_tarief
          WHEN b.gemeente_veiling = 1 THEN b.pgb_tarief
@@ -5205,7 +5314,7 @@ AS
                AS prs_verzorger_naam,
             z.verzorger_bsn,
             z.verzorger_mv,
-            z.verzorger_geboortedatum,
+            TO_DATE(z.verzorger_geboortedatum, 'DD-MM-YYYY') verzorger_geboortedatum,
             z.verzorger_woonplaats,
             z.prs_verzorger_dienstverband
      FROM   care_v_bestede_uren_all u, care_v_verzorger z
@@ -5407,7 +5516,7 @@ AS
 				   CASE
 				   		 WHEN
 				   		 		SUM(cd.mld_opdruren_dagkosten_totaal) > 0 THEN
-				            ROUND((SUM(km.kilometers) - ROUND((SUM(cd.mld_opdruren_dagkosten_totaal+500))/1000))/ROUND((SUM(cd.mld_opdruren_dagkosten_totaal+500))/1000)*100) || ' %' 
+				            ROUND((SUM(km.kilometers) - ROUND((SUM(cd.mld_opdruren_dagkosten_totaal+500))/1000))/ROUND((SUM(cd.mld_opdruren_dagkosten_totaal+500))/1000)*100) || ' %'
 				       ELSE 'Onbekend'
 				   END
    FROM care_v_verzorger_km_per_dag km, mld_opdruren_dagkosten cd
@@ -5507,7 +5616,7 @@ AS
 				   COALESCE(cd.mld_opdruren_dagkosten_totaal,0),
 				   ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000),
 				   CASE
-				   		 WHEN cd.mld_opdruren_dagkosten_totaal > 0 
+				   		 WHEN cd.mld_opdruren_dagkosten_totaal > 0
 				   		 THEN km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)
 				       ELSE 0
 				   END,
@@ -5515,7 +5624,7 @@ AS
 				   		 WHEN
 				   		 		cd.mld_opdruren_dagkosten_totaal > 0 THEN
 				   		 		CASE
-			               WHEN km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000) <= -2 
+			               WHEN km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000) <= -2
 			               			THEN 'A. < (Minder dan NORM geschreven)'
 			               WHEN km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000) >= -1 AND km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000) <= 1
 			               			THEN 'B. = (Volgens NORM geschreven)'
@@ -5531,7 +5640,7 @@ AS
 			               			THEN 'G. 51 - 100 km (Boven NORM geschreven)'
 			               ELSE 'H. > 100 km (Boven NORM geschreven)'
            			END
-           		ELSE 'Onbekend'	
+           		ELSE 'Onbekend'
            END,
            CASE
 				   		 WHEN
@@ -5545,30 +5654,30 @@ AS
 				   		 		CASE
 			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) < 0
 			               			THEN 'A. < % (Minder dan NORM geschreven)'
-			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) = 0 
+			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) = 0
 			               			THEN 'B. = (Volgens NORM geschreven)'
-			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 0 
-			               			AND 
-			               			ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) <= 10 
+			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 0
+			               			AND
+			               			ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) <= 10
 			               			THEN 'C. 0 - 10% (Boven NORM geschreven)'
-			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 10 
-			               			AND 
+			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 10
+			               			AND
 			               			ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) <= 20
 			               			THEN 'D. 11 - 20% (Boven NORM geschreven)'
-			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 20 
-			               			AND 
+			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 20
+			               			AND
 			               			ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) <= 50
 			               			THEN 'E. 21 - 50% (Boven NORM geschreven)'
-			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 51 
-			               			AND 
+			               WHEN ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) > 51
+			               			AND
 			               			ROUND((km.kilometers - ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000))/ROUND((cd.mld_opdruren_dagkosten_totaal+500)/1000)*100) <= 100
-			               			THEN 'F. 51 - 100% (Boven NORM geschreven)'			
+			               			THEN 'F. 51 - 100% (Boven NORM geschreven)'
 			               ELSE 'G. > 100 % (Boven NORM geschreven)'
            			END
-           		ELSE 'Onbekend'	
+           		ELSE 'Onbekend'
            END,
            mld_opdruren_dagkosten_opm,
-           CASE           		 
+           CASE
 				   		 WHEN	cd.mld_opdruren_dagkosten_totaal IS NULL    THEN '<a href="..\..\appl\care\care_calc_dist.asp?mld_opdr_uren_key=' || km.mld_opdr_uren_key || '"><img src="..\..\appl\care\images\vraagje.png"></a>'
 				   		 WHEN	cd.mld_opdruren_dagkosten_totaal < 0        THEN '<a href="..\..\appl\care\care_calc_dist.asp?mld_opdr_uren_key=' || km.mld_opdr_uren_key || '"><img src="..\..\appl\care\images\foutje.png"></a>'
 				   		 ELSE '<a href="' || cd.mld_opdruren_dagkosten_opm || '" target="_blank"><img src="..\..\appl\care\images\googlemaps.png"></a>'
@@ -5704,8 +5813,8 @@ AS
    GROUP BY km.prs_perslid_key, km.jaar, km.periode;
 
 
--- matchtype = A (mAtch tussen medewerker werktijden en opdrachttijd), 
---           = B (medewerker is Beschikbaar, en heeft hier geen opdracht, 
+-- matchtype = A (mAtch tussen medewerker werktijden en opdrachttijd),
+--           = B (medewerker is Beschikbaar, en heeft hier geen opdracht,
 --           = C (de opdrachttijd Conflicteert met de medewerker's werktijden).
 
 -- Deel A: uitvoeringsplan valt geheel of gedeeltelijk binnen de inzetbaarheid van een persoon, opgesplits in A1 en A2:
@@ -5994,7 +6103,7 @@ SELECT NULL inzetbaar_key,
                                   WHERE o.mld_opdr_key = mu.mld_opdr_key
                                     AND o.mld_opdr_einddatum >= TRUNC(SYSDATE)
                                     AND mu.mld_opdr_uitvoeren_dag = weekdagen.dag)
-   AND p.prs_afdeling_key = 21; 
+   AND p.prs_afdeling_key = 21;
 
 
 CREATE_VIEW ( care_v_prs_opdrachturen, 0)
@@ -6107,7 +6216,7 @@ AND c.prs_perslid_key = u.prs_perslid_key(+) ;
 
 CREATE_VIEW( care_v_rap_prs_team_planbord, 0)
 AS
-    SELECT 
+    SELECT
         prs_perslid_inzetbaar_key,
         mld_opdr_uitvoeren_key,
         pb.prs_perslid_key,

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.');

CNT/CNT_PAC.SRC

@@ -296,6 +296,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       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
@@ -312,22 +314,31 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   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,
@@ -341,6 +352,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
                   cnt_prs_afdeling_key,
+                  cnt_prs_perslid_key,
                   NULL,
                   cnt_contract_nummer_intern,
                   cnt_contract_korting,
@@ -351,7 +363,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   prs_perslid_key_eig,
                   prs_perslid_key_beh,
                   prs_afdeling_key_eig,
-                  2,
+                  new_status,
                   p_datum,
                   prs_kostenplaats_key,
                   cnt_contract_termijnkosten,
@@ -495,7 +507,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN VARCHAR2
    IS
       s VARCHAR2 (2048 CHAR);
-      varlev prs_bedrijf.prs_bedrijf_naam%TYPE;
+      varlev VARCHAR2 (255 CHAR); -- Kan nu ook een samenstelling zijn van prs_perslid gegevens.
       varomsch cnt_contract.cnt_contract_omschrijving%TYPE;
       varnummer cnt_contract.cnt_contract_nummer_intern%TYPE;
    BEGIN
@@ -506,12 +518,19 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       -- ##KEY##    = cnt_contract_nummer_intern
       IF INSTR (s, '#') > 0
       THEN
-           SELECT prs_bedrijf_naam,
+         SELECT   COALESCE(prs_bedrijf_naam, fac.getsetting ('prs_pers_string'), fac.getsetting ('prs_dep_string')),
                   cnt_contract_omschrijving,
                   cnt_contract_nummer_intern
-           INTO   varlev, varomsch, varnummer
-           FROM   cnt_contract c, prs_bedrijf b
-          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+           INTO   varlev,
+                  varomsch,
+                  varnummer
+           FROM   cnt_contract c,
+                  prs_bedrijf b,
+                  prs_perslid p,
+                  prs_afdeling a
+          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+            AND   c.cnt_prs_perslid_key = p.prs_perslid_key(+)
+            AND   c.cnt_prs_afdeling_key = a.prs_afdeling_key(+)
             AND   c.cnt_contract_key = p_contract_key;
          s :=
             REPLACE (REPLACE (REPLACE (s, '##LEV##', varlev), '##OMSCH##', varomsch),

CNT/CNT_TAB.SRC

@@ -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)
@@ -155,6 +160,10 @@ CREATE_TABLE(cnt_contract,0)
    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)
@@ -305,6 +314,9 @@ 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
@@ -325,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)

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

CNT/CNT_VIE.SRC

@@ -273,31 +273,12 @@ SELECT basis.contract_key, basis.internnr, basis.externnr,
                   cs.ins_discipline_omschrijving contractsoort,
                   tc.cnt_typecontract_key typecontract_key,
                   tc.cnt_typecontract_omschrijving typecontract,
-                  TO_CHAR
-                       (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE),
-                        'DD-MM-YYYY'
-                       ) ingangsdatum,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) rappeldatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE)) ingangsdatum,
+                  TRUNC (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) rappeldatum,
                   rt.cnt_termijn_omschrijving rappeltermijn,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) opzegdatum,
+                  TRUNC (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) opzegdatum,
                   ot.cnt_termijn_omschrijving opzegtermijn,
-                  TO_CHAR (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE),
-                           'DD-MM-YYYY'
-                          ) einddatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)) einddatum,
                   (SELECT d.prs_afdeling_naam6
                      FROM prs_v_aanwezigafdeling d
                     WHERE d.prs_afdeling_key =
@@ -925,6 +906,263 @@ AS
                ck k25
             ON x.cnt_contract_key = k25.cnt_contract_key AND k25.vnr = 25;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* NB: een contract komt net zo vaak voor als zijn scope */
+CREATE_VIEW(cnt_v_udr_contract, 1)
+(
+   nummer,
+   nummer_extern,
+   versie,
+   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,
+       DECODE (cnt.cnt_contract_status (c.cnt_contract_looptijd_van,
+                                        cnt.cnt_getrappeldatum (c.cnt_contract_key),
+                                        cnt.cnt_getopzegdatum (c.cnt_contract_key),
+                                        c.cnt_contract_looptijd_tot),
+               0, lcl.l ('lcl_cnt_future'),
+               1, lcl.l ('lcl_cnt_topical'),
+               2, lcl.l ('lcl_cnt_warn'),
+               3, lcl.l ('lcl_cnt_cancel'),
+               4, lcl.l ('lcl_cnt_past'))
+          fase_actief,
+       DECODE (
+          c.cnt_contract_status,
+          0,
+          DECODE (fac.getsetting ('cnt_contract_approval'),
+                  1, lcl.l ('lcl_cnt_active_approval'),
+                  lcl.l ('lcl_cnt_active')),
+          1,
+          lcl.l ('lcl_cnt_inactive'),
+          2,
+          lcl.l ('lcl_cnt_new'),
+          3,
+          lcl.l ('lcl_cnt_forapproval'))
+          cnt_contract_status,
+       c.cnt_contract_key cnt_contract_key,
+       COALESCE (c.ins_discipline_key, -1) disc_key,
+       c.prs_afdeling_key_eig eigenaar_key,
+       (SELECT lcl.x ('cnt_typecontract_omschrijving',
+                      dp.cnt_srtcontract_type,
+                      cnt_typecontract_omschrijving)
+          FROM cnt_typecontract
+         WHERE cnt_typecontract_key = dp.cnt_srtcontract_type)
+          cnt_srtcontract_type,
+       alg_locatie_key,
+       alg_locatie_oms,
+       alg_locatie_omschrijving,
+       alg_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,
+             COALESCE (cloc.cnt_contract_plaats_gewicht, 1) * c.cnt_contract_kosten
+             / (SELECT DECODE (SUM (COALESCE (cnt_contract_plaats_gewicht, 0)),
+                               0, 1,
+                               SUM (cnt_contract_plaats_gewicht))
+                  FROM cnt_contract_plaats ccp
+                 WHERE ccp.cnt_contract_key = cnt_contract_key),
+             c.cnt_contract_kosten),
+          2)
+          kosten,
+       c.cnt_contract_termijnkosten,
+       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_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

@@ -21,10 +21,10 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 5
+#define _VERSIONMAJ 2015
 #define _VERSIONMIN 3
-#define _VERSIONPATCH STRINGIZE(3)
-#define _VERSION '5.3.3'
+#define _VERSIONPATCH '0'
+#define _VERSION '2015.3.0'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \
@@ -79,6 +79,9 @@ BEGIN adm.systrackscriptId(svnid, 0); END;~/
  END
 
 
+#define CREATE_TYPE(type_name)                                                 \
+ CREATE TYPE type_name
+
 #define CREATE_TABLE(table_name, level)                                        \
  CREATE TABLE table_name
 
@@ -99,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 \
@@ -632,7 +635,7 @@ CEIL
 #define DEF_FAC_SRTNOT(c, m, o, u, g, x, d) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode, fac_srtnotificatie_delay) VALUES (c, m, o, u, g, x, d)
 
 #define DEF_MENUKOP(g, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, 1 FROM fac_menuitems
-#define DEF_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_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
@@ -652,24 +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)
 
-/* 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); ~\
@@ -691,12 +676,6 @@ CEIL
  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

@@ -27,6 +27,7 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
                       fac_import_app_prefix);
 
 CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
+CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
 CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key);
 
 CREATE INDEX fac_i_tracking_refkey1 ON fac_tracking(fac_tracking_refkey);

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,20 +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')
@@ -116,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')
@@ -181,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')
@@ -205,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')
@@ -243,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')
@@ -251,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)')
@@ -264,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')
@@ -281,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')
@@ -312,7 +328,7 @@ 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)')
@@ -329,6 +345,7 @@ 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')
@@ -344,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')
@@ -374,8 +391,9 @@ START_FACMGT_LCL(NULL, NULL)
     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')
@@ -396,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')
@@ -479,8 +499,53 @@ START_FACMGT_LCL(NULL, NULL)
     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('Prijsfactor intern', 'Internal price factor', 'Interne Faktor Preis', 'Facteur prix interne')
+    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', '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 */
@@ -526,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)'
@@ -613,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'
@@ -658,6 +723,10 @@ 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'
@@ -686,10 +755,55 @@ 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 frontoffice'
-              ,';;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;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;Inspection;2;Replacement;3;Certification'
+              ,'1;Kontrolle;2;Ersatz;3;Zertifizierung'
+              ,'1;Contr<74>le;2;Remplacement;3;Certification')
+    FACMGT_LCL('0;Niet;1;BOF;2;BO3;3;BO3 en dan BOF'
+              ,'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')
     FACMGT_LCL('Numeriek'            ,'Number'              ,'Numerisch','Num<75>rique')
@@ -702,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')
@@ -746,7 +861,7 @@ 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('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')
@@ -784,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',           'Call',           '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 */
@@ -879,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()
@@ -893,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')
@@ -938,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')
@@ -957,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')
@@ -975,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('$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;
 
@@ -95,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

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;
@@ -40,6 +42,7 @@ 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

FAC/FAC_SET.SRC

@@ -1,4 +1,4 @@
-    /*
+/*
  *  $Id$
  *  $Revision$
  *
@@ -34,8 +34,8 @@ 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)
 DEFINE_SETTING('FAC', 0003, 'logoff_return_url'                     , 'string'                      , '../../'                      , 'Return url to go to after log off')
@@ -49,19 +49,26 @@ DEFINE_SETTING('FAC', 0001, 'cache_changecounter'                   , 'number'
 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|tiff|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, '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}')
@@ -71,18 +78,23 @@ DEFINE_SETTING('FAC', 0003, 'helppage_url'                          , 'string'
 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('PRS', 0001, 'prs_max_dep_level'                     , 'number'                      , '2'                           , 'number of levels between prs_bedijf and prs_perslid (max = 5)')
-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'                      , '16'                          , 'Password hash workfactor (2^x)')
+DEFINE_SETTING('FAC', 0001, 'prs_password_hash_length'              , 'number'                      , '20'                          , 'Password hash length')
+DEFINE_SETTING('FAC', 0001, 'prs_password_otp_window'               , 'number'                      , '60'                          , 'OTP windows (x seconds early/late allowed)')
+DEFINE_SETTING('FAC', 0001, 'prs_password_otp_window2'              , 'number'                      , '600'                         , 'OTP windows for resync (x seconds early/late allowed, future use)')
 DEFINE_SETTING('FAC', 0003, 'iconcolumns'                           , 'number'                      , '6'                           , 'number of columns in an iconmenu page.')
-// Deprecated met/na 5.3.1, even laten staan voor backward compatible 5.2.3
-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)')
@@ -92,37 +104,41 @@ DEFINE_SETTING('FAC', 0001, 'login_url'                             , 'string'
 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', 0003, 'self_fromaddress'                      , 'string'                      , 'FACILITOR registratie <no_reply@facilitor.nl>', 'From-address for confirmation e-mail self-registration')
+DEFINE_SETTING('FAC', 0003, 'self_replyaddress'                     , 'string'                      , 'no_reply@facilitor.nl'       , 'Reply-address for confirmation e-mail self-registration')
 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, 'sys_ip_jail'                           , 'string'                      , ''                            , 'Regexp ip-jail to prevent roaming (future use)')
-DEFINE_SETTING('FAC', 0001, 'auto_https'                            , 'number'                      , '1'                           , '0=not https, 1=http redirects to https, (2=error when not http, not supported yet)')
+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_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'                      , 'FACILITOR<no_reply@facilitor.nl>', 'must be defined if EnableMailService')
-DEFINE_SETTING('FAC', 0003, 'ReplyAddress'                          , 'string'                      , ''                            , 'ReplyTo Address')
+DEFINE_SETTING('FAC', 0003, 'ReplyAddress'                          , 'string'                      , ''                            , 'ReplyTo Address when e-mailing manually')
 DEFINE_SETTING('FAC', 0001, 'widgetportal'                          , 'number'                      , '0'                           , 'Use a widgetpage as startpage (1) or the standard page (0)')
 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}')
@@ -145,30 +161,35 @@ DEFINE_SETTING('FAC', 0003, 'show_ordernr'                          , 'number'
 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', 0000, 'sso_advanced_secret_alt'               , 'string'                      , ''                            , 'Shared secret for alternate advanced SSO')
+DEFINE_SETTING('FAC', 0001, 'fclt_web_url'                          , 'string'                      , ''                            , 'Url to the FACILITOR software (future use)')
+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 script')
-DEFINE_SETTING('FAC', 0001, 'sso_advanced_url_alt'                  , 'string'                      , ''                            , 'Advanced SSO path to alternate customer sso script')
+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, 'qp_maxrows_mobile'                     , 'number'                      , '50'                          , '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_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('FAC', 0003, 'mobile_position_required'              , 'number'                      , '1'                           , 'A current position is required for geo-scoping (1) or not (0)')
 DEFINE_SETTING('CAD', 0009, 'fg_dwf_path'                           , 'string'                      , NULL                          , 'full filepath to FACILITOR Graphics DWF files')
 DEFINE_SETTING('CAD', 0009, 'fg_dwf_path_concept'                   , 'string'                      , NULL                          , NULL)
 DEFINE_SETTING('CAD', 0009, 'fg_vlucht_path'                        , 'string'                      , NULL                          , 'full filepath to FACILITOR Graphics vlucht DWF files')
@@ -207,6 +228,7 @@ DEFINE_SETTING('CAD', 0001, 'fg_dobbelScale'                        , 'float'
 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', 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)
@@ -217,7 +239,10 @@ DEFINE_SETTING('CAD', 0003, 'fg_labellayers_alt1'                   , 'string'
 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')
@@ -233,10 +258,9 @@ DEFINE_SETTING('BES', 0003, 'bes_show_inkprijs'                     , 'number'
 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('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', 0003, 'cnt_scopeverdeling'                    , 'number'                      , '0'                           , '0|1, cost distribution by scope weights 0=relative weight, 1=absolut amount')
-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')
@@ -244,21 +268,30 @@ DEFINE_SETTING('CNT', 0003, 'cnt_contract_approval'                 , 'number'
 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 vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit4'                   , 'number'                      , '1000000'                     , 'De vierde limiet van het contract approval mechanisme')
+DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit5'                   , 'number'                      , '9999999'                     , 'De vijfde 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, 'menu_photo_size'                       , 'string'                      , ''                            , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
-DEFINE_SETTING('FAC', 0003, 'fac_like_bad'                          , 'number'                      , '3'                           , 'Rating for bad service')
+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'                      , '9'                           , 'Rating for good 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)')
@@ -267,9 +300,11 @@ 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', 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_typeopdr_key'                      , 'number'                      , '5'                           , 'Default order type or -1 to select default (at order-creation) from most to least specific per vakgroep')
@@ -296,6 +331,7 @@ DEFINE_SETTING('MLD', 0003, 'mld_max_kosten_extern'                 , 'float'
 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 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''')
@@ -304,7 +340,6 @@ DEFINE_SETTING('MLD', 0003, 'mld_fe_show_statusnames'               , 'number'
 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}')
@@ -320,11 +355,18 @@ 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_opdr_merge_notes_and_tracking'     , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with order details (0=just notes | 1=both combined)')
+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)')
@@ -337,9 +379,12 @@ 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_collegas_used'                     , 'number'                      , '0'                           , 'Can FE users indicate collegues for replacement (1) or not (0)')
+DEFINE_SETTING('PRS', 0003, 'prs_wpprefix_objectid'                 , 'number'                      , '0'                           , 'Workplace description as prefix in front of object id (at calls and contractscope) {0=no | 1=yes}')
+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')
@@ -364,17 +409,18 @@ 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', 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('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'                           , '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('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_block'                             , 'float'                       , '1'                           , 'Minimal reservation duration (hours)')
@@ -394,7 +440,8 @@ DEFINE_SETTING('RES', 0001, 'res_pda_deel_times'                    , 'array'
 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, 3=both)')
+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,9 +461,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_ruimte_prijsfactor_intern'         , 'float'                       , '1'                           , 'Default multiplication factor for room prices if for internal use (e.g. 0.8)')
+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)')
@@ -425,7 +486,10 @@ 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)!')
@@ -434,7 +498,7 @@ DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_host_uses_keys'           , 'number'
 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_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 }')
@@ -449,13 +513,16 @@ 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_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', 0003, 'sle_cil_koppelen'                      , 'number'                      , '1'                           , 'Sleutels en cilinders zijn door bo handmatig te koppelen {0=nee, 1=ja(default)}')
 DEFINE_SETTING('MRK', 0003, 'mrk_message_expire_days'               , 'number'                      , '30'                          , 'Message automatically expires after ')
 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('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]')
@@ -467,11 +534,28 @@ DEFINE_SETTING('MLD', 0003, 'mld_flexcolumns'                       , 'number'
 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('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)')
 
 /*
  *
@@ -486,59 +570,106 @@ DEFINE_SETTING('FAC', 0001, 'fac_t_endofworkday' ,  'float', '17', 'End time (ho
 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')
+DEFINE_SETTING('BEZ', 0003, 'bez_set_remote_flags' , 'number', '0', 'Flags to set with remote-checkbox')
+
+---- 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

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
@@ -200,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)
 );
 
@@ -256,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,
@@ -276,18 +276,81 @@ 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)
+        CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key),
+    fac_usrrap_graph_options // JSON
+        VARCHAR2(4000)
+// 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)
@@ -531,7 +594,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
@@ -604,13 +669,19 @@ CREATE_TABLE(fac_import, 0)
   fac_import_filenaam
      VARCHAR2 (256),
   fac_import_versie
-     VARCHAR2(30)
+     VARCHAR2(30),
+  fac_import_refkey
+     NUMBER(10)
+// Note: this column is defined in PRS_TAB.SRC
+//  prs_perslid_key
+//     NUMBER(10)
+//     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)
@@ -619,6 +690,45 @@ 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,
+  CONSTRAINT fac_u_fac_export_app_code UNIQUE(fac_export_app_code)
+);
+
 -- Might still need some changes
 CREATE_TABLE(fac_activiteit, 0)
 (
@@ -659,7 +769,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)
 );
@@ -667,7 +777,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,
@@ -681,10 +791,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
@@ -699,11 +810,11 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
   , 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)
@@ -742,6 +853,14 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_typeopdr_omschrijving       VARCHAR2(30)
 );
 
+CREATE_TABLE(fac_imp_mldafmtxt, 0)
+(
+    mld_afmeldtekst_naam            VARCHAR2(60)
+  , mld_afmeldtekst_omschrijving    VARCHAR2(1000)
+  , ins_discipline_key              NUMBER(10)
+  , mld_stdmelding_key              NUMBER(10)
+);
+
 CREATE_TABLE(fac_imp_onrgoed2, 0)
 (
     alg_locatie_code               VARCHAR2(10)
@@ -758,7 +877,7 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
   , res_ruimte_opstel_bezoekers    NUMBER (5)
   , res_ruimte_nr                  VARCHAR2(255)
   , res_ruimte_omschrijving        VARCHAR2(255)
-  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 10 zou genoeg zijn, wat speelruimte
+  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 15 zou genoeg zijn, wat speelruimte
   , prs_ruimteafdeling_bezetting   NUMBER(8,5)
   , alg_kenmerkwaarde1             VARCHAR2(255)
   , alg_kenmerkwaarde2             VARCHAR2(255)
@@ -770,8 +889,8 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
 CREATE_TABLE(fac_imp_organisatie, 0)
 (
    PRS_BEDRIJF_NAAM               VARCHAR2 (60)
-  ,PRS_AFDELING_NAAM              VARCHAR2 (10)
-  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (10)
+  ,PRS_AFDELING_NAAM              VARCHAR2 (15)
+  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (15)
   ,PRS_AFDELING_OMSCHRIJVING      VARCHAR2 (60 CHAR)
   ,PRS_KOSTENPLAATS_NR            VARCHAR2 (30)
 );
@@ -784,19 +903,48 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,alg_ruimte_nr                   VARCHAR2(10)
   ,prs_werkplek_volgnr             NUMBER (3)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
-  ,prs_afdeling_naam               VARCHAR2 (10)
+  ,prs_afdeling_naam               VARCHAR2 (15)
   ,prs_perslid_naam                VARCHAR2 (60)
   ,prs_perslid_tussenvoegsel       VARCHAR2 (15)
-  ,prs_perslid_voorletters         VARCHAR2 (10)
+  ,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 (50)
+  ,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)
@@ -807,6 +955,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)
@@ -864,11 +1013,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),
@@ -923,17 +1072,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),
@@ -960,6 +1109,22 @@ CREATE TABLE fac_imp_ext_bedrijf
    prs_bedrijf_order_adres VARCHAR2(256)
 );
 
+CREATE_TABLE(fac_imp_bedrijfadres, 0)
+(
+   prs_bedrijf_key                NUMBER (10),
+   prs_bedrijfadres_type          VARCHAR2 (1),
+   mld_typeopdr_key               NUMBER (10),
+   prs_bedrijfadres_url           VARCHAR2 (512),
+   prs_bedrijfadres_ordermode     NUMBER (3),
+   prs_bedrijfadres_certificate   VARCHAR2 (255),
+   prs_bedrijfadres_xsl           VARCHAR2 (256),
+   prs_bedrijfadres_ext           VARCHAR2 (10),
+   prs_bedrijfadres_attachfile    VARCHAR2 (256),
+   prs_bedrijfadres_username      VARCHAR2 (32),
+   prs_bedrijfadres_password      VARCHAR2 (32)
+);
+
+
 // For OPrognose import (optional)
 CREATE_TABLE(fac_imp_oprognose, 0) (
  objectcode
@@ -1018,7 +1183,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
@@ -1152,7 +1317,8 @@ CREATE_TABLE(fac_faq, 0)
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
    fac_faq_datum DATE,
    fac_faq_lang VARCHAR2(3),
-   fac_faq_hint VARCHAR2(1000)
+   fac_faq_hint VARCHAR2(1000),
+   fac_faq_displaymode NUMBER(3) DEFAULT 0  NOT NULL -- 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
 );
 
 CREATE_TABLE(fac_localeitems, 0) /* Alle mogelijk vertaalbare labels/teksten */
@@ -1226,7 +1392,7 @@ CREATE_TABLE(fac_code2label, 0)
 CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
 (
    leveranciernr        VARCHAR2 (20),      -- prs_bedrijf.overeenkomstnr
-   ordernr              VARCHAR2 (15),      -- de code van de BROC
+   ordernr              VARCHAR2 (31),      -- de code van de BROC (optionally even prefixed although unsupported with standard import)
    factuurnr            VARCHAR2 (30),
    factuurdatum         VARCHAR2 (10),
    aantal               VARCHAR2 (10),      -- aantal geleverd (info)
@@ -1245,10 +1411,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)
@@ -1270,6 +1444,7 @@ CREATE_TABLE(fac_imp_menu, 0)
 );
 
 // PF: 1 anamorphe tabel voor alle modules
+// -- UWVA#32742:  flexkenmerken transport voor objecten
 CREATE_TABLE(fac_imp_flex, 0)
 (
    fac_kenmerkdomein_omschrijving   VARCHAR2(255),
@@ -1287,6 +1462,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),
@@ -1304,15 +1480,17 @@ CREATE_TABLE(fac_imp_flex, 0)
    bes_discipline               VARCHAR2(255),
    bes_srtgroep                 VARCHAR2(255),
    bes_srtdeel                  VARCHAR2(255),
-   cnt_discipline               VARCHAR2(255)
+   cnt_discipline               VARCHAR2(255),
+   ins_discipline               VARCHAR2(255),
+   ins_srtgroep                 VARCHAR2(255),
+   ins_srtdeel                  VARCHAR2(255)
 );
 
 
 CREATE_TABLE(fac_session, 0)
 (
-   fac_session_sessionid      VARCHAR(32),    -- HEX-codering 32 byte random
-   fac_session_sessionid_hash VARCHAR(128), -- Future use
-   fac_session_data           VARCHAR(256),   -- De oorspronkelijke URL
+   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
@@ -1344,6 +1522,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),
@@ -1406,8 +1586,12 @@ CREATE_TABLE(fac_bookmark, 0)
         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
@@ -1455,7 +1639,10 @@ CREATE_TABLE(fac_imp_inspectie, 0) (
    ins_srtdeel_code             VARCHAR2 (10),
    ins_srtcontrole_omschrijving VARCHAR2 (60),
    ins_srtcontrole_info         VARCHAR2 (320),
-   ins_srtcontrole_periode      VARCHAR2 (4)
+   ins_srtcontrole_periode      VARCHAR2 (7),
+   ins_srtcontrole_mode					VARCHAR2 (1),
+   ins_srtcontrole_eenheid			VARCHAR2 (1),
+   ins_srtcontrole_bits					VARCHAR2 (4)
 );
 
 -- AAIT#25547
@@ -1473,7 +1660,7 @@ CREATE_TABLE(fac_imp_faq, 0) (
 );
 
 -- FSN#25952: Generieke contractenimport
-CREATE TABLE fac_imp_cnt
+CREATE_TABLE(fac_imp_cnt, 0)
 (
    nummer_intern      VARCHAR2 (30),
    nummer_extern      VARCHAR2 (30),
@@ -1481,7 +1668,7 @@ CREATE TABLE fac_imp_cnt
    beschrijving       VARCHAR2 (50),
    mantel_nr          VARCHAR2 (30),
    omschrijving       VARCHAR2 (1000),
-   afdeling           VARCHAR2 (10),
+   afdeling           VARCHAR2 (15),
    perslid_eig        VARCHAR2 (30),
    perslid_beh        VARCHAR2 (30),
    opmerking          VARCHAR2 (1000),
@@ -1562,6 +1749,7 @@ CREATE_TABLE(faq_kenmerk,0)
    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),
@@ -1575,7 +1763,7 @@ CREATE_TABLE(faq_kenmerk,0)
                             DEFAULT NULLDATUM
 );
 
-CREATE TABLE faq_kenmerkwaarde
+CREATE_TABLE(faq_kenmerkwaarde, 0)
 (
    faq_kenmerkwaarde_key       NUMBER(10)
                                CONSTRAINT faq_k_faq_kenmerkwaarde_key PRIMARY KEY,
@@ -1602,4 +1790,26 @@ CREATE_TABLE(fac_qvw_ticket, 0)
 //        CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
 
+// Holds several usage counters and related info for analyzing and stats
+CREATE_TABLE(fac_gui_counter, 0)
+(
+   fac_gui_counter_key      NUMBER (10) PRIMARY KEY,
+   fac_gui_counter_group    VARCHAR2 (12),                            /* prodsearch, menu, usrrap */
+   fac_gui_counter_refkey   NUMBER (10),
+   fac_gui_counter_count    NUMBER (12),
+   fac_gui_counter_info     VARCHAR2 (1000),
+   fac_gui_counter_date     DATE DEFAULT SYSDATE,
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key          NUMBER (10) CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+   CONSTRAINT fac_u_fac_gui_counter UNIQUE(fac_gui_counter_group, fac_gui_counter_date, fac_gui_counter_refkey, fac_gui_counter_info)
+);
+
+CREATE_TABLE(fac_sequence, 0)
+(
+   fac_sequence_name     VARCHAR2(50)
+                         CONSTRAINT fac_k_fac_sequence_name PRIMARY KEY,
+   fac_sequence_lastval  NUMBER(10),
+   fac_sequence_expire   DATE
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -208,6 +208,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_usrrapcols_B_IU)
+BEFORE INSERT OR UPDATE ON fac_usrrap_cols
+FOR EACH ROW
+DECLARE
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_usrrap_cols_key, fac_s_fac_usrrap_cols_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_usrgraph_B_IU)
 BEFORE INSERT OR UPDATE ON fac_usrgraph
 FOR EACH ROW
@@ -284,7 +293,7 @@ BEGIN
    IF BITAND (:NEW.fac_notificatie_status, 1) = 1  AND :new.prs_perslid_key_receiver IS NOT NULL
    THEN
       -- strip zodat we alleen de eerste regel overhouden
-      loms := :NEW.fac_notificatie_oms;
+      loms := SUBSTR(:NEW.fac_notificatie_oms, 1, 512);
       IF INSTR (loms, chr(13)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(13)) -1);
       END IF;
@@ -340,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
@@ -347,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);
@@ -848,4 +866,12 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_gui_counter_b_i)
+BEFORE INSERT ON fac_gui_counter
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_gui_counter_key, faq_s_fac_gui_counter_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/FAC_VIE.SRC

@@ -286,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;
 
@@ -297,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,
@@ -311,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,
@@ -816,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
           || ' '
@@ -901,10 +899,10 @@ 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
- WHERE fac_notificatie_datum + COALESCE (fac_srtnotificatie_delay/(24*60*60), 0) <= SYSDATE;
+  LEFT OUTER JOIN fac_srtnotificatie sn ON n.fac_srtnotificatie_key = sn.fac_srtnotificatie_key;
 
 -- Queue met naar leveranciers te verzenden opdrachten tbv PutOrders: wat-moet-naar-wie-en-hoe
 -- status=2: mail, status=4: sms (yet unused)
@@ -1263,132 +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))
-                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;
+   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)
 (
@@ -1669,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
@@ -1787,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
@@ -1832,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,
@@ -1873,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,
@@ -1963,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,
@@ -2072,6 +2085,7 @@ AS
             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,
@@ -2090,8 +2104,130 @@ AS
             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;
 
+-- UWVA#32742:  flexkenmerken transport voor objecten
+CREATE_VIEW(fac_v_exp_flex_ins, 0)
+AS
+   SELECT   fac_kenmerkdomein_omschrijving,
+            fac_kenmerkdomein_objectnaam,
+            fac_kenmerkdomein_kolomnaam,
+            fac_kenmerkdomein_kolomtxt,
+            fac_usrtab_naam,
+            ins_srtkenmerk_omschrijving srtkenmerk_omschrijving,
+            ins_srtkenmerk_kenmerktype srtkenmerk_kenmerktype,
+            ins_srtkenmerk_systeem srtkenmerk_systeem,
+            ins_srtkenmerk_lengte srtkenmerk_lengte,
+            ins_srtkenmerk_dec srtkenmerk_dec,
+            ins_srtkenmerk_nmin srtkenmerk_nmin,
+            ins_srtkenmerk_nmax srtkenmerk_nmax,
+            ins_srtkenmerk_dimensie srtkenmerk_dimensie,
+            ins_kenmerk_bewerkniveau kenmerk_type,
+            ins_kenmerk_niveau kenmerk_niveau,
+            ins_kenmerk_verplicht kenmerk_verplicht,
+            ins_kenmerk_groep kenmerk_groep,
+            ins_kenmerk_volgnummer kenmerk_volgnummer,
+            ins_kenmerk_default kenmerk_default,
+            ins_kenmerk_toonbaar kenmerk_toonbaar,
+            ins_kenmerk_uniek kenmerk_uniek,
+            ins_kenmerk_hint kenmerk_hint,
+            ins_kenmerk_regexp kenmerk_regexp,
+            TO_CHAR (ins_kenmerk_verwijder, 'YYYY-MM-DD HH24:MI:SS') kenmerk_verwijder,
+            ins_discipline_omschrijving fclt_f_discipline,
+            ins_srtgroep_omschrijving fclt_f_groep,
+            ins_srtdeel_omschrijving fclt_f_objectsoort
+     FROM   (SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      NULL ins_srtgroep_omschrijving,
+                      NULL ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km, ins_srtkenmerk kms, fac_kenmerkdomein kmd, fac_usrtab fut, ins_discipline vak
+              WHERE       ins_kenmerk_niveau = 'D'
+                      AND km.ins_srtinstallatie_key = vak.ins_discipline_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      grp.ins_srtgroep_omschrijving,
+                      NULL ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_discipline vak,
+                      ins_srtgroep grp
+              WHERE       ins_kenmerk_niveau = 'G'
+                      AND grp.ins_discipline_key = vak.ins_discipline_key
+                      AND km.ins_srtinstallatie_key = grp.ins_srtgroep_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+                      AND grp.ins_srtgroep_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      vak.ins_discipline_omschrijving,
+                      grp.ins_srtgroep_omschrijving,
+                      sd.ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_discipline vak,
+                      ins_srtgroep grp,
+                      ins_srtdeel sd
+              WHERE       ins_kenmerk_niveau = 'S'
+                      AND grp.ins_discipline_key = vak.ins_discipline_key
+                      AND sd.ins_srtgroep_key = grp.ins_srtgroep_key
+                      AND km.ins_srtinstallatie_key = sd.ins_srtdeel_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key
+                      AND vak.ins_discipline_verwijder IS NULL
+                      AND grp.ins_srtgroep_verwijder IS NULL
+                      AND sd.ins_srtdeel_verwijder IS NULL
+             UNION
+             SELECT   kmd.*,
+                      kms.*,
+                      km.*,
+                      fut.fac_usrtab_naam,
+                      (SELECT loc.fac_locale_xsl_tekst FROM fac_version v, fac_locale_xsl loc
+                      				WHERE COALESCE(v.fac_version_lang, 'NL') = LOC.FAC_LOCALE_XSL_LANG
+                      				AND LOC.FAC_LOCALE_XSL_LABEL = 'lcl_ins_inspectie'
+                      )
+                      || ' - ' ||
+                      (SELECT loc.fac_locale_xsl_tekst FROM fac_version v, fac_locale_xsl loc
+                      				WHERE COALESCE(v.fac_version_lang, 'NL') = LOC.FAC_LOCALE_XSL_LANG
+                      				AND LOC.FAC_LOCALE_XSL_LABEL = DECODE(ins_srtcontrole_type, 1, 'lcl_ins_srtcontrole_insp', 2, 'lcl_ins_srtcontrole_repl', 3, 'lcl_ins_srtcontrole_cert' , '?')
+                      ) ins_discipline_omschrijving,
+                      sc.ins_srtcontrole_omschrijving ins_srtgroep_omschrijving,
+                      TO_CHAR(sc.ins_srtcontrole_type) ins_srtdeel_omschrijving
+               FROM   ins_kenmerk km,
+                      ins_srtkenmerk kms,
+                      fac_kenmerkdomein kmd,
+                      fac_usrtab fut,
+                      ins_srtcontrole sc
+              WHERE       ins_kenmerk_niveau = 'C'
+                      AND km.ins_srtinstallatie_key = sc.ins_srtcontrole_key
+                      AND kms.ins_srtkenmerk_key = km.ins_srtkenmerk_key
+                      AND kmd.fac_kenmerkdomein_key(+) = kms.fac_kenmerkdomein_key
+                      AND fut.fac_usrtab_key(+) = kmd.fac_usrtab_key);
+
+
 -- Rapporten worden niet standaard aangemaakt bij gebruikerrs
 CREATE_VIEW(fac_v_rap_lcl_lang, 0) AS
   SELECT nl.fac_locale_xsl_label FCLT_F_LABEL,
@@ -2124,4 +2260,57 @@ SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
        AND fac_locale_xsl_lang = 'NL'
        AND fac_locale_xsl_module = 'ASP';
 
+-- Standard sample report shows GUI usage (menu, reports, search) stats of last 100 days
+CREATE_VIEW(fac_v_rap_gui_usage_last100, 0) AS
+     SELECT fac_gui_counter_group fclt_f_action,
+            COALESCE (fac_gui_counter_info,
+                      fac_menu_altlabel,
+                      lcl.l (fac_menuitems_label),
+                      fac_usrrap_omschrijving)
+               detail,
+            COALESCE (r.fac_usrrap_view_name, m.fac_menu_alturl, mi.fac_menuitems_url) techdetail,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+            LEFT JOIN fac_usrrap r
+               ON c.fac_gui_counter_group = 'report' AND c.fac_gui_counter_refkey = r.fac_usrrap_key
+      WHERE fac_gui_counter_group NOT IN ('searchresult', 'searchchoice')
+            AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            fac_usrrap_omschrijving,
+            r.fac_usrrap_view_name,
+            m.fac_menu_alturl,
+            mi.fac_menuitems_url
+     HAVING SUM (fac_gui_counter_count) > 1;
+
+CREATE_VIEW(fac_v_rap_gui_usage_device, 0)
+(
+   action,
+   fclt_f_device,
+   total
+)
+AS
+     SELECT COALESCE (fac_gui_counter_info, fac_menu_altlabel, lcl.l (fac_menuitems_label)) detail,
+            DECODE (COALESCE (m.fac_menu_altgroep, mi.fac_menuitems_groep), 3, 'Mobile', 'Default')
+               device,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+      WHERE fac_gui_counter_group IN ('menu') AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            m.fac_menu_altgroep,
+            mi.fac_menuitems_groep;
+
 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=19
-NEXTVERSION=20
-FILEVERSION=
-NEXTCAREVERSION=26
+CURRENTVERSION=26
+NEXTVERSION=27
+FILEVERSION=D
+NEXTCAREVERSION=29
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -156,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  \
@@ -172,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   \
@@ -230,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
 ##########################################################################
@@ -245,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
@@ -256,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
@@ -275,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
 
@@ -285,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-2013 SG|facilitor bv.
+-- Script to initialise a FACILITOR database schema in Oracle
+-- Copyright 1996-2015 Facilitor bv, the Netherlands.
 -- All rights reserved!
 /*
  * $Revision$
@@ -44,11 +44,10 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2013 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 1000
@@ -57,6 +56,9 @@ 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"
@@ -73,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"
@@ -90,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"
@@ -107,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"
@@ -127,6 +132,7 @@ SET ECHO ON
 #include "fin\fin_ini.src"
 #include "prj\prj_ini.src"
 #include "msg\msg_ini.src"
+#include "kpi\kpi_ini.src"
 
 COMMIT;
 
@@ -138,17 +144,20 @@ BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING,
 REGISTERONCE('$Id$')
 
 COMMIT;
-///////////////////////////// Report invalid objects, if any ///////
+/* Report invalid objects, if any */
 SET ECHO OFF
 SET LINESIZE 132
-PROMPT List of all invalid objects after FACILITOR creation:
+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,8 +7,11 @@
 CREATE INDEX fin_i_fin_factuur1 ON fin_factuur(mld_opdr_key);
 CREATE INDEX fin_i_fin_factuur2 ON fin_factuur(cnt_contract_key);
 CREATE INDEX fin_i_fin_factuur3 ON fin_factuur(bes_bestelopdr_key);
+CREATE INDEX fin_i_fin_factuur4 ON fin_factuur(fin_factuur_statuses_key, fin_factuur_verwijder);
 CREATE INDEX fin_i_fin_factuurregel1 ON fin_factuurregel(fin_factuur_key);
 CREATE INDEX fin_i_fin_factuurnote1 ON fin_factuur_note(fin_factuur_key);
+CREATE INDEX fin_i_fin_verkoopfactuur1 ON fin_verkoopfactuur(fin_verkoopfactuur_refkey, fin_verkoopfactuur_xmlnode);
+CREATE INDEX fin_i_fin_verkoopfactuur2 ON fin_verkoopfactuur(fin_verkoopfactuur_id);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_INI.SRC

@@ -14,7 +14,7 @@ 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('$Id$')
 

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
@@ -361,11 +376,13 @@ AS
             factmatchmode := fin.getfactmatchmode (discipline, 'B');
 
             -- Zijn de bestelbedragen incl. of excl. BTW.
-            SELECT ks.prs_kostensoort_btw
+            SELECT MAX((SELECT ks.prs_kostensoort_btw
+                          FROM prs_kostensoort ks
+                         WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
               INTO inclbtw
               FROM bes_discipline bd,
-                   prs_kostensoort ks
-             WHERE bd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+                   bes_srtgroep bsg
+             WHERE bd.ins_discipline_key = bsg.ins_discipline_key
                AND bd.ins_discipline_key = discipline;
 
             -- Bereken dan nu de voor de matching relevante bedragen
@@ -526,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
@@ -648,7 +670,7 @@ AS
          SELECT   DISTINCT COALESCE (btw.fin_btwtabel_key, fin.getdefaultbtwtabelkey ()) btwtabel_key
            FROM   cnt_contract c, prs_bedrijf bd, fin_btwtabel btw
           WHERE       btw.fin_btwtabel_key(+) = bd.fin_btwtabel_key
-                  AND bd.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+                  AND bd.prs_bedrijf_key(+) = c.cnt_prs_bedrijf_key
                   AND c.cnt_contract_key = p_ckey;
 
       CURSOR mld_btwtabel
@@ -816,6 +838,21 @@ AS
 
       RETURN kpkey;
    END;
+
+   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      s VARCHAR2 (2048 CHAR);
+   BEGIN
+      s :=  ps;
+      -- We do support substitution of placeholders in the messages
+      -- ##KEY##    = fin_factuur_key
+      IF INSTR (s, '#') > 0
+      THEN
+         s := REPLACE (s, '##KEY##', p_factuur_key);
+      END IF;
+      RETURN s;
+   END;
 END fin;
 /
 

FIN/FIN_SEQ.SRC

@@ -13,6 +13,8 @@ CREATE SEQUENCE fin_s_fin_btwtabel_key MINVALUE 2;  /* 1 wordt gebruikt in de fi
 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('$Id$')
 

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
@@ -168,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
@@ -240,6 +246,72 @@ 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)
+);
+
+// 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$')
 

FIN/FIN_TRI.SRC

@@ -391,6 +391,22 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fin_t_verkoopfactuurkop_b_i)
+BEFORE INSERT ON fin_verkoopfactuurkop
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuurkop_key, fin_s_verkoopfactuurkop_key);
+END;
+/
+
+CREATE_TRIGGER(fin_t_fin_verkoopfactuur_b_iu)
+BEFORE INSERT OR UPDATE ON fin_verkoopfactuur
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuur_key, fin_s_fin_verkoopfactuur_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif // FIN

FIN/FIN_VIE.SRC

@@ -53,6 +53,414 @@ AS
 -- Vooralsnog placeholders, moeten aangepast worden
 CREATE_VIEW(fin_v_api_facturen, 1) AS SELECT * from fin_factuur;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(fin_v_udr_factuur, 1)
+(
+   factuur_key,
+   factuur_datum,
+   uitvoerende,
+   leverancier_nr,
+   factuurnr_extern,
+   factuur_voor,
+   opdrachtnr,
+   opdracht_key,
+   contract_key,
+   bestelling_key,
+   kostenplaats,
+   kostenplaats_extern,
+   discipline_omschrijving,
+   catalogus,
+   kostensoort,
+   kostensoort_opmerking,
+   kostensoort_refcode,
+   kostensoort_altcode,
+   kostensoort_btw,
+   stdmelding_omschrijving,
+   bedrag_incl_btw,
+   bedrag_excl_btw,
+   status,
+   opmerking,
+   budgethouder
+)
+AS
+   SELECT f.fin_factuur_key,
+          f.fin_factuur_datum factuur_datum,
+          (SELECT b.prs_bedrijf_naam
+             FROM prs_bedrijf b
+            WHERE prs_bedrijf_key =
+                     COALESCE (o.mld_uitvoerende_keys, c.cnt_prs_bedrijf_key, bo.prs_bedrijf_key))
+             uitvoerende,
+          (SELECT b.prs_leverancier_nr
+             FROM prs_bedrijf b
+            WHERE prs_bedrijf_key =
+                     COALESCE (o.mld_uitvoerende_keys, c.cnt_prs_bedrijf_key, bo.prs_bedrijf_key))
+             leverancier_nr,
+          fin_factuur_nr factuurnr_extern,
+          CASE
+             WHEN f.mld_opdr_key IS NOT NULL THEN lcl.l ('lcl_fin_mld_opdr')
+             WHEN f.cnt_contract_key IS NOT NULL THEN lcl.l ('lcl_fin_cnt_contract')
+             WHEN f.bes_bestelopdr_key IS NOT NULL THEN lcl.l ('lcl_fin_bestelling')
+          END
+             CASE,
+          COALESCE (
+             NVL2 (
+                f.mld_opdr_key,
+                   ins_srtdiscipline_prefix
+                || TO_CHAR (o.mld_melding_key)
+                || '/'
+                || o.mld_opdr_bedrijfopdr_volgnr,
+                NULL),
+             NVL2 (
+                f.cnt_contract_key,
+                   'C'
+                || cnt_contract_nummer_intern
+                || NVL2 (cnt_contract_versie, '.' || cnt_contract_versie, ''),
+                NULL),
+             NVL2 (f.bes_bestelopdr_key, bo.bes_bestelopdr_id, NULL),
+             ' ')
+             opdrachtnr,
+          f.mld_opdr_key,
+          f.cnt_contract_key,
+          f.bes_bestelopdr_key,
+          NVL2 (
+             k.prs_kostenplaats_nr,
+             prs_kostenplaats_nr || ' '
+             || lcl.x ('prs_kostenplaats_omschrijving',
+                       k.prs_kostenplaats_key,
+                       k.prs_kostenplaats_omschrijving),
+             '')
+             kostenplaats,
+          DECODE (k.prs_kostenplaats_extern, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          cd.ins_discipline_omschrijving,
+          (SELECT MIN (ins_discipline_omschrijving)
+             FROM bes_discipline bd,
+                  bes_srtgroep bg,
+                  bes_srtdeel bs,
+                  bes_bestelling_item bi,
+                  bes_bestelopdr_item boi
+            WHERE     boi.bes_bestelopdr_key = bo.bes_bestelopdr_key
+                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
+                  AND bs.bes_srtdeel_key = bi.bes_srtdeel_key
+                  AND bg.bes_srtgroep_key = bs.bes_srtgroep_key
+                  AND bd.ins_discipline_key = bg.ins_discipline_key)
+             bes_discipline_omschrijving,
+          ks.prs_kostensoort_oms,
+          ks.prs_kostensoort_opmerking,
+          ks.prs_kostensoort_refcode,
+          ks.prs_kostensoort_altcode,
+          DECODE (ks.prs_kostensoort_btw, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+          mld_stdmelding_omschrijving,
+          f.fin_factuur_totaal + f.fin_factuur_totaal_btw bedrag_incl_btw,
+          f.fin_factuur_totaal bedrag_excl_btw,
+          fs.fin_factuur_statuses_omschr,
+          f.fin_factuur_opmerking,
+          (SELECT p.prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all p
+            WHERE prs_perslid_key = budgethouder)
+             budgethouder
+     FROM (SELECT prs.getkpverantwoordelijke (prs_kostenplaats_key, 2, -1) budgethouder, f.*
+             FROM (SELECT fin.getfactuurkostenplaats (f.fin_factuur_key) prs_kostenplaats_key, f.*
+                     FROM fin_factuur f) f) f,
+          prs_kostenplaats k,
+          mld_opdr o,
+          mld_melding m,
+          mld_discipline d,
+          mld_stdmelding sm,
+          ins_srtdiscipline sd,
+          cnt_contract c,
+          cnt_discipline cd,
+          bes_bestelopdr bo,
+          prs_kostensoort ks,
+          fin_factuur_statuses fs
+    WHERE     f.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+          AND f.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+          AND f.mld_opdr_key = o.mld_opdr_key(+)
+          AND o.mld_melding_key = m.mld_melding_key(+)
+          AND m.mld_stdmelding_key = sm.mld_stdmelding_key(+)
+          AND sm.mld_ins_discipline_key = d.ins_discipline_key(+)
+          AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+          AND f.cnt_contract_key = c.cnt_contract_key(+)
+          AND c.ins_discipline_key = cd.ins_discipline_key(+)
+          AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+          AND f.fin_factuur_statuses_key = fs.fin_factuur_statuses_key
+          AND f.fin_factuur_verwijder IS NULL;
+
+// Dit is strict geen fin view, maar het is de UDR-versie van het kostenoverzicht
+// dat bedragen rapporteert over de BROC.
+CREATE_VIEW(fin_v_udr_kostenoverzicht, 0)
+(
+   datum,
+   aanvrager,
+   organisatie,
+   categorie,
+   referentie,
+   bedrag,
+   status,
+   kostenplaatsgroep,
+   kostenplaatsnr,
+   kostenplaats,
+   kostensoortgroep,
+   kostensoortnr,
+   kostensoort,
+   ordernr,
+   locatie,
+   district,
+   fclt_3d_locatie_key,
+   fclt_3d_afdeling_key
+)
+AS
+     SELECT datum,
+               p.prs_perslid_naam
+            || NVL2 (p.prs_perslid_voorletters, ', ' || p.prs_perslid_voorletters, '')
+            || NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
+            || NVL2 (p.prs_perslid_voornaam, ' (' || p.prs_perslid_voornaam || ')', '')
+               aanvrager,
+            d.prs_afdeling_naam organisatie,
+            categorie,
+            categorienummer,
+            SUM (bedrag) bedrag,
+            status,
+            kpg.prs_kostenplaatsgrp_oms,
+            k.prs_kostenplaats_nr,
+            lcl.x ('prs_kostenplaats_omschrijving',
+                   k.prs_kostenplaats_key,
+                   k.prs_kostenplaats_omschrijving),
+            ksg.prs_kostensoortgrp_oms,
+            ks.prs_kostensoort_oms,
+            ks.prs_kostensoort_opmerking,
+            ordernr,
+            alg_locatie_code,
+            alg_district_omschrijving,
+            alg_locatie_key,
+            d.prs_afdeling_key
+       FROM (SELECT rr.prs_kostenplaats_key,
+                    rr.res_rsv_ruimte_van datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_ruimte_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    (SELECT MAX (g.alg_locatie_key)
+                       FROM alg_ruimte r,
+                            alg_verdieping v,
+                            alg_gebouw g,
+                            res_alg_ruimte ar
+                      WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                            AND ar.alg_ruimte_key = r.alg_ruimte_key
+                            AND r.alg_verdieping_key = v.alg_verdieping_key
+                            AND v.alg_gebouw_key = g.alg_gebouw_key
+                            AND ar.res_ruimte_key = ro.res_ruimte_key)
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_ruimte_opstelling ro,
+                    res_ruimte ru,
+                    res_discipline dis,
+                    res_status_bo s
+              WHERE     ru.res_ruimte_prijs <> 0
+                    AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                    AND ro.res_ruimte_key = ru.res_ruimte_key
+                    AND s.res_status_bo_key = rr.res_status_bo_key
+                    AND ru.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT rr.prs_kostenplaats_key,
+                    ra.res_rsv_artikel_levering datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_artikel_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    COALESCE (
+                       (SELECT g.alg_locatie_key
+                          FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
+                         WHERE     rr.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key),
+                       (SELECT MAX (g.alg_locatie_key)
+                          FROM alg_ruimte r,
+                               alg_verdieping v,
+                               alg_gebouw g,
+                               res_alg_ruimte ar,
+                               res_ruimte_opstelling ro
+                         WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                               AND ar.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key
+                               AND ar.res_ruimte_key = ro.res_ruimte_key
+                               AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key))
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_v_aanwezigrsv_artikel ra,
+                    res_artikel a,
+                    res_discipline dis,
+                    res_status_bo s
+              WHERE     COALESCE (ra.res_rsv_artikel_prijs, a.res_artikel_prijs) <> 0
+                    AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+                    AND ra.res_artikel_key = a.res_artikel_key
+                    AND s.res_status_bo_key = ra.res_status_bo_key
+                    AND a.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT rr.prs_kostenplaats_key,
+                    rd.res_rsv_deel_van datum,
+                    res_rsv_ruimte_contact_key prs_perslid_key,
+                    'Reservering' categorie,
+                    TO_CHAR (rr.res_reservering_key) || '/' || rr.res_rsv_ruimte_volgnr
+                       categorienummer,
+                    res_rsv_deel_prijs bedrag,
+                    s.res_status_bo_omschrijving status,
+                    'RES' module,
+                    dis.prs_kostensoort_key,
+                    rr.res_rsv_ruimte_ordernr ordernr,
+                    rr.res_reservering_key kostenplaats_item_key,
+                    rr.res_rsv_ruimte_key kostenplaats_item_child_key,
+                    COALESCE (
+                       (SELECT g.alg_locatie_key
+                          FROM alg_ruimte r, alg_verdieping v, alg_gebouw g
+                         WHERE     rr.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key),
+                       (SELECT MAX (g.alg_locatie_key)
+                          FROM alg_ruimte r,
+                               alg_verdieping v,
+                               alg_gebouw g,
+                               res_alg_ruimte ar,
+                               res_ruimte_opstelling ro
+                         WHERE     ar.res_alg_ruimte_verwijder IS NULL
+                               AND ar.alg_ruimte_key = r.alg_ruimte_key
+                               AND r.alg_verdieping_key = v.alg_verdieping_key
+                               AND v.alg_gebouw_key = g.alg_gebouw_key
+                               AND ar.res_ruimte_key = ro.res_ruimte_key
+                               AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key))
+                       locatie_key
+               FROM res_v_aanwezigrsv_ruimte rr,
+                    res_v_aanwezigrsv_deel rd,
+                    res_deel d,
+                    res_discipline dis,
+                    res_status_bo,
+                    res_status_bo s
+              WHERE     d.res_deel_prijs <> 0
+                    AND rr.res_rsv_ruimte_key = rd.res_rsv_ruimte_key
+                    AND rd.res_deel_key = d.res_deel_key
+                    AND s.res_status_bo_key = rd.res_status_bo_key
+                    AND d.res_discipline_key = dis.ins_discipline_key
+             UNION ALL
+             SELECT o.prs_kostenplaats_key,
+                    o.mld_opdr_datumbegin datum,
+                    m.prs_perslid_key prs_perslid_key,
+                    mdis.ins_discipline_omschrijving categorie,
+                       sd.ins_srtdiscipline_prefix
+                    || m.mld_melding_key
+                    || '/'
+                    || o.mld_opdr_bedrijfopdr_volgnr
+                       categorienummer,
+                    COALESCE (o.mld_opdr_kosten, 0) bedrag,
+                    s.mld_statusopdr_omschrijving status,
+                    'MLD' module,
+                    COALESCE (s.prs_kostensoort_key, mdis.prs_kostensoort_key) prs_kostensoort_key,
+                    o.mld_opdr_ordernr ordernr,
+                    o.mld_opdr_key kostenplaats_item_key,
+                    -1 kostenplaats_item_child_key,
+                    m.mld_alg_locatie_key locatie_key
+               FROM mld_opdr o,
+                    mld_typeopdr ot,
+                    mld_melding m,
+                    mld_stdmelding s,
+                    mld_discipline mdis,
+                    ins_srtdiscipline sd,
+                    mld_statusopdr s
+              WHERE     o.mld_opdr_kosten <> 0
+                    AND o.mld_typeopdr_key = ot.mld_typeopdr_key
+                    AND ot.mld_typeopdr_kosten = 1
+                    AND o.mld_melding_key = m.mld_melding_key
+                    AND s.mld_statusopdr_key = o.mld_statusopdr_key
+                    AND m.mld_stdmelding_key = s.mld_stdmelding_key
+                    AND mdis.ins_discipline_key = s.mld_ins_discipline_key
+                    AND mdis.ins_srtdiscipline_key = sd.ins_srtdiscipline_key
+                    AND o.mld_statusopdr_key NOT IN (1, 2, 3, 4, 10)
+             UNION ALL
+             SELECT b.prs_kostenplaats_key,
+                    bo.bes_bestelopdr_datum datum,
+                    b.prs_perslid_key prs_perslid_key,
+                    'Bestelling' categorie,
+                    TO_CHAR (b.bes_bestelling_key) categorienummer,
+                    (boi.bes_bestelopdr_item_aantal * boi.bes_bestelopdr_item_prijs) bedrag,
+                    s.bes_bestelopdrstatuses_omschr status,
+                    'BES' module,
+                    bdis.prs_kostensoort_key,
+                    b.bes_bestelling_ordernr ordernr,
+                    b.bes_bestelling_key kostenplaats_item_key,
+                    -1 kostenplaats_item_child_key,
+                    (SELECT alg_locatie_key
+                       FROM mld_adres ma
+                      WHERE ma.mld_adres_key = b.mld_adres_key_lev)
+                       locatie_key
+               FROM bes_bestelling b,
+                    bes_bestelling_item bi,
+                    bes_bestelopdr bo,
+                    bes_bestelopdr_item boi,
+                    bes_srtdeel isd,
+                    bes_srtgroep isg,
+                    bes_discipline bdis,
+                    bes_bestelopdrstatuses s
+              WHERE     b.bes_bestelling_key = bi.bes_bestelling_key
+                    AND bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                    AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key
+                    AND s.bes_bestelopdrstatuses_key = bo.bes_bestelopdr_status
+                    AND bi.bes_srtdeel_key = isd.bes_srtdeel_key
+                    AND isd.bes_srtgroep_key = isg.bes_srtgroep_key
+                    AND isg.ins_discipline_key = bdis.ins_discipline_key
+                    AND bo.bes_bestelopdr_status IN (4, 6, 7)) tab,
+            prs_kostenplaats k,
+            prs_kostenplaatsgrp kpg,
+            prs_kostensoort ks,
+            prs_kostensoortgrp ksg,
+            prs_perslid p,
+            prs_v_afdeling d,
+            alg_locatie l,
+            alg_district d
+      WHERE     tab.prs_kostenplaats_key(+) = k.prs_kostenplaats_key
+            AND tab.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+            AND k.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
+            AND ks.prs_kostensoortgrp_key = ksg.prs_kostensoortgrp_key(+)
+            AND tab.prs_perslid_key = p.prs_perslid_key(+)
+            AND p.prs_afdeling_key = d.prs_afdeling_key(+)
+            AND tab.locatie_key = l.alg_locatie_key(+)
+            AND l.alg_district_key = d.alg_district_key(+)
+            AND datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')
+   GROUP BY k.prs_kostenplaats_nr,
+            lcl.x ('prs_kostenplaats_omschrijving',
+                   k.prs_kostenplaats_key,
+                   k.prs_kostenplaats_omschrijving),
+            datum,
+               p.prs_perslid_naam
+            || NVL2 (p.prs_perslid_voorletters, ', ' || p.prs_perslid_voorletters, '')
+            || NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
+            || NVL2 (p.prs_perslid_voornaam, ' (' || p.prs_perslid_voornaam || ')', ''),
+            d.prs_afdeling_naam,
+            d.prs_afdeling_key,
+            categorie,
+            categorienummer,
+            status,
+            kpg.prs_kostenplaatsgrp_oms,
+            ksg.prs_kostensoortgrp_oms,
+            ks.prs_kostensoort_oms,
+            ks.prs_kostensoort_opmerking,
+            ordernr,
+            ksg.prs_kostensoortgrp_oms,
+            alg_locatie_key,
+            alg_district_omschrijving,
+            alg_locatie_code;
 
 REGISTERRUN('$Id$')
 #endif // FIN

INS/INS_IND.SRC

@@ -37,6 +37,10 @@ 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);
 
+CREATE UNIQUE INDEX ins_i_ins_deel_state_hist1 ON ins_deel_state_history(ins_deel_key, ins_deel_statedate);
+
+CREATE INDEX ins_i_ins_deelsrtcontrole1 ON ins_deelsrtcontrole(ins_deelsrtcontrole_status, ins_deel_key);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_INI.SRC

@@ -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',
@@ -27,6 +23,10 @@ INSERT INTO fac_usrrap
              0
             );
 
+DEF_STATUS('controle', 0, 'lcl_ins_controle_pending');
+DEF_STATUS('controle', 2, 'lcl_ins_controle_gestart');
+DEF_STATUS('controle', 5, 'lcl_ins_controle_afgemeld');
+DEF_STATUS('controle', 6, 'lcl_ins_controle_verwerkt');
 
 REGISTERONCE('$Id$')
 

INS/INS_PAC.SRC

@@ -6,8 +6,10 @@
 
 CREATE OR REPLACE PACKAGE ins AS
     FUNCTION delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN;
-    FUNCTION get_description(LPNName   IN VARCHAR2, CondKey   IN NUMBER, Prefix    IN VARCHAR2, 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;
+    FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
+    FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
 END ins;
 /
 
@@ -28,33 +30,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
@@ -187,11 +188,124 @@ CREATE OR REPLACE PACKAGE BODY ins AS
        RETURN s;
     END;
 
+    -- Berekent de n-de (p_steps) controledatum na p_date.
+    -- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
+    -- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidite datum is, dan deze weer teruggeven).
+    -- steps = n: n-volgende vanaf meegegeven datum (p_date). Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
+    FUNCTION nextcyclusdate (p_insdeel     IN NUMBER,
+                             p_srtcontrole IN NUMBER,
+                             p_steps       IN NUMBER DEFAULT 0)
+        RETURN DATE
+    IS
+        inspdate   DATE;
+    BEGIN
+        SELECT inspectie_next
+          INTO inspdate
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+
+                SELECT fac.nextcyclusdate (COALESCE ( (SELECT MAX ( GREATEST (COALESCE (idsc.ins_deelsrtcontrole_datum_xcp,
+                                                                              CASE di.ins_srtcontrole_mode
+                                                                              WHEN 0
+                                                                              THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                              ELSE idsc.ins_deelsrtcontrole_datum END),
+                                                                    CASE di.ins_srtcontrole_mode
+                                                                    WHEN 0
+                                                                    THEN idsc.ins_deelsrtcontrole_datum_org
+                                                                    ELSE idsc.ins_deelsrtcontrole_datum
+                                                                    END)
+                                                                  ) ins_deelsrtcontrole_datum
+                                                         FROM ins_deelsrtcontrole idsc
+                                                        WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                          AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                          AND idsc.ins_deel_key = di.ins_deel_key),
+                                                      di.ins_deel_aanmaak),
+                                           di.ins_srtcontrole_mode,
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                           p_steps
+                                          ) inspectie_next
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
+
+        RETURN inspdate;
+    END;
+
+    FUNCTION nextcyclusdatesteps (p_insdeel     IN NUMBER,
+                                  p_srtcontrole IN NUMBER,
+                                  p_steps       IN NUMBER DEFAULT 1)     -- Standaard beginnen te tellen bij 1.
+        RETURN NUMBER
+    IS
+        lsteps     NUMBER;
+    BEGIN
+        SELECT inspectie_steps
+          INTO lsteps
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+                SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT MAX (COALESCE(idsc.ins_deelsrtcontrole_datum_xcp, idsc.ins_deelsrtcontrole_datum_org)) ins_deelsrtcontrole_datum
+                                                               FROM ins_deelsrtcontrole idsc
+                                                              WHERE di.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                                                                AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                                AND idsc.ins_deel_key = di.ins_deel_key),
+                                                             ins_deel_aanmaak),
+                                                di.ins_srtcontrole_mode,
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                                p_steps
+                                               ) inspectie_steps
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole
+                    AND (xcp.ins_srtcontroledl_xcp_eind(+) IS NULL OR xcp.ins_srtcontroledl_xcp_eind(+) > TRUNC(SYSDATE, 'DD')));
+
+        RETURN lsteps;
+    END;
+
 END ins;
 /
 
-
-
 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('$Id$')
 
 #endif  // INS

INS/INS_TAB.SRC

@@ -23,8 +23,8 @@ CREATE_TABLE(ins_srtdiscipline,0)
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2)),
     ins_srtdiscipline_alg
-        NUMBER(1) DEFAULT(1)
-        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1)),
+        NUMBER(3) DEFAULT(1)
+        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)),
     ins_srtdiscipline_ins
         NUMBER(1) DEFAULT(1)
         CONSTRAINT ins_c_ins_srtdiscipline_ins CHECK(ins_srtdiscipline_ins IN (0,1)),
@@ -354,13 +354,35 @@ CREATE_TABLE(ins_deel,0)
         VARCHAR2(128),
     ins_deel_statedate
         DATE,
-    ins_deel_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT ins_c_ins_deel_uitvoertijd CHECK(ins_deel_uitvoertijd >= 0),
+    ins_deel_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        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)
@@ -368,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)
@@ -394,11 +435,48 @@ CREATE_TABLE(ins_controlemode, 0)
         NOT_NULL(ins_controlemode_oms, ins_c_controlemode_oms),
     ins_controlemode_opmerking
         VARCHAR(2000 CHAR),
-    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_controlemode_oms)
+    ins_controlemode_success        // 1=positive/neutral result, 0=negative result
+        NUMBER(1)
+        DEFAULT(1)
+        CONSTRAINT ins_c_ins_controlemode_success CHECK (ins_controlemode_success IN (0,1)),
+    ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+        NUMBER(1)
+        DEFAULT(1),
+    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_srtcontrole_type,ins_controlemode_oms)
 );
 
+// Eventuele afwijkingen (xcp=exception) per specifiek deel
+// De methodiek (flags) kan niet overruled worden; fungeert als COALESCE met ins_srtcontrole
+// 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) >> hoort hier niet maar in ins_deelsrtcontrole_plandatum
+       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,
+    CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key)
+);
 
-/* wanneer zijn de inspecties uitgevoerd */
+/* de feitelijke inspecties */
 CREATE_TABLE(ins_deelsrtcontrole, 0)
 (
     ins_deelsrtcontrole_key
@@ -411,18 +489,28 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
        NUMBER(10)
        NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
     ins_deelsrtcontrole_datum
+       DATE,
+    ins_deelsrtcontrole_datum_org
        DATE
-       NOT NULL,
+       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,
     ins_deelsrtcontrole_opmerking
         VARCHAR(2000 CHAR),
+    ins_deelsrtcontrole_plandatum
+       DATE,
+    ins_deelsrtcontrole_status // (vooralsnog 0,2,5,6)
+       NUMBER(1)
+       DEFAULT (6)
+       CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,
 // Note: this column is defined in PRS_TAB.SRC
 //    prs_perslid_key
 //        NUMBER(10)
 //        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)
@@ -506,14 +594,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
@@ -543,7 +633,7 @@ CREATE_TABLE(ins_kenmerk, 0)
       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_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
@@ -573,6 +663,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.
@@ -677,6 +793,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
   ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
   CONSTRAINT ins_r_ins_discipine_key FOREIGN KEY (ins_discipline_key)

INS/INS_TRI.SRC

@@ -102,6 +102,14 @@ BEGIN
       END;
    END IF;
 
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND :old.ins_discipline_verwijder IS NULL
+       AND :new.ins_discipline_module = 'RES')
+   THEN
+       BEGIN DELETE FROM res_activiteitdiscipline WHERE res_activiteitdiscipline.res_discipline_key = :new.ins_discipline_key; END;
+   END IF;
+
+
     SET_VERWIJDER_CHILDREN(ins_srtgroep, ins_discipline_key, ins_discipline_verwijder,
         ins_srtgroep_verwijder,ins_tab_discipline);
     SET_VERWIJDER_CHILDREN(bes_srtgroep, ins_discipline_key, ins_discipline_verwijder,
@@ -157,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
@@ -302,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
@@ -467,6 +523,14 @@ BEGIN
 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
@@ -669,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
@@ -701,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
@@ -725,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;
@@ -770,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

INS/INS_VIE.SRC

@@ -49,6 +49,18 @@ DEFINIEER_VIEW_AANWEZIG(ins_srtgroep, ins_srtgroep_verwijder,
 DEFINIEER_VIEW_AANWEZIG(ins_srtdeel, ins_srtdeel_verwijder,
     ins_v_aanwezigsrtdeel,0);
 
+CREATE_VIEW(ins_controlestatuses, 0)
+(
+   ins_controlestatus_key,
+   ins_controlestatus_omschr
+)
+AS
+   SELECT fac_code2label_code,
+          COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst)
+     FROM fac_locale_xsl fl, fac_code2label fs
+    WHERE     fl.fac_locale_xsl_label = fac_code2label_label
+          AND fac_code2label_domein = 'controle'
+          AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 /* Views met ins_deel moeten voorwaarde : "WHERE ins_deel_parent_key IS NULL" bevatten... */
 DEFINIEER_VIEW_AANWEZIG(ins_deel, ins_deel_verwijder,
@@ -827,6 +839,53 @@ CREATE_VIEW(ins_v_allsrtinst,0) (ins_srtinst_keys,
           'D'
    FROM ins_srtdeel;
 
+CREATE_VIEW(ins_v_allsrtinstallatie,0)
+( niveau
+, ins_srtinstallatie_key
+, discipline_oms
+, srtgroep_oms
+, srtdeel_oms
+, ins_discipline_key
+, ins_srtgroep_key
+, ins_srtdeel_key
+)
+AS
+SELECT 'D'
+     , ins_ID.ins_discipline_key
+     , ins_ID.ins_discipline_omschrijving discipline_oms
+     , null srtgroep_oms
+     , null srtdeel_oms
+     , ins_ID.ins_discipline_key
+     , null ins_srtgroep_key
+     , null ins_srtdeel_key
+  FROM ins_discipline ins_ID
+UNION
+SELECT 'G'
+     , ins_SG.ins_srtgroep_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , null
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , null
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+ WHERE ins_ID.ins_discipline_key = ins_SG.ins_discipline_key
+UNION
+SELECT 'S'
+     , ins_SD.ins_srtdeel_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , ins_SD.ins_srtdeel_omschrijving
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , ins_SD.ins_srtdeel_key
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+     , ins_srtdeel ins_SD
+ WHERE ins_SG.ins_srtgroep_key = ins_SD.ins_srtgroep_key
+   AND ins_ID.ins_discipline_key = ins_SG.ins_discipline_key;
+
 /* 17-01-96 */
 CREATE_VIEW(ins_v_srtinst_discipline,0) AS
     SELECT INS_SI.ins_srtinst_keys,
@@ -1362,7 +1421,7 @@ SELECT d.ins_deel_key,
        l.alg_locatie_code,
        l.alg_locatie_omschrijving,
        kd.ins_kenmerkdeel_aanmaak datum,
-       TO_CHAR (kd.ins_kenmerkdeel_aanmaak, 'hh24:mi') tijd,
+       TRUNC (kd.ins_kenmerkdeel_aanmaak) tijd,
        sk.ins_srtkenmerk_omschrijving ins_srtkenmerk_omschrijving,
        kd.ins_kenmerkdeel_verwijder,
        sk.ins_srtkenmerk_kenmerktype,
@@ -1411,7 +1470,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,
@@ -1463,5 +1522,164 @@ AS
            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 'Total',     'kpi_v_graph_tot_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend',      'kpi_v_graph_tot_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Total',     'kpi_v_graph_proc_tot',   2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Category', 'kpi_v_graph_proc_ond',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend',      'kpi_v_graph_proc_trend', 4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Total',     'kpi_v_graph_ond_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Category', 'kpi_v_graph_ond_proc',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_KPIRAP';
+
+SET SQLBLANKLINES ON
+
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{ title: "",
+   seriesDefaults: {
+      rendererOptions: {
+         background: "white",
+         ringColor: "#444",
+         needleThickness: 7,
+         hubRadius: 7,
+         intervalInnerRadius: 25,
+         intervalOuterRadius: 50,
+         shadowDepth: 0,
+         intervalColors: [ "#CC0000", "#EE9900", "#77BB00" ]
+      }
+   }
+}'
+WHERE fac_usrgraph_omschrijving = 'Total';
+
+-- onderdeel
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   stackSeries: false,
+   seriesDefaults:{
+      pointLabels: {
+         show: true,
+         edgeTolerance: -100,
+         ypadding: 0
+      }
+   },
+   series: [ {
+      renderer: $.jqplot.BarRenderer,
+      rendererOptions: {
+         barWidth: 50,
+         varyBarColor: true,
+         shadow: false
+      }
+   } ],
+   axes: {
+      yaxis: {
+         min: 0,
+         max: 100,
+         ticks: [0, 20, 40, 60, 80, 100],
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: {drawBaseline: false}
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+         }
+      },
+      {
+         horizontalLine: {
+            name: "n090",
+            y: 90,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(85, 238, 0, 0.5)",
+            shadow: false
+         }
+      } ]
+   },
+   axesStyles: {
+           borderWidth: 0,
+           ticks: {
+               fontSize: "20pt",
+               fontFamily: "Tahoma",
+               textColor: "black"
+           },
+           label: {
+               fontFamily: "Tahoma",
+               textColor: "black"
+           }
+        },
+   grid: {
+            backgroundColor: "white",
+            borderWidth: 0,
+            gridLineColor: "#eee",
+            gridLineWidth: 1,
+            borderColor: "white",
+            shadow: false
+        }
+}'
+WHERE fac_usrgraph_omschrijving = 'Category';
+
+-- trend
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   seriesDefaults: {
+      showMarker: false,
+      pointLabels: {
+         show: true
+      }
+   },
+   series: [ {
+      color: "#55acda",
+      shadow: true
+   } ],
+   axes: {
+      yaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: { drawBaseline: false }
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   axesStyles: {
+      borderWidth: 0,
+      ticks: {
+         fontSize: "20pt",
+         fontFamily: "Tahoma",
+         textColor: "black"
+      },
+      label: {
+         fontFamily: "Tahoma",
+         textColor: "black"
+      }
+   },
+   grid: {
+      backgroundColor: "white",
+      borderWidth: 0,
+      gridLineColor: "#eee",
+      gridLineWidth: 1,
+      borderColor: "white",
+      shadow: false
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 2,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+          }
+       },
+       {
+          horizontalLine: {
+             name: "n090",
+             y: 90,
+             lineWidth: 2,
+             lineCap: "square",
+             color: "rgba(85, 238, 0, 0.5)",
+             shadow: false
+          }
+       } ]
+    }
+}'
+WHERE fac_usrgraph_omschrijving = 'Trend';
+
+SET SQLBLANKLINES OFF
+
+
+REGISTERONCE('$Id$')
+
+#endif // KPI

KPI/KPI_PAC.SRC

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

KPI/KPI_SEQ.SRC

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

KPI/KPI_TAB.SRC

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

KPI/KPI_TRI.SRC

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

KPI/KPI_VIE.SRC

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

MLD/MLD_IND.SRC

@@ -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);

MLD/MLD_INI.SRC

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

MLD/MLD_SEQ.SRC

@@ -44,6 +44,7 @@ CREATE SEQUENCE mld_s_mld_opdr_uitvoeren_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_opdr_materiaal_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_afmeldtekst_key      MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmeldingfaq_key    MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdmsrtruimte_key    MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

MLD/MLD_TAB.SRC

@@ -50,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,
@@ -68,7 +72,7 @@ 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)
@@ -78,7 +82,21 @@ CREATE_TABLE(mld_disc_params, 0)
         DEFAULT 0,
     mld_behandelgroep_key
         NUMBER(10)
-        CONSTRAINT mld_r_behandelgroep_key1 REFERENCES mld_behandelgroep(mld_behandelgroep_key)
+        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)
 );
 
 
@@ -182,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) */
@@ -200,6 +218,14 @@ CREATE_TABLE(mld_typeopdr,0)
         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)
 );
 
@@ -247,23 +273,21 @@ 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_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_slabewaken
@@ -296,6 +320,10 @@ CREATE_TABLE(mld_stdmelding,0)
     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,
@@ -322,7 +350,9 @@ CREATE_TABLE(mld_stdmelding,0)
         NUMBER(2)
         DEFAULT 1
         CONSTRAINT mld_c_stdmelding_regime CHECK (mld_stdmelding_regime IS NOT NULL AND mld_stdmelding_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
-    mld_stdmelding_malus -- boete/korting bij overschrijding [per dag]
+    mld_stdmelding_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmelding_malus -- boete/korting bij overschrijding [per periode]
         NUMBER(8,2),
     mld_stdmelding_afhankelijk  -- is de uitvoertijd afhankelijk van de ins_deel/alg_srtruimte (1) of niet (0)
         NUMBER(1)
@@ -350,6 +380,43 @@ CREATE_TABLE(mld_stdmelding,0)
         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);
+
+// Eventuele afwijkingen per srtruimte van SLA tijden.
+// Fungeert als COALESCE met alg_srtruimte.
+CREATE_TABLE(mld_stdmsrtruimte, 0)
+(
+    mld_stdmsrtruimte_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtruimte_key PRIMARY KEY,
+    alg_srtruimte_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtruimte_key3 REFERENCES alg_srtruimte(alg_srtruimte_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtruimte_key, alg_c_srtruimte_key2),
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key5 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key),
+    mld_stdmsrtruimte_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per periode]
+        NUMBER(8,2),
+    mld_stdmsrtruimte_t_accepttijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc CHECK(mld_stdmsrtruimte_t_accepttijd.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitvtijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
+        CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 -- Kruistabel tussen KB(faq) en standaardmeldingen
 CREATE_TABLE(mld_stdmeldingfaq, 0)
@@ -382,7 +449,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
@@ -390,7 +457,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
@@ -479,7 +546,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)
 );
 
 
@@ -499,7 +570,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)
@@ -519,7 +592,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,
@@ -542,17 +615,15 @@ CREATE_TABLE(mld_melding,0)
         NUMBER(10)
         NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key)
         CONSTRAINT mld_r_mld_stdmelding_key REFERENCES mld_stdmelding,
-    mld_melding_uitvoertijd  -- 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_accepttijd  -- freeze van stdmelding-urgentie(acceptatietijd) ten tijde van melden
-        NUMBER(4,2),
+    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_respijt
-        NUMBER(8,5)  -- tijdsduur in uren die van de doorlooptijd afgetrokken wordt
-        DEFAULT 0,
+    mld_melding_t_respijt
+        MLD_T_UITVOERTIJD,  -- tijdsduur die van de doorlooptijd afgetrokken wordt
     mld_melding_indult
         NUMBER(1)  -- individueel vrijgesteld van SLA-meting/beoordeling (1) of niet (0)
         DEFAULT 0
@@ -620,6 +691,8 @@ CREATE_TABLE(mld_melding,0)
         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),
@@ -632,6 +705,9 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_locked_date
       DATE
 );
+ALTER TABLE mld_melding MODIFY mld_melding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_respijt DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 COMMENT ON COLUMN mld_workflowrule.mld_workflowrule_result IS '0 is failure/rejection, 1 is success';
 COMMENT ON COLUMN mld_melding.mld_workflowstep_key IS 'references the workflow step that this melding corresponds to';
@@ -650,6 +726,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),
@@ -677,6 +755,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
@@ -725,7 +805,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)
@@ -819,6 +921,9 @@ 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
@@ -850,7 +955,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
 );
 
@@ -1147,6 +1252,9 @@ CREATE_TABLE(mld_afmeldtekst, 0)
     mld_stdmelding_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmelding_key3 REFERENCES mld_stdmelding (mld_stdmelding_key),
+    mld_ins_discipline_key
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
   CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
 );
 

MLD/MLD_TRI.SRC

@@ -59,6 +59,11 @@ BEGIN
            SET ins_discipline_key = :new.mld_ins_discipline_key
          WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
     END IF;
+   IF :new.mld_stdmelding_verwijder IS NOT NULL AND :old.mld_stdmelding_verwijder IS NULL
+   THEN
+        DELETE FROM mld_afmeldtekst
+              WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
+   END IF;
 END;
 /
 
@@ -118,7 +123,7 @@ 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.
@@ -148,16 +153,14 @@ BEGIN
 
             -- Jammer dat ik dat zelf nog een keer moet ophalen, maar ja
             -- Deze waarden 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,
-                   mld_stdmelding_urgentie,
+            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,
-                   :new.mld_melding_accepttijd,
+              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;
@@ -185,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;
 
@@ -233,8 +216,6 @@ BEGIN
          END IF;
       END;
    END IF;
-
-
 END;
 /
 
@@ -244,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
@@ -256,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
@@ -755,6 +738,15 @@ BEGIN
     UPDATE_PRIMARY_KEY(mld_stdmeldingfaq_key, mld_s_mld_stdmeldingfaq_key);
 END;
 /
+
+CREATE_TRIGGER(mld_t_mld_stdmsrtruimte_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmsrtruimte
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(mld_stdmsrtruimte_key, mld_s_mld_stdmsrtruimte_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif  // MLD

MLD/MLD_TYP.SRC

@@ -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

MLD/MLD_VIE.SRC

@@ -131,15 +131,6 @@ CREATE_VIEW(mld_v_onroerendgoed_locatie,0) ( alg_onroerendgoed_keys,
 CREATE_VIEW(mld_v_ins_discipline, 0) AS
   SELECT * FROM MLD_v_aanwezigdiscipline;
 
-CREATE_VIEW(mld_v_stdmelding_gegevens, 0) AS
-SELECT mld_sm.mld_stdmelding_key, mld_sm.mld_ins_discipline_key, mld_d.ins_discipline_omschrijving,
-       mld_sm.mld_stdmelding_omschrijving, mld_sm.mld_stdmelding_upper, mld_sm.mld_stdmelding_urgentie,
-       NVL (ks1.prs_kostensoort_oms, ks2.prs_kostensoort_oms) prs_kostensoort_oms
-  FROM mld_stdmelding mld_sm, mld_v_ins_discipline mld_d, prs_kostensoort ks1, prs_kostensoort ks2
- WHERE mld_sm.mld_ins_discipline_key = mld_d.ins_discipline_key
-   AND mld_sm.prs_kostensoort_key = ks1.prs_kostensoort_key(+)
-   AND mld_d.prs_kostensoort_key = ks2.prs_kostensoort_key(+);
-
 DEFINIEER_VIEW_AANWEZIG(mld_melding_object, mld_melding_object_verwijder,
     mld_v_aanwezigmelding_object,0);
 
@@ -279,12 +270,16 @@ CREATE_VIEW(mld_v_qvw_algemeen, 0) (mld_melding_key,
                                 status,
                                 sla_nvt,
                                 sla_werkdgn,
+                                sla_werkuren,
                                 sla_respijtdgn,
+                                sla_respijturen,
+                                sla_accptdgn,
                                 sla_accpturen,
                                 plan_uitvoertijd_sla,
                                 datum,
                                 afgemeld,
                                 doorlooptijd_werkdgn,
+                                doorlooptijd_werkuren,
                                 omschrijving,
                                 opmerking,
                                 mld_typeopdr_key,
@@ -310,7 +305,10 @@ AS
    SELECT mld_melding_key, meldingnummer, alg_district_omschrijving, locatie, locatie_omschrijving, alg_locatie_key, gebouw, gebouw_naam, verdieping, ruimte, ruimte_omschrijving,
           melding_ordernr, kostensoortgroep, kostensoort, kostenplaats, kostenplaats_oms, melder, afdeling, afdeling_omschrijving,prs_bedrijf_key, invoerder, meldbron, mld_meldbron_key,
           ins_srtdiscipline_key, soortmelding, ins_discipline_key, productgroep, mld_stdmelding_key, subproductgroep, mld_stdmeldinggroep_key, mld_behandelgroep_key, behandelgroep, behandelaar,
-          subproductgroepgroep, status, sla_nvt, sla_werkdgn, sla_respijtdgn, sla_accpturen, plan_uitvoertijd_sla, datum, afgemeld, doorlooptijd_werkdgn, SUBSTR (omschrijving, 1, 512), SUBSTR (opmerking, 1, 512),
+          subproductgroepgroep, status, sla_nvt, sla_werkdgn, sla_werkuren, sla_respijtdgn, sla_respijturen, sla_accptdgn, sla_accpturen, plan_uitvoertijd_sla, datum, afgemeld,
+          DECODE(x.t_doorlooptijd.eenheid, 'D', x.t_doorlooptijd.tijdsduur, NULL) doorlooptijd_werkdgn,
+          DECODE(x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL) doorlooptijd_werkuren,
+          SUBSTR (omschrijving, 1, 512), SUBSTR (opmerking, 1, 512),
           mld_typeopdr_key, opdracht_type, opdracht_volgnummer, opdracht_status, opdracht_duur_gepland, opdracht_datum, opdracht_afgemeld,
           opdracht_doorlooptijd, SUBSTR (opdracht_omschrijving, 1, 512), SUBSTR (opdracht_opmerking, 1, 512),
           opdracht_uitvoerende, opdracht_contract, opdracht_contactpersoon, opdracht_uren, opdracht_correctie,
@@ -387,15 +385,18 @@ AS
                     THEN 1
                     ELSE 0
                   END sla_nvt,
-                  m.mld_melding_uitvoertijd sla_werkdgn,
-                  m.mld_melding_respijt sla_respijtdgn,
-                  m.mld_melding_accepttijd sla_accpturen,
-                  TO_CHAR (m.mld_melding_datum, 'YYYY-MM-DD') datum,
-                  COALESCE (TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,5), 'YYYY-MM-DD'),
-                            TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,1), 'YYYY-MM-DD')
+                  DECODE(m.mld_melding_t_uitvoertijd.eenheid, 'D', m.mld_melding_t_uitvoertijd.tijdsduur, NULL) sla_werkdgn,
+                  DECODE(m.mld_melding_t_uitvoertijd.eenheid, 'U', m.mld_melding_t_uitvoertijd.tijdsduur, NULL) sla_werkuren,
+                  DECODE(m.mld_melding_t_respijt.eenheid, 'D', m.mld_melding_t_respijt.tijdsduur, NULL) sla_respijtdgn,
+                  DECODE(m.mld_melding_t_respijt.eenheid, 'U', m.mld_melding_t_respijt.tijdsduur, NULL) sla_respijturen,
+                  DECODE(m.mld_melding_t_accepttijd.eenheid, 'D', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accptdgn,
+                  DECODE(m.mld_melding_t_accepttijd.eenheid, 'U', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accpturen,
+                  TRUNC (m.mld_melding_datum) datum,
+                  COALESCE (TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,5)),
+                            TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,1))
                            )
                      afgemeld,
-                  mld.getactualuitvoer(m.mld_melding_key) doorlooptijd_werkdgn,
+                  mld.getactualuitvoer(m.mld_melding_key) t_doorlooptijd,
                   m.mld_melding_omschrijving omschrijving,
                   m.mld_melding_opmerking opmerking,
                   top.mld_typeopdr_key,
@@ -404,24 +405,20 @@ AS
                   (SELECT mld_statusopdr_omschrijving
                      FROM mld_statusopdr sta
                     WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key) opdracht_status,
-                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland, TO_CHAR (o.mld_opdr_datumbegin, 'YYYY-MM-DD') opdracht_datum,
-                  TO_CHAR (mld.getopdrachtstatusdate(o.mld_opdr_key,6), 'YYYY-MM-DD') opdracht_afgemeld,
+                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland,
+                  TRUNC (o.mld_opdr_datumbegin) opdracht_datum,
+                  TRUNC (mld.getopdrachtstatusdate(o.mld_opdr_key,6)) opdracht_afgemeld,
                   fac.count_work_days (o.mld_opdr_datumbegin, mld.getopdrachtstatusdate(o.mld_opdr_key,6)) opdracht_doorlooptijd,
                   o.mld_opdr_omschrijving opdracht_omschrijving, o.mld_opdr_opmerking opdracht_opmerking,
                   (SELECT naam
                      FROM mld_v_uitvoerende u
                     WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys) opdracht_uitvoerende, NULL opdracht_contract,
                   NULL opdracht_contactpersoon,
-                  REPLACE (TO_CHAR (o.mld_opdr_uren, '9999990.99'), '.', ',') opdracht_uren,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon),
-                                    '9999990.99'
-                                   ),
-                           '.',
-                           ','
-                          ) opdracht_correctie,
-                  REPLACE (TO_CHAR (o.mld_opdr_materiaal, '9999990.99'), '.', ',') opdracht_materiaal,
-                  REPLACE (TO_CHAR (o.mld_opdr_uurloon, '9999990.99'), '.', ',') opdracht_uurtarief,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten, '9999990.99'), '.', ',') opdracht_kosten
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon) opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten
              FROM mld_melding m,
                   mld_stdmelding s,
                   alg_locatie l,
@@ -445,7 +442,7 @@ AS
               AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
               AND m.mld_melding_key = o.mld_melding_key(+)
               AND O.MLD_TYPEOPDR_KEY=top.MLD_TYPEOPDR_KEY(+)
-              AND m.mld_melding_datum >= TO_DATE ('01-01-2000', 'DD-MM-YYYY'));
+              AND m.mld_melding_datum >= TO_DATE ('01-01-2000', 'DD-MM-YYYY')) x;
 
 
 CREATE_VIEW(mld_v_qvw_locale, 0)
@@ -584,6 +581,237 @@ AS
            AND fr.fac_locale_kolomnaam(+) = 'MLD_TYPEOPDR_OMSCHRIJVING'
            AND fr.fac_locale_lang(+) = 'FR';
 
+-- Voor een handige standaardrapportage
+CREATE_VIEW(mld_v_rap_stdmelding, 0)
+(
+   hide_f_vakgroeptype,
+   fclt_f_vakgroep,
+   vakgroep_key,
+   notificeren_vakgroep,
+   doorzetten,
+   eerstnaarFO,
+   interactie_fe,
+   fclt_f_melding,
+   melding_key,
+   volgnummer,
+   meldingsgroep,
+   acceptatietijd,
+   uitvoertijd_normaal,
+   uitvoertijd_laag,
+   uitvoertijd_hoog,
+   uitvoertijd_kritisch,
+   planbaar,
+   omschrijvingsveld,
+   tekst_bij_afmelden,
+   niet_zichtbaar_fe,
+   notificeren,
+   kostensoort,
+   discipline,
+   groep,
+   objectsoort,
+   object_kiezen_verplicht,
+   verplicht_niveau_alg,
+   alleen_ruimtes_eigen_org,
+   aanwijzing,
+   symboolnaam,
+   te_beh_door_dienst,
+   dienst_vereist,
+   standaard_opdrachttype,
+   auto_opdr_aanmaken,
+   beperk_tot_catalogus,
+   kopieerbaar,
+   regime,
+   malusbasis,
+   malus,
+   dubbele_mld_controleren,
+   doet_mee_in_kto,
+   vervaldatum
+)
+AS
+   SELECT ins_srtdiscipline_omschrijving vakgroeptype,
+          ins_srtdiscipline_prefix || '-' || vak.ins_discipline_omschrijving
+             vakgroep,
+          vak.ins_discipline_key vakgroep_key,
+          DECODE (mld_disc_params_notify,
+                  0, 'Nooit',
+                  1, 'Altijd',
+                  2, 'Afhankelijk van melding',
+                  'Onbekend')
+             notificeren,
+          DECODE (mld_disc_params_keten,
+                  0, 'Niet',
+                  'Wel') doorzetten,
+          DECODE (COALESCE(mld_stdmelding_directklaar, mld_disc_params_directklaar),
+                  0, 'Nee',
+                  1, 'Ja',
+                  2, 'Initieel ook eerst naar FO',
+                  'Onbekend') eerstnaarFO,
+          DECODE (mld_disc_params_fenotes,
+                  0, 'default niet zichtbaar voor FE',
+                  1, 'default wel zichtbaar voor FE',
+                  2, 'per notitie, default niet zichtbaar voor FE',
+                  3, 'per notitie, default wel zichtbaar voor FE',
+                  'Onbekend') interactiefe,
+          mld_stdmelding_omschrijving melding,
+          std.mld_stdmelding_key melding_key,
+          mld_stdmelding_volgnr volgnummer,
+          mld_stdmeldinggroep_naam meldingsgroep,
+          std.mld_stdmelding_t_accepttijd.tijdsduur||DECODE(std.mld_stdmelding_t_accepttijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') acceptatietijd,
+          std.mld_stdmelding_t_uitvoertijd.tijdsduur||DECODE(std.mld_stdmelding_t_uitvoertijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_normaal,
+          std.mld_stdmelding_t_uitvtijd_pr4.tijdsduur||DECODE(std.mld_stdmelding_t_uitvtijd_pr4.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_laag,
+          std.mld_stdmelding_t_uitvtijd_pr2.tijdsduur||DECODE(std.mld_stdmelding_t_uitvtijd_pr2.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_hoog,
+          std.mld_stdmelding_t_uitvtijd_pr1.tijdsduur||DECODE(std.mld_stdmelding_t_uitvtijd_pr1.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_kritisch,
+          DECODE (mld_stdmelding_planbaar, 1, 'ja', 'nee') planbaar,
+          DECODE (mld_stdmelding_freetext,
+                  0, 'onzichtbaar',
+                  2, 'verplicht',
+                  'optioneel')
+             omschrijvingsveld,
+          DECODE (mld_stdmelding_afmeldtext, 2, 'verplicht', 'optioneel')
+             tekst_bij_afmelden,
+          DECODE (mld_stdmelding_notfrontend, 1, 'ja', 'nee')
+             niet_zichtbaar_fe,
+          DECODE (mld_stdmelding_notify, 1, 'ja', 'nee') notificeren,
+          pks.prs_kostensoort_oms kostensoort,
+          mo.discipline,
+          mo.groep,
+          mo.objectsoort,
+          DECODE (ins_srtinst_verplicht, 1, 'ja', 'nee')
+             object_kiezen_verplicht,
+          DECODE (alg_onrgoed_niveau,
+                  'R', 'ruimte',
+                  'V', 'verdieping',
+                  'G', 'gebouw',
+                  'L', 'locatie')
+             verplicht_niveau,
+          DECODE (mld_stdmelding_prseigen, 1, 'ja', 'nee')
+             alleen_ruimtes_eigen_org,
+          mld_stdmelding_hint aanwijzing,
+          mld_stdmelding_image symboolnaam,
+          d.prs_dienst_omschrijving te_beh_door_dienst,
+          DECODE (mld_stdmelding_vereisdienst, 1, 'ja', 'nee') dienst_vereist,
+          ot.mld_typeopdr_omschrijving standaard_opdrachttype,
+          DECODE (mld_stdmelding_autoorder, 1, 'ja', 'nee')
+             auto_opdr_aanmaken,
+          bd.ins_discipline_omschrijving beperk_tot_catalogus,
+          DECODE (mld_stdmelding_kopieerbaar, 1, 'ja', 'nee') kopieerbaar,
+          DECODE (mld_stdmelding_regime,
+                  1, 'Kantoortijden',
+                  2, 'Openingstijden',
+                  3, '24/7')
+             regime,
+          mld_stdmelding_malusbasis malusbasis,
+          mld_stdmelding_malus malus,
+          DECODE (mld_stdmelding_doublecheck,
+                  1, 'alleen bij invoeren',
+                  2, 'alleen bij accepteren',
+                  3, 'bij invoeren en accepteren',
+                  'nooit')
+             dubbele_mld_controleren,
+          DECODE (mld_stdmelding_kto,
+                  1, 'Altijd',
+                  2, 'Opt-in',
+                  3, 'Opt-out',
+                  'Nooit')
+             doet_mee_in_kto,
+          mld_stdmelding_vervaldatum vervaldatum
+     FROM mld_stdmelding std,
+          mld_stdmeldinggroep smg,
+          mld_discipline vak,
+          ins_srtdiscipline srt,
+          prs_kostensoort pks,
+          prs_dienst d,
+          mld_disc_params dp,
+          mld_typeopdr ot,
+          bes_discipline bd,
+          (SELECT sm.mld_stdmelding_key,
+                  td.ins_discipline_omschrijving discipline,
+                  NULL groep,
+                  NULL objectsoort
+             FROM mld_stdmelding sm, ins_tab_discipline td
+            WHERE sm.ins_srtinst_niveau = 'D'
+              AND sm.ins_srtinst_key = td.ins_discipline_key
+           UNION ALL
+           SELECT sm.mld_stdmelding_key,
+                  td.ins_discipline_omschrijving discipline,
+                  sg.ins_srtgroep_omschrijving groep,
+                  NULL objectsoort
+             FROM mld_stdmelding sm, ins_srtgroep sg, ins_tab_discipline td
+            WHERE sm.ins_srtinst_niveau = 'G'
+              AND sm.ins_srtinst_key = sg.ins_srtgroep_key
+              AND sg.ins_discipline_key = td.ins_discipline_key
+           UNION ALL
+           SELECT sm.mld_stdmelding_key,
+                  td.ins_discipline_omschrijving discipline,
+                  sg.ins_srtgroep_omschrijving groep,
+                  sd.ins_srtdeel_omschrijving objectsoort
+             FROM mld_stdmelding sm,
+                  ins_srtdeel sd,
+                  ins_srtgroep sg,
+                  ins_tab_discipline td
+            WHERE sm.ins_srtinst_niveau = 'S'
+              AND sm.ins_srtinst_key = sd.ins_srtdeel_key
+              AND sd.ins_srtgroep_key = sg.ins_srtgroep_key
+              AND sg.ins_discipline_key = td.ins_discipline_key) mo
+    WHERE std.mld_stdmelding_verwijder IS NULL
+      AND std.mld_ins_discipline_key = vak.ins_discipline_key
+      AND vak.ins_discipline_verwijder IS NULL
+      AND vak.ins_srtdiscipline_key = srt.ins_srtdiscipline_key
+      AND srt.ins_srtdiscipline_verwijder IS NULL
+      AND std.prs_kostensoort_key = pks.prs_kostensoort_key(+)
+      AND std.prs_dienst_key = d.prs_dienst_key(+)
+      AND std.mld_typeopdr_key = ot.mld_typeopdr_key(+)
+      AND std.mld_stdmelding_key = mo.mld_stdmelding_key(+)
+      AND std.mld_stdmelding_key = mo.mld_stdmelding_key(+)
+      AND std.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
+      AND bd.ins_discipline_key(+) = std.bes_ins_discipline_key
+      AND vak.ins_discipline_key = dp.mld_ins_discipline_key;
+
+-- UWVA#31346: Export tbv. import afmeldteksten!
+CREATE_VIEW(mld_v_rap_expimp_afmtxt, 0)
+(
+   afmeldtekstnaam,
+   afmeldtekstomschrijving,
+   fclt_x_discipline_key,
+   fclt_x_stdmelding_key,
+   discipline_key,
+   stdmelding_key
+)
+AS
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+             md.ins_discipline_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_ins_discipline_key)
+          || ']',
+             sm.mld_stdmelding_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_stdmelding_key)
+          || ']',
+          sm.mld_ins_discipline_key,
+          t.mld_stdmelding_key
+     FROM mld_afmeldtekst t, mld_stdmelding sm, mld_discipline md
+    WHERE     t.mld_stdmelding_key IS NOT NULL
+          AND t.mld_stdmelding_key = sm.mld_stdmelding_key
+          AND sm.mld_ins_discipline_key = md.ins_discipline_key
+   UNION ALL
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+          DECODE (
+             md.ins_discipline_key,
+             NULL,
+             NULL,
+                md.ins_discipline_omschrijving
+             || ' [key='
+             || TO_CHAR (md.ins_discipline_key)
+             || ']'),
+          NULL,
+          md.ins_discipline_key,
+          NULL
+     FROM mld_afmeldtekst t, mld_discipline md
+    WHERE t.mld_stdmelding_key IS NULL
+          AND t.mld_ins_discipline_key = md.ins_discipline_key(+);
+
 ---- KTO views + rapportages
 CREATE_VIEW(mld_v_kto_vragen, 0)
 (
@@ -1040,5 +1268,643 @@ CREATE_VIEW(mld_v_api_meldingen, 1) AS SELECT * from mld_melding;
 CREATE_VIEW(mld_v_api_opdrachten, 1) AS SELECT * from mld_opdr;
 
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* since melding and opdracht are joined later on, the columns must be unique */
+CREATE_VIEW(mld_v_udr_melding, 1)
+(
+   melding_key,
+   meldingnummer,
+   melding_district,
+   melding_locatiecode,
+   melding_locatie,
+   fclt_3d_locatie_key,
+   melding_gebouwcode,
+   melding_gebouw,
+   melding_verdieping,
+   melding_ruimtenr,
+   melding_ruimte,
+   melding_ordernr,
+   kostensoortgroep,
+   kostensoort,
+   kostenplaats,
+   kostenplaats_oms,
+   melder,
+   afdeling,
+   afdeling_omschrijving,
+   fclt_3d_afdeling_key,
+   bedrijf_key,
+   invoerder,
+   meldbron,
+   soortmelding,
+   fclt_3d_discipline_key,
+   productgroep,
+   subproductgroep,
+   behandelgroep,
+   behandelaar,
+   subproductgroepgroep,
+   melding_status,
+   sla_nvt,
+   sla_werkdgn,
+   sla_werkuren,
+   sla_respijtdgn,
+   sla_respijturen,
+   sla_accptdgn,
+   sla_accpturen,
+   plan_uitvoertijd_sla,
+   melding_datum,
+   melding_einddatum,
+   melding_acceptdatum,
+   melding_afgemeld,
+   melding_accepted,
+   doorlooptijd_werkdgn,
+   doorlooptijd_werkuren,
+   vomschrijving,
+   melding_opmerking,
+   prioriteit,
+   rating,
+   rating_opmerking,
+   bolletje,
+   accept_sla_dagen,
+   accept_sla_uren,
+   uitvoering_sla_dagen,
+   uitvoering_sla_uren,
+   afspraak_sla_dagen,
+   afspraak_sla_uren,
+   accept_sla_optijd,
+   uitvoering_sla_optijd,
+   afspraak_sla_optijd
+)
+AS
+   SELECT mld_melding_key,
+          meldingnummer,
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          melding_ordernr,
+          kostensoortgroep,
+          kostensoort,
+          kostenplaats,
+          kostenplaats_oms,
+          melder,
+          afdeling,
+          afdeling_omschrijving,
+          afdeling_key,
+          prs_bedrijf_key,
+          invoerder,
+          meldbron,
+          soortmelding,
+          ins_discipline_key,
+          productgroep,
+          subproductgroep,
+          behandelgroep,
+          behandelaar,
+          subproductgroepgroep,
+          status,
+          sla_nvt,
+          sla_werkdgn,
+          sla_werkuren,
+          sla_respijtdgn,
+          sla_respijturen,
+          sla_accptdgn,
+          sla_accpturen,
+          plan_uitvoertijd_sla,
+          datum,
+          einddatum,
+          acceptdatum,
+          afgemeld,
+          accepted,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkdgn,
+          DECODE (x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkuren,
+          omschrijving,
+          opmerking,
+          mld_melding_spoed prioriteit,
+          mld_melding_satisfaction,
+          mld_melding_satisfaction_op,
+          mld_melding_flag,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', acceptdatum - COALESCE (accepted, afgemeld), NULL)
+             accept_sla_dagen,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                  NULL)
+             accept_sla_uren,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'D',
+               mld.geteinddatum (mld_melding_key)
+             - COALESCE (afgemeld, SYSDATE)
+             + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             uitvoering_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (mld.geteinddatum (mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+             + COALESCE (sla_respijturen, 0),
+             NULL)
+             uitvoering_sla_uren,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'D', einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                  NULL)
+             afspraak_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24) + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             afspraak_sla_uren,
+          CASE
+             WHEN acceptdatum IS NULL
+                  OR            -- Dan is er geen acceptatietijd gedefinieerd en dus altijd op tijd.
+                    DECODE (x.t_doorlooptijd.eenheid,
+                            'D', acceptdatum - COALESCE (accepted, afgemeld),
+                            0)
+                    + DECODE (x.t_doorlooptijd.eenheid,
+                              'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                              0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             accept_sla_optijd,
+          CASE
+             WHEN DECODE (
+                     x.t_doorlooptijd.eenheid,
+                     'D',
+                       mld.geteinddatum (mld_melding_key)
+                     - COALESCE (afgemeld, SYSDATE)
+                     + COALESCE (sla_respijtdgn, 0),
+                     0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (mld.geteinddatum(mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijturen, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             uitvoering_sla_optijd,
+          CASE
+             WHEN DECODE (x.t_doorlooptijd.eenheid,
+                          'D',
+                          einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                          0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijtdgn, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             afspraak_sla_optijd
+     FROM (SELECT m.mld_melding_key,
+                  sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
+                  alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  m.mld_melding_ordernr melding_ordernr,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                          AND ks.prs_kostensoort_key =
+                                (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                   FROM mld_stdmelding sm, mld_discipline disc
+                                  WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                        AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                             (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                FROM mld_stdmelding sm, mld_discipline disc
+                               WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                     AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoort,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.prs_perslid_key)
+                     melder,
+                  (SELECT prs_afdeling_naam
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling,
+                  (SELECT prs_afdeling_omschrijving
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_omschrijving,
+                  (SELECT prs_afdeling_key
+                     FROM prs_perslid pp
+                    WHERE pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_key,
+                  (SELECT prs_bedrijf_key
+                     FROM prs_v_afdeling pva, prs_perslid pp
+                    WHERE pva.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     prs_bedrijf_key,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = mld.getmeldinguser (m.mld_melding_key))
+                     invoerder,
+                  (SELECT mb.mld_meldbron_omschrijving
+                     FROM mld_meldbron mb
+                    WHERE mb.mld_meldbron_key = m.mld_meldbron_key)
+                     meldbron,
+                  m.mld_meldbron_key,
+                  sd.ins_srtdiscipline_key ins_srtdiscipline_key,
+                  sd.ins_srtdiscipline_omschrijving soortmelding,
+                  md.ins_discipline_key ins_discipline_key,
+                  md.ins_discipline_omschrijving productgroep,
+                  s.mld_stdmelding_omschrijving subproductgroep,
+                  smg.mld_stdmeldinggroep_naam subproductgroepgroep,
+                  mbg.mld_behandelgroep_naam behandelgroep,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.mld_melding_behandelaar_key)
+                     behandelaar,
+                  (SELECT mld_statuses_omschrijving
+                     FROM mld_statuses sta
+                    WHERE sta.mld_statuses_key = m.mld_melding_status)
+                     status,
+                  CASE
+                     WHEN m.mld_melding_einddatum >
+                             COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
+                                       fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
+                                       SYSDATE)
+                     THEN
+                        1
+                     ELSE
+                        0
+                  END
+                     plan_uitvoertijd_sla,
+                  CASE
+                     WHEN m.mld_melding_indult = 1 OR s.mld_stdmelding_slabewaken = 0 THEN 1
+                     ELSE 0
+                  END
+                     sla_nvt,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'D', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkdgn,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'U', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkuren,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'D', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijtdgn,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'U', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijturen,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'D', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accptdgn,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'U', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accpturen,
+                  m.mld_melding_datum datum,
+                  m.mld_melding_einddatum einddatum,
+                  mld.getacceptdatum (m.mld_melding_datum,
+                                      m.mld_stdmelding_key,
+                                      og.alg_onroerendgoed_keys)
+                     acceptdatum,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5),
+                            mld.getmeldingstatusdate (m.mld_melding_key, 1))
+                     afgemeld,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 4),
+                            mld.getmeldingstatusdate (m.mld_melding_key, 1))
+                     accepted,
+                  mld.getactualuitvoer (m.mld_melding_key) t_doorlooptijd,
+                  m.mld_melding_omschrijving omschrijving,
+                  m.mld_melding_opmerking opmerking,
+                  m.mld_melding_spoed,
+                  m.mld_melding_satisfaction,
+                  m.mld_melding_satisfaction_op,
+                  m.mld_melding_flag
+             FROM mld_melding m,
+                  mld_stdmelding s,
+                  alg_locatie l,
+                  alg_district d,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_discipline md,
+                  mld_disc_params mdp,
+                  mld_behandelgroep mbg,
+                  ins_srtdiscipline sd,
+                  mld_stdmeldinggroep smg
+            WHERE     s.mld_stdmelding_key = m.mld_stdmelding_key
+                  AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
+                  AND md.ins_discipline_key = s.mld_ins_discipline_key
+                  AND md.ins_discipline_key = mdp.mld_ins_discipline_key
+                  AND s.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
+                  AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
+
+CREATE_VIEW(mld_v_udr_opdracht, 1)
+(
+   opdracht_key,
+   opdracht_nummer,
+   opdracht_district,
+   opdracht_locatie_code,
+   opdracht_locatie,
+   fclt_3d_locatie_key,
+   opdracht_gebouwcode,
+   opdracht_gebouw,
+   opdracht_verdieping,
+   opdracht_ruimtenr,
+   opdracht_ruimte,
+   opdracht_kostenplaats,
+   opdracht_kostenplaats_oms,
+   melding_key,
+   opdracht_type,
+   opdracht_volgnummer,
+   opdracht_status,
+   opdracht_duur_gepland,
+   opdracht_datum,
+   opdracht_einddatum,
+   opdracht_plandatum,
+   opdracht_afgemeld,
+   opdracht_doorlooptijd,
+   opdracht_omschrijving,
+   opdracht_opmerking,
+   opdracht_uitvoerende,
+   opdracht_contract,
+   opdracht_contactpersoon,
+   opdracht_uren,
+   opdracht_correctie,
+   opdracht_materiaal,
+   opdracht_uurtarief,
+   opdracht_kosten
+)
+AS
+   SELECT mld_opdr_key,
+          TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,         -- ik vind prefix te duur
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          kostenplaats,
+          kostenplaats_oms,
+          mld_melding_key,
+          opdracht_type,
+          opdracht_volgnummer,
+          opdracht_status,
+          opdracht_duur_gepland,
+          opdracht_datum,
+          opdracht_einddatum,
+          opdracht_plandatum,
+          opdracht_afgemeld,
+          opdracht_doorlooptijd,
+          opdracht_omschrijving,
+          opdracht_opmerking,
+          opdracht_uitvoerende,
+          opdracht_contract,
+          opdracht_contactpersoon,
+          opdracht_uren,
+          opdracht_correctie,
+          opdracht_materiaal,
+          opdracht_uurtarief,
+          opdracht_kosten
+     FROM (SELECT alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  o.mld_opdr_key,
+                  o.mld_melding_key,
+                  top.mld_typeopdr_key,
+                  top.mld_typeopdr_omschrijving opdracht_type,
+                  o.mld_opdr_bedrijfopdr_volgnr opdracht_volgnummer,
+                  (SELECT mld_statusopdr_omschrijving
+                     FROM mld_statusopdr sta
+                    WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key)
+                     opdracht_status,
+                  fac.count_work_days (o.mld_opdr_datumbegin, o.mld_opdr_einddatum)
+                     opdracht_duur_gepland,
+                  o.mld_opdr_datumbegin opdracht_datum,
+                  o.mld_opdr_einddatum opdracht_einddatum,
+                  o.mld_opdr_plandatum opdracht_plandatum,
+                  mld.getopdrachtstatusdate (o.mld_opdr_key, 6) opdracht_afgemeld,
+                  fac.count_work_days (o.mld_opdr_datumbegin,
+                                       mld.getopdrachtstatusdate (o.mld_opdr_key, 6))
+                     opdracht_doorlooptijd,
+                  o.mld_opdr_omschrijving opdracht_omschrijving,
+                  o.mld_opdr_opmerking opdracht_opmerking,
+                  (SELECT naam
+                     FROM mld_v_uitvoerende u
+                    WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys)
+                     opdracht_uitvoerende,
+                  NULL opdracht_contract,
+                  NULL opdracht_contactpersoon,
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
+                     opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten
+             FROM alg_locatie l,
+                  alg_district d,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_opdr o,
+                  mld_typeopdr top,
+                  mld_melding m
+            WHERE     m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND o.mld_melding_key = m.mld_melding_key
+                  AND o.mld_typeopdr_key = top.mld_typeopdr_key(+)
+                  AND o.mld_opdr_datumbegin >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
+
+-- Noot: SELECT * is een slecht gebruik en leidt tot onoplosbare conflicten
+CREATE_VIEW(mld_v_udr_meldingopdracht, 1)
+AS
+SELECT
+   m.melding_key,
+   m.meldingnummer,
+   m.melding_district,
+   m.melding_locatiecode,
+   m.melding_locatie,
+   m.fclt_3d_locatie_key,
+   m.melding_gebouwcode,
+   m.melding_gebouw,
+   m.melding_verdieping,
+   m.melding_ruimtenr,
+   m.melding_ruimte,
+   m.melding_ordernr,
+   m.kostensoortgroep,
+   m.kostensoort,
+   m.kostenplaats,
+   m.kostenplaats_oms,
+   m.melder,
+   m.afdeling,
+   m.afdeling_omschrijving,
+   m.fclt_3d_afdeling_key,
+   m.bedrijf_key,
+   m.invoerder,
+   m.meldbron,
+   m.soortmelding,
+   m.fclt_3d_discipline_key,
+   m.productgroep,
+   m.subproductgroep,
+   m.behandelgroep,
+   m.behandelaar,
+   m.subproductgroepgroep,
+   m.melding_status,
+   m.sla_nvt,
+   m.sla_werkdgn,
+   m.sla_werkuren,
+   m.sla_respijtdgn,
+   m.sla_respijturen,
+   m.sla_accptdgn,
+   m.sla_accpturen,
+   m.plan_uitvoertijd_sla,
+   m.melding_datum,
+   m.melding_einddatum,
+   m.melding_afgemeld,
+   m.doorlooptijd_werkdgn,
+   m.doorlooptijd_werkuren,
+   m.vomschrijving,
+   m.melding_opmerking,
+   m.rating,
+   m.rating_opmerking,
+   m.bolletje,
+   o.opdracht_key,
+   o.opdracht_nummer,
+   o.opdracht_district,
+   o.opdracht_locatie_code,
+   o.opdracht_locatie,
+   --o.fclt_3d_locatie_key,
+   o.opdracht_gebouwcode,
+   o.opdracht_gebouw,
+   o.opdracht_verdieping,
+   o.opdracht_ruimtenr,
+   o.opdracht_ruimte,
+   o.opdracht_kostenplaats,
+   o.opdracht_kostenplaats_oms,
+   --o.melding_key,
+   o.opdracht_type,
+   o.opdracht_volgnummer,
+   o.opdracht_status,
+   o.opdracht_duur_gepland,
+   o.opdracht_datum,
+   o.opdracht_einddatum,
+   o.opdracht_plandatum,
+   o.opdracht_afgemeld,
+   o.opdracht_doorlooptijd,
+   o.opdracht_omschrijving,
+   o.opdracht_opmerking,
+   o.opdracht_uitvoerende,
+   o.opdracht_contract,
+   o.opdracht_contactpersoon,
+   o.opdracht_uren,
+   o.opdracht_correctie,
+   o.opdracht_materiaal,
+   o.opdracht_uurtarief,
+   o.opdracht_kosten
+ FROM mld_v_udr_melding m, mld_v_udr_opdracht o
+ WHERE m.melding_key = o.melding_key(+);
+
+
+// UDR met kenmerken (1 record per kenmerk, aangevuld met 1 record voor meldingen zonder kenmerk)
+CREATE_VIEW(mld_v_udr_meldingkenmerk, 1)
+AS
+   SELECT m.*,
+          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
+          CASE
+             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+             THEN
+                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)
+             ELSE
+                km.mld_kenmerkmelding_waarde
+          END
+             waarde
+    FROM mld_v_udr_melding m,
+          mld_kenmerkmelding km,
+          mld_kenmerk k,
+          mld_srtkenmerk skm
+    WHERE     km.mld_melding_key(+) = m.melding_key
+          AND km.mld_kenmerkmelding_verwijder IS NULL
+          AND k.mld_kenmerk_verwijder IS NULL
+          AND skm.mld_srtkenmerk_verwijder IS NULL
+          AND km.mld_kenmerk_key = k.mld_kenmerk_key(+)
+          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+
+
+CREATE_VIEW(mld_v_udr_opdrachtkenmerk, 1)
+AS
+   SELECT o.*,
+          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
+          CASE
+             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+             THEN
+                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, ko.mld_kenmerkopdr_waarde)
+             ELSE
+                ko.mld_kenmerkopdr_waarde
+          END
+             waarde
+     FROM mld_v_udr_opdracht o,
+          mld_kenmerkopdr ko,
+          mld_kenmerk k,
+          mld_srtkenmerk skm
+    WHERE     ko.mld_opdr_key(+) = o.opdracht_key
+          AND ko.mld_kenmerkopdr_verwijder IS NULL
+          AND k.mld_kenmerk_verwijder IS NULL
+          AND skm.mld_srtkenmerk_verwijder IS NULL
+          AND ko.mld_kenmerk_key = k.mld_kenmerk_key(+)
+          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+
 REGISTERRUN('$Id$')
 #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 KPI    KPI
 #define MLD    MLD
 #define MRK    MRK
 #define MSG    MSG

MSG/MSG_TAB.SRC

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

PRJ/PRJ_PAC.SRC

@@ -116,7 +116,7 @@ AS
 			   AND ins_srtdeel_key = srtdeelkey
                AND ins_deel_verwijder IS NULL;
             -- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
-			SELECT ins.get_description('LPN_INS_DEEL',parent_key , ins_srtdeel_code_upper, srtdeelkey)
+			SELECT ins.get_description('LPN_INS_DEEL',parent_key , ins_srtdeel_code_upper)
 				   INTO omschrijving
             	   FROM ins_srtdeel WHERE ins_srtdeel_key=srtdeelkey;
          EXCEPTION

PRS/PRS_IND.SRC

@@ -16,6 +16,10 @@ create index prs_i_prs_perslid3 on prs_perslid(prs_perslid_init_upper);
 /*via unique: CREATE UNIQUE INDEX prs_i_prs_perslid4 ON prs_perslid(prs_perslid_oslogin);*/
 CREATE INDEX prs_i_prs_perslid5 ON prs_perslid(prs_perslid_upper);
 CREATE INDEX prs_i_prs_perslid6 ON prs_perslid(prs_perslid_nr);
+CREATE UNIQUE INDEX prs_i_prs_perslid7 ON prs_perslid(prs_perslid_apikey);
+
+CREATE INDEX prs_i_prscontactpersoon1 ON prs_contactpersoon(prs_bedrijf_key);
+CREATE INDEX prs_i_prscontactpersoon2 ON prs_contactpersoon(prs_perslid_key);
 
 CREATE INDEX prs_i_prs_werkplek1 ON prs_werkplek(prs_alg_ruimte_key);
 

PRS/PRS_INI.SRC

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

PRS/PRS_SEQ.SRC

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

PRS/PRS_TAB.SRC

@@ -4,6 +4,22 @@
  *  $Id$
  */
 
+CREATE_TABLE(prs_relatietype, 0)
+(
+   prs_relatietype_key
+       NUMBER (10) PRIMARY KEY,
+   prs_relatietype_omschrijving
+       VARCHAR2(100)
+       NOT_NULL(prs_relatietype_omschrijving, prs_c_prs_relatietype_omschr),
+   prs_relatietype_aanmaak
+       DATE
+       DEFAULT SYSDATE,
+   prs_relatietype_verwijder
+       DATE
+       DEFAULT NULLDATUM,
+   CONSTRAINT prs_u_prs_relatietype_oms UNIQUE(prs_relatietype_omschrijving, prs_relatietype_verwijder)
+);
+
 CREATE_TABLE(prs_bedrijf,0)
 (
     prs_bedrijf_key
@@ -16,7 +32,7 @@ CREATE_TABLE(prs_bedrijf,0)
         VARCHAR2(60)
         NOT_NULL(prs_bedrijf_naam_upper, prs_c_prs_bedrijf_naam_upper),
     prs_bedrijf_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_post_postcode
         VARCHAR2(12),
     prs_bedrijf_post_plaats
@@ -24,7 +40,7 @@ CREATE_TABLE(prs_bedrijf,0)
     prs_bedrijf_post_land
         VARCHAR2(30),
     prs_bedrijf_bezoek_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_bezoek_postcode
         VARCHAR2(12),
     prs_bedrijf_bezoek_plaats
@@ -114,10 +130,14 @@ CREATE_TABLE(prs_bedrijf,0)
         NUMBER(8,6)
         DEFAULT 1,
         CONSTRAINT prs_u_prs_bedrijf_naam_upper UNIQUE(prs_bedrijf_naam_upper, prs_bedrijf_verwijder),
-    prs_bedrijf_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT prs_c_prs_bedrijf_uitvoertijd CHECK(prs_bedrijf_uitvoertijd >= 0) /* of null */
+    prs_bedrijf_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT prs_c_prs_bedrijf_t_uitvtijd CHECK(prs_bedrijf_t_uitvoertijd.tijdsduur >= 0), /* of null */
+    prs_relatietype_key
+        NUMBER(10)
+        CONSTRAINT prs_r_prs_relatietype_key REFERENCES prs_relatietype(prs_relatietype_key)
 );
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 ALTER TABLE ins_srtdeel
 ADD
@@ -162,15 +182,31 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
     prs_bedrijfadres_xsl
         VARCHAR2(256),
     prs_bedrijfadres_ext
-        VARCHAR2(10)
+        VARCHAR2(10),
+    prs_bedrijfadres_username /* future use */
+        VARCHAR2(32),
+    prs_bedrijfadres_password /* future use */
+        VARCHAR2(32),
+    prs_bedrijfadres_attachfile
+        VARCHAR2(256),
+    prs_bedrijfadres_flexfiles /* 0=default (volgens S("puo_order_flexfiles")), 1=wel, 2=niet */
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL
 );
 
 CREATE_TABLE(prs_kostenplaatsgrp,0) (
    prs_kostenplaatsgrp_key
        NUMBER (10) PRIMARY KEY,
+   prs_kostenplaatsgrp_nr
+       VARCHAR2(30),
    prs_kostenplaatsgrp_oms
        VARCHAR2(60)
-       NOT NULL
+       NOT NULL,
+   prs_kostenplaatsgrp_limiet
+       NUMBER(8),
+   prs_kostenplaatsgrp_limperiode /* 0(of NULL)=geen(oneindig), 1=maand, 2=jaar */
+       NUMBER(1)
 --,   prs_perslid_key
 --       NUMBER(10)
 --       CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key)
@@ -209,6 +245,11 @@ CREATE_TABLE(prs_kostenplaats,0) (
    prs_kostenplaats_extern -- 0=intern, 1=extern (gebruikt bij prijsberekeningen)
        NUMBER(1)
        DEFAULT 0,
+   prs_kostenplaats_fiat -- 0=geen, 1=wel fiattering
+       NUMBER(1)
+       DEFAULT 1
+       CONSTRAINT prs_c_prs_kostenplaat_fiat CHECK(prs_kostenplaats_fiat IS NOT NULL)
+       CONSTRAINT prs_c_prs_kostenplaat_fiat1 CHECK(prs_kostenplaats_fiat IN (0,1)),
 CONSTRAINT prs_u_prs_kostenplaats_upper UNIQUE(prs_kostenplaats_upper, prs_kostenplaats_verwijder)
 );
 
@@ -259,10 +300,10 @@ CREATE_TABLE(prs_afdeling,0)
         NUMBER(10)
         CONSTRAINT prs_r_prs_afdeling_parentkey REFERENCES prs_afdeling(prs_afdeling_key),
     prs_afdeling_naam
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_naam, prs_c_prs_afdeling_naam),
     prs_afdeling_upper
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_upper, prs_c_prs_afdeling_upper),
     prs_afdeling_omschrijving
         VARCHAR2(60),
@@ -399,7 +440,7 @@ CREATE_TABLE(prs_perslid,0)
     prs_perslid_tussenvoegsel
         VARCHAR2(15),
     prs_perslid_voorletters
-        VARCHAR2(10),
+        VARCHAR2(15),
     prs_perslid_voornaam
         VARCHAR2(30),
     prs_perslid_titel
@@ -428,6 +469,10 @@ CREATE_TABLE(prs_perslid,0)
         VARCHAR2(128),
     prs_perslid_authenticatie_exp
         DATE,
+    prs_perslid_otpsecret
+        VARCHAR2(128),
+    prs_perslid_otpcounter
+        NUMBER(10),
     prs_perslid_apikey
         VARCHAR2(128),
     prs_perslid_flags -- documentatie in appl/shared/user.inc
@@ -565,6 +610,22 @@ ALTER TABLE fac_qvw_ticket ADD (
         NUMBER(10)
         CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
+ALTER TABLE fac_usrrap ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+ALTER TABLE fac_gui_counter ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
+ALTER TABLE alg_gebouw ADD
+(
+    prs_perslid_key_verantw
+        NUMBER(10)
+        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key)
+);
 ALTER TABLE prs_kostenplaatsgrp ADD
 (
    prs_perslid_key
@@ -579,6 +640,19 @@ ALTER TABLE prs_kostenplaats ADD
        CONSTRAINT prs_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key)
 );
 
+ALTER TABLE fac_import ADD
+(
+  prs_perslid_key
+     NUMBER(10)
+     CONSTRAINT fac_r_prs_perslid_key5 REFERENCES prs_perslid(prs_perslid_key)
+);
+
+ALTER TABLE ins_deel
+ADD
+(    prs_perslid_key_beh
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key)
+);
 /* Dat iemand ooit geinspecteerd heeft is geen reden om die niet te mogen verwijderen
    en de inspectie blijft evenzogoed als je niet meer weet wie het gedaan heeft,
    vandaar on delete set null */
@@ -732,8 +806,11 @@ CREATE_TABLE(prs_kenmerk,0)
         NUMBER(1)
     ,prs_kenmerk_regexp
         VARCHAR2(255)
-     ,prs_kenmerk_verplicht
+    ,prs_kenmerk_verplicht
         NUMBER(1)
+    ,prs_kenmerk_groep
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,prs_kenmerk_lengte
         NUMBER(4)
     ,prs_kenmerk_dec
@@ -894,7 +971,9 @@ CREATE_TABLE(prs_kostensoortgrp,0) (
        NUMBER (10) PRIMARY KEY,
    prs_kostensoortgrp_oms
        VARCHAR2(60)
-       NOT NULL
+       NOT NULL,
+   prs_kostensoortgrp_altcode
+       VARCHAR2(60)
 );
 
 CREATE_TABLE(prs_kostensoort,0) (
@@ -922,7 +1001,9 @@ CREATE_TABLE(prs_kostensoort,0) (
        NUMBER(10)
        CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key) ON DELETE SET NULL,
    prs_kostensoort_aanmaak
-       DATE DEFAULT SYSDATE
+       DATE DEFAULT SYSDATE,
+   prs_kostensoort_altcode
+       VARCHAR2(60)
 );
 
 ALTER TABLE ins_tab_discipline ADD

PRS/PRS_TRI.SRC

@@ -103,7 +103,27 @@ CREATE_TRIGGER(prs_t_prs_perslid_B_I)
 BEFORE INSERT ON prs_perslid
 FOR EACH ROW
 BEGIN
-    UPDATE_PRIMARY_KEY(prs_perslid_key, prs_s_prs_alluitvoerende_keys);
+   UPDATE_PRIMARY_KEY(prs_perslid_key, prs_s_prs_alluitvoerende_keys);
+   -- If this perslid belongs to the primary company of an xd-environment
+   -- it gets a default apikey to get synced across the domains
+   IF :new.prs_perslid_apikey IS NULL AND fac.getsetting ('xd_primary_bedrijfkey') > 0
+   THEN
+      DECLARE
+         dummy   prs_afdeling.prs_bedrijf_key%TYPE;
+      BEGIN
+         SELECT prs_bedrijf_key
+           INTO dummy
+           FROM prs_v_afdeling
+          WHERE prs_afdeling_key = :new.prs_afdeling_key
+                AND prs_v_afdeling.prs_bedrijf_key = fac.getsetting ('xd_primary_bedrijfkey');
+         -- 52 lower en uppercase letters*32 is 182 bits equivalent
+         SELECT DBMS_RANDOM.string ('a', 32) INTO :new.prs_perslid_apikey FROM DUAL;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            NULL;                                    -- persoon hoort niet bij de serviceorganisatie
+      END;
+   END IF;
 END;
 /
 
@@ -198,9 +218,14 @@ BEGIN
         EXCEPTION
             WHEN OTHERS THEN NULL;
         END;
-        -- FSN#672 Unieke prs_perslid_oslogin behouden
+        -- Wis alle authenticatiemogelijkheden
        :new.prs_perslid_oslogin := '';
        :new.prs_perslid_oslogin2 := '';
+       :new.prs_perslid_apikey := NULL;
+       -- And do what prs.setpassword(:new.prs_perslid_key, NULL) would do:
+       :new.prs_perslid_salt := NULL;
+       :new.prs_perslid_wachtwoord_hash := NULL;
+       :new.prs_perslid_wachtwoord_exp := NULL;
       END IF;
 
       IF    :new.prs_perslid_oslogin  IS NULL AND :old.prs_perslid_oslogin  IS NOT NULL
@@ -755,6 +780,16 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(prs_t_prs_relatietype_B_IU)
+BEFORE INSERT OR UPDATE ON prs_relatietype
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(prs_relatietype_key, prs_s_prs_relatietype_key);
+  CHECK_NOG_REFERENCES(prs_relatietype, prs_relatietype_verwijder, prs_v_aanwezigbedrijf,
+                       prs_relatietype_key, 'PRS_M182');
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif

PRS/PRS_VIE.SRC

@@ -108,19 +108,25 @@ CREATE_VIEW (prs_v_perslid_print,0) AS
       AND   PRS_SP.prs_srtperslid_key(+) = PRS_P.prs_srtperslid_key
       AND   PRS_A.prs_kostenplaats_key=k.prs_kostenplaats_key;
 
-CREATE_VIEW(PRS_V_PERSLID_FULLNAMES, 0) AS
+CREATE_VIEW(prs_v_perslid_fullnames, 0) AS
 SELECT prs_perslid_key,
        prs_perslid_naam||DECODE(p.prs_perslid_voorletters,null,'',', '||p.prs_perslid_voorletters)
        ||DECODE(p.prs_perslid_tussenvoegsel,null,'',' '||p.prs_perslid_tussenvoegsel)
-       ||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')') prs_perslid_naam_full
+       ||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')') prs_perslid_naam_full,
+          DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
+       || DECODE (p.prs_perslid_tussenvoegsel, NULL, '', p.prs_perslid_tussenvoegsel || ' ')
+       || prs_perslid_naam prs_perslid_naam_friendly
 FROM prs_v_aanwezigperslid p;
 
 // FSN#546
-CREATE_VIEW(PRS_V_PERSLID_FULLNAMES_ALL, 0) AS
+CREATE_VIEW(prs_v_perslid_fullnames_all, 0) AS
 SELECT prs_perslid_key,
        prs_perslid_naam||DECODE(p.prs_perslid_voorletters,null,'',', '||p.prs_perslid_voorletters)
        ||DECODE(p.prs_perslid_tussenvoegsel,null,'',' '||p.prs_perslid_tussenvoegsel)
-       ||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')') prs_perslid_naam_full
+       ||DECODE(p.prs_perslid_voornaam,null,'',' ('||p.prs_perslid_voornaam||')') prs_perslid_naam_full,
+          DECODE (p.prs_perslid_voornaam, NULL, '', p.prs_perslid_voornaam || ' ')
+       || DECODE (p.prs_perslid_tussenvoegsel, NULL, '', p.prs_perslid_tussenvoegsel || ' ')
+       || prs_perslid_naam prs_perslid_naam_friendly
 FROM prs_perslid p;
 
 CREATE_VIEW (prs_v_afdeling_perslid,0)
@@ -1040,7 +1046,7 @@ AS
    UNION ALL
    SELECT a.bez_afspraak_host_key,
           'PRS_AFSPRAAK_H',
-          TO_CHAR (a.bez_afspraak_datum),
+          TO_CHAR (a.bez_afspraak_datum, 'DD-MM-YYYY HH24:MI'),
           a.bez_afspraak_key,
           a.alg_locatie_key,
           'afspraak'
@@ -1049,7 +1055,7 @@ AS
    UNION ALL
    SELECT a.bez_afspraak_contact_key,
           'PRS_AFSPRAAK_C',
-          TO_CHAR (a.bez_afspraak_datum),
+          TO_CHAR (a.bez_afspraak_datum, 'DD-MM-YYYY HH24:MI'),
           a.bez_afspraak_key,
           a.alg_locatie_key,
           'afspraak'
@@ -1074,14 +1080,45 @@ AS
    UNION ALL
    SELECT c.prs_perslid_key_beh,
           'CNT_CONTRACT_BEH',
-          cnt_contract_nummer_intern,
+          cnt_contract_nummer_intern ||
+            CASE
+            WHEN c.cnt_contract_versie IS NOT NULL
+            THEN '.' || c.cnt_contract_versie
+            ELSE ''
+            END,
           c.cnt_contract_key,
           NULL,
           'contract'
      FROM cnt_contract c
     WHERE cnt_contract_verwijder IS NULL
       AND cnt_contract_status = 0 /* actief */
-      AND cnt_contract_looptijd_tot > SYSDATE;
+      AND cnt_contract_looptijd_tot > SYSDATE
+  UNION ALL
+  SELECT c.cnt_prs_perslid_key,
+         'CNT_CONTRACT_PARTIJ',
+          cnt_contract_nummer_intern ||
+            CASE
+            WHEN c.cnt_contract_versie IS NOT NULL
+            THEN '.' || c.cnt_contract_versie
+            ELSE ''
+            END,
+         c.cnt_contract_key,
+         NULL,
+         'contract'
+    FROM cnt_contract c
+   WHERE cnt_contract_verwijder IS NULL
+     AND cnt_contract_status = 0 /* actief */
+     AND cnt_contract_looptijd_tot > SYSDATE
+     AND c.cnt_prs_perslid_key IS NOT NULL
+  UNION ALL
+  SELECT d.prs_perslid_key_beh,
+         'PRS_BEHEERT_OBJECT',
+          ins_deel_omschrijving,
+          ins_deel_key,
+          d.ins_alg_locatie_key,
+          'deel'
+     FROM ins_v_aanwezigdeel d;
+
 
 -- Dezelfde view voor afdelingen
 CREATE_VIEW(prs_v_afd_verplichting, 0)
@@ -1225,7 +1262,10 @@ AS
    UNION ALL
    SELECT ins_alg_ruimte_key
      FROM ins_deel d
-    WHERE d.ins_alg_ruimte_type = 'P';
+    WHERE d.ins_alg_ruimte_type = 'P'
+   UNION ALL
+   SELECT prs_perslid_key_beh
+     FROM ins_deel d;
 
 -- Genuanceeerdere versie van de voorgaande, te gebruiken voor existentie:
 -- kom een perslid_key hierin voor, dan heeft die een actuele verplichting
@@ -1254,6 +1294,9 @@ AS
       AND ID.ins_discipline_key = d.ins_discipline_key
       AND ID.ins_discipline_min_level <> 3
    UNION ALL
+   SELECT prs_perslid_key_beh, ins_deel_key
+     FROM ins_v_aanwezigdeel d
+   UNION ALL
    SELECT rr.res_rsv_ruimte_host_key, r.res_reservering_key
      FROM res_v_aanwezigreservering r, res_v_aanwezigrsv_ruimte rr
     WHERE r.res_reservering_key = rr.res_reservering_key
@@ -1384,6 +1427,7 @@ SELECT prs_bedrijf_key,
   FROM prs_bedrijf
  WHERE prs_bedrijf.prs_bedrijf_verwijder IS NULL;
 
+
 -- Per ruimte hoeveel flexplekken vrij en bezet
 -- verdieping is wel handig in deze view, voor totaaloverzichten op gebouwniveau
 CREATE_VIEW(prs_v_flexplekken, 0)
@@ -1424,6 +1468,148 @@ AS
 CREATE_VIEW(prs_v_api_afdelingen, 1) AS SELECT * from prs_v_aanwezigafdeling;
 CREATE_VIEW(prs_v_api_personen, 1) AS SELECT * from prs_v_aanwezigperslid;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(prs_v_udr_bedrijf, 0)
+AS
+SELECT b.prs_bedrijf_key key,
+       prs_bedrijf_naam naam,
+       prs_bedrijf_post_adres postadres,
+       prs_bedrijf_post_postcode postpostcode,
+       prs_bedrijf_post_plaats postplaats,
+       prs_bedrijf_post_land postland,
+       prs_bedrijf_bezoek_adres adres,
+       prs_bedrijf_bezoek_postcode postcode,
+       prs_bedrijf_bezoek_plaats plaats,
+       prs_bedrijf_bezoek_land land,
+       prs_bedrijf_telefoon telefoon1,
+       prs_bedrijf_telefoon2 telefoon2,
+       prs_bedrijf_contact_persoon contactpersoon,
+       prs_bedrijf_contact_telefoon contacttelefoon,
+       prs_bedrijf_opmerking opmerking1,
+       prs_bedrijf_opmerking2 opmerking2,
+       prs_bedrijf_uurloon uurloon,
+       prs_leverancier_nr leveranciernr,
+       prs_overeenkomst_nr overeenkomstnr,
+       prs_overeenkomst_datum overeenkomstdatum,
+       lcl.x ('prs_relatietype_omschrijving',
+              r.prs_relatietype_key,
+              r.prs_relatietype_omschrijving)
+          relatietype,
+       prs_bedrijf_aanmaak registratiedatum,
+       DECODE (prs_bedrijf_leverancier, 1,  lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isleverancier,
+       DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isuitvoerende,
+       DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) iscontract,
+       DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) ishuurder,
+       DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isintern,
+       prs_bedrijf_email email,
+       lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
+       l.alg_locatie_omschrijving locatie,
+       lcl.l ('lcl_all') gebouw,
+       bdl.alg_locatie_key fclt_3d_locatie_key
+  FROM prs_bedrijf b,
+       prs_bedrijfdienstlocatie bdl,
+       prs_dienst d,
+       prs_relatietype r,
+       alg_locatie l
+ WHERE     prs_bedrijf_verwijder IS NULL
+       AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
+       AND d.prs_dienst_key(+) = bdl.prs_dienst_key
+       AND b.prs_relatietype_key = r.prs_relatietype_key(+)
+       AND l.alg_locatie_key = bdl.alg_locatie_key
+UNION
+SELECT b.prs_bedrijf_key key,
+       prs_bedrijf_naam naam,
+       prs_bedrijf_post_adres postadres,
+       prs_bedrijf_post_postcode postpostcode,
+       prs_bedrijf_post_plaats postplaats,
+       prs_bedrijf_post_land postland,
+       prs_bedrijf_bezoek_adres adres,
+       prs_bedrijf_bezoek_postcode postcode,
+       prs_bedrijf_bezoek_plaats plaats,
+       prs_bedrijf_bezoek_land land,
+       prs_bedrijf_telefoon telefoon1,
+       prs_bedrijf_telefoon2 telefoon2,
+       prs_bedrijf_contact_persoon contactpersoon,
+       prs_bedrijf_contact_telefoon contacttelefoon,
+       prs_bedrijf_opmerking opmerking1,
+       prs_bedrijf_opmerking2 opmerking2,
+       prs_bedrijf_uurloon uurloon,
+       prs_leverancier_nr leveranciernr,
+       prs_overeenkomst_nr overeenkomstnr,
+       prs_overeenkomst_datum overeenkomstdatum,
+       lcl.x ('prs_relatietype_omschrijving',
+              r.prs_relatietype_key,
+              r.prs_relatietype_omschrijving)
+          relatietype,
+       prs_bedrijf_aanmaak registratiedatum,
+       DECODE (prs_bedrijf_leverancier, 1,  lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isleverancier,
+       DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isuitvoerende,
+       DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) iscontract,
+       DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) ishuurder,
+       DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isintern,
+       prs_bedrijf_email email,
+       lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
+       l.alg_locatie_omschrijving locatie,
+       g.alg_gebouw_omschrijving gebouw,
+       bdl.alg_locatie_key fclt_3d_locatie_key
+  FROM prs_bedrijf b,
+       prs_bedrijfdienstlocatie bdl,
+       prs_dienst d,
+       prs_relatietype r,
+       alg_locatie l,
+       alg_gebouw g
+ WHERE     prs_bedrijf_verwijder IS NULL
+       AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
+       AND d.prs_dienst_key(+) = bdl.prs_dienst_key
+       AND b.prs_relatietype_key = r.prs_relatietype_key(+)
+       AND g.alg_locatie_key = l.alg_locatie_key
+       AND g.alg_gebouw_key = bdl.alg_gebouw_key
+UNION
+SELECT b.prs_bedrijf_key key,
+       prs_bedrijf_naam naam,
+       prs_bedrijf_post_adres postadres,
+       prs_bedrijf_post_postcode postpostcode,
+       prs_bedrijf_post_plaats postplaats,
+       prs_bedrijf_post_land postland,
+       prs_bedrijf_bezoek_adres adres,
+       prs_bedrijf_bezoek_postcode postcode,
+       prs_bedrijf_bezoek_plaats plaats,
+       prs_bedrijf_bezoek_land land,
+       prs_bedrijf_telefoon telefoon1,
+       prs_bedrijf_telefoon2 telefoon2,
+       prs_bedrijf_contact_persoon contactpersoon,
+       prs_bedrijf_contact_telefoon contacttelefoon,
+       prs_bedrijf_opmerking opmerking1,
+       prs_bedrijf_opmerking2 opmerking2,
+       prs_bedrijf_uurloon uurloon,
+       prs_leverancier_nr leveranciernr,
+       prs_overeenkomst_nr overeenkomstnr,
+       prs_overeenkomst_datum overeenkomstdatum,
+       lcl.x ('prs_relatietype_omschrijving',
+              r.prs_relatietype_key,
+              r.prs_relatietype_omschrijving)
+          relatietype,
+       prs_bedrijf_aanmaak registratiedatum,
+       DECODE (prs_bedrijf_leverancier, 1,  lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isleverancier,
+       DECODE (prs_bedrijf_uitvoerende, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isuitvoerende,
+       DECODE (prs_bedrijf_contract, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) iscontract,
+       DECODE (prs_bedrijf_huurder, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) ishuurder,
+       DECODE (prs_bedrijf_intern, 1, lcl.l ('lcl_yes'),  lcl.l ('lcl_no')) isintern,
+       prs_bedrijf_email email,
+       lcl.x ('prs_dienst_omschrijving', d.prs_dienst_key, d.prs_dienst_omschrijving) dienst,
+       lcl.l ('lcl_all') locatie,
+       lcl.l ('lcl_all') gebouw,
+       NULL fclt_3d_locatie_key
+  FROM prs_bedrijf b,
+       prs_bedrijfdienstlocatie bdl,
+       prs_dienst d,
+       prs_relatietype r
+ WHERE     prs_bedrijf_verwijder IS NULL
+       AND b.prs_bedrijf_key = bdl.prs_bedrijf_key(+)
+       AND d.prs_dienst_key(+) = bdl.prs_dienst_key
+       AND b.prs_relatietype_key = r.prs_relatietype_key(+)
+       AND bdl.alg_gebouw_key IS NULL
+       AND bdl.alg_locatie_key IS NULL;
 
 REGISTERRUN('$Id$')
 #endif // PRS

RES/RES_IND.SRC

@@ -27,6 +27,7 @@ create index res_i_res_rsv_ruimte11 on res_rsv_ruimte (res_rsv_ruimte_ordernr);
 create index res_i_res_rsv_ruimte12 on res_rsv_ruimte (alg_ruimte_key);
 create index res_i_res_rsv_ruimte13 on res_rsv_ruimte (res_rsv_ruimte_tot, res_rsv_ruimte_van);
 create index res_i_res_rsv_ruimte14 on res_rsv_ruimte (res_rsv_ruimte_kto_verstuurd);
+create index res_i_res_rsv_ruimte15 on res_rsv_ruimte (res_rsv_ruimte_externnr);
 
 create index res_i_res_rsv_deel2 on res_rsv_deel(res_deel_key);
 create index res_i_res_rsv_deel3 on res_rsv_deel(bez_bezoekers_key);

RES/RES_INI.SRC

@@ -8,11 +8,26 @@
  */
 _FAC_MODULE('RES','Reserveringsmodule')
 
-insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(1,'Eenmalig'   , 0);
-insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(2,'Dagelijks'  , 1);
-insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(3,'Wekelijks'  , 7);
-insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(4,'2-wekelijks',14);
-insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(5,'4-wekelijks',28);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(1, 'Eenmalig'   ,  0);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(2, 'Dagelijks'  ,  1);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(3, 'Wekelijks'  ,  7);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(4, '2-wekelijks', 14);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(5, '4-wekelijks', 28);
+insert into res_cyclus (res_cyclus_key, res_cyclus_naam, res_cyclus_periode) values(6, 'Maandelijks', 31);
+/* Vertalingen voor de tabel res_cyclus */
+INSERT INTO fac_locale
+(fac_locale_kolomnaam, fac_locale_kolomkeyval, fac_locale_lang, fac_locale_tekst)
+     SELECT 'RES_CYCLUS_NAAM'
+          , res_cyclus_key
+          , 'EN'
+          , DECODE(res_cyclus_naam, 'Eenmalig', 'Once'
+                                  , 'Dagelijks', 'Daily'
+                                  , 'Wekelijks', 'Weekly'
+                                  , '2 Wekelijks', '2 Weekly'
+                                  , '3 Wekelijks', '3 Weekly'
+                                  , '4 Wekelijks', '4 Weekly'
+                                  , 'Maandelijks', 'Monthly')
+       FROM res_cyclus;
 
 DEF_STATUS('reservering', 2, 'lcl_res_resnew');
 DEF_STATUS('reservering', 5, 'lcl_res_resafm');

RES/RES_PAC.SRC

@@ -6,7 +6,13 @@
  */
 
 CREATE OR REPLACE PACKAGE res AS
-   FUNCTION res_copy_deelres (prsv_ruimte_key IN NUMBER, newdate IN DATE, puserkey NUMBER) RETURN NUMBER;
+   FUNCTION res_copy_res (pres_key IN NUMBER, newdate IN DATE, puserkey NUMBER, pmetbez NUMBER DEFAULT 0) RETURN NUMBER;
+   FUNCTION res_copy_deelres (prsv_ruimte_key IN NUMBER,
+                              newdate IN DATE,
+                              puserkey NUMBER,
+                              pmetbez NUMBER DEFAULT 1,
+                              newreskey NUMBER DEFAULT NULL,
+                              newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER;
    PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER);
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER);
    PROCEDURE set_ruimtes_clean (checkdate IN DATE);
@@ -19,10 +25,9 @@ CREATE OR REPLACE PACKAGE res AS
    PROCEDURE follow_artikel (prsv_ruimte_key IN NUMBER, oldvan IN DATE, oldtot IN DATE);
    PROCEDURE follow_deel (prsv_ruimte_key IN NUMBER, oldvan IN DATE, oldtot IN DATE);
    PROCEDURE follow_afspraak (prsv_ruimte_key IN NUMBER, pres_copy_to_bez IN NUMBER);
-   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
-   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
-   FUNCTION getalg_ruimte_key (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
-   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
+   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)  RETURN BOOLEAN;
+   FUNCTION res_artikel_in_scope (pres_rsv_artikel_key IN NUMBER)  RETURN BOOLEAN;
+   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)  RETURN NUMBER;
    FUNCTION getdeelprijs (pres_rsv_deel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getartikelprijs (pres_rsv_artikel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getdeelresprijs (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
@@ -32,11 +37,42 @@ END res;
 
 CREATE OR REPLACE PACKAGE BODY res
 AS
-   FUNCTION res_copy_deelres (prsv_ruimte_key IN NUMBER, newdate IN DATE, puserkey NUMBER) RETURN NUMBER
+   FUNCTION res_copy_res (pres_key IN NUMBER, newdate IN DATE, puserkey NUMBER, pmetbez NUMBER DEFAULT 0) RETURN NUMBER
+   AS
+      nextkey res_reservering.res_reservering_key%TYPE;
+      rsv_key res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
+      newvolgnr res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
+   BEGIN
+      SELECT   res_s_res_reservering_key.NEXTVAL INTO nextkey FROM DUAL;
+      INSERT INTO res_reservering (res_reservering_key, res_reservering_ispool)
+            SELECT nextkey, res_reservering_ispool
+              FROM res_reservering
+             WHERE res_reservering_key = pres_key;
+
+      newvolgnr := 1;
+      FOR prsv_ruimte
+      IN (SELECT   res_rsv_ruimte_key
+            FROM   res_v_aanwezigrsv_ruimte
+           WHERE   res_reservering_key = pres_key)
+      LOOP
+         rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey, newvolgnr);
+         newvolgnr := newvolgnr + 1;
+      END LOOP;
+     RETURN nextkey;
+   END;
+
+   FUNCTION res_copy_deelres (prsv_ruimte_key IN NUMBER,
+                              newdate IN DATE,
+                              puserkey NUMBER,
+                              pmetbez NUMBER DEFAULT 1,
+                              newreskey NUMBER DEFAULT NULL,
+                              newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER
    AS
       nextvolg res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
       nextkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
       destatus res_rsv_ruimte.res_status_bo_key%TYPE;
+      fo_status res_rsv_ruimte.res_status_fo_key%TYPE;
+      fo_status_res res_rsv_ruimte.res_status_fo_key%TYPE;
    BEGIN
       SELECT   res_s_res_rsv_ruimte_key.NEXTVAL INTO nextkey FROM DUAL;
       SELECT   MAX (a.res_rsv_ruimte_volgnr) + 1, MAX(a.res_status_bo_key)
@@ -48,14 +84,33 @@ AS
       IF destatus IS NOT NULL THEN
         destatus :=  2;
       END IF;
+
+      -- Als de fo status van de res_ruimte NULL is of het is geen ruimtereservering,
+      -- neem dan de waarde van de setting "res_default_fo_status_key".
+      SELECT COALESCE(rr.res_status_fo_key, fac.safe_to_number (fac.getsetting ('res_default_fo_status_key')))
+           , rrr.res_status_fo_key
+        INTO fo_status
+           , fo_status_res
+        FROM res_rsv_ruimte rrr,
+             res_ruimte_opstelling rro,
+             res_ruimte rr
+       WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
+         AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+         AND rrr.res_rsv_ruimte_key = prsv_ruimte_key;
+
+      -- Als status van rsv_ruimte =3 (Blokkade) dan deze overnemen.
+      IF (fo_status_res = 3) THEN
+         fo_status := 3;
+      END IF;
+
       INSERT INTO res_rsv_ruimte (res_rsv_ruimte_key, res_reservering_key, res_rsv_ruimte_volgnr, res_rsv_ruimte_omschrijving, res_rsv_ruimte_opmerking,
                                   alg_ruimte_key, res_ruimte_opstel_key, res_rsv_ruimte_van, res_rsv_ruimte_tot, prs_kostenplaats_key, res_rsv_ruimte_host_key,
                                   res_activiteit_key, res_status_fo_key, res_status_bo_key, res_rsv_ruimte_kosten_klant, res_rsv_ruimte_contact_key,
                                   res_rsv_ruimte_bezoekers, res_rsv_ruimte_cvab_mode, res_rsv_ruimte_telefoon
                                  )
          SELECT   nextkey,
-                  res_reservering_key,
-                  nextvolg,
+                  COALESCE(newreskey, res_reservering_key),
+                  COALESCE(newvolgnr, nextvolg),
                   res_rsv_ruimte_omschrijving,
                   res_rsv_ruimte_opmerking,
                   alg_ruimte_key,
@@ -65,7 +120,7 @@ AS
                   prs_kostenplaats_key,
                   res_rsv_ruimte_host_key,
                   res_activiteit_key,
-                  res_status_fo_key,
+                  fo_status,
                   destatus,
                   res_rsv_ruimte_kosten_klant,
                   res_rsv_ruimte_contact_key,
@@ -76,7 +131,7 @@ AS
           WHERE   res_rsv_ruimte_key = prsv_ruimte_key;
       -- Now make the copy have the same childeren as the original
       -- (all main data is already uptodate)
-      res.res_sync_deelres (prsv_ruimte_key, nextkey, 128 + 256 + 512 + 1024, 0);
+      res.res_sync_deelres (prsv_ruimte_key, nextkey, 128 + 256 + pmetbez*512 + 1024, 0);
       -- Het hekje voorkomt individuele notificaties
       fac.trackaction ('#RESNEW', nextkey, puserkey, NULL, NULL);
       RETURN nextkey;
@@ -84,7 +139,7 @@ AS
 
    PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER)
    AS
-      --flags (0-8191)
+      --flags (0-16383)
       -- 0 Niks
       -- 1 Omschrijving
       -- 2 Opmerking
@@ -99,6 +154,7 @@ AS
       -- 512 Bezoekers
       -- 1024 Flexkenmerken
       -- 4096 Naam
+      -- 8192 Reserveringsstatus
       -- Neem van alles (afh. flags) van prsv_ruimte_key_from over naar prsv_ruimte_key_to
       -- Misschien inzetbaar bij follow_artikel met  prsv_ruimte_key_from==prsv_ruimte_key_to
       -- Bepaal de rsv_ruimte van dezelfde reservering die verder in de toekomst liggen
@@ -118,7 +174,7 @@ AS
         FROM   res_rsv_ruimte rr
        WHERE   rr.res_rsv_ruimte_key = prsv_ruimte_key_to;
       -- 0 Niks
-      IF BITAND (flags, 8191) = 0
+      IF BITAND (flags, 16383) = 0
       THEN
          RETURN;
       END IF;
@@ -231,6 +287,13 @@ AS
                      res_rsv_ruimte_ordernr = rsv_from.res_rsv_ruimte_ordernr
              WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to;
          END IF;
+         -- 8192 Reserveringsstatus
+         IF BITAND (flags, 8192) = 8192
+         THEN
+            UPDATE   res_rsv_ruimte
+               SET   res_status_fo_key = rsv_from.res_status_fo_key
+             WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to;
+         END IF;
       END IF;
       -- 128 Voorzieningen (delen)
       IF BITAND (flags, 128) = 128
@@ -438,15 +501,29 @@ AS
    -- checkdate is op zich redundant maar heel goed voor de performance
    PROCEDURE set_ruimtes_clean (checkdate IN DATE)
    AS
+      dirtlevel   res_rsv_ruimte.res_rsv_ruimte_dirtlevel%TYPE;
+      contact_key res_rsv_ruimte.res_rsv_ruimte_contact_key%TYPE;
    BEGIN
       FOR prsv_ruimte
       IN (SELECT   res_rsv_ruimte_key
             FROM   res_rsv_ruimte
            WHERE   res_rsv_ruimte_dirtlevel <> 0
+                   AND res_rsv_ruimte_verwijder IS NULL
                    AND res_rsv_ruimte_van BETWEEN TRUNC (checkdate) AND TRUNC (checkdate + 1))
       loop
          set_ruimte_dirty (prsv_ruimte.res_rsv_ruimte_key);
-      -- TODO: Alle ruimtes met Dirty-bitje bekijken
+         --
+         SELECT res_rsv_ruimte_dirtlevel,
+                res_rsv_ruimte_contact_key
+           INTO dirtlevel,
+                contact_key
+           FROM res_rsv_ruimte
+          WHERE res_rsv_ruimte_key = prsv_ruimte.res_rsv_ruimte_key;
+         --
+         IF dirtlevel = 0 THEN
+           fac.trackaction ('RESCLN', prsv_ruimte.res_rsv_ruimte_key, contact_key, NULL, NULL);
+         END IF;
+         -- TODO: Alle ruimtes met Dirty-bitje bekijken
       end loop;
    END;
    -- Moeten wijzelf misschien dirty worden
@@ -457,7 +534,8 @@ AS
    BEGIN
       FOR prsv_deel IN (SELECT   res_rsv_deel_key
                           FROM   res_rsv_deel
-                         WHERE   res_rsv_ruimte_key = prsv_ruimte_key)
+                         WHERE   res_rsv_ruimte_key = prsv_ruimte_key
+                             AND res_rsv_deel_verwijder IS NULL)
       loop
          set_deel_dirty (prsv_deel.res_rsv_deel_key);
       end loop;
@@ -469,7 +547,8 @@ AS
    BEGIN
       FOR prsv_artikel IN (SELECT   res_rsv_artikel_key
                              FROM   res_rsv_artikel
-                            WHERE   res_rsv_ruimte_key = prsv_ruimte_key)
+                            WHERE   res_rsv_ruimte_key = prsv_ruimte_key
+                                AND res_rsv_artikel_verwijder IS NULL)
       loop
          set_artikel_dirty (prsv_artikel.res_rsv_artikel_key);
       end loop;
@@ -515,8 +594,8 @@ AS
 
       RETURN dirtlevel;
    END;
-   -- Mag dit res_deel in deze alg_ruimte_key gereserveerd worden
-   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, palg_ruimte_key IN NUMBER)
+   -- Mag dit res_deel in de (koppel)ruimte van de reservering gereserveerd worden
+   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)
       RETURN BOOLEAN IS
    result BOOLEAN;
    n_inscope INTEGER;
@@ -525,18 +604,25 @@ AS
         INTO n_inscope
         FROM   ins_deel d,
                res_v_aanwezigdeel r,
-               (SELECT   d.alg_regio_key,
-                         l.alg_district_key,
-                         l.alg_locatie_key,
-                         g.alg_gebouw_key,
-                         v.alg_verdieping_key,
-                         r.alg_ruimte_key
-                  FROM   alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v, alg_ruimte r
-                 WHERE       r.alg_ruimte_key = palg_ruimte_key
-                         AND r.alg_verdieping_key = v.alg_verdieping_key
-                         AND v.alg_gebouw_key = g.alg_gebouw_key
-                         AND g.alg_locatie_key = l.alg_locatie_key
-                         AND l.alg_district_key = d.alg_district_key) scope,
+               (SELECT d.alg_regio_key,
+                       l.alg_district_key,
+                       l.alg_locatie_key,
+                       g.alg_gebouw_key,
+                       v.alg_verdieping_key,
+                       r.alg_ruimte_key
+                  FROM alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v, alg_ruimte r
+                 WHERE r.alg_ruimte_key IN (SELECT COALESCE(rr.alg_ruimte_key, ra.alg_ruimte_key) alg_ruimte_key
+                                              FROM res_rsv_ruimte rr,
+                                                   res_ruimte_opstelling ro,
+                                                   res_alg_ruimte ra
+                                             WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                                               AND ro.res_ruimte_key = ra.res_ruimte_key(+)
+                                               AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key
+                                               AND ra.res_alg_ruimte_verwijder IS NULL) -- Het kan ook een koppelruimte zijn die uit meerdere ruimten bestaat
+                   AND r.alg_verdieping_key = v.alg_verdieping_key
+                   AND v.alg_gebouw_key = g.alg_gebouw_key
+                   AND g.alg_locatie_key = l.alg_locatie_key
+                   AND l.alg_district_key = d.alg_district_key) scope,
                res_v_deelscope ds,
                res_v_aanwezigdiscipline r_disc
        WHERE       r.res_discipline_key = r_disc.ins_discipline_key
@@ -552,7 +638,7 @@ AS
                     OR ds.alg_ruimte_key = scope.alg_ruimte_key
                     OR ds.res_deel_alg_level = -1)
                AND r.res_deel_key = ds.res_deel_key;
-      DBMS_OUTPUT.put_line ('res_deel_in_scope('  ||  pres_deel_key  ||  ','  ||  palg_ruimte_key  ||  ') -->' || n_inscope);
+      DBMS_OUTPUT.put_line ('res_deel_in_scope('  ||  pres_deel_key  ||  ','  ||  pres_rsv_ruimte_key  ||  ') -->' || n_inscope);
       RETURN n_inscope > 0;
    END;
    -- Moeten wijzelf misschien dirty worden
@@ -564,6 +650,7 @@ AS
       preposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
       lres_deel_key res_rsv_deel.res_deel_key%TYPE;
       lres_ins_deel_key res_deel.res_ins_deel_key%TYPE;
+      lres_deel_vervaldatum res_deel.res_deel_vervaldatum%TYPE;
       lrsv_ruimte_key res_rsv_deel.res_rsv_ruimte_key%TYPE;
       lrsv_deel_key res_rsv_deel.res_rsv_deel_key%TYPE;
       lrsv_deel_van res_rsv_deel.res_rsv_deel_van%TYPE;
@@ -576,6 +663,7 @@ AS
       BEGIN
           SELECT   d.res_deel_key,
                    rd.res_ins_deel_key,
+                   rd.res_deel_vervaldatum,
                    d.res_rsv_ruimte_key,
                    res_rsv_deel_key,
                    res_rsv_deel_van,
@@ -584,21 +672,32 @@ AS
                    r.res_rsv_ruimte_tot,
                    res_rsv_deel_verwijder,
                    res_disc_params_preposttime / 24
-            INTO lres_deel_key,lres_ins_deel_key,lrsv_ruimte_key,lrsv_deel_key,lrsv_deel_van,lrsv_deel_tot,
-                    lruimtevan,lruimtetot,lres_rsv_deel_verwijder,
-                    preposttime
-            FROM   res_rsv_deel d, res_rsv_ruimte r, res_deel rd, res_disc_params dp
-           WHERE       d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
-                   AND res_rsv_deel_key = prsv_deel_key
-                   AND d.res_deel_key = rd.res_deel_key
-                   AND rd.res_discipline_key = dp.res_ins_discipline_key;
+            INTO   lres_deel_key,
+                   lres_ins_deel_key,
+                   lres_deel_vervaldatum,
+                   lrsv_ruimte_key,
+                   lrsv_deel_key,
+                   lrsv_deel_van,
+                   lrsv_deel_tot,
+                   lruimtevan,lruimtetot,
+                   lres_rsv_deel_verwijder,
+                   preposttime
+            FROM   res_rsv_deel d,
+                   res_rsv_ruimte r,
+                   res_deel rd,
+                   res_disc_params dp
+           WHERE   d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
+             AND   res_rsv_deel_key = prsv_deel_key
+             AND   d.res_deel_key = rd.res_deel_key
+             AND   rd.res_discipline_key = dp.res_ins_discipline_key;
       END;
       -- 1 Minuut marge voor afrondfouten
       IF preposttime > 1/24/60 THEN
           preposttime := preposttime - 1/24/60;
       END IF;
       newdirtlevel :=  0;                                                                                -- Begin 'Clean'
-      IF lres_rsv_deel_verwijder IS NULL THEN
+      IF lres_rsv_deel_verwijder IS NULL
+      THEN
           -- Oke, hoeveel overlappende res_deel hebben we nu
 
           SELECT   COUNT (DISTINCT res_rsv_deel_key)
@@ -606,7 +705,7 @@ AS
             FROM   res_v_aanwezigrsv_deel rad,                                                                  -- de andere
                    res_deel rd
            WHERE rd.res_deel_key = rad.res_deel_key
-             AND rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key 
+             AND rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key
                    -- Er is overlap als
                    -- A) de andere ruimte begint voor ons einde
                    -- B) en eindigt na ons begin
@@ -618,9 +717,10 @@ AS
           THEN
              newdirtlevel :=  512;                                                                                 -- Overlap
           END IF;
-          IF NOT res_deel_in_scope (lres_deel_key, getalg_ruimte_key (lrsv_ruimte_key))
+          IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
+             lres_deel_vervaldatum <= lrsv_deel_tot
           THEN
-             newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope
+             newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope/Not Allowed
           END IF;
           IF (lrsv_deel_van < lruimtevan OR lrsv_deel_tot > lruimtetot)
           THEN
@@ -656,45 +756,46 @@ AS
            WHERE   res_deel_key = pdeel_key
              AND   res_rsv_deel_dirtlevel <> 0
              AND   res_rsv_deel_van < checkdate_tot + preposttime
-             AND   res_rsv_deel_tot > checkdate_van - preposttime)
+             AND   res_rsv_deel_tot > checkdate_van - preposttime
+             AND   res_rsv_deel_verwijder IS NULL)
       loop
          set_deel_dirty (prsv_deel.res_rsv_deel_key);
       -- TODO: Alle ruimtes met Dirty-bitje bekijken
       end loop;
    END;
-   -- Mag dit res_dartikel in deze alg_ruimte_key gereserveerd worden
-   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, palg_ruimte_key IN NUMBER)
+   -- Mag dit res_dartikel in de (koppel)ruimte van de reservering gereserveerd worden
+   FUNCTION res_artikel_in_scope (pres_rsv_artikel_key IN NUMBER)
       RETURN BOOLEAN IS
    result BOOLEAN;
    n_inscope INTEGER;
    BEGIN
-      DBMS_OUTPUT.put_line ('res_artikel_in_scope('  ||  pres_artikel_key  ||  ','  ||  palg_ruimte_key  ||  ')');
-      SELECT   COUNT ( * )
+      DBMS_OUTPUT.put_line ('res_artikel_in_scope('  ||  pres_rsv_artikel_key  ||  ')');
+      SELECT COUNT(DISTINCT ra.res_rsv_artikel_key)
         INTO n_inscope
-        FROM   res_v_alg_ruimte_gegevens rg, res_v_aanwezigartikel a
-       WHERE       rg.alg_ruimte_key IS NOT NULL
-               AND res_artikel_key = pres_artikel_key
-               AND rg.alg_ruimte_key = palg_ruimte_key
-               AND (rg.alg_locatie_key IN
-                          (SELECT   DISTINCT sao.alg_onrgoed_key
-                             FROM   res_srtartikel_onrgoed sao
-                            WHERE   a.res_discipline_key = sao.res_discipline_key
-                                    AND alg_onrgoed_niveau = 'L')
-                    OR rg.alg_gebouw_key IN
-                            (SELECT   DISTINCT sao.alg_onrgoed_key
-                               FROM   res_srtartikel_onrgoed sao
-                              WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'G')
-                    OR rg.alg_verdieping_key IN
-                            (SELECT   DISTINCT sao.alg_onrgoed_key
-                               FROM   res_srtartikel_onrgoed sao
-                              WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'V')
-                    OR rg.alg_ruimte_key IN
-                            (SELECT   DISTINCT sao.alg_onrgoed_key
-                               FROM   res_srtartikel_onrgoed sao
-                              WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'R'));
+        FROM res_rsv_ruimte rr,
+             res_ruimte_opstelling ro,
+             res_alg_ruimte rar,
+             res_v_alg_ruimte_gegevens rg,
+             res_srtartikel_onrgoed sao,
+             res_v_aanwezigartikel a,
+             res_rsv_artikel ra
+       WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+         AND ro.res_ruimte_key = rar.res_ruimte_key(+)
+         AND a.res_discipline_key = sao.res_discipline_key
+         AND (rg.alg_locatie_key = sao.alg_onrgoed_key AND sao.alg_onrgoed_niveau = 'L'
+              OR rg.alg_gebouw_key = sao.alg_onrgoed_key AND sao.alg_onrgoed_niveau = 'G'
+              OR rg.alg_verdieping_key = sao.alg_onrgoed_key AND sao.alg_onrgoed_niveau = 'V'
+              OR rg.alg_ruimte_key = sao.alg_onrgoed_key AND sao.alg_onrgoed_niveau = 'R')
+         AND rg.alg_ruimte_key = COALESCE (rr.alg_ruimte_key, rar.alg_ruimte_key)
+         AND rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
+         AND ra.res_artikel_key = a.res_artikel_key
+         AND sao.res_srtartikel_og_verwijder IS NULL
+         AND rg.alg_ruimte_key IS NOT NULL
+         AND rar.res_alg_ruimte_verwijder IS NULL -- Het kan ook een koppelruimte zijn die uit meerdere ruimten bestaat
+         AND ra.res_rsv_artikel_key = pres_rsv_artikel_key
+         -- Levering tussen begintijd artikel en eindtijd artikel.
+         AND ra.res_rsv_artikel_levering BETWEEN TRUNC (rr.res_rsv_ruimte_van) + COALESCE (a.res_artikel_begintijd, fac.safe_to_number (fac.getsetting ('res_t1'))) / 24
+                                             AND TRUNC (rr.res_rsv_ruimte_van) + COALESCE (a.res_artikel_eindtijd, fac.safe_to_number (fac.getsetting ('res_t2'))) / 24;
       RETURN n_inscope > 0;
    END;
    -- Moeten wijzelf misschien dirty worden
@@ -703,7 +804,10 @@ AS
    AS
       CURSOR prsv_artikelcur
       IS
-             SELECT   res_artikel_key, res_rsv_ruimte_key, res_rsv_artikel_verwijder
+             SELECT   res_artikel_key,
+                      res_rsv_ruimte_key,
+                      res_rsv_artikel_key,
+                      res_rsv_artikel_verwijder
                FROM   res_rsv_artikel
               WHERE   res_rsv_artikel_key = prsv_artikel_key
          FOR UPDATE   OF res_rsv_artikel_dirtlevel;
@@ -714,7 +818,7 @@ AS
       FETCH prsv_artikelcur INTO   prsv_artikel;
       newdirtlevel :=  0;                                                                                -- Begin 'Clean'
       IF prsv_artikel.res_rsv_artikel_verwijder IS NULL
-        AND NOT res_artikel_in_scope (prsv_artikel.res_artikel_key, getalg_ruimte_key (prsv_artikel.res_rsv_ruimte_key))
+        AND NOT res_artikel_in_scope (prsv_artikel.res_rsv_artikel_key)
       THEN
          newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope
       END IF;
@@ -821,7 +925,7 @@ AS
        ruimtekey       alg_ruimte.alg_ruimte_key%TYPE;
        locatiekey      alg_locatie.alg_locatie_key%TYPE;
        oldloc          bez_afspraak.alg_locatie_key%TYPE;
-       bezremark       bez_afspraak.bez_afspraak_opmerking%TYPE;
+       bezremark       VARCHAR2(2100); -- bez_afspraak.bez_afspraak_opmerking%TYPE is te kort
        lremarkfilled   BOOLEAN;
 
        CURSOR ckenmerk
@@ -859,14 +963,22 @@ AS
          FROM   res_rsv_ruimte rr
         WHERE   rr.res_rsv_ruimte_key = prsv_ruimte_key;
 
-       ruimtekey := getalg_ruimte_key (prsv_ruimte_key);
-
-       SELECT   g.alg_locatie_key
-         INTO   locatiekey
+       -- In geval van koppelruimten worden meerdere locatie keys opgeleverd. De locaties zullen echter toch hetzelfde zijn.
+       -- Voor de ruimte waar de bezoeker naar toe moet kiezen we de laagste key (we kennen niet het concept van
+       -- bezoekers naar res_ruimtes)
+       SELECT   MIN(g.alg_locatie_key), MIN(r.alg_ruimte_key)
+         INTO   locatiekey, ruimtekey
          FROM   alg_ruimte r, alg_verdieping v, alg_gebouw g
         WHERE       g.alg_gebouw_key = v.alg_gebouw_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
-                AND r.alg_ruimte_key = ruimtekey;
+                AND r.alg_ruimte_key IN (SELECT COALESCE (rr.alg_ruimte_key, ra.alg_ruimte_key) alg_ruimte_key
+                                           FROM res_rsv_ruimte rr,
+                                                res_ruimte_opstelling ro,
+                                                res_alg_ruimte ra
+                                          WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                                            AND ro.res_ruimte_key = ra.res_ruimte_key(+)
+                                            AND rr.res_rsv_ruimte_key = prsv_ruimte_key
+                                            AND ra.res_alg_ruimte_verwijder IS NULL);
 
        SELECT   bez_afspraak_datum, bez_afspraak_eind, alg_locatie_key
          INTO   oldvan, oldtot, oldloc
@@ -907,7 +1019,7 @@ AS
                   bez_afspraak_eind = newtot,
                   alg_locatie_key = locatiekey,
                   alg_onrgoed_keys = ruimtekey,
-                  bez_afspraak_opmerking = bezremark
+                  bez_afspraak_opmerking = SUBSTR(bezremark, 1, 320)
           WHERE   bez_afspraak_key = afspraak_key;
        ELSE -- Opmerking niet opslaan
          UPDATE   bez_afspraak
@@ -946,31 +1058,7 @@ AS
        END IF;
     END;
 
-   -- Levert de ALG_RUIMTE_KEY uit res_rsv_ruimte CV
-   -- of de ALG_RUIMTE_KEY van de eerste opstelling/ruimte
-   FUNCTION getalg_ruimte_key (pres_rsv_ruimte_key IN NUMBER)
-      RETURN NUMBER IS
-   alg_ruimte_key           alg_ruimte.alg_ruimte_key%TYPE;
-   lres_ruimte_opstel_key   res_ruimte_opstelling.res_ruimte_opstel_key%TYPE;
-    BEGIN
-       SELECT   alg_ruimte_key, res_ruimte_opstel_key
-         INTO   alg_ruimte_key, lres_ruimte_opstel_key
-         FROM   res_rsv_ruimte
-        WHERE   res_rsv_ruimte_key = pres_rsv_ruimte_key;
-
-       IF alg_ruimte_key IS NULL
-       THEN
-          SELECT   MIN (ra.alg_ruimte_key)
-            INTO   alg_ruimte_key
-            FROM   res_ruimte_opstelling ro, res_alg_ruimte ra
-           WHERE   ro.res_ruimte_opstel_key = lres_ruimte_opstel_key
-               AND ro.res_ruimte_key = ra.res_ruimte_key
-               AND ra.res_alg_ruimte_verwijder IS NULL;
-       END IF;
-
-       RETURN alg_ruimte_key;
-    END;
-   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER)
+   FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)
       RETURN NUMBER IS
    room_price res_ruimte.res_ruimte_prijs%TYPE;
    room_price_fixed res_ruimte.res_ruimte_prijs_vast%TYPE;
@@ -979,9 +1067,7 @@ AS
    price_evening res_ruimte.res_ruimte_prijs_avond%TYPE;
    price_allday res_ruimte.res_ruimte_prijs_dag%TYPE;
    room_price_total res_rsv_ruimte.res_rsv_ruimte_prijs%TYPE;
-   prs_kostenplaats_extern prs_kostenplaats.prs_kostenplaats_extern%TYPE;
-   res_rsv_korting res_rsv_ruimte.res_rsv_ruimte_korting%TYPE;
-   ruimte_prijsfactor_intern res_ruimte.res_ruimte_prijsfactor_intern%TYPE;
+   afgesprokentotaal res_rsv_ruimte.res_rsv_ruimte_totaal%TYPE;
 
    res_ruimte_length NUMBER;
    res_ruimte_begin NUMBER;
@@ -989,17 +1075,17 @@ AS
    res_length_morning NUMBER;
    res_length_afternoon NUMBER;
    res_length_evening NUMBER;
-   
+
    lres_t_middag NUMBER;
    lres_t_avond NUMBER;
-   
+
    res_1e_dagblok NUMBER;
    res_2e_dagblok NUMBER;
-   
+
    cost_morning NUMBER;
    cost_afternoon NUMBER;
    cost_evening NUMBER;
-   
+
    verwijderdatum res_rsv_ruimte.res_rsv_ruimte_verwijder%TYPE;
    statusfokey res_rsv_ruimte.res_status_fo_key%TYPE;
    doorbelasting res_disc_params.res_disc_params_kosten%TYPE;
@@ -1008,9 +1094,11 @@ AS
    BEGIN
       -- Is de reservering verwijderd
       SELECT rrr.res_rsv_ruimte_verwijder,
-             rrr.res_status_fo_key
+             rrr.res_status_fo_key,
+             res_rsv_ruimte_totaal
         INTO verwijderdatum,
-             statusfokey
+             statusfokey,
+             afgesprokentotaal
         FROM res_rsv_ruimte rrr
        WHERE rrr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
 
@@ -1043,6 +1131,11 @@ AS
         RETURN 0;
       END IF;
 
+      IF afgesprokentotaal IS NOT NULL AND ignoretotaal IS NULL
+      THEN
+          return afgesprokentotaal; -- dit is simpel
+      END IF;
+
       -- Als Uitgevoerd/verwerkt, dan is de prijs al geregistreerd en bekend
       BEGIN
          SELECT   res_rsv_ruimte_prijs
@@ -1064,20 +1157,37 @@ AS
 
     -- Wat basisgegevens
     BEGIN
-        SELECT   COALESCE (ru.res_ruimte_prijs, 0),
+        SELECT   CASE COALESCE (kp.prs_kostenplaats_extern, 0)
+                   WHEN 0
+                   THEN COALESCE (ru.res_ruimte_intprijs, 0) -- Intern
+                   ELSE COALESCE (ru.res_ruimte_prijs, 0)    -- Extern
+                   END,
                  ru.res_ruimte_prijs_vast,
-                 COALESCE (ru.res_ruimte_prijs_ochtend, 0),
-                 COALESCE (ru.res_ruimte_prijs_middag, 0),
-                 COALESCE (ru.res_ruimte_prijs_avond, 0),
-                 COALESCE (ru.res_ruimte_prijs_dag, 0),
+                 CASE COALESCE (kp.prs_kostenplaats_extern, 0)
+                   WHEN 0
+                   THEN COALESCE (ru.res_ruimte_intprijs_ochtend, 0) -- Intern
+                   ELSE COALESCE (ru.res_ruimte_prijs_ochtend, 0)    -- Extern
+                   END,
+                 CASE COALESCE (kp.prs_kostenplaats_extern, 0)
+                   WHEN 0
+                   THEN COALESCE (ru.res_ruimte_intprijs_middag, 0) -- Intern
+                   ELSE COALESCE (ru.res_ruimte_prijs_middag, 0)    -- Extern
+                   END,
+                 CASE COALESCE (kp.prs_kostenplaats_extern, 0)
+                   WHEN 0
+                   THEN COALESCE (ru.res_ruimte_intprijs_avond, 0) -- Intern
+                   ELSE COALESCE (ru.res_ruimte_prijs_avond, 0)    -- Extern
+                   END,
+                 CASE COALESCE (kp.prs_kostenplaats_extern, 0)
+                   WHEN 0
+                   THEN COALESCE (ru.res_ruimte_intprijs_dag, 0) -- Intern
+                   ELSE COALESCE (ru.res_ruimte_prijs_dag, 0)    -- Extern
+                   END,
                  fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot - rr.res_rsv_ruimte_van)) * 24,
                  fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'HH24'))
                  + fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_van, 'MI')) / 60,
                  fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'HH24'))
-                 + fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'MI')) / 60,
-                 COALESCE (kp.prs_kostenplaats_extern, 0),
-                 ru.res_ruimte_prijsfactor_intern,
-                 COALESCE (rr.res_rsv_ruimte_korting, 0)
+                 + fac.safe_to_number (TO_CHAR (rr.res_rsv_ruimte_tot, 'MI')) / 60
           INTO   room_price,
                  room_price_fixed,
                  price_morning,
@@ -1086,10 +1196,7 @@ AS
                  price_allday,
                  res_ruimte_length,
                  res_ruimte_begin,
-                 res_ruimte_end,
-                 prs_kostenplaats_extern,
-                 ruimte_prijsfactor_intern,
-                 res_rsv_korting
+                 res_ruimte_end
           FROM   res_rsv_ruimte rr, res_ruimte_opstelling ro, res_ruimte ru, prs_kostenplaats kp
          WHERE       rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
                  AND rr.prs_kostenplaats_key = kp.prs_kostenplaats_key (+)   -- of isdie verplicht?
@@ -1120,7 +1227,7 @@ AS
     THEN
        res_length_evening :=  0;
     END IF;
-        
+
 
     IF res_roompricingmethod = 1
     THEN
@@ -1154,25 +1261,25 @@ AS
          END IF;
          thisroomprice :=  room_price * res_ruimte_length;
       END IF;
-     
+
     ELSIF res_roompricingmethod = 2
     THEN
         -- Lever voor de duur van de reservering de laagste prijs op: zie NYBU#25763
-        
+
         -- Dagprijs -> Uren uitgesplitst per dagdeel (uur van dat dagdeel x prijs) en vergelijken met dagdeelprijs, en daarvan het goedkoopste.
         -- Voor alle 3 dagdelen verkijgen we dan een goedkoopste gedrag (D1 + D2 +D3), die optellen en vergelijken met dagprijs, en daarvan de goedkoopste.
         -- room_price_fixed = 1 werkt alleen op dagdeelprijs, en NIET op uurtarief (eigenlijk zouden we 2 vinkjes moeten hebben, voor ieder 1 afzonderlijk).
         -- En tenslotte nog vergelijken met dagprijs, neem de goedkoopste.
-        
-                        
+
+
         cost_morning := 0;
         cost_afternoon := 0;
         cost_evening := 0;
-        
+
         -- Hieronder de uren uitsplitsen naar dagdelen en vergelijken met dagdeelprijzen, daarvan de goedkoopste.
         -- Net als bij res_roompricingmethod = 1, ook kijken of de middag en avond tijden zijn ingesteld, anders doen die niet mee.
         IF (lres_t_middag > 0 AND lres_t_middag < 24 AND lres_t_avond > 0 AND lres_t_avond < 24)
-        THEN 
+        THEN
             -- Een prijs per blok (kennelijk). Tellen hoeveel blokken dan
             IF res_length_morning > 0
             THEN
@@ -1181,13 +1288,13 @@ AS
                     cost_morning := price_morning;
                 ELSE
                     cost_morning := price_morning * res_length_morning;
-                END IF;                        
+                END IF;
                 IF (res_length_morning * room_price) < cost_morning
                 THEN
                     cost_morning := res_length_morning * room_price;
                 END IF;
             END IF;
-            
+
             IF res_length_afternoon > 0
             THEN
                 IF room_price_fixed = 1
@@ -1195,13 +1302,13 @@ AS
                     cost_afternoon := price_afternoon;
                 ELSE
                     cost_afternoon := price_afternoon * res_length_afternoon;
-                END IF;                        
+                END IF;
                 IF (res_length_afternoon * room_price) < cost_afternoon
                 THEN
                     cost_afternoon := res_length_afternoon * room_price;
                 END IF;
             END IF;
-            
+
             IF res_length_evening > 0
             THEN
                 IF room_price_fixed = 1
@@ -1209,24 +1316,24 @@ AS
                     cost_evening := price_evening;
                 ELSE
                     cost_evening := price_evening * res_length_evening;
-                END IF;                        
+                END IF;
                 IF (res_length_evening * room_price) < cost_evening
                 THEN
                     cost_evening := res_length_evening * room_price;
                 END IF;
             END IF;
             thisroomprice := cost_morning + cost_afternoon + cost_evening;
-        
+
             -- Als dagprijs = 0 (d.i. price_allday is NULL cq. is niet gevuld), dan telt die niet mee, en moet de nieuwe prijsberekening gelden.
             -- Of als dagprijs lager is lager is dan de nieuwe prijsberekening, dan ook.
-            IF (price_allday <> 0) AND price_allday < thisroomprice 
+            IF (price_allday <> 0) AND price_allday < thisroomprice
             THEN
                 thisroomprice := price_allday;
             END IF;
         ELSE
             thisroomprice := price_allday;
         END IF;
-                
+
     ELSIF res_roompricingmethod = 3
     THEN
         -- Methode 3: STAFFELS van b.v. 4 en 8: zie WIBC#26163
@@ -1234,19 +1341,19 @@ AS
         -- x < 4 uur:      duur x uurprijs
         -- 4 <= x < 8 uur: dagdeelprijs (ochtend) + (duur - 4) x uurprijs
         -- x >= 8 uur:     dagprijs, (of indien dagprijs niet is ingesteld, dan dagdeelprijs (middag) + (duur - 8) x uurprijs
-        
-        -- Bij methode 3 wordt lres_t_middag niet als tijdsgrens tussen morgen en middag ingesteld, maar als een 'blok' van een aantal uren. 
+
+        -- Bij methode 3 wordt lres_t_middag niet als tijdsgrens tussen morgen en middag ingesteld, maar als een 'blok' van een aantal uren.
         -- En idem voor avond, die is het 2e blok (groter aantal) uren dan het 1e blok.
-        -- 
+        --
         res_1e_dagblok := lres_t_middag;
         res_2e_dagblok := lres_t_avond;
-        
+
         --- MB: Overlegd met DEVELOP (PF): geconstateerd dat res_ruimte_res bij een reservering van 10:00-14:00 niet exact 4 is, maar 4.000000en-een-beetje.
         --- Tot dusver ook geen probleem met voorgaande price-methodes, maar nu gaan we (exact) vergelijken met een staffel, en dan kan die net de verkeerde kant (if-then-else) opvallen!
         --  Vandaar deze foef om af te ronden, alleen op deze plaats.
         res_ruimte_length := ROUND(res_ruimte_length, 2);
-        
-        
+
+
         IF (res_1e_dagblok > 0 AND res_1e_dagblok < 24)
         THEN
             -- Er is een 1e block gedefinieerd
@@ -1270,7 +1377,7 @@ AS
                     THEN
                         -- Reserv. duur is GROTER dan 2e blok uren, dan geldt de dagprijs indien deze is ingesteld.
                         -- Als de dagprijs NIET is ingesteld, dan dagdeelprijs (middag) + (duur - 8) x uurprijs
-                        
+
                         IF price_allday > 0
                         THEN
                             -- Er is een dagprijs voor de ruimte ingesteld, die telt dan.
@@ -1286,7 +1393,7 @@ AS
                             thisroomprice := price_afternoon + (room_price * (res_ruimte_length - res_2e_dagblok));
                         END IF;
                     ELSE
-                        -- Reserv. duur is ligt tussen 1e en 2e blok uren in, 
+                        -- Reserv. duur is ligt tussen 1e en 2e blok uren in,
                         -- dan geldt dagdeelprijs (ochtend) + (duur - 4) x uurprijs
                         IF room_price_fixed = 1 AND res_ruimte_length > res_1e_dagblok
                         THEN
@@ -1306,10 +1413,10 @@ AS
                        res_ruimte_length :=  res_1e_dagblok + 1;
                     END IF;
                     thisroomprice := price_morning + (room_price * (res_ruimte_length - res_1e_dagblok));
-                END IF;    
+                END IF;
             END IF;
         ELSE
-            -- Er is geen 1e blok gedefinieerd.    
+            -- Er is geen 1e blok gedefinieerd.
             -- Dan maar gewoon uur x prijs.
             -- Ook hier doet setting room_price_fixed ook gewoon mee.
             IF room_price_fixed = 1
@@ -1323,22 +1430,15 @@ AS
         -- Kost nooit wat.
         thisroomprice := 0;
     END IF;
-    
-    -- Hier rekening houden met intern/extern tarief
-    IF prs_kostenplaats_extern = 0
-    THEN
-        thisroomprice := thisroomprice * COALESCE(ruimte_prijsfactor_intern,fac.safe_to_number (fac.getsetting ('res_ruimte_prijsfactor_intern')));
-    END IF;
-    
-    -- Hier wordt een eventuele korting bij de reservering (door FO ingevoerd) nog verrekend: zie NYBU#25763
-    thisroomprice := thisroomprice - res_rsv_korting;
-    
+
     -- Doorbelastingspercentage (bij annuleren) op het laatste moment nog.
-    thisroomprice := thisroomprice * doorbelasting / 100;    
-    
-    RETURN thisroomprice;
+    -- Voor de berekening van de doorbelasting moet gerekend worden met een op twee decimalen afgeronde ruimteprijs.
+    thisroomprice := ROUND(thisroomprice, 2) * doorbelasting / 100;
+
+    -- De uiteindelijke ruimteprijs die afgeleverd wordt (return waarde) moet een op twee decimalen afgeronde prijs zijn. Vanwege doorbelasting opnieuw afronden.
+    RETURN ROUND(thisroomprice, 2);
    END;
-   
+
    FUNCTION getdeelprijs (pres_rsv_deel_key IN NUMBER)
       RETURN NUMBER IS
    deel_price res_deel.res_deel_prijs%TYPE;
@@ -1424,6 +1524,8 @@ AS
             END IF;
          END IF;
       END IF;
+      -- De uiteindelijke artikelprijs die afgeleverd wordt (return waarde) moet een op twee decimalen afgeronde prijs zijn.
+      -- Afronden op twee decimalen gaat automatisch omdat deel_price_total twee decimalen heeft.
       deel_price_total :=  deel_price * res_deel_length;
       RETURN deel_price_total;
    END;
@@ -1474,7 +1576,8 @@ AS
             AND   ra.res_artikel_key = a.res_artikel_key
             AND   res_rsv_artikel_prijs IS NOT NULL
             AND   (res_status_bo_key >= 5 OR res_artikel_prijs_vast <> 1);
-         RETURN artikel_price_total * doorbelasting / 100;
+         -- De uiteindelijke artikelprijs die afgeleverd wordt (return waarde) moet een op twee decimalen afgeronde prijs zijn. Vanwege doorbelasting opnieuw afronden.
+         RETURN ROUND(artikel_price_total * doorbelasting / 100, 2);
       EXCEPTION
          WHEN OTHERS
          THEN
@@ -1487,7 +1590,8 @@ AS
         INTO   artikel_price_total
         FROM   res_rsv_artikel ra, res_artikel a
        WHERE   ra.res_artikel_key = a.res_artikel_key AND ra.res_rsv_artikel_key = pres_rsv_artikel_key;
-      RETURN artikel_price_total * doorbelasting / 100;
+      -- De uiteindelijke artikelprijs die afgeleverd wordt (return waarde) moet een op twee decimalen afgeronde prijs zijn. Vanwege doorbelasting opnieuw afronden.
+      RETURN ROUND(artikel_price_total * doorbelasting / 100, 2);
    END;
    -- Bepaal de totaalprijs van een reservering
    FUNCTION getdeelresprijs (pres_rsv_ruimte_key IN NUMBER)
@@ -1495,6 +1599,9 @@ AS
         ruimteprijs  NUMBER := 0;
         artikelprijs NUMBER :=  0;
         deelprijs NUMBER :=  0;
+        korting res_rsv_ruimte.res_rsv_ruimte_korting%TYPE;
+        verwijderdatum res_rsv_ruimte.res_rsv_ruimte_verwijder%TYPE;
+        statusfokey res_rsv_ruimte.res_status_fo_key%TYPE;
       CURSOR cartikel
       IS
          SELECT  res_rsv_artikel_key
@@ -1508,16 +1615,34 @@ AS
           WHERE   res_rsv_deel_dirtlevel = 0
             AND   res_rsv_ruimte_key = pres_rsv_ruimte_key;
    BEGIN
+        -- Is de reservering verwijderd
+        SELECT rrr.res_rsv_ruimte_verwijder,
+               rrr.res_status_fo_key,
+               COALESCE(res_rsv_ruimte_korting, 0)
+          INTO verwijderdatum,
+               statusfokey,
+               korting
+          FROM res_rsv_ruimte rrr
+         WHERE rrr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
+
+        -- Bepaal doorbelasting korting of afgesproken totaal
+        IF verwijderdatum IS NOT NULL AND statusfokey != 4 -- Verwijderde reservering met FO status die niet is vervallen: 0% korting doorberekenen.
+        THEN
+            korting := 0;
+        -- ELSE -- Actuele reservering of verwijderde reservering met FO status is vervallen: 100% korting doorberekenen
+        END IF;
+
         ruimteprijs :=  res.getruimteprijs(pres_rsv_ruimte_key);
         FOR ca IN cartikel
-        loop
+        LOOP
             artikelprijs :=  artikelprijs + res.getartikelprijs(ca.res_rsv_artikel_key);
-        end loop;
+        END LOOP;
         FOR cd IN cdeel
-        loop
+        LOOP
             deelprijs :=  deelprijs + res.getdeelprijs(cd.res_rsv_deel_key);
-        end loop;
-        RETURN ruimteprijs + artikelprijs + deelprijs;
+        END LOOP;
+
+        RETURN ruimteprijs + artikelprijs + deelprijs - korting;
    END;
    FUNCTION sprintf (ps IN VARCHAR2 , pres_rsv_ruimte_key IN NUMBER)
       RETURN VARCHAR2  IS

RES/RES_TAB.SRC

@@ -15,6 +15,8 @@ CREATE_TABLE (res_disc_params,0)
   res_disc_params_expire_dagen NUMBER(2),                   /* aantal (hele) dagen vooraf waarna niet meer mag worden gewijzigd */
   res_disc_params_expire_tijd  NUMBER(5,2),                 /* grenstijdstip van de dag voor die freeze (bv 16.5) */
   res_disc_params_cancel_dagen NUMBER(2),                   /* aantal (hele) dagen vooraf waarna niet meer kostenloos mag worden gennuleerd/verwijderd */
+  res_disc_params_remoteurl    VARCHAR2(512),               /* URL van remote (FACILITOR-) service voor vergaderzalen van andere accounts  */
+  res_disc_params_maxduur      NUMBER(5,2)      DEFAULT 0,
   CONSTRAINT res_c_ins_discipline_key CHECK (res_ins_discipline_key IS NOT NULL),
   CONSTRAINT res_k_res_disc_params_key PRIMARY KEY (res_disc_params_key),
   CONSTRAINT res_r_ins_discipine_key FOREIGN KEY (res_ins_discipline_key)
@@ -34,11 +36,17 @@ CREATE_TABLE(res_ruimte,0)
     VARCHAR2(40)
     NOT_NULL(res_ruimte_upper, res_c_res_ruimte_upper),
   res_ruimte_omschrijving
-    VARCHAR2(255),
+    VARCHAR2(1000),
+  res_ruimte_info_url
+    VARCHAR2(1000),
   res_ruimte_image
     VARCHAR2(255),
+  res_ruimte_friendlyname
+    VARCHAR2(40),
   res_ruimte_prijs
     NUMBER(7,2),
+  res_ruimte_intprijs
+    NUMBER(7,2),
   res_ruimte_prijs_vast
     NUMBER(1)
     DEFAULT 0
@@ -51,6 +59,14 @@ CREATE_TABLE(res_ruimte,0)
     NUMBER(7,2),
   res_ruimte_prijs_dag
     NUMBER(7,2),
+  res_ruimte_intprijs_ochtend
+    NUMBER(7,2),
+  res_ruimte_intprijs_middag
+    NUMBER(7,2),
+  res_ruimte_intprijs_avond
+    NUMBER(7,2),
+  res_ruimte_intprijs_dag
+    NUMBER(7,2),
   res_ruimte_prijsfactor_intern     /* optionele overrule van de setting */
     NUMBER(5,3),
   res_ruimte_begintijd
@@ -62,12 +78,27 @@ CREATE_TABLE(res_ruimte,0)
   res_discipline_key NUMBER(10)
     CONSTRAINT res_c_res_ruimte_dis_key CHECK(res_discipline_key IS NOT NULL)
     CONSTRAINT res_c_res_ruimte_discipline REFERENCES ins_tab_discipline(ins_discipline_key),
+  res_ruimte_groep /* cluster ruimtes bij elkaar bij bv 1 wachtruimte */
+    VARCHAR2(40),
+/* defined in BEZ_TAB.src:
+  bez_actie_key
+    NUMBER(10)
+    REFERENCES bez_actie(bez_actie_key), */
+  res_ruimte_vervaldatum
+    DATE,
   res_ruimte_aanmaak
     DATE
     DEFAULT SYSDATE,
   res_ruimte_verwijder
     DATE
     DEFAULT NULLDATUM,
+  res_status_fo_key
+    NUMBER(2)
+    CONSTRAINT res_c_res_status_fo2 CHECK(res_status_fo_key IN (1,2,3,4)),
+  res_ruimte_extern_id
+    VARCHAR2(256),
+  res_ruimte_syncstate
+    VARCHAR2(4000),
   CONSTRAINT res_u_res_ruimte_upper UNIQUE(res_ruimte_upper, res_ruimte_verwijder)
 );
 
@@ -137,6 +168,11 @@ CREATE_TABLE(res_ruimte_opstelling, 0)
     NUMBER(1)
 , res_ruimte_opstel_image
     VARCHAR2(255)
+, res_ruimte_opstel_aanmaak
+    DATE
+    DEFAULT SYSDATE  /* column initially not present, date not real for pre-DB26*/
+, res_ruimte_opstel_verwijder
+    DATE
 ,  CONSTRAINT res_u_res_ruimte_opstel_key UNIQUE(res_ruimte_key, res_opstelling_key)
 );
 
@@ -166,6 +202,8 @@ CREATE_TABLE(res_deel, 0)
 , res_deel_alg_level
     NUMBER(1)
     NOT_NULL(res_deel_alg_level, res_c_res_deel_alg_level)
+, res_deel_vervaldatum
+    DATE
 , res_deel_aanmaak
     DATE
     DEFAULT SYSDATE
@@ -175,6 +213,10 @@ CREATE_TABLE(res_deel, 0)
 , res_deel_omschrijving
     VARCHAR2(60)
     NOT_NULL(res_deel_omschrijving, res_c_res_deel_omschrijving)
+, res_deel_beschikbaar_bits /* Day of week (dow) beschikbaarheid (default alle dagen van de week) */
+    NUMBER(4)
+    DEFAULT 127
+    NOT NULL
 );
 
 
@@ -198,6 +240,7 @@ CREATE_TABLE(res_artikel, 0)
 , res_artikel_prijs_vast
     NUMBER(1)
     DEFAULT 0
+    CONSTRAINT res_c_res_artikel_prijs_vast CHECK(res_artikel_prijs_vast IS NOT NULL)
     CONSTRAINT res_c_res_artikel_prijs_vast1 CHECK(res_artikel_prijs_vast IN (0,1))
 , res_artikel_inkoopprijs
     NUMBER(7,2)
@@ -217,6 +260,16 @@ CREATE_TABLE(res_artikel, 0)
     NUMBER(3)
 , res_artikel_minimum  /* zoveel moet je er minimaal bestellen */
     NUMBER(3)
+, res_artikel_flags  /* voor eigenschappen als meervoudig (1) en future extensions */
+    NUMBER(1)
+    DEFAULT 0
+    CONSTRAINT res_c_res_artikel_flags1 CHECK(res_artikel_flags IN (0,1))
+, res_artikel_begintijd
+    NUMBER(5,2)
+    CONSTRAINT res_c_artikel_begintijd CHECK(res_artikel_begintijd >= 0 AND res_artikel_begintijd < 24)
+, res_artikel_eindtijd
+    NUMBER(5,2)
+    CONSTRAINT res_c_artikel_eindtijd CHECK(res_artikel_eindtijd >= 0 AND res_artikel_eindtijd < 24)
 , res_artikel_ingangsdatum
     DATE
 , res_artikel_vervaldatum
@@ -297,10 +350,12 @@ CREATE_TABLE(res_activiteit, 0)
 , res_srtactiviteit_key
     NUMBER(10)
     CONSTRAINT res_r_res_srtactiviteit_key REFERENCES res_srtactiviteit(res_srtactiviteit_key)
+, res_activiteit_notfrontend
+    NUMBER(1) DEFAULT (0) NOT NULL
+    CONSTRAINT res_c_res_activiteit_notfe CHECK (res_activiteit_notfrontend IN (0,1))
 ,   CONSTRAINT res_u_res_activiteit_upper UNIQUE(res_activiteit_upper, res_activiteit_verwijder, res_srtactiviteit_key)
 );
 
-// Sinds 4.70 driftig ingekort!
 CREATE_TABLE(res_reservering,0)
 (
   res_reservering_key
@@ -309,6 +364,9 @@ CREATE_TABLE(res_reservering,0)
   res_reservering_aanmaak
     DATE
     DEFAULT SYSDATE,
+  res_reservering_ispool
+    NUMBER(1)
+    DEFAULT 0 NOT NULL,
   res_reservering_verwijder
     DATE
     DEFAULT NULLDATUM
@@ -370,12 +428,14 @@ CREATE_TABLE(res_rsv_ruimte, 0)
 , res_rsv_ruimte_bezoekers_shown
     NUMBER(5)
     CONSTRAINT res_c_rsv_ruimte_bez_shown CHECK((res_rsv_ruimte_bezoekers_shown IS NULL) OR (res_rsv_ruimte_bezoekers_shown >= 0))
-, res_rsv_ruimte_prijs
+, res_rsv_ruimte_prijs  /* prijs van de ruimte voor deze deelreservering (zonder korting) */
     NUMBER(9,2)
     CONSTRAINT res_c_res_rsv_ruimte_prijs CHECK((res_rsv_ruimte_prijs >= 0) or (res_rsv_ruimte_prijs IS NULL))
-, res_rsv_ruimte_korting
+, res_rsv_ruimte_korting  /* Korting op de gehele deelreservering */
     NUMBER(9,2)
     CONSTRAINT res_c_res_rsv_ruimte_korting CHECK(res_rsv_ruimte_korting >= 0)
+, res_rsv_ruimte_totaal  /* Afgesproken totaal, meestal leeg */
+    NUMBER(9,2)
 , res_status_bo_key
     NUMBER(2)
     CONSTRAINT res_c_res_status_bo1 CHECK(res_status_bo_key IN (2,5,6))
@@ -398,6 +458,8 @@ CREATE_TABLE(res_rsv_ruimte, 0)
     DATE
 , res_rsv_ruimte_satisfaction
     NUMBER(2)
+, res_rsv_ruimte_satisfaction_op
+    VARCHAR2(2000)
 , CONSTRAINT res_c_res_rsv_ruimte_van_tot CHECK((res_ruimte_opstel_key IS NOT NULL AND res_rsv_ruimte_van < res_rsv_ruimte_tot) OR (res_ruimte_opstel_key IS NULL AND res_rsv_ruimte_van <= res_rsv_ruimte_tot))
 , CONSTRAINT res_c_res_ruimte_activ_key CHECK (res_activiteit_key IS NOT NULL)
 , CONSTRAINT res_c_res_ruimte_voorziening CHECK ((res_ruimte_opstel_key IS NOT NULL
@@ -405,6 +467,15 @@ CREATE_TABLE(res_rsv_ruimte, 0)
                                                  AND res_rsv_ruimte_prijs IS NULL
                                                  AND res_status_bo_key IS NULL
                                                  )))
+, res_rsv_ruimte_flag
+    NUMBER(1)
+, res_rsv_ruimte_afgerond
+    NUMBER(1)
+    DEFAULT 0
+    CONSTRAINT res_c_res_rsv_ruimte_afgerond CHECK(res_rsv_ruimte_afgerond IS NOT NULL)
+    CONSTRAINT res_c_res_rsv_ruimte_afgerond1 CHECK(res_rsv_ruimte_afgerond IN (0,1))
+, res_rsv_ruimte_externnr    /* voor koppelingen met externe systemen */
+    VARCHAR2(1000)
 );
 
 ALTER TABLE mld_melding ADD res_rsv_ruimte_key
@@ -439,14 +510,8 @@ CREATE_TABLE(res_rsv_deel, 0)
 ,  res_rsv_deel_prijs
      NUMBER(9,2)
      CONSTRAINT res_c_res_rsv_deel_prijs CHECK((res_rsv_deel_prijs >= 0) or (res_rsv_deel_prijs IS NULL))
---,  res_rsv_deel_user_key
---     NUMBER (10)
---     CONSTRAINT res_r_rsv_deel_usr_key4 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_deel_afgemeld
      DATE
---,  res_rsv_deel_afgemeld_user
---     NUMBER(10)
---     CONSTRAINT res_r_rsv_deel_usr_key5 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_deel_verwerkt
      DATE
 ,  res_rsv_deel_aanmaak
@@ -487,14 +552,8 @@ CREATE_TABLE(res_rsv_artikel, 0)
      NOT_NULL(res_rsv_ruimte_key, res_c_res_artikel_ruimte)
 ,  res_rsv_artikel_prijs
      NUMBER(9,2)
---,  res_rsv_artikel_user_key
---     NUMBER (10)
---     CONSTRAINT res_r_rsv_artikel_usr_key5 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_artikel_afgemeld
      DATE
---,  res_rsv_artikel_afgemeld_user
---     NUMBER(10)
---     CONSTRAINT res_r_rsv_artikel_usr_key6 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_artikel_verwerkt
      DATE
 ,  res_rsv_artikel_aanmaak
@@ -595,6 +654,9 @@ CREATE_TABLE(res_kenmerk, 0)
       VARCHAR2(255 CHAR)
 ,  res_kenmerk_verplicht
       NUMBER(1)
+,  res_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  res_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
@@ -606,13 +668,13 @@ CREATE_TABLE(res_kenmerk, 0)
 ,  res_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
-,  CONSTRAINT res_r_res_srtkenmerk_key1       CHECK(res_srtkenmerk_key IS NOT NULL)
-,  CONSTRAINT res_r_res_srtkenmerk_key2 FOREIGN KEY(res_srtkenmerk_key) REFERENCES res_srtkenmerk(res_srtkenmerk_key)
-,  CONSTRAINT res_c_res_kenmerk_niveau1       CHECK(res_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT res_c_res_kenmerk_niveau2       CHECK(res_kenmerk_niveau IN ('A'))
-,  CONSTRAINT res_c_res_kenmerk_aanmaak       CHECK(res_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT res_r_res_activiteit_key  FOREIGN KEY(res_activiteit_key) REFERENCES res_activiteit(res_activiteit_key)
-,  CONSTRAINT res_u_res_kenmerk_unique       UNIQUE(res_activiteit_key, res_srtkenmerk_key, res_kenmerk_verwijder)
+,  CONSTRAINT res_r_res_srtkenmerk_key1      CHECK(res_srtkenmerk_key IS NOT NULL)
+,  CONSTRAINT res_r_res_srtkenmerk_key2      FOREIGN KEY(res_srtkenmerk_key) REFERENCES res_srtkenmerk(res_srtkenmerk_key)
+,  CONSTRAINT res_c_res_kenmerk_niveau1      CHECK(res_kenmerk_niveau IS NOT NULL)
+,  CONSTRAINT res_c_res_kenmerk_niveau2      CHECK(res_kenmerk_niveau IN ('A'))
+,  CONSTRAINT res_c_res_kenmerk_aanmaak      CHECK(res_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT res_r_res_activiteit_key       FOREIGN KEY(res_activiteit_key) REFERENCES res_activiteit(res_activiteit_key)
+,  CONSTRAINT res_u_res_kenmerk              UNIQUE(res_activiteit_key, res_srtkenmerk_key, res_kenmerk_groep, res_kenmerk_verwijder)
 );
 
 CREATE_TABLE(res_kenmerkwaarde, 0)

RES/RES_TRI.SRC

@@ -222,7 +222,7 @@ BEGIN
       EXCEPTION
           WHEN NO_DATA_FOUND
           THEN
-              NULL;
+              DELETE_CHILDREN(res_activiteitdiscipline, res_activiteit_key);
           WHEN TOO_MANY_ROWS
           THEN
               raise_application_error (-20000, 'res_m999 Reservations exist');

RES/RES_VIE.SRC

@@ -82,7 +82,9 @@ CREATE_VIEW(res_v_res_ruimte_gegevens_all, 0)
        res_ruimte_key,
        res_ruimte_nr,
        res_ruimte_prijs,
+       bez_actie_key,
        res_discipline_key,
+       res_ruimte_extern_id,
        alg_ruimte_verwijder,
        res_ruimte_verwijder,
        res_alg_ruimte_verwijder
@@ -96,7 +98,9 @@ SELECT DISTINCT
 ,      RES_R.res_ruimte_key
 ,      RES_R.res_ruimte_nr
 ,      RES_R.res_ruimte_prijs
+,      RES_R.bez_actie_key
 ,      RES_R.res_discipline_key
+,      RES_R.res_ruimte_extern_id
 ,      alg_ruimte_verwijder
 ,      res_ruimte_verwijder
 ,      res_alg_ruimte_verwijder
@@ -599,8 +603,8 @@ CREATE_VIEW(res_v_qvw_algemeen, 0) (res_reservering_key,
 AS SELECT res.res_reservering_key
       , res.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
       , rrr.res_rsv_ruimte_omschrijving
-      , to_char(NVL(rrr.res_rsv_ruimte_aanmaak, voorz.van), 'YYYY-MM-DD')
-      , to_char(NVL(rrr.res_rsv_ruimte_van, voorz.van), 'YYYY-MM-DD')
+      , TRUNC(NVL(rrr.res_rsv_ruimte_aanmaak, voorz.van))
+      , TRUNC(NVL(rrr.res_rsv_ruimte_van, voorz.van))
       , (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all pf WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key)
       , (SELECT prs_perslid_naam_full FROM prs_v_perslid_fullnames_all pf WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key)
       , (SELECT   pf.prs_perslid_naam_full
@@ -637,7 +641,7 @@ AS SELECT res.res_reservering_key
       , (SELECT alg_locatie_omschrijving FROM alg_locatie l, alg_gebouw g, alg_verdieping v, alg_ruimte r where l.alg_locatie_key = g.alg_locatie_key and g.alg_gebouw_key = v.alg_gebouw_key and v.alg_verdieping_key = r.alg_verdieping_key and r.alg_ruimte_key = r2a.alg_ruimte_key)
       , (SELECT alg_gebouw_code FROM alg_gebouw g, alg_verdieping v, alg_ruimte r where g.alg_gebouw_key = v.alg_gebouw_key and v.alg_verdieping_key = r.alg_verdieping_key and r.alg_ruimte_key = r2a.alg_ruimte_key)
       , (SELECT alg_verdieping_code FROM alg_verdieping v, alg_ruimte r where v.alg_verdieping_key = r.alg_verdieping_key and r.alg_ruimte_key = r2a.alg_ruimte_key)
-      , (SELECT alg_ruimte_nr FROM alg_ruimte r where r.alg_ruimte_key = r2a.alg_ruimte_key)
+      , r2a.ruimte_nr
       , r2a.opstelling
       , rrr.res_rsv_ruimte_noshow
       , NVL ((SELECT pr.fac_profiel_limiet FROM fac_profiel pr WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
@@ -648,7 +652,7 @@ AS SELECT res.res_reservering_key
       , (SELECT ins_discipline_key FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key AND ro.res_ruimte_key = rr.res_ruimte_key AND rr.res_discipline_key = d.ins_discipline_key)
       , (SELECT ins_discipline_omschrijving FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key AND ro.res_ruimte_key = rr.res_ruimte_key AND rr.res_discipline_key = d.ins_discipline_key)
       , DECODE (rrr.alg_ruimte_key, null, 'Ja', 'Nee')
-      , to_char(rrr.res_rsv_ruimte_bezoekers)
+      , rrr.res_rsv_ruimte_bezoekers
       , to_char(rrr.res_rsv_ruimte_van, 'hh24:mi')
       , to_char(rrr.res_rsv_ruimte_tot, 'hh24:mi')
       , nvl((rrr.res_rsv_ruimte_tot-rrr.res_rsv_ruimte_van)*24,0)
@@ -661,11 +665,11 @@ AS SELECT res.res_reservering_key
       , voorz.catalogus
       , voorz.product_key
       , voorz.product
-      , replace(to_char(voorz.totaalprijs),'.',',')
+      , voorz.totaalprijs
       , to_char(voorz.van,'hh24:mi')
       , to_char(voorz.tot,'hh24:mi')
-      , replace(to_char(voorz.aantal),'.',',')
-      , replace(to_char(voorz.prijs),'.',',')
+      , voorz.aantal
+      , voorz.prijs
       , voorz.afgemeld
   from res_v_aanwezigrsv_ruimte rrr
      , res_activiteit ra
@@ -676,6 +680,7 @@ AS SELECT res.res_reservering_key
      , prs_afdeling a
      , ( SELECT res_rsv_ruimte_key, max(o.res_opstelling_omschrijving) opstelling
               , max(ra.alg_ruimte_key) alg_ruimte_key
+              , max(rr.res_ruimte_nr) ruimte_nr
            FROM res_rsv_ruimte r
               , res_ruimte_opstelling ro
               , res_opstelling o
@@ -689,9 +694,12 @@ AS SELECT res.res_reservering_key
        GROUP BY res_rsv_ruimte_key
       UNION ALL
          SELECT res_rsv_ruimte_key, '' opstelling
-              , alg_ruimte_key
-           FROM res_rsv_ruimte
-          WHERE alg_ruimte_key IS NOT NULL) r2a
+              , rrr.alg_ruimte_key
+              , r.alg_ruimte_nr
+           FROM res_rsv_ruimte rrr
+              , alg_ruimte r
+          WHERE rrr.alg_ruimte_key IS NOT NULL
+            AND r.alg_ruimte_key = rrr.alg_ruimte_key) r2a
      , ( SELECT rrd.res_rsv_ruimte_key res_rsv_ruimte_key, -rd.res_deel_key product_key, rd.res_deel_omschrijving product, DECODE(rd.res_deel_prijs_vast, 1, nvl(rrd.res_rsv_deel_prijs, rd.res_deel_prijs), (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 * nvl(rrd.res_rsv_deel_prijs,rd.res_deel_prijs)) totaalprijs, rrd.res_rsv_deel_van van, rrd.res_rsv_deel_tot tot, (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal, nvl(rrd.res_rsv_deel_prijs,rd.res_deel_prijs) prijs, 'TODO' afgemeld, c.ins_discipline_key ins_discipline_key, c.ins_discipline_omschrijving catalogus
            FROM res_v_aanwezigrsv_deel rrd
               , res_deel rd
@@ -1383,5 +1391,306 @@ AS
                rvck
             ON x.res_rsv_ruimte_key = rvck.res_rsv_ruimte_key;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(res_v_udr_reservering, 1)
+(
+   key,
+   nummer,
+   res_omschrijving,
+   invoerdatum,
+   datum,
+   gastheer,
+   contact,
+   invoerder,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   fclt_3d_afdeling_key,
+   afdeling_code,
+   afdeling_omschrijving,
+   regio_omschrijving,
+   district_omschijving,
+   fclt_3d_locatie_key,
+   locatie,
+   locatie_omschrijving,
+   gebouw,
+   verdieping,
+   ruimte,
+   opstelling,
+   no_show,
+   mandaat,
+   personeelsnr,
+   fclt_3d_discipline_key,
+   catalogus_key,
+   catalogus,
+   reserveerbare_ruimte,
+   bezoekers,
+   van,
+   tot,
+   duur,
+   status,
+   bostatus,
+   activiteit,
+   srtactiviteit_key,
+   activiteitsoort,
+   voorziening_discipline_key,
+   voorziening_type,
+   voorziening_catalogus,
+   voorziening_product_key,
+   voorziening_product,
+   voorziening_totaalprijs,
+   voorziening_van,
+   voorziening_tot,
+   voorziening_aantal,
+   voorziening_prijs
+)
+AS
+   SELECT res.res_reservering_key,
+          res.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr,
+          rrr.res_rsv_ruimte_omschrijving,
+          COALESCE (rrr.res_rsv_ruimte_aanmaak, voorz.van),
+          COALESCE (rrr.res_rsv_ruimte_van, voorz.van),
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all pf
+            WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all pf
+            WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
+          (SELECT pf.prs_perslid_naam_full
+             FROM fac_tracking tr, fac_srtnotificatie str, prs_v_perslid_fullnames_all pf
+            WHERE     tr.prs_perslid_key = pf.prs_perslid_key
+                  AND str.fac_srtnotificatie_code = 'RESNEW'
+                  AND tr.fac_srtnotificatie_key = str.fac_srtnotificatie_key
+                  AND tr.fac_tracking_refkey = rrr.res_rsv_ruimte_key),
+          (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 res_discipline disc
+                          WHERE disc.ins_discipline_key =
+                                   COALESCE (
+                                      voorz.ins_discipline_key,
+                                      (SELECT ins_discipline_key
+                                         FROM ins_tab_discipline d,
+                                              res_ruimte_opstelling ro,
+                                              res_ruimte rr
+                                        WHERE rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                                              AND ro.res_ruimte_key = rr.res_ruimte_key
+                                              AND rr.res_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 res_discipline disc
+                       WHERE disc.ins_discipline_key =
+                                COALESCE (
+                                   voorz.ins_discipline_key,
+                                   (SELECT ins_discipline_key
+                                      FROM ins_tab_discipline d,
+                                           res_ruimte_opstelling ro,
+                                           res_ruimte rr
+                                     WHERE     rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                                           AND ro.res_ruimte_key = rr.res_ruimte_key
+                                           AND rr.res_discipline_key = d.ins_discipline_key))))
+             kostensoort,
+          k.prs_kostenplaats_nr,
+          k.prs_kostenplaats_omschrijving,
+          a.prs_afdeling_key,
+          a.prs_afdeling_naam,
+          a.prs_afdeling_omschrijving,
+          (SELECT rg.alg_regio_omschrijving
+             FROM alg_regio rg,
+                  alg_district d,
+                  alg_locatie l,
+                  alg_gebouw g,
+                  alg_verdieping v,
+                  alg_ruimte r
+            WHERE     rg.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
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT d.alg_district_omschrijving
+             FROM alg_district d,
+                  alg_locatie l,
+                  alg_gebouw g,
+                  alg_verdieping v,
+                  alg_ruimte r
+            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
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT l.alg_locatie_key
+             FROM alg_locatie l,
+                  alg_gebouw g,
+                  alg_verdieping v,
+                  alg_ruimte r
+            WHERE     l.alg_locatie_key = g.alg_locatie_key
+                  AND g.alg_gebouw_key = v.alg_gebouw_key
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT alg_locatie_code
+             FROM alg_locatie l,
+                  alg_gebouw g,
+                  alg_verdieping v,
+                  alg_ruimte r
+            WHERE     l.alg_locatie_key = g.alg_locatie_key
+                  AND g.alg_gebouw_key = v.alg_gebouw_key
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT alg_locatie_omschrijving
+             FROM alg_locatie l,
+                  alg_gebouw g,
+                  alg_verdieping v,
+                  alg_ruimte r
+            WHERE     l.alg_locatie_key = g.alg_locatie_key
+                  AND g.alg_gebouw_key = v.alg_gebouw_key
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT alg_gebouw_code
+             FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
+            WHERE     g.alg_gebouw_key = v.alg_gebouw_key
+                  AND v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          (SELECT alg_verdieping_code
+             FROM alg_verdieping v, alg_ruimte r
+            WHERE v.alg_verdieping_key = r.alg_verdieping_key
+                  AND r.alg_ruimte_key = r2a.alg_ruimte_key),
+          r2a.ruimte_nr,
+          r2a.opstelling,
+          rrr.res_rsv_ruimte_noshow,
+          NVL ( (SELECT pr.fac_profiel_limiet
+                   FROM fac_profiel pr
+                  WHERE p.fac_profiel_key = pr.fac_profiel_key), 0),
+          prs_perslid_nr,
+          COALESCE (
+             voorz.ins_discipline_key,
+             (SELECT ins_discipline_key
+                FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
+               WHERE     rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                     AND ro.res_ruimte_key = rr.res_ruimte_key
+                     AND rr.res_discipline_key = d.ins_discipline_key)),
+          (SELECT ins_discipline_key
+             FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
+            WHERE     rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                  AND ro.res_ruimte_key = rr.res_ruimte_key
+                  AND rr.res_discipline_key = d.ins_discipline_key),
+          (SELECT ins_discipline_omschrijving
+             FROM ins_tab_discipline d, res_ruimte_opstelling ro, res_ruimte rr
+            WHERE     rrr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                  AND ro.res_ruimte_key = rr.res_ruimte_key
+                  AND rr.res_discipline_key = d.ins_discipline_key),
+          DECODE (rrr.alg_ruimte_key, NULL, 'Ja', 'Nee'),
+          rrr.res_rsv_ruimte_bezoekers,
+          rrr.res_rsv_ruimte_van,
+          rrr.res_rsv_ruimte_tot,
+          COALESCE ( (rrr.res_rsv_ruimte_tot - rrr.res_rsv_ruimte_van) * 24, 0),
+          (SELECT res_status_fo_omschrijving
+             FROM res_status_fo rs
+            WHERE rs.res_status_fo_key = rrr.res_status_fo_key),
+          (SELECT res_status_bo_omschrijving
+             FROM res_status_bo rs
+            WHERE rs.res_status_bo_key = rrr.res_status_bo_key),
+          ra.res_activiteit_omschrijving,
+          rsa.res_srtactiviteit_key,
+          rsa.res_srtactiviteit_omschrijving,
+          voorz.ins_discipline_key,
+          voorz.vtype,
+          voorz.catalogus,
+          voorz.product_key,
+          voorz.product,
+          voorz.totaalprijs,
+          TO_CHAR (voorz.van, 'hh24:mi'),
+          TO_CHAR (voorz.tot, 'hh24:mi'),
+          voorz.aantal,
+          voorz.prijs
+     FROM res_v_aanwezigrsv_ruimte rrr,
+          res_activiteit ra,
+          res_srtactiviteit rsa,
+          res_reservering res,
+          prs_kostenplaats k,
+          prs_perslid p,
+          prs_afdeling a,
+          (  SELECT res_rsv_ruimte_key,
+                    MAX (o.res_opstelling_omschrijving) opstelling,
+                    MAX (ra.alg_ruimte_key) alg_ruimte_key,
+                    MAX (rr.res_ruimte_nr) ruimte_nr
+               FROM res_rsv_ruimte r,
+                    res_ruimte_opstelling ro,
+                    res_opstelling o,
+                    res_ruimte rr,
+                    res_alg_ruimte ra
+              WHERE     r.res_rsv_ruimte_verwijder IS NULL
+                    AND r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
+                    AND ro.res_ruimte_key = rr.res_ruimte_key
+                    AND ro.res_opstelling_key = o.res_opstelling_key
+                    AND rr.res_ruimte_key = ra.res_ruimte_key
+           GROUP BY res_rsv_ruimte_key
+           UNION ALL
+           SELECT res_rsv_ruimte_key,
+                  '' opstelling,
+                  rrr.alg_ruimte_key,
+                  r.alg_ruimte_nr
+             FROM res_rsv_ruimte rrr, alg_ruimte r
+            WHERE rrr.alg_ruimte_key IS NOT NULL AND r.alg_ruimte_key = rrr.alg_ruimte_key) r2a,
+          (SELECT rrd.res_rsv_ruimte_key res_rsv_ruimte_key,
+                  -rd.res_deel_key product_key,
+                  rd.res_deel_omschrijving product,
+                  DECODE (
+                     rd.res_deel_prijs_vast,
+                     1,
+                     NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs),
+                       (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van)
+                     * 24
+                     * NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs))
+                     totaalprijs,
+                  rrd.res_rsv_deel_van van,
+                  rrd.res_rsv_deel_tot tot,
+                  (rrd.res_rsv_deel_tot - rrd.res_rsv_deel_van) * 24 aantal,
+                  NVL (rrd.res_rsv_deel_prijs, rd.res_deel_prijs) prijs,
+                  c.ins_discipline_key ins_discipline_key,
+                  c.ins_discipline_omschrijving catalogus,
+                  'object' vtype
+             FROM res_v_aanwezigrsv_deel rrd,
+                  res_deel rd,
+                  ins_deel d,
+                  ins_tab_discipline c
+            WHERE     rrd.res_deel_key = rd.res_deel_key
+                  AND d.ins_deel_key = rd.res_ins_deel_key
+                  AND rrd.res_rsv_ruimte_key IS NOT NULL
+                  AND c.ins_discipline_key = rd.res_discipline_key
+           UNION ALL
+           SELECT rra.res_rsv_ruimte_key res_rsv_ruimte_key,
+                  ra.res_artikel_key product_key,
+                  ra.res_artikel_omschrijving product,
+                  NVL (rra.res_rsv_artikel_prijs, rra.res_rsv_artikel_aantal * res_artikel_prijs)
+                     totaalprijs,
+                  rra.res_rsv_artikel_levering van,
+                  NULL tot,
+                  rra.res_rsv_artikel_aantal aantal,
+                  NVL (rra.res_rsv_artikel_prijs / rra.res_rsv_artikel_aantal, res_artikel_prijs)
+                     prijs,
+                  c.ins_discipline_key ins_discipline_key,
+                  c.ins_discipline_omschrijving catalogus,
+                  'consumable' vtype
+             FROM res_v_aanwezigrsv_artikel rra, res_artikel ra, ins_tab_discipline c
+            WHERE rra.res_artikel_key = ra.res_artikel_key
+                  AND ra.res_discipline_key = c.ins_discipline_key) voorz
+    WHERE     rrr.res_reservering_key = res.res_reservering_key
+          AND rrr.res_rsv_ruimte_key = r2a.res_rsv_ruimte_key(+)
+          AND rrr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+          AND rrr.res_rsv_ruimte_key = voorz.res_rsv_ruimte_key(+)
+          AND rrr.res_activiteit_key = ra.res_activiteit_key
+          AND ra.res_srtactiviteit_key = rsa.res_srtactiviteit_key
+          AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
+          AND p.prs_afdeling_key = a.prs_afdeling_key
+          AND (rrr.res_ruimte_opstel_key IS NOT NULL OR voorz.res_rsv_ruimte_key IS NOT NULL)
+          AND rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2009', 'DD-MM-YYYY');
+
 REGISTERRUN('$Id$')
 #endif  // RES

_UP/111TO112.SQL

@@ -1,151 +0,0 @@
-SPOOL 111to112
-
-/* SLE-module: performance verbetering */
-DROP VIEW sle_v_slot_gegevens;
-
-CREATE VIEW sle_v_slot_gegevens ( sle_slot_key,
-                                  sle_slot_omschrijving,
-                                  sle_slot_upper,
-                                  sle_alg_onroerendgoed_keys,
-                                  alg_locatie_key,
-                                  alg_onroerendgoed_keys,
-                                  alg_onroerendgoed_omschrijving,
-                                  alg_onroerendgoed_upper,
-                                  alg_verdieping_key,
-                                  alg_verdieping_omschrijving,
-                                  alg_verdieping_upper,
-                                  alg_verdieping_volgnr,
-                                  alg_ruimte_key,
-                                  alg_ruimte_nr,
-                                  alg_ruimte_upper_nr,
-                                  alg_type ) AS
-  SELECT SLE_S.sle_slot_key,
-         SLE_S.sle_slot_omschrijving,
-         SLE_S.sle_slot_upper,
-         ALG_G.alg_gebouw_key,
-         ALG_G.alg_locatie_key,
-         ALG_G.alg_gebouw_key,
-         ALG_G.alg_gebouw_omschrijving,
-         ALG_G.alg_gebouw_upper,
-         TO_NUMBER(NULL),
-         NULL,
-         NULL,
-         TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         NULL,
-         NULL,
-         'G'
-  FROM sle_slot SLE_S, alg_gebouw ALG_G
-  WHERE SLE_S.sle_alg_onroerendgoed_keys = ALG_G.alg_gebouw_key
-  UNION
-  SELECT SLE_S.sle_slot_key,
-         SLE_S.sle_slot_omschrijving,
-         SLE_S.sle_slot_upper,
-         ALG_V.alg_verdieping_key,
-         ALG_V.alg_locatie_key,
-         ALG_V.alg_gebouw_key,
-         ALG_V.alg_gebouw_omschrijving,
-         ALG_V.alg_gebouw_upper,
-         ALG_V.alg_verdieping_key,
-         ALG_V.alg_verdieping_omschrijving,
-         ALG_V.alg_verdieping_upper,
-         ALG_V.alg_verdieping_volgnr,
-         TO_NUMBER(NULL),
-         NULL,
-         NULL,
-         'V'
-  FROM sle_slot SLE_S, alg_v_verdieping_gegevens ALG_V
-  WHERE SLE_S.sle_alg_onroerendgoed_keys = ALG_V.alg_verdieping_key
-  UNION
-  SELECT SLE_S.sle_slot_key,
-         SLE_S.sle_slot_omschrijving,
-         SLE_S.sle_slot_upper,
-         ALG_R.alg_ruimte_key,
-         ALG_R.alg_locatie_key,
-         ALG_R.alg_gebouw_key,
-         ALG_R.alg_gebouw_omschrijving,
-         ALG_R.alg_gebouw_upper,
-         ALG_R.alg_verdieping_key,
-         ALG_R.alg_verdieping_omschrijving,
-         ALG_R.alg_verdieping_upper,
-         ALG_R.alg_verdieping_volgnr,
-         ALG_R.alg_ruimte_key,
-         ALG_R.alg_ruimte_nr,
-         ALG_R.alg_ruimte_upper_nr,
-         'R'
-  FROM sle_slot SLE_S, alg_v_ruimte_gegevens ALG_R
-  WHERE ALG_R.alg_ruimte_key = SLE_S.sle_alg_onroerendgoed_keys
-  UNION
-  SELECT SLE_S.sle_slot_key,
-         SLE_S.sle_slot_omschrijving,
-         SLE_S.sle_slot_upper,
-         ALG_T.alg_terreinsector_key,
-         ALG_T.alg_locatie_key,
-         ALG_T.alg_terreinsector_key,
-         ALG_T.alg_terreinsector_omschrijving,
-         ALG_T.alg_terreinsector_upper,
-         TO_NUMBER(NULL),
-         NULL,
-         NULL,
-         TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         NULL,
-         NULL,
-         'T'
-  FROM sle_slot SLE_S, alg_terreinsector ALG_T
-  WHERE SLE_S.sle_alg_onroerendgoed_keys = ALG_T.alg_terreinsector_key;
-
-/* systeemnamen in uppercase */
-
-update fac_entity_name set fac_entity_system_name=Upper(fac_entity_system_name);
-update fac_message set fac_message_code=Upper(fac_message_code);
-
-
-/* MRA-module: andere uniciteit voorschriften */
-ALTER TABLE mra_voorschrift
-DROP UNIQUE (mra_voorschrift_afk_upper);
-
-ALTER TABLE mra_voorschrift
-ADD UNIQUE (mra_voorschrift_afk_upper, mra_voorschrift_module);
-
-/* MRA-module: Nieuwe fac_messages */
-DELETE FROM fac_message WHERE fac_message_code = 'MANC_VOOR';
-
-INSERT INTO fac_message VALUES ('MANC_V_MIL', 'Manco bij milieuvoorschrift');
-INSERT INTO fac_message VALUES ('MANC_V_ARB', 'Manco bij arbovoorschrift');
-INSERT INTO fac_message VALUES ('MIL_VORS', 'Milieuvoorschrift');
-INSERT INTO fac_message VALUES ('ARB_VORS', 'Arbovoorschrift');
-
-INSERT INTO fac_message VALUES ('mra_m097', 'Milieuvoorschrift bij bestemming');
-INSERT INTO fac_message VALUES ('mra_m098', 'Arbovoorschrift bij bestemming');
-
-/* 04-04-96 AH  In bestelopdrachten van SONNEHEERDT moet de
- * MLD_BESTELOPDR_MODULE 'MLD' worden ipv. 'SON'.
- */
-UPDATE mld_bestelopdr
-SET mld_bestelopdr_module = 'MLD'
-WHERE mld_bestelopdr_module = 'SON';
-
-/* 04-04-96 AH  Messages voor de SONNEHEERDT-bestelbon.
- */
-insert into fac_message values('son_m001', 'STICHTING BEHEER SONNEHEERDT');
-insert into fac_message values('son_m002', 'Landelijk centrum voor blinden en slechtzienden');
-insert into fac_message values('son_m003', 'Dienst Gebouwen en Terreinen');
-insert into fac_message values('son_m004', 'Opdrachtbon met rekening meesturen. Op rekening WERKNUMMER vermelden.');
-insert into fac_message values('son_m005', 'Rekening in tweevoud zenden naar aangekruikt adres:');
-
-/* 04-04-96 AH  Opdrachtbon-kop accentueren.
- */
-UPDATE fac_message
-SET fac_message_text = 'OPDRACHTBON MELDINGEN'
-WHERE fac_message_code = 'MLD_M056';
-
-/* 05-04-96 AH  Opdrachtnr. voor Opdrachtbon.
- */
-insert into fac_entity_name values('MLD_OPDR_NR', 'Opdrachtnr.', NULL, 'het');
-
-UPDATE fac_message
-SET fac_message_text = 'Opdracht gereed : Ja / Nee'
-WHERE fac_message_code = 'MLD_M055';
-
-SPOOL OFF

_UP/112TO113.SQL

@@ -1,15 +0,0 @@
-SPOOL 112to113
-
-/*
- * Update script van versie 01.12 naar 01.13
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- * 09-04-96 KTH Lege file aangemaakt
- */
-
-/* geen SQL-wijzigingen voor 112to113 */
-
-SPOOL OFF

_UP/113TO114.SRC

@@ -1,294 +0,0 @@
-SPOOL 113to114
-
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.13 naar 01.14
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- * 16-04-96 EH   4 views voor MRA gewijzigd.
- * 16-04-96 AH   113to114.sql renamed to 113to114.SRC
- * 16-04-96 AH   INS_..._MODULE wordt gevuld met 'INS' als het veld leeg is.
- *               Als dit veld nog niet bestaat moet deze toegevoegd worden in
- *               de tabellen INS_DISCIPLINE, INS_SRTGROEP, INS_SRTDEEL
- *               en INS_DEEL.
- * 16-04-96 AH   Update van FAC_MESSAGE 'fac_m002' voor 'BCO  2.0'
- * 10-04-96 KTH  INV entities
- * 09-04-96 KTH  PRS entities
- * 09-04-96 KTH  Lege file aangemaakt
- */
-
-/* PRS updates voor FAC (tbv. meervouden/lidwoorden voor HELP): */
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID', 'Persoon', 'personen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_MAXCORR';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_MAXCORR', 'Corr. uren', 'Corr. uren', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_MAXPREV';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_MAXPREV', 'Prev. uren', 'Prev. uren', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_MAXTOTAAL';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_MAXTOTAAL', 'Totale uren', 'Totale uren', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_NR';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_NR', 'Pers.nr', 'Pers.nrs', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_VOORLETTERS';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_VOORLETTERS', 'Voorletters', 'Voorletters', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_SRTPERSLID';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_SRTPERSLID', 'Functie van persoon', 'Functies van persoon', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='RAPPORT';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('RAPPORT', 'Rapporteren', NULL, 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_INVENTARIS';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_INVENTARIS', 'Inventaris', 'Inventaris', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_DIENSTVERBAND';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_DIENSTVERBAND', 'Dienstverband', 'Dienstverbanden', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_FUNCOPP';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_FUNCOPP', 'Functie opp.', 'Functie opp.', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_OPP';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_OPP', 'Werkelijke opp.', 'Werkelijke opp.', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_INGANGSDATUM';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_INGANGSDATUM', 'Ingangsdatum', 'Ingangsdata', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_PERSLID_EINDDATUM';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_PERSLID_EINDDATUM', 'Einddatum', 'Einddata', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='PRS_WERKPLEK_OMSCHRIJVING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('PRS_WERKPLEK_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-
-/* INV updates voor FAC (tbv. meervouden/lidwoorden voor HELP): */
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DISCIPLINE_OMSCHRIJVING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DISCIPLINE_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTGROEP_OMSCHRIJVING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTGROEP_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTDEEL';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTDEEL', 'Artikelsoort', 'Artikelsoorten', 'het');DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTDEEL_OMSCHRIJVING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTDEEL_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTDEEL_KOPPELING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTDEEL_KOPPELING', 'Koppeling', 'Koppelingen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTDEEL_KOPPELING_RUIMTE';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTDEEL_KOPPELING_RUIMTE', 'Ruimte', 'ruimtes', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_SRTDEEL_KOPPELING_WERKPLEK';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_SRTDEEL_KOPPELING_WERKPLEK', 'Werkplek', 'werkplekken', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_SERIENR';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_SERIENR', 'Serienr.', 'serienrs.', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_OMSCHRIJVING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_OMSCHRIJVING', 'Omschrijving', 'omschrijvingen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_TYPE';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_TYPE', 'Type', 'types', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_BOUWJAAR';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_BOUWJAAR', 'Bouwjaar', 'bouwjaren', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_PRIJS';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_PRIJS', 'Prijs', 'prijzen', 'de');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_AANTAL';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_AANTAL', 'Aantal', 'aantallen', 'het');
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='INV_DEEL_OPMERKING';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('INV_DEEL_OPMERKING', 'Opmerking', 'opmerkingen', 'de');
-
-DELETE FROM FAC_MESSAGE WHERE FAC_MESSAGE_CODE='MLD_M147';
-INSERT INTO fac_message VALUES ('MLD_M147', 'Alleen nog niet verwerkte activiteiten');
-
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='MRA_COMMANDANT_DATUM';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('MRA_COMMANDANT_DATUM', 'Waarschuw.KazCo', NULL, NULL);
-
-DELETE FROM FAC_ENTITY_NAME WHERE FAC_ENTITY_SYSTEM_NAME='MRA_SRTDEELVERV';
-INSERT INTO FAC_ENTITY_NAME VALUES                      ('MRA_SRTDEELVERV', 'Stof', 'Stoffen', 'de');
-
-#ifdef MRA
-
-/*  Module MRA  */
-
-DROP VIEW mra_v_geinvoorschr_brug;
-DROP VIEW mra_v_geinvoorschr;
-DROP VIEW mra_v_voorschrift_rapport;
-DROP VIEW mra_v_ongein_rapport;
-
-INSERT INTO fac_privilege VALUES ('mra_v_geinvoorschr_brug', 2);
-CREATE VIEW mra_v_geinvoorschr_brug (mra_onroerendgoed_keys,
-                                     mra_voorschrift_key,
-                                     mra_onrgoedvoorschr_key,
-                                     type,
-                                     mra_voorschrift_voldaan) AS
-    SELECT mra_GVH.alg_onrgoed_key,
-           mra_GVH.mra_voorschrift_key,
-           mra_OGV.mra_onrgoedvoorschr_key,
-           mra_GVH.type,
-           mra_OGV.mra_onrgoedvoorschr_voldaan
-    FROM mra_v_geinvoorschr_hulp mra_GVH,
-         mra_onrgoedvoorschr mra_OGV
-    WHERE mra_GVH.mra_voorschrift_key = mra_OGV.mra_voorschrift_key (+) AND
-          mra_OGV.mra_onroerendgoed_keys (+) = mra_GVH.alg_onrgoed_key AND
-          mra_OGV.mra_onrgoedvoorschr_type (+) = mra_GVH.type;
-
-INSERT INTO fac_privilege VALUES ('mra_v_geinvoorschr', 2);
-CREATE VIEW mra_v_geinvoorschr (mra_onroerendgoed_keys,
-                                mra_voorschrift_key,
-                                type,
-                                mra_onrgoedvoorschr_key,
-                                mra_voorschrift_afk,
-                                mra_voorschrift_afk_upper,
-                                mra_voorschrift_module,
-                                mra_voorschrift_voldaan) AS
-    SELECT mra_GVB.mra_onroerendgoed_keys,
-           mra_GVB.mra_voorschrift_key,
-           mra_GVB.type,
-           mra_GVB.mra_onrgoedvoorschr_key,
-           mra_V.mra_voorschrift_afk,
-           mra_V.mra_voorschrift_afk_upper,
-           mra_V.mra_voorschrift_module,
-           mra_GVB.mra_voorschrift_voldaan
-    FROM mra_voorschrift MRA_V,
-         mra_v_geinvoorschr_brug mra_GVB
-    WHERE  mra_V.mra_voorschrift_key = mra_GVB.mra_voorschrift_key;
-
-INSERT INTO fac_privilege VALUES ('mra_v_voorschrift_rapport', 2);
-CREATE VIEW mra_v_voorschrift_rapport
-(
-    mra_onrgoedvoorschr_key,
-    mra_onrgoed_keys,
-    mra_voorschr_key,
-    mra_onrgoedvoorschr_voldaan,
-    type,
-    mra_onrgoedmanco_key,
-    mra_voorschr_afk,
-    mra_voorschrift_module,
-    mra_manco_omschrijving
-)
-AS
-    SELECT mra_OV.mra_onrgoedvoorschr_key,
-           mra_OV.mra_onroerendgoed_keys,
-           mra_OV.mra_voorschrift_key,
-           mra_OV.mra_onrgoedvoorschr_voldaan,
-           mra_OV.mra_onrgoedvoorschr_type,
-           mra_OM.mra_onrgoedmanco_key,
-           mra_V.mra_voorschrift_afk,
-           mra_V.mra_voorschrift_module,
-           mra_M.mra_manco_omschrijving
-    FROM   mra_onrgoedvoorschr mra_OV,
-           mra_onrgoedmanco mra_OM,
-           mra_voorschrift mra_V,
-           mra_manco mra_M
-    WHERE  mra_OM.mra_onrgoedvoorschr_key (+) = mra_OV.mra_onrgoedvoorschr_key AND
-           mra_OV.mra_voorschrift_key = mra_V.mra_voorschrift_key AND
-           mra_M.mra_manco_key (+) = mra_OM.mra_manco_key AND
-           mra_OV.mra_onrgoedvoorschr_voldaan = 0
-UNION
-    SELECT mra_OV.mra_onrgoedvoorschr_key,
-           mra_OV.mra_onroerendgoed_keys,
-           mra_OV.mra_voorschrift_key,
-           mra_OV.mra_onrgoedvoorschr_voldaan,
-           mra_OV.mra_onrgoedvoorschr_type,
-           to_number(NULL),
-           mra_V.mra_voorschrift_afk,
-           mra_V.mra_voorschrift_module,
-           NULL
-    FROM   mra_onrgoedvoorschr mra_OV,
-           mra_voorschrift mra_V
-    WHERE  mra_OV.mra_voorschrift_key = mra_V.mra_voorschrift_key AND
-           mra_OV.mra_onrgoedvoorschr_voldaan = 1;
-
-
-INSERT INTO fac_privilege VALUES ('mra_v_ongein_rapport', 2);
-CREATE VIEW mra_v_ongein_rapport
-(
-   mra_onroerendgoed_keys,
-   mra_voorschrift_key,
-   mra_voorschrift_afk,
-   mra_voorschrift_module,
-   type,
-   mra_manco_omschrijving)
-AS
-    SELECT mra_GV.mra_onroerendgoed_keys,
-           mra_GV.mra_voorschrift_key,
-           mra_GV.mra_voorschrift_afk,
-           mra_GV.mra_voorschrift_module,
-           mra_GV.type,
-           mra_M.mra_manco_omschrijving
-    FROM mra_v_geinvoorschr mra_GV,
-         mra_manco mra_M
-    WHERE  mra_GV.mra_voorschrift_key = mra_M.mra_voorschrift_key (+) AND
-           mra_GV.mra_voorschrift_voldaan IS NULL;
-
-#endif
-
-#ifdef  BCO
-
-UPDATE fac_message SET fac_message_text='BCO  2.0'
-WHERE UPPER(fac_message_code)=UPPER('fac_m002');
-
-#endif
-
-#ifdef  INS
-
-ALTER TABLE INS_DISCIPLINE
-ADD
-(
-    INS_DISCIPLINE_MODULE
-        VARCHAR2(3)
-);
-
-UPDATE INS_DISCIPLINE
-SET INS_DISCIPLINE_MODULE = 'INS'
-WHERE INS_DISCIPLINE_MODULE IS NULL;
-
-ALTER TABLE INS_DISCIPLINE
-MODIFY
-(
-    INS_DISCIPLINE_MODULE
-        NOT NULL
-);
-
-ALTER TABLE INS_SRTGROEP
-ADD
-(
-    INS_SRTGROEP_MODULE
-        VARCHAR2(3)
-);
-
-UPDATE INS_SRTGROEP
-SET INS_SRTGROEP_MODULE = 'INS'
-WHERE INS_SRTGROEP_MODULE IS NULL;
-
-ALTER TABLE INS_SRTGROEP
-MODIFY
-(
-    INS_SRTGROEP_MODULE
-        NOT NULL
-);
-
-ALTER TABLE INS_SRTDEEL
-ADD
-(
-    INS_SRTDEEL_MODULE
-        VARCHAR2(3)
-);
-
-UPDATE INS_SRTDEEL
-SET INS_SRTDEEL_MODULE = 'INS'
-WHERE INS_SRTDEEL_MODULE IS NULL;
-
-ALTER TABLE INS_SRTDEEL
-MODIFY
-(
-    INS_SRTDEEL_MODULE
-        NOT NULL
-);
-
-ALTER TABLE INS_DEEL
-ADD
-(
-    INS_DEEL_MODULE
-        VARCHAR2(3)
-);
-
-UPDATE INS_DEEL
-SET INS_DEEL_MODULE = 'INS'
-WHERE INS_DEEL_MODULE IS NULL;
-
-ALTER TABLE INS_DEEL
-MODIFY
-(
-    INS_DEEL_MODULE
-        NOT NULL
-);
-
-#endif
-
-SPOOL OFF

_UP/115TO116.SRC

@@ -1,866 +0,0 @@
-SPOOL 115to116
-
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.15 naar 01.16
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- *
- * 05-06-96 KTH SPOOL-filenaam gecorrigeerd (was nog 114to115)
- * 05-06-96 AH  PRS-entities toegevoegd
- * 04-06-96 EH  View prs_v_werkplek_gegevens intern aangepast (Performance)
- * 03-06-96 EH  2 entities voor PRS toegevoegd.
- * 03-06-96 AH  INV_SRTDEEL-entity is Artikelsoort geworden.
- * 31-05-96 AH  LEV-message tegevoegd.
- * 31-05-96 AH  INS_T_INS_DEEL_B_IU aangepast voor INV/LEV. INS_Alg_ruimte_key
- *              kan ook 'L' (locaties) bevatten.
- * 31-05-96 AH  Voor LEV is de UNIQUE op INS_DEEL veranderd.
- * 31-05-96 AH  INV-entities en messages toegevoegd
- * 31-05-96 AH  Views INV_V_DEEL_GEGEVENS, INV_V_DEEL_PLAATS_GEGEVENS
- *              en INV_V_DEEL_BEZIT_GEGEVENS aangepast
- * 31-05-96 AH  Vakgroep, Artikelgroep en Artikelsoort aangepast in
- *              entities en messages
- * 29-05-96 EH  Aan de view prs_v_werkplekperslidgegevens persleden weer hun
- *              afdeling teruggegeven.
- * 29-05-96 EH  Lege file aangemaakt
- */
-
-#include "comsql.h"
-
-#ifdef PRS
-
-CREATE OR REPLACE VIEW prs_v_werkplek_gegevens AS
-    SELECT PRS_W.prs_werkplek_key,
-           PRS_W.prs_werkplek_volgnr,
-           PRS_W.prs_werkplek_omschrijving,
-           PRS_W.prs_werkplek_opp,
-           ALG_R.alg_ruimte_key,
-           ALG_R.alg_ruimte_nr,
-           ALG_R.alg_ruimte_upper_nr,
-           ALG_R.alg_ruimte_bruto_vloeropp,
-           ALG_V.alg_verdieping_key,
-           ALG_V.alg_verdieping_volgnr,
-           ALG_V.alg_verdieping_omschrijving,
-           ALG_G.alg_gebouw_key,
-           ALG_G.alg_gebouw_omschrijving,
-           ALG_G.alg_gebouw_upper,
-           ALG_G.alg_locatie_key
-    FROM prs_v_aanwezigwerkplek PRS_W, alg_ruimte ALG_R,
-         alg_verdieping ALG_V, alg_gebouw ALG_G
-    WHERE ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-      AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-      AND PRS_W.prs_alg_ruimte_key = ALG_R.alg_ruimte_key;
-
-CREATE_VIEW(prs_v_werkplekperslid_gegevens,NORMAAL_PRIVILEGE)
-                                           ( prs_perslidwerkplek_key,
-                                             prs_perslid_key,
-                                             prs_afdeling_key,
-                                             prs_naam,
-                                             prs_werkplek_key,
-                                             prs_werkplek_volgnr,
-                                             prs_werkplek_opp,
-                                             alg_locatie_key,
-                                             alg_gebouw_omschrijving,
-                                             alg_gebouw_upper,
-                                             alg_verdieping_volgnr,
-                                             alg_verdieping_omschrijving,
-                                             alg_ruimte_nr,
-                                             alg_ruimte_upper_nr ) AS
-    SELECT PRS_PW.prs_perslidwerkplek_key,
-           PRS_PW.prs_perslid_key,
-           PRS_P.prs_afdeling_key,
-           PRS_P.prs_perslid_naam||' '||prs_perslid_voorletters,
-           PRS_PW.prs_werkplek_key,
-           PRS_W.prs_werkplek_volgnr,
-           PRS_W.prs_werkplek_opp,
-           PRS_W.alg_locatie_key,
-           PRS_W.alg_gebouw_omschrijving,
-           PRS_W.alg_gebouw_upper,
-           PRS_W.alg_verdieping_volgnr,
-           PRS_W.alg_verdieping_omschrijving,
-           PRS_W.alg_ruimte_nr,
-           PRS_W.alg_ruimte_upper_nr
-    FROM prs_v_aanwezigperslidwerkplek PRS_PW, prs_perslid PRS_P,
-         prs_v_werkplek_gegevens PRS_W
-    WHERE PRS_PW.prs_perslid_key = PRS_P.prs_perslid_key
-      AND PRS_PW.prs_werkplek_key = PRS_W.prs_werkplek_key
-UNION
-    SELECT PRS_PW.prs_perslidwerkplek_key,
-           to_number(NULL),
-           PRS_PW.prs_afdeling_key,
-           '['||PRS_A.prs_afdeling_naam||']',
-           PRS_PW.prs_werkplek_key,
-           PRS_W.prs_werkplek_volgnr,
-           PRS_W.prs_werkplek_opp,
-           PRS_W.alg_locatie_key,
-           PRS_W.alg_gebouw_omschrijving,
-           PRS_W.alg_gebouw_upper,
-           PRS_W.alg_verdieping_volgnr,
-           PRS_W.alg_verdieping_omschrijving,
-           PRS_W.alg_ruimte_nr,
-           PRS_W.alg_ruimte_upper_nr
-    FROM prs_v_aanwezigperslidwerkplek PRS_PW, prs_afdeling PRS_A,
-         prs_v_werkplek_gegevens PRS_W
-    WHERE PRS_PW.prs_afdeling_key = PRS_A.prs_afdeling_key
-      AND PRS_PW.prs_werkplek_key = PRS_W.prs_werkplek_key;
-
-#endif //PRS
-
-DEF_FAC_ENTITY ('PRS_RAFRAP_PERC', 'Perc.', NULL, NULL);
-DEF_FAC_ENTITY ('PRS_RAFRAP_OPP', 'Opp. (m2)', NULL, NULL);
-DEF_FAC_ENTITY ('PRS_OGWRAP_BUTTON', 'Overzicht', NULL, NULL);
-
-DEF_FAC_ENTITY ('INV_SRTDEEL', 'Artikel', 'Artikelen', 'het');
-
-
-DEF_FAC_MESSAGE ('inv_m001', 'Verwijderen vakgroep ');
-DEF_FAC_MESSAGE ('inv_m002', 'De omschrijving van de vakgroep is niet ingevuld.');
-DEF_FAC_MESSAGE ('inv_m004', 'De vakgroep is niet ingevuld.');
-DEF_FAC_MESSAGE ('inv_m007', 'De omschrijving voor het artikelsoort is niet ingevuld.');
-DEF_FAC_MESSAGE ('inv_m008', 'Verwijderen artikelsoort ');
-DEF_FAC_MESSAGE ('inv_m012', 'Het artikelsoort is niet ingevuld.');
-
-#ifdef  INV
-CREATE_VIEW(inv_v_deel_gegevens,NORMAAL_PRIVILEGE) AS
-    SELECT INV_D.ins_discipline_key, INV_D.ins_discipline_omschrijving,
-           INV_SG.ins_srtgroep_key, INV_SG.ins_srtgroep_omschrijving,
-           INV_SG.ins_srtgroep_upper, INV_SD.ins_srtdeel_key,
-           INV_SD.ins_srtdeel_omschrijving, INV_SD.ins_srtdeel_upper,
-           INV_SD.inv_srtdeel_nr,
-           INV_DEEL.ins_deel_key, INV_DEEL.ins_deel_aantal,
-           INV_DEEL.ins_deel_omschrijving, INV_DEEL.ins_deel_upper,
-           INV_DEEL.ins_deel_serienr, INV_DEEL.ins_alg_ruimte_key,
-           INV_DEEL.ins_alg_ruimte_type, INV_DEEL.ins_prs_bezit_key,
-           INV_DEEL.ins_prs_bezit_type
-#ifdef  LEV
-           , INV_DEEL.lev_afvoerlijst_datum
-#endif
-    FROM inv_v_aanwezigdiscipline INV_D, inv_v_aanwezigsrtgroep INV_SG,
-         inv_v_aanwezigsrtdeel INV_SD, inv_v_aanwezigdeel INV_DEEL
-    WHERE INV_SG.ins_srtgroep_key = INV_SD.ins_srtgroep_key
-      AND INV_D.ins_discipline_key = INV_SG.ins_discipline_key
-      AND INV_DEEL.ins_srtdeel_key = INV_SD.ins_srtdeel_key;
-
-CREATE_VIEW(inv_v_deel_plaats_gegevens,NORMAAL_PRIVILEGE)
-                                       (ins_deel_key, ins_deel_omschrijving,
-                                        ins_deel_upper, ins_deel_aantal,
-                                        ins_alg_ruimte_key,
-                                        ins_alg_ruimte_type, ins_srtdeel_key,
-#ifdef  INV
-                                        inv_srtdeel_nr,
-#endif
-                                        ins_srtdeel_omschrijving, ins_srtdeel_upper,
-                                        alg_locatie_key, alg_gebouw_key,
-                                        alg_gebouw_omschrijving, alg_gebouw_upper,
-                                        alg_verdieping_key, alg_verdieping_omschrijving,
-                                        alg_verdieping_volgnr, alg_ruimte_key,
-                                        alg_ruimte_nr, alg_ruimte_omschrijving,
-                                        alg_ruimte_upper_nr,
-                                        prs_werkplek_key, prs_werkplek_volgnr) AS
-    SELECT INV_D.ins_deel_key,
-           INV_D.ins_deel_omschrijving,
-           INV_D.ins_deel_upper,
-           INV_D.ins_deel_aantal,
-           INV_D.ins_alg_ruimte_key,
-           INV_D.ins_alg_ruimte_type,
-           INV_SD.ins_srtdeel_key,
-#ifdef  INV
-           INV_SD.inv_srtdeel_nr,
-#endif
-           INV_SD.ins_srtdeel_omschrijving,
-           INV_SD.ins_srtdeel_upper,
-           ALG_G.alg_locatie_key,
-           ALG_G.alg_gebouw_key,
-           ALG_G.alg_gebouw_omschrijving,
-           ALG_G.alg_gebouw_upper,
-           ALG_V.alg_verdieping_key,
-           ALG_V.alg_verdieping_omschrijving,
-           ALG_V.alg_verdieping_volgnr,
-           ALG_R.alg_ruimte_key,
-           ALG_R.alg_ruimte_nr,
-           ALG_R.alg_ruimte_omschrijving,
-           ALG_R.alg_ruimte_upper_nr,
-           TO_NUMBER(NULL),
-           TO_NUMBER(NULL)
-    FROM inv_v_aanwezigdeel INV_D, ins_srtdeel INV_SD,
-         alg_gebouw ALG_G, alg_verdieping ALG_V,
-         alg_ruimte ALG_R
-    WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
-      AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
-      AND INV_SD.ins_srtdeel_key = INV_D.ins_srtdeel_key
-      AND ALG_R.alg_ruimte_key = INV_D.ins_alg_ruimte_key
-      AND INV_D.ins_alg_ruimte_type = 'R'
-    UNION
-    SELECT INV_D.ins_deel_key,
-           INV_D.ins_deel_omschrijving,
-           INV_D.ins_deel_upper,
-           INV_D.ins_deel_aantal,
-           INV_D.ins_alg_ruimte_key,
-           INV_D.ins_alg_ruimte_type,
-           INV_SD.ins_srtdeel_key,
-#ifdef  INV
-           INV_SD.inv_srtdeel_nr,
-#endif
-           INV_SD.ins_srtdeel_omschrijving,
-           INV_SD.ins_srtdeel_upper,
-           ALG_G.alg_locatie_key,
-           ALG_G.alg_gebouw_key,
-           ALG_G.alg_gebouw_omschrijving,
-           ALG_G.alg_gebouw_upper,
-           ALG_V.alg_verdieping_key,
-           ALG_V.alg_verdieping_omschrijving,
-           ALG_V.alg_verdieping_volgnr,
-           ALG_R.alg_ruimte_key,
-           ALG_R.alg_ruimte_nr,
-           ALG_R.alg_ruimte_omschrijving,
-           ALG_R.alg_ruimte_upper_nr,
-           PRS_W.prs_werkplek_key,
-           PRS_W.prs_werkplek_volgnr
-    FROM inv_v_aanwezigdeel INV_D, ins_srtdeel INV_SD,
-         alg_gebouw ALG_G, alg_verdieping ALG_V,
-         alg_ruimte ALG_R, prs_werkplek PRS_W
-    WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
-      AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
-      AND ALG_R.alg_ruimte_key = PRS_W.prs_alg_ruimte_key
-      AND INV_SD.ins_srtdeel_key = INV_D.ins_srtdeel_key
-      AND PRS_W.prs_werkplek_key = INV_D.ins_alg_ruimte_key
-      AND INV_D.ins_alg_ruimte_type = 'W';
-
-
-CREATE_VIEW(inv_v_deel_bezit_gegevens,NORMAAL_PRIVILEGE)
-                                     (ins_discipline_key, ins_srtgroep_key,
-                                      ins_srtdeel_key, ins_srtdeel_omschrijving,
-                                      ins_srtdeel_upper,
-#ifdef  INV
-                                      inv_srtdeel_nr,
-#endif
-                                      ins_deel_key,
-                                      ins_deel_omschrijving, ins_deel_upper,
-                                      ins_deel_aantal,
-                                      ins_alg_ruimte_key, ins_alg_ruimte_type,
-                                      ins_prs_bezit_key, ins_prs_bezit_type,
-                                      prs_afdeling_key, prs_afdeling_naam,
-                                      prs_afdeling_omschrijving,
-                                      prs_afdeling_upper, prs_perslid_key,
-                                      prs_perslid_naam, prs_perslid_upper) AS
-    SELECT INV_D.ins_discipline_key,
-           INV_D.ins_srtgroep_key,
-           INV_D.ins_srtdeel_key,
-           INV_D.ins_srtdeel_omschrijving,
-           INV_D.ins_srtdeel_upper,
-#ifdef  INV
-           INV_D.inv_srtdeel_nr,
-#endif
-           INV_D.ins_deel_key,
-           INV_D.ins_deel_omschrijving,
-           INV_D.ins_deel_upper,
-           INV_D.ins_deel_aantal,
-           INV_D.ins_alg_ruimte_key,
-           INV_D.ins_alg_ruimte_type,
-           INV_D.ins_prs_bezit_key,
-           INV_D.ins_prs_bezit_type,
-           PRS_A.prs_afdeling_key,
-           PRS_A.prs_afdeling_naam,
-           PRS_A.prs_afdeling_omschrijving,
-           PRS_A.prs_afdeling_upper,
-           TO_NUMBER(NULL),
-           NULL,
-           NULL
-    FROM inv_v_deel_gegevens INV_D, prs_v_aanwezigafdeling PRS_A
-    WHERE INV_D.ins_prs_bezit_type = 'A'
-      AND INV_D.ins_prs_bezit_key = PRS_A.prs_afdeling_key
-    UNION
-    SELECT INV_D.ins_discipline_key,
-           INV_D.ins_srtgroep_key,
-           INV_D.ins_srtdeel_key,
-           INV_D.ins_srtdeel_omschrijving,
-           INV_D.ins_srtdeel_upper,
-#ifdef  INV
-           INV_D.inv_srtdeel_nr,
-#endif
-           INV_D.ins_deel_key,
-           INV_D.ins_deel_omschrijving,
-           INV_D.ins_deel_upper,
-           INV_D.ins_deel_aantal,
-           INV_D.ins_alg_ruimte_key,
-           INV_D.ins_alg_ruimte_type,
-           INV_D.ins_prs_bezit_key,
-           INV_D.ins_prs_bezit_type,
-           PRS_A.prs_afdeling_key,
-           PRS_A.prs_afdeling_naam,
-           PRS_A.prs_afdeling_omschrijving,
-           PRS_A.prs_afdeling_upper,
-           PRS_P.prs_perslid_key,
-           PRS_P.prs_perslid_naam||' '||PRS_P.prs_perslid_voorletters,
-           PRS_P.prs_perslid_upper||' '||UPPER(PRS_P.prs_perslid_voorletters)
-    FROM inv_v_deel_gegevens INV_D, prs_v_aanwezigafdeling PRS_A,
-         prs_v_aanwezigperslid PRS_P
-    WHERE INV_D.ins_prs_bezit_type = 'P'
-      AND INV_D.ins_prs_bezit_key = PRS_P.prs_perslid_key
-      AND PRS_P.prs_afdeling_key = PRS_A.prs_afdeling_key;
-
-CREATE TRIGGER ins_t_ins_deel_B_IU
-BEFORE INSERT OR UPDATE ON ins_deel
-FOR EACH ROW
-BEGIN
-    LOG('Begin INS_T_INS_DEEL_B_IU');
-    UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
-    UPDATE_UPPER(ins_deel_omschrijving,ins_deel_upper);
-    SET_VERWIJDER_CHILDREN(ins_onderdeel, ins_deel_key, ins_deel_verwijder,
-        ins_onderdeel_verwijder);
-
-    /* Bij INS_DEEL in INS-mode moet INS_ALG_RUIMTE_KEY ingevuld zijn
-     * en wel met ruimte of terreinsector, daarvoor moet ook het
-     * INS_ALG_RUIMTE_TYPE veld goed ingevuld zijn (met 'R' of 'T').
-     * Dit geldt als INS_ALG_RUIMTE_KEY veranderd is of als er een
-     * nieuw record geinsert wordt.
-     *
-     * IN INV-mode hoeft INS_ALG_RUIMTE_KEY niet ingevuld te zijn, maar
-     * als deze ingevuld is moet INS_ALG_RUIMTE_KEY met ruimte of werkplek
-     * gevuld zijn, daarvoor moet het veld INS_ALG_RUITMTE_KEY goed
-     * ingevuld zijn (met 'R' of 'W').
-     *
-     * IN INV-mode kan het veld INS_PRS_BEZIT_KEY ook ingevuld zijn, maar
-     * INS_ALG_RUIMTE_KEY en INS_PRS_BEZIT_KEY kunnen niet beide ingevuld worden.
-     * INS_PRS_BEZIT_KEY kan de waarde perslid of afdeling bevatten en het
-     * veld INS_PRS_BEZIT_TYPE moet dan goed ingevuld zijn (met 'P' of 'A').
-     */
-    IF :new.ins_deel_module = 'INS'
-    AND (:old.ins_alg_ruimte_key <> :new.ins_alg_ruimte_key
-    OR :old.ins_alg_ruimte_key IS NULL)
-    THEN
-        IF :new.ins_alg_ruimte_type = 'R'
-        THEN
-            CHECK_KEY_REFERENCE(alg_v_aanwezigruimte, alg_ruimte_key,
-                :new.ins_alg_ruimte_key, 'ins_m83');
-        ELSIF :new.ins_alg_ruimte_type = 'T'
-        THEN
-            CHECK_KEY_REFERENCE(alg_v_aanwezigterreinsector, alg_terreinsector_key,
-                :new.ins_alg_ruimte_key, 'ins_m83');
-        ELSE
-            APPLICATION_ERROR(-20000, 'ins_m84');
-        END IF;
-#ifdef  INV
-    ELSIF :new.ins_deel_module = 'INV'
-    AND (:new.ins_alg_ruimte_key IS NOT NULL
-    OR :new.ins_prs_bezit_key IS NOT NULL )
-    THEN
-        IF :new.ins_alg_ruimte_key IS NOT NULL
-        AND :new.ins_prs_bezit_key IS NOT NULL
-        THEN
-            APPLICATION_ERROR(-20000, 'ins_m85');
-        ELSIF :new.ins_alg_ruimte_key IS NOT NULL
-        THEN
-            IF :new.ins_alg_ruimte_type = 'R'
-            THEN
-                CHECK_KEY_REFERENCE(alg_v_aanwezigruimte, alg_ruimte_key,
-                    :new.ins_alg_ruimte_key, 'ins_m88');
-            ELSIF :new.ins_alg_ruimte_type = 'W'
-            THEN
-                CHECK_KEY_REFERENCE(prs_v_aanwezigwerkplek, prs_werkplek_key,
-                    :new.ins_alg_ruimte_key, 'ins_m88');
-            ELSIF :new.ins_alg_ruimte_type = 'L'
-            THEN
-                CHECK_KEY_REFERENCE(alg_v_aanweziglocatie, alg_locatie_key,
-                    :new.ins_alg_ruimte_key, 'ins_m88');
-            ELSE
-                APPLICATION_ERROR(-20000, 'ins_m84');
-            END IF;
-        ELSIF :new.ins_prs_bezit_key IS NOT NULL
-        THEN
-            IF :new.ins_prs_bezit_type = 'P'
-            THEN
-                CHECK_KEY_REFERENCE(prs_v_aanwezigperslid, prs_perslid_key,
-                    :new.ins_prs_bezit_key, 'ins_m86');
-            ELSIF :new.ins_prs_bezit_type = 'A'
-            THEN
-                CHECK_KEY_REFERENCE(prs_v_aanwezigafdeling, prs_afdeling_key,
-                    :new.ins_prs_bezit_key, 'ins_m86');
-            ELSE
-                APPLICATION_ERROR(-20000, 'ins_m86');
-            END IF;
-        ELSE
-            APPLICATION_ERROR(-20000, 'ins_m87');
-        END IF;
-#endif
-    END IF;
-#ifdef  INV
-    /* Als een INS_DEEL in INV-mode (red. een artikel) verwijderd, gekoppeld,
-     * ontkoppeld of verplaatst wordt van een ruimte of een werkplek,
-     * dan is de bijbehorende verdieping-tekening niet meer up to date en
-     * moet dus het INV_DWGUPTODATE-veld gezet worden.
-     *
-     * Als in INV-mode het INS_DEEL van INS_SRTDEEL veranderd,
-     * moet in het geval dit INS_SRTDEEL een ander ACADSYMBOL heeft
-     * het INV_DWGUPTODATE-veld van de verdiepingtekening ook gezet worden.
-     */
-    IF :new.ins_deel_module = 'INV'
-    THEN
-        /* Verwijderen */
-        IF :new.ins_deel_verwijder IS NOT NULL
-        /* Koppelen */
-        OR (:old.ins_alg_ruimte_key IS NULL
-        AND :new.ins_alg_ruimte_key IS NOT NULL)
-        /* Ontkoppelen */
-        OR (:old.ins_alg_ruimte_key IS NOT NULL
-        AND :new.ins_alg_ruimte_key IS NULL)
-        /* Verplaatsen */
-        OR (:old.ins_alg_ruimte_key <> :new.ins_alg_ruimte_key)
-        /* Van INS_SRTDEEL veranderen.
-         * ACADSYMBOL is hierin nog niet verwerkt.
-         */
-        OR (:old.ins_srtdeel_key <> :new.ins_srtdeel_key)
-        THEN
-            /* Voor de oude INS_ALG_RUIMTE_KEY */
-            IF :old.ins_alg_ruimte_type = 'R'
-            AND :old.ins_alg_ruimte_key IS NOT NULL
-            THEN
-                SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
-                    (SELECT ALG_R.alg_verdieping_key
-                     FROM alg_ruimte ALG_R
-                     WHERE ALG_R.alg_ruimte_key = :old.ins_alg_ruimte_key),
-                    inv_dwguptodate);
-            ELSIF :old.ins_alg_ruimte_type = 'W'
-            AND :old.ins_alg_ruimte_key IS NOT NULL
-            THEN
-                SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
-                    (SELECT ALG_R.alg_verdieping_key
-                     FROM prs_v_aanwezigwerkplek PRS_W,
-                          alg_ruimte ALG_R
-                     WHERE PRS_W.prs_werkplek_key = :old.ins_alg_ruimte_key
-                       AND ALG_R.alg_ruimte_key = PRS_W.prs_alg_ruimte_key),
-                    inv_dwguptodate);
-            END IF;
-            /* Voor de nieuwe INS_ALG_RUIMTE_KEY*/
-            IF :new.ins_alg_ruimte_type = 'R'
-            AND :new.ins_alg_ruimte_key IS NOT NULL
-            THEN
-                SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
-                    (SELECT ALG_R.alg_verdieping_key
-                     FROM alg_ruimte ALG_R
-                     WHERE ALG_R.alg_ruimte_key = :new.ins_alg_ruimte_key),
-                    inv_dwguptodate);
-            ELSIF :new.ins_alg_ruimte_type = 'W'
-            AND :new.ins_alg_ruimte_key IS NOT NULL
-            THEN
-                SET_DWGUPTODATE(alg_verdieping, alg_verdieping_key,
-                    (SELECT ALG_R.alg_verdieping_key
-                     FROM prs_v_aanwezigwerkplek PRS_W,
-                          alg_ruimte ALG_R
-                     WHERE PRS_W.prs_werkplek_key = :new.ins_alg_ruimte_key
-                       AND ALG_R.alg_ruimte_key = PRS_W.prs_alg_ruimte_key),
-                    inv_dwguptodate);
-            END IF;
-        END IF;
-     END IF;
-#endif // INV
-
-/*   Gedeelte t.b.v. eventuele attribuutjes   */
-
-     DECLARE dummy NUMBER;
-     BEGIN
-        SELECT count(*) INTO dummy
-        FROM ins_v_attribute_gegevens
-        WHERE ins_srtdeel_key = :new.ins_srtdeel_key;
-
-        IF dummy <> 0 /* attributen aanwezig */
-        THEN
-           IF :new.fac0 <> :old.fac0 OR :new.fac0 IS NULL OR :old.fac0 IS NULL
-           THEN
-/*
- *  Trigger t.b.v. de 'flexibele' velden in ins_deel
- */
-              CHECK_ATTRIBUTE(fac0,0);
-           END IF;
-
-           IF :new.fac1 <> :old.fac1 OR :new.fac1 IS NULL OR :old.fac1 IS NULL THEN CHECK_ATTRIBUTE(fac1,1); END IF;
-           IF :new.fac2 <> :old.fac2 OR :new.fac2 IS NULL OR :old.fac2 IS NULL THEN CHECK_ATTRIBUTE(fac2,2); END IF;
-           IF :new.fac3 <> :old.fac3 OR :new.fac3 IS NULL OR :old.fac3 IS NULL THEN CHECK_ATTRIBUTE(fac3,3); END IF;
-           IF :new.fac4 <> :old.fac4 OR :new.fac4 IS NULL OR :old.fac4 IS NULL THEN CHECK_ATTRIBUTE(fac4,4); END IF;
-           IF :new.fac5 <> :old.fac5 OR :new.fac5 IS NULL OR :old.fac5 IS NULL THEN CHECK_ATTRIBUTE(fac5,5); END IF;
-           IF :new.fac6 <> :old.fac6 OR :new.fac6 IS NULL OR :old.fac6 IS NULL THEN CHECK_ATTRIBUTE(fac6,6); END IF;
-           IF :new.fac7 <> :old.fac7 OR :new.fac7 IS NULL OR :old.fac7 IS NULL THEN CHECK_ATTRIBUTE(fac7,7); END IF;
-           IF :new.fac8 <> :old.fac8 OR :new.fac8 IS NULL OR :old.fac8 IS NULL THEN CHECK_ATTRIBUTE(fac8,8); END IF;
-           IF :new.fac9 <> :old.fac9 OR :new.fac9 IS NULL OR :old.fac9 IS NULL THEN CHECK_ATTRIBUTE(fac9,9); END IF;
-
-        END IF;
-     END;
-
-/*   Einde attributen   */
-
-#ifdef BCP
-
-    /*  Procedure Taak  */
-    IF :new.ins_deel_module = 'INS' AND :new.ins_alg_ruimte_type = 'R'
-    THEN
-      DECLARE
-
-        /* zoek taak bij nGebouw en bij deelsoort */
-        CURSOR c1(nGebouw NUMBER, nSrtdeel NUMBER) IS
-        SELECT A.bcp_taak_key, B.bcp_verzamel_key
-        FROM bcp_v_aanwezigtaak A, bcp_v_aanwezigverzamel B
-        WHERE A.bcp_verzamel_key = B.bcp_verzamel_key
-          AND B.bcp_ins_srtdeel_key = nSrtdeel
-          AND A.bcp_alg_gebouw_key = nGebouw;
-
-        Rec c1%ROWTYPE;
-
-        /* zoek alle verzamelopdrachten bij een deelsoort */
-        CURSOR c2(nSrtdeel NUMBER) IS
-        SELECT bcp_verzamel_key
-        FROM bcp_v_aanwezigverzamel
-        WHERE bcp_ins_srtdeel_key = nSrtdeel;
-
-        Rec2 c2%ROWTYPE;
-
-        nGebouw     NUMBER(10);
-        nOudGebouw  NUMBER(10);
-        nVerzamel   NUMBER(10);
-        nUren       NUMBER(10);
-        nMateriaal  NUMBER(12);
-        nFreqWeken  NUMBER(2);
-        nSector     NUMBER(2);
-        nStartweek  NUMBER(4);
-        nStartwerkweek  NUMBER(4);
-        nJaar       NUMBER(4);
-        nWeek       NUMBER(4);
-        nWerkweek   NUMBER(4);
-        nTaak       NUMBER(10);
-        nStatus     NUMBER(10);
-        nFactor     NUMBER(10);
-        teller      NUMBER(10);
-        teller2     NUMBER(10);
-        totaal      NUMBER(10);
-        aant        NUMBER(10);
-        nStatusUpper    VARCHAR2(30);
-        verzamel_veranderd BOOLEAN;
-        taken_veranderd BOOLEAN;
-        nOthing     BOOLEAN;
-
-      BEGIN
-
-        /* zoek gebouw en sector bij ruimte waar deel is */
-        SELECT A.alg_gebouw_key, A.bco_gebouw_sector
-        INTO nGebouw, nSector
-        FROM alg_v_aanweziggebouw A, alg_v_aanwezigverdieping B, alg_v_aanwezigruimte C
-        WHERE A.alg_gebouw_key = B.alg_gebouw_key
-          AND B.alg_verdieping_key = C.alg_verdieping_key
-          AND C.alg_ruimte_key = :new.ins_alg_ruimte_key;
-
-        IF NOT :old.ins_srtdeel_key IS NULL THEN
-            SELECT A.alg_gebouw_key
-            INTO nOudGebouw
-            FROM alg_v_aanweziggebouw A, alg_v_aanwezigverdieping B, alg_v_aanwezigruimte C
-            WHERE A.alg_gebouw_key = B.alg_gebouw_key
-              AND B.alg_verdieping_key = C.alg_verdieping_key
-              AND C.alg_ruimte_key = :old.ins_alg_ruimte_key;
-        END IF;
-
-        /* bepalen of de taken en eventueel de verzamelopdrachten van
-           het deel veranderd zijn. */
-        IF (:new.ins_srtdeel_key = :old.ins_srtdeel_key) AND (nGebouw = nOudGebouw) THEN
-            verzamel_veranderd := FALSE;
-            taken_veranderd := FALSE;
-        ELSIF (:new.ins_srtdeel_key = :old.ins_srtdeel_key) THEN
-            verzamel_veranderd := TRUE;
-            taken_veranderd := FALSE;
-        ELSE
-            verzamel_veranderd := TRUE;
-            taken_veranderd := TRUE;
-        END IF;
-
-        IF taken_veranderd THEN
-
-            /* alleen de taken bij oud_deel updaten als er een oud_deel is */
-            IF (NOT :old.ins_srtdeel_key IS NULL)
-               AND (NOT nOudGebouw IS NULL)
-               AND (NOT :old.ins_deel_verwijder = NULLDATUM)
-            THEN
-                OPEN c1(nOudGebouw, :old.ins_srtdeel_key);
-                LOOP
-                    FETCH c1 INTO Rec;
-                    EXIT WHEN c1%NOTFOUND;
-
-                    nTaak := Rec.bcp_taak_key;
-
-                    SELECT bcp_taak_aantal, bcp_ins_deel_aantal
-                    INTO totaal, teller
-                    FROM bcp_v_aanwezigtaak
-                    WHERE bcp_taak_key = nTaak;
-
-                    IF (teller = 1) THEN
-
-                        UPDATE bcp_taak
-                        SET bcp_taak_verwijder = SYSDATE
-                        WHERE bcp_taak_key = nTaak;
-
-                    ELSIF (teller > 1) THEN
-
-                        /* bepaal aantal van het te verwijderen deel ...*/
-                        aant := :old.ins_deel_aantal;
-
-                        /* ... en pas de taak aan */
-                        UPDATE bcp_taak
-                        SET bcp_taak_uren = (totaal-aant)/totaal * bcp_taak_uren,
-                            bcp_taak_materiaal = (totaal-aant)/totaal * bcp_taak_materiaal,
-                            bcp_ins_deel_aantal = bcp_ins_deel_aantal-1,
-                            bcp_taak_aantal = bcp_taak_aantal - :old.ins_deel_aantal
-                        WHERE bcp_taak_key = nTaak;
-                    END IF;
-                END LOOP;
-                CLOSE c1;
-            END IF; /* einde: CHANGE? */
-
-            /* nu passen we het nieuwe deel in de taken in,
-               (nog steeds taken_veranderd=TRUE) */
-
-            IF (NOT :new.ins_srtdeel_key IS NULL)
-               AND (NOT nGebouw IS NULL)
-               AND (NOT :new.ins_deel_verwijder = NULLDATUM)
-            THEN
-                OPEN c2(:new.ins_srtdeel_key);
-                LOOP
-                    FETCH c2 INTO Rec2;
-                    EXIT WHEN c2%NOTFOUND;
-                    nVerzamel := Rec2.bcp_verzamel_key;
-
-                    /* zoek of er een taak is bij de verzamelopdracht
-                       en betreffende het gebouw */
-                    BEGIN
-                    SELECT bcp_taak_key
-                    INTO nTaak
-                    FROM bcp_v_aanwezigtaak
-                    WHERE bcp_verzamel_key = nVerzamel
-                      AND bcp_alg_gebouw_key = nGebouw;
-                    EXCEPTION
-                        WHEN NO_DATA_FOUND THEN
-                            nTaak:= NULL;
-                    END;
-
-                    IF (nTaak IS NULL) THEN /* geen taak bij verzamel gevonden */
-
-                        SELECT A.bcp_verzamel_uren, A.bcp_verzamel_materiaal, B.bcp_frequentie_weken
-                        INTO nUren, nMateriaal, nFreqWeken
-                        FROM bcp_verzamel A, bcp_frequentie B
-                        WHERE A.bcp_frequentie_key = B.bcp_frequentie_key
-                          AND A.bcp_verzamel_key = nVerzamel;
-
-                        nJaar := mod(to_number(to_char(SYSDATE, 'YYYY')),100);
-
-                        nStartweek := bcp_f_bcp4deel.bepaal_startweek(nSector, nFreqWeken, nVerzamel, nJaar);
-
-                        INSERT INTO bcp_taak(bcp_verzamel_key,
-                                     bcp_alg_gebouw_key,
-                                     bcp_taak_uren,
-                                     bcp_taak_materiaal,
-                                     bcp_taak_eersteweek,
-                                     bcp_taak_aantal,
-                                     bcp_ins_deel_aantal)
-                        VALUES(nVerzamel,
-                               nGebouw,
-                               nUren * :new.ins_deel_aantal,
-                               nMateriaal * :new.ins_deel_aantal,
-                               nStartweek,
-                               :new.ins_deel_aantal,
-                               1);
-
-                        SELECT bcp_taak_key
-                        INTO nTaak
-                        FROM bcp_v_aanwezigtaak
-                        WHERE bcp_verzamel_key = nVerzamel
-                          AND bcp_alg_gebouw_key = nGebouw;
-
-                        nStatus := bcp_f_bcp4deel.bepaalstatusopdrkey('BCP_STATUSOPDR_INGEPLAND');
-
-                        nWeek := to_number(to_char(SYSDATE, 'YY') || to_char(SYSDATE,'WW'));
-                        nOthing := bcp_f_bcp4deel.bcp_jaarweek2jaarwerkweek(nWeek, nWerkweek);
-
-                        nOthing := bcp_f_bcp4deel.bcp_jaarweek2jaarwerkweek(nStartweek, nStartwerkweek);
-
-                        INSERT INTO bcp_prevopdr(bcp_taak_key,
-                                     bcp_mld_statusopdr_key,
-                                     bcp_prevopdr_ingepland,
-                                     bcp_prevopdr_ingepland2)
-
-                        VALUES(nTaak,
-                               nStatus,
-                               nStartweek,
-                               nStartwerkweek);
-
-                    ELSE /* Taak gevonden, bij elke gevonden verzamelopdracht
-                        is er precies eentje, dus uniek */
-
-                        SELECT bcp_taak_aantal, bcp_ins_deel_aantal,
-                               bcp_taak_uren, bcp_taak_materiaal
-                        INTO teller, teller2, nUren, nMateriaal
-                        FROM bcp_v_aanwezigtaak A
-                        WHERE A.bcp_taak_key = nTaak;
-
-                        nFactor := (teller + :new.ins_deel_aantal)/teller;
-
-                        IF (nUren * nFactor > 999.99) THEN
-                            APPLICATION_ERROR(-20000,'bcp_m044');
-                        END IF;
-
-                        IF (nMateriaal * nFactor > 999999.99) THEN
-                            APPLICATION_ERROR(-20000,'bcp_m045');
-                        END IF;
-
-                        UPDATE bcp_taak
-                        SET bcp_taak_uren = bcp_taak_uren * nFactor,
-                            bcp_taak_materiaal = bcp_taak_materiaal * NFactor,
-                            bcp_taak_aantal = teller2 + :new.ins_deel_aantal,
-                            bcp_ins_deel_aantal = teller + 1
-                        WHERE bcp_taak_key = nTaak;
-                    END IF;
-                END LOOP;
-                CLOSE c2;
-            END IF;
-
-        ELSE /* taken niet veranderd, alleen uren & materiaal even updaten */
-
-            OPEN c1(nOudGebouw, :old.ins_srtdeel_key);
-            LOOP
-                FETCH c1 INTO Rec;
-                EXIT WHEN c1%NOTFOUND;
-
-                nTaak := Rec.bcp_taak_key;
-
-                SELECT bcp_taak_uren, bcp_taak_materiaal, bcp_taak_aantal
-                INTO nUren, nMateriaal, teller
-                FROM bcp_v_aanwezigtaak
-                WHERE bcp_taak_key = nTaak;
-
-                /* factor is (totaal-oud+nieuw)/totaal  */
-                nFactor := (teller + :new.ins_deel_aantal - :old.ins_deel_aantal)/teller;
-
-                IF (nUren * nFactor > 999.99) THEN
-                        APPLICATION_ERROR(-20000,'bcp_m044');
-                END IF;
-
-                IF (nMateriaal * nFactor > 999999.99) THEN
-                        APPLICATION_ERROR(-20000,'bcp_m045');
-                END IF;
-
-                UPDATE bcp_taak
-                SET bcp_taak_uren = bcp_taak_uren * nFactor,
-                    bcp_taak_materiaal = bcp_taak_materiaal * NFactor,
-                    bcp_taak_aantal = teller + :new.ins_deel_aantal - :old.ins_deel_aantal
-                WHERE bcp_taak_key = nTaak;
-            END LOOP; /* taken voor update */
-            CLOSE c1;
-        END IF; /* einde: taken_veranderd */
-      END;
-    END IF;
-#endif
-#ifdef  LEV
-    LOG('Begin voor gedeelte van LEV voor kostenpost');
-    /* Bij het aanmaken van een leveringsregel wordt een INS_DEEL
-     * aangemaakt. Als OLD.lev_levering_key IS NULL en NEW.lev_levering_key
-     * IS NOT NULL dan wordt dit INS_DEEL nieuw aangemaakt, dus kunnen
-     * de kosten van deze levering bij ALG_KOSTENPOST_BESTEED geboekt worden.
-     *
-     * Bij het wijzigen van een leveringsregel kan niet bepaald worden of
-     * in het scherm EDIT-levering het aantal aangepast is of bij
-     * toekenning een aantal het INS_DEEL verhuisd naar een ander INS_DEEL.
-     * Deze stap is opgelost in het form EDIT-levering.
-     */
-    IF :old.lev_levering_key IS NULL
-    AND :new.lev_levering_key IS NOT NULL
-    THEN
-       DECLARE
-          prijs   INS_SRTDEEL.INV_SRTDEEL_PRIJS%TYPE;
-       BEGIN
-          SELECT NVL(INS_SD.inv_srtdeel_prijs, 0)
-          INTO prijs
-          FROM ins_srtdeel INS_SD
-          WHERE INS_SD.ins_srtdeel_key = :new.ins_srtdeel_key;
-          UPDATE alg_kostenpost
-          SET alg_kostenpost_besteed = NVL(alg_kostenpost_besteed, 0) +
-             NVL(:new.ins_deel_aantal, 0) * prijs
-          WHERE alg_kostenpost_key = (SELECT lev_alg_kostenpost_key
-                                      FROM lev_bestelling
-                                      WHERE lev_bestelling_key = :new.lev_bestelling_key);
-       EXCEPTION
-          WHEN NO_DATA_FOUND
-          THEN NULL;
-       END;
-    END IF;
-    LOG('Einde voor gedeelte van LEV voor kostenpost');
-#endif
-    LOG('Eind INS_T_INS_DEEL_B_IU');
-END;
-/
-
-#endif  // INV
-
-DEF_FAC_ENTITY ('INV_VERHUIS_DATUM', 'Verhuisdatum', 'Verhuisdata', 'de');
-DEF_FAC_ENTITY ('INV_VERHUIS_VAN', 'Van', NULL, NULL);
-DEF_FAC_ENTITY ('INV_VERHUIS_NAAR', 'Naar', NULL, NULL);
-DEF_FAC_ENTITY ('INV_VERHUIS_BIJZONDERHEDEN', 'Bijzonderheden', NULL, 'de');
-
-DEF_FAC_MESSAGE ('INV_M037', 'Verhuisformulier');
-DEF_FAC_MESSAGE ('INV_M038', 'Het registratienummer moet ingevuld worden.');
-DEF_FAC_MESSAGE ('INV_M039', 'De datum is niet ingevuld.');
-DEF_FAC_MESSAGE ('INV_M040', 'Gewenste verhuisdatum');
-DEF_FAC_MESSAGE ('INV_M041', 'Het artikelnummer is niet ingevuld.');
-DEF_FAC_MESSAGE ('INV_M042', 'Gereserveerd voor afvoer');
-DEF_FAC_MESSAGE ('INV_M043', 'Artikel moet gekozen zijn.');
-DEF_FAC_MESSAGE ('INV_M044', 'Aantal te verwijderen artikelen');
-DEF_FAC_MESSAGE ('INV_M045', 'Het te verwijderen aantal moet kleiner of gelijk zijn aan het aantal delen.');
-
-#ifdef  LEV
-
-ALTER TABLE ins_deel
-DROP
-    UNIQUE(ins_alg_ruimte_key, ins_srtdeel_key, ins_deel_upper,
-           lev_levering_key, lev_bestelling_key, ins_deel_verwijder);
-
-ALTER TABLE ins_deel
-ADD
-    UNIQUE(ins_alg_ruimte_key, ins_srtdeel_key, ins_deel_upper,
-           lev_levering_key, lev_bestelling_key, lev_afvoerlijst_datum,
-           ins_deel_verwijder);
-
-#endif  // LEV
-
-INSERT INTO fac_message VALUES('LEV_M050', 'Alleen nog toe te wijzen leveringen');
-
-UPDATE fac_entity_name
-SET fac_entity_user_name = 'Artikelsoort',
-    fac_entity_user_name_m = 'Artikelsoorten',
-    fac_entity_user_name_pre = 'het'
-WHERE fac_entity_system_name = 'INV_SRTDEEL';
-
-UPDATE fac_message
-SET fac_message_text = 'Verwijderen vakgroep '
-WHERE fac_message_code = 'INV_M001';
-
-UPDATE fac_message
-SET fac_message_text = 'De omschrijving van de vakgroep is niet ingevuld.'
-WHERE fac_message_code = 'INV_M002';
-
-UPDATE fac_message
-SET fac_message_text = 'De vakgroep is niet ingevuld.'
-WHERE fac_message_code = 'INV_M004';
-
-UPDATE fac_message
-SET fac_message_text = 'De omschrijving voor het artikelsoort is niet ingevuld.'
-WHERE fac_message_code = 'INV_M007';
-
-UPDATE fac_message
-SET fac_message_text = 'Verwijderen artikelsoort '
-WHERE fac_message_code = 'INV_M008';
-
-UPDATE fac_message
-SET fac_message_text = 'Het artikelsoort is niet ingevuld.'
-WHERE fac_message_code = 'INV_M012';
-
-DEF_FAC_ENTITY ('PRS_PERSLID_ELCONR', 'Elconr.', 'Elconummers', 'het');
-DEF_FAC_ENTITY ('PRS_PERSLID_EENHEID', 'Eenheid', 'Eenheden', 'de');
-DEF_FAC_ENTITY ('PRS_PERSLID_RANG', 'Rang', 'Rangen', 'de');
-SPOOL OFF

_UP/116TO117.SRC

@@ -1,335 +0,0 @@
-SPOOL 116to117
-
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.16 naar 01.17
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- *
- * 25-06-96 EH  Entities ALG_VERDIEPING_OPP en ALG_GEBOUW_OPP toegevoegd.
- * 25-06-96 EH  View prevopdr_gegevens aangepast; view openprevopdr_gegevens
- *              verwijderd (redundant).
- * 21-06-96 AH  INV-messages 028 en 016 aangepast.
- * 21-06-96 EH  Message prs_m053 toegevoegd.
- * 20-06-96 AH  UNIQUE op PRS_WERKPLEK uitgebreid met PRS_WERKPLEK_MODULE.
- * 19-06-96 EH  Entity 'ALG_TERREINSECTOR_B' (voor button) toegevoegd.
- * 13-06-96 EH  De volgende indices toegevoegd:
- *              -  mld_alg_kostenpost_key aan mld_opdr
- *              -  mld_opdr_key aan mld_bestelregel
- *              -  mld_opdr_key aan bco_werkregel
- *              -  mld_statusopdr_key aan bcp_prevopdr
- *              -  bcp_prevopdr_key aan bco_werkregel
- *              -  mra_eenheid aan mld_melding
- *              -  mra_veroorzaker aan mld_melding
- * 13-06-96 EH  Indices voor LEV toegevoegd.
- * 13-06-96 EH  Indices voor SLE toegevoegd.
- * 13-06-96 AH  INV_M024 en INV_M030 saangepast.
- * 10-06-96 EH  Fac_message SCH_NIVO2 toegevoegd.
- * 10-06-96 EH  In ins_v_attr_hulp ins_v_.. veranderd in all_v ...
- * 10-06-96 AH  PRS_M052 toegevoegd.
- * 07-06-96 KTH fac_privilege.object_name moeten UPPERs zijn (zie COMSQL.H)
- * 07-06-96 EH  alg_locatie_key toegevoegd aan ins_v_onderdeel_gegevens
- * 07-06-96 EH  UNIQUE constraint op srtinst tabellen uitgebreid.
- * 06-06-96 AH  PRS_WERKPLEK_MODULE toegevoegd.
- * 05-06-96 KTH Lege file aangemaakt.
- */
-
-#include "comsql.h"
-
-update fac_privilege set object_name=UPPER(object_name);
-
-DEF_FAC_MESSAGE ('SCH_NIVO2','Schoonmaakniveau');
-DEF_FAC_MESSAGE ('PRS_M053', 'Afdeling moet worden ingevuld');
-
-DEF_FAC_ENTITY ('ALG_VERDIEPING_OPP', 'Netto vloeropp.', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_GEBOUW_OPP', 'Netto vloeropp.', NULL, NULL);
-
-#ifdef  PRS
-ALTER TABLE prs_werkplek
-ADD
-( prs_werkplek_module
-        VARCHAR2(3)
-        DEFAULT 'PRR');
-
-UPDATE prs_werkplek
-SET prs_werkplek_module = 'PRR';
-
-ALTER TABLE prs_werkplek
-MODIFY
-(
-    prs_werkplek_module
-        NOT NULL
-);
-#endif
-
-#ifdef  SLE
-
-CREATE INDEX sle_i_sle_sleutel_perslid1 ON sle_sleutel_perslid(sle_prs_perslid_key);
-CREATE INDEX sle_i_sle_sleutel_perslid2 ON sle_sleutel_perslid(sle_sleutel_key);
-
-CREATE INDEX sle_i_sle_sleutel_slot1 ON sle_sleutel_slot(sle_sleutel_key);
-CREATE INDEX sle_i_sle_sleutel_slot2 ON sle_sleutel_slot(sle_slot_key);
-
-CREATE INDEX sle_i_sle_slot ON sle_slot(sle_alg_onroerendgoed_keys);
-
-#endif
-
-#ifdef  LEV
-
-CREATE INDEX lev_i_lev_bestelling1 ON lev_bestelling (lev_alg_kostenpost_key);
-CREATE INDEX lev_i_lev_bestelling2 ON lev_bestelling (lev_prs_bedrijf_key);
-CREATE INDEX lev_i_lev_bestelling3 ON lev_bestelling (lev_prs_perslid_key);
-CREATE INDEX lev_i_lev_bestelling4 ON lev_bestelling (lev_alg_gebouw_key);
-
-CREATE INDEX lev_i_lev_bestelregel1 ON lev_bestelregel (lev_bestelling_key);
-CREATE INDEX lev_i_lev_bestelregel2 ON lev_bestelregel (lev_ins_srtdeel_key);
-CREATE INDEX lev_i_lev_bestelregel3 ON lev_bestelregel (lev_alg_ruimte_key);
-
-CREATE INDEX lev_i_lev_levering ON lev_levering (lev_prs_bedrijf_key);
-
-#endif
-
-#ifdef  MLD
-
-CREATE INDEX mld_i_mld_opdr7 on mld_opdr(mld_alg_kostenpost_key);
-CREATE INDEX mld_i_mld_bestelregel2 on mld_bestelregel(mld_opdr_key);
-
-#endif
-
-#ifdef  BCO
-
-CREATE INDEX bco_i_bco_werkregel2 on bco_werkregel(bco_mld_opdr_key);
-
-#endif
-
-#ifdef  BCP
-
-CREATE INDEX bcp_i_bcp_prevopdr4 on bcp_prevopdr(bcp_mld_statusopdr_key);
-CREATE INDEX bcp_i_bco_werkregel1 on bco_werkregel(bcp_prevopdr_key);
-
-CREATE_VIEW(bcp_v_prevopdr_gegevens,NORMAAL_PRIVILEGE)
-         ( bcp_prevopdr_key,
-           bcp_prevopdr_status,
-           bcp_prevopdr_jaarweek,
-           bcp_prevopdr_discipline,
-           bcp_prevopdr_locatie) AS
-SELECT BCP_P.bcp_prevopdr_key,
-       MLD_S.mld_statusopdr_omschrijving,
-       BCP_P.bcp_prevopdr_week,
-       INS_D.ins_discipline_omschrijving,
-       ALG_L.alg_locatie_omschrijving
-FROM bcp_prevopdr BCP_P,
-     mld_statusopdr MLD_S,
-     bcp_taak BCP_T,
-     bcp_v_aanwezigverzamel BCP_V,
-     ins_v_aanwezigsrtdeel INS_SD,
-     ins_srtgroep INS_SG,
-     ins_discipline INS_D,
-     alg_v_aanweziggebouw ALG_G,
-     alg_locatie ALG_L
-WHERE BCP_P.bcp_mld_statusopdr_key = MLD_S.mld_statusopdr_key
-  AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
-  AND BCP_T.bcp_verzamel_key = BCP_V.bcp_verzamel_key
-  AND BCP_V.bcp_ins_srtdeel_key = INS_SD.ins_srtdeel_key
-  AND INS_SD.ins_srtgroep_key = INS_SG.ins_srtgroep_key
-  AND INS_SG.ins_discipline_key = INS_D.ins_discipline_key
-  AND BCP_T.bcp_alg_gebouw_key = ALG_G.alg_gebouw_key
-  AND ALG_G.alg_locatie_key = ALG_L.alg_locatie_key;
-
-DROP VIEW bcp_v_openprevopdr_gegevens;
-#endif
-
-#ifdef MRA
-
-CREATE INDEX mra_i_mra_melding2 on mld_melding(mra_melding_melder_eenheid);
-CREATE INDEX mra_i_mra_melding3 on mld_melding(mra_melding_veroorzaker);
-
-#endif
-
-#ifdef  INS
-
-ALTER TABLE ins_discipline
-DROP
-    UNIQUE(ins_discipline_omschrijving, ins_discipline_verwijder);
-
-ALTER TABLE ins_srtgroep
-DROP
-    UNIQUE(ins_srtgroep_upper, ins_srtgroep_verwijder);
-
-ALTER TABLE ins_srtdeel
-DROP
-    UNIQUE(ins_srtdeel_upper, ins_srtdeel_verwijder);
-
-ALTER TABLE ins_discipline
-ADD
-(
-    UNIQUE(ins_discipline_omschrijving, ins_discipline_verwijder,
-           ins_discipline_module)
-);
-
-ALTER TABLE ins_srtgroep
-ADD
-(
-    UNIQUE(ins_srtgroep_upper, ins_srtgroep_verwijder, ins_srtgroep_module)
-);
-
-ALTER TABLE ins_srtdeel
-ADD
-(
-    UNIQUE(ins_srtdeel_upper,ins_srtdeel_verwijder, ins_srtdeel_module)
-);
-
-DROP VIEW ins_v_onderdeel_gegevens;
-
-CREATE VIEW ins_v_onderdeel_gegevens
-(
-    ins_srtdeel_key, ins_srtdeel_omschrijving,
-    ins_srtdeel_upper, ins_srtonderdeel_key,
-    ins_srtonderdeel_omschrijving, ins_srtonderdeel_upper,
-    ins_deel_key, ins_deel_omschrijving,
-    ins_deel_upper, ins_onderdeel_key,
-    ins_onderdeel_omschrijving, ins_onderdeel_aantal,
-    ins_onderdeel_fabrikaat, ins_onderdeel_type,
-    ins_onderdeel_serienr,ins_onderdeel_bouwjaar,
-    ins_onderdeel_capaciteit, ins_onderdeel_prijs,
-    ins_onderdeel_levensduur, ins_onderdeel_opmerking,
-    ins_onderdeel_upper, alg_locatie_key,
-    alg_gebouw_key, alg_gebouw_upper, alg_verdieping_key,
-    alg_verdieping_upper, alg_ruimte_key, alg_ruimte_nr,
-    plaatsdeel_omschrijving
-)
-AS
-    SELECT ins_D.ins_srtdeel_key, ins_D.ins_srtdeel_omschrijving,
-           ins_D.ins_srtdeel_upper, ins_SOD.ins_srtonderdeel_key,
-           ins_SOD.ins_srtonderdeel_omschrijving, ins_SOD.ins_srtonderdeel_upper,
-           ins_D.ins_deel_key, ins_D.ins_deel_omschrijving,
-           ins_D.ins_deel_upper, ins_OD.ins_onderdeel_key,
-           ins_OD.ins_onderdeel_omschrijving, ins_OD.ins_onderdeel_aantal,
-           ins_OD.ins_onderdeel_fabrikaat, ins_OD.ins_onderdeel_type,
-           ins_OD.ins_onderdeel_serienr,ins_OD.ins_onderdeel_bouwjaar,
-           ins_OD.ins_onderdeel_capaciteit, ins_OD.ins_onderdeel_prijs,
-           ins_OD.ins_onderdeel_levensduur, ins_OD.ins_onderdeel_opmerking,
-           ins_OD.ins_onderdeel_upper, ins_D.alg_locatie_key,
-           ins_D.alg_gebouw_key, ins_D.alg_gebouw_upper,
-           ins_D.alg_verdieping_key, ins_D.alg_verdieping_upper,
-           ins_D.alg_ruimte_key, ins_D.alg_ruimte_nr,
-           ins_D.plaatsdeel_omschrijving
-    FROM ins_v_aanwezigsrtonderdeel ins_SOD,
-         ins_v_aanwezigonderdeel ins_OD,
-         ins_v_deel_gegevens ins_D
-    WHERE
-        ins_SOD.ins_srtonderdeel_key  = ins_OD.ins_srtonderdeel_key AND
-        ins_D.ins_deel_key = ins_OD.ins_deel_key;
-
-CREATE_VIEW(ins_v_attr_hulp, NORMAAL_PRIVILEGE)
-                              (ins_discipline_key,
-                              ins_srtgroep_key,
-                              ins_srtdeel_key,
-                              ins_attribute_main_key) AS
-  SELECT INS_A.ins_srtinst_keys,
-         TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A
-  WHERE INS_A.ins_srtinst_type = 'D'
-UNION
-  SELECT TO_NUMBER(NULL),
-         INS_A.ins_srtinst_keys,
-         TO_NUMBER(NULL),
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A
-  WHERE INS_A.ins_srtinst_type = 'G'
-UNION
-  SELECT TO_NUMBER(NULL),
-         INS_SG.ins_srtgroep_key,
-         TO_NUMBER(NULL),
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A,
-       ins_srtgroep INS_SG
-  WHERE INS_A.ins_srtinst_type = 'D' AND
-        INS_A.ins_srtinst_keys = INS_SG.ins_discipline_key
-UNION
-  SELECT TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         INS_A.ins_srtinst_keys,
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A
-  WHERE INS_A.ins_srtinst_type = 'S'
-UNION
-  SELECT TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         INS_SD.ins_srtdeel_key,
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A,
-       ins_srtdeel INS_SD
-  WHERE INS_A.ins_srtinst_type = 'G' AND
-        INS_A.ins_srtinst_keys = INS_SD.ins_srtgroep_key
-UNION
-  SELECT TO_NUMBER(NULL),
-         TO_NUMBER(NULL),
-         INS_SDG.ins_srtdeel_key,
-         INS_A.ins_attribute_main_key
-  FROM ins_attribute INS_A,
-       all_v_srtdeel_gegevens INS_SDG
-  WHERE INS_A.ins_srtinst_type = 'D' AND
-        INS_A.ins_srtinst_keys = INS_SDG.ins_discipline_key;
-#endif
-
-INSERT INTO fac_message VALUES('PRS_M052', 'Inzetbaar voor storing');
-
-DELETE FROM fac_message
-WHERE UPPER(fac_message_code) = 'INV_M024';
-INSERT INTO fac_message VALUES('INV_M024', 'De plaats is niet ingevuld.');
-
-DELETE FROM fac_message
-WHERE UPPER(fac_message_code) = 'INV_M030';
-INSERT INTO fac_message VALUES('INV_M030', 'Inventaris in ruimte');
-
-DELETE FROM fac_message
-WHERE UPPER(fac_message_code) = 'INV_M028';
-INSERT INTO fac_message VALUES('INV_M028', 'De eigenaar is niet ingevuld.');
-
-DELETE FROM fac_message
-WHERE UPPER(fac_message_code) = 'INV_M016';
-INSERT INTO fac_message VALUES('INV_M016', 'Eigenaar van inventaris');
-
-#if defined(PMK)||defined(pmk)
-
-DEF_FAC_ENTITY ('ALG_TERREINSECTOR_B', 'Syst. cluster', Null, Null);
-
-#else
-
-DEF_FAC_ENTITY ('ALG_TERREINSECTOR_B', 'Terreinsector', 'Terreinsectoren', 'de');
-
-#endif
-
-#ifdef  PRS
-
-ALTER TABLE prs_werkplek
-DROP UNIQUE(prs_werkplek_volgnr, prs_alg_ruimte_key, prs_werkplek_verwijder);
-
-ALTER TABLE prs_werkplek
-ADD UNIQUE(prs_werkplek_module, prs_werkplek_volgnr, prs_alg_ruimte_key, prs_werkplek_verwijder);
-
-#endif
-
-#ifdef  LEV
-
-ALTER TABLE ins_deel
-DROP
-    UNIQUE(ins_alg_ruimte_key, ins_srtdeel_key, ins_deel_upper,
-           lev_levering_key, lev_bestelling_key, lev_afvoerlijst_datum,
-           ins_deel_verwijder);
-
-ALTER TABLE ins_deel
-ADD
-    UNIQUE(ins_alg_ruimte_key, ins_prs_bezit_key, ins_srtdeel_key, ins_deel_upper,
-           lev_levering_key, lev_bestelling_key, lev_afvoerlijst_datum,
-           ins_deel_verwijder);
-#endif
-
-SPOOL OFF

_UP/121TO122.SRC

@@ -1,254 +0,0 @@
-SPOOL 121to122
-
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.21 naar 01.22
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- *
- * 08-11-96 AH   INV_DEEL_GEBRUIK voor HUI-module heet 'Plaats'
- * 08-11-96 AH   LOG#965, 970: Messages aangepast en toegevoegd
- * 07-11-96 AH   LOG#985: ALG_RUIMTE-velden toeegevoegd,
- *               HUI_V_OVERNACHTING_GEGEVENS aangepast
- * 07-11-96 AH   LOG#976: FAC_GEBRUIKER-table toegevoegd
- *                        HUI_V_AANWEZIGHUISMEESTER aangepast
- * 06-11-96 AH   LOG#823: INV_M049 - 053 en ALG_M194 toegevoegd
- * 05-11-96 AH   LOG#979: BCP_M100 - 103 toegevoegd
- * 05-11-96 AH   LOG#979: BCO_M132 - 135 toegevoegd
- * 04-11-96 AH   LOG#968: INS_M099 gekopieerd naar INS_M114 voor enkelvoud
- *               LOG#970: INS_M115 en 116 toegevoegd
- * 04-11-96 AH  INS_M113 toegevoegd
- * 01-11-96 AH  ALL_V_SRTDEEL_GEGEVENS aangepast voor INS012
- * 01-11-96 AH  LOG#828: HUI_V_RUIMTEBOEKING_GEGEVENS aangepast
- * 01-11-96 AH  LOG#831: LEV_POSTADRES toegevoegd
- * ------ 01.21 -----
- */
-
-#include <modules.h>
-PROMPT Upgrading van versie 121 naar 122...
-
-DEF_FAC_ENTITY ('LEV_POSTADRES', 'Factuuradres', NULL, NULL);
-
-#ifdef  HUI
-CREATE_VIEW(hui_v_ruimteboeking_gegevens, NORMAAL_PRIVILEGE)
-                       (hui_ruimteboeking_key,
-                        alg_locatie_key,
-                        alg_gebouw_key,
-                        alg_gebouw_code,
-                        alg_verdieping_key,
-                        alg_verdieping_omschrijving,
-                        alg_verdieping_volgnr,
-                        alg_ruimte_key,
-                        alg_ruimte_nr,
-                        alg_ruimte_upper_nr,
-                        alg_ruimte_omschrijving,
-                        prs_huismeester_key,
-                        prs_perslid_key,
-                        prs_perslid_nr,
-                        prs_perslid_naam,
-                        hui_ruimteboeking_begindatum,
-                        hui_ruimteboeking_einddatum) AS
- SELECT HUI_R.hui_ruimteboeking_key,
-        ALG_G.alg_locatie_key,
-        ALG_G.alg_gebouw_key,
-        ALG_G.alg_gebouw_code,
-        ALG_V.alg_verdieping_key,
-        ALG_V.alg_verdieping_omschrijving,
-        ALG_V.alg_verdieping_volgnr,
-        ALG_R.alg_ruimte_key,
-        ALG_R.alg_ruimte_nr,
-        ALG_R.alg_ruimte_upper_nr,
-        ALG_R.alg_ruimte_omschrijving,
-        ALG_R.prs_huismeester_key,
-        PRS_P.prs_perslid_key,
-        PRS_P.prs_perslid_nr,
-        PRS_P.prs_perslid_naam||' '||PRS_P.prs_perslid_voorletters,
-        HUI_R.hui_ruimteboeking_begindatum,
-        HUI_R.hui_ruimteboeking_einddatum
- FROM alg_gebouw ALG_G, alg_verdieping ALG_V, alg_v_aanwezigruimte ALG_R,
-      prs_perslid PRS_P, hui_ruimteboeking HUI_R
- WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
-   AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
-   AND ALG_R.alg_ruimte_key = HUI_R.hui_alg_ruimte_key
-   AND PRS_P.prs_perslid_key = HUI_R.hui_prs_perslid_key;
-
-#endif
-#ifdef  INS
-CREATE_VIEW(all_v_srtdeel_gegevens,BIBLIOTHEEK_PRIVILEGE) AS
-    SELECT ins_D.ins_discipline_key, ins_D.ins_discipline_omschrijving,
-           ins_SG.ins_srtgroep_key, ins_SG.ins_srtgroep_omschrijving,
-           ins_SG.ins_srtgroep_upper, ins_SD.ins_srtdeel_key,
-           ins_SD.ins_srtdeel_omschrijving, ins_SD.ins_srtdeel_upper,
-           ins_SD.ins_srtdeel_module
-#ifdef  INV
-           , ins_SD.inv_srtdeel_nr
-#endif
-    FROM all_v_aanwezigdiscipline ins_D, all_v_aanwezigsrtgroep ins_SG,
-         all_v_aanwezigsrtdeel ins_SD
-    WHERE
-        ins_SG.ins_srtgroep_key = ins_SD.ins_srtgroep_key AND
-        ins_D.ins_discipline_key = ins_SG.ins_discipline_key;
-
-#endif
-
-DEF_FAC_MESSAGE ('INS_M113', 'Aantal moet groter zijn dan 0.');
-DEF_FAC_MESSAGE ('INS_M114', '%1% deel van de %2% gekopieerd.');
-DEF_FAC_MESSAGE ('INS_M115', 'Ruimte mag niet ingevuld zijn.');
-#ifdef  BCO
-DEF_FAC_MESSAGE ('INS_M116', 'Bouwlaag mag niet ingevuld zijn.');
-#else
-DEF_FAC_MESSAGE ('INS_M116', 'Verdieping mag niet ingevuld zijn.');
-#endif
-
-DEF_FAC_MESSAGE ('BCO_M132', 'Correctieve opdracht %1% van bedrijf %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCO_M133', 'Correctieve opdracht %1% van bestek %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCO_M134', 'Correctieve opdracht %1% van functie bij bedrijf %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCO_M135', 'Correctieve opdracht %1% van persoon %2% is ingetrokken');
-
-DEF_FAC_MESSAGE ('BCP_M100', 'Preventieve opdracht %1% van bedrijf %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCP_M101', 'Preventieve opdracht %1% van bestek %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCP_M102', 'Preventieve opdracht %1% van functie bij bedrijf %2% is ingetrokken');
-DEF_FAC_MESSAGE ('BCP_M103', 'Preventieve opdracht %1% van persoon %2% is ingetrokken');
-
-INSERT INTO FAC_MESSAGE VALUES('BCP_M103', 'Preventieve opdracht %1% van persoon %2% is ingetrokken');
-INSERT INTO FAC_MESSAGE VALUES('INV_M049', 'Er zijn geen artikelen geselecteerd');
-INSERT INTO FAC_MESSAGE VALUES('INV_M050', 'De geselecteerd artikelen ontkoppelen of verwijderen?');
-INSERT INTO FAC_MESSAGE VALUES('INV_M051', 'Afvoeren of verwijderen');
-INSERT INTO FAC_MESSAGE VALUES('INV_M052', 'De geselecteerd artikelen afvoeren of verwijderen?');
-INSERT INTO FAC_MESSAGE VALUES('INV_M053', 'De geselecteerd artikelen koppelen aan persoon');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M194', 'Deze functie is niet toegestaan met meerdere geselecteerde records');
-
-#ifdef  FAC
-// Table voor autorisatie
-CREATE_TABLE(fac_gebruiker, BASIS_PRIVILEGE)
-(
-    FAC_USERNAME
-        VARCHAR2(30)
-        NOT NULL,
-    FAC_MODULE
-        VARCHAR2(3)
-        NOT NULL,
-    FAC_TABEL
-        VARCHAR2(32),
-    FAC_KOLOM
-        VARCHAR2(32),
-    FAC_KEY
-        NUMBER(10),
-    FAC_SOORT
-        VARCHAR2(1)
-);
-
-#endif
-#ifdef  HUI
-CREATE_VIEW(hui_v_aanwezighuismeester, NORMAAL_PRIVILEGE)
-AS
- SELECT HUI_P.*
- FROM hui_v_aanwezigperslid HUI_P, fac_gebruiker FAC_G
- WHERE fac_module = 'HUI'
-   AND fac_tabel  = 'PRS_PERSLID'
-   AND fac_kolom  = 'PRS_PERSLID_KEY'
-   AND fac_key    = HUI_P.prs_perslid_key;
-
-CREATE OR REPLACE VIEW hui_v_overnachting_gegevens
-AS
-SELECT ALG_G.alg_locatie_key,
-       ALG_G.alg_gebouw_key,
-       ALG_G.alg_gebouw_omschrijving,
-       ALG_G.alg_gebouw_upper,
-       ALG_V.alg_verdieping_key,
-       ALG_V.alg_verdieping_omschrijving,
-       ALG_V.alg_verdieping_volgnr,
-       ALG_R.alg_ruimte_key,
-       ALG_R.alg_ruimte_nr,
-       ALG_R.alg_ruimte_upper_nr,
-       ALG_R.prs_huismeester_key,
-       ALG_R.hui_categorie_key,
-       ALG_R.hui_eenheid,
-       ALG_R.hui_geslacht,
-       HUI_W.prs_werkplek_key,
-       HUI_W.prs_werkplek_module,
-       HUI_W.prs_werkplek_volgnr,
-       HUI_PW.prs_perslidwerkplek_key,
-       HUI_PW.hui_status,
-       HUI_PW.hui_begindatum,
-       HUI_PW.hui_einddatum,
-       HUI_PW.prs_perslid_key
-FROM hui_v_aanwezigwerkplek HUI_W,
-     alg_ruimte ALG_R, alg_verdieping ALG_V, alg_gebouw ALG_G,
-     hui_v_aanwezigperslidwerkplek HUI_PW
-WHERE HUI_W.prs_alg_ruimte_key = ALG_R.alg_ruimte_key
-  AND ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-  AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-  AND HUI_W.prs_werkplek_key = HUI_PW.prs_werkplek_key
-UNION
-SELECT ALG_G.alg_locatie_key,
-       ALG_G.alg_gebouw_key,
-       ALG_G.alg_gebouw_omschrijving,
-       ALG_G.alg_gebouw_upper,
-       ALG_V.alg_verdieping_key,
-       ALG_V.alg_verdieping_omschrijving,
-       ALG_V.alg_verdieping_volgnr,
-       ALG_R.alg_ruimte_key,
-       ALG_R.alg_ruimte_nr,
-       ALG_R.alg_ruimte_upper_nr,
-       ALG_R.prs_huismeester_key,
-       ALG_R.hui_categorie_key,
-       ALG_R.hui_eenheid,
-       ALG_R.hui_geslacht,
-       HUI_W.prs_werkplek_key,
-       HUI_W.prs_werkplek_module,
-       HUI_W.prs_werkplek_volgnr,
-       TO_NUMBER(NULL),
-       NULL,
-       TO_DATE(NULL),
-       TO_DATE(NULL),
-       TO_NUMBER(NULL)
-FROM hui_v_aanwezigwerkplek HUI_W,
-     alg_ruimte ALG_R, alg_verdieping ALG_V, alg_gebouw ALG_G
-WHERE HUI_W.prs_alg_ruimte_key = ALG_R.alg_ruimte_key
-  AND ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-  AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key;
-#endif
-#ifdef  ALG
-ALTER TABLE alg_ruimte
-ADD
-(
-    alg_ruimte_vloer_omschrijving
-        VARCHAR2(15),
-    alg_ruimte_opp_gevelglas
-        NUMBER(8,2),
-    alg_ruimte_opp_separatieglas
-        NUMBER(8,2),
-    alg_ruimte_opp_gevelbekleding
-        NUMBER(8,2)
-);
-#endif
-
-INSERT INTO FAC_MESSAGE VALUES('INS_M117', 'Terreinsector kopieren ');
-INSERT INTO FAC_MESSAGE VALUES('INS_M118', 'Wilt u de gehele terreinsector kopieren?');
-
-DELETE FROM fac_message
-WHERE fac_message_code IN ('INS_M061', 'INS_M050', 'INS_M091', 'MRA_M018',
-                           'ALG_M079', 'ALG_M082', 'ALG_M085', 'ALG_M159');
-INSERT INTO FAC_MESSAGE VALUES('INS_M061', 'Wilt u het deel kopieren?');
-INSERT INTO FAC_MESSAGE VALUES('INS_M050', 'Ruimte moet gekozen zijn.');
-INSERT INTO FAC_MESSAGE VALUES('INS_M091', 'Gebouw moet gekozen zijn.');
-INSERT INTO FAC_MESSAGE VALUES('MRA_M018','Terreinsector moet gekozen zijn.');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M079', 'Verwijderen Gebouw %1%, inclusief delen');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M082', 'Verwijderen Bouwlaag %1%, inclusief delen');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M085', 'Verwijderen Ruimte %1%, inclusief delen');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M159', 'De geselecteerde ruimtes, inclusief delen verwijderen');
-INSERT INTO FAC_MESSAGE VALUES('ALG_M195','Verwijderen terreinsector %1%, inclusief delen');
-
-#ifdef  HUI
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name = 'INV_DEEL_GEBRUIK';
-
-INSERT INTO FAC_ENTITY_NAME VALUES('INV_DEEL_GEBRUIK', 'Plaats', NULL, 'het');
-#endif
-
-PROMPT Vergeet niet te committen!

_UP/122TO123.SRC

@@ -1,833 +0,0 @@
-SPOOL 122to123
-
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.22 naar 01.23
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- *
- *  --- 01.23 ---
- * 18-11-96 AH   HUI_M051 toegevoegd
- * 18-11-96 AG   LOG#1034: BCO_M136, BCO_M137 toegevoegd, BCO_M113/114 aangepast
- * 18-11-96 AG   LOG#1043: Messages voor BCO_COMMENTAAR aangepast
- * 18-11-96 AH  LOG#985: HUI215/216 toegevoegd
- * 15-11-96 AH  LOG#985: Hui-frequentie zaken toegevoegd + ALG_V_RUIMTE_GEGEVENS
- *+18-11-96     aangepast
- * 15-11-96 AH  De DELETE-code van locatiebestek is nu een FUNCTION geworden
- *              en wordt aangeroepen en in PRS021 en PRS023 bij Verwijderen
- *              PRS_T_PRS_LOCATIEBESTEK_B_D-trigger is verwijderd
- * 14-11-96 AH  LOG#1043: BCO_COMMENTAAR te klein tekst-veld en Objectgroep
- *              en Jaarweek opslaan,
- * 14-11-96 AH  LOG#1035: PRS_T_PRS_LOCATIEBESTEK_B_IU en _B_D aangepast.
- * 14-11-96 AH   LOG#1035: PRS_M092 aangepast, PRS_M097 - PRS_M099 toegevoegd
- * 13-11-96 AH  LOG#1035: PRS_T_PRS_DISCBESTEK_B_D aangepast, Als discipline-
- *              bestek als default uitvoerende is aangegeven bij mld_opdr
- *              of bij prevopdr dan mag deze ook niet verwijderd worden.
- *              Zelfde extra conditie geldt bij verwijderen LocatieBestek
- * 13-11-96 AH   LOG#1035: PRS_M088 aangepast
- * 13-11-96 AH   LOG#1033: MLD_M55 aangepast.
- * 13-11-96 AH   LOG#1021: MLD_M163, BCP_M104, BCP_M105, BCP_M106, BCP_M107 toegevoegd
- * 12-11-96 AH   LOG#1019: PRS_M096 toegevoegd
- * 12-11-96 AH  MLD_V_OPENOPDR aangepast voor Historisch overzicht.
- *              Ook Ingevoerde opdrachten worden meegenomen.
- * 12-11-96 AH  LOG#1012: BCO_V_INSTMELDING_GEGEVENS aangepast
- * 12-11-96 AH   LOG#1006: BCO_V_BCP_BCO_OPDR aangepast, ook locatie_key meenemen
- * 12-11-96 AH   LOG#999, 1000: BCP_M070 en BCP_M069 aangepast
- * 11-11-96 AH  LOG#991: MLD_M135 aangepast
- * 11-11-96 AH  LOG#988: opgelost in mld_t_mld_opdr_b_d en
- *              bcp_t_bcp_prevopdr_b_d
- * ------ 01.22 -----
- */
-
-#include <comsql.h>
-#include <modules.h>
-PROMPT Upgrading van versie 122 naar 123...
-
-#ifdef MLD
-CREATE OR REPLACE TRIGGER mld_t_mld_opdr_b_d
-BEFORE DELETE ON mld_opdr
-FOR EACH ROW
-BEGIN
-   /* Een verwerkte opdracht mag niet verwijderd worden */
-   DECLARE
-        dummy CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM mld_statusopdr MLD_S
-      WHERE :old.mld_statusopdr_key = MLD_S.mld_statusopdr_key
-        AND MLD_S.mld_statusopdr_omschrijving = 'Verwerkt';
-      APPLICATION_ERROR(-20002, 'mld_m135');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-   END;
-#ifdef  BCO
-   /* Een opdracht die voorkomt op een werkregel mag niet verwijderd worden.
-    */
-   DECLARE
-      dummy  CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM bco_werkregel
-      WHERE bcp_mld_opdr_key = :old.mld_opdr_key;
-      APPLICATION_ERROR(-20002, 'mld_m158');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-      WHEN TOO_MANY_ROWS
-      THEN APPLICATION_ERROR(-20002, 'mld_m158');
-   END;
-#endif
-   /* Een opdracht komt nog voor in een bestelopdracht, mag niet verwijderd worden.
-    */
-   DECLARE
-      dummy  CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM mld_bestelregel
-      WHERE bcp_mld_opdr_key = :old.mld_opdr_key;
-      APPLICATION_ERROR(-20002, 'mld_m162');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-      WHEN TOO_MANY_ROWS
-      THEN APPLICATION_ERROR(-20002, 'mld_m162');
-   END;
-END;
-/
-#endif  // MLD
-#ifdef  BCP
-CREATE OR REPLACE TRIGGER bcp_t_bcp_prevopdr_b_d
-BEFORE DELETE ON bcp_prevopdr
-FOR EACH ROW
-BEGIN
-   /* Een verwerkte opdracht mag niet verwijderd worden */
-   DECLARE
-        dummy CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM mld_statusopdr MLD_S
-      WHERE :old.bcp_mld_statusopdr_key = MLD_S.mld_statusopdr_key
-        AND MLD_S.mld_statusopdr_omschrijving = 'Verwerkt';
-      APPLICATION_ERROR(-20002, 'mld_m135');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-   END;
-   /* Een opdracht die voorkomt op een werkregel mag niet verwijderd worden.
-    */
-   DECLARE
-      dummy  CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM bco_werkregel
-      WHERE bcp_mld_opdr_key = :old.bcp_prevopdr_key;
-      APPLICATION_ERROR(-20002, 'mld_m158');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-      WHEN TOO_MANY_ROWS
-      THEN APPLICATION_ERROR(-20002, 'mld_m158');
-   END;
-   /* Een opdracht komt nog voor in een bestelopdracht, mag niet verwijderd worden.
-    */
-   DECLARE
-      dummy  CHAR;
-   BEGIN
-      SELECT 'X'
-      INTO dummy
-      FROM mld_bestelregel
-      WHERE bcp_mld_opdr_key = :old.bcp_prevopdr_key;
-      APPLICATION_ERROR(-20002, 'mld_m162');
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN NULL;
-      WHEN TOO_MANY_ROWS
-      THEN APPLICATION_ERROR(-20002, 'mld_m162');
-   END;
-END;
-/
-#endif  // BCP
-DEF_FAC_MESSAGE ('MLD_M162', 'De opdracht komt nog op een bestelopdracht voor.');
-
-DELETE FROM fac_message
-WHERE fac_message_code in ('MLD_M135', 'BCP_M069', 'BCP_M070');
-
-#if defined(MRA)
-DEF_FAC_MESSAGE ('mld_m135', 'Verwerkte activiteit mag niet verwijderd worden.');
-#else
-DEF_FAC_MESSAGE ('mld_m135', 'Verwerkte opdracht mag niet verwijderd worden.');
-#endif // MRA
-DEF_FAC_MESSAGE ('BCP_M069', 'De datum van de meterstand is niet ingevuld.');
-DEF_FAC_MESSAGE ('BCP_M070', 'De meterstand is niet ingevuld.');
-
-#ifdef  BCO
-CREATE_VIEW (bco_v_bcp_bco_opdr, NORMAAL_PRIVILEGE)
-                              ( bcp_bco_opdr_key,
-                                bcp_bco_opdr_module,
-                                bcp_bco_uitvoerende_keys,
-                                bcp_bco_statusopdr_key,
-                                bcp_bco_opdr_uren,
-                                bcp_bco_opdr_materiaal,
-                                bcp_bco_opdr_kosten,
-                                bcp_bco_opdr_werkzaamheden,
-                                bcp_bco_opdr_week,
-                                alg_locatie_key) AS
-SELECT MLD_O.mld_opdr_key,
-       'BCO',
-       MLD_O.mld_uitvoerende_keys,
-       MLD_O.mld_statusopdr_key,
-       MLD_O.mld_opdr_uren,
-       MLD_O.mld_opdr_materiaal,
-       MLD_O.mld_opdr_kosten,
-       MLD_O.mld_opdr_werkzaamheden,
-       MLD_O.bco_opdr_weekuitgifte,
-       MLD_OL.alg_locatie_key
-FROM mld_opdr MLD_O, mld_melding MLD_M, mld_v_onroerendgoed_locatie MLD_OL
-WHERE MLD_OL.alg_onroerendgoed_keys = MLD_M.mld_alg_onroerendgoed_keys
-  AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
-  AND MLD_O.mld_opdr_module = 'BCO'
-UNION
-SELECT BCP_P.bcp_prevopdr_key,
-       'BCP',
-       BCP_P.bcp_mld_uitvoerende_keys,
-       BCP_P.bcp_mld_statusopdr_key,
-       BCP_P.bcp_prevopdr_uren,
-       BCP_P.bcp_prevopdr_materiaal,
-       BCP_P.bcp_prevopdr_kosten,
-       BCP_P.bcp_prevopdr_werkzaamheden,
-       BCP_P.bcp_prevopdr_week,
-       MLD_OL.alg_locatie_key
-FROM bcp_prevopdr BCP_P, bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL
-WHERE MLD_OL.alg_onroerendgoed_keys = BCP_T.bcp_alg_gebouw_key
-  AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key;
-
-CREATE_VIEW(bco_v_instmelding_gegevens,NORMAAL_PRIVILEGE) (bco_instmelding_key,
-                                        bco_mld_melding_key,
-                                        ins_srtdeel_omschrijving,
-                                        ins_srtdeel_upper,
-                                        ins_deel_omschrijving,
-                                        ins_deel_upper,
-                                        ins_onderdeel_omschrijving,
-                                        ins_onderdeel_upper,
-                                        ins_element_omschrijving,
-                                        ins_element_upper) AS
-    SELECT BCO_I.bco_instmelding_key,
-           BCO_I.bco_mld_melding_key,
-           INS_SD.ins_srtdeel_omschrijving,
-           INS_SD.ins_srtdeel_upper,
-           INS_D.ins_deel_omschrijving,
-           INS_D.ins_deel_upper,
-           NULL,
-           NULL,
-           NULL,
-           NULL
-    FROM bco_instmelding BCO_I, ins_v_inst INS_I, ins_v_aanwezigsrtdeel INS_SD,
-         ins_v_aanwezigdeel INS_D
-    WHERE BCO_I.bco_ins_inst_keys = INS_I.ins_inst_keys
-      AND INS_I.ins_type = 'D'
-      AND INS_I.ins_inst_keys = INS_D.ins_deel_key
-      AND INS_D.ins_srtdeel_key = INS_SD.ins_srtdeel_key
-    UNION
-    SELECT BCO_I.bco_instmelding_key,
-           BCO_I.bco_mld_melding_key,
-           INS_SD.ins_srtdeel_omschrijving,
-           INS_SD.ins_srtdeel_upper,
-           INS_D.ins_deel_omschrijving,
-           INS_D.ins_deel_upper,
-           INS_O.ins_onderdeel_omschrijving,
-           INS_O.ins_onderdeel_upper,
-           NULL,
-           NULL
-    FROM bco_instmelding BCO_I, ins_v_inst INS_I, ins_v_aanwezigsrtdeel INS_SD,
-         ins_v_aanwezigdeel INS_D, ins_v_aanwezigonderdeel INS_O
-    WHERE BCO_I.bco_ins_inst_keys = INS_I.ins_inst_keys
-      AND INS_I.ins_type = 'O'
-      AND INS_I.ins_inst_keys = INS_O.ins_onderdeel_key
-      AND INS_O.ins_deel_key = INS_D.ins_deel_key
-      AND INS_D.ins_srtdeel_key = INS_SD.ins_srtdeel_key
-    UNION
-    SELECT BCO_I.bco_instmelding_key,
-           BCO_I.bco_mld_melding_key,
-           INS_SD.ins_srtdeel_omschrijving,
-           INS_SD.ins_srtdeel_upper,
-           INS_D.ins_deel_omschrijving,
-           INS_D.ins_deel_upper,
-           INS_O.ins_onderdeel_omschrijving,
-           INS_O.ins_onderdeel_upper,
-           INS_E.ins_element_omschrijving,
-           INS_E.ins_element_upper
-    FROM bco_instmelding BCO_I, ins_v_inst INS_I, ins_v_aanwezigsrtdeel INS_SD,
-         ins_v_aanwezigdeel INS_D, ins_v_aanwezigonderdeel INS_O,
-         ins_v_aanwezigelement INS_E
-    WHERE BCO_I.bco_ins_inst_keys = INS_I.ins_inst_keys
-      AND INS_I.ins_type = 'E'
-      AND INS_I.ins_inst_keys = INS_E.ins_element_key
-      AND INS_E.ins_onderdeel_key = INS_O.ins_onderdeel_key
-      AND INS_O.ins_deel_key = INS_D.ins_deel_key
-      AND INS_D.ins_srtdeel_key = INS_SD.ins_srtdeel_key;
-
-#endif  // BCO
-#ifdef  MLD
-CREATE_VIEW(mld_v_openopdr,NORMAAL_PRIVILEGE) AS
-SELECT *
-FROM mld_opdr
-WHERE mld_opdr.mld_statusopdr_key IN
-    (SELECT mld_statusopdr_key
-    FROM mld_statusopdr
-    WHERE mld_statusopdr.mld_statusopdr_omschrijving = 'Uitgegeven' OR
-       mld_statusopdr.mld_statusopdr_omschrijving =  'Afgemeld' OR
-       mld_statusopdr.mld_statusopdr_omschrijving =  'Ingevoerd');
-#endif  // MLD
-DEF_FAC_MESSAGE ('PRS_M096', 'Het opgegeven bestek is verlopen.');
-DEF_FAC_MESSAGE ('MLD_M163', 'Afgemelde of verwerkte opdrachten kunnen alleen bekeken worden.');
-DEF_FAC_MESSAGE ('BCP_M104', 'Ingeplande opdrachten kunnen niet afgemeld of verwerkt worden.');
-DEF_FAC_MESSAGE ('BCP_M105', 'Afmelden preventieve opdracht');
-DEF_FAC_MESSAGE ('BCP_M106', 'Preventieve opdracht %1% wordt afgemeld. Doorgaan?');
-DEF_FAC_MESSAGE ('BCP_M107', 'Uitgegeven, afgemelde of verwerkte opdrachten kunnen alleen bekeken worden.');
-DELETE FROM fac_message
-WHERE fac_message_code IN ( 'MLD_M55', 'PRS_M088');
-DEF_FAC_MESSAGE ('mld_m55', 'De termijn moet positieve waarden bevatten.');
-DEF_FAC_MESSAGE ('PRS_M088', 'Er zijn nog opdrachten bij de discipline van het bestek');
-
-#ifdef  INS
-DROP TRIGGER prs_t_prs_discbestek_B_D;
-CREATE TRIGGER prs_t_prs_discbestek_B_D
-BEFORE DELETE ON prs_disciplinebestek
-FOR EACH ROW
-BEGIN
-    /* Als het bestek al als default uitvoerende is aangegeven bij een
-     * INS_SRTDEEL, dan mag de koppeling tussen de discipline van het
-     * INS_SRTDEEL en het bestek niet verwijderd worden.
-     */
-    DECLARE
-       dummy CHAR;
-    BEGIN
-       SELECT 'X'
-       INTO dummy
-       FROM ins_v_aanwezigsrtdeel INS_D
-       WHERE INS_D.bco_defaultuitv_keys = :old.prs_disciplinebestek_key;
-       APPLICATION_ERROR(-20002, 'prs_m069');
-    EXCEPTION
-       WHEN NO_DATA_FOUND
-       THEN NULL;
-       WHEN TOO_MANY_ROWS
-       THEN APPLICATION_ERROR(-20002, 'prs_m069');
-    END;
-    // Mag niet verwijderd worden als er MLD_OPDR's zijn met als uitvoerende
-    // deze disicplinebestek
-    DECLARE
-        dummy CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM mld_opdr
-        WHERE mld_uitvoerende_keys = :old.prs_disciplinebestek_key
-#ifdef  BCO
-           OR bco_defaultuitv_keys = :old.prs_disciplinebestek_key
-#endif  // BCO
-        ;
-        APPLICATION_ERROR(-20002, 'prs_m088');
-    EXCEPTION
-       WHEN NO_DATA_FOUND
-       THEN NULL;
-       WHEN TOO_MANY_ROWS
-       THEN APPLICATION_ERROR(-20002, 'prs_m088');
-    END;
-#ifdef  BCP
-    // Mag niet verwijderd worden als er BCP_PREVOPDR's zijn met als uitvoerende
-    // deze disicplinebestek
-    DECLARE
-        dummy CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM bcp_prevopdr
-        WHERE bcp_mld_uitvoerende_keys = :old.prs_disciplinebestek_key
-           OR bcp_mld_uitvoerende_keys = :old.prs_disciplinebestek_key;
-        APPLICATION_ERROR(-20002, 'prs_m088');
-    EXCEPTION
-       WHEN NO_DATA_FOUND
-       THEN NULL;
-       WHEN TOO_MANY_ROWS
-       THEN APPLICATION_ERROR(-20002, 'prs_m088');
-    END;
-#endif // BCP
-END;
-/
-
-DROP TRIGGER prs_t_prs_locatiebestek_B_IU;
-CREATE TRIGGER prs_t_prs_locatiebestek_B_IU
-BEFORE INSERT OR UPDATE ON prs_locatiebestek
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(prs_locatiebestek_key,prs_s_prs_locatiebestek_key);
-#if defined(MLD) || defined(BCP)
-    /* Een LocatieBestek mag NIET toegevoegd worden als:
-     * - Het (discipline)bestek als (default) uitvoerende is aangegeven bij
-     *   een of meer opdrachten en als er nog geen LocatieBestek-records zijn
-     *   voor het bestek.
-     * Uitzondering: Als er opdrachten zijn EN deze allemaal betrekking hebben
-     *   op de toe te voegen locatie.
-     * Een LocatieBestek mag NIET worden gewijzigd als:
-     * - Het (discipline)bestek als (default) uitvoerende is aangegeven bij
-     *   een of meer opdrachten die betrekking hebben op de te wijzigen
-     *   LocatieBestek.
-     */
-    // Toevoegen
-    IF :old.alg_locatie_key IS NULL
-    AND :new.alg_locatie_key IS NOT NULL
-    THEN
-#ifdef  MLD
-       DECLARE
-          dummy  CHAR;
-       BEGIN
-          SELECT 'X'
-          INTO dummy
-          FROM mld_opdr MLD_O,
-               prs_disciplinebestek PRS_DB,
-               mld_melding MLD_M,
-               mld_v_onroerendgoed_locatie MLD_OL
-          WHERE MLD_M.mld_alg_onroerendgoed_keys = MLD_OL.alg_onroerendgoed_keys
-            AND MLD_OL.alg_locatie_key <> :new.alg_locatie_key
-            AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
-            AND (PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
-             OR  PRS_DB.prs_disciplinebestek_key = MLD_O.bco_defaultuitv_keys)
-            AND PRS_DB.prs_bestek_key = :new.prs_bestek_key
-            AND NOT EXISTS (SELECT 'X'
-                            FROM prs_locatiebestek PRS_LB
-                            WHERE PRS_LB.prs_bestek_key = :new.prs_bestek_key
-                              AND MLD_OL.alg_locatie_key = PRS_LB.alg_locatie_key
-                              AND PRS_LB.alg_locatie_key <> :new.alg_locatie_key);
-          APPLICATION_ERROR(-20000, 'prs_m098');
-       EXCEPTION
-          WHEN NO_DATA_FOUND
-          THEN NULL;
-          WHEN TOO_MANY_ROWS
-          THEN APPLICATION_ERROR(-20000, 'prs_m098');
-       END;
-#endif  // MLD
-#ifdef  BCP
-       DECLARE
-           dummy   CHAR;
-       BEGIN
-           SELECT 'X'
-           INTO dummy
-           FROM prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
-                bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL
-           WHERE BCP_T.bcp_alg_gebouw_key = MLD_OL.alg_onroerendgoed_keys
-             AND MLD_OL.alg_locatie_key <> :new.alg_locatie_key
-             AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
-             AND (PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
-              OR  PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_defaultuitv_keys)
-             AND PRS_DB.prs_bestek_key = :new.prs_bestek_key
-             AND NOT EXISTS (SELECT 'X'
-                             FROM prs_locatiebestek PRS_LB
-                             WHERE PRS_LB.prs_bestek_key = :new.prs_bestek_key
-                               AND MLD_OL.alg_locatie_key = PRS_LB.alg_locatie_key
-                               AND PRS_LB.alg_locatie_key <> :new.alg_locatie_key);
-           APPLICATION_ERROR(-20000, 'prs_m099');
-       EXCEPTION
-           WHEN NO_DATA_FOUND
-           THEN NULL;
-           WHEN TOO_MANY_ROWS
-           THEN APPLICATION_ERROR(-20000, 'prs_m099');
-       END;
-#endif  // BCP
-    // Wijzigen
-    ELSIF :old.alg_locatie_key IS NOT NULL
-    AND :new.alg_locatie_key IS NOT NULL
-    THEN
-#ifdef  MLD
-       DECLARE
-           dummy   CHAR;
-       BEGIN
-           SELECT 'X'
-           INTO dummy
-           FROM prs_disciplinebestek PRS_DB, mld_opdr MLD_O,
-                mld_melding MLD_M, mld_v_onroerendgoed_locatie MLD_OL
-           WHERE MLD_M.mld_alg_onroerendgoed_keys = MLD_OL.alg_onroerendgoed_keys
-             AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
-             AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
-             AND (PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
-#ifdef  BCO
-              OR  PRS_DB.prs_disciplinebestek_key = MLD_O.bco_defaultuitv_keys
-#endif  // BCO
-             )
-             AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
-           APPLICATION_ERROR(-20000, 'prs_m097');
-       EXCEPTION
-           WHEN NO_DATA_FOUND
-           THEN NULL;
-           WHEN TOO_MANY_ROWS
-           THEN APPLICATION_ERROR(-20000, 'prs_m097');
-       END;
-#endif  // MLD
-#ifdef  BCP
-       DECLARE
-           dummy   CHAR;
-       BEGIN
-           SELECT 'X'
-           INTO dummy
-           FROM prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
-                bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL
-           WHERE BCP_T.bcp_alg_gebouw_key = MLD_OL.alg_onroerendgoed_keys
-             AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
-             AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
-             AND (PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
-              OR  PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_defaultuitv_keys)
-             AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
-           APPLICATION_ERROR(-20000, 'prs_m097');
-       EXCEPTION
-           WHEN NO_DATA_FOUND
-           THEN NULL;
-           WHEN TOO_MANY_ROWS
-           THEN APPLICATION_ERROR(-20000, 'prs_m097');
-       END;
-#endif  // BCP
-    END IF;
-#endif  // MLD || BCP
-END;
-/
-
-DROP TRIGGER prs_t_prs_locatiebestek_B_D;
-CREATE TRIGGER prs_t_prs_locatiebestek_B_D
-BEFORE DELETE ON prs_locatiebestek
-FOR EACH ROW
-BEGIN
-#ifdef  MLD
-    /* Een LocatieBestek mag NIET verwijderd worden als:
-     * - Het (discipline)bestek als (default) uitvoerende is aangegeven bij
-     *   een of meer opdrachten die betrekking hebben op de te verwijderen
-     *   LocatieBestek.
-     */
-    DECLARE
-        dummy   CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM prs_disciplinebestek PRS_DB, mld_opdr MLD_O,
-             mld_melding MLD_M, mld_v_onroerendgoed_locatie MLD_OL
-        WHERE MLD_M.mld_alg_onroerendgoed_keys = MLD_OL.alg_onroerendgoed_keys
-          AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
-          AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
-          AND (PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
-#ifdef  BCO
-           OR  PRS_DB.prs_disciplinebestek_key = MLD_O.bco_defaultuitv_keys
-#endif  // BCO
-          )
-          AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
-        APPLICATION_ERROR(-20002, 'prs_m092');
-    EXCEPTION
-        WHEN NO_DATA_FOUND
-        THEN NULL;
-        WHEN TOO_MANY_ROWS
-        THEN APPLICATION_ERROR(-20002, 'prs_m092');
-    END;
-#endif
-#ifdef  BCP
-    DECLARE
-        dummy   CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
-             bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL
-        WHERE BCP_T.bcp_alg_gebouw_key = MLD_OL.alg_onroerendgoed_keys
-          AND MLD_OL.alg_locatie_key = :old.alg_locatie_key
-          AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
-          AND (PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
-           OR  PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_defaultuitv_keys)
-          AND PRS_DB.prs_bestek_key = :old.prs_bestek_key;
-        APPLICATION_ERROR(-20002, 'prs_m092');
-    EXCEPTION
-        WHEN NO_DATA_FOUND
-        THEN NULL;
-        WHEN TOO_MANY_ROWS
-        THEN APPLICATION_ERROR(-20002, 'prs_m092');
-    END;
-#endif
-#if !defined(MLD) && !defined(BCP)
-    NULL;
-#endif
-END;
-/
-#endif  // INS
-
-DELETE FROM fac_message
-WHERE fac_message_code = 'PRS_M092';
-#ifdef  BCO
-DEF_FAC_MESSAGE ('PRS_M092', 'Er zijn nog opdrachten van het bestek bij dit object.');
-DEF_FAC_MESSAGE ('PRS_M097', 'Er zijn nog opdrachten van het bestek bij het oude object.');
-DEF_FAC_MESSAGE ('PRS_M098', 'Er zijn nog opdrachten van het bestek bij andere objecten.');
-DEF_FAC_MESSAGE ('PRS_M099', 'Er zijn nog preventieve opdrachten van het bestek bij andere objecten.');
-#else
-DEF_FAC_MESSAGE ('PRS_M092', 'Er zijn nog opdrachten van het bestek bij deze locatie.');
-DEF_FAC_MESSAGE ('PRS_M097', 'Er zijn nog opdrachten van het bestek bij de oude locatie.');
-DEF_FAC_MESSAGE ('PRS_M098', 'Er zijn nog opdrachten van het bestek bij andere locaties.');
-DEF_FAC_MESSAGE ('PRS_M099', 'Er zijn nog preventieve opdrachten van het bestek bij andere locaties.');
-#endif
-#ifdef  BCO
-ALTER TABLE bco_commentaar
-ADD
-(
-   bco_commentaar_jaarweek
-      NUMBER(6),
-   bco_locatiegroep_key
-      NUMBER(10)
-);
-
-
-ALTER TABLE bco_commentaar
-MODIFY
-(
-   bco_commentaar_tekst
-      VARCHAR2(200)
-);
-#endif  // BCO
-
-#ifdef  PRS
-CREATE OR REPLACE FUNCTION prs_t_prs_locatiebestek_B_D( bestek_key IN NUMBER, locatie_key IN NUMBER,
-                                                        key_soort IN CHAR )
-       RETURN VARCHAR2 AS
-    error_msg fac_message.fac_message_code%TYPE;
-BEGIN
-    error_msg := NULL;
-#ifdef  MLD
-    /* Een LocatieBestek mag NIET verwijderd worden als:
-     * - Het (discipline)bestek als (default) uitvoerende is aangegeven bij
-     *   een of meer opdrachten die betrekking hebben op de te verwijderen
-     *   LocatieBestek.
-     */
-    DECLARE
-        dummy   CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM prs_disciplinebestek PRS_DB, mld_opdr MLD_O,
-             mld_melding MLD_M, mld_v_onroerendgoed_locatie MLD_OL,
-             prs_locatiebestek PRS_LB
-        WHERE MLD_M.mld_alg_onroerendgoed_keys = MLD_OL.alg_onroerendgoed_keys
-          AND ((MLD_OL.alg_locatie_key = PRS_LB.alg_locatie_key
-           AND key_soort = 'B')
-           OR  (MLD_OL.alg_locatie_key = locatie_key
-           AND key_soort = 'L'))
-          AND MLD_O.mld_melding_key = MLD_M.mld_melding_key
-          AND (PRS_DB.prs_disciplinebestek_key = MLD_O.mld_uitvoerende_keys
-#ifdef  BCO
-           OR  PRS_DB.prs_disciplinebestek_key = MLD_O.bco_defaultuitv_keys
-#endif  // BCO
-          )
-          AND PRS_DB.prs_bestek_key = PRS_LB.prs_bestek_key
-          AND PRS_DB.prs_bestek_key = bestek_key;
-        error_msg := 'prs_m092';
-    EXCEPTION
-        WHEN NO_DATA_FOUND
-        THEN NULL;
-        WHEN TOO_MANY_ROWS
-        THEN error_msg := 'prs_m092';
-    END;
-#endif
-#ifdef  BCP
-    DECLARE
-        dummy   CHAR;
-    BEGIN
-        SELECT 'X'
-        INTO dummy
-        FROM prs_disciplinebestek PRS_DB, bcp_prevopdr BCP_P,
-             bcp_taak BCP_T, mld_v_onroerendgoed_locatie MLD_OL,
-             prs_locatiebestek PRS_LB
-        WHERE BCP_T.bcp_alg_gebouw_key = MLD_OL.alg_onroerendgoed_keys
-          AND ((MLD_OL.alg_locatie_key = PRS_LB.alg_locatie_key
-            AND key_soort = 'B')
-           OR  (MLD_OL.alg_locatie_key = locatie_key
-            AND key_soort = 'L'))
-          AND BCP_P.bcp_taak_key = BCP_T.bcp_taak_key
-          AND (PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_mld_uitvoerende_keys
-           OR  PRS_DB.prs_disciplinebestek_key = BCP_P.bcp_defaultuitv_keys)
-          AND PRS_LB.prs_bestek_key = PRS_DB.prs_bestek_key
-          AND PRS_DB.prs_bestek_key = bestek_key;
-        error_msg := 'prs_m092';
-    EXCEPTION
-        WHEN NO_DATA_FOUND
-        THEN NULL;
-        WHEN TOO_MANY_ROWS
-        THEN error_msg := 'prs_m092';
-    END;
-#endif
-    RETURN error_msg;
-END;
-/
-DROP TRIGGER prs_t_prs_locatiebestek_B_D;
-
-#endif  // PRS
-
-DEF_FAC_FORM('HUI015', NULL,  NULL   ,'150150','HUI_HUI015','Overzichtscherm Frequentie');
-DEF_FAC_FORM('HUI115', NULL,  NULL   ,'151150','HUI_HUI115','Mutatiescherm Frequentie');
-DEF_FAC_FORM('HUI016', NULL,  NULL   ,'150160','HUI_HUI016','Overzichtscherm Schoonmaakfreq. onrgoed');
-DEF_FAC_FORM('HUI116', NULL,  NULL   ,'151160','HUI_HUI116','Mutatiescherm Schoonmaakfreq. onrgoed');
-DEF_FAC_ENTITY ('HUI_FREQUENTIE', 'Frequentie', 'Frequenties', 'de');
-DEF_FAC_ENTITY ('HUI_FREQUENTIE_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-DEF_FAC_ENTITY ('HUI_FREQUENTIE_DAGEN', 'Dagen', NULL, 'de');
-DEF_FAC_MESSAGE ('HUI_M041', 'Verwijderen frequentie ');
-DEF_FAC_MESSAGE ('HUI_M042', 'De omschrijving is niet ingevuld.');
-DEF_FAC_MESSAGE ('HUI_M043', 'Het aantal dagen is niet ingevuld.');
-DEF_FAC_MESSAGE ('HUI_M044', 'Schoonmaakfrequentie onroerendgoed');
-DEF_FAC_MESSAGE ('HUI_M045', 'Verwijderen schoonmaakfrequentie');
-DEF_FAC_MESSAGE ('HUI_M046', 'Verwijderen schoonmaakfrequentie %1% van ruimte %2%');
-DEF_FAC_MESSAGE ('HUI_M047', 'Verwijder de geselecteerde schoonmaakfrequenties?');
-DEF_FAC_MESSAGE ('HUI_M048', 'De frequentie is niet ingevuld.');
-DEF_FAC_MESSAGE ('HUI_M049', 'Overzicht schoonmaken glas');
-DEF_FAC_MESSAGE ('HUI_M050', 'Overzicht schoonmaken ruimte');
-DEF_FAC_ENTITY ('ALG_RUIMTE_VLOER_OMSCHRIJVING', 'Vloerbedekking', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_RUIMTE_OPP_GEVELGLAS', 'Gevelglas', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_RUIMTE_OPP_EENHEID', '(m2)', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_RUIMTE_OPP_SEPARATIEGLAS', 'Separatieglas', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_RUIMTE_OPP_GEVELBEKLEDING', 'Gevelbekleding', NULL, NULL);
-DEF_FAC_ENTITY ('ALG_RUIMTE_VLOEROPP_PER_WEEK', 'Per week', NULL, NULL);
-
-#ifdef  HUI
-CREATE_TABLE(hui_frequentie, NORMAAL_PRIVILEGE)
-(
-    hui_frequentie_key
-        NUMBER(10)
-        NOT NULL
-        PRIMARY KEY,
-    hui_frequentie_omschrijving
-        VARCHAR2(30)
-        NOT NULL,
-    hui_frequentie_upper
-        VARCHAR2(30)
-        NOT NULL
-        UNIQUE,
-    hui_frequentie_dagen
-        NUMBER(3)
-        NOT NULL
-);
-
-CREATE_TABLE(hui_onroerendgoed_frequentie, NORMAAL_PRIVILEGE)
-(
-    hui_frequentie_key
-        NUMBER(10)
-        NOT NULL
-        REFERENCES hui_frequentie(hui_frequentie_key),
-    hui_alg_onroerendgoed_keys
-        NUMBER(10)
-        NOT NULL,
-    hui_alg_onroerendgoed_type
-        VARCHAR2(1)
-        NOT NULL,
-    UNIQUE(hui_alg_onroerendgoed_keys)
-);
-
-CREATE SEQUENCE hui_s_hui_frequentie_key MINVALUE 1;
-
-CREATE TRIGGER hui_t_hui_frequentie_b_iu
-BEFORE INSERT OR UPDATE ON hui_frequentie
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(hui_frequentie_key, hui_s_hui_frequentie_key);
-    UPDATE_UPPER(hui_frequentie_omschrijving, hui_frequentie_upper);
-END;
-/
-
-CREATE_VIEW(hui_v_frequentie_gegevens, NORMAAL_PRIVILEGE)
-AS
-SELECT HUI_OF.hui_alg_onroerendgoed_keys,
-       HUI_OF.hui_alg_onroerendgoed_type,
-       HUI_OF.hui_frequentie_key,
-       HUI_F.hui_frequentie_omschrijving,
-       HUI_F.hui_frequentie_upper,
-       ALG_G.alg_gebouw_key,
-       ALG_G.alg_locatie_key,
-       ALG_G.alg_gebouw_omschrijving,
-       ALG_G.alg_gebouw_upper,
-       ALG_V.alg_verdieping_key,
-       ALG_V.alg_verdieping_omschrijving,
-       ALG_V.alg_verdieping_volgnr,
-       ALG_R.alg_ruimte_key,
-       ALG_R.alg_ruimte_nr,
-       ALG_R.alg_ruimte_upper_nr
-FROM hui_onroerendgoed_frequentie HUI_OF, hui_frequentie HUI_F,
-     alg_gebouw ALG_G, alg_verdieping ALG_V, alg_v_aanwezigruimte ALG_R
-WHERE ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key
-  AND ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key
-  AND ALG_R.alg_ruimte_key = HUI_OF.hui_alg_onroerendgoed_keys
-  AND HUI_OF.hui_frequentie_key = HUI_F.hui_frequentie_key;
-
-#endif  // HUI
-#ifdef  ALG
-CREATE_VIEW(alg_v_ruimte_gegevens,NORMAAL_PRIVILEGE) AS
-    SELECT ALG_L.alg_locatie_key, ALG_L.alg_district_key,
-           ALG_L.alg_locatie_omschrijving, ALG_L.alg_locatie_code,
-           ALG_L.alg_locatie_upper,
-           ALG_G.alg_gebouw_key, ALG_G.alg_srtgebouw_key,
-           ALG_G.alg_gebouw_omschrijving, ALG_G.alg_gebouw_upper,
-           ALG_V.alg_verdieping_key,
-           ALG_V.alg_verdieping_omschrijving, ALG_V.alg_verdieping_upper,
-           ALG_V.alg_verdieping_volgnr,
-           ALG_V.alg_verdieping_tekening, ALG_R.alg_ruimte_key,
-           ALG_S.alg_srtruimte_key, ALG_R.alg_ruimte_nr,
-           ALG_R.alg_ruimte_acadkey,
-           ALG_R.alg_ruimte_omschrijving, ALG_R.alg_ruimte_upper_nr,
-           ALG_S.alg_srtruimte_omschrijving,
-           ALG_R.alg_ruimte_vloer_omschrijving,
-           ALG_R.alg_ruimte_bruto_vloeropp,
-           ALG_R.alg_ruimte_opp_gevelglas,
-           ALG_R.alg_ruimte_opp_separatieglas,
-           ALG_R.alg_ruimte_opp_gevelbekleding
-#ifdef  HUI
-           , ALG_R.prs_huismeester_key
-#endif
-    FROM alg_locatie ALG_L, alg_gebouw ALG_G,
-         alg_verdieping ALG_V, alg_v_aanwezigruimte ALG_R,
-         alg_v_aanwezigsrtruimte ALG_S
-    WHERE
-          ALG_V.alg_verdieping_key = ALG_R.alg_verdieping_key AND
-          ALG_G.alg_gebouw_key = ALG_V.alg_gebouw_key AND
-          ALG_L.alg_locatie_key = ALG_G.alg_locatie_key AND
-          ALG_R.alg_srtruimte_key = ALG_S.alg_srtruimte_key (+);
-#endif  // ALG
-DEF_FAC_FORM('HUI215', NULL,  NULL   ,'152150','HUI_HUI215','Rapport schoonmaak glas');
-DEF_FAC_FORM('HUI216', NULL,  NULL   ,'152160','HUI_HUI216','Rapport schoonmaak ruimte');
-
-DELETE FROM fac_message
-WHERE fac_message_code IN ('BCP_M082',
-                           'BCP_M083',
-                           'BCP_M073',
-                           'BCP_M074',
-                           'BCP_M091',
-                           'BCP_M097',
-                           'BCP_M102',
-                           'BCO_M119',
-                           'BCO_M134');
-
-INSERT INTO FAC_MESSAGE VALUES('BCP_M073', 'Nieuwe preventieve opdracht %1% aangemaakt en heeft status ''%2%''');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M074', 'Nieuwe taak %1% van verzamelopdracht %2% aangemaakt voor onroerendgoed %3%');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M082', 'Bestek %1% heeft niet genoeg uren (%2%) beschikbaar');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M083', 'Bestek %1% heeft niet genoeg materiaalkosten (%2%) beschikbaar');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M091', 'Preventieve opdracht %1% is uitgegeven aan functie %2%');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M097', 'Aantal nieuwe preventieve opdrachten  aangemaakt: %1%');
-INSERT INTO FAC_MESSAGE VALUES('BCP_M102', 'Preventieve opdracht %1% van functie %2% is ingetrokken');
-INSERT INTO FAC_MESSAGE VALUES('BCO_M119', 'Correctieve opdracht %1% is uitgegeven aan functie %2%');
-INSERT INTO FAC_MESSAGE VALUES('BCO_M134', 'Correctieve opdracht %1% van functie %2% is ingetrokken');
-
-DEF_FAC_MESSAGE ('BCO_M136', 'Er zijn opdrachten van deze weekplanning afgemeld of verwerkt.');
-INSERT INTO FAC_MESSAGE VALUES('BCO_M137', '%1% uitgegeven correctieve opdrachten zijn weer ingetrokken');
-
-DELETE FROM fac_message
-WHERE fac_message_code IN ('BCO_M113', 'BCO_M114');
-INSERT INTO FAC_MESSAGE VALUES('BCO_M113', 'Correctieve opdracht %1% is ingetrokken, deze is langer dan 2 weken uitgegeven.');
-INSERT INTO FAC_MESSAGE VALUES('BCO_M114', '%1% correctieve opdrachten ingetrokken, ze zijn langer dan 2 weken uitgegeven.');
-DEF_FAC_MESSAGE ('HUI_M051', 'De huidige frequenties van de ruimtes in %1% %2% overschrijven?');
-
-PROMPT Vergeet niet te committen!

_UP/126TO127.SRC

@@ -1,413 +0,0 @@
-SPOOL 126to127
-/*
- * [V:\SQL\_UPDATE]
- *
- * Update script van versie 01.26 naar 01.27
- *
- * Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
- * om #ifdef's te gebruiken voor de diverse modules.
- *
- * History:
- *
- * 22-04-97 KTH Toevoegingen nav QA-test 1.27 en bugfixes door AH
- * 16-04-97 AH  BEBIS: CREATE TABLE's gebruikte ipv. CREATE_TABLE()
- *              ALG_SRTTERREIN en ALG_SRTVERDIEPING-entities aangepast.
- *              BEB_INI bevatte de tabel RAGIS_PRIJZEN. Deze zijn verwijderd.
- * 11-04-97 KTH Aangemaakt
- */
-
-
-/* 16-04-97 AH BEBIS */
-INSERT INTO fac_privilege VALUES (UPPER('alg_objectdeel'), 2);
-INSERT INTO fac_privilege VALUES (UPPER('alg_systeemcluster'), 2);
-INSERT INTO fac_privilege VALUES (UPPER('alg_bouwdeel'), 2);
-
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name in ('ALG_SRTTERREIN',
-                                 'ALG_SRTVERDIEPING',
-                                 'ALG_SRTVERDIEPING_VOLGNR');
-
-#if defined(BEB)
-DEF_FAC_ENTITY ('ALG_SRTTERREIN', 'Terrein/Werksrt', 'Terrein/Werksoorten', 'de');
-#else
-DEF_FAC_ENTITY ('ALG_SRTTERREIN', 'Terreinsoort', 'Terreinsoorten', 'de');
-#endif
-DEF_FAC_ENTITY ('ALG_SRTVERDIEPING', 'Verdiepingsoort', 'Verdiepingsoorten', 'de');
-DEF_FAC_ENTITY ('ALG_SRTVERDIEPING_VOLGNR', 'Volgnummer', 'Volgnummers', 'het');
-
-#ifdef BEB
-DELETE FROM ins_srtdeel
-WHERE ins_srtdeel_module = 'INS'
-AND ins_srtgroep_key in (SELECT ins_srtgroep_key FROM ins_srtgroep
-                         WHERE (ins_srtgroep_upper='BOUWKUNDE'
-                            OR  ins_srtgroep_upper='ELEKTROTECHNIEK'));
-/* Bouwkunde delen */
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 40 , 1  ,'m2', SUBSTR(INITCAP('STRAATWERK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150 , 2  ,'m2', SUBSTR(INITCAP('ASFALTERING'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 20, 3  ,'m2', SUBSTR(INITCAP('GRAAFWERK 70cm DIEP'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 4  ,'m2', SUBSTR(INITCAP('STEENSMETSELWERK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 5  ,'m2', SUBSTR(INITCAP('<27> STEENSMETSELWERK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 6  ,'m2', SUBSTR(INITCAP('GEVELOPENING DICHTMETSELEN STEENS'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150, 7  ,'m2', SUBSTR(INITCAP('GEVELOPENING DICHTMETSELEN <20> STEENS'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150, 8  ,'m2', SUBSTR(INITCAP('METALEN BEPLATING AANBRENGEN VLOER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150, 9  ,'m2', SUBSTR(INITCAP('METALEN BEPLATING AANBRENGEN WAND'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150, 10 ,'m2', SUBSTR(INITCAP('METALEN BEPLATING AANBRENGEN PLAFOND'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 11 ,'m2', SUBSTR(INITCAP('VENTILATIE-OPENING BEVEILIGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 300, 12 ,'m2', SUBSTR(INITCAP('BRAAKWEREND GLAS AANBRENGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 300, 13 ,'m2', SUBSTR(INITCAP('GELUIDSWEREND GLAS AANBRENGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 300, 14 ,'m2', SUBSTR(INITCAP('SLAGWEREND GLAS AANBRENGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 6000, 15 ,'  ', SUBSTR(INITCAP('ROLDEUR AANBRENGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 6000, 16 ,'  ', SUBSTR(INITCAP('BRAAKWERENDE DEUR TYPE A AANBRENGEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 115, 17 ,'  ', SUBSTR(INITCAP('GAASHEK HOOG MET PUNTDRAAD'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 110, 18 ,'  ', SUBSTR(INITCAP('GAASHEK HOOG ZONDER PUNTDRAAD'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 20000, 19 ,'  ', SUBSTR(INITCAP('ELEK. BED. ROLHEK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 8000, 20 ,'  ', SUBSTR(INITCAP('ELEK. BED. KLAPHEK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 21 ,'  ', SUBSTR(INITCAP('SLOT TYPE A'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 22 ,'  ', SUBSTR(INITCAP('SLOT TYPE B'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 23 ,'  ', SUBSTR(INITCAP('SLOT TYPE C'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 30000, 24 ,'  ', SUBSTR(INITCAP('TOURNIQUET'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 50000, 25 ,'  ', SUBSTR(INITCAP('TOURNIQUET MET FIETS'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 25000, 26 ,'  ', SUBSTR(INITCAP('ELEK. BED. SLAGBOOM'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 1000, 27 ,'  ', SUBSTR(INITCAP('LOOPHEK'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 80000, 28 ,'  ', SUBSTR(INITCAP('HARMONICAPOORT'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 2500, 29 ,'  ', SUBSTR(INITCAP('DRAAIHEK 1 VLEUGEL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 5000, 30 ,'  ', SUBSTR(INITCAP('DRAAIHEK 2 VLEUGELS'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 3000, 31 ,'  ', SUBSTR(INITCAP('VERKEERSLICHTEN R/G'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 150, 32 ,'  ', SUBSTR(INITCAP('STREKMETAAL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 33 ,'  ', SUBSTR(INITCAP('SANDWITCHPANEEL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 34 ,'  ', SUBSTR(INITCAP('ROLKAMMEN'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', NULL, 35 ,'  ', SUBSTR(INITCAP('SLOTKAST'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='BOUWKUNDE' AND ins_srtgroep_module='INS';
-
-
-/* Elektrotechniek delen */
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 15000, 1 , '   ', SUBSTR(INITCAP('VOERTUIGZUIL TYPE A'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 10000, 2 , '   ', SUBSTR(INITCAP('VOERTUIGZUIL TYPE B'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 1000, 3 , '   ', SUBSTR(INITCAP('SLUITLUS/OOG'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 100, 4 , '   ', SUBSTR(INITCAP('OPEN/DICHT SIGNALERING'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 0, 5 , '   ', SUBSTR(INITCAP('INLUISTERMICROFOON'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', NULL, 6 , '   ', SUBSTR(INITCAP('DOWNLOOK CAMERA'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 100, 7 , '   ', SUBSTR(INITCAP('SCHAKEL- OF CONTACTMAT.'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 9 , '   ', SUBSTR(INITCAP('GLASBREUKMELDER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 9000, 11, '   ', SUBSTR(INITCAP('VOETGANGERSZUIL TYPE A'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 5000, 12, '   ', SUBSTR(INITCAP('VOETGANGERSZUIL TYPE B'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 13, '   ', SUBSTR(INITCAP('ACTIEF INFRAROOD MELDER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 0, 14, '   ', SUBSTR(INITCAP('INFRAROOD ZUIL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 15, '   ', SUBSTR(INITCAP('TRILCONTACT'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 50, 16, 'mtr', SUBSTR(INITCAP('E-FLEXKABEL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 400, 18, '   ', SUBSTR(INITCAP('COMBIMELDER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 1000, 19, '   ', SUBSTR(INITCAP('SLUITLUS'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 5000, 20, '   ', SUBSTR(UPPER('CSSE'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 4000, 21, '   ', SUBSTR(INITCAP('KAARTLEZER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 5000, 22, '   ', SUBSTR(INITCAP('PINCODESLOT/KAARTLEES COMB.'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 2000, 23, '   ', SUBSTR(UPPER('CCTV'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 17000, 24, '   ', SUBSTR(INITCAP('VIDEOMOTION'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 6000, 25, '   ', SUBSTR(INITCAP('TIMELAPS RECORDER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 26, '   ', SUBSTR(INITCAP('OPTISCHE SIGNAALGEVER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 27, '   ', SUBSTR(INITCAP('SCHRIKVERLICHTING'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 1000, 29, '   ', SUBSTR(INITCAP('LICHTMAST'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 1500, 30, '   ', SUBSTR(INITCAP('INTERCOM'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 31, '   ', SUBSTR(INITCAP('AKOESTISCHE SIGNAALGEVER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 175, 32, 'mtr', SUBSTR(INITCAP('LEAKY COAX-KABEL'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 300, 33, 'mtr', SUBSTR(INITCAP('TAUT-WIRE'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 400, 34, '   ', SUBSTR(INITCAP('PIN-CODESLOT'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 35, '   ', SUBSTR(INITCAP('OPSLOTSIGNALERING'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 36, '   ', SUBSTR(INITCAP('SLEUTELSCHERPSTELSLOT'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 200, 37, '   ', SUBSTR(INITCAP('ELEK. SLOT/ONTGRENDELING'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-INSERT INTO ins_srtdeel(ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_prijs, ins_srtdeel_volgnr, ins_srtdeel_eenheid, ins_srtdeel_omschrijving)
-SELECT ins_srtgroep_key, 'INS', 500, 38, '   ', SUBSTR(INITCAP('GORDIJNMELDER'),1,30)
-FROM ins_srtgroep WHERE ins_srtgroep_upper='ELEKTROTECHNIEK' AND ins_srtgroep_module='INS';
-
-UPDATE ins_srtdeel
-    SET ins_srtdeel_omschrijving=SUBSTR(REPLACE(ins_srtdeel_omschrijving,'<27>','1/2'),1,30),
-        ins_srtdeel_upper=SUBSTR(REPLACE(ins_srtdeel_upper,'<27>','1/2'),1,30);
-
-#endif /* BEB */
-
-/* de rest hieronder is nav BBS2.0.1.27 QA-test/KTH dd 21-04-97 */
-
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name  IN ('CLOSE',
-                                  'SAVE',
-                                  'NEXT',
-                                  'CANCEL',
-                                  'PRINT',
-                                  'ALG_SYSTEEMCLUSTER',
-                                  'ALG_BOUWDEEL_OMSCHRIJVING');
-
-INSERT INTO fac_entity_name VALUES('CLOSE', 'Sluiten',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('SAVE', 'Bewaren',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('NEXT', 'Volgende...',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('CANCEL', 'Annuleren',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('PRINT', 'Printen',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('ALG_SYSTEEMCLUSTER', 'Syst.cluster', 'Syst.clusters', 'het');
-INSERT INTO fac_entity_name VALUES('ALG_BOUWDEEL_OMSCHRIJVING', 'Omschrijving', 'Omschrijvingen', 'de');
-
-INSERT INTO fac_entity_name VALUES('PRINT_VORIGE', '<<',NULL, NULL);
-INSERT INTO fac_entity_name VALUES('PRINT_VOLGENDE', '>>',NULL, NULL);
-
-
-#ifdef BEB
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name  IN ('ALG_DISTRICT_CODE');
-
-INSERT INTO fac_entity_name VALUES('ALG_DISTRICT_CODE', 'Dienstkringcode', NULL, 'de');
-DELETE FROM fac_message
-WHERE fac_message_code  IN ('ALG_M210',
-                            'ALG_M204');
-
-INSERT INTO fac_message VALUES('ALG_M210', 'Dienstkring is niet ingevuld.');
-INSERT INTO fac_message VALUES('ALG_M204', 'Er zijn nog bouwlagen gekoppeld aan de verdiepingsoort.');
-#endif
-
-DELETE FROM fac_message
-WHERE fac_message_code  IN ('ALG_M170',
-                            'ALG_M173',
-                            'FAC_M005',
-                            'FAC_M007');
-
-INSERT INTO fac_message VALUES('ALG_M170', 'De omschrijving van het systeemcluster is niet ingevuld.');
-INSERT INTO fac_message VALUES('ALG_M173', 'Het systeemcluster is niet ingevuld.');
-INSERT INTO fac_message VALUES('INS_M138', 'Er is geen deel geselecteerd');
-INSERT INTO fac_message VALUES('FAC_M007', 'Uitvoer Rapportage');
-INSERT INTO fac_message VALUES('FAC_M005', 'Copyright (c) 1996-1997, Seki-Riesewijk B.V.');
-
-COMMIT;
-
-ALTER TABLE beb_categorie
-ADD UNIQUE(beb_categorie_code);
-
-DROP SEQUENCE beb_s_beb_categorie_key;
-CREATE SEQUENCE beb_s_beb_categorie_key MINVALUE 1;
-
-INSERT into beb_categorie (beb_categorie_code) VALUES ('OG');
-INSERT into beb_categorie (beb_categorie_code) VALUES ('VG');
-INSERT into beb_categorie (beb_categorie_code) VALUES ('BG1');
-INSERT into beb_categorie (beb_categorie_code) VALUES ('BG2');
-
-UPDATE fac_form
-SET fac_form_context = 'INS_INS124',
-    fac_form_parameter = NULL
-WHERE fac_form_name = 'INS124';
-
-UPDATE fac_form
-SET fac_form_parameter = NULL
-WHERE fac_form_name = 'INS125';
-
-UPDATE fac_form
-SET fac_form_context = 'INS_INS213',
-    fac_form_parameter = NULL
-WHERE fac_form_name = 'INS213';
-
-UPDATE fac_form
-SET fac_form_context = 'INS_INS214',
-    fac_form_parameter = NULL
-WHERE fac_form_name = 'INS214';
-
-COMMIT;
-
-PROMPT Vergeet niet te committen!
-SPOOL OFF

_UP/127TO128.SRC

@@ -1,84 +0,0 @@
-SPOOL 127to128
---
--- [Z:\PROJECT\SM44\SRC\SQL\_UPDATE\127TO128.SQL]
---
--- Update script van Facilitor 2.0 versie 1.27 naar 1.28
---
--- Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
--- om #ifdef's te gebruiken voor de diverse modules.
---
--- Revisie:
---
--- 22-04-97 KTH Aangemaakt
---
-
--- LOG#.... Bugfixes lijst 970424.TXT en 970505.txt van KTH
-
-#ifdef HUI
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name = 'INV_SRTDEEL';
-
-DEF_FAC_ENTITY ('INV_SRTDEEL', 'Artikel', 'Artikelen', 'het');
-#endif
-
-DELETE FROM fac_message
-WHERE fac_message_code IN ('INV_M005', 'INV_M006', 'LEV_M026');
-
-DEF_FAC_MESSAGE ('INV_M005', 'De omschrijving voor het artikeltype is niet ingevuld.');
-DEF_FAC_MESSAGE ('INV_M006', 'Het artikeltype is niet ingevuld.');
-DEF_FAC_MESSAGE ('LEV_M026', 'Er zijn geen leveringregels bij deze levering.');
-
--- 05-05-97 AH 	LEV_LEVERREGEL boekt niets op ALG_KOSTENPOST_BESTEED
---              In LEV_T_LEV_LEVERREGEL_B_IU aangepast.
-CREATE OR REPLACE TRIGGER lev_t_lev_leverregel_B_IU
-BEFORE INSERT OR UPDATE ON lev_leverregel
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(lev_leverregel_key, lev_s_lev_leverregel_key);
-    /* Ver het veld ALG_KOSTENPOST_BESTEED bij met aantal_geleverd*Prijs.
-     * Wijzigen van een leverregel is eigenlijk niet mogelijk, maar toch
-     * gedeeltelijk aangepast. 
-     * Hier wordt bij wijzigen geen rekening gehouden met :
-     * - Wijzigen van INS_SRTDEEL_KEY.
-     * - Wijzigen van de prijs van INS_SRTDEEL
-     */
-    IF :old.lev_leverregel_aantal IS NULL
-    OR (:old.lev_leverregel_aantal <> :new.lev_leverregel_aantal)
-    THEN
-       DECLARE
-          Kostenpost     NUMBER(10);
-          ExtraBesteed   alg_kostenpost.alg_kostenpost_besteed%TYPE;
-          Prijs          ins_srtdeel.inv_srtdeel_prijs%TYPE; 
-       BEGIN
-          SELECT ALG_K.alg_kostenpost_key
-          INTO Kostenpost
-          FROM lev_bestelregel LEV_BR, lev_bestelling LEV_B,
-               alg_kostenpost ALG_K
-          WHERE LEV_BR.lev_bestelling_key = LEV_B.lev_bestelling_key
-            AND LEV_B.lev_alg_kostenpost_key = ALG_K.alg_kostenpost_key
-            AND LEV_BR.lev_bestelregel_key = :new.lev_bestelregel_key;
-          SELECT inv_srtdeel_prijs
-          INTO Prijs
-          FROM inv_v_aanwezigsrtdeel
-          WHERE ins_srtdeel_key = :new.lev_ins_srtdeel_key;
-          ExtraBesteed := (:new.lev_leverregel_aantal - NVL(:old.lev_leverregel_aantal,0))
-                          * NVL(Prijs, 0);
-          UPDATE alg_kostenpost
-          SET alg_kostenpost_besteed = NVL(alg_kostenpost_besteed, 0) + 
-                                       ExtraBesteed
-          WHERE alg_kostenpost_key = Kostenpost;
-       EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN NULL;
-       END;
-    END IF;
-END;
-/
-
-DEF_FAC_MESSAGE ('LEV_M072', 'Het bestelnummer is niet ingevuld.');
-
-
-COMMIT;
-
-PROMPT Vergeet niet te committen!
-SPOOL OFF

_UP/128TO129.SQL

@@ -1,70 +0,0 @@
-SPOOL 128to129
---
--- [Z:\PROJECT\SM44\SRC\SQL\_UPDATE\128TO129.SQL]
---
--- Update script van Facilitor 2.0 versie 1.28 naar 1.29
---
--- Dit script wordt geprecompileerd dus is het mogelijk (verplicht)
--- om #ifdef's te gebruiken voor de diverse modules.
---
--- Revisie:
---
--- 11-07-97   AH Fouten in dit script gevonden door MvK, nl. LEV_M072 bestond al en 
---               DROP UNIQUE(INV_SRDEEL_NR) mist een T UNIQUE(INV_SRTDEEL_NR).
--- 09-07-1997 AH #1362, LEV_M026 gewijzigd in dit script, was al in FAC_INI gebeurt.
--- 08-07-1997 AH #1352, LEV_M072 toegevoegd   
--- 7/2/97   AH   #1347, Teskt bij INV021 aangepast in 'Bruikleen inventaris'
--- 07-07-1997 AH #1339, LEV_M073 toegevoegd   
--- 7/2/97   AH   #1353: 'Overnachting' moet zijn 'Legering'
--- 7/2/97   AH   #1347: INV_M047 aangepast in 'Bruikleen inventeris'
--- 7/1/97  AH    #1345, UNIQUE op INV_SRTDEEL_NR verplaatst naar UNIQUE op INV_SRTDEEL_NR en INS_SRTDEEL_VERWIJDER. 
--- 7/2/97   AH   #1354, UNIQUE op PRS_LEVERANCIER_NR toegevoegd.
-
-
--- LOG#1347
-UPDATE FAC_FORM
-SET fac_form_opmerking = 'Bruikleen inventaris'
-WHERE fac_form_name = 'INV021';
-
--- LOG#1353, #1347, #1362
-DELETE FROM fac_message
-WHERE fac_message_code IN ('INV_M047', 'HUI_M018',
-                                       'HUI_M020',
-                                       'HUI_M036',
-                                       'LEV_M026');
-
-DELETE FROM fac_entity_name
-WHERE fac_entity_system_name = 'HUI_OVERNACHTING';
-
-INSERT INTO FAC_ENTITY_NAME VALUES('HUI_OVERNACHTING', 'Legering', 'Legeringen', 'de');
-INSERT INTO FAC_MESSAGE VALUES('INV_M047', 'Bruikleen inventaris');
-INSERT INTO FAC_MESSAGE VALUES('HUI_M018', 'De legering van ');
-INSERT INTO FAC_MESSAGE VALUES('HUI_M020', 'Alleen actuele legeringen');
-INSERT INTO FAC_MESSAGE VALUES('HUI_M036', 'Bruikleenbewijs legering');
-INSERT INTO FAC_MESSAGE VALUES('LEV_M026', 'Er zijn geen leveringregels bij deze levering.');
-
--- LOG#1352
---INSERT INTO FAC_MESSAGE VALUES('LEV_M072', 'Het bestelnummer is niet ingevuld.');
--- LOG#1339
-INSERT INTO FAC_MESSAGE VALUES('LEV_M073', 'De leverdatum ligt voor de huidige datum.');
-
-
--- LOG#1345
-ALTER TABLE ins_srtdeel
-DROP unique(INV_SRTDEEL_NR);
-
-ALTER TABLE ins_srtdeel
-ADD CONSTRAINT ins_c_ins_srtdeel_nr_unique UNIQUE(inv_srtdeel_nr, ins_srtdeel_verwijder);
-
--- LOG#1354
-ALTER TABLE prs_bedrijf
-ADD CONSTRAINT prs_c_prs_leverancier_unique UNIQUE(prs_leverancier_nr, prs_bedrijf_verwijder); 
-
--- werk vervolgens het versienummer en de datum bij (van alle interne modules)
-UPDATE fac_module
-  SET fac_module_version='01.29',
-  fac_module_date=TO_CHAR(SYSDATE,'YYYYMMDD');
-
-COMMIT;
-
-SPOOL OFF