FSN#34433 C versie

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

ADM/ADM_PAC.SRC

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

ALG/ALG_TAB.SRC

@@ -73,7 +73,7 @@ CREATE_TABLE(alg_locatie,0)
         DATE
         DEFAULT NULLDATUM,
     alg_locatie_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_postcode
         VARCHAR2(12),
     alg_locatie_plaats
@@ -81,7 +81,7 @@ CREATE_TABLE(alg_locatie,0)
     alg_locatie_land
         VARCHAR2(30),
     alg_locatie_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_post_postcode
         VARCHAR2(12),
     alg_locatie_post_plaats
@@ -382,17 +382,14 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(1)
         CONSTRAINT alg_c_prs_verhuurbaar CHECK(prs_verhuurbaar IS NULL
                                             OR prs_verhuurbaar = 1 ),
-    alg_srtruimte_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT alg_c_alg_srtruimt_uitvoertijd CHECK(alg_srtruimte_uitvoertijd >= 0),
     alg_srtruimte_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT alg_c_alg_srtruimt_t_uitvtijd CHECK(alg_srtruimte_t_uitvoertijd.tijdsduur >= 0),
    CONSTRAINT alg_c_prs_werkplek_verhuurbaar CHECK(NOT(prs_bevat_werkplek = 1
                                                     AND prs_verhuurbaar IS NULL)),
     CONSTRAINT alg_u_alg_srtruimte_upper UNIQUE(alg_srtruimte_upper, alg_srtruimte_verwijder)
 );
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_srtruimte_locatiegebouw,0)
 (
@@ -569,6 +566,7 @@ CREATE_TABLE(alg_kenmerk,0)
        NUMBER(1)
     ,alg_kenmerk_groep
         NUMBER(1)
+       DEFAULT 0 NOT NULL
     ,alg_kenmerk_lengte
         NUMBER(4)
     ,alg_kenmerk_dec

ALG/ALG_VIE.SRC

@@ -1201,8 +1201,8 @@ AS
             x.ruimtesoort,
             x.ruimtegebruik,
             x.vloersoort,
-            REPLACE (TO_CHAR (ROUND (x.nen2580_opp, 2)), '.', ','),
-            REPLACE (TO_CHAR (ROUND (x.vloer_opp, 2)), '.', ','),
+            ROUND (x.nen2580_opp, 2),
+            ROUND (x.vloer_opp, 2),
             TO_CHAR (100 * ROUND (x.bezetting, 2)) || '%',
             x.werkplekken,
             x.alg_gebouw_key

BES/BES_PAC.SRC

@@ -771,7 +771,8 @@ AS
                p.prs_afdeling_key,
                abd.mld_adres_key_fac,
                bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
-               b.bes_bestelling_parentkey
+               b.bes_bestelling_parentkey,
+               b.prs_perslid_key
           FROM prs_bedrijf bd,
                bes_srtdeel s,
                bes_bestelling_item bi,
@@ -900,7 +901,7 @@ AS
                 )
             VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
                  SYSDATE, rec1.mld_adres_key_lev, factura_key,
-                 i_userkey,
+                 rec1.prs_perslid_key,
                  lbord_id
                 );
             aantalopdrachtregels := 0;
@@ -1382,7 +1383,8 @@ AS
       bericht    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
    BEGIN
       BEGIN
-         SELECT   COALESCE(ma.alg_locatie_key, -1),
+         SELECT   DISTINCT
+                  COALESCE(ma.alg_locatie_key, -1),
                   p.prs_afdeling_key,
                   bsg.ins_discipline_key,
                   bd.ins_discipline_omschrijving

BES/BES_TAB.SRC

@@ -30,6 +30,9 @@ CREATE_TABLE(bes_srtgroep,0)
         NOT_NULL(bes_srtgroep_omschrijving, bes_c_bes_srtgroep_omschr),
     bes_srtgroep_volgnr
         NUMBER(3),
+    prs_kostensoort_key
+        NUMBER(10)
+        CONSTRAINT bes_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key),
     bes_srtgroep_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -170,6 +173,9 @@ CREATE_TABLE(bes_srtdeel,0)
         NUMBER(6),
     bes_srtdeel_voorraadmax
         NUMBER(6),
+    bes_srtdeel_voorraadfactor
+        NUMBER(6)
+        DEFAULT 1,        /* factor tussen inkoop- en verkoopenheden van zelfde artikelnr tbv voorraadbepaling */
     bes_srtdeel_margepct  /* percentage van de leveranciersmarge (verkoop-inkoop) dat voor ons is, de rest is voor whoever */
         NUMBER(3),
     bes_srtdeel_wijzigdagen /* zoveel dagen voor leverdatum nog te wijzigen */
@@ -179,7 +185,11 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_depotverdeelpct
         NUMBER(3),
     bes_srtdeel_notitie /* magazijnlocatie */
-        VARCHAR2(50)
+        VARCHAR2(50),
+    bes_srtdeel_maxbestel    /* De voorrraad is het maximum aantal dat ik mag bestellen {0=nee (default), 1=ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 
@@ -487,7 +497,11 @@ CREATE_TABLE(bes_disc_params, 0)
         DEFAULT 1000000,
     bes_disc_params_bestellimiet5
         NUMBER(11,2)
-        DEFAULT 1000000
+        DEFAULT 1000000,
+    bes_disc_params_freeartikel /* Vrije-artikel mode {0=ouderwets, 1=vrij artikelen, 2=met suggest voor bestaande (future)} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 //// flexprops
@@ -558,6 +572,7 @@ CREATE_TABLE(bes_kenmerk, 0)
       NUMBER(1)
 ,  bes_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  bes_kenmerk_toonbaar
       NUMBER(1)
 ,  bes_kenmerk_volgnummer

BES/BES_VIE.SRC

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

BEZ/BEZ_PAC.SRC

@@ -228,6 +228,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
               FROM   res_ruimte_opstelling ro, res_alg_ruimte rag, alg_ruimte r, alg_verdieping v, alg_gebouw g
              WHERE       ro.res_ruimte_key = rag.res_ruimte_key
                      AND rag.alg_ruimte_key = r.alg_ruimte_key
+                     AND res_alg_ruimte_verwijder IS NULL
                      AND r.alg_verdieping_key = v.alg_verdieping_key
                      AND v.alg_gebouw_key = g.alg_gebouw_key
                      AND ro.res_ruimte_opstel_key = topstel;
@@ -260,6 +261,12 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
                              -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
                              AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -286,6 +293,12 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND (og.alg_gebouw_key = palg_gebter_key
                                OR og.alg_terreinsector_key = palg_gebter_key)
                              AND id.ins_alg_ruimte_type IN ('R', 'T')
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;

BEZ/BEZ_TAB.SRC

@@ -136,6 +136,7 @@ CREATE_TABLE(bez_kenmerk,0)
         NUMBER(1)
     ,bez_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,bez_kenmerk_lengte
         NUMBER(4)
     ,bez_kenmerk_dec

BEZ/BEZ_VIE.SRC

@@ -33,6 +33,87 @@ SELECT a.bez_afspraak_key,
        AND p2.prs_perslid_key = a.bez_afspraak_contact_key
        AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bez_v_udr_bezoeker, 1)
+(
+   key,
+   host,
+   contact,
+   plaats_code,
+   plaats_omschrijving,
+   regio,
+   district,
+   locatie_code,
+   locatie_naam,
+   gebouw_code,
+   gebouw_naam,
+   verdieping_code,
+   verdieping_naam,
+   ruimte_code,
+   ruimte_naam,
+   afspraak_ruimte,
+   afspraak_opmerking,
+   bezoeker_naam,
+   bezoeker_bedrijf,
+   bezoek_van,
+   bezoek_tot,
+   actie,
+   bezoeker_opmerking,
+   bezoeker_binnen,
+   bezoeker_buiten,
+   pasnr,
+   FCLT_3D_LOCATIE_KEY,
+   FCLT_3D_AFDELING_KEY
+)
+AS
+   SELECT b.bez_bezoekers_key,
+          p1.prs_perslid_naam_full bez_afspraak_host,
+          p2.prs_perslid_naam_full bez_afspraak_contact,
+          og.alg_onroerendgoed_code,
+          og.alg_onroerendgoed_omschrijving,
+          r.alg_regio_omschrijving,
+          d.alg_district_omschrijving,
+          l.alg_locatie_code,
+          l.alg_locatie_omschrijving,
+          og.alg_gebouw_code,
+          og.alg_gebouw_naam,
+          og.alg_verdieping_code,
+          og.alg_verdieping_omschrijving,
+          og.alg_ruimte_nr,
+          og.alg_ruimte_omschrijving,
+          a.bez_afspraak_ruimte,
+          a.bez_afspraak_opmerking,
+          b.bez_afspraak_naam bezoeker_naam,
+          b.bez_afspraak_bedrijf bezoeker_bedrijf,
+          a.bez_afspraak_datum,
+          a.bez_afspraak_eind,
+          ba.bez_actie_omschrijving,
+          b.bez_afspraak_opmerking bezoeker_opmerking,
+          b.bez_bezoekers_done,
+          b.bez_bezoekers_out,
+          b.bez_bezoekers_pasnr,
+          og.alg_locatie_key,
+          PP1.PRS_AFDELING_KEY
+     FROM bez_afspraak a,
+          bez_bezoekers b,
+          prs_v_perslid_fullnames_all p1,
+          prs_v_perslid_fullnames_all p2,
+          alg_v_allonrgoed_gegevens og,
+          alg_locatie l,
+          alg_district d,
+          alg_regio r,
+          bez_actie ba,
+          prs_perslid pp1
+    WHERE     a.bez_afspraak_key = b.bez_afspraak_key
+          AND pp1.prs_perslid_key = a.bez_afspraak_host_key
+          AND p1.prs_perslid_key = a.bez_afspraak_host_key
+          AND p2.prs_perslid_key = a.bez_afspraak_contact_key
+          AND a.bez_actie_key = ba.bez_actie_key
+          AND l.alg_district_key = d.alg_district_key
+          AND d.alg_regio_key = r.alg_regio_key
+          AND l.alg_locatie_key = og.alg_locatie_key
+          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
+
 REGISTERRUN('$Id$')
 
 #endif  // BEZ

CAD/CAD_TAB.SRC

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

CARE/CARE_INI.SRC

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

CARE/CARE_VIE.SRC

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

CNT/CNT_INI.SRC

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

CNT/CNT_PAC.SRC

@@ -337,8 +337,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
       -- de datum is een zinvolle splitsdatum, alles in orde
       INSERT INTO cnt_contract (cnt_contract_nummer, cnt_contract_omschrijving, cnt_contract_looptijd_tot, cnt_contract_kosten,
-                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_contract_verwijder,
-                                cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
+                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_prs_perslid_key,
+                                cnt_contract_verwijder, cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
                                 cnt_contract_contact_persoon, ins_discipline_key, cnt_contract_document,
                                 prs_perslid_key_eig, prs_perslid_key_beh, prs_afdeling_key_eig, cnt_contract_status,
                                 cnt_contract_looptijd_van, prs_kostenplaats_key, cnt_contract_termijnkosten, prs_kostensoort_key,
@@ -352,6 +352,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
                   cnt_prs_afdeling_key,
+                  cnt_prs_perslid_key,
                   NULL,
                   cnt_contract_nummer_intern,
                   cnt_contract_korting,
@@ -506,7 +507,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN VARCHAR2
    IS
       s VARCHAR2 (2048 CHAR);
-      varlev prs_bedrijf.prs_bedrijf_naam%TYPE;
+      varlev VARCHAR2 (255 CHAR); -- Kan nu ook een samenstelling zijn van prs_perslid gegevens.
       varomsch cnt_contract.cnt_contract_omschrijving%TYPE;
       varnummer cnt_contract.cnt_contract_nummer_intern%TYPE;
    BEGIN
@@ -517,12 +518,19 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       -- ##KEY##    = cnt_contract_nummer_intern
       IF INSTR (s, '#') > 0
       THEN
-           SELECT prs_bedrijf_naam,
+         SELECT   COALESCE(prs_bedrijf_naam, fac.getsetting ('prs_pers_string'), fac.getsetting ('prs_dep_string')),
                   cnt_contract_omschrijving,
                   cnt_contract_nummer_intern
-           INTO   varlev, varomsch, varnummer
-           FROM   cnt_contract c, prs_bedrijf b
-          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+           INTO   varlev,
+                  varomsch,
+                  varnummer
+           FROM   cnt_contract c,
+                  prs_bedrijf b,
+                  prs_perslid p,
+                  prs_afdeling a
+          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+            AND   c.cnt_prs_perslid_key = p.prs_perslid_key(+)
+            AND   c.cnt_prs_afdeling_key = a.prs_afdeling_key(+)
             AND   c.cnt_contract_key = p_contract_key;
          s :=
             REPLACE (REPLACE (REPLACE (s, '##LEV##', varlev), '##OMSCH##', varomsch),

CNT/CNT_TAB.SRC

@@ -95,6 +95,9 @@ CREATE_TABLE(cnt_contract,0)
 ,  cnt_prs_bedrijf_key
    NUMBER(10)
    CONSTRAINT cnt_r_prs_bedrijf_key REFERENCES prs_bedrijf(prs_bedrijf_key)
+,  cnt_prs_perslid_key
+   NUMBER(10)
+   CONSTRAINT cnt_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
 ,  cnt_prs_afdeling_key
    NUMBER(10)
    CONSTRAINT cnt_r_prs_afdeling_key REFERENCES prs_afdeling(prs_afdeling_key)
@@ -313,6 +316,7 @@ CREATE_TABLE(cnt_kenmerk, 0)
       NUMBER(1)
 ,  cnt_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_toonbaar
       NUMBER(1)
 ,  cnt_kenmerk_volgnummer

CNT/CNT_TRI.SRC

@@ -55,9 +55,14 @@ BEFORE INSERT OR UPDATE ON cnt_contract
 FOR EACH ROW
 BEGIN
   IF (   :new.cnt_prs_bedrijf_key  IS NULL
-     AND :new.cnt_prs_afdeling_key IS NULL)
+     AND :new.cnt_prs_afdeling_key IS NULL
+     AND :new.cnt_prs_perslid_key  IS NULL)
   OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
      AND :new.cnt_prs_afdeling_key IS NOT NULL)
+  OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
+     AND :new.cnt_prs_perslid_key IS NOT NULL)
+  OR (   :new.cnt_prs_perslid_key  IS NOT NULL
+     AND :new.cnt_prs_afdeling_key IS NOT NULL)
   THEN
     APPLICATION_ERROR_GOTO(-20000,'cnt_m002');
   ELSE

CNT/CNT_VIE.SRC

@@ -273,31 +273,12 @@ SELECT basis.contract_key, basis.internnr, basis.externnr,
                   cs.ins_discipline_omschrijving contractsoort,
                   tc.cnt_typecontract_key typecontract_key,
                   tc.cnt_typecontract_omschrijving typecontract,
-                  TO_CHAR
-                       (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE),
-                        'DD-MM-YYYY'
-                       ) ingangsdatum,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) rappeldatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE)) ingangsdatum,
+                  TRUNC (COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) rappeldatum,
                   rt.cnt_termijn_omschrijving rappeltermijn,
-                  TO_CHAR
-                     (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key),
-                                COALESCE (cc.cnt_contract_looptijd_tot,
-                                          SYSDATE
-                                         )
-                               ),
-                      'DD-MM-YYYY'
-                     ) opzegdatum,
+                  TRUNC (COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key), COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE))) opzegdatum,
                   ot.cnt_termijn_omschrijving opzegtermijn,
-                  TO_CHAR (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE),
-                           'DD-MM-YYYY'
-                          ) einddatum,
+                  TRUNC (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)) einddatum,
                   (SELECT d.prs_afdeling_naam6
                      FROM prs_v_aanwezigafdeling d
                     WHERE d.prs_afdeling_key =
@@ -925,6 +906,249 @@ AS
                ck k25
             ON x.cnt_contract_key = k25.cnt_contract_key AND k25.vnr = 25;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* NB: een contract komt net zo vaak voor als zijn scope */
+CREATE_VIEW(cnt_v_udr_contract, 1)
+(
+   nummer,
+   nummer_extern,
+   versie,
+   omschrijving,
+   opmerking,
+   contractpartij,
+   contractafdeling,
+   contracteigenaar,
+   contractbeheerder,
+   begindatum,
+   einddatum,
+   opzegdatum,
+   rappeldatum,
+   opzegtermijn,
+   rappeltermijn,
+   fase_actief,
+   status,
+   contract_key,
+   fclt_3d_discipline_key,
+   fclt_3d_afdeling_key,
+   srtcontract_type,
+   fclt_3d_locatie_key,
+   locatie_oms,
+   locatie_omschrijving,
+   district_omschrijving,
+   locatie_code,
+   discipline_omschrijving,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   kosten,
+   termijnkosten,
+   korting,
+   dienst_omschrijving
+)
+AS
+   SELECT c.cnt_contract_nummer_intern,
+          c.cnt_contract_nummer,
+          c.cnt_contract_versie,
+          c.cnt_contract_omschrijving,
+          c.cnt_contract_document,
+          COALESCE (b.prs_bedrijf_naam, afd2.prs_afdeling_naam, pf2.prs_perslid_naam_full),
+          d.prs_afdeling_omschrijving,
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all
+            WHERE prs_perslid_key = prs_perslid_key_eig),
+          (SELECT prs_perslid_naam_full
+             FROM prs_v_perslid_fullnames_all
+            WHERE prs_perslid_key = prs_perslid_key_beh),
+          c.cnt_contract_looptijd_van begindatum,
+          c.cnt_contract_looptijd_tot einddatum,
+          cnt.cnt_getopzegdatum (c.cnt_contract_key) cnt_opzegdatum,
+          cnt.cnt_getrappeldatum (c.cnt_contract_key) cnt_rappeldatum,
+          (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
+             FROM cnt_termijn
+            WHERE cnt_termijn_key = c.cnt_contract_opzegtermijn)
+             cnt_opzegtermijn,
+          (SELECT lcl.x ('cnt_termijn_omschrijving', cnt_termijn_key, cnt_termijn_omschrijving)
+             FROM cnt_termijn
+            WHERE cnt_termijn_key = c.cnt_contract_rappeltermijn)
+             cnt_rappeltermijn,
+          cnt.cnt_contract_status (c.cnt_contract_looptijd_van,
+                                   cnt.cnt_getrappeldatum (c.cnt_contract_key),
+                                   cnt.cnt_getopzegdatum (c.cnt_contract_key),
+                                   c.cnt_contract_looptijd_tot)
+             fase_actief,
+          c.cnt_contract_status,
+          c.cnt_contract_key cnt_contract_key,
+          COALESCE (c.ins_discipline_key, -1) disc_key,
+          c.prs_afdeling_key_eig eigenaar_key,
+          (SELECT lcl.x ('cnt_typecontract_omschrijving',
+                         dp.cnt_srtcontract_type,
+                         cnt_typecontract_omschrijving)
+             FROM cnt_typecontract
+            WHERE cnt_typecontract_key = dp.cnt_srtcontract_type)
+             cnt_srtcontract_type,
+          alg_locatie_key,
+          alg_locatie_oms,
+          alg_locatie_omschrijving,
+          alg_district_omschrijving,
+          alg_locatie_code,
+          cd.ins_discipline_omschrijving ins_discipline_omschrijving,
+          (SELECT ksg.prs_kostensoortgrp_oms
+             FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+            WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                  AND ks.prs_kostensoort_key = c.prs_kostensoort_key)
+             kostensoortgroep,
+          ks.prs_kostensoort_oms kostensoort,
+          kp.prs_kostenplaats_nr kpn,
+          kp.prs_kostenplaats_omschrijving kpn_omschrijving,
+          ROUND (DECODE (fac.getsetting ('cnt_scopeverdeling'),
+                         1, cloc.cnt_contract_plaats_gewicht,
+                         0,   cloc.cnt_contract_plaats_gewicht
+                            * c.cnt_contract_kosten
+                            / (SELECT SUM (cnt_contract_plaats_gewicht)
+                                 FROM cnt_contract_plaats ccp
+                                WHERE ccp.cnt_contract_key = cnt_contract_key),
+                         c.cnt_contract_kosten), 2)
+             kosten,
+          c.cnt_contract_termijnkosten,
+          c.cnt_contract_korting,
+          di.prs_dienst_omschrijving
+     FROM prs_bedrijf b,
+          cnt_v_aanwezigcontract c,
+          prs_dienst di,
+          prs_v_afdeling d,
+          prs_afdeling afd2,
+          prs_v_perslid_fullnames_all pf2,
+          alg_district ad,
+          cnt_disc_params dp,
+          cnt_discipline cd,
+          prs_kostenplaats kp,
+          prs_kostensoort ks,
+          (SELECT alg_locatie_omschrijving || ' (' || alg_locatie_code || ')' alg_locatie_oms,
+                  alg_locatie_omschrijving,
+                  alg_locatie_code,
+                  alg_district_key,
+                  cnt_contract_key,
+                  ll.alg_locatie_key,
+                  cnt_contract_plaats_gewicht
+             FROM alg_locatie ll,
+                  (SELECT cp.cnt_contract_key,
+                          cp.cnt_alg_plaats_key alg_locatie_key,
+                          cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp
+                    WHERE cnt_alg_plaats_code = 'L'
+                   UNION ALL
+                   SELECT cp.cnt_contract_key, g.alg_locatie_key, cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp, alg_gebouw g
+                    WHERE cnt_alg_plaats_code = 'G' AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
+                   UNION ALL
+                   SELECT cp.cnt_contract_key, t.alg_locatie_key, cnt_contract_plaats_gewicht
+                     FROM cnt_contract_plaats cp, alg_terreinsector t
+                    WHERE cnt_alg_plaats_code = 'T'
+                          AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key, d.ins_alg_locatie_key, NULL
+                     FROM cnt_contract_object co, ins_deel d
+                    WHERE co.cnt_ins_deel_key = d.ins_deel_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key, g.alg_locatie_key, NULL
+                     FROM cnt_contract_onrgoed co,
+                          alg_gebouw g,
+                          alg_verdieping v,
+                          alg_ruimte r
+                    WHERE     co.alg_onrgoed_niveau = 'R'
+                          AND co.alg_onrgoed_key = r.alg_ruimte_key
+                          AND r.alg_verdieping_key = v.alg_verdieping_key
+                          AND v.alg_gebouw_key = g.alg_gebouw_key
+                   UNION ALL
+                   SELECT co.cnt_contract_key, t.alg_locatie_key, NULL
+                     FROM cnt_contract_onrgoed co, alg_terreinsector t
+                    WHERE co.alg_onrgoed_niveau = 'T'
+                          AND co.alg_onrgoed_key = t.alg_terreinsector_key) scloc
+            WHERE ll.alg_locatie_key = scloc.alg_locatie_key) cloc
+    WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+          AND c.cnt_prs_afdeling_key = afd2.prs_afdeling_key(+)
+          AND c.cnt_prs_perslid_key = pf2.prs_perslid_key(+)
+          AND c.prs_dienst_key = di.prs_dienst_key(+)
+          AND d.prs_afdeling_key = c.prs_afdeling_key_eig
+          AND c.ins_discipline_key = dp.cnt_ins_discipline_key
+          AND c.ins_discipline_key = cd.ins_discipline_key
+          AND cloc.cnt_contract_key(+) = c.cnt_contract_key
+          AND cloc.alg_district_key = ad.alg_district_key(+)
+          AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+          AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+          AND (c.cnt_contract_status = 0
+               AND (SYSDATE < c.cnt_contract_looptijd_van
+                    OR (SYSDATE BETWEEN c.cnt_contract_looptijd_van
+                                    AND  cnt.cnt_getrappeldatum (c.cnt_contract_key))
+                    OR (SYSDATE BETWEEN cnt.cnt_getrappeldatum (c.cnt_contract_key)
+                                    AND  cnt.cnt_getopzegdatum (c.cnt_contract_key))
+                    OR (SYSDATE - 1 BETWEEN cnt.cnt_getopzegdatum (c.cnt_contract_key) - 1
+                                        AND  c.cnt_contract_looptijd_tot)))
+          AND c.cnt_contract_key IN
+                   (SELECT cnt_contract_key
+                      FROM (SELECT cc.cnt_contract_key,
+                                   ins_discipline_key,
+                                   di.alg_regio_key,
+                                   ll.alg_district_key,
+                                   clk.alg_locatie_key
+                              FROM (SELECT cp.cnt_contract_key,
+                                           cp.cnt_alg_plaats_key alg_locatie_key
+                                      FROM cnt_contract_plaats cp
+                                     WHERE cnt_alg_plaats_code = 'L'
+                                    UNION ALL
+                                    SELECT cp.cnt_contract_key, g.alg_locatie_key
+                                      FROM cnt_contract_plaats cp, alg_gebouw g
+                                     WHERE cnt_alg_plaats_code = 'G'
+                                           AND cp.cnt_alg_plaats_key = g.alg_gebouw_key
+                                    UNION ALL
+                                    SELECT cp.cnt_contract_key, t.alg_locatie_key
+                                      FROM cnt_contract_plaats cp, alg_terreinsector t
+                                     WHERE cnt_alg_plaats_code = 'T'
+                                           AND cp.cnt_alg_plaats_key = t.alg_terreinsector_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, d.ins_alg_locatie_key
+                                      FROM cnt_contract_object co, ins_deel d
+                                     WHERE co.cnt_ins_deel_key = d.ins_deel_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, g.alg_locatie_key
+                                      FROM cnt_contract_onrgoed co,
+                                           alg_gebouw g,
+                                           alg_verdieping v,
+                                           alg_ruimte r
+                                     WHERE     co.alg_onrgoed_niveau = 'R'
+                                           AND co.alg_onrgoed_key = r.alg_ruimte_key
+                                           AND r.alg_verdieping_key = v.alg_verdieping_key
+                                           AND v.alg_gebouw_key = g.alg_gebouw_key
+                                    UNION ALL
+                                    SELECT co.cnt_contract_key, t.alg_locatie_key
+                                      FROM cnt_contract_onrgoed co, alg_terreinsector t
+                                     WHERE co.alg_onrgoed_niveau = 'T'
+                                           AND co.alg_onrgoed_key = t.alg_terreinsector_key) clk,
+                                   cnt_contract cc,
+                                   alg_locatie ll,
+                                   alg_district di
+                             WHERE     cc.cnt_contract_key = clk.cnt_contract_key
+                                   AND ll.alg_locatie_key(+) = clk.alg_locatie_key
+                                   AND ll.alg_district_key = di.alg_district_key(+)) sc,
+                           prs_v_afdeling_boom boom
+                     WHERE boom.prs_afdeling_key = c.prs_afdeling_key_eig
+                    UNION ALL
+                    SELECT cnt_contract_key
+                      FROM cnt_contract c, prs_v_afdeling_boom boom
+                     WHERE NOT EXISTS (SELECT cnt_contract_key
+                                         FROM cnt_contract_plaats cp
+                                        WHERE cp.cnt_contract_key = c.cnt_contract_key)
+                           AND NOT EXISTS (SELECT cnt_contract_key
+                                             FROM cnt_contract_onrgoed co
+                                            WHERE co.cnt_contract_key = c.cnt_contract_key)
+                           AND NOT EXISTS
+                                 (SELECT cnt_contract_key
+                                    FROM cnt_contract_object co
+                                   WHERE co.cnt_contract_key = c.cnt_contract_key
+                                         AND co.cnt_ins_deel_key IS NOT NULL)
+                           AND boom.prs_afdeling_key = c.prs_afdeling_key_eig);
+
 REGISTERRUN('$Id$')
 
 #endif // CNT

COMSQL.H

@@ -21,10 +21,10 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 5
-#define _VERSIONMIN 4
-#define _VERSIONPATCH STRINGIZE(4)
-#define _VERSION '5.4.4'
+#define _VERSIONMAJ 2015
+#define _VERSIONMIN 2
+#define _VERSIONPATCH 'a'
+#define _VERSION '2015.2.a'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \

FAC/FAC_INI.SRC

@@ -21,7 +21,7 @@ DEF_FAC_MESSAGE ('fac_m002', 'Facilitor '_CONCAT _VERSION,'Facilitor '_CONCAT _V
 DEF_FAC_MESSAGE ('fac_m001', 'Printvoorbeeld','Preview');
 DEF_FAC_MESSAGE ('fac_m003', 'U heeft geen rechten om Facilitor te gebruiken.','No rights to use Facilitor');
 DEF_FAC_MESSAGE ('fac_m004', 'Er is een probleem opgetreden bij het opstarten van ','Problem starting Facilitor');
-DEF_FAC_MESSAGE ('fac_m005', 'Copyright (c) 1996-2014, Facilitor BV, Nederland', 'Copyright (c) 1996-2014, Facilitor BV, the Netherlands');
+DEF_FAC_MESSAGE ('fac_m005', 'Copyright (c) 1996-2015, Facilitor BV, Nederland', 'Copyright (c) 1996-2015, Facilitor BV, the Netherlands');
 DEF_FAC_MESSAGE ('fac_m006', 'Geinstalleerde modules','Installed modules');
 DEF_FAC_MESSAGE ('fac_m007', 'Uitvoer Rapportage','Output Reports');
 DEF_FAC_MESSAGE ('fac_m008', 'Bestandsnaam is niet ingevuld.','Filename not entered.');
@@ -1643,6 +1643,7 @@ DEF_FAC_MESSAGE ('PRS_PERSOONLIJK_OBJECT', 'heeft persoonlijke bezitting', '');
 DEF_FAC_MESSAGE ('PRS_OPENST_OPDRACHT', 'is uitvoerder voor opdracht', '');
 DEF_FAC_MESSAGE ('PRS_OPENST_MELDING', 'heeft openstaande melding/aanvraag', '');
 DEF_FAC_MESSAGE ('PRS_BEZIT_OBJECT', 'bezit object', '');
+DEF_FAC_MESSAGE ('PRS_BEHEERT_OBJECT', 'beheert object', '');
 DEF_FAC_MESSAGE ('PRS_OPENST_RES_R', 'is gastheer voor zaalreservering', '');
 DEF_FAC_MESSAGE ('PRS_OPENST_RES_V', 'is gastheer bij voorzieningreservering', '');
 DEF_FAC_MESSAGE ('PRS_OPENST_RES_C', 'is gastheer voor cateringbestelling', '');
@@ -1688,8 +1689,8 @@ DEF_FAC_FUNCTIE2('WEB_FAQUSE', 'FrontEnd:Kennisbank',            'FAQ',  1, 0,
 DEF_FAC_FUNCTIE2('WEB_FINUSE', 'FrontEnd:Factuurinvoer',         'FIN',  3, 0,    0, 'Om facturen te kunnen invoeren als leverancier');
 
 /* Personal functions */
-DEF_FAC_FUNCTIE2('WEB_PRSOBJ', 'FrontEnd:Bezittingen',           'PRS', 3, 0,     0, 'Om zelf te kunnen inzien welke zaken er aan je toegekend zijn');
-DEF_FAC_FUNCTIE2('WEB_PROFIL', 'FrontEnd:Profiel',               'PRS', 3, 0,     0, 'Om zelf al je geregistreerde gegevens te kunnen inzien');
+DEF_FAC_FUNCTIE2('WEB_PRSOBJ', 'FrontEnd:Bezittingen',           'PRS',  3, 0,     0, 'Om zelf te kunnen inzien welke zaken er aan je toegekend zijn');
+DEF_FAC_FUNCTIE2('WEB_PROFIL', 'FrontEnd:Profiel',               'PRS',  3, 0,     0, 'Om zelf al je geregistreerde gegevens te kunnen inzien');
 
 /* Business functions */
 DEF_FAC_FUNCTIE2('WEB_PHONEB', 'FrontEnd:Telefoonboek',          'PRS', 13, 0,    0, 'Om zelf de gegevens van medewerkers op te kunnen zoeken');
@@ -1743,6 +1744,8 @@ DEF_FAC_FUNCTIE2('WEB_ORDOAP', 'Backoffice:Offertes-accept',     'MLD',  0, 0,
 DEF_FAC_FUNCTIE2('WEB_ORDSUP', 'Backoffice:Opdrachten finan.',   'FIN',  0, 0,    1, 'Om financi<63>le opdrachtkenmerken te kunnen muteren');
 DEF_FAC_FUNCTIE2('WEB_ORDFIN', 'Backoffice:Opdrachtkosten',      'FIN',  0, 0,    1, 'Om (alleen) kostenplaats/ordernr van opdrachten te kunnen muteren');
 DEF_FAC_FUNCTIE2('WEB_FINBOF', 'Backoffice:Factuurcontrole',     'FIN', 11, 0,    1, 'Om facturen inhoudelijk te kunnen behandelen/fiatteren');
+DEF_FAC_FUNCTIE2('WEB_FINGOE', 'Backoffice:Facturen-goedkeuren', 'FIN',  0, 0,    1, 'Om facturen te kunnen goedkeuren');
+DEF_FAC_FUNCTIE2('WEB_VERFAC', 'Backoffice:Verkoopfacturen',     'FIN',  0, 0,    1, 'Om gegenereerde verkoopfacturen te kunnen zien');
 
 DEF_FAC_FUNCTIE2('WEB_BESBOF', 'Backoffice:Bestellingen',        'BES', 15, 1,    1, 'Om bestelaanvragen te kunnen verwerken tot opdrachten');
 DEF_FAC_FUNCTIE2('WEB_BESGO2', 'Backoffice:Bestellingen-goedk2', 'BES', 11, 1,    1, 'Om bestelaanvragen boven de tweede limiet goed te kunnen keuren');
@@ -1758,6 +1761,7 @@ DEF_FAC_FUNCTIE2('WEB_PRSUSE', 'Backoffice:Persoonsgegevens',    'PRS', 15, 0,
 DEF_FAC_FUNCTIE2('WEB_FACMAN', 'Backoffice:Mandatering',         'PRS',  7, 0,    1, 'Om medewerkers voor kostenplaatsen te mandateren.');
 
 DEF_FAC_FUNCTIE2('WEB_RELMAN', 'Backoffice:Relatiebeheer',       'PRS',  3, 0,    1, 'Om de gegevens van externe relaties/bedrijven te kunnen beheren');
+DEF_FAC_FUNCTIE2('WEB_RELUSE', 'Backoffice:Relatiebeheer',       'PRS', 11, 0,    1, 'Om de gegevens van relaties/contactpersonen te kunnen muteren');
 DEF_FAC_FUNCTIE2('WEB_ALGMAN', 'Backoffice:Vastgoedbeheer',      'ALG', 11, 0,    1, 'Om de vastgoedgegevens te kunnen beheren');
 DEF_FAC_FUNCTIE2('WEB_ALGUSE', 'Backoffice:Ruimtegebruik',       'ALG', 15, 0,    1, 'Om het ruimtegebruik te kunnen beheren');
 DEF_FAC_FUNCTIE2('WEB_TERMAN', 'Backoffice:Terreinbeheer',       'ALG', 11, 0,    1, 'Om terreingegevens te kunnen beheren');
@@ -1769,9 +1773,9 @@ DEF_FAC_FUNCTIE2('WEB_INSPRJ', 'Projecten:Objectmutaties',       'INS', 11, 1,
 DEF_FAC_FUNCTIE2('WEB_SLEBOF', 'Backoffice:Sleutelbeheer',       'SLE', 11, 0,    1, 'Om cilinders en sleutels te kunnen beheren');
 DEF_FAC_FUNCTIE2('WEB_CNTMAN', 'Backoffice:Contractbeheer',      'CNT', 15, 1,    1, 'Om contracten te kunnen beheren');
 DEF_FAC_FUNCTIE2('WEB_CNTUSE', 'Backoffice:Contractgegevens',    'CNT', 15, 1,    1, 'Om een deel van contractgegevens te kunnen beheren');
-DEF_FAC_FUNCTIE2('WEB_CNTGO1', 'Backoffice:Contracten-goedk1',   'CNT',  0, 1,    0, 'Om contracten boven de eerste limiet goed te kunnen keuren');
-DEF_FAC_FUNCTIE2('WEB_CNTGO2', 'Backoffice:Contracten-goedk2',   'CNT',  0, 1,    0, 'Om contracten boven de tweede limiet goed te kunnen keuren');
-DEF_FAC_FUNCTIE2('WEB_CNTGO3', 'Backoffice:Contracten-goedk3',   'CNT',  0, 1,    0, 'Om contracten boven de derde limiet goed te kunnen keuren');
+DEF_FAC_FUNCTIE2('WEB_CNTGO1', 'Backoffice:Contracten-goedk1',   'CNT', 11, 1,    0, 'Om contracten boven de eerste limiet goed te kunnen keuren');
+DEF_FAC_FUNCTIE2('WEB_CNTGO2', 'Backoffice:Contracten-goedk2',   'CNT', 11, 1,    0, 'Om contracten boven de tweede limiet goed te kunnen keuren');
+DEF_FAC_FUNCTIE2('WEB_CNTGO3', 'Backoffice:Contracten-goedk3',   'CNT', 11, 1,    0, 'Om contracten boven de derde limiet goed te kunnen keuren');
 DEF_FAC_FUNCTIE2('WEB_MRKBOF', 'Backoffice:Marktplaats',         'MRK',  0, 0,    1, 'Om berichten op marktplaats te beheren.');
 DEF_FAC_FUNCTIE2('WEB_PRJBOF', 'Backoffice:Verhuizingen',        'PRJ', 11, 0,    1, 'Om verhuisscenarios te kunnen maken.');
 DEF_FAC_FUNCTIE2('WEB_PRJMAN', 'Backoffice:Verhuizingen',        'PRJ', 11, 0,    1, 'Om verhuisscenarios te kunnen doorvoeren.');
@@ -1800,6 +1804,10 @@ DEF_FAC_FUNCTIE2('WEB_UURUSE', 'Urenregistratie-zelf',           'MLD',  3, 0,
 DEF_FAC_FUNCTIE2('WEB_UURFOF', 'Urenregistratie-voor ander',     'MLD',  3, 1,    1, 'Om bestede uren te kunnen registreren');
 DEF_FAC_FUNCTIE2('WEB_UURBOF', 'Urenregistratie-fiatteren',      'MLD',  3, 1,    1, 'Om geregistreerde uren te kunnen fiatteren');
 
+/* niet-functionele configuratie functions */
+DEF_FAC_FUNCTIE2('WEB_LAYOUT', 'Beheer:Lay-out',                 'FAC',  0, 0, NULL, 'Om templates te kunnen aanpassen');
+
+
 /* User functions */
 DEF_FAC_FUNCTIE2('WEB_USER01', 'Overig 01', 'FAC', 15, 0, NULL, 'Zelfdefinieerbare autorisatiefunctie 01');
 DEF_FAC_FUNCTIE2('WEB_USER02', 'Overig 02', 'FAC', 15, 0, NULL, 'Zelfdefinieerbare autorisatiefunctie 02');
@@ -1963,6 +1971,7 @@ DEF_FAC_SRTNOT('MLDBE2', 0, 'Behandeling van ##KEY## (##DISC##/##STDMLD##) is aa
 DEF_FAC_SRTNOT('MLDKTO', 3, 'Uw mening over de behandeling van melding ##KEY## (##DISC##/##STDMLD##)', 'mld/mld_melding.asp?kto=1&mld_key=', '0', 'melding', 10);
 
 DEF_FAC_SRTNOT('MLD2BO', 0, 'Facilitor: Er is een nieuwe melding ##KEY## (##DISC##/##STDMLD##)',              'mld/mld_melding.asp?urole=bo&mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('MLD2B3', 0, 'Voor melding ##KEY## (##DISC##/##STDMLD##) is uw acceptatie vereist',            'mld/mld_melding.asp?urole=bo&mld_key=', '0', 'melding', 10);
 DEF_FAC_SRTNOT('MLDNOT', 1, 'Er is een opmerking voor u geplaatst bij melding ##KEY## (##DISC##/##STDMLD##)', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
 DEF_FAC_SRTNOT('MLDNOB', 1, 'Er is een opmerking geplaatst bij melding ##KEY## (##DISC##/##STDMLD##)',        'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
 
@@ -2012,6 +2021,7 @@ DEF_FAC_SRTNOT('RESCPY', 1, 'Uw reserveringsreeks ##KEY## (##DESC##) is uitgebre
 DEF_FAC_SRTNOT('RESMLT', 1, 'Uw reserveringreeks ##KEY## (##DESC##) is aangepast',          'res/res_reservering.asp?rsv_ruimte_key=', '0', 'xreservering', 10);
 DEF_FAC_SRTNOT('RESKTO', 3, 'Uw mening over de behandeling van reservering ##KEY## (##DESC##)', 'mld/mld_melding.asp?kto=1&res_key=',  '0', 'reservering',  10);
 DEF_FAC_SRTNOT('RESCLN', 0, 'Uw voorkeursreservering ##KEY## (##DESC##) is geldig geworden','res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering',  10);
+DEF_FAC_SRTNOT('RESROK', 0, 'Reservering ##KEY## (##DESC##) is goedgekeurd',                'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering',  10);
 
 DEF_FAC_SRTNOT('INSNEW', 0, 'Object geregistreerd',  'ins/ins_deel.asp?ins_key=', '0', 'deel', 10);
 DEF_FAC_SRTNOT('INSUPD', 0, 'Object gewijzigd',      'ins/ins_deel.asp?ins_key=', '0', 'deel', 60);
@@ -2040,13 +2050,17 @@ DEF_FAC_SRTNOT('ALGRNE', 0, 'Ruimte geregistreerd',             'alg/alg_ruimte.
 DEF_FAC_SRTNOT('ALGRUP', 0, 'Ruimte gewijzigd',                 'alg/alg_ruimte.asp?key=',     '0', 'ruimte',     60);
 DEF_FAC_SRTNOT('ALGCAD', 0, 'Ruimte grafisch gewijzigd',        'alg/alg_ruimte.asp?key=',     '0', 'ruimte',     10);
 
-DEF_FAC_SRTNOT('FINNEW', 0, 'Factuur geregistreerd',            'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
-DEF_FAC_SRTNOT('FINUPD', 0, 'Factuur gewijzigd',                'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
-DEF_FAC_SRTNOT('FINFOK', 0, 'Factuur goedgekeurd',              'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
-DEF_FAC_SRTNOT('FINFNO', 0, 'Factuur afgewezen',                'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
-DEF_FAC_SRTNOT('FINFUN', 0, 'Factuurgoedkeuring geannuleerd',   'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
-DEF_FAC_SRTNOT('FINVER', 0, 'Factuur verwerkt',                 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
-DEF_FAC_SRTNOT('FININF', 0, 'Factuur goedkeuring vereist',      'fin/fin_search.asp?',          '1', 'factuur', 10);
+DEF_FAC_SRTNOT('FINNEW', 0, 'Factuur geregistreerd',                          'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
+DEF_FAC_SRTNOT('FINUPD', 0, 'Factuur gewijzigd',                              'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 60);
+DEF_FAC_SRTNOT('FINFOK', 0, 'Factuur goedgekeurd',                            'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINGOE', 0, 'Factuur is ter goedkeuring aangeboden',          'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINFNO', 0, 'Factuur afgewezen',                              'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINGNO', 0, 'Factuur afgekeurd',                              'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINFUN', 0, 'Factuurgoedkeuring geannuleerd',                 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINGUN', 0, 'Factuurfiattering geannuleerd',                  'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINVER', 0, 'Factuur verwerkt',                               'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FININF', 0, 'Factuur goedkeuring vereist',                    'fin/fin_search.asp?',          '1', 'factuur', 10);
+DEF_FAC_SRTNOT('FIN2GO', 3, 'Uw goedkeuring is vereist voor factuur ##KEY##', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
 
 // Notificatiesoorten tbv ad hoc mail (putorders needs to know xmlnode)
 DEF_FAC_SRTNOT('BESMAI', 0, 'Bestelaanvraag ##KEY##',    '', '0', 'bestelling',   10);
@@ -2194,7 +2208,6 @@ INSERT INTO fac_groeprechten
 
 
 /* definieer de FIP-importfuncties */
-/* Formatted on 27/08/2007 09:59 (Formatter Plus v4.8.7) */
 INSERT INTO fac_import_app
             (fac_import_app_code, fac_import_app_oms, fac_functie_key)
    SELECT 'ONRGOED1', 'FIP: 1-Aanvullen districten t/m gebouwen', fac_functie_key
@@ -2275,38 +2288,23 @@ INSERT INTO fac_import_app
    SELECT 'INSPECTIE', 'FIP: 9-Aanvullen van inspectiedefinities', fac_functie_key
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_PRSSYS';
-
 INSERT INTO fac_import_app
-            (fac_import_app_code, fac_import_app_oms,
-             fac_functie_key
-            )
-     VALUES ('RES_ARTIKEL_SYNC', 'Reservering: Inlezen verbruiksartikelen',
-             (SELECT fac_functie_key
-                   FROM fac_functie
-                  WHERE fac_functie_code = 'WEB_RESMSU')
- );
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+   SELECT 'RES_ARTIKEL_SYNC', 'Reservering: Inlezen verbruiksartikelen', fac_functie_key
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_RESMSU';
 INSERT INTO fac_import_app
-            (fac_import_app_code, fac_import_app_oms,
-             fac_functie_key
-            )
-     VALUES ('EXT_BEDRIJF', 'FIP: Aanvullen externe bedrijven',
-             (SELECT fac_functie_key
-                   FROM fac_functie
-                  WHERE fac_functie_code = 'WEB_PRSSYS')
-);
-
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+     SELECT 'EXT_BEDRIJF', 'FIP: Aanvullen externe bedrijven', fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSSYS';
 INSERT INTO fac_import_app
-            (fac_import_app_code, fac_import_app_oms,
-             fac_functie_key
-             )
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
    SELECT 'FACTUUR', 'Standaard import van facturenbestand van leverancier(s)', fac_functie_key
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_FINFOF';
-
 INSERT INTO fac_import_app
-            (fac_import_app_code, fac_import_app_oms,
-             fac_functie_key
-             )
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
    SELECT 'CATALOGUS', 'Vervangen(!) bestelcatalogi (generiek)', fac_functie_key
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_BESMSU';
@@ -2324,6 +2322,8 @@ INSERT INTO fac_import_app
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_PRSSYS';
 
+
+// More import functions
 INSERT INTO fac_import_app
             (fac_import_app_code, fac_import_app_oms, fac_functie_key)
    SELECT 'USRDATA', 'FIP: Eigen tabellen', fac_functie_key
@@ -2348,18 +2348,27 @@ INSERT INTO fac_import_app
      FROM fac_functie
     WHERE fac_functie_code = 'WEB_PRSSYS';
 
+INSERT INTO fac_import_app
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+   SELECT 'MLDAFMTXT', 'FIP: Afmeldteksten', fac_functie_key
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_PRSSYS';
+
+INSERT INTO fac_import_app
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+   SELECT 'BEDRIJFADRES', 'FIP: Aanvullen technische bedrijfadressen', fac_functie_key
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_PRSSYS';
+
+
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Eigen tabellen', 'fac_v_exp_eigen_tabel',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van (een) eigen tabel(len)',
@@ -2370,16 +2379,12 @@ INSERT INTO fac_usrrap
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Menustructuur', 'fac_v_exp_menu',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van de gehele menustructuur',
@@ -2390,16 +2395,12 @@ INSERT INTO fac_usrrap
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Flexkenmerken Reserveringen', 'fac_v_exp_flex_res',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van flexkenmerken voor RES (per activiteit',
@@ -2410,16 +2411,12 @@ INSERT INTO fac_usrrap
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Flexkenmerken Bestellingen', 'fac_v_exp_flex_bes',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van flexkenmerken voor BES (per catalogus/groep/artikel)',
@@ -2430,16 +2427,12 @@ INSERT INTO fac_usrrap
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Flexkenmerken Meldingen', 'fac_v_exp_flex_mld',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van flexkenmerken voor MLD (per vakgroep(type)/melding/opdrachttype)',
@@ -2450,16 +2443,12 @@ INSERT INTO fac_usrrap
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('TRANSPORT: Flexkenmerken Contracten', 'fac_v_exp_flex_cnt',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Exporteren van flexkenmerken voor CNT (per contractsoort)',
@@ -2550,6 +2539,54 @@ INSERT INTO fac_usrrap (fac_usrrap_key, fac_usrrap_omschrijving, fac_usrrap_view
    FROM fac_functie WHERE fac_functie_code='WEB_RESFOF';
 -- De fac_usrrap_key sequence gaat later vanzelf wel verder met 21.
 
+/* ROOT reports for User defined Reports (UDR) cloning */
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Bestellingen','BES_V_UDR_BESTELLING','Basisrapport voor bestellingsrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BES_V_UDR_BESTELLING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Bezoekers','BEZ_V_UDR_BEZOEKER','Basisrapport voor bezoekersrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BEZ_V_UDR_BEZOEKER');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Contracten','CNT_V_UDR_CONTRACT','Basisrapport voor contractrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='CNT_V_UDR_CONTRACT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Facturen','FIN_V_UDR_FACTUUR','Basisrapport voor factuurrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FIN_V_UDR_FACTUUR');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Objecten','INS_V_UDR_DEEL','Basisrapport voor objectrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='INS_V_UDR_DEEL');
+
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Meldingen','MLD_V_UDR_MELDING','Basisrapport voor meldingsrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Opdrachten','MLD_V_UDR_OPDRACHT','Basisrapport voor opdrachtrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Meldingen/opdrachten','MLD_V_UDR_MELDINGOPDRACHT','Basisrapport voor melding+opdrachtrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGOPDRACHT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Meldingen plus','MLD_V_UDR_MELDINGKENMERK','Basisrapport voor melding+kenmerk rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGKENMERK');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Opdrachten plus','MLD_V_UDR_OPDRACHTKENMERK','Basisrapport voor opdracht+kenmerk rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHTKENMERK');
+
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Reserveringen','RES_V_UDR_RESERVERING','Basisrapport voor reserveringsrapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='RES_V_UDR_RESERVERING');
+
 
 /*  STANDAARD MENUOPTIES */
 // De regel: vereis R-recht voor overzicht en W-recht voor mutatie
@@ -2675,8 +2712,9 @@ DEF_MENUITEM(1, 'lcl_menu_ins_bo_man'           , '', 'INS', 'appl/ins/ins_searc
 DEF_MENUITEM(1, 'lcl_menu_ins_bo_use'           , '', 'INS', 'appl/ins/ins_search.asp?urole=bo', 0, 0, 'WEB_INSUSE', 'R', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_ins_controle'         , '', 'INS', 'appl/ins/ins_search.asp?urole=bo&inspect=1', 0, 0, 'WEB_INSMAN', 'R', '0', '');
 DEF_MENUITEM(1, 'lcl_menu_prs_bedrijf'          , '', 'PRS', 'appl/prs/prs_bedrijf_search.asp', 0, 0, 'WEB_RELMAN', 'R', '1', '');
+DEF_MENUITEM(1, 'lcl_menu_prs_contactpers'      , '', 'PRS', 'appl/prs/prs_contactpersoon_search.asp', 0, 0, 'WEB_RELUSE', 'R', '1', '');
 DEF_MENUITEM(1, 'lcl_menu_cnt_bo'               , '', 'CNT', 'appl/cnt/cnt_search.asp?urole=bo', 0, 0, 'WEB_CNTMAN', 'R', '1', '');
-DEF_MENUITEM(1, 'lcl_menu_fac_reports'          , '', 'FAC', 'appl/fac/fac_usrrap.asp', 0, 0, 'WEB_USRRAP', 'W', '1', '');
+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'         , '', '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', '');
@@ -2722,7 +2760,7 @@ DEF_MENUITEM(2, 'lcl_menu_fac_autorisaties'     , '', 'FAC', 'appl/facmgtVB/fac_
 DEF_MENUITEM(2, 'lcl_menu_fac_autorisatiegroepe', '', 'FAC', 'appl/facmgtVB/fac_groepgrid.asp', 0, 0, 'WEB_FACMSU', 'W', '1', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_fac');
-DEF_MENUITEM(2, 'lcl_Facilitor_Logcentre'       , '', 'FAC', 'http://logcentre.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_Facilitor_Logcentre'       , '', 'FAC', 'https://logcentre.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_Facilitor_Forum'           , '', 'FAC', 'http://forum.facilitor.nl', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_alg');
@@ -2755,7 +2793,6 @@ DEF_MENUITEM(2, 'lcl_menu_ins_disciplines'      , '', 'INS', 'appl/facmgtVB/ins_
 DEF_MENUITEM(2, 'lcl_menu_ins_groepen'          , '', 'INS', 'appl/facmgtVB/ins_srtgroepgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_objectsoorten'    , '', 'INS', 'appl/ins/ins_srtdeel_search.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken'        , '', 'INS', 'appl/facmgtVB/ins_kenmerkgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_ins_kenmerken_insp'   , '', 'INS', 'appl/facmgtVB/ins_kenmerkgrid.asp?inspectie=1', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_kenmerksoorten'   , '', 'INS', 'appl/facmgtVB/ins_srtkenmerkgrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_kenmerkdomeinen'  , '', 'INS', 'appl/fac/fac_kenmerkdomein_search.asp?fkdmodule=INS', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_ins_srtcontrole'      , '', 'INS', 'appl/facmgtVB/ins_srtcontrolegrid.asp', 0, 0, 'WEB_INSMGT', 'W', '1', '');
@@ -2769,7 +2806,7 @@ DEF_MENUITEM(2, 'lcl_menu_mld_stdmeldinggroep'  , '', 'MLD', 'appl/facmgtVB/mld_
 DEF_MENUITEM(2, 'lcl_menu_mld_behandelgroep'    , '', 'MLD', 'appl/facmgtVB/mld_behandelgroepgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_meldingen'        , '', 'MLD', 'appl/mld/mld_stdmelding_search.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_dienst_niveaus'   , '', 'MLD', 'appl/facmgtVB/mld_dienstniveaugrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/facmgtVB/mld_afmeldtekstgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_mld_afmeldteksten'    , '', 'MLD', 'appl/mgt/mld_afmeldtekst.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_opdrachttypes'    , '', 'MLD', 'appl/facmgtVB/mld_typeopdrgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_improdopdr'       , '', 'MLD', 'appl/facmgtVB/mld_impropdrgrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_mld_opdrkosten'       , '', 'MLD', 'appl/facmgtVB/mld_kostengrid.asp', 0, 0, 'WEB_MLDMGT', 'W', '1', '');
@@ -2781,19 +2818,17 @@ DEF_MENUITEM(2, 'lcl_menu_mld_kenmerkdomeinen'  , '', 'MLD', 'appl/fac/fac_kenme
 DEF_MENUITEM(2, 'lcl_menu_mld_setting'          , '', 'MLD', 'appl/fac/fac_setting_search.asp?module=MLD', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_res');
-DEF_MENUITEM(2, 'lcl_menu_res_srtactiviteiten'  , '', 'RES', 'appl/facmgtVB/res_srtactiviteitgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_rui', '', 'RES', 'appl/facmgtVB/res_ruimtegrid.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_ruimte_opstelling', '', 'RES', 'appl/facmgtVB/res_ruimte_opstellinggrid.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_reserveerbare_obj', '', 'RES', 'appl/facmgtVB/res_deelgrid.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartikele', '', 'RES', 'appl/facmgtVB/res_artikelgrid.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_verbruiksartscope', '', 'RES', 'appl/facmgtVB/res_srtartikel_onrgoedgrid.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_catalogi'         , '', 'RES', 'appl/facmgtVB/res_calogusgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_opstellingen'     , '', 'RES', 'appl/facmgtVB/res_opstellinggrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_perioden'         , '', 'RES', 'appl/facmgtVB/res_cyclusgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_activiteiten'     , '', 'RES', 'appl/facmgtVB/res_activiteitgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_activiteiten_ruim', '', 'RES', 'appl/facmgtVB/res_activiteit_disciplinegrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_kenmerken'        , '', 'RES', 'appl/facmgtVB/res_kenmerkgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
-DEF_MENUITEM(2, 'lcl_menu_res_kenmerksoorten'   , '', 'RES', 'appl/facmgtVB/res_srtkenmerkgrid.asp', 0, 0, 'WEB_RESMGT', 'W', '1', '');
+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_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_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_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', '');
 DEF_MENUITEM(2, 'lcl_menu_res_setting'          , '', 'RES', 'appl/fac/fac_setting_search.asp?module=RES', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
@@ -2861,7 +2896,7 @@ DEF_MENUITEM(2, 'lcl_menu_faq_kenmerkdomeinen'  , '', 'FAQ', 'appl/fac/fac_kenme
 DEF_MENUITEM(2, 'lcl_menu_faq_setting'          , '', 'FAQ', 'appl/fac/fac_setting_search.asp?module=FAQ', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
 
 DEF_MENUKOP(2, 'lcl_facmgt_overig');
-DEF_MENUITEM(2, 'lcl_menu_fac_rapportages'      , '', 'FAC', 'appl/facmgtVB/fac_userrapgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_rapportages'      , '', 'FAC', 'appl/fac/fac_reportx.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_graphs'           , '', 'FAC', 'appl/facmgtVB/fac_usergraphgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_notificatiejobs'  , '', 'FAC', 'appl/facmgtVB/fac_notificatiejobgrid.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_importfuncties'   , '', 'FAC', 'appl/imp/imp_search.asp', 0, 0, 'WEB_IMPORT', 'W', '1', '');
@@ -2877,6 +2912,7 @@ DEF_MENUITEM(2, 'lcl_menu_fac_bookmarks'        , '', 'FAC', 'appl/fac/fac_bookm
 DEF_MENUITEM(2, 'lcl_menu_fac_vertalingen'      , '', 'FAC', 'appl/fac/fac_locale_search_std.asp', 0, 0, 'WEB_LCLSYS', 'R', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_setting'          , '', 'FAC', 'appl/fac/fac_setting_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
 DEF_MENUITEM(2, 'lcl_menu_fac_xsledit'          , '', 'FAC', 'appl/fac/fac_edit_xsl.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+DEF_MENUITEM(2, 'lcl_menu_fac_styling'          , '', 'FAC', 'appl/fac/fac_edit_template.asp', 0, 0, 'WEB_LAYOUT', 'W', '0', '');
 
 //DEF_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
@@ -2900,6 +2936,8 @@ DEF_MENUITEM(3, 'lcl_mobile_objecten'           , '', 'INS', 'appl/pda/ins_list.
 DEF_MENUITEM(3, 'lcl_mobile_ruimten'            , '', 'ALG', 'appl/pda/ruimte_list.asp', 0, 0, 'WEB_ALGUSE', 'R', '1', 'm_overzichten-algemeen-ruimtes.png');
 DEF_MENUITEM(3, 'lcl_mobile_plattegronden'      , '', 'CAD', 'appl/pda/verdieping_list.asp', 0, 0, 'WEB_CADUSE', 'R', '1', 'm_overzichten-algemeen-plattegronden.png');
 DEF_MENUITEM(3, 'lcl_mobile_setlocation'        , '', 'FAC', 'appl/pda/setlocation.asp', 0, 0, 'WEB_CADUSE', 'R', '0', 'm_algemeen-hier-ben-ik.png');
+DEF_MENUITEM(3, 'lcl_mobile_messages'           , '', 'FAC', 'appl/pda/message_list.asp', 0, 0, 'WEB_MLDUSE', 'R', '0', 'm_overzichten-persoonlijk-mijn-berichten.png');
+DEF_MENUITEM(3, 'lcl_mobile_rapporten'          , '', 'FAC', 'appl/pda/reports.asp', 0, 0, 'WEB_USRRAP', 'R', '0', 'm_overzichten-algemeen-rapporten.png');
 
 -- Aanmaken van het default menu:
 -- FUNCTIE VOOR MENU-UPDATE/INITIALISATIE
@@ -2911,23 +2949,23 @@ INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
                                               FROM   fac_menu m
                                              WHERE   m.fac_menuitems_key IS NOT NULL);
 
--- 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=');
-DEF_BOOKMARK('bestelopdr',      'appl/bes/bes_opdr.asp',        'ordernr=');
-DEF_BOOKMARK('contract',        'appl/cnt/cnt_contract.asp',    'cnt_key=');
-DEF_BOOKMARK('deel',            'appl/ins/ins_deel.asp',        'ins_key=');
-DEF_BOOKMARK('factuur',         'appl/fin/fin_factuur.asp',     'fin_key=');
-DEF_BOOKMARK('gebouw',          'appl/alg/alg_gebouw.asp',      'key=');
-DEF_BOOKMARK('locatie',         'appl/alg/alg_locatie.asp',     'key=');
-DEF_BOOKMARK('melding',         'appl/mld/mld_melding.asp',     'mld_key=');
-DEF_BOOKMARK('message',         'appl/msg/msg_message.asp',     'message_key=');
-DEF_BOOKMARK('opdracht',        'appl/mld/mld_opdr.asp',        'opdr_key=');
-DEF_BOOKMARK('perslid',         'appl/prs/prs_perslid.asp',     'prs_key=');
-DEF_BOOKMARK('reservering',     'appl/res/res_reservering.asp', 'rsv_ruimte_key=');
-DEF_BOOKMARK('ruimte',          'appl/alg/alg_ruimte.asp',      'key=');
-DEF_BOOKMARK('verdieping',      'appl/alg/alg_verdieping.asp',  'key=');
-DEF_BOOKMARK('xreservering',    'appl/res/res_reservering.asp', 'rsv_ruimte_key=');
+//-- 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=');
+//DEF_BOOKMARK('bestelopdr',      'appl/bes/bes_opdr.asp',        'ordernr=');
+//DEF_BOOKMARK('contract',        'appl/cnt/cnt_contract.asp',    'cnt_key=');
+//DEF_BOOKMARK('deel',            'appl/ins/ins_deel.asp',        'ins_key=');
+//DEF_BOOKMARK('factuur',         'appl/fin/fin_factuur.asp',     'fin_key=');
+//DEF_BOOKMARK('gebouw',          'appl/alg/alg_gebouw.asp',      'key=');
+//DEF_BOOKMARK('locatie',         'appl/alg/alg_locatie.asp',     'key=');
+//DEF_BOOKMARK('melding',         'appl/mld/mld_melding.asp',     'mld_key=');
+//DEF_BOOKMARK('message',         'appl/msg/msg_message.asp',     'message_key=');
+//DEF_BOOKMARK('opdracht',        'appl/mld/mld_opdr.asp',        'opdr_key=');
+//DEF_BOOKMARK('perslid',         'appl/prs/prs_perslid.asp',     'prs_key=');
+//DEF_BOOKMARK('reservering',     'appl/res/res_reservering.asp', 'rsv_ruimte_key=');
+//DEF_BOOKMARK('ruimte',          'appl/alg/alg_ruimte.asp',      'key=');
+//DEF_BOOKMARK('verdieping',      'appl/alg/alg_verdieping.asp',  'key=');
+//DEF_BOOKMARK('xreservering',    'appl/res/res_reservering.asp', 'rsv_ruimte_key=');
 
 SET DEFINE OFF;
 -- REQUEST-API: extern oproepbaar om gegevens op te leveren

FAC/FAC_LCL.SRC

@@ -68,9 +68,10 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Artikelnummer' ,                        'Item number',                          'Artikelnummer', 'No. d''article')
     FACMGT_LCL('AutoCAD lagen' ,                        'AutoCAD layers',                       'AutoCAD Schichten', 'Calques AutoCAD')
     FACMGT_LCL('Automatisch aanmaken bestelopdracht' ,  'Automatically create a purchase order', 'Automatisch schaffen Auftrag', 'Cr<43>er ordre d''achat automatiquement')
-    FACMGT_LCL('Automatisch accepteren aanvraag' ,      'Automatically accept request',             'Automatisch akzeptieren Antrag', 'Accepter demande automatiquement')
+    FACMGT_LCL('Automatisch fiatteren aanvragen' ,      'Automatically approve requests',             'Automatisch Genehmigen Antr<EFBFBD>ge', 'Accepter demande automatiquement')
     FACMGT_LCL('Automatisch opdracht aanmaken' ,        'Automatically create order',               'Automatisch schaffen Auftrag', 'Cr<43>er ordre automatiquement')
     FACMGT_LCL('Automatisch verversen' ,                'Automatically refresh',                    'Automatische Bildwiederholung', 'Actualisation automatique')
+    FACMGT_LCL('Automatisch nummeren',                  'Auto id number',                  'Automatische Nummerierung', 'Num<75>rotation automatique')
     FACMGT_LCL('Autorisatie als' ,                      'Authorisation like',                     'Autorisierung als', 'Autorisation comme')
     FACMGT_LCL('Autorisatie groep' ,                    'Authorisation group',                  'Autorisierungsgruppe', 'Groupe d''autorisation')
     FACMGT_LCL('Autorisatie',                           'Authorisation',                        'Autorisierung' , 'Autorisation')
@@ -81,10 +82,12 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Backoffice bestellimiet3' ,              'Back office purchase order limit3',     'Innendienst Bestellungsgrenze3', 'Limit3 de commande du back-office')
     FACMGT_LCL('Backoffice bestellimiet4' ,              'Back office purchase order limit4',     'Innendienst Bestellungsgrenze4', 'Limit4 de commande du back-office')
     FACMGT_LCL('Backoffice bestellimiet5' ,              'Back office purchase order limit5',     'Innendienst Bestellungsgrenze5', 'Limit5 de commande du back-office')
-    FACMGT_LCL('Backoffice notificeren (MLD2BO)' ,      'Notify back office (MLD2BO)',          'Innendienst notifizieren (MLD2BO)', 'Notifier back-office')
+    FACMGT_LCL('Backoffice notificeren (MLD2BO/MLD2B3)', 'Notify back office (MLD2BO/MLD2B3)',    'Innendienst notifizieren (MLD2BO/MLD2B3)', 'Notifier back-office')
     FACMGT_LCL('Backoffice notificeren (BES2BO)' ,      'Notify back office (BES2BO)',          'Innendienst notifizieren (BES2BO)', 'Notifier back-office')
     FACMGT_LCL('Bedrijf' ,                              'Company',                              'Betrieb', 'Enterprise')
+    FACMGT_LCL('Behandelaar notificeren (MLDBE2)',      'Notify assigned to (MLDBE2)',          'Bearbeiter notifizieren (MLDBE2)', ' Notifier Praticien')
     FACMGT_LCL('Behandelgroep',                         'Treatment group',                      'Behandlungsgruppe', 'Groupe de traitement')
+    FACMGT_LCL('Beschikbaarheid',                       'Availability',                         'Verf<72>gbarkeit', 'Disponibilit<69>')
     FACMGT_LCL('Bestelgegevens' ,                       'Purchase orders data',               'Bestellungsdaten', 'Donn<6E>es de commande')
     FACMGT_LCL('Bevat werkplek' ,                       'Contains work place',                  'Enth<74>lt Arbeitsplatz', 'Compred lieu de travail')
     FACMGT_LCL('Bits' ,                                 'Bits',                                 'Bits', 'Bits')
@@ -214,7 +217,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Is default' ,                           'Is default',                          'Ist Vorgabe', 'Est standard')
     FACMGT_LCL('Is default opstelling' ,                'Is default configuration',               'Ist Standardkonfiguration', 'Est agencement standard')
     FACMGT_LCL('KPN Groep' ,                            'Cost centre group',                           'Kostenstellegruppe', 'Groupe de centre de co<63>ts')
-    FACMGT_LCL('Behandeling door frontoffice' ,         'Processing by front office',          'Abwicklungn durch Zentrale', 'Manipulation par front-office')
+    FACMGT_LCL('Kan door frontoffice worden behandeld', 'Can be processed by front office',      'Kann durch Front-Office behandelt werden', 'Peut <20>tre manipul<EFBFBD> par front office')
     FACMGT_LCL('Kenmerkdomein' ,                        'Property domain',                       'Eigenschaftdom<6F>ne', 'Domaine de caract<63>ristique')
     FACMGT_LCL('Kenmerksoort' ,                         'Property type',                        'Eigenschaftsorte', 'Sorte de caract<63>ristique')
     FACMGT_LCL('Kenmerktype' ,                          'Property type',                         'Eigenschafttyp', 'Type de caract<63>ristique')
@@ -275,7 +278,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Object naam' ,                          'Object name',                          'Objekt Name', 'Nom d''objet')
     FACMGT_LCL('Objectgegevens' ,                       'Object details',                       'Objektdaten', 'Donn<6E>es de l''objet')
     FACMGT_LCL('Objectnaam' ,                           'Object name',                          'Objekt Name', 'Nom d''objet')
-    FACMGT_LCL('Objectsoort' ,                          'Object type',                          'Objektsorte', 'Sorte d''opbjet')
+    FACMGT_LCL('Objectsoort' ,                          'Object type',                          'Objektsorte', 'Sorte d''objet')
     FACMGT_LCL('Omschrijving' ,                         'Description',                          'Umschreibung', 'Description')
     FACMGT_LCL('Omschrijving object' ,                  'Description object',                   'Umschreibung Objekt', 'Description d''objet')
     FACMGT_LCL('Omschrijvingsveld' ,                    'Description field',                    'Umschreibungsfeld', 'Champ de description')
@@ -325,7 +328,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Retour URL' ,                           'Return URL',                           'R<>cksendung URL', 'URL Retour')
     FACMGT_LCL('Retouren toegestaan' ,                  'Returning allowed',                    'R<>cksendungen erlaubt', 'Retourner possible')
     FACMGT_LCL('Ruimte' ,                               'Room',                                 'Raum', 'Espace')
-    FACMGT_LCL('Ruimte categorie' ,                     'Room category',                        'Raumkategorie', 'Cat<EFBFBD>gorie d''espace')
+    FACMGT_LCL('Ruimte catalogus' ,                     'Room catalogue',                       'Raumkatalog', 'Catalogue d''espace')
     FACMGT_LCL('Ruimte label tonen' ,                   'Show room label',                      'Raum Kennsatz zeigen', 'Montrer l''<27>tiquette d''espace')
     FACMGT_LCL('Ruimte naam' ,                          'Room name',                            'Raumname', 'Nom d''espace')
     FACMGT_LCL('Schoonmaaktijd uren (alleen ruimtes en objecten)', 'Cleaning time hours (rooms and objects only)', 'Reinigungdauer Stunden (nur R<>ume und Objekte)', 'Temps de heures nettoyage (espaces <20> objets seul)')
@@ -358,7 +361,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Te behandelen door dienst' ,            'To be processed by service',           'Zu behandeln durch Dienst', 'A manipuler par service')
     FACMGT_LCL('Tekst' ,                                'Text',                                 'Text', 'Texte')
     FACMGT_LCL('Tekstkolom' ,                           'Text column',                         'Textspalte', 'Colonne de texte')
-    FACMGT_LCL('Ten laste van PGB' ,                    'Charge personal budget',               'Anrechnen zu Pers<72>nliches Budget', 'A la charge du budget personnel')
+    FACMGT_LCL('Ten laste van PGB en/of AGB' ,          'Charge personal/department budget',   'Anrechnen zu Pers<72>nliches/Abteilungs Budget', 'A la charge du budget personnel/d<>partement')
     FACMGT_LCL('Terminologie' ,                         'Terminology',                          'Fachausdr<64>cke', 'Terminologie')
     FACMGT_LCL('Toegang' ,                              'Entry',                                'Zugang', 'Acc<63>s')
     FACMGT_LCL('Toevoegen' ,                            'Add',                                  'Hinzuf<75>gen', 'Ajouter')
@@ -507,11 +510,42 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('Externe partnerlocatie', 'External partner location', 'Externe Partner', 'Partenaires externes')
     FACMGT_LCL('Afhandeling verplicht bij afmelden opdracht', 'Progress required when closing order', '@Handhabung erforderlich zum abmelden Auftrag', '@Manipulation n<>cessaire pour fermeture l'' ordre')
     FACMGT_LCL('Inspectiesoort', 'Inspection type', 'Pr<50>fart', 'Type d''inspection')
+    FACMGT_LCL('Inspectietype', 'Inspection type', 'Pr<50>fart', 'Type d''inspection')
     FACMGT_LCL('Details inspectiekenmerk', 'Details inspection property', '@Pr<50>fmerkmal Daten', '@D<>tails caract<63>ristique de l''inspection')
     FACMGT_LCL('Details objectkenmerk', 'Details object property', '@Objekteigenschaften', '@D<>tails caract<63>ristique de l''objet')
     FACMGT_LCL('Styling optie', 'Styling option', 'Styling-Option', 'Option de styling')
     FACMGT_LCL('Controle succes', 'Control success', '@Kontrole Erfolg', '@V<>rification de succ<63>s')
     FACMGT_LCL('Charset', 'Charset', '@Charset', '@Charset')
+    FACMGT_LCL('Maximaal reserveerbare tijd', 'Maximum reservable time', 'Maximal reservierbaren Zeit', 'Le temps maximum r<>servable')
+    FACMGT_LCL('Artikelen', 'Articles', 'Artikel', 'Articles')
+    FACMGT_LCL('Alternatieve naam', 'Other name', 'Weiteren Name', 'Autre nom')
+    FACMGT_LCL('Alternatieve code', 'Other code', 'Weiteren Kode', 'Autre code')
+
+    FACMGT_LCL('Uurlijks', 'Hourly', 'St<53>ndlich', 'Horaires')
+    FACMGT_LCL('Dagelijks', 'Daily', 'T<>glich', 'Quotidien')
+    FACMGT_LCL('Wekelijks', 'Weekly', 'W<>chentlich', 'Hebdomadaire')
+    FACMGT_LCL('Maandelijks', 'Monthly', 'Monatlich', 'Mensuel')
+    FACMGT_LCL('Jaarlijks', 'Yearly', 'J<>hrlich', 'Annuel')
+	  FACMGT_LCL(' is verwijderd', ' has been deleted', ' w<>rde entfernt', ' est <20>limin<69>')
+	  FACMGT_LCL(' niet gevonden', ' not found', ' nicht gefunden', ' non trouv<75>e')
+	  FACMGT_LCL('Soort Controles', 'Inspection types', 'Art der Kontrollen', 'type de contr<74>les')
+    FACMGT_LCL('Details soort controle', 'Inspection type details', 'Art der Kontrolle Daten', 'D<>tails de type contr<74>le')
+    FACMGT_LCL('Selecteer', 'Select', 'Auswahl', 'S<>lectionner')
+    FACMGT_LCL('Controle modes', 'Inspection methodes', 'Kontrolle Methoden', 'M<>thodes de contr<74>le')
+    FACMGT_LCL('Details controle mode', 'Inspection methodes details', 'Kontrolle Methoden Daten', 'D<>tails de m<>thodes contr<74>le')
+    FACMGT_LCL('Controle', 'Inspection', 'Kontrolle', 'Contr<74>le')
+    FACMGT_LCL('D;Object;S;Objectsoort'
+              ,'D;Object;S;Object type'
+              ,'D;Objekt;S;Objektsorte'
+              ,'D;Objet;S;Sorte d''objet')
+    FACMGT_LCL('Normaal', 'Normal', 'Normal', 'Normal')
+    FACMGT_LCL('Persoonsgebonden', 'Related to person', 'Personenbezogen' ,'Caract<63>re personnel')
+    FACMGT_LCL('Verbruiksartikelen-scope', 'Catering scope', 'Verbrauchsmaterialbereich', 'Port<72>e de consommable')
+    FACMGT_LCL('Details Verbruiksartikelen-scope', 'Catering scope details', 'Verbrauchsmaterialbereich daten', 'D<>tails de port<72>e consommable')
+
+
+
+
 END_FACMGT_LCL()
 
 /* Vaste waarden in lijsten van facmgt */
@@ -644,7 +678,7 @@ START_FACMGT_LCL(NULL, NULL)
     FACMGT_LCL('1;Normaal;3;Persoonsgebonden'
               ,'1;Normal;3;Related to person'
 			  ,'1;Normal;3;Personenbezogen'
-			  ,'1;Normaal;3;Caract<63>re personnel')
+			  ,'1;Normal;3;Caract<63>re personnel')
     FACMGT_LCL('1;Optioneel;2;Verplicht'
               ,'1;Optional;2;Mandatory'
 			  ,'1;Fakultativ;2;Erfordlich'
@@ -689,6 +723,10 @@ START_FACMGT_LCL(NULL, NULL)
               ,'L;Location;G;Building;V;Floor;R;Room'
               ,'L;Standort;G;Geb<65>ude;V;Stockwerk;R;Raum'
               ,'L;Emplacement;G;Immeuble;V;Etage;R;Espace')
+    FACMGT_LCL('0;Niet tonen;7;Locatie;5;Gebouw;3;Verdieping;1;Ruimte'
+              ,'0;Don''t show;7;Location;5;Building;3;Floor;1;Room'
+              ,'0;Nicht zeigen;7;Standort;5;Geb<65>ude;3;Stockwerk;1;Raum'
+              ,'0;Montrent pas;7;Emplacement;5;Immeuble;3;Etage;1;Espace')
     FACMGT_LCL(';Geen objecten;L;Locatie;G;Gebouw;V;Verdieping;R;Ruimte'
               ,';No objects;L;Location;G;Building;V;Floor;R;Room'
               ,';Keine Objektdaten;L;Standort;G;Geb<65>ude;V;Stockwerk;R;Raum'
@@ -717,10 +755,10 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Default not visible for FE;1;Default visible for FE;2;Per note, default not visible for FE;3;Per note, default visible for FE'
               ,'0;@Standard nicht sichtbar f<>r FE;1;@Standard sichtbar f<>r FE;2;@Per Notiz, standard nicht sichtbar f<>r FE;3;@Per Notiz, standard sichtbar f<>r FE'
               ,'0;@Standard ne pas visible pour Libre-Service;1;@Standard visible pour Libre-Service;2;@En note, standard ne pas visible pour Libre-Service;3;@En note, standard visible pour Libre-Service')
-    FACMGT_LCL(';;0;Nee;1;Ja;2;Initieel ook eerst naar de frontoffice'
-              ,';;0;No;1;Yes;2;Initially to front office'
-              ,';;0;Nein;1;Ja;2;Zuerst zu Front-Office'
-              ,';;0;Non;1;Qui;2;Initialement au front-office')
+    FACMGT_LCL('0;Nee;1;Ja;2;Initieel ook eerst naar de front office'
+              ,'0;No;1;Yes;2;Initially to front office'
+              ,'0;Nein;1;Ja;2;Zuerst zu Front-Office'
+              ,'0;Non;1;Qui;2;Initialement au front-office')
     FACMGT_LCL('0;On-gestylede;1;Gestylede;2;Procedure;3;Procedure gestyled;8;Via tabelizer'
               ,'0;Unstyled;1;Styled;2;Procedure;3;Procedure styled;8;Via tabelizer'
               ,'0;Nicht gestylt;1;Styled;2;Prozedur;3;Prozedur Styled;8;@Via tabelizer'
@@ -741,6 +779,31 @@ START_FACMGT_LCL(NULL, NULL)
               ,'0;Optional;7;Creation;6;Close;4;Complete'
               ,'0;Nicht erfordlich;7;Erstellung;6;Abmelden;4;Abschlie<69>en'
               ,'0;Non obligatoire;7;cr<63>ation;6;Se d<>sabonner;4;Terminer')
+    FACMGT_LCL('1;Optie;2;Definitief;3;Geblokkeerd;4;Vervallen'
+              ,'1;Option;2;Definitive;3;Blocked;4;Expired'
+              ,'1;Option;2;Definitiv;3;Blockiert;4;Verfallen'
+              ,'1;Option;2;Definitive;3;Bloqu<71>e;4;Retir<69>e')
+    FACMGT_LCL('2;Nee;1;Ja, niet wijzigbaar;3;Ja, wijzigbaar'
+              ,'2;No;1;Yes, not editable;3;Yes, editable'
+              ,'2;Nein;1;Ja, unver<65>nderlich;3;Ja, modifizierbar'
+              ,'2;Non;1;Qui, immuable;3;Qui, modifiable')
+    FACMGT_LCL('0;Uit catalogus;1;Vrij aanmaken'
+              ,'0;From catalog;1;Create free'
+              ,'0;Von Katalog;1;Frei schaffen'
+              ,'0;De catalogue;1;Place la libre')
+    FACMGT_LCL('1;Controle;2;Vervanging;3;Certificering'
+              ,'1;Control;2;Replacement;3;Certification'
+              ,'1;Kontrolle;2;Ersatz;3;Zertifizierung'
+              ,'1;Contr<74>le;2;Remplacement;3;Certification')
+    FACMGT_LCL('0;Niet;1;BOF;2;BO3;3;BO3 en dan BOF'
+              ,'0;Not;1;BOF;2;BO3;3;BO3 then BOF'
+              ,'0;Nicht;1;BOF;2;BO3;3;BO3 dann BOF'
+              ,'0;Pas;1;BOF;2;BO3;3;BO3 puis BOF')
+    FACMGT_LCL('0;AND: Start na de laatste van alle voorgaande stappen;1;OR:  Start na de eerste van de voorgaande stappen"'
+              ,'0;AND: Start after the last of all the previous steps;1;OR:  Start after the first of the previous steps'
+              ,'0;AND: Starten nach dem letzten aller vorherigen Schritte;1;OR:  Zu starten, nachdem die erste von den vorherigen Schritten'
+              ,'0;AND: Lancer apr<70>s la derni<6E>re de toutes les <20>tapes pr<70>c<EFBFBD>dentes;1;OR:  Lancer apr<70>s la premi<6D>re des <20>tapes pr<70>c<EFBFBD>dentes')
+
 
     FACMGT_LCL('Karakter'            ,'Character'           ,'Zeichen','Caract<63>re')
     FACMGT_LCL('Numeriek'            ,'Number'              ,'Numerisch','Num<75>rique')
@@ -1029,5 +1092,6 @@ START_FACXSL_LCL('FIN', NULL) /* factuur */
     FACXSL_LCL('ex_btw', 'Excl. BTW', 'Excl. VAT', 'Exklusiv MwSt.', 'hors TVA')
     FACXSL_LCL('incl_btw', 'Incl. BTW', 'Incl. VAT', 'Inklusiv MwSt.', 'TVA incluse')
     FACXSL_LCL('behoort_bij_onderstaande_verplichting', 'Behoort bij onderstaande verplichting', 'Belongs to obligation below', 'Geh<65>rt zu Erpflichtung hierunter', 'Appartient <20> l''obligation suivante')
+    FACXSL_LCL('verkoopfactuur', 'Verkoopfactuur', 'Salesinvoice', 'Rechnung', 'Facture')
 END_FACXSL_LCL()
 REGISTERONCE('$Id$')

FAC/FAC_LCLMDL.csv

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

FAC/FAC_PAC.SRC

@@ -33,7 +33,9 @@
 #include "fac_pacf.src"
 #include "fac_pacl.src"
 
-CREATE OR REPLACE PACKAGE fac AS
+CREATE OR REPLACE PACKAGE fac
+    AUTHID CURRENT_USER -- zodat CREATE TABLE lukt
+  AS
     BeginWerkUur      NUMBER(4,2);
     EindWerkUur       NUMBER(4,2);
 
@@ -109,7 +111,7 @@ CREATE OR REPLACE PACKAGE fac AS
     PROCEDURE putjobnotifications (pviewname VARCHAR2, pmode NUMBER, pflags NUMBER);
     FUNCTION getMobile  ( pkey IN NUMBER ) RETURN VARCHAR2;
     PROCEDURE executeschedules;
-    PROCEDURE markorderassent(pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2);
+    PROCEDURE markorderassent(pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2, pperslid_key NUMBER DEFAULT NULL);
     FUNCTION getSetting (pname IN VARCHAR2 ) RETURN VARCHAR2;
     PROCEDURE trackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE, poms VARCHAR2);
     PROCEDURE backtrackaction (pcode VARCHAR2, prefkey NUMBER, puserkey NUMBER, pdatum DATE);
@@ -130,6 +132,7 @@ CREATE OR REPLACE PACKAGE fac AS
     FUNCTION makehash (p_in VARCHAR2, method IN VARCHAR2 DEFAULT 'MD5') RETURN VARCHAR2;
     FUNCTION testhash (p_hash VARCHAR2, p_in VARCHAR2) RETURN NUMBER;
     PROCEDURE createlikebookmark (pxmlnode VARCHAR2, prefkey NUMBER);
+    PROCEDURE sequence_nextval(p_seqname IN VARCHAR2, p_initval IN NUMBER DEFAULT 1, p_initexpire IN DATE DEFAULT NULL);
 
 END fac;
 /
@@ -401,16 +404,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
     v_day_to NUMBER;
     v_holidays NUMBER;
     BEGIN
-
-     -- Dit is een maandag, is dat volgens de huidige territory dag 2?
-     eikdag := TO_NUMBER (TO_CHAR (TO_DATE('01-01-2007', 'DD-MM-YYYY'), 'D'));
-
-     IF eikdag <> 2
-     THEN
-	   -- WE MOETEN met zondag=1 werken (geen nieuwe eis, wel duidelijker probleem)
-       raise_application_error (-20000, 'Facilitor: Invalid NLS_TERRITORY');
-     END IF;
-
      -- Remove time-part from dates (ie. set to 0:00) and set dates chronologically
      IF pdate1 > pdate2 THEN
        v_date_from := TRUNC(pdate2);
@@ -431,8 +424,8 @@ CREATE OR REPLACE PACKAGE BODY fac AS
      v_mod := mod((v_date_to - v_date_from),7);
 
      -- Correct remaining days (v_mod) depending on the FROM and TO "day-number"
-     v_day_from := to_number(DATE_TO_CHAR(v_date_from,'d'));
-     v_day_to := to_number(DATE_TO_CHAR(v_date_to,'d'));
+     v_day_from := getweekdaynum(v_date_from);
+     v_day_to := getweekdaynum(v_date_to);
      IF v_day_from = 1 THEN               /* FROM is sunday */
        IF v_day_to = 7 THEN               /* TO is saturday */
          v_mod := v_mod - 1;              /* should always be 5! */
@@ -475,8 +468,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
      ELSE
        RETURN  5 * v_week + v_mod + v_extra_day - v_holidays;
      END IF;
-    EXCEPTION
-     WHEN OTHERS THEN RETURN NULL;
     END;
 
    FUNCTION count_Work_Days_InclTime( pdate1 IN DATE , pdate2 IN DATE ) RETURN NUMBER IS
@@ -542,17 +533,6 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    BEGIN
       returnval := NULL;
 
-      -- Dit is een maandag, is dat volgens de huidige territory dag 2?
-      eikdag :=
-         TO_NUMBER (TO_CHAR (TO_DATE ('01-01-2007', 'DD-MM-YYYY'), 'D'));
-
-      IF eikdag <> 2
-      THEN -- We MOETEN met zo=1 werken (geen nieuwe eis, wel duidelijker probleem).
-         raise_application_error (-20000, 'Facilitor: Invalid NLS_TERRITORY (should be AMERICA)');
-      END IF;
-
-      -- Veronderstelt NLS_TERRITORY='AMERICA'.
-
       IF     begindatum IS NOT NULL
          AND uitvoertijd IS NOT NULL
          AND pMode BETWEEN 0 AND 2
@@ -665,7 +645,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                           MINUS -- Igv. pMode=1 za+zo niet meetellen; deze worden sowieso geskipt!
                           SELECT * FROM mld_vrije_dagen
                            WHERE pMode = 1 AND fac.getweekdaynum (mld_vrije_dagen_datum) IN (1,7))
-                   WHERE mld_vrije_dagen_datum BETWEEN TRUNC (olddatumgereed) AND newdatumgereed;
+                   WHERE mld_vrije_dagen_datum BETWEEN TRUNC (olddatumgereed + 1) AND newdatumgereed;
 
                   EXIT WHEN delta = 0;
                END LOOP;
@@ -806,7 +786,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                    THEN
                       heledagen := 0;
                    ELSE
-                      heledagen := TRUNC (begindatum + 1) - TRUNC (einddatum - 1) - vrijedagen;
+                      heledagen := TRUNC (einddatum) - TRUNC (begindatum + 1) - vrijedagen;
                    END IF;
                 END IF;
              ELSE                                                 -- pMode = 1
@@ -2301,46 +2281,62 @@ CREATE OR REPLACE PACKAGE BODY fac AS
        lsrt_key      fac_srtnotificatie.fac_srtnotificatie_key%TYPE;
        lrefkey       fac_notificatie.fac_notificatie_refkey%TYPE;
        lxkey         fac_notificatie.fac_notificatie_extrakey%TYPE;
+       lxsender      fac_notificatie.fac_notificatie_sender_email%TYPE;
        lxemail       fac_notificatie.fac_notificatie_receiver_email%TYPE;
        lxmobile      fac_notificatie.fac_notificatie_receiver_phone%TYPE;
        attachments   fac_notificatie.fac_notificatie_attachments%TYPE;
    BEGIN
        -- The flags are for compatibility mostly. Flags 2 and 4 cannot be combined (useless)
        -- flags: 0=default,  1=view has xemail and xmobile, 2=use fac.notifytracking instead of fac.putnotification(srtprio)
-       --        4=view has attachments
+       --        4=view has attachments, 8=view has xsender
        -- Kijk of de extra kolommen xemail en xmobile in de view zitten, dan gebruiken we die ook
 
        IF BITAND(pflags, 2) = 2 -- Alleen sender, text, code en xkey verplicht (met xkey zoals in fac_tracking zou komen)
        THEN
            OPEN messages FOR
-               'SELECT sender, NULL receiver, text, code, fac_srtnotificatie_key, NULL key, xkey, NULL xemail, NULL xmobile'
+               'SELECT sender, NULL receiver, text, code, fac_srtnotificatie_key, NULL key, xkey, NULL xsender, NULL xemail, NULL xmobile, NULL attachments'
                || ' FROM fac_srtnotificatie, ' || pviewname
                || ' WHERE code = fac_srtnotificatie_code';
+       ELSIF BITAND(pflags, 13) = 13  /* 8+4+1 */
+       THEN
+           OPEN messages FOR
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, xsender, xemail, xmobile, attachments FROM '
+               || pviewname;
+       ELSIF BITAND(pflags, 9) = 9  /* 8+1 */
+       THEN
+           OPEN messages FOR
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, xsender, xemail, xmobile, NULL attachments FROM '
+               || pviewname;
+       ELSIF BITAND(pflags, 8) = 8
+       THEN
+           OPEN messages FOR
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, xsender, NULL xemail, NULL xmobile, NULL attachments FROM '
+               || pviewname;
        ELSIF BITAND(pflags, 5) = 5  /* 4+1 */
        THEN
            OPEN messages FOR
-               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, xemail, xmobile, attachments FROM '
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xsender, xemail, xmobile, attachments FROM '
                || pviewname;
        ELSIF BITAND(pflags, 4) = 4
        THEN
            OPEN messages FOR
-               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xemail, NULL xmobile, attachments FROM '
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xsender, NULL xemail, NULL xmobile, attachments FROM '
                || pviewname;
        ELSIF BITAND(pflags, 1) = 1
        THEN
            OPEN messages FOR
-               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, xemail, xmobile, NULL attachments FROM '
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xsender, xemail, xmobile, NULL attachments FROM '
                || pviewname;
        ELSE -- BITAND(pflags, 1) = 0
            OPEN messages FOR
-               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xemail, NULL xmobile, NULL attachments FROM '
+               'SELECT sender, receiver, text, code, NULL fac_srtnotificatie_key, key, xkey, NULL xsender, NULL xemail, NULL xmobile, NULL attachments FROM '
                || pviewname;
        END IF;
 
 
        LOOP
            FETCH messages
-           INTO lsender, lreceiver, ltext, lcode, lsrt_key, lrefkey, lxkey, lxemail, lxmobile, attachments;
+           INTO lsender, lreceiver, ltext, lcode, lsrt_key, lrefkey, lxkey, lxsender, lxemail, lxmobile, attachments;
 
            EXIT WHEN messages%NOTFOUND;
 
@@ -2371,7 +2367,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                                        lxmobile,
                                        lxkey,
                                        2,
-                                       NULL,
+                                       lxsender,
                                        attachments);
            END IF;
        END LOOP;
@@ -2386,155 +2382,253 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
    PROCEDURE executeactiviteit (pxmlnode VARCHAR2, pactkey NUMBER)
    AS
-      lkey       NUMBER (10);
-      lkey_m     NUMBER (10);
-      lkey_new   NUMBER (10);
-      luserkey   NUMBER (10);
-      lvolgnr    mld_opdr.mld_opdr_bedrijfopdr_volgnr%TYPE;
-      leinddatum mld_melding.mld_melding_einddatum_std%TYPE;
+      CURSOR berekendeflex (
+         mkey      IN            NUMBER,
+         stdmkey   IN            NUMBER)
+      IS
+         -- de gedefinieerde verplichte sql-kenmerken die niet ingevuld zijn
+         SELECT k.mld_kenmerk_key,
+                REPLACE (k.mld_kenmerk_default, '##SQL##', '') mld_kenmerk_defaultsql
+           FROM mld_srtkenmerk t,
+                mld_kenmerk k,
+                mld_stdmelding s,
+                mld_discipline d
+          WHERE s.mld_stdmelding_key = stdmkey
+                AND s.mld_ins_discipline_key = d.ins_discipline_key
+                AND ( (k.mld_stdmelding_key = s.mld_stdmelding_key AND k.mld_kenmerk_niveau = 'S')
+                     OR (k.mld_stdmelding_key = s.mld_ins_discipline_key
+                         AND k.mld_kenmerk_niveau = 'D')
+                     OR (k.mld_stdmelding_key = d.ins_srtdiscipline_key
+                         AND k.mld_kenmerk_niveau = 'T'))
+                AND k.mld_kenmerk_verwijder IS NULL
+                AND k.mld_srtkenmerk_key = t.mld_srtkenmerk_key
+                AND k.mld_kenmerk_default LIKE '%##SQL##%'
+                AND k.mld_kenmerk_verplicht = 1
+                AND t.mld_srtkenmerk_verwijder IS NULL
+                AND k.mld_kenmerk_volgnummer <= 900
+                AND NOT EXISTS
+                      (SELECT ''
+                         FROM mld_kenmerkmelding km
+                        WHERE     mld_kenmerkmelding_verwijder IS NULL
+                              AND km.mld_kenmerk_key = k.mld_kenmerk_key
+                              AND mld_melding_key = mkey);
+
+      lkey               NUMBER (10);
+      lstdmkey           mld_melding.mld_stdmelding_key%TYPE;
+      lresolveddefault   mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
+      lkey_m             NUMBER (10);
+      lkey_new           NUMBER (10);
+      luserkey           NUMBER (10);
+      lvolgnr            mld_opdr.mld_opdr_bedrijfopdr_volgnr%TYPE;
+      leinddatum         mld_melding.mld_melding_einddatum_std%TYPE;
    BEGIN
       BEGIN
          CASE pxmlnode
             WHEN 'melding'
             THEN
-               SELECT MAX (mld_melding_key)
-                 INTO lkey
+               SELECT mld_melding_key, mld_stdmelding_key
+                 INTO lkey, lstdmkey
                  FROM mld_melding
                 WHERE fac_activiteit_key = pactkey;
 
-               SELECT mld_s_mld_melding_key.nextval
-                 INTO lkey_new
-                 FROM DUAL;
+               SELECT mld_s_mld_melding_key.NEXTVAL INTO lkey_new FROM DUAL;
 
-               -- TODO: ooit uitvoertijd en accepttijd vers bepalen uit de stdmelding
-               -- TODO: ooit i18n voor de vaste string
-               INSERT INTO mld_melding
-                           (mld_melding_key, mld_melding_module, mld_meldbron_key, mld_alg_locatie_key,
-                            mld_alg_onroerendgoed_keys, mld_melding_datum, mld_melding_omschrijving,
-                            mld_melding_opmerking, mld_stdmelding_key, mld_melding_t_uitvoertijd, mld_melding_t_accepttijd,
-                            mld_kosten_klant, mld_melding_document, prs_kostenplaats_key,
-                            prs_perslid_key, mld_adres_key,
-                            mld_workflowstep_key, mld_melding_start_key, mld_melding_ordernr, mld_melding_spoed)
-                  SELECT lkey_new, mld_melding_module, mld_meldbron_key, mld_alg_locatie_key,
-                         mld_alg_onroerendgoed_keys, SYSDATE, mld_melding_omschrijving,
-                         lcl.l('lcl_mld_activity_generated_by')|| pactkey || '. ' || mld_melding_opmerking,
-                         mld_stdmelding_key, mld_melding_t_uitvoertijd, mld_melding_t_accepttijd,
-                         mld_kosten_klant, mld_melding_document, prs_kostenplaats_key, prs_perslid_key,
-                         mld_adres_key, NULL, NULL,
-                         mld_melding_ordernr, mld_melding_spoed
+               INSERT INTO mld_melding (mld_melding_key,
+                                        mld_melding_module,
+                                        mld_meldbron_key,
+                                        mld_alg_locatie_key,
+                                        mld_alg_onroerendgoed_keys,
+                                        mld_melding_datum,
+                                        mld_melding_omschrijving,
+                                        mld_melding_opmerking,
+                                        mld_stdmelding_key,
+                                        mld_melding_t_uitvoertijd,
+                                        mld_melding_t_accepttijd,
+                                        mld_kosten_klant,
+                                        mld_melding_document,
+                                        prs_kostenplaats_key,
+                                        prs_perslid_key,
+                                        mld_adres_key,
+                                        mld_workflowstep_key,
+                                        mld_melding_start_key,
+                                        mld_melding_ordernr,
+                                        mld_melding_spoed)
+                  SELECT lkey_new,
+                         mld_melding_module,
+                         mld_meldbron_key,
+                         mld_alg_locatie_key,
+                         mld_alg_onroerendgoed_keys,
+                         SYSDATE,
+                         mld_melding_omschrijving,
+                            lcl.l ('lcl_mld_activity_generated_by')
+                         || pactkey
+                         || '. '
+                         || mld_melding_opmerking,
+                         mld_stdmelding_key,
+                         mld_melding_t_uitvoertijd,
+                         mld_melding_t_accepttijd,
+                         mld_kosten_klant,
+                         mld_melding_document,
+                         prs_kostenplaats_key,
+                         prs_perslid_key,
+                         mld_adres_key,
+                         NULL,
+                         NULL,
+                         mld_melding_ordernr,
+                         mld_melding_spoed
                     FROM mld_melding
                    WHERE mld_melding_key = lkey;
 
-              INSERT INTO mld_kenmerkmelding
-                           (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
+               -- Alle ingevulde kenmerken gewoon overnemen
+               INSERT INTO mld_kenmerkmelding (mld_melding_key, mld_kenmerk_key, mld_kenmerkmelding_waarde)
                   SELECT lkey_new, mld_kenmerk_key, mld_kenmerkmelding_waarde
                     FROM mld_kenmerkmelding
                    WHERE mld_kenmerkmelding_verwijder IS NULL AND mld_melding_key = lkey;
 
-              INSERT INTO mld_melding_object
-                           (mld_melding_key, ins_deel_key)
+               -- En van alle niet-ingevulde verplichte kenmerken de defaultwaarde berekenen als
+               -- dat een dynamische waarde is. We ondersteunen hier niet de substitutie van
+               -- ##PRS_PERSLID_KEY##, de melder is nl fixed en een eventueel daarvan afhangende
+               -- waarde kan dat dan logischerwijs doorgaans ook zijn (versimpeling).
+               FOR bf IN berekendeflex (lkey, lstdmkey) LOOP
+                  BEGIN
+                     EXECUTE IMMEDIATE (bf.mld_kenmerk_defaultsql) INTO lresolveddefault;
+
+                     INSERT INTO mld_kenmerkmelding (mld_melding_key,
+                                                     mld_kenmerk_key,
+                                                     mld_kenmerkmelding_waarde)
+                         VALUES (lkey_new, bf.mld_kenmerk_key, lresolveddefault);
+                  END;
+               END LOOP;
+
+               INSERT INTO mld_melding_object (mld_melding_key, ins_deel_key)
                   SELECT lkey_new, ins_deel_key
                     FROM mld_melding_object
                    WHERE mld_melding_object_verwijder IS NULL AND mld_melding_key = lkey;
-              mld.setmeldingstatus(lkey_new, 2,NULL);
 
-              -- Eventuele (gewijzigde) objecten zijn nu ook opgeslagen.
-              -- Nu kunnen pas de definitieve mld_melding.mld_melding_einddatum en mld_melding.mld_melding_einddatum_std bepaald en gezet worden.
-              leinddatum := mld.geteinddatum (lkey_new);
+               mld.setmeldingstatus (lkey_new, 2, NULL);
 
-              UPDATE mld_melding
-                 SET mld_melding_einddatum = leinddatum,
-                     mld_melding_einddatum_std = leinddatum
-               WHERE mld_melding_key = lkey_new;
+               -- Eventuele (gewijzigde) objecten zijn nu ook opgeslagen.
+               -- Nu kunnen pas de definitieve mld_melding.mld_melding_einddatum en mld_melding.mld_melding_einddatum_std bepaald en gezet worden.
+               leinddatum := mld.geteinddatum (lkey_new);
 
+               UPDATE mld_melding
+                  SET mld_melding_einddatum = leinddatum, mld_melding_einddatum_std = leinddatum
+                WHERE mld_melding_key = lkey_new;
             WHEN 'opdracht'
             THEN
-               SELECT MAX (mld_opdr_key),
-                      MAX (mld_melding_key)
-                 INTO lkey,
-                      lkey_m
+               SELECT MAX (mld_opdr_key), MAX (mld_melding_key)
+                 INTO lkey, lkey_m
                  FROM mld_opdr
                 WHERE fac_activiteit_key = pactkey;
 
-               SELECT mld.bepaalopdrmeldingvolgnr (lkey_m)
-                 INTO lvolgnr
-                 FROM DUAL;
+               SELECT mld.bepaalopdrmeldingvolgnr (lkey_m) INTO lvolgnr FROM DUAL;
 
-               SELECT mld_s_mld_opdr_key.nextval
-                 INTO lkey_new
-                 FROM DUAL;
+               SELECT mld_s_mld_opdr_key.NEXTVAL INTO lkey_new FROM DUAL;
 
-               INSERT INTO mld_opdr
-                           (mld_opdr_key, mld_opdr_module, mld_melding_key, mld_uitvoerende_keys, mld_typeopdr_key,
-                            mld_statusopdr_key, mld_standaardopdr_key, mld_opdr_omschrijving, mld_opdr_datumbegin,
-                            mld_opdr_einddatum, mld_opdr_werkzaamheden, mld_opdr_uren, mld_opdr_materiaal, mld_opdr_kosten,
-                            mld_opdr_contactpersoon, mld_opdr_bedrijfopdr_volgnr, mld_opdr_uurloon, prs_perslid_key,
-                            prs_contactpersoon_key, cnt_contract_key, cnt_contract_dienst_key, prs_kostenplaats_key,
-                            mld_opdr_ordernr, mld_opdr_teverzenden)
-                  SELECT lkey_new, mld_opdr_module, mld_melding_key, mld_uitvoerende_keys, mld_typeopdr_key, mld_statusopdr_key,
-                         mld_standaardopdr_key, mld_opdr_omschrijving, SYSDATE, mld_opdr_einddatum,
-                         'Automatisch gegenereerd door activiteit ' || pactkey || '. ' || mld_opdr_werkzaamheden,
-                         mld_opdr_uren, mld_opdr_materiaal, mld_opdr_kosten, mld_opdr_contactpersoon, lvolgnr,
-                         mld_opdr_uurloon, prs_perslid_key, prs_contactpersoon_key, cnt_contract_key,
-                         cnt_contract_dienst_key, prs_kostenplaats_key, mld_opdr_ordernr, mld_opdr_teverzenden
+               INSERT INTO mld_opdr (mld_opdr_key,
+                                     mld_opdr_module,
+                                     mld_melding_key,
+                                     mld_uitvoerende_keys,
+                                     mld_typeopdr_key,
+                                     mld_statusopdr_key,
+                                     mld_standaardopdr_key,
+                                     mld_opdr_omschrijving,
+                                     mld_opdr_datumbegin,
+                                     mld_opdr_einddatum,
+                                     mld_opdr_werkzaamheden,
+                                     mld_opdr_uren,
+                                     mld_opdr_materiaal,
+                                     mld_opdr_kosten,
+                                     mld_opdr_contactpersoon,
+                                     mld_opdr_bedrijfopdr_volgnr,
+                                     mld_opdr_uurloon,
+                                     prs_perslid_key,
+                                     prs_contactpersoon_key,
+                                     cnt_contract_key,
+                                     cnt_contract_dienst_key,
+                                     prs_kostenplaats_key,
+                                     mld_opdr_ordernr,
+                                     mld_opdr_teverzenden)
+                  SELECT lkey_new,
+                         mld_opdr_module,
+                         mld_melding_key,
+                         mld_uitvoerende_keys,
+                         mld_typeopdr_key,
+                         mld_statusopdr_key,
+                         mld_standaardopdr_key,
+                         mld_opdr_omschrijving,
+                         SYSDATE,
+                         mld_opdr_einddatum,
+                            'Automatisch gegenereerd door activiteit '
+                         || pactkey
+                         || '. '
+                         || mld_opdr_werkzaamheden,
+                         mld_opdr_uren,
+                         mld_opdr_materiaal,
+                         mld_opdr_kosten,
+                         mld_opdr_contactpersoon,
+                         lvolgnr,
+                         mld_opdr_uurloon,
+                         prs_perslid_key,
+                         prs_contactpersoon_key,
+                         cnt_contract_key,
+                         cnt_contract_dienst_key,
+                         prs_kostenplaats_key,
+                         mld_opdr_ordernr,
+                         mld_opdr_teverzenden
                     FROM mld_opdr
                    WHERE mld_opdr_key = lkey;
 
-               INSERT INTO mld_kenmerkopdr
-                           (mld_opdr_key, mld_kenmerk_key, mld_kenmerkopdr_waarde)
+               INSERT INTO mld_kenmerkopdr (mld_opdr_key, mld_kenmerk_key, mld_kenmerkopdr_waarde)
                   SELECT lkey_new, mld_kenmerk_key, mld_kenmerkopdr_waarde
                     FROM mld_kenmerkopdr
                    WHERE mld_kenmerkopdr_verwijder IS NULL AND mld_opdr_key = lkey;
-              mld.setopdrachtstatus(lkey_new, 2,NULL);
 
+               mld.setopdrachtstatus (lkey_new, 2, NULL);
             WHEN 'bestelling'
             THEN
-               SELECT MAX (bes_bestelling_key),
-                      MAX (prs_perslid_key)
-                 INTO lkey,
-                      luserkey
+               SELECT MAX (bes_bestelling_key), MAX (prs_perslid_key)
+                 INTO lkey, luserkey
                  FROM bes_bestelling
                 WHERE fac_activiteit_key = pactkey;
 
-               SELECT bes_s_bes_bestelling_key.nextval
-                 INTO lkey_new
-                 FROM DUAL;
+               SELECT bes_s_bes_bestelling_key.NEXTVAL INTO lkey_new FROM DUAL;
 
                -- Bestelling kopi<70>ren.
-               INSERT INTO bes_bestelling (
-                                bes_bestelling_key,
-                                bes_bestelling_module,
-                                bes_bestelling_status,
-                                bes_bestelling_datum,
-                                prs_perslid_key,
-                                prs_perslid_key_voor,
-                                bes_bestelling_opmerking,
-                                bes_bestelling_ordernr,
-                                bes_bestelling_plaats,
-                                mld_adres_key_lev,
-                                prs_kostenplaats_key,
-                                bes_bestelling_leverdatum,
-                                bes_bestelling_kosten_klant
-                           )
-                  SELECT   lkey_new,
-                           bes_bestelling_module,
-                           bes_bestelling_status,
-                           SYSDATE,
-                           prs_perslid_key,
-                           prs_perslid_key_voor,
-                           'Automatisch gegenereerd door activiteit ' || pactkey || '. ' || bes_bestelling_opmerking,
-                           bes_bestelling_ordernr,
-                           bes_bestelling_plaats,
-                           mld_adres_key_lev,
-                           prs_kostenplaats_key,
-                           TRUNC (SYSDATE + (bes_bestelling_leverdatum - bes_bestelling_datum)),
-                           bes_bestelling_kosten_klant
-                    FROM   bes_bestelling
-                   WHERE   bes_bestelling_key = lkey;
+               INSERT INTO bes_bestelling (bes_bestelling_key,
+                                           bes_bestelling_module,
+                                           bes_bestelling_status,
+                                           bes_bestelling_datum,
+                                           prs_perslid_key,
+                                           prs_perslid_key_voor,
+                                           bes_bestelling_opmerking,
+                                           bes_bestelling_ordernr,
+                                           bes_bestelling_plaats,
+                                           mld_adres_key_lev,
+                                           prs_kostenplaats_key,
+                                           bes_bestelling_leverdatum,
+                                           bes_bestelling_kosten_klant)
+                  SELECT lkey_new,
+                         bes_bestelling_module,
+                         bes_bestelling_status,
+                         SYSDATE,
+                         prs_perslid_key,
+                         prs_perslid_key_voor,
+                            'Automatisch gegenereerd door activiteit '
+                         || pactkey
+                         || '. '
+                         || bes_bestelling_opmerking,
+                         bes_bestelling_ordernr,
+                         bes_bestelling_plaats,
+                         mld_adres_key_lev,
+                         prs_kostenplaats_key,
+                         TRUNC (SYSDATE + (bes_bestelling_leverdatum - bes_bestelling_datum)),
+                         bes_bestelling_kosten_klant
+                    FROM bes_bestelling
+                   WHERE bes_bestelling_key = lkey;
 
                -- Kenmerken van bestelling kopi<70>ren.
-               INSERT INTO bes_kenmerkbestell
-                           (bes_bestelling_key, bes_kenmerk_key, bes_kenmerkbestell_waarde)
+               INSERT INTO bes_kenmerkbestell (bes_bestelling_key, bes_kenmerk_key, bes_kenmerkbestell_waarde)
                   SELECT lkey_new, bes_kenmerk_key, bes_kenmerkbestell_waarde
                     FROM bes_kenmerkbestell
                    WHERE bes_kenmerkbestell_verwijder IS NULL AND bes_bestelling_key = lkey;
@@ -2549,12 +2643,11 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   SELECT lkey_new,
                          bes_bestelling_item_aantal,
                          bes_bestelling_item_aantalontv,
-                         bes.getsrtdeelprijsinfo(bi.bes_srtdeel_key, SYSDATE, 1),
-                         bes.getsrtdeelprijsinfo(bi.bes_srtdeel_key, SYSDATE, 1),
+                         bes.getsrtdeelprijsinfo (bi.bes_srtdeel_key, SYSDATE, 1),
+                         bes.getsrtdeelprijsinfo (bi.bes_srtdeel_key, SYSDATE, 1),
                          bi.bes_srtdeel_key
                     FROM bes_bestelling_item bi, bes_srtdeel isd
-                   WHERE bes_bestelling_key = lkey
-                     AND isd.bes_srtdeel_key = bi.bes_srtdeel_key;
+                   WHERE bes_bestelling_key = lkey AND isd.bes_srtdeel_key = bi.bes_srtdeel_key;
 
                -- Kenmerken van bestelregels kopi<70>ren.
                INSERT INTO bes_kenmerkbesteli (bes_bestelling_item_key,
@@ -2566,32 +2659,32 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                          kbi.bes_kenmerkbesteli_waarde,
                          SYSDATE
                     FROM bes_kenmerkbesteli kbi,
-                         (SELECT bi1.bes_bestelling_item_key  bes_bestelling_item_key_new,
+                         (SELECT bi1.bes_bestelling_item_key bes_bestelling_item_key_new,
                                  bi.bes_bestelling_item_key,
                                  bi.bes_srtdeel_key
                             FROM bes_bestelling_item bi, bes_bestelling_item bi1
-                           WHERE bi.bes_bestelling_key = lkey
-                             AND bi1.bes_srtdeel_key = bi.bes_srtdeel_key
-                             AND bi1.bes_bestelling_key = lkey_new) tab1
+                           WHERE     bi.bes_bestelling_key = lkey
+                                 AND bi1.bes_srtdeel_key = bi.bes_srtdeel_key
+                                 AND bi1.bes_bestelling_key = lkey_new) tab1
                    WHERE kbi.bes_bestelling_item_key = tab1.bes_bestelling_item_key
-                     AND kbi.bes_bestelling_item_key IN (SELECT bes_bestelling_item_key
-                                                           FROM bes_bestelling_item bi
-                                                          WHERE bi.bes_bestelling_key = lkey);
+                         AND kbi.bes_bestelling_item_key IN (SELECT bes_bestelling_item_key
+                                                               FROM bes_bestelling_item bi
+                                                              WHERE bi.bes_bestelling_key = lkey);
 
                -- Het gaat hier om een geplande actie. Je mag er van uit gaan dat deze goed gekeurd is voordat deze is aangemaakt.
                -- Daarom bestellingstatus op 4 zetten (Geaccepteerd) en bestelopdracht automatisch aanmaken.
-               bes.setbestellingstatus(lkey_new, 4, luserkey); -- Geaccepteerd
-               bes.makeorders(luserkey, lkey_new); -- bes_makeorders notificeert zelf de leveranciers.
+               bes.setbestellingstatus (lkey_new, 4, luserkey);                      -- Geaccepteerd
+               bes.makeorders (luserkey, lkey_new); -- bes_makeorders notificeert zelf de leveranciers.
          END CASE;
       EXCEPTION
          WHEN OTHERS
          THEN
-            putsystemnotification (   'Facilitor scheduler: opdracht voor activiteit '
-                                   || pactkey
-                                   || ' kan niet worden aangemaakt: '
-                                   || SQLERRM,
-                                   3
-                                  );
+            putsystemnotification (
+                  'Facilitor scheduler: opdracht voor activiteit '
+               || pactkey
+               || ' kan niet worden aangemaakt: '
+               || SQLERRM,
+               3);
       END;
    END;
 
@@ -2657,78 +2750,34 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    -- Voor customer-orderqueues dient overeenkomstige CUST.markorderassent() te worden gedefinieerd.
    -- Bij presult=2 weet je niet zeker wat de leverancier heeft gedaan, bij mail veronderstel je ontvangst, maar weet je
    --   het niet zeker. Met 5.1.2 (UWVA#21074) is daarvoor de status 4 tussengevoegd
-   PROCEDURE markorderassent (pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2)
+   PROCEDURE markorderassent (pxmlnode VARCHAR2, pkey NUMBER, presult NUMBER, presulttext VARCHAR2, pperslid_key NUMBER DEFAULT NULL)
    AS
       order_confirm prs_bedrijf.prs_bedrijf_order_confirm%TYPE;
       melding_key   mld_opdr.mld_melding_key%TYPE;
-      refiatstatus  mld_opdr.mld_statusopdr_key_refiat%TYPE;
    BEGIN
       CASE pxmlnode
          WHEN 'opdracht'
          THEN
-            SELECT mld_statusopdr_key_refiat
-              INTO refiatstatus
-              FROM mld_opdr
-             WHERE mld_opdr_key = pkey;
-
             IF presult = 0
             THEN
                UPDATE   mld_opdr
                   SET   mld_opdr_verzonden = SYSDATE
                 WHERE   mld_opdr_key = pkey;
 
-               fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
-               IF refiatstatus > 0
-               THEN
-                  mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-
-                  -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-                  UPDATE mld_opdr
-                  SET mld_opdr_uren_refiat = NULL,
-                      mld_opdr_uurloon_refiat = NULL,
-                      mld_opdr_materiaal_refiat = NULL,
-                      mld_opdr_kosten_refiat = NULL,
-                      mld_statusopdr_key_refiat = NULL,
-                      mld_opdr_approved_refiat = NULL
-                  WHERE mld_opdr_key = pkey;
-               ELSE
-                  mld.setopdrachtstatus (pkey, 5, NULL);
-               END IF;
+               fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
+               mld.setopdrachtstatus (pkey, 5, NULL);
             ELSIF presult = 1 -- (Logische) fout
             THEN
                UPDATE   mld_opdr
                   SET   mld_opdr_verzonden = SYSDATE
                 WHERE   mld_opdr_key = pkey;
 
-               fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
                -- status van de opdracht wordt afgewezen.
-               IF refiatstatus > 0
-               THEN
-                  -- Afwijzing tracken. Dit gebeurt niet automatisch omdat niet naar de afgewezen status wordt gegaan.
-                  fac.trackaction('ORDCAN', pkey, NULL, NULL, presulttext);
-                  mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-
-                  -- De oude kosten terugzetten.
-                  -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-                  UPDATE mld_opdr
-                  SET mld_opdr_uren = mld_opdr_uren_refiat,
-                      mld_opdr_uurloon = mld_opdr_uurloon_refiat,
-                      mld_opdr_materiaal = mld_opdr_materiaal_refiat,
-                      mld_opdr_kosten = mld_opdr_kosten_refiat,
-                      mld_opdr_approved = mld_opdr_approved_refiat,
-                      mld_opdr_uren_refiat = NULL,
-                      mld_opdr_uurloon_refiat = NULL,
-                      mld_opdr_materiaal_refiat = NULL,
-                      mld_opdr_kosten_refiat = NULL,
-                      mld_statusopdr_key_refiat = NULL,
-                      mld_opdr_approved_refiat = NULL
-                  WHERE mld_opdr_key = pkey;
-               ELSE
-                  mld.setopdrachtstatus (pkey, 1, NULL);
-               END IF;
+               mld.setopdrachtstatus (pkey, 1, NULL);
             ELSIF presult = 2
             THEN
-               fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('ORDSNT', pkey, pperslid_key, NULL, presulttext);
                -- De leverancier heeft geen feedback gegeven, wat is het gedrag dan voor deze leverancier?
                SELECT b.prs_bedrijf_order_confirm
                  INTO order_confirm
@@ -2745,40 +2794,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   UPDATE   mld_opdr
                      SET   mld_opdr_verzonden = SYSDATE
                    WHERE   mld_opdr_key = pkey;
-                  IF refiatstatus > 0
-                  THEN
-                    mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-                  ELSE
-                    mld.setopdrachtstatus (pkey, 5, NULL);
-                  END IF;
+                  mld.setopdrachtstatus (pkey, 5, pperslid_key);
                ELSE
                   UPDATE   mld_opdr
                      SET   mld_opdr_verzonden = SYSDATE
                    WHERE   mld_opdr_key = pkey;
-                  IF refiatstatus > 0
-                  THEN
-                    mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-                  ELSE
-                    mld.setopdrachtstatus (pkey, 8, NULL);
-                  END IF;
-               END IF;
-
-               -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-               IF refiatstatus > 0 AND (presult >= 0)
-               THEN
-                 UPDATE mld_opdr
-                 SET mld_opdr_uren_refiat = NULL,
-                     mld_opdr_uurloon_refiat = NULL,
-                     mld_opdr_materiaal_refiat = NULL,
-                     mld_opdr_kosten_refiat = NULL,
-                     mld_statusopdr_key_refiat = NULL,
-                     mld_opdr_approved_refiat = NULL
-                 WHERE mld_opdr_key = pkey;
+                  mld.setopdrachtstatus (pkey, 8, pperslid_key);
                END IF;
             ELSIF presult < 0
             THEN
                -- just track, nothing changes really
-               fac.trackaction ('ORDSNX', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('ORDSNX', pkey, pperslid_key, NULL, presulttext);
             END IF;
 
             SELECT mld_melding_key
@@ -2787,17 +2813,17 @@ CREATE OR REPLACE PACKAGE BODY fac AS
              WHERE o.mld_opdr_key = pkey;
 
             -- als laatste de status van de melding aanpassen.
-            mld.updatemeldingstatus (melding_key, 0, NULL);
+            mld.updatemeldingstatus (melding_key, 0, pperslid_key);
          WHEN 'bestelopdr'
          THEN
             IF presult = 0
             THEN
                -- Succesvol
-               fac.trackaction ('BES2SN', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('BES2SN', pkey, pperslid_key, NULL, presulttext);
                bes.acceptopdracht(pkey, NULL, presulttext);
             ELSIF presult = 1 -- (Logische) fout
             THEN
-               fac.trackaction ('BES2SX', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('BES2SX', pkey, pperslid_key, NULL, presulttext);
                bes.rejectopdracht(pkey, NULL, presulttext);
             ELSIF presult = 2
             THEN
@@ -2807,7 +2833,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                  FROM prs_bedrijf b, bes_bestelopdr o
                 WHERE b.prs_bedrijf_key = o.prs_bedrijf_key
                   AND o.bes_bestelopdr_key = pkey;
-                fac.trackaction ('BES2SN', pkey, NULL, NULL, presulttext);
+                fac.trackaction ('BES2SN', pkey, pperslid_key, NULL, presulttext);
 
                 IF order_confirm = 1
                 THEN
@@ -2815,23 +2841,23 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   UPDATE   bes_bestelopdr
                      SET   bes_bestelopdr_status = 5
                    WHERE   bes_bestelopdr_key = pkey;
-                  fac.trackaction ('BES2BE', pkey, NULL, NULL, presulttext);
+                  fac.trackaction ('BES2BE', pkey, pperslid_key, NULL, presulttext);
                 ELSE
-                    bes.acceptopdracht(pkey, NULL, presulttext);
+                    bes.acceptopdracht(pkey, pperslid_key, presulttext);
                 END IF;
             ELSIF presult < 0
             THEN
                -- just track, nothing changes really
-               fac.trackaction ('BES2SX', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('BES2SX', pkey, pperslid_key, NULL, presulttext);
             END IF;
          WHEN 'contract'
          THEN
             IF presult = 1
             THEN  -- (Logische) fout; kan nog niet voorkomen voorlopig, maar toch
-               fac.trackaction ('CNTSNX', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('CNTSNX', pkey, pperslid_key, NULL, presulttext);
             ELSE
                -- Succesvol
-               fac.trackaction ('CNTSNT', pkey, NULL, NULL, presulttext);
+               fac.trackaction ('CNTSNT', pkey, pperslid_key, NULL, presulttext);
             END IF;
             -- reset
             UPDATE cnt_contract
@@ -2962,6 +2988,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
         lnotify                  mld_disc_params.mld_disc_params_notify%TYPE;
         lmnotify                 mld_stdmelding.mld_stdmelding_notify%TYPE;
         lbonotify                mld_disc_params.mld_disc_params_bonotify%TYPE;
+        lbenotify                mld_disc_params.mld_disc_params_benotify%TYPE;
         lworkflowstep_key        mld_melding.mld_workflowstep_key%TYPE;
         lstart_key               mld_melding.mld_melding_start_key%TYPE;
         luitvtype                mld_v_uitvoerende.TYPE%TYPE;
@@ -3027,6 +3054,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                        stdm.mld_stdmelding_notify,
                        d.ins_discipline_email,
                        mp.mld_disc_params_bonotify,
+                       mp.mld_disc_params_benotify,
                        m.mld_melding_behandelaar_key,
                        m.mld_workflowstep_key,
                        m.mld_melding_start_key
@@ -3038,6 +3066,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                        lmnotify,
                        lsender,
                        lbonotify,
+                       lbenotify,
                        lmldbehandelaar,
                        lworkflowstep_key,
                        lstart_key
@@ -3050,16 +3079,18 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                        AND mp.mld_ins_discipline_key = d.ins_discipline_key
                        AND m.mld_melding_key = prefkey;
 
-                IF lbonotify = 1 AND lcode = 'MLDNEW' -- Alleen bij aanmaak van de melding.
+                IF lbonotify > 0 AND (lcode = 'MLDNEW' OR lcode = 'MLDFWD' OR lcode = 'MLDACP') -- Bij aanmaak, doorsturen of accepteren van de melding.
                 THEN
-                    mld.notifybackoffice (prefkey);
+                    -- merk op: bij doorsturen binnen dezelfde discipline of met dezelfde bo-ers ontvangt men
+                    -- dan dus nogmaals een notificatie. Dat accepteren we vooralsnog gewoon maar.
+                    mld.notifybackoffice (prefkey, lcode);
                 END IF;
 
                 -- We sturen soms TWEE notificaties, naar melder en nieuwe behandelaar
                 -- De normale notificatie gaat naar de melder
                 -- Moeten dus kijken of psrtnotificatiekey naar MLDBEH wijst
                 -- Dan moeten we ook MLDBE2 versturen naar de behandelaar, al was ik het zelf.
-                IF lcode = 'MLDBEH' AND lmldbehandelaar IS NOT NULL
+                IF lbenotify > 0 AND lcode = 'MLDBEH' AND lmldbehandelaar IS NOT NULL
                 THEN
                     lcode2 := 'MLDBE2';
                     lreceiver2 := lmldbehandelaar;
@@ -3871,7 +3902,9 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                            SUBSTR (
                               psubject || CHR (13)
                               || REPLACE (
-                                    pbody,
+                                    SUBSTR (pbody,
+                                       1,
+                                       4000 - (LENGTH (psubject) + 2)),
                                     CHR (13) || CHR (10) || CHR (13) || CHR (10),
                                     CHR (13) || CHR (10)),
                               1,
@@ -3955,6 +3988,19 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    EXCEPTION
       WHEN OTHERS
       THEN
+         fac.writelog (
+                  'PROCESSEMAIL',
+                  'W',
+                     'Mail kon niet verwerkt worden afzender: '
+                  || pfrom
+                  || '['
+                  || errormsg
+                  || ']',
+                     'OTHERS (error '
+                  || SQLCODE
+                  || '/'
+                  || SUBSTR (SQLERRM, 1, 100)
+                  || ')');
          INSERT INTO fac_result (fac_result_sessionid,
                                  fac_result_naam,
                                  fac_result_waarde)
@@ -4288,7 +4334,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 THEN
                     BEGIN
                         -- jaarlijks
-                        inspdate := fromdate + p_periode * 365;
+                        inspdate := ADD_MONTHS (fromdate, 12 * p_periode);
                     END;
             END CASE;
         END IF;
@@ -4593,6 +4639,42 @@ CREATE OR REPLACE PACKAGE BODY fac AS
            END;
        END IF;
     END;
+
+   PROCEDURE sequence_nextval(p_seqname IN VARCHAR2, p_initval IN NUMBER DEFAULT 1, p_initexpire IN DATE DEFAULT NULL)
+   IS
+     v_nextval  NUMBER;
+     v_expire   DATE;
+   BEGIN
+      SELECT fac_sequence_lastval
+           , fac_sequence_expire
+        INTO v_nextval
+           , v_expire
+        FROM fac_sequence
+       WHERE fac_sequence_name = p_seqname;
+      --
+      IF ((p_initexpire IS NOT NULL) AND ( v_expire < p_initexpire))
+      THEN
+         -- Reset teller wegens overschrijden van expire_date.
+         v_nextval := p_initval;
+      ELSE
+         -- Alleen teller ophogen.
+         v_nextval := v_nextval + 1;
+      END IF;
+      UPDATE fac_sequence
+         SET fac_sequence_lastval = v_nextval
+           , fac_sequence_expire = p_initexpire
+       WHERE fac_sequence_name = p_seqname;
+   EXCEPTION
+      WHEN NO_DATA_FOUND
+      THEN
+         INSERT INTO fac_sequence (fac_sequence_name,
+                                   fac_sequence_lastval,
+                                   fac_sequence_expire)
+              VALUES (p_seqname,
+                      p_initval,
+                      p_initexpire);
+   END;
+
 END fac;
 /
 

FAC/FAC_PACX.SRC

@@ -130,6 +130,15 @@ AS
       p_extra       IN   NUMBER,
       p_where       IN   VARCHAR2
     );
+   FUNCTION make_xml2 (
+      p_xmlnode     IN   VARCHAR2,
+      p_key         IN   NUMBER,
+      p_custid      IN   VARCHAR2,
+      p_sessionid   IN   VARCHAR2,
+      p_extra       IN   NUMBER,
+      p_where       IN   VARCHAR2
+    ) RETURN CLOB;
+
    PROCEDURE make_view_xml (
       p_view        IN   VARCHAR2,
       p_key         IN   NUMBER,
@@ -140,6 +149,17 @@ AS
       p_nodename    IN   VARCHAR2,
       p_rowname     IN   VARCHAR2
    );
+
+   FUNCTION make_view_xml2 (
+      p_view        IN   VARCHAR2,
+      p_key         IN   NUMBER,
+      p_custid      IN   VARCHAR2,
+      p_sessionid   IN   VARCHAR2,
+      p_extra       IN   NUMBER,
+      p_where       IN   VARCHAR2,
+      p_nodename    IN   VARCHAR2,
+      p_rowname     IN   VARCHAR2
+   ) RETURN CLOB;
 END xml;
 /
 CREATE OR REPLACE PACKAGE BODY xml
@@ -182,7 +202,7 @@ AS
                    UNION ALL
                    SELECT 'FIN'
                      FROM DUAL
-                    WHERE p_xmlnode IN ('factuur')
+                    WHERE p_xmlnode IN ('factuur', 'verkoopfactuur')
                    UNION ALL
                    SELECT 'ALG'
                      FROM DUAL
@@ -265,21 +285,14 @@ AS
 
 
    -- Levert een bookmarks node op met daarin een (of meer) info om een link naar het detailscherm van deze node
-   -- te construeren. Dit gaat dus via de bookmarks (die standaard aanwezig zijn)
-   -- Een waarde is bijvoorbeeld u=jdnnYgdnIOJKdfn&k=
+   -- te construeren. Dit ging via de standaard bookmarks per xmlnode, maar nu gewoon met een pseudobookmark
+   -- met dezelfde naam als de xmlnode dit het vertegenwoordigd.
+   -- Een waarde is bijvoorbeeld u=melding&k=
    -- Waar je in de xsl de facilitorroot voor en de keywaarde achter moet zetten voor een goede link
-   -- Bij de vertaling van de bookmark(u) wordt de waarde van k meegegeven aan fac_bookmark_query
    -- (ook te overwegen is om de &k= door de xsl te laten plakken; net zo goed, maar op deze manier
    --  laten we de route naar uiteindelijk https://root/xmlnode/key beter open)
    PROCEDURE create_bookmarks_node (p_xmlnode IN VARCHAR2, p_refkey IN NUMBER)
    AS
-      CURSOR c1
-      IS
-           SELECT fac_bookmark_naam,
-                  fac_bookmark_id
-             FROM fac_bookmark
-            WHERE fac_bookmark_xmlnode = p_xmlnode
-              AND fac_bookmark_refkey IS NULL;
       CURSOR c2
       IS
            SELECT fac_bookmark_naam,
@@ -289,10 +302,8 @@ AS
               AND fac_bookmark_refkey = p_refkey;
    BEGIN
       createopentag ('bookmarks');
-      FOR rec1 IN c1 -- de generieke
-      LOOP
-         createxmltagvalue (rec1.fac_bookmark_naam, 'u='||rec1.fac_bookmark_id || '&k=');
-      END LOOP;
+      -- de generieke
+      createxmltagvalue (p_xmlnode, 'u='||p_xmlnode || '&k=');
       FOR rec2 IN c2 -- de specifieke
       LOOP
          createxmltagvalue (rec2.fac_bookmark_naam, 'u='||rec2.fac_bookmark_id);
@@ -486,7 +497,7 @@ AS
    -- * used for Kenmerk-nodes; if the fac_kenmerkdomein_key from p_kmdkey
    -- * defines a fac_kenmerkdomein_xmlnode the corresponding subnode
    -- * is added on the highest level only
-   -- * Per 5.4.3 empty nodes are skipped here too
+   -- * Per 5.4.3 empty nodes are skipped here too, unless the value is '#donotsuppress#'
    PROCEDURE createxmltagvalueattributes (p_tag          IN VARCHAR2,
                                           p_attrname1    IN VARCHAR2,
                                           p_attrvalue1   IN VARCHAR2,
@@ -594,16 +605,26 @@ AS
          addvarchartoclob (v_return); -- Tussenresultaat; nog geen waarde en sluithaakje
          -- Plak nu xmlnode-kenmerk direct in het resultaat (als side effect)
          xmlnode_depth := xmlnode_depth + 1; -- Increment depth; even van het pad af!
-         xml_node (v_xmlnode,
-                   fac.safe_to_number (p_value),
-                   NULL,
-                   NULL,
-                   NULL,
-                   NULL,
-                   TRUE);
+         IF v_xmlnode = 'reservering' THEN
+             xml_node (v_xmlnode,
+                       NULL, -- res_reservering_key mogen we leeg laten
+                       NULL,
+                       NULL,
+                       fac.safe_to_number (p_value), -- res_rsv_ruimte_key moet in p_extra
+                       NULL,
+                       TRUE);
+         ELSE
+             xml_node (v_xmlnode,
+                       fac.safe_to_number (p_value),
+                       NULL,
+                       NULL,
+                       NULL,
+                       NULL,
+                       TRUE);
+         END IF;
          xmlnode_depth := xmlnode_depth - 1; -- Decrement depth; terug naar de basis!
       ELSE
-         IF p_value IS NULL
+         IF p_value IS NULL OR p_value = '#donotsuppress#'
          THEN
             v_value := '';
          ELSE
@@ -668,6 +689,9 @@ AS
          IF p_kenmerk_type IN ('L', 'l')
          THEN
             RETURN p_kenmerk_default;
+         ELSIF p_kenmerk_type IN ('M')
+         THEN
+            RETURN '#donotsuppress#';
          ELSE
             RETURN NULL;
          END IF;
@@ -991,22 +1015,48 @@ AS
 
    PROCEDURE create_prs_kostensoort_node (p_key IN NUMBER)
    AS
-      v_omschrijving   prs_kostensoort.prs_kostensoort_oms%TYPE;
-      v_groep          prs_kostensoortgrp.prs_kostensoortgrp_oms%TYPE;
+      v_omschrijving      prs_kostensoort.prs_kostensoort_oms%TYPE;
+      v_omschrijving_alt  prs_kostensoort.prs_kostensoort_altcode%TYPE;
+      v_groep             prs_kostensoortgrp.prs_kostensoortgrp_oms%TYPE;
+      v_groep_alt         prs_kostensoortgrp.prs_kostensoortgrp_altcode%TYPE;
+      v_opmerking         prs_kostensoort.prs_kostensoort_opmerking%TYPE;
+      v_refcode           prs_kostensoort.prs_kostensoort_refcode%TYPE;
+      v_doorbelasten      prs_kostensoort.prs_kostensoort_doorbelasten%TYPE;
+      v_btw               prs_kostensoort.prs_kostensoort_btw%TYPE;
    BEGIN
       IF p_key IS NOT NULL
       THEN
          createopentag ('kostensoort');
 
-         SELECT k.prs_kostensoort_oms, g.prs_kostensoortgrp_oms
-           INTO v_omschrijving, v_groep
+         SELECT k.prs_kostensoort_oms,
+                k.prs_kostensoort_altcode,
+                g.prs_kostensoortgrp_oms,
+                g.prs_kostensoortgrp_altcode,
+                k.prs_kostensoort_opmerking,
+                k.prs_kostensoort_refcode,
+                k.prs_kostensoort_doorbelasten,
+                k.prs_kostensoort_btw
+           INTO v_omschrijving,
+                v_omschrijving_alt,
+                v_groep,
+                v_groep_alt,
+                v_opmerking,
+                v_refcode,
+                v_doorbelasten,
+                v_btw
            FROM prs_kostensoort k, prs_kostensoortgrp g
           WHERE k.prs_kostensoortgrp_key = g.prs_kostensoortgrp_key(+)
             AND k.prs_kostensoort_key = p_key;
 
          createxmltagvalue ('key', mynumbertochar (p_key));
          createxmltagvalue ('omschrijving', v_omschrijving);
+         createxmltagvalue ('omschrijving_alt', v_omschrijving_alt);
          createxmltagvalue ('groep', v_groep);
+         createxmltagvalue ('groep_alt', v_groep_alt);
+         createxmltagvalue ('opmerking', v_opmerking);
+         createxmltagvalue ('refcode', v_refcode);
+         createxmltagvalue ('doorbelasten', v_doorbelasten);
+         createxmltagvalue ('btw', v_btw);
          createclosetag ('kostensoort');
       END IF;
    END;
@@ -2767,6 +2817,7 @@ AS
       v_vervaldatum               ins_deel.ins_deel_vervaldatum%TYPE;
       v_uitvoertijd_td            ins_deel.ins_deel_t_uitvoertijd.tijdsduur%TYPE;
       v_uitvoertijd_e             ins_deel.ins_deel_t_uitvoertijd.eenheid%TYPE;
+      v_perslid_key_beh           ins_deel.prs_perslid_key_beh%TYPE;
 
       CURSOR c1
       IS
@@ -2801,7 +2852,8 @@ AS
                 ins_deel_y,
                 ins_deel_vervaldatum,
                 id.ins_deel_t_uitvoertijd.tijdsduur,
-                id.ins_deel_t_uitvoertijd.eenheid
+                id.ins_deel_t_uitvoertijd.eenheid,
+                prs_perslid_key_beh
            INTO v_ins_srtdeel_key,
                 v_ins_alg_ruimte_key,
                 v_ins_alg_ruimte_type,
@@ -2824,7 +2876,8 @@ AS
                 v_y,
                 v_vervaldatum,
                 v_uitvoertijd_td,
-                v_uitvoertijd_e
+                v_uitvoertijd_e,
+                v_perslid_key_beh
            FROM ins_deel id
           WHERE ins_deel_key = p_key;
 
@@ -2856,6 +2909,7 @@ AS
 
          IF NOT p_concise
          THEN
+             create_prs_perslid_node (v_perslid_key_beh, 'beheerder', TRUE);
              createxmltagvalue ('aantal', v_aantal);
              createxmltagvalue ('uitgeleend', v_ins_alg_ruimte_type_org);
              createxmltagvalue ('omtrek', v_omtrek);
@@ -3818,6 +3872,11 @@ AS
          SELECT mld_opdr_key
            FROM mld_opdr
           WHERE mld_melding_key = p_key;
+      CURSOR c3
+      IS
+         SELECT bes_bestelling_key
+           FROM bes_bestelling
+          WHERE mld_melding_key = p_key;
    BEGIN
       IF p_key IS NOT NULL
       THEN
@@ -4003,6 +4062,10 @@ AS
             LOOP
                create_mld_opdr_node (rec2.mld_opdr_key, TRUE);
             END LOOP;
+            FOR rec3 IN c3
+            LOOP
+               create_bes_bestelling_node (rec3.bes_bestelling_key, FALSE);  -- concise bevat geen artikelen
+            END LOOP;
          END IF;
 
          create_mld_melding_node (v_parentkey, p_withchildren); --Zou zomaar NULL kunnen zijn, geeft niks.
@@ -4749,7 +4812,7 @@ AS
                   AND k.bes_kenmerk_key = bki.bes_kenmerk_key(+)
                   AND bki.bes_bestelling_item_key(+) = p_key
                   AND k.bes_srtkenmerk_key = s.bes_srtkenmerk_key
-                  AND (bki.bes_kenmerkbesteli_waarde IS NOT NULL OR s.bes_srtkenmerk_kenmerktype IN ('L', 'l'))
+                  AND (bki.bes_kenmerkbesteli_waarde IS NOT NULL OR s.bes_srtkenmerk_kenmerktype IN ('L', 'l', 'M'))
                   AND k.bes_kenmerk_type = 'I'
          ORDER BY k.bes_kenmerk_volgnummer;
 
@@ -4783,7 +4846,7 @@ AS
 
    -- *
    -- * BES bestelling kenmerken
-   -- * Alleen ingevulde waarden en van type label (AAIT#22925)
+   -- * Alleen ingevulde waarden en van type label (AAIT#22925) en Multifile (FSN#31711)
 
    PROCEDURE create_bes_bestell_kenmerken (p_key IN NUMBER)
    AS
@@ -4820,7 +4883,7 @@ AS
                                                    WHERE bi.bes_srtdeel_key = bsd.bes_srtdeel_key
                                                      AND bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
                                                      AND bes_bestelling_key = p_key)
-                  AND (bkb.bes_kenmerkbestell_waarde IS NOT NULL OR s.bes_srtkenmerk_kenmerktype IN ('L', 'l'))
+                  AND (bkb.bes_kenmerkbestell_waarde IS NOT NULL OR s.bes_srtkenmerk_kenmerktype IN ('L', 'l', 'M'))
                   AND k.bes_kenmerk_type = 'B'
          ORDER BY k.bes_kenmerk_volgnummer;
 
@@ -5097,6 +5160,7 @@ AS
    AS
       v_discipline_key   bes_srtgroep.ins_discipline_key%TYPE;
       v_omschrijving     bes_srtgroep.bes_srtgroep_omschrijving%TYPE;
+      v_kostensoort_key  bes_srtgroep.prs_kostensoort_key%TYPE;
    BEGIN
       IF p_concise
       THEN
@@ -5125,13 +5189,15 @@ AS
              lcl.x ('bes_srtgroep_omschrijving',
                     bes_srtgroep_key,
                     bes_srtgroep_omschrijving)
-                bes_srtgroep_omschrijving
-        INTO v_discipline_key, v_omschrijving
+                bes_srtgroep_omschrijving,
+                prs_kostensoort_key
+        INTO v_discipline_key, v_omschrijving, v_kostensoort_key
         FROM bes_srtgroep
        WHERE bes_srtgroep_key = p_key;
 
       createxmltagvalue ('key', p_key);
       createxmltagvalue ('omschrijving', v_omschrijving);
+      create_prs_kostensoort_node (v_kostensoort_key);
 
       IF NOT p_concise
       THEN
@@ -6430,6 +6496,7 @@ AS
       v_dirtlevel              res_rsv_ruimte.res_rsv_ruimte_dirtlevel%TYPE;
       v_bezoekers_shown        res_rsv_ruimte.res_rsv_ruimte_bezoekers_shown%TYPE;
       v_cvab_mode              res_rsv_ruimte.res_rsv_ruimte_cvab_mode%TYPE;
+      v_afgerond               res_rsv_ruimte.res_rsv_ruimte_afgerond%TYPE;
 
       CURSOR c2d
       IS
@@ -6492,7 +6559,8 @@ AS
              res_rsv_ruimte_kosten_klant,
              res_rsv_ruimte_dirtlevel,
              res_rsv_ruimte_bezoekers_shown,
-             res_rsv_ruimte_cvab_mode
+             res_rsv_ruimte_cvab_mode,
+             res_rsv_ruimte_afgerond
         INTO v_reservering_key,
              v_ruimte_opstel_key,
              v_activiteit_key,
@@ -6521,7 +6589,8 @@ AS
              v_kosten_klant,
              v_dirtlevel,
              v_bezoekers_shown,
-             v_cvab_mode
+             v_cvab_mode,
+             v_afgerond
         FROM res_rsv_ruimte rr, res_status_fo sf, res_status_bo sb
        WHERE     rr.res_status_bo_key = sb.res_status_bo_key(+)
              AND rr.res_status_fo_key = sf.res_status_fo_key(+)
@@ -6572,6 +6641,7 @@ AS
                                         p_concise,
                                         FALSE);
          createxmltagvalue ('cvab_mode', v_cvab_mode);
+         createxmltagvalue ('afgerond', v_afgerond);
          createxmltagvalue ('dirtlevel', v_dirtlevel);
          create_res_kenmerken (p_key);
          create_fac_tracking_node ('reservering', p_key);
@@ -6605,23 +6675,32 @@ AS
    AS
       v_aanmaak            res_reservering.res_reservering_aanmaak%TYPE;
       v_verwijder          res_reservering.res_reservering_verwijder%TYPE;
+      v_reservering_key    res_reservering.res_reservering_key%TYPE;
       v_nrdeelres          NUMBER;
       l_status             VARCHAR2 (7);
-      CURSOR c1
+      CURSOR c1(res_key NUMBER)
       IS
            SELECT res_rsv_ruimte_key
              FROM res_rsv_ruimte
             WHERE res_rsv_ruimte_verwijder IS NULL
-              AND res_reservering_key = p_key
+              AND res_reservering_key = res_key
          ORDER BY res_rsv_ruimte_van;
-      CURSOR c2
+      CURSOR c2(res_key NUMBER)
       IS
            SELECT res_rsv_ruimte_key
              FROM res_rsv_ruimte
-            WHERE res_reservering_key = p_key
+            WHERE res_reservering_key = res_key
          ORDER BY res_rsv_ruimte_van;
    BEGIN
-      IF p_key IS NOT NULL
+      v_reservering_key := p_key;
+      IF (v_reservering_key IS NULL AND p_res_rsv_ruimte_key IS NOT NULL)
+       THEN
+          SELECT res_reservering_key
+            INTO v_reservering_key
+            FROM res_rsv_ruimte
+           WHERE res_rsv_ruimte_key = p_res_rsv_ruimte_key;
+      END IF;
+      IF v_reservering_key IS NOT NULL
       THEN
 
          IF p_res_rsv_ruimte_key IS NULL
@@ -6629,13 +6708,13 @@ AS
             SELECT COUNT ( * )
               INTO v_nrdeelres
               FROM res_rsv_ruimte
-             WHERE res_reservering_key = p_key
+             WHERE res_reservering_key = v_reservering_key
                AND res_rsv_ruimte_verwijder IS NULL;
          ELSE
             SELECT COUNT ( * )
               INTO v_nrdeelres
               FROM res_rsv_ruimte
-             WHERE res_reservering_key = p_key
+             WHERE res_reservering_key = v_reservering_key
                AND res_rsv_ruimte_key = p_res_rsv_ruimte_key
                AND res_rsv_ruimte_verwijder IS NULL;
          END IF;
@@ -6649,15 +6728,28 @@ AS
 
          IF p_res_rsv_ruimte_key IS NULL
          THEN
-            createopentagattributes ('reservering',
-                                     'content',
-                                     'complete',
-                                     'total',
-                                     v_nrdeelres,
-                                     'status',
-                                     l_status,
-                                     NULL,
-                                     NULL);
+            IF v_nrdeelres <= fac.getsetting ('res_xml_max_rsv_ruimte')
+            THEN
+                createopentagattributes ('reservering',
+                                         'content',
+                                         'complete',
+                                         'total',
+                                         v_nrdeelres,
+                                         'status',
+                                         l_status,
+                                         NULL,
+                                         NULL);
+            ELSE
+                createopentagattributes ('reservering',
+                                         'content',
+                                         'complete',
+                                         'total',
+                                         v_nrdeelres,
+                                         'status',
+                                         l_status,
+                                         'mode',
+                                         'concise');
+            END IF;
          ELSE
             createopentagattributes ('reservering',
                                      'content',
@@ -6673,15 +6765,15 @@ AS
          SELECT res_reservering_aanmaak, res_reservering_verwijder
            INTO v_aanmaak, v_verwijder
            FROM res_reservering r
-          WHERE res_reservering_key = p_key;
+          WHERE res_reservering_key = v_reservering_key;
 
-         createxmltagvalue ('key', p_key);
+         createxmltagvalue ('key', v_reservering_key);
          mydatetochar ('datum', v_aanmaak);
          mydatetochar ('verwijder', v_verwijder);
 
          IF v_nrdeelres = 0 -- deleted
          THEN
-            FOR rec1 IN c2
+            FOR rec1 IN c2(v_reservering_key)
             LOOP
                IF p_res_rsv_ruimte_key IS NULL
                   OR (p_res_rsv_ruimte_key IS NOT NULL
@@ -6691,13 +6783,18 @@ AS
                END IF;
             END LOOP;
          ELSE
-            FOR rec1 IN c1
+            FOR rec1 IN c1(v_reservering_key)
             LOOP
                IF p_res_rsv_ruimte_key IS NULL
                   OR (p_res_rsv_ruimte_key IS NOT NULL
                       AND rec1.res_rsv_ruimte_key = p_res_rsv_ruimte_key)
                THEN
-                  create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, FALSE);
+                  IF v_nrdeelres <= fac.getsetting ('res_xml_max_rsv_ruimte')
+                  THEN
+                     create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, FALSE);
+                  ELSE
+                     create_res_rsv_ruimte_node (rec1.res_rsv_ruimte_key, TRUE);
+                  END IF;
                END IF;
             END LOOP;
          END IF;
@@ -6762,8 +6859,6 @@ AS
                                 p_nodename   IN VARCHAR2,
                                 p_rowname    IN VARCHAR2)
     AS
-        omschrijving        fac_usrrap.fac_usrrap_omschrijving%TYPE;
-        rinfo               fac_usrrap.fac_usrrap_info%TYPE;
         v_xml_clob_length   NUMBER (10);
         v_xml_tag_length    NUMBER (10);
         v_clob_length       NUMBER (10);
@@ -7741,6 +7836,144 @@ AS
       END IF;
    END;
 
+   -- In komt een fin_verkoopfactuurkop_key waarmee de onderliggende regels gegroepeerd zijn
+   PROCEDURE create_fin_verkoopfactuur_node (p_key IN NUMBER)
+   AS
+      v_id fin_verkoopfactuur.fin_verkoopfactuur_id%TYPE;
+
+      CURSOR c1
+      IS
+         SELECT fin_verkoopfactuur_key,
+                fin_verkoopfactuur_aanmaak,
+                fin_verkoopfactuur_id,
+                fin_verkoopfactuur_datum,
+                fin_verkoopfactuur_omschr,
+                fin_verkoopfactuur_xmlnode,
+                fin_verkoopfactuur_refkey,
+                prs_kostenplaats_key,
+                prs_kostenplaats_nr,
+                prs_kostenplaats_omschrijving,
+                prs_kostenplaatsgrp_oms,
+                prs_kostensoort_oms,
+                prs_kostensoort_opmerking,
+                prs_kostensoort_refcode,
+                prs_bedrijf_key,
+                prs_debiteur_naam,
+                prs_kostensoortgrp_oms,
+                fin_verkoopfactuur_bedrag,
+                fin_verkoopfactuur_btw,
+                fin_btwtabelwaarde_code,
+                fin_btwtabelwaarde_oms,
+                fin_btwtabelwaarde_perc,
+                fin_btwtabelwaarde_verlegd,
+                fin_verkoopfactuur_maand,
+                fin_verkoopfactuur_n1,
+                fin_verkoopfactuur_n2,
+                fin_verkoopfactuur_n3,
+                fin_verkoopfactuur_n4,
+                fin_verkoopfactuur_n5,
+                fin_verkoopfactuur_c1,
+                fin_verkoopfactuur_c2,
+                fin_verkoopfactuur_c3,
+                fin_verkoopfactuur_c4,
+                fin_verkoopfactuur_c5,
+                fin_verkoopfactuur_c6,
+                fin_verkoopfactuur_c7,
+                fin_verkoopfactuur_c8,
+                fin_verkoopfactuur_d1,
+                fin_verkoopfactuur_d2,
+                fin_verkoopfactuur_d3,
+                fin_verkoopfactuur_d4,
+                fin_verkoopfactuur_d5
+           FROM fin_verkoopfactuur
+          WHERE fin_verkoopfactuurkop_key = p_key
+            AND ROWNUM <= fac.getsetting ('res_xml_max_rsv_ruimte')  -- goeie naam he?
+       ORDER BY fin_verkoopfactuur_key;
+
+   BEGIN
+      IF p_key IS NOT NULL
+      THEN
+
+         SELECT fin_verkoopfactuurkop_id
+           INTO v_id
+           FROM fin_verkoopfactuurkop
+          WHERE fin_verkoopfactuurkop_key = p_key;
+
+         createopentag ('verkoopfactuur');
+         createxmltagvalue ('key', mynumbertochar (p_key));
+         createxmltagvalue ('id', v_id);
+
+         FOR rec1 IN c1 LOOP
+            createopentag ('verkoopfactuurregel');
+            createxmltagvalue ('key', mynumbertochar (rec1.fin_verkoopfactuur_key));
+            mydatetochar ('aanmaak', rec1.fin_verkoopfactuur_aanmaak);
+            createxmltagvalue ('id', rec1.fin_verkoopfactuur_id);
+            mydatetochar ('datum', rec1.fin_verkoopfactuur_datum);
+            createxmltagvalue ('omschrijving', rec1.fin_verkoopfactuur_omschr);
+            createxmltagvalue ('xmlnode', rec1.fin_verkoopfactuur_xmlnode); --referenced data included later
+            createxmltagvalue ('refkey', rec1.fin_verkoopfactuur_refkey); --referenced data included later
+            create_prs_kostenplaats_node (rec1.prs_kostenplaats_key, TRUE);
+            createxmltagvalue ('kostenplaatsnr', rec1.prs_kostenplaats_nr);
+            createxmltagvalue ('kostenplaatsomschrijving', rec1.prs_kostenplaats_omschrijving);
+            createxmltagvalue ('kostenplaatsgroep', rec1.prs_kostenplaatsgrp_oms);
+            createxmltagvalue ('kostensoort', rec1.prs_kostensoort_oms);
+            createxmltagvalue ('kostensoortopmerking', rec1.prs_kostensoort_opmerking);
+            createxmltagvalue ('kostensoortrefcode', rec1.prs_kostensoort_refcode);
+            create_prs_bedrijf_node (rec1.prs_bedrijf_key, 'bedrijf');
+            createxmltagvalue ('debiteurnaam', rec1.prs_debiteur_naam);
+            createxmltagvalue ('kostensoortgroep', rec1.prs_kostensoortgrp_oms);
+            createxmltagvalue ('bedrag', mynumbertochar (rec1.fin_verkoopfactuur_bedrag));
+            createxmltagvalue ('btwbedrag', mynumbertochar (rec1.fin_verkoopfactuur_btw));
+            createxmltagvalue ('btwcode', rec1.fin_btwtabelwaarde_code);
+            createxmltagvalue ('btwomschrijving', rec1.fin_btwtabelwaarde_oms);
+            createxmltagvalue ('btwpercentage', mynumbertochar (rec1.fin_btwtabelwaarde_perc));
+            createxmltagvalue ('btwverlegd', mynumbertochar (rec1.fin_btwtabelwaarde_verlegd));
+            createxmltagvalue ('boekmaand', rec1.fin_verkoopfactuur_maand);
+            createxmltagvalue ('getal1', mynumbertochar (rec1.fin_verkoopfactuur_n1));
+            createxmltagvalue ('getal2', mynumbertochar (rec1.fin_verkoopfactuur_n2));
+            createxmltagvalue ('getal3', mynumbertochar (rec1.fin_verkoopfactuur_n3));
+            createxmltagvalue ('getal4', mynumbertochar (rec1.fin_verkoopfactuur_n4));
+            createxmltagvalue ('getal5', mynumbertochar (rec1.fin_verkoopfactuur_n5));
+            createxmltagvalue ('tekst1', rec1.fin_verkoopfactuur_c1);
+            createxmltagvalue ('tekst2', rec1.fin_verkoopfactuur_c2);
+            createxmltagvalue ('tekst3', rec1.fin_verkoopfactuur_c3);
+            createxmltagvalue ('tekst4', rec1.fin_verkoopfactuur_c4);
+            createxmltagvalue ('tekst5', rec1.fin_verkoopfactuur_c5);
+            createxmltagvalue ('tekst6', rec1.fin_verkoopfactuur_c6);
+            createxmltagvalue ('tekst7', rec1.fin_verkoopfactuur_c7);
+            createxmltagvalue ('tekst8', rec1.fin_verkoopfactuur_c8);
+            mydatetochar ('datum1', rec1.fin_verkoopfactuur_d1);
+            mydatetochar ('datum2', rec1.fin_verkoopfactuur_d2);
+            mydatetochar ('datum3', rec1.fin_verkoopfactuur_d3);
+            mydatetochar ('datum4', rec1.fin_verkoopfactuur_d4);
+            mydatetochar ('datum5', rec1.fin_verkoopfactuur_d5);
+
+            IF rec1.fin_verkoopfactuur_refkey IS NOT NULL
+            THEN
+               CASE rec1.fin_verkoopfactuur_xmlnode
+                  WHEN 'opdracht'
+                  THEN
+                     create_mld_opdr_node (rec1.fin_verkoopfactuur_refkey, FALSE);
+                  WHEN 'contract'
+                  THEN
+                     create_cnt_contract_node (rec1.fin_verkoopfactuur_refkey, FALSE);
+                  WHEN 'bestelopdr'
+                  THEN
+                     create_bes_bestelopdr_node (rec1.fin_verkoopfactuur_refkey, FALSE);
+                  WHEN 'reservering'
+                  THEN
+                     create_res_reservering_node (NULL, rec1.fin_verkoopfactuur_refkey);
+                  ELSE
+                     NULL;
+               END CASE;
+            END IF;
+            createclosetag ('verkoopfactuurregel');
+         END LOOP;
+
+         createclosetag ('verkoopfactuur');
+      END IF;
+   END;
+
    PROCEDURE xml_node (p_xmlnode     IN VARCHAR2,
                        p_key         IN NUMBER,
                        p_custid      IN VARCHAR2,
@@ -7775,10 +8008,10 @@ AS
          THEN
             create_mld_opdr_node (p_key, p_concise);
          WHEN 'reservering'
-         THEN
+         THEN -- Deelreservering
             create_res_reservering_node (p_key, p_extra);
          WHEN 'xreservering'
-         THEN
+         THEN -- Hele reservering
             create_res_reservering_node (p_key, NULL);
          WHEN 'scenario'
          THEN
@@ -7817,6 +8050,9 @@ AS
          WHEN 'factuur'
          THEN
             create_fin_factuur_node (p_key, p_concise);
+         WHEN 'verkoopfactuur'
+         THEN
+            create_fin_verkoopfactuur_node (p_key);
          WHEN 'ruimte'
          THEN
             -- create_alg_ruimte_node (p_key);
@@ -7874,14 +8110,8 @@ AS
       END CASE;
    END;
 
-   -- MAIN PROCS --
-
-   PROCEDURE make_xml (p_xmlnode     IN VARCHAR2,
-                       p_key         IN NUMBER,
-                       p_custid      IN VARCHAR2,
-                       p_sessionid   IN VARCHAR2,
-                       p_extra       IN NUMBER,
-                       p_where       IN VARCHAR2)
+   PROCEDURE export_clob(aclob IN CLOB,
+                         p_sessionid   IN VARCHAR2)
    AS
       v_clob_length   NUMBER (10);
       v_offset        NUMBER (10);
@@ -7891,8 +8121,45 @@ AS
       v_chunk_size    NUMBER (10) := 3000;
       v_sql_stmt      VARCHAR2 (1000);
    BEGIN
-      DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
+      v_clob_length := DBMS_LOB.getlength (aclob);
+      v_volgnr := 1;
       v_offset := 1;
+
+      DELETE FROM fac_xml
+            WHERE fac_session_id = p_sessionid OR fac_xml_datum < SYSDATE - 2;
+
+      WHILE v_clob_length > 0
+      LOOP
+         IF v_clob_length > v_chunk_size
+         THEN
+            v_interval := v_chunk_size;
+            v_clob_length := v_clob_length - v_chunk_size;
+         ELSE
+            v_interval := v_clob_length;
+            v_clob_length := 0;
+         END IF;
+
+         INSERT INTO fac_xml (fac_session_id, fac_xml_xml, fac_xml_volgnr)
+             VALUES (p_sessionid,
+                     DBMS_LOB.SUBSTR (aclob, v_interval, v_offset),
+                     v_volgnr);
+
+         v_offset := v_offset + v_interval;
+         v_volgnr := v_volgnr + 1;
+      END LOOP;
+   END;
+
+   -- MAIN PROCS --
+   FUNCTION make_xml2 (p_xmlnode     IN VARCHAR2,
+                       p_key         IN NUMBER,
+                       p_custid      IN VARCHAR2,
+                       p_sessionid   IN VARCHAR2,
+                       p_extra       IN NUMBER,
+                       p_where       IN VARCHAR2)
+        RETURN CLOB
+   AS
+   BEGIN
+      DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
       add_header (p_custid);
       add_localisation (p_xmlnode);
       create_bookmarks_node (p_xmlnode, p_key);
@@ -7905,31 +8172,49 @@ AS
                 p_where,
                 FALSE);
       add_footer ('');
-      v_clob_length := DBMS_LOB.getlength (aclob);
-      v_volgnr := 1;
+      RETURN aclob;
+   END;
 
-      DELETE FROM fac_xml
-            WHERE fac_session_id = p_sessionid OR fac_xml_datum < SYSDATE - 2;
+   PROCEDURE make_xml (p_xmlnode     IN VARCHAR2,
+                       p_key         IN NUMBER,
+                       p_custid      IN VARCHAR2,
+                       p_sessionid   IN VARCHAR2,
+                       p_extra       IN NUMBER,
+                       p_where       IN VARCHAR2)
+   AS
+   BEGIN
+      aclob := make_xml2 (p_xmlnode,
+                         p_key,
+                         p_custid,
+                         p_sessionid,
+                         p_extra,
+                         p_where);
+      export_clob(aclob, p_sessionid);
+   END;
 
-      WHILE v_clob_length > 0
-      LOOP
-         IF v_clob_length > v_chunk_size
-         THEN
-            v_interval := v_chunk_size;
-            v_clob_length := v_clob_length - v_chunk_size;
-         ELSE
-            v_interval := v_clob_length;
-            v_clob_length := 0;
-         END IF;
-
-         INSERT INTO fac_xml (fac_session_id, fac_xml_xml, fac_xml_volgnr)
-             VALUES (p_sessionid,
-                     DBMS_LOB.SUBSTR (aclob, v_interval, v_offset),
-                     v_volgnr);
-
-         v_offset := v_offset + v_interval;
-         v_volgnr := v_volgnr + 1;
-      END LOOP;
+   FUNCTION make_view_xml2 (p_view        IN VARCHAR2,
+                            p_key         IN NUMBER,
+                            p_custid      IN VARCHAR2,
+                            p_sessionid   IN VARCHAR2,
+                            p_extra       IN NUMBER,
+                            p_where       IN VARCHAR2,
+                            p_nodename    IN VARCHAR2,
+                            p_rowname     IN VARCHAR2
+                            )
+        RETURN CLOB
+   AS
+   BEGIN
+      DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
+      add_header (p_custid);
+      --add_localisation (p_xmlnode);
+      create_view_node (p_view,
+                        NULL,
+                        NULL,
+                        p_where,
+                        p_nodename,
+                        p_rowname);
+      add_footer ('');
+      RETURN aclob;
    END;
 
    PROCEDURE make_view_xml (p_view        IN VARCHAR2,
@@ -7942,50 +8227,16 @@ AS
                             p_rowname     IN VARCHAR2
                             )
    AS
-      v_clob_length   NUMBER (10);
-      v_offset        NUMBER (10);
-      v_interval      NUMBER (10);
-      v_volgnr        NUMBER (10);
-      v_where         VARCHAR2 (1000);
-      v_chunk_size    NUMBER (10) := 3000;
-      v_sql_stmt      VARCHAR2 (1000);
    BEGIN
-      DBMS_LOB.createtemporary (aclob, TRUE, DBMS_LOB.CALL);
-      v_offset := 1;
-      add_header (p_custid);
-      --add_localisation (p_xmlnode);
-      create_view_node (p_view,
-                        NULL,
-                        NULL,
-                        p_where,
-                        p_nodename,
-                        p_rowname);
-      add_footer ('');
-      v_clob_length := DBMS_LOB.getlength (aclob);
-      v_volgnr := 1;
-
-      DELETE FROM fac_xml
-            WHERE fac_session_id = p_sessionid OR fac_xml_datum < SYSDATE - 2;
-
-      WHILE v_clob_length > 0
-      LOOP
-         IF v_clob_length > v_chunk_size
-         THEN
-            v_interval := v_chunk_size;
-            v_clob_length := v_clob_length - v_chunk_size;
-         ELSE
-            v_interval := v_clob_length;
-            v_clob_length := 0;
-         END IF;
-
-         INSERT INTO fac_xml (fac_session_id, fac_xml_xml, fac_xml_volgnr)
-             VALUES (p_sessionid,
-                     DBMS_LOB.SUBSTR (aclob, v_interval, v_offset),
-                     v_volgnr);
-
-         v_offset := v_offset + v_interval;
-         v_volgnr := v_volgnr + 1;
-      END LOOP;
+      aclob := make_view_xml2 (p_view,
+                              p_key,
+                              p_custid,
+                              p_sessionid,
+                              p_extra,
+                              p_where,
+                              p_nodename,
+                              p_rowname);
+      export_clob(aclob, p_sessionid);
    END;
 END xml;
 /

FAC/FAC_SEQ.SRC

@@ -7,6 +7,7 @@ CREATE SEQUENCE fac_s_fac_functie_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrtab_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrdata_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrrap_key            MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_usrrap_cols_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrgraph_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_mgtrap_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_groep_key             MINVALUE 1;
@@ -41,6 +42,7 @@ CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerk_key           MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerkwaarde_key     MINVALUE 1;
+CREATE SEQUENCE faq_s_fac_gui_counter_key       MINVALUE 1;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_SET.SRC

@@ -1,4 +1,4 @@
-    /*
+/*
  *  $Id$
  *  $Revision$
  *
@@ -34,8 +34,8 @@ DELETE FROM tmp_set;
 COMMIT;
 
 // _FACILITOR ziet altijd alles en mag alles wijzigen
-//    0 = Onzichtbaar
-//    1 = PRSSYS zichtbaar
+//    0 = Onzichtbaar, alleen via script te wijzigen
+//    1 = PRSSYS zichtbaar, _FACILITOR wijzigbaar
 //    2 = PRSSYS mag ook wijzigen, laag risico (typisch gebruik 3 = 2+1)
 //    8 = Default waarde wordt gezet in ASP (met name custpath afhankelijk)
 DEFINE_SETTING('FAC', 0003, 'logoff_return_url'                     , 'string'                      , '../../'                      , 'Return url to go to after log off')
@@ -51,11 +51,13 @@ DEFINE_SETTING('FAC', 0001, 'csscust'                               , 'string'
 DEFINE_SETTING('FAC', 0001, 'cssenvcust'                            , 'string'                      , ''                            , 'custenv.css replacement (Future use)')
 DEFINE_SETTING('FAC', 0001, 'cssfordesktop'                         , 'string'                      , ''                            , 'jQuery themeroller desktop replacement')
 DEFINE_SETTING('FAC', 0001, 'cssformobile'                          , 'string'                      , ''                            , 'jQuery themeroller mobile replacement')
+DEFINE_SETTING('FAC', 0001, 'autoscrollmode'                        , 'number'                      , '255'                         , 'autoscroll mode (Future use)')
 DEFINE_SETTING('FAC', 0002, 'image_path_local'                      , 'string'                      , '\\'                          , 'path used by LAN for flexproperties of type X (fclt.ini:Documentdir)')
 DEFINE_SETTING('FAC', 0002, 'image_path_local_regexp'               , 'string'                      , NULL                          , 'Reguliere expressie, bijvoorbeed /^G:/i')
 DEFINE_SETTING('FAC', 0009, 'image_path_virtual'                    , 'string'                      , NULL                          , 'path used by WEB for flexproperties of type X')
 DEFINE_SETTING('FAC', 0009, 'flexFilesPath'                         , 'string'                      , NULL                          , 'Path for Flexbestanden type ''F'' en ''M'', zonder eindslash')
 DEFINE_SETTING('FAC', 0001, 'flexAllowedExt'                        , 'string'                      , '.*\.(doc|docx|xls|xlsx|jpg|jpeg|png|gif|bmp|dwg|dwf|eml|pdf|msg|zip|vsd|txt|ppt|pptx|oft|rtf|tif|tiff|csv|dot|xml|mcw|rar|encrypted|gz|gzip)$', 'Allowed extensions')
+DEFINE_SETTING('FAC', 0001, 'flex_min_size'                         , 'number'                      , '64'                          , 'E-mail attachments smaller (in bytes) than this are silently ignored')
 DEFINE_SETTING('FAC', 0001, 'impAllowedExt'                         , 'string'                      , '.*\.(txt|csv|xml)$'          , 'Allowed importfile extensions')
 DEFINE_SETTING('FAC', 0003, 'flexExtensionFilter'                   , 'string'                      , NULL                          , 'All files can be uploaded. "PDF DOC TIFF XLS" would filter')
 DEFINE_SETTING('FAC', 0003, 'flexFilesOrdering'                     , 'number'                      , '0'                           , 'Ordering for list of flexfilenames {0=ascending | 1=descending}')
@@ -88,6 +90,7 @@ DEFINE_SETTING('FAC', 0003, 'kosten_klant_default'                  , 'number'
 DEFINE_SETTING('FAC', 0003, 'prs_password_validation'               , 'string'                      , '.{8,}'                       , 'At least 8 characters')
 DEFINE_SETTING('FAC', 0003, 'prs_password_fail_limit'               , 'number'                      , '999'                         , 'Lockout after many password failures (Future use)')
 DEFINE_SETTING('FAC', 0003, 'prs_password_expiration'               , 'number'                      , '-1'                          , 'Password expire days (Future use)')
+DEFINE_SETTING('FAC', 0001, 'prs_password_hash_factor'              , 'number'                      , '0'                           , 'Password hash workfactor (2^x, future use)')
 DEFINE_SETTING('FAC', 0003, 'iconcolumns'                           , 'number'                      , '6'                           , 'number of columns in an iconmenu page.')
 DEFINE_SETTING('FAC', 0001, 'NotifyMessageInterval'                 , 'number'                      , '0'                           , 'time (seconds) between NotifyMessage.asp [=Check for popups] refreshes. 0=disable')
 DEFINE_SETTING('FAC', 0003, 'usrrap_refreshrate'                    , 'number'                      , '60'                          , 'time between auto refresh of selected usrraps (seconds)')
@@ -99,7 +102,8 @@ DEFINE_SETTING('FAC', 0001, 'login_pda_url'                         , 'string'
 DEFINE_SETTING('FAC', 0003, 'login_use_email'                       , 'number'                      , '0'                           , 'use email to check user authentication { 0 - use oslogin | 1 - use email }')
 DEFINE_SETTING('FAC', 0003, 'login_remember_days'                   , 'number'                      , '30'                          , 'Days to remember login. { 0 disable }')
 DEFINE_SETTING('FAC', 0003, 'fac_firstlogin_url'                    , 'string'                      , 'appl/fac/welcome.asp'        , 'Url to show upon first login of user')
-DEFINE_SETTING('FAC', 0003, 'email_password'                        , 'number'                      , '0'                           , 'Show ''wachtwoord vergeten'' optie')
+DEFINE_SETTING('FAC', 0003, 'fac_firstlogin_expire'                 , 'number'                      , '14'                          , 'Remove firstlogin_url automatically after nn days')
+DEFINE_SETTING('FAC', 0003, 'email_password'                        , 'number'                      , '0'                           , 'Show ''wachtwoord vergeten'' optie (1=voor mensen met wachtwoord, 2=voor iedereen)')
 DEFINE_SETTING('FAC', 0000, 'SmsUrl'                                , 'string'                      , ''                            , 'SMS service URL')
 DEFINE_SETTING('FAC', 0000, 'SmsUid'                                , 'string'                      , ''                            , 'User id for SMS service')
 DEFINE_SETTING('FAC', 0000, 'SmsPwd'                                , 'string'                      , ''                            , 'Password for SMS service')
@@ -113,7 +117,8 @@ DEFINE_SETTING('FAC', 0001, 'self_register_email_whitelist'         , 'string'
 DEFINE_SETTING('FAC', 0001, 'sys_ip_restrict'                       , 'string'                      , ''                            , 'Regexp ip-restriction')
 DEFINE_SETTING('FAC', 0000, 'sys_ip_restrict_internal'              , 'string'                      , ''                            , 'Regexp ip-restriction internal')
 DEFINE_SETTING('FAC', 0001, 'sys_ip_jail'                           , 'string'                      , ''                            , 'Regexp ip-jail to prevent roaming (future use)')
-DEFINE_SETTING('FAC', 0001, 'auto_https'                            , 'number'                      , '1'                           , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
+DEFINE_SETTING('FAC', 0001, 'auto_https'                            , 'number'                      , '3'                           , '0=not https, 1=http redirects to https, (3=also all cookies ;Secure)')
+DEFINE_SETTING('FAC', 0001, 'hsts_maxage'                           , 'number'                      , '0'                           , 'HTTP Strict Transport Security max-age (0=off, eg. 31536000 for one year)')
 DEFINE_SETTING('FAC', 0001, 'qrc_enable'                            , 'number'                      , '1'                           , 'Enable QRC-authentication feature (1) or not (0)')
 DEFINE_SETTING('FAC', 0001, 'qr_auth_expire'                        , 'number'                      , '5'                           , 'Minutes QRC-code is valid (default 5)')
 DEFINE_SETTING('FAC', 0001, 'qr_color'                              , 'number'                      , '5452544'                     , 'QRC color')
@@ -165,6 +170,7 @@ DEFINE_SETTING('MLD', 0003, 'workflow_collapsed'                    , 'number'
 DEFINE_SETTING('FAC', 0001, 'use_capacity_planning'                 , 'number'                      , '0'                           , 'De inzetbaarheid van personen en uitvoerbaarheid bij opdrachten kan worden aangegeven (0=nee {default}, 1=ja)')
 DEFINE_SETTING('FAC', 0001, 'allow_framed_facilitor'                , 'boolean'                     , 'false'                       , 'Is it allowed to use FACILITOR in an (i)frame?')
 DEFINE_SETTING('FAC', 0001, 'p3p_header'                            , 'string'                      , ''                            , 'P3P privacy policy')
+DEFINE_SETTING('FAC', 0001, 'cors_header'                           , 'string'                      , ''                            , 'CORS header (future use)')
 DEFINE_SETTING('FAC', 0001, 'http_meta_head'                        , 'string'                      , '<meta http-equiv="X-UA-Compatible" content="IE=edge,chrome=1">', 'Submitted in each html <head>')
 DEFINE_SETTING('MLD', 0003, 'mld_melding_recent'                    , 'number'                      , '60'                          , 'Tijdsinterval voor de recente wijzigingen in minuten')
 DEFINE_SETTING('MLD', 0003, 'mld_opdracht_recent'                   , 'number'                      , '60'                          , 'Tijdsinterval voor de recente opdracht wijzigingen in minuten')
@@ -260,14 +266,15 @@ DEFINE_SETTING('CNT', 0003, 'cnt_contract_limit3'                   , 'number'
 DEFINE_SETTING('CNT', 0003, 'cnt_approval_all'                      , 'number'                      , '0'                           , 'Goedkeuring contract vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
 DEFINE_SETTING('CNT', 0003, 'cnt_factuur_totaalmarge'               , 'number'                      , '0'                           , 'De toegestane marge op de totaal factuur (default 0)')
 DEFINE_SETTING('CNT', 0003, 'cnt_internalnr_readonly'               , 'number'                      , '0'                           , 'Het interne contractnummer wordt automatisch bepaalt en is niet wijzigbaar')
+DEFINE_SETTING('CNT', 0003, 'cnt_enable_kostensoort'                , 'number'                      , '1'                           , 'can contract kostensoort be changed?')
 DEFINE_SETTING('FAQ', 0001, 'faq_enabled'                           , 'number'                      , '0'                           , 'Is kennisbank available {0 | 1} licensed separately')
 DEFINE_SETTING('FAQ', 0003, 'faq_max_results'                       , 'number'                      , '10'                          , 'Limit the result to this number')
 DEFINE_SETTING('FAQ', 0003, 'faq_kennisbank_popup'                  , 'number'                      , '3'                           , 'Show kennisbank popup {0=no | 01=1=FE | 10=2=FO | 11=3=FE+FO}')
 DEFINE_SETTING('FAC', 0001, 'iLearning_enabled'                     , 'number'                      , '0'                           , 'Is iLearning available {0 | 1} licensed separately')
 DEFINE_SETTING('FAC', 0001, 'kto_srtdiscipline_key'                 , 'number'                      , '-1'                          , 'key van KTO (klanttevredenheidsonderzoek) vakgroeptype')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_pie_colors'                  , 'string'                      , '[''red'', ''grey'', ''green'', ''orange'', ''blue'', ''yellow'', ''purple'']', 'Colors being used for pie charts (string!)')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_colors1'                     , 'string'                      , '[''blue'']'                  , 'Color used for single bar /line graphs (string!)')
-DEFINE_SETTING('FAC', 0003, 'fac_graph_colors2'                     , 'string'                      , '[''red'',''green'']'         , 'Colors used for stacked bar /line graphs (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_pie_colors'                  , 'string'                      , '[''#E37B00'',''#747578'',''#009979'',''#AB1455'',''#003478'',''#60B0E6'',''#DFE200'']', 'Colors being used for pie charts (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_colors1'                     , 'string'                      , '[''#003478'']'               , 'Color used for single bar /line graphs (string!)')
+DEFINE_SETTING('FAC', 0003, 'fac_graph_colors2'                     , 'string'                      , '[''#AB1455'',''#009979'']'   , 'Colors used for stacked bar /line graphs (string!)')
 DEFINE_SETTING('FAC', 0003, 'menu_photo_size'                       , 'string'                      , 'r512x512'                    , 'Resize uploads to this maximum MENU photo size. Ex: r200x150')
 DEFINE_SETTING('FAC', 0003, 'fac_like_bad'                          , 'number'                      , '2'                           , 'Rating for bad service')
 DEFINE_SETTING('FAC', 0003, 'fac_like_poor'                         , 'number'                      , '4'                           , 'Rating for poor service')
@@ -286,9 +293,11 @@ DEFINE_SETTING('FIN', 0003, 'fin_enable_kostensoort'                , 'number'
 DEFINE_SETTING('FIN', 0003, 'fin_kostensoort_verplicht'             , 'number'                      , '0'                           , 'Is kostensoort required? {0=not required | 1=required}')
 DEFINE_SETTING('FIN', 0003, 'fin_bof_mag_editen'                    , 'number'                      , '1'                           , 'Users/Approvers with FINBOF rights have edit possibilities {0=no edit (only approve) | 1=edit (default)}')
 DEFINE_SETTING('FIN', 0003, 'fin_enable_afwijzen'                   , 'number'                      , '1'                           , 'Is it possible to reject an invoice or not {0=Afwijzen unavailable | 1=Afwijzen available}')
+DEFINE_SETTING('FIN', 0003, 'fin_enable_goedkeuren'                 , 'number'                      , '0'                           , 'Is it possible to validate an invoice or not {0=Goedkeuren unavailable | 1=Goedkeuren available}')
 DEFINE_SETTING('FIN', 0003, 'fin_match_lowerlimit'                  , 'number'                      , '0'                           , 'Check lowerlimit also for matching {0=Only upperlimit (invoice<order+tolerance | 1=Upper and lowerlimit (order-tolerance<invoice<order+tolerance)}')
+DEFINE_SETTING('FIN', 0003, 'fin_use_verkoopfacturen'               , 'number'                      , '0'                           , 'Provide direct access to generated salesinvoices (if any) from contract/order/reservation details {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0001, 'mld_meldbron_key'                      , 'number'                      , '5'                           , 'MLD_MELDBRON_KEY of meldbron ''intranet''')
-DEFINE_SETTING('MLD', 0003, 'mld_melding_autoprint'                 , 'number'                      , '0'                           , 'auto print melding form after insert by FO 2= unconditionally print complain | 1= print if ask_for_orders=0 | 0= no print')
+DEFINE_SETTING('MLD', 0003, 'mld_melding_autoprint'                 , 'number'                      , '0'                           , 'auto print melding form after insert by FO 2=unconditionally print complain | 1=print if ask_for_orders=0 | 0=no print')
 DEFINE_SETTING('MLD', 0003, 'mld_ask_for_orders'                    , 'boolean'                     , 'true'                        , 'ask for immediate order input after call entry { true | false }')
 DEFINE_SETTING('MLD', 0003, 'mld_rejected_is_open'                  , 'number'                      , '0'                           , 'show rejected meldingen as Open FE/FO {1=Open | 0=Closed}.')
 DEFINE_SETTING('MLD', 0003, 'mld_typeopdr_key'                      , 'number'                      , '5'                           , 'Default order type or -1 to select default (at order-creation) from most to least specific per vakgroep')
@@ -315,6 +324,7 @@ DEFINE_SETTING('MLD', 0003, 'mld_max_kosten_extern'                 , 'float'
 DEFINE_SETTING('MLD', 0003, 'mld_use_order_approval'                , 'number'                      , '1'                           , 'Approval mechanism is used for mld orders (0=disabled | 1=enabled)')
 DEFINE_SETTING('MLD', 0003, 'mld_ord_flexsummary'                   , 'number'                      , '1'                           , 'User summary of melding-flexprop in initial order description {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_print_loc_address'                 , 'number'                      , '0'                           , 'Print location address details in backoffice overview orders {0=no | 1=yes | 2=show address+building}')
+DEFINE_SETTING('MLD', 0003, 'mld_plandate_in_list'                  , 'number'                      , '0'                           , 'Show Planned Date as a column in backoffice overview orders {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_show_order_details'                , 'number'                      , '1'                           , 'Show remark in backoffice Orders Management {0=no | 1=yes}')
 DEFINE_SETTING('MLD', 0003, 'mld_forward_all'                       , 'number'                      , '1'                           , 'Forward a complain 0= to a complain with the same srtdiscipline 1= (default) to a complain for all srtdisciplines')
 DEFINE_SETTING('MLD', 0003, 'mld_forward_if_closed'                 , 'number'                      , '0'                           , 'WEB_MLDMSU can forward a complaint even with status ''afgemeld''')
@@ -323,7 +333,6 @@ DEFINE_SETTING('MLD', 0003, 'mld_fe_show_statusnames'               , 'number'
 DEFINE_SETTING('MLD', 0003, 'mld_uren_weeks_back'                   , 'number'                      , '8'                           , 'Show this number of weeks in the overview, endig at the selected date')
 DEFINE_SETTING('MLD', 0003, 'mld_uren_omschrijving'                 , 'number'                      , '1'                           , 'Description to show in hour screen {1=melder (care)| 2=vakgroep/stdmelding}')
 DEFINE_SETTING('MLD', 0003, 'mld_uren_more'                         , 'boolean'                     , 'true'                        , 'Overige opdrachten mogen ook getoond worden {true=link tonen (care) | false=link niet tonen}')
-DEFINE_SETTING('MLD', 0003, 'mld_plaats_is_locatie_only'            , 'number'                      , '0'                           , 'Bij de plaats van een melding tot en met ruimte (0) opgeven of alleen locatie(1), ongeacht de stdmelding')
 DEFINE_SETTING('MLD', 0003, 'mld_enforce_orderdates'                , 'number'                      , '0'                           , 'Enforce order start/ending dates to be within call start/ending dates')
 DEFINE_SETTING('MLD', 0003, 'mld_afhandeling_required_for_close'    , 'number'                      , '0'                           , 'Het veld afhandeling verplicht bij het afmelden van een melding (0=no, 1=yes)')
 DEFINE_SETTING('MLD', 0003, 'mld_suppress_directklaar_notification' , 'number'                      , '0'                           , 'Suppress de notificatie bij DirectKlaar {0=no (default) | 1=yes}')
@@ -339,7 +348,7 @@ DEFINE_SETTING('MLD', 0001, 'mld_opdr_minuren'                      , 'boolean'
 DEFINE_SETTING('MLD', 0003, 'mld_melding_flags'                     , 'number'                      , '0'                           , 'Number of flags fo/bo can define on complaint. Max 10')
 DEFINE_SETTING('MLD', 0003, 'mld_flag_on_fenote'                    , 'number'                      , '0'                           , 'Set/Clear this mld_melding_flag when the FOBO/caller saves a note {0=no flag}')
 DEFINE_SETTING('MLD', 0003, 'mld_flag_on_bonote'                    , 'number'                      , '0'                           , 'Value of flag when BO has to read note')
-DEFINE_SETTING('MLD', 0003, 'mld_forward_opm_required'              , 'number'                      , '0'                           , 'remark/reason is required when forwarded {1=Yes | 0=No}.')
+DEFINE_SETTING('MLD', 0003, 'mld_forward_opm_flags'                 , 'number'                      , '0'                           , 'remark/reason is required when forwarded {to comment field: 0=No(default) | 1=Yes | to note field: 2=No | 3=Yes}.')
 DEFINE_SETTING('MLD', 0009, 'mlds_image_path'                       , 'string'                      , NULL                          , 'path to folder storing stdmelding symbols pictures')
 DEFINE_SETTING('MLD', 0003, 'mld_add_mldopmerk_on_opdrclose'        , 'number'                      , '0'                           , 'Automatically copy remark from order to call when supplier close last order {1=Yes | 0=No}')
 DEFINE_SETTING('MLD', 0003, 'mld_reference_days'                    , 'number'                      , '100'                         , 'Het aantal dagen terug in de tijd van waaraf eigen referentie getoond dienen te worden')
@@ -347,6 +356,9 @@ DEFINE_SETTING('MLD', 0003, 'mld_locked_expire'                     , 'number'
 DEFINE_SETTING('MLD', 0003, 'mld_opdr_approval_all'                 , 'number'                      , '0'                           , 'Goedkeuring opdracht vereist t.o.v. eerstvolgende limiet (=0 default) of t.o.v. totale kosten (in <20><>n keer)(=1)')
 DEFINE_SETTING('MLD', 0003, 'mld_object_filled_in_alert'            , 'number'                      , '1'                           , '{0=geen, 1=wel} alert tonen als er automatisch een object wordt ingevuld bij een melding.')
 DEFINE_SETTING('MLD', 0003, 'mld_pgb_fiattering'                    , 'number'                      , '0'                           , 'Voor een opdracht is het algemene fiatteringsproces noodzakelijk naast PGB/AGB fiatering? {0=no | 1=yes}')
+DEFINE_SETTING('MLD', 0003, 'mld_show_urgent_as_new'                , 'boolean'                     , 'false'                       , 'Show urgent calls as new calls')
+DEFINE_SETTING('MLD', 0003, 'mld_opdr_refiat_preference'            , 'number'                      , '0'                           , 'Bij herfiattering opnieuw fiatteren {0=(default) fiatteur moet opnieuw fiatteren, 1=goedkeurder kan aangeven of dat moet}')
+DEFINE_SETTING('MLD', 0003, 'mld_merge_notes_and_tracking'          , 'number'                      , '1'                           , 'Combine notes and tracking in one frame with call details (0=just notes | 1=both combined)')
 DEFINE_SETTING('PRS', 0003, 'prs_h'                                 , 'float'                       , '0.25'                        , 'Employability time stepsize')
 DEFINE_SETTING('PRS', 0003, 'prs_t1'                                , 'float'                       , '8'                           , 'Employability day start (hour)')
 DEFINE_SETTING('PRS', 0003, 'prs_t2'                                , 'float'                       , '18'                          , 'Employability day end (hour)')
@@ -399,7 +411,7 @@ DEFINE_SETTING('QVW', 0001, 'qvw_enabled'                           , 'number'
 DEFINE_SETTING('QVW', 0001, 'qvw_ajaxzfcpath'                       , 'string'                      , 'https://qv.facilitor.nl/QvAjaxZfc/', 'Root prefix to QlikView Analyzer Zero Footprint Client (must end with /)')
 DEFINE_SETTING('QVW', 0001, 'qvw_docfolder'                         , 'string'                      , 'cust/'                       , 'path to the QVW-docs on the server (must end with /)')
 DEFINE_SETTING('QVW', 0001, 'qv_ticket_prefix'                      , 'string'                      , ''                            , 'Ticket name prefix.')
-DEFINE_SETTING('QVW', 0000, 'qv_ticket_auth'                        , 'string'                      , 'Basic UVZfRkNMVDpx'          , 'Qlikview server authentication.') // base64("QV_FCLT:q")
+DEFINE_SETTING('QVW', 0000, 'qv_ticket_auth'                        , 'string'                      , 'Basic UVZfRkNMVDpDczJxbnRQSFdKeExNdUxjWWRwRQ==', 'Qlikview server authentication.') // base64("QV_FCLT:<secret>")
 DEFINE_SETTING('RES', 0003, 'res_descript_required'                 , 'boolean'                     , 'false'                       , 'require description field for reservation')
 DEFINE_SETTING('RES', 0003, 'res_default_alg_ruimte_key'            , 'number'                      , '-1'                          , 'Standard roomkey for catering')
 DEFINE_SETTING('RES', 0003, 'res_block'                             , 'float'                       , '1'                           , 'Minimal reservation duration (hours)')
@@ -441,6 +453,7 @@ DEFINE_SETTING('RES', 0003, 'res_noshow_detailed'                   , 'number'
 DEFINE_SETTING('RES', 0003, 'res_vcalendar_link'                    , 'number'                      , '1'                           , 'Download naar ''Outlook''')
 DEFINE_SETTING('RES', 0003, 'res_room_order'                        , 'number'                      , '0'                           , 'Planbord sorted by capacity or description (0=capacity (default) | 1=description)')
 DEFINE_SETTING('FAC', 0001, 'res_plan_max_bezet'                    , 'number'                      , '0'                           , 'Maximum planbord ''occupied'' fields. AiAi timeout prevention (future use)')
+DEFINE_SETTING('RES', 0003, 'res_xml_max_rsv_ruimte'                , 'number'                      , '60'                          , 'Maximum number of non-concise rsv_ruimte nodes in reserering node')
 DEFINE_SETTING('RES', 0009, 'res_image_path'                        , 'string'                      , NULL                          , 'path to folder storing res_ruimte pictures')
 DEFINE_SETTING('RES', 0003, 'res_with_mld'                          , 'number'                      , '0'                           , 'Reservering kan meldingen hebben {0=Nee (default) | 1=Ja}')
 DEFINE_SETTING('RES', 0003, 'res_delete_ask_kosten'                 , 'number'                      , '1'                           , 'Aks for recharge costs at delete (0=never ask, 1=ask after, 2=ask only final, 3=ask only final after)')
@@ -454,6 +467,8 @@ DEFINE_SETTING('RES', 0003, 'res_strict_locfilter'                  , 'boolean'
 DEFINE_SETTING('RES', 0003, 'res_cat_with_expired_room'             , 'boolean'                     , 'false'                       , 'Can catering be edited when room is expired {false | true}')
 DEFINE_SETTING('RES', 0003, 'res_allow_multi_cat'                   , 'boolean'                     , 'false'                       , 'Can catering be done on multi day reservation {false | true}')
 DEFINE_SETTING('RES', 0003, 'res_allow_undelete'                    , 'boolean'                     , 'false'                       , 'Deleted reservations can be undeleted {false | true}')
+DEFINE_SETTING('RES', 0003, 'res_appointment_action'                , 'boolean'                     , 'false'                       , 'Visitor action at reservation available')
+DEFINE_SETTING('RES', 0003, 'res_approval'                          , 'number'                      , '0'                           , 'Reserveringsgoedkeuring door aanvrager {0=Uit (default) | 1=Na afloop | 2=Na Afmelden}')
 DEFINE_SETTING('BEZ', 0003, 'vis_h'                                 , 'float'                       , '0.25'                        , 'time stepsize')
 DEFINE_SETTING('BEZ', 0003, 'vis_t1'                                , 'float'                       , '8'                           , 'visitors day start (hour)')
 DEFINE_SETTING('BEZ', 0003, 'vis_t2'                                , 'float'                       , '18'                          , 'visitors day end (hour)')
@@ -462,7 +477,7 @@ DEFINE_SETTING('BEZ', 0003, 'vis_t2_std'                            , 'float'
 DEFINE_SETTING('BEZ', 0003, 'vis_afspraak_limiet'                   , 'number'                      , '-1'                          , 'max number of days from now that visitors are allowed, in past or future {-1 = no limit}')
 DEFINE_SETTING('BEZ', 0003, 'vis_fe_afspraak_limiet'                , 'number'                      , '180'                         , 'max number of days from now that visitors are allowed by FE, in past or future {-1 = no limit}')
 DEFINE_SETTING('BEZ', 0003, 'vis_checkout_enable'                   , 'number'                      , '1'                           , 'register checkout of visitors by BO {0=no | 1=yes}')
-DEFINE_SETTING('BEZ', 0003, 'vis_badgeprint_enable'                 , 'number'                      , '1'                           , 'print {0=no | 1=print at check in | 2=show print button | 4=only when bez_actie autobadge, 3=both 1 and 2 etc.}')
+DEFINE_SETTING('BEZ', 0003, 'vis_badgeprint_enable'                 , 'number'                      , '1'                           , 'print {0=no | 1=print at check in | 2=show print button | 4=only when bez_actie autobadge, 3=both 1 and 2 etc. | 8=location/building}')
 DEFINE_SETTING('BEZ', 0003, 'vis_autobadgeletters'                  , 'string'                      , ''                            , 'eg. ABCDEFG: Cycle through these letters daily')
 DEFINE_SETTING('BEZ', 0003, 'vis_autobadgestart'                    , 'number'                      , '1'                           , 'Daily autobadge start')
 DEFINE_SETTING('BEZ', 0003, 'vis_autobadgelength'                   , 'number'                      , '3'                           , 'Autobadge digits')
@@ -474,7 +489,7 @@ DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_host_uses_keys'           , 'number'
 DEFINE_SETTING('BEZ', 0001, 'vis_afspraak_tel_required'             , 'number'                      , '0'                           , 'when vis_afspraak_host_uses_keys==0, is phone required?')
 DEFINE_SETTING('BEZ', 0003, 'vis_bo_end_interval'                   , 'float'                       , '12'                          , 'standard bo end time interval')
 DEFINE_SETTING('BEZ', 0003, 'vis_bo_uses_badgenrs'                  , 'number'                      , '0'                           , 'the BO enters and uses badgenr registration { 0=no | 1=yes }')
-DEFINE_SETTING('BEZ', 0003, 'bez_sel_contactpersoon'                , 'number'                      , '1'                           , 'can I select contactpersonen')
+DEFINE_SETTING('BEZ', 0003, 'bez_sel_contactpersoon'                , 'number'                      , '1'                           , 'can I select contactpersonen { 0=no | 1=yes | 2=yes, but depending on location}')
 DEFINE_SETTING('BEZ', 0003, 'bez_sel_internpersoon'                 , 'number'                      , '0'                           , 'can I select internal persons { 0=no | 1=yes }')
 DEFINE_SETTING('BEZ', 0003, 'bez_closeafteradd'                     , 'number'                      , '0'                           , '0=not, 1=bo, 2=fo, 3=bo&fo')
 DEFINE_SETTING('BEZ', 0003, 'vis_allow_check_all'                   , 'number'                      , '1'                           , 'multiple-checkin visitors { 0=no | 1=yes }')
@@ -489,14 +504,16 @@ DEFINE_SETTING('BEZ', 0003, 'vis_future_checkin'                    , 'number'
 DEFINE_SETTING('BEZ', 0003, 'vis_default_number'                    , 'number'                      , '4'                           , 'Default number of visitors (= nr of lines to be filled out) for new appointment')
 DEFINE_SETTING('BEZ', 0003, 'vis_increment_number'                  , 'number'                      , '1'                           , 'Number of visitors (= nr of lines to be filled out) to be added with one click')
 DEFINE_SETTING('BEZ', 0003, 'bez_bo_orderby'                        , 'number'                      , '0'                           , 'Bezoekersbalie na datumtijd sorteren op { 0=Naam van de bezoeker | 1=Naam van de gastheer}')
+DEFINE_SETTING('BEZ', 0003, 'bez_gastheer_telfnr'                   , 'number'                      , '1'                           , 'In bezoekersbalie telfoon nummer van gastheer ook tonen { 0=Nee | 1=Ja}')
 DEFINE_SETTING('BEZ', 0003, 'bez_max_flex_on_line'                  , 'number'                      , '0'                           , 'Max aantal flexkenmerken op een bezoekersregel')
+DEFINE_SETTING('BEZ', 0003, 'bez_use_buildinghours'                 , 'number'                      , '0'                           , 'Gebouwtijden als tijdgrenzen van afspraken gebruiken {0=Nee (default), 1=Ja}')
 DEFINE_SETTING('SLE', 0003, 'cil_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Cylinders')
 DEFINE_SETTING('SLE', 0003, 'sle_ins_srt_groep_key'                 , 'number'                      , '-1'                          , 'INS_SRTDEEL_KEY of object type Keys')
 DEFINE_SETTING('SLE', 0003, 'sle_cil_koppelen'                      , 'number'                      , '1'                           , 'Sleutels en cilinders zijn door bo handmatig te koppelen {0=nee, 1=ja(default)}')
 DEFINE_SETTING('MRK', 0003, 'mrk_message_expire_days'               , 'number'                      , '30'                          , 'Message automatically expires after ')
 DEFINE_SETTING('MRK', 0009, 'mrk_image_path'                        , 'string'                      , NULL                          , 'path to folder storing marketplace pictures')
 DEFINE_SETTING('MSG', 0003, 'msg_reply_enabled'                     , 'number'                      , '1'                           , 'Only show answer button if msg_reply_enabled=1 (default).')
-DEFINE_SETTING('FAC', 0001, 'help_window'                           , 'boolean'                     , '0'                           , 'New window for Help')
+DEFINE_SETTING('FAC', 0001, 'help_window'                           , 'boolean'                     , 'false'                       , 'New window for Help')
 DEFINE_SETTING('ALG', 0003, 'alg_flexcolumns'                       , 'number'                      , '2'                           , 'number of flexcolumns for ALG [1|2]')
 DEFINE_SETTING('BES', 0003, 'bes_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for BES [1|2]')
 DEFINE_SETTING('BEZ', 0003, 'bez_flexcolumns'                       , 'number'                      , '1'                           , 'number of flexcolumns for BEZ [1|2]')
@@ -525,6 +542,11 @@ DEFINE_SETTING('FAC', 0001, 'xd_secundarydomains'                   , 'json'
 DEFINE_SETTING('FAC', 0001, 'xd_primary_bedrijfkey'                 , 'number'                      , '-1'                          , 'bedrijf_key of this Service Organisation (for XD-module)')
 DEFINE_SETTING('FAC', 0001, 'xd_add2deeplinkurl'                    , 'string'                      , '&sso=2'                      , 'parameters to be added to the XD-deeplink calls (for XD-module)')
 DEFINE_SETTING('FAC', 0003, 'fac_favicon_folder'                    , 'string'                      , 'appl/pictures/'              , 'Folder for favorite/bookmark icons')
+DEFINE_SETTING('FAC', 0003, 'excel_mode'                            , 'number'                      , '0'                           , 'Save Excel as {0=html-table | 1=as CSV (not supported)| 2=native XLS (future use)}')
+DEFINE_SETTING('FAC', 0001, 'fac_usrrap_mode'                       , 'number'                      , '0'                           , 'User reports mode {0=default, 1=advanced}')
+DEFINE_SETTING('FAC', 0001, 'fac_usrrap_safe_view_regexp'           , 'string'                      , ''                            , 'User reports safe views regexp')
+DEFINE_SETTING('MLD', 0003, 'show_perslidselector_by_mail'          , 'number'                      , '1'                           , 'Show person selector at sending mail {1=true | 0=false}')
+DEFINE_SETTING('FAC', 0001, 'basic_auth_realm'                      , 'string'                      , ''                            , 'Realm for Basic Authentication (API only) (future use)')
 
 /*
  *

FAC/FAC_TAB.SRC

@@ -203,6 +203,11 @@ CREATE_TABLE(fac_usrtab, 0)
         DATE
         DEFAULT SYSDATE
         NOT_NULL(fac_usrtab_aanmaak, fac_c_fac_usrtab_aanmaak),
+    fac_usrtab_verwijder
+        DATE,
+    fac_functie_key  /* optional required authorisation for editing, implies WEB_PRSSYS if NULL */
+        NUMBER(10)
+        CONSTRAINT fac_r_usrtab_functie REFERENCES fac_functie(fac_functie_key) ON DELETE SET NULL,
     CONSTRAINT fac_u_fac_usrtab_object UNIQUE(fac_usrtab_object)
 );
 
@@ -259,19 +264,11 @@ CREATE_TABLE(fac_usrrap, 0)
     fac_usrrap_view_name
         VARCHAR2(32)
         NOT_NULL(fac_usrrap_view_name, fac_c_fac_usrrap_view_name),
-    fac_usrrap_in_huidige_locatie
-        VARCHAR2(1)
-        CONSTRAINT fac_c_fac_usrrap_locatie CHECK (fac_usrrap_in_huidige_locatie = 0
-                                                OR fac_usrrap_in_huidige_locatie = 1),
+    fac_usrrap_col_refresh
+        DATE,
     fac_usrrap_aanmaak
         DATE
         DEFAULT SYSDATE,
-    fac_usrrap_template
-        VARCHAR2(32)
-        DEFAULT NULL,
-    fac_usrrap_macro
-        VARCHAR2(32)
-        DEFAULT NULL,
     fac_usrrap_vraagbegindatum
         NUMBER(1)
         DEFAULT 0,
@@ -279,18 +276,79 @@ CREATE_TABLE(fac_usrrap, 0)
         NUMBER(1)
         DEFAULT 0,
     fac_usrrap_functie
-        NUMBER(1)
+        NUMBER(3)
         DEFAULT 0,
     fac_usrrap_info
         VARCHAR2(100),
         CONSTRAINT fac_u_fac_usrrap UNIQUE(fac_usrrap_omschrijving),
+    fac_usrrap_urllink
+        VARCHAR2(100)
+        DEFAULT NULL,
+    fac_usrrap_groep
+        VARCHAR2(40)
+        DEFAULT NULL,
     fac_usrrap_autorefresh
         NUMBER(1)
         DEFAULT 0
         CONSTRAINT fac_c_fac_usrrap_refresh CHECK (fac_usrrap_autorefresh IN (0,1)),
-    FAC_FUNCTIE_KEY
+    fac_usrrap_count
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_count CHECK (fac_usrrap_count IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_pivot
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_pivot CHECK (fac_usrrap_pivot IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_graph
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_graph CHECK (fac_usrrap_graph IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_functie_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key)
+// Note: this column is defined in PRS_TAB.SRC
+//  , prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+);
+
+// De kolommen van een rapport
+CREATE_TABLE(fac_usrrap_cols, 0)
+(
+    fac_usrrap_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_usrrap_cols_key PRIMARY KEY,
+    fac_usrrap_key
+        NUMBER(10)
+        CONSTRAINT fac_r_usrrap_cols_usrrap_key REFERENCES fac_usrrap(fac_usrrap_key)
+        ON DELETE CASCADE,
+    fac_usrrap_cols_volgnr
+        NUMBER(10),
+    fac_usrrap_cols_column_name
+        VARCHAR2(32)
+        NOT_NULL(fac_usrrap_cols_column_name, fac_c_usrrap_cols_column_name),
+    fac_usrrap_cols_caption
+        VARCHAR2(60),
+    fac_usrrap_cols_filter /* See lcl_rap_filterLOV */
+        VARCHAR2(3),
+    fac_usrrap_cols_filterdefault /* Predefined filterval */
+        VARCHAR2(60),
+    fac_usrrap_cols_datatype
+        VARCHAR2(16)
+        NOT NULL,
+    fac_usrrap_cols_visible
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H')),
+    fac_usrrap_cols_group
+        VARCHAR2(1)
+        DEFAULT 'G'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_group CHECK (fac_usrrap_cols_group IN ('G', 'S', 'C', 'A', 'H', 'D', 'W', 'M', 'Q', 'Y'))
 );
 
 CREATE_TABLE(fac_usrgraph, 0)
@@ -619,7 +677,7 @@ CREATE_TABLE(fac_import, 0)
 CREATE_TABLE(imp_log, 0)
 (
   imp_log_key              NUMBER(10) CONSTRAINT imp_k_imp_log_key PRIMARY KEY,
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key2 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   imp_log_applicatie       VARCHAR2(50)
 , imp_log_datum            DATE DEFAULT SYSDATE
 , imp_log_status           VARCHAR2(1)
@@ -706,7 +764,7 @@ CREATE_TABLE(fac_activiteit, 0)
 
 CREATE_TABLE(fac_imp_file, 0)
 (
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   fac_imp_file_index       NUMBER(10),
   fac_imp_file_line        VARCHAR2(4000 CHAR)
 );
@@ -714,7 +772,7 @@ CREATE_TABLE(fac_imp_file, 0)
 
 CREATE_TABLE(fac_imp_catalogus, 0)
 (
-  fac_import_key             NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key             NUMBER(10) CONSTRAINT fac_r_fac_import_key3 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   ins_discipline_key         NUMBER(10),
   prs_bedrijf_key            NUMBER(10),
   fac_imp_catalogus_datum    DATE,
@@ -747,11 +805,11 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
   , alg_srtgebouw_omschrijving     VARCHAR2(30)
   , alg_locatie_verantw            VARCHAR2(30)
   , alg_locatie_verantw_tel        VARCHAR2(15)
-  , alg_locatie_adres              VARCHAR2(35)
+  , alg_locatie_adres              VARCHAR2(50)
   , alg_locatie_postcode           VARCHAR2(12)
   , alg_locatie_plaats             VARCHAR2(30)
   , alg_locatie_land               VARCHAR2(30)
-  , alg_locatie_post_adres         VARCHAR2(35)
+  , alg_locatie_post_adres         VARCHAR2(50)
   , alg_locatie_post_postcode      VARCHAR2(12)
   , alg_locatie_post_plaats        VARCHAR2(30)
   , alg_locatie_post_land          VARCHAR2(30)
@@ -790,6 +848,14 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_typeopdr_omschrijving       VARCHAR2(30)
 );
 
+CREATE_TABLE(fac_imp_mldafmtxt, 0)
+(
+    mld_afmeldtekst_naam            VARCHAR2(60)
+  , mld_afmeldtekst_omschrijving    VARCHAR2(1000)
+  , ins_discipline_key              NUMBER(10)
+  , mld_stdmelding_key              NUMBER(10)
+);
+
 CREATE_TABLE(fac_imp_onrgoed2, 0)
 (
     alg_locatie_code               VARCHAR2(10)
@@ -806,7 +872,7 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
   , res_ruimte_opstel_bezoekers    NUMBER (5)
   , res_ruimte_nr                  VARCHAR2(255)
   , res_ruimte_omschrijving        VARCHAR2(255)
-  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 10 zou genoeg zijn, wat speelruimte
+  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 15 zou genoeg zijn, wat speelruimte
   , prs_ruimteafdeling_bezetting   NUMBER(8,5)
   , alg_kenmerkwaarde1             VARCHAR2(255)
   , alg_kenmerkwaarde2             VARCHAR2(255)
@@ -818,8 +884,8 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
 CREATE_TABLE(fac_imp_organisatie, 0)
 (
    PRS_BEDRIJF_NAAM               VARCHAR2 (60)
-  ,PRS_AFDELING_NAAM              VARCHAR2 (10)
-  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (10)
+  ,PRS_AFDELING_NAAM              VARCHAR2 (15)
+  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (15)
   ,PRS_AFDELING_OMSCHRIJVING      VARCHAR2 (60 CHAR)
   ,PRS_KOSTENPLAATS_NR            VARCHAR2 (30)
 );
@@ -832,7 +898,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,alg_ruimte_nr                   VARCHAR2(10)
   ,prs_werkplek_volgnr             NUMBER (3)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
-  ,prs_afdeling_naam               VARCHAR2 (10)
+  ,prs_afdeling_naam               VARCHAR2 (15)
   ,prs_perslid_naam                VARCHAR2 (60)
   ,prs_perslid_tussenvoegsel       VARCHAR2 (15)
   ,prs_perslid_voorletters         VARCHAR2 (15)
@@ -840,7 +906,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,prs_perslid_titel               VARCHAR2 (15)
   ,prs_perslid_telefoonnr          VARCHAR2 (15)
   ,prs_perslid_mobiel              VARCHAR2 (15)
-  ,prs_perslid_email               VARCHAR2 (50)
+  ,prs_perslid_email               VARCHAR2 (200)
   ,prs_srtperslid_omschrijving     VARCHAR2 (60)
   ,prs_perslid_nr                  VARCHAR2 (16)
   ,prs_perslid_oslogin             VARCHAR2 (30)
@@ -942,11 +1008,11 @@ CREATE_TABLE(fac_imp_sle, 0)
 CREATE_TABLE(fac_imp_adres, 0)
 (
   adres_naam                  VARCHAR2(60),
-  adres_bezoek_adres          VARCHAR2(35),
+  adres_bezoek_adres          VARCHAR2(50),
   adres_bezoek_postcode       VARCHAR2(12),
   adres_bezoek_plaats         VARCHAR2(30),
   adres_bezoek_land           VARCHAR2(30),
-  adres_post_adres            VARCHAR2(35),
+  adres_post_adres            VARCHAR2(50),
   adres_gebouw_ruimte         VARCHAR2(30),
   adres_post_postcode         VARCHAR2(12),
   adres_post_plaats           VARCHAR2(30),
@@ -1001,17 +1067,17 @@ CREATE_TABLE(fac_imp_fac_gebruikersgroep, 0)
    email              VARCHAR2 (255)
 );
 
-CREATE TABLE fac_imp_ext_bedrijf
+CREATE_TABLE(fac_imp_ext_bedrijf, 0)
 (
    prs_bedrijf_naam VARCHAR2 (60),
    prs_leverancier_nr VARCHAR2 (50),
-   prs_bedrijf_bezoek_adres VARCHAR2 (35),
+   prs_bedrijf_bezoek_adres VARCHAR2 (50),
    prs_bedrijf_bezoek_postcode VARCHAR2 (12),
    prs_bedrijf_bezoek_plaats VARCHAR2 (30),
    prs_bedrijf_bezoek_land VARCHAR2 (30),
    prs_bedrijf_telefoon VARCHAR2 (20),
    prs_bedrijf_fax VARCHAR2 (20),
-   prs_bedrijf_post_adres VARCHAR2 (35),
+   prs_bedrijf_post_adres VARCHAR2 (50),
    prs_bedrijf_post_postcode VARCHAR2 (12),
    prs_bedrijf_post_plaats VARCHAR2 (30),
    prs_bedrijf_post_land VARCHAR2 (30),
@@ -1038,6 +1104,22 @@ CREATE TABLE fac_imp_ext_bedrijf
    prs_bedrijf_order_adres VARCHAR2(256)
 );
 
+CREATE_TABLE(fac_imp_bedrijfadres, 0)
+(
+   prs_bedrijf_key                NUMBER (10),
+   prs_bedrijfadres_type          VARCHAR2 (1),
+   mld_typeopdr_key               NUMBER (10),
+   prs_bedrijfadres_url           VARCHAR2 (512),
+   prs_bedrijfadres_ordermode     NUMBER (3),
+   prs_bedrijfadres_certificate   VARCHAR2 (255),
+   prs_bedrijfadres_xsl           VARCHAR2 (256),
+   prs_bedrijfadres_ext           VARCHAR2 (10),
+   prs_bedrijfadres_attachfile    VARCHAR2 (256),
+   prs_bedrijfadres_username      VARCHAR2 (32),
+   prs_bedrijfadres_password      VARCHAR2 (32)
+);
+
+
 // For OPrognose import (optional)
 CREATE_TABLE(fac_imp_oprognose, 0) (
  objectcode
@@ -1096,7 +1178,7 @@ CREATE_TABLE (fac_setting,0) (
 // We want the database to know what he is. This table has only one record.
 CREATE_TABLE (fac_version, 0) (
   fac_version_major
-    NUMBER(3),
+    NUMBER(4),
   fac_version_minor
     NUMBER(3),
   fac_version_patch
@@ -1230,7 +1312,8 @@ CREATE_TABLE(fac_faq, 0)
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
    fac_faq_datum DATE,
    fac_faq_lang VARCHAR2(3),
-   fac_faq_hint VARCHAR2(1000)
+   fac_faq_hint VARCHAR2(1000),
+   fac_faq_displaymode NUMBER(3) DEFAULT 0  NOT NULL -- 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
 );
 
 CREATE_TABLE(fac_localeitems, 0) /* Alle mogelijk vertaalbare labels/teksten */
@@ -1498,6 +1581,8 @@ CREATE_TABLE(fac_bookmark, 0)
         NUMBER(10),
    fac_bookmark_aanmaak
         DATE DEFAULT SYSDATE,
+   fac_bookmark_flags
+        NUMBER(3) DEFAULT(1) NOT NULL, -- 0=onzichtbaar, 1=prssys zichtbaar, 2=iedereen zichtbaar, +4=prssys muteerbaar
    fac_bookmark_expire DATE
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
@@ -1545,7 +1630,10 @@ CREATE_TABLE(fac_imp_inspectie, 0) (
    ins_srtdeel_code             VARCHAR2 (10),
    ins_srtcontrole_omschrijving VARCHAR2 (60),
    ins_srtcontrole_info         VARCHAR2 (320),
-   ins_srtcontrole_periode      VARCHAR2 (4)
+   ins_srtcontrole_periode      VARCHAR2 (7),
+   ins_srtcontrole_mode					VARCHAR2 (1),
+   ins_srtcontrole_eenheid			VARCHAR2 (1),
+   ins_srtcontrole_bits					VARCHAR2 (4)
 );
 
 -- AAIT#25547
@@ -1563,7 +1651,7 @@ CREATE_TABLE(fac_imp_faq, 0) (
 );
 
 -- FSN#25952: Generieke contractenimport
-CREATE TABLE fac_imp_cnt
+CREATE_TABLE(fac_imp_cnt, 0)
 (
    nummer_intern      VARCHAR2 (30),
    nummer_extern      VARCHAR2 (30),
@@ -1652,7 +1740,7 @@ CREATE_TABLE(faq_kenmerk,0)
    faq_kenmerk_uniek        NUMBER(1),
    faq_kenmerk_regexp       VARCHAR2(255),
    faq_kenmerk_verplicht    NUMBER(1),
-   faq_kenmerk_groep        NUMBER(1),
+   faq_kenmerk_groep        NUMBER(1) DEFAULT 0 NOT NULL,
    faq_kenmerk_lengte       NUMBER(4),
    faq_kenmerk_dec          NUMBER(2),
    faq_kenmerk_nmin         NUMBER(10),
@@ -1666,7 +1754,7 @@ CREATE_TABLE(faq_kenmerk,0)
                             DEFAULT NULLDATUM
 );
 
-CREATE TABLE faq_kenmerkwaarde
+CREATE_TABLE(faq_kenmerkwaarde, 0)
 (
    faq_kenmerkwaarde_key       NUMBER(10)
                                CONSTRAINT faq_k_faq_kenmerkwaarde_key PRIMARY KEY,
@@ -1693,4 +1781,26 @@ CREATE_TABLE(fac_qvw_ticket, 0)
 //        CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
 
+// Holds several usage counters and related info for analyzing and stats
+CREATE_TABLE(fac_gui_counter, 0)
+(
+   fac_gui_counter_key      NUMBER (10) PRIMARY KEY,
+   fac_gui_counter_group    VARCHAR2 (12),                            /* prodsearch, menu, usrrap */
+   fac_gui_counter_refkey   NUMBER (10),
+   fac_gui_counter_count    NUMBER (12),
+   fac_gui_counter_info     VARCHAR2 (1000),
+   fac_gui_counter_date     DATE DEFAULT SYSDATE,
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key          NUMBER (10) CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+   CONSTRAINT fac_u_fac_gui_counter UNIQUE(fac_gui_counter_group, fac_gui_counter_date, fac_gui_counter_refkey, fac_gui_counter_info)
+);
+
+CREATE_TABLE(fac_sequence, 0)
+(
+   fac_sequence_name     VARCHAR2(50)
+                         CONSTRAINT fac_k_fac_sequence_name PRIMARY KEY,
+   fac_sequence_lastval  NUMBER(10),
+   fac_sequence_expire   DATE
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -208,6 +208,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_usrrapcols_B_IU)
+BEFORE INSERT OR UPDATE ON fac_usrrap_cols
+FOR EACH ROW
+DECLARE
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_usrrap_cols_key, fac_s_fac_usrrap_cols_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_usrgraph_B_IU)
 BEFORE INSERT OR UPDATE ON fac_usrgraph
 FOR EACH ROW
@@ -284,7 +293,7 @@ BEGIN
    IF BITAND (:NEW.fac_notificatie_status, 1) = 1  AND :new.prs_perslid_key_receiver IS NOT NULL
    THEN
       -- strip zodat we alleen de eerste regel overhouden
-      loms := :NEW.fac_notificatie_oms;
+      loms := SUBSTR(:NEW.fac_notificatie_oms, 1, 512);
       IF INSTR (loms, chr(13)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(13)) -1);
       END IF;
@@ -356,16 +365,16 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_import_B_IU)
-BEFORE INSERT OR UPDATE ON fac_import
+CREATE_TRIGGER(fac_t_fac_import_B_I)
+BEFORE INSERT ON fac_import
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_import_key, fac_s_fac_import_key);
 END;
 /
 
-CREATE_TRIGGER(fac_t_imp_log_B_IU)
-BEFORE INSERT OR UPDATE ON imp_log
+CREATE_TRIGGER(fac_t_imp_log_B_I)
+BEFORE INSERT ON imp_log
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(imp_log_key, imp_s_imp_log_key);
@@ -857,4 +866,12 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_gui_counter_b_i)
+BEFORE INSERT ON fac_gui_counter
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_gui_counter_key, faq_s_fac_gui_counter_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/FAC_VIE.SRC

@@ -286,8 +286,8 @@ CREATE_VIEW (fac_v_perfmon, 0) (fclt_f_datum,
                                 users
                                )
 AS
-   SELECT DATE_TO_CHAR(fac_perfmon_datum, 'YYYY-MM-DD'), NUMBER_TO_CHAR (fac_perfmon_threshold),
-          fac_perfmon_AANTAL, NUMBER_TO_CHAR (ROUND(fac_perfmon_waarde / fac_perfmon_aantal)),
+   SELECT fac_perfmon_datum, fac_perfmon_threshold,
+          fac_perfmon_AANTAL, ROUND(fac_perfmon_waarde / fac_perfmon_aantal),
           fac_perfmon_users
      FROM fac_perfmon;
 
@@ -297,7 +297,6 @@ AS
 // perfmon.asp basic sample reports
 -- de platte waarden
 CREATE_VIEW(fac_v_perfmon_samplewaarde, 0) (fclt_f_datum,
-                                                   tijd,
                                                    waarde1,
                                                    waarde2,
                                                    waarde3,
@@ -311,8 +310,7 @@ CREATE_VIEW(fac_v_perfmon_samplewaarde, 0) (fclt_f_datum,
                                                    fclt_f_gebruiker
                                                   )
 AS
-   SELECT DATE_TO_CHAR (fac_perfmon_sample_datum, 'YYYY-MM-DD'),
-          DATE_TO_CHAR (fac_perfmon_sample_datum, 'HH24:MI'),
+   SELECT fac_perfmon_sample_datum,
           fac_perfmon_sample_waarde1, fac_perfmon_sample_waarde2,
           fac_perfmon_sample_waarde3, fac_perfmon_sample_waarde4,
           fac_perfmon_sample_waarde5, fac_perfmon_sample_waarde6,
@@ -2143,4 +2141,57 @@ SELECT fac_locale_xref_filepath FCLT_F_BESTAND,
        AND fac_locale_xsl_lang = 'NL'
        AND fac_locale_xsl_module = 'ASP';
 
+-- Standard sample report shows GUI usage (menu, reports, search) stats of last 100 days
+CREATE_VIEW(fac_v_rap_gui_usage_last100, 0) AS
+     SELECT fac_gui_counter_group fclt_f_action,
+            COALESCE (fac_gui_counter_info,
+                      fac_menu_altlabel,
+                      lcl.l (fac_menuitems_label),
+                      fac_usrrap_omschrijving)
+               detail,
+            COALESCE (r.fac_usrrap_view_name, m.fac_menu_alturl, mi.fac_menuitems_url) techdetail,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+            LEFT JOIN fac_usrrap r
+               ON c.fac_gui_counter_group = 'report' AND c.fac_gui_counter_refkey = r.fac_usrrap_key
+      WHERE fac_gui_counter_group NOT IN ('searchresult', 'searchchoice')
+            AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            fac_usrrap_omschrijving,
+            r.fac_usrrap_view_name,
+            m.fac_menu_alturl,
+            mi.fac_menuitems_url
+     HAVING SUM (fac_gui_counter_count) > 1;
+
+CREATE_VIEW(fac_v_rap_gui_usage_device, 0)
+(
+   action,
+   fclt_f_device,
+   total
+)
+AS
+     SELECT COALESCE (fac_gui_counter_info, fac_menu_altlabel, lcl.l (fac_menuitems_label)) detail,
+            DECODE (COALESCE (m.fac_menu_altgroep, mi.fac_menuitems_groep), 3, 'Mobile', 'Default')
+               device,
+            SUM (fac_gui_counter_count) total
+       FROM fac_gui_counter c
+            LEFT JOIN fac_menu m
+               ON c.fac_gui_counter_group = 'menu' AND c.fac_gui_counter_refkey = m.fac_menu_key
+            LEFT OUTER JOIN fac_menuitems mi
+               ON m.fac_menuitems_key = mi.fac_menuitems_key
+      WHERE fac_gui_counter_group IN ('menu') AND c.fac_gui_counter_date > SYSDATE - 100
+   GROUP BY fac_gui_counter_group,
+            fac_gui_counter_info,
+            fac_menu_altlabel,
+            fac_menuitems_label,
+            m.fac_menu_altgroep,
+            mi.fac_menuitems_groep;
+
 REGISTERRUN('$Id$')

FAC/parse_fac_lclmld.js

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

FCLT.NMK

@@ -1,9 +1,9 @@
-    ###############################################################################
+###############################################################################
 ##  MAK\SQL\FCLT.NMK
 ##
-##    Project: SM44 FACILITOR
+##    Project: FACILITOR
 ##
-##             (c) 1995-2012 SG|facilitor bv
+##             (c) 1995-2015 Facilitor B.V.
 ##
 ##   Auteur:    Ir. P.G. Feij
 ##   $Revision$
@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=23
-NEXTVERSION=24
-FILEVERSION=
-NEXTCAREVERSION=26
+CURRENTVERSION=25
+NEXTVERSION=26
+FILEVERSION=C
+NEXTCAREVERSION=28
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -156,6 +156,7 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\fac\fac_ini.src   \
       $(MSRC)\fac\fac_lcl.src   \
       $(MSRC)\fac\fac_lclasp.src \
+##       $(MSRC)\fac\_fac_lclmdl.src \
       $(MSRC)\fac\fac_set.src   \
       $(MSRC)\fac\fac_pac.src   \
       $(MSRC)\fac\fac_pacx.src  \
@@ -172,6 +173,13 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\ins\ins_tab.src   \
       $(MSRC)\ins\ins_tri.src   \
       $(MSRC)\ins\ins_vie.src   \
+      $(MSRC)\kpi\kpi_ind.src   \
+      $(MSRC)\kpi\kpi_ini.src   \
+      $(MSRC)\kpi\kpi_pac.src   \
+      $(MSRC)\kpi\kpi_seq.src   \
+      $(MSRC)\kpi\kpi_tab.src   \
+      $(MSRC)\kpi\kpi_tri.src   \
+      $(MSRC)\kpi\kpi_vie.src   \
       $(MSRC)\mld\mld_ind.src   \
       $(MSRC)\mld\mld_ini.src   \
       $(MSRC)\mld\mld_lcl.src   \
@@ -231,10 +239,15 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\web\web_tab.src   \
       $(MSRC)\web\web_tri.src   \
       $(MSRC)\web\web_vie.src
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
+$(MSRC)\fac\_fac_lclmdl.src: \
+    $(MSRC)\fac\fac_lclmdl.csv
+ cscript /nologo $(MSRC)\fac\parse_fac_lclmld.js $** >$@
+
 ##########################################################################
 #### UPDATES CONSIST OF UPDATE AND RECREATE scripts
 ##########################################################################
@@ -246,6 +259,7 @@ $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src       \
       $(MSRC)\comsql.h       \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCUPDATE).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -257,6 +271,7 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -276,7 +291,8 @@ $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL:   \
       $(MSRC)\care\care_vie.src  \
       $(MSRC)\care\care_pac.src  \
       $(MSRC)\care\care_ini.src
-    $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
@@ -286,6 +302,7 @@ $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
       $(MSRC)\care.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\CARE\CARE$(NEXTCAREVERSION).sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
  $(PRECOMP) $(PRECOMP_OPTIONS) $(CARERECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql

FCLT.SRC

@@ -1,7 +1,7 @@
--- [CREA*.SQL]
+-- [FCLT*.SQL]
 --
 -- Script to initialise a FACILITOR database schema in Oracle
--- Copyright 1996-2014 Facilitor bv, the Netherlands.
+-- Copyright 1996-2015 Facilitor bv, the Netherlands.
 -- All rights reserved!
 /*
  * $Revision$
@@ -44,7 +44,7 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2014 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2015 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
 PROMPT
 PROMPT This is the generated list-file of FCLT _DBV_STRING.sql which was used
 PROMPT to create the FACILITOR(r) _DBV_STRING schema in Oracle
@@ -75,6 +75,7 @@ SET ECHO ON
 #include "fin\fin_tab.src"
 #include "prj\prj_tab.src"
 #include "msg\msg_tab.src"
+#include "kpi\kpi_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
@@ -92,6 +93,7 @@ SET ECHO ON
 #include "fin\fin_seq.src"
 #include "prj\prj_seq.src"
 #include "msg\msg_seq.src"
+#include "kpi\kpi_seq.src"
 
 /* INDICES */
 #include "fac\fac_ind.src"
@@ -109,6 +111,7 @@ SET ECHO ON
 #include "fin\fin_ind.src"
 #include "prj\prj_ind.src"
 #include "msg\msg_ind.src"
+#include "kpi\kpi_ind.src"
 
 /* VIEWS, PACKAGES, TRIGGERS and LOCALES */
 #include "_up/recreate.inc"
@@ -129,6 +132,7 @@ SET ECHO ON
 #include "fin\fin_ini.src"
 #include "prj\prj_ini.src"
 #include "msg\msg_ini.src"
+#include "kpi\kpi_ini.src"
 
 COMMIT;
 
@@ -155,5 +159,5 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
 PROMPT
 PROMPT Your schema initialisation is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1992-2014 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
 SPOOL OFF

FIN/FIN_IND.SRC

@@ -9,6 +9,8 @@ CREATE INDEX fin_i_fin_factuur2 ON fin_factuur(cnt_contract_key);
 CREATE INDEX fin_i_fin_factuur3 ON fin_factuur(bes_bestelopdr_key);
 CREATE INDEX fin_i_fin_factuurregel1 ON fin_factuurregel(fin_factuur_key);
 CREATE INDEX fin_i_fin_factuurnote1 ON fin_factuur_note(fin_factuur_key);
+CREATE INDEX fin_i_fin_verkoopfactuur1 ON fin_verkoopfactuur(fin_verkoopfactuur_refkey, fin_verkoopfactuur_xmlnode);
+CREATE INDEX fin_i_fin_verkoopfactuur2 ON fin_verkoopfactuur(fin_verkoopfactuur_id);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_PAC.SRC

@@ -40,8 +40,7 @@ AS
    FUNCTION getfactuurkostenplaats (pfactuur_key IN NUMBER)
       RETURN NUMBER;
 
-
-
+  FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
 END fin;
 /
 
@@ -66,10 +65,15 @@ AS
       CASE pstatus
          WHEN 1                                                                                             -- Afgewezen
          THEN
-            IF currentstatus IS NULL OR currentstatus = 2
+            IF currentstatus IS NULL OR currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
-               eventcode := 'FINFNO';
+               IF currentstatus = 5
+               THEN
+                 eventcode := 'FINGNO';
+               ELSE
+                 eventcode := 'FINFNO';
+               END IF;
             END IF;
          WHEN 2                                                                                             -- Ingevoerd
          THEN
@@ -77,19 +81,30 @@ AS
             THEN
                newstatus := pstatus;
                eventcode := 'FINNEW';
-            ELSIF currentstatus = 1 OR currentstatus = 6
+            ELSIF currentstatus = 1 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFUN';
+            ELSIF currentstatus = 6
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGUN';
             END IF;
-         WHEN 6                                                                                              -- Verwerkt
+         WHEN 5                                                                                             -- Ter goedkeuring
          THEN
             IF currentstatus = 2
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGOE';
+            END IF;
+         WHEN 6                                                                                             -- Verwerkt
+         THEN
+            IF currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFOK';
             END IF;
-         WHEN 7                                                                                            -- Uitgegeven
+         WHEN 7                                                                                             -- Uitgegeven
          THEN
             IF currentstatus = 6
             THEN
@@ -361,11 +376,13 @@ AS
             factmatchmode := fin.getfactmatchmode (discipline, 'B');
 
             -- Zijn de bestelbedragen incl. of excl. BTW.
-            SELECT ks.prs_kostensoort_btw
+            SELECT MAX((SELECT ks.prs_kostensoort_btw
+                          FROM prs_kostensoort ks
+                         WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
               INTO inclbtw
               FROM bes_discipline bd,
-                   prs_kostensoort ks
-             WHERE bd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+                   bes_srtgroep bsg
+             WHERE bd.ins_discipline_key = bsg.ins_discipline_key
                AND bd.ins_discipline_key = discipline;
 
             -- Bereken dan nu de voor de matching relevante bedragen
@@ -526,7 +543,12 @@ AS
       CASE fin.matchfactuur (pfactuur_key)
          WHEN 1
          THEN
-            fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            IF fac.getsetting('fin_enable_goedkeuren') = 1
+            THEN
+               fin.setfactuurstatus (pfactuur_key, 5, NULL);
+            ELSE
+               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            END IF;
          WHEN -1
          THEN
             IF prejecttoo
@@ -816,6 +838,21 @@ AS
 
       RETURN kpkey;
    END;
+
+   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      s VARCHAR2 (2048 CHAR);
+   BEGIN
+      s :=  ps;
+      -- We do support substitution of placeholders in the messages
+      -- ##KEY##    = fin_factuur_key
+      IF INSTR (s, '#') > 0
+      THEN
+         s := REPLACE (s, '##KEY##', p_factuur_key);
+      END IF;
+      RETURN s;
+   END;
 END fin;
 /
 

FIN/FIN_SEQ.SRC

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

FIN/FIN_TAB.SRC

@@ -82,6 +82,9 @@ CREATE_TABLE(fin_factuur,0)
 , prs_perslid_key_user
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur4 REFERENCES prs_perslid(prs_perslid_key)
+, prs_perslid_key_goedkeur
+    NUMBER(10)
+    CONSTRAINT fin_r_fin_factuur6 REFERENCES prs_perslid(prs_perslid_key)
 , fin_factuur_datum
     DATE
     NOT_NULL(fin_factuur_datum, fin_c_fin_factuur3)
@@ -96,7 +99,7 @@ CREATE_TABLE(fin_factuur,0)
     VARCHAR2(250)
 , fin_factuur_statuses_key
     NUMBER(10)
-    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,6,7))
+    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7))
     NOT_NULL(fin_factuur_statuses_key, fin_c_fin_factuur5)
 , fin_factuur_verwijder
     DATE
@@ -170,6 +173,7 @@ CREATE_TABLE(fin_kenmerk,0)
         NUMBER(1)
     ,fin_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,fin_kenmerk_lengte
         NUMBER(4)
     ,fin_kenmerk_dec
@@ -242,23 +246,36 @@ CREATE_TABLE(fin_factuur_note, 0)
    fin_factuur_note_omschrijving    VARCHAR2 (4000 CHAR)
 );
 
-// Een basistabel waarin verkoopfactuurregels kunnen worden bewaard als een soort hardcopy
-// Deze tabel wordt (vooralsnog) niet door de core-programmatuur gevuld maar is wel een 
+// Met name om er een model (scaffolding) op te kunnen baseren is een kop-tabel erg wenselijk.
+CREATE_TABLE(fin_verkoopfactuurkop, 0)
+(
+    fin_verkoopfactuurkop_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuurkop_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    CONSTRAINT fin_u_verkoopfactuurkop_id UNIQUE(fin_verkoopfactuurkop_id)
+);
+
+// Een basistabel waarin verkoopfactuurREGELS kunnen worden bewaard als een soort hardcopy
+// Deze tabel wordt (vooralsnog) niet door de core-programmatuur gevuld maar is wel een
 // uniforme opslag voor latere referentie; vervangt de diverse cust-tabellen die ontstonden
 // Voor verschillende waarden (van bv kostenplaats of btwpercentage) zijn er verschillende regels
 // Stamgegevens kunnen later wijzigen en worden hier bevroren, overige gegevens kunnen worden
 // teruggevonden via de bijbehorende referentie
 // Tevens zijn er plenty extra kolommen voor gebruik naar eigen inzicht
+// LET OP: dit is bewust de rand van ons datamodel, hierin verder gaan opent de beerput van de financiele wereld
+//         waar we niet vrijwillig in willen vallen.
+// LET OP: de verwijzing fin_verkoopfactuurkop_key is optioneel.
+//         Indien een cust dit via de GUI wil gebruiken is deze vereist.
 CREATE_TABLE(fin_verkoopfactuur, 0)
 (
-    fin_verkoopfactuur_key          NUMBER(10),
-    fin_verkoopfactuur_aanmaak      DATE 
-                                    DEFAULT SYSDATE,
-    fin_verkoopfactuur_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak we numeriek */
-    fin_verkoopfactuur_datum        DATE,           /* de factuurdatum */        
+    fin_verkoopfactuur_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_key       NUMBER(10) REFERENCES fin_verkoopfactuurkop(fin_verkoopfactuurkop_key) ON DELETE CASCADE,
+    fin_verkoopfactuur_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuur_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    fin_verkoopfactuur_datum        DATE,           /* de factuurdatum */
     fin_verkoopfactuur_omschr       VARCHAR2(1000),
     fin_verkoopfactuur_xmlnode      VARCHAR2(60),   /* type van waarover deze factuur gaat */
-    fin_verkoopfactuur_refkey       VARCHAR2(60),   /* key van de bijbehorende entiteit van type xmlnode */
+    fin_verkoopfactuur_refkey       NUMBER(10),   /* key van de bijbehorende entiteit van type xmlnode */
     prs_kostenplaats_key            NUMBER(10),
     prs_kostenplaats_nr             VARCHAR2(30),
     prs_kostenplaats_omschrijving   VARCHAR2(60),

FIN/FIN_TRI.SRC

@@ -391,6 +391,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fin_t_verkoopfactuurkop_b_i)
+BEFORE INSERT ON fin_verkoopfactuurkop
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuurkop_key, fin_s_verkoopfactuurkop_key);
+END;
+/
+
 CREATE_TRIGGER(fin_t_fin_verkoopfactuur_b_iu)
 BEFORE INSERT OR UPDATE ON fin_verkoopfactuur
 FOR EACH ROW

FIN/FIN_VIE.SRC

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

INS/INS_INI.SRC

@@ -9,16 +9,12 @@ _FAC_MODULE('SLE','Sleutelbeheer')
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('SLE: Sleuteloverzicht', 'ins_v_rap_sle_toegang',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Overzicht van sleutels en bezitters',

INS/INS_TAB.SRC

@@ -23,8 +23,8 @@ CREATE_TABLE(ins_srtdiscipline,0)
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2)),
     ins_srtdiscipline_alg
-        NUMBER(1) DEFAULT(1)
-        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1)),
+        NUMBER(3) DEFAULT(1)
+        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)),
     ins_srtdiscipline_ins
         NUMBER(1) DEFAULT(1)
         CONSTRAINT ins_c_ins_srtdiscipline_ins CHECK(ins_srtdiscipline_ins IN (0,1)),
@@ -354,17 +354,18 @@ CREATE_TABLE(ins_deel,0)
         VARCHAR2(128),
     ins_deel_statedate
         DATE,
-    ins_deel_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT ins_c_ins_deel_uitvoertijd CHECK(ins_deel_uitvoertijd >= 0),
     ins_deel_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT ins_c_ins_deel_uitvoertijd1 CHECK(ins_deel_t_uitvoertijd.tijdsduur >= 0),
-CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
+-- In: PRS_TAB.SRC
+--    prs_perslid_key_beh
+--        NUMBER(10)
+--        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key),
+    CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
            ins_deel_parent_key, ins_srtdeel_key, ins_deel_upper,
            ins_deel_verwijder)
 );
+ALTER TABLE ins_deel MODIFY ins_deel_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 // Track history of ins_deel_states, in principe alleen wijzigende waarden
 CREATE_TABLE(ins_deel_state_history, 0)
@@ -397,6 +398,9 @@ CREATE_TABLE(ins_srtcontrole, 0)
     ins_srtcontrole_omschrijving
         VARCHAR2(60)
         NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
+    ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+        NUMBER(1)
+        DEFAULT(1),
     ins_srtcontrole_groep  // vrijblijvende categorisering voor groepering in rapportages
         VARCHAR2(60),
     ins_srtcontrole_info
@@ -460,6 +464,8 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
         NUMBER(3),
     ins_srtcontroledl_xcp_bits //  details, afhankelijk van de mode (mag best null zijn)
         NUMBER(4),
+    ins_srtcontroledl_xcp_kosten  // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+         NUMBER(11,2),
     ins_srtcontroledl_xcp_groep // Vrijblijvende categorisering voor groepering in rapportages
         VARCHAR2(60),
     ins_srtcontroledl_xcp_eind  // hier eindigt deze
@@ -587,7 +593,8 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_verplicht
       NUMBER(1),
    ins_kenmerk_groep
-      NUMBER(1),
+      NUMBER(1)
+      DEFAULT 0 NOT NULL,
    ins_kenmerk_toonbaar
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_toonbaar CHECK(ins_kenmerk_toonbaar IS NULL
@@ -777,6 +784,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
   ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
   CONSTRAINT ins_r_ins_discipine_key FOREIGN KEY (ins_discipline_key)

INS/INS_TRI.SRC

@@ -102,6 +102,14 @@ BEGIN
       END;
    END IF;
 
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND :old.ins_discipline_verwijder IS NULL
+       AND :new.ins_discipline_module = 'RES')
+   THEN
+       BEGIN DELETE FROM res_activiteitdiscipline WHERE res_activiteitdiscipline.res_discipline_key = :new.ins_discipline_key; END;
+   END IF;
+
+
     SET_VERWIJDER_CHILDREN(ins_srtgroep, ins_discipline_key, ins_discipline_verwijder,
         ins_srtgroep_verwijder,ins_tab_discipline);
     SET_VERWIJDER_CHILDREN(bes_srtgroep, ins_discipline_key, ins_discipline_verwijder,
@@ -157,16 +165,20 @@ BEGIN
  END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_B_I)
+BEFORE INSERT ON ins_deel
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
+END;
+/
+
 CREATE_TRIGGER(ins_t_ins_deel_B_IU)
 BEFORE INSERT OR UPDATE ON ins_deel
 FOR EACH ROW
-declare
+DECLARE
   Dummy1 BOOLEAN;
-  new_date DATE;
-  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
 BEGIN
-
-   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
    UPDATE_UPPER(ins_deel_omschrijving,ins_deel_upper,ins_deel);
    IF :new.ins_deel_verwijder IS NOT NULL AND :old.ins_deel_verwijder IS NULL THEN
      DECLARE
@@ -300,6 +312,17 @@ BEGIN
          END IF;
       END;
    END IF;
+   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
+END;
+/
+
+CREATE_TRIGGER(ins_t_ins_deel_A_U)
+AFTER UPDATE ON ins_deel
+FOR EACH ROW
+DECLARE
+  new_date DATE;
+  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
+BEGIN
    IF (:old.ins_deel_state  IS NULL AND :new.ins_deel_state IS NOT NULL)
     OR (:new.ins_deel_state  <> :old.ins_deel_state)
    THEN
@@ -332,7 +355,6 @@ BEGIN
             END IF;
       END;
    END IF;
-   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
 END;
 /
 

INS/INS_VIE.SRC

@@ -827,6 +827,53 @@ CREATE_VIEW(ins_v_allsrtinst,0) (ins_srtinst_keys,
           'D'
    FROM ins_srtdeel;
 
+CREATE_VIEW(ins_v_allsrtinstallatie,0)
+( niveau
+, ins_srtinstallatie_key
+, discipline_oms
+, srtgroep_oms
+, srtdeel_oms
+, ins_discipline_key
+, ins_srtgroep_key
+, ins_srtdeel_key
+)
+AS
+SELECT 'D'
+     , ins_ID.ins_discipline_key
+     , ins_ID.ins_discipline_omschrijving discipline_oms
+     , null srtgroep_oms
+     , null srtdeel_oms
+     , ins_ID.ins_discipline_key
+     , null ins_srtgroep_key
+     , null ins_srtdeel_key
+  FROM ins_discipline ins_ID
+UNION
+SELECT 'G'
+     , ins_SG.ins_srtgroep_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , null
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , null
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+ WHERE ins_ID.ins_discipline_key = ins_SG.ins_discipline_key
+UNION
+SELECT 'S'
+     , ins_SD.ins_srtdeel_key
+     , ins_ID.ins_discipline_omschrijving
+     , ins_SG.ins_srtgroep_omschrijving
+     , ins_SD.ins_srtdeel_omschrijving
+     , ins_ID.ins_discipline_key
+     , ins_SG.ins_srtgroep_key
+     , ins_SD.ins_srtdeel_key
+  FROM ins_discipline ins_ID
+     , ins_srtgroep ins_SG
+     , ins_srtdeel ins_SD
+ WHERE ins_SG.ins_srtgroep_key = ins_SD.ins_srtgroep_key
+   AND ins_ID.ins_discipline_key = ins_SG.ins_discipline_key;
+
 /* 17-01-96 */
 CREATE_VIEW(ins_v_srtinst_discipline,0) AS
     SELECT INS_SI.ins_srtinst_keys,
@@ -1362,7 +1409,7 @@ SELECT d.ins_deel_key,
        l.alg_locatie_code,
        l.alg_locatie_omschrijving,
        kd.ins_kenmerkdeel_aanmaak datum,
-       TO_CHAR (kd.ins_kenmerkdeel_aanmaak, 'hh24:mi') tijd,
+       TRUNC (kd.ins_kenmerkdeel_aanmaak) tijd,
        sk.ins_srtkenmerk_omschrijving ins_srtkenmerk_omschrijving,
        kd.ins_kenmerkdeel_verwijder,
        sk.ins_srtkenmerk_kenmerktype,
@@ -1411,7 +1458,7 @@ SELECT id.ins_deel_key,
        l.alg_locatie_code,
        l.alg_locatie_omschrijving,
        idsc.ins_deelsrtcontrole_datum datum,
-       TO_CHAR (idsc.ins_deelsrtcontrole_datum, 'hh24:mi') tijd,
+       TRUNC (idsc.ins_deelsrtcontrole_datum) tijd,
        idsc.ins_srtcontrole_key,
        ins_srtcontrole_omschrijving,
        idsc.ins_deelsrtcontrole_key,
@@ -1463,5 +1510,164 @@ AS
            AND COALESCE (d.ins_deel_vervaldatum, SYSDATE + 99) > SYSDATE
            AND d.ins_deel_verwijder IS NULL;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(ins_v_udr_deel, 1)
+(
+   key,
+   deel_omschrijving,
+   plaats,
+   srtdeel_code,
+   soort,
+   deel_opmerking,
+   discipline_key,
+   plaats_type,
+   district,
+   uitleenbaar,
+   res_opmerking,
+   deel_vervaldatum,
+   eigenaar
+)
+AS
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+          (SELECT d.prs_afdeling_omschrijving
+             FROM prs_v_afdeling d
+            WHERE prs_afdeling_key = i.ins_alg_ruimte_key)
+             eigenaar
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+             FROM res_deel
+            WHERE res_deel_verwijder IS NULL) rd,
+          prs_v_afdeling_boom d,
+          prs_bedrijf b
+    WHERE     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND i.ins_deel_verwijder IS NULL
+          AND i.ins_deel_key = rd.res_ins_deel_key(+)
+          AND i.ins_deel_module = 'INS'
+          AND i.ins_deel_parent_key IS NULL
+          AND i.ins_alg_ruimte_key = d.prs_afdeling_key
+          AND i.ins_alg_ruimte_type = 'A'
+   UNION
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+             p.prs_perslid_naam
+          || NVL2 (p.prs_perslid_voorletters, ', ' || p.prs_perslid_voorletters, '')
+          || NVL2 (p.prs_perslid_tussenvoegsel, ' ' || p.prs_perslid_tussenvoegsel, '')
+          || NVL2 (p.prs_perslid_voornaam, ' (' || p.prs_perslid_voornaam || ')', '')
+             eigenaar
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+             FROM res_deel
+            WHERE res_deel_verwijder IS NULL) rd,
+          prs_perslid p,
+          prs_v_afdeling_boom d
+    WHERE     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND i.ins_deel_verwijder IS NULL
+          AND i.ins_deel_key = rd.res_ins_deel_key(+)
+          AND i.ins_deel_module = 'INS'
+          AND i.ins_deel_parent_key IS NULL
+          AND i.ins_alg_ruimte_key = p.prs_perslid_key
+          AND p.prs_afdeling_key = d.prs_afdeling_key
+          AND i.ins_alg_ruimte_type = 'P'
+   UNION
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          TO_CHAR (NULL) plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          -1 district,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+          c.prs_contactpersoon_naam eigenaar
+     FROM ins_deel i,
+          ins_srtdeel s,
+          (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+             FROM res_deel
+            WHERE res_deel_verwijder IS NULL) rd,
+          prs_contactpersoon c
+    WHERE     s.ins_srtdeel_key = i.ins_srtdeel_key
+          AND i.ins_deel_verwijder IS NULL
+          AND i.ins_deel_key = rd.res_ins_deel_key(+)
+          AND i.ins_deel_module = 'INS'
+          AND i.ins_deel_parent_key IS NULL
+          AND i.ins_alg_ruimte_key = c.prs_contactpersoon_key
+          AND i.ins_alg_ruimte_type = 'C'
+   UNION ALL
+   SELECT i.ins_deel_key,
+          i.ins_deel_omschrijving,
+          o.alg_plaatsaanduiding || ' ('
+          || DECODE (
+                o.alg_onroerendgoed_type,
+                'R',
+                (SELECT r.alg_ruimte_omschrijving
+                   FROM alg_ruimte r
+                  WHERE r.alg_ruimte_key = i.ins_alg_ruimte_key),
+                'T',
+                (SELECT t.alg_terreinsector_naam
+                   FROM alg_terreinsector t
+                  WHERE t.alg_terreinsector_key = i.ins_alg_ruimte_key),
+                'W',
+                (SELECT r.alg_ruimte_omschrijving
+                   FROM alg_ruimte r, prs_werkplek w
+                  WHERE r.alg_ruimte_key = w.prs_alg_ruimte_key
+                        AND w.prs_werkplek_key = i.ins_alg_ruimte_key))
+          || ')'
+             plaats,
+          s.ins_srtdeel_code,
+          s.ins_srtdeel_omschrijving soort,
+          i.ins_deel_opmerking,
+          i.ins_discipline_key,
+          i.ins_alg_ruimte_type,
+          l.alg_district_key,
+          s.ins_srtdeel_uitleenbaar,
+          rd.res_deel_opmerking,
+          i.ins_deel_vervaldatum,
+          NULL eigenaar
+     FROM ins_deel i,
+          ins_v_alg_overzicht o,
+          ins_srtdeel s,
+          alg_locatie l,
+          alg_district di,
+          (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+             FROM res_deel
+            WHERE res_deel_verwijder IS NULL) rd
+    WHERE     i.ins_deel_verwijder IS NULL
+          AND i.ins_deel_module = 'INS'
+          AND i.ins_deel_key = rd.res_ins_deel_key(+)
+          AND i.ins_deel_parent_key IS NULL
+          AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
+          AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
+          AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
+          AND o.alg_locatie_key = i.ins_alg_locatie_key
+          AND i.ins_alg_locatie_key = l.alg_locatie_key
+          AND l.alg_district_key = di.alg_district_key
+          AND s.ins_srtdeel_key = i.ins_srtdeel_key;
+
 REGISTERRUN('$Id$')
 #endif  // INS

KPI/KPI_IND.SRC

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

KPI/KPI_INI.SRC

@@ -0,0 +1,229 @@
+#ifdef KPI
+
+/*  $Revision$
+ *  $Id$
+ */
+/* TODO lcl */
+
+_FAC_MODULE('KPI','Key Performance Indicators')
+
+----- Grafieken -----
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_tot_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_tot_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_proc_tot',   2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Onderdelen ', 'kpi_v_graph_proc_ond',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_proc_trend', 4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Totaal ',     'kpi_v_graph_ond_tot',    2,    0,   70,   90,  100, null, fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Onderdelen ', 'kpi_v_graph_ond_proc',   1, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+INSERT INTO fac_usrgraph
+( fac_usrgraph_omschrijving, fac_usrgraph_view_name, fac_usrgraph_type, fac_usrgraph_limiet0, fac_usrgraph_limiet1, fac_usrgraph_limiet2, fac_usrgraph_limiet3, fac_usrgraph_orderby, fac_functie_key)
+SELECT 'Trend ',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_SORT', fac_functie_key FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS';
+
+SET SQLBLANKLINES ON
+
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{ title: "",
+   seriesDefaults: {
+      rendererOptions: {
+         background: "white",
+         ringColor: "#444",
+         needleThickness: 7,
+         hubRadius: 7,
+         intervalInnerRadius: 25,
+         intervalOuterRadius: 50,
+         shadowDepth: 0,
+         intervalColors: [ "#CC0000", "#EE9900", "#77BB00" ]
+      }
+   }
+}'
+WHERE fac_usrgraph_omschrijving = 'Totaal ';  /* TODO lcl */
+
+-- onderdeel
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   stackSeries: false,
+   seriesDefaults:{
+      pointLabels: {
+         show: true,
+         edgeTolerance: -100,
+         ypadding: 0
+      }
+   },
+   series: [ {
+      renderer: $.jqplot.BarRenderer,
+      rendererOptions: {
+         barWidth: 50,
+         varyBarColor: true,
+         shadow: false
+      }
+   } ],
+   axes: {
+      yaxis: {
+         min: 0,
+         max: 100,
+         ticks: [0, 20, 40, 60, 80, 100],
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: {drawBaseline: false}
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+         }
+      },
+      {
+         horizontalLine: {
+            name: "n090",
+            y: 90,
+            lineWidth: 1,
+            lineCap: "square",
+            color: "rgba(85, 238, 0, 0.5)",
+            shadow: false
+         }
+      } ]
+   },
+   axesStyles: {
+           borderWidth: 0,
+           ticks: {
+               fontSize: "20pt",
+               fontFamily: "Tahoma",
+               textColor: "black"
+           },
+           label: {
+               fontFamily: "Tahoma",
+               textColor: "black"
+           }
+        },
+   grid: {
+            backgroundColor: "white",
+            borderWidth: 0,
+            gridLineColor: "#eee",
+            gridLineWidth: 1,
+            borderColor: "white",
+            shadow: false
+        }
+}'
+WHERE fac_usrgraph_omschrijving = 'Onderdelen ';  /* TODO lcl */
+
+-- trend
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
+   animate: true,
+   seriesDefaults: {
+      showMarker: false,
+      pointLabels: {
+         show: true
+      }
+   },
+   series: [ {
+      color: "#55acda",
+      shadow: true
+   } ],
+   axes: {
+      yaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "9pt"
+         },
+         rendererOptions: { drawBaseline: false }
+      },
+      xaxis: {
+         tickOptions: {
+            enableFontSupport: true,
+            fontFamily: "Tahoma",
+            fontSize: "10pt",
+            showGridline: false
+         }
+      }
+   },
+   axesStyles: {
+      borderWidth: 0,
+      ticks: {
+         fontSize: "20pt",
+         fontFamily: "Tahoma",
+         textColor: "black"
+      },
+      label: {
+         fontFamily: "Tahoma",
+         textColor: "black"
+      }
+   },
+   grid: {
+      backgroundColor: "white",
+      borderWidth: 0,
+      gridLineColor: "#eee",
+      gridLineWidth: 1,
+      borderColor: "white",
+      shadow: false
+   },
+   canvasOverlay: {
+      show: true,
+      objects: [ {
+         horizontalLine: {
+            name: "n070",
+            y: 70,
+            lineWidth: 2,
+            lineCap: "square",
+            color: "rgba(220, 160, 0, 0.5)",
+            shadow: false
+          }
+       },
+       {
+          horizontalLine: {
+             name: "n090",
+             y: 90,
+             lineWidth: 2,
+             lineCap: "square",
+             color: "rgba(85, 238, 0, 0.5)",
+             shadow: false
+          }
+       } ]
+    }
+}'
+WHERE fac_usrgraph_omschrijving = 'Trend ';  /* TODO lcl */
+
+SET SQLBLANKLINES OFF
+
+
+REGISTERONCE('$Id$')
+
+#endif // KPI

KPI/KPI_PAC.SRC

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

KPI/KPI_SEQ.SRC

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

KPI/KPI_TAB.SRC

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

KPI/KPI_TRI.SRC

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

KPI/KPI_VIE.SRC

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

MLD/MLD_PAC.SRC

@@ -16,7 +16,7 @@ CREATE OR REPLACE PACKAGE mld AS
   PROCEDURE setmeldingstatus (pmeldingkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
   FUNCTION  getopdrachtstatusdate (popdrkey IN number, pstatus IN number) RETURN date;
   PROCEDURE setopdrachtstatus (popdrachtkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
-  PROCEDURE notifybackoffice (pmeldingkey IN NUMBER);
+  PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2);
   PROCEDURE notifyopdrgoedkeurders (popdrkey IN NUMBER);
 
   PROCEDURE mld_nextworkflowstep     (p_melding_key        IN NUMBER
@@ -499,34 +499,85 @@ CREATE OR REPLACE PACKAGE BODY mld AS
     END;
 
    -- Stuur alle mogelijke backofficemedewerkers een bericht als de
-   -- melding NIEUW is. Naar wie, wordt reversed opgezocht op basis van
-   -- toegekende autorisaties
+   -- melding NIEUW is of geaccepteerd wordt door MLDBO3.
+   -- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties
    -- (zoals bij de lijst van BO-behandelaars in suggest/persoonfilter.inc)
-   PROCEDURE notifybackoffice (pmeldingkey IN NUMBER)
+   PROCEDURE notifybackoffice (pmeldingkey IN NUMBER, pcode IN VARCHAR2)
    AS
-      lloc_key mld_melding.mld_alg_locatie_key%TYPE;
-      lafd_key prs_perslid.prs_afdeling_key%TYPE;
-      ldisc_key mld_stdmelding.mld_ins_discipline_key%TYPE;
-      lspoed mld_melding.mld_melding_spoed%TYPE;
-      loms fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
-      bericht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
+      lloc_key       mld_melding.mld_alg_locatie_key%TYPE;
+      lafd_key       prs_perslid.prs_afdeling_key%TYPE;
+      ldisc_key      mld_stdmelding.mld_ins_discipline_key%TYPE;
+      lspoed         mld_melding.mld_melding_spoed%TYPE;
+      loms2bo        fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      loms2b3        fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      l2bomode       fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
+      l2b3mode       fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
+      lbonotify      mld_disc_params.mld_disc_params_bonotify%TYPE;
+      lfunctiecode   fac_functie.fac_functie_code%TYPE;
+      lsrtnoticode   fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
+      lstatus        mld_melding.mld_melding_status%TYPE;
+      bericht        fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
    BEGIN
       BEGIN
-         SELECT   m.mld_alg_locatie_key, p.prs_afdeling_key, stdm.mld_ins_discipline_key, m.mld_melding_spoed
-           INTO   lloc_key, lafd_key, ldisc_key, lspoed
-           FROM   mld_melding m, prs_perslid p, mld_stdmelding stdm
-          WHERE       m.prs_perslid_key = p.prs_perslid_key
-                  AND stdm.mld_stdmelding_key = m.mld_stdmelding_key
-                  AND (mld_melding_status = 2 OR mld_melding_status IS NULL)
-                  AND mld_melding_key = pmeldingkey;                   -- op dit moment nog alleen voor NIEUWE meldingen
+         -- De vakgroep (discipline) setting MLD_DISC_PARAMS_BONOTIFY geeft aan of de notificatie moeten worden verstuurd.
+         -- MLD_DISC_PARAMS_BONOTIFY: 0=niet, 1=bof, 2=bo3, 3=bo3 (aanmaak nieuwe melding) en dan bof (accepteren melding).
+         --
+         -- Sturing notificaties MLD2BO en MLD2B3 puur op basis van mld_disc_params_bonotify (Niet op de geconfigureerde WEB_MLDBO3 en WEB_MLDBOF rechten).
+         -- Notificaties: MLD2BO: Er is een nieuwe melding XXX.
+         --               MLD2B3: Voor melding XXX is uw acceptatie vereist.
+         --                    | notificatie 1      | notificatie 2             |
+         -- BONOTIFY           | (status Nieuw (2)) | (status Geaccepteerd (4)) | Te configureren WEB_MLDBO3 en WEB_MLDBOF rechten
+         -- 0 (niet)           |       X            |         X                 |
+         -- 1 (bof)            |       BOF(MLD2BO)  |         X                 | Alleen WEB_MLDBOF rechten zijn actief (niemand heeft WEB_MLDBO3 rechten).
+         -- 2 (bo3)            |       BO3(MLD2B3)  |         X                 | Zowel de WEB_MLDBO3 als WEB_MLDBOF rechten zijn actief.
+         -- 3 (bo3 en dan bof) |       BO3(MLD2B3)  |         BOF(MLD2BO)       | Zowel de WEB_MLDBO3 als WEB_MLDBOF rechten zijn actief.
+         --
+         SELECT   m.mld_alg_locatie_key,
+                  p.prs_afdeling_key,
+                  stdm.mld_ins_discipline_key,
+                  m.mld_melding_spoed,
+                  mdp.mld_disc_params_bonotify,
+                  m.mld_melding_status
+           INTO   lloc_key,
+                  lafd_key,
+                  ldisc_key,
+                  lspoed,
+                  lbonotify,
+                  lstatus
+           FROM   mld_melding m,
+                  prs_perslid p,
+                  mld_stdmelding stdm,
+                  ins_tab_discipline d,
+                  mld_disc_params mdp
+          WHERE   m.prs_perslid_key = p.prs_perslid_key
+            AND   stdm.mld_stdmelding_key = m.mld_stdmelding_key
+            -- Eerste notificatie: Melding is nieuw (2).
+            --                     Naar BOF de MLD2BO notificatie: Alleen als bonotify = 1.
+            --                     Naar BO3 de MLD2B3 notificatie: Alleen als bonotify = 2 en 3.
+            -- Tweede notificatie: Melding is net geaccepteerd (4).
+            --                     Naar BOF de MLD2BO notificatie: Alleen als bonotify = 3.
+            AND   (((mld_melding_status = 2 OR mld_melding_status IS NULL) AND pcode != 'MLDACP' AND mdp.mld_disc_params_bonotify > 0)
+                OR (mld_melding_status = 4 AND pcode = 'MLDACP' AND mdp.mld_disc_params_bonotify = 3))
+            AND   stdm.mld_ins_discipline_key = d.ins_discipline_key
+            AND   d.ins_discipline_key = mdp.mld_ins_discipline_key
+            AND   mld_melding_key = pmeldingkey;                   -- op dit moment nog alleen voor NIEUWE meldingen
 
          -- Als die er niet is sprongen we al naar de exception
          -- Als die er wel is, gaan we verder
-         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
-           INTO   loms
+         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
+                  fac_srtnotificatie_mode
+           INTO   loms2bo, l2bomode
            FROM   fac_srtnotificatie
           WHERE   fac_srtnotificatie_code = 'MLD2BO';
 
+         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms),
+                  fac_srtnotificatie_mode
+           INTO   loms2b3, l2b3mode
+           FROM   fac_srtnotificatie
+          WHERE   fac_srtnotificatie_code = 'MLD2B3';
+         -- Met mode 0 (dat is hier niet ongebruikelijk) is de notificatie
+         -- feitelijk uitgeschakeld en hoef ik dus ook niet duur te bepalen naar wie een notificatie niet gestuurd hoeft
+
          -- Vertaal melding-spoed  (1-4) naar email-spoed (1-3), 3=normaal
          IF lspoed < 3
          THEN
@@ -538,7 +589,21 @@ CREATE OR REPLACE PACKAGE BODY mld AS
             lspoed := 2;
          END IF;
 
-         bericht := mld.mldsprintf (loms, pmeldingkey);                                        -- de variabelen invullen
+         -- Sturing notificatie MLD2BO of MLD2B3.
+         IF l2b3mode > 0 AND lstatus = 2 AND pcode != 'MLDACP' AND (lbonotify = 2 OR lbonotify = 3)
+         THEN
+            lfunctiecode := 'WEB_MLDBO3';
+            lsrtnoticode := 'MLD2B3';
+            bericht := mld.mldsprintf (loms2b3, pmeldingkey);                                        -- de variabelen invullen
+         ELSIF (l2bomode > 0 AND (lstatus = 2 AND pcode != 'MLDACP' AND lbonotify = 1) OR (lstatus = 4 AND pcode = 'MLDACP' AND lbonotify = 3))
+         THEN
+            lfunctiecode := 'WEB_MLDBOF';
+            lsrtnoticode := 'MLD2BO';
+            bericht := mld.mldsprintf (loms2bo, pmeldingkey);                                        -- de variabelen invullen
+         ELSE
+            -- hoeft niets te doen
+            RETURN;
+         END IF;
 
          FOR boer
             IN (SELECT   g.prs_perslid_key
@@ -569,11 +634,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                                               FROM   fac_v_my_locations
                                              WHERE   prs_perslid_key = p.prs_perslid_key
                                                      AND niveau = fac_gebruiker_alg_level_write)))
-                         AND fac_functie_code = 'WEB_MLDBOF')
+                         AND fac_functie_code = lfunctiecode)
          LOOP
             fac.putnotificationsrtprio (NULL,
                                         boer.prs_perslid_key,
-                                        'MLD2BO',
+                                        lsrtnoticode,
                                         pmeldingkey,
                                         bericht,
                                         NULL,
@@ -682,7 +747,11 @@ CREATE OR REPLACE PACKAGE BODY mld AS
          SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
            INTO   loms
            FROM   fac_srtnotificatie
-          WHERE   fac_srtnotificatie_code = 'ORD2GO';
+          WHERE   fac_srtnotificatie_code = 'ORD2GO'
+            AND   fac_srtnotificatie_mode > 0;
+         -- Die laatste conditie is optimalisatie. Met code 0 is de notificatie feitelijk uitgeschakeld en
+         -- hoef ik dus ook niet duur te bepalen naar wie een notificatie niet gestuurd hoeft
+         -- Als deze niets oplevert gaan we dus ook weer naar de exception
 
          -- Vertaal melding-spoed  (1-4) naar email-spoed (1-3), 3=normaal
          IF lspoed < 3
@@ -754,17 +823,22 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       --  0 = rejected (reinstated since DB8)
       --  1 = completed
       -- -1 = initial (the originating call)
-      l_melding_start_key       NUMBER (10);
-      l_workflowstep_key        NUMBER (10);
-      l_stdmelding_key          NUMBER (10);
-      l_workflowstep_next_key   NUMBER (10);
-      l_new_melding_key         NUMBER (10);
-      l_success                 NUMBER;
-      l_nrofpredecessors        NUMBER;
-      l_nrofreadypredecessors   NUMBER;
-      tmp                       NUMBER;
+      l_melding_start_key        NUMBER (10);
+      l_workflowstep_key         NUMBER (10);
+      l_stdmelding_key           NUMBER (10);
+      l_workflowstep_next_key    NUMBER (10);
+      l_new_melding_key          NUMBER (10);
+      l_success                  NUMBER;
+      l_nrofpredecessors         NUMBER;
+      l_nrofreadypredecessors    NUMBER;
+      l_nrofactualpredecessors   NUMBER;
+      tmp                        NUMBER;
+      createthisnextstep         BOOLEAN;
+      rootregistered             BOOLEAN;
+      l_nrstepsevaluatedtrue     NUMBER := 0;
    BEGIN
       l_success := p_success;
+
       BEGIN
          SELECT mld_melding_start_key, mld_workflowstep_key, mld_stdmelding_key
            INTO l_melding_start_key, l_workflowstep_key, l_stdmelding_key
@@ -785,7 +859,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
               INTO l_workflowstep_key
               FROM mld_workflowstep ws
              WHERE ws.mld_stdmelding_key = l_stdmelding_key
-               AND ws.mld_workflowstep_start_key IS NULL;
+                   AND ws.mld_workflowstep_start_key IS NULL;
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
@@ -797,15 +871,12 @@ CREATE OR REPLACE PACKAGE BODY mld AS
                RETURN;
          END;
 
-         -- We must implicitly accept the call, or ELSE we cannot complete it later
-         UPDATE mld_melding
-            SET mld_workflowstep_key = l_workflowstep_key,
-                mld_melding_start_key = p_melding_key            -- do we need this or not? choose!
-          WHERE mld_melding_key = p_melding_key;
+         -- We must implicitly accept the initial call once, else we cannot complete it later
+         -- and accepting in the end would be odd.
          mld.setmeldingstatus (p_melding_key, 4, NULL);
-
+         rootregistered := FALSE;
          l_melding_start_key := p_melding_key;
-         l_success := 1;                              -- we used the info, we continue like success
+         l_success := 1;                               -- we used the info, we continue like success
       END IF;
 
       -- Is this mld_melding part of a workflow?
@@ -819,227 +890,444 @@ CREATE OR REPLACE PACKAGE BODY mld AS
       -- Bepaal nu de vervolgstappen binnen deze workflow (zelfde start_key).
       -- Dit kunnen er meerdere zijn.
       DECLARE
-          -- This cursor yields the next workflowssteps as defined in the workflow
-         -- That does not necessarily mean the the steps must be created at this time!
+         -- This cursor yields all the next workflowssteps as defined in this workflow
+         -- That does not necessarily mean that all these steps will be created at this time!
+         -- That actual creating depends on whether the condition evaluates to true and
+         -- the state of dependent steps if any and as defined by jointype
+         --
+         -- TODO: think about the exact behaviour of mld_workflowrule_result
          CURSOR c_nextsteps
          IS
-            SELECT ws.mld_workflowstep_key, ws.mld_stdmelding_key, stdm.mld_ins_discipline_key,
-                   disc.ins_srtdiscipline_key
-              FROM mld_workflowrule wr,
-                   mld_workflowstep ws0,
-                   mld_workflowstep ws,
-                   mld_stdmelding stdm,
+            SELECT ws.mld_workflowstep_key,
+                   ws.mld_stdmelding_key,
+                   stdm.mld_ins_discipline_key,
+                   disc.ins_srtdiscipline_key,
+                   wr.mld_workflowrule_condition,
+                   ws.mld_workflowstep_jointype
+              FROM mld_workflowrule wr,                       -- alles wat begint op de huidige step
+                   mld_workflowstep ws0,                       -- de huidige step, voor de start_key
+                   mld_workflowstep ws,                                     -- alle volgende stappen
+                   mld_stdmelding stdm,                          -- de melding van een volgende step
                    mld_discipline disc
-             WHERE stdm.mld_stdmelding_key = ws.mld_stdmelding_key
-               AND stdm.mld_ins_discipline_key = disc.ins_discipline_key
-               AND wr.mld_workflowstep_key = ws0.mld_workflowstep_key
-               AND ws.mld_workflowstep_start_key =
-                                NVL (ws0.mld_workflowstep_start_key, ws.mld_workflowstep_start_key)
-               AND wr.mld_workflowstep_next_key = ws.mld_workflowstep_key
-               AND wr.mld_workflowrule_result = l_success
-               AND wr.mld_workflowstep_key = l_workflowstep_key;
+             WHERE     stdm.mld_stdmelding_key = ws.mld_stdmelding_key
+                   AND stdm.mld_ins_discipline_key = disc.ins_discipline_key
+                   AND wr.mld_workflowstep_key = ws0.mld_workflowstep_key
+                   AND ws.mld_workflowstep_start_key =
+                         NVL (ws0.mld_workflowstep_start_key, ws.mld_workflowstep_start_key)
+                   AND wr.mld_workflowstep_next_key = ws.mld_workflowstep_key
+                   AND wr.mld_workflowrule_result = l_success
+                   AND wr.mld_workflowstep_key = l_workflowstep_key;
 
          r_nextsteps   c_nextsteps%ROWTYPE;
+
+         FUNCTION evaluatecondition (p_mld_key IN NUMBER, p_where IN VARCHAR2)
+            RETURN BOOLEAN
+         AS
+            l_sql             VARCHAR2 (4000);
+            l_rowsprocessed   NUMBER DEFAULT 0;
+            l_cursor          INTEGER DEFAULT DBMS_SQL.open_cursor;
+            l_cntbind         NUMBER;
+            l_cnt             NUMBER;
+            l_bvar            VARCHAR2 (1000);
+            l_rflex           VARCHAR2 (1000) DEFAULT '(\:flex[0-9_]+)'; -- supports ':flex111 = ''538'''
+            l_kenmerkwaarde   mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
+            l_kenmerk_key     mld_kenmerkmelding.mld_kenmerk_key%TYPE;
+         BEGIN
+            IF p_where IS NULL
+            THEN
+               RETURN TRUE;
+            END IF;
+
+            l_sql := 'select 1 from mld_melding where mld_melding_key = :mld_key AND ' || p_where;
+            DBMS_OUTPUT.put_line (l_sql);
+            DBMS_SQL.parse (l_cursor, l_sql, DBMS_SQL.native);
+            DBMS_SQL.bind_variable (l_cursor, ':mld_key', p_mld_key);
+            l_cntbind :=
+               REGEXP_COUNT (l_sql,
+                             l_rflex,
+                             1,
+                             'i');
+            DBMS_OUTPUT.put_line ('nBindvars: ' || TO_CHAR (l_cntbind));
+
+            FOR l_cnt IN 1 .. l_cntbind LOOP
+               l_bvar :=
+                  REGEXP_SUBSTR (l_sql,
+                                 l_rflex,
+                                 1,
+                                 l_cnt,
+                                 'i');
+               DBMS_OUTPUT.put_line ('Bindvar: ' || l_bvar);
+               l_kenmerk_key := TO_NUMBER (SUBSTR (l_bvar, 6));
+               DBMS_OUTPUT.put_line ('Bindvarkey: ' || l_kenmerk_key);
+
+               BEGIN
+                  SELECT mld_kenmerkmelding_waarde
+                    INTO l_kenmerkwaarde
+                    FROM mld_kenmerkmelding
+                   WHERE mld_melding_key = p_mld_key AND mld_kenmerk_key = l_kenmerk_key;
+               EXCEPTION
+                  WHEN NO_DATA_FOUND
+                  THEN
+                     l_kenmerkwaarde := NULL;
+               END;
+
+               DBMS_SQL.bind_variable (l_cursor, l_bvar, l_kenmerkwaarde);
+            END LOOP;
+
+            l_rowsprocessed := DBMS_SQL.execute_and_fetch (l_cursor);
+            RETURN l_rowsprocessed = 1;
+         END;
       BEGIN
          OPEN c_nextsteps;
 
          FETCH c_nextsteps INTO r_nextsteps;
 
-        IF c_nextsteps%NOTFOUND THEN
+         IF c_nextsteps%NOTFOUND
+         THEN
             -- If no l_workflowstep_next_key was found, this workflow is done
             -- THEN, close the originating l_melding_start_key
             -- But only if there are no other threads open!
             SELECT COUNT (mld_melding_key)
               INTO tmp
               FROM mld_melding
-             WHERE mld_melding_start_key = l_melding_start_key
-               AND mld_melding_status NOT IN (1,5,6)
-               AND mld_melding_key <> l_melding_start_key;
+             WHERE     mld_melding_start_key = l_melding_start_key
+                   AND mld_melding_status NOT IN (1, 5, 6)
+                   AND mld_melding_key <> l_melding_start_key;
 
             -- Als er geen lopende parallelle meldingen zijn, OF DEZE (eenzame) STAP WORDT AFGEWEZEN
             -- Dan sluit de root. Overwogen dat de root niet Afgewezen wordt bij 0.
             IF tmp = 0 OR l_success = 0
             THEN
-               --DBMS_OUTPUT.PUT_LINE('Closing parent:' ||  l_melding_start_key);
-                mld.setmeldingstatus(l_melding_start_key, 5, null);
+               DBMS_OUTPUT.put_line ('Closing parent:' || l_melding_start_key);
+               mld.setmeldingstatus (l_melding_start_key, 5, NULL);
             --ELSE
-                 --DBMS_OUTPUT.PUT_LINE('no more steps, but still ' ||  tmp  || ' open calls in workflow');
+            --DBMS_OUTPUT.PUT_LINE('no more steps, but still ' ||  tmp  || ' open calls in workflow');
             END IF;
 
             --More?
             RETURN;
          ELSE
-               -- For each found l_workflowstep_next_key, create a new mld_melding
-            -- Using the properties (which?) of l_melding_start_key
-            -- And the flexprops of p_melding_key if these match the mld_srtkenmerk_key
+            -- For each found l_workflowstep_next_key, create a new mld_melding
+            -- if condition evaluates to true
+            -- Using the basic properties of l_melding_start_key
+            -- and the flexprops of p_melding_key if these match the mld_srtkenmerk_key
             LOOP
-               SELECT COUNT (*)
+               SELECT COUNT ( * )
                  INTO l_nrofpredecessors
-                 FROM mld_workflowrule wr1,
-                      mld_workflowstep ws1
-                WHERE  wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
-                  AND wr1.mld_workflowstep_next_key = r_nextsteps.mld_workflowstep_key;
-               --DBMS_OUTPUT.PUT_LINE (   'startkey:'  ||  l_melding_start_key || ' step key:' || r_nextsteps.mld_workflowstep_key);
-               SELECT COUNT (*)
+                 FROM mld_workflowrule wr1, mld_workflowstep ws1
+                WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
+                      AND wr1.mld_workflowstep_next_key = r_nextsteps.mld_workflowstep_key;
+
+               DBMS_OUTPUT.put_line(   'startkey:'
+                                    || l_melding_start_key
+                                    || ' step key:'
+                                    || r_nextsteps.mld_workflowstep_key);
+
+               SELECT COUNT ( * )
                  INTO l_nrofreadypredecessors
                  FROM mld_melding m
-                WHERE m.mld_workflowstep_key IN (
-                         SELECT wr1.mld_workflowstep_key
-                           FROM mld_workflowrule wr1,
-                                mld_workflowstep ws1
-                          WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
-                            AND wr1.mld_workflowstep_next_key = r_nextsteps.mld_workflowstep_key)
-                  -- the step to be continued
-                  AND mld_melding_status IN (1, 5, 6) -- predecessor has been handled, no matter how
-                  AND mld_melding_start_key = l_melding_start_key;               -- for this thread
+                WHERE m.mld_workflowstep_key IN
+                            (SELECT wr1.mld_workflowstep_key
+                               FROM mld_workflowrule wr1, mld_workflowstep ws1
+                              WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
+                                    AND wr1.mld_workflowstep_next_key =
+                                          r_nextsteps.mld_workflowstep_key)
+                      -- the step to be continued
+                      AND mld_melding_status IN (1, 5, 6) -- predecessor has been handled, no matter how
+                      AND mld_melding_start_key = l_melding_start_key;            -- for this thread
 
-               --DBMS_OUTPUT.put_line (   'total nr of predecessors for next step: ' || l_nrofpredecessors);
-               --DBMS_OUTPUT.put_line (   'READY nr of predecessors for next step: ' || l_nrofreadypredecessors);
-               IF l_nrofreadypredecessors >= l_nrofpredecessors OR p_success = -1
+               DBMS_OUTPUT.put_line('total nr of predecessors in wf-definition for next step: '
+                                    || l_nrofpredecessors);
+               DBMS_OUTPUT.put_line (
+                  'READY nr of actual predecessors for next step: ' || l_nrofreadypredecessors);
+               createthisnextstep := FALSE;
+
+               -- What we do next depends on the jointype. We are one predecessor ourselves. Options are:
+               ---- Exact one predecessor which is obviously ready (else we would nog be called): start all next steps where that rule condition evaluates to true
+               ---- Multiple predecessors:
+               ------ jointype 0 (AND): all predecessors must be ready, if not do not start any next steps
+               ------ jointype 1 (OR): at least one predecessor must be ready. Since we are called, this must be the case,
+               ------                  unless that step has already been started by a previous call, then we should start
+               ------                  these next steps again [next level: update flexprops of already started calls?]
+               ------ jointype 2 (SYNC): all actually started predecessors must be ready. These predecessors are defined
+               ------                    by the workflow but the actual runtime condition may have prevented that step to be created
+               ------                    in which case that step should be neglected
+               ---- if jointype is null is is treated as 0 (AND)
+               -- TE OVERWEGEN: NULL IS GEEN JOIN, DUS SEQUENCE OF SPLIT, DUS HOEF IK NIKS TE TELLEN, APARTE CASE ZONDER BOVENSTAANDE QUERIES?
+               -- When p_success = -1 there is no predecessor, no jointype, so NULL/0
+               CASE r_nextsteps.mld_workflowstep_jointype
+                  WHEN 0
+                  THEN                                                                        -- AND
+                     createthisnextstep :=
+                        l_nrofreadypredecessors >= l_nrofpredecessors OR p_success = -1;
+                  WHEN 1
+                  THEN                                                                         -- OR
+                     createthisnextstep := l_nrofreadypredecessors = 1;
+                  -- if l_nrofreadypredecessors > 1 the creation has already taken place :-)
+                  WHEN 2
+                  THEN                                                                       -- SYNC
+                     -- TODO: kijk naar de vorige stap van de workflowDEFINITIE naar de stappen
+                     -- die hadden kunnen bestaan door de evaluatecondition opnieuw uit te voeren
+                     -- de true-stappen tellen wel mee als (ready or not) predecessors
+                     -- de false-stappen moeten we negeren.
+                     -- MAAR WACHT EENS EVENTJES: GAAT DAT NIET HELEMAAL VANZELF GEWOON GOED??
+                     -- Nee, ik moet nog iets meer weten: het totaal aantal feitelijke voorgangers
+                     -- maar die kan ik tellen zonder opnieuw de condities uit te voeren
+                     SELECT COUNT ( * )
+                       INTO l_nrofactualpredecessors                             -- disregard status
+                       FROM mld_melding m
+                      WHERE m.mld_workflowstep_key IN
+                                  (SELECT wr1.mld_workflowstep_key
+                                     FROM mld_workflowrule wr1, mld_workflowstep ws1
+                                    WHERE wr1.mld_workflowstep_key = ws1.mld_workflowstep_key
+                                          AND wr1.mld_workflowstep_next_key =
+                                                r_nextsteps.mld_workflowstep_key)
+                            -- the step to be continued
+                            AND mld_melding_start_key = l_melding_start_key;      -- for this thread
+
+                     DBMS_OUTPUT.put_line('total nr of actual predecessors for next step: '
+                                          || l_nrofactualpredecessors);
+                     -- Wel nog een beetje raar in onze <20>naar mijn groeiende overtuiging slimmere- implementatie:
+                     -- dit wil je altijd als je condities toepast, ook met een AND. Je wilt toch nooit wachten op een voorganger die niet bestaat?!?
+                     -- Onze traditionele AND lijkt me een SYNC, en dan is deze mode toch niet nodig.
+                     -- m.a.w. l_nrofpredecessors moet gewoon altijd l_nrofactualpredecessors zijn
+                     --  TODO Nagaan of dit gevoel helemaal juist is
+                     createthisnextstep := l_nrofreadypredecessors >= l_nrofactualpredecessors;
+               END CASE;
+
+               IF createthisnextstep
                THEN
-                  --DBMS_OUTPUT.put_line (   'We GO for the next step '|| r_nextsteps.mld_workflowstep_key);
-                  SELECT mld_s_mld_melding_key.NEXTVAL
-                    INTO l_new_melding_key
-                    FROM DUAL;
-                  -- Merk op: voor sommige velden laten we bewust de default nemen
-                  INSERT INTO mld_melding
-                              (
-                               mld_melding_key,
+                  DBMS_OUTPUT.put_line (
+                     'We GO for the next step ' || r_nextsteps.mld_workflowstep_key);
+
+                  IF evaluatecondition (p_melding_key, r_nextsteps.mld_workflowrule_condition)
+                  THEN
+                     -- We mark the initial call as the workflow-root. We may only do this if at least one
+                     -- nextstep-condition evaluates to true or we might end up with a root without steps
+                     IF p_success = -1 AND NOT rootregistered
+                     THEN
+                        UPDATE mld_melding
+                           SET mld_workflowstep_key = l_workflowstep_key,
+                               mld_melding_start_key = p_melding_key -- do we need this or not? choose!
+                         WHERE mld_melding_key = p_melding_key;
+
+                        rootregistered := TRUE;
+                     END IF;
+
+                     DBMS_OUTPUT.put_line (
+                        'We actually start the next step ' || r_nextsteps.mld_workflowstep_key);
+                     l_nrstepsevaluatedtrue := l_nrstepsevaluatedtrue + 1;
+
+                     SELECT mld_s_mld_melding_key.NEXTVAL INTO l_new_melding_key FROM DUAL;
+
+                     -- Merk op: voor sommige velden laten we bewust de default nemen
+                     INSERT INTO mld_melding (mld_melding_key,
+                                              mld_melding_module,
+                                              mld_meldbron_key,
+                                              mld_alg_locatie_key,
+                                              mld_alg_onroerendgoed_keys,
+                                              mld_melding_datum,
+                                              mld_melding_omschrijving,
+                                              mld_melding_opmerking,
+                                              mld_stdmelding_key,
+                                              mld_melding_status,
+                                              mld_kosten_klant,
+                                              mld_melding_document,
+                                              prs_kostenplaats_key,
+                                              prs_perslid_key,
+                                              mld_adres_key,
+                                              mld_workflowstep_key,
+                                              mld_melding_start_key,
+                                              mld_melding_ordernr,
+                                              mld_melding_spoed)
+                        SELECT l_new_melding_key,
                                mld_melding_module,
-                               mld_meldbron_key, mld_alg_locatie_key, mld_alg_onroerendgoed_keys,
-                               mld_melding_datum, mld_melding_omschrijving, mld_melding_opmerking,
-                               mld_stdmelding_key, mld_melding_status,
-                               mld_kosten_klant, mld_melding_document, prs_kostenplaats_key,
+                               mld_meldbron_key,
+                               mld_alg_locatie_key,
+                               mld_alg_onroerendgoed_keys,
+                               SYSDATE,
+                               mld_melding_omschrijving,
+                                  lcl.l ('lcl_mld_wf_generated_by')
+                               || p_melding_key
+                               || '. '
+                               || mld_melding_opmerking,
+                               r_nextsteps.mld_stdmelding_key,
+                               2,
+                               mld_kosten_klant,
+                               mld_melding_document,
+                               prs_kostenplaats_key,
                                prs_perslid_key,
-                               mld_adres_key, mld_workflowstep_key,
-                               mld_melding_start_key, mld_melding_ordernr, mld_melding_spoed)
-                     SELECT
-                            l_new_melding_key,
-                            mld_melding_module,
-                            mld_meldbron_key,
-                            mld_alg_locatie_key, mld_alg_onroerendgoed_keys,
-                            SYSDATE,
-                            mld_melding_omschrijving,
-                               lcl.l('lcl_mld_wf_generated_by')
-                            || p_melding_key
-                            || '. '
-                            || mld_melding_opmerking,
-                            r_nextsteps.mld_stdmelding_key, 2,
-                            mld_kosten_klant,
-                            mld_melding_document, prs_kostenplaats_key, prs_perslid_key,
-                            mld_adres_key,
-                            r_nextsteps.mld_workflowstep_key, l_melding_start_key, mld_melding_ordernr, mld_melding_spoed
-                       FROM mld_melding, mld_stdmelding msm
-                      WHERE mld_melding_key = l_melding_start_key
-                        AND msm.mld_stdmelding_key = r_nextsteps.mld_stdmelding_key;
+                               mld_adres_key,
+                               r_nextsteps.mld_workflowstep_key,
+                               l_melding_start_key,
+                               mld_melding_ordernr,
+                               mld_melding_spoed
+                          FROM mld_melding, mld_stdmelding msm
+                         WHERE mld_melding_key = l_melding_start_key
+                               AND msm.mld_stdmelding_key = r_nextsteps.mld_stdmelding_key;
 
-                  fac.trackaction ('MLDNEW', l_new_melding_key, NULL, NULL, NULL); -- ook mld2bo notificatie
+                     fac.trackaction ('MLDNEW',
+                                      l_new_melding_key,
+                                      NULL,
+                                      NULL,
+                                      NULL);                               -- ook mld2bo notificatie
 
-                  -- Neen AKZA#18432 revoked mld.setmeldingstatus (l_new_melding_key, 4, NULL); -- auto accept
-                  -- Kopieer nu de flexkenmerken voor zover deze bij oud-EN-nieuw bestaan
-                  DECLARE
-                     CURSOR c_mld_kenmerken
-                     IS
-                        -- VERRASSEND, SLIPGEVAAR, lastige materie
-                        -- Dit zijn (nu) alle ingevulde kenmerken van de voorlopende meldingen,
-                        -- per soortkenmerk gesorteerd zdd de LAATST AANGEMAAKTE MELDING (hogere key)
-                        -- eerst komt.
-                        -- Verderop wordt steeds alleen de eerste beschouwd.
-                        -- Dat betekent de de kenmerken van de melding die later in een workflow
-                        -- worden aangepast sterker zijn dan de eerdere.
-                        -- Een echt hele goeie oplossing is niet mogelijk.
-                        -- Pas ook op: bij de voorgaande meldingen kunnen ook zomaar de vervolgstappen
-                        -- betrokken worden die hierboven net aangemaakt zijn. Dat vinden we niet erg
-                        -- want die zijn dan immers zojuist ook op dezelfde manier bepaald.
-                          SELECT km.mld_kenmerkmelding_waarde, k.mld_srtkenmerk_key, m.mld_melding_key, k.mld_kenmerk_groep
-                            FROM mld_kenmerkmelding km, mld_kenmerk k, mld_melding m, mld_srtkenmerk s
-                           WHERE km.mld_kenmerkmelding_verwijder IS NULL
-                             AND km.mld_kenmerk_key = k.mld_kenmerk_key
-                             AND km.mld_melding_key = m.mld_melding_key
-                             AND k.mld_srtkenmerk_key = s.mld_srtkenmerk_key
-                             AND s.mld_srtkenmerk_kenmerktype NOT IN ('F','E')
-                             AND m.mld_melding_start_key = l_melding_start_key
-                             AND m.mld_melding_key < l_new_melding_key
-                        ORDER BY 2, 4, 3 DESC;
+                     -- Neen AKZA#18432 revoked mld.setmeldingstatus (l_new_melding_key, 4, NULL); -- auto accept
+                     -- Kopieer nu de flexkenmerken voor zover deze bij oud-EN-nieuw bestaan
+                     DECLARE
+                        CURSOR c_mld_kenmerken
+                        IS
+                             -- VERRASSEND, SLIPGEVAAR, lastige materie
+                             -- Dit zijn (nu) alle ingevulde kenmerken van de voorlopende meldingen,
+                             -- per soortkenmerk gesorteerd zdd de LAATST AANGEMAAKTE MELDING (hogere key)
+                             -- eerst komt.
+                             -- Verderop wordt steeds alleen de eerste beschouwd.
+                             -- Dat betekent de de kenmerken van de melding die later in een workflow
+                             -- worden aangepast sterker zijn dan de eerdere.
+                             -- Een echt hele goeie oplossing is niet mogelijk.
+                             -- Pas ook op: bij de voorgaande meldingen kunnen ook zomaar de vervolgstappen
+                             -- betrokken worden die hierboven net aangemaakt zijn. Dat vinden we niet erg
+                             -- want die zijn dan immers zojuist ook op dezelfde manier bepaald.
+                             SELECT km.mld_kenmerkmelding_waarde,
+                                    k.mld_srtkenmerk_key,
+                                    m.mld_melding_key,
+                                    k.mld_kenmerk_groep
+                               FROM mld_kenmerkmelding km,
+                                    mld_kenmerk k,
+                                    mld_melding m,
+                                    mld_srtkenmerk s
+                              WHERE     km.mld_kenmerkmelding_verwijder IS NULL
+                                    AND km.mld_kenmerk_key = k.mld_kenmerk_key
+                                    AND km.mld_melding_key = m.mld_melding_key
+                                    AND k.mld_srtkenmerk_key = s.mld_srtkenmerk_key
+                                    AND s.mld_srtkenmerk_kenmerktype NOT IN ('F', 'E')
+                                    AND m.mld_melding_start_key = l_melding_start_key
+                                    AND m.mld_melding_key < l_new_melding_key
+                           ORDER BY 2, 4, 3 DESC;
 
-                     r_mld_kenmerken         c_mld_kenmerken%ROWTYPE;
-                     l_new_kenmerk_key   NUMBER (10);
-                     wasbezigmetsrtkenmerk NUMBER(10);
-                     wasbezigmetgroep NUMBER(10);
-                     benbezigmetsrtkenmerk NUMBER(10);
-                     benbezigmetgroep NUMBER(10);
-                  BEGIN
+                        r_mld_kenmerken         c_mld_kenmerken%ROWTYPE;
+                        l_new_kenmerk_key       NUMBER (10);
+                        wasbezigmetsrtkenmerk   NUMBER (10);
+                        wasbezigmetgroep        NUMBER (10);
+                        benbezigmetsrtkenmerk   NUMBER (10);
+                        benbezigmetgroep        NUMBER (10);
+                     BEGIN
                         wasbezigmetsrtkenmerk := -1;
                         wasbezigmetgroep := -1;
+
                         FOR r_mld_kenmerken IN c_mld_kenmerken LOOP
-                        -- Does the new (std)melding r_nextsteps.mld_stdmelding_key have this flexprop as well? THEN use it
-                        BEGIN
-                           --DBMS_OUTPUT.PUT_LINE ( 'SELECT kk.mld_kenmerk_key ..'  ||  r_mld_kenmerken.mld_srtkenmerk_key  ||  ' '  ||  r_nextsteps.mld_stdmelding_key);
-                           benbezigmetsrtkenmerk := r_mld_kenmerken.mld_srtkenmerk_key;
-                           benbezigmetgroep := r_mld_kenmerken.mld_kenmerk_groep;
+                           -- Does the new (std)melding r_nextsteps.mld_stdmelding_key have this flexprop as well? THEN use it
+                           BEGIN
+                              --DBMS_OUTPUT.PUT_LINE ( 'SELECT kk.mld_kenmerk_key ..'  ||  r_mld_kenmerken.mld_srtkenmerk_key  ||  ' '  ||  r_nextsteps.mld_stdmelding_key);
+                              benbezigmetsrtkenmerk := r_mld_kenmerken.mld_srtkenmerk_key;
+                              benbezigmetgroep := r_mld_kenmerken.mld_kenmerk_groep;
 
-                           IF (benbezigmetsrtkenmerk <> wasbezigmetsrtkenmerk OR
-                               (benbezigmetsrtkenmerk = wasbezigmetsrtkenmerk AND benbezigmetgroep <> wasbezigmetgroep))
-                           THEN
-                              wasbezigmetsrtkenmerk:= benbezigmetsrtkenmerk;
-                              wasbezigmetgroep:= benbezigmetgroep;
-                              --DBMS_OUTPUT.PUT_LINE ( 'EERSTE WAARDE VAN DIT KENMERK, van melding '||r_mld_kenmerken.mld_melding_key);
-                              SELECT mld_kenmerk_key
-                                INTO l_new_kenmerk_key
-                                FROM (SELECT kk.mld_kenmerk_key
-                                        FROM mld_kenmerk kk
-                                       WHERE kk.mld_kenmerk_verwijder IS NULL
-                                         AND kk.mld_srtkenmerk_key = r_mld_kenmerken.mld_srtkenmerk_key
-                                         AND kk.mld_kenmerk_groep = r_mld_kenmerken.mld_kenmerk_groep
-                                         AND kk.mld_kenmerk_niveau = 'S'
-                                         AND kk.mld_stdmelding_key = r_nextsteps.mld_stdmelding_key
-                                      UNION
-                                      SELECT kk.mld_kenmerk_key
-                                        FROM mld_kenmerk kk
-                                       WHERE kk.mld_kenmerk_verwijder IS NULL
-                                         AND kk.mld_srtkenmerk_key = r_mld_kenmerken.mld_srtkenmerk_key
-                                         AND kk.mld_kenmerk_groep = r_mld_kenmerken.mld_kenmerk_groep
-                                         AND kk.mld_kenmerk_niveau = 'D'
-                                         AND kk.mld_stdmelding_key = r_nextsteps.mld_ins_discipline_key
-                                      UNION
-                                      SELECT kk.mld_kenmerk_key
-                                        FROM mld_kenmerk kk
-                                       WHERE kk.mld_kenmerk_verwijder IS NULL
-                                         AND kk.mld_srtkenmerk_key = r_mld_kenmerken.mld_srtkenmerk_key
-                                         AND kk.mld_kenmerk_groep = r_mld_kenmerken.mld_kenmerk_groep
-                                         AND kk.mld_kenmerk_niveau = 'T'
-                                         AND kk.mld_stdmelding_key = r_nextsteps.ins_srtdiscipline_key) x;
+                              IF (benbezigmetsrtkenmerk <> wasbezigmetsrtkenmerk
+                                  OR (benbezigmetsrtkenmerk = wasbezigmetsrtkenmerk
+                                      AND benbezigmetgroep <> wasbezigmetgroep))
+                              THEN
+                                 wasbezigmetsrtkenmerk := benbezigmetsrtkenmerk;
+                                 wasbezigmetgroep := benbezigmetgroep;
 
-                              --DBMS_OUTPUT.PUT_LINE('ook aanwezig bij de nieuwe, met kenmerk_key');
-                              --DBMS_OUTPUT.PUT_LINE(l_new_kenmerk_key);
-                              --DBMS_OUTPUT.PUT_LINE('dus insert');
-                              INSERT INTO mld_kenmerkmelding
-                                          (mld_melding_key, mld_kenmerk_key,
-                                           mld_kenmerkmelding_waarde
-                                          )
-                                   VALUES (l_new_melding_key, l_new_kenmerk_key,
-                                           r_mld_kenmerken.mld_kenmerkmelding_waarde
-                                          );
-                           -- ELSE negeer dit record, we hebben deze al.
-                           END IF;
-                        EXCEPTION
-                           WHEN NO_DATA_FOUND THEN NULL;
-                             --DBMS_OUTPUT.PUT_LINE('not found');
-                           WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'Soortkenmerk ' || r_mld_kenmerken.mld_srtkenmerk_key || ' is op meerdere niveaus gedefinieerd');
-                             --DBMS_OUTPUT.PUT_LINE('TOO MANY ROW');
-                        END;
-                     END LOOP;
-                  END;
+                                 --DBMS_OUTPUT.PUT_LINE ( 'EERSTE WAARDE VAN DIT KENMERK, van melding '||r_mld_kenmerken.mld_melding_key);
+                                 SELECT mld_kenmerk_key
+                                   INTO l_new_kenmerk_key
+                                   FROM (SELECT kk.mld_kenmerk_key
+                                           FROM mld_kenmerk kk
+                                          WHERE kk.mld_kenmerk_verwijder IS NULL
+                                                AND kk.mld_srtkenmerk_key =
+                                                      r_mld_kenmerken.mld_srtkenmerk_key
+                                                AND kk.mld_kenmerk_groep =
+                                                      r_mld_kenmerken.mld_kenmerk_groep
+                                                AND kk.mld_kenmerk_niveau = 'S'
+                                                AND kk.mld_stdmelding_key =
+                                                      r_nextsteps.mld_stdmelding_key
+                                         UNION
+                                         SELECT kk.mld_kenmerk_key
+                                           FROM mld_kenmerk kk
+                                          WHERE kk.mld_kenmerk_verwijder IS NULL
+                                                AND kk.mld_srtkenmerk_key =
+                                                      r_mld_kenmerken.mld_srtkenmerk_key
+                                                AND kk.mld_kenmerk_groep =
+                                                      r_mld_kenmerken.mld_kenmerk_groep
+                                                AND kk.mld_kenmerk_niveau = 'D'
+                                                AND kk.mld_stdmelding_key =
+                                                      r_nextsteps.mld_ins_discipline_key
+                                         UNION
+                                         SELECT kk.mld_kenmerk_key
+                                           FROM mld_kenmerk kk
+                                          WHERE kk.mld_kenmerk_verwijder IS NULL
+                                                AND kk.mld_srtkenmerk_key =
+                                                      r_mld_kenmerken.mld_srtkenmerk_key
+                                                AND kk.mld_kenmerk_groep =
+                                                      r_mld_kenmerken.mld_kenmerk_groep
+                                                AND kk.mld_kenmerk_niveau = 'T'
+                                                AND kk.mld_stdmelding_key =
+                                                      r_nextsteps.ins_srtdiscipline_key) x;
+
+                                 --DBMS_OUTPUT.PUT_LINE('ook aanwezig bij de nieuwe, met kenmerk_key');
+                                 --DBMS_OUTPUT.PUT_LINE(l_new_kenmerk_key);
+                                 --DBMS_OUTPUT.PUT_LINE('dus insert');
+                                 INSERT INTO mld_kenmerkmelding (mld_melding_key,
+                                                                 mld_kenmerk_key,
+                                                                 mld_kenmerkmelding_waarde)
+                                     VALUES (l_new_melding_key,
+                                             l_new_kenmerk_key,
+                                             r_mld_kenmerken.mld_kenmerkmelding_waarde);
+                              -- ELSE negeer dit record, we hebben deze al.
+                              END IF;
+                           EXCEPTION
+                              WHEN NO_DATA_FOUND
+                              THEN
+                                 NULL;
+                              --DBMS_OUTPUT.PUT_LINE('not found');
+                              WHEN TOO_MANY_ROWS
+                              THEN
+                                 raise_application_error (
+                                    -20000,
+                                       'Soortkenmerk '
+                                    || r_mld_kenmerken.mld_srtkenmerk_key
+                                    || ' is op meerdere niveaus gedefinieerd');
+                           --DBMS_OUTPUT.PUT_LINE('TOO MANY ROW');
+                           END;
+                        END LOOP;
+                     END;
+                  END IF;                                                       -- evaluatecondition
                END IF;
 
                FETCH c_nextsteps INTO r_nextsteps;
+
                EXIT WHEN c_nextsteps%NOTFOUND;
             END LOOP;
 
+            -- All nextsteps have been considered and started if the condition was true
+            -- If none of the conditions were true, no next step is started and the workflow dies
+            -- The previous step effectively was the/a last step so we should execute the corresponding
+            -- routine: close the root if all others (if any) are done as well.
+            IF l_nrstepsevaluatedtrue = 0
+            THEN
+               SELECT COUNT (mld_melding_key)
+                 INTO tmp
+                 FROM mld_melding
+                WHERE     mld_melding_start_key = l_melding_start_key
+                      AND mld_melding_status NOT IN (1, 5, 6)
+                      AND mld_melding_key <> l_melding_start_key;
+
+               -- Als er geen lopende parallelle meldingen zijn dan sluit de root.
+               IF tmp = 0
+               THEN
+                  DBMS_OUTPUT.put_line (
+                     'Closing parent due to all false conditions: ' || l_melding_start_key);
+                  mld.setmeldingstatus (l_melding_start_key, 5, NULL);
+               --ELSE
+               --DBMS_OUTPUT.PUT_LINE('no more steps, but still ' ||  tmp  || ' open calls in workflow');
+               END IF;
+            END IF;
+
             CLOSE c_nextsteps;
          END IF;
       END;
-    END mld_nextworkflowstep;
+   END mld_nextworkflowstep;
 
     -- Bereken van de melding het object met de laagste uitvoertijd.
     FUNCTION getlowestobjectuitvoer (p_melding_key IN NUMBER)
@@ -1301,6 +1589,7 @@ CREATE OR REPLACE PACKAGE BODY mld AS
        l_ruimte_key                     alg_ruimte.alg_ruimte_key%TYPE;
        l_insdeel_uitvoertijd_object     ins_deel.ins_deel_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(NULL, NULL); -- contructor initialisatie
        l_srtruimte_uitvoertijd_object   alg_srtruimte.alg_srtruimte_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(NULL, NULL); -- contructor initialisatie
+       l_mldsrtruimte_uitvtijd_object   alg_srtruimte.alg_srtruimte_t_uitvoertijd%TYPE := MLD_T_UITVOERTIJD(NULL, NULL); -- contructor initialisatie
     BEGIN
        SELECT mld_stdmelding_regime,
               COALESCE(CASE prio
@@ -1336,16 +1625,24 @@ CREATE OR REPLACE PACKAGE BODY mld AS
        IF v_mld_stdmelding_afhankelijk = 1 AND l_insdeel_uitvoertijd_object.tijdsduur IS NULL AND alg_key IS NOT NULL
        THEN
           -- Als alg_srtruimte_uitvoertijd geen waarde heeft, dan terugvallen op standaard uitvoertijd die altijd een waarde heeft
-          SELECT alg_srtruimte_t_uitvoertijd
-            INTO l_srtruimte_uitvoertijd_object
+          SELECT sr.alg_srtruimte_t_uitvoertijd,
+                 ssr.mld_stdmsrtruimte_t_uitvtijd
+            INTO l_srtruimte_uitvoertijd_object,
+                 l_mldsrtruimte_uitvtijd_object
             FROM alg_ruimte r,
-                 alg_srtruimte sr
+                 alg_srtruimte sr,
+                 mld_stdmsrtruimte ssr
            WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+)
+             AND r.alg_srtruimte_key = ssr.alg_srtruimte_key(+)
+             AND ssr.mld_stdmelding_key(+) = stdm_key
              AND r.alg_ruimte_key = alg_key;
 
            -- Uitvoertijd van de srtruimte nemen.
-          v_uitvoertijd_object.tijdsduur := COALESCE(l_srtruimte_uitvoertijd_object.tijdsduur, v_uitvoertijd_object_s.tijdsduur);
-          IF l_srtruimte_uitvoertijd_object.tijdsduur IS NOT NULL
+          v_uitvoertijd_object.tijdsduur := COALESCE(l_mldsrtruimte_uitvtijd_object.tijdsduur, l_srtruimte_uitvoertijd_object.tijdsduur, v_uitvoertijd_object_s.tijdsduur);
+          IF l_mldsrtruimte_uitvtijd_object.tijdsduur IS NOT NULL
+          THEN
+             v_uitvoertijd_object.eenheid := l_mldsrtruimte_uitvtijd_object.eenheid;
+          ELSIF l_srtruimte_uitvoertijd_object.tijdsduur IS NOT NULL
           THEN
              v_uitvoertijd_object.eenheid := l_srtruimte_uitvoertijd_object.eenheid;
           ELSE

MLD/MLD_SEQ.SRC

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

MLD/MLD_TAB.SRC

@@ -57,8 +57,12 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_frontendprio
         NUMBER(1),
     mld_disc_params_bonotify
-        NUMBER(2)       -- valid are 0, 1 (and 2)
+        NUMBER(2)       -- BO notificatie accept 0=niet, 1=bof, 2=bo3, 3=bo3 (aanmaak nieuwe melding) en dan bof (accepteren melding)
         DEFAULT 0,
+    mld_disc_params_benotify
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 0
+        NOT NULL,
     mld_disc_params_fenotes
         NUMBER(2)       -- bitwise valid are 0, 1, 2 and 3 (0,1 = (default) niet/wel + 0,2 = vast/keuze)
         DEFAULT 0,
@@ -92,7 +96,7 @@ CREATE_TABLE(mld_disc_params, 0)
         NUMBER(11,2)
         DEFAULT 1000000,
     mld_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
-        NUMBER(1),
+        NUMBER(1)
 );
 
 
@@ -269,44 +273,20 @@ CREATE_TABLE(mld_stdmelding,0)
         NOT_NULL(mld_stdmelding_upper, mld_c_mld_stdmelding_upper),
     mld_stdmelding_hint
         VARCHAR2(1000),
-    mld_stdmelding_urgentie  /* !!! VERVALLEN !!! */
-        NUMBER(4,2)
-        CONSTRAINT mld_c_mld_srtmelding_urgentie CHECK(mld_stdmelding_urgentie >= 0),
     mld_stdmelding_t_accepttijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmelding_t_accept CHECK(mld_stdmelding_t_accepttijd.tijdsduur >= 0),
-    mld_stdmelding_uitvoertijd  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        DEFAULT 2
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd CHECK(mld_stdmelding_uitvoertijd >= 0)
-        NOT_NULL(mld_stdmelding_uitvoertijd, mld_c_stdmelding_uitvoertijd),
-    mld_stdmelding_uitvoertijd_pr1  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd1 CHECK(mld_stdmelding_uitvoertijd_pr1 >= 0),
-    mld_stdmelding_uitvoertijd_pr2  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd2 CHECK(mld_stdmelding_uitvoertijd_pr2 >= 0),
-    mld_stdmelding_uitvoertijd_pr4  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)
-        CONSTRAINT mld_c_mld_stdmeld_uitvoertijd4 CHECK(mld_stdmelding_uitvoertijd_pr4 >= 0),
     mld_stdmelding_t_uitvoertijd /* pr3*/
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(2, 1)
-        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0)
-        NOT_NULL(mld_stdmelding_t_uitvoertijd.tijdsduur, mld_c_stdmelding_t_uitvtijd)
-        NOT_NULL(mld_stdmelding_t_uitvoertijd.eenheid, mld_c_stdmelding_t_eenheid_uit),
+        CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr1
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd1 CHECK(mld_stdmelding_t_uitvtijd_pr1.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr2
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd2 CHECK(mld_stdmelding_t_uitvtijd_pr2.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr4
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd4 CHECK(mld_stdmelding_t_uitvtijd_pr4.tijdsduur >= 0),
     mld_stdmelding_planbaar            -- 1: de einddatum van de melding is FE-aanpasbaar
         NUMBER(1),
@@ -398,6 +378,41 @@ CREATE_TABLE(mld_stdmelding,0)
         DEFAULT 0,
     CONSTRAINT mld_u_mld_stdmelding UNIQUE(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_verwijder)
 );
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(2, 1);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdmelding_t_uitvoertijd.tijdsduur, mld_c_stdmelding_t_uitvtijd);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdmelding_t_uitvoertijd.eenheid, mld_c_stdmelding_t_eenheid_uit);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+// Eventuele afwijkingen per srtruimte van SLA tijden.
+// Fungeert als COALESCE met alg_srtruimte.
+CREATE_TABLE(mld_stdmsrtruimte, 0)
+(
+    mld_stdmsrtruimte_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtruimte_key PRIMARY KEY,
+    alg_srtruimte_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtruimte_key3 REFERENCES alg_srtruimte(alg_srtruimte_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtruimte_key, alg_c_srtruimte_key2),
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key5 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key),
+    mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per dag]
+        NUMBER(8,2),
+    mld_stdmsrtruimte_t_accepttijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc CHECK(mld_stdmsrtruimte_t_accepttijd.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitvtijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
+        CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 -- Kruistabel tussen KB(faq) en standaardmeldingen
 CREATE_TABLE(mld_stdmeldingfaq, 0)
@@ -430,7 +445,7 @@ CREATE_TABLE(mld_adres, 0)
         VARCHAR2(60)
         NOT_NULL(mld_adres_upper, mld_c_mld_adres_upper),
     mld_adres_bezoek_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     mld_adres_bezoek_postcode
         VARCHAR2(12),
     mld_adres_bezoek_plaats
@@ -438,7 +453,7 @@ CREATE_TABLE(mld_adres, 0)
     mld_adres_bezoek_land
         VARCHAR2(30),
     mld_adres_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     mld_adres_gebouw_ruimte
         VARCHAR2(30),
     mld_adres_post_postcode
@@ -527,7 +542,11 @@ CREATE_TABLE(mld_workflowstep, 0)
       NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key2)
       CONSTRAINT mld_r_mld_stdmelding_key2 REFERENCES mld_stdmelding,
   mld_workflowstep_omschrijving
-      VARCHAR2(60)
+      VARCHAR2(60),
+  mld_workflowstep_jointype
+      NUMBER(2) -- 0 = AND, 1 = (X)OR, 2 = SYNC
+      DEFAULT 0
+      NOT_NULL(mld_workflowstep_jointype, mld_c_mld_wfstep_jointype)
 );
 
 
@@ -549,9 +568,7 @@ CREATE_TABLE(mld_workflowrule, 0)
       NOT_NULL(mld_workflowstep_next_key, mld_c_mld_workflowstep_key2)
       CONSTRAINT mld_r_mld_workflowstep_key3 REFERENCES mld_workflowstep(mld_workflowstep_key) ON DELETE CASCADE,
    mld_workflowrule_condition
-      VARCHAR2(4000),  -- should evaluate to TRUE in order to be executed
-   mld_workflowrule_jointype
-      NUMBER(2) -- 0 = AND, 1 = (X)OR, 2 = SYNC
+      VARCHAR2(4000)  -- should evaluate to TRUE in order to be executed
 );
 
 CREATE_TABLE(mld_melding,0)
@@ -594,25 +611,15 @@ CREATE_TABLE(mld_melding,0)
         NUMBER(10)
         NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key)
         CONSTRAINT mld_r_mld_stdmelding_key REFERENCES mld_stdmelding,
-    mld_melding_uitvoertijd  /* !!! VERVALLEN !!! */
-        NUMBER(8,5),
     mld_melding_t_uitvoertijd  -- freeze van stdmelding-uitvoertijd ten tijde van melden
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
         CONSTRAINT mld_c_mld_melding_t_uitvtijd CHECK (mld_melding_t_uitvoertijd.tijdsduur >= 0),
-    mld_melding_accepttijd  /* !!! VERVALLEN !!! */
-        NUMBER(4,2),
     mld_melding_t_accepttijd
-        MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
+        MLD_T_UITVOERTIJD,
     mld_melding_einddatum  -- geplande einddatum, trigger vult eventueel
         DATE,
-    mld_melding_respijt  /* !!! VERVALLEN !!! */
-        NUMBER(8,5)  -- tijdsduur in uren die van de doorlooptijd afgetrokken wordt
-        DEFAULT 0,
     mld_melding_t_respijt
-        MLD_T_UITVOERTIJD  -- tijdsduur die van de doorlooptijd afgetrokken wordt
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL),
+        MLD_T_UITVOERTIJD,  -- tijdsduur die van de doorlooptijd afgetrokken wordt
     mld_melding_indult
         NUMBER(1)  -- individueel vrijgesteld van SLA-meting/beoordeling (1) of niet (0)
         DEFAULT 0
@@ -694,6 +701,9 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_locked_date
       DATE
 );
+ALTER TABLE mld_melding MODIFY mld_melding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_respijt DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 COMMENT ON COLUMN mld_workflowrule.mld_workflowrule_result IS '0 is failure/rejection, 1 is success';
 COMMENT ON COLUMN mld_melding.mld_workflowstep_key IS 'references the workflow step that this melding corresponds to';
@@ -909,6 +919,7 @@ CREATE_TABLE(mld_kenmerk, 0)
       NUMBER(1)
 ,  mld_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  mld_kenmerk_toonbaar
       NUMBER(1)
 ,  mld_kenmerk_volgnummer
@@ -1237,6 +1248,9 @@ CREATE_TABLE(mld_afmeldtekst, 0)
     mld_stdmelding_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmelding_key3 REFERENCES mld_stdmelding (mld_stdmelding_key),
+    mld_ins_discipline_key
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
   CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
 );
 

MLD/MLD_TRI.SRC

@@ -59,6 +59,11 @@ BEGIN
            SET ins_discipline_key = :new.mld_ins_discipline_key
          WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
     END IF;
+   IF :new.mld_stdmelding_verwijder IS NOT NULL AND :old.mld_stdmelding_verwijder IS NULL
+   THEN
+        DELETE FROM mld_afmeldtekst
+              WHERE mld_stdmelding_key = :new.mld_stdmelding_key;
+   END IF;
 END;
 /
 
@@ -220,7 +225,9 @@ FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(mld_opdr_key, mld_s_mld_opdr_key);
     /* Controleer of de opdracht bij een melding hoort die de goede status heeft,
-     * namelijk: GEACCEPTEERD of AFGEMELD (minimaal GEACCEPTEERD),
+     * Het voorkomt dat er onverwachts opdrachten zijn op Afgewezen of nog niet Geaccepteerde meldingen
+     * namelijk: GEACCEPTEERD, UITGEGEVEN of AFGEMELD
+     * Sinds FSN#30228 hoort daar zelfs ook VERWERKT bij
      * Zo niet, dan mag het alleen als de contract_key is ingevuld
      */
    IF :NEW.mld_melding_key IS NOT NULL
@@ -232,7 +239,7 @@ BEGIN
            INTO dummy
            FROM mld_melding
           WHERE mld_melding_key = :NEW.mld_melding_key
-            AND mld_melding_status IN (4,5,7);
+            AND mld_melding_status IN (4,5,6,7);
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
@@ -731,6 +738,15 @@ BEGIN
     UPDATE_PRIMARY_KEY(mld_stdmeldingfaq_key, mld_s_mld_stdmeldingfaq_key);
 END;
 /
+
+CREATE_TRIGGER(mld_t_mld_stdmsrtruimte_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmsrtruimte
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(mld_stdmsrtruimte_key, mld_s_mld_stdmsrtruimte_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif  // MLD

MLD/MLD_VIE.SRC

@@ -391,9 +391,9 @@ AS
                   DECODE(m.mld_melding_t_respijt.eenheid, 'U', m.mld_melding_t_respijt.tijdsduur, NULL) sla_respijturen,
                   DECODE(m.mld_melding_t_accepttijd.eenheid, 'D', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accptdgn,
                   DECODE(m.mld_melding_t_accepttijd.eenheid, 'U', m.mld_melding_t_accepttijd.tijdsduur, NULL) sla_accpturen,
-                  TO_CHAR (m.mld_melding_datum, 'YYYY-MM-DD') datum,
-                  COALESCE (TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,5), 'YYYY-MM-DD'),
-                            TO_CHAR (mld.getmeldingstatusdate(m.mld_melding_key,1), 'YYYY-MM-DD')
+                  TRUNC (m.mld_melding_datum) datum,
+                  COALESCE (TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,5)),
+                            TRUNC (mld.getmeldingstatusdate(m.mld_melding_key,1))
                            )
                      afgemeld,
                   mld.getactualuitvoer(m.mld_melding_key) t_doorlooptijd,
@@ -405,24 +405,20 @@ AS
                   (SELECT mld_statusopdr_omschrijving
                      FROM mld_statusopdr sta
                     WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key) opdracht_status,
-                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland, TO_CHAR (o.mld_opdr_datumbegin, 'YYYY-MM-DD') opdracht_datum,
-                  TO_CHAR (mld.getopdrachtstatusdate(o.mld_opdr_key,6), 'YYYY-MM-DD') opdracht_afgemeld,
+                  fac.count_Work_Days(o.mld_opdr_datumbegin, o.mld_opdr_einddatum) opdracht_duur_gepland,
+                  TRUNC (o.mld_opdr_datumbegin) opdracht_datum,
+                  TRUNC (mld.getopdrachtstatusdate(o.mld_opdr_key,6)) opdracht_afgemeld,
                   fac.count_work_days (o.mld_opdr_datumbegin, mld.getopdrachtstatusdate(o.mld_opdr_key,6)) opdracht_doorlooptijd,
                   o.mld_opdr_omschrijving opdracht_omschrijving, o.mld_opdr_opmerking opdracht_opmerking,
                   (SELECT naam
                      FROM mld_v_uitvoerende u
                     WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys) opdracht_uitvoerende, NULL opdracht_contract,
                   NULL opdracht_contactpersoon,
-                  REPLACE (TO_CHAR (o.mld_opdr_uren, '9999990.99'), '.', ',') opdracht_uren,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon),
-                                    '9999990.99'
-                                   ),
-                           '.',
-                           ','
-                          ) opdracht_correctie,
-                  REPLACE (TO_CHAR (o.mld_opdr_materiaal, '9999990.99'), '.', ',') opdracht_materiaal,
-                  REPLACE (TO_CHAR (o.mld_opdr_uurloon, '9999990.99'), '.', ',') opdracht_uurtarief,
-                  REPLACE (TO_CHAR (o.mld_opdr_kosten, '9999990.99'), '.', ',') opdracht_kosten
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon) opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten
              FROM mld_melding m,
                   mld_stdmelding s,
                   alg_locatie l,
@@ -769,6 +765,51 @@ AS
       AND bd.ins_discipline_key(+) = std.bes_ins_discipline_key
       AND vak.ins_discipline_key = dp.mld_ins_discipline_key;
 
+-- UWVA#31346: Export tbv. import afmeldteksten!
+CREATE_VIEW(mld_v_rap_expimp_afmtxt, 0)
+(
+   afmeldtekstnaam,
+   afmeldtekstomschrijving,
+   fclt_x_discipline_key,
+   fclt_x_stdmelding_key,
+   discipline_key,
+   stdmelding_key
+)
+AS
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+             md.ins_discipline_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_ins_discipline_key)
+          || ']',
+             sm.mld_stdmelding_omschrijving
+          || ' [key='
+          || TO_CHAR (sm.mld_stdmelding_key)
+          || ']',
+          sm.mld_ins_discipline_key,
+          t.mld_stdmelding_key
+     FROM mld_afmeldtekst t, mld_stdmelding sm, mld_discipline md
+    WHERE     t.mld_stdmelding_key IS NOT NULL
+          AND t.mld_stdmelding_key = sm.mld_stdmelding_key
+          AND sm.mld_ins_discipline_key = md.ins_discipline_key
+   UNION ALL
+   SELECT t.mld_afmeldtekst_naam,
+          t.mld_afmeldtekst_omschrijving,
+          DECODE (
+             md.ins_discipline_key,
+             NULL,
+             NULL,
+                md.ins_discipline_omschrijving
+             || ' [key='
+             || TO_CHAR (md.ins_discipline_key)
+             || ']'),
+          NULL,
+          md.ins_discipline_key,
+          NULL
+     FROM mld_afmeldtekst t, mld_discipline md
+    WHERE t.mld_stdmelding_key IS NULL
+          AND t.mld_ins_discipline_key = md.ins_discipline_key(+);
+
 ---- KTO views + rapportages
 CREATE_VIEW(mld_v_kto_vragen, 0)
 (
@@ -1225,5 +1266,643 @@ CREATE_VIEW(mld_v_api_meldingen, 1) AS SELECT * from mld_melding;
 CREATE_VIEW(mld_v_api_opdrachten, 1) AS SELECT * from mld_opdr;
 
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+/* since melding and opdracht are joined later on, the columns must be unique */
+CREATE_VIEW(mld_v_udr_melding, 1)
+(
+   melding_key,
+   meldingnummer,
+   melding_district,
+   melding_locatiecode,
+   melding_locatie,
+   fclt_3d_locatie_key,
+   melding_gebouwcode,
+   melding_gebouw,
+   melding_verdieping,
+   melding_ruimtenr,
+   melding_ruimte,
+   melding_ordernr,
+   kostensoortgroep,
+   kostensoort,
+   kostenplaats,
+   kostenplaats_oms,
+   melder,
+   afdeling,
+   afdeling_omschrijving,
+   fclt_3d_afdeling_key,
+   bedrijf_key,
+   invoerder,
+   meldbron,
+   soortmelding,
+   fclt_3d_discipline_key,
+   productgroep,
+   subproductgroep,
+   behandelgroep,
+   behandelaar,
+   subproductgroepgroep,
+   melding_status,
+   sla_nvt,
+   sla_werkdgn,
+   sla_werkuren,
+   sla_respijtdgn,
+   sla_respijturen,
+   sla_accptdgn,
+   sla_accpturen,
+   plan_uitvoertijd_sla,
+   melding_datum,
+   melding_einddatum,
+   melding_acceptdatum,
+   melding_afgemeld,
+   melding_accepted,
+   doorlooptijd_werkdgn,
+   doorlooptijd_werkuren,
+   vomschrijving,
+   melding_opmerking,
+   prioriteit,
+   rating,
+   rating_opmerking,
+   bolletje,
+   accept_sla_dagen,
+   accept_sla_uren,
+   uitvoering_sla_dagen,
+   uitvoering_sla_uren,
+   afspraak_sla_dagen,
+   afspraak_sla_uren,
+   accept_sla_optijd,
+   uitvoering_sla_optijd,
+   afspraak_sla_optijd
+)
+AS
+   SELECT mld_melding_key,
+          meldingnummer,
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          melding_ordernr,
+          kostensoortgroep,
+          kostensoort,
+          kostenplaats,
+          kostenplaats_oms,
+          melder,
+          afdeling,
+          afdeling_omschrijving,
+          afdeling_key,
+          prs_bedrijf_key,
+          invoerder,
+          meldbron,
+          soortmelding,
+          ins_discipline_key,
+          productgroep,
+          subproductgroep,
+          behandelgroep,
+          behandelaar,
+          subproductgroepgroep,
+          status,
+          sla_nvt,
+          sla_werkdgn,
+          sla_werkuren,
+          sla_respijtdgn,
+          sla_respijturen,
+          sla_accptdgn,
+          sla_accpturen,
+          plan_uitvoertijd_sla,
+          datum,
+          einddatum,
+          acceptdatum,
+          afgemeld,
+          accepted,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkdgn,
+          DECODE (x.t_doorlooptijd.eenheid, 'U', x.t_doorlooptijd.tijdsduur, NULL)
+             doorlooptijd_werkuren,
+          omschrijving,
+          opmerking,
+          mld_melding_spoed prioriteit,
+          mld_melding_satisfaction,
+          mld_melding_satisfaction_op,
+          mld_melding_flag,
+          DECODE (x.t_doorlooptijd.eenheid, 'D', acceptdatum - COALESCE (accepted, afgemeld), NULL)
+             accept_sla_dagen,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                  NULL)
+             accept_sla_uren,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'D',
+               mld.geteinddatum (mld_melding_key)
+             - COALESCE (afgemeld, SYSDATE)
+             + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             uitvoering_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (mld.geteinddatum (mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+             + COALESCE (sla_respijturen, 0),
+             NULL)
+             uitvoering_sla_uren,
+          DECODE (x.t_doorlooptijd.eenheid,
+                  'D', einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                  NULL)
+             afspraak_sla_dagen,
+          DECODE (
+             x.t_doorlooptijd.eenheid,
+             'U',
+             ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24) + COALESCE (sla_respijtdgn, 0),
+             NULL)
+             afspraak_sla_uren,
+          CASE
+             WHEN acceptdatum IS NULL
+                  OR            -- Dan is er geen acceptatietijd gedefinieerd en dus altijd op tijd.
+                    DECODE (x.t_doorlooptijd.eenheid,
+                            'D', acceptdatum - COALESCE (accepted, afgemeld),
+                            0)
+                    + DECODE (x.t_doorlooptijd.eenheid,
+                              'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                              0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             accept_sla_optijd,
+          CASE
+             WHEN DECODE (
+                     x.t_doorlooptijd.eenheid,
+                     'D',
+                       mld.geteinddatum (mld_melding_key)
+                     - COALESCE (afgemeld, SYSDATE)
+                     + COALESCE (sla_respijtdgn, 0),
+                     0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (mld.geteinddatum(mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijturen, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             uitvoering_sla_optijd,
+          CASE
+             WHEN DECODE (x.t_doorlooptijd.eenheid,
+                          'D',
+                          einddatum - COALESCE (afgemeld, SYSDATE) + COALESCE (sla_respijtdgn, 0),
+                          0)
+                  + DECODE (
+                       x.t_doorlooptijd.eenheid,
+                       'U',
+                       ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24)
+                       + COALESCE (sla_respijtdgn, 0),
+                       0) >= 0
+             THEN
+                lcl.l ('lcl_yes')
+             ELSE
+                lcl.l ('lcl_no')
+          END
+             afspraak_sla_optijd
+     FROM (SELECT m.mld_melding_key,
+                  sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
+                  alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  m.mld_melding_ordernr melding_ordernr,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                          AND ks.prs_kostensoort_key =
+                                (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                   FROM mld_stdmelding sm, mld_discipline disc
+                                  WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                        AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                             (SELECT COALESCE (sm.prs_kostensoort_key, disc.prs_kostensoort_key)
+                                FROM mld_stdmelding sm, mld_discipline disc
+                               WHERE sm.mld_ins_discipline_key = disc.ins_discipline_key
+                                     AND sm.mld_stdmelding_key = s.mld_stdmelding_key))
+                     kostensoort,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = m.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.prs_perslid_key)
+                     melder,
+                  (SELECT prs_afdeling_naam
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling,
+                  (SELECT prs_afdeling_omschrijving
+                     FROM prs_afdeling afd, prs_perslid pp
+                    WHERE afd.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_omschrijving,
+                  (SELECT prs_afdeling_key
+                     FROM prs_perslid pp
+                    WHERE pp.prs_perslid_key = m.prs_perslid_key)
+                     afdeling_key,
+                  (SELECT prs_bedrijf_key
+                     FROM prs_v_afdeling pva, prs_perslid pp
+                    WHERE pva.prs_afdeling_key = pp.prs_afdeling_key
+                          AND pp.prs_perslid_key = m.prs_perslid_key)
+                     prs_bedrijf_key,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = mld.getmeldinguser (m.mld_melding_key))
+                     invoerder,
+                  (SELECT mb.mld_meldbron_omschrijving
+                     FROM mld_meldbron mb
+                    WHERE mb.mld_meldbron_key = m.mld_meldbron_key)
+                     meldbron,
+                  m.mld_meldbron_key,
+                  sd.ins_srtdiscipline_key ins_srtdiscipline_key,
+                  sd.ins_srtdiscipline_omschrijving soortmelding,
+                  md.ins_discipline_key ins_discipline_key,
+                  md.ins_discipline_omschrijving productgroep,
+                  s.mld_stdmelding_omschrijving subproductgroep,
+                  smg.mld_stdmeldinggroep_naam subproductgroepgroep,
+                  mbg.mld_behandelgroep_naam behandelgroep,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.mld_melding_behandelaar_key)
+                     behandelaar,
+                  (SELECT mld_statuses_omschrijving
+                     FROM mld_statuses sta
+                    WHERE sta.mld_statuses_key = m.mld_melding_status)
+                     status,
+                  CASE
+                     WHEN m.mld_melding_einddatum >
+                             COALESCE (fac.gettrackingdate ('MLDAFM', m.mld_melding_key),
+                                       fac.gettrackingdate ('MLDREJ', m.mld_melding_key),
+                                       SYSDATE)
+                     THEN
+                        1
+                     ELSE
+                        0
+                  END
+                     plan_uitvoertijd_sla,
+                  CASE
+                     WHEN m.mld_melding_indult = 1 OR s.mld_stdmelding_slabewaken = 0 THEN 1
+                     ELSE 0
+                  END
+                     sla_nvt,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'D', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkdgn,
+                  DECODE (m.mld_melding_t_uitvoertijd.eenheid,
+                          'U', m.mld_melding_t_uitvoertijd.tijdsduur,
+                          NULL)
+                     sla_werkuren,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'D', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijtdgn,
+                  DECODE (m.mld_melding_t_respijt.eenheid,
+                          'U', m.mld_melding_t_respijt.tijdsduur,
+                          NULL)
+                     sla_respijturen,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'D', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accptdgn,
+                  DECODE (m.mld_melding_t_accepttijd.eenheid,
+                          'U', m.mld_melding_t_accepttijd.tijdsduur,
+                          NULL)
+                     sla_accpturen,
+                  m.mld_melding_datum datum,
+                  m.mld_melding_einddatum einddatum,
+                  mld.getacceptdatum (m.mld_melding_datum,
+                                      m.mld_stdmelding_key,
+                                      og.alg_onroerendgoed_keys)
+                     acceptdatum,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5),
+                            mld.getmeldingstatusdate (m.mld_melding_key, 1))
+                     afgemeld,
+                  COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 4),
+                            mld.getmeldingstatusdate (m.mld_melding_key, 1))
+                     accepted,
+                  mld.getactualuitvoer (m.mld_melding_key) t_doorlooptijd,
+                  m.mld_melding_omschrijving omschrijving,
+                  m.mld_melding_opmerking opmerking,
+                  m.mld_melding_spoed,
+                  m.mld_melding_satisfaction,
+                  m.mld_melding_satisfaction_op,
+                  m.mld_melding_flag
+             FROM mld_melding m,
+                  mld_stdmelding s,
+                  alg_locatie l,
+                  alg_district d,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_discipline md,
+                  mld_disc_params mdp,
+                  mld_behandelgroep mbg,
+                  ins_srtdiscipline sd,
+                  mld_stdmeldinggroep smg
+            WHERE     s.mld_stdmelding_key = m.mld_stdmelding_key
+                  AND m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND sd.ins_srtdiscipline_key = md.ins_srtdiscipline_key
+                  AND md.ins_discipline_key = s.mld_ins_discipline_key
+                  AND md.ins_discipline_key = mdp.mld_ins_discipline_key
+                  AND s.mld_stdmeldinggroep_key = smg.mld_stdmeldinggroep_key(+)
+                  AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
+
+CREATE_VIEW(mld_v_udr_opdracht, 1)
+(
+   opdracht_key,
+   opdracht_nummer,
+   opdracht_district,
+   opdracht_locatie_code,
+   opdracht_locatie,
+   fclt_3d_locatie_key,
+   opdracht_gebouwcode,
+   opdracht_gebouw,
+   opdracht_verdieping,
+   opdracht_ruimtenr,
+   opdracht_ruimte,
+   opdracht_kostenplaats,
+   opdracht_kostenplaats_oms,
+   melding_key,
+   opdracht_type,
+   opdracht_volgnummer,
+   opdracht_status,
+   opdracht_duur_gepland,
+   opdracht_datum,
+   opdracht_einddatum,
+   opdracht_plandatum,
+   opdracht_afgemeld,
+   opdracht_doorlooptijd,
+   opdracht_omschrijving,
+   opdracht_opmerking,
+   opdracht_uitvoerende,
+   opdracht_contract,
+   opdracht_contactpersoon,
+   opdracht_uren,
+   opdracht_correctie,
+   opdracht_materiaal,
+   opdracht_uurtarief,
+   opdracht_kosten
+)
+AS
+   SELECT mld_opdr_key,
+          TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,         -- ik vind prefix te duur
+          alg_district_omschrijving,
+          locatie,
+          locatie_omschrijving,
+          alg_locatie_key,
+          gebouw,
+          gebouw_naam,
+          verdieping,
+          ruimte,
+          ruimte_omschrijving,
+          kostenplaats,
+          kostenplaats_oms,
+          mld_melding_key,
+          opdracht_type,
+          opdracht_volgnummer,
+          opdracht_status,
+          opdracht_duur_gepland,
+          opdracht_datum,
+          opdracht_einddatum,
+          opdracht_plandatum,
+          opdracht_afgemeld,
+          opdracht_doorlooptijd,
+          opdracht_omschrijving,
+          opdracht_opmerking,
+          opdracht_uitvoerende,
+          opdracht_contract,
+          opdracht_contactpersoon,
+          opdracht_uren,
+          opdracht_correctie,
+          opdracht_materiaal,
+          opdracht_uurtarief,
+          opdracht_kosten
+     FROM (SELECT alg_district_omschrijving,
+                  alg_locatie_code locatie,
+                  alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_key,
+                  og.alg_gebouw_code gebouw,
+                  og.alg_gebouw_naam gebouw_naam,
+                  og.alg_verdieping_code verdieping,
+                  og.alg_ruimte_nr ruimte,
+                  og.alg_ruimte_omschrijving ruimte_omschrijving,
+                  (SELECT k.prs_kostenplaats_nr
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats,
+                  (SELECT k.prs_kostenplaats_omschrijving
+                     FROM prs_kostenplaats k
+                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
+                     kostenplaats_oms,
+                  o.mld_opdr_key,
+                  o.mld_melding_key,
+                  top.mld_typeopdr_key,
+                  top.mld_typeopdr_omschrijving opdracht_type,
+                  o.mld_opdr_bedrijfopdr_volgnr opdracht_volgnummer,
+                  (SELECT mld_statusopdr_omschrijving
+                     FROM mld_statusopdr sta
+                    WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key)
+                     opdracht_status,
+                  fac.count_work_days (o.mld_opdr_datumbegin, o.mld_opdr_einddatum)
+                     opdracht_duur_gepland,
+                  o.mld_opdr_datumbegin opdracht_datum,
+                  o.mld_opdr_einddatum opdracht_einddatum,
+                  o.mld_opdr_plandatum opdracht_plandatum,
+                  mld.getopdrachtstatusdate (o.mld_opdr_key, 6) opdracht_afgemeld,
+                  fac.count_work_days (o.mld_opdr_datumbegin,
+                                       mld.getopdrachtstatusdate (o.mld_opdr_key, 6))
+                     opdracht_doorlooptijd,
+                  o.mld_opdr_omschrijving opdracht_omschrijving,
+                  o.mld_opdr_opmerking opdracht_opmerking,
+                  (SELECT naam
+                     FROM mld_v_uitvoerende u
+                    WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys)
+                     opdracht_uitvoerende,
+                  NULL opdracht_contract,
+                  NULL opdracht_contactpersoon,
+                  o.mld_opdr_uren opdracht_uren,
+                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
+                     opdracht_correctie,
+                  o.mld_opdr_materiaal opdracht_materiaal,
+                  o.mld_opdr_uurloon opdracht_uurtarief,
+                  o.mld_opdr_kosten opdracht_kosten
+             FROM alg_locatie l,
+                  alg_district d,
+                  alg_v_allonrgoed_gegevens og,
+                  mld_opdr o,
+                  mld_typeopdr top,
+                  mld_melding m
+            WHERE     m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                  AND l.alg_district_key = d.alg_district_key(+)
+                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                  AND o.mld_melding_key = m.mld_melding_key
+                  AND o.mld_typeopdr_key = top.mld_typeopdr_key(+)
+                  AND o.mld_opdr_datumbegin >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
+
+-- Noot: SELECT * is een slecht gebruik en leidt tot onoplosbare conflicten
+CREATE_VIEW(mld_v_udr_meldingopdracht, 1)
+AS
+SELECT
+   m.melding_key,
+   m.meldingnummer,
+   m.melding_district,
+   m.melding_locatiecode,
+   m.melding_locatie,
+   m.fclt_3d_locatie_key,
+   m.melding_gebouwcode,
+   m.melding_gebouw,
+   m.melding_verdieping,
+   m.melding_ruimtenr,
+   m.melding_ruimte,
+   m.melding_ordernr,
+   m.kostensoortgroep,
+   m.kostensoort,
+   m.kostenplaats,
+   m.kostenplaats_oms,
+   m.melder,
+   m.afdeling,
+   m.afdeling_omschrijving,
+   m.fclt_3d_afdeling_key,
+   m.bedrijf_key,
+   m.invoerder,
+   m.meldbron,
+   m.soortmelding,
+   m.fclt_3d_discipline_key,
+   m.productgroep,
+   m.subproductgroep,
+   m.behandelgroep,
+   m.behandelaar,
+   m.subproductgroepgroep,
+   m.melding_status,
+   m.sla_nvt,
+   m.sla_werkdgn,
+   m.sla_werkuren,
+   m.sla_respijtdgn,
+   m.sla_respijturen,
+   m.sla_accptdgn,
+   m.sla_accpturen,
+   m.plan_uitvoertijd_sla,
+   m.melding_datum,
+   m.melding_einddatum,
+   m.melding_afgemeld,
+   m.doorlooptijd_werkdgn,
+   m.doorlooptijd_werkuren,
+   m.vomschrijving,
+   m.melding_opmerking,
+   m.rating,
+   m.rating_opmerking,
+   m.bolletje,
+   o.opdracht_key,
+   o.opdracht_nummer,
+   o.opdracht_district,
+   o.opdracht_locatie_code,
+   o.opdracht_locatie,
+   --o.fclt_3d_locatie_key,
+   o.opdracht_gebouwcode,
+   o.opdracht_gebouw,
+   o.opdracht_verdieping,
+   o.opdracht_ruimtenr,
+   o.opdracht_ruimte,
+   o.opdracht_kostenplaats,
+   o.opdracht_kostenplaats_oms,
+   --o.melding_key,
+   o.opdracht_type,
+   o.opdracht_volgnummer,
+   o.opdracht_status,
+   o.opdracht_duur_gepland,
+   o.opdracht_datum,
+   o.opdracht_einddatum,
+   o.opdracht_plandatum,
+   o.opdracht_afgemeld,
+   o.opdracht_doorlooptijd,
+   o.opdracht_omschrijving,
+   o.opdracht_opmerking,
+   o.opdracht_uitvoerende,
+   o.opdracht_contract,
+   o.opdracht_contactpersoon,
+   o.opdracht_uren,
+   o.opdracht_correctie,
+   o.opdracht_materiaal,
+   o.opdracht_uurtarief,
+   o.opdracht_kosten
+ FROM mld_v_udr_melding m, mld_v_udr_opdracht o
+ WHERE m.melding_key = o.melding_key(+);
+
+
+// UDR met kenmerken (1 record per kenmerk, aangevuld met 1 record voor meldingen zonder kenmerk)
+CREATE_VIEW(mld_v_udr_meldingkenmerk, 1)
+AS
+   SELECT m.*,
+          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
+          CASE
+             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+             THEN
+                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)
+             ELSE
+                km.mld_kenmerkmelding_waarde
+          END
+             waarde
+    FROM mld_v_udr_melding m,
+          mld_kenmerkmelding km,
+          mld_kenmerk k,
+          mld_srtkenmerk skm
+    WHERE     km.mld_melding_key(+) = m.melding_key
+          AND km.mld_kenmerkmelding_verwijder IS NULL
+          AND k.mld_kenmerk_verwijder IS NULL
+          AND skm.mld_srtkenmerk_verwijder IS NULL
+          AND km.mld_kenmerk_key = k.mld_kenmerk_key(+)
+          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+
+
+CREATE_VIEW(mld_v_udr_opdrachtkenmerk, 1)
+AS
+   SELECT o.*,
+          lcl.x('skm.mld_srtkenmerk_omschrijving',skm.mld_srtkenmerk_key,mld_srtkenmerk_omschrijving) kenmerk,
+          CASE
+             WHEN skm.mld_srtkenmerk_kenmerktype = 'R' OR skm.mld_srtkenmerk_kenmerktype = 'S'
+             THEN
+                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, ko.mld_kenmerkopdr_waarde)
+             ELSE
+                ko.mld_kenmerkopdr_waarde
+          END
+             waarde
+     FROM mld_v_udr_opdracht o,
+          mld_kenmerkopdr ko,
+          mld_kenmerk k,
+          mld_srtkenmerk skm
+    WHERE     ko.mld_opdr_key(+) = o.opdracht_key
+          AND ko.mld_kenmerkopdr_verwijder IS NULL
+          AND k.mld_kenmerk_verwijder IS NULL
+          AND skm.mld_srtkenmerk_verwijder IS NULL
+          AND ko.mld_kenmerk_key = k.mld_kenmerk_key(+)
+          AND k.mld_srtkenmerk_key = skm.mld_srtkenmerk_key(+);
+
 REGISTERRUN('$Id$')
 #endif  // MLD

MODULES.H

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

PRS/PRS_PAC.SRC

@@ -75,7 +75,7 @@ AS
    FUNCTION getprofiellimiet (pperslidkey IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER;
 
-   FUNCTION getlimietagb (pperslidkey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
+   FUNCTION getlimietagb (pkostenplaatskey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER;
 
    FUNCTION getfiatteur (pkostenplaats_key   IN NUMBER,
@@ -87,14 +87,14 @@ AS
       RETURN NUMBER;
 
    PROCEDURE setpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2);
-   
+
    FUNCTION testpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2)
       RETURN NUMBER;
-   
+
    PROCEDURE upsertkenmerk (p_kenmerk_key IN NUMBER, p_prs_key IN NUMBER, p_waarde IN VARCHAR2);
-   
+
    PROCEDURE movetoruimte (p_prs_key IN NUMBER, p_ruimte_key IN NUMBER, p_alg_type IN VARCHAR2);
-   
+
    PROCEDURE import_perslid (p_import_key IN NUMBER, p_seq_of_columns IN VARCHAR2, p_header IN VARCHAR2);
 
    PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2);
@@ -276,28 +276,18 @@ AS
    END;
 
     -- Levert de limiet (maximaal bestelbedrag) van persoon pperslidkey i.v.m. Afdelings Gebonden Budget (AGB),
-   FUNCTION getlimietagb (pperslidkey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
+   FUNCTION getlimietagb (pkostenplaatskey IN NUMBER, pmethode IN NUMBER, pdisckey IN NUMBER)
       RETURN NUMBER
    IS
       llimiet prs_kostenplaats.prs_kostenplaats_limiet%TYPE;
-      lkpkey prs_perslid.prs_perslid_key%TYPE;
    BEGIN
-      IF pperslidkey IS NULL
+      IF pkostenplaatskey > 0
       THEN
-        RETURN NULL;
-      END IF;
-      -- persoon wordt geacht te bestaan
-      SELECT prs.getkostenplaats(pperslidkey, pmethode, -1)
-        INTO lkpkey
-        FROM DUAL;
-
-      IF lkpkey > 0
-      THEN
-        -- Er is een kostenplaats gevonden
+        -- Er is een kostenplaats meegegeven
         SELECT k.prs_kostenplaats_limiet
           INTO llimiet
           FROM prs_kostenplaats k
-          WHERE k.prs_kostenplaats_key = lkpkey;
+          WHERE k.prs_kostenplaats_key = pkostenplaatskey;
         -- AGB per kostenplaats of catalogus
         IF llimiet IS NULL
         THEN
@@ -305,7 +295,7 @@ AS
             SELECT prs_kostenplaatsdisc_limiet
               INTO llimiet
               FROM prs_kostenplaatsdisc
-             WHERE prs_kostenplaats_key = lkpkey
+             WHERE prs_kostenplaats_key = pkostenplaatskey
                AND ins_discipline_key = pdisckey;
           EXCEPTION
             WHEN NO_DATA_FOUND
@@ -314,6 +304,8 @@ AS
               RETURN NULL;
           END;
         END IF;
+      ELSE
+        RETURN NULL;
       END IF;
 
       RETURN llimiet;
@@ -587,7 +579,7 @@ AS
             END IF;
 
             -- Persoon krijgt wp op de meegegeven ruimte.
-            IF p_ruimte_key IS NOT NULL 
+            IF p_ruimte_key IS NOT NULL
             THEN
                 -- Bepalen vrije werkplek (kan alleen igv expliciete werkplekken).
                 IF fac.getsetting ('prs_werkplek_implicit') = '0'                                --expliciet
@@ -602,7 +594,7 @@ AS
                                              FROM prs_perslidwerkplek pw
                                             WHERE pw.prs_werkplek_key = wp.prs_werkplek_key);
                 END IF;
-    
+
                 IF v_wp_key IS NULL
                 THEN
                     -- Er is geen vrije (kan ook omdat we impliciet zijn), maak dan een nieuwe vrije werkplek.
@@ -615,14 +607,14 @@ AS
                             SELECT   prs_werkplek_volgnr
                               FROM   prs_werkplek
                              WHERE   prs_alg_ruimte_key = p_ruimte_key);
-    
+
                     SELECT alg_ruimte_nr
                       INTO v_ruimte_nr
                       FROM alg_ruimte
                      WHERE alg_ruimte_key = p_ruimte_key;
-    
+
                     v_wp_oms := v_ruimte_nr || '/' || TO_CHAR (v_wp_volgnr);
-    
+
                     -- Toevoegen nieuwe werkplek in meegegeven ruimte.
                     INSERT INTO prs_werkplek (prs_werkplek_volgnr,
                                               prs_werkplek_omschrijving,
@@ -632,7 +624,7 @@ AS
                      RETURNING prs_werkplek_key
                           INTO v_wp_key;
                 END IF;
-    
+
                 -- Koppelen persoon aan de (nieuwe of bestaande) vrije werkplek
                 INSERT INTO prs_perslidwerkplek (prs_perslid_key,
                                                  prs_werkplek_key,
@@ -651,15 +643,15 @@ AS
   --                        v_seq_of_columns ListOfInteger := (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21 .....,46);
   --                        Het getal op een bepaalde postitie geeft aan in welke kolom dit veld in de csv staat
   --                        Voorbeeld: Als de derde waarde een 8 bevat betekent dit dat de verdieping volgnummer in kolom 8 van de csv staat.
-  --                        
+  --
   --                        Dus dan maar via een string, en ook op slimme wijze, nl alsof het een ingelezen perslid-record is met p_fielddelimitor
-  --                        
+  --
   --                        Afwijkingen op deze volgorde zijn in eigen cust_import_perslid te regelen.
-  --                          
+  --
   --                        Als locatiecode en gebouwcode b.v. zijn omgedraaid in het CSV-formaat,
   --                        dan perslid import ListOfInteger := (2,1,3,4,5,6,7,8,9,10,11,12);
   --                        v_seq_of_columns := '2;1;3;4;5;6;7;8;9;10;11;12';
-  --                          
+  --
   --                        Als locatiecode NIET in CSV staat, dan perslid import ListOfInteger := (0,2,3,4,5,6,7,8,9,10,11,12);
   --                        v_seq_of_columns := '0;2;3;4;5;6;7;8;9;10;11;12';
   --                        M.a.w. waar een 0 staat, wordt de variabele niet ingelezen en blijft LEEG.
@@ -693,7 +685,7 @@ AS
   -- v_prs_perslid_nr 20
   -- v_prs_srtperslid_omschrijving 21
   -- v_prs_perslid_oslogin 22
-  -- v_prs_perslid_wachtwoord 23 
+  -- v_prs_perslid_wachtwoord 23
   -- v_prs_perslid_titel 24
   -- v_prs_perslid_apikey 25
   -- v_dummy 26
@@ -736,7 +728,7 @@ AS
      v_header_is_valid               NUMBER (1) := 0;
      oracle_err_num                  NUMBER;
      oracle_err_mes                  VARCHAR2 (200);
-  
+
      -- De importvelden
      v_empty                         VARCHAR2 (100);
      v_alg_locatie_code              VARCHAR2 (256);
@@ -787,13 +779,13 @@ AS
      v_alg_verdieping_volgnr_num     NUMBER;
      v_prs_werkplek_volgnr_num       NUMBER;
      v_prs_perslid_dienstv_num       NUMBER;
-  
+
      v_seq_of_columns                VARCHAR2 (200);
-  
+
      TYPE array_t IS VARRAY (46) OF NUMBER (10);
-  
+
      v_colnr                         array_t := array_t ();
-  
+
      CURSOR c
      IS
           SELECT *
@@ -802,16 +794,16 @@ AS
         ORDER BY fac_imp_file_index;
   BEGIN
      DELETE FROM   fac_imp_perslid;
-     
+
      SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
        INTO v_count
        FROM fac_imp_factuur;
-  
+
      -- Init
      v_fielddelimitor := ';';
      v_seq_of_columns := p_seq_of_columns;
      v_errorhint := 'Bepalen volgorde kolommen';
-  
+
      FOR v_index IN 1 .. 46
      LOOP
         v_colnr.EXTEND;
@@ -820,24 +812,24 @@ AS
                           v_fielddelimitor,
                           v_colnr (v_index));
      END LOOP;
-  
+
      -- Indien geen header check is opgegeven, gaan we niet op zoek naar een geldige header
      IF p_header IS NULL
      THEN
         v_header_is_valid := 1;
      END IF;
-  
+
      FOR rec1 IN c
      LOOP
         BEGIN
            v_errormsg := 'Fout FETCH te importeren rij';
-  
+
            v_newline := rec1.fac_imp_file_line;
            v_errormsg := '';
            v_errorhint := 'Fout opvragen te importeren rij';
            v_aanduiding := '';
            v_ongeldig := 0;
-  
+
            IF v_header_is_valid = 0
            THEN
               IF UPPER (v_newline) LIKE UPPER (p_header)
@@ -1071,14 +1063,14 @@ AS
                                    v_fielddelimitor,
                                    v_colnr (46),
                                    v_prs_kenmerk20);
-  
+
               v_aanduiding :=
                  v_prs_perslid_naam || '|' || v_prs_perslid_voornaam || '| ';
-  
+
               v_count_tot := v_count_tot + 1;
               v_errorhint := 'Ongeldige locatiecode';
               v_alg_locatie_code := TRIM (v_alg_locatie_code);
-  
+
               IF LENGTH (v_alg_locatie_code) > 10
               THEN
                  v_alg_locatie_code := SUBSTR (v_alg_locatie_code, 1, 10);
@@ -1090,11 +1082,11 @@ AS
                     || v_alg_locatie_code
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige gebouw code';
               v_alg_gebouw_code := TRIM (v_alg_gebouw_code);
-  
+
               IF LENGTH (v_alg_gebouw_code) > 12
               THEN
                  v_alg_gebouw_code := SUBSTR (v_alg_gebouw_code, 1, 12);
@@ -1106,11 +1098,11 @@ AS
                     || v_alg_gebouw_code
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig verdieping volgnummer';
               v_alg_verdieping_volgnr := TRIM (v_alg_verdieping_volgnr);
-  
+
               IF (v_alg_verdieping_volgnr IS NULL)
               THEN
                  v_alg_verdieping_volgnr_num :=
@@ -1133,11 +1125,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige ruimte nr';
               v_alg_ruimte_nr := TRIM (v_alg_ruimte_nr);
-  
+
               IF LENGTH (v_alg_ruimte_nr) > 10
               THEN
                  v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
@@ -1149,11 +1141,11 @@ AS
                     || v_alg_ruimte_nr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig werkplek volgnummer';
               v_prs_werkplek_volgnr := TRIM (v_prs_werkplek_volgnr);
-  
+
               IF (v_prs_werkplek_volgnr IS NULL)
               THEN
                  v_prs_werkplek_volgnr_num := TO_NUMBER (v_prs_werkplek_volgnr);
@@ -1175,11 +1167,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige werkplek omschrijving';
               v_prs_werkplek_omschrijving := TRIM (v_prs_werkplek_omschrijving);
-  
+
               IF LENGTH (v_prs_werkplek_omschrijving) > 30
               THEN
                  v_prs_werkplek_omschrijving :=
@@ -1192,14 +1184,14 @@ AS
                     || v_prs_werkplek_omschrijving
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige afdelingscode';
               v_prs_afdeling_naam := TRIM (v_prs_afdeling_naam);
-  
-              IF LENGTH (v_prs_afdeling_naam) > 10
+
+              IF LENGTH (v_prs_afdeling_naam) > 15
               THEN
-                 v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 10);
+                 v_prs_afdeling_naam := SUBSTR (v_prs_afdeling_naam, 1, 15);
                  fac.imp_writelog (
                     p_import_key,
                     'W',
@@ -1217,11 +1209,11 @@ AS
                                       'Afdelingscode moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige naam persoon';
               v_prs_perslid_naam := TRIM (v_prs_perslid_naam);
-  
+
               IF LENGTH (v_prs_perslid_naam) > 60
               THEN
                  v_prs_perslid_naam := SUBSTR (v_prs_perslid_naam, 1, 60);
@@ -1242,11 +1234,11 @@ AS
                                       'Naam persoon moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige tussenvoegsel persoon';
               v_prs_perslid_tussenvoegsel := TRIM (v_prs_perslid_tussenvoegsel);
-  
+
               IF LENGTH (v_prs_perslid_tussenvoegsel) > 10
               THEN
                  v_prs_perslid_tussenvoegsel :=
@@ -1259,11 +1251,11 @@ AS
                     || v_prs_perslid_tussenvoegsel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige voorletters persoon';
               v_prs_perslid_voorletters := TRIM (v_prs_perslid_voorletters);
-  
+
               IF LENGTH (v_prs_perslid_voorletters) > 15
               THEN
                  v_prs_perslid_voorletters :=
@@ -1276,11 +1268,11 @@ AS
                     || v_prs_perslid_voorletters
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Voornaam persoon';
               v_prs_perslid_voornaam := TRIM (v_prs_perslid_voornaam);
-  
+
               IF LENGTH (v_prs_perslid_voornaam) > 30
               THEN
                  v_prs_perslid_voornaam :=
@@ -1293,10 +1285,10 @@ AS
                     || v_prs_perslid_voornaam
                     || ']');
               END IF;
-  
+
               v_errorhint := 'Ongeldige partnernaam persoon';
               v_prs_perslid_partner_naam := TRIM (v_prs_perslid_partner_naam);
-  
+
               --
               IF LENGTH (v_prs_perslid_partner_naam) > 60
               THEN
@@ -1309,11 +1301,11 @@ AS
                     || v_prs_perslid_partner_naam
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige tussenvoegsel partner';
               v_prs_perslid_partner_tussenv := TRIM (v_prs_perslid_partner_tussenv);
-  
+
               IF LENGTH (v_prs_perslid_partner_tussenv) > 10
               THEN
                  v_prs_perslid_partner_tussenv :=
@@ -1326,11 +1318,11 @@ AS
                     || v_prs_perslid_partner_tussenv
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig geslacht';
               v_prs_perslid_geslacht := TRIM (v_prs_perslid_geslacht);
-  
+
               IF LENGTH (v_prs_perslid_geslacht) > 1
               THEN
                  SELECT DECODE(UPPER(v_prs_perslid_geslacht), 'MAN', '1', 'VROUW', '0', NULL)
@@ -1344,11 +1336,11 @@ AS
                       FROM DUAL;
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldig dienstverband';
               v_prs_perslid_dienstverband := TRIM (v_prs_perslid_dienstverband);
-  
+
               IF (v_prs_perslid_dienstverband IS NOT NULL)
               THEN
                  BEGIN
@@ -1368,11 +1360,11 @@ AS
                                          v_errorhint);
                  END;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige titel persoon';
               v_prs_perslid_titel := TRIM (v_prs_perslid_titel);
-  
+
               IF LENGTH (v_prs_perslid_titel) > 15
               THEN
                  v_prs_perslid_titel := SUBSTR (v_prs_perslid_titel, 1, 15);
@@ -1384,11 +1376,11 @@ AS
                     || v_prs_perslid_titel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige telefoonnr. persoon';
               v_prs_perslid_telefoonnr := TRIM (v_prs_perslid_telefoonnr);
-  
+
               IF LENGTH (v_prs_perslid_telefoonnr) > 15
               THEN
                  v_prs_perslid_telefoonnr :=
@@ -1401,11 +1393,11 @@ AS
                     || v_prs_perslid_telefoonnr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige mobielnr. persoon';
               v_prs_perslid_mobiel := TRIM (v_prs_perslid_mobiel);
-  
+
               IF LENGTH (v_prs_perslid_mobiel) > 15
               THEN
                  v_prs_perslid_mobiel := SUBSTR (v_prs_perslid_mobiel, 1, 15);
@@ -1417,11 +1409,11 @@ AS
                     || v_prs_perslid_mobiel
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige email persoon';
               v_prs_perslid_email := TRIM (v_prs_perslid_email);
-  
+
               IF LENGTH (v_prs_perslid_email) > 200
               THEN
                  v_prs_perslid_email := SUBSTR (v_prs_perslid_email, 1, 200);
@@ -1433,12 +1425,12 @@ AS
                     || v_prs_perslid_email
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige functie persoon';
               v_prs_srtperslid_omschrijving :=
                  TRIM (v_prs_srtperslid_omschrijving);
-  
+
               IF LENGTH (v_prs_srtperslid_omschrijving) > 60
               THEN
                  v_prs_srtperslid_omschrijving :=
@@ -1461,11 +1453,11 @@ AS
                        'Functie persoon moet worden opgegeven');
                  END IF;
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige persoonnr.';
               v_prs_perslid_nr := TRIM (v_prs_perslid_nr);
-  
+
               IF LENGTH (v_prs_perslid_nr) > 16
               THEN
                  v_prs_perslid_nr := SUBSTR (v_prs_perslid_nr, 1, 16);
@@ -1477,11 +1469,11 @@ AS
                     || v_prs_perslid_nr
                     || ']');
               END IF;
-  
+
               --
               v_errorhint := 'Ongeldige loginnaam';
               v_prs_perslid_oslogin := TRIM (v_prs_perslid_oslogin);
-  
+
               IF LENGTH (v_prs_perslid_oslogin) > 30
               THEN
                  v_prs_perslid_oslogin := SUBSTR (v_prs_perslid_oslogin, 1, 30);
@@ -1493,10 +1485,10 @@ AS
                     || v_prs_perslid_oslogin
                     || ']');
               END IF;
-              
+
               v_errorhint := 'Ongeldig wachtwoord';
-              v_prs_perslid_wachtwoord := TRIM (v_prs_perslid_wachtwoord);  
-  
+              v_prs_perslid_wachtwoord := TRIM (v_prs_perslid_wachtwoord);
+
               --
               -- Insert geformatteerde import record
               IF v_ongeldig = 0
@@ -1506,7 +1498,7 @@ AS
                        'Fout bij toevoegen te impoteren bedrijf/afdeling ['
                     || v_prs_afdeling_naam
                     || ']';
-  
+
                  INSERT INTO fac_imp_perslid (alg_locatie_code,
                                               alg_gebouw_code,
                                               alg_verdieping_volgnr,
@@ -1521,7 +1513,7 @@ AS
                                               prs_perslid_partner_naam,
                                               prs_perslid_partner_tussenv,
                                               prs_perslid_naamgebruik_code,
-                                              prs_perslid_geslacht,                                                
+                                              prs_perslid_geslacht,
                                               prs_perslid_telefoonnr,
                                               prs_perslid_mobiel,
                                               prs_perslid_email,
@@ -1601,13 +1593,13 @@ AS
                              v_prs_kenmerk20,
                              rec1.fac_import_key,
                              rec1.fac_imp_file_index);
-  
+
                  v_count_import := v_count_import + 1;
               END IF;
            END IF;
         END;
      END LOOP;
-  
+
      IF v_header_is_valid = 0
      THEN
         fac.imp_writelog (p_import_key,
@@ -1627,7 +1619,7 @@ AS
            || TO_CHAR (v_count_tot - v_count_import),
            '');
      END IF;
-  
+
      COMMIT;
   EXCEPTION
      WHEN OTHERS
@@ -1676,7 +1668,7 @@ AS
      v_srtperslid_key   NUMBER (10);
      v_prs_perslid_naam VARCHAR2(200);
      v_prs_perslid_tussenvoegsel VARCHAR2(200);
-     
+
      v_locatie_key      NUMBER (10);
      v_gebouw_key       NUMBER (10);
      v_verdieping_key   NUMBER (10);
@@ -1805,12 +1797,12 @@ AS
 
            v_space := '';
            -- kijk hoe we met partnernamen moeten omgaan:
-           IF recPersLid.prs_perslid_naamgebruik_code = 0 
+           IF recPersLid.prs_perslid_naamgebruik_code = 0
            THEN
               -- normaal gebruik van naam. Eigen naam wordt gebruikt
               v_prs_perslid_naam := recPersLid.prs_perslid_naam;
               v_prs_perslid_tussenvoegsel := recPersLid.prs_perslid_tussenvoegsel;
-           ELSIF recPersLid.prs_perslid_naamgebruik_code = 1 
+           ELSIF recPersLid.prs_perslid_naamgebruik_code = 1
            THEN
               -- personen die de geboortenaam van de partner icm de eigen naam willen gebruiken
               IF recPersLid.prs_perslid_tussenvoegsel IS NOT NULL
@@ -1824,7 +1816,7 @@ AS
               -- personen die de geboortenaam van de partner willen gebruiken
               v_prs_perslid_naam := recPersLid.prs_perslid_partner_naam;
               v_prs_perslid_tussenvoegsel := recPersLid.prs_perslid_partner_tussenv;
-           ELSIF recPersLid.prs_perslid_naamgebruik_code = 3 
+           ELSIF recPersLid.prs_perslid_naamgebruik_code = 3
            THEN
               -- personen die de eigen naam icm de geboortenaam van de partner willen gebruiken
               IF recPersLid.prs_perslid_partner_tussenv IS NOT NULL
@@ -1836,7 +1828,7 @@ AS
            END IF;
 
            IF length(v_prs_perslid_naam) > 60
-           THEN 
+           THEN
               v_prs_perslid_naam := SUBSTR(v_prs_perslid_naam, 1,60);
               fac.imp_writelog (
                    p_import_key,
@@ -1949,7 +1941,7 @@ AS
               SET prs_perslid_key = v_perslid_key
             WHERE fac_import_key = recPersLid.fac_import_key
                AND fac_imp_file_index = recPersLid.fac_imp_file_index;
-           
+
            COMMIT;                      -- persoon in ieder geval toegevoegd.
 
            v_aanduiding :=
@@ -2002,7 +1994,7 @@ AS
                     AND r.alg_verdieping_key = v_verdieping_key;
 
            -- standaard ruimte moet door cust gedeelte van deFout bij bepalen beoogde ruimte import ingevuld worden.
-           
+
            -- als er een locatie ingevuld is willen we ook een ruimte vinden.
            IF v_ruimte_key IS NULL AND recPersLid.alg_locatie_code IS NOT NULL
            THEN
@@ -2010,8 +2002,8 @@ AS
                                 'W',
                                 v_aanduiding || ' Ruimte kan niet gevonden worden',
                                 'Controleer locatie,gebouw en verdieping');
-           END IF;            
-           
+           END IF;
+
            -- fouten bij het bepalen van de werkplek worden als waarschuwing weergegeven.
            BEGIN
                v_errorhint := 'Fout bij het aanpassen van de werkplek';
@@ -2024,7 +2016,7 @@ AS
               v_errormsg := ' (ORACLE error number = <' || ORACLE_err_num || '> ORACLE error message = <' || ORACLE_err_mes || '>)';
               fac.imp_writelog (p_import_key, 'W', v_aanduiding || v_errormsg, v_errorhint);
            END;
-           
+
         EXCEPTION WHEN OTHERS
         THEN
            v_count_error := v_count_error + 1;

PRS/PRS_TAB.SRC

@@ -16,7 +16,7 @@ CREATE_TABLE(prs_bedrijf,0)
         VARCHAR2(60)
         NOT_NULL(prs_bedrijf_naam_upper, prs_c_prs_bedrijf_naam_upper),
     prs_bedrijf_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_post_postcode
         VARCHAR2(12),
     prs_bedrijf_post_plaats
@@ -24,7 +24,7 @@ CREATE_TABLE(prs_bedrijf,0)
     prs_bedrijf_post_land
         VARCHAR2(30),
     prs_bedrijf_bezoek_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     prs_bedrijf_bezoek_postcode
         VARCHAR2(12),
     prs_bedrijf_bezoek_plaats
@@ -114,14 +114,11 @@ CREATE_TABLE(prs_bedrijf,0)
         NUMBER(8,6)
         DEFAULT 1,
         CONSTRAINT prs_u_prs_bedrijf_naam_upper UNIQUE(prs_bedrijf_naam_upper, prs_bedrijf_verwijder),
-    prs_bedrijf_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT prs_c_prs_bedrijf_uitvoertijd CHECK(prs_bedrijf_uitvoertijd >= 0), /* of null */
     prs_bedrijf_t_uitvoertijd
         MLD_T_UITVOERTIJD
-        DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
         CONSTRAINT prs_c_prs_bedrijf_t_uitvtijd CHECK(prs_bedrijf_t_uitvoertijd.tijdsduur >= 0) /* of null */
 );
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 ALTER TABLE ins_srtdeel
 ADD
@@ -174,8 +171,8 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
     prs_bedrijfadres_attachfile
         VARCHAR2(256),
     prs_bedrijfadres_flexfiles /* 0=default (volgens S("puo_order_flexfiles")), 1=wel, 2=niet */
-        NUMBER(3) 
-        DEFAULT 0 
+        NUMBER(3)
+        DEFAULT 0
         NOT NULL
 );
 
@@ -229,6 +226,11 @@ CREATE_TABLE(prs_kostenplaats,0) (
    prs_kostenplaats_extern -- 0=intern, 1=extern (gebruikt bij prijsberekeningen)
        NUMBER(1)
        DEFAULT 0,
+   prs_kostenplaats_fiat -- 0=geen, 1=wel fiattering
+       NUMBER(1)
+       DEFAULT 1
+       CONSTRAINT prs_c_prs_kostenplaat_fiat CHECK(prs_kostenplaats_fiat IS NOT NULL)
+       CONSTRAINT prs_c_prs_kostenplaat_fiat1 CHECK(prs_kostenplaats_fiat IN (0,1)),
 CONSTRAINT prs_u_prs_kostenplaats_upper UNIQUE(prs_kostenplaats_upper, prs_kostenplaats_verwijder)
 );
 
@@ -279,10 +281,10 @@ CREATE_TABLE(prs_afdeling,0)
         NUMBER(10)
         CONSTRAINT prs_r_prs_afdeling_parentkey REFERENCES prs_afdeling(prs_afdeling_key),
     prs_afdeling_naam
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_naam, prs_c_prs_afdeling_naam),
     prs_afdeling_upper
-        VARCHAR2(10)
+        VARCHAR2(15)
         NOT_NULL(prs_afdeling_upper, prs_c_prs_afdeling_upper),
     prs_afdeling_omschrijving
         VARCHAR2(60),
@@ -585,6 +587,16 @@ ALTER TABLE fac_qvw_ticket ADD (
         NUMBER(10)
         CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
+ALTER TABLE fac_usrrap ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+ALTER TABLE fac_gui_counter ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
 ALTER TABLE alg_gebouw ADD
 (
     prs_perslid_key_verantw
@@ -612,6 +624,12 @@ ALTER TABLE fac_import ADD
      CONSTRAINT fac_r_prs_perslid_key5 REFERENCES prs_perslid(prs_perslid_key)
 );
 
+ALTER TABLE ins_deel
+ADD
+(    prs_perslid_key_beh
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key)
+);
 /* Dat iemand ooit geinspecteerd heeft is geen reden om die niet te mogen verwijderen
    en de inspectie blijft evenzogoed als je niet meer weet wie het gedaan heeft,
    vandaar on delete set null */
@@ -769,6 +787,7 @@ CREATE_TABLE(prs_kenmerk,0)
         NUMBER(1)
     ,prs_kenmerk_groep
         NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,prs_kenmerk_lengte
         NUMBER(4)
     ,prs_kenmerk_dec
@@ -929,7 +948,9 @@ CREATE_TABLE(prs_kostensoortgrp,0) (
        NUMBER (10) PRIMARY KEY,
    prs_kostensoortgrp_oms
        VARCHAR2(60)
-       NOT NULL
+       NOT NULL,
+   prs_kostensoortgrp_altcode
+       VARCHAR2(60)
 );
 
 CREATE_TABLE(prs_kostensoort,0) (
@@ -957,7 +978,9 @@ CREATE_TABLE(prs_kostensoort,0) (
        NUMBER(10)
        CONSTRAINT prs_r_prs_kostensoortgrp_key REFERENCES prs_kostensoortgrp(prs_kostensoortgrp_key) ON DELETE SET NULL,
    prs_kostensoort_aanmaak
-       DATE DEFAULT SYSDATE
+       DATE DEFAULT SYSDATE,
+   prs_kostensoort_altcode
+       VARCHAR2(60)
 );
 
 ALTER TABLE ins_tab_discipline ADD

PRS/PRS_VIE.SRC

@@ -1046,7 +1046,7 @@ AS
    UNION ALL
    SELECT a.bez_afspraak_host_key,
           'PRS_AFSPRAAK_H',
-          TO_CHAR (a.bez_afspraak_datum),
+          TO_CHAR (a.bez_afspraak_datum, 'DD-MM-YYYY HH24:MI'),
           a.bez_afspraak_key,
           a.alg_locatie_key,
           'afspraak'
@@ -1055,7 +1055,7 @@ AS
    UNION ALL
    SELECT a.bez_afspraak_contact_key,
           'PRS_AFSPRAAK_C',
-          TO_CHAR (a.bez_afspraak_datum),
+          TO_CHAR (a.bez_afspraak_datum, 'DD-MM-YYYY HH24:MI'),
           a.bez_afspraak_key,
           a.alg_locatie_key,
           'afspraak'
@@ -1080,14 +1080,45 @@ AS
    UNION ALL
    SELECT c.prs_perslid_key_beh,
           'CNT_CONTRACT_BEH',
-          cnt_contract_nummer_intern,
+          cnt_contract_nummer_intern ||
+            CASE
+            WHEN c.cnt_contract_versie IS NOT NULL
+            THEN '.' || c.cnt_contract_versie
+            ELSE ''
+            END,
           c.cnt_contract_key,
           NULL,
           'contract'
      FROM cnt_contract c
     WHERE cnt_contract_verwijder IS NULL
       AND cnt_contract_status = 0 /* actief */
-      AND cnt_contract_looptijd_tot > SYSDATE;
+      AND cnt_contract_looptijd_tot > SYSDATE
+  UNION ALL
+  SELECT c.cnt_prs_perslid_key,
+         'CNT_CONTRACT_PARTIJ',
+          cnt_contract_nummer_intern ||
+            CASE
+            WHEN c.cnt_contract_versie IS NOT NULL
+            THEN '.' || c.cnt_contract_versie
+            ELSE ''
+            END,
+         c.cnt_contract_key,
+         NULL,
+         'contract'
+    FROM cnt_contract c
+   WHERE cnt_contract_verwijder IS NULL
+     AND cnt_contract_status = 0 /* actief */
+     AND cnt_contract_looptijd_tot > SYSDATE
+     AND c.cnt_prs_perslid_key IS NOT NULL
+  UNION ALL
+  SELECT d.prs_perslid_key_beh,
+         'PRS_BEHEERT_OBJECT',
+          ins_deel_omschrijving,
+          ins_deel_key,
+          d.ins_alg_locatie_key,
+          'deel'
+     FROM ins_v_aanwezigdeel d;
+
 
 -- Dezelfde view voor afdelingen
 CREATE_VIEW(prs_v_afd_verplichting, 0)
@@ -1231,7 +1262,10 @@ AS
    UNION ALL
    SELECT ins_alg_ruimte_key
      FROM ins_deel d
-    WHERE d.ins_alg_ruimte_type = 'P';
+    WHERE d.ins_alg_ruimte_type = 'P'
+   UNION ALL
+   SELECT prs_perslid_key_beh
+     FROM ins_deel d;
 
 -- Genuanceeerdere versie van de voorgaande, te gebruiken voor existentie:
 -- kom een perslid_key hierin voor, dan heeft die een actuele verplichting
@@ -1260,6 +1294,9 @@ AS
       AND ID.ins_discipline_key = d.ins_discipline_key
       AND ID.ins_discipline_min_level <> 3
    UNION ALL
+   SELECT prs_perslid_key_beh, ins_deel_key
+     FROM ins_v_aanwezigdeel d
+   UNION ALL
    SELECT rr.res_rsv_ruimte_host_key, r.res_reservering_key
      FROM res_v_aanwezigreservering r, res_v_aanwezigrsv_ruimte rr
     WHERE r.res_reservering_key = rr.res_reservering_key

RES/RES_INI.SRC

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

RES/RES_PAC.SRC

@@ -25,9 +25,8 @@ CREATE OR REPLACE PACKAGE res AS
    PROCEDURE follow_artikel (prsv_ruimte_key IN NUMBER, oldvan IN DATE, oldtot IN DATE);
    PROCEDURE follow_deel (prsv_ruimte_key IN NUMBER, oldvan IN DATE, oldtot IN DATE);
    PROCEDURE follow_afspraak (prsv_ruimte_key IN NUMBER, pres_copy_to_bez IN NUMBER);
-   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
-   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, palg_ruimte_key IN NUMBER)  RETURN BOOLEAN;
-   FUNCTION getalg_ruimte_key (pres_rsv_ruimte_key IN NUMBER)  RETURN NUMBER;
+   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)  RETURN BOOLEAN;
+   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)  RETURN BOOLEAN;
    FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)  RETURN NUMBER;
    FUNCTION getdeelprijs (pres_rsv_deel_key IN NUMBER)  RETURN NUMBER;
    FUNCTION getartikelprijs (pres_rsv_artikel_key IN NUMBER)  RETURN NUMBER;
@@ -72,6 +71,7 @@ AS
       nextvolg res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
       nextkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
       destatus res_rsv_ruimte.res_status_bo_key%TYPE;
+      fo_status res_rsv_ruimte.res_status_fo_key%TYPE;
    BEGIN
       SELECT   res_s_res_rsv_ruimte_key.NEXTVAL INTO nextkey FROM DUAL;
       SELECT   MAX (a.res_rsv_ruimte_volgnr) + 1, MAX(a.res_status_bo_key)
@@ -83,6 +83,18 @@ AS
       IF destatus IS NOT NULL THEN
         destatus :=  2;
       END IF;
+
+      -- Als de fo status van de res_ruimte NULL is of het is geen ruimtereservering,
+      -- neem dan de waarde van de setting "res_default_fo_status_key".
+      SELECT COALESCE(rr.res_status_fo_key, fac.safe_to_number (fac.getsetting ('res_default_fo_status_key')))
+        INTO fo_status
+        FROM res_rsv_ruimte rrr,
+             res_ruimte_opstelling rro,
+             res_ruimte rr
+       WHERE rrr.res_ruimte_opstel_key = rro.res_ruimte_opstel_key(+)
+         AND rro.res_ruimte_key = rr.res_ruimte_key(+)
+         AND rrr.res_rsv_ruimte_key = prsv_ruimte_key;
+
       INSERT INTO res_rsv_ruimte (res_rsv_ruimte_key, res_reservering_key, res_rsv_ruimte_volgnr, res_rsv_ruimte_omschrijving, res_rsv_ruimte_opmerking,
                                   alg_ruimte_key, res_ruimte_opstel_key, res_rsv_ruimte_van, res_rsv_ruimte_tot, prs_kostenplaats_key, res_rsv_ruimte_host_key,
                                   res_activiteit_key, res_status_fo_key, res_status_bo_key, res_rsv_ruimte_kosten_klant, res_rsv_ruimte_contact_key,
@@ -100,7 +112,7 @@ AS
                   prs_kostenplaats_key,
                   res_rsv_ruimte_host_key,
                   res_activiteit_key,
-                  res_status_fo_key,
+                  fo_status,
                   destatus,
                   res_rsv_ruimte_kosten_klant,
                   res_rsv_ruimte_contact_key,
@@ -566,8 +578,8 @@ AS
 
       RETURN dirtlevel;
    END;
-   -- Mag dit res_deel in deze alg_ruimte_key gereserveerd worden
-   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, palg_ruimte_key IN NUMBER)
+   -- Mag dit res_deel in de (koppel)ruimte van de reservering gereserveerd worden
+   FUNCTION res_deel_in_scope (pres_deel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)
       RETURN BOOLEAN IS
    result BOOLEAN;
    n_inscope INTEGER;
@@ -576,18 +588,25 @@ AS
         INTO n_inscope
         FROM   ins_deel d,
                res_v_aanwezigdeel r,
-               (SELECT   d.alg_regio_key,
-                         l.alg_district_key,
-                         l.alg_locatie_key,
-                         g.alg_gebouw_key,
-                         v.alg_verdieping_key,
-                         r.alg_ruimte_key
-                  FROM   alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v, alg_ruimte r
-                 WHERE       r.alg_ruimte_key = palg_ruimte_key
-                         AND r.alg_verdieping_key = v.alg_verdieping_key
-                         AND v.alg_gebouw_key = g.alg_gebouw_key
-                         AND g.alg_locatie_key = l.alg_locatie_key
-                         AND l.alg_district_key = d.alg_district_key) scope,
+               (SELECT d.alg_regio_key,
+                       l.alg_district_key,
+                       l.alg_locatie_key,
+                       g.alg_gebouw_key,
+                       v.alg_verdieping_key,
+                       r.alg_ruimte_key
+                  FROM alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v, alg_ruimte r
+                 WHERE r.alg_ruimte_key IN (SELECT COALESCE(rr.alg_ruimte_key, ra.alg_ruimte_key) alg_ruimte_key
+                                              FROM res_rsv_ruimte rr,
+                                                   res_ruimte_opstelling ro,
+                                                   res_alg_ruimte ra
+                                             WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                                               AND ro.res_ruimte_key = ra.res_ruimte_key(+)
+                                               AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key
+                                               AND ra.res_alg_ruimte_verwijder IS NULL) -- Het kan ook een koppelruimte zijn die uit meerdere ruimten bestaat
+                   AND r.alg_verdieping_key = v.alg_verdieping_key
+                   AND v.alg_gebouw_key = g.alg_gebouw_key
+                   AND g.alg_locatie_key = l.alg_locatie_key
+                   AND l.alg_district_key = d.alg_district_key) scope,
                res_v_deelscope ds,
                res_v_aanwezigdiscipline r_disc
        WHERE       r.res_discipline_key = r_disc.ins_discipline_key
@@ -603,7 +622,7 @@ AS
                     OR ds.alg_ruimte_key = scope.alg_ruimte_key
                     OR ds.res_deel_alg_level = -1)
                AND r.res_deel_key = ds.res_deel_key;
-      DBMS_OUTPUT.put_line ('res_deel_in_scope('  ||  pres_deel_key  ||  ','  ||  palg_ruimte_key  ||  ') -->' || n_inscope);
+      DBMS_OUTPUT.put_line ('res_deel_in_scope('  ||  pres_deel_key  ||  ','  ||  pres_rsv_ruimte_key  ||  ') -->' || n_inscope);
       RETURN n_inscope > 0;
    END;
    -- Moeten wijzelf misschien dirty worden
@@ -615,6 +634,7 @@ AS
       preposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
       lres_deel_key res_rsv_deel.res_deel_key%TYPE;
       lres_ins_deel_key res_deel.res_ins_deel_key%TYPE;
+      lres_deel_vervaldatum res_deel.res_deel_vervaldatum%TYPE;
       lrsv_ruimte_key res_rsv_deel.res_rsv_ruimte_key%TYPE;
       lrsv_deel_key res_rsv_deel.res_rsv_deel_key%TYPE;
       lrsv_deel_van res_rsv_deel.res_rsv_deel_van%TYPE;
@@ -627,6 +647,7 @@ AS
       BEGIN
           SELECT   d.res_deel_key,
                    rd.res_ins_deel_key,
+                   rd.res_deel_vervaldatum,
                    d.res_rsv_ruimte_key,
                    res_rsv_deel_key,
                    res_rsv_deel_van,
@@ -635,21 +656,32 @@ AS
                    r.res_rsv_ruimte_tot,
                    res_rsv_deel_verwijder,
                    res_disc_params_preposttime / 24
-            INTO lres_deel_key,lres_ins_deel_key,lrsv_ruimte_key,lrsv_deel_key,lrsv_deel_van,lrsv_deel_tot,
-                    lruimtevan,lruimtetot,lres_rsv_deel_verwijder,
-                    preposttime
-            FROM   res_rsv_deel d, res_rsv_ruimte r, res_deel rd, res_disc_params dp
-           WHERE       d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
-                   AND res_rsv_deel_key = prsv_deel_key
-                   AND d.res_deel_key = rd.res_deel_key
-                   AND rd.res_discipline_key = dp.res_ins_discipline_key;
+            INTO   lres_deel_key,
+                   lres_ins_deel_key,
+                   lres_deel_vervaldatum,
+                   lrsv_ruimte_key,
+                   lrsv_deel_key,
+                   lrsv_deel_van,
+                   lrsv_deel_tot,
+                   lruimtevan,lruimtetot,
+                   lres_rsv_deel_verwijder,
+                   preposttime
+            FROM   res_rsv_deel d,
+                   res_rsv_ruimte r,
+                   res_deel rd,
+                   res_disc_params dp
+           WHERE   d.res_rsv_ruimte_key = r.res_rsv_ruimte_key
+             AND   res_rsv_deel_key = prsv_deel_key
+             AND   d.res_deel_key = rd.res_deel_key
+             AND   rd.res_discipline_key = dp.res_ins_discipline_key;
       END;
       -- 1 Minuut marge voor afrondfouten
       IF preposttime > 1/24/60 THEN
           preposttime := preposttime - 1/24/60;
       END IF;
       newdirtlevel :=  0;                                                                                -- Begin 'Clean'
-      IF lres_rsv_deel_verwijder IS NULL THEN
+      IF lres_rsv_deel_verwijder IS NULL
+      THEN
           -- Oke, hoeveel overlappende res_deel hebben we nu
 
           SELECT   COUNT (DISTINCT res_rsv_deel_key)
@@ -669,9 +701,10 @@ AS
           THEN
              newdirtlevel :=  512;                                                                                 -- Overlap
           END IF;
-          IF NOT res_deel_in_scope (lres_deel_key, getalg_ruimte_key (lrsv_ruimte_key))
+          IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
+             lres_deel_vervaldatum <= lrsv_deel_tot
           THEN
-             newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope
+             newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope/Not Allowed
           END IF;
           IF (lrsv_deel_van < lruimtevan OR lrsv_deel_tot > lruimtetot)
           THEN
@@ -714,39 +747,50 @@ AS
       -- TODO: Alle ruimtes met Dirty-bitje bekijken
       end loop;
    END;
-   -- Mag dit res_dartikel in deze alg_ruimte_key gereserveerd worden
-   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, palg_ruimte_key IN NUMBER)
+   -- Mag dit res_dartikel in de (koppel)ruimte van de reservering gereserveerd worden
+   FUNCTION res_artikel_in_scope (pres_artikel_key IN NUMBER, pres_rsv_ruimte_key IN NUMBER)
       RETURN BOOLEAN IS
    result BOOLEAN;
    n_inscope INTEGER;
    BEGIN
-      DBMS_OUTPUT.put_line ('res_artikel_in_scope('  ||  pres_artikel_key  ||  ','  ||  palg_ruimte_key  ||  ')');
+      DBMS_OUTPUT.put_line ('res_artikel_in_scope('  ||  pres_artikel_key  ||  ','  ||  pres_rsv_ruimte_key  ||  ')');
       SELECT   COUNT ( * )
         INTO n_inscope
         FROM   res_v_alg_ruimte_gegevens rg, res_v_aanwezigartikel a
        WHERE       rg.alg_ruimte_key IS NOT NULL
                AND res_artikel_key = pres_artikel_key
-               AND rg.alg_ruimte_key = palg_ruimte_key
+               AND rg.alg_ruimte_key IN (SELECT COALESCE(rr.alg_ruimte_key, ra.alg_ruimte_key) alg_ruimte_key
+                                           FROM res_rsv_ruimte rr,
+                                                res_ruimte_opstelling ro,
+                                                res_alg_ruimte ra
+                                          WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                                            AND ro.res_ruimte_key = ra.res_ruimte_key(+)
+                                            AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key
+                                            AND ra.res_alg_ruimte_verwijder IS NULL) -- Het kan ook een koppelruimte zijn die uit meerdere ruimten bestaat
                AND (rg.alg_locatie_key IN
-                          (SELECT   DISTINCT sao.alg_onrgoed_key
-                             FROM   res_srtartikel_onrgoed sao
-                            WHERE   a.res_discipline_key = sao.res_discipline_key
-                                    AND alg_onrgoed_niveau = 'L')
+                            (SELECT   DISTINCT sao.alg_onrgoed_key
+                               FROM   res_srtartikel_onrgoed sao
+                              WHERE   a.res_discipline_key = sao.res_discipline_key
+                                AND   sao.res_srtartikel_og_verwijder IS NULL
+                                AND   alg_onrgoed_niveau = 'L')
                     OR rg.alg_gebouw_key IN
                             (SELECT   DISTINCT sao.alg_onrgoed_key
                                FROM   res_srtartikel_onrgoed sao
                               WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'G')
+                                AND   sao.res_srtartikel_og_verwijder IS NULL
+                                AND   alg_onrgoed_niveau = 'G')
                     OR rg.alg_verdieping_key IN
                             (SELECT   DISTINCT sao.alg_onrgoed_key
                                FROM   res_srtartikel_onrgoed sao
                               WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'V')
+                                AND   sao.res_srtartikel_og_verwijder IS NULL
+                                AND   alg_onrgoed_niveau = 'V')
                     OR rg.alg_ruimte_key IN
                             (SELECT   DISTINCT sao.alg_onrgoed_key
                                FROM   res_srtartikel_onrgoed sao
                               WHERE   a.res_discipline_key = sao.res_discipline_key
-                                      AND alg_onrgoed_niveau = 'R'));
+                                AND   sao.res_srtartikel_og_verwijder IS NULL
+                                AND   alg_onrgoed_niveau = 'R'));
       RETURN n_inscope > 0;
    END;
    -- Moeten wijzelf misschien dirty worden
@@ -766,7 +810,7 @@ AS
       FETCH prsv_artikelcur INTO   prsv_artikel;
       newdirtlevel :=  0;                                                                                -- Begin 'Clean'
       IF prsv_artikel.res_rsv_artikel_verwijder IS NULL
-        AND NOT res_artikel_in_scope (prsv_artikel.res_artikel_key, getalg_ruimte_key (prsv_artikel.res_rsv_ruimte_key))
+        AND NOT res_artikel_in_scope (prsv_artikel.res_artikel_key, prsv_artikel.res_rsv_ruimte_key)
       THEN
          newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope
       END IF;
@@ -911,14 +955,22 @@ AS
          FROM   res_rsv_ruimte rr
         WHERE   rr.res_rsv_ruimte_key = prsv_ruimte_key;
 
-       ruimtekey := getalg_ruimte_key (prsv_ruimte_key);
-
-       SELECT   g.alg_locatie_key
-         INTO   locatiekey
+       -- In geval van koppelruimten worden meerdere locatie keys opgeleverd. De locaties zullen echter toch hetzelfde zijn.
+       -- Voor de ruimte waar de bezoeker naar toe moet kiezen we de laagste key (we kennen niet het concept van
+       -- bezoekers naar res_ruimtes)
+       SELECT   MIN(g.alg_locatie_key), MIN(r.alg_ruimte_key)
+         INTO   locatiekey, ruimtekey
          FROM   alg_ruimte r, alg_verdieping v, alg_gebouw g
         WHERE       g.alg_gebouw_key = v.alg_gebouw_key
                 AND v.alg_verdieping_key = r.alg_verdieping_key
-                AND r.alg_ruimte_key = ruimtekey;
+                AND r.alg_ruimte_key IN (SELECT COALESCE (rr.alg_ruimte_key, ra.alg_ruimte_key) alg_ruimte_key
+                                           FROM res_rsv_ruimte rr,
+                                                res_ruimte_opstelling ro,
+                                                res_alg_ruimte ra
+                                          WHERE rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                                            AND ro.res_ruimte_key = ra.res_ruimte_key(+)
+                                            AND rr.res_rsv_ruimte_key = prsv_ruimte_key
+                                            AND ra.res_alg_ruimte_verwijder IS NULL);
 
        SELECT   bez_afspraak_datum, bez_afspraak_eind, alg_locatie_key
          INTO   oldvan, oldtot, oldloc
@@ -998,30 +1050,6 @@ AS
        END IF;
     END;
 
-   -- Levert de ALG_RUIMTE_KEY uit res_rsv_ruimte CV
-   -- of de ALG_RUIMTE_KEY van de eerste opstelling/ruimte
-   FUNCTION getalg_ruimte_key (pres_rsv_ruimte_key IN NUMBER)
-      RETURN NUMBER IS
-   alg_ruimte_key           alg_ruimte.alg_ruimte_key%TYPE;
-   lres_ruimte_opstel_key   res_ruimte_opstelling.res_ruimte_opstel_key%TYPE;
-    BEGIN
-       SELECT   alg_ruimte_key, res_ruimte_opstel_key
-         INTO   alg_ruimte_key, lres_ruimte_opstel_key
-         FROM   res_rsv_ruimte
-        WHERE   res_rsv_ruimte_key = pres_rsv_ruimte_key;
-
-       IF alg_ruimte_key IS NULL
-       THEN
-          SELECT   MIN (ra.alg_ruimte_key)
-            INTO   alg_ruimte_key
-            FROM   res_ruimte_opstelling ro, res_alg_ruimte ra
-           WHERE   ro.res_ruimte_opstel_key = lres_ruimte_opstel_key
-               AND ro.res_ruimte_key = ra.res_ruimte_key
-               AND ra.res_alg_ruimte_verwijder IS NULL;
-       END IF;
-
-       RETURN alg_ruimte_key;
-    END;
    FUNCTION getruimteprijs (pres_rsv_ruimte_key IN NUMBER, ignoretotaal IN NUMBER DEFAULT NULL)
       RETURN NUMBER IS
    room_price res_ruimte.res_ruimte_prijs%TYPE;

RES/RES_TAB.SRC

@@ -16,6 +16,7 @@ CREATE_TABLE (res_disc_params,0)
   res_disc_params_expire_tijd  NUMBER(5,2),                 /* grenstijdstip van de dag voor die freeze (bv 16.5) */
   res_disc_params_cancel_dagen NUMBER(2),                   /* aantal (hele) dagen vooraf waarna niet meer kostenloos mag worden gennuleerd/verwijderd */
   res_disc_params_remoteurl    VARCHAR2(512),               /* URL van remote (FACILITOR-) service voor vergaderzalen van andere accounts  */
+  res_disc_params_maxduur      NUMBER(5,2)      DEFAULT 0,
   CONSTRAINT res_c_ins_discipline_key CHECK (res_ins_discipline_key IS NOT NULL),
   CONSTRAINT res_k_res_disc_params_key PRIMARY KEY (res_disc_params_key),
   CONSTRAINT res_r_ins_discipine_key FOREIGN KEY (res_ins_discipline_key)
@@ -40,6 +41,8 @@ CREATE_TABLE(res_ruimte,0)
     VARCHAR2(1000),
   res_ruimte_image
     VARCHAR2(255),
+  res_ruimte_friendlyname
+    VARCHAR2(40),
   res_ruimte_prijs
     NUMBER(7,2),
   res_ruimte_intprijs
@@ -81,12 +84,17 @@ CREATE_TABLE(res_ruimte,0)
   bez_actie_key
     NUMBER(10)
     REFERENCES bez_actie(bez_actie_key), */
+  res_ruimte_vervaldatum
+    DATE,
   res_ruimte_aanmaak
     DATE
     DEFAULT SYSDATE,
   res_ruimte_verwijder
     DATE
     DEFAULT NULLDATUM,
+  res_status_fo_key
+    NUMBER(2)
+    CONSTRAINT res_c_res_status_fo2 CHECK(res_status_fo_key IN (1,2,3,4)),
   CONSTRAINT res_u_res_ruimte_upper UNIQUE(res_ruimte_upper, res_ruimte_verwijder)
 );
 
@@ -156,6 +164,11 @@ CREATE_TABLE(res_ruimte_opstelling, 0)
     NUMBER(1)
 , res_ruimte_opstel_image
     VARCHAR2(255)
+, res_ruimte_opstel_aanmaak
+    DATE
+    DEFAULT SYSDATE  /* column initially not present, date not real for pre-DB26*/
+, res_ruimte_opstel_verwijder
+    DATE
 ,  CONSTRAINT res_u_res_ruimte_opstel_key UNIQUE(res_ruimte_key, res_opstelling_key)
 );
 
@@ -185,6 +198,8 @@ CREATE_TABLE(res_deel, 0)
 , res_deel_alg_level
     NUMBER(1)
     NOT_NULL(res_deel_alg_level, res_c_res_deel_alg_level)
+, res_deel_vervaldatum
+    DATE
 , res_deel_aanmaak
     DATE
     DEFAULT SYSDATE
@@ -194,6 +209,10 @@ CREATE_TABLE(res_deel, 0)
 , res_deel_omschrijving
     VARCHAR2(60)
     NOT_NULL(res_deel_omschrijving, res_c_res_deel_omschrijving)
+, res_deel_beschikbaar_bits /* Day of week (dow) beschikbaarheid (default alle dagen van de week) */
+    NUMBER(4)
+    DEFAULT 127
+    NOT NULL
 );
 
 
@@ -217,6 +236,7 @@ CREATE_TABLE(res_artikel, 0)
 , res_artikel_prijs_vast
     NUMBER(1)
     DEFAULT 0
+    CONSTRAINT res_c_res_artikel_prijs_vast CHECK(res_artikel_prijs_vast IS NOT NULL)
     CONSTRAINT res_c_res_artikel_prijs_vast1 CHECK(res_artikel_prijs_vast IN (0,1))
 , res_artikel_inkoopprijs
     NUMBER(7,2)
@@ -436,6 +456,11 @@ CREATE_TABLE(res_rsv_ruimte, 0)
                                                  )))
 , res_rsv_ruimte_flag
     NUMBER(1)
+, res_rsv_ruimte_afgerond
+    NUMBER(1)
+    DEFAULT 0
+    CONSTRAINT res_c_res_rsv_ruimte_afgerond CHECK(res_rsv_ruimte_afgerond IS NOT NULL)
+    CONSTRAINT res_c_res_rsv_ruimte_afgerond1 CHECK(res_rsv_ruimte_afgerond IN (0,1))
 );
 
 ALTER TABLE mld_melding ADD res_rsv_ruimte_key
@@ -470,14 +495,8 @@ CREATE_TABLE(res_rsv_deel, 0)
 ,  res_rsv_deel_prijs
      NUMBER(9,2)
      CONSTRAINT res_c_res_rsv_deel_prijs CHECK((res_rsv_deel_prijs >= 0) or (res_rsv_deel_prijs IS NULL))
---,  res_rsv_deel_user_key
---     NUMBER (10)
---     CONSTRAINT res_r_rsv_deel_usr_key4 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_deel_afgemeld
      DATE
---,  res_rsv_deel_afgemeld_user
---     NUMBER(10)
---     CONSTRAINT res_r_rsv_deel_usr_key5 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_deel_verwerkt
      DATE
 ,  res_rsv_deel_aanmaak
@@ -518,14 +537,8 @@ CREATE_TABLE(res_rsv_artikel, 0)
      NOT_NULL(res_rsv_ruimte_key, res_c_res_artikel_ruimte)
 ,  res_rsv_artikel_prijs
      NUMBER(9,2)
---,  res_rsv_artikel_user_key
---     NUMBER (10)
---     CONSTRAINT res_r_rsv_artikel_usr_key5 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_artikel_afgemeld
      DATE
---,  res_rsv_artikel_afgemeld_user
---     NUMBER(10)
---     CONSTRAINT res_r_rsv_artikel_usr_key6 REFERENCES prs_perslid(prs_perslid_key)
 ,  res_rsv_artikel_verwerkt
      DATE
 ,  res_rsv_artikel_aanmaak
@@ -628,6 +641,7 @@ CREATE_TABLE(res_kenmerk, 0)
       NUMBER(1)
 ,  res_kenmerk_groep
       NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  res_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL

RES/RES_TRI.SRC

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

RES/RES_VIE.SRC

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

_UP/CARE25to26.sql

@@ -0,0 +1,59 @@
+-- Once script tbv care.
+--
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+
+START RECAR26.sql;
+
+SET ECHO ON
+SPOOL xcare25_26.lst
+SET DEFINE OFF
+
+
+-- BONS#31596: Gemeente is een budgetgemeente, van invloed op:
+-- kolom T+U+V van het Iwmo facturen rapport en,
+-- de clienten worden niet naar het CAK gestuurd.
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1007, 'L', 34, 'Budgetgemeente', 'N', 1, 0, 1);
+
+
+
+-- BONS#31596: Iwmo factuurrapport via XSL
+-- Rapport Iwmo) FACTUURrapport voor Iwmo: 
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving,
+             fac_usrrap_view_name,
+             fac_usrrap_in_huidige_locatie,
+             fac_usrrap_template,
+             fac_usrrap_macro,
+             fac_usrrap_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Factuur Iwmo) Per beschikking in periode, per week',
+             'care_v_rap2_factuur_uren_iwmo',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             1,
+             'Factuurrapportage Iwmo',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
+
+
+
+COMMIT;
+
+SPOOL OFF
+
+

_UP/CARE26to27.sql

@@ -0,0 +1,35 @@
+-- Once script tbv care.
+--
+-- (c) 2013 SG|facilitor bv
+-- $Revision$
+-- $Id$
+--
+-- Support: +31 53 4800700
+
+START RECAR27.sql;
+
+SET ECHO ON
+SPOOL xcare26_27.lst
+SET DEFINE OFF
+
+
+-- BONS#32746: OB code in het CAK rapport
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1008, 'L', 31, 'Ondersteunende Begeleiding', 'N', 1, 0, 1);
+
+UPDATE alg_kenmerk SET alg_kenmerk_volgnr = 40
+WHERE alg_kenmerk_key = 1003;
+
+UPDATE alg_kenmerk SET alg_kenmerk_volgnr = 42
+WHERE alg_kenmerk_key = 1004;
+
+UPDATE alg_kenmerk SET alg_kenmerk_volgnr = 44
+WHERE alg_kenmerk_key = 1005;
+
+
+COMMIT;
+
+SPOOL OFF
+
+

_UP/DB24to25.src

@@ -0,0 +1,365 @@
+/* DB24TO25.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31594
+ALTER TABLE cad_thema ADD cad_thema_onclick_url VARCHAR2(512);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PNBR#31470
+ALTER TABLE ins_disc_params ADD ins_disc_params_autonum NUMBER(2) DEFAULT 3;
+
+/////////////////////////////////////////////////////////////////////////////////////////// STPH#31353
+ALTER TABLE bes_srtgroep ADD prs_kostensoort_key NUMBER(10)
+        CONSTRAINT bes_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#29741
+ALTER TABLE fin_factuur ADD prs_perslid_key_goedkeur NUMBER(10)
+      CONSTRAINT fin_r_fin_factuur6 REFERENCES prs_perslid(prs_perslid_key);
+ALTER TABLE fin_factuur DROP CONSTRAINT fin_c_fin_status1;
+ALTER TABLE fin_factuur MODIFY fin_factuur_statuses_key CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7));
+
+DEF_FAC_FUNCTIE2('WEB_FINGOE', 'Backoffice:Facturen-goedkeuren', 'FIN',  0, 0,    1, 'Om facturen te kunnen goedkeuren');
+
+DEF_FAC_SRTNOT('FINGOE', 0, 'Factuur is ter goedkeuring aangeboden',          'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINGNO', 0, 'Factuur afgekeurd',                              'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FINGUN', 0, 'Factuurfiattering geannuleerd',                  'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+DEF_FAC_SRTNOT('FIN2GO', 3, 'Uw goedkeuring is vereist voor factuur ##KEY##', 'fin/fin_factuur.asp?fin_key=', '0', 'factuur', 10);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// LOGI#31433
+ALTER TABLE res_ruimte ADD res_status_fo_key NUMBER(2)
+      CONSTRAINT res_c_res_status_fo2 CHECK(res_status_fo_key IN (1,2,3,4));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31615
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE ins_deel MODIFY ins_deel_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(2, 1);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_melding MODIFY mld_melding_t_respijt DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PNBR#28834
+ALTER TABLE bes_srtdeel ADD bes_srtdeel_maxbestel NUMBER(1) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#31113
+ALTER TABLE mld_disc_params ADD mld_disc_params_benotify NUMBER(1) DEFAULT 0 NOT NULL;
+
+-- Voor de klanten die de MLDBE2 notificatie aan hebben staan, de waarde van het veld mld_disc_params_benotify voor alle vakgroepen op 1 zetten.
+UPDATE mld_disc_params
+   SET mld_disc_params_benotify = 1
+ WHERE EXISTS (SELECT sn.fac_srtnotificatie_mode
+                 FROM fac_srtnotificatie sn
+                WHERE sn.fac_srtnotificatie_code = 'MLDBE2'
+                  AND sn.fac_srtnotificatie_mode > 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#31770
+ALTER TABLE prs_afdeling MODIFY prs_afdeling_naam VARCHAR2(15);
+ALTER TABLE prs_afdeling MODIFY prs_afdeling_upper VARCHAR2(15);
+ALTER TABLE fac_imp_organisatie MODIFY prs_afdeling_naam VARCHAR2(15);
+ALTER TABLE fac_imp_organisatie MODIFY prs_afdeling_naam_parent VARCHAR2(15);
+ALTER TABLE fac_imp_perslid MODIFY prs_afdeling_naam VARCHAR2(15);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31542
+ALTER TABLE fac_imp_perslid MODIFY prs_perslid_email VARCHAR2(200);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32005
+ALTER TABLE fac_imp_inspectie MODIFY ins_srtcontrole_periode VARCHAR2(7);
+ALTER TABLE fac_imp_inspectie ADD ins_srtcontrole_mode VARCHAR2(1);
+ALTER TABLE fac_imp_inspectie ADD ins_srtcontrole_eenheid VARCHAR2(1);
+ALTER TABLE fac_imp_inspectie ADD ins_srtcontrole_bits VARCHAR2(4);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31698
+CREATE SEQUENCE fac_s_fac_usrrap_cols_key       MINVALUE 1;
+
+// De kolommen van een rapport
+CREATE_TABLE(fac_usrrap_cols, 0)
+(
+    fac_usrrap_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_usrrap_cols_key PRIMARY KEY,
+    fac_usrrap_key
+        NUMBER(10)
+        CONSTRAINT fac_r_usrrap_cols_usrrap_key REFERENCES fac_usrrap(fac_usrrap_key)
+        ON DELETE CASCADE,
+    fac_usrrap_cols_volgnr
+        NUMBER(10),
+    fac_usrrap_cols_column_name
+        VARCHAR2(32)
+        NOT_NULL(fac_usrrap_cols_column_name, fac_c_usrrap_cols_column_name),
+    fac_usrrap_cols_caption
+        VARCHAR2(60),
+    fac_usrrap_cols_filter /* See FAC/fac_usrrap.inc */
+        VARCHAR2(3),
+    fac_usrrap_cols_filterdefault /* Predefined filterval */
+        VARCHAR2(60),
+    fac_usrrap_cols_datatype
+        VARCHAR2(16)
+        NOT NULL,
+    fac_usrrap_cols_visible
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H')),
+    fac_usrrap_cols_group
+        VARCHAR2(1)
+        DEFAULT 'G'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_group CHECK (fac_usrrap_cols_group IN ('G', 'S', 'C', 'A', 'H', 'D', 'W', 'M', 'Q', 'Y'))
+);
+
+ALTER TABLE fac_usrrap ADD fac_usrrap_urllink VARCHAR2(100) DEFAULT NULL;
+ALTER TABLE fac_usrrap ADD fac_usrrap_groep VARCHAR2(40) DEFAULT NULL;
+ALTER TABLE fac_usrrap MODIFY fac_usrrap_functie NUMBER(3);
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/fac/fac_reportx_show.asp?mode=list' WHERE fac_menuitems_url = 'appl/fac/fac_usrrap.asp';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/fac/fac_reportx.asp' WHERE fac_menuitems_url = 'appl/facmgtVB/fac_userrapgrid.asp';
+
+PROMPT oude rapport menu opties:
+SELECT fac_menu_key, fac_menu_altlabel, fac_menu_alturl FROM fac_menu
+ WHERE fac_menu_alturl LIKE '%fac_usrrap.asp?%';
+
+
+--appl/fac/fac_usrrap.asp?rap_name=uwva_v_rap_afd_contact >> appl/fac/fac_report.asp?rap_name=uwva_v_rap_afd_contact
+UPDATE fac_menu m
+   SET fac_menu_alturl =
+          REPLACE (fac_menu_alturl,
+                    'fac_usrrap.asp?',
+                    'fac_report.asp?')
+ WHERE fac_menu_alturl LIKE '%fac_usrrap.asp?%'
+   AND fac_menu_alturl LIKE '%rap_name=%';
+
+-- appl/fac/fac_usrrap.asp?rap_name=pnbr_v_rap_open_cmdb_status&autoexec=1 >> appl/fac/fac_report.asp?mode=list&rap_name=pnbr_v_rap_open_cmdb_status
+-- Autoexec omzetten naar rechtstreeks mode=list
+UPDATE fac_menu m
+   SET fac_menu_alturl =
+          REPLACE (
+             REPLACE (fac_menu_alturl,
+                      'fac_report.asp?',
+                      'fac_report.asp?mode=list&'),
+             '&autoexec=1',
+             '')
+ WHERE fac_menu_alturl LIKE '%fac_report.asp?%'
+   AND fac_menu_alturl LIKE '%autoexec=1%';
+
+--appl/fac/fac_usrrap.asp?fcode=WEB_USER01 >> appl/fac/fac_reportx_show.asp?mode=list?fcode=WEB_USER01
+-- LET OP: bij VIAR handmatig fcode=XXXX vervangen door authorisation=76 voor PRSSYS bijvoorbeeld!
+UPDATE fac_menu m
+   SET fac_menu_alturl =
+          REPLACE (fac_menu_alturl,
+                    'fac_usrrap.asp?',
+                    'fac_reportx_show.asp?mode=list&')
+ WHERE fac_menu_alturl LIKE '%fac_usrrap.asp?%'
+   AND fac_menu_alturl LIKE '%fcode=%';
+
+-- Bij widgets is het altijd autoexec
+-- appl/fac/fac_usrrap.asp?rap_name=skaf_v_rap_mld_status&autoexec=1
+-- naar appl/fac/fac_report.asp?mode=list&rap_name=skaf_v_rap_mld_status
+UPDATE fac_widget m
+   SET fac_widget_url =
+          REPLACE (
+             REPLACE (fac_widget_url,
+                      'fac_usrrap.asp?',
+                      'fac_report.asp?mode=list&'),
+             '&autoexec=1',
+             '')
+ WHERE fac_widget_url LIKE '%fac_usrrap.asp?%';
+
+/* ROOT reports for User defined Reports (UDR) cloning */
+CREATE VIEW bes_v_udr_bestelling  AS SELECT 1 a FROM DUAL;
+CREATE VIEW bez_v_udr_bezoeker    AS SELECT 1 a FROM DUAL;
+CREATE VIEW cnt_v_udr_contract    AS SELECT 1 a FROM DUAL;
+CREATE VIEW fin_v_udr_factuur     AS SELECT 1 a FROM DUAL;
+CREATE VIEW ins_v_udr_deel        AS SELECT 1 a FROM DUAL;
+CREATE VIEW mld_v_udr_melding     AS SELECT 1 a FROM DUAL;
+CREATE VIEW res_v_udr_reservering AS SELECT 1 a FROM DUAL;
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Bestellingen','BES_V_UDR_BESTELLING','Basisrapport voor bestellingsrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BES_V_UDR_BESTELLING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Bezoekers','BEZ_V_UDR_BEZOEKER','Basisrapport voor bezoekersrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='BEZ_V_UDR_BEZOEKER');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Contracten','CNT_V_UDR_CONTRACT','Basisrapport voor contractrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='CNT_V_UDR_CONTRACT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Facturen','FIN_V_UDR_FACTUUR','Basisrapport voor factuurrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FIN_V_UDR_FACTUUR');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Objecten','INS_V_UDR_DEEL','Basisrapport voor objectrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='INS_V_UDR_DEEL');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Meldingen/opdrachten','MLD_V_UDR_MELDING','Basisrapport voor meldingsrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Reserveringen','RES_V_UDR_RESERVERING','Basisrapport voor reserveringsrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='RES_V_UDR_RESERVERING');
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#31750
+ALTER TABLE res_deel ADD res_deel_beschikbaar_bits NUMBER(4) DEFAULT 127 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAIT#29957
+CREATE_TABLE(fac_gui_counter, 0)
+(
+   fac_gui_counter_key      NUMBER (10) PRIMARY KEY,
+   fac_gui_counter_group    VARCHAR2 (12),
+   fac_gui_counter_refkey   NUMBER (10),
+   fac_gui_counter_count    NUMBER (12),
+   fac_gui_counter_info     VARCHAR2 (1000),
+   fac_gui_counter_date     DATE DEFAULT SYSDATE,
+   prs_perslid_key          NUMBER (10) CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
+   CONSTRAINT fac_u_fac_gui_counter UNIQUE(fac_gui_counter_group, fac_gui_counter_date, fac_gui_counter_refkey, fac_gui_counter_info)
+);
+
+CREATE SEQUENCE faq_s_fac_gui_counter_key       MINVALUE 1;
+-- trigger follows with recreate
+
+/////////////////////////////////////////////////////////////////////////////////////////// ARBO#31920
+ALTER TABLE res_disc_params ADD res_disc_params_maxduur NUMBER(5,2) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31969
+ALTER TABLE ins_srtcontroledl_xcp ADD ins_srtcontroledl_xcp_kosten NUMBER(11,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31968
+ALTER TABLE ins_srtcontrole ADD ins_srtcontrole_type NUMBER(1) DEFAULT (1);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#31346
+ALTER TABLE mld_afmeldtekst ADD mld_ins_discipline_key NUMBER(10)
+  CONSTRAINT mld_r_ins_discipline_key2 REFERENCES ins_tab_discipline(ins_discipline_key);
+
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/mld_afmeldtekst.asp'
+ WHERE fac_menuitems_url = 'appl/facmgtVB/mld_afmeldtekstgrid.asp';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#31783
+ALTER TABLE bes_disc_params ADD bes_disc_params_freeartikel NUMBER(1) DEFAULT 0 NOT NULL;
+
+UPDATE bes_disc_params
+   SET bes_disc_params_freeartikel = 1,
+       bes_disc_params_punchouturl = NULL
+ WHERE bes_disc_params_punchouturl = 'FREE';
+
+/////////////////////////////////////////////////////////////////////////////////////////// AKZA#31850
+DEF_FAC_FUNCTIE2('WEB_RELUSE', 'Backoffice:Relatiebeheer',       'PRS', 11, 0,    1, 'Om de gegevens van relaties/contactpersonen te kunnen muteren');
+DEF_MENUITEM(1, 'lcl_menu_prs_contactpers'      , '', 'PRS', 'appl/prs/prs_contactpersoon_search.asp', 0, 0, 'WEB_RELUSE', 'R', '1', '');
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt insert niet
+ALTER PACKAGE fac COMPILE BODY;
+
+-- De rechten voor WEB_RELUSE kopi<70>ren van WEB_RELMAN.
+INSERT INTO fac_groeprechten (fac_functie_key,
+                              fac_groep_key,
+                              ins_discipline_key,
+                              fac_gebruiker_alg_level_read,
+                              fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read,
+                              fac_gebruiker_prs_level_write)
+       SELECT (SELECT ff2.fac_functie_key FROM fac_functie ff2 WHERE ff2.fac_functie_code LIKE 'WEB_RELUSE') fac_functie_key,
+              fgr.fac_groep_key,
+              fgr.ins_discipline_key,
+              fgr.fac_gebruiker_alg_level_read,
+              fgr.fac_gebruiker_alg_level_write,
+              fgr.fac_gebruiker_prs_level_read,
+              fgr.fac_gebruiker_prs_level_write
+         FROM fac_functie ff,
+              fac_groep fg,
+              fac_groeprechten fgr
+        WHERE ff.fac_functie_key = fgr.fac_functie_key
+          AND fg.fac_groep_key = fgr.fac_groep_key
+          AND ff.fac_functie_code = 'WEB_RELMAN';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32092
+// Loze prefix ../.. bij onthouden tabs verwijderen
+UPDATE prs_perslid
+   SET prs_perslid_options =
+          REPLACE (prs_perslid_options, '"u":"../../', '"u":"')
+ WHERE prs_perslid_options LIKE '%"u":"../../%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// STPH#31881
+ALTER TABLE bes_srtdeel ADD bes_srtdeel_voorraadfactor NUMBER(6) DEFAULT 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#31430
+CREATE TABLE fac_sequence
+(
+   fac_sequence_name     VARCHAR2(50)
+                         CONSTRAINT fac_k_fac_sequence_name PRIMARY KEY,
+   fac_sequence_lastval  NUMBER(10),
+   fac_sequence_expire   DATE
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#26373
+DELETE FROM fac_bookmark
+        WHERE fac_bookmark_expire < SYSDATE;
+ALTER TABLE fac_bookmark ADD fac_bookmark_flags
+        NUMBER(3) DEFAULT 1 NOT NULL;
+UPDATE fac_bookmark
+    SET fac_bookmark_flags = fac_bookmark_flags + 4 -- PRSSYS mag bewerken
+  WHERE prs_perslid_key IS NOT NULL;
+UPDATE fac_bookmark
+    SET fac_bookmark_flags = fac_bookmark_flags + 2 -- Gewone gebruikers mogen zien
+  WHERE fac_bookmark_path LIKE '/appl/prs/prs_phonebook_list.asp';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32140
+ALTER TABLE res_ruimte ADD res_ruimte_friendlyname VARCHAR2(40);
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#31346
+CREATE_TABLE(fac_imp_mldafmtxt, 0)
+(
+    mld_afmeldtekst_naam            VARCHAR2(60)
+  , mld_afmeldtekst_omschrijving    VARCHAR2(1000)
+  , ins_discipline_key              NUMBER(10)
+  , mld_stdmelding_key              NUMBER(10)
+);
+
+INSERT INTO fac_import_app
+            (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+   SELECT 'MLDAFMTXT', 'FIP: Afmeldteksten', fac_functie_key
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_PRSSYS';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32160
+DEF_MENUITEM(3, 'lcl_mobile_messages'           , '', 'FAC', 'appl/pda/message_list.asp', 0, 0, 'WEB_MLDUSE', 'R', '0', 'm_overzichten-persoonlijk-mijn-berichten.png');
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAIT#30469
+DEF_MENUITEM(3, 'lcl_mobile_rapporten'          , '', 'FAC', 'appl/pda/reports.asp', 0, 0, 'WEB_USRRAP', 'R', '0', 'm_overzichten-algemeen-rapporten.png');
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#30627
+DELETE FROM fac_menuitems WHERE fac_menuitems_label='lcl_menu_res_ruimte_opstelling';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// GENERAL
+BEGIN
+    adm.tryalter('TABLE alg_kenmerk MODIFY alg_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE bes_kenmerk MODIFY bes_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE bez_kenmerk MODIFY bez_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE cnt_kenmerk MODIFY cnt_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE faq_kenmerk MODIFY faq_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE fin_kenmerk MODIFY fin_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE ins_kenmerk MODIFY ins_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE mld_kenmerk MODIFY mld_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE prs_kenmerk MODIFY prs_kenmerk_groep DEFAULT 0');
+    adm.tryalter('TABLE res_kenmerk MODIFY res_kenmerk_groep DEFAULT 0');
+END;
+/
+/////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
+-- Cleanup from DB24
+
+///////////////////////////////////////////////////////////////////////////////////////////
+REGISTERONCE('$Id$')
+#include "epilogue.inc"

_UP/DB25to26.src

@@ -0,0 +1,486 @@
+/* DB25TO26.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#31991
+ALTER TABLE res_deel ADD res_deel_vervaldatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#32027
+ALTER TABLE res_ruimte ADD res_ruimte_vervaldatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32788
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'auto_https'
+   AND fac_setting_pvalue = '1';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#30662
+ALTER TABLE fac_usrtab ADD fac_usrtab_verwijder DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAIT#30160
+ALTER TABLE prs_kostensoort ADD prs_kostensoort_altcode VARCHAR2(60);
+ALTER TABLE prs_kostensoortgrp ADD prs_kostensoortgrp_altcode VARCHAR2(60);
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#32075
+ALTER TABLE cnt_contract ADD cnt_prs_perslid_key NUMBER(10)
+      CONSTRAINT cnt_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key);
+
+UPDATE fac_message
+   SET fac_message_text = 'Er moet of een bedrijf of een afdeling of een persoon ingevuld worden.'
+ WHERE fac_message_code LIKE 'CNT_M002';
+
+/////////////////////////////////////////////////////////////////////////////////////////// LOGI#32913
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'https://logcentre.facilitor.nl'
+ WHERE fac_menuitems_url = 'http://logcentre.facilitor.nl';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33058
+UPDATE prs_perslid
+   SET prs_perslid_apikey = NULL,
+       prs_perslid_salt = NULL,
+       prs_perslid_wachtwoord_hash = NULL,
+       prs_perslid_wachtwoord_exp = NULL
+ WHERE prs_perslid_verwijder IS NOT NULL
+       AND (   prs_perslid_apikey IS NOT NULL
+            OR prs_perslid_salt IS NOT NULL
+            OR prs_perslid_wachtwoord_hash IS NOT NULL
+            OR prs_perslid_wachtwoord_exp IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#nnnnn
+CREATE_TABLE(fac_imp_bedrijfadres, 0)
+(
+   prs_bedrijf_key                NUMBER (10),
+   prs_bedrijfadres_type          VARCHAR2 (1),
+   mld_typeopdr_key               NUMBER (10),
+   prs_bedrijfadres_url           VARCHAR2 (512),
+   prs_bedrijfadres_ordermode     NUMBER (3),
+   prs_bedrijfadres_certificate   VARCHAR2 (255),
+   prs_bedrijfadres_xsl           VARCHAR2 (256),
+   prs_bedrijfadres_ext           VARCHAR2 (10),
+   prs_bedrijfadres_attachfile    VARCHAR2 (256),
+   prs_bedrijfadres_username      VARCHAR2 (32),
+   prs_bedrijfadres_password      VARCHAR2 (32)
+);
+
+INSERT INTO fac_import_app (fac_import_app_code, fac_import_app_oms, fac_functie_key)
+   SELECT 'BEDRIJFADRES', 'FIP: Aanvullen technische bedrijfadressen', fac_functie_key
+     FROM fac_functie
+    WHERE fac_functie_code = 'WEB_PRSSYS';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33170
+#include "../kpi/kpi_tab.src"
+#include "../kpi/kpi_seq.src"
+// views moeten hier voor de ini
+#include "../kpi/kpi_vie.src"
+#include "../kpi/kpi_ind.src"
+#include "../kpi/kpi_ini.src"
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32762
+ALTER TABLE fac_usrrap ADD fac_usrrap_col_refresh DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32720
+ALTER TABLE fac_usrrap ADD fac_usrrap_count
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_count CHECK (fac_usrrap_count IN (0,1,2,3));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33521
+ALTER TABLE fac_usrrap ADD fac_usrrap_pivot
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_pivot CHECK (fac_usrrap_pivot IN (0,1,2,3));
+
+ALTER TABLE fac_usrrap ADD fac_usrrap_graph
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_graph CHECK (fac_usrrap_graph IN (0,1,2,3));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#28687
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt insert niet
+ALTER PACKAGE fac COMPILE BODY;
+
+DEF_FAC_FUNCTIE2('WEB_LAYOUT', 'Beheer:Lay-out', 'FAC', 0, 0, NULL, 'Om templates te kunnen aanpassen');
+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
+        , (select fac_functie_key from fac_functie where fac_functie_code = 'WEB_LAYOUT')
+        , r.fac_gebruiker_prs_level_read
+        , r.fac_gebruiker_alg_level_read
+        , r.fac_gebruiker_prs_level_write
+        , r.fac_gebruiker_alg_level_write
+     FROM fac_groeprechten r
+        , fac_functie f
+        , fac_groep g
+    WHERE r.fac_functie_key = f.fac_functie_key
+      AND r.fac_groep_key = g.fac_groep_key
+      AND f.fac_functie_code = 'WEB_PRSSYS';
+
+UPDATE fac_menu
+   SET fac_functie_key = (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_LAYOUT')
+ WHERE fac_menu_alturl like 'appl/fac/fac_edit_template.asp%';
+
+DEF_MENUITEM(2, 'lcl_menu_fac_styling'          , '', 'FAC', 'appl/fac/fac_edit_template.asp', 0, 0, 'WEB_LAYOUT', 'W', '0', '');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33387
+INSERT INTO fac_locale (fac_locale_kolomnaam,
+                        fac_locale_kolomkeyval,
+                        fac_locale_lang,
+                        fac_locale_tekst)
+   SELECT 'RES_CYCLUS_NAAM',
+          res_cyclus_key,
+          'EN',
+          DECODE (res_cyclus_naam,
+                  'Eenmalig', 'Once',
+                  'Dagelijks', 'Daily',
+                  'Wekelijks', 'Weekly',
+                  '2 Wekelijks', '2 Weekly',
+                  '3 Wekelijks', '3 Weekly',
+                  '4 Wekelijks', '4 Weekly',
+                  'Maandelijks', 'Monthly')
+     FROM res_cyclus
+    WHERE NOT EXISTS
+             (SELECT ''
+                FROM fac_locale
+               WHERE     fac_locale_kolomnaam = 'RES_CYCLUS_NAAM'
+                     AND fac_locale_lang = 'EN'
+                     AND fac_locale_kolomkeyval = res_cyclus_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// ASME#33110
+CREATE_TABLE(mld_stdmsrtruimte, 0)
+(
+    mld_stdmsrtruimte_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtruimte_key PRIMARY KEY,
+    alg_srtruimte_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtruimte_key3 REFERENCES alg_srtruimte(alg_srtruimte_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtruimte_key, alg_c_srtruimte_key2),
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key5 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key),
+    mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per dag]
+        NUMBER(8,2),
+    mld_stdmsrtruimte_t_accepttijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc CHECK(mld_stdmsrtruimte_t_accepttijd.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitvtijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
+        CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+CREATE SEQUENCE mld_s_mld_stdmsrtruimte_key MINVALUE 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32194
+ALTER TABLE fac_usrtab ADD fac_functie_key NUMBER(10)
+      CONSTRAINT fac_r_usrtab_functie REFERENCES fac_functie(fac_functie_key) ON DELETE SET NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33429
+UPDATE res_artikel SET res_artikel_prijs_vast = 0 WHERE res_artikel_prijs_vast IS NULL;
+ALTER TABLE res_artikel ADD CONSTRAINT res_c_res_artikel_prijs_vast CHECK(res_artikel_prijs_vast IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33025
+DEF_FAC_SRTNOT('MLD2B3', 0, 'Voor melding ##KEY## (##DISC##/##STDMLD##) is uw acceptatie vereist',            'mld/mld_melding.asp?urole=bo&mld_key=', '0', 'melding', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PNBR#31538
+ALTER TABLE res_ruimte_opstelling ADD res_ruimte_opstel_aanmaak DATE DEFAULT SYSDATE;
+ALTER TABLE res_ruimte_opstelling ADD res_ruimte_opstel_verwijder DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33455
+ALTER TABLE ins_srtdiscipline DROP CONSTRAINT ins_c_ins_srtdiscipline_alg;
+ALTER TABLE ins_srtdiscipline MODIFY(ins_srtdiscipline_alg NUMBER(3)
+      CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)));
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt insert niet
+
+UPDATE ins_srtdiscipline
+   SET ins_srtdiscipline_alg = 7
+ WHERE ins_srtdiscipline_alg = 1
+   AND fac.getSetting('mld_plaats_is_locatie_only') = 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33533
+ALTER TABLE fac_usrrap ADD (
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#33151
+UPDATE fac_setting f
+   SET f.fac_setting_pvalue = 'R'
+ WHERE fac_setting_name = 'vis_mandatory_alg_level'
+       AND COALESCE(fac_setting_pvalue, fac_setting_default) = 'L'
+       AND EXISTS
+             (SELECT ''
+                FROM fac_setting
+               WHERE fac_setting_name = 'vis_afspraak_onrgoed_uses_keys' AND COALESCE(fac_setting_pvalue, fac_setting_default) = 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33592
+ALTER TABLE fin_verkoopfactuur MODIFY fin_verkoopfactuur_key PRIMARY KEY;
+-- assumes that _n5 is yet unused
+UPDATE fin_verkoopfactuur
+   SET fin_verkoopfactuur_n5 = to_number (fin_verkoopfactuur_refkey);
+
+UPDATE fin_verkoopfactuur
+   SET fin_verkoopfactuur_refkey = NULL;
+
+ALTER TABLE fin_verkoopfactuur MODIFY fin_verkoopfactuur_refkey  NUMBER(10);
+
+UPDATE fin_verkoopfactuur
+   SET fin_verkoopfactuur_refkey = fin_verkoopfactuur_n5;
+
+UPDATE fin_verkoopfactuur
+   SET fin_verkoopfactuur_n5 = NULL;
+
+CREATE INDEX fin_i_fin_verkoopfactuur1 ON fin_verkoopfactuur(fin_verkoopfactuur_refkey, fin_verkoopfactuur_xmlnode);
+CREATE INDEX fin_i_fin_verkoopfactuur2 ON fin_verkoopfactuur(fin_verkoopfactuur_id);
+DEF_FAC_FUNCTIE2('WEB_VERFAC', 'Backoffice:Verkoopfacturen',     'FIN',  0, 0,    1, 'Om gegenereerde verkoopfacturen te kunnen zien');
+
+CREATE_TABLE(fin_verkoopfactuurkop, 0)
+(
+    fin_verkoopfactuurkop_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuurkop_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    CONSTRAINT fin_u_verkoopfactuurkop_id UNIQUE(fin_verkoopfactuurkop_id)
+);
+
+CREATE SEQUENCE fin_s_verkoopfactuurkop_key MINVALUE 1;
+
+ALTER TABLE fin_verkoopfactuur ADD (
+    fin_verkoopfactuurkop_key
+    NUMBER(10) REFERENCES fin_verkoopfactuurkop(fin_verkoopfactuurkop_key) ON DELETE CASCADE);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#28591
+UPDATE res_activiteit
+   SET res_srtactiviteit_key = 2                             /* voorziening */
+ WHERE res_srtactiviteit_key IS NULL
+       AND UPPER (res_activiteit_omschrijving) = 'N.V.T.';
+
+UPDATE res_activiteit
+   SET res_srtactiviteit_key = 1                                  /* ruimte */
+ WHERE res_srtactiviteit_key IS NULL
+       AND (UPPER (res_activiteit_omschrijving) = 'VERGADERING'
+            OR res_activiteit_verwijder IS NULL);
+
+// De rest gewoon weg.
+DELETE res_activiteit
+ WHERE res_srtactiviteit_key IS NULL;
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32596
+-- Veronderstel dat rap_name altijd achteraan staat
+UPDATE fac_menu m
+   SET fac_menu_alturl =
+          (SELECT REPLACE (
+                     fac_menu_alturl,
+                     SUBSTR (fac_menu_alturl,
+                             INSTR (fac_menu_alturl, 'rap_name=')),
+                     'usrrap_key='
+                     || (SELECT TO_CHAR (fac_usrrap_key)
+                           FROM fac_usrrap
+                          WHERE UPPER (fac_usrrap_view_name) =
+                                   UPPER(SUBSTR (
+                                            fac_menu_alturl,
+                                            INSTR (fac_menu_alturl,
+                                                   'rap_name=')
+                                            + 9))))
+             FROM fac_menu mm
+            WHERE mm.fac_menu_key = m.fac_menu_key)
+ WHERE fac_menu_alturl LIKE '%rap_name=%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33654
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_post_adres VARCHAR2(50);
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_bezoek_adres VARCHAR2(50);
+ALTER TABLE fac_imp_ext_bedrijf MODIFY prs_bedrijf_post_adres VARCHAR2(50);
+ALTER TABLE fac_imp_ext_bedrijf MODIFY prs_bedrijf_bezoek_adres VARCHAR2(50);
+ALTER TABLE mld_adres MODIFY mld_adres_post_adres VARCHAR2(50);
+ALTER TABLE mld_adres MODIFY mld_adres_bezoek_adres VARCHAR2(50);
+ALTER TABLE alg_locatie MODIFY alg_locatie_adres VARCHAR2(50);
+ALTER TABLE alg_locatie MODIFY alg_locatie_post_adres VARCHAR2(50);
+ALTER TABLE fac_imp_onrgoed1 MODIFY alg_locatie_adres VARCHAR2(50);
+ALTER TABLE fac_imp_onrgoed1 MODIFY alg_locatie_post_adres VARCHAR2(50);
+ALTER TABLE fac_imp_adres MODIFY adres_post_adres VARCHAR2(50);
+ALTER TABLE fac_imp_adres MODIFY adres_bezoek_adres VARCHAR2(50);
+
+/////////////////////////////////////////////////////////////////////////////////////////// AKZA#33159
+ALTER TABLE ins_deel ADD
+    prs_perslid_key_beh
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#32078
+DELETE FROM res_activiteitdiscipline
+ WHERE res_discipline_key IN
+       (SELECT ins_discipline_key
+          FROM ins_tab_discipline
+         WHERE ins_discipline_module = 'RES'
+           AND ins_discipline_verwijder IS NOT NULL
+       );
+
+DELETE FROM res_activiteitdiscipline
+ WHERE res_activiteit_key IN
+       (SELECT res_activiteit_key
+          FROM res_activiteit
+         WHERE res_activiteit_verwijder IS NOT NULL
+       )
+   AND NOT EXISTS
+       (SELECT 'x'
+          FROM res_v_aanwezigrsv_ruimte
+         WHERE res_activiteit_key in (select res_activiteit_key from res_activiteit where res_activiteit_verwijder is not null)
+           AND res_rsv_ruimte_tot > SYSDATE-14 -- na 14 dagen niet meer klagen
+           AND res_status_bo_key IN (2, 3, 4, 7)
+       );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33775
+ALTER TABLE fac_version MODIFY  fac_version_major    NUMBER(4);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#30200
+ALTER TABLE mld_workflowrule DROP COLUMN mld_workflowrule_jointype;
+ALTER TABLE mld_workflowstep ADD  mld_workflowstep_jointype
+      NUMBER(2) -- 0 = AND, 1 = (X)OR, 2 = SYNC
+      DEFAULT 0
+      CONSTRAINT mld_c_mld_wfstep_jointype CHECK(mld_workflowstep_jointype IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAES#33442
+ALTER TABLE fac_faq ADD fac_faq_displaymode
+        NUMBER(3) DEFAULT 0  NOT NULL;  // 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#33454
+ALTER TRIGGER res_t_res_rsv_ruimte_B_IU DISABLE;
+ALTER TABLE res_rsv_ruimte ADD res_rsv_ruimte_afgerond
+      NUMBER(1)
+      DEFAULT 0
+      CONSTRAINT res_c_res_rsv_ruimte_afgerond CHECK(res_rsv_ruimte_afgerond IS NOT NULL)
+      CONSTRAINT res_c_res_rsv_ruimte_afgerond1 CHECK(res_rsv_ruimte_afgerond IN (0,1));
+ALTER TRIGGER res_t_res_rsv_ruimte_B_IU ENABLE;
+
+DEF_FAC_SRTNOT('RESROK', 0, 'Reservering ##KEY## (##DESC##) is goedgekeurd', 'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering',  10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAFM#33585
+ALTER TABLE prs_kostenplaats ADD prs_kostenplaats_fiat
+      NUMBER(1)
+      DEFAULT 1
+      CONSTRAINT prs_c_prs_kostenplaat_fiat CHECK(prs_kostenplaats_fiat IS NOT NULL)
+      CONSTRAINT prs_c_prs_kostenplaat_fiat1 CHECK(prs_kostenplaats_fiat IN (0,1));
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAIT#33630
+DELETE from fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDING';
+#include "../mld/mld_vie.src"
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Meldingen','MLD_V_UDR_MELDING','Basisrapport voor meldingsrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDING');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Opdrachten','MLD_V_UDR_OPDRACHT','Basisrapport voor opdrachtrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Meldingen/opdrachten','MLD_V_UDR_MELDINGOPDRACHT','Basisrapport voor melding+opdrachtrapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGOPDRACHT');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Meldingen plus','MLD_V_UDR_MELDINGKENMERK','Basisrapport voor melding+kenmerk rapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_MELDINGKENMERK');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'UDR: Opdrachten plus','MLD_V_UDR_OPDRACHTKENMERK','Basisrapport voor opdracht+kenmerk rapportages', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_PRSSYS'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='MLD_V_UDR_OPDRACHTKENMERK');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33833
+UPDATE fac_usrrap
+   SET fac_usrrap_functie = fac_usrrap_functie + 32
+ WHERE UPPER(fac_usrrap_view_name) LIKE '%\_V\_UDR%' ESCAPE '\' -- ' syntax higlight
+   AND fac_usrrap_info LIKE 'Basisrapport%'
+   AND fac_usrrap_omschrijving NOT LIKE '%Clone%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#33766
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_srtactiviteit.asp' WHERE fac_menuitems_label = 'lcl_menu_res_srtactiviteiten';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_ruimte.asp' WHERE fac_menuitems_label = 'lcl_menu_res_reserveerbare_rui';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_deel.asp' WHERE fac_menuitems_label = 'lcl_menu_res_reserveerbare_obj';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_artikel.asp' WHERE fac_menuitems_label = 'lcl_menu_res_verbruiksartikele';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_discipline.asp' WHERE fac_menuitems_label = 'lcl_menu_res_catalogi';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_opstelling.asp' WHERE fac_menuitems_label = 'lcl_menu_res_opstellingen';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_cyclus.asp' WHERE fac_menuitems_label = 'lcl_menu_res_perioden';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_activiteit.asp' WHERE fac_menuitems_label = 'lcl_menu_res_activiteiten';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_srtartikel_onrgoed.asp' WHERE fac_menuitems_label = 'lcl_menu_res_verbruiksartscope';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_kenmerk.asp' WHERE fac_menuitems_label = 'lcl_menu_res_kenmerken';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/res_srtkenmerk.asp' WHERE fac_menuitems_label = 'lcl_menu_res_kenmerksoorten';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/fac_usrtab.asp' WHERE fac_menuitems_label = 'lcl_menu_fac_eigen_tabellen';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/ins_kenmerk.asp' WHERE fac_menuitems_label = 'lcl_menu_ins_kenmerken';
+UPDATE fac_menuitems SET fac_menuitems_url = 'appl/mgt/ins_srtcontrole.asp' WHERE fac_menuitems_label = 'lcl_menu_ins_srtcontrole';
+// vervallen:
+DELETE FROM fac_menu WHERE fac_menuitems_key = (SELECT fac_menuitems_key FROM fac_menuitems WHERE fac_menuitems_label = 'lcl_menu_res_activiteiten_ruim');
+DELETE FROM fac_menuitems WHERE fac_menuitems_label = 'lcl_menu_res_activiteiten_ruim';
+DELETE FROM fac_menuitems WHERE fac_menuitems_label = 'lcl_menu_ins_kenmerken_insp';
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#31782
+UPDATE fac_functie
+   SET fac_functie_min_level = 11
+ WHERE fac_functie_code IN ('WEB_CNTGO1', 'WEB_CNTGO2', 'WEB_CNTGO3');
+
+/////////////////////////////////////////////////////////////////////////////////////////// GENERAL
+UPDATE alg_kenmerk SET alg_kenmerk_groep = 0 WHERE alg_kenmerk_groep IS NULL;
+UPDATE bes_kenmerk SET bes_kenmerk_groep = 0 WHERE bes_kenmerk_groep IS NULL;
+UPDATE bez_kenmerk SET bez_kenmerk_groep = 0 WHERE bez_kenmerk_groep IS NULL;
+UPDATE cnt_kenmerk SET cnt_kenmerk_groep = 0 WHERE cnt_kenmerk_groep IS NULL;
+UPDATE faq_kenmerk SET faq_kenmerk_groep = 0 WHERE faq_kenmerk_groep IS NULL;
+UPDATE fin_kenmerk SET fin_kenmerk_groep = 0 WHERE fin_kenmerk_groep IS NULL;
+UPDATE ins_kenmerk SET ins_kenmerk_groep = 0 WHERE ins_kenmerk_groep IS NULL;
+UPDATE mld_kenmerk SET mld_kenmerk_groep = 0 WHERE mld_kenmerk_groep IS NULL;
+UPDATE prs_kenmerk SET prs_kenmerk_groep = 0 WHERE prs_kenmerk_groep IS NULL;
+UPDATE res_kenmerk SET res_kenmerk_groep = 0 WHERE res_kenmerk_groep IS NULL;
+
+BEGIN
+    adm.tryalter('TABLE alg_kenmerk MODIFY alg_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE bes_kenmerk MODIFY bes_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE bez_kenmerk MODIFY bez_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE cnt_kenmerk MODIFY cnt_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE faq_kenmerk MODIFY faq_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE fin_kenmerk MODIFY fin_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE ins_kenmerk MODIFY ins_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE mld_kenmerk MODIFY mld_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE prs_kenmerk MODIFY prs_kenmerk_groep NOT NULL');
+    adm.tryalter('TABLE res_kenmerk MODIFY res_kenmerk_groep NOT NULL');
+    // deze vergeten bij 18to19
+    adm.tryalter('TABLE bes_kenmerk MODIFY bes_kenmerk_volgnummer NOT NULL');
+END;
+/
+/////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
+#include "../adm/adm_pac.src"
+-- Cleanup from DB25
+BEGIN
+    adm.tryalter('TABLE fac_usrrap DROP COLUMN fac_usrrap_in_huidige_locatie');
+    adm.tryalter('TABLE fac_usrrap DROP COLUMN fac_usrrap_template');
+    adm.tryalter('TABLE fac_usrrap DROP COLUMN fac_usrrap_macro');
+END;
+/
+--Ook uit fac_ini verwijderen, eventueel gebruik ervan stamt al van voor 2015.1
+DELETE from fac_bookmark
+ WHERE fac_bookmark_naam IN ('afspraak', 'bestelling', 'bestelopdr', 'contract', 'deel', 'factuur', 'gebouw', 'locatie', 'melding', 'message', 'opdracht', 'perslid', 'reservering', 'ruimte','verdieping', 'xreservering');
+BEGIN
+    adm.trydrop('TRIGGER fac_t_imp_log_B_IU');
+    adm.trydrop('TRIGGER fac_t_fac_import_B_IU');
+END;
+/
+///////////////////////////////////////////////////////////////////////////////////////////
+REGISTERONCE('$Id$')
+#include "epilogue.inc"

_UP/epilogue.inc

@@ -40,7 +40,7 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
 PROMPT
 PROMPT Your schema upgrade is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1992-2014 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1992-2015 Facilitor bv, the Netherlands. All rights reserved.
 SET DEFINE ON
 PROMPT Logfile of this upgrade is: &fcltlogfile
 SPOOL OFF

_UP/prologue.inc

@@ -58,7 +58,7 @@ WHENEVER SQLERROR CONTINUE;
 PROMPT
 PROMPT ************************************************************************
 PROMPT UPGRADE of FACILITOR schema to version EVALCONCAT(DB, _DBV) $Revision$
-PROMPT Copyright (c) 1996-2014 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT Copyright (c) 1996-2015 Facilitor bv, the Netherlands. All rights reserved.
 PROMPT
 SELECT 'The current version of FACILITOR@' || USER || ' is: ' || fac.getdbversion()
   FROM DUAL;

_UP/recreate.inc

@@ -20,6 +20,7 @@
 #include "fin\fin_vie.src"
 #include "prj\prj_vie.src"
 #include "msg\msg_vie.src"
+#include "kpi\kpi_vie.src"
 
 // Recreation all packages
 #include "adm\adm_pac.src"
@@ -38,6 +39,7 @@
 #include "fin\fin_pac.src"
 #include "prj\prj_pac.src"
 #include "msg\msg_pac.src"
+#include "kpi\kpi_pac.src"
 
 // Recreation all triggers
 #include "fac\fac_tri.src"
@@ -55,6 +57,7 @@
 #include "fin\fin_tri.src"
 #include "prj\prj_tri.src"
 #include "msg\msg_tri.src"
+#include "kpi\kpi_tri.src"
 
 /* LOCALE's */
 #include "fac\fac_lcl.src"