FMHN#73451: Automatische opdrachten worden niet naar NPQ gestuurd (vervolg).

svn path=/Database/branches/DB42/; revision=56593

ALG/ALG_TAB.SRC

@@ -370,6 +370,11 @@ CREATE_TABLE(alg_gebouw,0)
         DEFAULT 1
         CONSTRAINT alg_c_alg_gebouw_bez CHECK(alg_gebouw_bez IS NULL
                                            OR alg_gebouw_bez = 1),
+    alg_gebouw_mld
+        NUMBER(1)
+        DEFAULT(1)
+        CONSTRAINT alg_c_alg_gebouw_mld CHECK(alg_gebouw_mld IS NULL
+                                           OR alg_gebouw_mld = 1),
     alg_gebouw_email
         VARCHAR2(200),
     alg_gebouw_vervaldatum
@@ -393,6 +398,10 @@ CREATE_TABLE(alg_gebouw,0)
         VARCHAR2(256),
     alg_gebouw_externsyncdate
         DATE,
+-- in MLD_TAB.SRC:
+--    mld_dienstniveau_key
+--        NUMBER(10)
+--        REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 

AUT/AUT_TAB.SRC

@@ -189,6 +189,10 @@ CREATE TABLE aut_client_perslid
         VARCHAR(320),
     aut_client_perslid_device_name
         VARCHAR(320),
+    aut_client_perslid_appbuild
+        NUMBER(10),
+    aut_client_perslid_appversion
+        VARCHAR2(20),
     aut_client_perslid_scope
         VARCHAR(320)
         DEFAULT NULL,

BES/BES_TAB.SRC

@@ -353,9 +353,9 @@ CREATE_TABLE(bes_bestelopdr_item, 0)
     bes_bestelopdr_item_prijs
         NUMBER(12,6),
     bes_bestelopdr_item_inkprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_bestelopdr_item_brutoprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_bestelopdr_item_ontvangen
         DATE,
     bes_bestelopdr_item_status
@@ -384,7 +384,7 @@ CREATE_TABLE(bes_bestelling_item, 0)
         NUMBER(15,3)
         CONSTRAINT bes_c_bes_bestelling_i_aantal CHECK(bes_bestelling_item_aantal IS NOT NULL),
     bes_bestelling_item_brutoprijs /* verkoopprijs ten tijde van bestelling */
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_bestelling_item_prijs  /* incl. kortingen */
         NUMBER(12,6),
     bes_bestelling_item_inkprijs /* inkoopprijs ten tijde van bestelling */
@@ -552,6 +552,10 @@ CREATE_TABLE(bes_disc_params, 0)
         DEFAULT 0
         NOT NULL,
     bes_disc_params_hide_cost_fe  /* Onderdruk kosten in bestellijst voor FE {0=Nee (default), 1=Ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_deliver_fe
         NUMBER(1)
         DEFAULT 0
         NOT NULL
@@ -739,9 +743,9 @@ CREATE_TABLE(bes_srtdeel_prijs,0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_srtdeel_key1 REFERENCES bes_srtdeel(bes_srtdeel_key) ON DELETE CASCADE,
     bes_srtdeel_prijs_prijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_srtdeel_prijs_inkprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig (Farmers wilde dit ook). */
     bes_srtdeel_prijs_vervaldatum
         DATE,
@@ -760,9 +764,9 @@ CREATE_TABLE(bes_srtprod_prijs,0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_srtprod_key REFERENCES bes_srtprod(bes_srtprod_key),
     bes_srtprod_prijs_prijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_srtprod_prijs_inkprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig */
     bes_srtprod_prijs_vervaldatum
         DATE,
@@ -788,7 +792,7 @@ CREATE_TABLE(bes_bedrijf_srtprod, 0)
     bes_bedrijf_srtprod_opmerking
         VARCHAR2(320),
     bes_bedrijf_srtprod_prijs
-        NUMBER(8,2)
+        NUMBER(11,5)
 );
 
 /* MB: Voorkeursleveranciers    ---------------------------------------------------------------------------*/

BES/BES_VIE.SRC

@@ -175,7 +175,7 @@ AS
                   ins_tab_discipline d,
                   alg_locatie l
             WHERE b.prs_perslid_key = p.prs_perslid_key
-              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
+              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
               AND p.prs_afdeling_key = a.prs_afdeling_key
               AND b.mld_adres_key_lev = ma.mld_adres_key
               AND wp2.prs_perslid_key(+) = p.prs_perslid_key
@@ -448,7 +448,7 @@ AS
                   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 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

BEZ/BEZ_IND.SRC

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

BEZ/BEZ_PAC.SRC

@@ -32,6 +32,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       hasparking NUMBER;
       nieuwvan DATE;
       nieuwtot DATE;
+      alg_gebter_key ins_deel.ins_alg_ruimte_key%TYPE;
 
       CURSOR bezoekers
       IS
@@ -130,7 +131,25 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
          IF (hasparking > 0)
          THEN
+            -- Probeer in/op het/dezelfde gebouw/terreinsector een lege parkeerplaats te vinden.
+            -- Lukt dit niet dan probeer op dezelfde locatie een lege parkeerplaats te vinden.
+            SELECT id.ins_alg_ruimte_key
+              INTO alg_gebter_key
+              FROM res_rsv_deel rrd,
+                   res_deel rd,
+                   ins_deel id
+             WHERE rrd.res_deel_key = rd.res_deel_key
+               AND rd.res_ins_deel_key = id.ins_deel_key
+               AND rrd.bez_bezoekers_key = b.bez_bezoekers_key;
+
+            claim_parking (newbezoekerskey, alg_gebter_key);
+
+            hasparking := bez.hasparking (newbezoekerskey);
+            IF hasparking = 0
+            THEN
+               -- dan maar de oude methode: overal zoeken
                claim_parking (newbezoekerskey, null);
+            END IF;
          -- Eventueel: controleren of de nieuwe nu ook een P heeft,
          -- en zo niet dat dan tracken; goed doordenken!
          END IF;
@@ -203,6 +222,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       END IF;
    END;
 
+   -- Pas op met testen van deze PROCEDURE. De user voor autorisatie wordt bepaald
+   -- via sys_context('USERENV', 'CLIENT_IDENTIFIER')
+   -- ASP-code zet die indirect via fac.initsession
+   -- Compacter kun je dat doen via DBMS_SESSION.SET_IDENTIFIER(3); (met 3=key van de user)
    PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER)
    AS
       lafspraakkey bez_afspraak.bez_afspraak_key%TYPE;
@@ -215,6 +238,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       lparkeerkey res_deel.res_deel_key%TYPE;
       bez_parkingdiscipline_key NUMBER;
       lpreposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
+      lautlevel fac_v_webgebruiker.fac_gebruiker_prs_level_write%TYPE;
    BEGIN
       -- Claim een (nieuwe) parkeerplaats voor de gegeven bezoeker
       -- Reserveer voor de tijden van de bijbehorende afspraak cq. res_rsv_ruimte
@@ -287,6 +311,16 @@ CREATE OR REPLACE PACKAGE BODY bez AS
         FROM res_disc_params rdp
        WHERE rdp.res_ins_discipline_key = bez_parkingdiscipline_key;
 
+      SELECT COALESCE((SELECT w.fac_gebruiker_prs_level_write
+                         FROM fac_v_webgebruiker w,
+                              fac_functie f
+                        WHERE w.fac_functie_key = f.fac_functie_key
+                          AND w.prs_perslid_key = TO_NUMBER(SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER'))
+                          AND f.fac_functie_code = 'WEB_BEZPAF'),
+                      9) lautlevel
+        INTO lautlevel
+        FROM DUAL;
+
       -- lpreposttime is nu in dagen (in uren / 24 = in dagen).
       -- In de query wordt rekening gehouden met 1 minuut marge voor afrondfouten (+/- 1 / 1440).
       -- Heb ik een gebouwkey of terreinkey meegekregen?
@@ -295,7 +329,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
         -- Wat is een vrije parkeerplaats
         SELECT MIN (res_deel_key)                                                                    -- logischer maken?
           INTO lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
+          FROM (SELECT d.res_deel_key,
                        (SELECT MIN (rd.res_deel_key)
                           FROM res_v_aanwezigrsv_deel rd
                          WHERE     d.res_deel_key = rd.res_deel_key
@@ -303,23 +337,51 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
                                AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
                                AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
-                                       AND d.res_discipline_key = bez_parkingdiscipline_key)
+                               AND d.res_discipline_key = bez_parkingdiscipline_key) aantal
-                                aantal
+                  FROM res_v_aanwezigdeel d,
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_aanwezigterreinsector t
+                       ins_deel id,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
                  WHERE d.res_ins_deel_key = id.ins_deel_key
                    AND id.ins_alg_locatie_key = llocatiekey
                    AND d.res_discipline_key = bez_parkingdiscipline_key
                    AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_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
+                   AND t.alg_terreinsector_key IN
+                           (SELECT alg_terreinsector_key
+                              FROM alg_v_aanwezigterreinsector t2
+                             WHERE (lautlevel < 0
+                                 OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                 OR (lautlevel > 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.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 = (SELECT prs_afdeling_key
+                                                                                       FROM prs_perslid
+                                                                                      WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                          AND aa.niveau = lautlevel))))
+                                 OR (lautlevel = 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.prs_afdeling_key IN
+                                          (SELECT a.prs_afdeling_key
+                                             FROM prs_v_afdeling a
+                                            WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                         FROM prs_perslid p,
+                                                                              prs_v_afdeling a
+                                                                        WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                          AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))
                    -- 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,
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                        POWER(2,
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
                        POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
-                             AND (   d.res_deel_vervaldatum IS NULL
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
-                                  OR d.res_deel_vervaldatum > lbegin)
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
                 ORDER BY   id.ins_deel_upper)
          WHERE aantal IS NULL;
       ELSE
@@ -327,7 +389,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
         -- Er is een gebouwkey of terreinkey meegegeven. Hierbinnen moet de parkeerplaats gereserveerd worden.
         SELECT MIN (res_deel_key)                                                                    -- logischer maken?
           INTO lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
+          FROM (SELECT d.res_deel_key,
                        (SELECT MIN (rd.res_deel_key)
                           FROM res_v_aanwezigrsv_deel rd
                          WHERE d.res_deel_key = rd.res_deel_key
@@ -337,23 +399,55 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                            AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
                            AND d.res_discipline_key = bez_parkingdiscipline_key)
                           aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_allonroerendgoed og
+                  FROM res_v_aanwezigdeel d,
+                       ins_deel id,
+                       alg_v_allonroerendgoed og,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
                  WHERE d.res_ins_deel_key = id.ins_deel_key
                    AND id.ins_alg_locatie_key = llocatiekey
                    AND d.res_discipline_key = bez_parkingdiscipline_key
+                   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_key
                    AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
                      OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
-                             AND (og.alg_gebouw_key = palg_gebter_key
+                   AND (og.alg_gebouw_key = palg_gebter_key                   -- De talbel alg_gebouw heeft geen referentie naar de afdelingen tabel (geen prs_afdeling_key kolom).
-                               OR og.alg_terreinsector_key = palg_gebter_key)
+                     OR (og.alg_terreinsector_key = palg_gebter_key
+                     AND og.alg_terreinsector_key IN
+                               (SELECT alg_terreinsector_key
+                                  FROM alg_v_aanwezigterreinsector t2
+                                 WHERE (lautlevel < 0
+                                     OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                     OR (lautlevel > 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.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 = (SELECT prs_afdeling_key
+                                                                                           FROM prs_perslid
+                                                                                          WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                              AND aa.niveau = lautlevel))))
+                                     OR (lautlevel = 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.prs_afdeling_key IN
+                                              (SELECT a.prs_afdeling_key
+                                                 FROM prs_v_afdeling a
+                                                WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                             FROM prs_perslid p,
+                                                                                  prs_v_afdeling a
+                                                                            WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                              AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))))
                    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,
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                        POWER(2,
+                       POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
-                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
-                             AND (   d.res_deel_vervaldatum IS NULL
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
-                                  OR d.res_deel_vervaldatum > lbegin)
                 ORDER BY id.ins_deel_upper)
          WHERE aantal IS NULL;
       END IF;

BEZ/BEZ_TAB.SRC

@@ -39,7 +39,7 @@ CREATE_TABLE(bez_afspraak,0)
         NUMBER(10)
         REFERENCES prs_perslid(prs_perslid_key),
     bez_afspraak_gastheer
-        VARCHAR2(50),
+        VARCHAR2(120),
     bez_afspraak_telefoonnr
         VARCHAR2(15),
     bez_afspraak_datum
@@ -54,6 +54,9 @@ CREATE_TABLE(bez_afspraak,0)
     res_rsv_ruimte_key
         NUMBER(10)
         REFERENCES res_rsv_ruimte(res_rsv_ruimte_key),
+    mld_opdr_key
+        NUMBER(10)
+        REFERENCES mld_opdr(mld_opdr_key),
     alg_onrgoed_keys
         NUMBER(10),
     bez_afspraak_ruimte

BEZ/BEZ_VIE.SRC

@@ -141,8 +141,8 @@ AS
            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(+)
-           AND ab.prs_afdeling_key1 = an.prs_afdeling_key
+           AND ab.prs_afdeling_key1 = an.prs_afdeling_key(+)
-           AND ab.prs_afdeling_key = pp1.prs_afdeling_key
+           AND ab.prs_afdeling_key(+) = pp1.prs_afdeling_key
            AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
 
 CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)

CAD/CAD_TAB.SRC

@@ -82,9 +82,11 @@ CREATE_TABLE(cad_thema,0)
 (
     cad_thema_key
         NUMBER(10) PRIMARY KEY,
-    cad_thema_omschrijving
+    cad_thema_omschrijving  /* de naam */
         VARCHAR2(60)
         NOT_NULL(cad_thema_omschrijving, cad_c_cad_thema_omschr),
+    cad_thema_opmerking     /* de uitleg */
+        VARCHAR2(4000),
     cad_legenda_key
         NUMBER(10)
         CONSTRAINT cad_r_cad_legenda_key REFERENCES cad_legenda(cad_legenda_key),
@@ -98,7 +100,11 @@ CREATE_TABLE(cad_thema,0)
         NUMBER(10)
         CONSTRAINT cad_fac_functie_key1 REFERENCES fac_functie(fac_functie_key),
     cad_thema_onclick_url
-        VARCHAR2(512)
+        VARCHAR2(512),
+    cad_thema_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT cad_c_cad_thema_aanmaak NOT NULL
 );
 
 ALTER TABLE mld_stdmelding
@@ -114,9 +120,11 @@ CREATE_TABLE(cad_label,0)
 (
     cad_label_key
         NUMBER(10) PRIMARY KEY,
-    cad_label_omschrijving
+    cad_label_omschrijving  /* de naam */
         VARCHAR2(60)
         NOT_NULL(cad_label_omschrijving, cad_c_cad_label_omschr),
+    cad_label_opmerking     /* de uitleg */
+        VARCHAR2(4000),
     cad_label_view
         VARCHAR2(1000)
         NOT_NULL(cad_label_view, cad_c_cad_label_view),
@@ -125,14 +133,20 @@ CREATE_TABLE(cad_label,0)
         CONSTRAINT cad_c_cad_label_type CHECK (cad_label_type BETWEEN 1 AND 31),
     cad_label_size
         NUMBER,
+    cad_label_rotation
+        NUMBER(3), /* (0-360) */
     fac_functie_key
         NUMBER(10)
         CONSTRAINT cad_fac_functie_key2 REFERENCES fac_functie(fac_functie_key),
-    cad_label_visible
+    cad_label_visible /* eigenlijk zou cad_label_label_visible beter zijn, of het id-label erbij getoond moet worden */
         NUMBER(1)
         DEFAULT 1
         NOT NULL
-        CONSTRAINT cad_c_cad_label_visible CHECK (cad_label_visible IN (0,1))
+        CONSTRAINT cad_c_cad_label_visible CHECK (cad_label_visible IN (0,1)),
+    cad_label_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT cad_c_cad_label_aanmaak NOT NULL
 );
 
 CREATE_TABLE(cad_imp_contour,0)

CAD/CAD_VIE.SRC

@@ -209,7 +209,12 @@ CREATE_VIEW(cad_v_label_srtruimteopp,0)
      (alg_ruimte_key, waarde)
 AS
     SELECT r.alg_ruimte_key,
-          sr.alg_srtruimte_omschrijving || ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)'
+              lcl.x ('alg_srtruimte_omschrijving',
+                     sr.alg_srtruimte_key,
+                     sr.alg_srtruimte_omschrijving)
+           || DECODE (r.alg_ruimte_bruto_vloeropp,
+                      NULL, '',
+                      ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)')
       FROM alg_v_aanwezigruimte r, alg_srtruimte sr
      WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key;
 
@@ -217,7 +222,9 @@ AS
 CREATE_VIEW(cad_v_thema_srtruimte, 0)
      (alg_ruimte_key, waarde, waarde_key)
 AS
-   SELECT r.alg_ruimte_key, sr.alg_srtruimte_omschrijving, r.alg_srtruimte_key
+  SELECT r.alg_ruimte_key,
+        sr.alg_srtruimte_omschrijving,  // deze moet niet vertaald worden, dat regelt de programmatuur
+        r.alg_srtruimte_key
   FROM alg_v_aanwezigruimte r, alg_srtruimte sr
  WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+);
 
@@ -658,8 +665,8 @@ AS
                      AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
                      AND pf.prs_perslid_key = p.prs_perslid_key
                      AND p.prs_afdeling_key = a.prs_afdeling_key
-                     AND datum >= TRUNC (res_rsv_deel_van)
+                     AND datum + 1 >= res_rsv_deel_van
-                     AND datum < TRUNC (res_rsv_deel_tot + 1)) res                          -- Bezet
+                     AND datum < res_rsv_deel_tot ) res                          -- Bezet
        WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+)
     GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
 
@@ -829,8 +836,8 @@ AS
                              res_rsv_deel_tot
                         FROM datums, res_v_aanwezigrsv_deel rrd
                        WHERE     res_rsv_deel_van > TRUNC(SYSDATE) - 1        -- negeer alle irrelevante historie sowieso
-                             AND datum >= TRUNC (res_rsv_deel_van)
+                             AND datum + 1 >= res_rsv_deel_van
-                             AND datum < TRUNC (res_rsv_deel_tot) + 1) blokkerend -- vandaag en nog niet afgelopen
+                             AND datum < res_rsv_deel_tot) blokkerend -- vandaag en nog niet afgelopen
                WHERE     r.res_deel_key = blokkerend.res_deel_key(+)
                      AND datums.datum = blokkerend.datum(+)
                      AND (r.res_deel_vervaldatum IS NULL or r.res_deel_vervaldatum > datums.datum)

COMSQL.H

@@ -633,22 +633,26 @@ CEIL
 #define DEF_MENUKOPV(g, v, s, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) VALUES (v, s, g, i, 1)
 #define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x, img) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default, fac_menuitems_image) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x, img FROM fac_functie WHERE fac_functie_code=f
 
-#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_functie_key) SELECT v, l, i, u, g, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
+#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_menu_level, fac_functie_key) SELECT v, l, i, u, g, 2, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
 
 #define DEF_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
-#define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
+#define DEF_BOOKMARK(x, p, q) INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
 // We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter
-#define DEF_STATUS(x, c, t)INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
+#define DEF_STATUS(x, c, t) INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
 
 // Voeg (nieuwe, default) menukop met label a van groep g en level l toe na bestaande menuoptie met label b, increment n
 #define MENU_INSKOP_AFTER(a, b, g, n) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT fac_menu_volgnr + n, a, g, 1 FROM fac_menu m WHERE m.fac_menuitems_key = (SELECT MAX (mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // Voeg (nieuwe, default) menuoptie met label a toe na de eerste bestaande menukop met label b, increment n
-#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, MIN (m.fac_menu_volgnr) + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
+#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, MIN (m.fac_menu_volgnr) + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
 // Voeg (nieuwe, default) menuoptie met label a toe na bestaande menuoptie met label b, increment n
-#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
+#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, m.fac_menu_volgnr + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // poging 1
 #define MENU_MOV_AFTER(b, a, n) UPDATE fac_menu SET fac_menu_volgnr = (SELECT m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE m.fac_menuitems_key=i.fac_menuitems_key AND i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a)) WHERE fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 
+
+// Default widget's volgens;
+#define DEF_WIDGET(t, n, c, u, p) INSERT INTO fac_widget (fac_widget_type, fac_widget_naam, fac_widget_content, fac_widget_url, fac_widget_public) VALUES (UPPER(t), n, c, u, p)
+
 // NOT_NULL(): Columnconstraint ipv. NOT NULL, De melding ORA-1400: mandatory (NOT NULL)...
 // geeft de constraintnaam niet, zodat de melding niet vertaald kan worden.
 // De CHECK() geeft het wel, dus wordt deze gebruikt.

FAC/FAC_IND.SRC

@@ -40,6 +40,9 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
 
 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_fac_imp_file1 ON fac_imp_file(fac_import_key);
+CREATE INDEX fac_i_fac_imp_csv1 ON fac_imp_csv(fac_import_key);
+
 -- Maakt opruimen efficienter:
 CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key, fac_import_key);
 

FAC/FAC_INI.SRC

@@ -7,6 +7,7 @@
  */
 _FAC_MODULE('FAC', 'lcl_module_FAC')
 _FAC_MODULE('CHT', 'lcl_module_CHT')
+_FAC_MODULE('WGT', 'lcl_module_WGT')
 _FAC_MODULE('FAQ', 'lcl_module_FAQ')
 _FAC_MODULE('PDA', 'lcl_module_PDA')
 _FAC_MODULE('UDR', 'lcl_module_UDR')
@@ -18,6 +19,9 @@ INSERT INTO fac_version (fac_version_date, fac_version_lang) VALUES (SYSDATE, 'N
  *      The GENERAL MESSAGES
  *
  */
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 DEF_FAC_MESSAGE ('fac_m002', 'Facilitor '_CONCAT _DBV_STRING,'Facilitor '_CONCAT _DBV_STRING);
 
 /* FAC */
@@ -55,7 +59,7 @@ DEF_FAC_MESSAGE ('fac_m033', 'Uitvoer Rapportage naar een bestand','Ouput report
 DEF_FAC_MESSAGE ('FAC_M034', 'Bezig met samenstellen van de tekening...','Composing drawing...');
 DEF_FAC_MESSAGE ('FAC_M036', 'Er is al een viewer geopend.','A viewer is already active');
 DEF_FAC_MESSAGE ('FAC_M037', 'Fout in definitie van view.','Error in view definition');
-DEF_FAC_MESSAGE ('FAC_M038', ' http://www.facilitor.nl/',' http://www.facilitor.nl/');
+DEF_FAC_MESSAGE ('FAC_M038', ' https://www.facilitor.nl/',' https://www.facilitor.nl/');
 DEF_FAC_MESSAGE ('FAC_M039', 'Verwijderen uit gebruikerstabel','Delete from usertable');
 DEF_FAC_MESSAGE ('FAC_M040', 'Verwijderen van %1% uit gebruikerstabel %2% ?','Delete %1% from usertable %2% ?');
 DEF_FAC_MESSAGE ('FAC_M041', '%1% wordt nog gebruikt. Verwijderen is niet mogelijk.','%1% still in use. Can not delete.');
@@ -1630,6 +1634,8 @@ DEF_FAC_MESSAGE ('KPN_OPENST_RES_V', 'is kostenplaats bij voorzieningreservering
 DEF_FAC_MESSAGE ('KPN_OPENST_RES_C', 'is kostenplaats voor cateringbestelling', '');
 DEF_FAC_MESSAGE ('KPN_OPENST_BESTELLING', 'is kostenplaats bij bestelling', '');
 
+END;
+/
 
 /* Functions are defined by:
  *  Code (mnemonic), to be used in the application code
@@ -1648,6 +1654,9 @@ DEF_FAC_MESSAGE ('KPN_OPENST_BESTELLING', 'is kostenplaats bij bestelling', '');
  *  Info, to give more info to the application manager
  */
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 DEF_FAC_FUNCTIE3('WEB_ALGMAN', 'ALG', 11, 0,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_ALGMGT', 'ALG',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_ALGMSU', 'ALG',  0, 0,    2);  //    2
@@ -1714,11 +1723,12 @@ DEF_FAC_FUNCTIE3('WEB_FACMGT', 'FAC',  0, 0, NULL);  //    2
 DEF_FAC_FUNCTIE3('WEB_FACMSU', 'FAC',  0, 0, NULL);  //    2
 DEF_FAC_FUNCTIE3('WEB_FACTAB', 'FAC',  0, 0, NULL);  //    2
 DEF_FAC_FUNCTIE3('WEB_FACHML', 'FAC',  0, 0, NULL);  //
-DEF_FAC_FUNCTIE3('WEB_FAQBOF', 'FAQ',  3, 0,    1);  //    1
+DEF_FAC_FUNCTIE3('WEB_FACRFR', 'FAC',  0, 0, NULL);  //
-DEF_FAC_FUNCTIE3('WEB_FAQFOF', 'FAQ',  3, 0,    1);  //    1
+DEF_FAC_FUNCTIE3('WEB_FAQBOF', 'FAQ',  3, 1,    1);  //    1
+DEF_FAC_FUNCTIE3('WEB_FAQFOF', 'FAQ',  3, 1,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_FAQMGT', 'FAQ',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_FAQMSU', 'FAQ',  0, 0,    2);  //    2
-DEF_FAC_FUNCTIE3('WEB_FAQUSE', 'FAQ',  1, 0,    0);  //    0
+DEF_FAC_FUNCTIE3('WEB_FAQUSE', 'FAQ',  1, 1,    0);  //    0
 DEF_FAC_FUNCTIE3('WEB_FINBOF', 'FIN', 11, 0,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_FINFOF', 'FIN',  3, 0,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_FINGOE', 'FIN',  0, 0,    0);  //    1
@@ -1731,6 +1741,7 @@ DEF_FAC_FUNCTIE3('WEB_INSMGT', 'INS',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_INSMSU', 'INS',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_INSPRJ', 'INS', 11, 1,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_INSUSE', 'INS', 11, 1,    1);  //    1
+DEF_FAC_FUNCTIE3('WEB_INSMIN', 'INS',  0, 1,    0);
 DEF_FAC_FUNCTIE3('WEB_KPIRAP', 'KPI',  0, 0,    0);  //    1
 DEF_FAC_FUNCTIE3('WEB_LAYOUT', 'FAC',  0, 0, NULL);  // NULL
 DEF_FAC_FUNCTIE3('WEB_LCLSYS', 'FAC',  0, 0, NULL);  //    2
@@ -1746,6 +1757,7 @@ DEF_FAC_FUNCTIE3('WEB_MLDMGT', 'MLD',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_MLDMSU', 'MLD',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_MLDORD', 'MLD', 15, 1,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_MLDUSE', 'MLD', 15, 1,    0);  //    0
+DEF_FAC_FUNCTIE3('WEB_MLDMSA', 'MLD',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_MRKBOF', 'MRK',  0, 0,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_MRKMGT', 'MRK',  0, 0,    2);  //    2
 DEF_FAC_FUNCTIE3('WEB_MRKMSU', 'MRK',  0, 0,    2);  //    2
@@ -1799,6 +1811,8 @@ DEF_FAC_FUNCTIE3('WEB_UURBOF', 'MLD',  3, 1,    0);  //    1
 DEF_FAC_FUNCTIE3('WEB_UURFOF', 'MLD',  3, 1,    1);  //    1
 DEF_FAC_FUNCTIE3('WEB_UURUSE', 'MLD',  3, 0,    0);  //    0
 DEF_FAC_FUNCTIE3('WEB_VERFAC', 'FIN',  0, 0,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_WGTUSE', 'WGT',  3, 0,    0);
+DEF_FAC_FUNCTIE3('WEB_WGTMAN', 'WGT',  3, 0,    1);
 
 /* User definable functions */
 DEF_FAC_FUNCTIE3x('WEB_USER','01', 'FAC', 15, 0, NULL);
@@ -1852,6 +1866,8 @@ DEF_FAC_FUNCTIE3x('WEB_USER','48', 'FAC', 15, 0, NULL);
 DEF_FAC_FUNCTIE3x('WEB_USER','49', 'FAC', 15, 0, NULL);
 DEF_FAC_FUNCTIE3x('WEB_USER','50', 'FAC', 15, 0, NULL);
 
+END;
+/
 
 /*
  * fac_notificatie_status: de actuele verzendingsstatus. Bij de insert is deze gelijk aan fac_srtnotificatie_mode
@@ -1872,6 +1888,8 @@ DEF_FAC_FUNCTIE3x('WEB_USER','50', 'FAC', 15, 0, NULL);
  *   60 als er een gerede kans is dat er vlot een notificatie volgt die deze zou kunnen inhalen (in putnotificationsrtprio)
  */
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
 DEF_FAC_SRTNOT('ADMLIC', 0, 'lcl_noti_ADMLIC', '', '0', null, 10);
 
 DEF_FAC_SRTNOT('BESACP', 1, 'lcl_noti_BESACP', 'bes/bes_bestelling.asp?bes_key=', '0', 'bestelling', 60);
@@ -1962,6 +1980,9 @@ DEF_FAC_SRTNOT('MLDA2M', 0, 'lcl_noti_MLDA2M', 'mld/mld_melding.asp?urole=fe&mld
 -- bericht aan uitvoerende
 DEF_FAC_SRTNOT('ORDMLI', 4, 'lcl_noti_ORDMLI', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
 DEF_FAC_SRTNOT('ORDMLE', 2, 'lcl_noti_ORDMLE', '',                           '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDA2U', 0, 'lcl_noti_ORDA2U', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDNOL', 1, 'lcl_noti_ORDNOL', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
 -- bericht naar interne contactpersoon
 DEF_FAC_SRTNOT('ORDAFM', 1, 'lcl_noti_ORDAFM', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
 DEF_FAC_SRTNOT('ORDNEW', 0, 'lcl_noti_ORDNEW', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
@@ -1989,9 +2010,11 @@ DEF_FAC_SRTNOT('ORDANO', 0, 'lcl_noti_ORDANO', 'mld/mld_opdr.asp?opdr_key=', '0'
 DEF_FAC_SRTNOT('ORD2GO', 3, 'lcl_noti_ORD2GO', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
 DEF_FAC_SRTNOT('ORDOOK', 0, 'lcl_noti_ORDOOK', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
 DEF_FAC_SRTNOT('ORDONO', 0, 'lcl_noti_ORDONO', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDA2B', 0, 'lcl_noti_ORDA2B', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDNOB', 1, 'lcl_noti_ORDNOB', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
 
 DEF_FAC_SRTNOT('PRSINF', 2, 'lcl_noti_PRSINF', ''                            ,       '0', 'perslid',      10);
-DEF_FAC_SRTNOT('PRSREG', 127, 'lcl_noti_PRSREG', ''                          ,       '0', 'perslid',       0);
+DEF_FAC_SRTNOT('PRSREG', 63,'lcl_noti_PRSREG', ''                            ,       '0', 'perslid',       0);
 DEF_FAC_SRTNOT('PRSNEW', 0, 'lcl_noti_PRSNEW', 'prs/prs_perslid.asp?prs_key=',       '0', 'perslid',      10);
 DEF_FAC_SRTNOT('PRSUPD', 0, 'lcl_noti_PRSUPD', 'prs/prs_perslid.asp?prs_key=',       '0', 'perslid',      10);
 DEF_FAC_SRTNOT('PRSDEL', 0, 'lcl_noti_PRSDEL', 'prs/prs_perslid.asp?prs_key=',       '0', 'perslid',      10);
@@ -2063,6 +2086,8 @@ DEF_FAC_SRTNOT('ALGCAD', 0, 'lcl_noti_ALGCAD', 'alg/alg_ruimte.asp?key=',     '0
 DEF_FAC_SRTNOT('ALGWUP', 0, 'lcl_noti_ALGWUP', 'alg/alg_wp.asp?key=',         '0', 'werkplek',   60);
 DEF_FAC_SRTNOT('ALGTUP', 0, 'lcl_noti_ALGTUP', 'alg/alg_terreinsector.asp?key=','0','terreinsector', 60);
 
+DEF_FAC_SRTNOT('FAQUPD', 0, 'lcl_noti_FAQUPD', 'faq/fac_faq.asp?faq_key=', '0', 'kennisbank', 60);
+
 DEF_FAC_SRTNOT('FINNEW', 0, 'lcl_noti_FINNEW', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
 DEF_FAC_SRTNOT('FINUPD', 0, 'lcl_noti_FINUPD', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
 DEF_FAC_SRTNOT('FINFOK', 0, 'lcl_noti_FINFOK', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
@@ -2075,6 +2100,13 @@ DEF_FAC_SRTNOT('FINVER', 0, 'lcl_noti_FINVER', 'fin/fin_factuur.asp?fin_key=', '
 DEF_FAC_SRTNOT('FININF', 0, 'lcl_noti_FININF', 'fin/fin_search.asp?',          '1', 'factuur', 10);
 DEF_FAC_SRTNOT('FIN2GO', 3, 'lcl_noti_FIN2GO', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
 
+// Notificatiesoorten tbv mentions in de notities
+DEF_FAC_SRTNOT('CNTMEN', 3, 'lcl_noti_CNTMEN', 'cnt/cnt_contract.asp?cnt_key=', '0', 'contract', 10);
+DEF_FAC_SRTNOT('FINMEN', 3, 'lcl_noti_FINMEN', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('INSMEN', 3, 'lcl_noti_INSMEN', 'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
+DEF_FAC_SRTNOT('MLDMEN', 3, 'lcl_noti_MLDMEN', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('ORDMEN', 3, 'lcl_noti_ORDMEN', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
 // Notificatiesoorten tbv ad hoc mail (putorders needs to know xmlnode)
 DEF_FAC_SRTNOT('BESMAI', 0, 'lcl_noti_BESMAI', '', '0', 'bestelling',   10);
 DEF_FAC_SRTNOT('BES2MA', 0, 'lcl_noti_BES2MA', '', '0', 'bestelopdr',   10);
@@ -2116,9 +2148,12 @@ DEF_FAC_SRTNOT('PRSTRK', 0, '', 'prs/prs_perslid.asp?prs_key=',            0, 'p
 DEF_FAC_SRTNOT('RESTRK', 0, '', 'res/res_reservering.asp?rsv_ruimte_key=', 0, 'reservering', 10);
 DEF_FAC_SRTNOT('WEBTRK', 0, '', '',                                        0, 'intranet',    10);
 
+END;
+/
+
 COMMIT;
 
-/* Standaard beschikbare periodieke notifcaties; de views zijn in fac_vie gedefinieerd
+/* Standaard beschikbare periodieke notificaties; de views zijn in fac_vie gedefinieerd
  * (en worden zo bij iedere update zonodig bijgewerkt)
  */
 -- Eens per dag notificaties naar de aanvragers van reserveringen (2=mail+1=portal)
@@ -2151,6 +2186,9 @@ INSERT INTO fac_notificatie_job (fac_notificatie_job_view, fac_notificatie_job_o
    and the standard user is created:
    _facilitor for the system administrator with prssys rights
 */
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving)
+     VALUES ('FAQ', 'Standaard');
+
 INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving, prs_bedrijf_key)
      VALUES ('Onbekend', NULL);
 
@@ -2168,8 +2206,6 @@ INSERT INTO prs_perslid
              prs_afdeling_key,
              prs_perslid_naam,
              prs_perslid_oslogin,
-             prs_perslid_salt,
-             prs_perslid_wachtwoord_hash,
              prs_perslid_otpsecret,
              prs_perslid_dienstverband,
              prs_perslid_ingangsdatum,
@@ -2185,8 +2221,6 @@ INSERT INTO prs_perslid
                WHERE prs_afdeling_upper = 'ONBEKEND'),
              'Facilitor',
              '_FACILITOR',
-             'wAxYpizzUNeWAFdkIkhcEbfzFAYvEpoH',
-             '9D8B5A6A8AED1496DF8C1CC54A9EBFF2', /* fictorial */
              '1$30$6$0$' || RAWTOHEX(DBMS_RANDOM.string ('p', 20)), /* printable characters geeft zo'n 130 bits */
              100,
              SYSDATE,
@@ -2346,6 +2380,7 @@ DEF_IMPORT('WEB_PRSSYS', 'BEDRIJFADRES',        'FIP: Aanvullen technische bedri
 DEF_IMPORT('WEB_LCLSYS', 'TRANSLATION',         'Import of FACILITOR translation file',                    'Import of FACILITOR translation file')
 DEF_IMPORT('WEB_PRSSYS', 'KPN',                 'FIP: Aanmaken/bijwerken van kostenplaatsen',              'FIP: Create/Update cost centres')
 
+DEF_IMPORT('WEB_FACFAC', 'GENERICCSV',          'FIP: Generieke CSV import',                               'FIP: Generic CSV import')
 
 INSERT INTO fac_qlikview
             (fac_qlikview_omschrijving, fac_qlikview_qvw_name, fac_functie_key)
@@ -2403,6 +2438,9 @@ DEF_RAPPORT_COL('BEHEER: Audit fail', 10, 'fac_auditfail_key',   NULL, NULL,  'n
 DEF_RAPPORT_COL('BEHEER: Audit fail', 20, 'fac_auditfail_datum', 'R',  ':mp', 'datetime', 'V', 'Date',        'Date')
 DEF_RAPPORT_COL('BEHEER: Audit fail', 30, 'fac_auditfail_tekst', 'L',  NULL , 'varchar',  'V', 'Description', 'Description')
 
+DEF_RAPPORT('WEB_FACMGT', 0, 'fac_v_rap_auditusage',           'BEHEER: Audit gebruik',                 'Rapport audit gebruik',
+                                                               'ADMIN: Audit usage',                    'Report audit usage')
+
 DEF_RAPPORT('WEB_PRSSYS', 0, 'fac_v_rap_groepleden',           'BEHEER: Personen in groepen',           'Wie zit in welke groepen. NIET ZONDER FILTERS GEBRUIKEN',
                                                                'ADMIN: People in groups',               'Who is in which groups. DO NOT USE WITHOUT FILTERS!')
 DEF_RAPPORT('WEB_PRSSYS', 0, 'fac_v_rap_groeprechten',         'BEHEER: Rechten van groepen',           'Welke rechten heeft een groep e.d. NIET ZONDER FILTERS GEBRUIKEN!',
@@ -2531,6 +2569,9 @@ DEF_RAPPORT('WEB_UDRMAN', 32, 'fac_v_udr_faqkenmerk_cnd',      'UDR: Kennisbank
 // fac_menuitems_default    1 = default in menu aanwezig, 0 = default niet aanwezig
 // fac_menuitems_image      standaardafbeelding
 //
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 // ==================================== FRONTEND OPTIES ===========================================
 DEF_MENUKOP(0, 'lcl_menu_fe_mld', 'fa-bell');
 DEF_MENUITEM(0, 'lcl_menu_mld_fe_1'             , '', 'MLD', 'appl/mld/mld_melding.asp?urole=fe', 1, 0, 'WEB_MLDUSE', 'W', '1', '');
@@ -2562,6 +2603,7 @@ DEF_MENUITEM(0, 'lcl_menu_prs_phonebook'        , '', 'PRS', 'appl/prs/prs_phone
 DEF_MENUITEM(0, 'lcl_menu_fac_fiattering_fe'    , '', 'FAC', 'appl/fac/fac_fiattering_search.asp', 0, 0, 'WEB_MLDUSE', 'R', '1', '');  /* autorisatie? */
 DEF_MENUITEM(0, 'lcl_menu_fe_marktplaats'       , '', 'MRK', 'appl/mrk/mrk_search.asp?urole=fe', 0, 0, 'WEB_MRKUSE', 'R', '0', '');
 DEF_MENUITEM(0, 'lcl_menu_fe_myinfo'            , '', 'FAC', 'appl/fac/fac_user_info.asp', 0, 0, 'WEB_PROFIL', 'R', '1', '');
+DEF_MENUITEM(0, 'lcl_menu_my_wgt_page'          , '', 'WGT', 'appl/fac/fac_widget_page.asp', 0, 0, 'WEB_WGTUSE', 'W', '1', '');
 DEF_MENUITEM(0, 'lcl_menu_fe_search'            , '', 'FAC', 'appl/fac/prodsearch.asp', 0, 0, 'WEB_MLDUSE', 'R', '1', '');  /* autorisatie? */
 DEF_MENUITEM(0, 'lcl_menu_cht_chatnow'          , '', 'CHT', 'appl/chat/ChatterWant.asp', 0, 1, 'WEB_CHTREQ', 'R', '1', '');
 
@@ -2658,7 +2700,6 @@ DEF_MENUITEM(1, 'lcl_menu_cnt_bo'               , '', 'CNT', 'appl/cnt/cnt_searc
 DEF_MENUITEM(1, 'lcl_menu_fac_reports'          , '', 'FAC', 'appl/fac/fac_reportx_show.asp?mode=list', 0, 0, 'WEB_USRRAP', 'W', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_sle_sleutels_bo'      , '', 'SLE', 'appl/sle/sleutel_search.asp?urole=bo', 0, 0, 'WEB_SLEBOF', 'W', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_ins_verbruik'         , '', 'INS', 'appl/ins/ins_verbruik_search.asp', 0, 0, 'WEB_INSUSE', 'W', '1', '');
-DEF_MENUITEM(1, 'lcl_menu_ins_outlet'           , '', 'INS', 'appl/ins/outlet.asp', 0, 0, 'WEB_INSMAN', 'W', '0', '');
 DEF_MENUITEM(1, 'lcl_menu_ctr_scenarios'        , '', 'CTR', 'appl/mgt/ctr_scenario.asp', 0, 0, 'WEB_INSMAN', 'W', '1', '');
 
 DEF_MENUKOP(1, 'lcl_fg', 'fa-map');
@@ -2705,7 +2746,7 @@ DEF_MENUITEM(2, 'lcl_menu_fac_aut_perslid'      , '', 'FAC', 'appl/mgt/prs_persl
 
 DEF_MENUKOP(2, 'lcl_facmgt_fac', 'fa-life-ring');
 DEF_MENUITEM(2, 'lcl_Facilitor_Logcentre'       , '', 'FAC', 'https://logcentre.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_Facilitor_Forum'           , '', 'FAC', 'http://forum.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_Facilitor_Status'          , '', 'FAC', 'https://facilitor.nl/status', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_alg', 'fa-building');
 DEF_MENUITEM(2, 'lcl_menu_alg_gebouwfuncties'   , '', 'ALG', 'appl/mgt/alg_srtgebouw.asp', 0, 0, 'WEB_ALGMSU', 'W', '1', '');
@@ -2737,12 +2778,12 @@ DEF_MENUKOP(2, 'lcl_facmgt_ins', 'fa-fire-extinguisher');
 DEF_MENUITEM(2, 'lcl_menu_ins_disciplines'      , '', 'INS', 'appl/mgt/ins_discipline.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_groepen'          , '', 'INS', 'appl/mgt/ins_srtgroep.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_objectsoorten'    , '', 'INS', 'appl/ins/ins_srtdeel_search.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken'        , '', 'INS', 'appl/mgt/ins_kenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerksoorten'   , '', 'INS', 'appl/mgt/ins_srtkenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerkdomeinen'  , '', 'INS', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=INS', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ctr_disciplines'      , '', 'CTR', 'appl/mgt/ctr_discipline.asp', 0, 0, 'WEB_CTRMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_srtcontrole'      , '', 'INS', 'appl/mgt/ins_srtcontrole.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_controlemode'     , '', 'INS', 'appl/mgt/ins_controlemode.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken'        , '', 'INS', 'appl/mgt/ins_kenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_kenmerksoorten'   , '', 'INS', 'appl/mgt/ins_srtkenmerk.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_ins_kenmerkdomeinen'  , '', 'INS', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=INS', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_setting'          , '', 'INS', 'appl/fac/fac_setting_search.asp?module=INS', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_mld', 'fa-desktop');
@@ -2752,7 +2793,7 @@ DEF_MENUITEM(2, 'lcl_menu_mld_stdmeldinggroep'  , '', 'MLD', 'appl/mgt/mld_stdme
 DEF_MENUITEM(2, 'lcl_menu_mld_behandelgroep'    , '', 'MLD', 'appl/mgt/mld_behandelgroep.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_meldingen'        , '', 'MLD', 'appl/mgt/mld_stdmelding.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_dienst_niveaus'   , '', 'MLD', 'appl/mgt/mld_dienstniveau.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/mgt/mld_afmeldtekst.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/mgt/mld_afmeldtekst.asp', 0, 0, 'WEB_MLDMSA', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_opdrachttypes'    , '', 'MLD', 'appl/mgt/mld_typeopdr.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_improdopdr'       , '', 'MLD', 'appl/mgt/mld_impropdr.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_opdrkosten'       , '', 'MLD', 'appl/mgt/mld_kosten.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
@@ -2765,15 +2806,17 @@ DEF_MENUITEM(2, 'lcl_menu_mld_setting'          , '', 'MLD', 'appl/fac/fac_setti
 
 DEF_MENUKOP(2, 'lcl_facmgt_res', 'fa-calendar');
 DEF_MENUITEM(2, 'lcl_menu_res_srtactiviteiten'  , '', 'RES', 'appl/mgt/res_srtactiviteit.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_rui', '', 'RES', 'appl/mgt/res_ruimte.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_activiteiten'     , '', 'RES', 'appl/mgt/res_activiteit.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_obj', '', 'RES', 'appl/mgt/res_deel.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartikele', '', 'RES', 'appl/mgt/res_artikel.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_arrangementen'    , '', 'RES', 'appl/mgt/res_arrangement.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartscope', '', 'RES', 'appl/mgt/res_srtartikel_onrgoed.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_catalogi'         , '', 'RES', 'appl/mgt/res_discipline.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_rui', '', 'RES', 'appl/mgt/res_ruimte.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');  //ins_min_level=3
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_obj', '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=1', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_prs', '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=4', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_wp' , '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=5', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartikele', '', 'RES', 'appl/mgt/res_artikel.asp', 0, 0, 'WEB_RESMSU', 'W', '1', ''); //ins_min_level=2
+DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartscope', '', 'RES', 'appl/mgt/res_srtartikel_onrgoed.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_arrangementen'    , '', 'RES', 'appl/mgt/res_arrangement.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_opstellingen'     , '', 'RES', 'appl/mgt/res_opstelling.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_perioden'         , '', 'RES', 'appl/mgt/res_cyclus.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_activiteiten'     , '', 'RES', 'appl/mgt/res_activiteit.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_kenmerken'        , '', 'RES', 'appl/mgt/res_kenmerk.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_kenmerksoorten'   , '', 'RES', 'appl/mgt/res_srtkenmerk.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_res_kenmerkdomeinen'  , '', 'RES', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=RES', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
@@ -2836,6 +2879,7 @@ DEF_MENUITEM(2, 'lcl_menu_bez_kenmerkdomeinen'  , '', 'BEZ', 'appl/fac/fac_kenme
 DEF_MENUITEM(2, 'lcl_menu_bez_setting'          , '', 'BEZ', 'appl/fac/fac_setting_search.asp?module=BEZ', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_faq', 'fa-info-circle');
+DEF_MENUITEM(2, 'lcl_menu_faq_catalogi'         , '', 'FAQ', 'appl/mgt/faq_discipline.asp', 0, 0, 'WEB_FAQMSU', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_faq_kenmerk'          , '', 'FAQ', 'appl/mgt/faq_kenmerk.asp', 0, 0, 'WEB_FAQMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_faq_kenmerkdomeinen'  , '', 'FAQ', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=FAQ', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_faq_setting'          , '', 'FAQ', 'appl/fac/fac_setting_search.asp?module=FAQ', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
@@ -2856,6 +2900,7 @@ DEF_MENUITEM(2, 'lcl_menu_fac_notificaties'     , '', 'FAC', 'appl/mgt/fac_srtno
 DEF_MENUITEM(2, 'lcl_menu_cht_chatkanalen'      , '', 'CHT', 'appl/mgt/cht_discipline.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUITEM(2, 'lcl_menu_fac_menustructuur'    , '', 'FAC', 'appl/fac/fac_menu_search.asp?urole=bo', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_menustructuur_m'  , '', 'FAC', 'appl/fac/fac_menu_search.asp?urole=bo&mobile=1', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_bookmarks'        , '', 'FAC', 'appl/fac/fac_bookmark_list.asp', 0, 0, 'WEB_HLPADM', 'R', '0', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_vertalingen'      , '', 'FAC', 'appl/fac/fac_locale_search_std.asp', 0, 0, 'WEB_LCLSYS', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_anonymize'        , '', 'FAC', 'appl/fac/fac_anonymize_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
@@ -2865,6 +2910,8 @@ DEF_MENUITEM(2, 'lcl_menu_fac_setting'          , '', 'FAC', 'appl/fac/fac_setti
 DEF_MENUITEM(2, 'lcl_menu_fac_xsledit'          , '', 'FAC', 'appl/fac/fac_edit_xsl.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_styling'          , '', 'FAC', 'appl/fac/fac_edit_template.asp', 0, 0, 'WEB_LAYOUT', 'W', '0', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_widgets'          , '', 'FAC', 'appl/mgt/fac_widget.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_wgt_pages'            , '', 'WGT', 'appl/mgt/fac_widget_page.asp', 0, 0, 'WEB_PRSSYS', 'R', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_layout'           , '', 'FAC', 'appl/mgt/fac_layout.asp', 0, 0, 'WEB_FACTAB', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_note_group'       , '', 'FAC', 'appl/mgt/fac_note_group.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUKOPV(2, 99000, 'lcl_facmgt_setup', 'fa-sliders-v-square'); // Facilitor-use only
@@ -2887,15 +2934,16 @@ DEF_MENUENTRY(2, 99120, 'lcl_menu_fac_anytable'        , '', 'FAC', 'appl/mgt/us
 DEF_MENUENTRY(2, 99130, 'lcl_menu_fac_anysql'          , '', 'FAC', 'appl/mgt/mgt_genericsql.asp', 0, 0, 'WEB_FACFAC');
 DEF_MENUENTRY(2, 99140, 'lcl_menu_prs_bedrijf_bedrijf' , '', 'FAC', 'appl/mgt/prs_bedrijf_bedrijf.asp', 0, 0, 'WEB_PRSSYS');
 DEF_MENUENTRY(2, 99150, 'lcl_menu_fac_anyupload'       , '', 'FAC', 'appl/shared/bijlagen.asp', 0, 0, 'WEB_FACFAC');
-DEF_MENUENTRY(2, 99160, 'lcl_menu_fac_refresh_accept'  , '', 'FAC', 'appl/fac/fac_refresh_accept.asp', 0, 0, 'WEB_FACFAC');
+DEF_MENUENTRY(2, 99160, 'lcl_menu_fac_refresh_accept'  , '', 'FAC', 'appl/fac/fac_refresh_accept.asp', 0, 0, 'WEB_FACRFR');
 
 
 //DEF_MENUKOP(3, 'lcl_menu_mobile');  // Er is vooralsnog geen kop nodig
 // Voor een aantal is eigenlijk geen autorisatie vereist; we kiezen dan voor eentje die geen bezwaar kent om authenticatie generiek te controleren
 DEF_MENUITEM(3, 'lcl_mobile_search'             , '', 'FAC', 'appl/pda/productsearch.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',          'fa-search');
+DEF_MENUITEM(3, 'lcl_mobile_news'               , '', 'FAC', 'appl/pda/portalnews.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',             'fa-newspaper');
 DEF_MENUITEM(3, 'lcl_mobile_lopendezaken'       , '', 'FAC', 'appl/pda/fac_list.asp', 0, 0, 'WEB_MLDUSE', 'R', '1',               'fa-list-ul');
 DEF_MENUITEM(3, 'lcl_mobile_fiattering'         , '', 'FAC', 'appl/pda/fiat_list.asp', 0, 0, 'WEB_MLDUSE', 'R', '1',              'fa-check-square');
-
+DEF_MENUITEM(3, 'lcl_mobile_mld_menu'           , '', 'MLD', 'appl/pda/melding_menu.asp', 0, 0, 'WEB_MLDUSE', 'W', '0',           'fa-play');
 DEF_MENUITEM(3, 'lcl_mobile_doemelding'         , '', 'MLD', 'appl/pda/melding.asp', 0, 0, 'WEB_MLDUSE', 'W', '1',                'fa-exclamation-circle');
 DEF_MENUITEM(3, 'lcl_mobile_doebezoeker'        , '', 'BEZ', 'appl/pda/afspraak.asp', 0, 0, 'WEB_BEZUSE', 'W', '1',               'fa-handshake');
 DEF_MENUITEM(3, 'lcl_mobile_doereservering'     , '', 'RES', 'appl/pda/reservering.asp', 0, 0, 'WEB_RESUSE', 'W', '1',            'fa-user-circle');
@@ -2922,20 +2970,69 @@ DEF_MENUITEM(3, 'lcl_mobile_plattegronden'      , '', 'CAD', 'appl/pda/verdiepin
 DEF_MENUITEM(3, 'lcl_mobile_setlocation'        , '', 'FAC', 'appl/pda/setlocation.asp', 0, 0, 'WEB_CADUSE', 'R', '0',            'fa-map-marker');
 DEF_MENUITEM(3, 'lcl_mobile_messages'           , '', 'FAC', 'appl/pda/message_list.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',           'fa-comment');
 DEF_MENUITEM(3, 'lcl_mobile_rapporten'          , '', 'FAC', 'appl/pda/reports.asp', 0, 0, 'WEB_USRRAP', 'R', '0',                'fa-file-alt');
-DEF_MENUITEM(3, 'lcl_logoff'                    , '', 'FAC', 'appl/pda/logoff_confirm.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',         'fa-fa-window-close');
+DEF_MENUITEM(3, 'lcl_logoff'                    , '', 'FAC', 'appl/pda/logoff_confirm.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',         'fa-window-close');
 
-DEF_MENUITEM(7, 'lcl_mobile_scanqr'             , '', 'FAC', 'qr:', 0, 0, 'WEB_FACQRC', 'R', '1',                                 'fa-camera');
+-- Deze wordt hieronder 'App only' gemaakt
+DEF_MENUITEM(3, 'lcl_mobile_scanqr'             , '', 'FAC', 'qr:', 0, 0, 'WEB_FACQRC', 'R', '1',                                 'fa-camera');
+
+END;
+/
 
 -- Aanmaken van het default menu:
 -- FUNCTIE VOOR MENU-UPDATE/INITIALISATIE
-INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
+INSERT INTO fac_menu (fac_menuitems_key,
-   SELECT   fac_menuitems_key, fac_menuitems_key*100
+                      fac_menu_volgnr,
+                      fac_menu_altlabel,
+                      fac_menu_alturl,
+                      fac_menu_altgroep,
+                      fac_menu_image,
+                      fac_menu_level,
+                      fac_menu_info)
+    SELECT fac_menuitems_key,
+           fac_menuitems_key * 100,
+           fac_menuitems_label,
+           fac_menuitems_url,
+           fac_menuitems_groep,
+           fac_menuitems_image,
+           CASE
+              WHEN fac_menuitems_groep IN (0, 1, 2) THEN 2
+              WHEN fac_menuitems_groep IN (3, 7) THEN 1
+              ELSE 0
+           END fac_menu_level,
+           fac_menuitems_oms
       FROM fac_menuitems i
      WHERE     fac_menuitems_default = 1
-            AND i.fac_menuitems_key NOT IN (SELECT   m.fac_menuitems_key
+           AND i.fac_menuitems_key NOT IN
+                   (SELECT m.fac_menuitems_key
                       FROM fac_menu m
                      WHERE m.fac_menuitems_key IS NOT NULL);
 
+-- Maak hier (handmatig) onderstaande menu-opties 'App only'
+UPDATE fac_menu
+   SET fac_menu_portal = 1
+ WHERE fac_menu_altlabel = 'lcl_mobile_scanqr';
+
+-- Hieronder wat default widgets;
+DEF_WIDGET('FAC', 'Zoeken in Facilitor', NULL, 'prodsearch2.asp', 1);
+DEF_WIDGET('FAC', 'Facilitor nieuws', NULL, 'fac_nieuws.asp', 1);
+DEF_WIDGET('FAC', 'Lopende zaken', NULL, 'fac_list.asp', 1);
+DEF_WIDGET('FAC', 'Mijn berichten', NULL, 'fac_user_messages.asp', 1);
+DEF_WIDGET('URL', 'Facilitor.nl', NULL, 'https://facilitor.nl/', 0);
+DEF_WIDGET('IMG', 'Facilitor banner', NULL, '../../appl/Pictures/banner.png', 0);
+DEF_WIDGET('RAW', '<Leeg>', '<html><head></head><body></body></html>', NULL, 1);
+
+-- Voorbeeld van rapportage-widget
+INSERT INTO fac_widget (fac_widget_type,
+                        fac_widget_naam,
+                        fac_widget_typerefkey,
+                        fac_widget_public)
+     VALUES ('RAP',
+             'Rapportage: Mislukte inlogpogingen',
+             (SELECT fac_usrrap_key
+                FROM fac_usrrap
+               WHERE fac_usrrap_omschrijving = 'BEHEER: Audit fail'),
+             0);
+
 //-- Registreer de standaard bookmarks, generieke links naar de hoofdpagina van een entiteit.
 //DEF_BOOKMARK('afspraak',        'appl/bez/bez_afspraak.asp',    'afspr_key=');
 //DEF_BOOKMARK('bestelling',      'appl/bes/bes_bestelling.asp',  'bes_key=');

FAC/FAC_LCLHINTS.SRC

@@ -19,6 +19,9 @@
  *
  */
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 FAC_LCL('lcl_hint_select_field', 'Selecteer een veld voor een nadere toelichting.', 'You can select a field for a specific explanation.')
 FAC_LCL('lcl_hint_field_title', '{0}', '{0}')
 FAC_LCL('lcl_hint_not_found', 'We hebben geen nadere toelichting voor het veld {0}', 'There is no specific explanation available for {0}')
@@ -1185,7 +1188,7 @@ FAC_LCL('hint.mld_stdmelding.disciplines',                  '', '')
 FAC_LCL('hint.mld_stdmelding.disciplinetype',               '', '')
 FAC_LCL('hint.mld_stdmelding.enddateempty',                 'Indien aangevinkt wordt de einddatum van de opdracht leeggelaten', 'When checked the enddate will be left empty.')
 FAC_LCL('hint.mld_stdmelding.expires',                      'Als een meldingsoort niet meer gebruikt kan worden, kan hier de vervaldatum (dd-mm-jjjj) ingevuld worden. Bij nieuwe meldingen is de meldingsoort vanaf die datum niet meer zichtbaar. Het verschil met verwijderen is dat wanneer er een vervaldatum ingevuld is, de managementinformatie beschikbaar blijft.', 'If a call no longer should be used, an expiration date (dd-mm-yyyy) can be filled in. New calls cannot be created from this date. As long as expired calls are not deleted their information is still access able at management info.')
-FAC_LCL('hint.mld_stdmelding.externallink',                 'Hier kan een URL (bv. https://www.facilitor.nl) worden opgegeven. Indien gebruik gemaakt wordt van harmonica<63>s wordt bij het kiezen van deze melding deze link aangeroepen in plaats van dat er een melding in Facilitor wordt aangemaakt. Meestal wil je dit niet maar wanneer je Facilitor gebruikt als het belangrijkste portaal voor de gebruikers kan het prettig zijn om de toegang naar <20>meldingen<65> in een ander systeem centraal te regelen. NB: als hier een link is ingevuld zijn alle overige gegevens met uitzondering van Vakgroep, Omschrijving en Symbool niet meer van toepassing. Uiteraard worden melding die via deze link worden behandeld niet vanzelf in Facilitor opgenomen en maken ze geen deel uit van de bewaking, notificaties en rapportages. Standaardmeldingen met een externe link kunnen niet uit keuzelijstje gekozen worden, alleen via de harmonica of de zoekfunctie. Tip: wil je juist niet dat deze link in een tabblad van Facilitor wordt geopend maar in een eigen pagina van je browser, dan kan dat door de link met een * te laten beginnen, dus bv. *https://www.facilitor.nl.', 'A URL (eg https://www.facilitor.nl) can be specified here. If harmonicas are used, this link will be invoked when choosing this message instead of a message being created in Facilitor. Usually you do not want this, but when you use Facilitor as the main portal for users, it can be nice to centrally control access to "notifications" in another system. Note: if a link is entered here, all other details with the exception of Department, Description and Symbol no longer apply. Naturally, reports that are handled via this link are not automatically included in Facilitor and do not form part of the monitoring, notifications and reports. Standard messages with an external link cannot be selected from the selection list, only via the harmonica or the search function. Tip: if you do not want this link to be opened in a tab of Facilitor but in its own page of your browser, you can do so by having the link start with a *, so eg * http: //www.facilitor. NL.')
+FAC_LCL('hint.mld_stdmelding.externallink',                 'Hier kan een URL (bv. https://www.facilitor.nl) worden opgegeven. Indien gebruik gemaakt wordt van harmonica<63>s wordt bij het kiezen van deze melding deze link aangeroepen in plaats van dat er een melding in Facilitor wordt aangemaakt. Meestal wil je dit niet maar wanneer je Facilitor gebruikt als het belangrijkste portaal voor de gebruikers kan het prettig zijn om de toegang naar <20>meldingen<65> in een ander systeem centraal te regelen. NB: als hier een link is ingevuld zijn alle overige gegevens met uitzondering van Vakgroep, Omschrijving en Symbool niet meer van toepassing. Uiteraard worden melding die via deze link worden behandeld niet vanzelf in Facilitor opgenomen en maken ze geen deel uit van de bewaking, notificaties en rapportages. Standaardmeldingen met een externe link kunnen niet uit keuzelijstje gekozen worden, alleen via de harmonica of de zoekfunctie. Tip: wil je juist niet dat deze link in een tabblad van Facilitor wordt geopend maar in een eigen pagina van je browser, dan kan dat door de link met een * te laten beginnen, dus bv. *https://www.facilitor.nl.', 'A URL (eg https://www.facilitor.nl) can be specified here. If harmonicas are used, this link will be invoked when choosing this message instead of a message being created in Facilitor. Usually you do not want this, but when you use Facilitor as the main portal for users, it can be nice to centrally control access to "notifications" in another system. Note: if a link is entered here, all other details with the exception of Department, Description and Symbol no longer apply. Naturally, reports that are handled via this link are not automatically included in Facilitor and do not form part of the monitoring, notifications and reports. Standard messages with an external link cannot be selected from the selection list, only via the harmonica or the search function. Tip: if you do not want this link to be opened in a tab of Facilitor but in its own page of your browser, you can do so by having the link start with a *, so eg *https://www.facilitor.nl')
 FAC_LCL('hint.mld_stdmelding.fixedmalus',                   'Indien van toepassing in uw organisatie, kunt u hier een vaste malus invoeren voor als SLA-normen overschreden worden.', 'If applicable you can enter a fixed malus if SLA is exceeded.')
 FAC_LCL('hint.mld_stdmelding.foreign',                      '', '')
 FAC_LCL('hint.mld_stdmelding.freetext',                     'Hier kan aangegeven worden of de omschrijving verplicht ingevuld moet worden, niet ingevuld moet worden, evt optioneel ingevuld moet worden. ', 'Here you can indicate whether the discription must be filled in, not filled in, and possibly filled in optionally.')
@@ -1775,6 +1778,9 @@ FAC_LCL('hint.res_srtkenmerk.name',                         '', '')
 FAC_LCL('hint.res_srtkenmerk.system',                       '', '')
 FAC_LCL('hint.te bepalen.field.filter',                     '', '')
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+END;
+/
 
 -- much more to come
 

FAC/FAC_PAC.SRC

@@ -61,6 +61,7 @@ CREATE OR REPLACE PACKAGE fac
     FUNCTION safe_To_Date  ( pchar IN VARCHAR2, pfmt IN VARCHAR2 ) RETURN DATE;
     FUNCTION getweekdaynum (d IN DATE) RETURN NUMBER;
     FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
+    FUNCTION getscopeleveltext (plevel IN NUMBER, ptype IN VARCHAR) RETURN VARCHAR;
     FUNCTION count_Work_Days  ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
     FUNCTION count_Work_Days_InclTime ( pdate1 IN DATE , pdate2 IN DATE  ) RETURN NUMBER;
     FUNCTION iswerkdag (begindatum IN DATE) RETURN NUMBER;
@@ -155,6 +156,8 @@ CREATE OR REPLACE PACKAGE fac
     FUNCTION exceeds_pgb (p_opdrachtbedrag IN NUMBER, p_prs_key IN NUMBER, p_disc_key IN NUMBER, disc_params_pgb IN NUMBER) RETURN BOOLEAN;
     FUNCTION exceeds_agb (p_opdrachtbedrag IN NUMBER, p_kp_key IN NUMBER, p_disc_key IN NUMBER, disc_params_pgb IN NUMBER) RETURN BOOLEAN;
     PROCEDURE fac_cleanup;
+    FUNCTION getnotedesc_track(p_tracking_key IN NUMBER) RETURN VARCHAR2;
+    FUNCTION getnotedesc_noti(p_notificatie_key IN NUMBER) RETURN VARCHAR2;
 END fac;
 /
 
@@ -329,6 +332,67 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         RETURN MOD (TO_CHAR (d, 'J') + 1, 7) + 1;
     END;
 
+    -- Vertaalt het autorisatielevel (-1..9) voor het type ('ALG', 'PRS') naar een tekst
+    FUNCTION getscopeleveltext (plevel IN NUMBER, ptype IN VARCHAR) RETURN VARCHAR
+    IS
+    BEGIN
+       IF plevel = -1
+       THEN
+          RETURN lcl.l ('lcl_all');
+       ELSIF plevel = 9
+       THEN
+          RETURN lcl.l ('fac_functie_auth_none');
+       ELSIF ptype = 'ALG'
+       THEN
+          IF plevel = 0
+          THEN
+                RETURN lcl.l ('lcl_region');
+          ELSIF plevel = 1
+          THEN
+                RETURN lcl.l ('lcl_district');
+          ELSIF plevel = 2
+          THEN
+                RETURN lcl.l ('lcl_location');
+          ELSIF plevel = 3
+          THEN
+                RETURN lcl.l ('lcl_building');
+          ELSIF plevel = 4
+          THEN
+                RETURN lcl.l ('lcl_floor');
+          ELSIF plevel = 5
+          THEN
+                RETURN lcl.l ('lcl_room');
+          ELSE
+                RETURN TO_CHAR (plevel);
+          END IF;
+       ELSIF ptype = 'PRS'
+       THEN
+          IF plevel = 0
+          THEN
+                RETURN lcl.l ('lcl_company');
+          ELSIF plevel = 1
+          THEN
+                RETURN lcl.l ('lcl_dep_name_level1');
+          ELSIF plevel = 2
+          THEN
+                RETURN lcl.l ('lcl_dep_name_level2');
+          ELSIF plevel = 3
+          THEN
+                RETURN lcl.l ('lcl_dep_name_level3');
+          ELSIF plevel = 4
+          THEN
+                RETURN lcl.l ('lcl_dep_name_level4');
+          ELSIF plevel = 5
+          THEN
+                RETURN lcl.l ('lcl_dep_name_level5');
+          ELSE
+                RETURN TO_CHAR (plevel);
+          END IF;
+       ELSE
+          RETURN TO_CHAR (plevel);
+       END IF;
+    END;
+
     /*
      * Deprecated. Gebruik de flx versie.
      */
@@ -2298,6 +2362,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                          AND ander.fac_srtnotificatie_code IN ('MLDNEW', 'MLDA2M')
                        OR pcode = 'MLDNOB' -- no MLDNOB WHEN MLDBE2 or MLDA2B or MLDNOT is pending
                          AND ander.fac_srtnotificatie_code IN ('MLDBE2', 'MLDA2B', 'MLDNOT')
+                       OR pcode = 'ORDNOB' -- no ORDNOB WHEN ORDNEW or ORDA2B is pending
+                         AND ander.fac_srtnotificatie_code IN ('ORDNEW', 'ORDA2B')
+                       OR pcode = 'ORDNOL' -- no ORDNOL WHEN ORDA2U or MLDA2B or MLDNOT is pending
+                         AND ander.fac_srtnotificatie_code IN ('ORDA2U')
                        OR pcode = 'MLDUPD'
                          AND ander.fac_srtnotificatie_code IN ('MLDNEW')
                       )
@@ -2365,6 +2433,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
             WHEN 'ORDAFM'
             THEN
                 fac.clrnotifications('ORDUPD', pref);
+            WHEN 'ORDA2B'
+            THEN
+                fac.clrnotifications('ORDA2U', pref);
+                fac.clrnotifications('ORDNOB', pref);
+            WHEN 'ORDA2U'
+            THEN
+                fac.clrnotifications('ORDA2B', pref);
+                fac.clrnotifications('ORDNOL', pref);
             ELSE
                 NULL;
             END CASE;
@@ -2868,7 +2944,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                          mld_standaardopdr_key,
                          mld_opdr_omschrijving,
                          SYSDATE,
-                         mld_opdr_einddatum,
+                         mld.geteinddatum(mld_melding_key, null, SYSDATE),
                             lcl.l ('lcl_mld_activity_generated_by')
                          || pactkey
                          || '. '
@@ -3715,9 +3791,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 -- Echter: wie houden we hiervan nou actief op de hoogte?
                 -- Dat wordt de interne contacpersoon van de opdracht
                 -- behalve:
-                -- 1) ORDMLE/ORDMLI, ORDCAE/ORDCAI en ORDONO/ORDOOK, die naar de uitvoerder
+                -- 1) ORDA2U, ORDNOL, ORDMLE/ORDMLI, ORDCAE/ORDCAI en ORDONO/ORDOOK, die naar de uitvoerder
                 -- 2) ORDDAT, die naar de gebouwverantwoordelijke van het betreffende gebouw van de onderliggende melding
-                IF lcode IN ('ORDMLI', 'ORDMLE', 'ORDONO', 'ORDOOK', 'ORDCAE', 'ORDCAI')
+                IF lcode IN ('ORDA2U', 'ORDNOL', 'ORDMLI', 'ORDMLE', 'ORDONO', 'ORDOOK', 'ORDCAE', 'ORDCAI')
                 THEN
                     SELECT mld_uitvoerende_keys
                       INTO lreceiver
@@ -4348,6 +4424,15 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                     THEN
                         lsender := NULL;
                 END;
+            WHEN lxmlnode = 'perslid'
+            THEN
+                IF ptracking_oms IS NULL
+                THEN
+                    bericht := '??';
+                END IF;
+
+                lreceiver := pperslid_key; -- email en mobiel nummer worden in putnotificationsrtprio wel opgehaald.
+
             WHEN lxmlnode = 'message'
             THEN
                 NULL;     -- kan nog niet via tracking worden veroorzaakt (later: ontvangstbericht?)
@@ -5509,6 +5594,14 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       DELETE FROM fac_notificatie WHERE fac_notificatie_status=0
                                     AND fac_notificatie_systeemadres IS NULL;
       DELETE fac_result WHERE fac_result_aanmaak < SYSDATE - 7;
+
+      DELETE fac_rapport WHERE fac_rapport_datum < SYSDATE - 90;
+      DELETE fac_audit WHERE fac_audit_datum < SYSDATE - 3 * 365;
+      DELETE fac_auditfail WHERE fac_auditfail_datum < SYSDATE - 3 * 365;
+      DELETE fac_gui_counter WHERE fac_gui_counter_date < SYSDATE - 3 * 365;
+      DELETE fac_import WHERE fac_import_datum_gelezen < SYSDATE - 90;
+      DELETE imp_log WHERE fac_import_key IS NULL AND imp_log_datum < SYSDATE - 90;
+
       COMMIT;
 
       -- Wissen oude (gisteren) popups van Putorders.
@@ -5535,6 +5628,55 @@ CREATE OR REPLACE PACKAGE BODY fac AS
       END LOOP;
    END;
 
+   FUNCTION getnotedesc_track(p_tracking_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      v_mld_opdr_note_oms  mld_opdr_note.mld_opdr_note_omschrijving%TYPE;
+   BEGIN
+      IF (p_tracking_key IS NOT NULL)
+      THEN
+          BEGIN
+              SELECT mon.mld_opdr_note_omschrijving
+                INTO v_mld_opdr_note_oms
+                FROM mld_opdr_note mon,
+                     fac_tracking ft
+               WHERE mon.mld_opdr_key = ft.fac_tracking_refkey
+                 AND ft.fac_tracking_key = p_tracking_key
+                 AND mon.mld_opdr_note_aanmaak BETWEEN ft.fac_tracking_datum - 2/(24*60*60) AND ft.fac_tracking_datum + 2/(24*60*60);
+              RETURN v_mld_opdr_note_oms;
+          EXCEPTION
+              WHEN NO_DATA_FOUND
+              THEN RETURN NULL;
+          END;
+      ELSE
+          RETURN NULL;
+      END IF;
+   END;
+   FUNCTION getnotedesc_noti(p_notificatie_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      v_mld_opdr_note_oms  mld_opdr_note.mld_opdr_note_omschrijving%TYPE;
+   BEGIN
+      IF (p_notificatie_key IS NOT NULL)
+      THEN
+          BEGIN
+             SELECT mon.mld_opdr_note_omschrijving
+                INTO v_mld_opdr_note_oms
+                FROM mld_opdr_note mon,
+                    fac_notificatie fn
+               WHERE mon.mld_opdr_key = fn.fac_notificatie_refkey
+                 AND fn.fac_notificatie_key = p_notificatie_key
+                 AND mon.mld_opdr_note_aanmaak BETWEEN fn.fac_notificatie_datum - 2/(24*60*60) AND fn.fac_notificatie_datum + 2/(24*60*60);
+              RETURN v_mld_opdr_note_oms;
+          EXCEPTION
+              WHEN NO_DATA_FOUND
+              THEN RETURN NULL;
+          END;
+      ELSE
+          RETURN NULL;
+      END IF;
+   END;
+
 END fac;
 /
 

FAC/FAC_PACF.SRC

@@ -14,8 +14,135 @@
  *  evt nodige functies en procedures moeten lokaal of generiek toepasbaar worden gedefinieerd
  */
 
+-- Generieke procedure om csv-regels uit FAC_IMP_FILE
+-- te splitsen naar losse kolommen in FAC_IMP_CSV
+CREATE OR REPLACE PROCEDURE fac_import_file2csv (p_import_key IN NUMBER)
+AS
+    CURSOR c1
+    IS
+          SELECT fac_imp_file_index, fac_imp_file_line
+            FROM fac_imp_file
+           WHERE fac_import_key = p_import_key
+        ORDER BY fac_imp_file_index;
+
+    c_delim       VARCHAR2 (1);
+    v_newline     fac_imp_file.fac_imp_file_line%TYPE;                                                               -- Input line
+    v_errorhint   VARCHAR2 (1000);
+
+    TYPE array_t IS VARRAY (100) OF VARCHAR2 (4000);
+
+    a_fields      array_t := array_t ();
+
+    rec_count     fac_imp_csv.fac_imp_csv_index%TYPE;
+    collist       VARCHAR2 (4000);
+    fldlist       VARCHAR2 (4000);
+
+    l_cursor      INTEGER DEFAULT DBMS_SQL.open_cursor;
+    l_sql         VARCHAR2 (4000);
+    returnValue   PLS_INTEGER;
+BEGIN
+    SELECT COALESCE (fac_import_app_delimiter, ';')
+      INTO c_delim
+      FROM fac_import fi, fac_import_app fia
+     WHERE fi.fac_import_key = p_import_key AND fi.fac_import_app_key = fia.fac_import_app_key;
+
+    rec_count := 0;
+
+    FOR rec IN c1
+    LOOP
+        v_errorhint := 'Fout bij splitsen csv regel';
+        v_newline := rec.fac_imp_file_line;
+
+        IF TRIM (REPLACE (v_newline, c_delim, '')) IS NULL                                                     -- geen lege regels
+        THEN
+            CONTINUE;
+        END IF;
+
+        rec_count := rec_count + 1;
+
+        FOR f IN 1 .. 100
+        LOOP
+            IF (rec_count = 1)                                                -- eerste (header) regel bepaalt het aantal kolommen
+            THEN
+                IF (a_fields.COUNT = 100)
+                THEN
+                    RAISE_APPLICATION_ERROR (-20000, 'More than ' || a_fields.COUNT || ' columns in csv');
+                END IF;
+
+                a_fields.EXTEND;
+                collist := collist || ', fac_imp_csv_col' || CASE WHEN f < 10 THEN '0' ELSE '' END || f;
+                fldlist := fldlist || ', :a_fields' || f;
+            ELSIF f > a_fields.COUNT
+            THEN
+                CONTINUE;
+            END IF;
+
+            fac.imp_getfield (v_newline, c_delim, a_fields (f));
+
+            IF v_newline IS NULL                                                                           -- klaar met deze regel
+            THEN
+                EXIT;
+            END IF;
+        END LOOP;
+
+        IF (rec_count = 1)
+        THEN
+            DBMS_OUTPUT.Put_line ('Detected ' || a_fields.COUNT || ' columns in csv');
+            fac.imp_writelog (p_import_key,
+                              'I',
+                              'Detected ' || a_fields.COUNT || ' columns in csv',
+                              '');
+            l_sql :=
+                   'INSERT INTO fac_imp_csv (fac_import_key, fac_imp_csv_index'
+                || collist
+                || ') VALUES (:import_key, :rec_count'
+                || fldlist
+                || ')';
+            --DBMS_OUTPUT.put_line (l_sql);
+            DBMS_SQL.parse (l_cursor, l_sql, DBMS_SQL.native);
+            DBMS_SQL.bind_variable (l_cursor, ':import_key', p_import_key);
+            DBMS_SQL.bind_variable (l_cursor, ':rec_count', rec_count);
+        END IF;
+
+        FOR f IN 1 .. a_fields.COUNT
+        LOOP
+            DBMS_SQL.bind_variable (l_cursor, ':a_fields' || f, a_fields (f));
+        END LOOP;
+
+        returnValue := DBMS_SQL.execute (l_cursor);
+    END LOOP;
+
+    IF (rec_count > 0)
+    THEN
+        DBMS_SQL.close_cursor (l_cursor);
+    END IF;
+
+    fac.imp_writelog (p_import_key,
+                      'S',
+                      'Converted ' || rec_count || ' csv lines',
+                      '');
+EXCEPTION
+    WHEN OTHERS
+    THEN
+        fac.imp_writelog (p_import_key,
+                          'E',
+                          'ORACLE (error ' || SQLCODE || '/' || SUBSTR (SQLERRM, 1, 200) || ')',
+                          v_errorhint);
+END;
+/
+
+CREATE OR REPLACE PROCEDURE fac_import_genericcsv (
+   p_import_key IN NUMBER
+)
+IS
+BEGIN
+    fac_import_file2csv(p_import_key);
+END;
+/
+
+// Geen PROCEDURE fac_update_genericcsv, dat gebeurt in de praktijk met een custom once script
+
 -- Procedures om catalogi in te lezen en te verwerken
-/* Formatted on 25-7-2011 10:40:10 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_import_catalogus (
    p_import_key IN NUMBER
 )
@@ -513,7 +640,6 @@ EXCEPTION
 END fac_import_catalogus;
 /
 
-/* Formatted on 19-7-2011 17:34:34 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_update_catalogus (
    p_import_key IN NUMBER
 )
@@ -522,8 +648,8 @@ AS
    oracle_err_num   NUMBER;
    oracle_err_mes   VARCHAR2 (200);
    v_aanduiding     VARCHAR2 (200);
-   v_disc_oms       VARCHAR2 (100);
+   v_disc_oms       ins_tab_discipline.ins_discipline_omschrijving%TYPE;
-   v_bedr_naam      VARCHAR2 (100);
+   v_bedr_naam      prs_bedrijf.prs_bedrijf_naam%TYPE;
 
    -- Voor <20><>n catalogus
    PROCEDURE l_update_catalogus (pdisc_key IN NUMBER, pbedr_key IN NUMBER)
@@ -1188,7 +1314,6 @@ EXCEPTION
 END fac_update_catalogus;
 /
 
-/* Formatted on 13/08/2008 09:46 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_import_oprognose (
    p_import_key IN NUMBER
 )
@@ -1297,7 +1422,6 @@ END fac_import_oprognose;
 /
 
 
-/* Formatted on 13/08/2008 12:46 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_update_oprognose (
    p_import_key IN NUMBER
 )
@@ -1704,7 +1828,6 @@ END;
 
 
 --// 1. ALG
-/* Formatted on 9-7-2013 10:22:36 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_import_onrgoed1 (p_import_key IN NUMBER)
 AS
    c_delim                    VARCHAR2 (1) := ';';
@@ -2403,7 +2526,6 @@ EXCEPTION
 END fac_import_onrgoed1;
 /
 
-/* Formatted on 9-7-2013 11:48:12 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_update_onrgoed1 (p_import_key IN NUMBER)
 IS
    v_errormsg        VARCHAR2 (1000) := '-';
@@ -2528,15 +2650,15 @@ IS
                                 p_kenmerk_key   IN NUMBER,
                                 p_waarde        IN VARCHAR2)
    AS
-      v_kenmerk_niveau       VARCHAR2 (1);
+      v_kenmerk_niveau       alg_kenmerk.alg_kenmerk_niveau%TYPE;
-      v_kenmerk_type         VARCHAR2 (1);
+      v_kenmerk_type         alg_kenmerk.alg_kenmerk_kenmerktype%TYPE;
       ccount                 NUMBER;
       v_waarde               VARCHAR2 (255);
-      v_objectnaam           VARCHAR2 (30);
+      v_objectnaam           fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
-      v_kolomnaam            VARCHAR2 (30);
+      v_kolomnaam            fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
-      v_kolomtxt             VARCHAR2 (30);
+      v_kolomtxt             fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
       sql_stmt               VARCHAR2 (1000);
-      v_onrgoedkenmerk_key   NUMBER;
+      v_onrgoedkenmerk_key   alg_onrgoedkenmerk.alg_onrgoedkenmerk_key%TYPE;
       l_cursor_1             INTEGER;
       l_rowsprocessed        NUMBER DEFAULT 0;
    BEGIN
@@ -3173,7 +3295,6 @@ END fac_update_onrgoed1_del;
 
 
 
-/* Formatted on 11-3-2010 16:19:44 (QP5 v5.136.908.31019) */
 CREATE OR REPLACE PROCEDURE fac_import_onrgoed2 (p_import_key IN NUMBER
                                                 )
 AS
@@ -3216,7 +3337,7 @@ AS
    v_res_ruimte_opstel_bezoekers    VARCHAR2 (255);                                                               -- 5,0
    v_res_ruimte_opstel_bez_n        NUMBER (5, 0);                                                                -- 5,0
    v_res_ruimte_nr                  VARCHAR2 (255);                                                               -- 40
-   v_res_ruimte_omschrijving        VARCHAR2 (255);                                                               -- 255
+   v_res_ruimte_omschrijving        VARCHAR2 (4000);                                                              -- 255
    v_alg_kenmerkwaarde1             VARCHAR2 (255);
    v_alg_kenmerkwaarde2             VARCHAR2 (255);
    v_alg_kenmerkwaarde3             VARCHAR2 (255);
@@ -3283,7 +3404,7 @@ BEGIN
          v_errormsg := 'Fout FETCH te importeren rij';
 
          v_newline := rec1.fac_imp_file_line;
-         v_errormsg := 'Fout opvragen te importeren rij';
+         v_errormsg := 'Fout opvragen te importeren rij met index ' || TO_CHAR (rec1.fac_imp_file_index);
          v_aanduiding := '';
          v_errorhint := '';
          v_ongeldig := 0;
@@ -3392,9 +3513,9 @@ BEGIN
             v_errormsg := 'Fout inlezen ruimtenummer [' || v_ruimte_nr || ']';
 
             v_ruimte_nr := TRIM(v_ruimte_nr);
-            IF LENGTH (v_ruimte_nr) > 10
+            IF LENGTH (v_ruimte_nr) > 20
             THEN
-               v_ruimte_nr := SUBSTR (v_ruimte_nr, 1, 10);
+               v_ruimte_nr := SUBSTR (v_ruimte_nr, 1, 20);
                fac.imp_writelog (p_import_key,
                                  'W',
                                  v_aanduiding || 'Ruimtenr-aanduiding is te lang',
@@ -3813,12 +3934,12 @@ CREATE OR REPLACE PROCEDURE fac_update_onrgoed2 (
                                 p_kenmerk_key      IN NUMBER,
                                 p_waarde           IN VARCHAR2)
    AS
-      v_kenmerk_type      VARCHAR2 (1);
+      v_kenmerk_type      alg_kenmerk.alg_kenmerk_kenmerktype%TYPE;
       ccount              NUMBER;
       v_waarde            VARCHAR2 (255);
-      v_objectnaam        VARCHAR2 (30);
+      v_objectnaam        fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
-      v_kolomnaam         VARCHAR2 (30);
+      v_kolomnaam         fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
-      v_kolomtxt          VARCHAR2 (30);
+      v_kolomtxt          fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
       sql_stmt            VARCHAR2 (1000);
       l_cursor_1          INTEGER;
       l_rowsprocessed     NUMBER DEFAULT 0;
@@ -5704,7 +5825,7 @@ CREATE OR REPLACE PROCEDURE fac_update_perslid (
    p_import_key IN NUMBER
 ) IS
 BEGIN
-   prs.update_perslid (p_import_key, 'NR', 'A');
+   prs.update_perslid (p_import_key, 'NR', 'A', 1);
 END fac_update_perslid;
 /
 
@@ -5760,6 +5881,8 @@ AS
    v_stdmelding_afmeldtext      VARCHAR2(255);                                                                     -- N1
    v_stdmelding_doublecheck     VARCHAR2(255);                                                                     -- N4
    v_stdmelding_slabewaken      VARCHAR2(255);                                                                     -- N1
+   v_discipline_image           VARCHAR2(255);                                                                   -- C255
+   v_stdmelding_image           VARCHAR2(255);                                                                   -- C255
    -- Overige velden (alleen gebruikt voor numeriek-validatie)
    v_stdmelding_urgentie_n      mld_stdmelding.mld_stdmelding_t_accepttijd.tijdsduur%TYPE;
    v_stdmelding_uitvoertijd_n   mld_stdmelding.mld_stdmelding_t_uitvoertijd.tijdsduur%TYPE;
@@ -5813,6 +5936,8 @@ BEGIN
          fac.imp_getfield (v_newline, c_fielddelimitor, v_stdmelding_afmeldtext);                                  -- N1
          fac.imp_getfield (v_newline, c_fielddelimitor, v_stdmelding_doublecheck);                                 -- N4
          fac.imp_getfield (v_newline, c_fielddelimitor, v_stdmelding_slabewaken);                                  -- N1
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_discipline_image);
+         fac.imp_getfield (v_newline, c_fielddelimitor, v_stdmelding_image);
          --
          -- Spaties ervoor en erachter verwijderen.
          v_srtdiscipline_omschrijving := TRIM(v_srtdiscipline_omschrijving);
@@ -5839,6 +5964,8 @@ BEGIN
          v_stdmelding_afmeldtext      := TRIM(v_stdmelding_afmeldtext);
          v_stdmelding_doublecheck     := TRIM(v_stdmelding_doublecheck);
          v_stdmelding_slabewaken      := TRIM(v_stdmelding_slabewaken);
+         v_discipline_image           := TRIM(v_discipline_image);
+         v_stdmelding_image           := TRIM(v_stdmelding_image);
          --
          v_aanduiding :=
                '|'
@@ -5889,7 +6016,10 @@ BEGIN
             || v_stdmelding_doublecheck
             || '|'
             || v_stdmelding_slabewaken
-            || '| ';
+            || '|'
+            || v_discipline_image
+            || '|'
+            || v_stdmelding_image;
          -- Ik controleer of ik een geldige header heb, dat is: in de juiste kolommen
          -- de juiste kolomkop. Ik controleer alleen de verplichte kolommen, ik zou ze ook
          -- allemaal kunnen doen..
@@ -6080,6 +6210,26 @@ BEGIN
                SELECT DECODE (UPPER(v_stdmelding_doublecheck), 'I', '1', 'A', '2', 'B', '3', '0') INTO v_stdmelding_doublecheck FROM DUAL; -- waarden: [0,1,2,3]
             END IF;
             --
+            IF LENGTH (v_discipline_image) > 255
+            THEN
+               v_discipline_image := SUBSTR (v_discipline_image, 1, 255);
+               fac.imp_writelog (p_import_key,
+                                 'W',
+                                 v_aanduiding,
+                                 'Discipline image wordt afgebroken tot [' || v_discipline_image || ']'
+                                );
+            END IF;
+            --
+            IF LENGTH (v_stdmelding_image) > 255
+            THEN
+               v_stdmelding_image := SUBSTR (v_stdmelding_image, 1, 255);
+               fac.imp_writelog (p_import_key,
+                                 'W',
+                                 v_aanduiding,
+                                 'Standaardmelding image wordt afgebroken tot [' || v_stdmelding_image || ']'
+                                );
+            END IF;
+            --
             -- Insert geformatteerde import record
             -- We hebben hier vooralsnog de oude uitvoertijden, zonder type
             IF v_ongeldig = 0
@@ -6109,7 +6259,9 @@ BEGIN
                                               mld_stdmelding_afmeldtext,
                                               mld_stdmelding_kopieerbaar,
                                               mld_stdmelding_slabewaken,
-                                              mld_stdmelding_doublecheck
+                                              mld_stdmelding_doublecheck,
+                                              ins_discipline_image,
+                                              mld_stdmelding_image
                              )
                     VALUES   (
                                  v_srtdiscipline_omschrijving,
@@ -6135,7 +6287,9 @@ BEGIN
                                  v_stdmelding_afmeldtext,
                                  v_stdmelding_kopieerbaar,
                                  v_stdmelding_slabewaken,
-                                 v_stdmelding_doublecheck
+                                 v_stdmelding_doublecheck,
+                                 v_discipline_image,
+                                 v_stdmelding_image
                              );
                   v_count_import := v_count_import + 1;
                EXCEPTION
@@ -6303,6 +6457,7 @@ IS
            SELECT MAX (ins_srtdiscipline_omschrijving) ins_srtdiscipline_omschrijving,
                   MAX (ins_discipline_omschrijving) ins_discipline_omschrijving,
                   MAX (mld_discipline_directklaar) mld_discipline_directklaar,
+                  MAX (ins_discipline_image) ins_discipline_image,
                   UPPER (ins_srtdiscipline_omschrijving) ins_srtdiscipline_upper,
                   UPPER (ins_discipline_omschrijving) ins_discipline_upper
              FROM fac_imp_mld
@@ -6373,11 +6528,13 @@ IS
                INSERT INTO ins_tab_discipline
                            (ins_discipline_module,
                             ins_discipline_omschrijving,
-                            ins_discipline_min_level, ins_srtdiscipline_key
+                            ins_discipline_min_level, ins_srtdiscipline_key,
+                            ins_discipline_image
                            )
                     VALUES ('MLD',
                             SUBSTR (rec.ins_discipline_omschrijving, 1, 60),
-                            1, srtdiscipline_key
+                            1, srtdiscipline_key,
+                            rec.ins_discipline_image
                            ) RETURNING ins_discipline_key INTO v_discipline_key;
 
                INSERT INTO mld_disc_params
@@ -6871,7 +7028,8 @@ IS
                             mld_stdmelding_kopieerbaar,
                             mld_stdmelding_afmeldtext,
                             mld_stdmelding_doublecheck,
-                            mld_stdmelding_slabewaken
+                            mld_stdmelding_slabewaken,
+                            mld_stdmelding_image
                            )
                     VALUES (discipline_key,
                             rec.mld_stdmelding_omschrijving,
@@ -6926,7 +7084,8 @@ IS
                             rec.mld_stdmelding_kopieerbaar,
                             rec.mld_stdmelding_afmeldtext,
                             rec.mld_stdmelding_doublecheck,
-                            rec.mld_stdmelding_slabewaken
+                            rec.mld_stdmelding_slabewaken,
+                            rec.mld_stdmelding_image
                            );
 
                v_count_update := v_count_update + 1;
@@ -7300,7 +7459,6 @@ END fac_update_mldafmtxt;
 /
 
 --//////////////////////////////////////////////////INS IMPORT STUFF///////////////////////////////////////////
-/* Formatted on 2008/08/29 13:45 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_import_ins (p_import_key IN NUMBER)
 IS
    c_delim                         VARCHAR2 (1) := ';';
@@ -8631,11 +8789,11 @@ AS
         v_groep            NUMBER;
         v_kenmerk          VARCHAR2 (50);
         v_waarde           VARCHAR2 (4053);
-        v_srtkenmerk_type  VARCHAR2 (1);
+        v_srtkenmerk_type  ins_srtkenmerk.ins_srtkenmerk_kenmerktype%TYPE;
         ccount             NUMBER;
-        v_objectnaam       VARCHAR2 (30);
+        v_objectnaam       fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
-        v_kolomnaam        VARCHAR2 (30);
+        v_kolomnaam        fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
-        v_kolomtxt         VARCHAR2 (30);
+        v_kolomtxt         fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
         sql_stmt           VARCHAR2 (1000);
         v_kenmerkdeel_key  NUMBER;
         l_cursor_1         INTEGER;
@@ -9036,8 +9194,7 @@ AS
                         || '  FROM prs_v_aanwezigperslid '
                         || ' WHERE UPPER ('
                         || v_matchkolom
-                        || ') = UPPER (:pwaarde) '
+                        || ') = UPPER (:pwaarde) ';
-                        || 'GROUP BY prs_perslid_key';
                     --dbms_output.put_line(rec.prs_perslid_matchwaarde);
                     l_cursor_1 := DBMS_SQL.open_cursor;
                     DBMS_SQL.parse (l_cursor_1, sql_stmt, DBMS_SQL.native);
@@ -9258,7 +9415,6 @@ END fac_update_ins;
 /
 
 -- UWVA#22765 - SLE: Verfijning sleutelbeheer
-/* Formatted on 16-7-2012 16:30:00 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_import_sle (p_import_key IN NUMBER)
 IS
    c_delim                      VARCHAR2 (1) := ';';
@@ -9609,7 +9765,6 @@ EXCEPTION
 END fac_import_sle;
 /
 
-/* Formatted on 26-7-2012 16:28:16 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_update_sle (p_import_key IN NUMBER)
 AS
    v_errormsg       VARCHAR2 (1000);
@@ -10279,7 +10434,6 @@ END fac_update_sle;
    bijbehorende procedure gedefinieerd, die geduldig op implementatie wachten.
    Afgewogen niet voor fac_import_mld_adres gekozen.
  */
-/* Formatted on 12/09/2008 13:30 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_import_adres (
    p_import_key IN NUMBER,
    p_discipline_key   IN   NUMBER
@@ -11029,7 +11183,6 @@ END fac_update_res_artikel_sync;
 /
 
 
-/* Formatted on 19/09/2008 17:52 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_import_fac_groep (
    p_import_key IN NUMBER
 )
@@ -11171,7 +11324,6 @@ END fac_import_fac_groep;
 /
 
 
-/*/* Formatted on 16/10/2008 17:08 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_update_fac_groep (p_import_key IN NUMBER)
 AS
    CURSOR c1
@@ -11591,7 +11743,6 @@ END fac_update_fac_vakgroep_del;
 --------------------------------
 
 
-/* Formatted on 19/09/2008 17:52 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_import_fac_gebruikersgroep (
    p_import_key IN NUMBER
 )
@@ -11715,7 +11866,6 @@ EXCEPTION
 END fac_import_fac_gebruikersgroep;
 /
 
-/*/* Formatted on 16/10/2008 17:08 (Formatter Plus v4.8.7) */
 CREATE OR REPLACE PROCEDURE fac_update_fac_gebruikersgroep (p_import_key IN NUMBER)
 AS
    CURSOR c1
@@ -14754,28 +14904,40 @@ AS
        RETURN(p_prs_kostensoort_key);
    END;
 
-  FUNCTION try_getrefdatum (p_ckey IN NUMBER, p_okey IN NUMBER, p_bkey IN NUMBER)
+  FUNCTION try_getrefdatum (p_fin_defaultboekmaand_opdr IN NUMBER, p_fin_defaultboekmaand_cnt IN NUMBER, p_ckey IN NUMBER, p_okey IN NUMBER, p_bkey IN NUMBER, p_fin_factuur_datum IN DATE)
   RETURN DATE
   IS
      refdatum DATE;
    BEGIN
        refdatum := NULL;
        BEGIN
-          IF p_bkey IS NOT NULL
+          IF p_bkey IS NOT NULL AND p_fin_defaultboekmaand_opdr IN (2, 3)
           THEN
-              SELECT bes_bestelopdr_datum
+              SELECT CASE
+                     WHEN p_fin_defaultboekmaand_opdr = 2
+                     THEN
+                         bes_bestelopdr_datum
+                     ELSE
+                         bes_bestelopdr_leverdatum
+                     END
                 INTO refdatum
                 FROM bes_bestelopdr bo
                WHERE bo.bes_bestelopdr_key = p_bkey;
-          ELSIF p_okey IS NOT NULL
+          ELSIF p_okey IS NOT NULL AND p_fin_defaultboekmaand_opdr IN (2, 3)
           THEN
-              SELECT mld_opdr_datumbegin
+              SELECT CASE
+                     WHEN p_fin_defaultboekmaand_opdr = 2
+                     THEN
+                         mld_opdr_datumbegin
+                     ELSE
+                         mld_opdr_einddatum
+                     END
                 INTO refdatum
                 FROM mld_opdr o
                WHERE o.mld_opdr_key = p_okey;
-          ELSIF p_ckey IS NOT NULL
+          ELSIF p_ckey IS NOT NULL AND p_fin_defaultboekmaand_cnt = 2
           THEN
-             refdatum := SYSDATE;
+             refdatum := p_fin_factuur_datum;
           END IF;
        EXCEPTION
        WHEN NO_DATA_FOUND
@@ -15114,10 +15276,11 @@ BEGIN
            END IF;
         ELSE
            c_boekmaand := TO_CHAR(SYSDATE, 'YYYY-MM');
-           IF (fac.getSetting('fin_defaultboekmaand') = 2)
+           IF ((fac.getSetting('fin_defaultboekmaand') IN (2, 3) AND c_mld_opdr_key IS NOT NULL) OR
+               (fac.getSetting('fin_defaultboekmaand_cnt') = 2 AND c_cnt_contract_key IS NOT NULL))
            THEN
              BEGIN
-                 c_boekmaand := TO_CHAR(try_getrefdatum(c_cnt_contract_key, c_mld_opdr_key, c_bes_bestelopdr_key), 'YYYY-MM');
+                 c_boekmaand := TO_CHAR(try_getrefdatum(fac.getSetting('fin_defaultboekmaand'), fac.getSetting('fin_defaultboekmaand_cnt'), c_cnt_contract_key, c_mld_opdr_key, c_bes_bestelopdr_key, c_fin_factuur_datum), 'YYYY-MM');
              END;
            END IF;
         END IF;
@@ -15582,6 +15745,8 @@ IS
   v_fac_usrdata_volgnr          VARCHAR2 (256);                        -- N3
   v_fac_usrdata_prijs           VARCHAR2 (256);                        -- N8,2
   v_fac_usrdata_vervaldatum     VARCHAR2 (256);                        -- DATE
+  v_fac_usrdata_reftabel        VARCHAR2 (256);                        -- C16
+  v_fac_usrdata_refcode         VARCHAR2 (256);                        -- C40
   -- Overig:
   v_fac_usrdata_volgnr_n        fac_imp_usrdata.fac_usrdata_volgnr%TYPE;      -- N3
   v_fac_usrdata_prijs_n         fac_imp_usrdata.fac_usrdata_prijs%TYPE;       -- N15,7
@@ -15615,6 +15780,8 @@ BEGIN
         fac.imp_getfield (v_newline, c_delim, v_fac_usrdata_volgnr);
         fac.imp_getfield (v_newline, c_delim, v_fac_usrdata_prijs);
         fac.imp_getfield (v_newline, c_delim, v_fac_usrdata_vervaldatum);
+        fac.imp_getfield (v_newline, c_delim, v_fac_usrdata_reftabel);
+        fac.imp_getfield (v_newline, c_delim, v_fac_usrdata_refcode);
         v_aanduiding :=
            '[' || v_fac_usrtab_naam || '|' || v_fac_usrdata_code || '] ';
 
@@ -15629,6 +15796,8 @@ BEGIN
               AND UPPER (v_fac_usrdata_volgnr) = 'VOLGNR'
               AND UPPER (v_fac_usrdata_prijs) = 'PRIJS'
               AND UPPER (v_fac_usrdata_vervaldatum) = 'VERVALDATUM'
+              AND UPPER (v_fac_usrdata_reftabel) = 'WAARDETABEL'
+              AND UPPER (v_fac_usrdata_refcode) = 'WAARDETABEL_CODE'
            THEN
               header_is_valid := 1;
            END IF;
@@ -15739,6 +15908,35 @@ BEGIN
               END IF;
            END IF;
 
+           --
+           v_errormsg := 'Waardetabelnaam ongeldig; ongedefinieerd of te lang';
+           v_fac_usrdata_reftabel := TRIM (v_fac_usrdata_reftabel);
+
+           IF LENGTH (v_fac_usrdata_reftabel) > 16
+           THEN
+              v_ongeldig := 1;
+              fac.imp_writelog (p_import_key,
+                                'W',
+                                v_aanduiding || v_errormsg,
+                                'Regel wordt overgeslagen!');
+           END IF;
+
+           --
+           v_errormsg := 'Waardetabelcode ongeldig; ongedefinieerd of te lang';
+           v_fac_usrdata_refcode := TRIM(v_fac_usrdata_refcode);
+
+           IF (  (v_fac_usrdata_reftabel IS NULL AND v_fac_usrdata_refcode IS NOT NULL)
+              OR (v_fac_usrdata_reftabel IS NOT NULL AND v_fac_usrdata_refcode IS NULL)
+              OR COALESCE(LENGTH (v_fac_usrdata_refcode),0) > 40
+              )
+           THEN
+              v_ongeldig := 1;
+              fac.imp_writelog (p_import_key,
+                                'W',
+                                v_aanduiding || v_errormsg,
+                                'Regel wordt overgeslagen!');
+           END IF;
+
            -- Insert geformatteerde import record
            IF v_ongeldig = 0
            THEN
@@ -15750,13 +15948,17 @@ BEGIN
                                               fac_usrdata_omschr,
                                               fac_usrdata_volgnr,
                                               fac_usrdata_prijs,
-                                              fac_usrdata_vervaldatum)
+                                              fac_usrdata_vervaldatum,
+                                              fac_usrdata_reftabel,
+                                              fac_usrdata_refcode)
                    VALUES   (v_fac_usrtab_naam,
                              v_fac_usrdata_code,
                              v_fac_usrdata_omschr,
                              v_fac_usrdata_volgnr_n,
                              v_fac_usrdata_prijs_n,
-                             v_fac_usrdata_vervaldatum_d);
+                             v_fac_usrdata_vervaldatum_d,
+                             v_fac_usrdata_reftabel,
+                             v_fac_usrdata_refcode);
 
                  v_count_import := v_count_import + 1;
               EXCEPTION
@@ -15848,7 +16050,9 @@ AS
                  fac_usrdata_omschr,
                  fac_usrdata_volgnr,
                  fac_usrdata_prijs,
-                 fac_usrdata_vervaldatum
+                 fac_usrdata_vervaldatum,
+                 fac_usrdata_reftabel,
+                 fac_usrdata_refcode
           FROM   fac_imp_usrdata
          WHERE   fac_usrtab_naam = p_tabname;
 
@@ -15859,37 +16063,91 @@ AS
      v_count_tot      NUMBER (10);
      v_count_upd      NUMBER (10);
      v_tab_key        NUMBER;
+     v_parentkey      NUMBER;
+     v_parentwaarde_key  NUMBER(10);
+     v_waardetabel_naam  VARCHAR2(16);
+     v_waardetabel_key   NUMBER(10) := -2;
+     v_count_waardetabel NUMBER(10);
   BEGIN
      v_count_tot := 0;
      v_count_upd := 0;
 
+     -- Bepaal de key bij waardetabel.
+     SELECT COUNT(*)
+          , MIN(fac_usrdata_reftabel)
+       INTO v_count_waardetabel
+          , v_waardetabel_naam
+       FROM (SELECT DISTINCT fac_usrdata_reftabel
+               FROM fac_imp_usrdata
+              WHERE fac_usrtab_naam = p_tabname
+            );
+     IF (v_count_waardetabel = 1)
+     THEN
+        IF (v_waardetabel_naam IS NULL)
+        THEN
+            v_waardetabel_key := NULL;
+        ElSE
+            SELECT COALESCE(MIN(fac_usrtab_key), -1)
+              INTO v_waardetabel_key
+              FROM fac_usrtab
+             WHERE fac_usrtab_naam = v_waardetabel_naam;
+        END IF;
+     END IF;
+     -- v_waardetabel_key: NULL -> usrtab_parentkey NULL
+     --                    >0   -> usrtab_parentkey
+     --                    -1   -> tabel bestaat niet
+     --                    -2   -> voor p_tabname zijn meer dan 1 verschillende parent keys gevonden
+
      v_errormsg := 'Fout bij bepalen eigen tabel [' || p_tabname || '] ';
 
-     SELECT   COUNT ( * )
+     SELECT   COUNT(*)
+          ,   MIN(fac_usrtab_key)
+          ,   MIN(fac_usrtab_parentkey)
        INTO   v_count
+          ,   v_tab_key
+          ,   v_parentkey
        FROM   fac_usrtab
-      WHERE   fac_usrtab_naam = p_tabname;
+      WHERE   fac_usrtab_verwijder IS NULL
+        AND   fac_usrtab_naam = p_tabname;
 
      IF (v_count = 0)
      THEN
-        v_errormsg := 'Fout bij toevoegen eigen tabel [' || p_tabname || '] ';
+        v_errormsg := 'Fout bij toevoegen eigen tabel [' || p_tabname || '] '
+                   || CASE WHEN v_waardetabel_key IS NULL THEN ''
+                           ELSE 'met waardetabelkey=' || v_waardetabel_key
+                      END;
 
-        INSERT INTO fac_usrtab (fac_usrtab_naam, fac_usrtab_omschrijving)
+        INSERT INTO fac_usrtab (fac_usrtab_naam, fac_usrtab_omschrijving, fac_usrtab_parentkey)
-           VALUES   (p_tabname, p_tabname)
+        VALUES      (p_tabname, p_tabname, v_waardetabel_key)
         RETURNING   fac_usrtab_key INTO v_tab_key;
 
+        v_parentkey := v_waardetabel_key;
         COMMIT;
-     ELSE
-        SELECT   fac_usrtab_key
-          INTO   v_tab_key
-          FROM   fac_usrtab
-         WHERE   fac_usrtab_naam = p_tabname;
      END IF;
 
+     -- Voor een bestaande fac_usrtab moet de parentkey gelijk zijn aan v_waardetabel_key.
+     IF ((v_parentkey = v_waardetabel_key) OR (v_parentkey IS NULL AND v_waardetabel_key IS NULL))
+     THEN
+        BEGIN
             FOR rec IN c1
             LOOP
                BEGIN
                   v_count_tot := v_count_tot + 1;
+
+                  -- Als er een referentietabel is moet de waarde in die tabel bestaan.
+                  IF (v_parentkey > 0)
+                  THEN
+                     v_errormsg := 'Fout bij bepalen bestaan waardetabel_code ['
+                                || v_waardetabel_naam || '.' || rec.fac_usrdata_refcode
+                                || '] ' || TO_CHAR(v_parentkey) || ',' || rec.fac_usrdata_refcode;
+                     SELECT fac_usrdata_key
+                       INTO v_parentwaarde_key
+                       FROM fac_usrdata
+                      WHERE fac_usrtab_key = v_parentkey
+                        AND fac_usrdata_code = rec.fac_usrdata_refcode;
+                  END IF;
+
+                  -- Toevoegen/wijzigen van tabelwaarde.
                   v_errormsg :=
                         'Fout bij bepalen bestaan waarde-code ['
                      || rec.fac_usrdata_code
@@ -15914,13 +16172,16 @@ AS
                                               fac_usrdata_omschr,
                                               fac_usrdata_volgnr,
                                               fac_usrdata_vervaldatum,
-                                       fac_usrdata_prijs)
+                                              fac_usrdata_prijs,
+                                              fac_usrdata_parentkey
+                                              )
                        VALUES   (v_tab_key,
                                  rec.fac_usrdata_code,
                                  rec.fac_usrdata_omschr,
                                  rec.fac_usrdata_volgnr,
                                  rec.fac_usrdata_vervaldatum,
-                          rec.fac_usrdata_prijs);
+                                 rec.fac_usrdata_prijs,
+                                 v_parentwaarde_key);
                   ELSE
                      v_errormsg :=
                            'Fout bij bijwerken waarde-code ['
@@ -15931,7 +16192,8 @@ AS
                         SET   fac_usrdata_omschr = rec.fac_usrdata_omschr,
                               fac_usrdata_volgnr = rec.fac_usrdata_volgnr,
                               fac_usrdata_vervaldatum = rec.fac_usrdata_vervaldatum,
-                       fac_usrdata_prijs = rec.fac_usrdata_prijs
+                              fac_usrdata_prijs = rec.fac_usrdata_prijs,
+                              fac_usrdata_parentkey = v_parentwaarde_key
                       WHERE   fac_usrdata_verwijder IS NULL
                               AND fac_usrtab_key = v_tab_key
                               AND fac_usrdata_code = rec.fac_usrdata_code;
@@ -15974,6 +16236,16 @@ AS
             );
             COMMIT;
         END;
+     ELSE
+        fac.imp_writelog (
+          p_import_key,
+          'E',
+          p_tabname || ': waardetabel [' || v_waardetabel_naam || '] komt niet overeen met parentkey',
+          ''
+        );
+        COMMIT;
+     END IF;
+  END;
 -- MAIN
 BEGIN
   -- Loop door de voorkomende (unieke) tabelnamen en voeg deze toe en/of werk
@@ -17836,12 +18108,15 @@ IS
   v_fac_faq_datum                    VARCHAR2 (255);                         -- DATE
   v_fac_faq_lang                     VARCHAR2 (255);                         -- C3
   v_fac_faq_hint                     VARCHAR2 (1000);                        -- C1000 (Voor import tot 1000 beperkt)
+  v_fac_faq_vervaldatum              VARCHAR2 (255);                         -- DATE
+  v_faq_discipline_omschrijving      VARCHAR2 (255);                         -- N10
   -- Overig:
   v_ins_discipline_key2              VARCHAR2 (255);                         -- N10
   v_mld_stdmelding_key2              VARCHAR2 (255);                         -- N10
   v_ins_discipline_key_n             NUMBER (10);                            -- N10
   v_mld_stdmelding_key_n             NUMBER (10);                            -- N10
   v_fac_faq_datum_d                  DATE;                                   -- DATE
+  v_fac_faq_datum_v                  DATE;                                   -- DATE
 
   -- Overige velden:
   CURSOR c1
@@ -17878,6 +18153,8 @@ BEGIN
         fac.imp_getfield (v_newline, c_delim, v_fac_faq_datum);
         fac.imp_getfield (v_newline, c_delim, v_fac_faq_lang);
         fac.imp_getfield (v_newline, c_delim, v_fac_faq_hint);
+        fac.imp_getfield (v_newline, c_delim, v_fac_faq_vervaldatum);
+        fac.imp_getfield (v_newline, c_delim, v_faq_discipline_omschrijving);
 
         v_aanduiding := '['
                      || SUBSTR (v_fac_faq_question, 1, 500)
@@ -17902,6 +18179,8 @@ BEGIN
               AND UPPER (v_fac_faq_datum) = 'PUBLICATIEDATUM'
               AND UPPER (v_fac_faq_lang) = 'TAAL'
               AND UPPER (v_fac_faq_hint) = 'HINT'
+              AND UPPER (v_fac_faq_vervaldatum) = 'VERVALDATUM'
+              AND UPPER (v_faq_discipline_omschrijving) = 'CATALOGUSNAAM'
            THEN
               header_is_valid := 1;
            END IF;
@@ -17948,7 +18227,7 @@ BEGIN
            END IF;
 
            --
-           v_errormsg := 'Discipline ongeldig';
+           v_errormsg := 'Vakgroep (MLD Discipline) ongeldig';
            v_ins_discipline_key := LTRIM (RTRIM (v_ins_discipline_key));
            v_ins_discipline_key_n := NULL;
 
@@ -17969,7 +18248,7 @@ BEGIN
                        fac.imp_writelog (p_import_key,
                                          'I',
                                          v_aanduiding,
-                                         'Discipline is nieuw'
+                                         'Vakgroep (MLD Discipline) is nieuw'
                                         );
                  END;
               ELSE
@@ -18085,6 +18364,38 @@ BEGIN
                                 'Regel wordt overgeslagen!');
            END IF;
 
+           --
+           v_errormsg := 'Vervaldatum ongeldig. Formaat datum is ddmmyyyy';
+           v_fac_faq_vervaldatum := TRIM (v_fac_faq_vervaldatum);
+           v_fac_faq_datum_v := NULL;
+           IF v_fac_faq_vervaldatum IS NOT NULL AND fac.safe_to_date (v_fac_faq_vervaldatum, 'dd-mm-yyyy') IS NULL
+           THEN
+              v_ongeldig := 1;
+              fac.imp_writelog (p_import_key,
+                                'W',
+                                v_aanduiding || v_errormsg,
+                                'Regel wordt overgeslagen!');
+           ELSE
+              v_fac_faq_datum_v := fac.safe_to_date (v_fac_faq_vervaldatum, 'dd-mm-yyyy');
+           END IF;
+
+           --
+           v_errormsg := 'Catalogusnaam (FAQ Discipline) ongeldig';
+           v_faq_discipline_omschrijving := TRIM (v_faq_discipline_omschrijving);
+
+           IF LENGTH (v_faq_discipline_omschrijving) > 60
+           THEN
+              v_faq_discipline_omschrijving := SUBSTR (TRIM (v_faq_discipline_omschrijving), 1, 60);
+              fac.imp_writelog (
+                 p_import_key,
+                 'W',
+                 v_aanduiding || v_errormsg,
+                    'Catalogusnaam wordt afgebroken tot ['
+                 || v_faq_discipline_omschrijving
+                 || ']'
+              );
+           END IF;
+
            -- Insert geformatteerde import record
            IF v_ongeldig = 0
            THEN
@@ -18100,7 +18411,9 @@ BEGIN
                                           fac_faq_url,
                                           fac_faq_datum,
                                           fac_faq_lang,
-                                          fac_faq_hint)
+                                          fac_faq_hint,
+                                          fac_faq_vervaldatum,
+                                          faq_discipline_omschrijving)
                    VALUES   (v_fac_faq_question,
                              v_fac_faq_answer,
                              v_fac_faq_level,
@@ -18110,7 +18423,9 @@ BEGIN
                              v_fac_faq_url,
                              v_fac_faq_datum_d,
                              v_fac_faq_lang,
-                             v_fac_faq_hint);
+                             v_fac_faq_hint,
+                             v_fac_faq_datum_v,
+                             v_faq_discipline_omschrijving);
                  v_count_import := v_count_import + 1;
               EXCEPTION
                  WHEN OTHERS
@@ -18196,6 +18511,7 @@ AS
    v_fac_faq_level            NUMBER (3);
    v_ins_discipline_key       NUMBER (10);
    v_ins_stdmelding_key       NUMBER (10);
+   v_fac_faq_discipline_key   NUMBER (10);
    newkey                     NUMBER (10);
 
 
@@ -18219,6 +18535,36 @@ BEGIN
                || '-'
                || rec_faq.mld_stdmelding_key;
 
+           v_errmes := 'Fout bij het toevoegen van de catalogus (FAQ ins_discipline)';
+           SELECT COUNT(*)
+           INTO   v_count
+           FROM   ins_tab_discipline
+           WHERE  ins_discipline_verwijder IS NULL
+           AND    ins_discipline_module = 'FAQ'
+           AND    UPPER(TRIM(ins_discipline_omschrijving)) = UPPER(TRIM(rec_faq.faq_discipline_omschrijving));
+
+           IF (v_count = 0)
+           THEN
+               INSERT INTO ins_tab_discipline
+                           (ins_discipline_module,
+                            ins_discipline_omschrijving
+                           )
+                    VALUES ('FAQ',
+                            TRIM(rec_faq.faq_discipline_omschrijving)
+                           )
+               RETURNING ins_discipline_key
+               INTO v_fac_faq_discipline_key;
+           ELSE
+               SELECT ins_discipline_key
+               INTO   v_fac_faq_discipline_key
+               FROM   ins_tab_discipline
+               WHERE  ins_discipline_verwijder IS NULL
+               AND    ins_discipline_module = 'FAQ'
+               AND    UPPER(TRIM(ins_discipline_omschrijving)) = UPPER(TRIM(rec_faq.faq_discipline_omschrijving));
+           END IF;
+
+           COMMIT;
+
            IF rec_faq.fac_faq_question IS NULL
            THEN
                fac.imp_writelog (
@@ -18256,7 +18602,7 @@ BEGIN
                        SELECT 3 flevel, 'BEIDE' ftext         FROM DUAL)
                 WHERE ftext = UPPER(rec_faq.fac_faq_level);
 
-               v_errmes := 'Bepalen of de vakgroep (ins_discipline) bestaat';
+               v_errmes := 'Bepalen of de vakgroep (MLD ins_discipline) bestaat';
                IF rec_faq.ins_discipline_key IS NOT NULL
                THEN
                    SELECT ins_discipline_key
@@ -18306,7 +18652,9 @@ BEGIN
                                fac_faq_url,
                                fac_faq_datum,
                                fac_faq_lang,
-                               fac_faq_hint
+                               fac_faq_hint,
+                               fac_faq_vervaldatum,
+                               faq_ins_discipline_key
                               )
                        VALUES (rec_faq.fac_faq_question,
                                rec_faq.fac_faq_answer,
@@ -18315,7 +18663,9 @@ BEGIN
                                rec_faq.fac_faq_url,
                                rec_faq.fac_faq_datum,
                                rec_faq.fac_faq_lang,
-                               rec_faq.fac_faq_hint
+                               rec_faq.fac_faq_hint,
+                               rec_faq.fac_faq_vervaldatum,
+                               v_fac_faq_discipline_key
                               )
                     RETURNING fac_faq_key
                     INTO newkey;
@@ -18385,7 +18735,6 @@ END fac_update_faq;
 /
 
 -- FSN#25952 Contractenimport
-/* Formatted on 10-9-2013 13:24:42 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_import_cnt (p_import_key IN NUMBER)
 AS
   c_delim                  VARCHAR2 (1) := ';';
@@ -19098,7 +19447,6 @@ EXCEPTION
 END fac_import_cnt;
 /
 
-/* Formatted on 16-9-2013 13:25:35 (QP5 v5.115.810.9015) */
 CREATE OR REPLACE PROCEDURE fac_update_cnt (p_import_key IN NUMBER)
 AS
   -- Cursor zoekt direct alle afgeleide gegevens.
@@ -19407,15 +19755,15 @@ AS
                                p_kenmerkwaarde IN VARCHAR2)
   AS
      v_kenmerk_key       NUMBER;
-     v_srtkenmerk_type   VARCHAR2 (1);
+     v_srtkenmerk_type   cnt_srtkenmerk.cnt_srtkenmerk_kenmerktype%TYPE;
      ccount              NUMBER;
      v_srtkenmerk_key    NUMBER;
      v_groep             NUMBER;
      v_kenmerk           VARCHAR2 (50);
      v_waarde            VARCHAR2 (255);
-     v_objectnaam        VARCHAR2 (30);
+     v_objectnaam        fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
-     v_kolomnaam         VARCHAR2 (30);
+     v_kolomnaam         fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
-     v_kolomtxt          VARCHAR2 (30);
+     v_kolomtxt          fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
      sql_stmt            VARCHAR2 (1000);
      v_kenmerkdeel_key   NUMBER;
      l_cursor_1          INTEGER;
@@ -20717,7 +21065,6 @@ BEGIN
 END;
 /
 
-/* Formatted on 08-Jul-16 18:19:24 (QP5 v5.136.908.31019) */
 CREATE OR REPLACE PROCEDURE fac_import_translation (p_import_key IN NUMBER)
 AS
   c_delim           VARCHAR2 (1) := ';';
@@ -20868,7 +21215,6 @@ EXCEPTION
 END;
 /
 
-/* Formatted on 09-Jul-16 17:40:50 (QP5 v5.136.908.31019) */
 CREATE OR REPLACE PROCEDURE fac_update_translation (p_import_key IN NUMBER)
 AS
   CURSOR c1

FAC/FAC_PACFLEX.SRC

@@ -315,9 +315,11 @@
             -- Wijzig de root_key van alle records die naar het te verwijderen record verwijzen
             UPDATE fac_bijlagen
                SET fac_bijlagen_root_key = v_new_root_key
-                 , fac_bijlagen_disk_directory = v_cur_disk_dir
+             WHERE fac_bijlagen_root_key = v_cur_root_key;
-             WHERE fac_bijlagen_root_key = v_cur_root_key
+            -- Wijzig alleen van de nieuwe root de directory
-               AND fac_bijlagen_verwijder IS NULL;
+            UPDATE fac_bijlagen
+               SET fac_bijlagen_disk_directory = v_cur_disk_dir
+             WHERE fac_bijlagen_key = v_new_root_key;
         END IF;
         --
         -- Nu mag dit record verwijderd worden

FAC/FAC_PACX.SRC

@@ -844,7 +844,7 @@ AS
    BEGIN
       IF p_kenmerk_waarde IS NULL
       THEN
-         IF p_kenmerk_type IN ('L', 'l')
+         IF p_kenmerk_type IN ('L')
          THEN
             RETURN p_kenmerk_default;
          ELSIF p_kenmerk_type IN ('M')
@@ -1145,6 +1145,8 @@ AS
       v_nr                prs_kostenplaatsgrp.prs_kostenplaatsgrp_nr%TYPE;
       v_limiet            prs_kostenplaatsgrp.prs_kostenplaatsgrp_limiet%TYPE;
       v_limperiode        prs_kostenplaatsgrp.prs_kostenplaatsgrp_limperiode%TYPE;
+      v_fin_limit1        prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit1%TYPE;
+      v_fin_limit2        prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit2%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -1167,6 +1169,8 @@ AS
          createxmltagvalue ('nr', v_nr);
          createxmltagvalue ('limiet', v_limiet);
          createxmltagvalue ('limietperiode', v_limperiode);
+         createxmltagvalue ('kostenplaatslimiet1', v_fin_limit1);
+         createxmltagvalue ('kostenplaatslimiet2', v_fin_limit2);
          createclosetag ('kostenplaatsgrp');
      END IF;
    END;
@@ -1782,6 +1786,9 @@ AS
              createxmltagvalue ('soapversion', rec.prs_bedrijfadres_soapversion);
              createxmltagvalue ('soapaction', rec.prs_bedrijfadres_soapaction);
              createxmltagvalue ('authmethod', rec.prs_bedrijfadres_authmethod);
+             createxmltagvalue ('token_url', rec.prs_bedrijfadres_oa_token_url);
+             createxmltagvalue ('scope', rec.prs_bedrijfadres_oa_scope);
+             createxmltagvalue ('resource', rec.prs_bedrijfadres_oa_resource);
              createxmltagvalue ('district_key', rec.alg_district_key);
              createxmltagvalue ('locatie_key', rec.alg_locatie_key);
              createxmltagvalue ('mailsender', rec.prs_bedrijfadres_sender);
@@ -2003,6 +2010,8 @@ AS
       v_prs_bedrijf_bedrijf_fee3        prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_fee3%TYPE;
       v_fin_btwtabelwaarde_key          prs_bedrijf_bedrijf.fin_btwtabelwaarde_key%TYPE;
       v_prs_bedrijf_bedrijf_g_pct       prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_g_pct%TYPE;
+      v_prs_bedrijf_bedrijf_account1    prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_account1%TYPE;
+      v_prs_bedrijf_bedrijf_account2    prs_bedrijf_bedrijf.prs_bedrijf_bedrijf_account2%TYPE;
 
    BEGIN
       IF p_key IS NOT NULL
@@ -2025,7 +2034,9 @@ AS
                 prs_bedrijf_bedrijf_fee2,
                 prs_bedrijf_bedrijf_fee3,
                 fin_btwtabelwaarde_key,
-                prs_bedrijf_bedrijf_g_pct
+                prs_bedrijf_bedrijf_g_pct,
+                prs_bedrijf_bedrijf_account1,
+                prs_bedrijf_bedrijf_account2
            INTO v_prs_bedrijf_bedrijf_key,
                 v_prs_bedrijf_key1,
                 v_prs_bedrijf_externid1,
@@ -2042,7 +2053,9 @@ AS
                 v_prs_bedrijf_bedrijf_fee2,
                 v_prs_bedrijf_bedrijf_fee3,
                 v_fin_btwtabelwaarde_key,
-                v_prs_bedrijf_bedrijf_g_pct
+                v_prs_bedrijf_bedrijf_g_pct,
+                v_prs_bedrijf_bedrijf_account1,
+                v_prs_bedrijf_bedrijf_account2
            FROM prs_bedrijf_bedrijf
           WHERE prs_bedrijf_bedrijf_key = p_key;
 
@@ -2063,6 +2076,8 @@ AS
          createxmltagvalue ('fee3', v_prs_bedrijf_bedrijf_fee3);
          createxmltagvalue ('btwtabelwaarde_key', v_fin_btwtabelwaarde_key);
          createxmltagvalue ('g_pct', v_prs_bedrijf_bedrijf_g_pct);
+         createxmltagvalue ('account1', v_prs_bedrijf_bedrijf_account1);
+         createxmltagvalue ('account2', v_prs_bedrijf_bedrijf_account2);
 
          createclosetag ('bedrijf_bedrijf');
       END IF;
@@ -2224,6 +2239,7 @@ AS
       v_externid         prs_perslid.prs_perslid_externid%TYPE;
       v_externsyncdate   prs_perslid.prs_perslid_externsyncdate%TYPE;
       v_visibility       prs_perslid.prs_perslid_visibility%TYPE;
+      v_firstwpdone      BOOLEAN;
 
       CURSOR c1
       IS
@@ -2332,11 +2348,13 @@ AS
             mydatetochar ('einddatum', v_einddatum);
             createxmltagvalue ('uurloon', mynumbertochar (v_uurloon));
 
+            v_firstwpdone := FALSE;
             FOR rec1 IN c1
             LOOP
                create_prs_werkplek_node (rec1.prs_werkplek_key,
                                          p_key,
-                                         FALSE);  -- is toch helaas nodig voor UWVA#25793
+                                         v_firstwpdone);  -- Eentje volledig is soms nodig (WVA#25793)
+                v_firstwpdone := TRUE; -- rest concise
             END LOOP;
 
             create_prs_afdeling_node (v_afdeling_key, 'afdeling');
@@ -2690,6 +2708,7 @@ AS
          ORDER BY k.alg_kenmerk_volgnr;
 
       v_kenmerk_waarde       alg_onrgoedkenmerk.alg_onrgoedkenmerk_waarde%TYPE;
+      v_FCLT62916 BOOLEAN := FALSE;
    BEGIN
       -- // Openen van deze cursor duurt @UVW soms relatief lang.
       -- // Timing statements komen in de XML
@@ -2708,8 +2727,11 @@ AS
                                   TO_CHAR(SYSTIMESTAMP, 'HH24:MI:SS.FF'));
       FOR rec1 IN c1
       LOOP
+         IF (NOT v_FCLT62916) THEN
              createxmltagvalue ('FCLT62916isopen',
                                      TO_CHAR(SYSTIMESTAMP, 'HH24:MI:SS.FF'));
+            v_FCLT62916 := TRUE;
+         END IF;
          v_kenmerk_waarde :=
             find_kenmerk_waarde (rec1.alg_onrgoedkenmerk_waarde,
                                  rec1.alg_kenmerk_default,
@@ -4158,6 +4180,7 @@ AS
            SELECT mld_melding_note_key,
                   mld_melding_note_aanmaak,
                   prs_perslid_key,
+                  mld_melding_note_parent_key,
                   mld_melding_note_omschrijving,
                   mld_melding_note_flag,
                   mld_melding_note_wijzigdatum,
@@ -4174,6 +4197,7 @@ AS
          LOOP
             createopentag ('note');
             createxmltagvalue ('key', rec1.mld_melding_note_key);
+            createxmltagvalue ('parent_key', rec1.mld_melding_note_parent_key);
             createxmltagvalue ('flag', BITAND(rec1.mld_melding_note_flag, 191)); -- reset de hier irrelevante 64-bit om compatibel te blijven
             mydatetochar ('aanmaak', rec1.mld_melding_note_aanmaak);
             mydatetochar ('wijzigdatum', rec1.mld_melding_note_wijzigdatum);
@@ -4280,6 +4304,8 @@ AS
            SELECT mld_opdr_note_key,
                   mld_opdr_note_aanmaak,
                   prs_perslid_key,
+                  mld_opdr_note_parent_key,
+                  mld_opdr_note_flag,
                   mld_opdr_note_omschrijving,
                   mld_opdr_note_wijzigdatum,
                   fac_note_group_key
@@ -4295,7 +4321,9 @@ AS
             createopentag ('note');
             createxmltagvalue ('key', rec1.mld_opdr_note_key);
             mydatetochar ('aanmaak', rec1.mld_opdr_note_aanmaak);
+            createxmltagvalue ('parent_key', rec1.mld_opdr_note_parent_key);
             mydatetochar ('wijzigdatum', rec1.mld_opdr_note_wijzigdatum);
+            createxmltagvalue ('flag', BITAND(rec1.mld_opdr_note_flag, 127));
             createxmltagvalue ('omschrijving',
                                rec1.mld_opdr_note_omschrijving);
             create_prs_perslid_node (rec1.prs_perslid_key, 'noteur', TRUE);
@@ -4440,6 +4468,8 @@ AS
       v_afmelden_extern   mld_typeopdr.mld_typeopdr_afmelden_extern%TYPE;
       v_isofferte         mld_typeopdr.mld_typeopdr_isofferte%TYPE;
       v_gvs               mld_typeopdr.mld_typeopdr_gvs%TYPE;
+      v_bez               mld_typeopdr.mld_typeopdr_bez%TYPE;
+      v_image             mld_typeopdr.mld_typeopdr_image%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -4460,7 +4490,9 @@ AS
                 mld_typeopdr_zichtbaarfe,
                 mld_typeopdr_afmelden_extern,
                 mld_typeopdr_isofferte,
-                mld_typeopdr_gvs
+                mld_typeopdr_gvs,
+                mld_typeopdr_bez,
+                mld_typeopdr_image
            INTO v_omschrijving,
                 v_decentraal,
                 v_kosten,
@@ -4473,7 +4505,9 @@ AS
                 v_zichtbaarfe,
                 v_afmelden_extern,
                 v_isofferte,
-                v_gvs
+                v_gvs,
+                v_bez,
+                v_image
            FROM mld_typeopdr
           WHERE mld_typeopdr_key = p_key;
 
@@ -4491,6 +4525,8 @@ AS
          createxmltagvalue ('afmelden_extern', v_afmelden_extern);
          createxmltagvalue ('isofferte', v_isofferte);
          createxmltagvalue ('gvs', v_gvs);
+         createxmltagvalue ('bez', v_bez);
+         createxmltagvalue ('image', v_image);
          createclosetag ('opdrachttype');
       END IF;
    END;
@@ -5019,6 +5055,7 @@ AS
       v_uitvoertijd4_td       mld_stdmelding.mld_stdmelding_t_uitvoertijd.tijdsduur%TYPE;
       v_uitvoertijd4_e        mld_stdmelding.mld_stdmelding_t_uitvoertijd.eenheid%TYPE;
       v_notfrontend           mld_stdmelding.mld_stdmelding_notfrontend%TYPE;
+      v_notes                 mld_stdmelding.mld_stdmelding_notes%TYPE;
       v_prs_kostensoort_key   mld_stdmelding.prs_kostensoort_key%TYPE;
       v_verwijder             mld_stdmelding.mld_stdmelding_verwijder%TYPE;
       v_groep                 mld_stdmeldinggroep.mld_stdmeldinggroep_naam%TYPE;
@@ -5063,6 +5100,7 @@ AS
                 stdm.mld_stdmelding_t_uitvtijd_pr4.tijdsduur,
                 stdm.mld_stdmelding_t_uitvtijd_pr4.eenheid,
                 mld_stdmelding_notfrontend,
+                mld_stdmelding_notes,
                 prs_kostensoort_key,
                 mld_stdmelding_verwijder,
                 lcl.x ('mld_stdmeldinggroep_naam',
@@ -5104,6 +5142,7 @@ AS
                 v_uitvoertijd4_td,
                 v_uitvoertijd4_e,
                 v_notfrontend,
+                v_notes,
                 v_prs_kostensoort_key,
                 v_verwijder,
                 v_groep,
@@ -5206,6 +5245,7 @@ AS
          createxmltagvalue ('groep', v_groep);
          createxmltagvalue ('groepomschrijving', v_groepoms);
          createxmltagvalue ('notfrontend', v_notfrontend);
+         createxmltagvalue ('notes_deelnemers', v_notes);
          createxmltagvalue ('slabewaken', v_slabewaken);
          createxmltagvalue ('regime', v_regime);
          createxmltagvalue ('autoorder', v_autoorder);
@@ -5335,7 +5375,7 @@ AS
                 NVL (mld_melding_geprint, 0),
                 prs_afdeling_key,
                 NVL (mld_kosten_klant, 0),
-                prs_kostenplaats_key,
+                m.prs_kostenplaats_key,
                 NVL (mld_melding_status, ''),
                 NVL (s.mld_statuses_omschrijving, ''),
                 NVL (mld_melding_spoed, 0),
@@ -5765,6 +5805,7 @@ AS
       v_typeopdr_key              mld_opdr.mld_typeopdr_key%TYPE;
       v_statusopdr_key            mld_opdr.mld_statusopdr_key%TYPE;
       v_statusopdr                mld_statusopdr.mld_statusopdr_omschrijving%TYPE;
+      v_actiecode                 mld_opdr.mld_opdr_actiecode%TYPE;
       v_mld_standaardopdr_key     mld_opdr.mld_standaardopdr_key%TYPE;
       v_omschrijving              mld_opdr.mld_opdr_omschrijving%TYPE;
       v_datumbegin                mld_opdr.mld_opdr_datumbegin%TYPE;
@@ -5816,6 +5857,13 @@ AS
         SELECT fin_factuur_key
           FROM fin_factuur
          WHERE mld_opdr_key = p_key;
+
+      CURSOR c3
+      IS
+         SELECT ba.bez_afspraak_key
+           FROM bez_afspraak ba
+          WHERE ba.mld_opdr_key = p_key;
+
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -5825,6 +5873,7 @@ AS
                 mld_uitvoerende_keys,
                 mld_typeopdr_key,
                 o.mld_statusopdr_key,
+                o.mld_opdr_actiecode,
                 s.mld_statusopdr_omschrijving,
                 mld_standaardopdr_key,
                 mld_opdr_omschrijving,
@@ -5869,6 +5918,7 @@ AS
                 v_mld_uitvoerende_keys,
                 v_typeopdr_key,
                 v_statusopdr_key,
+                v_actiecode,
                 v_statusopdr,
                 v_mld_standaardopdr_key,
                 v_omschrijving,
@@ -5917,6 +5967,7 @@ AS
          createxmltagvalue ('melding_key', v_mld_melding_key);
          createxmltagvalue ('uitvoerende_keys', v_mld_uitvoerende_keys);
          createxmltagvalue ('statusopdr_key', v_statusopdr_key);
+         createxmltagvalue ('actiecode', v_actiecode);
          createxmltagvalue ('status', v_statusopdr);
          createxmltagvalue ('standaardopdr_key', v_mld_standaardopdr_key);
          createxmltagvalue ('omschrijving', v_omschrijving);
@@ -5981,6 +6032,11 @@ AS
             create_mld_opdr_mater_node (rec1.mld_opdr_materiaal_key);
          END LOOP;
 
+         FOR rec3 IN c3
+         LOOP
+            create_bez_afspraak_node (rec3.bez_afspraak_key, NULL, TRUE);
+         END LOOP;
+
          IF NOT p_concise
          THEN
             create_mld_melding_node (v_mld_melding_key, p_extra_key, FALSE);
@@ -8018,7 +8074,7 @@ AS
       createclosetag ('res_ruimte');
    END;
 
-   PROCEDURE create_res_deel_node (p_key IN NUMBER)
+   PROCEDURE create_res_deel_node (p_key IN NUMBER, p_aantal IN NUMBER)
    AS
       v_key              res_deel.res_deel_key%TYPE;
       v_ins_deel_key     res_deel.res_ins_deel_key%TYPE;
@@ -8026,6 +8082,7 @@ AS
       v_eenheid          res_deel.res_deel_eenheid%TYPE;
       v_prijs            res_deel.res_deel_prijs%TYPE;
       v_prijs_vast       res_deel.res_deel_prijs_vast%TYPE;
+      v_bulkrsvbaar      res_deel.res_deel_bulkreserveerbaar%TYPE;
       v_discipline_key   res_deel.res_discipline_key%TYPE;
       v_opmerking        res_deel.res_deel_opmerking%TYPE;
       v_verwijder        res_deel.res_deel_verwijder%TYPE;
@@ -8044,6 +8101,7 @@ AS
                 res_deel_eenheid,
              res_deel_prijs,
              res_deel_prijs_vast,
+             res_deel_bulkreserveerbaar,
              lcl.x ('res_deel_opmerking', res_deel_key, res_deel_opmerking)
                 res_deel_opmerking,
              res_discipline_key,
@@ -8058,6 +8116,7 @@ AS
              v_eenheid,
              v_prijs,
              v_prijs_vast,
+             v_bulkrsvbaar,
              v_opmerking,
              v_discipline_key,
              v_verwijder,
@@ -8076,6 +8135,7 @@ AS
       createxmltagvalue ('eenheid', v_eenheid);
       createxmltagvalue ('prijs', v_prijs);
       createxmltagvalue ('prijsvast', v_prijs_vast);
+      createxmltagvalue ('bulkreserveerbaar', v_bulkrsvbaar);
       createxmltagvalue ('opmerking', v_opmerking);
       mydatetochar ('verwijder', v_verwijder);
       create_prs_perslid_node (v_prs_perslid_key, 'persoon', TRUE);
@@ -8086,7 +8146,7 @@ AS
       createclosetag ('res_deel');
    END;
 
-   PROCEDURE create_res_rsv_deel_node (p_key IN NUMBER)
+   PROCEDURE create_res_rsv_deel_node (p_key IN NUMBER, p_aantal IN NUMBER)
    AS
       v_deel_key           res_rsv_deel.res_deel_key%TYPE;
       v_aantal             res_rsv_deel.res_rsv_deel_aantal%TYPE;
@@ -8146,15 +8206,21 @@ AS
              AND rd.res_rsv_deel_key = p_key;
 
       createxmltagvalue ('key', p_key);
-      create_res_deel_node (v_deel_key);
+      create_res_deel_node (v_deel_key, p_aantal);
+      IF p_aantal IS NOT NULL AND p_aantal > 0
+      THEN
+         createxmltagvalue ('aantal', p_aantal);
+          createxmltagvalue ('prijs', p_aantal * v_prijs);
+      ELSE
          createxmltagvalue ('aantal', v_aantal);
+          createxmltagvalue ('prijs', v_prijs);
+      END IF;
       createxmltagvalue ('status_bokey', v_status_bo_key);
       createxmltagvalue ('status_bo', v_status_bo_omschr);
       createxmltagvalue ('dirtlevel', v_dirtlevel);
       createxmltagvalue ('res_ruimte', v_rsv_ruimte_key);
       mydatetochar ('van', v_van);
       mydatetochar ('tot', v_tot);
-      createxmltagvalue ('prijs', v_prijs);
       mydatetochar ('aanmaak', v_aanmaak);
       mydatetochar ('verwijder', v_verwijder);
       mydatetochar ('geleverd', v_geleverd);
@@ -8424,10 +8490,21 @@ AS
 
       CURSOR c2d
       IS
-         SELECT rd.res_rsv_deel_key
+         SELECT rd.res_deel_omschrijving, rrd.res_rsv_deel_key, 0 selected
-           FROM res_rsv_deel rd
+           FROM res_rsv_deel rrd, res_deel  rd
-          WHERE rd.res_rsv_deel_verwijder IS NULL
+          WHERE rrd.res_rsv_deel_verwijder IS NULL
-                AND rd.res_rsv_ruimte_key = p_key;
+            AND rrd.res_rsv_ruimte_key = p_key
+            AND rrd.res_deel_key = rd.res_deel_key
+            AND rd.res_deel_bulkreserveerbaar IS NULL
+         UNION ALL -- Van bulk-objecten wordt <20><>n 'record' opgeleverd met de laagste res_deel_key
+         SELECT res_deel_omschrijving,
+                MIN (res_rsv_deel_key) res_rsv_deel_key,
+                COUNT (res_deel_omschrijving) selected
+           FROM res_deel r1, res_rsv_deel rrd1
+          WHERE r1.res_deel_key = rrd1.res_deel_key
+            AND rrd1.res_rsv_ruimte_key = p_key
+            AND res_deel_bulkreserveerbaar IS NOT NULL
+          GROUP BY res_deel_omschrijving;
 
       CURSOR c2a
       IS
@@ -8592,7 +8669,7 @@ AS
 
          FOR rec2d IN c2d
          LOOP
-            create_res_rsv_deel_node (rec2d.res_rsv_deel_key);
+            create_res_rsv_deel_node (rec2d.res_rsv_deel_key, rec2d.selected);
          END LOOP;
 
          FOR rec3 IN c3

FAC/FAC_SEQ.SRC

@@ -38,13 +38,12 @@ CREATE SEQUENCE fac_s_fac_locale_xref_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmerkdomein_key     MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmwaarden_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_widget_key            MINVALUE 1;
-/* Alvast voor 2022.1
 CREATE SEQUENCE fac_s_fac_widget_page_key       MINVALUE 100;
 CREATE SEQUENCE fac_s_fac_widget_onpage_key     MINVALUE 1;
-*/
 CREATE SEQUENCE fac_s_fac_note_group_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
+CREATE SEQUENCE fac_s_imp_csv_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_audit_key             MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_auditfail_key         MINVALUE 1;
@@ -57,6 +56,7 @@ CREATE SEQUENCE fac_s_fac_qvw_ticket_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_session_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_sequence_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_bijlagen_key          MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_layout_key            MINVALUE 100;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_SET.SRC

@@ -43,6 +43,9 @@ COMMIT;
 // WEB_FACTAB Technisch applicatie beheer, server instellingen
 // WEB_PRSSYS Functioneel Applicatie Beheer, mag klant zelf wijzigen
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_otap'                              , 'string'                      , 'P'                           , 'OTAP environment. custenv.wsc overrule only')
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'fac_portalert_XD'                      , 'string'                      , '',                           , 'Hot news text on portal Cross Domain!')
 DEFINE_SETTING('FAC', 0000, 'WEB_FACFAC', 'forum_secret'                          , 'string'                      , 'rQf1yKO1VWP4xm3iGef1WgzFo5LPKBEz', 'Forum jwt secret (future use)')
@@ -95,7 +98,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'cssfordesktop'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'cssformobile'                          , 'string'                      , ''                            , 'jQuery themeroller mobile replacement')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_api_allow_impersonate'             , 'boolean'                     , 'false'                       , 'Allow impersonation through X-Facilitor-Switch-user (future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', '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, 'WEB_FACFAC', 'fac_nieuws_forum_url'                  , 'string'                      , 'https://wordpress.facilitor.nl/api/get_category_posts/?category_id=40&count=15&date_format=d-m-Y', 'Deprecated')
+DEFINE_SETTING('ALG', 0001, 'WEB_FACFAC', 'fac_betafeatures'                      , 'number'                      , '0'                           , 'Bits for enabling release specific experimental features')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_pdf_printer'                       , 'number'                      , '0'                           , 'PDF Printer support bits (future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_usrrap_mode'                       , 'number'                      , '0'                           , 'User reports mode {0=default, 1=advanced}')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACFAC', 'fac_usrrap_safe_view_regexp'           , 'string'                      , ''                            , 'User reports safe views regexp')
@@ -145,25 +148,28 @@ DEFINE_SETTING('FAC', 0000, 'WEB_FACTAB', 'max_logfile_size'
 DEFINE_SETTING('FAC', 0000, 'WEB_FACTAB', 'optimizer_features_enable'             , 'string'                      , ''                            , 'optimizer_features_enable (Future use)')
 DEFINE_SETTING('FAC', 0000, 'WEB_FACTAB', 'tempfilespath'                         , 'string'                      , NULL                          , 'Path for temp files (future use)')
 
-DEFINE_SETTING('ALG', 0001, 'WEB_FACTAB', '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, 'WEB_FACTAB', 'alg_ruimtenr_aut_use'                  , 'number'                      , '0'                           , 'WEB_RUIUSE may change alg_ruimte_nr/omschrijving {0=WEB_RUIMAN required | 1=WEB_RUIUSE allowed too}')
 DEFINE_SETTING('BES', 0001, 'WEB_FACTAB', 'bes_image_path'                        , 'string'                      , NULL                          , 'path to folder storing bes_srtdeel pictures')
 DEFINE_SETTING('BES', 0001, 'WEB_FACTAB', 'besd_image_path'                       , 'string'                      , NULL                          , 'path to folder storing bes discipline pictures')
 DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_afspraak_host_uses_keys'           , 'number'                      , '0'                           , 'the field "Bezoek voor" is a listbox (1 = true) otherwise a textfield (0 or 2 for required). INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
 DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_afspraak_onrgoed_uses_keys'        , 'number'                      , '0'                           , 'listboxes location until room instead of only a room text field; INITIEEL INRICHTEN (BEZ-tabellen leeg)!')
 DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_afspraak_tel_required'             , 'number'                      , '2'                           , '0=optional with value, 1=required with value, 2=optional and empty, 3=required and empty')
 DEFINE_SETTING('BEZ', 0001, 'WEB_FACTAB', 'vis_parking_key'                       , 'number'                      , '-1'                          , 'Catalog key (res_discipline_key) for Parking places')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_fo_default_user'                   , 'number'                      , '0'                           , 'Use current user as default appointment host, { 1=user | 0=empty (default) }')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_fobo_default_locatie_empty'        , 'boolean'                     , 'false'                       , 'No auto fill location when selecting host for new appointment back/front-office')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_import_column3'                    , 'number'                      , '0'                           , 'Third column input when importing visitors (0=none,1=telefoon,2=email,3=kenteken,4=kenmerk)')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_import_column4'                    , 'number'                      , '0'                           , 'Fourth column input when importing visitors (0=none,1=telefoon,2=email,3=kenteken,4=kenmerk)')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_import_column5'                    , 'number'                      , '0'                           , 'Fifth column input when importing visitors (0=none,1=telefoon,2=email,3=kenteken,4=kenmerk)')
 DEFINE_SETTING('BGT', 0001, 'WEB_FACTAB', 'bgt_enabled'                           , 'number'                      , '0'                           , 'Is Facilitor Budgetting module (BGT) available {0 | 1}')
 DEFINE_SETTING('BGT', 0001, 'WEB_FACTAB', 'bgtd_image_path'                       , 'string'                      , NULL                          , 'path to folder storing bgt discipline pictures')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_ThemaAlpha'                         , 'number'                      , '224'                         , 'Default roomcontour transparancy. 255==solid!')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_themaalpha'                         , 'number'                      , '224'                         , 'Default roomcontour transparancy. 255=solid')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_WPScale'                            , 'float'                       , '1'                           , 'Schaal voor werkplek symbolen tov 1.0')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_wpscale'                            , 'float'                       , '1'                           , 'Relative scale for workplace symbol')
 DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_antialias'                          , 'number'                      , '2'                           , 'Antialias, 1=off, 2=pleasant, 4=slower')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_contourAlpha'                       , 'number'                      , '0'                           , 'Default roomcontour transparancy. 0==invisible!')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_contouralpha'                       , 'number'                      , '0'                           , 'Default roomcontour transparancy. 0=invisible')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbelDist'                         , 'number'                      , '1400'                        , 'Afstand dobbel symbolen (mm)')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbeldist'                         , 'number'                      , '1400'                        , 'Distance for dice symbols (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbelScale'                        , 'float'                       , '0.5'                         , 'Schaal voor de dobbelsymbolen versus normale grootte')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_dobbelscale'                        , 'float'                       , '0.5'                         , 'Relative scale for dice symbols')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_maximize'                           , 'boolean'                     , 'true'                        , 'Maximaliseer plaatje naar wat echt zichtbaar is.')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_maximize'                           , 'boolean'                     , 'true'                        , 'Maximize symbol to visible area') // in begrijpelijke taal=?
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_startBuiten'                        , 'boolean'                     , 'false'                       , 'Bij binnenkomst van FGII buiten/terrein-situatie tonen')
+DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_translateprintcolor'                , 'json'                        , '[]'                          , 'Color-translations for printing of plans')
-DEFINE_SETTING('CAD', 0001, 'WEB_FACTAB', 'fg_translateprintcolor'                , 'json'                        , '[]'                          , 'Kleurvertalingen bij printen')
 DEFINE_SETTING('CNT', 0001, 'WEB_FACTAB', 'cnt_srttype_rental'                    , 'number'                      , '2'                           , 'cnt_srtcontract_type of room rental contract type')
 DEFINE_SETTING('CNT', 0001, 'WEB_FACTAB', 'cntd_image_path'                       , 'string'                      , NULL                          , 'path to folder storing cnt discipline pictures')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'NotifyMessageInterval'                 , 'number'                      , '0'                           , 'time (seconds) between NotifyMessage.asp [=Check for popups] refreshes. 0=disable')
@@ -174,19 +180,17 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'allowedLinkRegex'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'auto_https'                            , 'number'                      , '3'                           , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_html_strictness'                   , 'number'                      , '0'                           , '0=allow html in message, res-room description, flex-labels, 1=do not allow (strict, more secure)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'cal_showOn'                            , 'string'                      , 'button'                      , '''button'' or ''focus'' or ''both''')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'csp_header'                            , 'string'                      , 'default-src *; style-src * ''unsafe-inline'';  script-src * ''unsafe-inline'' ''unsafe-eval''; img-src * data: ''unsafe-inline''; connect-src * ''unsafe-inline''; frame-src * mailto: tel: phone: callto:; font-src * data: ''unsafe-inline'';', 'Content-Security-Policy header')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'csp_header'                            , 'string'                      , 'default-src ''self''; script-src ''self'' ''unsafe-eval'' ''unsafe-inline''; style-src ''self'' ''unsafe-inline''; frame-src ''self'' mailto: tel: callto:; img-src ''self'' data:; block-all-mixed-content;', 'Content-Security-Policy header')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'referrer_policy_header'                , 'string'                      , 'strict-origin-when-cross-origin', 'Referrer-Policy header (future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'cssenvcust'                            , 'string'                      , ''                            , 'Custom css environment overrules')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'csstemplate'                           , 'json'                        , '{}'                          , 'Color scheme.')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fontawesomestyle'                      , 'string'                      , 'fal'                         , 'Icons style. Options are far (regular), fas (solid), fal (light)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'custfunctionspath'                     , 'string'                      , NULL                          , 'path to custfunctions.wsc')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', '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, 'WEB_FACTAB', 'email_regexp'                          , 'string'                      , '^\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,}\s*([,;]\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,}\s*)*$', 'Meerdere gescheiden door , of ;')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'email_regexp_single'                   , 'string'                      , '^\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,4}\s*$', 'E<>n email adres')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'email_regexp_single'                   , 'string'                      , '^\s*[A-Z0-9&\._%+-]+@[A-Z0-9\.-]+\.[A-Z]{2,}\s*$', 'E<>n email adres')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_accept_terms'                      , 'number'                      , '0'                           , '0 (default) no accept, 1=must accept L("lcl_terms_filename")')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_apitoken_auth_expire'              , 'number'                      , '0'                           , 'Minutes api auth token is valid (default 0)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_emailtoken_auth_expire'            , 'number'                      , '0'                           , 'Minutes e-mail login token is valid (default 0)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_logo_file'                         , 'string'                      , 'tmpl_logo.gif'               , 'Customer logo file (Future use)')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_nieuws_forum_max'                  , 'number'                      , '6'                           , 'Deprecated: Max number of news items to show (<0 to disable)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_number1'                  , 'number'                      , '0'                           , 'reserved_number1 (reserved and unused)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_number2'                  , 'number'                      , '0'                           , 'reserved_number2 (reserved and unused)')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_string1'                  , 'string'                      , ''                            , 'reserved_string1 (reserved and unused)')
@@ -194,7 +198,8 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_reserved_string2'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_server_timezone'                   , 'string'                      , 'Europe/Amsterdam'            , 'The timezone of the database-server')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_t_endofworkday'                    , 'float'                       , '17'                          , 'End time (hour, decimal) of a working day')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'fac_t_startofworkday'                  , 'float'                       ,  '8'                          , 'Start time (hour, decimal) of a working day')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', '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|7z)$', 'Allowed extensions')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', '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|7z|mp4|mov|m4v|3gp|avi)$', 'Allowed extensions')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'imgAllowedExt'                         , 'string'                      , 'jpg|jpeg|png|gif|bmp' , 'Allowed image extensions')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flexPreviewExt'                        , 'string'                      , '.*\.(jpg|jpeg|png|gif|bmp)$' , 'Extentions of attachments to preview in show_mld')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_mimetypes'                        , 'json'                        , '{ "jpg": "image/jpeg", "jpeg": "image/jpeg" , "png": "image/png", "bmp": "image/bmp", "gif": "image/gif", "pdf": "application/pdf", "html": "text/html", "eml": "message/rfc822" }', 'Supported streaming mimetypes')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'flex_min_size'                         , 'number'                      , '64'                          , 'E-mail attachments smaller (in bytes) than this are silently ignored')
@@ -237,9 +242,11 @@ DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'sys_ip_lockmode'
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'sys_ip_restrict'                       , 'string'                      , ''                            , 'Regexp ip-restriction')
 DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', '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, 'WEB_FACTAB', 'view_dwf_with_slnkdwf'                 , 'boolean'                     , 'false'                       , 'View DWF document files using SLNKDWF')
-DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'widgetportal'                          , 'number'                      , '0'                           , 'Use a widgetpage as startpage (1) or the standard page (0)')
+DEFINE_SETTING('WGT', 0001, 'WEB_FACTAB', 'wgt_enabled'                           , 'number'                      , '0'                           , 'Is the widget module available {0 | 1} licensed separately')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'widgetportal'                          , 'number'                      , '0'                           , 'Use a widgetpage with this key as startpage (key) or the standard page (0)')
 DEFINE_SETTING('FAQ', 0001, 'WEB_FACTAB', 'faq_enabled'                           , 'number'                      , '0'                           , 'Is kennisbank available {0 | 1} licensed separately')
-DEFINE_SETTING('FIN', 0001, 'WEB_FACTAB', 'fin_defaultboekmaand'                  , 'number'                      , '1'                           , 'How to determine default "boekmaand" for entered invoice: 1=sysdate, 2=orderdate')
+DEFINE_SETTING('FIN', 0001, 'WEB_FACTAB', 'fin_defaultboekmaand'                  , 'number'                      , '1'                           , 'How to determine default "boekmaand" for entered invoice with an order: 1=sysdate, 2=orderdate, 3=enddate')
+DEFINE_SETTING('FIN', 0001, 'WEB_FACTAB', 'fin_defaultboekmaand_cnt'              , 'number'                      , '1'                           , 'How to determine default "boekmaand" for entered invoice with a contract: 1=sysdate, 2=invoicedate')
 DEFINE_SETTING('INS', 0001, 'WEB_FACTAB', 'cnd_gebreken_srtdisc_key'              , 'number'                      , '-1'                          , 'Key of the mld_srtdiscipline of the condition measurement calls')
 DEFINE_SETTING('INS', 0001, 'WEB_FACTAB', 'ins_history'                           , 'string'                      , '1'                           , 'historymode for flexproperties {0 | 1}')
 DEFINE_SETTING('INS', 0001, 'WEB_FACTAB', 'ins_image_path'                        , 'string'                      , NULL                          , 'path to folder storing ins_srtdeel pictures')
@@ -276,21 +283,21 @@ DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'res_image_path'
 DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'resd_image_path'                       , 'string'                      , NULL                          , 'path to folder storing res discipline pictures')
 DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'res_pda_deel_times'                    , 'array'                       , '15,30,60,120,240'            , 'Mobile poposed reservation times for objects')
 DEFINE_SETTING('RES', 0001, 'WEB_FACTAB', 'res_pda_room_times'                    , 'array'                       , '30,60,120'                   , 'Mobile proposed reservation times for rooms')
+DEFINE_SETTING('FAC', 0001, 'WEB_FACTAB', 'max_report_zip_uncompressed'           , 'number'                      , '250'                         , 'Maximum uncompressed size (MB) for zipping attachments by UDR report')
 
 DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_fg_remote_maps'                    , 'string'                      , ''                            , 'API Key. if not empty use Google Maps for locations en buildings in Facilitor Graphics')
-DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_flexcolumns'                       , 'number'                      , '2'                           , 'DEPRECATED number of flexcolumns for ALG [1|2]')
 DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_onrgoed_recent'                    , 'number'                      , '60'                          , 'Tijdsinterval voor de recente onroerendgoed wijzigingen in minuten')
 DEFINE_SETTING('ALG', 0001, 'WEB_FACTAB', 'alg_image_path'                        , 'string'                      , NULL                          , 'path to folder storing alg pictures')
 DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'alg_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum ALG photo size. Ex: r200x150')
 DEFINE_SETTING('ALG', 0001, 'WEB_PRSSYS', 'fg_maps_distance_apikey'               , 'string'                      , ''                            , 'API Key for Google Maps distance API requests')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_afleverruimte_verplicht'           , 'number'                      , '0'                           , 'Afleverruimte visable and/or required {0=visable and not required (default) | 1=visable and required | 2=not visable and not required}')
+DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_fo_default_user'                   , 'number'                      , '0'                           , 'Use current user as default purchaser, { 1=user | 0=empty (default) }')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', '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('BES', 0001, 'WEB_PRSSYS', 'bes_bestelling_prefix'                 , 'string'                      , ''                            , 'prefix voor het aanvraagnummer van de bestelling')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_bestelopdr_flags'                  , 'number'                      , '0'                           , 'Number of flags that can be defined on purchase orders. Max 10')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_bestelopdr_prefix'                 , 'string'                      , ''                            , 'prefix voor het opdrachtnummer van de bestelling')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_confirm_order_before_submit'       , 'boolean'                     , 'false'                       , 'Bevestig bestelaanvraag voordat het uitgevoerd wordt')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_datum_limiet'                      , 'number'                      , '90'                          , 'max days in the future')
-DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_flexcolumns'                       , 'number'                      , '1'                           , 'DEPRECATED number of flexcolumns for BES [1|2]')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'bes_pgb_fiattering'                    , 'number'                      , '0'                           , 'Algemene fiatteringsproces noodzakelijk naast PGB/AGB fiatering? {0=no | 1=yes}')
 DEFINE_SETTING('BES', 0001, 'WEB_PRSSYS', 'bes_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum BES photo size. Ex: r200x150')
@@ -302,7 +309,6 @@ DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_bezoekers_recent'
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_bo_orderby'                        , 'number'                      , '0'                           , 'Bezoekersbalie na datumtijd sorteren op { 0=Naam van de bezoeker | 1=Naam van de gastheer}')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_can_send_sms'                      , 'boolean'                     , 'false'                       , 'Option to send sms to host from visitors list')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_closeafteradd'                     , 'number'                      , '0'                           , '0=not, 1=bo, 2=fo, 3=bo&fo')
-DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_flexcolumns'                       , 'number'                      , '1'                           , 'DEPRECATED number of flexcolumns for BEZ [1|2]')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_gastheer_telfnr'                   , 'number'                      , '1'                           , 'In bezoekersbalie telfoon nummer van gastheer ook tonen { 0=Nee | 1=Ja}')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_max_flex_on_line'                  , 'number'                      , '0'                           , 'Max aantal flexkenmerken op een bezoekersregel')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_multiday'                          , 'number'                      , '0'                           , 'Can user enter an end-date for an appointment')
@@ -312,7 +318,8 @@ DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_set_remote_flags'
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_show_flex_in_list'                 , 'number'                      , '7'                           , 'Show flex properties in visitor-lists { 0=none | 1=FE | 2=FO | 3=FE&FO | 4=BO | 5=FE&BO | 6=FO&BO | 7=FE&FO&BO }')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_show_progress_prop'                , 'number'                      , '1'                           , 'Tonen afhandelings kenmerken (>900) voor bezoekers {0=nooit | 1=popup tijdens inchecken bezoekers(default) | 2=Inline actie | 4=Uitsluitend tonen in popup}')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_show_resname'                      , 'boolean'                     , 'false'                       , 'Show room name instead of real estate name {false=show real estate name | true=show room name}')
-DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_use_buildinghours'                 , 'number'                      , '0'                           , 'Gebouwtijden als tijdgrenzen van afspraken gebruiken {0=Nee (default), 1=Ja}')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_use_buildinghours'                 , 'number'                      , '0'                           , 'Gebouwtijden als tijdgrenzen van afspraken gebruiken {0=Nee (default), 1=Ja, 2=weekend niet, 3=volgens gebouwtijden maar weekends niet}')
+DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'bez_change_range'                      , 'number'                      , '0'                           , 'minutes before & after start time that bezbof can change visitors')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'csscust'                               , 'string'                      , ''                            , 'Custom css overrules')
 DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'vis_allow_check_all'                   , 'number'                      , '1'                           , 'multiple-checkin visitors { 0=no | 1=yes }')
@@ -347,33 +354,39 @@ DEFINE_SETTING('BEZ', 0001, 'WEB_PRSSYS', 'vis_warning_limit'
 DEFINE_SETTING('BGT', 0001, 'WEB_PRSSYS', 'bgt_extra_report_param'                , 'boolean'                     , 'false'                       , 'Extra parameter aan xml toevoegen waarop niet gefilterd wordt')
 DEFINE_SETTING('BGT', 0001, 'WEB_PRSSYS', 'bgt_usrtab_vaste_factuurnummer'        , 'string'                      , ''                            , 'Naam van usertable waarin de standaard (niet unieke) factuurnummers in staan')
 DEFINE_SETTING('BGT', 0001, 'WEB_PRSSYS', 'bgt_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum BGT photo size. Ex: r200x150')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_areaThreshold'                      , 'number'                      , '7000100'                     , 'Bij kleiner oppervlakte dunnere contour en kleiner label')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_areathreshold'                      , 'float'                       , '2.0'                         , 'Minimal contour area (m2) to display a full size label')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_bitmapsymbolsize'                   , 'number'                      , '1000'                        , 'Symbool hoogte bitmap symbolen.')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_bitmapsymbolsize'                   , 'number'                      , '1000'                        , 'Symbol height for bitmap symbols')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourColor'                       , 'number'                      , '65280'                       , 'Default roomcontour coloring')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_symbolfont'                         , 'string'                      , 'Font Awesome 5 Pro Regular'  , 'Fontname for font symbols. Must be installed on webserver!')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourColorCpt'                    , 'number'                      , '16776960'                    , 'Default roomcontour coloring concept new rooms')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourcolor'                       , 'number'                      , '65280'                       , 'Default roomcontour coloring')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourWeight'                      , 'number'                      , '100'                         , 'Default roomcontour width. 100mm;')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourcolorcpt'                    , 'number'                      , '16776960'                    , 'Default roomcontour coloring new rooms in concept drawings')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contour_minArea'                    , 'number'                      , '200010'                      , 'minimale mm2 om herkend te worden als ruimte (millimeter! dus)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourweight'                      , 'number'                      , '100'                         , 'Roomcontour width (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers'                      , 'string'                      , '{CONT!.}|{CONT\|.*}'         , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contour_minArea'                    , 'number'                      , '200010'                      , 'Minimal area (mm2) to be recognised as a relevant contour')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers_alt2'                 , 'string'                      , ''                            , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers'                      , 'string'                      , '{CONT!.}|{CONT\|.*}'         , 'Regexp for contourlayernames default areas')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers_alt1'                 , 'string'                      , ''                            , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers_alt1'                 , 'string'                      , ''                            , 'Regexp for contourlayernames alternative areas 1')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_contourlayers_alt2'                 , 'string'                      , ''                            , 'Regexp for contourlayernames alternative areas 2')
 DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_dwgscale'                           , 'float'                       , '1000'                        , 'AutoCAD Drawing scale units/meter (future use)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inINSLabelSize'                     , 'number'                      , '250'                         , 'Binnen objectlabels grootte')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_hilitebordercolor'                  , 'number'                      , '0xF59D04'                    , 'Default contour hilite border coloring')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inLabelSize'                        , 'number'                      , '800'                         , 'Binnen ruimtelabels grootte (mm)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_hilitefillcolor'                    , 'number'                      , '0xE02D93'                    , 'Default contour hilite fill coloring')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inWPLabelSize'                      , 'number'                      , '400'                         , 'Binnen wekrpleklabels grootte')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_hilitesymbolfillcolor'              , 'number'                      , '0xFFFF00'                    , 'Default symbol hilite fill coloring')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_ins_symbols'                        , 'boolean'                     , 'false'                       , 'Objecten als symbolen in de tekening plaatsen.')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_ininslabelSize'                     , 'number'                      , '250'                         , 'Default labelsize for objects inside (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labelPosition'                      , 'number'                      , '1'                           , '1=default, 2=center, 3=topleft')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inlabelsize'                        , 'number'                      , '800'                         , 'Default labelsize for rooms inside (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers'                        , 'string'                      , '{CONT!.}|{CONT\|.*}'         , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_inwplabelsize'                      , 'number'                      , '400'                         , 'Default labelsize for worplaces inside (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers_alt2'                   , 'string'                      , ''                            , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_ins_symbols'                        , 'boolean'                     , 'false'                       , 'Use objects as symbols on floorplans')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers_alt1'                   , 'string'                      , ''                            , NULL)
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labelposition'                      , 'number'                      , '1'                           , 'Labelposition of roomlabels 1=original, 2=center, 3=topleft')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_label'                       , 'number'                      , '-1'                          , 'Label theme to be used on Mobile plans (key)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers'                        , 'string'                      , '{CONT!.}|{CONT\|.*}'         , 'Regexp for contourlabellayernames default areas')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_thema'                       , 'number'                      , '-1'                          , 'Fixed theme to use on Mobile plans (key, -1 = let user select theme)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers_alt1'                   , 'string'                      , ''                            , 'Regexp for contourlabellayernames alternative areas 1')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outINSLabelSize'                    , 'number'                      , '8000'                        , 'Buiten objectlabels grootte')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_labellayers_alt2'                   , 'string'                      , ''                            , 'Regexp for contourlabellayernames alternative areas 2')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outLabelSize'                       , 'number'                      , '16000'                       , 'Buiten terreinsectorlabels grootte')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_label'                       , 'number'                      , '-1'                          , 'Standard labels to use on Mobile plans (key)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_paperColor'                         , 'number'                      , '15395820'                    , 'paper background or -1 for ''as published''')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_mobile_thema'                       , 'number'                      , '-1'                          , 'Standard theme to use on Mobile plans (key, -1=user select)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_paperColorCpt'                      , 'number'                      , '13684944'                    , 'paper background concept')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outinslabelsize'                    , 'number'                      , '8000'                        , 'Default labelsize for objects outside (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_publiclayers'                       , 'array'                       , ''                            , 'ins_disc_keys of layers visible without INSUSE')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_outlabelsize'                       , 'number'                      , '16000'                       , 'Default labelsize for terrains outside (mm)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_werkpleksymbool'                    , 'string'                      , 'WERKPLEK'                    , 'Symbol for workplace in Graphics, file must exist in fg_symbols_path')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_papercolor'                         , 'number'                      , '15462399'                    , 'Background color (-1=as published)')
-DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'cad_symbols_snap'                      , 'number'                      , '1'                           , 'Snap INS-objects to grid, <1 =off, >=1 =grid in mm')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_papercolorcpt'                      , 'number'                      , '13684944'                    , 'Background color for concept drawings')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_publiclayers'                       , 'array'                       , ''                            , 'Discipline keys for layers to be visible even without WEB_INSUSE authorisation')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_symbolweight'                       , 'number'                      , '60'                          , 'Linewidth for symbols (mm)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_werkpleksymbool'                    , 'string'                      , 'WERKPLEK'                    , 'Workplace symbol name (dwf-file, must exist in fg_symbols_path)')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'fg_dwfviewer_installed'                , 'boolean'                     , 'false'                       , 'True when dwf viewer installed')
+DEFINE_SETTING('CAD', 0001, 'WEB_PRSSYS', 'cad_symbols_snap'                      , 'number'                      , '1'                           , 'Snap objects to grid (grid in mm), <1=off')
 DEFINE_SETTING('CHT', 0001, 'WEB_PRSSYS', 'cht_bo_naam'                           , 'number'                      , '0'                           , 'Toon naam van servicedesk medewerker 0=eigen naam 1=algemene term')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', '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)')
@@ -387,14 +400,12 @@ DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_contract_recent'
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_contract_requestor_required'       , 'boolean'                     , 'false'                       , 'Set the contract requestor field as required (true) or optional (false)')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_enable_kostensoort'                , 'number'                      , '1'                           , 'can contract kostensoort be changed?')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_factuur_totaalmarge'               , 'number'                      , '0'                           , 'De toegestane marge op de totaal factuur (default 0)')
-DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_flexcolumns'                       , 'number'                      , '2'                           , 'DEPRECATED number of flexcolumns for CNT [1|2]')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'cnt_internalnr_readonly'               , 'number'                      , '0'                           , 'Het interne contractnummer wordt automatisch bepaalt en is niet wijzigbaar')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_rappel_abonnement'                 , 'number'                      , '3'                           , 'Rappel termijn van een abonnement contract')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_scopeverdeling'                    , 'number'                      , '0'                           , '0|1, cost distribution by scope weights 0=relative weight, 1=absolute amount')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_with_mld'                          , 'number'                      , '0'                           , 'Contract kan meldingen hebben {0=Nee (default) | 1=Ja}')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum CNT photo size. Ex: r200x150')
-DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with contract details (0=just notes | 1=both combined)')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cntuse_can_edit_datum'                 , 'boolean'                     , 'false'                       , 'can cntuse edit datum')
 DEFINE_SETTING('CNT', 0001, 'WEB_PRSSYS', 'cnt_grace_period'                      , 'number'                      , '30'                          , 'Show contract this number of days after end of contract')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ProxyServerIPAddress'                  , 'string'                      , NULL                          , 'For webserver to reach outside world')
@@ -403,7 +414,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'ReplyAddress'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'anonymize_period'                      , 'number'                      , '365'                         , 'Period before data wil be [GDPR] anonymized (days)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'aut_login_strip_domain'                , 'number'                      , '1'                           , 'Strip AD domain from login name { 0=no, 1=yes (default) } (Future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'auth_edit_advanced'                    , 'boolean'                     , 'false'                       , 'Start autorisation popup dialog in advanced mode')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'buttons_in_hamburger'                  , 'array'                       , 'print.png,email.png,csv.png,fa-print,fa-envelope-o,excel.png,fa-table,fa-sync,page_refresh.png,legenda.png,fa-columns', 'Hide these frameheader buttons behind a hamburger.')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'buttons_in_hamburger'                  , 'array'                       , 'fa-print,fa-envelope,fa-table,fa-fclt-refresh,fa-columns,fa-share-square', 'Hide these frameheader buttons behind a hamburger.')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'can_selfapprove'                       , 'number'                      , '999999'                      , 'I can approve myself below or equal this limit or someone else must approve always above this limit')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'checkBrowser'                          , 'number'                      , '0'                           , 'Check for IE6 at login (1) or not.')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'currency_icon'                         , 'string'                      , 'fa-euro-sign'                , 'Currency icon. Use fa-money-bill-wave for generic')
@@ -428,7 +439,6 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_max_initial_attachments'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_mld_deeplike_expire'               , 'number'                      , '0'                           , 'Number of days melding deeplike bookmark is valid (default 0 is disabled)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_phone_protocol'                    , 'string'                      , 'callto'                      , 'Desktop protocol to use for phone links')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_res_deeplike_expire'               , 'number'                      , '0'                           , 'Number of days reservation deeplike bookmark is valid (default 0 is disabled) future use')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_tabframes'                         , 'number'                      , '0'                           , 'DEPRECATED Turn all subframes into tabs')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'fac_usrrap_keepfilter'                 , 'number'                      , '1'                           , 'User reports remember filters globally. 1=Remember 0=Do not remember')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilities_flike_past'                 , 'number'                      , '7'                           , 'Number of days in the past to show (my) facilities for rating')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiesfuture_mld'                  , 'number'                      , '31'                          , 'Number of days in the future to show (my) facilities for calls')
@@ -439,7 +449,6 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_bez'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_bes'                    , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities for orders')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_mld'                    , 'number'                      , '10'                          , 'Number of days in the past to show (my) facilities for calls')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'facilitiespast_res'                    , 'number'                      , '2'                           , 'Number of days in the past to show (my) facilities for reservations')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'faq_flexcolumns'                       , 'number'                      , '2'                           , 'DEPRECATED number of flexcolumns for FAQ [1|2]')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'favorites_on_portal_menu'              , 'number'                      , '1'                           , 'Display pinned favorites on the -desktop- portal menu { 0=no, 1=yes (default) } ')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flexExtensionFilter'                   , 'string'                      , NULL                          , 'All files can be uploaded. "PDF DOC TIFF XLS" would filter')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'flexFilesOrdering'                     , 'number'                      , '0'                           , 'Ordering for list of flexfilenames {0=ascending | 1=descending}')
@@ -451,7 +460,7 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'kosten_klant_default'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'login_remember_days'                   , 'number'                      , '30'                          , 'Days to remember login. { 0 disable }')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'login_use_email'                       , 'number'                      , '0'                           , 'use email to check user authentication { 0 - use oslogin | 1 - use email }')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'logoff_return_url'                     , 'string'                      , '../../'                      , 'Return url to go to after log off')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'max_tracking_length'                   , 'number'                      , '30'                          , 'Max. displayed length of single value in a tracking line before ellipsis...')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'max_tracking_length'                   , 'number'                      , '30'                          , 'Max. displayed length of single value in a tracking line, longer values are summarized')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_collapse_threshold'               , 'number'                      , '5'                           , 'Max number menugroups in a tab before we will collapse')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_photo_size'                       , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'menu_start_open'                       , 'boolean'                     , 'true'                        , 'Menu is open by default')
@@ -464,7 +473,6 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_password_pda'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'mobile_position_required'              , 'number'                      , '1'                           , 'A current position is required for geo-scoping (1) or not (0)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'note_collapsed'                        , 'number'                      , '1'                           , 'Notes overview collapsed/fold up (=1 default) or unfold (=0)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'note_autocollapse'                     , 'string'                      , ''                            , 'Regexp note text that will allways start collapsed in note overviews (for technical system notes)')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'note_autoscroll'                       , 'boolean'                     , 'true'                        , 'DEPRECATED Scroll to input field in note overviews {true (default) | false}')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'note_sort_ascending'                   , 'number'                      , '0'                           , 'Ordering of notes for FO and BO in note overviews {0 = descending | 1 = ascending}')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalmenu_combine_single'             , 'number'                      , '0'                           , '0: default, 1:If a portalmenukop consists of 1 item, should the image be moved in between the menukop and the menuitem? 2:only header')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'portalmenucols'                        , 'number'                      , '2'                           , 'Number of columns in portal menu')
@@ -479,11 +487,13 @@ DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_einddatum_login_grace'
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_expiration'               , 'number'                      , '-1'                          , 'Password expire days {-1 = does not expire}')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_fail_limit'               , 'number'                      , '999'                         , 'Lockout after many password failures (Future use)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_validation'               , 'string'                      , '.{8,}'                       , 'At least 8 characters')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_password_validation_mode'          , 'number'                      , '255'                         , 'Password validation +1=+prs_password_validation regexp, +2=wordlist, +4=charsets')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_common_passwords'                  , 'array'                      , 'facilitor,aareon'             , 'Extra banned words for password validation')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'prs_personal_noti_options'             , 'number'                      , '15'                          , 'Options that are provided for personal notification overrules (+8:popup,+4:sms,+2:mail,+1:portal)')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows'                            , 'number'                      , '100'                         , 'Maximum number of rows to show, displays ''lcl_qp_maxrows1/2'' if exceeded')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows2'                           , 'number'                      , '1000'                        , 'Maximum number of rows to show, displays ''lcl_qp_maxrows3'' if exceeded')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxgridrows'                        , 'number'                      , '250'                         , 'Maximum number of objects to show per discipline')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxgridrows'                        , 'number'                      , '250'                         , 'Maximum number of objects to show per discipline in reservations planboard')
-DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxgridrows2'                       , 'number'                      , '1200'                        , 'Maximum number of rows to show for all selected locations together')
+DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxgridrows2'                       , 'number'                      , '1200'                        , 'Maximum number of rows to show for all selected locations together in reservations planboard')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows_mobile'                     , 'number'                      , '50'                          , 'Maximum number of rows to show mobile, displays ''lcl_qp_maxrows'' if exceeded')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'qp_maxrows_suggest'                    , 'number'                      , '1500'                        , 'Maximum number of rows to show suggest, displays ''lcl_shared_suggest_toomany_multi'' if exceeded')
 DEFINE_SETTING('FAC', 0001, 'WEB_PRSSYS', 'queuemail_sender_order'                , 'string'                      , 'URC'                         , 'Order in which senders are shown {default URC: Useraddress, Replyaddress, Catalogaddress}')
@@ -516,13 +526,11 @@ DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_goedkeuren'
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_enable_kostensoort'                , 'number'                      , '1'                           , 'can factuur kostensoort be changed?')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_factuur_flags'                     , 'number'                      , '0'                           , 'Number of flags that can be defined on invoices. Max 10')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_factuur_verlegdmode'               , 'number'                      , '0'                           , 'Use and validation of field fin_factuur_gbedrag: {0=field invisible | &1=visible and enterable | &2=required if invoicelines has a shifted VAT-value | &4=all invoicelines must have shifted VAT-value or must have standard VAT values (=not shifted)}')
-DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_flexcolumns'                       , 'number'                      , '1'                           , 'DEPRECATED number of flexcolumns for FIN [1|2]')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_kostensoort_verplicht'             , 'number'                      , '0'                           , 'Is kostensoort required? {0=not required | 1=required}')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', '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)')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_splitsen_omschr'                   , 'number'                      , '0'                           , 'Split up the discription of the invoice lines? {0=no (default) | 1=yes}')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_use_verkoopfacturen'               , 'number'                      , '0'                           , 'Provide direct access to generated salesinvoices (if any) from contract/order/reservation details {0=no | 1=yes}')
-DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with invoice details (0=just notes | 1=both combined)')
 DEFINE_SETTING('FIN', 0001, 'WEB_PRSSYS', 'fin_invoice_check_total'               , 'number'                      , '0'                           , 'Compare invoice lines with total invoice: [0||4]=no | &1=excl. VAT | &2=incl. VAT | &3=optional/required')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'cnd_usage_model'                       , 'number'                      , '1'                           , 'Model used for condition measuring {1=defects are for score inventory/preventive maintenance, 2=defects are for immediate recovery}')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'cnd_scoremethod'                       , 'number'                      , '1'                           , 'Calculation method of condition score of objects when multiple defects {1=according to NEN-2767, 2=use worst score}')
@@ -535,14 +543,12 @@ DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_element_description'
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_explode_objects'                   , 'number'                      , '1'                           , 'Explode the nummer of (new) object {0=no | 1=yes (default)}')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_fg_remote_maps'                    , 'string'                      , ''                            , 'API Key. if not empty use Google Maps instead of FG if x,y coordinates of an object are available')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_flex_uitgifte_empty'               , 'number'                      , '0'                           , 'Flexvelden die geen meetwaarden zijn leeg maken bij uitgifte {0=no (default) | 1=yes}')
-DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_flexcolumns'                       , 'number'                      , '2'                           , 'DEPRECATED number of flexcolumns for INS [1|2]')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_inspect_service_depend'            , 'number'                      , '0'                           , 'Company depends on the {0=servicecompanylocation {default} 1=contract scope 2=both}')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_inspect_soon_days'                 , 'number'                      , '30'                          , 'Days margin for needs inspection ''soon''')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_occupationsensors_srtgroep_key'    , 'number'                      , '-1'                          , 'INS_SRTGROEP_KEY of sensor objects to be used for occupation/availability')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_photo_size'                        , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum INS photo size. Ex: r200x150')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_xcp_active_cost'                   , 'number'                      , '15'                          , 'Active cost fields used/shown {+1=kosten, +2=kosten2, +4=kosten3, +8=materiaal}')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_srtdeelsuggest_info'               , 'number'                      , '1'                           , 'Show parent info of Object type in Suggest: 1=group, 2=discipline, 3=both')
-DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with object details (0=just notes | 1=both combined)')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'ins_state_history'                     , 'number'                      , '30'                          , 'Number of days to keep ins_deel_state_history records')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_freeze_year'                       , 'number'                      , EXTRACT(YEAR FROM SYSDATE)    , 'Frozen (approved/activated) year of Preventive Maintenance (MJOB)')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_inflation'                         , 'float'                       , '1'                           , 'Default annual inflation rate (%) for Preventive Maintenance (MJOB)')
@@ -550,6 +556,7 @@ DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_operation_external'
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_show_years'                        , 'number'                      , '5'                           , 'Default number of years to be shown in the Preventive Maintenance (MJOB) console')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_start_year'                        , 'number'                      , EXTRACT(YEAR FROM SYSDATE)    , 'Start/First year of freezing of Preventive Maintenance (MJOB)')
 DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_enable_moveup'                     , 'number'                      , '0'                           , 'Enable moveup of (MJOB) tasks  {0=moveup disabled | 1=moveup enabled}')
+DEFINE_SETTING('INS', 0001, 'WEB_PRSSYS', 'mjb_approvedmelding_description'       , 'number'                      , '1'                           , 'Subject for MJOB generated ticket {1=object type (default), 2=task description, 3=task description (object type). }')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'cnt_autolink_regexp'                   , 'string'                      , ''                            , 'Automatically turn CNT-references in texts into clickable links eg. (?:(?:contract [A-Z]*)|(?:[A-Z \,\n]+\#[A-Z]*))(\d+)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'fac_flags_visible_for_fe'              , 'number'                      , '1'                           , 'An FE-user may see the flag-status of calls, reservations etc {0=No | 1=Yes(default)}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_accept_confirm'                    , 'boolean'                     , 'false'                       , 'bij accepteren melding direct afhandelingsveld invullen')
@@ -581,10 +588,10 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_enable_workflow'
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_endate_ordbo2'                     , 'number'                      , '1'                           , 'Enddate can be editted by MLDORD/ORDBO2 {0=no | 1=yes (default)}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_enforce_orderdates'                , 'number'                      , '0'                           , 'Enforce order start/ending dates to be within call start/ending dates')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fe_show_statusnames'               , 'number'                      , '1'                           , 'Show name to FE of the users who changed the status of a melding {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_first_close_orders'                , 'number'                      , '0'                           , 'Eerst alle opdrachten afmelden voordat de melding afgemeld kan worden (0=nee(default) || 1=ja)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fixdatums_marge'                   , 'number'                      , '7'                           , 'WEB_MLDMSU can fix invoer/afgemeld dates')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_flexcolumns'                       , 'number'                      , '1'                           , 'DEPRECATED number of flexcolumns for MLD [1|2]')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fo_can_assign_team'                , 'number'                      , '0'                           , 'Allow assignment of a new call to a treatment team by the frontoffice {0=no | 1=yes}')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fo_default_user'                   , 'boolean'                     , 'false'                       , 'user current user a default caller, { true=user default | false=empty default }')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fo_default_user'                   , 'boolean'                     , 'false'                       , 'Use current user as default caller, { true=user default | false=empty default }')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_fof_canFlexChange'                 , 'boolean'                     , 'false'                       , 'FOF flex kenmerken laten wijzigen >800 900<=.')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'mld_forward_auto_fill'                 , 'number'                      , '0'                           , 'Use current discipline and call (and "assigned to") as defaults while forwarding. {0=no | 1=yes}')
@@ -598,18 +605,16 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_locked_expire'
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_max_history'                       , 'number'                      , '0'                           , 'Show calls and orders not longer then mld_max_history days ago (FE/FO/BO) ((mld_max_history <= 0) : show all finished calls and orders (default))')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_max_kosten_extern'                 , 'float'                       , '9999999'                     , 'limit order amount to be entered by external handlers')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_actiecode'                 , 'number'                      , '1'                           , 'Use active backoffice/frontend flow')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_actiecode'                    , 'number'                      , '0'                           , 'Use active backoffice/contractor flow')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'mld_melding_close'                     , 'number'                      , '0'                           , 'Can close complain with orders in complain overview window without seeing complain details? {0=yes default | 1=no}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_flags'                     , 'number'                      , '0'                           , 'Number of flags fo/bo can define on complaint. Max 10')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_melding_recent'                    , 'number'                      , '60'                          , 'Tijdsinterval voor de recente wijzigingen in minuten')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking with call details (0=just call notes | +1=plus call tracking, +2=plus order notes, +4=plus order tracking)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_mobile_place_handler'              , 'number'                      , '1'                           , '1=always location to required level, 2=workplace level to required level')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_msu_can_stop_workflows'            , 'boolean'                     , 'false'                       , 'mld_msu mag een nog actieve workflow afbreken')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_autocollapse'                 , 'string'                      , ''                            , 'DEPRECATED: Regexp note text that will allways start collepsed (for technical system notes))')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_change_threshold'             , 'number'                      , '30'                          , 'Minutes an author can change a note when it is no longer the last note')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_default_notifyFE'             , 'number'                      , '0'                           , 'Default value for checkboxes "<melder> hierover notificeren" and "Actie bij aanvrager <melder> laten" for notes {0=off(default) | 1=both on | 2=notificeren=on, actie=off}')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_default_notifyFE'             , 'number'                      , '0'                           , 'Default value for "<melder> hierover notificeren" and "Actie bij aanvrager <melder> laten" for notes {0=off(default) | 1=both on | 2=notificeren=on, actie=off}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_hidden_action2FE'             , 'number'                      , '0'                           , 'Is setting action to FE allowed for hidden notes')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_mode'                         , 'number'                      , '2'                           , 'DEPRECATED: Melding Notes mode: 1=oldstyle, 2=newstyle (default)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_note_sort_ascending'               , 'number'                      , '1'                           , 'DEPRECATED: Sort (of time) ordering of melding notes for FO and BO {0 = descending | 1 = ascending }')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_notify_retract'                    , 'number'                      , '1'                           , 'Retract the MLDNEW notification on mld_accept, if still in queue {0=no|1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_notify_workflowsteps'              , 'number'                      , '1'                           , 'Notify each workflowstep to caller {0=do not notify steps (blackbox) | 1=notify each step (whitebox)}')
@@ -624,11 +629,11 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_confirm_for_send'
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_ignore_caller_profile'        , 'number'                      , '0'                           , 'Ignore profile of caller in approving process {0=No (default) | 1=Yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_kpg_fin_limit2'               , 'number'                      , '100000'                      , 'De tweede kpg limiet van het opdracht fiattering mechanisme')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_kpg_fin_limit1'               , 'number'                      , '15000'                       , 'De eerste kpg limiet van het opdracht fiattering mechanisme')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'mld_opdr_pref_contractors_only'        , 'boolean'                     , 'false'                       , 'Show only preferred contractors (true) or all contractors (false)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', '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', 0001, 'WEB_PRSSYS', 'mld_opdr_sel_intern_uitv'              , 'number'                      , '0'                           , 'Internal contractors can be selected for all services {0=no (default) | 1=Yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_show_requestor_in_list'       , 'number'                      , '1'                           , 'Show requestor (melder) column in opdr search list {0=no | 1=print only | 2=view only | 3=both}')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_costs_readonly_after_rfc'     , 'number'                      , '0'                           , 'Cost fields of follow-up orders become readonly for suppliers when issued {0=no (default) | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdracht_flags'                    , 'number'                      , '0'                           , 'Number of flags fo/bo can define for orders. Max 10')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdracht_recent'                   , 'number'                      , '60'                          , 'Tijdsinterval voor de recente opdracht wijzigingen in minuten')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_ord_afmeld_future'                 , 'number'                      , '1'                           , 'Opdracht einddatum niet controleren bij afmelden {0=opdracht einddatum mag niet in de toekomst liggen, 1=default niets controleren)')
@@ -655,10 +660,11 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_cards'
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_endtime'                      , 'number'                      , '1'                           , 'Show endtime for complaints (0=only date, 1=with endtime)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_order_details'                , 'number'                      , '1'                           , '*Show remark in backoffice Orders Management {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_parent_attachments'           , 'boolean'                     , 'true'                        , 'Show the attachments of parent calls {true (default) | false}')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_search_similar'               , 'number'                      , '1'                           , 'Show a link to similar calls in the description block of a call {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_search_similar'               , 'number'                      , '0'                           , 'Show a link to similar calls with call details {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_urgent_as_new'                , 'boolean'                     , 'false'                       , 'Show urgent calls as new calls')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_show_workflowstep_as_followup'     , 'boolean'                     , 'false'                       , 'Laat worflowstappen zien als vervolgmelding.')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_sla_indult_for_mldafr_only'        , 'number'                      , '0'                           , 'Uitsluiten voor SLA alleen beschikbaar voor MLDAFR (afronden) {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0001, 'WEB_FACTAB', 'mld_negatief_respijt'                  , 'number'                      , '0'                           , 'Sta negatieve respijt toe {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_suppress_directklaar_notification' , 'number'                      , '0'                           , 'Suppress de notificatie bij DirectKlaar {0=no (default) | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_typeopdr_key'                      , 'number'                      , '5'                           , 'Default order type or -1 to select default (at order-creation) from most to least specific per vakgroep')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_uren_more'                         , 'boolean'                     , 'true'                        , 'Overige opdrachten mogen ook getoond worden {true=link tonen (care) | false=link niet tonen}')
@@ -671,7 +677,6 @@ DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_workflow_set_defaults'
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_workflowstep_in_xml'               , 'number'                      , '0'                           , 'Include all data of all other workflowsteps in XML for prints of a call from a workflow (0=no | 1=yes)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'nightly_mld2bo_emailaddress'           , 'string'                      , ''                            , 'Notification email address outside office hours')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'show_perslidselector_by_mail'          , 'number'                      , '1'                           , 'Show person selector at sending mail {1=true | 0=false}')
-DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'workflow_collapsed'                    , 'number'                      , '1'                           , 'Workflow overview collapsed/fold up (=1 default) or unfold (=0)')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_copy_order_attachment_from_call'   , 'boolean'                     , 'true'                        , 'On new order, copy attachments from the call by default')
 DEFINE_SETTING('MLD', 0001, 'WEB_PRSSYS', 'mld_opdr_hours_approve_monthly'        , 'boolean'                     , 'false'                       , 'Approve houres within month (false=whole weeks only (default) | true=within month)')
 DEFINE_SETTING('MRK', 0001, 'WEB_PRSSYS', 'mrk_message_expire_days'               , 'number'                      , '30'                          , 'Message automatically expires after ')
@@ -696,7 +701,6 @@ DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_collegas_used'
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_default_kpn_empty'                 , 'number'                      , '0'                           , 'Costcentre always default empty {0=no | 1=yes}')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', '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, 'WEB_PRSSYS', '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, 'WEB_PRSSYS', 'prs_flexcolumns'                       , 'number'                      , '2'                           , 'DEPRECATED number of flexcolumns for PRS [1|2]')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_fof_show_belongings'               , 'number'                      , '1'                           , '0=hide belongings, 1=show belongings')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_h'                                 , 'float'                       , '0.25'                        , 'Employability time stepsize')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_hide_fixed_fields'                 , 'number'                      , '0'                           , 'Do not (1) display phonenumber/tarif fields with person details')
@@ -708,9 +712,10 @@ DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_t2'
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_telefoonnr_aut_use'                , 'number'                      , '0'                           , 'WEB_PRSUSE may change prs_perslid_telefoonnr {0=WEB_PRSMAN required | 1=WEB_PRSUSE allowed too}')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_use_edit_photo'                    , 'number'                      , '0'                           , 'enduser can upload own photo?')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_use_edit_werkplek'                 , 'number'                      , '9'                           , 'enduser can change own location (9=no, 2=within location, 3=within building etc.)')
+DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_prefer_current_werkplek'           , 'number'                      , '0'                           , 'Use enduser own location as preferred default (future use)')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_use_mld_wijzigkey'                 , 'number'                      , '-1'                          , 'enduser can create this ''melding'' to request change in information')
 DEFINE_SETTING('PRS', 0001, 'WEB_PRSSYS', 'prs_wpprefix_objectid'                 , 'number'                      , '0'                           , 'Workplace description as prefix in front of object id (at calls and contractscope) {0=no | 1=yes}')
-DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_lookhistory_days'                  , 'number'                      , '0'                           , 'Days to look back to sort DESC on reservations per room. 0= no sort on historic reservations.')
+DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_lookhistory_days'                  , 'number'                      , '29'                          , 'Days to look back to sort DESC on reservations per room. 0= no sort on historic reservations.')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'fac_xml_max_factuur'                   , 'number'                      , '500'                         , 'Maximum number of lines for invoice in sales-invoice node')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_247organisation'                   , 'number'                      , '0'                           , '24/7 organisation (1= weekends are working days 0= weekends are holidays)')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_allow_for_others'                  , 'number'                      , '1'                           , 'Can I make reservations for others ? {0=no | 1=yes}')
@@ -739,6 +744,7 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_delete_charge_perc'
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_descript_required'                 , 'boolean'                     , 'false'                       , 'require description field for reservation')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_dur'                               , 'float'                       , '2'                           , 'initial reserving duration (hours)')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_plantable_version'                 , 'number'                      , '2'                           , '2=use modern planning board for reservations (required css-grid support), 1=classic planboard')
+DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_planbord_options'                  , 'number'                      , '0'                           , '0=default, +1=no plantable image, +2=tooltip on room/object, +4=room description popup only')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_plantable_condensed_from'          , 'number'                      , '3'                           , 'Number of days where plantable switches to condensed mode')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_allow_dirty'                    , 'number'                      , '1'                           , '0=fe kan niets opslaan wat iets dirty zou maken, 1=het mag wel')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_discs_only_in_res'              , 'number'                      , '-1'                          , 'List of disciplines that can only be reserved in RES_ROOMS')
@@ -747,9 +753,8 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_init_host_empty'
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_late_edit_vis'                  , 'number'                      , '0'                           , 'FE can edit visitors and (room-)configuration after the room expires {0=No (default) | 1=Yes}')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_list_days'                      , 'number'                      , '5'                           , 'Default number of days in FE overview')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fe_reservering_limiet'             , 'number'                      , '-1'                          , 'possible overrule of res_reservering_limiet for fe users')
-DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_flexcolumns'                       , 'number'                      , '1'                           , 'DEPRECATED number of flexcolumns for RES [1|2]')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fo_catering_scopeless'             , 'boolean'                     , 'false'                       , 'Ignore catering-scope for FO-users {true=yes | false=no (default)}')
-DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fo_default_user'                   , 'boolean'                     , 'true'                        , 'Res user current user a default caller, { true=user default | false=empty default }')
+DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fo_default_user'                   , 'boolean'                     , 'true'                        , 'Use current user as default contact/host, { true=user default | false=empty default }')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_fo_list_days'                      , 'number'                      , '0'                           , 'Default number of days in FO overview (working days)')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_upwards_search_alg'                , 'number'                      , '5'                           , 'Upwards search level allowed 1=all, 2=loc, 3=bld, 4=floor, 5=room')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_h'                                 , 'float'                       , '0.5'                         , 'reservation interval (hours)')
@@ -764,6 +769,7 @@ DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_rap_t2'
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reminder_noti_blocked'             , 'boolean'                     , 'true'                        , 'Notification when reservation blocked {true=yes (default) | false=no}')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_flags'                 , 'number'                      , '0'                           , 'Number of flags fo/bo can define on reservation. Max 10')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_limiet'                , 'number'                      , '-1'                          , 'max number of days from now that reservations are allowed, in past or future {-1 = no limit}')
+DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_maxpast'               , 'number'                      , '-1'                          , 'max number of days from now that reservations are allowed in the past {-1 = same as res_reservering_limiet (default) | >=0 }')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_reservering_recent'                , 'number'                      , '60'                          , 'Tijdsinterval voor de recente reserverings wijzigingen in minuten')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_room_order'                        , 'number'                      , '0'                           , 'Planbord sorted by capacity or description (0=capacity (default) | 1=description)')
 DEFINE_SETTING('RES', 0001, 'WEB_PRSSYS', 'res_roompricingkorting'                , 'number'                      , '0'                           , 'Show editable korting field (0=hide, +1=FO, +2=BO, +4=catering too)')
@@ -859,6 +865,7 @@ DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_failalert_threshold'    , 'number
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_faildelayincrement'     , 'number'  , '10'                                        , 'Delay retry of failed orders up to failures*10 minutes')
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_faildelaymax'           , 'number'  , '120'                                       , 'Maximum delay of failed orders in minutes')
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_failextralogging'       , 'number'  , '3'                                         , 'At the 3rd failure logging is increased automatically once')
+DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_faillimit'              , 'number'  , '336'                                       , 'After this time (hours) stop trying failed orders')
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_fclt_web_apikey'        , 'string'  , ''                                          , 'Putorders APIKEY to the Facilitor software')
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_fclt_web_url'           , 'string'  , ''                                          , 'Url to the Facilitor software (webserver internal address)')
 DEFINE_SETTING('PUO', 0001, 'WEB_FACTAB', 'puo_flags'                  , 'number'  , '255'                                       , '+1=send notifications, +2=send orders, +4=all orders Immediate')
@@ -907,7 +914,16 @@ DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixcnt'       , 'string
 DEFINE_SETTING('PUO', 0001, 'WEB_PRSSYS', 'puo_subjectprefixmld'       , 'string'  , 'Facilitor opdracht: Opdracht nr.'          , 'Mail subject prefix for MLD orders')
 DEFINE_SETTING('PUO', 0000, 'WEB_FACFAC', 'puo_chilkat_secret'         , 'string'  , 'AAREON.CB1062021_zK6SGtth69oK'             , 'Facilitor Chilkat licence')
 
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+END;
+/
+
 // Vervallen settings opruimen
+SELECT 'Dropping old setting ' || fac_setting_name
+       FROM fac_setting
+      WHERE fac_setting_name NOT IN
+              (SELECT fac_setting_name FROM tmp_set);
+
 DELETE FROM fac_setting
       WHERE fac_setting_name NOT IN
               (SELECT fac_setting_name FROM tmp_set);

FAC/FAC_TAB.SRC

@@ -63,6 +63,9 @@ CREATE_TABLE (fac_rapport,0)
         VARCHAR2(2000),
     fac_rapport_soort
         NUMBER(1),
+    fac_rapport_datum
+        DATE
+        DEFAULT SYSDATE,
     CONSTRAINT fac_u_fac_rapport UNIQUE(fac_rapport_node, fac_rapport_volgnr, fac_rapport_soort)
 );
 
@@ -378,11 +381,11 @@ CREATE_TABLE(fac_usrrap_cols, 0)
         NOT NULL,
     fac_usrrap_cols_urllink
         VARCHAR2(255),
-    fac_usrrap_cols_visible /* V;Visible; I;Invisible; H;Hidden; S;Suppress repetitions */
+    fac_usrrap_cols_visible /* V;Visible; C;Visible Combine; I;Invisible; H;Hidden; S;Suppress repetitions */
         VARCHAR2(1)
         DEFAULT 'V'
         NOT NULL
-        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H', 'S', 'U')),
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'C', 'I', 'H', 'S', 'U')),
     fac_usrrap_cols_group
         VARCHAR2(1)
         DEFAULT 'G'
@@ -860,6 +863,113 @@ CREATE_TABLE(fac_imp_file, 0)
   fac_imp_file_line        VARCHAR2(4000 CHAR)
 );
 
+CREATE_TABLE(fac_imp_csv, 0)
+(
+  fac_imp_csv_key         NUMBER(10) PRIMARY KEY,
+  fac_import_key          NUMBER(10) CONSTRAINT fac_r_fac_import_key4 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_imp_csv_index       NUMBER(10) NOT NULL,
+  fac_imp_csv_datum       DATE DEFAULT SYSDATE,
+  fac_imp_file_line       VARCHAR2(4000 CHAR),
+  fac_imp_csv_col01       VARCHAR2(4000),
+  fac_imp_csv_col02       VARCHAR2(4000),
+  fac_imp_csv_col03       VARCHAR2(4000),
+  fac_imp_csv_col04       VARCHAR2(4000),
+  fac_imp_csv_col05       VARCHAR2(4000),
+  fac_imp_csv_col06       VARCHAR2(4000),
+  fac_imp_csv_col07       VARCHAR2(4000),
+  fac_imp_csv_col08       VARCHAR2(4000),
+  fac_imp_csv_col09       VARCHAR2(4000),
+  fac_imp_csv_col10       VARCHAR2(4000),
+  fac_imp_csv_col11       VARCHAR2(4000),
+  fac_imp_csv_col12       VARCHAR2(4000),
+  fac_imp_csv_col13       VARCHAR2(4000),
+  fac_imp_csv_col14       VARCHAR2(4000),
+  fac_imp_csv_col15       VARCHAR2(4000),
+  fac_imp_csv_col16       VARCHAR2(4000),
+  fac_imp_csv_col17       VARCHAR2(4000),
+  fac_imp_csv_col18       VARCHAR2(4000),
+  fac_imp_csv_col19       VARCHAR2(4000),
+  fac_imp_csv_col20       VARCHAR2(4000),
+  fac_imp_csv_col21       VARCHAR2(4000),
+  fac_imp_csv_col22       VARCHAR2(4000),
+  fac_imp_csv_col23       VARCHAR2(4000),
+  fac_imp_csv_col24       VARCHAR2(4000),
+  fac_imp_csv_col25       VARCHAR2(4000),
+  fac_imp_csv_col26       VARCHAR2(4000),
+  fac_imp_csv_col27       VARCHAR2(4000),
+  fac_imp_csv_col28       VARCHAR2(4000),
+  fac_imp_csv_col29       VARCHAR2(4000),
+  fac_imp_csv_col30       VARCHAR2(4000),
+  fac_imp_csv_col31       VARCHAR2(4000),
+  fac_imp_csv_col32       VARCHAR2(4000),
+  fac_imp_csv_col33       VARCHAR2(4000),
+  fac_imp_csv_col34       VARCHAR2(4000),
+  fac_imp_csv_col35       VARCHAR2(4000),
+  fac_imp_csv_col36       VARCHAR2(4000),
+  fac_imp_csv_col37       VARCHAR2(4000),
+  fac_imp_csv_col38       VARCHAR2(4000),
+  fac_imp_csv_col39       VARCHAR2(4000),
+  fac_imp_csv_col40       VARCHAR2(4000),
+  fac_imp_csv_col41       VARCHAR2(4000),
+  fac_imp_csv_col42       VARCHAR2(4000),
+  fac_imp_csv_col43       VARCHAR2(4000),
+  fac_imp_csv_col44       VARCHAR2(4000),
+  fac_imp_csv_col45       VARCHAR2(4000),
+  fac_imp_csv_col46       VARCHAR2(4000),
+  fac_imp_csv_col47       VARCHAR2(4000),
+  fac_imp_csv_col48       VARCHAR2(4000),
+  fac_imp_csv_col49       VARCHAR2(4000),
+  fac_imp_csv_col50       VARCHAR2(4000),
+  fac_imp_csv_col51       VARCHAR2(4000),
+  fac_imp_csv_col52       VARCHAR2(4000),
+  fac_imp_csv_col53       VARCHAR2(4000),
+  fac_imp_csv_col54       VARCHAR2(4000),
+  fac_imp_csv_col55       VARCHAR2(4000),
+  fac_imp_csv_col56       VARCHAR2(4000),
+  fac_imp_csv_col57       VARCHAR2(4000),
+  fac_imp_csv_col58       VARCHAR2(4000),
+  fac_imp_csv_col59       VARCHAR2(4000),
+  fac_imp_csv_col60       VARCHAR2(4000),
+  fac_imp_csv_col61       VARCHAR2(4000),
+  fac_imp_csv_col62       VARCHAR2(4000),
+  fac_imp_csv_col63       VARCHAR2(4000),
+  fac_imp_csv_col64       VARCHAR2(4000),
+  fac_imp_csv_col65       VARCHAR2(4000),
+  fac_imp_csv_col66       VARCHAR2(4000),
+  fac_imp_csv_col67       VARCHAR2(4000),
+  fac_imp_csv_col68       VARCHAR2(4000),
+  fac_imp_csv_col69       VARCHAR2(4000),
+  fac_imp_csv_col70       VARCHAR2(4000),
+  fac_imp_csv_col71       VARCHAR2(4000),
+  fac_imp_csv_col72       VARCHAR2(4000),
+  fac_imp_csv_col73       VARCHAR2(4000),
+  fac_imp_csv_col74       VARCHAR2(4000),
+  fac_imp_csv_col75       VARCHAR2(4000),
+  fac_imp_csv_col76       VARCHAR2(4000),
+  fac_imp_csv_col77       VARCHAR2(4000),
+  fac_imp_csv_col78       VARCHAR2(4000),
+  fac_imp_csv_col79       VARCHAR2(4000),
+  fac_imp_csv_col80       VARCHAR2(4000),
+  fac_imp_csv_col81       VARCHAR2(4000),
+  fac_imp_csv_col82       VARCHAR2(4000),
+  fac_imp_csv_col83       VARCHAR2(4000),
+  fac_imp_csv_col84       VARCHAR2(4000),
+  fac_imp_csv_col85       VARCHAR2(4000),
+  fac_imp_csv_col86       VARCHAR2(4000),
+  fac_imp_csv_col87       VARCHAR2(4000),
+  fac_imp_csv_col88       VARCHAR2(4000),
+  fac_imp_csv_col89       VARCHAR2(4000),
+  fac_imp_csv_col90       VARCHAR2(4000),
+  fac_imp_csv_col91       VARCHAR2(4000),
+  fac_imp_csv_col92       VARCHAR2(4000),
+  fac_imp_csv_col93       VARCHAR2(4000),
+  fac_imp_csv_col94       VARCHAR2(4000),
+  fac_imp_csv_col95       VARCHAR2(4000),
+  fac_imp_csv_col96       VARCHAR2(4000),
+  fac_imp_csv_col97       VARCHAR2(4000),
+  fac_imp_csv_col98       VARCHAR2(4000),
+  fac_imp_csv_col99       VARCHAR2(4000)
+);
 
 CREATE_TABLE(fac_imp_catalogus, 0)
 (
@@ -870,13 +980,13 @@ CREATE_TABLE(fac_imp_catalogus, 0)
   ins_srtdeel_nr             VARCHAR2(32),
   ins_srtgroep_omschrijving  VARCHAR2(60),
   ins_srtdeel_omschrijving   VARCHAR2(100),
-  ins_srtdeel_prijs          NUMBER(8,2),
+  ins_srtdeel_prijs          NUMBER(11,5),
   ins_srtdeel_eenheid        VARCHAR2(30),
   ins_srtdeel_image          VARCHAR2(255),
   ins_srtdeel_veelvoud       NUMBER(6),
   ins_srtdeel_btw            NUMBER(3),
   ins_srtdeel_vervaldatum    DATE,
-  ins_srtdeel_inkprijs       NUMBER(8,2),
+  ins_srtdeel_inkprijs       NUMBER(11,5),
   ins_srtdeel_minimum        NUMBER(6),
   bes_staffeltabel_key       NUMBER(10),
   ins_srtdeel_wijzigdagen    NUMBER(3),
@@ -928,6 +1038,7 @@ CREATE_TABLE(fac_imp_mld, 0)
   , ins_srtdiscipline_ins           VARCHAR2(16)
   , ins_srtdiscipline_bes           VARCHAR2(16)
   , ins_discipline_omschrijving     VARCHAR2(60)
+  , ins_discipline_image            VARCHAR2(255)
   , mld_stdmelding_omschrijving     VARCHAR2(60)
   , mld_stdmelding_groep            VARCHAR2(30)
   , mld_stdmelding_kostensoort      VARCHAR2(60)
@@ -947,6 +1058,7 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_stdmelding_doublecheck      NUMBER(4)
   , mld_stdmelding_slabewaken       NUMBER(1)
   , mld_stdmelding_externnr         VARCHAR2(256)
+  , mld_stdmelding_image            VARCHAR2(255)
 );
 
 CREATE_TABLE(fac_imp_mldafmtxt, 0)
@@ -1016,7 +1128,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,alg_gebouw_code                 VARCHAR2(12)
   ,alg_verdieping_volgnr           NUMBER(3,0)
   ,alg_ruimte_nr                   VARCHAR2(20)
-  ,prs_werkplek_volgnr             NUMBER (3)
+  ,prs_werkplek_volgnr             NUMBER (8)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
   ,prs_afdeling_naam               VARCHAR2 (15)
   ,prs_perslid_naam                VARCHAR2 (60)
@@ -1417,14 +1529,13 @@ CREATE_TABLE(fac_menu, 0)
 // Note: this column is defined in INS_TAB.SRC
 //   ins_discipline_key   NUMBER(10) CONSTRAINT fac_r_menu3 REFERENCES ins_tab_discipline (ins_discipline_key),
 //   ins_srtdiscipline_key NUMBER(10) CONSTRAINT fac_r_menu4 REFERENCES ins_srtdiscipline (ins_srtdiscipline_key),
-   fac_menu_level       NUMBER(1),  /* 1=head, null=item, other=future use */
+   fac_menu_level       NUMBER(1) DEFAULT 1 NOT NULL,  /* 0=future-use, 1=hoofdmenu, 2=submenu, 3-9=future use */
    fac_menu_portal      NUMBER(1),  /* 1=include in picture/portalmenu, null=donot include, other=future use **Not applicable WHERE fac_menu_altgroep IN (5,6) (pinned/FAV) */
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid          NUMBER(10) CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key) ON DELETE CASCADE,
    fac_menu_filter      VARCHAR2(4000),
    fac_menu_advfilter   VARCHAR2(4000),
-   fac_menu_aanmaak     DATE DEFAULT SYSDATE,
+   fac_menu_aanmaak     DATE DEFAULT SYSDATE
-   CONSTRAINT fac_c_menu1 CHECK (fac_menuitems_key IS NULL OR fac_menu_alturl IS NULL)
 );
 
 CREATE_TABLE(fac_nieuws_groep, 0)
@@ -1462,6 +1573,10 @@ CREATE_TABLE(fac_nieuws, 0)
 CREATE_TABLE(fac_faq, 0)
 (
    fac_faq_key NUMBER (10) PRIMARY KEY,
+// Note: this column is defined in INS_TAB.SRC
+//   faq_ins_discipline_key NUMBER(10)
+//       NOT_NULL(faq_ins_discipline_key, faq_c_ins_discipline_key)
+//       CONSTRAINT faq_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key),
    fac_faq_question VARCHAR2 (4000 CHAR),
    fac_faq_answer VARCHAR2 (4000 CHAR),
    fac_faq_source VARCHAR2 (60 CHAR),
@@ -1750,41 +1865,56 @@ CREATE_TABLE(fac_kenmerkdomein, 0)
    CONSTRAINT fac_u_fac_kenmerkdomein_upper UNIQUE(fac_kenmerkdomein_module,fac_kenmerkdomein_upper, fac_kenmerkdomein_verwijder)
 );
 
+// A widget is predefined content to be used on widgetpages
 CREATE_TABLE(fac_widget, 0)
 (
     fac_widget_key
         NUMBER(10)
         CONSTRAINT fac_k_fac_widget_key PRIMARY KEY,
-/* Alvast voor 2022.1
+    fac_widget_naam                                      -- Widgetnaam (mn voor bibliotheekwidgets)
-    fac_widget_naam                                      -- Widgetnaam (mn voor bilbiotheekwidgets)
         VARCHAR2(60)
         NOT NULL,
-*/
+    fac_widget_type                                      -- See; Constraint fac_c_widgettype1 for allowed types
-    fac_widget_groep                                     -- Pagina(naam) of groep(naam) van bijelkaar horende widgets
+        VARCHAR2(3)
+        DEFAULT ('FAC')
+        NOT NULL,
+    fac_widget_typerefkey                                -- Reference depending on the type (usrrap_key, menu_key,..)
+        NUMBER(10),
+    fac_widget_groep                                     -- DEPRECATED Pagina(naam) of groep(naam) van bijelkaar horende widgets
         VARCHAR2(60),
-    fac_widget_volgnr                                    -- Onderlinge volgorde van de widgets op 1 pagina
+    fac_widget_volgnr                                    -- DEPRECATED -> onpage
         NUMBER(3),
     fac_widget_id                                        -- Optioneel een id (div_id) van widget
         VARCHAR2(60),
-    fac_widget_title                                     -- Optioneel een titel bij widget
+    fac_widget_title                                     -- Optioneel een default titel bij widget
         VARCHAR2(100),
-    fac_widget_height                                    -- Optioneel een hoogte van widget in % (indien NULL, dan 100%)
+    fac_widget_height                                    -- DEPRECATED -> onpage
-        NUMBER(3),
+        NUMBER(5),
-    fac_widget_width                                     -- Optioneel een hoogte van widget in % (indien NULL, dan 100%)
+    fac_widget_width                                     -- DEPRECATED -> onpage
-        NUMBER(3),
+        NUMBER(5),
-    fac_widget_url                                       -- Resultaat van URL wordt in de widget getoond
+    fac_widget_url                                       -- type URL: Resultaat van URL wordt in de widget getoond
         VARCHAR2(255),
-    fac_widget_aanmaak                                   -- Aanmaak datum
+    fac_widget_content                                   -- type RAW: HTML content
+        VARCHAR2(4000),
+    fac_widget_aanmaak                                   -- Aanmaakdatum
         DATE
         DEFAULT SYSDATE,
     fac_widget_refreshtime                               -- Refreshtijd van widget in seconden, NULL is geen refresh
         NUMBER(5),
+    fac_widget_public                                    -- 0=Private widget, 1=Publicly available widget
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     fac_functie_key                                      -- A la menuitem, indien autorisatie dan tonen
         NUMBER(10)
         CONSTRAINT fac_r_fac_widget_functie_key REFERENCES fac_functie(fac_functie_key)
+, CONSTRAINT fac_c_widgettype1 CHECK
+            (   (fac_widget_type IN ('FAC', 'URL', 'IMG', 'FLR') AND fac_widget_url IS NOT NULL)
+             OR (fac_widget_type IN ('MK', 'MI', 'RAP', 'FAQ') AND fac_widget_typerefkey IS NOT NULL)
+             OR (fac_widget_type = 'RAW' AND fac_widget_content IS NOT NULL))
 );
 
-/* Alvast voor 2022.1
+// A widgetpage is an ordered group of widgets made accesible to the users
 CREATE_TABLE(fac_widget_page, 0)
 (
     fac_widget_page_key
@@ -1796,6 +1926,12 @@ CREATE_TABLE(fac_widget_page, 0)
 //  , prs_perslid_key
 //        NUMBER(10)
 //        CONSTRAINT fac_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+    fac_functie_key                                       -- A la menuitem, indien autorisatie dan tonen
+        NUMBER(10)
+        CONSTRAINT fac_r_widget_page_functie_key REFERENCES fac_functie(fac_functie_key),
+    fac_groep_key                                         -- Indien autorisatie dan tonen
+        NUMBER(10)
+        CONSTRAINT fac_r_widget_page_groep_key REFERENCES fac_groep(fac_groep_key),
     fac_widget_page_aanmaak                               -- Aanmaak datum
         DATE
         DEFAULT SYSDATE
@@ -1815,11 +1951,10 @@ CREATE_TABLE(fac_widget_onpage, 0)                        -- Koppeltabel voor fa
     fac_widget_onpage_order                                -- volgorde
         NUMBER(5),
     fac_widget_onpage_height                               -- Optioneel afwjkend van default
-        NUMBER(3),
+        NUMBER(5),
     fac_widget_onpage_width                                -- Optioneel afwijkend van default
-        NUMBER(3)
+        NUMBER(5)
 );
-*/
 
 CREATE_TABLE(fac_note_group, 0)
 (
@@ -1830,7 +1965,8 @@ CREATE_TABLE(fac_note_group, 0)
    fac_note_group_omschrijving    VARCHAR2(4000),
    fac_note_group_vervaldatum     DATE,
    CONSTRAINT fac_u_fac_note_group_naam UNIQUE (fac_note_group_xmlnode,
-                                                fac_note_group_naam)
+                                                fac_note_group_naam,
+                                                fac_note_group_vervaldatum)
 );
 /* deze tabel heeft geen numerieke, automatische key maar een GUID-APIKEY achtige key van 32 posities */
 CREATE_TABLE(fac_bookmark, 0)
@@ -1905,7 +2041,9 @@ CREATE_TABLE(fac_imp_usrdata, 0)
    fac_usrdata_omschr       VARCHAR2(60),
    fac_usrdata_volgnr       NUMBER(3),
    fac_usrdata_prijs        NUMBER(15,7),
-   fac_usrdata_vervaldatum  DATE
+   fac_usrdata_vervaldatum  DATE,
+   fac_usrdata_reftabel     VARCHAR2(16),
+   fac_usrdata_refcode      VARCHAR2(40)
 );
 
 -- FSN#25766
@@ -1933,7 +2071,8 @@ CREATE_TABLE(fac_imp_faq, 0) (
    fac_faq_datum                   DATE,
    fac_faq_lang                    VARCHAR2 (3),
    fac_faq_hint                    VARCHAR2 (1000),
-   fac_faq_vervaldatum          DATE
+   fac_faq_vervaldatum             DATE,
+   faq_discipline_omschrijving     VARCHAR2 (60)
 );
 
 -- FSN#25952: Generieke contractenimport
@@ -2063,6 +2202,7 @@ CREATE_TABLE(fac_auditfail, 0)
 CREATE_TABLE(faq_kenmerk,0)
 (
    faq_kenmerk_key          NUMBER(10) CONSTRAINT faq_k_faq_kenmerk_key PRIMARY KEY,
+   faq_discipline_key       NUMBER(10),
    faq_kenmerk_volgnr       NUMBER(3) NOT NULL,
    faq_kenmerk_omschrijving VARCHAR2(50),
    faq_kenmerk_upper        VARCHAR2(50),
@@ -2089,7 +2229,10 @@ CREATE_TABLE(faq_kenmerk,0)
                             DEFAULT SYSDATE
                             NOT_NULL(faq_kenmerk_aanmaak, faq_c_faq_kenmerk_aanmaak),
    faq_kenmerk_verwijder    DATE
-                            DEFAULT NULLDATUM
+                            DEFAULT NULLDATUM,
+   CONSTRAINT faq_u_faq_kenmerk UNIQUE(faq_discipline_key, faq_kenmerk_omschrijving, faq_kenmerk_groep, faq_kenmerk_verwijder)
+// Note: this constraint is defined in INS_TAB.SRC
+// , CONSTRAINT faq_c_faq_kenmerk_discipline FOREIGN KEY(faq_discipline_key) REFERENCES ins_tab_discipline(ins_discipline_key)
 );
 
 CREATE_TABLE(faq_kenmerkwaarde, 0)
@@ -2173,4 +2316,16 @@ CREATE_TABLE(fac_bijlagen, 0)
       FOREIGN KEY (fac_bijlagen_root_key) REFERENCES fac_bijlagen(fac_bijlagen_key)
 );
 
+CREATE_TABLE(fac_layout, 0)
+(
+   fac_layout_key               NUMBER(10)
+                                CONSTRAINT fac_k_fac_layout_key PRIMARY KEY,
+   fac_layout_version           NUMBER(2)
+                                DEFAULT 1 NOT NULL,
+   fac_layout_screen            VARCHAR2(128) NOT NULL,
+   fac_layout_options           VARCHAR2(4000), -- JSON
+   fac_layout_aanmaak           DATE
+                                DEFAULT SYSDATE
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -441,6 +441,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_imp_csv_B_I)
+BEFORE INSERT ON fac_imp_csv
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_imp_csv_key, fac_s_imp_csv_key);
+END;
+/
+
 CREATE_TRIGGER(imp_t_notificatie_imp_log)
    AFTER INSERT
    ON imp_log
@@ -733,11 +741,11 @@ BEFORE INSERT OR UPDATE ON fac_widget
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fac_widget_key, fac_s_fac_widget_key);
+   :new.fac_widget_type := UPPER(:new.fac_widget_type);
    UPDATE_AANMAAKDATUM(fac_widget, fac_widget_aanmaak);
 END;
 /
 
-/* Alvast voor 2022.1
 CREATE_TRIGGER(fac_t_fac_widget_page_B_I)
 BEFORE INSERT ON fac_widget_page
 FOR EACH ROW
@@ -753,7 +761,6 @@ BEGIN
   UPDATE_PRIMARY_KEY(fac_widget_onpage_key, fac_s_fac_widget_onpage_key);
 END;
 /
-*/
 
 CREATE_TRIGGER(fac_t_fac_code2label_B_IU)
 BEFORE INSERT OR UPDATE ON fac_code2label
@@ -1040,4 +1047,12 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_layout_B_I)
+BEFORE INSERT ON fac_layout
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_layout_key, fac_s_fac_layout_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/FAC_VIE.SRC

@@ -3,6 +3,12 @@
  *  $Id$
  */
 
+CREATE_VIEW(faq_discipline, 0)
+AS
+ SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'FAQ';
+
+DEFINIEER_VIEW_AANWEZIG(faq_discipline, ins_discipline_verwijder, faq_v_aanwezigdiscipline, 0);
+
 DEFINIEER_VIEW_AANWEZIG(fac_usrdata, fac_usrdata_verwijder,
     fac_v_aanwezigusrdata,0);
 
@@ -21,31 +27,45 @@ CREATE_VIEW (fac_v_webgebruiker, 0) AS
 CREATE_VIEW(fac_v_rap_groeprechten, 0)
  (naam,
   fclt_f_login,
+  email,
   last_login,
+  fclt_f_module,
   fclt_f_funcode,
   fclt_f_functie,
   fclt_f_aspect,
   fclt_f_groep,
-  or_ow_ar_aw
+  orglevelread,
+  orglevelwrite,
+  alglevelread,
+  alglevelwrite
 )
 AS
    SELECT -- GROEPEN MET DISCIPLINES
-          p.prs_perslid_naam, p.prs_perslid_oslogin, prs_perslid_login,
+          p.prs_perslid_naam, p.prs_perslid_oslogin, prs_perslid_email, prs_perslid_login,
+          f.fac_functie_module,
           f.fac_functie_code,
           COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
-            (CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
+          DECODE (
-             decode(a.ins_discipline_module, 'BES', 'Categorie ',
+              a.ins_discipline_module,
-                     'INS', 'Discipline ',
+              'BES', lcl.l ('bes_discipline') || ' ',
-                     'MLD', 'Vakgroep ',
+              'CHT', lcl.l ('cht_discipline') || ' ',
-                     'RES', 'Catalogus ',
+              'CNT', lcl.l ('cnt_discipline') || ' ',
-                     ins_discipline_module || ' '
+              'CTR', lcl.l ('ctr_discipline') || ' ',
-                    )
+              'FAQ', lcl.l ('faq_discipline') || ' ',
+              'INS', lcl.l ('ins_discipline') || ' ',
+              'MLD',    lcl.l ('mld_discipline')
+                     || (CASE
+                             WHEN ins_srtdiscipline_prefix IS NULL THEN ''
+                             ELSE ' ' || ins_srtdiscipline_prefix || '-'
+                         END),
+              'RES', lcl.l ('res_discipline') || ' ',
+              ins_discipline_module || ' ')
            || ins_discipline_omschrijving omschrijving,
           gr.fac_groep_omschrijving,
-             '(' || TO_CHAR(g.fac_gebruiker_prs_level_read)  || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_prs_level_read, 'PRS'),
-                 || TO_CHAR(g.fac_gebruiker_prs_level_write) || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_prs_level_write, 'PRS'),
-                 || TO_CHAR(g.fac_gebruiker_alg_level_read)  || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_alg_level_read, 'ALG'),
-                 || TO_CHAR(g.fac_gebruiker_alg_level_write) || ')' or_ow_ar_aw
+          fac.getscopeleveltext (g.fac_gebruiker_alg_level_write, 'ALG')
      FROM fac_groeprechten g,
           fac_gebruikersgroep gg,
           prs_v_aanwezigperslid p,
@@ -66,23 +86,23 @@ AS
       AND flx.fac_locale_xsl_lang (+)= 'NL'
       AND flx.fac_locale_xsl_module (+)= 'ASP'
    UNION ALL -- GROEPEN ZONDER DISCIPLINES
-   SELECT p.prs_perslid_naam, p.prs_perslid_oslogin, prs_perslid_login,
+   SELECT p.prs_perslid_naam, p.prs_perslid_oslogin, prs_perslid_email, prs_perslid_login,
+          f.fac_functie_module,
           f.fac_functie_code,
           COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
           NULL omschrijving,
           gr.fac_groep_omschrijving,
-             '(' || TO_CHAR(g.fac_gebruiker_prs_level_read)  || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_prs_level_read, 'PRS'),
-                 || TO_CHAR(g.fac_gebruiker_prs_level_write) || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_prs_level_write, 'PRS'),
-                 || TO_CHAR(g.fac_gebruiker_alg_level_read)  || ', '
+          fac.getscopeleveltext (g.fac_gebruiker_alg_level_read, 'ALG'),
-                 || TO_CHAR(g.fac_gebruiker_alg_level_write) || ')' or_ow_ar_aw
+          fac.getscopeleveltext (g.fac_gebruiker_alg_level_write, 'ALG')
      FROM fac_groeprechten g,
           fac_functie f,
           fac_gebruikersgroep gg,
           prs_v_aanwezigperslid p,
           fac_groep gr,
           fac_locale_xsl flx -- lcl.l gebruik was extreem traag dus maar hardcoded
-    WHERE fac_functie_module <> 'LAN'
+    WHERE fac_functie_discipline = 0
-      AND fac_functie_discipline = 0
       AND g.fac_functie_key = f.fac_functie_key
       AND g.fac_groep_key = gg.fac_groep_key
       AND gg.fac_groep_key = gr.fac_groep_key
@@ -93,28 +113,41 @@ AS
 
 CREATE_VIEW(fac_v_rap_groeprechten2, 0)
  (fclt_f_groep,
+  fclt_f_module,
   fclt_f_funcode,
   fclt_f_functie,
   fclt_f_aspect,
-  or_ow_ar_aw
+  orglevelread,
+  orglevelwrite,
+  alglevelread,
+  alglevelwrite
 )
 AS
 SELECT -- GROEPEN MET DISCIPLINES
           gr.fac_groep_omschrijving,
+          f.fac_functie_module,
           f.fac_functie_code,
           COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
-          (CASE WHEN ins_srtdiscipline_prefix IS NULL THEN '' ELSE ins_srtdiscipline_prefix||'-' END) ||
+          DECODE (
-             DECODE( a.ins_discipline_module ,  'BES' ,  'Categorie ' ,
+              a.ins_discipline_module,
-                     'INS' ,  'Discipline ' ,
+              'BES', lcl.l ('bes_discipline') || ' ',
-                     'MLD' ,  'Vakgroep ' ,
+              'CHT', lcl.l ('cht_discipline') || ' ',
-                     'RES' ,  'Catalogus ' ,
+              'CNT', lcl.l ('cnt_discipline') || ' ',
-                     ins_discipline_module  ||  ' '
+              'CTR', lcl.l ('ctr_discipline') || ' ',
-                     )
+              'FAQ', lcl.l ('faq_discipline') || ' ',
+              'INS', lcl.l ('ins_discipline') || ' ',
+              'MLD',    lcl.l ('mld_discipline')
+                     || (CASE
+                             WHEN ins_srtdiscipline_prefix IS NULL THEN ''
+                             ELSE ' ' || ins_srtdiscipline_prefix || '-'
+                         END),
+              'RES', lcl.l ('res_discipline') || ' ',
+              ins_discipline_module || ' ')
            || ins_discipline_omschrijving omschrijving,
-             '('  ||  TO_CHAR(g.fac_gebruiker_prs_level_read)   ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_prs_level_read, 'PRS'),
-                  ||  TO_CHAR(g.fac_gebruiker_prs_level_write)  ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_prs_level_write, 'PRS'),
-                  ||  TO_CHAR(g.fac_gebruiker_alg_level_read)   ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_alg_level_read, 'ALG'),
-                  ||  TO_CHAR(g.fac_gebruiker_alg_level_write)  ||  ')' or_ow_ar_aw
+           fac.getscopeleveltext (g.fac_gebruiker_alg_level_write, 'ALG')
      FROM FAC_GROEPRECHTEN g,
           FAC_FUNCTIE f,
           INS_TAB_DISCIPLINE a,
@@ -132,19 +165,19 @@ SELECT -- GROEPEN MET DISCIPLINES
       AND flx.fac_locale_xsl_module (+)= 'ASP'
    UNION ALL -- GROEPEN ZONDER DISCIPLINES
    SELECT gr.fac_groep_omschrijving,
+          f.fac_functie_module,
           f.fac_functie_code,
           COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst, f.fac_functie_omschrijving),
           NULL omschrijving,
-             '('  ||  TO_CHAR(g.fac_gebruiker_prs_level_read)   ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_prs_level_read, 'PRS'),
-                  ||  TO_CHAR(g.fac_gebruiker_prs_level_write)  ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_prs_level_write, 'PRS'),
-                  ||  TO_CHAR(g.fac_gebruiker_alg_level_read)   ||  ', '
+           fac.getscopeleveltext (g.fac_gebruiker_alg_level_read, 'ALG'),
-                  ||  TO_CHAR(g.fac_gebruiker_alg_level_write)  ||  ')' or_ow_ar_aw
+           fac.getscopeleveltext (g.fac_gebruiker_alg_level_write, 'ALG')
      FROM FAC_GROEPRECHTEN g,
           FAC_FUNCTIE f,
           FAC_GROEP gr,
           fac_locale_xsl flx
-    WHERE fac_functie_module <> 'LAN'
+    WHERE g.fac_groep_key = gr.fac_groep_key
-      AND g.fac_groep_key = gr.fac_groep_key
       AND fac_functie_discipline = 0
       AND g.fac_functie_key = f.fac_functie_key
       AND flx.fac_locale_xsl_label (+)= f.fac_functie_omschrijving
@@ -2383,6 +2416,17 @@ AS
    SELECT *
      FROM fac_auditfail;
 
+
+CREATE_VIEW(fac_v_rap_auditusage, 0)
+AS
+SELECT fac_gui_counter_date fclt_f_datum,
+       prs_perslid_naam_friendly fclt_f_naam,
+       fac_gui_counter_info detail
+  FROM fac_gui_counter c,
+       prs_v_perslid_fullnames p
+ WHERE fac_gui_counter_group = 'audit'
+   AND c.prs_perslid_key = p.prs_perslid_key;
+
 CREATE_VIEW(fac_v_udr_faq, 1)
 AS
 SELECT f.fac_faq_key

FCLT.NMK

@@ -61,7 +61,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ## New style using schemanumbers
 ##
 CURRENTVERSION=39
-NEXTVERSION=40g
+NEXTVERSION=40f
 FILEVERSION=
 NEXTCAREVERSION=37
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)

FCLT.SRC

@@ -47,7 +47,7 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2021 Aareon Nederland B.V. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2022 Aareon Nederland B.V. All rights reserved.
 PROMPT
 PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
 PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
@@ -183,5 +183,5 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
 PROMPT
 PROMPT Your schema initialisation is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 710
-PROMPT Copyright (c) 1996-2021 Aareon Nederland B.V. All rights reserved.
+PROMPT Copyright (c) 1996-2022 Aareon Nederland B.V. All rights reserved.
 SPOOL OFF

INS/INS_TAB.SRC

@@ -162,6 +162,16 @@ ALTER TABLE fac_import_app ADD
         REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
 );
 
+ALTER TABLE fac_faq ADD
+    faq_ins_discipline_key
+        NUMBER(10)
+        NOT_NULL(faq_ins_discipline_key, faq_c_ins_discipline_key)
+        CONSTRAINT faq_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE faq_kenmerk
+     ADD CONSTRAINT faq_c_faq_kenmerk_discipline FOREIGN KEY(faq_discipline_key)
+     REFERENCES ins_tab_discipline(ins_discipline_key);
+
 CREATE_TABLE(ins_srtgroep,0)
 (
     ins_srtgroep_key
@@ -247,6 +257,10 @@ CREATE_TABLE(ins_srtdeel,0)
         NUMBER(16,3),
     ins_srtdeel_acadsymbol_dwgy
         NUMBER(16,3),
+    ins_srtdeel_acadlabelsize
+        NUMBER(5),
+    ins_srtdeel_acadlabelpos
+        NUMBER(1),
     ins_srtdeel_acad_tagvalue /* TAGVALUE vanuit ACAD */
         VARCHAR2(30),
     ins_srtdeel_cadlayer
@@ -989,7 +1003,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_disc_params_key          NUMBER(10),
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
-  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten, 4=?, 8=?, 16=hide label? */
   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),

MLD/MLD_IND.SRC

@@ -24,6 +24,7 @@ CREATE INDEX mld_i_mld_melding20 ON mld_melding(mld_melding_datum);
 CREATE INDEX mld_i_mld_melding21 ON mld_melding(mld_melding_externnr);
 CREATE INDEX mld_i_mld_melding22 ON mld_melding(mld_alg_locatie_key);
 CREATE INDEX mld_i_mld_melding23 ON mld_melding(mld_melding_mldgroup_key);
+CREATE INDEX mld_i_mld_melding24 ON mld_melding(mld_ins_discipline_key,mld_melding_behandelaar2_key);
 
 create index mld_i_mld_opdr1 on mld_opdr(mld_opdr_module);
 create index mld_i_mld_opdr2 on mld_opdr(mld_melding_key);
@@ -39,6 +40,7 @@ create index mld_i_mld_opdr14 on mld_opdr(mld_opdr_ordernr);
 create index mld_i_mld_opdr15 on mld_opdr(fac_activiteit_key);
 create index mld_i_mld_opdr16 on mld_opdr(cnt_contract_key);
 create index mld_i_mld_opdr17 on mld_opdr(mld_opdr_teverzenden);
+CREATE INDEX mld_i_mld_opdr18 on mld_opdr(mld_opdr_parent_key);
 
 create index mld_i_mld_typeopdr1 on mld_typeopdr(mld_typeopdr_module);
 
@@ -68,6 +70,7 @@ CREATE INDEX mld_i_mld_opdr_materiaal1 ON mld_opdr_materiaal(mld_opdr_key, fac_u
 
 CREATE UNIQUE INDEX mld_i_mld_stdmeldingfaq1 ON mld_stdmeldingfaq(mld_stdmelding_key, ins_discipline_key, fac_faq_key);
 CREATE INDEX mld_i_mld_stdmeldingfaq2 ON mld_stdmeldingfaq(ins_discipline_key, fac_faq_key);
+CREATE UNIQUE INDEX mld_i_mld_disc_disc1 ON mld_discipline_discipline(mld_discipline_key1, mld_discipline_key2);
 
 REGISTERONCE('$Id$')
 

MLD/MLD_LCL.SRC

@@ -205,6 +205,7 @@ DEFINE_LOCALEITEM(lcl_mld_opdr_closed_3)
 DEFINE_LOCALEITEM(lcl_mld_person_prefix)
 DEFINE_LOCALEITEM(lcl_mld_vakgroep)
 DEFINE_LOCALEITEM(lcl_mld_subject)
+DEFINE_LOCALEITEM(lcl_mld_fe_newmelding_confirm)
 END_LOCALEITEMS()
 
 START_LOCALEITEMS('MLD_TYPEOPDR_KEY')

MLD/MLD_PAC.SRC

@@ -575,6 +575,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
         lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
         ltracking      VARCHAR2 (4000); -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
         lnotifyooh     mld_disc_params.mld_disc_params_offhours%TYPE;
+        lsender        mld_discipline.ins_discipline_email%TYPE;
     BEGIN
         BEGIN
             -- De vakgroep (discipline) setting MLD_DISC_PARAMS_BONOTIFY geeft aan of de notificatie moeten worden verstuurd.
@@ -648,6 +649,18 @@ CREATE OR REPLACE PACKAGE BODY mld AS
 
                 DBMS_OUTPUT.put_line ('melding zegt: hier moet genotificeerd worden');
 
+                -- These notifications are now sent on behalf of the system, what might be the local FM organisation
+                SELECT MAX (COALESCE(cd.ins_discipline_email, l.alg_locatie_email)) email
+                  INTO lsender
+                  FROM mld_melding m,
+                       mld_stdmelding sm,
+                       mld_discipline cd,
+                       alg_locatie l
+                 WHERE m.mld_stdmelding_key = sm.mld_stdmelding_key
+                   AND sm.mld_ins_discipline_key = cd.ins_discipline_key
+                   AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                   AND m.mld_melding_key = pmeldingkey;
+
                 -- Als die melding/status er niet is, is er niks te doen en sprongen we al naar de exception
                 -- Als die melding/status er wel is, gaan we verder
 
@@ -760,7 +773,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                                 NULL,
                                                 NULL,
                                                 lnotiprio,                                                      -- 1,2,3
-                                                NULL);
+                                                lsender);
                     RETURN;                                       -- Dan doen we de rest van de gebruikers helemaal niet
                 END IF;
             END IF;
@@ -842,7 +855,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                             NULL,
                                             NULL,
                                             lnotiprio,
-                                            NULL);
+                                            lsender);
                 DBMS_OUTPUT.put_line ('bo-er: ' || boer.prs_perslid_key);
 
                 -- Het kan zijn dat er ook een extra spoed bericht gestuurd moet worden
@@ -859,7 +872,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                                 NULL,
                                                 NULL,
                                                 1,                                                      -- spoed dus :-)
-                                                NULL);
+                                                lsender);
                 END IF;
 
                 IF lnrreceivers = 0
@@ -1117,7 +1130,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
           WHERE o.mld_melding_key = m.mld_melding_key
             AND m.mld_stdmelding_key = sm.mld_stdmelding_key
             AND sm.mld_ins_discipline_key = cd.ins_discipline_key
-            AND m.mld_alg_locatie_key = l.alg_locatie_key
+            AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
             AND o.mld_opdr_key = popdrkey;
          -- Als die er niet is sprongen we al naar de exception
          -- Als die er wel is, gaan we verder
@@ -1398,6 +1411,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       l_prs_bedrijf_uurloon              prs_bedrijf.prs_bedrijf_uurloon%TYPE;
       l_mld_opdr_einddatum               mld_opdr.mld_opdr_einddatum%TYPE;
       l_mld_opdr_omschrijving            mld_opdr.mld_opdr_omschrijving%TYPE;
+      l_prs_bedrijfadres_url             prs_bedrijfadres.prs_bedrijfadres_url%TYPE;
       l_haswrite                         NUMBER (1);
       l_new_opdr_key                     NUMBER (10);
       l_approver_key                     NUMBER (10);
@@ -1462,7 +1476,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
 
       -- De behandelaar is initieel diegene die de opdracht aanmaakt (user). Hier nemen we dezelfde persoon als bij de (workflow) melding.
       -- Deze persoon moet wel MLDBOF en/of MLDBO3 schrijfrechten hebben omdat we anders niet kunnen bepalen of goedgekeurd of gefiatteerd moet worden.
-      -- Als deze persoon geen MLDBOF en/of MLDBO3 schrijfrechten heeft dan maken we geen opdracht aan.
+      -- Als deze persoon geen MLDBOF en/of MLDBO3 schrijfrechten heeft dan maken we wel een opdracht aan, maar dan wordt hij niet als behandelaar ingevuld.
       SELECT CASE
              WHEN COALESCE(MIN(fac_gebruiker_prs_level_write), 9) < 9 OR COALESCE(MIN(fac_gebruiker_alg_level_write), 9) < 9
              THEN 1
@@ -1477,12 +1491,6 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          AND ((l_ins_discipline_key IS NOT NULL AND ins_discipline_key = l_ins_discipline_key)
            OR l_ins_discipline_key IS NULL);
 
-      IF l_haswrite = 0
-      THEN
-         -- Internal error; Aanmaker opdracht heeft geen rechten om de opdracht aan te maken.
-         RETURN;
-      END IF;
-
       BEGIN
          -- Bij automatische opdrachten pakken we per definitie de default opdracht type. We eisen dat die is ingevuld.
          SELECT sm.mld_typeopdr_key
@@ -1511,6 +1519,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             RETURN;
       END;
 
+      IF l_mld_typeopdr_fvs IS NULL
+      THEN
+         l_mld_typeopdr_fvs := 0;
+      END IF;
+
       -- Moet er gefiatteerd worden?
       IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs
       THEN
@@ -1846,7 +1859,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                             mld.bepaalopdrmeldingvolgnr(p_melding_key),
                             l_mld_typeopdr_key,
                             l_prs_bedrijf_key,
-                            l_prs_perslid_key,
+                            CASE
+                            WHEN l_haswrite = 1
+                            THEN l_prs_perslid_key
+                            ELSE NULL
+                            END,
                             l_prs_kostenplaats_key,
                             l_prs_kostensoort_key,
                             l_mld_stdmelding_autoorderamnt,
@@ -1862,10 +1879,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       IF l_mld_stdmelding_autoorderamnt > l_mld_disc_params_bestellimiet OR l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_gvs
       THEN
         mld.setopdrachtstatus(l_new_opdr_key, 10, NULL);   -- Ter goedkeuring.
-      ELSE
+      ELSIF l_for_approval AND l_prs_kostenplaats_fiat = 1 AND l_mld_stdmelding_autoorderamnt > l_mld_typeopdr_fvs -- We moeten fiatteren en er is geen (of een te lage) fiatteringsvrijstelling
-        IF l_mld_stdmelding_autoorderamnt < l_mld_typeopdr_fvs   -- fvs is eigenlijk al eerder afgehandeld
       THEN
-           -- Hoge fiat vrijstelling, fiattering toch niet nodig.
+           mld.setopdrachtstatus(l_new_opdr_key, 3, NULL);   -- Ter fiattering.
+      ELSE
+        -- Fiatteren niet nodig.
         mld.setopdrachtstatus(l_new_opdr_key, 5, NULL);   -- Uitgegeven.
         -- mld.trackuitvoerende(opdr_key, uitvoerende, opdr_status_key);
         SELECT CASE
@@ -1876,13 +1894,9 @@ CREATE OR REPLACE PACKAGE BODY mld AS
           INTO l_action
           FROM mld_v_uitvoerende u
          WHERE u.mld_uitvoerende_key = l_prs_bedrijf_key;
-
         -- Type "P" (persoon) is intern en type "B" (bedrijf) is afhankelijk van "prs_bedrijf_intern" intern of extern.
         fac.trackaction(l_action, l_new_opdr_key, NULL, NULL, NULL);
         -- In de database procedure doen we geen putorders.sendnotifications(pkey, paction). Dan moeten we maar iets langer wachten.
-        ELSE
-           mld.setopdrachtstatus(l_new_opdr_key, 3, NULL);   -- Ter fiattering.
-        END IF;
       END IF;
 
       -- Refresh meldingstatus zonodig als gevolg van een nieuw uitgegeven opdracht.
@@ -2017,6 +2031,39 @@ CREATE OR REPLACE PACKAGE BODY mld AS
 
       -- Evaluate flex expressions.
       flx.evaluateflexexpressions('OPD', l_new_opdr_key, l_prs_perslid_key, 1);
+
+      -- De nieuwe (offerte)opdracht door putorders laten oppikken (te verzenden veld zetten), zodat de opdracht verstuurd wordt.
+      IF l_mld_typeopdr_isofferte = 1
+      THEN
+         -- Offerte.
+         UPDATE mld_opdr
+            SET mld_opdr_teverzenden = 1
+          WHERE mld_opdr_key = l_new_opdr_key;
+      ELSE
+         -- Alleen in geval van een uitvoerder, de opdracht door putorders laten oppikken.
+         BEGIN
+           SELECT prs_bedrijfadres_url
+             INTO l_prs_bedrijfadres_url
+             FROM prs_bedrijfadres
+            WHERE prs_bedrijfadres_type = 'O'
+              AND (mld_typeopdr_key IS NULL
+                OR mld_typeopdr_key = l_mld_typeopdr_key)
+              AND (alg_locatie_key = l_mld_alg_locatie_key
+                OR alg_locatie_key IS NULL)
+              AND (alg_district_key = (SELECT d.alg_district_key
+                                         FROM alg_locatie d
+                                        WHERE d.alg_locatie_key = l_mld_alg_locatie_key)
+                OR alg_district_key IS NULL)
+              AND prs_bedrijf_key = l_prs_bedrijf_key;
+
+           UPDATE mld_opdr
+              SET mld_opdr_teverzenden = 1
+            WHERE mld_opdr_key = l_new_opdr_key;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN NULL;
+         END;
+      END IF;
    END mld_addautoorder;
 
    PROCEDURE mld_nextworkflowstep (p_melding_key IN NUMBER, p_success IN NUMBER)
@@ -2481,7 +2528,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                l_initmldstatus,
                                mld_kosten_klant,
                                mld_melding_document,
-                               prs_kostenplaats_key,
+                               m.prs_kostenplaats_key,
                                prs_perslid_key,
                                mld_adres_key,
                                r_nextsteps.mld_workflowstep_key,
@@ -2489,7 +2536,8 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                mld_melding_ordernr,
                                mld_melding_spoed,
                                r_nextsteps.mld_stdmelding_default_disc
-                          FROM mld_melding, mld_stdmelding msm
+                          FROM mld_melding m,
+                               mld_stdmelding msm
                          WHERE mld_melding_key = l_melding_start_key
                                AND msm.mld_stdmelding_key = r_nextsteps.mld_stdmelding_key;
 
@@ -3114,13 +3162,30 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                  WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                        AND v.alg_gebouw_key = g.alg_gebouw_key
                        AND r.alg_ruimte_key = l_ruimte_key;
-            ELSE -- alg_key zal een gebouw of een verdieping zijn
+            ELSE
-                -- de tijden van het gebouw gelden
+               -- alg_key zal een gebouw, verdieping of terrein zijn.
-                SELECT alg_gebouw_beginuur, alg_gebouw_einduur, alg_gebouw_werkdagen
+               -- de tijden van het gebouw gelden of uren opleveren.
-                  INTO v_beginuur, v_einduur, v_werkdagen
+               SELECT beginuur,
-                  FROM alg_gebouw g, alg_v_allonroerendgoed aag
+                      einduur,
+                      werkdagen
+                 INTO v_beginuur,
+                      v_einduur,
+                      v_werkdagen
+                 FROM (SELECT COALESCE(alg_gebouw_beginuur, -1) beginuur,
+                              COALESCE(alg_gebouw_einduur, -1) einduur,
+                              alg_gebouw_werkdagen werkdagen
+                         FROM alg_gebouw g,
+                              alg_v_allonroerendgoed aag
                         WHERE g.alg_gebouw_key = aag.alg_gebouw_key
-                   AND aag.alg_onroerendgoed_keys = alg_key;
+                          AND aag.alg_onroerendgoed_keys = alg_key
+                       UNION
+                       SELECT -1 beginuur,
+                              -1 einduur,
+                              1 werkdagen
+                         FROM alg_terreinsector t,
+                              alg_v_allonroerendgoed aag
+                        WHERE t.alg_terreinsector_key = aag.alg_terreinsector_key
+                          AND aag.alg_onroerendgoed_keys = alg_key);
             END IF;
        END IF;
        RETURN;
@@ -3211,15 +3276,30 @@ CREATE OR REPLACE PACKAGE BODY mld AS
               WHERE     r.alg_verdieping_key = v.alg_verdieping_key
                     AND v.alg_gebouw_key = g.alg_gebouw_key
                     AND r.alg_ruimte_key = l_ruimte_key;
-          ELSE -- alg_key zal een gebouw of een verdieping zijn
+          ELSE
-             -- de tijden van het gebouw gelden
+             -- alg_key zal een gebouw, verdieping of terrein zijn.
-             SELECT COALESCE (alg_gebouw_beginuur, 0),
+             -- de tijden van het gebouw gelden of 24 per dag alleen op werkdagen.
-                    COALESCE (alg_gebouw_einduur, 24),
+             SELECT beginuur,
-                    alg_gebouw_werkdagen
+                    einduur,
-               INTO l_beginuur, l_einduur, l_werkdagen
+                    werkdagen
-               FROM alg_gebouw g, alg_v_allonroerendgoed aag
+               INTO l_beginuur,
+                    l_einduur,
+                    l_werkdagen
+               FROM (SELECT COALESCE(alg_gebouw_beginuur, 0) beginuur,
+                            COALESCE(alg_gebouw_einduur, 24) einduur,
+                            alg_gebouw_werkdagen werkdagen
+                       FROM alg_gebouw g,
+                            alg_v_allonroerendgoed aag
                       WHERE g.alg_gebouw_key = aag.alg_gebouw_key
-                AND aag.alg_onroerendgoed_keys = alg_key;
+                        AND aag.alg_onroerendgoed_keys = alg_key
+                     UNION
+                     SELECT 0 beginuur,
+                            24 einduur,
+                            1 werkdagen
+                       FROM alg_terreinsector t,
+                            alg_v_allonroerendgoed aag
+                      WHERE t.alg_terreinsector_key = aag.alg_terreinsector_key
+                        AND aag.alg_onroerendgoed_keys = alg_key);
           END IF;
 
           RETURN FAC.datumtijdplusuitvoertijd (startdate,
@@ -3691,7 +3771,7 @@ BEGIN
          ELSIF r.mld_srtkenmerk_kenmerktype = 'R' OR r.mld_srtkenmerk_kenmerktype = 'S'
          -- referentie
          THEN
-            waarde := flx.getdomeinwaarde (r.fac_kenmerkdomein_key, TO_NUMBER (waarde));
+            waarde := flx.getdomeinwaarde (r.fac_kenmerkdomein_key, waarde);
          END IF;
          -- In het zeldzame geval dat de tekst te lang zou worden slaan we sommige
          -- kenmerken gewoon silent over. Niet ideaal maar toch vrij theoretisch
@@ -3773,6 +3853,11 @@ IS
           FROM fin_factuur
          WHERE mld_opdr_key = p_opdracht_key;
 
+    CURSOR c_afspraak(p_opdracht_key IN NUMBER) IS
+        SELECT bez_afspraak_key
+          FROM bez_afspraak
+         WHERE mld_opdr_key = p_opdracht_key;
+
     CURSOR c_bijlagen(p_refkey IN NUMBER) IS
         SELECT fac_bijlagen_key
           FROM fac_bijlagen b
@@ -3794,6 +3879,11 @@ BEGIN
         fin.remove(ref_factuur.fin_factuur_key);
     END LOOP;
 
+    FOR ref_afspraak IN c_afspraak(p_mld_opdr_key)
+    LOOP
+        bez.remove(ref_afspraak.bez_afspraak_key);
+    END LOOP;
+
     FOR ref_bijlagen IN c_bijlagen(p_mld_opdr_key)
     LOOP
         flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);

MLD/MLD_SEQ.SRC

@@ -46,6 +46,7 @@ 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;
+CREATE SEQUENCE mld_s_mld_disc_disc_key        MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

MLD/MLD_TAB.SRC

@@ -133,7 +133,9 @@ CREATE_TABLE(mld_disc_params, 0)
         NUMBER(1) DEFAULT(1) NOT NULL
         CONSTRAINT mld_c_mld_disc_params_srtgroep CHECK(mld_disc_params_srtgroep IN (1,5,2,3,7)),
     mld_disc_params_primairbeh
-        NUMBER(1) DEFAULT(1) NOT NULL
+        NUMBER(1) DEFAULT(1) NOT NULL,
+    mld_disc_params_mldgroup
+        NUMBER(3) DEFAULT(0) NOT NULL
 );
 
 CREATE_TABLE(mld_oorzaak,0)
@@ -249,7 +251,7 @@ CREATE_TABLE(mld_typeopdr,0)
         NUMBER(1)
         DEFAULT 1
         NOT NULL
-        CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2)),
+        CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2, 3)), /* 0=Geen materiaal, 1=Optioneel totaalbedrag, 2=Materialenlijst, 3=Verplichte materialenlijst */
     mld_typeopdr_totaal
         NUMBER(1)
         DEFAULT 1
@@ -280,6 +282,10 @@ 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_bez
+        NUMBER(1)
+        DEFAULT(0)
+        CONSTRAINT mld_c_mld_typeopdr_bez CHECK(mld_typeopdr_bez IN (0,1)),
     mld_typeopdr_afhandeling  /* Afhandeling verplicht bij afmelden opdracht van dit opdrachttype (0=Nee/1=Ja) */
         NUMBER(1)
         DEFAULT 0,
@@ -298,6 +304,8 @@ CREATE_TABLE(mld_typeopdr,0)
     mld_typeopdr_sequential  /* Strikte sequentiele opdracht afhandeling en/of Hold (BITAND1 is (kan pauzeren en hervatten) en BITAND2 is strikt sequentieel) */
         NUMBER(1)
         DEFAULT 0 NOT NULL,
+    mld_typeopdr_image
+        VARCHAR2(255 CHAR),
     CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
 );
 
@@ -325,6 +333,10 @@ CREATE_TABLE(mld_stdmeldinggroep,0)
         NOT_NULL(mld_stdmeldinggroep_naam, mld_c_mld_stdmeldinggroep_naam),
     mld_stdmeldinggroep_oms
         VARCHAR2(1000),
+    mld_stdmeldinggroep_image
+        VARCHAR2(255),
+    mld_stdmeldinggroep_color
+        VARCHAR2 (60),
   CONSTRAINT mld_u_stdmeldinggroep_naam UNIQUE (mld_stdmeldinggroep_naam)
 );
 
@@ -425,6 +437,9 @@ CREATE_TABLE(mld_stdmelding,0)
     prs_kostensoort_key
         NUMBER(10)
         CONSTRAINT ins_r_prs_kostensoort_key2 REFERENCES prs_kostensoort(prs_kostensoort_key),
+    prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
     mld_stdmelding_autoorder -- (1: probeer automatisch opdracht te maken)
         NUMBER(1),
     mld_stdmelding_autoorderamount -- Opdrachtbedrag voor automatisch aangemaakte opdrachten (default 0).
@@ -493,6 +508,10 @@ CREATE_TABLE(mld_stdmelding,0)
         VARCHAR2(256),
     mld_stdmelding_externsyncdate
         DATE,
+    mld_stdmelding_notes  // 0:geen notities, &1=FE, &2=FOBO, &4=UITV
+        NUMBER(1)
+        DEFAULT 7
+        NOT_NULL(mld_stdmelding_notes, mld_c_mld_stdmelding_notes),
 -- in CAD_TAB.SRC:
 --    cad_thema_key
 --        NUMBER(10)
@@ -589,6 +608,20 @@ CREATE_TABLE(mld_stdmeldingfaq, 0)
         CONSTRAINT mld_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
 );
 
+CREATE_TABLE(mld_discipline_discipline, 0)                        -- Kruistabel voor ins_tab_discipline
+(
+    mld_discipline_discipline_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    mld_discipline_key1
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_disc_disc_key1
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL,
+    mld_discipline_key2
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_disc_disc_key2
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL
+);
+
 CREATE_TABLE(mld_adres, 0)
 (
     mld_adres_key
@@ -1062,7 +1095,11 @@ CREATE_TABLE(mld_opdr,0)
         NOT NULL,
     mld_opdr_parent_key
         NUMBER(10)
-        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key)
+        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key),
+    mld_opdr_actiecode
+        NUMBER(3)
+        DEFAULT 1 /* actie bij +1=FOBO behandelaar, +2=melder, +4=uitvoerende, +128 attentie */
+        NOT NULL
 );
 
 CREATE_TABLE(mld_vrije_dagen, 0)
@@ -1318,7 +1355,8 @@ CREATE_TABLE(mld_melding_note, 0)
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
    fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
    mld_melding_note_omschrijving    VARCHAR2 (4000 CHAR),
-   mld_melding_note_flag            NUMBER (2) DEFAULT 0
+   mld_melding_note_flag            NUMBER (2) DEFAULT 0, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO), +4=UITV (redefined DB41)
+   mld_melding_note_parent_key      NUMBER (10) DEFAULT NULL REFERENCES mld_melding_note (mld_melding_note_key) ON DELETE CASCADE
 );
 
 CREATE_TABLE(mld_opdr_note, 0)
@@ -1329,7 +1367,9 @@ CREATE_TABLE(mld_opdr_note, 0)
    mld_opdr_note_wijzigdatum        DATE,
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
    fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
-   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR)
+   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR),
+   mld_opdr_note_flag               NUMBER (2) DEFAULT 4, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO), +4=UITV
+   mld_opdr_note_parent_key         NUMBER (10) DEFAULT NULL REFERENCES mld_opdr_note (mld_opdr_note_key) ON DELETE CASCADE
 );
 
 -- Improductieve opdrachten, alternatief van mld_opdr om uren op te registreren
@@ -1365,7 +1405,7 @@ CREATE_TABLE(mld_opdr_uren, 0)
     mld_opdr_uren_besteed
         NUMBER(7,4) NOT NULL,
     mld_opdr_uren_status
-        NUMBER(1) NOT NULL, --2=ingevoerd, 3=terfiat, 4=gefiatteerd, 1=afgekeurd, 6=verwerkt(=gefactureerd)
+        NUMBER(1) NOT NULL, --1=Ingevoerd 2=Ter goedkeuring 3=Goedgekeurd 4=Verwerkt
      mld_opdr_uren_opmerking
         VARCHAR2(100),
     CONSTRAINT mld_c_mld_opdr_uren1 CHECK ((mld_opdr_key IS NULL AND mld_impropdr_key IS NOT NULL) OR (mld_opdr_key IS NOT NULL AND mld_impropdr_key IS NULL))

MLD/MLD_TRI.SRC

@@ -234,7 +234,7 @@ BEGIN
             IF (UPDATING AND NOT UPDATING('mld_melding_einddatum')
                 AND (:old.mld_melding_einddatum_std IS NULL
                      OR :old.mld_melding_einddatum_std <> :new.mld_melding_einddatum_std)
-                AND l_planbaar <> 1)
+                AND l_planbaar = 1)
                OR (INSERTING AND :new.mld_melding_einddatum IS NULL)
             THEN
                 :new.mld_melding_einddatum := :new.mld_melding_einddatum_std;

MLD/MLD_VIE.SRC

@@ -1167,6 +1167,399 @@ AS
 CREATE_VIEW(mld_v_api_meldingen, 1) AS SELECT * from mld_melding;
 CREATE_VIEW(mld_v_api_opdrachten, 1) AS SELECT * from mld_opdr;
 
+-- Defines the personal todo-list for user fclt_3d_user_key,
+-- gathering all the variants that an order can be assigned
+-- To be used as base for a report. First version
+CREATE_VIEW(mld_v_rap_prs_todolist, 0)
+(
+    opdr_key,
+    res_key,
+    taak,
+    referentie,
+    plaatsmelding,
+    prio,
+    begindatum,
+    einddatum,
+    planning_van,
+    planning_tot,
+    gepland,
+    omschrijving,
+    opdrachtstatuscode,
+    opdrachtstatus,
+    behandelaar,
+    behandelaar_alt,
+    plantype,
+    actief,
+    halted,
+    mld_opdr_flag,
+    mld_opdr_actiecode,
+    prs_bedrijf_naam,
+    plaatsbedrijf,
+    fclt_3d_user_key
+)
+AS
+    SELECT o.mld_opdr_key,
+           NULL,
+           lcl.x (std.mld_stdmelding_omschrijving,
+                  std.mld_stdmelding_key,
+                  std.mld_stdmelding_omschrijving)
+               omschrijving,
+           sd.ins_srtdiscipline_prefix || o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
+               opdracht,
+           NVL (va.plaatsmelding, l.alg_locatie_code)
+               plaatsmelding,
+           DECODE (mld_melding_spoed,
+                   3, lcl.l ('lcl_mld_urg_normaal'),
+                   1, lcl.l ('lcl_mld_urg_kritiek'),
+                   2, lcl.l ('lcl_mld_urg_hoog'),
+                   4, lcl.l ('lcl_mld_urg_laag'))
+               prio,
+           o.mld_opdr_datumbegin
+               begindatum,
+           o.mld_opdr_einddatum
+               einddatum,
+           o.mld_opdr_plandatum
+               planning_van,
+           o.mld_opdr_plandatum2
+               planning_tot,
+           DECODE (o.mld_opdr_plandatum, NULL, lcl.l ('lcl_No'), lcl.l ('lcl_Yes'))
+               gepland,
+           o.mld_opdr_omschrijving,
+           o.mld_statusopdr_key
+               opdrachtstatuscode,
+           so.mld_statusopdr_omschrijving
+               opdrachtstatus,
+           (SELECT p.prs_perslid_naam_friendly
+              FROM prs_v_perslid_fullnames_all p
+             WHERE p.prs_perslid_key = cp.prs_perslid_key)
+               behandelaar,
+           cp.prs_contactpersoon_naam
+               behandelaar_alt,
+           'OC'
+               plantype,
+           DECODE (o.mld_statusopdr_key, 8, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               actief,
+           DECODE (o.mld_opdr_halted, 1, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               halted,
+           o.mld_opdr_flag,
+           o.mld_opdr_actiecode,
+           b.prs_bedrijf_naam,
+           COALESCE (b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats)
+               plaatsbedrijf,
+           cp.prs_perslid_key
+               fclt_3d_user_key
+      FROM mld_opdr            o,
+           mld_melding         m,
+           mld_stdmelding      std,
+           mld_statusopdr      so,
+           ins_tab_discipline  d,
+           ins_srtdiscipline   sd,
+           (SELECT v.alg_onroerendgoed_keys,
+                   v.alg_gebouw_key,
+                   v.alg_verdieping_key,
+                   v.alg_ruimte_key,
+                      l.alg_locatie_code
+                   || '-'
+                   || DECODE (
+                          v.alg_plaatsaanduiding,
+                          '', ' (' || l.alg_locatie_omschrijving || ')',
+                             v.alg_plaatsaanduiding
+                          || DECODE (v.alg_plaatsomschrijving,
+                                     '', '',
+                                     ' (' || v.alg_plaatsomschrijving || ')'))
+                       plaatsmelding
+              FROM alg_v_allonrgoed_gegevens v, alg_locatie l
+             WHERE l.alg_locatie_key = v.alg_locatie_key) va,
+           alg_locatie         l,
+           alg_district        di,
+           prs_bedrijf         b,
+           prs_contactpersoon  cp
+     WHERE     o.mld_melding_key = m.mld_melding_key(+)
+           AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
+           AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
+           AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+           AND o.mld_statusopdr_key IN (4, 5, 8)
+           AND so.mld_statusopdr_key = o.mld_statusopdr_key
+           AND m.mld_alg_onroerendgoed_keys = va.alg_onroerendgoed_keys(+)
+           AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+           AND l.alg_district_key = di.alg_district_key(+)
+           --AND o.mld_uitvoerende_keys = cp.prs_bedrijf_key
+           AND o.prs_contactpersoon_key = cp.prs_contactpersoon_key
+           AND cp.prs_bedrijf_key = b.prs_bedrijf_key
+    UNION
+    SELECT o.mld_opdr_key,
+           NULL,
+           lcl.x (std.mld_stdmelding_omschrijving,
+                  std.mld_stdmelding_key,
+                  std.mld_stdmelding_omschrijving)
+               omschrijving,
+           sd.ins_srtdiscipline_prefix || o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
+               opdracht,
+           NVL (va.plaatsmelding, l.alg_locatie_code)
+               plaatsmelding,
+           DECODE (mld_melding_spoed,
+                   3, lcl.l ('lcl_mld_urg_normaal'),
+                   1, lcl.l ('lcl_mld_urg_kritiek'),
+                   2, lcl.l ('lcl_mld_urg_hoog'),
+                   4, lcl.l ('lcl_mld_urg_laag'))
+               prio,
+           o.mld_opdr_datumbegin
+               begindatum,
+           o.mld_opdr_einddatum
+               einddatum,
+           o.mld_opdr_plandatum
+               planning_van,
+           o.mld_opdr_plandatum2
+               planning_tot,
+           DECODE (o.mld_opdr_plandatum, NULL, lcl.l ('lcl_No'), lcl.l ('lcl_Yes'))
+               gepland,
+           o.mld_opdr_omschrijving,
+           o.mld_statusopdr_key
+               opdrachtstatuscode,
+           so.mld_statusopdr_omschrijving
+               opdrachtstatus,
+           pf.prs_perslid_naam_friendly
+               behandelaar,
+           pf.prs_perslid_naam_full
+               behandelaar_alt,
+           'OUP' -- opdracht door uitvoerende interne persoon
+               plantype,
+           DECODE (o.mld_statusopdr_key, 8, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               actief,
+           DECODE (o.mld_opdr_halted, 1, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               halted,
+           o.mld_opdr_flag,
+           o.mld_opdr_actiecode,
+           b.prs_bedrijf_naam,
+           COALESCE (b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats)
+               plaatsbedrijf,
+           pf.prs_perslid_key
+               fclt_3d_user_key
+      FROM mld_opdr                 o,
+           mld_melding              m,
+           mld_stdmelding           std,
+           mld_statusopdr           so,
+           ins_tab_discipline       d,
+           ins_srtdiscipline        sd,
+           (SELECT v.alg_onroerendgoed_keys,
+                   v.alg_gebouw_key,
+                   v.alg_verdieping_key,
+                   v.alg_ruimte_key,
+                      l.alg_locatie_code
+                   || '-'
+                   || DECODE (
+                          v.alg_plaatsaanduiding,
+                          '', ' (' || l.alg_locatie_omschrijving || ')',
+                             v.alg_plaatsaanduiding
+                          || DECODE (v.alg_plaatsomschrijving,
+                                     '', '',
+                                     ' (' || v.alg_plaatsomschrijving || ')'))
+                       plaatsmelding
+              FROM alg_v_allonrgoed_gegevens v, alg_locatie l
+             WHERE l.alg_locatie_key = v.alg_locatie_key) va,
+           alg_locatie              l,
+           alg_district             di,
+           prs_v_afdeling           afd,
+           prs_bedrijf              b,
+           prs_perslid              p,
+           prs_v_perslid_fullnames  pf
+     WHERE     o.mld_melding_key = m.mld_melding_key(+)
+           AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
+           AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
+           AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+           AND o.mld_statusopdr_key IN (4, 5, 8)
+           AND so.mld_statusopdr_key = o.mld_statusopdr_key
+           AND m.mld_alg_onroerendgoed_keys = va.alg_onroerendgoed_keys(+)
+           AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+           AND l.alg_district_key = di.alg_district_key(+)
+           AND o.mld_uitvoerende_keys = p.prs_perslid_key
+           AND pf.prs_perslid_key = p.prs_perslid_key
+           AND o.prs_contactpersoon_key IS NULL
+           AND p.prs_afdeling_key = afd.prs_afdeling_key
+           AND afd.prs_bedrijf_key = b.prs_bedrijf_key
+    UNION
+    SELECT o.mld_opdr_key,
+           NULL,
+           lcl.x (std.mld_stdmelding_omschrijving,
+                  std.mld_stdmelding_key,
+                  std.mld_stdmelding_omschrijving)
+               omschrijving,
+           sd.ins_srtdiscipline_prefix || o.mld_melding_key || '/' || o.mld_opdr_bedrijfopdr_volgnr
+               opdracht,
+           NVL (va.plaatsmelding, l.alg_locatie_code)
+               plaatsmelding,
+           DECODE (mld_melding_spoed,
+                   3, lcl.l ('lcl_mld_urg_normaal'),
+                   1, lcl.l ('lcl_mld_urg_kritiek'),
+                   2, lcl.l ('lcl_mld_urg_hoog'),
+                   4, lcl.l ('lcl_mld_urg_laag'))
+               spoed,
+           o.mld_opdr_datumbegin,
+           o.mld_opdr_einddatum,
+           rrd.res_rsv_deel_van
+               planning_van,
+           rrd.res_rsv_deel_tot
+               planning_tot,
+           lcl.l ('lcl_Yes')
+               gepland,
+           o.mld_opdr_omschrijving,
+           o.mld_statusopdr_key,
+           so.mld_statusopdr_omschrijving
+               opdrachtstatus,
+           (SELECT p.prs_perslid_naam_friendly
+              FROM prs_v_perslid_fullnames_all p
+             WHERE p.prs_perslid_key = rd.res_prs_perslid_key)
+               behandelaar,
+           rd.res_deel_omschrijving,
+           'OR',
+           DECODE (o.mld_statusopdr_key, 8, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               actief,
+           DECODE (o.mld_opdr_halted, 1, lcl.l ('lcl_Yes'), lcl.l ('lcl_No'))
+               halted,
+           o.mld_opdr_flag,
+           o.mld_opdr_actiecode,
+           b.prs_bedrijf_naam,
+           COALESCE (b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats)
+               plaatsbedrijf,
+           rd.res_prs_perslid_key
+               fclt_3d_user_key
+      FROM mld_opdr            o,
+           mld_melding         m,
+           mld_stdmelding      std,
+           mld_statusopdr      so,
+           ins_tab_discipline  d,
+           ins_srtdiscipline   sd,
+           (SELECT v.alg_onroerendgoed_keys,
+                   v.alg_gebouw_key,
+                   v.alg_verdieping_key,
+                   v.alg_ruimte_key,
+                      l.alg_locatie_code
+                   || '-'
+                   || DECODE (
+                          v.alg_plaatsaanduiding,
+                          '', ' (' || l.alg_locatie_omschrijving || ')',
+                             v.alg_plaatsaanduiding
+                          || DECODE (v.alg_plaatsomschrijving,
+                                     '', '',
+                                     ' (' || v.alg_plaatsomschrijving || ')'))
+                       plaatsmelding
+              FROM alg_v_allonrgoed_gegevens v, alg_locatie l
+             WHERE l.alg_locatie_key = v.alg_locatie_key) va,
+           alg_locatie         l,
+           alg_district        di,
+           prs_bedrijf         b,
+           res_deel            rd,
+           res_rsv_deel        rrd,
+           res_rsv_ruimte      rrr
+     WHERE     o.mld_melding_key = m.mld_melding_key(+)
+           AND m.mld_stdmelding_key = std.mld_stdmelding_key(+)
+           AND std.mld_ins_discipline_key = d.ins_discipline_key(+)
+           AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+           AND o.mld_statusopdr_key IN (4, 5, 8)
+           AND so.mld_statusopdr_key = o.mld_statusopdr_key
+           AND m.mld_alg_onroerendgoed_keys = va.alg_onroerendgoed_keys(+)
+           AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+           AND l.alg_district_key = di.alg_district_key(+)
+           AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+           AND rrr.mld_opdr_key = o.mld_opdr_key
+           AND rd.res_deel_verwijder IS NULL
+           AND rrd.res_deel_key = rd.res_deel_key
+           AND o.mld_uitvoerende_keys = b.prs_bedrijf_key
+    UNION
+    SELECT NULL,
+           rrr.res_rsv_ruimte_key,
+           lcl.x (ra.res_activiteit_omschrijving,
+                  ra.res_activiteit_key,
+                  ra.res_activiteit_omschrijving)
+               activiteit,
+           'R' || rrr.res_reservering_key || '/' || rrr.res_rsv_ruimte_volgnr
+               opdracht,
+           va.plaatsmelding
+               plaatsmelding,
+           DECODE (3,
+                   3, lcl.l ('lcl_mld_urg_normaal'),
+                   1, lcl.l ('lcl_mld_urg_kritiek'),
+                   2, lcl.l ('lcl_mld_urg_hoog'),
+                   4, lcl.l ('lcl_mld_urg_laag'))
+               spoed,
+           rrr.res_rsv_ruimte_van,
+           rrr.res_rsv_ruimte_tot,
+           rrd.res_rsv_deel_van
+               planning_van,
+           rrd.res_rsv_deel_tot
+               planning_tot,
+           lcl.l ('lcl_Yes')
+               gepland,
+           rrr.res_rsv_ruimte_omschrijving
+               omschrijving,
+           rrr.res_status_fo_key,
+           rs.res_status_fo_omschrijving
+               opdrachtstatus,
+           (SELECT p.prs_perslid_naam_friendly
+              FROM prs_v_perslid_fullnames_all p
+             WHERE p.prs_perslid_key = rd.res_prs_perslid_key)
+               behandelaar,
+           rd.res_deel_omschrijving,
+           'R',
+           CASE
+               WHEN SYSDATE BETWEEN rrd.res_rsv_deel_van AND rrd.res_rsv_deel_tot
+               THEN
+                   lcl.l ('lcl_Yes')
+               ELSE
+                   lcl.l ('lcl_No')
+           END
+               actief,
+           NULL
+               halted,
+           res_rsv_ruimte_flag
+               markering,
+           NULL
+               actiecode,
+           b.prs_bedrijf_naam,
+           COALESCE (b.prs_bedrijf_bezoek_plaats, b.prs_bedrijf_post_plaats)
+               plaatsbedrijf,
+           rd.res_prs_perslid_key
+               fclt_3d_user_key
+      FROM (SELECT v.alg_onroerendgoed_keys,
+                   v.alg_gebouw_key,
+                   v.alg_verdieping_key,
+                   v.alg_ruimte_key,
+                      l.alg_locatie_code
+                   || '-'
+                   || DECODE (
+                          v.alg_plaatsaanduiding,
+                          '', ' (' || l.alg_locatie_omschrijving || ')',
+                             v.alg_plaatsaanduiding
+                          || DECODE (v.alg_plaatsomschrijving,
+                                     '', '',
+                                     ' (' || v.alg_plaatsomschrijving || ')'))
+                       plaatsmelding
+              FROM alg_v_allonrgoed_gegevens v, alg_locatie l
+             WHERE l.alg_locatie_key = v.alg_locatie_key) va,
+           prs_bedrijf     b,
+           prs_v_afdeling afd,
+           prs_perslid     p,
+           (  SELECT rro.res_ruimte_opstel_key, MIN (rar.alg_ruimte_key) alg_ruimte_key
+                FROM res_ruimte_opstelling rro, res_alg_ruimte rar
+               WHERE rro.res_ruimte_key = rar.res_ruimte_key AND rar.res_alg_ruimte_verwijder IS NULL
+            GROUP BY res_ruimte_opstel_key) opstelalg,                       -- same old story, todo
+           res_status_fo   rs,
+           res_activiteit  ra,
+           res_deel        rd,
+           res_rsv_deel    rrd,
+           res_rsv_ruimte  rrr
+     WHERE     rrr.res_ruimte_opstel_key = opstelalg.res_ruimte_opstel_key(+)
+           AND va.alg_ruimte_key = COALESCE (rrr.alg_ruimte_key, opstelalg.alg_ruimte_key)
+           AND rs.res_status_fo_key = rrr.res_status_fo_key
+           AND ra.res_activiteit_key = rrr.res_activiteit_key
+           AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+           AND rd.res_deel_verwijder IS NULL
+           AND rrd.res_deel_key = rd.res_deel_key
+           AND rd.res_prs_perslid_key = p.prs_perslid_key
+           AND p.prs_afdeling_key = afd.prs_afdeling_key
+           AND afd.prs_bedrijf_key = b.prs_bedrijf_key;
+
+
 
 /* ROOT VIEWS for User defined Reports (UDR) */
 /* since melding and opdracht are joined later on, the columns must be unique */

PRJ/PRJ_PAC.SRC

@@ -148,11 +148,11 @@ AS
                AND w.prs_alg_ruimte_key = parent_key
                AND w.prs_werkplek_volgnr = TO_NUMBER (element_omschrijving);
             -- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
-            IF TO_NUMBER (element_omschrijving) = 999
+            IF TO_NUMBER (element_omschrijving) = 99999999
             THEN
-               -- Ik kan met 3 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
+               -- Ik kan met 8 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
                omschrijving :=
-                            forceuniqueness (element_type, parent_key, '000', NULL);
+                            forceuniqueness (element_type, parent_key, '00000000', NULL);
             ELSE
                omschrijving :=
                   forceuniqueness (element_type,
@@ -180,11 +180,11 @@ AS
                AND w.prj_werkplek_volgnr = element_omschrijving
                AND w.prj_werkplek_verwijder IS NULL;
             -- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
-            IF TO_NUMBER (element_omschrijving) = 999
+            IF TO_NUMBER (element_omschrijving) = 99999999
             THEN
-               -- Ik kan met 3 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
+               -- Ik kan met 8 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
                omschrijving :=
-                            forceuniqueness (element_type, parent_key, '000', NULL);
+                            forceuniqueness (element_type, parent_key, '00000000', NULL);
             ELSE
                omschrijving :=
                   forceuniqueness (element_type,

PRJ/PRJ_TAB.SRC

@@ -96,7 +96,7 @@ CREATE_TABLE(prj_werkplek, 0)
          NUMBER(10)
          CONSTRAINT prj_r_prs_werkplek_key REFERENCES prs_werkplek(prs_werkplek_key) ON DELETE CASCADE,
     prj_werkplek_volgnr
-        NUMBER(4)
+        NUMBER(8)
         NOT_NULL(prj_werkplek_volgnr, prj_c_prj_werkplek_volgnr),
     prj_werkplek_omschrijving
         VARCHAR2(30),

PRS/PRS_PAC.SRC

@@ -104,7 +104,7 @@ AS
 
    PROCEDURE import_perslid (p_import_key IN NUMBER, p_seq_of_columns IN VARCHAR2, p_header IN VARCHAR2);
 
-   PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2);
+   PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2, p_import_kenmerk IN NUMBER DEFAULT 0);
 
    PROCEDURE delete_perslid (p_import_key IN NUMBER, p_perslid_key IN NUMBER);
 
@@ -279,6 +279,8 @@ AS
       lkpgverantwkey1 prs_kostenplaatsgrp.prs_perslid_key%TYPE;
       lkpgverantwkey2 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fiat2_key%TYPE;
       lkpgverantwkey3 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fiat3_key%TYPE;
+      lkpgfinlimit1 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit1%TYPE;
+      lkpgfinlimit2 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit2%TYPE;
       lexcludeisvervanger NUMBER;
       lexcludeiskpgverantw NUMBER;
       lkpverantwlimiet fac_profiel.fac_profiel_limiet%TYPE;
@@ -387,10 +389,14 @@ AS
          BEGIN
             SELECT COALESCE(kg.prs_perslid_key, -1),
                    COALESCE(kg.prs_kostenplaatsgrp_fiat2_key, -1),
-                   COALESCE(kg.prs_kostenplaatsgrp_fiat3_key, -1)
+                   COALESCE(kg.prs_kostenplaatsgrp_fiat3_key, -1),
+                   COALESCE(kg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1'))),
+                   COALESCE(kg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
               INTO lkpgverantwkey1,
                    lkpgverantwkey2,
-                   lkpgverantwkey3
+                   lkpgverantwkey3,
+                   lkpgfinlimit1,
+                   lkpgfinlimit2
               FROM prs_kostenplaats k,
                    prs_kostenplaatsgrp kg
              WHERE prs_kostenplaats_key = pkostenplaats_key
@@ -410,9 +416,9 @@ AS
          -- Als er GEEN fiatbedrag is meegegeven dan de LAATSTE fiatteur opleveren. De ondergrens is dan pondergrens (normaalgesproken het totale opdrachtbedrag).
          IF pfiatbedrag >= 0
          THEN
-             lgrens := pfiatbedrag; // De volgende fiatteur opleveren.
+             lgrens := pfiatbedrag; -- De volgende fiatteur opleveren.
          ELSE
-             lgrens := pondergrens; // De laatste fiatteur opleveren.
+             lgrens := pondergrens; -- De laatste fiatteur opleveren.
          END IF;
 
          WHILE lteller <= 3 AND lfoundfiatteur = 0
@@ -421,15 +427,15 @@ AS
              WHEN lteller = 1
              THEN
                 lkpgverantwkey := lkpgverantwkey1;
-                llastfiat := lgrens < fac.getsetting ('mld_opdr_kpg_fin_limit1');
+                llastfiat := lgrens < lkpgfinlimit1;
              WHEN lteller = 2
              THEN
                 lkpgverantwkey := lkpgverantwkey2;
-                llastfiat := lgrens < fac.getsetting ('mld_opdr_kpg_fin_limit2');
+                llastfiat := lgrens < lkpgfinlimit2;
              WHEN lteller = 3
              THEN
                 lkpgverantwkey := lkpgverantwkey3;
-                llastfiat := lgrens >= fac.getsetting ('mld_opdr_kpg_fin_limit2') OR
+                llastfiat := lgrens >= lkpgfinlimit2 OR
                              lexcludeiskpgverantw = 1; -- Als de 2de fiatteur de exclude is dan moet de 3de fiatteur toch nog fiatteren.
              END CASE;
 
@@ -482,11 +488,11 @@ AS
                   -- en de goedkeurder heeft aangegeven dat de opdracht opnieuw als een nieuwe opdracht moet worden gefiatteerd.
                   -- Er kan dan in dat geval nagegaan worden tot welk bedrag er is gefiatteerd.
                   THEN
-                     prs.getfiatteur(o.prs_kostenplaats_key, pexcludekey, mld_opdr_kosten, std.mld_ins_discipline_key, COALESCE(mld_opdr_fiatbedrag, -1))
+                     prs.getfiatteur(o.prs_kostenplaats_key, pexcludekey, mld_opdr_kosten, std.mld_ins_discipline_key, COALESCE(mld_opdr_fiatbedrag, 0))
-                  WHEN mld_opdr_fiatbedrag >= fac.getsetting ('mld_opdr_kpg_fin_limit2')
+                  WHEN mld_opdr_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
                   THEN
                      COALESCE(prs_kostenplaatsgrp_fiat3_key, -1)
-                  WHEN mld_opdr_fiatbedrag >= fac.getsetting ('mld_opdr_kpg_fin_limit1')
+                  WHEN mld_opdr_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1')))
                   THEN
                      COALESCE(prs_kostenplaatsgrp_fiat2_key, -1)
                   ELSE
@@ -515,10 +521,10 @@ AS
                                    AND fac_tracking_refkey = b.bes_bestelling_key)
                       THEN
                           prs.getfiatteur(b.prs_kostenplaats_key, pexcludekey, binfo.totaal, binfo.ins_discipline_key, COALESCE(bes_bestelling_fiatbedrag, -1))
-                      WHEN bes_bestelling_fiatbedrag >= fac.getsetting('mld_opdr_kpg_fin_limit2')
+                      WHEN bes_bestelling_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
                       THEN
                           COALESCE(prs_kostenplaatsgrp_fiat3_key, -1)
-                      WHEN bes_bestelling_fiatbedrag >= fac.getsetting('mld_opdr_kpg_fin_limit1')
+                      WHEN bes_bestelling_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1')))
                       THEN
                           COALESCE(prs_kostenplaatsgrp_fiat2_key, -1)
                       ELSE
@@ -597,7 +603,7 @@ AS
                            p_waarde        IN VARCHAR2)
   IS
       v_count    NUMBER;
-      v_niveau   VARCHAR2 (1);
+      v_niveau   prs_kenmerk.prs_kenmerk_niveau%TYPE;
   BEGIN
       -- niveau van prs_kenmerk ophalen, omdat deze ook in prs_kenmerklink wordt opgeslagen
       SELECT prs_kenmerk_niveau
@@ -749,11 +755,11 @@ AS
                 IF v_wp_key IS NULL
                 THEN
                     -- Er is geen vrije (kan ook omdat we impliciet zijn), maak dan een nieuwe vrije werkplek.
-                    SELECT MIN (ll) eerstvrije
+                    SELECT COALESCE(MIN (ll), 1) eerstvrije
                       INTO v_wp_volgnr
-                      FROM (    SELECT   LEVEL ll
+                      FROM ( SELECT prs_werkplek_volgnr +1 AS ll
-                                  FROM   DUAL
+                               FROM prs_werkplek
-                            CONNECT BY   LEVEL <= 9999
+                              WHERE prs_alg_ruimte_key = p_ruimte_key
                              MINUS
                              SELECT prs_werkplek_volgnr
                                FROM prs_werkplek
@@ -945,11 +951,11 @@ AS
            WHERE fac_import_key = p_import_key
         ORDER BY fac_imp_file_index;
   BEGIN
-     // JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
+     -- JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
-     //      toevoegen zodat het script ook multi-user veilig is,
+     --      toevoegen zodat het script ook multi-user veilig is,
-     //      Heel veel klant-specifieke imports(/aanvullingen) controleren
+     --      Heel veel klant-specifieke imports(/aanvullingen) controleren
-     //      echter niet op de fac_import_key en zouden flink de fout in gaan.
+     --      echter niet op de fac_import_key en zouden flink de fout in gaan.
-     //      Daarom vooralsnog hier toch maar alles verwijderen
+     --      Daarom vooralsnog hier toch maar alles verwijderen
      DELETE FROM   fac_imp_perslid;
 
      SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
@@ -1802,7 +1808,8 @@ AS
   --                     R,V,G,L,D - werkplek(en) op dit niveau verwijderen
   PROCEDURE update_perslid (p_import_key         IN NUMBER,
                             p_sleutelkolom       IN VARCHAR2,
-                            p_alg_type           IN VARCHAR2)
+                            p_alg_type           IN VARCHAR2,
+                            p_import_kenmerk     IN NUMBER DEFAULT 0)
   IS
      c_fielddelimitor   VARCHAR2 (1) := ';';
 
@@ -1852,8 +1859,177 @@ AS
         SELECT * FROM fac_imp_perslid;
 
      recPersLid         cPersLid%ROWTYPE;
-  BEGIN
 
+    -- SUBPROC
+    PROCEDURE upsertkenmerk_imp(p_perslid_key IN NUMBER, p_kenmerkwaarde IN VARCHAR2)
+    AS
+        ccount             NUMBER;
+        v_kenmerk          VARCHAR2(60);
+        v_sql              VARCHAR2(1000);
+        v_cursor           INTEGER;
+        v_rowsprocessed    NUMBER DEFAULT 0;
+        v_waarde           prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
+        v_kenmerk_key      prs_kenmerk.prs_kenmerk_key%TYPE;
+        v_kenmerk_type     prs_kenmerk.prs_kenmerk_kenmerktype%TYPE;
+        v_kenmerk_niveau   prs_kenmerk.prs_kenmerk_niveau%TYPE;
+        v_objectnaam       fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
+        v_kolomnaam        fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
+        v_kolomtxt         fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
+        v_kenmerklink_key  prs_kenmerklink.prs_kenmerklink_key%TYPE;
+    BEGIN
+        IF p_kenmerkwaarde IS NOT NULL
+        THEN
+            v_errormsg := 'Fout bij bepalen kenmerk [' || p_kenmerkwaarde || ']';
+
+            v_kenmerk := SUBSTR(p_kenmerkwaarde, 1, INSTR(p_kenmerkwaarde, '=') - 1);
+            v_waarde  := SUBSTR(p_kenmerkwaarde, INSTR(p_kenmerkwaarde, '=') + 1);
+
+            IF fac.safe_to_number (v_kenmerk) IS NULL
+            THEN
+               SELECT k.prs_kenmerk_key,
+                      k.prs_kenmerk_kenmerktype,
+                      k.prs_kenmerk_niveau
+                 INTO v_kenmerk_key,
+                      v_kenmerk_type,
+                      v_kenmerk_niveau
+                 FROM (  SELECT ks.prs_kenmerk_key,
+                                ks.prs_kenmerk_kenmerktype,
+                                ks.prs_kenmerk_niveau,
+                                ks.prs_kenmerk_volgnr
+                           FROM prs_v_aanwezigkenmerk ks
+                          WHERE ks.prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
+                            AND COALESCE(UPPER(ks.prs_kenmerk_omschrijving), ks.prs_kenmerk_upper) = UPPER(v_kenmerk)
+                          ORDER BY ks.prs_kenmerk_volgnr
+                      ) k
+                WHERE ROWNUM = 1;
+            ELSE
+                SELECT k.prs_kenmerk_key,
+                       k.prs_kenmerk_kenmerktype,
+                       k.prs_kenmerk_niveau
+                  INTO v_kenmerk_key,
+                       v_kenmerk_type,
+                       v_kenmerk_niveau
+                  FROM prs_v_aanwezigkenmerk k
+                 WHERE k.prs_kenmerk_key = v_kenmerk
+                   AND k.prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
+                 ORDER BY k.prs_kenmerk_volgnr;
+            END IF;
+
+            IF v_waarde IS NOT NULL
+            THEN
+                IF v_kenmerk_type IN ('R', 'S')
+                THEN
+                    v_errormsg := 'Fout bij bepalen eigen tabel';
+
+                    SELECT COUNT (*)
+                      INTO ccount
+                      FROM prs_kenmerk k,
+                           fac_kenmerkdomein d
+                     WHERE k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                       AND d.fac_usrtab_key IS NOT NULL
+                       AND k.prs_kenmerk_key = v_kenmerk_key;
+
+                    v_errormsg := 'Fout bij bepalen nieuwe waarde [' || v_waarde || ']';
+
+                    IF ccount = 1
+                    THEN                                                          -- Eigen tabel
+                        SELECT TO_CHAR(ud.fac_usrdata_key)
+                          INTO v_waarde
+                          FROM prs_kenmerk k,
+                               fac_kenmerkdomein d,
+                               fac_v_aanwezigusrdata ud
+                         WHERE k.prs_kenmerk_key = v_kenmerk_key
+                           AND k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                           AND d.fac_usrtab_key = ud.fac_usrtab_key
+                           AND UPPER(TRIM(ud.fac_usrdata_omschr)) = UPPER(v_waarde);
+                    ELSE                                                         -- FACILITOR view/tabel
+                        SELECT d.fac_kenmerkdomein_objectnaam,
+                               d.fac_kenmerkdomein_kolomnaam,
+                               d.fac_kenmerkdomein_kolomtxt
+                          INTO v_objectnaam,
+                               v_kolomnaam,
+                               v_kolomtxt
+                          FROM prs_kenmerk k,
+                               fac_kenmerkdomein d
+                         WHERE k.prs_kenmerk_key = v_kenmerk_key
+                           AND k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                           AND d.fac_usrtab_key IS NULL;
+
+                         v_sql := 'SELECT MAX(' || v_kolomnaam || ')'
+                               || '  FROM '     || v_objectnaam
+                               || ' WHERE UPPER(TRIM(' || v_kolomtxt || ')) = UPPER(:pwaarde)';
+
+                         v_cursor := DBMS_SQL.open_cursor;
+                         DBMS_SQL.parse (v_cursor, v_sql, DBMS_SQL.native);
+                         DBMS_SQL.BIND_VARIABLE(v_cursor, ':pwaarde', v_waarde);
+                         DBMS_SQL.define_column(v_cursor, 1, v_waarde, 255);
+                         v_rowsprocessed := DBMS_SQL.execute_and_fetch (v_cursor);
+                         DBMS_SQL.column_value (v_cursor, 1, v_waarde);
+                         DBMS_SQL.close_cursor(v_cursor);
+                    END IF;
+                ELSE                                 -- C(Karakter)/D(Datum)/N(Numeriek)/X(Bestandsnaam)
+                    NULL; -- v_waarde := p_waarde;
+                END IF;
+
+                v_errormsg := 'Fout bij bepalen huidige waarde';
+
+                SELECT COUNT(*),
+                       MAX(prs_kenmerklink_key)
+                  INTO ccount,
+                       v_kenmerklink_key
+                  FROM prs_v_aanwezigkenmerklink
+                 WHERE prs_link_key = p_perslid_key
+                   AND prs_kenmerk_key = v_kenmerk_key;
+
+                IF v_kenmerk_type = 'N'  -- Alleen voor numerieke waarden de decimale komma vervangen door punt.
+                THEN
+                    v_waarde := REPLACE (v_waarde, ',', '.');
+                END IF;
+
+                IF ccount = 0
+                THEN
+                    v_errormsg := 'Fout bij toevoegen waarde [' || v_waarde || ']'
+                               || ' voor perslid_key=' || TO_CHAR(p_perslid_key)
+                               || ', kenmerk_key=' || TO_CHAR(v_kenmerk_key)
+                               || ', link_niveau=' || v_kenmerk_niveau;
+
+                    INSERT INTO prs_kenmerklink (prs_link_key,
+                                                 prs_kenmerk_key,
+                                                 prs_kenmerklink_niveau,
+                                                 prs_kenmerklink_waarde)
+                    VALUES (p_perslid_key,
+                            v_kenmerk_key,
+                            v_kenmerk_niveau,
+                            v_waarde);
+                ELSE
+                    v_errormsg := 'Fout bij bijwerken waarde [' || v_waarde || ']'
+                               || ' voor kenmerklink_key=' || TO_CHAR(v_kenmerklink_key);
+
+                    UPDATE prs_kenmerklink
+                       SET prs_kenmerklink_waarde = v_waarde
+                     WHERE prs_kenmerklink_key = v_kenmerklink_key;
+                END IF;
+            ELSE
+                -- Verwijder kenmerken die al bestaan maar met de nieuwe import leeg zijn.
+                DELETE prs_kenmerklink
+                 WHERE prs_kenmerk_key = v_kenmerk_key
+                   AND prs_link_key = p_perslid_key;
+            END IF;
+        END IF;
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            oracle_err_num := SQLCODE;
+            oracle_err_mes := SUBSTR(SQLERRM, 1, 200);
+            v_errormsg := v_errormsg || ' (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+            fac.imp_writelog (p_import_key,
+                              'W',
+                              v_aanduiding || v_errormsg,
+                              'upsertkenmerk_imp');
+
+    END; -- upsertkenmerk_imp
+
+  BEGIN
      v_count_update := 0;
      v_count_tot := 0;
      v_count_error := 0;
@@ -1893,8 +2069,7 @@ AS
               v_count_error := v_count_error + 1;
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
-              v_errormsg :=
+              v_errormsg := ' (ORACLE error number = <'
-                    ' (ORACLE error number = <'
                          || ORACLE_err_num
                          || '> ORACLE error message = <'
                          || ORACLE_err_mes
@@ -1937,11 +2112,8 @@ AS
            v_errorhint := '';
            v_count_tot := v_count_tot + 1;
 
-           v_aanduiding :=
+           v_aanduiding := recPersLid.prs_perslid_naam || '|'
-                 recPersLid.prs_perslid_naam
+                        || recPersLid.prs_perslid_voornaam || '| ';
-              || '|'
-              || recPersLid.prs_perslid_voornaam
-              || '| ';
            v_errormsg := '';
 
            v_errorhint := 'Fout bij bepalen functie';
@@ -2020,23 +2192,16 @@ AS
              INTO v_perslid_key, v_count
              FROM prs_perslid
             WHERE prs_perslid_verwijder IS NULL
-                  AND ( (p_sleutelkolom IS NULL
+              AND (  (   p_sleutelkolom IS NULL
-                         AND UPPER (prs_perslid_naam) =
+                     AND UPPER (prs_perslid_naam) = UPPER (recPersLid.prs_perslid_naam)
-                               UPPER (recPersLid.prs_perslid_naam)
+                     AND UPPER (prs_perslid_voornaam) = UPPER (recPersLid.prs_perslid_voornaam)
-                         AND UPPER (prs_perslid_voornaam) =
+                     )
-                               UPPER (recPersLid.prs_perslid_voornaam))
+                  OR (  UPPER (p_sleutelkolom) = 'NR'     AND UPPER (prs_perslid_nr) = UPPER (recPersLid.prs_perslid_nr)
-                       OR (UPPER (p_sleutelkolom) = 'NR'
+                     OR UPPER (p_sleutelkolom) = 'EMAIL'  AND UPPER (prs_perslid_email) = UPPER (recPersLid.prs_perslid_email)
-                           AND UPPER (prs_perslid_nr) =
+                     OR UPPER (p_sleutelkolom) = 'LOGIN'  AND UPPER (prs_perslid_oslogin) = UPPER (recPersLid.prs_perslid_oslogin)
-                                 UPPER (recPersLid.prs_perslid_nr)
+                     OR UPPER (p_sleutelkolom) = 'APIKEY' AND UPPER (prs_perslid_apikey) = UPPER (recPersLid.prs_perslid_apikey)
-                           OR UPPER (p_sleutelkolom) = 'EMAIL'
+                     )
-                             AND UPPER (prs_perslid_email) =
+                  );
-                                   UPPER (recPersLid.prs_perslid_email)
-                           OR UPPER (p_sleutelkolom) = 'LOGIN'
-                             AND UPPER (prs_perslid_oslogin) =
-                                   UPPER (recPersLid.prs_perslid_oslogin)
-                           OR UPPER (p_sleutelkolom) = 'APIKEY'
-                             AND UPPER (prs_perslid_apikey) =
-                                   UPPER (recPersLid.prs_perslid_apikey)));
 
            IF (v_count = 0)
            THEN
@@ -2087,10 +2252,8 @@ AS
                  SET prs_srtperslid_key = v_srtperslid_key,
                      prs_afdeling_key = v_afdeling_key,
                      prs_perslid_naam = v_prs_perslid_naam,
-                     prs_perslid_voorletters =
+                     prs_perslid_voorletters = recPersLid.prs_perslid_voorletters,
-                        recPersLid.prs_perslid_voorletters,
+                     prs_perslid_tussenvoegsel = v_prs_perslid_tussenvoegsel,
-                     prs_perslid_tussenvoegsel =
-                        v_prs_perslid_tussenvoegsel,
                      prs_perslid_voornaam = recPersLid.prs_perslid_voornaam,
                      prs_perslid_nr = recPersLid.prs_perslid_nr,
                      prs_perslid_dienstverband = recPersLid.prs_perslid_dienstverband,
@@ -2117,22 +2280,37 @@ AS
 
            COMMIT;                      -- persoon in ieder geval toegevoegd.
 
-           v_aanduiding :=
+           IF (p_import_kenmerk = 1)
-                 recPersLid.prs_perslid_nr
+           THEN
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk1);
-              || recPersLid.prs_perslid_naam
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk2);
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk3);
-              || recPersLid.prs_perslid_voornaam
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk4);
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk5);
-              || recPersLid.alg_locatie_code
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk6);
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk7);
-              || recPersLid.alg_gebouw_code
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk8);
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk9);
-              || recPersLid.alg_verdieping_volgnr
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk10);
-              || '|'
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk11);
-              || recPersLid.alg_ruimte_nr
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk12);
-              || ' - ';
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk13);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk14);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk15);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk16);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk17);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk18);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk19);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk20);
+           END IF;
 
+           v_aanduiding := recPersLid.prs_perslid_nr || '|'
+                        || recPersLid.prs_perslid_naam || '|'
+                        || recPersLid.prs_perslid_voornaam || '|'
+                        || recPersLid.alg_locatie_code || '|'
+                        || recPersLid.alg_gebouw_code  || '|'
+                        || recPersLid.alg_verdieping_volgnr || '|'
+                        || recPersLid.alg_ruimte_nr || ' - ';
 
            v_locatie_key := NULL;
            v_gebouw_key := NULL;

PRS/PRS_TAB.SRC

@@ -179,6 +179,10 @@ CREATE_TABLE(prs_bedrijf_bedrijf,0)
         DEFAULT SYSDATE,
    prs_bedrijf_bedrijf_einddatum
         DATE,
+   prs_bedrijf_bedrijf_startdt2
+        DATE,
+   prs_bedrijf_bedrijf_einddt2
+        DATE,
    prs_bedrijf_bedrijf_status
         NUMBER(1)         -- voor mld_opdr_teverzenden: 0=niet te verzenden 1=te verzenden
         DEFAULT(0)
@@ -195,13 +199,19 @@ CREATE_TABLE(prs_bedrijf_bedrijf,0)
         NUMBER(6,2),      -- bedrag in euro's tbv berekening icm chargemode
    prs_bedrijf_bedrijf_fee3
         NUMBER(6,2),       -- bedrag in euro's tbv berekening icm chargemode
+   prs_bedrijf_bedrijf_fee4
+        NUMBER(6,2),       -- bedrag in euro's tbv berekening icm chargemode (voor aannemer)
 --   In FIN_TAB.SRC:
 --   fin_btwtabelwaarde_key -- default btw
 --        NUMBER(10)
 --        CONSTRAINT prs_r_fin_btwtabelwaarde_key2 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
    prs_bedrijf_bedrijf_g_pct -- G-percentage
         NUMBER(3)
-        CONSTRAINT prs_c_bedrijf_bedrijf_g_pct CHECK(prs_bedrijf_bedrijf_g_pct BETWEEN 0 AND 100)
+        CONSTRAINT prs_c_bedrijf_bedrijf_g_pct CHECK(prs_bedrijf_bedrijf_g_pct BETWEEN 0 AND 100),
+   prs_bedrijf_bedrijf_account1
+        VARCHAR2(60),
+   prs_bedrijf_bedrijf_account2
+        VARCHAR2(60)
 );
 
 /*  Kruistabel met elektronische adressen van een bedrijf, toegepast door
@@ -262,10 +272,16 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
         VARCHAR2(320),
     prs_bedrijfadres_privkey
         VARCHAR2(4000),
-    prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, >4=future use */
+    prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, 4=oAuth basic >5=future use */
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
+    prs_bedrijfadres_oa_token_url
+        VARCHAR2(512),
+    prs_bedrijfadres_oa_scope
+        VARCHAR2(512),
+    prs_bedrijfadres_oa_resource
+        VARCHAR2(512),
 --    prs_bedrijfadres_lockuser_key
 --        NUMBER(10)
 --        CONSTRAINT prs_r_prs_bedrijfadres_lckusr REFERENCES prs_perslid(prs_perslid_key),
@@ -279,7 +295,7 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
-    prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data, 2=application/json, , 3=text/html */
+    prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data, 2=application/json, 3=text/html, 4=application/x-www-form-urlencoded */
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
@@ -301,6 +317,10 @@ CREATE_TABLE(prs_kostenplaatsgrp,0) (
        NUMBER(8),
    prs_kostenplaatsgrp_limperiode /* 0(of NULL)=geen(oneindig), 1=maand, 2=jaar */
        NUMBER(1),
+   prs_kostenplaatsgrp_fin_limit1
+       NUMBER(8),
+   prs_kostenplaatsgrp_fin_limit2
+       NUMBER(8),
 --   prs_perslid_key
 --       NUMBER(10)
 --       CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key),
@@ -490,7 +510,7 @@ CREATE_TABLE(prs_werkplek,0)
     prs_werkplek_module
         VARCHAR2(3),
     prs_werkplek_volgnr
-        NUMBER(4)
+        NUMBER(8)
         NOT_NULL(prs_werkplek_volgnr, prs_c_prs_werkplek_volgnr),
     prs_werkplek_omschrijving
         VARCHAR2(30),
@@ -749,13 +769,11 @@ ALTER TABLE fac_session ADD (
         NUMBER(10)
         CONSTRAINT fac_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
-/* Alvast voor 2022.1
 ALTER TABLE fac_widget_page ADD (
   prs_perslid_key
         NUMBER(10)
         CONSTRAINT fac_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
-*/
 ALTER TABLE fac_bookmark ADD (
   prs_perslid_key
         NUMBER(10)
@@ -1199,6 +1217,9 @@ prs_bedrijf_key
     NUMBER(10)
     NOT_NULL(prs_bedrijf_key, prs_c_prs_bedrijf_key2)
     CONSTRAINT prs_r_prs_bedrijf_key5 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
+prs_perslid_key
+    NUMBER(10)
+    CONSTRAINT prs_r_prs_perslid_key21 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
 prs_dienst_key
     NUMBER(10)
     NOT_NULL(prs_dienst_key, prs_c_prs_dienst_key1)
@@ -1212,8 +1233,9 @@ alg_gebouw_key
 prs_bdl_t_uitvoertijd
     MLD_T_UITVOERTIJD
     CONSTRAINT prs_c_prs_bdl_t_uitvoertijd CHECK(prs_bdl_t_uitvoertijd.tijdsduur >= 0), /* of null */
-CONSTRAINT prs_u_prs_bedrijfdienstloc_key UNIQUE (prs_bedrijf_key, prs_dienst_key, alg_locatie_key, alg_gebouw_key),
+CONSTRAINT prs_u_prs_bedrijfdienstloc_key UNIQUE (prs_bedrijf_key, prs_perslid_key, prs_dienst_key, alg_locatie_key, alg_gebouw_key),
-CONSTRAINT prs_c_prs_bedrijfdienstloc CHECK (alg_locatie_key IS NULL OR alg_gebouw_key IS NULL)
+CONSTRAINT prs_c_prs_bedrijfdienstloc CHECK (alg_locatie_key IS NULL OR alg_gebouw_key IS NULL),
+CONSTRAINT prs_c_prs_bdlbp1 CHECK ((prs_bedrijf_key IS NOT NULL AND prs_perslid_key IS NULL) OR (prs_bedrijf_key IS NULL AND prs_perslid_key IS NOT NULL))
 );
 ALTER TABLE prs_bedrijfdienstlocatie MODIFY prs_bdl_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
@@ -1330,7 +1352,18 @@ CREATE_TABLE(prs_perslid_inzetbaar, 0)
         CONSTRAINT prs_c_prs_perslid_inzet_tot2 CHECK(prs_perslid_inzetbaar_tot>=0 AND prs_perslid_inzetbaar_tot<1440),
     prs_perslid_inzetbaar_dag  -- 0=zondag, 1=maandag, 2=dinsdag, 3=woensdag, 4=donderdag, 5=vrijdag, 6=zaterdag
         NUMBER(1)
-        NOT_NULL(prs_perslid_inzetbaar_dag, prs_c_prs_perslid_inzet_dag)
+        NOT_NULL(prs_perslid_inzetbaar_dag, prs_c_prs_perslid_inzet_dag),
+    alg_locatie_key /* future use */
+        NUMBER(10)
+        CONSTRAINT prs_r_alg_locatie_key5 REFERENCES alg_locatie(alg_locatie_key),
+    prs_perslid_inzetbaar_plaats /* unstructured variant of alg_locatie_key */
+        VARCHAR2 (200),
+    prs_perslid_inzetbaar_plaats_x /* x of _plaats */
+        NUMBER(16,6),
+    prs_perslid_inzetbaar_plaats_y /* y of _plaats */
+        NUMBER(16,6),
+    prs_perslid_inzetbaar_radius
+        NUMBER (6)
 );
 
 CREATE_TABLE(prs_perslid_tabs, 0)

PRS/PRS_TRI.SRC

@@ -267,9 +267,13 @@ BEGIN
            OR :new.prs_perslid_oslogin2 IS NULL AND :old.prs_perslid_oslogin2 IS NOT NULL
            OR NVL(:new.prs_perslid_wachtwoord_hash, 'X') <> NVL(:old.prs_perslid_wachtwoord_hash, 'X')
            )
-       OR      fac.getsetting ('login_use_email') = 1
+       OR  (   fac.getsetting ('login_use_email') = 1
            AND :new.prs_perslid_email IS NULL
            AND :old.prs_perslid_email IS NOT NULL
+           )
+       OR  (   :new.prs_perslid_inactief IS NOT NULL
+           AND :old.prs_perslid_inactief IS NULL
+           )
     THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
          --          automatisch door uitgelogd
         :new.prs_perslid_credentials_datum := SYSDATE;
@@ -765,6 +769,8 @@ AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fiat2_key)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fiat3_key)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limiet)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limperiode)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fin_limit1)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fin_limit2)
 AUDIT_END()
 
 CREATE_TRIGGER(prs_t_prs_kostenplaatsgrp_B_IU)

PRS/PRS_VIE.SRC

@@ -105,7 +105,7 @@ CREATE_VIEW (prs_v_perslid_print,0) AS
            ,prs_kostenplaats k
     WHERE   PRS_P.prs_afdeling_key = PRS_A.prs_afdeling_key
       AND   PRS_SP.prs_srtperslid_key(+) = PRS_P.prs_srtperslid_key
-      AND   PRS_A.prs_kostenplaats_key=k.prs_kostenplaats_key;
+      AND   PRS_A.prs_kostenplaats_key = k.prs_kostenplaats_key(+);
 
 CREATE_VIEW(prs_v_perslid_fullnames, 0) AS
 SELECT prs_perslid_key,
@@ -532,6 +532,29 @@ SELECT prs_afdeling_key5 prs_afdeling_key,
    SELECT prs_afdeling_key1, prs_afdeling_key1, 1
      FROM prs_v_afdeling_boom21 ;
 
+// Compacte en efficiente versie van prs_v_afdeling_familie
+// Maar helaas bij enorm veel afdelingen (BAMG, FMHN) soms toch trager
+CREATE_VIEW (prs_v_afdeling_familie_oud, 0)
+(PRS_AFDELING_KEY, PRS_AFDELING_ELDER_KEY, NIVEAU)
+AS
+    WITH
+        levels
+        AS
+            (    SELECT prs_afdeling_key,
+                        COALESCE (CONNECT_BY_ROOT (prs_afdeling_parentkey), prs_afdeling_key) prs_afdeling_elder_key,
+                        LEVEL niveau
+                   FROM prs_afdeling
+             CONNECT BY PRIOR prs_afdeling_key = prs_afdeling_parentkey
+               ORDER BY prs_afdeling_key, niveau)
+      SELECT ll.prs_afdeling_key,
+             ll.prs_afdeling_elder_key,
+             (SELECT MAX (l2.niveau)
+                FROM levels l2
+               WHERE ll.prs_afdeling_elder_key = l2.prs_afdeling_key)
+                 niveau
+        FROM levels ll
+    ORDER BY prs_afdeling_key, niveau;
+
 --
 --
 CREATE_VIEW(prs_v_afdeling, 0)

RES/RES_INI.SRC

@@ -49,6 +49,10 @@ INSERT INTO res_activiteit (res_activiteit_omschrijving, res_srtactiviteit_key)
 /*
 **      De MESSAGES van de RES module.
 */
+
+// Alles als een enorme BEGIN/END is over het netwerk immens sneller
+BEGIN
+
 DEF_FAC_MESSAGE ('RES_M001','Optie','Option');
 DEF_FAC_MESSAGE ('RES_M002','Definitief','Definitive');
 DEF_FAC_MESSAGE ('RES_M003','Verwijderen opstelling ','Delete placing');
@@ -183,6 +187,9 @@ DEF_FAC_MESSAGE ('res_r_res_ruimte_key2'         , 'Er zijn nog referenties van
 DEF_FAC_MESSAGE ('res_r_res_ruimte_key3'         , 'Er zijn nog referenties van reserveerbare ruimtes naar deze reservering.'        ,'This reservation references reservation rooms.');
 DEF_FAC_MESSAGE ('res_r_res_ruimte_opstel_key'   , 'Er zijn nog referenties van opstelling naar deze ruimteopstelling.'              ,'This room placing references a placing.');
 
+END;
+/
+
 REGISTERONCE('$Id$')
 
 #endif  // RES

RES/RES_PAC.SRC

@@ -15,6 +15,7 @@ CREATE OR REPLACE PACKAGE res AS
                               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_catalogus_approve(prsv_ruimte_key IN NUMBER, puserkey IN NUMBER);
+   PROCEDURE send_need_approval_noti (prsv_ruimte_key IN NUMBER, puserkey IN NUMBER);
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER);
    PROCEDURE set_ruimtes_clean (checkdate IN DATE);
    PROCEDURE set_delen_dirty (prsv_ruimte_key IN NUMBER);
@@ -109,10 +110,26 @@ AS
          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,
+      INSERT INTO res_rsv_ruimte (res_rsv_ruimte_key,
-                                  alg_ruimte_key, res_ruimte_opstel_key, res_rsv_ruimte_van, res_rsv_ruimte_tot, prs_kostenplaats_key, res_rsv_ruimte_host_key,
+                                  res_reservering_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_volgnr,
-                                  res_rsv_ruimte_bezoekers, res_rsv_ruimte_cvab_mode, res_rsv_ruimte_telefoon
+                                  res_rsv_ruimte_omschrijving,
+                                  res_rsv_ruimte_opmerking,
+                                  alg_ruimte_key,
+                                  res_ruimte_opstel_key,
+                                  mld_opdr_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,
                   COALESCE(newreskey, res_reservering_key),
@@ -121,6 +138,7 @@ AS
                   res_rsv_ruimte_opmerking,
                   alg_ruimte_key,
                   res_ruimte_opstel_key,
+                  mld_opdr_key,
                   newdate + (res_rsv_ruimte_van - TRUNC (res_rsv_ruimte_van)),
                   newdate + (res_rsv_ruimte_tot - TRUNC (res_rsv_ruimte_van)),
                   prs_kostenplaats_key,
@@ -377,57 +395,82 @@ AS
             -- Verwijder eerst de oude niet-file kenmerken
             -- Artikel kenmerken.
             DELETE FROM   res_kenmerkartikel
-                  WHERE   res_rsv_artikel_key IN (SELECT res_rsv_artikel_key FROM res_rsv_artikel WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
+                  WHERE   res_rsv_artikel_key IN (SELECT res_rsv_artikel_key
+                                                    FROM res_rsv_artikel
+                                                   WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
                     AND   res_kenmerk_key IN
                               (SELECT k.res_kenmerk_key
-                                 FROM res_kenmerkartikel w, res_kenmerk k, res_srtkenmerk sk
+                                 FROM res_kenmerkartikel w,
+                                      res_kenmerk k,
+                                      res_srtkenmerk sk
                                 WHERE w.res_kenmerk_key = k.res_kenmerk_key
                                   AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
-                                  AND w.res_rsv_artikel_key IN (SELECT res_rsv_artikel_key FROM res_rsv_artikel WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
+                                  AND w.res_rsv_artikel_key IN (SELECT res_rsv_artikel_key
+                                                                  FROM res_rsv_artikel
+                                                                 WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
                                   AND sk.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E'));
             --
             -- Artikel kenmerken.
             -- Artikel is al toegevoegd indien catering is aangevinkt.
-            INSERT INTO res_kenmerkartikel (res_rsv_artikel_key, res_kenmerk_key, res_kenmerkartikel_waarde)
+            -- De kenmerken van de oude en nieuwe reserveringen zijn exact hetzelfde met dezelfde kenmerk keys enz.
-                SELECT a.res_rsv_artikel_key,
+            -- De kenmerken van de oude en nieuwe reservering in dezelfde volgorde zetten en dan de waarden overnemen.
-                       k.res_kenmerk_key,
+            INSERT INTO res_kenmerkartikel (res_rsv_artikel_key,
-                       waarde_from.res_kenmerkartikel_waarde
+                                            res_kenmerk_key,
-                  FROM res_kenmerk k,
+                                            res_kenmerkartikel_waarde)
-                       res_srtkenmerk s,
+                 SELECT newkenmerk.res_rsv_artikel_key,
-                       res_rsv_ruimte r,
+                        newkenmerk.res_kenmerk_key,
-                       res_rsv_artikel a,
+                        oldkenmerk.res_kenmerkartikel_waarde
-                       (SELECT w1.res_kenmerkartikel_waarde,
+                   FROM (SELECT ka.res_rsv_artikel_key,
-                               k1.res_kenmerk_groep,
+                                ka.res_kenmerk_key,
-                               k1.res_srtkenmerk_key,
+                                ka.res_kenmerkartikel_waarde,
-                               k1.res_artikel_key,
+                                ra.res_artikel_key,
-                               k1.res_kenmerk_key
+                                ROW_NUMBER()
-                          FROM res_kenmerkartikel w1,
+                                    OVER(ORDER BY
-                               res_kenmerk k1,
+                                             rra.res_rsv_artikel_key,
-                               res_srtkenmerk s1,
+                                             k.res_kenmerk_key)
-                               res_rsv_ruimte r1,
+                                    AS RN
-                               res_rsv_artikel a1
+                           FROM res_kenmerkartikel ka,
-                         WHERE w1.res_kenmerk_key = k1.res_kenmerk_key
+                                res_kenmerk k,
-                           AND k1.res_srtkenmerk_key = s1.res_srtkenmerk_key
+                                res_srtkenmerk sk,
-                           AND k1.res_artikel_key = a1.res_artikel_key
+                                res_rsv_ruimte rr,
-                           AND k1.res_activiteit_key IS NULL
+                                res_rsv_artikel rra,
-                           AND w1.res_rsv_artikel_key = a1.res_rsv_artikel_key
+                                res_artikel ra
-                           AND a1.res_rsv_ruimte_key = r1.res_rsv_ruimte_key
+                          WHERE ka.res_kenmerk_key = k.res_kenmerk_key
-                           AND w1.res_kenmerkartikel_verwijder IS NULL
+                            AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
-                           AND s1.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
+                            AND (k.res_artikel_key = rra.res_artikel_key
-                           AND r1.res_rsv_ruimte_key = prsv_ruimte_key_from
+                              OR k.res_discipline_key = ra.res_discipline_key)
-                       ) waarde_from
+                            AND ra.res_artikel_key = rra.res_artikel_key
-                 WHERE k.res_artikel_key = a.res_artikel_key
+                            AND ka.res_rsv_artikel_key = rra.res_rsv_artikel_key
-                   AND a.res_rsv_ruimte_key = r.res_rsv_ruimte_key
+                            AND rra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
-                   AND k.res_kenmerk_niveau = 'D'
+                            --AND k.res_activiteit_key IS NULL      -- Niet nodig: Als res_activiteit_key gevuld is dan is res_kenmerk_niveau 'A'.
+                            AND k.res_kenmerk_niveau IN ('C', 'D')
                             AND k.res_kenmerk_volgnummer < 900
                             AND k.res_kenmerk_verwijder IS NULL
-                   AND s.res_srtkenmerk_verwijder IS NULL
+                            AND ka.res_kenmerkartikel_verwijder IS NULL
-                   AND k.res_srtkenmerk_key = s.res_srtkenmerk_key
+                            AND sk.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
-                   AND s.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
+                            AND rr.res_rsv_ruimte_key = prsv_ruimte_key_from) oldkenmerk,
-                   AND waarde_from.res_srtkenmerk_key = k.res_srtkenmerk_key
+                        (SELECT rra.res_rsv_artikel_key,
-                   AND waarde_from.res_kenmerk_groep = k.res_kenmerk_groep
+                                k.res_kenmerk_key,
-                   AND waarde_from.res_artikel_key = a.res_artikel_key
+                                ra.res_artikel_key,
-                   AND r.res_rsv_ruimte_key = prsv_ruimte_key_to;
+                                ROW_NUMBER()
+                                    OVER(ORDER BY
+                                             rra.res_rsv_artikel_key,
+                                             k.res_kenmerk_key)
+                                    AS rn
+                           FROM res_rsv_ruimte rr,
+                                res_rsv_artikel rra,
+                                res_artikel ra,
+                                res_kenmerk k
+                          WHERE rra.res_rsv_ruimte_key = rr.res_rsv_ruimte_key
+                            AND (k.res_artikel_key = rra.res_artikel_key
+                              OR k.res_discipline_key = ra.res_discipline_key)
+                            AND ra.res_artikel_key = rra.res_artikel_key
+                            AND rr.res_rsv_ruimte_key = prsv_ruimte_key_to) newkenmerk
+                  WHERE oldkenmerk.rn = newkenmerk.rn
+                    AND oldkenmerk.res_kenmerk_key = newkenmerk.res_kenmerk_key
+                    AND oldkenmerk.res_artikel_key = newkenmerk.res_artikel_key
+                  ORDER BY newkenmerk.res_rsv_artikel_key,
+                           newkenmerk.res_kenmerk_key;
          END IF;
       END IF;
       -- 512 Bezoekers
@@ -557,10 +600,115 @@ AS
        WHERE res_rsv_ruimte_key = prsv_ruimte_key;
       IF hastoapprove = 1
       THEN
-         -- Notificatie en tracking: Reservering ##KEY## (##DESC##) is ter fiattering aangeboden aan ##FIATTEUR##.
+         res.send_need_approval_noti(prsv_ruimte_key, puserkey);
-         fac.trackaction ('RESFIA', prsv_ruimte_key, puserkey, NULL, NULL);
       END IF;
    END;
+
+   -- Kopie van res.sendNeedApprovalNotification()
+   PROCEDURE send_need_approval_noti (prsv_ruimte_key IN NUMBER, puserkey IN NUMBER)
+   AS
+      lapprover_key                 prs_kostenplaats.prs_perslid_key%TYPE;
+      lres_ruimte_opstel_key        res_ruimte_opstelling.res_ruimte_opstel_key%TYPE;
+      lres_reservering_key          res_reservering.res_reservering_key%TYPE;
+      lalg_ruimte_key               alg_ruimte.alg_ruimte_key%TYPE;
+      lsender                       alg_locatie.alg_locatie_email%TYPE;
+      lomsfia                       fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceiver                     VARCHAR2(1000);
+      ltracking                     VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
+   BEGIN
+
+      BEGIN
+         SELECT k.prs_perslid_key
+           INTO lapprover_key
+           FROM res_rsv_ruimte rr,
+                prs_kostenplaats k
+          WHERE rr.prs_kostenplaats_key = k.prs_kostenplaats_key
+            AND rr.res_rsv_ruimte_key = prsv_ruimte_key;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            -- Er is geen fiatteur
+            RETURN;
+      END;
+
+      IF lapprover_key < 0 OR prsv_ruimte_key < 0
+      THEN
+         RETURN;
+      END IF;
+
+      SELECT res_ruimte_opstel_key,
+             res_reservering_key,
+             alg_ruimte_key
+        INTO lres_ruimte_opstel_key,
+             lres_reservering_key,
+             lalg_ruimte_key
+        FROM res_rsv_ruimte
+       WHERE res_rsv_ruimte_key = prsv_ruimte_key;
+
+      IF lres_ruimte_opstel_key IS NOT NULL AND lres_ruimte_opstel_key > 0
+      THEN
+         SELECT MAX(l.alg_locatie_email)
+           INTO lsender
+           FROM res_ruimte_opstelling ro
+              , res_ruimte rr
+              , res_alg_ruimte rag
+              , alg_ruimte r
+              , alg_verdieping v
+              , alg_gebouw g
+              , alg_locatie l
+          WHERE l.alg_locatie_key = g.alg_locatie_key
+            AND g.alg_gebouw_key = v.alg_gebouw_key
+            AND r.alg_verdieping_key = v.alg_verdieping_key
+            AND r.alg_ruimte_key = rag.alg_ruimte_key
+            AND rag.res_ruimte_key = rr.res_ruimte_key
+            AND rr.res_ruimte_key = ro.res_ruimte_key
+            AND ro.res_ruimte_opstel_key = lres_ruimte_opstel_key;
+      ELSIF lalg_ruimte_key IS NOT NULL AND lalg_ruimte_key > 0
+      THEN
+         SELECT MAX(l.alg_locatie_email)
+           INTO lsender
+           FROM alg_ruimte r
+              , alg_verdieping v
+              , alg_gebouw g
+              , alg_locatie l
+          WHERE l.alg_locatie_key = g.alg_locatie_key
+            AND g.alg_gebouw_key = v.alg_gebouw_key
+            AND r.alg_verdieping_key = v.alg_verdieping_key
+            AND r.alg_ruimte_key = lalg_ruimte_key;
+      END IF;
+
+      SELECT lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
+        INTO lomsfia
+        FROM fac_srtnotificatie
+       WHERE fac_srtnotificatie_code = 'RESFIA';
+
+      -- Notificatie en tracking: Reservering ##KEY## (##DESC##) is ter fiattering aangeboden aan ##FIATTEUR##.
+      fac.putnotificationsrtprio (NULL,
+                                  lapprover_key,
+                                  'RESFIA',
+                                  lres_reservering_key,
+                                  res.sprintf(lomsfia, prsv_ruimte_key),
+                                  NULL,
+                                  NULL,
+                                  NULL,
+                                  prsv_ruimte_key,
+                                  2,
+                                  lsender
+                                 );
+
+      SELECT prs_perslid_naam_full
+        INTO lreceiver
+        FROM prs_v_perslid_fullnames_all
+       WHERE prs_perslid_key = lapprover_key;
+
+      -- ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+      ltracking := lcl.l('lcl_res_notification_sent_to');
+      ltracking := REPLACE (ltracking, '{0}', 'RESFIA');
+      ltracking := REPLACE (ltracking, '{1}', lreceiver);
+
+      fac.trackaction ('RESFIA', prsv_ruimte_key, puserkey, NULL, SUBSTR(ltracking, 1, 2048));  -- maxlengte van fac_srtnotificatie_oms
+   END;
+
    -- Moeten wijzelf misschien dirty worden (door overlap met anderen)
    -- of schoon worden
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER)
@@ -574,6 +722,7 @@ AS
       IS
              SELECT   rr.alg_ruimte_key,
                       rr.res_ruimte_opstel_key,
+                      rr.mld_opdr_key,
                       ro.res_ruimte_opstel_tijd,
                       rr.res_status_fo_key,
                       rr.res_rsv_ruimte_van,
@@ -591,9 +740,9 @@ AS
       DBMS_OUTPUT.PUT_LINE('set_ruimte_dirty ' || prsv_ruimte_key);
       OPEN prsv_ruimtecur;
       FETCH prsv_ruimtecur INTO   prsv_ruimte;
-      IF prsv_ruimte.alg_ruimte_key IS NOT NULL
+      IF prsv_ruimte.alg_ruimte_key IS NOT NULL OR prsv_ruimte.mld_opdr_key IS NOT NULL
       THEN
-         NULL; -- CV reserveringen worden in de ASP code behandeld
+         NULL; -- CV reserveringen en opdrachten worden in de ASP code behandeld
       ELSE
          IF prsv_ruimte.res_ruimte_opstel_key IS NULL
          THEN

RES/RES_TAB.SRC

@@ -238,6 +238,8 @@ CREATE_TABLE(res_deel, 0)
     CONSTRAINT res_c_res_deel_prijs_vast1 CHECK(res_deel_prijs_vast IN (0,1))
 , res_deel_opmerking
     VARCHAR2(2000)
+, res_deel_bulkreserveerbaar NUMBER(1) DEFAULT(NULL)
+    CONSTRAINT res_c_res_deel_bulkrsveerbaar CHECK(res_deel_bulkreserveerbaar IN (0,1))
 , res_discipline_key
     NUMBER(10)
     NOT_NULL(res_discipline_key, res_c_res_deel_dis_key)
@@ -443,8 +445,12 @@ CREATE_TABLE(res_activiteit, 0)
 , res_activiteit_cvab_mode
     NUMBER(1)
     CONSTRAINT res_c_res_activiteit_cvab_mode CHECK(res_activiteit_cvab_mode IN (0,1,2,3))
-,  res_activiteit_intervals
+,  res_activiteit_intervals                           /* Optional: JSON-structured intervals */
-    VARCHAR(2000 CHAR)                   /* Optioneel: JSON-structured intervallen */
+    VARCHAR(2000 CHAR)
+,  res_activiteit_limiet       /* Optional overrule of Setting res_reservering_limiet (days) */
+     NUMBER(3)
+,  res_activiteit_limiet_fe /* Optional overrule of Setting res_fe_reservering_limiet (days) */
+     NUMBER(3)
 ,  res_activiteit_image
     VARCHAR2(255)
 , CONSTRAINT res_u_res_activiteit_upper UNIQUE(res_activiteit_upper, res_activiteit_verwijder, res_srtactiviteit_key)
@@ -507,7 +513,7 @@ CREATE_TABLE(res_rsv_ruimte, 0)
 , res_ruimte_opstel_key
     NUMBER(10)
     CONSTRAINT res_r_res_ruimte_opstel_key2 REFERENCES res_ruimte_opstelling(res_ruimte_opstel_key)
-, CONSTRAINT res_c_alg_ruimte_or_opstel CHECK (res_ruimte_opstel_key IS NOT NULL OR alg_ruimte_key IS NOT NULL)
+, CONSTRAINT res_c_alg_ruimte_or_opstel CHECK (res_ruimte_opstel_key IS NOT NULL OR alg_ruimte_key IS NOT NULL OR mld_opdr_key IS NOT NULL)
 , res_rsv_ruimte_cvab_mode  /* 0=afhalen; 1=bezorgen (alg_ruimte bevat res_deel records); null=weetniet, +2=vast  */
     NUMBER(1)
 , res_activiteit_key

RES/RES_VIE.SRC

@@ -209,12 +209,23 @@ WHERE
 /
 
 CREATE_VIEW(res_v_reserveringruimte_geg, 0) AS
-   SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_opmerking,
+   SELECT rr.res_reservering_key,
-          rr2.res_rsv_ruimte_omschrijving, k.prs_kostenplaats_nr res_rsv_ruimte_ordernr, rr2.res_rsv_ruimte_telefoon,
+          rr2.res_rsv_ruimte_opmerking,
-          rr2.res_rsv_ruimte_aanmaak, rr2.res_rsv_ruimte_verwijder, rr2.res_rsv_ruimte_contact_key,
+          rr2.res_rsv_ruimte_omschrijving,
-          rr2.res_rsv_ruimte_host_key, rr.res_ruimte_key, rr.alg_ruimte_key, k.prs_kostenplaats_nr
+          k.prs_kostenplaats_nr res_rsv_ruimte_ordernr,
-     FROM res_v_rsv_ruimte_2_alg_ruimte rr, prs_kostenplaats k, res_rsv_ruimte rr2
+          rr2.res_rsv_ruimte_telefoon,
-    WHERE k.prs_kostenplaats_key = rr2.prs_kostenplaats_key AND rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key;
+          rr2.res_rsv_ruimte_aanmaak,
+          rr2.res_rsv_ruimte_verwijder,
+          rr2.res_rsv_ruimte_contact_key,
+          rr2.res_rsv_ruimte_host_key,
+          rr.res_ruimte_key,
+          rr.alg_ruimte_key,
+          k.prs_kostenplaats_nr
+     FROM res_v_rsv_ruimte_2_alg_ruimte rr,
+          prs_kostenplaats k,
+          res_rsv_ruimte rr2
+    WHERE k.prs_kostenplaats_key(+) = rr2.prs_kostenplaats_key
+      AND rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key;
 
 CREATE_VIEW(res_v_ruimte_opstel_gegevens,0) AS
   SELECT RES_RO.res_ruimte_opstel_key,

_UP/DB40to41.src

@@ -6,21 +6,173 @@
 #include "prologue.inc"
 
 COMMIT;
+SET DEFINE OFF
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64044
+-- Deze even vooraan, anders komen fac_menu-manipulaties zoals MENU_INS_AFTER mogelijk niet door
+ALTER TABLE fac_menu
+    DROP CONSTRAINT fac_c_menu1 DROP INDEX;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63401
+ALTER TABLE res_activiteit ADD res_activiteit_limiet NUMBER(3);
+ALTER TABLE res_activiteit ADD res_activiteit_limiet_fe NUMBER(3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64834
+ALTER TABLE mld_stdmelding ADD
+    mld_stdmelding_notes
+        NUMBER(1)
+        DEFAULT 3
+        NOT_NULL(mld_stdmelding_notes, mld_c_mld_stdmelding_notes);
+
+-- Als S(mld_merge_notes_and_tracking) & 2 (= 'laat opdrachten notities zien bij de melding'),
+-- stel dan default in dat uitvoerders in de melding notities worden weergegeven (= mld_stdmelding_notes & 4)
+DECLARE
+    mld_merge_notes   fac_setting.fac_setting_pvalue%TYPE;
+BEGIN
+    SELECT COALESCE (fac_setting_pvalue, fac_setting_default)
+      INTO mld_merge_notes
+      FROM fac_setting
+     WHERE fac_setting_name = 'mld_merge_notes_and_tracking';
+
+    UPDATE mld_stdmelding
+       SET mld_stdmelding_notes =
+               (CASE WHEN BITAND (mld_merge_notes, 2) = 2 THEN 7 ELSE 3 END);
+END;
+/
+
+ALTER TABLE mld_opdr_note ADD
+   mld_opdr_note_flag
+        NUMBER (2)
+        DEFAULT 4;
+
+ALTER TABLE mld_opdr ADD
+    mld_opdr_actiecode
+        NUMBER(3)
+        DEFAULT 1 -- Default BO, zie ook de query hieronder
+        NOT NULL;
+
+-- Zet de (initiele) actiecode bij de uitvoerder indien opdracht-status = 'Uitgegeven' (5) of 'Geaccepteerd' (8)
+
+UPDATE mld_opdr
+   SET mld_opdr_actiecode = 4
+ WHERE mld_statusopdr_key IN (5, 8);
+
+DEF_FAC_SRTNOT('ORDA2U', 0, 'lcl_noti_ORDA2U', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDNOL', 1, 'lcl_noti_ORDNOL', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDA2B', 0, 'lcl_noti_ORDA2B', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDNOB', 1, 'lcl_noti_ORDNOB', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
+ALTER TABLE mld_melding_note ADD
+   mld_melding_note_parent_key
+        NUMBER (10)
+        DEFAULT NULL
+        REFERENCES mld_melding_note (mld_melding_note_key)
+        ON DELETE CASCADE;
+
+ALTER TABLE mld_opdr_note ADD
+   mld_opdr_note_parent_key
+        NUMBER (10)
+        DEFAULT NULL
+        REFERENCES mld_opdr_note (mld_opdr_note_key)
+        ON DELETE CASCADE;
+
+ALTER TABLE mld_typeopdr ADD mld_typeopdr_image VARCHAR2(255 CHAR);
+
+-- Kleine bugfix; constraint zou alleen van toepassing moeten zijn op niet vervallen groepen, anders blijft een vervallen groepnaam voor altijd bezet
+ALTER TABLE fac_note_group
+    DROP CONSTRAINT fac_u_fac_note_group_naam DROP INDEX;
+
+ALTER TABLE fac_note_group
+    ADD CONSTRAINT fac_u_fac_note_group_naam UNIQUE
+            (fac_note_group_xmlnode,
+             fac_note_group_naam,
+             fac_note_group_vervaldatum);
 
 /////////////////////////////////////////////////////////////////////////////////////////// FCLT#64017
 
+_FAC_MODULE('WGT', 'lcl_module_WGT')
+
+DEF_FAC_FUNCTIE3('WEB_WGTUSE', 'WGT',  3, 0,    0);
+DEF_FAC_FUNCTIE3('WEB_WGTMAN', 'WGT',  3, 0,    2);
+
+DEF_MENUITEM(0, 'lcl_menu_my_wgt_page', '', 'WGT', 'appl/fac/fac_widget_page.asp', 0, 0, 'WEB_WGTUSE', 'W', '1', '');
+-- Variatie op MENU_INS_AFTER();
+INSERT INTO fac_menu (fac_menuitems_key,
+                      fac_menu_altlabel,
+                      fac_menu_alturl,
+                      fac_menu_altgroep,
+                      fac_menu_image,
+                      fac_menu_info,
+                      fac_menu_volgnr,
+                      fac_menu_level)
+    SELECT i.fac_menuitems_key,
+           i.fac_menuitems_label,
+           i.fac_menuitems_url,
+           i.fac_menuitems_groep,
+           i.fac_menuitems_image,
+           i.fac_menuitems_oms,
+           m.fac_menu_volgnr + 2,
+           2
+      FROM fac_menuitems i, fac_menu m
+     WHERE     i.fac_menuitems_key =
+               (SELECT MAX (mmi.fac_menuitems_key)
+                  FROM fac_menuitems mmi
+                 WHERE mmi.fac_menuitems_label = 'lcl_menu_my_wgt_page')
+           AND (   m.fac_menuitems_key =
+                   (SELECT MAX (ii.fac_menuitems_key)
+                      FROM fac_menuitems ii
+                     WHERE ii.fac_menuitems_label = 'lcl_menu_fe_myinfo')           -- Originele fac_menuitems
+                OR (    m.fac_menu_altgroep = 0
+                    AND (   (m.fac_menu_alturl LIKE '%appl/fac/fac_user_info.asp%') -- Handmatig ingevoegd met originele url
+                         OR UPPER (m.fac_menu_altlabel) = 'MIJN GEGEVENS')))        -- Handmatig ingevoegd met originele label
+;
+
+DEF_MENUITEM(2, 'lcl_menu_wgt_pages', '', 'WGT', 'appl/mgt/fac_widget_page.asp', 0, 0, 'WEB_PRSSYS', 'R', '1', '');
+-- Variatie op MENU_INS_AFTER();
+INSERT INTO fac_menu (fac_menuitems_key,
+                      fac_menu_altlabel,
+                      fac_menu_alturl,
+                      fac_menu_altgroep,
+                      fac_menu_image,
+                      fac_menu_info,
+                      fac_menu_volgnr,
+                      fac_menu_level)
+    SELECT i.fac_menuitems_key,
+           i.fac_menuitems_label,
+           i.fac_menuitems_url,
+           i.fac_menuitems_groep,
+           i.fac_menuitems_image,
+           i.fac_menuitems_oms,
+           m.fac_menu_volgnr + 2,
+           2
+      FROM fac_menuitems i, fac_menu m
+     WHERE     i.fac_menuitems_key =
+               (SELECT MAX (mmi.fac_menuitems_key)
+                  FROM fac_menuitems mmi
+                 WHERE mmi.fac_menuitems_label = 'lcl_menu_wgt_pages')
+           AND (   m.fac_menuitems_key =
+                   (SELECT MAX (ii.fac_menuitems_key)
+                      FROM fac_menuitems ii
+                     WHERE ii.fac_menuitems_label = 'lcl_menu_fac_widgets')     -- Originele fac_menuitems
+                OR (    m.fac_menu_altgroep = 2
+                    AND (   m.fac_menu_alturl LIKE '%appl/mgt/fac_widget.asp%'  -- Handmatig ingevoegd met originele url
+                         OR UPPER (m.fac_menu_altlabel) = 'WIDGETS')))          -- Handmatig ingevoegd met originele label
+;
+
 CREATE_TABLE(fac_widget_page, 0)
 (
     fac_widget_page_key
         NUMBER(10)
         CONSTRAINT fac_k_fac_widget_page_key PRIMARY KEY,
-    fac_widget_page_name                                  -- Paginanaam
+    fac_widget_page_name
         VARCHAR2(60),
-    fac_widget_page_aanmaak                               -- Aanmaak datum
+    fac_functie_key                                      -- A la menuitem, indien autorisatie dan tonen
+        NUMBER(10)
+        CONSTRAINT fac_r_widget_page_functie_key REFERENCES fac_functie(fac_functie_key),
+    fac_widget_page_aanmaak
         DATE
         DEFAULT SYSDATE
 );
-
 ALTER TABLE fac_widget_page ADD (
   prs_perslid_key
         NUMBER(10)
@@ -49,14 +201,11 @@ CREATE_TABLE(fac_widget_onpage, 0)                        -- Koppeltabel voor fa
         NUMBER(10)
         CONSTRAINT fac_r_fac_widget_key REFERENCES fac_widget(fac_widget_key) ON DELETE CASCADE,
     fac_widget_onpage_order
-        NUMBER(5)
+        NUMBER(5),
-);
+    fac_widget_onpage_height                               -- Optioneel afwijkend van default
-
+        NUMBER(5),
-ALTER TABLE fac_widget_onpage ADD (
-    fac_widget_onpage_height                               -- Optioneel afwjkend van default
-        NUMBER(3),
     fac_widget_onpage_width                                -- Optioneel afwijkend van default
-        NUMBER(3)
+        NUMBER(5)
 );
 
 CREATE SEQUENCE fac_s_fac_widget_onpage_key MINVALUE 1;
@@ -78,21 +227,54 @@ INSERT INTO fac_widget_page (fac_widget_page_name)
      WHERE fac_widget_groep NOT IN (SELECT DISTINCT fac_widget_page_name
                                       FROM fac_widget_page);
 
--- Ivm asynchrone DB update dit pas volgende DB release, no hurries
+-- S(widgetportal) wordt een widget_page_key, ipv 1|0
--- ALTER TABLE fac_widget
+UPDATE fac_setting
---     DROP (fac_widget_groep, fac_widget_volgnr);
+   SET fac_setting_pvalue =
+           (SELECT fac_widget_page_key
+              FROM fac_widget_page
+             WHERE fac_widget_page_name = 'myfacilitor')
+ WHERE     EXISTS
+               (SELECT fac_widget_page_key
+                  FROM fac_widget_page
+                 WHERE fac_widget_page_name = 'myfacilitor') -- Dubbelcheck, eigenlijk niet nodig want S(widgetportal) = 1 hier
+       AND fac_setting_name = 'widgetportal'
+       AND fac_setting_pvalue IS NOT NULL
+       AND fac_setting_pvalue <> '0';
+
+ALTER TABLE fac_widget ADD fac_widget_naam VARCHAR2(60);
+UPDATE fac_widget SET fac_widget_naam = SUBSTR (fac_widget_groep, 1, 56) || '-' || fac_widget_volgnr;
+ALTER TABLE fac_widget MODIFY fac_widget_naam NOT NULL;
+
+ALTER TABLE fac_widget MODIFY fac_widget_height NUMBER(5);
+ALTER TABLE fac_widget MODIFY fac_widget_width NUMBER(5);
+
+ALTER TABLE fac_widget ADD fac_widget_type VARCHAR2(3) DEFAULT ('FAC') NOT NULL;
+ALTER TABLE fac_widget ADD fac_widget_typerefkey NUMBER(10);
+ALTER TABLE fac_widget ADD fac_widget_content VARCHAR2(4000);
+ALTER TABLE fac_widget ADD fac_widget_public NUMBER(1) DEFAULT 0 NOT NULL;
+ALTER TABLE fac_widget
+    ADD CONSTRAINT fac_c_widgettype1 CHECK
+            (   (fac_widget_type IN ('FAC', 'URL', 'IMG', 'FLR') AND fac_widget_url IS NOT NULL)
+             OR (fac_widget_type IN ('MK', 'MI', 'RAP', 'FAQ') AND fac_widget_typerefkey IS NOT NULL)
+             OR (fac_widget_type = 'RAW' AND fac_widget_content IS NOT NULL));
 
 -- Het vullen van de koppeltabel inclusief conversie van fac_widget.fac_widget_volgnr -> fac_widget_onpage.fac_widget_onpage_order
 INSERT INTO fac_widget_onpage (fac_widget_page_key,
                                fac_widget_key,
-                               fac_widget_onpage_order)
+                               fac_widget_onpage_order,
+                               fac_widget_onpage_height,
+                               fac_widget_onpage_width)
     SELECT page.fac_widget_page_key,
            widget.fac_widget_key,
-           widget.onpage_order
+           widget.onpage_order,
+           widget.fac_widget_height,
+           widget.fac_widget_width
       FROM (  SELECT fac_widget_page_key, fac_widget_page_name
                 FROM fac_widget_page) page,
            (  SELECT fac_widget_key,
                      fac_widget_groep,
+                     fac_widget_height,
+                     fac_widget_width,
                      ROW_NUMBER ()
                          OVER (PARTITION BY fac_widget_groep
                                ORDER BY fac_widget_volgnr) onpage_order
@@ -100,11 +282,422 @@ INSERT INTO fac_widget_onpage (fac_widget_page_key,
             ORDER BY fac_widget_groep, fac_widget_volgnr NULLS LAST) widget
      WHERE widget.fac_widget_groep = page.fac_widget_page_name;
 
-ALTER TABLE fac_widget ADD fac_widget_naam VARCHAR2(60);
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63668
-UPDATE fac_widget SET fac_widget_naam = SUBSTR (fac_widget_groep, 1, 56) || '-' || fac_widget_volgnr;
+
-ALTER TABLE fac_widget MODIFY fac_widget_naam NOT NULL;
+-- Hieronder wat default widgets;
+DEF_WIDGET('FAC', 'Zoeken in Facilitor', NULL, 'prodsearch2.asp', 1);
+DEF_WIDGET('FAC', 'Facilitor nieuws', NULL, 'fac_nieuws.asp', 1);
+DEF_WIDGET('FAC', 'Lopende zaken', NULL, 'fac_list.asp', 1);
+DEF_WIDGET('FAC', 'Mijn berichten', NULL, 'fac_user_messages.asp', 1);
+DEF_WIDGET('URL', 'Facilitor.nl', NULL, 'https://facilitor.nl/', 0);
+DEF_WIDGET('IMG', 'Facilitor banner', NULL, '../../appl/Pictures/banner.png', 0);
+DEF_WIDGET('RAW', '<Leeg>', '<html><head></head><body></body></html>', NULL, 1);
+
+-- Voorbeeld van rapportage-widget
+INSERT INTO fac_widget (fac_widget_type,
+                        fac_widget_naam,
+                        fac_widget_typerefkey,
+                        fac_widget_public)
+    SELECT 'RAP',
+           'Rapportage: Mislukte inlogpogingen',
+           fac_usrrap_key,
+           0
+      FROM fac_usrrap
+     WHERE fac_usrrap_omschrijving = 'BEHEER: Audit fail';
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#62190
+ALTER TABLE res_deel ADD res_deel_bulkreserveerbaar NUMBER(1) DEFAULT(NULL)
+        CONSTRAINT res_c_res_deel_bulkrsveerbaar CHECK(res_deel_bulkreserveerbaar IN (0,1));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63646
+ALTER TABLE cad_thema ADD cad_thema_opmerking VARCHAR2(4000);
+ALTER TABLE cad_thema ADD cad_thema_aanmaak DATE DEFAULT SYSDATE CONSTRAINT cad_c_cad_thema_aanmaak NOT NULL;
+ALTER TABLE cad_label ADD cad_label_opmerking VARCHAR2(4000);
+ALTER TABLE cad_label ADD cad_label_aanmaak DATE DEFAULT SYSDATE CONSTRAINT cad_c_cad_label_aanmaak NOT NULL;
+ALTER TABLE cad_label ADD cad_label_rotation NUMBER(3);
+
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadlabelsize NUMBER(5);
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadlabelpos NUMBER(1);
+
+UPDATE ins_srtdeel
+   SET ins_srtdeel_acadlabelsize = 0
+ WHERE ins_srtdeel.ins_srtdeel_key IN
+           (SELECT ins_srtdeel_key
+              FROM ins_disc_params d, ins_srtgroep g, ins_srtdeel s
+             WHERE     g.ins_discipline_key = d.ins_discipline_key
+                   AND s.ins_srtgroep_key = g.ins_srtgroep_key
+                   AND BITAND (ins_disc_params_type, 16) = 16);
+
+// fac_setting_type en fac_setting_default veranderen wel bij de recreate
+UPDATE fac_setting
+   SET fac_setting_pvalue = fac_setting_pvalue / 1000000
+ WHERE fac_setting_name = 'fg_areathreshold' AND fac_setting_type = 'number';
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#68582
+
+ALTER TABLE res_rsv_ruimte DROP CONSTRAINT res_c_alg_ruimte_or_opstel;
+ALTER TABLE res_rsv_ruimte
+    ADD CONSTRAINT res_c_alg_ruimte_or_opstel
+    CHECK (res_ruimte_opstel_key IS NOT NULL OR alg_ruimte_key IS NOT NULL OR mld_opdr_key IS NOT NULL) ENABLE NOVALIDATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#66608
+ALTER TABLE fac_imp_usrdata
+  ADD ( fac_usrdata_reftabel VARCHAR2(16)
+      , fac_usrdata_refcode  VARCHAR2(40)
+      );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#65480
+ALTER TABLE fac_faq ADD
+    faq_ins_discipline_key
+        NUMBER(10);
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving)
+     VALUES ('FAQ', 'Standaard');
+
+-- Voor alle bestaande kennisbankitems de discipline op de standaard zetten.
+UPDATE fac_faq
+   SET faq_ins_discipline_key = (SELECT ins_discipline_key
+                                   FROM ins_tab_discipline
+                                  WHERE ins_discipline_module LIKE 'FAQ'
+                                    AND ins_discipline_omschrijving LIKE 'Standaard');
+
+-- Dan kunnen we nu pas de contraints op de kolom faq_ins_discipline_key zetten.
+ALTER TABLE fac_faq MODIFY
+    faq_ins_discipline_key
+        NOT_NULL(faq_ins_discipline_key, faq_c_ins_discipline_key)
+        CONSTRAINT faq_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE faq_kenmerk ADD
+    faq_discipline_key
+        NUMBER(10)
+        CONSTRAINT faq_c_faq_kenmerk_discipline REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE faq_kenmerk ADD
+       CONSTRAINT faq_u_faq_kenmerk UNIQUE(faq_discipline_key, faq_kenmerk_omschrijving, faq_kenmerk_groep, faq_kenmerk_verwijder);
+
+ALTER TABLE fac_imp_faq ADD
+    faq_discipline_omschrijving
+        VARCHAR2(60);
+
+CREATE_VIEW(faq_discipline, 0)
+AS
+ SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'FAQ';
+
+DEFINIEER_VIEW_AANWEZIG(faq_discipline, ins_discipline_verwijder,
+  faq_v_aanwezigdiscipline,0);
+
+DEF_MENUITEM(2, 'lcl_menu_faq_catalogi', '', 'FAQ', 'appl/mgt/faq_discipline.asp', 0, 0, 'WEB_FAQMSU', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_faq_catalogi', 'lcl_menu_faq_kenmerk', -2);
+
+UPDATE fac_functie
+   SET fac_functie_discipline = 1
+ WHERE fac_functie_code IN ('WEB_FAQUSE', 'WEB_FAQFOF', 'WEB_FAQBOF');
+
+-- De groeprechten tabel heeft voor FAQUSE, FAQFOF, FAQBOF en de verschillende autorisatiegroepen nu maar 1 record
+-- om aan te geven welke rechten men heeft voor betreffende autorisatie.
+-- Dit moet uitgebreid worden voor elke discipline 1 record.
+-- Nu is er bij de records geen ins_discipline_key ingevuld. Een record moet vervangen worden door een record voor elke discipline.
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+DECLARE
+    CURSOR groeprechten IS
+        -- Welke groepen hebben de 'WEB_CTRUSE' rechten. Deze rechten moeten in de groep naar de nieuwe rechten 'WEB_CTRSEN' worden gekopieerd.
+        SELECT gr.fac_groeprechten_key,
+               gr.fac_functie_key,
+               gr.fac_gebruiker_prs_level_read,
+               gr.fac_gebruiker_prs_level_write,
+               gr.fac_gebruiker_alg_level_read,
+               gr.fac_gebruiker_alg_level_write,
+               gr.fac_groep_key
+          FROM fac_groeprechten gr,
+               fac_functie f
+         WHERE gr.fac_functie_key = f.fac_functie_key
+           AND f.fac_functie_code IN ('WEB_FAQUSE', 'WEB_FAQFOF', 'WEB_FAQBOF')
+           AND gr.ins_discipline_key IS NULL
+        ORDER BY gr.fac_functie_key,
+                 gr.fac_groep_key;
+    CURSOR faqdisciplines IS
+        -- Alle faq disciplines
+        SELECT ins_discipline_key
+          FROM ins_tab_discipline
+         WHERE ins_discipline_module = 'FAQ'
+        ORDER BY ins_discipline_key;
+
+BEGIN
+    -- Elk record vervangen door een record voor elke discipline
+    FOR f_groeprechten IN groeprechten
+    LOOP
+        FOR f_faqdisciplines IN faqdisciplines
+        LOOP
+            -- Groepsrechten toevoegen.
+            INSERT INTO fac_groeprechten (fac_groep_key,
+                                          fac_functie_key,
+                                          fac_gebruiker_alg_level_read,
+                                          fac_gebruiker_alg_level_write,
+                                          fac_gebruiker_prs_level_read,
+                                          fac_gebruiker_prs_level_write,
+                                          ins_discipline_key)
+                                  VALUES (f_groeprechten.fac_groep_key,
+                                          f_groeprechten.fac_functie_key,
+                                          f_groeprechten.fac_gebruiker_alg_level_read,
+                                          f_groeprechten.fac_gebruiker_alg_level_write,
+                                          f_groeprechten.fac_gebruiker_prs_level_read,
+                                          f_groeprechten.fac_gebruiker_prs_level_write,
+                                          f_faqdisciplines.ins_discipline_key);
+        END LOOP;
+        DELETE FROM fac_groeprechten WHERE fac_groeprechten_key = f_groeprechten.fac_groeprechten_key;
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#65925
+ALTER TABLE mld_disc_params ADD mld_disc_params_mldgroup NUMBER(3) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLST#68301
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'https://forum.facilitor.nl'
+ WHERE fac_menuitems_url = 'http://forum.facilitor.nl';
+
+UPDATE fac_imp_menu
+   SET menuitems_url = 'https://forum.facilitor.nl'
+ WHERE menuitems_url = 'http://forum.facilitor.nl';
+
+UPDATE fac_message
+   SET fac_message_text = ' https://www.facilitor.nl/'
+ WHERE UPPER (fac_message_code) = 'FAC_M038';
+
+UPDATE bes_srtdeel
+   SET bes_srtdeel_image =
+           REGEXP_REPLACE (bes_srtdeel_image, '^http:', 'https:')
+ WHERE bes_srtdeel_image LIKE 'http:%' AND bes_srtdeel_verwijder IS NULL;
+
+UPDATE fac_bookmark
+   SET fac_bookmark_unauth_url =
+           REGEXP_REPLACE (fac_bookmark_unauth_url, '^http:', 'https:')
+ WHERE     fac_bookmark_unauth_url LIKE 'http:%'
+       AND (fac_bookmark_expire > SYSDATE OR fac_bookmark_expire IS NULL);
+
+UPDATE bes_disc_params
+   SET bes_disc_params_logo_url =
+           REGEXP_REPLACE (bes_disc_params_logo_url, '^http:', 'https:')
+ WHERE bes_disc_params_logo_url LIKE 'http:%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// VLKC#62008
+ALTER TABLE bez_afspraak ADD
+    mld_opdr_key
+        NUMBER(10)
+        REFERENCES mld_opdr(mld_opdr_key);
+
+ALTER TABLE mld_typeopdr ADD
+    mld_typeopdr_bez
+        NUMBER(1)
+        DEFAULT(0)
+        CONSTRAINT mld_c_mld_typeopdr_bez CHECK(mld_typeopdr_bez IN (0,1));
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#69537
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_bedrijf_startdt2 DATE);
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_bedrijf_einddt2 DATE);
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_bedrijf_fee4 NUMBER(6,2));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#68444
+UPDATE prs_bedrijfadres
+   SET prs_bedrijfadres_error_handler = 0
+ WHERE prs_bedrijfadres_error_handler = 1
+   AND (prs_bedrijfadres_ordermode IS NULL OR BITAND (prs_bedrijfadres_ordermode, 1) = 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#69639
+ALTER TABLE prs_bedrijfadres ADD  (prs_bedrijfadres_oa_token_url VARCHAR2(512),
+                                   prs_bedrijfadres_oa_scope VARCHAR2(512),
+                                   prs_bedrijfadres_oa_resource VARCHAR2(512));
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#69517
+ALTER TABLE mld_typeopdr DROP CONSTRAINT ins_c_mld_typeopdr_materiaal;
+ALTER TABLE mld_typeopdr ADD CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2, 3));
+
+/////////////////////////////////////////////////////////////////////////////////////////// PGHE#69733
+INSERT INTO fac_setting (fac_setting_module,
+                         fac_setting_name,
+                         fac_setting_type,
+                         fac_setting_description,
+                         fac_setting_pvalue)
+     VALUES('MLD',
+           'mld_negatief_respijt',
+           'number',
+           'Sta negatieve respijt toe {0=no | 1=yes}',
+            '0');
+UPDATE fac_setting
+   SET fac_setting_pvalue = (SELECT fac_setting_pvalue FROM fac_setting WHERE fac_setting_name = 'fac_reserved_number2')
+ WHERE fac_setting_name = 'mld_negatief_respijt';
+UPDATE fac_setting
+   SET fac_setting_pvalue = ''
+ WHERE fac_setting_name = 'fac_reserved_number2';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#69573
+UPDATE fac_setting
+   SET fac_setting_pvalue = (SELECT fac_setting_pvalue FROM fac_setting WHERE fac_setting_name = 'fac_reserved_number1')
+ WHERE fac_setting_name = 'fac_html_strictness';
+UPDATE fac_setting
+   SET fac_setting_pvalue = ''
+ WHERE fac_setting_name = 'fac_reserved_number1';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64044
+
+UPDATE fac_menu m
+   SET fac_menu_altgroep =
+           (SELECT fac_menuitems_groep
+              FROM fac_menuitems mi
+             WHERE mi.fac_menuitems_key = m.fac_menuitems_key)
+ WHERE fac_menu_altgroep IS NULL AND fac_menuitems_key IS NOT NULL;
+
+-- Beiden ondersteunen lcl's dus dit kan gewoon
+UPDATE fac_menu m
+   SET fac_menu_altlabel =
+           (SELECT fac_menuitems_label
+              FROM fac_menuitems mi
+             WHERE mi.fac_menuitems_key = m.fac_menuitems_key)
+ WHERE fac_menu_altlabel IS NULL AND fac_menuitems_key IS NOT NULL;
+
+UPDATE fac_menu m
+   SET fac_menu_alturl =
+           (SELECT fac_menuitems_url
+              FROM fac_menuitems mi
+             WHERE mi.fac_menuitems_key = m.fac_menuitems_key)
+ WHERE fac_menu_alturl IS NULL AND fac_menuitems_key IS NOT NULL;
+
+UPDATE fac_menu m
+   SET fac_menu_image =
+           (SELECT fac_menuitems_image
+              FROM fac_menuitems mi
+             WHERE mi.fac_menuitems_key = m.fac_menuitems_key)
+ WHERE fac_menu_image IS NULL AND fac_menuitems_key IS NOT NULL;
+
+UPDATE fac_menu m
+   SET fac_menu_info =
+           (SELECT fac_menuitems_oms
+              FROM fac_menuitems mi
+             WHERE mi.fac_menuitems_key = m.fac_menuitems_key)
+ WHERE fac_menu_info IS NULL AND fac_menuitems_key IS NOT NULL;
+
+-- Correctie van een bugje
+ UPDATE fac_menuitems
+   SET fac_menuitems_image = 'fa-window-close'
+ WHERE     fac_menuitems_label = 'lcl_logoff'
+       AND fac_menuitems_image = 'fa-fa-window-close';
+
+-- Desktop, fac_menu_level NULL & 0 => 2
+UPDATE fac_menu
+   SET fac_menu_level = 2
+ WHERE     fac_menu_altgroep IN (0, 1, 2)
+       AND (fac_menu_level IS NULL OR fac_menu_level = 0);
+
+-- Mobile, fac_menu_level NULL & 0 => 1
+UPDATE fac_menu
+   SET fac_menu_level = 1
+ WHERE     fac_menu_altgroep IN (3, 7)
+       AND (fac_menu_level IS NULL OR fac_menu_level = 0);
+
+-- Overig, fac_menu_level NULL & 0 => 2
+UPDATE fac_menu
+   SET fac_menu_level = 2
+ WHERE     fac_menu_altgroep IN (5, 6)
+       AND (fac_menu_level IS NULL OR fac_menu_level = 0);
+
+ALTER TABLE fac_menu
+    MODIFY fac_menu_level NUMBER(1) DEFAULT 1 NOT NULL;
+
+DEF_MENUITEM(2, 'lcl_menu_fac_menustructuur_m'  , '', 'FAC', 'appl/fac/fac_menu_search.asp?urole=bo&mobile=1', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
+
+DECLARE
+    mobile_enabled   fac_setting.fac_setting_pvalue%TYPE;
+BEGIN
+    SELECT COALESCE (fac_setting_pvalue, fac_setting_default)
+      INTO mobile_enabled
+      FROM fac_setting
+     WHERE fac_setting_name = 'mobile_enabled';
+
+    IF mobile_enabled = 1
+    THEN
+        MENU_INS_AFTER('lcl_menu_fac_menustructuur_m', 'lcl_menu_fac_menustructuur', 2);
+    END IF;
+END;
+/
+
+-- fac_menu_portal doet mobile (nog) niets, zet het op NULL waar dit nog niet zo is
+UPDATE fac_menu
+   SET fac_menu_portal = NULL
+ WHERE fac_menu_altgroep = 3;
+
+-- fac_menu_portal betekent (vanaf nu) 'App only', converteer groep = 7 (oude 'App only') naar groep = 3 & portal = 1 (nieuwe 'App only')
+UPDATE fac_menu
+   SET fac_menu_portal = 1, fac_menu_altgroep = 3
+ WHERE fac_menu_altgroep = 7;
+
+-- En ook het fac_menuitems record nog even
+UPDATE fac_menuitems
+   SET fac_menuitems_groep = 3
+ WHERE fac_menuitems_groep = 7;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#69975
+ALTER TABLE prs_perslid_inzetbaar ADD (
+    alg_locatie_key
+        NUMBER(10)
+        CONSTRAINT prs_r_alg_locatie_key5 REFERENCES alg_locatie(alg_locatie_key),
+    prs_perslid_inzetbaar_plaats
+        VARCHAR2 (200),
+    prs_perslid_inzetbaar_radius
+        NUMBER (6)
+    );
+
+ALTER TABLE prs_perslid_inzetbaar ADD (
+    prs_perslid_inzetbaar_plaats_x
+        NUMBER(16,6),
+    prs_perslid_inzetbaar_plaats_y
+        NUMBER(16,6)
+    );
+
+/////////////////////////////////////////////////////////////////////////////////////////// SGGR#67109
+DEF_FAC_FUNCTIE3('WEB_INSMIN', 'INS',  0, 1,    0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#66651
+
+CREATE_TABLE(mld_discipline_discipline, 0)                        -- Kruistabel voor ins_tab_discipline
+(
+    mld_discipline_discipline_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    mld_discipline_key1
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_disc_disc_key1
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL,
+    mld_discipline_key2
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_disc_disc_key2
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL
+);
+CREATE SEQUENCE mld_s_mld_disc_disc_key MINVALUE 1;
+CREATE UNIQUE INDEX mld_i_mld_disc_disc1 ON mld_discipline_discipline(mld_discipline_key1, mld_discipline_key2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#70097
+UPDATE fac_srtnotificatie
+   SET fac_srtnotificatie_mode = BITAND(fac_srtnotificatie_mode ,63)
+ WHERE fac_srtnotificatie_code = 'PRSREG';
+
+UPDATE fac_notificatie
+   SET fac_notificatie_status = BITAND(fac_notificatie_status, 63)
+ WHERE fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key FROM fac_srtnotificatie WHERE fac_srtnotificatie_code = 'PRSREG');
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLST#69062
+ALTER TABLE mld_stdmeldinggroep ADD (
+    mld_stdmeldinggroep_image
+        VARCHAR2(255),
+    mld_stdmeldinggroep_color
+        VARCHAR2 (60)
+);
+
+DEF_MENUITEM(3, 'lcl_mobile_mld_menu', '', 'MLD', 'appl/pda/melding_menu.asp', 0, 0, 'WEB_MLDUSE', 'W', '0', 'fa-play');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#69738
+CREATE INDEX mld_i_mld_melding24 ON mld_melding(mld_ins_discipline_key,mld_melding_behandelaar2_key);
 
-/////////////////////////////////////////////////////////////////////////////////////////// FCLT#*****
 ///////////////////////////////////////////////////////////////////////////////////////////
 
 REGISTERONCE('$Id$')

_UP/DB41to42.src

@@ -0,0 +1,411 @@
+/*
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+SET DEFINE OFF
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64017
+
+ALTER TABLE fac_widget DROP CONSTRAINT fac_c_widgettype1;
+ALTER TABLE fac_widget
+    ADD CONSTRAINT fac_c_widgettype1 CHECK
+            (   (fac_widget_type IN ('FAC', 'URL', 'IMG', 'FLR') AND fac_widget_url IS NOT NULL)
+             OR (fac_widget_type IN ('MK', 'MI', 'RAP', 'FAQ') AND fac_widget_typerefkey IS NOT NULL)
+             OR (fac_widget_type = 'RAW' AND fac_widget_content IS NOT NULL));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64044
+
+-- Pinned & Favorieten; fac_menu_level => 2
+UPDATE fac_menu
+   SET fac_menu_level = 2
+ WHERE fac_menu_altgroep IN (5, 6);
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLOS#70330
+DELETE FROM fac_groeprechten
+ WHERE fac_functie_key IN (SELECT fac_functie_key
+                             FROM fac_functie
+                            WHERE fac_functie_code in ('FAC_FINUSE','WEB_SCHBOF','WEB_FGCNT')
+                          );
+DELETE FROM fac_functie WHERE fac_functie_code IN ('FAC_FINUSE', 'WEB_SCHBOF', 'WEB_FGCNT');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#70518
+DELETE FROM fac_srtnotificatie
+ WHERE fac_srtnotificatie_code IN ('ADDPRS','COMPPZ','COMPSC','COMPCP','COMPFC','WIJZNW','WIJZSC','WIJZFC','WIJZSU');
+
+BEGIN
+    adm.tryalter ('TABLE ins_ol_history DROP CONSTRAINT ins_ol_history_key');
+    adm.tryalter ('TABLE ins_ol_history DROP CONSTRAINT ins_ol_history_type');
+    adm.tryalter ('TABLE ins_ol_history DROP CONSTRAINT ins_alg_locatie_key');
+    adm.trydrop ('TRIGGER ins_t_ins_ol_history_B_IU');
+    adm.trydrop ('SEQUENCE ins_s_ins_ol_history_key');
+    adm.trydrop ('TABLE ins_ol_history');
+    adm.trydrop ('TABLE ins_ol_kenmerk');
+END;
+/
+
+DELETE FROM fac_menuitems
+ WHERE fac_menuitems_url LIKE '%outlet%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#68733
+DEF_FAC_FUNCTIE3('WEB_MLDMSA', 'MLD',  0, 0,    2);
+
+DECLARE
+    functie_key  fac_functie.fac_functie_key%TYPE;
+BEGIN
+    SELECT fac_functie_key
+      INTO functie_key
+      FROM fac_functie
+     WHERE fac_functie_code = 'WEB_MLDMSA';
+    --
+    INSERT INTO fac_groeprechten
+    ( fac_groep_key
+    , fac_functie_key
+    , fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write
+    )
+    SELECT g.fac_groep_key, functie_key, -1,-1,-1,-1
+      FROM fac_groeprechten g
+         , fac_functie f
+     WHERE f.fac_functie_key = g.fac_functie_key
+       AND f.fac_functie_code = 'WEB_MLDMGT';
+    --
+    UPDATE fac_menuitems
+       SET fac_functie_key = functie_key
+     WHERE fac_menuitems_label = 'lcl_menu_mld_afmeldteksten';
+    --
+    UPDATE fac_menu
+       SET fac_functie_key = functie_key
+     WHERE fac_menu_altlabel = 'lcl_menu_mld_afmeldteksten'
+       AND fac_functie_key = (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_MLDMGT');
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#58015
+
+DEF_MENUITEM(3, 'lcl_mobile_news'               , '', 'FAC', 'appl/pda/portalnews.asp', 0, 0, 'WEB_MLDUSE', 'R', '0',             'fa-newspaper');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#68072
+ALTER TABLE fac_imp_mld ADD (ins_discipline_image VARCHAR2(255), mld_stdmelding_image VARCHAR2(255));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#69170
+ALTER TABLE prs_kostenplaatsgrp ADD (
+    prs_kostenplaatsgrp_fin_limit1
+        NUMBER(8),
+    prs_kostenplaatsgrp_fin_limit2
+        NUMBER(8)
+    );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#71324
+ALTER TABLE bez_afspraak
+    MODIFY bez_afspraak_gastheer VARCHAR2 (120);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#66819
+DEF_FAC_SRTNOT('FAQUPD', 0, 'lcl_noti_FAQUPD', 'faq/fac_faq.asp?faq_key=', '0', 'kennisbank', 60);
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#71401
+CREATE INDEX bez_i_bez_afspraak_bez8 ON bez_afspraak(mld_opdr_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLCC#60989
+DEF_FAC_SRTNOT('CNTMEN', 3, 'lcl_noti_CNTMEN', 'cnt/cnt_contract.asp?cnt_key=', '0', 'contract', 10);
+DEF_FAC_SRTNOT('FINMEN', 3, 'lcl_noti_FINMEN', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('INSMEN', 3, 'lcl_noti_INSMEN', 'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
+DEF_FAC_SRTNOT('MLDMEN', 3, 'lcl_noti_MLDMEN', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('ORDMEN', 3, 'lcl_noti_ORDMEN', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// VOLK#71732
+ALTER TABLE prs_werkplek MODIFY prs_werkplek_volgnr NUMBER(8);
+ALTER TABLE prj_werkplek MODIFY prj_werkplek_volgnr NUMBER(8);
+ALTER TABLE fac_imp_perslid MODIFY prs_werkplek_volgnr NUMBER(8);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MDUX#64435
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_inkprijs   NUMBER(11,5);
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_brutoprijs NUMBER(11,5);
+ALTER TABLE bes_bestelling_item MODIFY bes_bestelling_item_brutoprijs NUMBER(11,5);
+ALTER TABLE bes_srtdeel_prijs   MODIFY bes_srtdeel_prijs_prijs        NUMBER(11,5);
+ALTER TABLE bes_srtdeel_prijs   MODIFY bes_srtdeel_prijs_inkprijs     NUMBER(11,5);
+ALTER TABLE bes_srtprod_prijs   MODIFY bes_srtprod_prijs_prijs        NUMBER(11,5);
+ALTER TABLE bes_srtprod_prijs   MODIFY bes_srtprod_prijs_inkprijs     NUMBER(11,5);
+ALTER TABLE bes_bedrijf_srtprod MODIFY bes_bedrijf_srtprod_prijs      NUMBER(11,5);
+ALTER TABLE fac_imp_catalogus   MODIFY ins_srtdeel_prijs              NUMBER(11,5);
+ALTER TABLE fac_imp_catalogus   MODIFY ins_srtdeel_inkprijs           NUMBER(11,5);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// KMMO#71593
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE FAC_SETTING_NAME LIKE 'fac_reserved_number1';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#71771
+CREATE INDEX fac_i_fac_imp_file1 ON fac_imp_file(fac_import_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// VLKC#68725
+ALTER TABLE mld_stdmelding
+  ADD prs_kostenplaats_key
+      NUMBER(10)
+      CONSTRAINT mld_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats (prs_kostenplaats_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#72113
+CREATE INDEX mld_i_mld_opdr18 on mld_opdr(mld_opdr_parent_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65011
+DEF_FAC_FUNCTIE3('WEB_FACRFR', 'FAC',  0, 0, NULL);
+
+UPDATE fac_menu
+   SET fac_functie_key = (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_FACRFR')
+ WHERE fac_menu_altlabel = 'lcl_menu_fac_refresh_accept';
+
+UPDATE fac_menuitems
+   SET fac_functie_key = (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_FACRFR')
+ WHERE fac_menuitems_label = 'lcl_menu_fac_refresh_accept';
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+
+INSERT INTO fac_groeprechten
+    ( fac_groep_key
+    , fac_functie_key
+    , fac_gebruiker_prs_level_read, fac_gebruiker_alg_level_read, fac_gebruiker_prs_level_write, fac_gebruiker_alg_level_write
+    )
+    (SELECT gr.fac_groep_key
+          , (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_FACRFR')
+          , -1,-1,-1,-1
+       FROM fac_groeprechten gr
+          , fac_functie ff
+      WHERE ff.fac_functie_key = gr.fac_functie_key
+        AND ff.fac_functie_code = 'WEB_PRSSYS'
+    );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#72083
+UPDATE fac_menu
+   SET fac_menu_alturl = 'https://facilitor.nl/status'
+     , fac_menu_altlabel = 'lcl_Facilitor_Status'
+ WHERE fac_menu_altlabel = 'lcl_Facilitor_Forum';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'https://facilitor.nl/status'
+     , fac_menuitems_label = 'lcl_Facilitor_Status'
+ WHERE fac_menuitems_label = 'lcl_Facilitor_Forum';
+
+/////////////////////////////////////////////////////////////////////////////////////////// KFSG#72129
+DELETE FROM fac_session
+ WHERE prs_perslid_key IN
+       (SELECT prs_perslid_key
+          FROM prs_perslid
+         WHERE prs_perslid_inactief IS NOT NULL
+       );
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#72091
+ALTER TABLE prs_bedrijf_bedrijf ADD
+( prs_bedrijf_bedrijf_account1 VARCHAR2(60)
+, prs_bedrijf_bedrijf_account2 VARCHAR2(60)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// BAMG#71612
+ALTER TABLE alg_gebouw
+  ADD (alg_gebouw_mld NUMBER(1) DEFAULT(1)
+       CONSTRAINT alg_c_alg_gebouw_mld CHECK(alg_gebouw_mld IS NULL
+                                          OR alg_gebouw_mld = 1)
+      );
+
+/////////////////////////////////////////////////////////////////////////////////////////// APGR#70293
+ALTER TABLE bes_disc_params
+  ADD (bes_disc_params_deliver_fe NUMBER(1) DEFAULT(0) NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#72152
+ALTER TABLE aut_client_perslid
+    ADD (aut_client_perslid_appbuild NUMBER(10),
+         aut_client_perslid_appversion VARCHAR2 (20));
+
+/////////////////////////////////////////////////////////////////////////////////////////// KMMO#71448
+ALTER TABLE prs_bedrijfdienstlocatie ADD prs_perslid_key
+    NUMBER(10) CONSTRAINT prs_r_prs_perslid_key21 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE;
+
+ALTER TABLE prs_bedrijfdienstlocatie DROP CONSTRAINT prs_c_prs_bedrijf_key2;
+ALTER TABLE prs_bedrijfdienstlocatie ADD CONSTRAINT prs_c_prs_bdlbp1 CHECK ((prs_bedrijf_key IS NOT NULL AND prs_perslid_key IS NULL) OR (prs_bedrijf_key IS NULL AND prs_perslid_key IS NOT NULL));
+
+ALTER TABLE prs_bedrijfdienstlocatie DROP CONSTRAINT prs_u_prs_bedrijfdienstloc_key DROP INDEX;
+ALTER TABLE prs_bedrijfdienstlocatie ADD CONSTRAINT prs_u_prs_bedrijfdienstloc_key UNIQUE (prs_bedrijf_key, prs_perslid_key, prs_dienst_key, alg_locatie_key, alg_gebouw_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#70720
+
+CREATE SEQUENCE fac_s_fac_layout_key            MINVALUE 100;
+CREATE TABLE fac_layout
+(
+   fac_layout_key               NUMBER(10)
+                                CONSTRAINT fac_k_fac_layout_key PRIMARY KEY,
+   fac_layout_version           NUMBER(2)
+                                DEFAULT 1 NOT NULL,
+   fac_layout_screen            VARCHAR2(128) NOT NULL,
+   fac_layout_options           VARCHAR2(4000), -- JSON
+   fac_layout_aanmaak           DATE
+                                DEFAULT SYSDATE
+);
+
+DEF_MENUITEM(2, 'lcl_menu_fac_layout', '', 'FAC', 'appl/mgt/fac_layout.asp', 0, 0, 'WEB_FACTAB', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_fac_layout', 'lcl_menu_wgt_pages', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#71289
+ALTER TABLE fac_rapport
+    ADD (fac_rapport_datum DATE DEFAULT SYSDATE);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65716
+
+CREATE VIEW fac_v_rap_auditusage AS SELECT * FROM DUAL;
+DEF_RAPPORT('WEB_FACMGT', 0, 'fac_v_rap_auditusage',           'BEHEER: Audit gebruik',                 'Rapport audit gebruik',
+                                                               'ADMIN: Audit usage',                    'Report audit usage')
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#69983
+CREATE SEQUENCE fac_s_imp_csv_key               MINVALUE 1;
+CREATE_TABLE(fac_imp_csv, 0)
+(
+  fac_imp_csv_key         NUMBER(10) PRIMARY KEY,
+  fac_import_key          NUMBER(10) CONSTRAINT fac_r_fac_import_key4 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_imp_csv_index       NUMBER(10) NOT NULL,
+  fac_imp_csv_datum       DATE DEFAULT SYSDATE,
+  fac_imp_file_line       VARCHAR2(4000 CHAR),
+  fac_imp_csv_col01       VARCHAR2(4000),
+  fac_imp_csv_col02       VARCHAR2(4000),
+  fac_imp_csv_col03       VARCHAR2(4000),
+  fac_imp_csv_col04       VARCHAR2(4000),
+  fac_imp_csv_col05       VARCHAR2(4000),
+  fac_imp_csv_col06       VARCHAR2(4000),
+  fac_imp_csv_col07       VARCHAR2(4000),
+  fac_imp_csv_col08       VARCHAR2(4000),
+  fac_imp_csv_col09       VARCHAR2(4000),
+  fac_imp_csv_col10       VARCHAR2(4000),
+  fac_imp_csv_col11       VARCHAR2(4000),
+  fac_imp_csv_col12       VARCHAR2(4000),
+  fac_imp_csv_col13       VARCHAR2(4000),
+  fac_imp_csv_col14       VARCHAR2(4000),
+  fac_imp_csv_col15       VARCHAR2(4000),
+  fac_imp_csv_col16       VARCHAR2(4000),
+  fac_imp_csv_col17       VARCHAR2(4000),
+  fac_imp_csv_col18       VARCHAR2(4000),
+  fac_imp_csv_col19       VARCHAR2(4000),
+  fac_imp_csv_col20       VARCHAR2(4000),
+  fac_imp_csv_col21       VARCHAR2(4000),
+  fac_imp_csv_col22       VARCHAR2(4000),
+  fac_imp_csv_col23       VARCHAR2(4000),
+  fac_imp_csv_col24       VARCHAR2(4000),
+  fac_imp_csv_col25       VARCHAR2(4000),
+  fac_imp_csv_col26       VARCHAR2(4000),
+  fac_imp_csv_col27       VARCHAR2(4000),
+  fac_imp_csv_col28       VARCHAR2(4000),
+  fac_imp_csv_col29       VARCHAR2(4000),
+  fac_imp_csv_col30       VARCHAR2(4000),
+  fac_imp_csv_col31       VARCHAR2(4000),
+  fac_imp_csv_col32       VARCHAR2(4000),
+  fac_imp_csv_col33       VARCHAR2(4000),
+  fac_imp_csv_col34       VARCHAR2(4000),
+  fac_imp_csv_col35       VARCHAR2(4000),
+  fac_imp_csv_col36       VARCHAR2(4000),
+  fac_imp_csv_col37       VARCHAR2(4000),
+  fac_imp_csv_col38       VARCHAR2(4000),
+  fac_imp_csv_col39       VARCHAR2(4000),
+  fac_imp_csv_col40       VARCHAR2(4000),
+  fac_imp_csv_col41       VARCHAR2(4000),
+  fac_imp_csv_col42       VARCHAR2(4000),
+  fac_imp_csv_col43       VARCHAR2(4000),
+  fac_imp_csv_col44       VARCHAR2(4000),
+  fac_imp_csv_col45       VARCHAR2(4000),
+  fac_imp_csv_col46       VARCHAR2(4000),
+  fac_imp_csv_col47       VARCHAR2(4000),
+  fac_imp_csv_col48       VARCHAR2(4000),
+  fac_imp_csv_col49       VARCHAR2(4000),
+  fac_imp_csv_col50       VARCHAR2(4000),
+  fac_imp_csv_col51       VARCHAR2(4000),
+  fac_imp_csv_col52       VARCHAR2(4000),
+  fac_imp_csv_col53       VARCHAR2(4000),
+  fac_imp_csv_col54       VARCHAR2(4000),
+  fac_imp_csv_col55       VARCHAR2(4000),
+  fac_imp_csv_col56       VARCHAR2(4000),
+  fac_imp_csv_col57       VARCHAR2(4000),
+  fac_imp_csv_col58       VARCHAR2(4000),
+  fac_imp_csv_col59       VARCHAR2(4000),
+  fac_imp_csv_col60       VARCHAR2(4000),
+  fac_imp_csv_col61       VARCHAR2(4000),
+  fac_imp_csv_col62       VARCHAR2(4000),
+  fac_imp_csv_col63       VARCHAR2(4000),
+  fac_imp_csv_col64       VARCHAR2(4000),
+  fac_imp_csv_col65       VARCHAR2(4000),
+  fac_imp_csv_col66       VARCHAR2(4000),
+  fac_imp_csv_col67       VARCHAR2(4000),
+  fac_imp_csv_col68       VARCHAR2(4000),
+  fac_imp_csv_col69       VARCHAR2(4000),
+  fac_imp_csv_col70       VARCHAR2(4000),
+  fac_imp_csv_col71       VARCHAR2(4000),
+  fac_imp_csv_col72       VARCHAR2(4000),
+  fac_imp_csv_col73       VARCHAR2(4000),
+  fac_imp_csv_col74       VARCHAR2(4000),
+  fac_imp_csv_col75       VARCHAR2(4000),
+  fac_imp_csv_col76       VARCHAR2(4000),
+  fac_imp_csv_col77       VARCHAR2(4000),
+  fac_imp_csv_col78       VARCHAR2(4000),
+  fac_imp_csv_col79       VARCHAR2(4000),
+  fac_imp_csv_col80       VARCHAR2(4000),
+  fac_imp_csv_col81       VARCHAR2(4000),
+  fac_imp_csv_col82       VARCHAR2(4000),
+  fac_imp_csv_col83       VARCHAR2(4000),
+  fac_imp_csv_col84       VARCHAR2(4000),
+  fac_imp_csv_col85       VARCHAR2(4000),
+  fac_imp_csv_col86       VARCHAR2(4000),
+  fac_imp_csv_col87       VARCHAR2(4000),
+  fac_imp_csv_col88       VARCHAR2(4000),
+  fac_imp_csv_col89       VARCHAR2(4000),
+  fac_imp_csv_col90       VARCHAR2(4000),
+  fac_imp_csv_col91       VARCHAR2(4000),
+  fac_imp_csv_col92       VARCHAR2(4000),
+  fac_imp_csv_col93       VARCHAR2(4000),
+  fac_imp_csv_col94       VARCHAR2(4000),
+  fac_imp_csv_col95       VARCHAR2(4000),
+  fac_imp_csv_col96       VARCHAR2(4000),
+  fac_imp_csv_col97       VARCHAR2(4000),
+  fac_imp_csv_col98       VARCHAR2(4000),
+  fac_imp_csv_col99       VARCHAR2(4000)
+);
+CREATE INDEX fac_i_fac_imp_csv1 ON fac_imp_csv(fac_import_key);
+
+DEF_IMPORT('WEB_FACFAC', 'GENERICCSV',          'FIP: Generieke CSV import',                               'FIP: Generic CSV import')
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#71204
+UPDATE fac_setting
+   SET fac_setting_pvalue =
+           REGEXP_REPLACE (fac_setting_pvalue, 'fa-sync', 'fa-fclt-refresh')
+ WHERE     fac_setting_name = 'buttons_in_hamburger'
+       AND fac_setting_pvalue IS NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#71719
+UPDATE fac_functie
+   SET fac_functie_groep = 1
+ WHERE fac_functie_code = 'WEB_WGTMAN';
+
+ALTER TABLE fac_widget_page
+    ADD fac_groep_key NUMBER (10)
+            CONSTRAINT fac_r_widget_page_groep_key
+                REFERENCES fac_groep (fac_groep_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#72515
+ALTER TABLE fac_usrrap_cols DROP CONSTRAINT fac_c_usrrap_cols_visible;
+ALTER TABLE fac_usrrap_cols ADD CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'C', 'I', 'H', 'S', 'U'));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#72573
+//DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_obj', '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=1', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_prs', '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=4', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_wp' , '', 'RES', 'appl/mgt/res_deel.asp?ins_min_level=5', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_res_reserveerbare_prs', 'lcl_menu_res_reserveerbare_obj', 2);
+MENU_INS_AFTER('lcl_menu_res_reserveerbare_wp', 'lcl_menu_res_reserveerbare_prs', 2);
+
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_deel.asp?ins_min_level=1'
+ WHERE fac_menuitems_label = 'lcl_menu_res_reserveerbare_obj'
+   AND fac_menuitems_url = 'appl/mgt/res_deel.asp';
+UPDATE fac_menu SET fac_menu_alturl = 'appl/mgt/res_deel.asp?ins_min_level=1'
+ WHERE fac_menu_alturl = 'appl/mgt/res_deel.asp';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#00000
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/epilogue.inc

@@ -90,6 +90,11 @@ SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Name too long: ' || object_type || ' ' |
   FROM user_objects
  WHERE LENGTH (object_name) > 30;
 
+/* In packages */
+SELECT 'OR'||'A-'||'DB'||_DBV_STRING||' Name too long: ' || object_name || '.' || procedure_name
+  FROM user_procedures
+ WHERE LENGTH (procedure_name) > 30;
+
 // Soms nog niet goed
 BEGIN
   DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE);

_UP/prologue.inc

@@ -66,7 +66,7 @@ PROMPT [&fcltlogfile]
 PROMPT
 PROMPT ************************************************************************
 PROMPT UPGRADE of Facilitor schema to version EVALCONCAT(DB, _DBV) $Revision$
-PROMPT Copyright (c) 1996-2021 Aareon Nederland B.V., the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1996-2022 Aareon Nederland B.V. All rights reserved.
 PROMPT
 SELECT 'The current version of Facilitor@' || USER || ' is: ' || fac.getdbversion()
   FROM DUAL;

_UTIL/AnonymizeallAAXX.bat

@@ -1,23 +0,0 @@
-:: PRODUCTIE/Shared AAXX
-CALL UPGRADEONEAAXX.BAT AAAH X9zz76fYF81QFgkTa AAAH
-CALL UPGRADEONEAAXX.BAT AAAR XrnBKFzP_GG_wVuqH AAAR
-CALL UPGRADEONEAAXX.BAT AADO X_y4iaFLHiQvOFe7S AADO
-CALL UPGRADEONEAAXX.BAT AADS XwevTsmgFOduU3G_l AADS
-CALL UPGRADEONEAAXX.BAT AAES X4Uq3u0BlqiegE1TN AAES
-CALL UPGRADEONEAAXX.BAT AAGN X2vbVuNRfFRoETBIk AAGN
-CALL UPGRADEONEAAXX.BAT AAIT XVVRjBJ4wyzFdD7Bt AAIT
-CALL UPGRADEONEAAXX.BAT AASA XgajPn1CLx2_1EN2d AASA
-CALL UPGRADEONEAAXX.BAT AAVG X5IMTNmN7mcTJ_EUB AAVG
-CALL UPGRADEONEAAXX.BAT AAXX X9zfWjE3EtS5O5ibG AAXX
-CALL UPGRADEONEAAXX.BAT AQQA X9jP7Ry46gyp_103R AQQA
-CALL UPGRADEONEAAXX.BAT EXPO XrtBOckil_qE5qDTr EXPO
-CALL UPGRADEONEAAXX.BAT INLO XuOw5e0L463dmvQUO INLO
-CALL UPGRADEONEAAXX.BAT NMMS XCTaYCXNqeEKP8ASH NMMS
-CALL UPGRADEONEAAXX.BAT RABO XGuhRoFrOnS9S5QLP RABO
-CALL UPGRADEONEAAXX.BAT SMKA XMcYZU7selQamoJLX SMKA
-CALL UPGRADEONEAAXX.BAT CVGZ XV_XhHDmbDzglX_ct CVGZ
-CALL UPGRADEONEAAXX.BAT HDFM XrcjUgExCLAU966ha HDFM
-
-TITLE KLAAR!
-
-PAUSE

_UTIL/AnonymizeallFCLT.bat

@@ -1,121 +0,0 @@
-:: PRODUCTIE/Shared SaaS
-CALL UPGRADEONEFCLT.BAT ALLI X37MgCj_MbaQnREwp ALLI
-CALL UPGRADEONEFCLT.BAT ALLV XbBQosfQXqiBvQVIa ALLV
-CALL UPGRADEONEFCLT.BAT APGR XaaQdLS4mMMxDrF0m APGR
-CALL UPGRADEONEFCLT.BAT ARAI XiZgOL0B2cGbSqvP_ ARAI
-CALL UPGRADEONEFCLT.BAT ARBO X8z2F172BMEBJEaBS ARBO
-CALL UPGRADEONEFCLT.BAT AREO Xm9VTyaei0Q8PbTtV AREO
-CALL UPGRADEONEFCLT.BAT ASDL X9pKB3XUG_u5ppc_F ASDL
-CALL UPGRADEONEFCLT.BAT ASLE XVUZfHU6nsRwZqdov ASLE
-CALL UPGRADEONEFCLT.BAT ASTE XIQPjjHmTrSY6pVe8 ASTE
-CALL UPGRADEONEFCLT.BAT BAMG XPokYz6j0fJbiz4d6 BAMG
-CALL UPGRADEONEFCLT.BAT BLCC Xa2s4Q38qI8dWS1TR BLCC
-CALL UPGRADEONEFCLT.BAT BLIJ XjspODYIKtc31IRvu BLIJ
-CALL UPGRADEONEFCLT.BAT BLOS XJKEgj54OhceAEceI BLOS
-CALL UPGRADEONEFCLT.BAT BOFO XQigftoWTdwV92ll8 BOFO
-CALL UPGRADEONEFCLT.BAT BONS XHLG_Zqa0DUM0QM9J BONS
-CALL UPGRADEONEFCLT.BAT BRWN X_BH3F32TErIsCUH_ BRWN
-CALL UPGRADEONEFCLT.BAT BSSC XC85k0oFwE96VUgTL BSSC
-CALL UPGRADEONEFCLT.BAT CEVA Xkr5nxSI0980joIXQ CEVA
-CALL UPGRADEONEFCLT.BAT CONN X5dSiNgJMXLwTDtVe CONN
-CALL UPGRADEONEFCLT.BAT CSUN XsRVh_WnMCmUXIhH1 CSUN
-CALL UPGRADEONEFCLT.BAT CWTD XfW0o3qr4m1XjY2Bf CWTD
-CALL UPGRADEONEFCLT.BAT DENB X07Stmypvi902g0Da DENB
-CALL UPGRADEONEFCLT.BAT DIAN XGxPCZZf_wlEr6bNW DIAN
-CALL UPGRADEONEFCLT.BAT DLLG XelJSO3bF6VPpw2KH DLLG
-CALL UPGRADEONEFCLT.BAT DRIE X2ofiloXyNqFeut3z DRIE
-CALL UPGRADEONEFCLT.BAT FLEX XhKjFGVsT0Eik94B_ FLEX
-CALL UPGRADEONEFCLT.BAT FLOW XZKPzgYkFXa_mYgfn FLOW
-CALL UPGRADEONEFCLT.BAT GDFS X_pNbI2n_tFd_HZ1p GDFS
-CALL UPGRADEONEFCLT.BAT GDZW XVdjjHOtxNT9jBEx3 GDZW
-CALL UPGRADEONEFCLT.BAT GVBA XYfF5iiQD04NhXkZs GVBA
-CALL UPGRADEONEFCLT.BAT HCAS XD7o2FHL8DG2fg7_a HCAS
-CALL UPGRADEONEFCLT.BAT HEIN XrqnoRQbOt3vkoHNG HEIN
-CALL UPGRADEONEFCLT.BAT HMOD XH_kvggtXEc_lq5Gg HMOD
-CALL UPGRADEONEFCLT.BAT HOUT XaNk_EYi3bjeTsCJK HOUT
-CALL UPGRADEONEFCLT.BAT HPJI XS8UrdSkweLb3dIed HPJI
-CALL UPGRADEONEFCLT.BAT IVET XSoXmveHbWwB1gwVs IVET
-CALL UPGRADEONEFCLT.BAT KFHT XMEKQD7rpAW1aiz8R KFHT
-CALL UPGRADEONEFCLT.BAT KFST XkzbOhMkAVG07cNwN KFST
-CALL UPGRADEONEFCLT.BAT KIBE XM427e7VCQcL342GG KIBE
-CALL UPGRADEONEFCLT.BAT KLIM XfGXlNZNQ8y64eXxn KLIM
-CALL UPGRADEONEFCLT.BAT KMMO Xnb_R0g_PFEX0Cx5d KMMO
-CALL UPGRADEONEFCLT.BAT KONG XG2vI1fxINb1CCA5U KONG
-CALL UPGRADEONEFCLT.BAT LBRN XuKLLuQmCAgHuRz50 LBRN
-CALL UPGRADEONEFCLT.BAT LOGC XfbxHI_Kyhtb_66RD LOGC
-CALL UPGRADEONEFCLT.BAT LOGI X6MKH63qn20ynqTE0 LOGI
-CALL UPGRADEONEFCLT.BAT LUDE XF_dyTeoUpg4Zo_XK LUDE
-CALL UPGRADEONEFCLT.BAT MAAS XeuH2K8pAoPxAa7_K MAAS
-CALL UPGRADEONEFCLT.BAT MARE XgWOZxC1Ipv5xHCyk MARE
-CALL UPGRADEONEFCLT.BAT MARX XP_aXRAppo2yqXto_ MARX
-CALL UPGRADEONEFCLT.BAT MDUX XFZejsZOuq40ZmX8L MDUX
-CALL UPGRADEONEFCLT.BAT MNNL XzzxvjjzdkJlgyPFK MNNL
-CALL UPGRADEONEFCLT.BAT MRTS XVQUK8x7IjOURIdm2 MRTS
-CALL UPGRADEONEFCLT.BAT NETS XIBff59esQQJH2klV NETS
-CALL UPGRADEONEFCLT.BAT NYBU XRhG5rq37nICfcvwZ NYBU
-CALL UPGRADEONEFCLT.BAT OOZR Xx78rvwxhXDogQSHZ OOZR
-CALL UPGRADEONEFCLT.BAT PCHA Xqv45hIz_1MyCxyO2 PCHA
-CALL UPGRADEONEFCLT.BAT PCHD XgP9DBeuqHXoj_RZF PCHD
-CALL UPGRADEONEFCLT.BAT PCHE XsEgrrzCt3c9piQTO PCHE
-CALL UPGRADEONEFCLT.BAT PCHH XY5vZu4Gzqe154iFD PCHH
-CALL UPGRADEONEFCLT.BAT PCHP XAuAoyY9KNLBzqi69 PCHP
-CALL UPGRADEONEFCLT.BAT PCHS XpZ3tqFfbIuHCI4Yb PCHS
-CALL UPGRADEONEFCLT.BAT PCHW XVETzl1309_E5_j_E PCHW
-CALL UPGRADEONEFCLT.BAT PCHY XJUWs9TBeGdyvkJVO PCHY
-CALL UPGRADEONEFCLT.BAT PCIN XLNauZH_UkPDzDkOW PCIN
-CALL UPGRADEONEFCLT.BAT PHBF XOyESf_eMpxxhK31S PHBF
-CALL UPGRADEONEFCLT.BAT PRIS Xg7M3eh8R_0MXD_mT PRIS
-CALL UPGRADEONEFCLT.BAT QUAW XROwIyCrLRizuSeUv QUAW
-CALL UPGRADEONEFCLT.BAT RENK Xptt70T9YaTsJn_Dy RENK
-CALL UPGRADEONEFCLT.BAT RTWE X0PSnnjJle9NvDJTZ RTWE
-CALL UPGRADEONEFCLT.BAT SCBR XBK3W2cJ_KDyEbPao SCBR
-CALL UPGRADEONEFCLT.BAT SGGR XAO310RUJR0heWma0 SGGR
-CALL UPGRADEONEFCLT.BAT SKAF Xyg6G9o9jLUHToJsI SKAF
-CALL UPGRADEONEFCLT.BAT SKBN XuDXwCN5hioYpq14A SKBN
-CALL UPGRADEONEFCLT.BAT SROZ Xjg8csW4__0zjBFAx SROZ
-CALL UPGRADEONEFCLT.BAT STAM XoJs8GkSngaBHHvHk STAM
-CALL UPGRADEONEFCLT.BAT STBR X_t_LG86MapOF_tDL STBR
-CALL UPGRADEONEFCLT.BAT STCH Xadq9KcSKmshOf8lf STCH
-CALL UPGRADEONEFCLT.BAT STPH XyYAS7o7BvgtbUqyW STPH
-CALL UPGRADEONEFCLT.BAT SUTF XLP2sY1LHvSHlx1q8 SUTF
-CALL UPGRADEONEFCLT.BAT SVRZ XKmbhAX0f0t_e321S SVRZ
-CALL UPGRADEONEFCLT.BAT TEAR XsElzDtLzbiPFKGLs TEAR
-CALL UPGRADEONEFCLT.BAT TRIV X5B3j_dImjWDdogUy TRIV
-CALL UPGRADEONEFCLT.BAT TWYN X70wTd4yasvW70AIm TWYN
-CALL UPGRADEONEFCLT.BAT UBRH XDGxbUdPgjVcaCpho UBRH
-CALL UPGRADEONEFCLT.BAT VBGO Xh2r8SPaCovMNJvmo VBGO
-CALL UPGRADEONEFCLT.BAT VEBE X_GvM7FRphkLOqjYP VEBE
-CALL UPGRADEONEFCLT.BAT VENR XZIhKs9hKfXiVcuAr VENR
-CALL UPGRADEONEFCLT.BAT VEST XS0_yHAeGuzw8mgod VEST
-CALL UPGRADEONEFCLT.BAT VGLD X3Tg5YV3zgxtKz0B4 VGLD
-CALL UPGRADEONEFCLT.BAT VLKC XM25OGK3xc0iV2Fgp VLKC
-CALL UPGRADEONEFCLT.BAT VOLK XVGY9ZT9RhYYZa5ys VOLK
-CALL UPGRADEONEFCLT.BAT WEHK XJvjh3WmdYRrR13xf WEHK
-CALL UPGRADEONEFCLT.BAT WELK X0L0tXXLY_JkR2dJv WELK
-CALL UPGRADEONEFCLT.BAT WEND XoxydOjYdSp4yg4BZ WEND
-CALL UPGRADEONEFCLT.BAT WOMA XEVSh9fSXd_qTs7aZ WOMA
-CALL UPGRADEONEFCLT.BAT WOWA X_XvQy4SSAil3KKmd WOWA
-CALL UPGRADEONEFCLT.BAT WOHA Xb1vF0SrmZR5nhKX7 WOHA
-CALL UPGRADEONEFCLT.BAT WOHW XX1QLGKXVMN2nwexb WOHW
-CALL UPGRADEONEFCLT.BAT WOMD XOcGpkWKx61WMtfOl WOMD
-CALL UPGRADEONEFCLT.BAT WOIJ XVg0HYfOcdqPsXTMA WOIJ
-CALL UPGRADEONEFCLT.BAT WOWW Xxn15bLVgs51LfmEd WOWW
-CALL UPGRADEONEFCLT.BAT WTCA X1LPtVUw3PUdEl26_ WTCA
-CALL UPGRADEONEFCLT.BAT WZUV XbCyBvFit0l2r_sIu WZUV
-CALL UPGRADEONEFCLT.BAT YASK XZSPjBDFVEYbMbbjm YASK
-
-
-
-:: PRODUCTIE/Dedicated SaaS
-CALL UPGRADEONEFCLT.BAT PNBR Xnjy1KFYIkXtfqHqj PNBR
-CALL UPGRADEONEFCLT.BAT HSLE XLUDuA_vCCyWxXhj8 HSLE
-CALL UPGRADEONEFCLT.BAT KFNS X3qtSZP2I2KkY9zAS KFNS
-CALL UPGRADEONEFCLT.BAT KFSG XAsuEwkL0cZxwIhUY KFSG
-CALL UPGRADEONEFCLT.BAT NOUR XcaXudb1guD4E_yUm NOUR
-CALL UPGRADEONEFCLT.BAT YFTH Xd_VBLA8kAzZpV8og YFTH
-CALL UPGRADEONEFCLT.BAT YKPN XzFAciNbLCvmBc97G YKPN
-CALL UPGRADEONEFCLT.BAT AKZO XKqKfy_5sdsSOOfAP AKZO
-
-TITLE KLAAR!
-
-PAUSE

_UTIL/TestOracle/CreateUserWORK.sql

@@ -1,5 +1,5 @@
 PROMPT Creating user '&&1' with password '&&2'
-SET ECHO ON
+SET ECHO OFF
 
 whenever sqlerror exit failure;
 DECLARE

_UTIL/TestOracle/_CREA_WORK.bat

@@ -12,12 +12,12 @@ SET logger=%targetSERVER%_%targetUSER%_%~n1.log
 
 set oracle_sid=%targetSERVER%
 @TITLE Creating %targetUSER%@%targetSERVER%
-@ECHO   Creating %targetUSER%@%targetSERVER% 1>&2
+@ECHO   %time:~,8% Creating %targetUSER%@%targetSERVER% 1>&2
 sqlplus.exe system/XZSTXnHGjfNNODfQc@%targetSERVER% @.\CreateUser%targetSERVER%.sql %targetUSER% %targetPASS%
 @if errorlevel 1 goto nocreate
 
 @TITLE Running FCLT%DBVER%.sql
-@ECHO   Running FCLT%DBVER%.sql on %targetUSER%@%targetSERVER% 1>&2
+@ECHO   %time:~,8% Running FCLT%DBVER%.sql on %targetUSER%@%targetSERVER% 1>&2
 ECHO @%BUILD%\DB%DBVER%\FCLT%DBVER%.sql >xtmp.sql
 ECHO UPDATE fac_version SET fac_version_cust = 'CREA'; >>xtmp.sql
 ECHO @@z:\Project\FACILITOR\Database\trunk\_UTIL\SUPPORT_IDP\supportJWT_SAAS.sql>>xtmp.sql

_UTIL/TestOracle/_CREA_WORK_UPDATE.bat

@@ -12,19 +12,19 @@ SET logger=%targetSERVER%_%targetUSER%_%~n1.log
 
 set oracle_sid=%targetSERVER%
 @TITLE Creating %targetUSER%@%targetSERVER%
-@ECHO   Creating %targetUSER%@%targetSERVER% 1>&2
+@ECHO   %time:~,8% Creating %targetUSER%@%targetSERVER% 1>&2
 sqlplus.exe system/XZSTXnHGjfNNODfQc@%targetSERVER% @.\CreateUser%targetSERVER%.sql %targetUSER% %targetPASS%
 @if errorlevel 1 goto nocreate
 
 @TITLE Running FCLT%DBPRV%.sql
-@ECHO   Running FCLT%DBPRV%.sql on %targetUSER%@%targetSERVER% 1>&2
+@ECHO   %time:~,8% Running FCLT%DBPRV%.sql on %targetUSER%@%targetSERVER% 1>&2
 ECHO @@%DBPRVPATH% >xtmp.sql
 ECHO UPDATE fac_version SET fac_version_cust = 'CREA'; >>xtmp.sql
 ECHO EXIT >>xtmp.sql
 sqlplus.exe %targetUSER%/%targetPASS%@%targetSERVER% @xtmp.sql | FINDSTR /C:"BEGIN adm.sys" /C:"ORA-" /C:"PLS-" /C:"SP2-" /C:"Waarschuwing: package-body is aangemaakt met compilatiefouten."
 
 @TITLE Running DB%DBPRV%to%DBVER%.sql
-@ECHO   Running DB%DBPRV%to%DBVER%.sql on %targetUSER%@%targetSERVER% 1>&2
+@ECHO   %time:~,8% Running DB%DBPRV%to%DBVER%.sql on %targetUSER%@%targetSERVER% 1>&2
 ECHO define ACCEPT_DB%DBVER%=1 >xtmp.sql
 ECHO @%BUILD%\DB%DBVER%\DB%DBPRV%to%DBVER%.sql >>xtmp.sql
 ECHO @@z:\Project\FACILITOR\Database\trunk\_UTIL\SUPPORT_IDP\supportJWT_SAAS.sql >>xtmp.sql

_UTIL/TestOracle/compare.js

@@ -135,7 +135,7 @@ function checkauto(tbl)
     while (!oRs.Eof)
     {
         var col = oRs("COLUMN_NAME").Value;
-        if (!col.match(/(_KEY|_VOLGNR|_SALT|_HASH|_OTPSECRET|APIKEY|RES_RUIMTE_SYNCSTATE)$/))
+        if (!col.match(/(_KEY|_VOLGNR|_SALT|_HASH|_OTPSECRET|APIKEY|RES_RUIMTE_SYNCSTATE|FAC_LOCALE_KOLOMKEYVAL)$/))
             cols.push(col)
         oRs.MoveNext();
     }
@@ -159,14 +159,19 @@ function checkempty(sql, txt)
         //WScript.Echo(prettysql(sql));
         //WScript.Echo("\n");
         var n = 0;
+        var names = [];
         while (!oRs.Eof)
         {
             n++;
             var flds = [];
             for (var i = 0; i < oRs.Fields.Count; i++)
             {
+                if (n == 1)
+                    names.push(oRs.Fields(i).Name);
                 flds.push(oRs.Fields(i).Value);
             }
+            if (n == 1)
+                WScript.Echo(names.join(",") + "\n---");
             WScript.Echo(flds.join(","));
             oRs.MoveNext();
 

_UTIL/TestOracle/emailerror.js

@@ -8,8 +8,8 @@ if (mailall)
 {
     fac_send_mail_html("e.groener@facilitor.nl");
     fac_send_mail_html("m.geerdink@facilitor.nl");
-    fac_send_mail_html("a.tiehuis@facilitor.nl");
+    fac_send_mail_html("k.reefman@facilitor.nl");
-    fac_send_mail_html("gijs.wassink@aareon.nl");
+    //fac_send_mail_html("gijs.wassink@aareon.nl");
 }
 //fac_send_mail_html("glipman@home.nl");
 //fac_send_mail_html("helpdesk@facilitor.nl");
@@ -33,8 +33,9 @@ function fac_send_mail_html(adrTo,strSubj,strBody)
 
     var iConf =  new ActiveXObject("CDO.Configuration")
     iConf.Fields(sch+"sendusing") = 2;
-    //iConf.Fields(sch+"smtpserver") = "emmex11.ad.aareon.com";
+    //iConf.Fields(sch+"smtpserver") = "facws001";
-    iConf.Fields(sch+"smtpserver") = "facws001";
+    iConf.Fields(sch+"smtpserver") = "Smtprelay.ad.aareon.com";
+
     iConf.Fields(sch+"smtpserverport") = 25;
     iConf.Fields(sch+"smtpauthenticate") = 0; // anoniem
     iConf.Fields.Update();

_UTIL/TestOracle/testSVN31Branch.bat

@@ -1,43 +0,0 @@
-@SET DBVER=31d
-@SET DBPRV=30
-@SET DBPRVPATH=z:\Archief\FACILITOR\2016\03\DB30f\FCLT30f.sql
-IF EXIST %DBPRVPATH% GOTO START
-ECHO %DBPRVPATH% niet gevonden
-PAUSE
-GOTO EINDE
-
-:START
-@echo off
-REM Usage: %0 [revision]
-REM Internal only
-REM Let op: je hebt SVN.EXE nodig die bijvoorbeeld meekomt als je bij TortoiseSVN
-REM         er voor kiest 'command line client tools' ook te installeren (default uit)
-REM
-
-SET PAD=http://facws001:8080/svn/Facilitor/Database/branches/DB31
-
-SET SVNTOOLS=z:\Project\FACILITOR\Tools\MAKTOOLS\SlikSvn\bin
-
-IF x%1==x GOTO getrev
-SET REVISION=%1
-GOTO gotrev
-
-:getrev
-FOR /F "tokens=2 skip=4" %%G IN ('%SVNTOOLS%\svn info %PAD% --revision HEAD') DO ^
-IF NOT DEFINED REVISION SET REVISION=%%G
-
-:gotrev
-@TITLE Getting r%REVISION%
-SET FCLTMP=%TEMP%\FACILITOR_SVN_T_%REVISION%
-
-%SVNTOOLS%\svn export -r %REVISION% %PAD% %FCLTMP%
-PUSHD %FCLTMP%
-CALL mx NOWAIT %FCLTMP%\UIT
-POPD
-CALL _CREA_WORK %DBVER% %FCLTMP%\UIT
-CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% %FCLTMP%\UIT
-
-cscript compare.js %DBPRV% %DBVER% >diff%DBVER%.lst 2>>&1
-
-::rmdir /S %FCLTMP%
-:EINDE

_UTIL/TestOracle/testSVN32.bat

@@ -1,43 +0,0 @@
-@SET DBVER=32b
-@SET DBPRV=31
-@SET DBPRVPATH=z:\Archief\FACILITOR\2017\01\DB31e\FCLT31e.sql
-IF EXIST %DBPRVPATH% GOTO START
-ECHO %DBPRVPATH% niet gevonden
-PAUSE
-GOTO EINDE
-
-:START
-@echo off
-REM Usage: %0 [revision]
-REM Internal only
-REM Let op: je hebt SVN.EXE nodig die bijvoorbeeld meekomt als je bij TortoiseSVN
-REM         er voor kiest 'command line client tools' ook te installeren (default uit)
-REM
-
-SET PAD=http://facws001:8080/svn/Facilitor/Database/trunk
-
-SET SVNTOOLS=z:\Project\FACILITOR\Tools\MAKTOOLS\SlikSvn\bin
-
-IF x%1==x GOTO getrev
-SET REVISION=%1
-GOTO gotrev
-
-:getrev
-FOR /F "tokens=2 skip=4" %%G IN ('%SVNTOOLS%\svn info %PAD% --revision HEAD') DO ^
-IF NOT DEFINED REVISION SET REVISION=%%G
-
-:gotrev
-@TITLE Getting r%REVISION%
-SET FCLTMP=%TEMP%\FACILITOR_SVN_T_%REVISION%
-
-%SVNTOOLS%\svn export -r %REVISION% %PAD% %FCLTMP%
-PUSHD %FCLTMP%
-CALL mx NOWAIT %FCLTMP%\UIT
-POPD
-CALL _CREA_WORK %DBVER% %FCLTMP%\UIT
-CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% %FCLTMP%\UIT
-
-cscript compare.js %DBPRV% %DBVER% >diff%DBVER%.lst 2>>&1
-
-::rmdir /S %FCLTMP%
-:EINDE

_UTIL/TestOracle/testSVN33aBranch.bat

@@ -1,44 +0,0 @@
-@SET DBVER=33a
-@SET DBPRV=33
-@SET DBPRVPATH=z:\Archief\FACILITOR\2017\03\DB33\FCLT33.sql
-
-IF EXIST %DBPRVPATH% GOTO START
-ECHO %DBPRVPATH% niet gevonden
-PAUSE
-GOTO EINDE
-
-:START
-@echo off
-REM Usage: %0 [revision]
-REM Internal only
-REM Let op: je hebt SVN.EXE nodig die bijvoorbeeld meekomt als je bij TortoiseSVN
-REM         er voor kiest 'command line client tools' ook te installeren (default uit)
-REM
-
-SET PAD=http://facws001:8080/svn/Facilitor/Database/branches/DB33
-
-SET SVNTOOLS=z:\Project\FACILITOR\Tools\MAKTOOLS\SlikSvn\bin
-
-IF x%1==x GOTO getrev
-SET REVISION=%1
-GOTO gotrev
-
-:getrev
-FOR /F "tokens=2 skip=4" %%G IN ('%SVNTOOLS%\svn info %PAD% --revision HEAD') DO ^
-IF NOT DEFINED REVISION SET REVISION=%%G
-
-:gotrev
-@TITLE Getting r%REVISION%
-SET FCLTMP=%TEMP%\FACILITOR_SVN_T_%REVISION%
-
-%SVNTOOLS%\svn export -r %REVISION% %PAD% %FCLTMP%
-PUSHD %FCLTMP%
-CALL mx NOWAIT %FCLTMP%\UIT
-POPD
-CALL _CREA_WORK %DBVER% %FCLTMP%\UIT
-CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% %FCLTMP%\UIT
-
-cscript compare.js %DBPRV% %DBVER% >diff%DBVER%.lst 2>>&1
-
-::rmdir /S %FCLTMP%
-:EINDE

_UTIL/TestOracle/testbranch40.bat

@@ -0,0 +1,4 @@
+SET DBVER=40f
+SET DBPRV=39
+SET DBPRVPATH=z:\Archief\FACILITOR\2020.2\DB39a\FCLT39a.sql
+@testworkCOMMON.bat branchDB40

_UTIL/TestOracle/testwork37.bat

@@ -1,52 +0,0 @@
-@SET DBVER=37
-@SET DBPRV=36
-@SET DBPRVPATH=z:\Archief\FACILITOR\2019\01\DB36\FCLT36.sql
-::=============================
-@SET BUILD=z:\Project\FACILITOR\BUILD
-
-IF EXIST %DBPRVPATH% GOTO START
-ECHO %DBPRVPATH% niet gevonden
-PAUSE
-GOTO EINDE
-
-:START
-@echo off
-REM Usage: %0
-
-PUSHD z:\Project\FACILITOR\Database\trunk
-CALL mx NOWAIT
-POPD
-:START0
-IF EXIST %BUILD%\DB%DBVER%\FCLT%DBVER%.sql GOTO STARTCREA
-ECHO %BUILD%\DB%DBVER%\FCLT%DBVER%.sql niet gevonden
-PAUSE
-GOTO EINDE
-:STARTCREA
-
-ECHO ==========================================================================================================>diffwork_%DBVER%.lst
-ECHO Comparescript %0>>diffwork_%DBVER%.lst
-ECHO Creates databases users TEST_DB%DBVER% and TEST_DB%DBPRV%TO%DBVER% and compares them>>diffwork_%DBVER%.lst
-ECHO (password is the same as username in uppercase)>>diffwork_%DBVER%.lst
-ECHO ==========================================================================================================>>diffwork_%DBVER%.lst
-ECHO.>>diffwork_%DBVER%.lst
-
-ECHO Starting Create, see diffwork_%DBVER%.lst
-ECHO Starting Create>>diffwork_%DBVER%.lst
-CALL _CREA_WORK %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
-
-ECHO Starting Update, see diffwork_%DBVER%.lst
-ECHO Starting Update>>diffwork_%DBVER%.lst
-CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
-
-ECHO Starting Compare, see diffwork_%DBVER%.lst
-ECHO Starting Compare>>diffwork_%DBVER%.lst
-cscript compare.js %DBPRV% %DBVER% >>diffwork_%DBVER%.lst 2>>&1
-
-findstr /i "ORA-" "diffwork_%DBVER%.lst"
-if %errorlevel%==1 GOTO EINDE
-
-findstr /C:"ORA-" "diffwork_%DBVER%.lst" | cscript emailerror.js
-@TITLE ORA-Errors found, e-mail sent
-PAUSE
-
-:EINDE

_UTIL/TestOracle/testwork38.bat

@@ -1,4 +0,0 @@
-SET DBVER=38
-SET DBPRV=37
-SET DBPRVPATH=z:\Archief\FACILITOR\2019\02\DB37\FCLT37.sql
-@testworkCOMMON.bat trunk

_UTIL/TestOracle/testwork39.bat

@@ -1,4 +0,0 @@
-SET DBVER=39
-SET DBPRV=38
-SET DBPRVPATH=z:\Archief\FACILITOR\2020.1\DB38e\FCLT38e.sql
-@testworkCOMMON.bat trunk

_UTIL/TestOracle/testwork40.bat

@@ -1,4 +1,4 @@
-SET DBVER=40
+SET DBVER=40d
 SET DBPRV=39
 SET DBPRVPATH=z:\Archief\FACILITOR\2020.2\DB39a\FCLT39a.sql
 @testworkCOMMON.bat trunk %*

_UTIL/TestOracle/testwork41.bat

@@ -0,0 +1,5 @@
+:: Achteraan d:\Backup\BackupAppl.bat op Jos's PC staat deze gescheduled
+SET DBVER=41a
+SET DBPRV=40
+SET DBPRVPATH=z:\Archief\FACILITOR\2021.1\DB40g\FCLT40g.sql
+@testworkCOMMON.bat trunk %*

_UTIL/TestOracle/testwork42.bat

@@ -0,0 +1,5 @@
+:: Achteraan d:\Backup\BackupAppl.bat op Jos's PC staat deze gescheduled
+SET DBVER=42
+SET DBPRV=41
+SET DBPRVPATH=z:\Archief\FACILITOR\2022.1\DB41a\FCLT41a.sql
+@testworkCOMMON.bat trunk %*

_UTIL/TestOracle/testworkCOMMON.bat

@@ -19,7 +19,8 @@ SET mailall=%2
 SET OUTPUT=%BUILD%\DB%DBVER%\TEST_OUTPUT
 MKDIR %OUTPUT%>nul
 MKDIR %OUTPUT%\OLD>nul
-move %OUTPUT%\*.lst %OUTPUT%\OLD
+DEL %OUTPUT%\OLD\*.LST
+MOVE %OUTPUT%\*.lst %OUTPUT%\OLD
 
 PUSHD %SOURCE%
 CALL mx12 NOWAIT
@@ -46,9 +47,10 @@ ECHO Starting Update %DBPRV%to%DBVER% test
 ECHO Starting Update %DBPRV%to%DBVER% test>>diffwork_%DBVER%.lst
 CALL _CREA_WORK_UPDATE %DBPRV% %DBPRVPATH% %DBVER% z:\Project\FACILITOR\BUILD>>diffwork_%DBVER%.lst
 
-ECHO Starting Compare
+ECHO %time:~,8% Starting Compare
 ECHO Starting Compare>>diffwork_%DBVER%.lst
 cscript compare.js %DBPRV% %DBVER% >>diffwork_%DBVER%.lst 2>>&1
+ECHO %time:~,8% Done Compare
 
 findstr /i "ORA-" "diffwork_%DBVER%.lst"
 if %errorlevel%==1 GOTO EINDE

_UTIL/UpgradeOneAAXX.bat

@@ -1,8 +0,0 @@
-SET SERVER=AAXX
-REM %1 Database user
-REM %2 Wachtwoord
-REM %3 Klantcode
-
-TITLE %3 bezig in %1@%SERVER%
-
-sqlplus %1/%2@%SERVER% @anonymize.sql

_UTIL/UpgradeOneFCLT.bat

@@ -1,8 +0,0 @@
-SET SERVER=FCLT
-REM %1 Database user
-REM %2 Wachtwoord
-REM %3 Klantcode
-
-TITLE %3 bezig in %1@%SERVER%
-
-sqlplus %1/%2@%SERVER% @anonymize.sql