LPNL#68408 Leaseplan wil dat de werkplekreserveringen bevestigd worden via een QR code

svn path=/Database/branches/DB40/; revision=53027

ADM/ADM_PAC.SRC

@@ -4,10 +4,13 @@
 
 CREATE OR REPLACE PACKAGE adm
 AS
+   FUNCTION systeminfo RETURN VARCHAR2;
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1);
    PROCEDURE trydrop (n IN VARCHAR2);
    PROCEDURE tryalter (n IN VARCHAR2);
-   FUNCTION scriptspoolfile (custpattern IN VARCHAR2, scriptname IN VARCHAR) RETURN VARCHAR;
+   FUNCTION scriptspoolfile(custpattern IN VARCHAR2, scriptname IN VARCHAR2) RETURN VARCHAR2;
+   FUNCTION getscriptspoolfile(scriptname IN VARCHAR2) RETURN VARCHAR2;
+   FUNCTION checkscriptcust(custpattern IN VARCHAR2) RETURN VARCHAR2;
 END adm;
 /
 
@@ -17,9 +20,9 @@ AS
    -- ($Id$)
    PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1)
    AS
-      revisionnr VARCHAR2 (60);
-      scriptname VARCHAR2 (60);
-      tempstr VARCHAR2 (60);
+      revisionnr adm_tracking.adm_tracking_revision%TYPE;
+      scriptname adm_tracking.adm_tracking_name%TYPE;
+      tempstr VARCHAR2 (100);
    BEGIN
       -- op het gemakje ontleden
       tempstr := REPLACE (svnid, '$Id: ', '');
@@ -98,31 +101,105 @@ AS
           END IF;
    END;
 
-   FUNCTION scriptspoolfile (custpattern  IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
-                             scriptname   IN VARCHAR)
-      RETURN VARCHAR
+  FUNCTION scriptspoolfile (custpattern  IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
+                            scriptname   IN VARCHAR2)
+      RETURN VARCHAR2
+   IS
+      lstname   VARCHAR2(4000);
+      tekst     VARCHAR2(4000);
+   BEGIN
+      tekst := adm.checkscriptcust(custpattern);
+      lstname := adm.getscriptspoolfile(scriptname);
+      RETURN lstname;
+   END;
+
+   FUNCTION getscriptspoolfile(scriptname IN VARCHAR2)
+      RETURN VARCHAR2
    IS
       lstname   VARCHAR2 (255);
-      tekst   VARCHAR2 (255);
    BEGIN
-       IF NOT REGEXP_LIKE(USER, custpattern, 'i') THEN
-           tekst := CHR(10) || '============================================' || CHR(10)
-                 || 'Wrong user!!!!!!!!!' || CHR(10)
-                 || 'User should be match ' || custpattern || ' but is ' || USER || CHR(10)
-                 || '============================================' || CHR(10);
-           RAISE_APPLICATION_ERROR(-20000, tekst);
-       END IF;
+      lstname := scriptname
+              || '_' ||  USER || '_' || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
+                              || '_' || SYS_CONTEXT ('USERENV', 'SERVER_HOST')
+              || '_' || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
+              || '.lst';
+      RETURN UPPER(lstname);
+   END;
 
-      lstname := UPPER (scriptname);
-      RETURN lstname || '_'
-             || UPPER(   USER
-                      || '_'
-                      || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
-                      || '_'
-                      || SYS_CONTEXT ('USERENV', 'SERVER_HOST'))
-             || '_'
-             || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
-             || '.lst';
+   FUNCTION systeminfo
+    RETURN VARCHAR2
+   IS
+      tekst     VARCHAR2 (4000);
+      TYPE table_varchar IS TABLE OF VARCHAR2 (32);
+      var_table_varchar table_varchar;
+   BEGIN
+      var_table_varchar :=
+          table_varchar ('TERMINAL',
+                         'HOST',
+                         'LANGUAGE',
+                         'CURRENT_USER',
+                         'SESSION_USER',
+                         'DB_DOMAIN',
+                         'DB_NAME',
+                         'SERVER_HOST',
+                         'SERVICE_NAME',
+                         'IP_ADDRESS');
+
+      tekst := 'Time: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS');
+      tekst := tekst || CHR(10) ||'OS-user: ' || SYS_CONTEXT('USERENV','OS_USER');
+      FOR elem IN 1 .. var_table_varchar.COUNT
+      LOOP
+          tekst := tekst ||
+                   CHR(10) ||
+                   var_table_varchar (elem) || ': ' ||
+                   SYS_CONTEXT ('USERENV', var_table_varchar (elem));
+      END LOOP;
+      return tekst;
+   END;
+
+   FUNCTION checkscriptcust(custpattern IN VARCHAR2)
+      RETURN VARCHAR2
+   IS
+      klant     VARCHAR2(4);
+      groep     VARCHAR2(4);
+      fout      NUMBER(1) := 0;
+      qry       VARCHAR2(4000);
+      tekst     VARCHAR2 (4000);
+   BEGIN
+      -- Wat handige info voor in de SPOOL-file (vooral bij licentieklanten waar we het niet altijd weten)
+      tekst := adm.systeminfo;
+
+      BEGIN
+         -- EXECUTE IMMEDIATE oplossing omdat in het CREA-script de fac_version_tabel er niet op tijd
+         -- is, daardoor deze hele package invalid is en aan het eind de REGISTERRUN faalt
+         -- (ook al gebruikt REGISTERRUN deze checkscriptcust niet)
+         qry := 'SELECT fac_version_cust'
+             || '     , fac_version_group'
+             || '  FROM fac_version';
+         EXECUTE IMMEDIATE qry INTO klant, groep;
+      EXCEPTION
+         WHEN OTHERS THEN
+            klant := USER;
+            groep := USER;
+            fout := 1;
+      END;
+      IF NOT (custpattern = klant OR (custpattern = groep AND groep IS NOT NULL) OR REGEXP_LIKE(USER, custpattern, 'i'))
+      THEN
+         IF (INSTR(custpattern,'^') = 0 OR fout = 0)
+         THEN
+            tekst := 'User should be ' || custpattern || ' but is ' || USER;
+         ELSE
+            tekst := 'User should match ' || custpattern || ' but is ' || USER;
+         END IF;
+         tekst := CHR(10)
+               || '============================================' || CHR(10)
+               || 'Wrong user!!!!!!!!!' || CHR(10)
+               || tekst || CHR(10)
+               || '============================================' || CHR(10);
+         RAISE_APPLICATION_ERROR(-20000, tekst);
+      END IF;
+
+      RETURN tekst;
    END;
 
    END adm;

ALG/ALG_TAB.SRC

@@ -21,6 +21,10 @@ CREATE_TABLE(alg_regio,0)
     alg_regio_verwijder
         DATE
         DEFAULT NULLDATUM,
+    alg_regio_externnr
+        VARCHAR2(256),
+    alg_regio_externsyncdate
+        DATE,
     CONSTRAINT alg_u_alg_regio_upper UNIQUE(alg_regio_upper, alg_regio_verwijder)
 );
 
@@ -45,6 +49,10 @@ CREATE_TABLE(alg_district,0)
     alg_district_verwijder
         DATE
         DEFAULT NULLDATUM,
+    alg_district_externnr
+        VARCHAR2(256),
+    alg_district_externsyncdate
+        DATE,
     CONSTRAINT alg_u_alg_district_upper UNIQUE(alg_regio_key, alg_district_upper,alg_district_verwijder)
 );
 
@@ -102,6 +110,14 @@ CREATE_TABLE(alg_locatie,0)
         NUMBER(16,6),
     alg_locatie_mjb_score1
         NUMBER(6,2),
+    alg_locatie_vervaldatum
+        DATE,
+    alg_locatie_image
+        VARCHAR2(255),
+    alg_locatie_externnr
+        VARCHAR2(256),
+    alg_locatie_externsyncdate
+        DATE,
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -180,11 +196,28 @@ CREATE_TABLE(alg_terreinsector,0)
     alg_terreinsector_verwijder
         DATE
         DEFAULT NULLDATUM,
+    alg_terreinsector_vervaldatum
+        DATE,
     alg_terreinsector_ordernr
         VARCHAR2(30),
+    alg_terreinsector_image
+        VARCHAR2(255),
     alg_terreinsector_getekend
         DATE
         DEFAULT NULLDATUM,
+    alg_terreinsector_toon_telef
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_terreinsector_telf CHECK(alg_terreinsector_toon_telef IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_terreinsector_toon_email
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_terreinsector_mail CHECK(alg_terreinsector_toon_email IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_terreinsector_toon_kentk
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_terreinsector_kent CHECK(alg_terreinsector_toon_kentk IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_terreinsector_externnr
+        VARCHAR2(256),
+    alg_terreinsector_extsyncdate
+        DATE,
 -- in PRS_TAB.SRC:
 --    prs_kostenplaats_key
 --        NUMBER(10)
@@ -192,6 +225,12 @@ CREATE_TABLE(alg_terreinsector,0)
 --    prs_afdeling_key
 --        NUMBER(10)
 --        CONSTRAINT alg_r_prs_afdeling1 REFERENCES prs_afdeling(prs_afdeling_key),
+--    prs_perslid_key_verantw
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key3 REFERENCES prs_perslid(prs_perslid_key),
+--    prs_perslid_key_verantw2
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key4 REFERENCES prs_perslid(prs_perslid_key),
     CONSTRAINT alg_u_alg_terreinsector_upper UNIQUE(alg_locatie_key, alg_terreinsector_upper, alg_terreinsector_verwijder)
 );
 
@@ -217,6 +256,34 @@ CREATE_TABLE(alg_srtgebouw,0)
     alg_srtgebouw_verwijder
         DATE
         DEFAULT NULLDATUM,
+    alg_srtgebouw_aspect_max_vg     /* Veiligheid - Gezondheid */
+        NUMBER(2)
+        DEFAULT 1
+        NOT NULL,
+    alg_srtgebouw_aspect_max_ch     /* Cultuur Historische waarde */
+        NUMBER(2)
+        DEFAULT 2
+        NOT NULL,
+    alg_srtgebouw_aspect_max_gb     /* Gebruik en Bedrijfsproces */
+        NUMBER(2)
+        DEFAULT 3
+        NOT NULL,
+    alg_srtgebouw_aspect_max_tv     /* Technische Vervolgschade */
+        NUMBER(2)
+        DEFAULT 5
+        NOT NULL,
+    alg_srtgebouw_aspect_max_tk     /* Toename Klachtenonderhoud */
+        NUMBER(2)
+        DEFAULT 5
+        NOT NULL,
+    alg_srtgebouw_aspect_max_be     /* Beleving - Esthetica */
+        NUMBER(2)
+        DEFAULT 7
+        NOT NULL,
+    alg_srtgebouw_aspect_max_en     /* Energie (aanvulling) */
+        NUMBER(2)
+        DEFAULT 4
+        NOT NULL,
     CONSTRAINT alg_u_alg_srtgebouw_upper UNIQUE(alg_srtgebouw_upper, alg_srtgebouw_verwijder)
 );
 
@@ -282,9 +349,9 @@ CREATE_TABLE(alg_gebouw,0)
 --        NUMBER(10)
 --        CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key),
     alg_gebouw_dwgx
-        NUMBER(10,3),
+        NUMBER(16,3),
     alg_gebouw_dwgy
-        NUMBER(10,3),
+        NUMBER(16,3),
     alg_gebouw_x
         NUMBER(16,6),
     alg_gebouw_y
@@ -307,8 +374,25 @@ CREATE_TABLE(alg_gebouw,0)
         VARCHAR2(200),
     alg_gebouw_vervaldatum
         DATE,
+    alg_gebouw_image
+        VARCHAR2(255),
     alg_gebouw_mjb_score1
         NUMBER(6,2),
+    alg_gebouw_toon_telefoon
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_gebouw_toon_telf CHECK(alg_gebouw_toon_telefoon IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_gebouw_toon_email
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_gebouw_toon_mail CHECK(alg_gebouw_toon_email IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_gebouw_toon_kenteken
+        NUMBER(3) DEFAULT(0) NOT NULL
+        CONSTRAINT alg_c_alg_gebouw_toon_kent CHECK(alg_gebouw_toon_kenteken IN (0,1,2,3)),   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+    alg_gebouw_groep
+        VARCHAR2(60),
+    alg_gebouw_externnr
+        VARCHAR2(256),
+    alg_gebouw_externsyncdate
+        DATE,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 
@@ -346,6 +430,10 @@ CREATE_TABLE(alg_verdieping,0)
     alg_verdieping_code
     	VARCHAR2(10)
     	NOT_NULL(alg_verdieping_code, alg_c_alg_verdieping_code),
+    alg_verdieping_externnr
+        VARCHAR2(256),
+    alg_verdieping_externsyncdate
+        DATE,
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -445,10 +533,10 @@ CREATE_TABLE(alg_ruimte,0)
         NUMBER(10)
         CONSTRAINT alg_r_alg_srtruimte_key REFERENCES alg_srtruimte(alg_srtruimte_key),
     alg_ruimte_nr
-        VARCHAR2(10)
+        VARCHAR2(20)
         NOT_NULL(alg_ruimte_nr, alg_c_alg_ruimte_nr),
     alg_ruimte_upper_nr         /* references into the drawing */
-        VARCHAR2(10)
+        VARCHAR2(20)
         NOT_NULL(alg_ruimte_upper_nr, alg_c_alg_ruimte_upper_nr),
     alg_ruimte_acadkey
         VARCHAR2(10),
@@ -495,6 +583,10 @@ CREATE_TABLE(alg_ruimte,0)
         NUMBER(1)
         -- DEFAULT NULL op gebouw terugvallen
         CONSTRAINT alg_c_alg_ruimte_werk CHECK(alg_ruimte_werkdagen IN (0,1)),
+    alg_ruimte_externnr
+        VARCHAR2(256),
+    alg_ruimte_externsyncdate
+        DATE,
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -560,11 +652,13 @@ CREATE_TABLE(alg_kenmerk,0)
         VARCHAR2(255)
     ,alg_kenmerk_default
         VARCHAR2(4000)
+    ,alg_kenmerk_show_expr
+        VARCHAR2(4000)
     ,alg_kenmerk_dimensie
         VARCHAR2(10)
     ,alg_kenmerk_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+        CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,alg_kenmerk_systeem
         NUMBER(2)
     ,alg_kenmerk_toonbaar

ALG/ALG_VIE.SRC

@@ -281,6 +281,10 @@ CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
    alg_gebouw_key,
    alg_gebouw_code,
    alg_gebouw_naam,
+   alg_gebouw_toon_telefoon,
+   alg_gebouw_toon_email,
+   alg_gebouw_toon_kenteken,
+   alg_gebouw_groep,
    alg_terreinsector_key,
    alg_terreinsector_code,
    alg_terreinsector_naam,
@@ -314,6 +318,10 @@ AS
           alg_g.alg_gebouw_key,
           alg_g.alg_gebouw_code,
           alg_g.alg_gebouw_naam,
+          alg_g.alg_gebouw_toon_telefoon,
+          alg_g.alg_gebouw_toon_email,
+          alg_g.alg_gebouw_toon_kenteken,
+          alg_g.alg_gebouw_groep,
           TO_NUMBER (NULL),
           NULL,
           NULL,
@@ -349,6 +357,10 @@ AS
           alg_g.alg_gebouw_key,
           alg_g.alg_gebouw_code,
           alg_g.alg_gebouw_naam,
+          alg_g.alg_gebouw_toon_telefoon,
+          alg_g.alg_gebouw_toon_email,
+          alg_g.alg_gebouw_toon_kenteken,
+          alg_g.alg_gebouw_groep,
           TO_NUMBER (NULL),
           NULL,
           NULL,
@@ -374,6 +386,10 @@ AS
           alg_g.alg_gebouw_key,
           alg_g.alg_gebouw_code,
           alg_g.alg_gebouw_naam,
+          alg_g.alg_gebouw_toon_telefoon,
+          alg_g.alg_gebouw_toon_email,
+          alg_g.alg_gebouw_toon_kenteken,
+          alg_g.alg_gebouw_groep,
           TO_NUMBER (NULL),
           NULL,
           NULL,
@@ -400,6 +416,10 @@ AS
           TO_NUMBER (NULL),
           NULL,
           NULL,
+          alg_t.alg_terreinsector_toon_telef,
+          alg_t.alg_terreinsector_toon_email,
+          alg_t.alg_terreinsector_toon_kentk,
+          NULL,
           alg_t.alg_terreinsector_key,
           alg_t.alg_terreinsector_code,
           alg_t.alg_terreinsector_naam,

AUT/AUT_TAB.SRC

@@ -81,6 +81,10 @@ CREATE TABLE aut_idp_map
         NUMBER(1)
         DEFAULT 0
         NOT NULL,
+    aut_idp_map_autocreate -- unused/future use
+        NUMBER(1)
+        DEFAULT 0 -- +1: create; +2: update
+        NOT NULL,
     aut_idp_map_default
         VARCHAR(256),
     aut_idp_map_aanmaak

BES/BES_IND.SRC

@@ -40,12 +40,8 @@ create index prs_i_prs_afdeling_p_bdr_key on prs_afdeling (prs_bedrijf_key);
 create unique index bes_i_bes_disc_params1 on bes_disc_params(bes_ins_discipline_key);
 
 CREATE INDEX bes_i_bes_kenmerkbestell1 ON bes_kenmerkbestell(bes_bestelling_key);
-CREATE INDEX bes_i_bes_kenmerkbestell2 ON bes_kenmerkbestell(bes_kenmerk_key);
-CREATE INDEX bes_i_bes_kenmerkbestell3 ON bes_kenmerkbestell(bes_kenmerkbestell_waarde);
 
 CREATE INDEX bes_i_bes_kenmerkbesteli1 ON bes_kenmerkbesteli(bes_bestelling_item_key);
-CREATE INDEX bes_i_bes_kenmerkbesteli2 ON bes_kenmerkbesteli(bes_kenmerk_key);
-CREATE INDEX bes_i_bes_kenmerkbesteli3 ON bes_kenmerkbesteli(bes_kenmerkbesteli_waarde);
 
 CREATE INDEX bes_i_bes_favoriet1 ON bes_favoriet(prs_perslid_key);
 

BES/BES_PAC.SRC

@@ -71,6 +71,12 @@ AS
       RETURN varchar2;
    FUNCTION opdrsprintf (ps IN varchar2, pbes_bestelopdr_key IN number)
       RETURN varchar2;
+   PROCEDURE remove(p_bes_bestelling_key IN NUMBER);
+   PROCEDURE remove_opdr(p_bes_opdr_key IN NUMBER);
+   FUNCTION bes_besteed_budget_pgb (p_prs_key IN NUMBER, p_disc_key IN NUMBER)
+      RETURN NUMBER;
+   FUNCTION bes_besteed_budget_agb (p_kp_key IN NUMBER)
+      RETURN NUMBER;
 END bes;
 /
 
@@ -609,10 +615,10 @@ AS
    -- De actuele prijs is nu geregistreerd
    END;
 
-  // was: bes_check_or_create_item
-  // Maakt een artikel (bes_srtdeel) aan binnen een reeds bestaande catalogus (discipline), waarbij zonodig nog de groep
-  // (srtgroep) wordt aangemaakt. Deze wordt aangeroepen bij een punchout bestelling, en om te voorkomen dat dergelijke
-  // artikelen rechtstreeks worden besteld wordt direct de verwijderdatum ook gezet. Dat je het weet.
+   -- was: bes_check_or_create_item
+   -- Maakt een artikel (bes_srtdeel) aan binnen een reeds bestaande catalogus (discipline), waarbij zonodig nog de groep
+   -- (srtgroep) wordt aangemaakt. Deze wordt aangeroepen bij een punchout bestelling, en om te voorkomen dat dergelijke
+   -- artikelen rechtstreeks worden besteld wordt direct de verwijderdatum ook gezet. Dat je het weet.
    PROCEDURE upsert_srtdeel (p_ins_discipline_key          IN NUMBER,
                              p_bes_srtgroep_omschrijving   IN VARCHAR2,                                  -- VARCHAR2(60)
                              p_bes_srtdeel_omschrijving    IN VARCHAR2,                                 -- VARCHAR2 (60)
@@ -2073,8 +2079,8 @@ AS
              FROM   bes_bestelling b
             WHERE   b.bes_bestelling_key  = pbes_bestelling_key;
            s := REPLACE( REPLACE( REPLACE( s
-                       , '##KEY##',   NUMBER_TO_CHAR (pbes_bestelling_key) )
-                       , '##DATUM##', DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
+                       , '##KEY##',   TO_CHAR (pbes_bestelling_key) )
+                       , '##DATUM##', TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
                        , '##DISC##',  pbes_discipline
                        );
          END IF;
@@ -2084,13 +2090,36 @@ AS
    FUNCTION opdrsprintf (ps IN VARCHAR2, pbes_bestelopdr_key IN NUMBER)
       RETURN VARCHAR2
    IS
-      s VARCHAR2 (2048 CHAR);
+      s   VARCHAR2 (2048 CHAR);
+      f   VARCHAR2 (2048 CHAR);
+      d   NUMBER := 0;
+      fmt VARCHAR2 (50 CHAR);
+      s1  VARCHAR2 (2048 CHAR);
+      d1  NUMBER;
+      d2  NUMBER;
       lopdrid bes_bestelopdr.bes_bestelopdr_id%TYPE;
    BEGIN
       s := ps;
 
       -- We support substitution of placeholders in the messages
       -- ##KEY##    = bes_bestelopdr_id
+      -- ##KEYN##   = voorloop+bes_bestelopdr_id
+      IF (instr2 (s, '#') > 0 AND instr2 (s, '$') > 0)
+      THEN
+         f := SUBSTR( s, INSTR2( s, '$$')+2);
+         f := SUBSTR( f, 1, INSTR2( f, '##')-1);
+         s := REPLACE( s, '$$'||f, '');
+         IF f is not null
+         THEN
+            BEGIN
+               d := TO_NUMBER(f);
+            EXCEPTION
+               WHEN OTHERS THEN d := 0;
+            END;
+            fmt := LPAD('0', d, '0');
+         END IF;
+      END IF;
+
       IF INSTR (s, '#') > 0
       THEN
          SELECT   bes_bestelopdr_id
@@ -2098,12 +2127,273 @@ AS
            FROM   bes_bestelopdr
           WHERE   bes_bestelopdr_key = pbes_bestelopdr_key;
 
-         s := REPLACE (s, '##KEY##', lopdrid);
+         IF (INSTR (s, '##KEY##') > 0)
+         THEN
+            s := REPLACE (s, '##KEY##', lopdrid);
+         END IF;
+         --
+         IF (INSTR (s, '##KEYN##') > 0)
+         THEN
+            IF (fmt IS NOT NULL)
+            THEN
+               s1 := fmt || lopdrid;
+               d2 := INSTR(lopdrid, '/')-1;
+               IF (d2<0)
+               THEN
+                  d2 := LENGTH(lopdrid);
+                  d1 := LENGTH(s1)+1;
+               ELSE
+                  d1 := INSTR(s1, '/');
+               END IF;
+               s1 := SUBSTR(s1, (d1 - d));
+               IF (d < d2) THEN
+                  s1 := '####';
+               END IF;
+            ELSE
+               s1 := lopdrid;
+            END IF;
+            --
+            s := REPLACE (s, '##KEYN##',  s1);
+         END IF;
       END IF;
 
       RETURN s;
     END;
 
+    PROCEDURE remove(p_bes_bestelling_key IN NUMBER)
+    IS
+        CURSOR c_bestelling(p_bestelling_key IN NUMBER) IS
+            SELECT bes_bestelling_key
+              FROM bes_bestelling
+             WHERE bes_bestelling_retourvan_key = p_bestelling_key
+                OR bes_bestelling_parentkey = p_bestelling_key;
+
+        CURSOR c_opdracht(p_bestelling_key IN NUMBER) IS
+            SELECT DISTINCT oi.bes_bestelopdr_key
+              FROM bes_bestelling_item bi
+                 , bes_bestelopdr_item oi
+             WHERE bi.bes_bestelopdr_item_key = oi.bes_bestelopdr_item_key
+               AND bi.bes_bestelling_key = p_bestelling_key;
+
+       CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+          SELECT b.fac_bijlagen_key
+            FROM fac_bijlagen b
+               , bes_bestelling r
+               , (SELECT k.bes_kenmerk_key kenmerk_key
+                    FROM bes_kenmerk k
+                       , bes_srtkenmerk s
+                   WHERE k.bes_srtkenmerk_key = s.bes_srtkenmerk_key
+                     AND k.bes_kenmerk_type = 'B'
+                     AND s.bes_srtkenmerk_kenmerktype IN ('F', 'M', 'E', 'X')
+                 ) k
+           WHERE b.fac_bijlagen_refkey = r.bes_bestelling_key
+             AND b.fac_bijlagen_kenmerk_key = k.kenmerk_key
+             AND b.fac_bijlagen_module = 'BES'
+             AND r.bes_bestelling_key = p_refkey
+          UNION
+          SELECT b.fac_bijlagen_key
+            FROM fac_bijlagen b
+               , bes_bestelling_item r
+               , (SELECT k.bes_kenmerk_key kenmerk_key
+                    FROM bes_kenmerk k
+                       , bes_srtkenmerk s
+                   WHERE k.bes_srtkenmerk_key = s.bes_srtkenmerk_key
+                     AND k.bes_kenmerk_type = 'B'
+                     AND s.bes_srtkenmerk_kenmerktype IN ('F', 'M', 'E', 'X')
+                 ) k
+           WHERE b.fac_bijlagen_refkey = r.bes_bestelling_item_key
+             AND b.fac_bijlagen_kenmerk_key = k.kenmerk_key
+             AND b.fac_bijlagen_module = 'BES'
+             AND r.bes_bestelling_key = p_refkey;
+
+    BEGIN
+        -- Ook alle child/retour bestellingen verwijderen.
+        FOR ref_bestelling IN c_bestelling(p_bes_bestelling_key)
+        LOOP
+            bes.remove(ref_bestelling.bes_bestelling_key);
+        END LOOP;
+
+        -- Alle bestelopdrachten onder de bestelling verwijderen.
+        FOR ref_opdracht IN c_opdracht(p_bes_bestelling_key)
+        LOOP
+            bes.remove_opdr(ref_opdracht.bes_bestelopdr_key);
+        END LOOP;
+
+        -- Van alle bestellingen en bestelitems die worden verwijderd moeten ook de bijlagen verwijderd worden.
+        FOR ref_bijlagen IN c_bijlagen(p_bes_bestelling_key)
+        LOOP
+            flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+        END LOOP;
+
+        -- Verwijderen bestelling
+        DELETE FROM bes_bestelling
+         WHERE bes_bestelling_key = p_bes_bestelling_key;
+
+        -- Van de volgende tabellen worden de records die naar deze p_bes_bestelling_key
+        -- verwijzen met ON DELETE CASCADE ook verwijderd:
+        --  bes_kenmerkbestell
+        --  bes_bestelling_item
+        -- Hierdoor worden de afhankelijkheden in de volgende tabel ook verwijderd:
+        --  bes_kenmerkbesteli
+
+        fac.remove_tracking('bestelling', p_bes_bestelling_key);
+    END;
+
+    PROCEDURE remove_opdr(p_bes_opdr_key IN NUMBER)
+    IS
+        CURSOR c_factuur(p_bestelopdracht_key IN NUMBER) IS
+            SELECT fin_factuur_key
+              FROM fin_factuur
+             WHERE bes_bestelopdr_key = p_bestelopdracht_key;
+    BEGIN
+        -- Verwijderen bestelopdracht
+        FOR ref_factuur IN c_factuur(p_bes_opdr_key)
+        LOOP
+            fin.remove(ref_factuur.fin_factuur_key);
+        END LOOP;
+
+        -- verwijder de verwijzing van bestelaanvraag regel naar bestelopdracht regel
+        -- dat had een on delete set null mogen zijn
+        UPDATE bes_bestelling_item
+           SET bes_bestelopdr_item_key = NULL
+         WHERE bes_bestelopdr_item_key IN
+                (SELECT bes_bestelopdr_item_key
+                   FROM bes_bestelopdr_item
+                  WHERE bes_bestelopdr_key = p_bes_opdr_key);
+
+        FOR ref_contract IN (SELECT cnt_contract_key
+                               FROM cnt_contract
+                              WHERE bes_bestelopdr_key = p_bes_opdr_key
+                            )
+        LOOP
+            -- Verwijder contracten die aan deze bestelopdracht zitten.
+            cnt.remove(ref_contract.cnt_contract_key);
+        END LOOP;
+
+        DELETE FROM bes_bestelopdr
+         WHERE bes_bestelopdr_key = p_bes_opdr_key;
+
+        -- Van de volgende tabellen worden de records die naar deze p_bestelling_key
+        -- verwijzen met ON DELETE CASCADE ook verwijderd:
+        --  bes_bestelopdr_item
+
+        fac.remove_tracking('bestelopdr', p_bes_opdr_key);
+    END;
+
+   FUNCTION bes_besteed_budget_pgb (p_prs_key IN NUMBER, p_disc_key IN NUMBER)
+      RETURN NUMBER
+   AS
+      l_budgetbesteld            NUMBER := 0;
+   BEGIN
+      -- Besteed budget van meegegeven persoon dit jaar voor de meegegeven discipline i.v.m. Persoons Gebonden Budget (PGB).
+      -- Eventueel uitgezonderd (huidige) bestellingkey bes_key en meldingopdrachtkey opdr_key.
+      -- De discipline instelling disc_params_pgb moet 1 of 3 zijn. Afhankelijk van deze instelling roep je de pgb of agb versie aan. Hier opnieuw controleren is niet nodig.
+      -- Totaalbedrag van eerdere bestellingen en meldingopdrachten dit jaar van de besteller en behandelaar i.v.m. Persoons Gebonden Budget (PGB).
+      SELECT COALESCE(SUM(totaalbedrag), 0) - COALESCE(SUM(korting), 0) + COALESCE(SUM(levkosten), 0) budgetbesteld
+        INTO l_budgetbesteld
+        FROM (SELECT SUM(totaalbedrag) totaalbedrag
+                   , SUM(b.bes_bestelling_korting) korting
+                   , SUM(b.bes_bestelling_levkosten) levkosten
+                FROM (SELECT SUM (boi.bes_bestelopdr_item_aantal * boi.bes_bestelopdr_item_prijs) totaalbedrag
+                           , b.bes_bestelling_key
+                        FROM bes_bestelling b
+                           , bes_bestelling_item bi
+                           , bes_bestelopdr_item boi
+                           , bes_bestelopdr bo
+                           , bes_srtdeel isd
+                           , bes_srtgroep isg
+                       WHERE 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 = isd.bes_srtdeel_key
+                         AND isd.bes_srtgroep_key = isg.bes_srtgroep_key
+                         AND b.prs_perslid_key = p_prs_key
+                         AND isg.ins_discipline_key = p_disc_key
+                         -- Alleen bestellingopdrachten in de behandelings fase (In bestelling (Bevestigd)(4)) en in de gereed fase (Geleverd(6) en Verwerkt(7)).
+                         -- Afgewezen(1), In behandeling(3), Ter bevestiging(5) en Geannuleerd(8) doen niet mee in de bepaling van geraamde en definitieve kosten.
+                         AND bo.bes_bestelopdr_status IN (4, 6, 7)
+                         AND b.bes_bestelling_datum >= TRUNC (SYSDATE, 'YEAR')
+                      GROUP BY b.bes_bestelling_key) tot
+                   , bes_bestelling b
+               WHERE b.bes_bestelling_key = tot.bes_bestelling_key);
+      RETURN l_budgetbesteld;
+   END;
+
+   FUNCTION bes_besteed_budget_agb (p_kp_key IN NUMBER)
+      RETURN NUMBER
+   AS
+      l_budgetbesteld            NUMBER := 0;
+      l_kp_limietperiode         NUMBER (1);
+      l_periode                  VARCHAR2 (4);
+   BEGIN
+      -- Besteed budget van meegegeven persoon afgelopen periode i.v.m. Afdelings Gebonden Budget (AGB).
+      -- Eventueel uitgezonderd (huidige) bestellingkey bes_key en meldingopdrachtkey opdr_key.
+      -- De discipline instelling disc_params_pgb moet 1 of 3 zijn. Afhankelijk van deze instelling roep je de pgb of agb versie aan. Hier opnieuw controleren is niet nodig.
+      -- Totaalbedrag van eerdere bestellingen en meldingopdrachten van afgelopen periode van de besteller en behandeaar i.v.m. Afdelings Gebonden Budget (AGB).
+
+      -- Limietperiode kostenplaats (prs_kostenplaats_limietperiode): 0(of NULL)=geen(oneindig) (default), 1=maand, 2=jaar.
+      IF p_kp_key > 0
+      THEN
+         -- Er is een kostenplaats gevonden.
+         -- De limiet periode van de kostenplaatsgroep overruled die van de kostenplaats indien ingevuld.
+         SELECT CASE COALESCE(kg.prs_kostenplaatsgrp_limperiode, 0)   -- Indien kostenplaats geen kostenplaatsgroep heeft dan ook "Geen" en eigen limietperiode van de kostenplaats nemen.
+                WHEN 0    -- Geen.
+                THEN k.prs_kostenplaats_limietperiode
+                ELSE kg.prs_kostenplaatsgrp_limperiode   -- Maand of Jaar.
+                END limietperiode
+           INTO l_kp_limietperiode
+           FROM prs_kostenplaats k
+              , prs_kostenplaatsgrp kg
+          WHERE k.prs_kostenplaatsgrp_key = kg.prs_kostenplaatsgrp_key(+)
+            AND k.prs_kostenplaats_key = p_kp_key;
+
+         IF l_kp_limietperiode = 1
+         THEN
+            l_periode := 'MM';     -- Maandelijks budget.
+         ELSIF l_kp_limietperiode = 2
+         THEN
+            l_periode := 'YYYY';   -- Jaarlijks budget.
+         ELSE
+            l_periode := NULL;
+         END IF;
+
+        SELECT COALESCE(SUM(totaalbedrag), 0) - COALESCE(SUM(korting), 0) + COALESCE(SUM(levkosten), 0) budgetbesteld
+         INTO l_budgetbesteld
+         FROM (SELECT SUM(totaalbedrag) totaalbedrag
+                    , SUM(b.bes_bestelling_korting) korting
+                    , SUM(b.bes_bestelling_levkosten) levkosten
+                 FROM (SELECT SUM (boi.bes_bestelopdr_item_aantal * boi.bes_bestelopdr_item_prijs) totaalbedrag
+                            , b.bes_bestelling_key
+                         FROM bes_bestelling b
+                            , bes_bestelling_item bi
+                            , bes_bestelopdr_item boi
+                            , bes_bestelopdr bo
+                            , bes_srtdeel bsd
+                            , bes_srtgroep bsg
+                            , bes_discipline bd
+                            , bes_disc_params bdp
+                        WHERE 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 = bsd.bes_srtdeel_key
+                          AND bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+                          AND bsg.ins_discipline_key = bd.ins_discipline_key
+                          AND bsg.ins_discipline_key = bdp.bes_ins_discipline_key
+                          AND bdp.bes_disc_params_pgb IN (2, 3)   -- Alleenn agb meetellen: 2 = Alleen agb, 3 = Beiden, pgb en agb.
+                          AND b.prs_kostenplaats_key = p_kp_key
+                          -- Alleen bestellingopdrachten in de behandelings fase (In bestelling (Bevestigd)(4)) en in de gereed fase (Geleverd(6) en Verwerkt(7)).
+                          -- Afgewezen(1), In behandeling(3), Ter bevestiging(5) en Geannuleerd(8) doen niet mee in de bepaling van geraamde en definitieve kosten.
+                          AND bo.bes_bestelopdr_status IN (4, 6, 7)
+                          AND ((l_periode IS NOT NULL AND b.bes_bestelling_datum >= TRUNC (SYSDATE, l_periode))
+                            OR (l_periode IS NULL))   -- De eerste van de deze maand of 1 januari dit jaar
+                       GROUP BY b.bes_bestelling_key) tot
+                    , bes_bestelling b
+                WHERE b.bes_bestelling_key = tot.bes_bestelling_key);
+      END IF;
+
+      RETURN l_budgetbesteld;
+   END;
+
 END bes;
 /
 

BES/BES_TAB.SRC

@@ -160,9 +160,11 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_details_loc
         VARCHAR2(255),
     bes_srtdeel_veelvoud
-        NUMBER(6),
+        NUMBER(9,3),
     bes_srtdeel_minimum
         NUMBER(6),
+    bes_srtdeel_maximum
+        NUMBER(6),
     bes_staffeltabel_key
         NUMBER(10)
         CONSTRAINT bes_r_staffeltabel2 REFERENCES bes_staffeltabel(bes_staffeltabel_key),
@@ -255,7 +257,7 @@ CREATE_TABLE(bes_bestelling, 0)
         CONSTRAINT fac_r_fac_activiteit3 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
     mld_melding_key /* optionele verwijzing naar veroorzakende melding */
         NUMBER(10)
-        CONSTRAINT bes_r_mld_melding1 REFERENCES mld_melding(mld_melding_key),
+        CONSTRAINT bes_r_mld_melding1 REFERENCES mld_melding(mld_melding_key) ON DELETE SET NULL,
     bes_bestelling_kto_verstuurd
         DATE,
     bes_bestelling_satisfaction
@@ -265,7 +267,11 @@ CREATE_TABLE(bes_bestelling, 0)
     bes_bestelling_approved
         NUMBER(11,2),
     bes_bestelling_lev_opm
-        VARCHAR2(320)
+        VARCHAR2(320),
+    bes_bestelling_externnr
+        VARCHAR2(256),
+    bes_bestelling_externsyncdate
+        DATE
 );
 
 CREATE_TABLE(bes_bestelopdr, 0)
@@ -307,7 +313,11 @@ CREATE_TABLE(bes_bestelopdr, 0)
     bes_bestelopdr_delivery_opmerk
         VARCHAR2(320),
     bes_bestelopdr_flag
-        NUMBER(1)
+        NUMBER(1),
+    bes_bestelopdr_externnr
+        VARCHAR2(256),
+    bes_bestelopdr_externsyncdate
+        DATE
 );
 
 ALTER TABLE cnt_contract ADD bes_bestelopdr_key
@@ -330,14 +340,16 @@ CREATE_TABLE(bes_bestelopdr_item, 0)
     bes_bestelopdr_item_posnr
         NUMBER(5),
     bes_bestelopdr_item_aantal
-        NUMBER(5)
+        NUMBER(15,3)
         CONSTRAINT bes_c_bes_bestelopdr_i_aantal CHECK(bes_bestelopdr_item_aantal IS NOT NULL),
     bes_bestelopdr_item_aantalontv
-        NUMBER(5),
+        NUMBER(15,3),
     bes_bestelopdr_item_aantalexp
-        NUMBER(5),
+        NUMBER(15,3),
     bes_bestelopdr_item_omschrijv
         VARCHAR2(320),
+    bes_bestelopdr_item_opmerking
+        VARCHAR2(100),
     bes_bestelopdr_item_prijs
         NUMBER(12,6),
     bes_bestelopdr_item_inkprijs
@@ -369,7 +381,7 @@ CREATE_TABLE(bes_bestelling_item, 0)
         CONSTRAINT bes_c_bes_srtdeel_key1 CHECK(bes_srtdeel_key IS NOT NULL)
         CONSTRAINT bes_r_bes_srtdeel_key REFERENCES bes_srtdeel(bes_srtdeel_key),
     bes_bestelling_item_aantal
-        NUMBER(5)
+        NUMBER(15,3)
         CONSTRAINT bes_c_bes_bestelling_i_aantal CHECK(bes_bestelling_item_aantal IS NOT NULL),
     bes_bestelling_item_brutoprijs /* verkoopprijs ten tijde van bestelling */
         NUMBER(8,2),
@@ -381,7 +393,7 @@ CREATE_TABLE(bes_bestelling_item, 0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_bestelopdr_i_key1 REFERENCES bes_bestelopdr_item(bes_bestelopdr_item_key),
     bes_bestelling_item_aantalontv
-        NUMBER(5),
+        NUMBER(15,3),
     bes_bestelling_item_status
         NUMBER(10),
     CONSTRAINT bes_c_bes_bestelling_item
@@ -448,6 +460,8 @@ CREATE_TABLE(bes_disc_params, 0)
         CONSTRAINT bes_c_disc_params1 CHECK(bes_disc_params_factmatchmode IN (2,3)), /* leeg mag ook */
     bes_disc_params_leverdagen    /* default levertijd */
         NUMBER,
+    bes_disc_params_expire_tijd
+        NUMBER(5,2),              /* grenstijdstip van de dag voor die freeze (bv 16.5) */
     bes_disc_params_punchouturl
         VARCHAR2(1024),
     bes_disc_params_punch_bedr_key
@@ -582,7 +596,7 @@ CREATE_TABLE(bes_srtkenmerk, 0)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_omschr    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_srtkenmerk_omschrijving    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_u_bes_srtkenmerk_upper    UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
-,  CONSTRAINT bes_c_bes_srtkenmerk_kenmtype  CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+,  CONSTRAINT bes_c_bes_srtkenmerk_kenmtype  CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT bes_c_bes_srtkenmerk_lengte    CHECK(bes_srtkenmerk_lengte >= 1
                                                AND bes_srtkenmerk_lengte <= 4000)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_max_min   CHECK(bes_srtkenmerk_nmax >= bes_srtkenmerk_nmin)
@@ -607,6 +621,8 @@ CREATE_TABLE(bes_kenmerk, 0)
       VARCHAR2(1)
       CONSTRAINT bes_c_ins_kenmerk_niveau2 CHECK
             (bes_kenmerk_niveau is not null and (bes_kenmerk_niveau IN( 'D', 'G', 'S')))
+,  bes_kenmerk_omschrijving
+      VARCHAR2(50) /* optionele overrule van srtkenmerk_omschrijving */
 ,  bes_kenmerk_verplicht
       NUMBER(1)
 ,  bes_kenmerk_groep
@@ -628,6 +644,8 @@ CREATE_TABLE(bes_kenmerk, 0)
       DEFAULT SYSDATE
 ,  bes_kenmerk_default
       VARCHAR2(4000)
+,  bes_kenmerk_show_expr
+      VARCHAR2(4000)
 ,  bes_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
@@ -637,7 +655,7 @@ CREATE_TABLE(bes_kenmerk, 0)
 ,  CONSTRAINT bes_c_bes_kenmerk_toonbaar     CHECK(bes_kenmerk_toonbaar IS NULL
                                                 OR bes_kenmerk_toonbaar = 1)
 ,  CONSTRAINT bes_c_bes_kenmerk_aanmaak      CHECK(bes_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT bes_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_groep, bes_kenmerk_verwijder)
+,  CONSTRAINT bes_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_omschrijving, bes_kenmerk_groep, bes_kenmerk_verwijder)
 );
 
 CREATE_TABLE(bes_kenmerkbestell, 0)

BEZ/BEZ_PAC.SRC

@@ -12,6 +12,7 @@ CREATE OR REPLACE PACKAGE bez AS
   FUNCTION  hasparking    (pbez_bezoekers_key IN NUMBER) RETURN NUMBER;
   FUNCTION  afssprintf       (ps IN VARCHAR2 , p_afspraak_key IN NUMBER) RETURN VARCHAR2 ;
   FUNCTION  bzksprintf       (ps IN VARCHAR2 , p_bezoekers_key IN NUMBER) RETURN VARCHAR2 ;
+  PROCEDURE remove (p_afspraak_key IN NUMBER);
 END bez;
 /
 
@@ -38,7 +39,11 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                   bez_afspraak_naam,
                   bez_afspraak_bedrijf,
                   bez_bezoekers_opmerking,
-                  prs_contactpersoon_key
+                  bez_bezoekers_telefoon,
+                  bez_bezoekers_email,
+                  bez_bezoekers_kenteken,
+                  prs_contactpersoon_key,
+                  prs_perslid_key
            FROM   bez_bezoekers
           WHERE   bez_afspraak_key = pkey;
    BEGIN
@@ -101,7 +106,11 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                        bez_afspraak_naam,
                                        bez_afspraak_bedrijf,
                                        bez_bezoekers_opmerking,
-                                       prs_contactpersoon_key
+                                       bez_bezoekers_telefoon,
+                                       bez_bezoekers_email,
+                                       bez_bezoekers_kenteken,
+                                       prs_contactpersoon_key,
+                                       prs_perslid_key
                     )
            VALUES   (
                         newbezoekerskey,
@@ -109,7 +118,11 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                         b.bez_afspraak_naam,
                         b.bez_afspraak_bedrijf,
                         b.bez_bezoekers_opmerking,
-                        b.prs_contactpersoon_key
+                        b.bez_bezoekers_telefoon,
+                        b.bez_bezoekers_email,
+                        b.bez_bezoekers_kenteken,
+                        b.prs_contactpersoon_key,
+                        b.prs_perslid_key
                     );
 
          -- Als de bron een P had, dan de bestemming ook
@@ -123,6 +136,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          END IF;
 
          -- Kopieer de flexkenmerken van de bezoekers
+         -- Do not copy backoffice characteristics (> 900)
          INSERT INTO bez_kenmerkwaarde
                      ( bez_bezoekers_key,
                        bez_kenmerk_key,
@@ -135,6 +149,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                             bez_kenmerk k
                       WHERE w.bez_kenmerk_key = k.bez_kenmerk_key
                         AND w.bez_bezoekers_key = b.bez_bezoekers_key
+                        AND k.bez_kenmerk_volgnr <= 900
                         AND w.bez_kenmerkwaarde_verwijder IS NULL;
 
       END LOOP;
@@ -375,7 +390,6 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       RETURN aantal;
    END;
 
-
   FUNCTION afssprintf (ps IN VARCHAR2, p_afspraak_key IN NUMBER) RETURN VARCHAR2 IS
     lafspraak_datum  bez_afspraak.bez_afspraak_datum%TYPE;
     lbezoek          VARCHAR2 (200);
@@ -399,9 +413,9 @@ CREATE OR REPLACE PACKAGE BODY bez AS
      GROUP BY bez_afspraak_key;
 
        s :=
-          REPLACE (REPLACE (REPLACE (s, '##NAAM##', lbezoek), '##KEY##', NUMBER_TO_CHAR (p_afspraak_key)),
+          REPLACE (REPLACE (REPLACE (s, '##NAAM##', lbezoek), '##KEY##', TO_CHAR (p_afspraak_key)),
                    '##DATUM##',
-                   DATE_TO_CHAR (lafspraak_datum, 'DD-MM-YY HH24:MI')
+                   TO_CHAR (lafspraak_datum, 'DD-MM-YY HH24:MI')
                   );
    END IF;
    RETURN s;
@@ -431,16 +445,39 @@ CREATE OR REPLACE PACKAGE BODY bez AS
        AND bez_bezoekers_key = p_bezoekers_key;
 
        s :=
-          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (s, '##NAAM##', lbezoek), '##KEY##', NUMBER_TO_CHAR (lafspraak_key)),
+          REPLACE (REPLACE (REPLACE (REPLACE (REPLACE (s, '##NAAM##', lbezoek), '##KEY##', TO_CHAR (lafspraak_key)),
                    '##DATUM##',
-                   DATE_TO_CHAR (lafspraak_datum, 'DD-MM-YY HH24:MI')
+                   TO_CHAR (lafspraak_datum, 'DD-MM-YY HH24:MI')
                   ), '##BEDRIJF##', lbedrijf), '##PASNR##', lbadgenr);
    END IF;
    RETURN s;
 
   END;
 
+   PROCEDURE remove(p_afspraak_key IN NUMBER)
+   IS
+      CURSOR c_bezoekers IS
+          SELECT bez_bezoekers_key
+            FROM bez_bezoekers
+           WHERE bez_afspraak_key = p_afspraak_key;
+   BEGIN
+       FOR ref_bezoekers IN c_bezoekers
+       LOOP
+           DELETE FROM bez_bezoekers
+            WHERE bez_bezoekers_key = ref_bezoekers.bez_bezoekers_key;
+           -- Van de volgende tabel worden de records die naar deze bez_bezoekers_key
+           -- verwijzen met ON DELETE CASCADE verwijderd;
+           --  bez_kenmerkwaarde
+           -- In de volgende tabel wordt bez_bezoekers_key leeg gemaakt bij het verwijderen van bez_bezoekers:
+           --  res_rsv_deel
+           fac.remove_tracking('bezoeker', ref_bezoekers.bez_bezoekers_key);
+       END LOOP;
 
+       DELETE FROM bez_afspraak
+        WHERE bez_afspraak_key = p_afspraak_key;
+
+       fac.remove_tracking('afspraak', p_afspraak_key);
+   END;
 
 END bez;
 /

BEZ/BEZ_TAB.SRC

@@ -61,6 +61,13 @@ CREATE_TABLE(bez_afspraak,0)
     bez_afspraak_opmerking
         VARCHAR2(320),
     bez_afspraak_eind
+        DATE,
+    bez_afspraak_aanmaak
+        DATE
+        DEFAULT SYSDATE NOT NULL,
+    bez_afspraak_externnr
+        VARCHAR2(256),
+    bez_afspraak_externsyncdate
         DATE
 );
 
@@ -92,13 +99,25 @@ CREATE_TABLE(bez_bezoekers,0)
         DATE,
     bez_bezoekers_out
         DATE,
+    bez_bezoekers_done_actual
+        DATE,
+    bez_bezoekers_out_actual
+        DATE,
     bez_bezoekers_oproep
         DATE,
     bez_bezoekers_flags -- documentatie in appl/bez/xxx.inc
         NUMBER(10)
         DEFAULT 0 NOT NULL,
     bez_bezoekers_flag
-        NUMBER(1)
+        NUMBER(1),
+    bez_bezoekers_aanmaak
+        DATE
+        DEFAULT SYSDATE NOT NULL,
+    bez_bezoekers_telefoon VARCHAR2(20),
+    bez_bezoekers_email VARCHAR2(200),
+    bez_bezoekers_kenteken VARCHAR2(10),
+    bez_bezoekers_externnr VARCHAR2(256),
+    bez_bezoekers_externsyncdate DATE
  );
 
 
@@ -125,12 +144,14 @@ CREATE_TABLE(bez_kenmerk,0)
         VARCHAR2(255)
     ,bez_kenmerk_default
         VARCHAR2(4000)
+    ,bez_kenmerk_show_expr
+        VARCHAR2(4000)
     ,bez_kenmerk_dimensie
         VARCHAR2(10)
     ,bez_kenmerk_kenmerktype
         VARCHAR2(1)
         CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
-         (bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+         (bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,bez_kenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
         NUMBER(2)
         DEFAULT 0 NOT NULL

BEZ/BEZ_TRI.SRC

@@ -58,7 +58,7 @@ CREATE_TRIGGER(bez_t_bez_afspraak_d)
    ON bez_afspraak
    FOR EACH ROW
 BEGIN
-   DELETE FROM bez_bezoekers WHERE bez_afspraak_key=:OLD.bez_afspraak_key;
+   DELETE FROM bez_bezoekers WHERE bez_afspraak_key = :OLD.bez_afspraak_key;
 END;
 /
 
@@ -83,26 +83,25 @@ CREATE_TRIGGER(bez_t_notificatie_afspraak_d)
    ON bez_afspraak
    FOR EACH ROW
 BEGIN
-   fac.clrnotifications('BEZMUT', :OLD.bez_afspraak_key);
-   fac.clrnotifications('BEZUPD', :OLD.bez_afspraak_key);
-   fac.clrnotifications('BEZMAI', :OLD.bez_afspraak_key);
+   -- Alle notificaties verwijderen van de "afspraak" xmlnode die behoren bij de verwijderde afspraak.
+   fac.clrnotifications_xmlnode('afspraak', :OLD.bez_afspraak_key);
+   -- Tracking verwijderen die niet weg gaat als de afspraak wordt verwijderd.
+   fac.clrtracking_xmlnode('afspraak', :OLD.bez_afspraak_key);
 END;
 /
+
 CREATE_TRIGGER(bez_t_notificatie_bezoekers_d)
    AFTER DELETE
    ON bez_bezoekers
    FOR EACH ROW
 BEGIN
-   fac.clrnotifications('BEZDO%', :OLD.bez_bezoekers_key);
-   fac.clrnotifications('BEZOU%', :OLD.bez_bezoekers_key);
-   fac.clrnotifications('BEZBAD', :OLD.bez_bezoekers_key);
+   -- Alle notificaties verwijderen van de "bezoeker" xmlnode die behoren bij de verwijderde bezoeker.
+   fac.clrnotifications_xmlnode('bezoeker', :OLD.bez_bezoekers_key);
+   -- Tracking verwijderen die niet weg gaat als de bezoeker wordt verwijderd.
+   fac.clrtracking_xmlnode('bezoeker', :OLD.bez_bezoekers_key);
 END;
 /
 
-
-
-
-
 CREATE_TRIGGER(bez_t_bez_kenmerk_b_iu)
 BEFORE INSERT OR UPDATE ON bez_kenmerk
 FOR EACH ROW

BEZ/BEZ_VIE.SRC

@@ -60,6 +60,7 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
     bezoeker_naam,
     bezoeker_bedrijf,
     bezoek_van,
+    weekdag_bezoek_van,
     bezoek_tot,
     actie,
     bezoeker_opmerking,
@@ -68,6 +69,9 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
     pasnr,
     parkeerplaats,
     fclt_3d_locatie_key,
+    fclt_3d_divisie_key,
+    divisie_naam,
+    divisie_omschrijving,
     fclt_3d_afdeling_key,
     selfservice
 )
@@ -96,6 +100,7 @@ AS
            b.bez_afspraak_naam bezoeker_naam,
            b.bez_afspraak_bedrijf bezoeker_bedrijf,
            a.bez_afspraak_datum,
+           TO_CHAR(a.bez_afspraak_datum, 'D') weekdag_bezoek_van,
            a.bez_afspraak_eind,
            ba.bez_actie_omschrijving,
            b.bez_bezoekers_opmerking bezoeker_opmerking,
@@ -104,6 +109,9 @@ AS
            b.bez_bezoekers_pasnr,
            rd.res_deel_omschrijving,
            a.alg_locatie_key,
+           an.prs_afdeling_key,
+           an.prs_afdeling_naam,
+           an.prs_afdeling_omschrijving,
            pp1.prs_afdeling_key,
            DECODE (p2.prs_perslid_naam_full, p3.prs_perslid_naam_full, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) selfservice
       FROM bez_afspraak a,
@@ -117,6 +125,8 @@ AS
            alg_regio r,
            bez_actie ba,
            prs_perslid pp1,
+           prs_v_afdeling_boom ab,
+           prs_v_afdeling an,
            res_rsv_deel rrd,
            res_deel rd
      WHERE     a.bez_afspraak_key = b.bez_afspraak_key
@@ -131,6 +141,8 @@ AS
            AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys(+)
            AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
            AND rrd.res_deel_key = rd.res_deel_key(+)
+           AND ab.prs_afdeling_key1 = an.prs_afdeling_key
+           AND ab.prs_afdeling_key = pp1.prs_afdeling_key
            AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
 
 CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
@@ -173,6 +185,9 @@ CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
    kostensoort,
    kpn,
    kpn_omschrijving,
+   fclt_3d_divisie_key,
+   divisie_naam,
+   divisie_omschrijving,
    fclt_3d_afdeling_key,
    afdeling_code,
    afdeling_omschrijving,
@@ -252,6 +267,9 @@ SELECT
    r.kostensoort,
    r.kpn,
    r.kpn_omschrijving,
+   r.fclt_3d_divisie_key,
+   r.divisie_naam,
+   r.divisie_omschrijving,
    r.fclt_3d_afdeling_key,
    r.afdeling_code,
    r.afdeling_omschrijving,

BGT/BGT_IND.SRC

@@ -4,6 +4,12 @@
  * $Id$
  */
 
+CREATE INDEX bgt_i_bgt_budget_key_naar ON bgt_budgetmutatie(bgt_budget_key_naar);
+CREATE INDEX bgt_i_bgt_budget_key_van  ON bgt_budgetmutatie(bgt_budget_key_van);
+CREATE INDEX bgt_i_bgt_disc_params ON bgt_disc_params(bgt_ins_discipline_key);
+CREATE INDEX bgt_i_bgt_budget ON bgt_budget(ins_discipline_key, bgt_project_key, bgt_kostenrubriek_key, prs_kostensoortgrp_key, prs_kostensoort_key);
+
+
 
 REGISTERONCE('$Id$')
 

BGT/BGT_PAC.SRC

@@ -71,7 +71,7 @@ AS
    BEGIN
       -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       BEGIN
-         SELECT SUM(bedrag_mutatie)
+         SELECT COALESCE(SUM(bedrag_mutatie), 0)
            INTO v_bedrag_mut
            FROM (SELECT bgt_budgetmutatie_key
                       , bgt_budget_key_van     budget_key
@@ -101,7 +101,7 @@ AS
    FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
                               , p_btw IN NUMBER
                               , p_datum_van DATE DEFAULT NULL
-                              , p_datum_tot DATE DEFAULT NULL
+                              , p_datum_tot DATE DEFAULT NULL  -- eigenlijk: tot-en-met
                               ) RETURN NUMBER
    IS
       v_bedrag_mut  NUMBER;
@@ -111,23 +111,23 @@ AS
       BEGIN
          SELECT COALESCE(SUM(mut.bedrag_mutaties), 0)
            INTO v_bedrag_mut
-           FROM (SELECT CASE WHEN p_btw=0 THEN SUM(bgt_budget_bedrag_van)
-                             WHEN p_btw=1 THEN SUM(bgt_budget_btwbedrag_van)
-                             WHEN p_btw=2 THEN SUM(bgt_budget_bedrag_van) + SUM(bgt_budget_btwbedrag_van)
+           FROM (SELECT CASE WHEN p_btw=0 THEN COALESCE(SUM(bgt_budget_bedrag_van), 0)
+                             WHEN p_btw=1 THEN COALESCE(SUM(bgt_budget_btwbedrag_van), 0)
+                             WHEN p_btw=2 THEN COALESCE(SUM(bgt_budget_bedrag_van), 0) + COALESCE(SUM(bgt_budget_btwbedrag_van), 0)
                         END bedrag_mutaties
                    FROM bgt_budgetmutatie
                   WHERE bgt_budget_key_van = p_budget_key
-                    AND ((p_datum_van IS NOT NULL AND bgt_budgetmutatie_datum >= p_datum_van) OR p_datum_van IS NULL)
-                    AND ((p_datum_tot IS NOT NULL AND bgt_budgetmutatie_datum <  p_datum_tot) OR p_datum_tot IS NULL)
+                    AND ((p_datum_van IS NOT NULL AND TRUNC(bgt_budgetmutatie_datum) >= p_datum_van) OR p_datum_van IS NULL)
+                    AND ((p_datum_tot IS NOT NULL AND TRUNC(bgt_budgetmutatie_datum) <= p_datum_tot) OR p_datum_tot IS NULL)
                  UNION
-                 SELECT CASE WHEN p_btw=0 THEN SUM(bgt_budget_bedrag_naar)
-                             WHEN p_btw=1 THEN SUM(bgt_budget_btwbedrag_naar)
-                             WHEN p_btw=2 THEN SUM(bgt_budget_bedrag_naar) + SUM(bgt_budget_btwbedrag_naar)
+                 SELECT CASE WHEN p_btw=0 THEN COALESCE(SUM(bgt_budget_bedrag_naar), 0)
+                             WHEN p_btw=1 THEN COALESCE(SUM(bgt_budget_btwbedrag_naar), 0)
+                             WHEN p_btw=2 THEN COALESCE(SUM(bgt_budget_bedrag_naar), 0) + COALESCE(SUM(bgt_budget_btwbedrag_naar), 0)
                         END bedrag_mutaties
                    FROM bgt_budgetmutatie
                   WHERE bgt_budget_key_naar = p_budget_key
-                    AND ((p_datum_van IS NOT NULL AND bgt_budgetmutatie_datum >= p_datum_van) OR p_datum_van IS NULL)
-                    AND ((p_datum_tot IS NOT NULL AND bgt_budgetmutatie_datum <  p_datum_tot) OR p_datum_tot IS NULL)
+                    AND ((p_datum_van IS NOT NULL AND TRUNC(bgt_budgetmutatie_datum) >= p_datum_van) OR p_datum_van IS NULL)
+                    AND ((p_datum_tot IS NOT NULL AND TRUNC(bgt_budgetmutatie_datum) <= p_datum_tot) OR p_datum_tot IS NULL)
                 ) mut;
       EXCEPTION
          WHEN NO_DATA_FOUND THEN
@@ -180,13 +180,13 @@ AS
    BEGIN
       -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       BEGIN
-         SELECT SUM(bgt_mutatie_bedrag) bgt_mutatie_bedrag
+         SELECT COALESCE(SUM(bgt_mutatie_bedrag), 0) bgt_mutatie_bedrag
            INTO v_bedrag
            FROM ( SELECT b.bgt_kostenrubriek_key
                        , b.prs_kostensoortgrp_key
                        , b.prs_kostensoort_key
                        , b.bgt_budget_isreserve
-                       , m.bgt_budgetmutatie_datum
+                       , TRUNC(m.bgt_budgetmutatie_datum)  bgt_budgetmutatie_datum
                        , CASE WHEN p_btw=0 THEN COALESCE(m.bgt_budget_bedrag_van, 0)
                               WHEN p_btw=1 THEN COALESCE(m.bgt_budget_btwbedrag_van, 0)
                               WHEN p_btw=2 THEN COALESCE(m.bgt_budget_bedrag_van, 0) + COALESCE(m.bgt_budget_btwbedrag_van, 0)
@@ -200,7 +200,7 @@ AS
                        , b.prs_kostensoortgrp_key
                        , b.prs_kostensoort_key
                        , b.bgt_budget_isreserve
-                       , m.bgt_budgetmutatie_datum
+                       , TRUNC(m.bgt_budgetmutatie_datum)  bgt_budgetmutatie_datum
                        , CASE WHEN p_btw=0 THEN COALESCE(m.bgt_budget_bedrag_naar, 0)
                               WHEN p_btw=1 THEN COALESCE(m.bgt_budget_btwbedrag_naar, 0)
                               WHEN p_btw=2 THEN COALESCE(m.bgt_budget_bedrag_naar, 0) + COALESCE(m.bgt_budget_btwbedrag_naar, 0)
@@ -218,7 +218,7 @@ AS
                OR (p_kostenrubriek_key IS NULL     AND p_kostensoortgrp_key IS NOT NULL AND p_kostensoort_key IS NULL     AND prs_kostensoortgrp_key = p_kostensoortgrp_key AND prs_kostensoort_key IS NULL)
                OR (p_kostenrubriek_key IS NULL     AND p_kostensoortgrp_key IS NULL     AND p_kostensoort_key IS NOT NULL AND prs_kostensoort_key = p_kostensoort_key)
                )
-           AND (bgt_budgetmutatie_datum < p_datum OR p_datum IS NULL);
+           AND (TRUNC(bgt_budgetmutatie_datum) <= p_datum OR p_datum IS NULL);
       EXCEPTION
          WHEN NO_DATA_FOUND THEN
             v_bedrag := NULL;
@@ -233,6 +233,7 @@ AS
       v_budget_naar           bgt_budgetmutatie.bgt_budget_key_naar%TYPE;
       v_mutatie_omschrijving  bgt_budgetmutatie.bgt_budgetmutatie_omschrijving%TYPE;
       v_mutatie_reserve       bgt_budgetmutatie.bgt_budgetmutatie_reserve%TYPE;
+      v_mutatie_code          bgt_budgetmutatie.bgt_budgetmutatie_code%TYPE;
       v_mutatie_level_van     VARCHAR2(1);
       v_mutatie_level_naar    VARCHAR2(1);
       v_soort_mutatie         VARCHAR2(1);
@@ -243,6 +244,7 @@ AS
               , m.bgt_budget_key_naar
               , m.bgt_budgetmutatie_omschrijving
               , m.bgt_budgetmutatie_reserve
+              , m.bgt_budgetmutatie_code
               , CASE WHEN bv.prs_kostensoort_key IS NOT NULL
                      THEN 'S'
                      ELSE CASE WHEN bv.prs_kostensoortgrp_key IS NOT NULL
@@ -268,6 +270,7 @@ AS
               , v_budget_naar
               , v_mutatie_omschrijving
               , v_mutatie_reserve
+              , v_mutatie_code
               , v_mutatie_level_van
               , v_mutatie_level_naar
               , v_budget_isreserve
@@ -281,12 +284,17 @@ AS
          -- Mutatie van-naar reserve (tussen algemeenreserve en kostensoort of kostenrubriek en kostensoort)
          -- (Is dus allebei tussen kostenrubriek en kostensoort).
          -- Maak nog onderscheid tussen automatische overboeking A (correctie van budget tgv meer gecontracteerd dan budget)
-         -- en een gewone mutatie van/naar reserve.
+         --                             overboeking wegens meer-minderwerk W
+         --                             en een gewone mutatie van/naar reserve.
          IF (  (v_mutatie_level_van  = 'R')
             OR (v_mutatie_level_naar = 'R')
             ) THEN
             IF (v_mutatie_reserve = 1) THEN  -- 'AO Automatische overboeking'
-                v_soort_mutatie := 'A';
+                IF (v_mutatie_code = 'W') THEN
+                    v_soort_mutatie := 'W';
+                ELSE
+                    v_soort_mutatie := 'A';
+                END IF;
             ELSE
                 v_soort_mutatie := 'R';
             END IF;
@@ -317,7 +325,7 @@ AS
                              , p_btw IN NUMBER
                              , p_status NUMBER DEFAULT 3
                              , p_datum_van DATE DEFAULT NULL
-                             , p_datum_tot DATE DEFAULT NULL
+                             , p_datum_tot DATE DEFAULT NULL  -- eigenlijk: tot-en-met
                              ) RETURN NUMBER
    IS
       v_bedrag  NUMBER;
@@ -337,8 +345,8 @@ AS
                 OR (p_status = 2 AND mld_statusopdr_key <> 10)
                 OR (p_status = 3 AND mld_statusopdr_key = mld_statusopdr_key)
                 )
-            AND ((p_datum_van IS NOT NULL AND mld_opdr_datumbegin >= p_datum_van) OR p_datum_van IS NULL)
-            AND ((p_datum_tot IS NOT NULL AND mld_opdr_datumbegin <  p_datum_tot) OR p_datum_tot IS NULL);
+            AND ((p_datum_van IS NOT NULL AND TRUNC(mld_opdr_datumbegin) >= p_datum_van) OR p_datum_van IS NULL)
+            AND ((p_datum_tot IS NOT NULL AND TRUNC(mld_opdr_datumbegin) <= p_datum_tot) OR p_datum_tot IS NULL);
       EXCEPTION
          WHEN NO_DATA_FOUND THEN
             v_bedrag := NULL;
@@ -391,7 +399,7 @@ AS
    FUNCTION getGefactureerd ( p_mld_opdr_key IN NUMBER
                             , p_btw IN NUMBER
                             , p_datum_van DATE DEFAULT NULL
-                            , p_datum_tot DATE DEFAULT NULL
+                            , p_datum_tot DATE DEFAULT NULL  -- eigenlijk: tot-en-met
                             ) RETURN NUMBER
    IS
       v_bedrag  NUMBER;
@@ -405,8 +413,8 @@ AS
                 END facturen
            INTO v_bedrag
            FROM fin_factuur
-          WHERE ((p_datum_van IS NOT NULL AND fin_factuur_datum >= p_datum_van) OR p_datum_van IS NULL)
-            AND ((p_datum_tot IS NOT NULL AND fin_factuur_datum <  p_datum_tot) OR p_datum_tot IS NULL)
+          WHERE ((p_datum_van IS NOT NULL AND TRUNC(fin_factuur_advies) >= p_datum_van) OR p_datum_van IS NULL)
+            AND ((p_datum_tot IS NOT NULL AND TRUNC(fin_factuur_advies) <= p_datum_tot) OR p_datum_tot IS NULL)
             AND mld_opdr_key = p_mld_opdr_key;
       EXCEPTION
          WHEN NO_DATA_FOUND THEN

BGT/BGT_TAB.SRC

@@ -50,8 +50,6 @@ CREATE_TABLE(bgt_project, 0)
     CONSTRAINT bgt_u_bgt_project UNIQUE(ins_discipline_key, bgt_project_code, bgt_project_verwijder)
 );
 
-ALTER TABLE prs_kostenplaatsgrp ADD bgt_project_key NUMBER(10) CONSTRAINT prs_r_bgt_project_key2 REFERENCES bgt_project (bgt_project_key);
-
 CREATE_TABLE(bgt_kostenrubriek,0)
 (
     bgt_kostenrubriek_key
@@ -63,7 +61,10 @@ CREATE_TABLE(bgt_kostenrubriek,0)
     bgt_kostenrubriek_code
         VARCHAR2 (20 BYTE),
     bgt_kostenrubriek_oms
-        VARCHAR2 (60 BYTE) NOT NULL
+        VARCHAR2 (60 BYTE) NOT NULL,
+    fin_btwtabelwaarde_key
+        NUMBER(10)
+        CONSTRAINT bgt_r_fin_btwtabelwaarde_key REFERENCES fin_btwtabelwaarde (fin_btwtabelwaarde_key)
 );
 
 ALTER TABLE prs_kostensoortgrp ADD bgt_kostenrubriek_key NUMBER(10) CONSTRAINT prs_r_bgt_kostenrubriek_key1 REFERENCES bgt_kostenrubriek (bgt_kostenrubriek_key);

BGT/BGT_VIE.SRC

@@ -22,7 +22,6 @@ AS
          , pr.bgt_project_code                                                  dcode
          , pr.bgt_project_code     || ' - ' || pr.bgt_project_omschrijving      subproject
          , pr.bgt_project_omschrijving                                          subprojectnaam
-         , ''                                                                   versienummer
          , id.ins_discipline_verwijder
          , pr.bgt_project_verwijder
       FROM ins_tab_discipline  id
@@ -44,7 +43,6 @@ AS
          , pr.dcode
          , pr.subproject
          , pr.subprojectnaam
-         , pr.versienummer
          , pr.ins_discipline_verwijder
          , pr.bgt_project_verwijder
          , kr.bgt_kostenrubriek_key
@@ -71,7 +69,6 @@ AS
          , pr.dcode
          , pr.subproject
          , pr.subprojectnaam
-         , pr.versienummer
          , pr.ins_discipline_verwijder
          , pr.bgt_project_verwijder
          , kr.bgt_kostenrubriek_key
@@ -100,7 +97,6 @@ AS
          , pr.dcode
          , pr.subproject
          , pr.subprojectnaam
-         , pr.versienummer
          , pr.ins_discipline_verwijder
          , pr.bgt_project_verwijder
          , kr.bgt_kostenrubriek_key

CAD/CAD_INI.SRC

@@ -7,11 +7,10 @@
 _FAC_MODULE('CAD','lcl_module_CAD')
 
 
-INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default legenda', 1);
-INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Aantallen', 0);
-
-UPDATE cad_legenda SET cad_legenda_key=1 WHERE cad_legenda_omschrijving='Default legenda';
-UPDATE cad_legenda SET cad_legenda_key=2 WHERE cad_legenda_omschrijving='Aantallen';
+INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (1, 'Default legenda', 1);
+INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (2, 'Aantallen', 0);
+// IN prj_ini: INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (3, 'Default project legenda', 1);
+INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (4, 'Bezetting', 1);
 
 INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
 VALUES (2,'0','FFFFFF','0');
@@ -36,6 +35,14 @@ VALUES (2,'50','FF5A09','50');
 INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
 VALUES (2,'99','FF0000','99');
 
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'0','33CC33','hele dag beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'1','FF9900','''s middags beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'2','FFFF00','''s ochtends beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'3','FF0000','hele dag bezet');
 
 INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
    SELECT 'Ruimtefunctie', 1, 'cad_v_thema_srtruimte', 1, fac_functie_key
@@ -64,12 +71,19 @@ INSERT INTO CAD_THEMA
       from fac_functie
     where fac_functie_code = 'WEB_PRSBOF';
 
--- NB: deze gaat met vaste key 12, een harde default voor infobord.
+-- NB: deze gaan met vaste keys 12,13 harde defaults voor infobord.
 INSERT INTO cad_thema
     ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
     SELECT 12, 'Actuele bezetting', 1, 'cad_v_thema_srtruimtesensor', '1', fac_functie_key
       from fac_functie
     where fac_functie_code = 'WEB_RESFOF';
+
+INSERT INTO cad_thema
+    ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
+    SELECT 13, 'Werkplekbezetting', 4, 'cad_v_thema_deel_res_datum', '17', fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_RESUSE';
+
 -- De cad_thema_key sequence gaat later vanzelf wel verder met 21.
 
 
@@ -106,6 +120,11 @@ INSERT INTO cad_label
     SELECT 12, 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', 500, 0, fac_functie_key
       from fac_functie
     where fac_functie_code = 'WEB_RESFOF';
+INSERT INTO cad_label
+    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, cad_label_visible, fac_functie_key )
+    SELECT 13, 'Werkplekbezetting', 'cad_v_label_deel_res_datum', '17', 700, 0, fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_RESUSE';
 -- De cad_label_key sequence gaat later vanzelf wel verder met 21.
 
 REGISTERONCE('$Id$')

CAD/CAD_SEQ.SRC

@@ -6,7 +6,7 @@
 
 CREATE SEQUENCE cad_s_cad_tekening_key MINVALUE 1;
 
-CREATE SEQUENCE cad_s_cad_legenda_key MINVALUE 1;
+CREATE SEQUENCE cad_s_cad_legenda_key MINVALUE 21;
 CREATE SEQUENCE cad_s_cad_legendawaarde_key MINVALUE 1;
 CREATE SEQUENCE cad_s_cad_thema_key MINVALUE 1;
 CREATE SEQUENCE cad_s_cad_label_key MINVALUE 1;

CAD/CAD_TAB.SRC

@@ -101,6 +101,15 @@ CREATE_TABLE(cad_thema,0)
         VARCHAR2(512)
 );
 
+ALTER TABLE mld_stdmelding
+ADD
+(
+    cad_thema_key
+        NUMBER(10)
+        CONSTRAINT mld_r_cad_thema_key1 REFERENCES cad_thema(cad_thema_key)
+);
+
+
 CREATE_TABLE(cad_label,0)
 (
     cad_label_key

CAD/CAD_VIE.SRC

@@ -50,22 +50,19 @@ SELECT
 CREATE_VIEW(cad_v_label_bewoner, 0)
      (alg_ruimte_key, waarde)
 AS
-SELECT prs_w.prs_alg_ruimte_key,
-          prs_p.prs_perslid_naam
-       || DECODE (prs_p.prs_perslid_voorletters, NULL, '', ', ' || prs_p.prs_perslid_voorletters)
-       || DECODE (prs_p.prs_perslid_voornaam, NULL, '', ' (' || prs_p.prs_perslid_voornaam || ')')
-  FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_perslid prs_p
- WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
-   AND prs_pw.prs_perslid_key IS NOT NULL
-   AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
-   AND prs_w.prs_werkplek_virtueel = 0
-UNION
-SELECT prs_w.prs_alg_ruimte_key, '[Vrij]'
-  FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb
- WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key
-   AND prs_w.prs_werkplek_virtueel = 0
-   AND prs_wb.prs_werkplek_bezetting < 100;
-
+    SELECT prs_w.prs_alg_ruimte_key,
+              prs_p.prs_perslid_naam_friendly
+      FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
+     WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
+           AND prs_pw.prs_perslid_key IS NOT NULL
+           AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
+           AND prs_w.prs_werkplek_virtueel = 0
+    UNION
+    SELECT prs_w.prs_alg_ruimte_key, '['||lcl.l('lcl_free')||']'
+      FROM prs_werkplek prs_w, prs_v_werkplek_bezetting prs_wb
+     WHERE     prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key
+           AND prs_w.prs_werkplek_virtueel = 0
+           AND prs_wb.prs_werkplek_bezetting < 100;
 
 -- Toont alle afdelingen die aan een ruimte gekoppeld zijn
 CREATE_VIEW(cad_v_label_afdelingen, 0)
@@ -128,37 +125,31 @@ SELECT wp.prs_alg_ruimte_key, d.prs_afdeling_naam
 
 CREATE_VIEW(cad_v_label_bewonerwp, 0) (alg_ruimte_key,waarde)
 AS
-   SELECT DISTINCT prs_alg_ruimte_key, waarde
-              FROM (SELECT prs_w.prs_alg_ruimte_key,
-                              CHR (1)
-                           || prs_w.prs_werkplek_volgnr
-                           || ' '
-                           || prs_p.prs_perslid_naam
-                           || DECODE (prs_p.prs_perslid_voorletters, NULL, '', ', ' || prs_p.prs_perslid_voorletters)
-                           || DECODE (prs_p.prs_perslid_voornaam, NULL, '', ' (' || prs_p.prs_perslid_voornaam || ')')
-                           || ': '
-                           || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0))
-                           || '%' waarde
-                      FROM prs_werkplek prs_w,
-                           prs_perslidwerkplek prs_pw,
-                           prs_perslid prs_p
-                     WHERE prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
-                       AND prs_pw.prs_perslid_key IS NOT NULL
-                       AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
-                    UNION
-                    SELECT   prs_w.prs_alg_ruimte_key,
-                                CHR (1)
-                             || prs_w.prs_werkplek_volgnr
-                             || ' Vrij: '
-                             || TO_CHAR (100 - NVL (SUM (prs_wb.prs_perslidwerkplek_bezetting), 0))
-                             || '%'
-                        FROM prs_werkplek prs_w,
-                             prs_perslidwerkplek prs_wb
-                       WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+)
-                    GROUP BY prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr
-                      HAVING SUM (NVL (prs_wb.prs_perslidwerkplek_bezetting, 0)) < 100) DATA
-/
-
+    SELECT DISTINCT prs_alg_ruimte_key, waarde
+      FROM (SELECT prs_w.prs_alg_ruimte_key,
+                      CHR (1)
+                   || prs_w.prs_werkplek_volgnr
+                   || ' '
+                   || prs_p.prs_perslid_naam_friendly
+                   || ' '
+                   || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0))
+                   || '%'
+                       waarde
+              FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
+             WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
+                   AND prs_pw.prs_perslid_key IS NOT NULL
+                   AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
+            UNION
+              SELECT prs_w.prs_alg_ruimte_key,
+                        CHR (1)
+                     || prs_w.prs_werkplek_volgnr
+                     || ' '|| initcap(lcl.l('lcl_free'))||' '
+                     || TO_CHAR (100 - NVL (SUM (prs_wb.prs_perslidwerkplek_bezetting), 0))
+                     || '%'
+                FROM prs_werkplek prs_w, prs_perslidwerkplek prs_wb
+               WHERE prs_w.prs_werkplek_key = prs_wb.prs_werkplek_key(+)
+            GROUP BY prs_w.prs_alg_ruimte_key, prs_w.prs_werkplek_key, prs_w.prs_werkplek_volgnr
+              HAVING SUM (NVL (prs_wb.prs_perslidwerkplek_bezetting, 0)) < 100) data;
 
 CREATE_VIEW(CAD_V_THEMA_AANTALWP, 0) (ALG_RUIMTE_KEY, WAARDE)
 AS
@@ -274,26 +265,24 @@ AS
 
 CREATE_VIEW(cad_v_label_bewoner2,0) (alg_ruimte_key, waarde)
 AS
-   SELECT alg_ruimte_key,
-             prs_p.prs_perslid_naam
-          || DECODE (prs_p.prs_perslid_voorletters,
-                     NULL, '',
-                     ', ' || prs_p.prs_perslid_voorletters
-                    )
-          || DECODE (prs_p.prs_perslid_voornaam,
-                     NULL, '',
-                     ' (' || prs_p.prs_perslid_voornaam || ')'
-                    )
-          || '-'
-          || CASE
-                WHEN aantalwp > 1
-                   THEN norm_verband || '/'
-                ELSE ''
-             END
-          || prs_p.prs_perslid_dienstverband
-          || ' FTE'
-     FROM prs_perslid prs_p, prs_v_norm_verband pnv
-    WHERE pnv.prs_perslid_key = prs_p.prs_perslid_key;
+    SELECT alg_ruimte_key,
+              pf.prs_perslid_naam_friendly
+           || '-'
+           || CASE
+                  WHEN aantalwp > 1 AND norm_verband IS NOT NULL THEN norm_verband || '/'
+                  ELSE ''
+              END
+           || CASE
+                  WHEN p.prs_perslid_dienstverband IS NOT NULL
+                  THEN
+                      p.prs_perslid_dienstverband || '%'
+                  ELSE
+                      ''
+              END
+      FROM prs_v_perslid_fullnames pf, prs_perslid p, prs_v_norm_verband pnv
+     WHERE     pf.prs_perslid_key = p.prs_perslid_key
+           AND pnv.prs_perslid_key = p.prs_perslid_key
+           AND p.prs_perslid_verwijder IS NULL;
 
 CREATE OR REPLACE FORCE VIEW PRJ_V_CAD_LABEL_BEWONERWPE
 (
@@ -302,59 +291,48 @@ CREATE OR REPLACE FORCE VIEW PRJ_V_CAD_LABEL_BEWONERWPE
    HIGHLIGHT
 )
 AS
-   SELECT DISTINCT
-          prj_werkplek_key, waarde, DECODE (prj_selectie_key, NULL, 0, 1)
-     FROM (SELECT prj_r.prj_scenario_key,
-                  prs_w.prj_werkplek_key,
-                     prs_p.prs_perslid_naam
-                  || DECODE (prs_p.prs_perslid_voorletters,
-                             NULL, '',
-                             ', ' || prs_p.prs_perslid_voorletters)
-                  || DECODE (prs_p.prs_perslid_voornaam,
-                             NULL, '',
-                             ' (' || prs_p.prs_perslid_voornaam || ')')
-                  || ': '
-                  || TO_CHAR (NVL (prs_pw.prj_perslidwerkplek_bezetting, 0))
-                  || '%'
-                     waarde,
-                  'PRJ_WERKPLEK' label_soort,
-                  prs_pw.prj_werkplek_key label_key
-             FROM PRJ_RUIMTE prj_r,
-                  PRJ_WERKPLEK prs_w,
-                  (SELECT *
-                     FROM PRJ_PERSLIDWERKPLEK
-                    WHERE prj_perslidwerkplek_verwijder IS NULL) prs_pw,
-                  PRS_PERSLID prs_p
-            WHERE     prs_w.prj_werkplek_key = prs_pw.prj_werkplek_key
-                  AND prs_pw.prs_perslid_key IS NOT NULL
-                  AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
-                  AND prs_w.prj_ruimte_key = prj_r.prj_ruimte_key
-           UNION
-             SELECT -1,
-                    prs_w.prj_werkplek_key,
-                    ' Vrij: '
-                    || TO_CHAR(100
-                               - NVL (
-                                    SUM (prs_wb.prj_perslidwerkplek_bezetting),
-                                    0))
-                    || '%',
-                    'PRJ_WERKPLEK',
-                    prs_w.prj_werkplek_key
-               FROM PRJ_WERKPLEK prs_w,
-                    (SELECT *
-                       FROM PRJ_PERSLIDWERKPLEK
-                      WHERE prj_perslidwerkplek_verwijder IS NULL) prs_wb
-              WHERE prs_w.prj_werkplek_key = prs_wb.prj_werkplek_key(+)
-                    AND prj_werkplek_verwijder IS NULL
-           GROUP BY prs_w.prj_werkplek_key,
-                    prs_w.prj_werkplek_key,
-                    prs_w.prj_werkplek_volgnr
-             HAVING SUM (NVL (prs_wb.prj_perslidwerkplek_bezetting, 0)) < 100)
-          DATA,
-          PRJ_SELECTIE ps
-    WHERE     ps.prj_scenario_key(+) = DATA.prj_scenario_key
-          AND ps.prj_selectie_tabelnaam(+) = label_soort
-          AND ps.prj_selectie_tabelkey(+) = label_key;
+    SELECT DISTINCT prj_werkplek_key, waarde, DECODE (prj_selectie_key, NULL, 0, 1)
+      FROM (SELECT prj_r.prj_scenario_key,
+                   prs_w.prj_werkplek_key,
+                      prs_p.prs_perslid_naam_friendly
+                   || ': '
+                   || TO_CHAR (NVL (prs_pw.prj_perslidwerkplek_bezetting, 0))
+                   || '%'
+                       waarde,
+                   'PRJ_WERKPLEK'
+                       label_soort,
+                   prs_pw.prj_werkplek_key
+                       label_key
+              FROM prj_ruimte               prj_r,
+                   prj_werkplek             prs_w,
+                   (SELECT *
+                      FROM prj_perslidwerkplek
+                     WHERE prj_perslidwerkplek_verwijder IS NULL) prs_pw,
+                   prs_v_perslid_fullnames  prs_p
+             WHERE     prs_w.prj_werkplek_key = prs_pw.prj_werkplek_key
+                   AND prs_pw.prs_perslid_key IS NOT NULL
+                   AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key
+                   AND prs_w.prj_ruimte_key = prj_r.prj_ruimte_key
+            UNION
+              SELECT -1,
+                     prs_w.prj_werkplek_key,
+                        ' Vrij: '
+                     || TO_CHAR (100 - NVL (SUM (prs_wb.prj_perslidwerkplek_bezetting), 0))
+                     || '%',
+                     'PRJ_WERKPLEK',
+                     prs_w.prj_werkplek_key
+                FROM prj_werkplek prs_w,
+                     (SELECT *
+                        FROM prj_perslidwerkplek
+                       WHERE prj_perslidwerkplek_verwijder IS NULL) prs_wb
+               WHERE     prs_w.prj_werkplek_key = prs_wb.prj_werkplek_key(+)
+                     AND prj_werkplek_verwijder IS NULL
+            GROUP BY prs_w.prj_werkplek_key, prs_w.prj_werkplek_key, prs_w.prj_werkplek_volgnr
+              HAVING SUM (NVL (prs_wb.prj_perslidwerkplek_bezetting, 0)) < 100) data,
+           prj_selectie  ps
+     WHERE     ps.prj_scenario_key(+) = data.prj_scenario_key
+           AND ps.prj_selectie_tabelnaam(+) = label_soort
+           AND ps.prj_selectie_tabelkey(+) = label_key;
 
 /* Lijstje met (ALGCAD) wijzigingen op een ruimte
    Kolom FAC_TRACKING_DATUM om een klantspecifieke beperking mogelijk te maken
@@ -443,26 +421,14 @@ CREATE_VIEW(cad_v_label_wp_bewoner, 0)
 AS
     SELECT DISTINCT
            prs_w.prs_werkplek_key,
-           DECODE (
-               prs_p.prs_perslid_voornaam,
-               NULL,
-               DECODE (prs_p.prs_perslid_voorletters,
-                       NULL, '',
-                       prs_p.prs_perslid_voorletters || ' '),
-               prs_p.prs_perslid_voornaam || ' ')
-           || DECODE (prs_p.prs_perslid_tussenvoegsel,
-                      NULL, '',
-                      prs_p.prs_perslid_tussenvoegsel || ' ')
-           || prs_p.prs_perslid_naam
+              prs_p.prs_perslid_naam_friendly
            || CASE
                   WHEN prs_pw.prs_perslidwerkplek_bezetting < 100
                   THEN
                       ' (' || TO_CHAR (NVL (prs_pw.prs_perslidwerkplek_bezetting, 0)) || '%)'
               END
                waarde
-      FROM prs_werkplek prs_w,
-           prs_perslidwerkplek prs_pw,
-           prs_perslid prs_p
+      FROM prs_werkplek prs_w, prs_perslidwerkplek prs_pw, prs_v_perslid_fullnames prs_p
      WHERE     prs_w.prs_werkplek_key = prs_pw.prs_werkplek_key
            AND prs_pw.prs_perslid_key IS NOT NULL
            AND prs_pw.prs_perslid_key = prs_p.prs_perslid_key;
@@ -500,7 +466,7 @@ CREATE_VIEW(cad_v_label_bezetbareruimtes, 0)
     waarde
 )
 AS
-      SELECT rar.alg_ruimte_key, MIN (res_ruimte_nr) waarde
+      SELECT rar.alg_ruimte_key, MIN (COALESCE(res_ruimte_friendlyname, res_ruimte_nr)) waarde
         FROM res_ruimte_opstelling rro, res_ruimte rr, res_alg_ruimte rar
        WHERE     rro.res_ruimte_key = rr.res_ruimte_key
              AND rar.res_ruimte_key = rr.res_ruimte_key
@@ -523,7 +489,7 @@ AS
 CREATE_VIEW(cad_v_label_ruimte_reservering,0)
 (ALG_RUIMTE_KEY, WAARDE)
 AS
-     SELECT rar.alg_ruimte_key, MAX (res_ruimte_nr || res_info.tekst) waarde
+     SELECT rar.alg_ruimte_key, MAX (COALESCE(res_ruimte_friendlyname, res_ruimte_nr) || res_info.tekst) waarde
        FROM res_ruimte_opstelling rro,
             res_ruimte rr,
             res_alg_ruimte rar,
@@ -590,6 +556,114 @@ AS
                                   AND  res_rsv_deel_tot - 1 / 24 / 60) res -- NU bezig
     WHERE isd.ins_deel_key = res.res_ins_deel_key(+);
 
+-- Deze core-view wordt direct als label-thema (13) gebruikt, maar kan ook als basis voor een alternatief via
+-- create view myview (fclt_f_datum, ins_deel_key, waarde) as select fclt_f_datum, ins_deel_key, waarde3 from cad_v_label_deel_res_datum.
+-- Kijkt nu hard maximaal 42 dagen tov van nu vooruit, wat hopelijk even genoeg is voor alle situaties
+-- De verschillende waardevarianten zijn presentatie alternatieven, evt meerdere regels onder elkaar
+-- Merk op dat waarde_html ook een class meeneemt, waarmee in CSS gestyld kan worden
+-- Voor 2d
+-- waarde1: Naam (van-tot)
+-- waarde: van Naam [default]
+-- waarde3: Naam
+-- Voor 3d
+-- waarde_html: van Naam [default]
+-- waarde_html2: Naam
+
+CREATE_VIEW(cad_v_label_deel_res_datum, 0)
+(
+    fclt_f_datum,
+    ins_deel_key,
+    res_deel_omschrijving,
+    waarde1,
+    waarde,
+    waarde3,
+    waarde_html,
+    waarde_html2
+)
+AS
+    WITH
+        datums
+        AS
+            (    SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
+                   FROM DUAL
+             CONNECT BY LEVEL <= 42)
+      SELECT datums.datum
+                 fclt_f_datum,
+             isd.res_ins_deel_key
+                 ins_deel_key,
+             res_deel_omschrijving,
+                CHR (10)
+             || LISTAGG (
+                    DECODE (
+                        naam,
+                        NULL, '',
+                           '[s40]'
+                        || naam
+                        || ' ('
+                        || TO_CHAR (res_rsv_deel_van, 'HH24:MI')
+                        || '-'
+                        || DECODE (TRUNC (res_rsv_deel_tot),
+                                   TRUNC (res_rsv_deel_van), TO_CHAR (res_rsv_deel_tot, 'HH24:MI'),
+                                   TO_CHAR (res_rsv_deel_tot, 'DD-MM-YYYY HH24:MI'))
+                        || ')'),
+                    CHR (10))
+                    WITHIN GROUP (ORDER BY res_rsv_deel_van)
+                 waarde1,
+                CHR (10)
+             || LISTAGG (
+                    DECODE (naam,
+                            NULL, '',
+                            '[s40]' || TO_CHAR (res_rsv_deel_van, 'HH24:MI') || ' ' || naam),
+                    CHR (10))
+                    WITHIN GROUP (ORDER BY res_rsv_deel_van)
+                 waarde2,
+                CHR (10)
+             || LISTAGG (DECODE (naam, NULL, '', '[s40]' || naam), CHR (10))
+                    WITHIN GROUP (ORDER BY res_rsv_deel_van)
+                 waarde3,
+             LISTAGG (
+                 DECODE (
+                     naam,
+                     NULL, '',
+                        '<span class="body">'
+                     || TO_CHAR (res_rsv_deel_van, 'HH24:MI')
+                     || ' '
+                     || naam
+                     || '</span>'),
+                 '<br>')
+                 WITHIN GROUP (ORDER BY res_rsv_deel_van)
+                 waarde_html,
+             LISTAGG (DECODE (naam, NULL, '', '<span class="body">' || naam || '</span>'), '<br>')
+                 WITHIN GROUP (ORDER BY res_rsv_deel_van)
+                 waarde_html2
+        FROM res_v_aanwezigdeel isd,
+             datums,
+             (SELECT datum,
+                     res_ins_deel_key,
+                     DECODE (p.prs_perslid_visibility,
+                             1, pf.prs_perslid_naam_friendly,
+                             a.prs_afdeling_omschrijving)
+                         naam,
+                     res_rsv_deel_van,
+                     res_rsv_deel_tot
+                FROM res_v_aanwezigdeel     r,
+                     res_v_aanwezigrsv_deel rrd,
+                     res_rsv_ruimte         rrr,
+                     prs_v_perslid_fullnames pf,
+                     prs_perslid            p,
+                     prs_afdeling           a,
+                     datums
+               WHERE     r.res_deel_key = rrd.res_deel_key
+                     AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+                     AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
+                     AND pf.prs_perslid_key = p.prs_perslid_key
+                     AND p.prs_afdeling_key = a.prs_afdeling_key
+                     AND datum >= TRUNC (res_rsv_deel_van)
+                     AND datum < TRUNC (res_rsv_deel_tot + 1)) res                          -- Bezet
+       WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+)
+    GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
+
+
 --
 -- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren)
 --
@@ -698,6 +772,116 @@ AS
            AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
            AND d.ins_deel_state IS NOT NULL;
 
+-- View voor reserveerbare (werkplek)OBJECTEN, het default thema met key 13
+-- Deze core-view wordt direct als kleur-objecten-thema gebruikt, maar kan ook als basis voor een alternatief via worden gebruikt
+-- Kijkt nu hard maximaal 42 dagen tov van nu vooruit, wat hopelijk even genoeg is voor alle situaties
+-- De verschillende waardevarianten zijn presentatie alternatieven, evt meerdere regels onder elkaar
+-- waarde1: Voor hele dagen: Vrij(0) of Bezet (3)
+-- waarde: Voor halve dagen: Vrij(0), Ochtendbezet(1), MiddagBezet(2), Helemaalbezet(3)
+-- waarde3: Voor tellen: Het aantal reservering op de dag, met 0 is dus Vrij
+
+CREATE_VIEW(cad_v_thema_deel_res_datum,0)
+(
+    fclt_f_datum,
+    ins_deel_key,
+    min_van,
+    max_tot,
+    waarde1,
+    waarde,
+    waarde3
+)
+AS
+    WITH
+        datums
+        AS
+            (    SELECT TRUNC (SYSDATE) + LEVEL - 1 datum
+                   FROM DUAL
+             CONNECT BY LEVEL <= 42)
+      SELECT datum
+                 fclt_f_datum,
+             ins_deel_key,
+             MIN (res_rsv_deel_van)
+                 min_van,
+             MAX (res_rsv_deel_tot)
+                 max_tot,
+             CASE WHEN MAX (res_rsv_deel_tot) IS NULL THEN 0 ELSE 3                      -- hele dag
+                                                                    END
+                 waarde1,
+             CASE
+                 WHEN MAX (res_rsv_deel_tot) IS NULL THEN 0
+                 WHEN TO_CHAR (MAX (res_rsv_deel_tot), 'HH24') <= 13 THEN 1               -- ochtend
+                 WHEN TO_CHAR (MIN (res_rsv_deel_van), 'HH24') >= 12 THEN 2                -- middag
+                 ELSE 3                                                                  -- hele dag
+             END
+                 waarde,
+             COUNT (res_rsv_deel_tot)                                 -- aantal reservering deze dag
+                 waarde3
+        FROM (SELECT datums.datum,
+                     res_ins_deel_key ins_deel_key,
+                     res_rsv_deel_van,
+                     res_rsv_deel_tot
+                FROM res_v_aanwezigdeel r,
+                     ins_deel          d,
+                     datums,
+                     (SELECT datum,
+                             res_deel_key,
+                             res_rsv_deel_van,
+                             res_rsv_deel_tot
+                        FROM datums, res_v_aanwezigrsv_deel rrd
+                       WHERE     res_rsv_deel_van > TRUNC(SYSDATE) - 1        -- negeer alle irrelevante historie sowieso
+                             AND datum >= TRUNC (res_rsv_deel_van)
+                             AND datum < TRUNC (res_rsv_deel_tot) + 1) blokkerend -- vandaag en nog niet afgelopen
+               WHERE     r.res_deel_key = blokkerend.res_deel_key(+)
+                     AND datums.datum = blokkerend.datum(+)
+                     AND (r.res_deel_vervaldatum IS NULL or r.res_deel_vervaldatum > datums.datum)
+                     AND d.ins_deel_key = r.res_ins_deel_key)
+    GROUP BY datum, ins_deel_key
+    ORDER BY datum, ins_deel_key;
+
+
+-- Paar views om de populariteit van reserveerbare objecten te kunnen illustreren
+-- Basisview, met aantal per datum
+CREATE_VIEW(cad_v_thema_deel_gereserveerd,0)
+AS
+      SELECT TRUNC (rrd.res_rsv_deel_van) datum,
+             rd.res_ins_deel_key        ins_deel_key,
+             rd.res_deel_omschrijving,
+             COUNT (*)                  aantal
+        FROM res_rsv_deel rrd, res_deel rd
+       WHERE rrd.res_deel_key = rd.res_deel_key
+    GROUP BY TRUNC (rrd.res_rsv_deel_van), rd.res_ins_deel_key, rd.res_deel_omschrijving;
+    
+-- Totaal gereserveerde dagen of delen daarvan in de afgelopen 1, 4 resp 8 wkn
+CREATE_VIEW(cad_v_thema_deel_populair_1wkn,0)
+AS
+      SELECT ins_deel_key, res_deel_omschrijving, COUNT (*) waarde
+        FROM cad_v_thema_deel_gereserveerd
+       WHERE datum BETWEEN SYSDATE - 8 AND SYSDATE
+    GROUP BY ins_deel_key, res_deel_omschrijving;
+
+CREATE_VIEW(cad_v_thema_deel_populair_4wkn,0)
+AS
+      SELECT ins_deel_key, res_deel_omschrijving, COUNT (*) waarde
+        FROM cad_v_thema_deel_gereserveerd
+       WHERE datum BETWEEN SYSDATE - 29 AND SYSDATE
+    GROUP BY ins_deel_key, res_deel_omschrijving;
+
+CREATE_VIEW(cad_v_thema_deel_populair_8wkn,0)
+AS
+      SELECT ins_deel_key, res_deel_omschrijving, COUNT (*) waarde
+        FROM cad_v_thema_deel_gereserveerd
+       WHERE datum BETWEEN SYSDATE - 57 AND SYSDATE
+    GROUP BY ins_deel_key, res_deel_omschrijving;
+
+-- Toekomstig populair
+CREATE_VIEW(cad_v_thema_deel_populair_futu,0)
+AS
+      SELECT ins_deel_key, res_deel_omschrijving, COUNT (*) waarde
+        FROM cad_v_thema_deel_gereserveerd
+       WHERE datum > SYSDATE
+    GROUP BY ins_deel_key, res_deel_omschrijving;
+
+
 REGISTERRUN('$Id$')
 
 #endif // CAD

CARE.SRC

@@ -1,7 +1,7 @@
 -- [CARE*.SQL]
 --
 -- Script tbv het initialiseren van de Facilitor Care-Webb omgeving in Oracle
--- Copyright 2010 SG|facilitor bv.
+-- Copyright Aareon Nederland B.V.
 -- All rights reserved!
 /*
  * $Revision$
@@ -15,7 +15,7 @@ SET DEFINE OFF
 SPOOL xcarewebb
 PROMPT [carewebb.lst]
 PROMPT
-PROMPT Copyright 2013 SG|facilitor bv. ALL RIGHTS RESERVED.
+PROMPT Copyright Aareon Nederland B.V. ALL RIGHTS RESERVED.
 PROMPT
 PROMPT Dit is de gegenereerde list-file van CARExxxx.sql welke
 PROMPT is gebruikt om de Facilitor(r) Care-Webb _VERSION omgeving in Oracle aan te

CARE/CARE_INI.SRC

@@ -179,9 +179,31 @@ VALUES (1020, 'L', 50, 'Documenten archief','<span style="color:red">Archivering
 INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype)
 VALUES (1021, 'L', 60, 'Archief','M');
 
+-- ALT HV CODES CAK
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep, alg_kenmerk_lengte)
+VALUES (2000, 'L', 70, 'Alt HV1','C', 2, 1, 3);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep, alg_kenmerk_lengte)
+VALUES (2001, 'L', 75, 'Alt HV2','C', 2, 2, 3);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep, alg_kenmerk_lengte)
+VALUES (2002, 'L', 80, 'Alt HV3','C', 2, 3, 3);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep)
+VALUES (2003, 'L', 72, 'Alt HV1 startdatum','D', 2, 1);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep)
+VALUES (2004, 'L', 77, 'Alt HV2 startdatum','D', 2, 2);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype, alg_kenmerk_verplicht, alg_kenmerk_groep)
+VALUES (2005, 'L', 82, 'Alt HV3 startdatum','D', 2, 3);
+
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,alg_kenmerk_kenmerktype)
+VALUES (2006, 'L', 65, 'Alternatieve HV codes tbv CAK','L');
+
 -- Sequence bijstellen
 DROP SEQUENCE alg_s_alg_kenmerk_key;
-CREATE SEQUENCE alg_s_alg_kenmerk_key START WITH 2000 NOCACHE;
+CREATE SEQUENCE alg_s_alg_kenmerk_key START WITH 3000 NOCACHE;
 
 
 ------------------- Voor elke persoon (= client en verzorger) de volgende kenmerken -------------------
@@ -343,7 +365,10 @@ CREATE SEQUENCE ins_s_ins_srtdiscipline_key START WITH 2000 NOCACHE;
 UPDATE mld_typeopdr
 SET mld_typeopdr_omschrijving = 'Verzorgen/huishoudelijke hulp',
     mld_typeopdr_sluitmelding = 0,
-    mld_typeopdr_matchtype = 3
+    mld_typeopdr_uren = 5,
+    mld_typeopdr_materiaal = 0,
+    mld_typeopdr_totaal = 0,
+    mld_typeopdr_factuur = 0
 WHERE mld_typeopdr_key = 5;
 
 INSERT INTO mld_typeopdr_srtdiscipline (mld_typeopdr_key, ins_srtdiscipline_key) VALUES (5, 1);
@@ -2145,9 +2170,31 @@ INSERT INTO fac_usrrap
              0
      FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
-
-
-
+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  'Instroom en Uitstroom per Client',
+             'care_v_rap_in_uitstroom',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             0,
+             'Instroom en uitstroomdatum per Client',
+             fac_functie_key,
+             0
+     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 
 -----------  Alle overbodige menuitem (module BES, BEZ, CAD, etc uit het menu halen)

CARE/CARE_PAC.SRC

@@ -13,32 +13,32 @@ AS
       RETURN DATE;
    FUNCTION goodmonday_end (p_mld_key IN NUMBER)
       RETURN DATE;
-   PROCEDURE care_v_rap2_factuur_uren_a (user_key IN NUMBER, p_datum_van IN VARCHAR2, p_datum_tot IN VARCHAR2, p_cursor OUT t_cursor, p_where IN VARCHAR2);   
-   PROCEDURE care_v_rap2_factuur_uren_e (user_key IN NUMBER, p_datum_van IN VARCHAR2, p_datum_tot IN VARCHAR2, p_cursor OUT t_cursor, p_where IN VARCHAR2);   
+   PROCEDURE care_v_rap2_factuur_uren_a (user_key IN NUMBER, p_datum_van IN VARCHAR2, p_datum_tot IN VARCHAR2, p_cursor OUT t_cursor, p_where IN VARCHAR2 DEFAULT NULL);
+   PROCEDURE care_v_rap2_factuur_uren_e (user_key IN NUMBER, p_datum_van IN VARCHAR2, p_datum_tot IN VARCHAR2, p_cursor OUT t_cursor, p_where IN VARCHAR2 DEFAULT NULL);
 END care;
 /
 
 CREATE OR REPLACE PACKAGE BODY care
 AS
-   
+
    FUNCTION goodmonday_start (p_mld_key IN NUMBER)
       RETURN DATE
    IS
       -- Herindicaties/vorige indicaties van dezelfde client die in dezelfde week start/eindigt.
-   
+
       l_mld_key    NUMBER(10);
       l_good_monday DATE;
-      
+
    BEGIN
       --- Vorige beschikking: bij herindicatie midden in de week is 1 van beide beschikkingen geldig
-      --- Herindicatie midden in de week wordt gekenmerkt door: 
-         --- dezelfde client, dezelfde gemeente, eindweek van de vorige is gelijk aan beginweek van herindicatie, 
+      --- Herindicatie midden in de week wordt gekenmerkt door:
+         --- dezelfde client, dezelfde gemeente, eindweek van de vorige is gelijk aan beginweek van herindicatie,
          --- en het maakt niet uit wat de product is/wordt.
       --- Baas' van dubbele beschikking is diegene met de meeste aantal uren, ongeacht HV1->HV2 overgang.
       --- Bij gelijke aantal uren is de nieuwe beschikking de baas.
-            
-      
-      
+
+
+
      -- Selecteer de vorige beschikking b1 van de beschikking b2 die meer uren heeft.
       SELECT MAX(b1.mld_melding_key)
       INTO l_mld_key
@@ -51,14 +51,14 @@ AS
       AND b1.prs_client_key = b2.prs_client_key
       AND b1.gemeente_code = b2.gemeente_code
       AND b1.uren_beschikking > b2.uren_beschikking;
-      
-      
+
+
       IF l_mld_key IS NOT NULL
       THEN
          -- Er is een vorige indicatie met meer uren, die is de 'baas'.
-         -- Dat betekent dat de goede maandag van de beschikking b2 verder, naar de volgende week wordt gezet 
+         -- Dat betekent dat de goede maandag van de beschikking b2 verder, naar de volgende week wordt gezet
          -- (ipv standaard op maandag deze week)
-        
+
         SELECT (  TRUNC (mld_melding_datum) + 7
              - DECODE (TO_CHAR (mld_melding_datum, 'D'), '1', 8, TO_CHAR (mld_melding_datum, 'D'))
              + 2)
@@ -75,7 +75,7 @@ AS
              FROM mld_melding
              WHERE mld_melding_key = p_mld_key;
       END IF;
-      
+
       RETURN l_good_monday;
    END;
 
@@ -83,19 +83,19 @@ FUNCTION goodmonday_end (p_mld_key IN NUMBER)
       RETURN DATE
    IS
       -- Herindicaties/vorige indicaties van dezelfde client die in dezelfde week start/eindigt.
-   
+
       l_mld_key    NUMBER(10);
       l_good_monday DATE;
-      
+
    BEGIN
       --- Volgende beschikking: bij herindicatie midden in de week is 1 van beide beschikkingen geldig
-      --- Herindicatie midden in de week wordt gekenmerkt door: 
-         --- dezelfde client, dezelfde gemeente, eindjaar/week van de vorige is gelijk aan beginjaar/week van herindicatie, 
+      --- Herindicatie midden in de week wordt gekenmerkt door:
+         --- dezelfde client, dezelfde gemeente, eindjaar/week van de vorige is gelijk aan beginjaar/week van herindicatie,
          --- en het maakt niet uit wat de product is/wordt.
       --- Baas' van dubbele beschikking is diegene met de meeste aantal uren, ongeacht HV1->HV2 overgang.
-      --- Bij gelijke aantal uren is de nieuwe beschikking de baas.         
-      
-      -- Controleer of die er is, en zo ja, selecteer de volgende beschikking b2 van de beschikking b1 die MEER 
+      --- Bij gelijke aantal uren is de nieuwe beschikking de baas.
+
+      -- Controleer of die er is, en zo ja, selecteer de volgende beschikking b2 van de beschikking b1 die MEER
       -- of GELIJK AANTAL uren heeft.
       SELECT MAX(b2.mld_melding_key)
       INTO l_mld_key
@@ -108,63 +108,63 @@ FUNCTION goodmonday_end (p_mld_key IN NUMBER)
       AND b1.prs_client_key = b2.prs_client_key
       AND b1.gemeente_code = b2.gemeente_code
       AND b2.uren_beschikking >= b1.uren_beschikking;
-      
-      
+
+
       IF l_mld_key IS NOT NULL
       THEN
          -- Er is een volgende indicatie b2 met MEER of GELIJK AANTAL uren, die is de 'baas' is.
-         -- Dat betekent dat de goede maandag van de beschikking b2 op de maandag van deze week wordt gezet 
+         -- Dat betekent dat de goede maandag van de beschikking b2 op de maandag van deze week wordt gezet
          -- (ipv standaard op maandag de volgende week)
-        
+
          SELECT (  TRUNC (mld_melding_einddatum)
              - DECODE (TO_CHAR (mld_melding_einddatum, 'D'), '1', 8, TO_CHAR (mld_melding_einddatum, 'D'))
              + 2)
              INTO l_good_monday
              FROM mld_melding
              WHERE mld_melding_key = p_mld_key;
-         
-        
+
+
       ELSE
          -- Er is GEEN volgende indicatie is of GEEN volgende indicatie met MEER of GELIJK AANTAL uren, dus deze is de 'baas'.
          -- Dat betekent dat de goede maandag van de beschikking b2 standaard op maandag van de volgende week komt te staan.
-             
+
          SELECT (  TRUNC (mld_melding_einddatum) + 7
              - DECODE (TO_CHAR (mld_melding_einddatum, 'D'), '1', 8, TO_CHAR (mld_melding_einddatum, 'D'))
              + 2)
              INTO l_good_monday
              FROM mld_melding
-             WHERE mld_melding_key = p_mld_key;    
+             WHERE mld_melding_key = p_mld_key;
       END IF;
-      
+
       RETURN l_good_monday;
    END;
 
 PROCEDURE care_v_rap2_factuur_uren_a
-    (user_key      IN     NUMBER,
+    ( user_key      IN     NUMBER,
       p_datum_van   IN     VARCHAR2,
       p_datum_tot   IN     VARCHAR2,
-      p_cursor         OUT t_cursor,
-      p_where       IN     VARCHAR2
+      p_cursor      OUT    t_cursor,
+      p_where       IN     VARCHAR2 DEFAULT NULL
     )
    AS
       v_datum_van DATE;
-      v_datum_tot DATE;     
+      v_datum_tot DATE;
    BEGIN
 
 
         DELETE FROM care_periode;
-        
+
         INSERT INTO care_periode (jaar, periode, week, maandag)
-        SELECT 
+        SELECT
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
       			LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
             TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
         FROM  DUAL
         CONNECT BY LEVEL <= 1*52+1;
-        
+
         DELETE FROM CARE_T_BESCHIKK_X_PERIODETABEL;
-        
+
         INSERT INTO CARE_T_BESCHIKK_X_PERIODETABEL(JAAR, PERIODE,WEEK_VAN,WEEK_TM,BSN,PRODUCT,UREN_BESCHIKKING)
             SELECT pw.jaar, pw.periode, MIN(week), MAX(week), b.client_bsn, b.product, SUM(b.uren_beschikking)
             FROM care_periode pw, care_v_beschikking_all b
@@ -174,7 +174,7 @@ PROCEDURE care_v_rap2_factuur_uren_a
             GROUP BY pw.jaar, pw.periode, b.client_bsn, b.product;
 
         OPEN p_cursor FOR
-           'SELECT  
+           'SELECT
                fclt_f_periode,
                factuurdatum,
                wzacode,
@@ -192,35 +192,35 @@ PROCEDURE care_v_rap2_factuur_uren_a
                bedrag_euro,
                bedrag_centen
              FROM care_v_rap2_factuur_uren_a' || p_where;
-       
+
     END care_v_rap2_factuur_uren_a;
 
 
-PROCEDURE care_v_rap2_factuur_uren_e 
-    (user_key      IN     NUMBER,
+PROCEDURE care_v_rap2_factuur_uren_e
+    ( user_key      IN     NUMBER,
       p_datum_van   IN     VARCHAR2,
       p_datum_tot   IN     VARCHAR2,
-      p_cursor         OUT t_cursor,
-      p_where       IN     VARCHAR2
+      p_cursor      OUT    t_cursor,
+      p_where       IN     VARCHAR2 DEFAULT NULL
     )
    AS
       v_datum_van DATE;
-      v_datum_tot DATE;     
+      v_datum_tot DATE;
    BEGIN
 
         DELETE FROM care_periode;
-        
+
         INSERT INTO care_periode (jaar, periode, week, maandag)
-        SELECT 
+        SELECT
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
             LEAST(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 13) periode,
             TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
             TRUNC (SYSDATE - 7*(LEVEL-1), 'IW') startdatum
         FROM  DUAL
         CONNECT BY LEVEL <= 1*52+1;
-        
+
         DELETE FROM CARE_T_BESCHIKK_X_PERIODETABEL;
-        
+
         INSERT INTO CARE_T_BESCHIKK_X_PERIODETABEL(JAAR, PERIODE,WEEK_VAN,WEEK_TM,BSN,PRODUCT,UREN_BESCHIKKING)
             SELECT pw.jaar, pw.periode, MIN(week), MAX(week), b.client_bsn, b.product, SUM(b.uren_beschikking)
             FROM care_periode pw, care_v_beschikking_all b
@@ -229,8 +229,8 @@ PROCEDURE care_v_rap2_factuur_uren_e
             AND b.beschikking_datum_tot >= sysdate - 53*7
             GROUP BY pw.jaar, pw.periode, b.client_bsn, b.product;
 
-        OPEN p_cursor FOR   
-           'SELECT  
+        OPEN p_cursor FOR
+           'SELECT
                fclt_x_periode,
                periode,
                weeknrs,
@@ -247,7 +247,7 @@ PROCEDURE care_v_rap2_factuur_uren_e
                uren,
                bedrag_euro
              FROM care_v_rap2_factuur_uren_e' || p_where;
-       
+
     END care_v_rap2_factuur_uren_e;
 
 END care;

CND/CND.sql

@@ -0,0 +1,43 @@
+--
+-- $Id$
+--
+-- Script for (re)initializing the "CND-module" for conditiemetingen according to NEN2767-standard
+-- It can be run repeatedly after a initial initialisation in an existing Facilitor database
+-- to upgrade CND the to the latest version.
+-- First time the CND_INI must be run as well, once, first
+
+--
+
+
+DEFINE thisfile = 'CND.SQL'
+DEFINE dbuser   = ''
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+
+
+
+
+
+
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 0); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

CND/CND_TAB.SRC

@@ -0,0 +1,57 @@
+#ifdef CND
+/*
+ * $Revision$
+ * $Id$
+ */
+
+-- Tabel tbv importfunctie 'Verwerken van NEN2767 gebreken/resultaten'
+CREATE_TABLE(cnd_imp_nen2767_results,0)
+(
+    fac_import_key              NUMBER (10),
+    alg_gebouw_code             VARCHAR2 (12),
+    ins_deel_omschrijving       VARCHAR2 (60),
+    mld_melding_datum           VARCHAR2 (20),
+    mld_melding_omschrijving    VARCHAR2 (2000),
+    prs_perslid_email           VARCHAR2 (200),
+    gebrekcode                  VARCHAR2 (20),
+    ernst                       VARCHAR2 (50),
+    omvang                      VARCHAR2 (50),
+    intensiteit                 VARCHAR2 (50),
+    aspect1                     VARCHAR2 (20),
+    aspect2                     VARCHAR2 (20),
+    aspect3                     VARCHAR2 (20),
+    aspect4                     VARCHAR2 (20),
+    aspect5                     VARCHAR2 (20),
+    aspect6                     VARCHAR2 (20),
+    aspect7                     VARCHAR2 (20),
+    foto                        VARCHAR2 (50),
+    condscore                   NUMBER (6, 2),
+    prioscore                   NUMBER (6, 2),
+    kosten                      NUMBER (10, 2),
+    plandatum                   DATE,
+    flex1                       VARCHAR2 (255),
+    flex2                       VARCHAR2 (255),
+    flex3                       VARCHAR2 (255),
+    flex4                       VARCHAR2 (255),
+    flex5                       VARCHAR2 (255),
+    flex6                       VARCHAR2 (255),
+    flex7                       VARCHAR2 (255),
+    flex8                       VARCHAR2 (255),
+    flex9                       VARCHAR2 (255),
+    flex10                      VARCHAR2 (255)
+);
+
+-- Tabel tbv importfunctie 'Aanvullen van combinaties objectsoorten x standaard melding' 
+CREATE_TABLE(cnd_imp_srtdeel_mlddiscipline,0)
+(
+    fac_import_key                 NUMBER (10),
+    ins_srtdeel_code               VARCHAR2 (10),
+    ins_srtgroep_omschrijving      VARCHAR2 (60),
+    ins_discipline_omschrijving    VARCHAR2 (60),
+    mld_discipline_omschrijving    VARCHAR2 (60)
+);
+
+
+REGISTERRUN('$Id$')
+
+#endif // CND

CND/CND_TRI.SRC

@@ -0,0 +1,13 @@
+#ifdef  CND
+/*
+ * $Revision$
+ * $Id$
+ */
+
+-----------------------------------------------------------------------------------------------------------------------
+--  Additional triggers for tables that are related to CND. AFTER-update, ze mogen de normale flow niet beinvloeden
+-----------------------------------------------------------------------------------------------------------------------
+
+REGISTERRUN('$Id$')
+
+#endif  // CND

CND/CND_VIE.SRC

@@ -0,0 +1,450 @@
+#ifdef CND
+/*
+ * $Revision$
+ * $Id$
+ */
+
+-- CND_V_NEN2767_ALLE_GEBREKEN: hierin zitten alle meldingen (gebreken) die nu relevant voor de berekening kunnen zijn
+-- dus gebreken die erkend zijn maar nog niet verwerkt of afgewezen.
+-- Niet uit te sluiten valt dat er dubbele registraties zijn, dat wordt ontdubbeld in cnd_v_nen2767_per_srtgebrek
+-- Het is daarmee niet aannemelijk dat je deze view nodig hebt, gebruik cnd_v_nen2767_per_srtgebrek.
+-- Merk op: op alle 3 de aspecten in mld_kenmerkmelding zit geen outer join, omdat ze overal verplicht zijn;
+-- zonder deze waarden is de conditiescore ook niet te berekenen overigens.
+
+-- Full version, met ernst, intensiteit en omvang
+CREATE_VIEW(cnd_v_nen2767_alle_gebreken_fl,0)
+(
+    ins_deel_key,
+    mld_melding_key,
+    mld_stdmelding_key,
+    mld_melding_status,
+    ernst,
+    intensiteit,
+    omvang
+)
+AS
+    WITH
+        w_srtdisc_key AS (SELECT fac.getsetting ('cnd_gebreken_srtdisc_key') sdk FROM DUAL)
+    SELECT d.ins_deel_key,
+           m.mld_melding_key,
+           m.mld_stdmelding_key,
+           m.mld_melding_status,
+           km_ernst.mld_kenmerkmelding_waarde,
+           km_intensiteit.mld_kenmerkmelding_waarde,
+           ud_omvang.fac_usrdata_prijs
+      FROM mld_melding         m,
+           mld_stdmelding      sm,
+           mld_discipline      disc,
+           mld_melding_object  mo,
+           ins_deel            d,
+           mld_kenmerkmelding  km_ernst,
+           mld_kenmerk         k_ernst,
+           mld_srtkenmerk      sk_ernst,
+           mld_kenmerkmelding  km_intensiteit,
+           mld_kenmerk         k_intensiteit,
+           mld_srtkenmerk      sk_intensiteit,
+           mld_kenmerkmelding  km_omvang,
+           mld_kenmerk         k_omvang,
+           mld_srtkenmerk      sk_omvang,
+           fac_usrdata         ud_omvang,
+           w_srtdisc_key
+     WHERE     disc.ins_srtdiscipline_key = w_srtdisc_key.sdk
+           AND sm.mld_stdmelding_code <> 'GEEN'  
+           AND disc.ins_discipline_verwijder IS NULL
+           AND sm.mld_ins_discipline_key = disc.ins_discipline_key
+           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+           AND mo.mld_melding_key = m.mld_melding_key
+           AND mo.mld_melding_object_verwijder IS NULL
+           AND d.ins_deel_key = mo.ins_deel_key
+           AND km_ernst.mld_melding_key = m.mld_melding_key
+           AND k_ernst.mld_kenmerk_key = km_ernst.mld_kenmerk_key
+           AND k_ernst.mld_srtkenmerk_key = sk_ernst.mld_srtkenmerk_key
+           AND sk_ernst.mld_srtkenmerk_code = 'ERNST'
+           AND km_intensiteit.mld_melding_key = m.mld_melding_key
+           AND k_intensiteit.mld_kenmerk_key = km_intensiteit.mld_kenmerk_key
+           AND k_intensiteit.mld_srtkenmerk_key = sk_intensiteit.mld_srtkenmerk_key
+           AND sk_intensiteit.mld_srtkenmerk_code = 'INTENSITEIT'
+           AND km_omvang.mld_melding_key = m.mld_melding_key
+           AND k_omvang.mld_kenmerk_key = km_omvang.mld_kenmerk_key
+           AND k_omvang.mld_srtkenmerk_key = sk_omvang.mld_srtkenmerk_key
+           AND sk_omvang.mld_srtkenmerk_code = 'OMVANG'
+           AND ud_omvang.fac_usrdata_key = fac.safe_to_number (km_omvang.mld_kenmerkmelding_waarde)
+           AND m.mld_melding_status NOT IN (1, 6);
+
+-- Smaller/faster version, zonder ernst, intensiteit en omvang
+CREATE_VIEW(cnd_v_nen2767_alle_gebreken,0)
+(
+    ins_deel_key,
+    mld_melding_key,
+    mld_stdmelding_key
+)
+AS
+    WITH
+        w_srtdisc_key AS (SELECT fac.getsetting ('cnd_gebreken_srtdisc_key') sdk FROM DUAL)
+    SELECT d.ins_deel_key,
+           m.mld_melding_key, 
+           m.mld_stdmelding_key
+  FROM mld_melding         m,
+       mld_stdmelding      sm,
+       mld_discipline      disc,
+       mld_melding_object  mo,
+       ins_deel            d,
+       w_srtdisc_key
+ WHERE     disc.ins_srtdiscipline_key = w_srtdisc_key.sdk
+       AND sm.mld_stdmelding_code <> 'GEEN'
+       AND disc.ins_discipline_verwijder IS NULL
+       AND sm.mld_ins_discipline_key = disc.ins_discipline_key
+       AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+       AND mo.mld_melding_key = m.mld_melding_key
+       AND mo.mld_melding_object_verwijder IS NULL
+       AND d.ins_deel_key = mo.ins_deel_key
+       AND m.mld_melding_status NOT IN (1, 6);
+
+-- Ontdubbel eventuele zelfde gebreken die op hetzelfde object zijn gemaakt, dus wanneer na elkaar
+-- hetzelfde gebrek (stdmelding) is ingelegd, dan geldt de laatste (=hoogste melding_key)
+CREATE_VIEW(cnd_v_nen2767_per_srtgebrek,0)
+(
+    ins_deel_key,
+    mld_melding_key,
+    mld_stdmelding_key,
+    mld_melding_status,
+    ernst,
+    intensiteit,
+    omvang
+)
+AS
+    SELECT a.ins_deel_key,
+           a.mld_melding_key,
+           a.mld_stdmelding_key,
+           a.mld_melding_status,
+           a.ernst,
+           a.intensiteit,
+           a.omvang
+      FROM cnd_v_nen2767_alle_gebreken_fl  a,
+           (  SELECT a2.mld_stdmelding_key,
+                     a2.ins_deel_key,
+                     MAX (a2.mld_melding_key) AS mld_melding_key
+                FROM cnd_v_nen2767_alle_gebreken a2
+            GROUP BY a2.mld_stdmelding_key, a2.ins_deel_key) b
+     WHERE     a.mld_melding_key = b.mld_melding_key
+           AND a.ins_deel_key = b.ins_deel_key;
+
+
+CREATE_VIEW(cnd_v_nen2767_gebrek,0)
+AS
+    WITH
+        w_srtdisc_key AS (SELECT fac.getsetting ('cnd_gebreken_srtdisc_key') sdk FROM DUAL)
+    SELECT mo.ins_deel_key,
+           m.mld_melding_key,
+           m.mld_stdmelding_key,
+           m.mld_melding_status,
+           m.mld_melding_datum
+      FROM mld_melding         m,
+           mld_stdmelding      sm,
+           mld_discipline      disc,
+           mld_melding_object  mo,
+           w_srtdisc_key
+     WHERE     disc.ins_srtdiscipline_key = w_srtdisc_key.sdk
+           AND disc.ins_discipline_verwijder IS NULL
+           AND sm.mld_ins_discipline_key = disc.ins_discipline_key
+           AND m.mld_stdmelding_key = sm.mld_stdmelding_key
+           AND mo.mld_melding_key = m.mld_melding_key
+           AND mo.mld_melding_object_verwijder IS NULL
+           AND m.mld_melding_status NOT IN (1,6);
+
+
+CREATE_VIEW(cnd_v_nen2767_srtgebrek,0)
+AS
+    SELECT a.ins_deel_key,
+           a.mld_melding_key,
+           a.mld_stdmelding_key,
+           a.mld_melding_status,
+           a.mld_melding_datum
+      FROM cnd_v_nen2767_gebrek  a,
+           (  SELECT a2.mld_stdmelding_key,
+                     a2.ins_deel_key,
+                     MAX (a2.mld_melding_key) AS mld_melding_key
+                FROM cnd_v_nen2767_gebrek a2
+            GROUP BY a2.mld_stdmelding_key, a2.ins_deel_key) b
+     WHERE     a.mld_melding_key = b.mld_melding_key
+           AND a.ins_deel_key = b.ins_deel_key;
+
+CREATE_VIEW(cnd_v_aggr_cond_score,0)
+(
+    alg_locatie_key,
+    alg_gebouw_key,
+    ins_deel_key,
+    ins_deel_aantal,
+    ins_deel_mjb_score1,
+    kosten,
+    correctiefactor,
+    totale_vervangingswaarde,
+    correctie_vervangingswaarde
+)
+AS
+      SELECT l.alg_locatie_key,
+             g.alg_gebouw_key,
+             d.ins_deel_key,
+             MAX (d.ins_deel_aantal),
+             MAX (d.ins_deel_mjb_score1),
+             MAX (
+                   COALESCE (sc.INS_SRTCONTROLE_KOSTEN, 0)
+                 + COALESCE (sc.INS_SRTCONTROLE_KOSTEN2, 0)
+                 + COALESCE (sc.INS_SRTCONTROLE_KOSTEN3, 0)
+                 + COALESCE (sc.INS_SRTCONTROLE_MATERIAAL, 0))
+                 kosten,
+             cnd.nen2767_corr_cond_score (MAX (d.ins_deel_mjb_score1))
+                 correctiefactor,
+               MAX (d.ins_deel_aantal)
+             * MAX (
+                     COALESCE (sc.INS_SRTCONTROLE_KOSTEN, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_KOSTEN2, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_KOSTEN3, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_MATERIAAL, 0))
+                 totale_vervangingswaarde,
+               MAX (d.ins_deel_aantal)
+             * MAX (
+                     COALESCE (sc.INS_SRTCONTROLE_KOSTEN, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_KOSTEN2, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_KOSTEN3, 0)
+                   + COALESCE (sc.INS_SRTCONTROLE_MATERIAAL, 0))
+             * cnd.nen2767_corr_cond_score (MAX (d.ins_deel_mjb_score1))
+                 correctie_vervangingswaarde
+        FROM ins_deel       d,
+             ins_v_defined_inspect_xcp sc,
+             alg_ruimte     r,
+             alg_verdieping v,
+             alg_gebouw     g,
+             alg_locatie    l
+       WHERE     d.ins_deel_verwijder IS NULL
+             AND ins_deel_mjb_score1 IS NOT NULL
+             AND sc.ins_deel_key = d.ins_deel_key
+             AND d.ins_alg_ruimte_type = 'R'
+             AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+             AND r.alg_verdieping_key = v.alg_verdieping_key
+             AND v.alg_gebouw_key = g.alg_gebouw_key
+             AND g.alg_locatie_key = l.alg_locatie_key
+             AND ins_scenario_key = 1
+             AND ctr_ismjob = 1
+    GROUP BY d.ins_deel_key, l.alg_locatie_key, g.alg_gebouw_key;
+
+CREATE_VIEW(cnd_v_rap_conditiemetingen, 0)
+(
+   mld_melding_key,
+   complexnummer,
+   clusternummer,
+   clusternaam,
+   gebouwgroep,
+   hoofdrecept,
+   groeprecept,
+   subrecept,
+   identificatie,
+   gebreknr,
+   datum_tijd,
+   datum,
+   inspecteur,
+   status,
+   gebrek,
+   omschrijving,
+   ernst,
+   omvang,
+   intensiteit,
+   veiligheid_gezondheid,
+   cultuurhistorische_waarde,
+   gebruik_en_bedrijfsproces,
+   technische_vervolgschade,
+   toename_klachtenonderhoud,
+   beleving_esthetica,
+   foto
+)
+AS
+   SELECT m.mld_melding_key,
+          l.alg_locatie_omschrijving complexnummer,
+          aog.alg_gebouw_code clusternummer,
+          aog.alg_gebouw_naam clusternaam,
+          aog.alg_gebouw_groep groep,
+          id.ins_discipline_omschrijving hoofdrecept,
+          isg.ins_srtgroep_omschrijving groeprecept,
+          isd.ins_srtdeel_omschrijving || ' (' || isd.ins_srtdeel_code || ')'
+             subrecept,
+          d.ins_deel_omschrijving identificatie,
+          m.mld_melding_key gebreknummer,
+          m.mld_melding_datum datum_tijd,
+          TO_CHAR (mld_melding_datum, 'DD-MM-YYYY') datum,
+          pf.prs_perslid_naam_full inspecteur,
+          s.mld_statuses_omschrijving status,
+          std.mld_stdmelding_omschrijving gebrek,
+          m.mld_melding_omschrijving omschrijving,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ERNST'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               ernst,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'OMVANG'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               omvang,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'INTENSITEIT'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               intensiteit,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT1'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               veiligheid_gezondheid,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT2'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               cultuurhistorische_waarde,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT3'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               gebruik_en_bedrijfsproces,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT4'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               technische_vervolgschade,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT5'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               toename_klachtenonderhoud,
+           (SELECT fac_usrdata_omschr
+              FROM mld_kenmerkmelding  mk,
+                   mld_kenmerk         k,
+                   mld_srtkenmerk      sk,
+                   fac_kenmerkdomein   kd,
+                   fac_usrtab          ut,
+                   fac_usrdata         ud
+             WHERE     sk.mld_srtkenmerk_code = 'ASPECT6'
+                   AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key
+                   AND k.mld_kenmerk_key = mk.mld_kenmerk_key
+                   AND sk.fac_kenmerkdomein_key = kd.fac_kenmerkdomein_key
+                   AND ut.fac_usrtab_key = kd.fac_usrtab_key
+                   AND ud.fac_usrtab_key = ut.fac_usrtab_key
+                   AND TO_CHAR (fac_usrdata_key) = mld_kenmerkmelding_waarde
+                   AND mk.mld_melding_key = m.mld_melding_key)
+               beleving_esthetica,
+           (SELECT k.mld_kenmerk_key
+              FROM mld_kenmerk k, mld_srtkenmerk sk
+             WHERE sk.mld_srtkenmerk_code = 'FOTO' AND sk.mld_srtkenmerk_key = k.mld_srtkenmerk_key)
+               foto
+     FROM mld_melding m,
+          mld_melding_object mo,
+          ins_deel d,
+          ins_srtdeel isd,
+          ins_srtgroep isg,
+          ins_discipline id,
+          alg_v_allonrgoed_gegevens aog,
+          alg_locatie l,
+          mld_statuses s,
+          prs_v_perslid_fullnames_all pf,
+          mld_stdmelding std
+    WHERE     m.mld_melding_key = mo.mld_melding_key
+          AND d.ins_deel_key = mo.ins_deel_key
+          AND d.ins_srtdeel_key = isd.ins_srtdeel_key
+          AND isd.ins_srtgroep_key = isg.ins_srtgroep_key
+          AND isg.ins_discipline_key = id.ins_discipline_key
+          AND m.mld_alg_onroerendgoed_keys = aog.alg_onroerendgoed_keys
+          AND l.alg_locatie_key = aog.alg_locatie_key
+          AND s.mld_statuses_key = m.mld_melding_status
+          AND m.prs_perslid_key = pf.prs_perslid_key
+          AND m.mld_stdmelding_key = std.mld_stdmelding_key;
+
+REGISTERRUN('$Id$')
+
+#endif // CND

CNT/CNT_INI.SRC

@@ -63,11 +63,11 @@ DEF_FAC_MESSAGE ('cnt_r_cnt_contract_stdmld'    ,'De aangegeven dienst bestaat n
 DEF_FAC_MESSAGE ('cnt_r_cnt_contract_bedrijf'   ,'Het aangegeven bedrijf bestaat niet.'                               ,'That company does not exist.');
 DEF_FAC_MESSAGE ('cnt_r_cnt_contractint'        ,'De aangegeven interne contactpersoon bestaat niet.'                 ,'That internal contact person does not exist');
 
-INSERT INTO cnt_typecontract VALUES (1, 'Onderhoud/Maintenance');
-INSERT INTO cnt_typecontract VALUES (3, 'Ondersteuning/Support');
-INSERT INTO cnt_typecontract VALUES (4, 'Algemeen/Generic');
-INSERT INTO cnt_typecontract VALUES (5, 'Leverancier/Supplier');
-INSERT INTO cnt_typecontract VALUES (6, 'Mantel/Master');
+INSERT INTO cnt_typecontract VALUES (1, 'lcl_cnt_typecontract1');   //Objecten
+INSERT INTO cnt_typecontract VALUES (3, 'lcl_cnt_typecontract3');   //Plaats/Objectsoort
+INSERT INTO cnt_typecontract VALUES (4, 'lcl_cnt_typecontract4');   //Geen
+INSERT INTO cnt_typecontract VALUES (5, 'lcl_cnt_typecontract5');   //Plaats
+INSERT INTO cnt_typecontract VALUES (6, 'lcl_cnt_typecontract6');   //Mantel
 
 INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('W', 0, 'Geen', 10);
 INSERT INTO cnt_termijn (cnt_termijn_type, cnt_termijn_aantal, cnt_termijn_omschrijving, cnt_termijn_volgnummer) VALUES ('W', 1, '1 Week', 20);

CNT/CNT_PAC.SRC

@@ -17,6 +17,7 @@ CREATE OR REPLACE PACKAGE cnt AS
 
   FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
   FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
+  PROCEDURE remove(p_contract_key IN NUMBER);
 
   PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
 END cnt;
@@ -515,6 +516,72 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN s;
    END;
 
+   PROCEDURE remove(p_contract_key IN NUMBER)
+   IS
+       CURSOR c_contract IS
+           SELECT cnt_contract_key
+             FROM cnt_contract
+            WHERE cnt_contract_mantel_key = p_contract_key;
+
+       CURSOR c_factuur IS
+           SELECT fin_factuur_key
+             FROM fin_factuur
+            WHERE cnt_contract_key = p_contract_key;
+
+       CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+           SELECT fac_bijlagen_key
+             FROM fac_bijlagen b
+                , cnt_contract r
+            WHERE b.fac_bijlagen_refkey = r.cnt_contract_key
+              AND b.fac_bijlagen_module = 'CNT'
+              AND b.fac_bijlagen_refkey = p_refkey;
+
+   BEGIN
+       -- Verwijder alle subcontracten van dit contract.
+       FOR ref_contract IN c_contract
+       LOOP
+           cnt.remove(ref_contract.cnt_contract_key);
+       END LOOP;
+
+       FOR ref_factuur IN c_factuur
+       LOOP
+           fin.remove(ref_factuur.fin_factuur_key);
+       END LOOP;
+
+       FOR ref_bijlagen IN c_bijlagen(p_contract_key)
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
+       FOR ref_mldopdr IN (SELECT mld_opdr_key
+                             FROM mld_opdr
+                            WHERE cnt_contract_key = p_contract_key
+                           )
+       LOOP
+           -- Verwijder melding-opdrachten die aan dit contract zitten.
+           mld.remove_opdr(ref_mldopdr.mld_opdr_key);
+       END LOOP;
+
+       DELETE FROM cnt_contract
+        WHERE cnt_contract_key = p_contract_key;
+
+       -- Van de volgende tabellen worden de records die naar deze p_contact_key
+       -- verwijzen met ON DELETE CASCADE ook verwijderd:
+       --  cnt_contract_note
+       --  cnt_contract_object
+       --  cnt_contract_plaats
+       --  cnt_contract_dienst
+       --  cnt_factuurschema
+       --  cnt_kenmerkcontract
+       -- In de volgende tabel wordt cnt_contract_key leeg gemaakt bij het verwijderen van p_contract_key:
+       --  mld_opdr
+
+       fac.remove_tracking('contract', p_contract_key);
+       -- NB:
+       -- Tabel bes_bestelopdr heeft ook een cnt_contract key, maar deze heeft geen referential integrity constraint.
+       -- In geen enkele omgeving is cnt_contract_key in deze tabel ingevuld.
+   END;
+
 END cnt;
 /
 

CNT/CNT_TAB.SRC

@@ -44,6 +44,10 @@ CREATE_TABLE(cnt_disc_params, 0)
         CONSTRAINT cnt_r_cnt_typecontract_key REFERENCES cnt_typecontract(cnt_typecontract_key),
     cnt_disc_params_opmerking
         VARCHAR2(320),
+    cnt_disc_params_verkoopcontr
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     cnt_disc_params_factuurschema
         NUMBER(1)
         DEFAULT 0
@@ -62,7 +66,25 @@ CREATE_TABLE(cnt_disc_params, 0)
     /* bewust niet, irrelevant voor cnt: cnt_disc_params_factmatchmode    -- 2-weg of 3-weg matching? */
     cnt_disc_params_termijndefault
         NUMBER(10)
-        CONSTRAINT cnt_r_cnt_disc_params_tdefault REFERENCES cnt_termijn(cnt_termijn_key)
+        CONSTRAINT cnt_r_cnt_disc_params_tdefault REFERENCES cnt_termijn(cnt_termijn_key),
+    cnt_disc_params_fin NUMBER(1)
+        DEFAULT 1 NOT NULL,
+    cnt_disc_params_binding
+        NUMBER(3)
+        DEFAULT (3)
+        NOT NULL,   /* 2=Persoon 1=Bedrijf 3=Alles*/
+    cnt_disc_params_leverancier /* indien Bedrijf: Leveranciers? */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    cnt_disc_params_uitvoerende /* indien Bedrijf: Uitvoerenden? */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    cnt_disc_params_huurder /* indien Bedrijf: Huurders? */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 
@@ -183,7 +205,7 @@ CREATE_TABLE(cnt_contract_object,0)
    CONSTRAINT cnt_k_cnt_contract_object_key PRIMARY KEY
 ,  cnt_contract_key
    NUMBER(10)
-   CONSTRAINT cnt_r_cnt_contract_key_object REFERENCES cnt_contract(cnt_contract_key)
+   CONSTRAINT cnt_r_cnt_contract_key_object REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE
 ,  cnt_ins_srtdeel_key
    NUMBER(10)
    CONSTRAINT cnt_r_ins_srtdeel_key REFERENCES ins_srtdeel(ins_srtdeel_key)
@@ -204,7 +226,7 @@ CREATE_TABLE(cnt_contract_plaats,0)
    CONSTRAINT cnt_k_cnt_contract_plaats PRIMARY KEY
 ,  cnt_contract_key
    NUMBER(10)
-   CONSTRAINT cnt_r_cnt_contract_key_plaats REFERENCES cnt_contract(cnt_contract_key)
+   CONSTRAINT cnt_r_cnt_contract_key_plaats REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE
 ,  cnt_alg_plaats_key
    NUMBER(10)
 ,  cnt_alg_plaats_code
@@ -225,7 +247,7 @@ CREATE_TABLE (CNT_CONTRACT_DIENST,0)
    PRIMARY KEY,
   cnt_contract_key
    NUMBER(10)
-   CONSTRAINT cnt_r_cnt_contract_dienst REFERENCES cnt_contract(cnt_contract_key),
+   CONSTRAINT cnt_r_cnt_contract_dienst REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE,
   mld_stdmelding_key
    NUMBER(10)
    CONSTRAINT cnt_r_cnt_contract_stdmld REFERENCES mld_stdmelding(mld_stdmelding_key),
@@ -247,7 +269,7 @@ ALTER TABLE mld_opdr ADD
 (
     cnt_contract_key
         NUMBER(10)
-        CONSTRAINT mld_r_cnt_contract_key REFERENCES cnt_contract(cnt_contract_key)
+        CONSTRAINT mld_r_cnt_contract_key REFERENCES cnt_contract(cnt_contract_key) ON DELETE SET NULL
 );
 
 ALTER TABLE mld_opdr ADD
@@ -297,7 +319,7 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_omschr    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_srtkenmerk_omschrijving    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_u_cnt_srtkenmerk_upper    UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
-,  CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype  CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+,  CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype  CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_systeem   CHECK(cnt_srtkenmerk_systeem IS NULL
                                                 OR cnt_srtkenmerk_systeem = 1)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_lengte    CHECK(cnt_srtkenmerk_lengte >= 1
@@ -318,6 +340,8 @@ CREATE_TABLE(cnt_kenmerk, 0)
       NUMBER(10)  /* verwijst naar ins_discipline */
 ,  cnt_kenmerk_niveau
       VARCHAR2(1)
+,  cnt_kenmerk_omschrijving
+      VARCHAR2(50)  /* optionele overrule van srtkenmerk_omschrijving */
 ,  cnt_kenmerk_verplicht
       NUMBER(1)
 ,  cnt_kenmerk_groep
@@ -328,8 +352,6 @@ CREATE_TABLE(cnt_kenmerk, 0)
 ,  cnt_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
-,  cnt_kenmerk_locatiekolom
-      VARCHAR2(30)
 ,  cnt_kenmerk_uniek
       NUMBER(1)
 ,  cnt_kenmerk_regexp
@@ -343,6 +365,7 @@ CREATE_TABLE(cnt_kenmerk, 0)
       DATE
       DEFAULT NULLDATUM
 ,  cnt_kenmerk_default VARCHAR2(4000)
+,  cnt_kenmerk_show_expr VARCHAR2(4000)
 ,  CONSTRAINT cnt_r_cnt_srtkenmerk_key1      CHECK(cnt_srtkenmerk_key IS NOT NULL)
 ,  CONSTRAINT cnt_r_cnt_srtkenmerk_key2      FOREIGN KEY(cnt_srtkenmerk_key) REFERENCES cnt_srtkenmerk(cnt_srtkenmerk_key)
 ,  CONSTRAINT cnt_c_cnt_kenmerk_niveau1      CHECK(cnt_kenmerk_niveau IS NOT NULL)
@@ -350,7 +373,7 @@ CREATE_TABLE(cnt_kenmerk, 0)
 ,  CONSTRAINT cnt_c_cnt_kenmerk_toonbaar     CHECK(cnt_kenmerk_toonbaar IS NULL
                                                 OR cnt_kenmerk_toonbaar = 1)
 ,  CONSTRAINT cnt_c_cnt_kenmerk_aanmaak      CHECK(cnt_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_groep, cnt_kenmerk_verwijder)
+,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_omschrijving, cnt_kenmerk_groep, cnt_kenmerk_verwijder)
 );
 
 CREATE_TABLE(cnt_kenmerkcontract, 0)
@@ -395,7 +418,7 @@ CREATE_TABLE(cnt_factuurschema , 0)
     cnt_contract_key
         NUMBER(10)
         NOT NULL
-        CONSTRAINT cnt_r_cnt_factuurschema1 REFERENCES cnt_contract(cnt_contract_key),
+        CONSTRAINT cnt_r_cnt_factuurschema1 REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE,
     cnt_factuurschema_boekmaand  /* format YYYY-MM */
         VARCHAR2(7),
     cnt_factuurschema_bedrag

CNT/CNT_VIE.SRC

@@ -470,12 +470,12 @@ AS
                                     DECODE (
                                        sk.cnt_srtkenmerk_kenmerktype,
                                        'R',
-                                       fac.getdomeinwaarde (
+                                       flx.getdomeinwaarde (
                                           sk.fac_kenmerkdomein_key,
                                           ck.cnt_kenmerkcontract_waarde
                                        ),
                                        'S',
-                                       fac.getdomeinwaarde (
+                                       flx.getdomeinwaarde (
                                           sk.fac_kenmerkdomein_key,
                                           ck.cnt_kenmerkcontract_waarde
                                        ),
@@ -1075,15 +1075,13 @@ SELECT c.cnt_contract_nummer_intern,
 CREATE_VIEW(cnt_v_udr_contractkenmerk_cnd, 1)
 AS
    SELECT c.*,
-          lcl.x ('skm.cnt_srtkenmerk_omschrijving',
-                 skm.cnt_srtkenmerk_key,
-                 cnt_srtkenmerk_omschrijving)
-             kenmerk,
+          COALESCE(lcl.x('cnt_kenmerk_omschrijving', k.cnt_kenmerk_key, k.cnt_kenmerk_omschrijving),
+                   lcl.x('cnt_srtkenmerk_omschrijving', skm.cnt_srtkenmerk_key, cnt_srtkenmerk_omschrijving)) kenmerk,
           CASE
              WHEN    skm.cnt_srtkenmerk_kenmerktype = 'R'
                   OR skm.cnt_srtkenmerk_kenmerktype = 'S'
              THEN
-                fac.getdomeinwaarde (skm.fac_kenmerkdomein_key,
+                flx.getdomeinwaarde (skm.fac_kenmerkdomein_key,
                                      km.cnt_kenmerkcontract_waarde)
              WHEN    skm.cnt_srtkenmerk_kenmerktype = 'C'
                   OR skm.cnt_srtkenmerk_kenmerktype = 'F'

COMSQL.H

@@ -21,10 +21,6 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 2017
-#define _VERSIONMIN 2
-#define _VERSIONPATCH '0'
-#define _VERSION '2017.2.0'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \
@@ -353,7 +349,7 @@ ELSIF
 
 #define _FAC_MODULE(module,omschrijving) \
  INSERT INTO fac_module (fac_module_name, fac_module_version, fac_module_date, fac_module_remark, fac_module_extern) \
-  VALUES (module,_VERSION,TO_CHAR(SYSDATE,'YYYYMMDD'),omschrijving, 1);
+  VALUES (module,_DBV_STRING,TO_CHAR(SYSDATE,'YYYYMMDD'),omschrijving, 1);
 
 #define APPLICATION_ERROR(code,text)   raise_application_error(code, text)
 
@@ -658,6 +654,71 @@ CEIL
 // De CHECK() geeft het wel, dus wordt deze gebruikt.
 #define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
 
+#define DEF_IMPORT(aut, code, oms_nl, oms_en)                            \
+DECLARE                                                                 ~\
+    imp_key NUMBER(10);                                                 ~\
+BEGIN                                                                   ~\
+    INSERT INTO fac_import_app                                          ~\
+           ( fac_import_app_code, fac_import_app_oms, fac_functie_key ) ~\
+    VALUES ( UPPER(code), oms_nl                                        ~\
+           , (SELECT fac_functie_key FROM fac_functie                   ~\
+               WHERE fac_functie_code = aut                             ~\
+             )                                                          ~\
+           )                                                            ~\
+    RETURNING fac_import_app_key INTO imp_key;                          ~\
+    INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
+    VALUES ('EN', imp_key, 'FAC_IMPORT_APP_OMS', oms_en); ~\
+END; ~\
+/    ~\
+
+#define DEF_RAPPORT(aut, func, view, oms_nl, info_nl, oms_en, info_en)  \
+DECLARE                                                                ~\
+    rap_key     NUMBER(10);                                            ~\
+BEGIN                                                                  ~\
+    INSERT INTO fac_usrrap                                             ~\
+           ( fac_usrrap_omschrijving, fac_usrrap_view_name             ~\
+           , fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum     ~\
+           , fac_usrrap_functie, fac_usrrap_autorefresh                ~\
+           , fac_usrrap_info                                           ~\
+           , fac_functie_key                                           ~\
+           )                                                           ~\
+    VALUES ( oms_nl, view, 0, 0, func, 0, info_nl                      ~\
+           , (SELECT fac_functie_key FROM fac_functie                  ~\
+               WHERE fac_functie_code = aut                            ~\
+             )                                                         ~\
+           )                                                           ~\
+    RETURNING fac_usrrap_key INTO rap_key;                             ~\
+    INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
+    VALUES ('EN', rap_key, 'FAC_USRRAP_OMSCHRIJVING', oms_en); ~\
+    INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
+    VALUES ('EN', rap_key, 'FAC_USRRAP_INFO', info_en); ~\
+END; ~\
+/    ~\
+
+#define DEF_RAPPORT_COL(oms_nl, volgnr, col, f, d, t, v, label_nl, label_en)  \
+DECLARE                                                                      ~\
+    col_key NUMBER(10);                                                      ~\
+BEGIN                                                                        ~\
+    INSERT INTO fac_usrrap_cols                                              ~\
+           ( fac_usrrap_key, fac_usrrap_cols_volgnr                          ~\
+           , fac_usrrap_cols_column_name, fac_usrrap_cols_caption            ~\
+           , fac_usrrap_cols_filter, fac_usrrap_cols_filterdefault           ~\
+           , fac_usrrap_cols_datatype, fac_usrrap_cols_visible               ~\
+           )                                                                 ~\
+    VALUES ( (SELECT fac_usrrap_key                                          ~\
+                FROM fac_usrrap                                              ~\
+               WHERE fac_usrrap_omschrijving = oms_nl                        ~\
+             )                                                               ~\
+           , volgnr, col, label_nl                                           ~\
+           , f, d, t, v                                                      ~\
+           )                                                                 ~\
+    RETURNING fac_usrrap_cols_key INTO col_key;                              ~\
+/*   INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) */ ~\
+/*   VALUES ('EN', col_key, 'FAC_USRRAP_COLS_CAPTION', label_en); */ ~\
+END; ~\
+/    ~\
+
+
 #define BEGIN_MODULE(m) \
  DECLARE ~\
    dummy VARCHAR2(1); ~\
@@ -708,7 +769,7 @@ FOR EACH ROW                                        ~\
  BEGIN                                              ~\
    IF DELETING THEN                                 ~\
       action := 'D';                                ~\
-   ELSIF INSERTING THEN                           ~\
+   ELSIF INSERTING THEN                             ~\
       action := 'I';                                ~\
    ELSE                                             ~\
       action := 'U';                                ~\

FAC/FAC_IND.SRC

@@ -27,7 +27,6 @@ CREATE UNIQUE INDEX fac_i_srtnotificatie_code2 on fac_srtnotificatie(fac_srtnoti
 CREATE INDEX fac_i_notificatie1 ON fac_notificatie(prs_perslid_key_receiver, fac_notificatie_status);
 CREATE INDEX fac_i_notificatie2 ON fac_notificatie(fac_srtnotificatie_key);
 
-CREATE UNIQUE INDEX fac_i_fac_xml1 ON fac_xml(fac_session_id, fac_xml_volgnr);
 CREATE INDEX fac_i_fac_session1 ON fac_session(prs_perslid_key);
 CREATE UNIQUE INDEX fac_i_fac_session2 ON fac_session(fac_session_sessionid_hash);
 
@@ -63,4 +62,11 @@ CREATE UNIQUE INDEX fac_i_imp_usrdata1 ON fac_imp_usrdata (fac_usrtab_naam, fac_
 
 CREATE UNIQUE INDEX fac_i_fac_api1 ON fac_api (fac_api_name);
 
+create index fac_i_fac_usrrap_volgnr on fac_usrrap(fac_usrrap_volgnr, fac_usrrap_omschrijving);
+
+CREATE INDEX fac_i_fac_bijlagen_root_key ON fac_bijlagen(fac_bijlagen_root_key);
+CREATE INDEX fac_i_fac_bijlagen_refkey1 ON fac_bijlagen(fac_bijlagen_refkey);
+
+CREATE INDEX fac_i_fac_note_group1 ON fac_note_group(fac_note_group_xmlnode, fac_note_group_volgnr);
+
 REGISTERONCE('$Id$')

FAC/FAC_LCLMDL.csv

@@ -1,5 +0,0 @@
-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_PACANO.SRC

@@ -11,7 +11,14 @@ CREATE OR REPLACE PACKAGE ano AS
   PROCEDURE anonymizebez (p_startdatum IN DATE, p_einddatum IN DATE);
   PROCEDURE anonymizemld (p_startdatum IN DATE, p_einddatum IN DATE);
   PROCEDURE anonymizeprs (p_startdatum IN DATE, p_einddatum IN DATE);
+  PROCEDURE anonymizefull(p_flags NUMBER DEFAULT 65535);
   PROCEDURE anonymize (p_startdatum IN DATE, p_einddatum IN DATE);
+  FUNCTION postcode(postcode_veld IN VARCHAR2) RETURN VARCHAR2;
+  FUNCTION telefoon(telefoon_veld IN VARCHAR2) RETURN VARCHAR2;
+  FUNCTION adres(adres_veld IN VARCHAR2) RETURN VARCHAR2;
+  FUNCTION naam(naam_veld IN VARCHAR2) RETURN VARCHAR2;
+  FUNCTION email(email_veld IN VARCHAR2) RETURN VARCHAR2;
+  FUNCTION memo(memo_veld IN VARCHAR2) RETURN VARCHAR2;
 END ano;
 /
 
@@ -20,6 +27,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                             p_einddatum  IN DATE)
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
+       v_count                          NUMBER;
 
        -- Alle bestellingen waarvan de afwijsdatum, alles geleverd datum, verwerkingsdatum of annuleringsdatum tussen de startdatum en de einddatum liggen.
        CURSOR c_bestelling
@@ -32,7 +40,11 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                        AND ft.fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
                                                            FROM fac_srtnotificatie
                                                          WHERE fac_srtnotificatie_xmlnode = 'bestelling'
-                                                           AND fac_srtnotificatie_code != 'BESANO')) BETWEEN p_startdatum AND p_einddatum
+                                                           --AND fac_srtnotificatie_code != 'BESANO' -- Vervangen door "fac_srtnotificatie_key != key" hieronder. Blijkt veel sneller te zijn.
+                                                           AND fac_srtnotificatie_key != (SELECT fac_srtnotificatie_key
+                                                                                            FROM fac_srtnotificatie
+                                                                                           WHERE fac_srtnotificatie_code = 'BESANO')
+                                                        )) BETWEEN p_startdatum AND p_einddatum
                AND b.bes_bestelling_status IN (1, 6, 7, 8)
                AND NOT EXISTS
                        (SELECT ft.fac_tracking_key
@@ -49,6 +61,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec_b IN c_bestelling
        LOOP
           -- Verwijder alle kenmerkwaarden van de bestelling waarvan het &8 (BITAND) bit van het bes_srtkenmerk.bes_srtkenmerk_systeem veld is gezet.
@@ -109,6 +122,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
              -- Anonimiseren van de bestelopdracht tracken.
              fac.trackaction('BES2AN', rec_bo.bes_bestelopdr_key, NULL, NULL, NULL);
           END LOOP;
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -117,6 +138,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
        bez_generic_visitor              VARCHAR2 (2001) := lcl.l('lcl_bez_generic_visitor');
+       v_count                          NUMBER;
 
        -- Alle afspraken die tussen de startdatum en de einddatum liggen.
        CURSOR c_afspraak
@@ -138,6 +160,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec IN c_afspraak
        LOOP
           -- Verwijder alle kenmerkwaarden van bezoekers van de afspraak waarvan het &8 (BITAND) bit van het bez_kenmerk.bez_kenmerk_systeem veld is gezet.
@@ -154,7 +177,10 @@ CREATE OR REPLACE PACKAGE BODY ano AS
           UPDATE bez_bezoekers
              SET bez_afspraak_naam = bez_generic_visitor,
                  bez_afspraak_bedrijf = NULL,
-                 bez_afspraak_opmerking = NULL
+                 bez_afspraak_opmerking = NULL,
+                 bez_bezoekers_telefoon = NULL,
+                 bez_bezoekers_email = NULL,
+                 bez_bezoekers_kenteken = NULL
            WHERE bez_afspraak_key = rec.bez_afspraak_key;
 
           -- Anonimiseer alle afspraken.
@@ -190,6 +216,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
 
           -- Anonimiseren van de afspraak tracken.
           fac.trackaction('BEZANO', rec.bez_afspraak_key, NULL, NULL, NULL);
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -197,6 +231,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                             p_einddatum  IN DATE)
     AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
+       v_count                          NUMBER;
 
        -- Alle meldingen waarvan de afwijsdatum of verwerkingsdatum tussen de startdatum en de einddatum liggen.
        CURSOR c_melding
@@ -209,7 +244,11 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                        AND ft.fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
                                                            FROM fac_srtnotificatie
                                                          WHERE fac_srtnotificatie_xmlnode = 'melding'
-                                                           AND fac_srtnotificatie_code != 'MLDANO')) BETWEEN p_startdatum AND p_einddatum
+                                                           --AND fac_srtnotificatie_code != 'MLDANO' -- Vervangen door "fac_srtnotificatie_key != key" hieronder. Blijkt veel sneller te zijn.
+                                                           AND fac_srtnotificatie_key != (SELECT fac_srtnotificatie_key
+                                                                                            FROM fac_srtnotificatie
+                                                                                           WHERE fac_srtnotificatie_code = 'MLDANO')
+                                                        )) BETWEEN p_startdatum AND p_einddatum
                AND m.mld_melding_status IN (1, 6)
                AND NOT EXISTS
                        (SELECT ft.fac_tracking_key
@@ -226,6 +265,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec_m IN c_melding
        LOOP
           -- Verwijder alle kenmerkwaarden van de melding waarvan het &8 (BITAND) bit van het mld_srtkenmerk.mld_srtkenmerk_systeem veld is gezet.
@@ -281,6 +321,14 @@ CREATE OR REPLACE PACKAGE BODY ano AS
              -- Anonimiseren van de meldingsopdracht tracken.
              fac.trackaction('ORDANO', rec_o.mld_opdr_key, NULL, NULL, NULL);
           END LOOP;
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
        END LOOP;
     END;
 
@@ -290,6 +338,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
        anonymize_period                 NUMBER := fac.safe_to_number (fac.getsetting ('anonymize_period'));
        bez_generic_visitor              VARCHAR2 (2001) := lcl.l('lcl_bez_generic_visitor');
        prs_old_employee                 VARCHAR2 (100) := lcl.l('lcl_prs_old_employee');
+       v_count                          NUMBER;
 
        -- Alle personen die tussen de startdatum en de einddatum verwijderd zijn.
        CURSOR c_perslid
@@ -313,6 +362,7 @@ CREATE OR REPLACE PACKAGE BODY ano AS
          raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
        END IF;
 
+       v_count := 0;
        FOR rec IN c_perslid
        LOOP
           BEGIN
@@ -333,7 +383,6 @@ CREATE OR REPLACE PACKAGE BODY ano AS
                     prs_perslid_voornaam = NULL,
                     prs_perslid_titel = NULL,
                     prs_perslid_initialen = NULL,
-                    prs_perslid_init_upper = NULL,
                     prs_perslid_geslacht = NULL,
                     prs_perslid_nr = NULL,
                     prs_perslid_telefoonnr = NULL,
@@ -372,10 +421,164 @@ CREATE OR REPLACE PACKAGE BODY ano AS
 
              -- Anonimiseren van de persoon tracken.
              fac.trackaction('PRSANO', rec.prs_perslid_key, NULL, NULL, NULL);
+
+          IF v_count >= 1000
+          THEN
+             COMMIT;
+             v_count := 0;
+          ELSE
+             v_count := v_count + 1;
+          END IF;
           END;
        END LOOP;
     END;
 
+    PROCEDURE anonymizefull(p_flags NUMBER DEFAULT 65535)
+    AS
+    BEGIN
+        -- Destructive obstrufication of personal data.
+        UPDATE prs_perslid
+           SET prs_perslid_naam = INITCAP (DBMS_RANDOM.string ('l', LENGTH (prs_perslid_naam)))
+         WHERE prs_perslid_naam NOT LIKE 'INACTIEF:%'
+           AND prs_perslid_naam NOT LIKE 'Facilitor'
+           AND (prs_perslid_oslogin IS NULL OR SUBSTR(prs_perslid_oslogin, 1, 1) <> '_');
+
+        UPDATE prs_perslid
+           SET prs_perslid_voornaam = INITCAP (DBMS_RANDOM.string ('l', LENGTH (prs_perslid_voornaam)))
+         WHERE prs_perslid_voornaam IS NOT NULL
+           AND (prs_perslid_oslogin IS NULL OR SUBSTR(prs_perslid_oslogin, 1, 1) <> '_');
+
+        UPDATE prs_perslid
+           SET prs_perslid_voorletters = UPPER (DBMS_RANDOM.string ('l', LENGTH (prs_perslid_voorletters)))
+         WHERE prs_perslid_voorletters IS NOT NULL;
+
+        UPDATE prs_perslid
+           SET prs_perslid_naam = 'INACTIEF:' || INITCAP (DBMS_RANDOM.string ('l', LENGTH (prs_perslid_naam) - 9))
+         WHERE prs_perslid_naam LIKE 'INACTIEF:%';
+
+        UPDATE prs_perslid
+           SET prs_perslid_email = 'P' || TO_CHAR(prs_perslid_key) || '@notexist.facilitor.nl'
+         WHERE prs_perslid_email IS NOT NULL;
+
+        UPDATE prs_perslid
+           SET prs_perslid_oslogin2='O' || TO_CHAR(prs_perslid_key)
+         WHERE prs_perslid_oslogin2 IS NOT NULL;
+
+        UPDATE prs_perslid
+           SET prs_perslid_wachtwoord_hash = null;
+
+        UPDATE prs_perslid
+           SET prs_perslid_apikey = 'TEST_' || dbms_utility.get_hash_value(prs_perslid_apikey  , 0, power(2,24))
+         WHERE prs_perslid_apikey IS NOT NULL;
+
+        DELETE FROM fac_imp_perslid;
+
+        UPDATE prs_contactpersoon
+           SET prs_contactpersoon_naam = INITCAP (DBMS_RANDOM.string ('l', LENGTH(prs_contactpersoon_naam)));
+
+        UPDATE prs_contactpersoon
+           SET prs_contactpersoon_voornaam = INITCAP (DBMS_RANDOM.string ('l', LENGTH(prs_contactpersoon_voornaam)))
+         WHERE prs_contactpersoon_voornaam IS NOT NULL;
+
+        UPDATE prs_contactpersoon
+           SET prs_contactpersoon_voorletters = SUBSTR(prs_contactpersoon_voornaam,1,1) || SUBSTR(prs_contactpersoon_voorletters,2)
+         WHERE prs_contactpersoon_voorletters IS NOT NULL;
+
+        UPDATE prs_contactpersoon
+           SET prs_contactpersoon_email= 'EC' || TO_CHAR(prs_contactpersoon_key) || '@notexist.facilitor.nl'
+         WHERE prs_contactpersoon_email IS NOT NULL;
+
+        EXECUTE IMMEDIATE 'ALTER TRIGGER bez_t_bez_afspraak_B_IU DISABLE';
+
+            UPDATE bez_afspraak
+               SET bez_afspraak_gastheer = (SELECT SUBSTR(prs_perslid_naam_full,1,50)
+                                              FROM prs_v_perslid_fullnames_all
+                                             WHERE prs_perslid_key = bez_afspraak_host_key
+                                           )
+             WHERE bez_afspraak_host_key IS NOT NULL;
+
+            UPDATE bez_afspraak
+               SET bez_afspraak_gastheer = INITCAP (DBMS_RANDOM.string ('l', LENGTH (bez_afspraak_gastheer)))
+             WHERE bez_afspraak_host_key IS NULL;
+
+        EXECUTE IMMEDIATE 'ALTER TRIGGER bez_t_bez_afspraak_B_IU ENABLE';
+
+        UPDATE bez_bezoekers
+           SET bez_afspraak_naam = UPPER(SUBSTR(bez_afspraak_naam,1,1)) || '. Bezoeker'
+         WHERE bez_afspraak_naam IS NOT NULL
+           AND bez_afspraak_naam <> 'Anoniem';
+
+        UPDATE bez_bezoekers
+           SET bez_afspraak_bedrijf = UPPER(SUBSTR(bez_afspraak_bedrijf,1,1)) || 'areon B.V.'
+         WHERE bez_afspraak_bedrijf IS NOT NULL
+           AND bez_afspraak_bedrijf <> 'Anoniem';
+
+        UPDATE prs_bedrijf
+           SET prs_bedrijf_naam = ano.naam(prs_bedrijf_naam)
+             , prs_bedrijf_post_adres = ano.adres(prs_bedrijf_post_adres)
+             , prs_bedrijf_post_postcode = ano.postcode(prs_bedrijf_post_postcode)
+             , prs_bedrijf_bezoek_adres = ano.adres(prs_bedrijf_bezoek_adres)
+             , prs_bedrijf_bezoek_postcode = ano.postcode(prs_bedrijf_bezoek_postcode)
+             , prs_bedrijf_telefoon = ano.telefoon(prs_bedrijf_telefoon)
+             , prs_bedrijf_telefoon2 = ano.telefoon(prs_bedrijf_telefoon2)
+             , prs_bedrijf_fax = ano.telefoon(prs_bedrijf_fax)
+             , prs_bedrijf_email = ano.email(prs_bedrijf_email)
+             , prs_bedrijf_contact_persoon = ano.naam(prs_bedrijf_contact_persoon)
+             , prs_bedrijf_contact_telefoon = ano.telefoon(prs_bedrijf_contact_telefoon)
+             , prs_bedrijf_contact_fax = ano.telefoon(prs_bedrijf_contact_fax);
+
+        UPDATE prs_bedrijfadres
+           SET prs_bedrijfadres_url = ano.email(prs_bedrijfadres_url)
+             , prs_bedrijfadres_username = ano.naam(prs_bedrijfadres_username)
+             , prs_bedrijfadres_password = NULL;
+
+        UPDATE aut_idp
+           SET aut_idp_secret = 'TEST_' || DBMS_RANDOM.string('a', 10)
+         WHERE aut_idp_secret IS NOT NULL
+           AND aut_idp_internal = 0;
+
+        UPDATE aut_sp
+           SET aut_sp_secret = 'TEST_' || DBMS_RANDOM.string('a', 10)
+         WHERE aut_sp_secret IS NOT NULL
+           AND aut_sp_internal = 0;
+
+        UPDATE mld_adres
+           SET mld_adres_bezoek_adres = ano.adres(mld_adres_bezoek_adres)
+             , mld_adres_bezoek_postcode = ano.postcode(mld_adres_bezoek_postcode)
+             , mld_adres_post_adres = ano.adres(mld_adres_post_adres)
+             , mld_adres_post_postcode = ano.postcode(mld_adres_post_postcode)
+             , mld_adres_contactpersoon = ano.naam(mld_adres_contactpersoon)
+             , mld_adres_contactpers_telefoon = ano.telefoon(mld_adres_contactpers_telefoon)
+             , mld_adres_contactpers_email = ano.email(mld_adres_contactpers_email)
+             , mld_adres_telefoon = ano.telefoon(mld_adres_telefoon)
+             , mld_adres_email = ano.email(mld_adres_email);
+
+        UPDATE mld_melding
+           SET mld_melding_naam_ext = ano.naam(mld_melding_naam_ext)
+             , mld_melding_email_ext = ano.email(mld_melding_email_ext)
+             , mld_melding_tel_ext = ano.telefoon(mld_melding_tel_ext);
+
+        UPDATE mld_opdr
+           SET mld_opdr_contactpersoon = ano.naam(mld_opdr_contactpersoon)
+         WHERE mld_opdr_contactpersoon IS NOT NULL;
+
+        UPDATE mld_disc_params
+           SET mld_disc_params_emailnw1 = ano.email(mld_disc_params_emailnw1)
+             , mld_disc_params_emailnw2 = ano.email(mld_disc_params_emailnw2)
+             , mld_disc_params_emailnw3 = ano.email(mld_disc_params_emailnw3)
+             , mld_disc_params_emailnw4 = ano.email(mld_disc_params_emailnw4)
+             , mld_disc_params_smsnw1 = ano.telefoon(mld_disc_params_smsnw1)
+             , mld_disc_params_smsnw2 = ano.telefoon(mld_disc_params_smsnw2)
+             , mld_disc_params_smsnw3 = ano.telefoon(mld_disc_params_smsnw3)
+             , mld_disc_params_smsnw4 = ano.telefoon(mld_disc_params_smsnw4)
+         WHERE mld_ins_discipline_key IN (SELECT ins_discipline_key
+                                            FROM mld_discipline);
+
+        UPDATE fin_verkoopfactuur
+           SET prs_debiteur_naam = ano.naam(prs_debiteur_naam)
+         WHERE prs_debiteur_naam IS NOT NULL;
+    END;
+
     PROCEDURE anonymize (p_startdatum IN DATE,
                          p_einddatum  IN DATE)
     AS
@@ -386,6 +589,174 @@ CREATE OR REPLACE PACKAGE BODY ano AS
        anonymizeprs(p_startdatum, p_einddatum);
     END;
 
+    FUNCTION postcode(postcode_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        c     VARCHAR2(1);
+        code VARCHAR2(15) := '';
+    BEGIN
+        IF (postcode_veld IS NOT NULL)
+        THEN
+            FOR i IN 1..LENGTH(SUBSTR(postcode_veld,1,15))
+            LOOP
+                c := SUBSTR(postcode_veld,i,1);
+                BEGIN
+                    c := TO_CHAR(TO_NUMBER(c));
+                    c := TO_CHAR(TRUNC(DBMS_RANDOM.value(0,10)));
+                EXCEPTION
+                    WHEN VALUE_ERROR THEN
+                        IF (c NOT IN (' ','-'))
+                        THEN
+                            c := DBMS_RANDOM.string('u',1);
+                        END IF;
+                END;
+                code := code||c;
+            END LOOP;
+        END IF;
+        RETURN code;
+    END postcode;
+
+    FUNCTION telefoon(telefoon_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        n    NUMBER;
+        r    NUMBER;
+        i    NUMBER;
+        f    VARCHAR2(5) := '+-_ *'; -- alleen deze laten we staan
+        tel  VARCHAR2(30) := '';
+        c    VARCHAR2(1);
+    BEGIN
+        IF (telefoon_veld IS NOT NULL)
+        THEN
+            n := DBMS_RANDOM.value(0,1);
+            tel := TO_CHAR(TRUNC(n * POWER(10,LENGTH(telefoon_veld))));
+            FOR r IN 0..3
+            LOOP
+                c := SUBSTR(f,r,1);
+                i := 1;
+                WHILE (INSTR(telefoon_veld, c, 1, i) > 0)
+                LOOP
+                    tel := REGEXP_REPLACE(tel
+                                 ,'(^.{'||(INSTR(telefoon_veld,c,1,i)-1)||'})(.{1})(.*)$'
+                                 ,'\1'||c||'\3'
+                                  );
+                    i := i + 1;
+                END LOOP;
+            END LOOP;
+        END IF;
+        RETURN tel;
+    END telefoon;
+
+    FUNCTION adres(adres_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        c      VARCHAR2(1);
+        adres  VARCHAR2(100) := '';
+    BEGIN
+        IF (adres_veld IS NOT NULL)
+        THEN
+            FOR i IN 1..LENGTH(adres_veld)
+            LOOP
+                c := SUBSTR(adres_veld,i,1);
+                BEGIN
+                    c := TO_CHAR(TO_NUMBER(c));
+                EXCEPTION
+                    WHEN VALUE_ERROR THEN
+                        IF (c <> ' ')
+                        THEN
+                            c := DBMS_RANDOM.string('l',1);
+                        END IF;
+                END;
+                adres := adres||c;
+            END LOOP;
+        END IF;
+        RETURN INITCAP(adres);
+    END adres;
+
+    FUNCTION email(email_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        s      NUMBER;
+        c      VARCHAR2(1);
+        p      VARCHAR2(9) := '';
+        z      VARCHAR2(3) := '';
+        email  VARCHAR2(500) := '';
+    BEGIN
+        IF (email_veld IS NOT NULL)
+        THEN
+            s := 1+INSTR(email_veld,':',1);
+            IF (s > 1)
+            THEN
+                p := SUBSTR(email_veld,1,s-1);
+                IF (SUBSTR(email_veld,s,2) = '//')
+                THEN
+                    s := s+2;
+                    p := p||'//';
+                END IF;
+            END IF;
+            IF (SUBSTR(email_veld,LENGTH(email_veld)-2,1) = '.')
+            THEN
+                z := SUBSTR(email_veld, -3);
+            END IF;
+            FOR i IN s..(LENGTH(email_veld)-NVL(LENGTH(z),0))
+            LOOP
+                c := SUBSTR(email_veld,i,1);
+                IF (c NOT IN ('.','@'))
+                THEN
+                    c := DBMS_RANDOM.string('l',1);
+                END IF;
+                email := email||c;
+            END LOOP;
+            email := p||email||z;
+        END IF;
+        RETURN email;
+    END email;
+
+    FUNCTION naam(naam_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        a     NUMBER;
+        i     VARCHAR2(1);
+        v     VARCHAR2(55) := '';
+        naam  VARCHAR2(200) := '';
+    BEGIN
+        IF (naam_veld IS NOT NULL)
+        THEN
+            a := LENGTH(naam_veld)-1;
+            IF (SUBSTR(naam_veld,LENGTH(naam_veld),1) = ')' AND INSTR(naam_veld,'(',-1) > 0)
+            THEN
+                v := DBMS_RANDOM.string('l',LENGTH(naam_veld) - INSTR(naam_veld,'(',-1) -1);
+                v := ' ('||SUBSTR(v,1,50)||')';
+                a := LENGTH(naam_veld) - LENGTH(v) -1;
+            END IF;
+            i := SUBSTR(naam_veld,1,1);
+            naam := UPPER(i)||DBMS_RANDOM.string('l', a)||v;
+        END IF;
+        RETURN naam;
+    END naam;
+
+    FUNCTION memo(memo_veld IN VARCHAR2) RETURN VARCHAR2
+    IS
+        memo  VARCHAR2(4000) := '';
+        c     VARCHAR2(1) := '';
+        r     VARCHAR2(1);
+    BEGIN
+        IF (memo_veld IS NOT NULL)
+        THEN
+            FOR i IN 1..LENGTH(memo_veld)
+            LOOP
+                r := SUBSTR(memo_veld,i,1);
+                IF (r NOT IN (' ','.') )
+                THEN
+                    c := DBMS_RANDOM.string('l',1);
+                    IF (r = UPPER(r))
+                    THEN
+                        c := UPPER(c);
+                    END IF;
+                ELSE
+                    c := r;
+                END IF;
+                memo := memo||c;
+            END LOOP;
+        END IF;
+        RETURN memo;
+    END memo;
+
 END ano;
 /
 

FAC/FAC_PACL.SRC

@@ -137,7 +137,7 @@ AS
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2
    AS
-      retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
+      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
    BEGIN
       BEGIN
         -- language vertaling, geen dialect. Geldt voor kolommen
@@ -165,7 +165,8 @@ AS
       RETURN VARCHAR2
    AS
       requiredlang fac_version.fac_version_lang%TYPE;
-      retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
+      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
+
    BEGIN
       -- Cache de databasetaal in een package-global
       IF fcltdblanguage IS NULL
@@ -198,7 +199,7 @@ AS
    FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2
    AS
-      retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
+      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
    BEGIN
       --  Voor lcl_noti_* maar verder generiek
       IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
@@ -296,7 +297,7 @@ AS
               OR fac_locale_xsl_tekst = '@'
               OR fac_locale_xsl_tekst = '@@')
              AND fac_locale_xsl_lang NOT IN
-                      ('EN', COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'));
+                      ('EN', 'NL');
 
       -- En allerlaatst: lege teksten zijn altijd valid
       UPDATE fac_locale_xsl flx1

FAC/FAC_SEQ.SRC

@@ -29,6 +29,7 @@ CREATE SEQUENCE fac_s_fac_tracking_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_menuitems_key         MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_menu_key              MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_nieuws_key            MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_nieuws_groep_key      MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_faq_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_locale_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_localeitems_key       MINVALUE 1;
@@ -37,6 +38,11 @@ CREATE SEQUENCE fac_s_fac_locale_xref_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmerkdomein_key     MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmwaarden_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_widget_key            MINVALUE 1;
+/* Alvast voor 2022.1
+CREATE SEQUENCE fac_s_fac_widget_page_key       MINVALUE 100;
+CREATE SEQUENCE fac_s_fac_widget_onpage_key     MINVALUE 1;
+*/
+CREATE SEQUENCE fac_s_fac_note_group_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
@@ -50,6 +56,7 @@ CREATE SEQUENCE fac_s_fac_bookmark_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_qvw_ticket_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_session_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_sequence_key          MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_bijlagen_key          MINVALUE 1;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_TAB.SRC

@@ -256,6 +256,9 @@ CREATE_TABLE(fac_usrrap, 0)
     fac_usrrap_key
         NUMBER(10)
         CONSTRAINT fac_k_fac_usrrap_key PRIMARY KEY,
+    fac_usrrap_code
+      VARCHAR2(60)
+      CONSTRAINT fac_u_fac_usrrap_code UNIQUE,
     fac_usrrap_omschrijving
         VARCHAR2(60),
     fac_usrrap_view_name
@@ -274,7 +277,7 @@ CREATE_TABLE(fac_usrrap, 0)
         DEFAULT 0,
     fac_usrrap_functie
         NUMBER(3)
-        DEFAULT 0,
+        DEFAULT 0 NOT NULL,
     fac_usrrap_info
         VARCHAR2(1000),
         CONSTRAINT fac_u_fac_usrrap UNIQUE(fac_usrrap_omschrijving),
@@ -308,6 +311,21 @@ CREATE_TABLE(fac_usrrap, 0)
         DEFAULT 0
         NOT NULL
         CONSTRAINT fac_c_fac_usrrap_graph CHECK (fac_usrrap_graph IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_sort
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_sort CHECK (fac_usrrap_sort IN (0, 1, 2)), -- 0=x-as (aflopend/oplopend bij de kolom gedefinieerd), 1=y-as oplopend, 2-y-as aflopend.
+    fac_usrrap_maxrows
+        NUMBER(10),
+    fac_usrrap_limiet0
+        NUMBER(8),
+    fac_usrrap_limiet1
+        NUMBER(8),
+    fac_usrrap_limiet2
+        NUMBER(8),
+    fac_usrrap_limiet3
+        NUMBER(8),
     fac_usrrap_cond
         NUMBER(1)
         DEFAULT 0
@@ -321,7 +339,11 @@ CREATE_TABLE(fac_usrrap, 0)
     fac_usrrap_graph_type
         NUMBER(1)
         DEFAULT 0
-        NOT NULL
+        NOT NULL,
+    fac_usrrap_volgnr
+        NUMBER(10),
+    fac_usrrap_parameters
+        VARCHAR2(200)
 // Note: this column is defined in PRS_TAB.SRC
 //  , prs_perslid_key
 //        NUMBER(10)
@@ -350,20 +372,27 @@ CREATE_TABLE(fac_usrrap_cols, 0)
     fac_usrrap_cols_filter /* See lcl_rap_filterLOV */
         VARCHAR2(3),
     fac_usrrap_cols_filterdefault /* Predefined filterval */
-        VARCHAR2(60),
+        VARCHAR2(500),
     fac_usrrap_cols_datatype
         VARCHAR2(16)
         NOT NULL,
+    fac_usrrap_cols_urllink
+        VARCHAR2(255),
     fac_usrrap_cols_visible /* V;Visible; I;Invisible; H;Hidden; S;Suppress repetitions */
         VARCHAR2(1)
         DEFAULT 'V'
         NOT NULL
-        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H', 'S')),
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H', 'S', 'U')),
     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')),
+    fac_usrrap_cols_sorting
+        NUMBER(1)
+        DEFAULT 3
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_sorting CHECK (fac_usrrap_cols_sorting IN (0,1,2,3)),
     CONSTRAINT fac_u_fac_usrrap_cols1 UNIQUE(fac_usrrap_key, fac_usrrap_cols_column_name)
 );
 
@@ -424,6 +453,10 @@ CREATE_TABLE(imp_schedule, 0)
 , imp_schedule_name     VARCHAR2(20)
 , imp_schedule_aanmaak  DATE DEFAULT SYSDATE
 , imp_schedule_done     DATE
+// Note: this column is defined in PRS_TAB.SRC
+//  prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT imp_r_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
 );
 
 CREATE_TABLE(fac_profiel, 0) (
@@ -515,23 +548,6 @@ CREATE_TABLE(fac_perfmon_sample, 0)
         VARCHAR2(60)
 );
 
-/*
- * Temporary location of xml, replaces all XXXX_XML tables
- */
-CREATE GLOBAL TEMPORARY TABLE fac_xml
-(
-    fac_session_id
-        VARCHAR2(32),
-    fac_xml_xml
-        LONG,
-    fac_xml_datum
-        DATE
-        DEFAULT SYSDATE
-        NOT NULL,
-    fac_xml_volgnr
-        NUMBER
-) ON COMMIT PRESERVE ROWS;
-
 /*
  * fac_srtnotificatie_mode: de (bitwise) waarde van de gewenste verspreiding, is de default voor fac_notificatie_status
  * fac_srtnotificatie_usermode: 0/null of 1 om aan te geven of de user deze notificatie zelf nog uit mag zetten
@@ -575,6 +591,7 @@ CREATE_TABLE(fac_srtnotificatie, 0)
 /*
  * fac_notificatie_status: de actuele verzendingsstatus. Bij de insert is deze gelijk aan fac_srtnotificatie_mode
  *   waarin bitwise is aangegeven hoe de notificatie verspreid moet worden:
+ * 32 = POST conform prs_bedrijfadres
  * 16 = POST naar prs_perslid_systeemadres
  *  8 = popup aan receiver prs_perslid_key
  *  4 = per sms aan receiver prs_perslid_mobiel
@@ -582,6 +599,7 @@ CREATE_TABLE(fac_srtnotificatie, 0)
  *  1 = in statusinfo window op portal van receiver prs_perslid_key
  * fac_notificatie_refkey: de key van een melding, reservering etc. Welke entiteit het betreft wordt bepaald
  *  door fac_srtnotificatie_xmlnode. Deze kan ook worden toegevoegd aan fac_srtnotificatie_url.
+ * optional prs_bedrijfadres_key references to the techparams for transmission for appropraite channels
  */
 CREATE_TABLE(fac_notificatie, 0)
 (
@@ -593,13 +611,20 @@ CREATE_TABLE(fac_notificatie, 0)
   fac_notificatie_status
     NUMBER(3)
     NOT_NULL(fac_notificatie_status, fac_c_fac_notificatie_status),
-// Note: this column is defined in PRS_TAB.SRC
+  fac_notificatie_queue
+    VARCHAR2(20)
+    DEFAULT 'DEFAULT' NOT NULL,
+// Note: these columns are defined in PRS_TAB.SRC
 //  prs_perslid_key_sender
 //    NUMBER(10)
 //    REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
 //  prs_perslid_key_receiver
 //    NUMBER(10)
 //    REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+//  prs_bedrijfadres_key
+//    NUMBER(10)
+//    CONSTRAINT prs_r_bedrijfadres_key1
+//    REFERENCES prs_bedrijfadres(prs_bedrijfadres_key) ON DELETE CASCADE,
   fac_notificatie_receiver_email
     VARCHAR2(255),
   fac_notificatie_receiver_phone
@@ -622,7 +647,13 @@ CREATE_TABLE(fac_notificatie, 0)
   fac_notificatie_systeemadres
     VARCHAR2(200),
   fac_notificatie_attachments   /* comma-separated filenames */
-    VARCHAR2(4000)
+    VARCHAR2(4000),
+  fac_notificatie_notbefore
+    DATE
+    DEFAULT SYSDATE NOT NULL,
+  fac_notificatie_failcount
+    NUMBER(10)
+    DEFAULT 0 NOT NULL
 );
 /* Welke notificatiejobs bestaan er
  * Vermelding hierin veroorzaakt periodieke notificaties
@@ -640,11 +671,19 @@ CREATE_TABLE(fac_notificatie_job, 0)
   fac_notificatie_job_mode
     NUMBER(3),
   fac_notificatie_job_flags
-    NUMBER(10) default 0, -- 1=view has xemail and xmobile, 2=use fac.notifytracking instead of fac.putnotification(srtprio)
+    NUMBER(10) default 0, -- see documentation &1=view has xemail and xmobile, &2=use fac.notifytracking instead of fac.putnotification(srtprio), &32=commando
   fac_notificatie_job_interval
      NUMBER(5),
+  fac_notificatie_job_seconds
+     NUMBER(5),
+  fac_notificatie_job_queue
+    VARCHAR2(20)
+    DEFAULT 'DEFAULT' NOT NULL,
   fac_notificatie_job_nextrun
+     DATE,
+  fac_notificatie_job_lastrun
      DATE
+, CONSTRAINT fac_c_notificatie_job1 CHECK((fac_notificatie_job_interval IS NOT NULL AND fac_notificatie_job_seconds IS NULL) OR (fac_notificatie_job_interval IS NULL AND fac_notificatie_job_seconds IS NOT NULL))
 );
 /* Welke importapps bestaan er */
 CREATE_TABLE(fac_import_app, 0)
@@ -670,8 +709,13 @@ CREATE_TABLE(fac_import_app, 0)
     NUMBER(10)
     NOT_NULL(fac_functie_key, fac_c_fac_functie_key2)
     CONSTRAINT fac_r_fac_functie_key REFERENCES fac_functie(fac_functie_key),
+  fac_import_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key4 REFERENCES fac_functie(fac_functie_key),
   fac_import_app_charset
     VARCHAR(32),
+  fac_import_app_delimiter
+    VARCHAR(2),
   fac_import_app_folder
     VARCHAR(320),
   fac_import_app_files
@@ -689,7 +733,8 @@ CREATE_TABLE(fac_import, 0)
     NUMBER(10)
     PRIMARY KEY,
   fac_import_app_key
-    NUMBER(10) REFERENCES fac_import_app(fac_import_app_key),
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_import_app_key REFERENCES fac_import_app(fac_import_app_key) ON DELETE CASCADE,
   fac_import_datum_gelezen
      DATE,
   fac_import_datum_verwerkt
@@ -733,8 +778,13 @@ CREATE_TABLE(fac_export_app, 0)
     NUMBER(10)
     NOT_NULL(fac_functie_key, fac_c_fac_functie_key3)
     CONSTRAINT fac_r_fac_functie_key3 REFERENCES fac_functie(fac_functie_key),
+  fac_export_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key5 REFERENCES fac_functie(fac_functie_key),
   fac_export_app_charset
     VARCHAR(32),
+  fac_export_app_delimiter
+    VARCHAR(2),
   fac_export_app_folder
     VARCHAR(320),
   fac_export_app_prefix
@@ -782,8 +832,14 @@ CREATE_TABLE(fac_activiteit, 0)
     DATE,
   fac_activiteit_xmlnode
     VARCHAR2(20),
-  fac_activiteit_interval
-    NUMBER(5),
+  fac_activiteit_eenheid  -- 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks, null=eenmalig. Niet beschikbaar: uurlijks(0)
+    NUMBER(1)
+    DEFAULT(1)
+    CONSTRAINT fac_c_fac_activiteit_eenheid CHECK (fac_activiteit_eenheid IN (1,2,3,4) OR fac_activiteit_eenheid IS NULL),
+  fac_activiteit_bits  -- details, afhankelijk van de mode (mag best null zijn)
+    NUMBER(4),
+  fac_activiteit_periode
+    NUMBER(6),
   fac_activiteit_aantal
     NUMBER(5),
   fac_activiteit_einddatum
@@ -825,7 +881,11 @@ CREATE_TABLE(fac_imp_catalogus, 0)
   bes_staffeltabel_key       NUMBER(10),
   ins_srtdeel_wijzigdagen    NUMBER(3),
   ins_srtdeel_annuleerdagen  NUMBER(3),
-  ins_srtdeel_opmerking      VARCHAR2(2000)
+  ins_srtdeel_opmerking      VARCHAR2(2000),
+  ins_srtdeel_sensortype     NUMBER(3),
+  ins_srtdeel_acadsymbol_dwgx NUMBER(16,3),
+  ins_srtdeel_acadsymbol_dwgy NUMBER(16,3),
+  ins_srtdeel_externnr        VARCHAR2(256)
 );
 
 // Facilitor Import (FIP) tabellen
@@ -886,6 +946,7 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_stdmelding_afmeldtext       NUMBER(1)
   , mld_stdmelding_doublecheck      NUMBER(4)
   , mld_stdmelding_slabewaken       NUMBER(1)
+  , mld_stdmelding_externnr         VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_mldafmtxt, 0)
@@ -903,7 +964,7 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
   , alg_gebouw_code                VARCHAR2(12)
   , alg_verdieping_volgnr          NUMBER(3,0)
   , alg_srtruimte_omschrijving     VARCHAR2(50)
-  , alg_ruimte_nr                  VARCHAR2(10)
+  , alg_ruimte_nr                  VARCHAR2(20)
   , alg_ruimte_omschrijving        VARCHAR2(30)
   , alg_ruimte_bruto_vloeropp      NUMBER(8,2)
   , reserveerbaar                  VARCHAR2(1)
@@ -930,6 +991,7 @@ CREATE_TABLE(fac_imp_organisatie, 0)
   ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (15)
   ,PRS_AFDELING_OMSCHRIJVING      VARCHAR2 (60 CHAR)
   ,PRS_KOSTENPLAATS_NR            VARCHAR2 (30)
+  ,PRS_AFDELING_EXTERNID          VARCHAR2 (256)
 );
 
 CREATE_TABLE(fac_imp_kpn, 0)
@@ -944,7 +1006,8 @@ CREATE_TABLE(fac_imp_kpn, 0)
    prs_kostenplaats_limiet          NUMBER (8),
    prs_kostenplaats_limietperiode   NUMBER (1),
    prs_kostenplaats_extern          NUMBER (1),
-   prs_kostenplaats_fiat            NUMBER (1)
+   prs_kostenplaats_fiat            NUMBER (1),
+   prs_kostenplaats_externnr        VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_perslid, 0)
@@ -952,7 +1015,7 @@ CREATE_TABLE(fac_imp_perslid, 0)
    alg_locatie_code                VARCHAR2(10)
   ,alg_gebouw_code                 VARCHAR2(12)
   ,alg_verdieping_volgnr           NUMBER(3,0)
-  ,alg_ruimte_nr                   VARCHAR2(10)
+  ,alg_ruimte_nr                   VARCHAR2(20)
   ,prs_werkplek_volgnr             NUMBER (3)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
   ,prs_afdeling_naam               VARCHAR2 (15)
@@ -997,6 +1060,8 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,fac_imp_file_index              NUMBER(10)       /* for internal processing */
   ,prs_perslid_key                 NUMBER(10)       /* for internal processing */
   ,prs_perslid_apikey              VARCHAR2(128)    /* for XD-syncing */
+  ,prs_perslid_visibility          NUMBER(3)
+  ,prs_perslid_externid            VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_ins, 0)
@@ -1014,32 +1079,36 @@ CREATE_TABLE(fac_imp_ins, 0)
   ,alg_locatie_code            VARCHAR2 (10)
   ,alg_gebouw_code             VARCHAR2 (12)
   ,alg_verdieping_volgnr       NUMBER (3)
-  ,alg_ruimte_nr               VARCHAR2 (10)
+  ,alg_ruimte_nr               VARCHAR2 (20)
   ,res_deel_alg_level          NUMBER (1)
   ,res_discipline_omschrijving VARCHAR2 (60)
   ,res_discipline_kostensoort  VARCHAR2 (60)
-  ,prs_perslid_matchcode       VARCHAR2(255)
-  ,prs_perslid_matchwaarde     VARCHAR2(255)
-  ,ins_kenmerkwaarde1          VARCHAR2(255)
-  ,ins_kenmerkwaarde2          VARCHAR2(255)
-  ,ins_kenmerkwaarde3          VARCHAR2(255)
-  ,ins_kenmerkwaarde4          VARCHAR2(255)
-  ,ins_kenmerkwaarde5          VARCHAR2(255)
-  ,ins_kenmerkwaarde6          VARCHAR2 (255)
-  ,ins_kenmerkwaarde7          VARCHAR2 (255)
-  ,ins_kenmerkwaarde8          VARCHAR2 (255)
-  ,ins_kenmerkwaarde9          VARCHAR2 (255)
-  ,ins_kenmerkwaarde10         VARCHAR2 (255)
-  ,ins_kenmerkwaarde11         VARCHAR2 (255)
-  ,ins_kenmerkwaarde12         VARCHAR2 (255)
-  ,ins_kenmerkwaarde13         VARCHAR2 (255)
-  ,ins_kenmerkwaarde14         VARCHAR2 (255)
-  ,ins_kenmerkwaarde15         VARCHAR2 (255)
-  ,ins_kenmerkwaarde16         VARCHAR2 (255)
-  ,ins_kenmerkwaarde17         VARCHAR2 (255)
-  ,ins_kenmerkwaarde18         VARCHAR2 (255)
-  ,ins_kenmerkwaarde19         VARCHAR2 (255)
-  ,ins_kenmerkwaarde20         VARCHAR2 (255)
+  ,prs_perslid_matchcode       VARCHAR2 (4000)
+  ,prs_perslid_matchwaarde     VARCHAR2 (4000)
+  ,ins_kenmerkwaarde1          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde2          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde3          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde4          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde5          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde6          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde7          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde8          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde9          VARCHAR2 (4000)
+  ,ins_kenmerkwaarde10         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde11         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde12         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde13         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde14         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde15         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde16         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde17         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde18         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde19         VARCHAR2 (4000)
+  ,ins_kenmerkwaarde20         VARCHAR2 (4000)
+  ,ins_deel_aanmaak            DATE
+  ,ins_deel_vervaldatum        DATE
+  ,ins_deel_aantal             NUMBER(8,2) DEFAULT(0) NOT NULL
+  ,ins_deel_externnr           VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_sle, 0)
@@ -1049,7 +1118,7 @@ CREATE_TABLE(fac_imp_sle, 0)
   ,alg_locatie_code            VARCHAR2 (10) -- stam + cilinder
   ,alg_gebouw_code             VARCHAR2 (12) -- stam
   ,alg_verdieping_code         VARCHAR2 (10) -- stam
-  ,alg_ruimte_nr               VARCHAR2 (10) -- stam
+  ,alg_ruimte_nr               VARCHAR2 (20) -- stam
   ,cil_gebouw_code             VARCHAR2 (12)
   ,cil_verdieping_code         VARCHAR2 (10)
   ,cil_ruimte_nr               VARCHAR2 (10)
@@ -1101,7 +1170,8 @@ CREATE_TABLE(fac_imp_res_artikel_sync, 0)
   res_artikel_volgnummer       NUMBER(3),
   res_artikel_ingangsdatum     DATE,
   res_artikel_vervaldatum      DATE,
-  res_artikel_minimum          NUMBER(3)
+  res_artikel_minimum          NUMBER(3),
+  res_artikel_externnr         VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_fac_groep, 0)
@@ -1174,7 +1244,9 @@ CREATE_TABLE(fac_imp_bedrijfadres, 0)
    prs_bedrijfadres_ext           VARCHAR2 (10),
    prs_bedrijfadres_attachfile    VARCHAR2 (256),
    prs_bedrijfadres_username      VARCHAR2 (32),
-   prs_bedrijfadres_password      VARCHAR2 (32)
+   prs_bedrijfadres_password      VARCHAR2 (320),
+   prs_bedrijfadres_plugin        VARCHAR2 (320),
+   prs_bedrijfadres_plugindata    VARCHAR2 (4000)
 );
 
 
@@ -1238,16 +1310,16 @@ 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(4),
-  fac_version_minor
-    NUMBER(3),
-  fac_version_patch
-    VARCHAR(30),
   fac_version_schema
     VARCHAR(30),
+  fac_version_upgrading
+    VARCHAR(64),
+  fac_version_upgrading_date
+    DATE,
   fac_version_cust
     VARCHAR(4),
+  fac_version_group
+    VARCHAR2(4),
   fac_version_custnr
     NUMBER(3),
   fac_version_otap
@@ -1255,7 +1327,10 @@ CREATE_TABLE (fac_version, 0) (
   fac_version_lang
     VARCHAR2(3) NOT NULL,
   fac_version_date
-    DATE
+    DATE,
+  fac_version_putorders_date DATE,
+  fac_version_scheduler_date DATE,
+  fac_version_notify_date DATE
 );
 
 CREATE_TABLE(fac_qlikview, 0)
@@ -1332,11 +1407,13 @@ CREATE_TABLE(fac_menu, 0)
    fac_menu_volgnr      NUMBER(5),
    fac_menuitems_key    NUMBER(10) CONSTRAINT fac_r_menu1 REFERENCES fac_menuitems (fac_menuitems_key) ON DELETE CASCADE,
    fac_menu_info        VARCHAR2 (1024 CHAR),
+   fac_menu_message     VARCHAR2 (1024 CHAR),
    fac_menu_altlabel    VARCHAR2 (30 CHAR),
    fac_menu_alturl      VARCHAR2 (255 CHAR),
    fac_menu_altgroep    NUMBER(1),
    fac_functie_key      NUMBER(10) CONSTRAINT fac_r_menu2 REFERENCES fac_functie (fac_functie_key),
    fac_menu_image       VARCHAR2 (255 CHAR),
+   fac_menu_color       VARCHAR2 (60 CHAR),
 // Note: this column is defined in INS_TAB.SRC
 //   ins_discipline_key   NUMBER(10) CONSTRAINT fac_r_menu3 REFERENCES ins_tab_discipline (ins_discipline_key),
 //   ins_srtdiscipline_key NUMBER(10) CONSTRAINT fac_r_menu4 REFERENCES ins_srtdiscipline (ins_srtdiscipline_key),
@@ -1350,6 +1427,20 @@ CREATE_TABLE(fac_menu, 0)
    CONSTRAINT fac_c_menu1 CHECK (fac_menuitems_key IS NULL OR fac_menu_alturl IS NULL)
 );
 
+CREATE_TABLE(fac_nieuws_groep, 0)
+(
+    fac_nieuws_groep_key
+        NUMBER(10)
+        CONSTRAINT fac_k_nieuws_groep_key PRIMARY KEY,
+    fac_nieuws_groep_omschrijving
+        VARCHAR2(30)
+        CONSTRAINT fac_c_nieuws_groep_omschr CHECK(fac_nieuws_groep_omschrijving IS NOT NULL),
+    fac_nieuws_groep_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT fac_c_niews_groep_aanmaak NOT NULL
+);
+
 CREATE_TABLE(fac_nieuws, 0)
 (
    fac_nieuws_key            NUMBER(10) PRIMARY KEY,
@@ -1360,7 +1451,10 @@ CREATE_TABLE(fac_nieuws, 0)
    fac_nieuws_van            DATE,
    fac_nieuws_tot            DATE,
    fac_nieuws_aanmaak        DATE DEFAULT SYSDATE,
-   fac_nieuws_lang           VARCHAR2(3)
+   fac_nieuws_lang           VARCHAR2(3),
+   fac_groep_key             NUMBER(10) REFERENCES fac_groep(fac_groep_key), /* voor welke autorisatiegroep */
+   fac_nieuws_show           NUMBER(3) DEFAULT 3 NOT NULL, /* &1=portal, &2=blogpagina */
+   fac_nieuws_groep_key      NUMBER(10)REFERENCES fac_nieuws_groep(fac_nieuws_groep_key)
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
 );
@@ -1376,7 +1470,10 @@ CREATE_TABLE(fac_faq, 0)
    fac_faq_rank NUMBER,
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
-   fac_faq_datum DATE,
+   fac_functie_key NUMBER(10) REFERENCES fac_functie(fac_functie_key),
+   fac_faq_datum DATE, // vanaf
+   fac_faq_wijzigdatum DATE,  // actualiteit
+   fac_faq_vervaldatum DATE,  // geldigheid
    fac_faq_lang VARCHAR2(3),
    fac_faq_hint VARCHAR2(1000),
    fac_faq_displaymode NUMBER(3) DEFAULT 0  NOT NULL -- 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
@@ -1404,7 +1501,7 @@ CREATE_TABLE(fac_locale, 0) /* Alle feitelijk vertaalde teksten */
    fac_locale_kolomnaam VARCHAR2(30 CHAR),
    fac_locale_kolomkeyval NUMBER(10),
    fac_locale_lang VARCHAR2(3) NOT NULL,
-   fac_locale_tekst VARCHAR2(300 CHAR),
+   fac_locale_tekst VARCHAR2(4000 CHAR),
    CONSTRAINT fac_u_fac_locale UNIQUE(fac_locale_dialect_key, fac_locale_lang, fac_localeitems_key, fac_locale_kolomnaam, fac_locale_kolomkeyval),
    CONSTRAINT fac_c_fac_locale1 CHECK((fac_localeitems_key IS NOT NULL AND fac_locale_dialect_key IS NOT NULL AND fac_locale_kolomnaam IS NULL AND fac_locale_kolomkeyval IS NULL)
                                    OR (fac_localeitems_key IS NULL AND fac_locale_dialect_key IS NULL AND fac_locale_kolomnaam IS NOT NULL AND fac_locale_kolomkeyval IS NOT NULL))
@@ -1415,8 +1512,8 @@ CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
    fac_locale_xsl_label     VARCHAR2(60 CHAR),
    fac_locale_xsl_module    VARCHAR2(3 CHAR),
    fac_locale_xsl_lang      VARCHAR2(3) NOT NULL,
-   fac_locale_xsl_tekst     VARCHAR2(2000 CHAR),
-   fac_locale_xsl_cust      VARCHAR2(2000),
+   fac_locale_xsl_tekst     VARCHAR2(4000 CHAR),
+   fac_locale_xsl_cust      VARCHAR2(4000),
    fac_locale_xsl_isvalid   NUMBER(1) DEFAULT 1 NOT NULL,
    CONSTRAINT fac_u_fac_locale_xsl UNIQUE(fac_locale_xsl_label, fac_locale_xsl_lang, fac_locale_xsl_module)
 );
@@ -1451,30 +1548,43 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
    kostprijs            VARCHAR2 (15),      -- stuksprijs (info)
    btw                  VARCHAR2 (2),       -- code: zie fin_btw_tabelwaarde_code
    debiteurnr           VARCHAR2 (30),
-   locatie              VARCHAR2 (10),      -- referentie
+   locatie              VARCHAR2 (30),      -- referentie
    afleverdatum         VARCHAR2 (10),       -- info
    btw_bedrag           VARCHAR2 (15),      -- regeltotaal btw
    docid                VARCHAR2 (255),     -- bestandsnaam
    omschrijving         VARCHAR2 (250),      -- regelomschrijving
    opmerking            VARCHAR2(250),
    btw_verlegd          VARCHAR2(3),
-   kenmerk1             VARCHAR2(250),
-   kenmerk2             VARCHAR2(250),
-   kenmerk3             VARCHAR2(250),
-   kenmerk4             VARCHAR2(250),
-   kenmerk5             VARCHAR2(250),
-   kenmerk6             VARCHAR2(250),
-   kenmerk7             VARCHAR2(250),
-   kenmerk8             VARCHAR2(250),
-   kenmerk9             VARCHAR2(250),
-   kenmerk10            VARCHAR2(250),
-   kenmerk11            VARCHAR2(250),
-   kenmerk12            VARCHAR2(250),
+   kenmerk1             VARCHAR2(255),
+   kenmerk2             VARCHAR2(255),
+   kenmerk3             VARCHAR2(255),
+   kenmerk4             VARCHAR2(255),
+   kenmerk5             VARCHAR2(255),
+   kenmerk6             VARCHAR2(255),
+   kenmerk7             VARCHAR2(255),
+   kenmerk8             VARCHAR2(255),
+   kenmerk9             VARCHAR2(255),
+   kenmerk10            VARCHAR2(255),
+   kenmerk11            VARCHAR2(255),
+   kenmerk12            VARCHAR2(255),
+   kenmerk13            VARCHAR2(255),
+   kenmerk14            VARCHAR2(255),
+   kenmerk15            VARCHAR2(255),
+   kenmerk16            VARCHAR2(255),
+   kenmerk17            VARCHAR2(255),
+   kenmerk18            VARCHAR2(255),
+   kenmerk19            VARCHAR2(255),
+   kenmerk20            VARCHAR2(255),
    fac_import_key       NUMBER(10) CONSTRAINT fac_r_fac_imp_factuur1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
    fac_imp_file_index   NUMBER(10),
    fin_factuur_key      NUMBER(10),           -- geen importkolom, temp
    fin_factuurregel_key NUMBER(10),           -- geen importkolom, temp
-   boekmaand            VARCHAR2(7)
+   boekmaand            VARCHAR2(7),
+   artikelcode          VARCHAR2(30),
+   factuurregelaantal   NUMBER(8,2),
+   eenheid              VARCHAR2(30),
+   opdrachtregelid      NUMBER(10),
+   externnr             VARCHAR2(256)
 );
 
 CREATE_TABLE(fac_imp_menu, 0)
@@ -1522,7 +1632,13 @@ CREATE_TABLE(fac_imp_flex, 0)
    kenmerk_uniek                VARCHAR2(255),
    kenmerk_hint                 VARCHAR2(255),
    kenmerk_regexp               VARCHAR2(255),
+   kenmerk_show_expr            VARCHAR2(4000),
+   kenmerk_omschr               VARCHAR2(255),
    kenmerk_verwijder            VARCHAR2(255),
+   kenmerk_extra_1              VARCHAR2(255),
+   kenmerk_extra_2              VARCHAR2(255),
+   kenmerk_extra_3              VARCHAR2(255),
+   kenmerk_extra_4              VARCHAR2(255),
    res_srtactiviteit            VARCHAR2(255),
    res_activiteit               VARCHAR2(255),
    mld_srtdiscipline            VARCHAR2(255),
@@ -1535,7 +1651,8 @@ CREATE_TABLE(fac_imp_flex, 0)
    cnt_discipline               VARCHAR2(255),
    ins_discipline               VARCHAR2(255),
    ins_srtgroep                 VARCHAR2(255),
-   ins_srtdeel                  VARCHAR2(255)
+   ins_srtdeel                  VARCHAR2(255),
+   kenmerk_wissen               NUMBER(1)
 );
 
 CREATE_TABLE (fac_kenmwaarden, 0)
@@ -1557,9 +1674,15 @@ CREATE_TABLE (fac_kenmwaarden, 0)
         NUMBER(10),
     fac_kenmwaarden_waarde
         VARCHAR2(4000),
+    fac_kenmwaarden_exprwaarde
+        VARCHAR2 (4000),
     fac_kenmwaarden_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
+        CONSTRAINT fac_c_fac_kenmwaarden_kenmtype CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
+    fac_kenmwaarden_kenmerklen
+        NUMBER(4),
+    fac_kenmwaarden_kenmerkdec
+        NUMBER(3),
     fac_kenmwaarden_isexpr
         VARCHAR2(1)
         DEFAULT 0
@@ -1632,6 +1755,11 @@ CREATE_TABLE(fac_widget, 0)
     fac_widget_key
         NUMBER(10)
         CONSTRAINT fac_k_fac_widget_key PRIMARY KEY,
+/* Alvast voor 2022.1
+    fac_widget_naam                                      -- Widgetnaam (mn voor bilbiotheekwidgets)
+        VARCHAR2(60)
+        NOT NULL,
+*/
     fac_widget_groep                                     -- Pagina(naam) of groep(naam) van bijelkaar horende widgets
         VARCHAR2(60),
     fac_widget_volgnr                                    -- Onderlinge volgorde van de widgets op 1 pagina
@@ -1651,11 +1779,59 @@ CREATE_TABLE(fac_widget, 0)
         DEFAULT SYSDATE,
     fac_widget_refreshtime                               -- Refreshtijd van widget in seconden, NULL is geen refresh
         NUMBER(5),
-    FAC_FUNCTIE_KEY                                      -- A la menuitem, indien autorisatie dan tonen
+    fac_functie_key                                      -- A la menuitem, indien autorisatie dan tonen
         NUMBER(10)
         CONSTRAINT fac_r_fac_widget_functie_key REFERENCES fac_functie(fac_functie_key)
 );
 
+/* Alvast voor 2022.1
+CREATE_TABLE(fac_widget_page, 0)
+(
+    fac_widget_page_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_widget_page_key PRIMARY KEY,
+    fac_widget_page_name                                  -- Paginanaam
+        VARCHAR2(60),
+// Note: this column is defined in PRS_TAB.SRC
+//  , prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT fac_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+    fac_widget_page_aanmaak                               -- Aanmaak datum
+        DATE
+        DEFAULT SYSDATE
+);
+
+CREATE_TABLE(fac_widget_onpage, 0)                        -- Koppeltabel voor fac_widget en fac_widget_page
+(
+    fac_widget_onpage_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_widget_onpage_key PRIMARY KEY,
+    fac_widget_page_key
+        NUMBER(10)
+        CONSTRAINT fac_r_fac_widget_page_key REFERENCES fac_widget_page(fac_widget_page_key) ON DELETE CASCADE,
+    fac_widget_key
+        NUMBER(10)
+        CONSTRAINT fac_r_fac_widget_key REFERENCES fac_widget(fac_widget_key) ON DELETE CASCADE,
+    fac_widget_onpage_order                                -- volgorde
+        NUMBER(5),
+    fac_widget_onpage_height                               -- Optioneel afwjkend van default
+        NUMBER(3),
+    fac_widget_onpage_width                                -- Optioneel afwijkend van default
+        NUMBER(3)
+);
+*/
+
+CREATE_TABLE(fac_note_group, 0)
+(
+   fac_note_group_key             NUMBER (10)    PRIMARY KEY,
+   fac_note_group_xmlnode         VARCHAR2(60)   NOT_NULL(fac_note_group_xmlnode, fac_c_fac_note_group_xmlnd),
+   fac_note_group_volgnr          NUMBER(3),
+   fac_note_group_naam            VARCHAR2(60)   NOT_NULL(fac_note_group_naam, fac_c_fac_note_group_naam),
+   fac_note_group_omschrijving    VARCHAR2(4000),
+   fac_note_group_vervaldatum     DATE,
+   CONSTRAINT fac_u_fac_note_group_naam UNIQUE (fac_note_group_xmlnode,
+                                                fac_note_group_naam)
+);
 /* deze tabel heeft geen numerieke, automatische key maar een GUID-APIKEY achtige key van 32 posities */
 CREATE_TABLE(fac_bookmark, 0)
 (
@@ -1691,7 +1867,6 @@ CREATE_TABLE(fac_bookmark, 0)
 //   prs_perslid_key_auth      NUMBER(10) REFERENCES prs_perslid(prs_perslid_key)
 );
 
---FSN#21091
 CREATE_TABLE(fac_email_setting, 0)
 (
    fac_email_setting_key
@@ -1699,11 +1874,16 @@ CREATE_TABLE(fac_email_setting, 0)
         CONSTRAINT fac_k_fac_email_setting_key PRIMARY KEY,
    fac_email_setting_user VARCHAR2 (255) NOT NULL,
    fac_email_setting_from VARCHAR2 (255),
-   fac_email_setting_frommode NUMBER(3) DEFAULT 0 NOT NULL, -- 0=MAIL FROM SMTP-command, 1=e-mail MIME header
+   fac_email_setting_frommode NUMBER(3) DEFAULT 0 NOT NULL, -- 0=MAIL FROM SMTP-command, 1=e-mail MIME header, 2=SRS-decode
    fac_email_setting_action VARCHAR2 (255),
    fac_email_setting_aanmaak DATE DEFAULT SYSDATE,
    fac_email_setting_expire DATE,
-   fac_email_setting_attachpath VARCHAR2 (255)
+   fac_email_setting_attachpath VARCHAR2 (255),
+   fac_email_setting_attachext VARCHAR2(255),
+   fac_email_setting_loglevel NUMBER(3) DEFAULT 0 NOT NULL,
+   fac_email_setting_opmerking VARCHAR2 (320)
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key_auth      NUMBER(10) REFERENCES prs_perslid(prs_perslid_key)
 );
 
 -- Resultaattabel te gebruiken als communication area tussen afzonderlijke systemen
@@ -1713,7 +1893,7 @@ CREATE_TABLE(fac_result, 0)
 (
   fac_result_sessionid  VARCHAR2(32) NOT NULL,
   fac_result_naam       VARCHAR2(30) NOT NULL,
-  fac_result_waarde     VARCHAR2(1000),
+  fac_result_waarde     VARCHAR2(4000),
   fac_result_aanmaak    DATE DEFAULT SYSDATE
 );
 
@@ -1752,7 +1932,8 @@ CREATE_TABLE(fac_imp_faq, 0) (
    fac_faq_url                  VARCHAR2 (250),
    fac_faq_datum                DATE,
    fac_faq_lang                 VARCHAR2 (3),
-   fac_faq_hint                 VARCHAR2 (1000)
+   fac_faq_hint                 VARCHAR2 (1000),
+   fac_faq_vervaldatum          DATE
 );
 
 -- FSN#25952: Generieke contractenimport
@@ -1887,10 +2068,11 @@ CREATE_TABLE(faq_kenmerk,0)
    faq_kenmerk_upper        VARCHAR2(50),
    faq_kenmerk_hint         VARCHAR2(255),
    faq_kenmerk_default      VARCHAR2(4000),
+   faq_kenmerk_show_expr    VARCHAR2(4000),
    faq_kenmerk_dimensie     VARCHAR2(10),
    faq_kenmerk_kenmerktype  VARCHAR2(1)
                             CONSTRAINT faq_c_faq_kenmerk_type1
-                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
+                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
    faq_kenmerk_systeem      NUMBER(2),
    faq_kenmerk_toonbaar     NUMBER(1),
    faq_kenmerk_uniek        NUMBER(1),
@@ -1964,4 +2146,31 @@ CREATE_TABLE(fac_sequence, 0)
    fac_sequence_expire   DATE
 );
 
+CREATE_TABLE(fac_bijlagen, 0)
+(
+   fac_bijlagen_key             NUMBER(10)
+                                CONSTRAINT fac_k_fac_bijlagen_key PRIMARY KEY,
+   fac_bijlagen_module          VARCHAR2(3)
+                                NOT NULL,
+   fac_bijlagen_refkey          NUMBER(10) NOT NULL,
+   fac_bijlagen_kenmerk_key     NUMBER(10) NOT NULL,
+   fac_bijlagen_disk_directory  VARCHAR2(200)
+                                NOT NULL,
+   fac_bijlagen_disk_filename   VARCHAR2(200),
+   fac_bijlagen_filename        VARCHAR2(200)
+                                NOT NULL,
+   fac_bijlagen_description     VARCHAR2(500),
+   fac_bijlagen_digest          VARCHAR2(64),
+   fac_bijlagen_content_type    VARCHAR2(50),
+   fac_bijlagen_file_size       NUMBER(12)
+                                NOT NULL,
+   fac_bijlagen_root_key        NUMBER(10)
+                                NOT NULL,
+   fac_bijlagen_aanmaak         DATE
+                                DEFAULT SYSDATE,
+   fac_bijlagen_verwijder       DATE,
+   CONSTRAINT fac_r_bijlagen_root_key
+      FOREIGN KEY (fac_bijlagen_root_key) REFERENCES fac_bijlagen(fac_bijlagen_key)
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -190,6 +190,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_version_B_IU)
+BEFORE INSERT OR UPDATE ON fac_version
+FOR EACH ROW
+BEGIN
+    :new.fac_version_cust := UPPER(:new.fac_version_cust);
+    :new.fac_version_group := UPPER(:new.fac_version_group);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_message_B_IU)
 BEFORE INSERT OR UPDATE ON fac_message
 FOR EACH ROW
@@ -375,14 +384,18 @@ BEGIN
    END IF;
    -- Always clear the notify_to_statinfo bit, even when no :new.prs_perslid_key_receiver
    :NEW.fac_notificatie_status := BITAND (:NEW.fac_notificatie_status, 255 - 1);
+   :NEW.fac_notificatie_queue:=UPPER(:NEW.fac_notificatie_queue);
 END;
 /
 
 CREATE_TRIGGER(fac_t_fac_notificatie_A_U)
 AFTER UPDATE ON fac_notificatie
 BEGIN
-  -- Ruim alle totaal verwerkte notificaties op.
-  DELETE FROM fac_notificatie WHERE fac_notificatie_status=0 AND fac_notificatie_systeemadres IS NULL;
+   -- Ruim alle totaal verwerkte notificaties op.
+   DELETE FROM fac_notificatie
+    WHERE fac_notificatie_status IN (0,16)
+      AND fac_notificatie_systeemadres IS NULL
+      AND prs_bedrijfadres_key IS NULL;
 END;
 /
 
@@ -392,6 +405,7 @@ FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_notificatie_job_key, fac_s_fac_notificatie_job_key);
     :new.fac_notificatie_job_view:=UPPER(:new.fac_notificatie_job_view);
+    :new.fac_notificatie_job_queue:=UPPER(:new.fac_notificatie_job_queue);
 END;
 /
 
@@ -436,6 +450,8 @@ BEGIN
       scode   fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
       smode   fac_srtnotificatie.fac_srtnotificatie_mode%TYPE;
       sappl   imp_log.imp_log_applicatie%TYPE;
+      pkey    prs_perslid.prs_perslid_key%TYPE;
+      l_naam_friendly  prs_v_perslid_fullnames_all.prs_perslid_naam_friendly%TYPE;
    BEGIN
       IF :NEW.imp_log_status = 'F'
       THEN
@@ -469,7 +485,22 @@ BEGIN
                AND fi.fac_import_key = :NEW.fac_import_key;
          END IF;
 
-         fac.putsystemnotification (sappl||': '||:NEW.imp_log_omschrijving, smode);
+         l_naam_friendly := ''; -- 'User unknown'
+         pkey := fac.safe_to_number(sys_context('USERENV', 'CLIENT_IDENTIFIER'));
+         IF pkey > 0 THEN
+             BEGIN
+                 SELECT prs_perslid_naam_friendly
+                   INTO l_naam_friendly
+                   FROM prs_v_perslid_fullnames_all
+                  WHERE prs_perslid_key = pkey;
+                 l_naam_friendly := ' (' || l_naam_friendly || ', key ' || pkey || ')';
+             EXCEPTION
+                 WHEN NO_DATA_FOUND  -- for putorders a.o. this is unknown
+                 THEN l_naam_friendly := '??Perslid ' || pkey || ' not found ??';
+             END;
+         END IF;
+
+         fac.putsystemnotification (sappl||': '||:NEW.imp_log_omschrijving || ' ' || l_naam_friendly, smode);
       END IF;
    END;
 END;
@@ -504,6 +535,7 @@ BEGIN
 
     :new.fac_setting_module := UPPER(:new.fac_setting_module);
     :new.fac_setting_name := LOWER(:new.fac_setting_name);
+    :new.prs_perslid_key := sys_context('USERENV', 'CLIENT_IDENTIFIER');
     -- Het kan geen kwaad om wijzigingen te tracken
     IF :new.fac_setting_datum <> :old.fac_setting_datum
     THEN
@@ -546,7 +578,7 @@ BEGIN
     -- bedoeld om te onderdrukken, maar moeten we wel weer verwijderen
     :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
     -- Moet ik nou nog iets doen om NULL te maken als dit alleen de # was?
-    -- En nu dus niet tracken
+    -- En nu dus niet notificeren
   ELSE
     fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey);
   END IF;
@@ -568,6 +600,13 @@ BEGIN
   UPDATE_PRIMARY_KEY(fac_menu_key, fac_s_fac_menu_key);
 END;
 /
+CREATE_TRIGGER(fac_t_fac_nieuws_groep_b_iu)
+BEFORE INSERT OR UPDATE ON fac_nieuws_groep
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_nieuws_groep_key, fac_s_fac_nieuws_groep_key);
+END;
+/
 CREATE_TRIGGER(fac_t_fac_nieuws__b_iu)
 BEFORE INSERT OR UPDATE ON fac_nieuws
 FOR EACH ROW
@@ -580,6 +619,7 @@ BEFORE INSERT OR UPDATE ON fac_faq
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(fac_faq_key, fac_s_fac_faq_key);
+  :new.fac_faq_wijzigdatum := SYSDATE;
 END;
 /
 CREATE_TRIGGER(fac_t_fac_locale_b_iu)
@@ -697,6 +737,24 @@ BEGIN
 END;
 /
 
+/* Alvast voor 2022.1
+CREATE_TRIGGER(fac_t_fac_widget_page_B_I)
+BEFORE INSERT ON fac_widget_page
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_widget_page_key, fac_s_fac_widget_page_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_widget_onpage_B_I)
+BEFORE INSERT ON fac_widget_onpage
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_widget_onpage_key, fac_s_fac_widget_onpage_key);
+END;
+/
+*/
+
 CREATE_TRIGGER(fac_t_fac_code2label_B_IU)
 BEFORE INSERT OR UPDATE ON fac_code2label
 FOR EACH ROW
@@ -971,4 +1029,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_bijlagen_B_I)
+BEFORE INSERT ON fac_bijlagen
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_bijlagen_key, fac_s_fac_bijlagen_key);
+    IF :new.fac_bijlagen_root_key IS NULL THEN
+        :new.fac_bijlagen_root_key := :new.fac_bijlagen_key;
+    END IF;
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/parse_fac_lclmld.js

@@ -1,62 +0,0 @@
-// 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

@@ -3,7 +3,7 @@
 ##
 ##    Project: FACILITOR
 ##
-##             (c) 1995-2018 Facilitor B.V.
+##             (c) 1996-2019 Aareon Nederland B.V.
 ##
 ##   Auteur:    Ir. P.G. Feij
 ##   $Revision$
@@ -25,7 +25,7 @@
 ##        CL.EXE
 ##             Microsoft (R) C Optimizing Compiler Version 6.00A
 ##             -for precompiling only-
-##        WRAP.EXE (from 10.2.x) for Oracle, renamed to WRAP10.EXE
+##        WRAP.EXE (from 10.2.x or better) for Oracle
 ##
 ##        SED.EXE
 ##             GNU sed version 4.2
@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=33
-NEXTVERSION=34
+CURRENTVERSION=39
+NEXTVERSION=40g
 FILEVERSION=
-NEXTCAREVERSION=34
+NEXTCAREVERSION=37
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -86,7 +86,7 @@ EXE=$(PROJEXE)
 ### TOOL DEFINES (gets info from OS-environment)  ###
 
 PRECOMP=$(MAKTOOLS)\CL
-WRAP1=$(MAKTOOLS)\WRAP10.EXE
+WRAP1=$(MAKTOOLS)\WRAP.EXE
 PRECOMP_OPTIONS=/EP /D_VER=$(CURRENTUPDATE)$(FILEVERSION) /D_DBV=$(NEXTVERSION)$(FILEVERSION)
 CLEANUP1=$(MAKTOOLS)\sedclean.bat
 
@@ -156,6 +156,10 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\cad\cad_tab.src   \
       $(MSRC)\cad\cad_tri.src   \
       $(MSRC)\cad\cad_vie.src   \
+      $(MSRC)\cnd\cnd_tab.src   \
+      $(MSRC)\cnd\cnd_pac.src   \
+      $(MSRC)\cnd\cnd_tri.src   \
+      $(MSRC)\cnd\cnd_vie.src   \
       $(MSRC)\cnt\cnt_ind.src   \
       $(MSRC)\cnt\cnt_ini.src   \
       $(MSRC)\cnt\cnt_pac.src   \
@@ -173,10 +177,11 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\fac\fac_ind.src   \
       $(MSRC)\fac\fac_ini.src   \
       $(MSRC)\fac\fac_lcl.src   \
-##       $(MSRC)\fac\_fac_lclmdl.src \
+      $(MSRC)\fac\fac_lclhints.src \
       $(MSRC)\fac\fac_set.src   \
       $(MSRC)\fac\fac_pac.src   \
       $(MSRC)\fac\fac_paca.src  \
+      $(MSRC)\fac\fac_pacano.src   \
       $(MSRC)\fac\fac_pacx.src  \
       $(MSRC)\fac\fac_pacf.src  \
       $(MSRC)\fac\fac_pacl.src  \
@@ -263,8 +268,8 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
  $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$(TEMP)\$(*B)_.sql
  $(CLEANUP1) $(TEMP)\$(*B)_.sql
  COPY $(TEMP)\$(*B)_.sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION)_.SQL
- $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
- COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL
+## $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+## COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL
 
 $(MSRC)\fac\_fac_lclmdl.src: \
     $(MSRC)\fac\fac_lclmdl.csv

FCLT.SRC

@@ -1,11 +1,8 @@
--- [FCLT*.SQL]
---
--- Script to initialise a FACILITOR database schema in Oracle
--- Copyright 1996-2018 Facilitor bv, the Netherlands.
--- All rights reserved!
 /*
  * $Revision$
  * $Id$
+ *
+ * Script to initialise a FACILITOR database schema in Oracle
  */
 #define FCLT_CREATE
 
@@ -41,13 +38,16 @@ BEGIN
               || '=================================================================' || CHR(10);
         RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
     END IF;
+    IF USER = 'SYS' OR USER = 'SYSTEM' THEN
+        RAISE_APPLICATION_ERROR(-20000, 'Cannot create Facilitor database on user ' || USER);
+    END IF;
 END;
 /
 WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2018 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2021 Aareon Nederland B.V. ALL RIGHTS RESERVED.
 PROMPT
 PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
 PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
@@ -86,6 +86,7 @@ SET ECHO ON
 #include "kpi\kpi_tab.src"
 #include "ctr\ctr_tab.src"
 #include "aut\aut_tab.src"
+#include "cnd\cnd_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
@@ -157,10 +158,15 @@ COMMIT;
 ///////////////////////////// finally compile all views, triggers etc acc to the latest state ///////
 BEGIN DBMS_UTILITY.COMPILE_SCHEMA(USER, FALSE); END;
 /
-BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING, 'NL'); END;
+BEGIN fac.registerversion(_DBV_STRING, 'NL'); END;
 /
 REGISTERONCE('$Id$')
 
+INSERT INTO adm_tracking
+    (adm_tracking_name, adm_tracking_revision)
+VALUES
+    ('Database created', 'DB' || _DBV_STRING);
+
 COMMIT;
 /* Report invalid objects, if any */
 SET ECHO OFF
@@ -176,6 +182,6 @@ PROMPT ======================================================================
 SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
 PROMPT
 PROMPT Your schema initialisation is ready. Please check the logfile for errors.
-PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
-PROMPT Copyright (c) 1996-2018 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 710
+PROMPT Copyright (c) 1996-2021 Aareon Nederland B.V. All rights reserved.
 SPOOL OFF

FIN/FIN_INI.SRC

@@ -8,6 +8,7 @@ _FAC_MODULE('FIN','lcl_module_FIN')
 DEF_STATUS('factuur', 1, 'lcl_fin_afgewezen');
 DEF_STATUS('factuur', 2, 'lcl_fin_ingevoerd');
 DEF_STATUS('factuur', 3, 'lcl_fin_incompleet');
+DEF_STATUS('factuur', 5, 'lcl_fin_ter_goedgekeuring');
 DEF_STATUS('factuur', 6, 'lcl_fin_akkoord');
 DEF_STATUS('factuur', 7, 'lcl_fin_verwerkt');
 

FIN/FIN_PAC.SRC

@@ -45,6 +45,8 @@ AS
       RETURN NUMBER;
 
   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
+
+  PROCEDURE remove(p_factuur_key IN NUMBER);
 END fin;
 /
 
@@ -308,13 +310,14 @@ AS
       factuurschemabedrag            cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
       contractkosten                 cnt_contract.cnt_contract_kosten%TYPE;
       opdrachtkosten                 mld_opdr.mld_opdr_kosten%TYPE;
-      matchtype                      mld_typeopdr.mld_typeopdr_matchtype%TYPE;
+      typeopdr_factuur               mld_typeopdr.mld_typeopdr_factuur%TYPE;
       factuurbedrag                  NUMBER (12, 2);
       bestelbedrag                   NUMBER (12, 2);  -- van de opdracht waar deze factuur over gaat
       totaalgefactureerd             NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde B(R)OC
       totaaltermijngefactureerd      NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde C igv factuurschema-gebruik
       totaaltermijngefactureerdbtw   NUMBER (12, 2); -- met deze factuur erbij eerder gefactureerd van dezelfde C igv factuurschema-gebruik
       totaalgefactureerdbtw          NUMBER (12, 2);
+      aantalgefactureerd             NUMBER := 0;
       opdrstatus                     mld_opdr.mld_statusopdr_key%TYPE;
       retval                         NUMBER := 0;
       inclbtw                        NUMBER := 0;
@@ -439,7 +442,7 @@ AS
              WHERE     bes_bestelopdr_key = b_key
                    AND fin_factuur_statuses_key <> 1
                    AND fin_factuur_verwijder IS NULL
-                   AND fin_factuur_datum <= factuurdatum;
+                   AND (fin_factuur_datum <= factuurdatum OR fin_factuur_statuses_key IN (6, 7)); -- Akkoord(6) en Verwerkt(7)
 
             IF inclbtw = 1    -- Artikelen zijn al inclusief, dan ook maar factuur inclusief matchen
             THEN
@@ -520,7 +523,7 @@ AS
 
             -- We doen er toch niks mee: factmatchmode := fin.getfactmatchmode (discipline, 'C');
 
-            -- hoeveel is er met deze factuur erbij totaal voor dit contract gefactureerd
+            -- hoeveel is er *met deze factuur erbij* totaal voor dit contract gefactureerd
             SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
               INTO totaalgefactureerd, totaalgefactureerdbtw
               FROM fin_factuur
@@ -557,15 +560,15 @@ AS
          --
          WHEN ftype = 'O'
          THEN
-            -- controleer op basis van typeopdr.matchtype
+            -- controleer op basis van mld_typeopdr_factuur
             BEGIN
                SELECT o.mld_opdr_kosten,
                       sm.mld_ins_discipline_key,
-                      top.mld_typeopdr_matchtype,
+                      top.mld_typeopdr_factuur,
                       o.mld_statusopdr_key
                  INTO opdrachtkosten,
                       discipline,
-                      matchtype,
+                      typeopdr_factuur,
                       opdrstatus
                  FROM mld_opdr o,
                       mld_melding m,
@@ -574,19 +577,21 @@ AS
                 WHERE     o.mld_melding_key = m.mld_melding_key
                       AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                       AND o.mld_typeopdr_key = top.mld_typeopdr_key
-                      AND top.mld_typeopdr_kosten = 1                    -- daar mag een factuur bij
+                      --AND top.mld_typeopdr_uren NOT IN (3, 4, 5)     -- bij interne uren geen facturen
+                      AND top.mld_typeopdr_factuur <> 0                -- dan willen we ook geen factuur
+                      AND top.mld_typeopdr_kosten = 1                        -- daar mag een factuur bij
                       AND mld_statusopdr_key NOT IN (1, 2, 3, 10) -- dat zijn (nog) ongeldige opdrachten
                       AND mld_opdr_key = o_key;
             EXCEPTION
                WHEN NO_DATA_FOUND
                THEN
                   DBMS_OUTPUT.put_line (
-                     'Bijbehorende opdracht(status/kosten?) is ongeldig: ' || o_key);
+                     'Bijbehorende opdracht(status/kosten/type) is ongeldig: ' || o_key);
                   RETURN -1;
             END;
 
             DBMS_OUTPUT.put_line ('opdrachtkosten: ' || opdrachtkosten);
-            DBMS_OUTPUT.put_line ('matchtype: ' || matchtype);
+            DBMS_OUTPUT.put_line ('typeopdr_factuur: ' || typeopdr_factuur);
             DBMS_OUTPUT.put_line ('opdrstatus: ' || opdrstatus);
 
             SELECT MAX( (SELECT ks.prs_kostensoort_btw
@@ -614,34 +619,43 @@ AS
                RETURN -1;
             END IF;
 
-            IF matchtype = 3
-            THEN
-               DBMS_OUTPUT.put_line ('matchtype unsupported yet!');
-               RETURN 0;
-            END IF;
-
-            SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw)
-              INTO totaalgefactureerd, totaalgefactureerdbtw
+            SELECT SUM (fin_factuur_totaal), SUM (fin_factuur_totaal_btw), COUNT(*)
+              INTO totaalgefactureerd, totaalgefactureerdbtw, aantalgefactureerd
               FROM fin_factuur
              WHERE     mld_opdr_key = o_key
                    AND fin_factuur_statuses_key <> 1
                    AND fin_factuur_verwijder IS NULL
                    AND fin_factuur_datum <= factuurdatum;
 
-            IF inclbtw = 1   -- Opdrachtbedragen zijn dus inclusief, dan ook factuur inclusief matchen
+            -- Hier kunnen we iets met de deels nieuwe opties
+            -- '0;Geen facturen;1;E<>n factuur (vaste prijs);2;E<>n factuur (nacalculatie);3;Meerdere facturen;4;Contracttermijnen',
+            -- 0 hebben we direct al afgevangen
+            -- 1 en 2 verdragen geen eerdere factuur
+            IF typeopdr_factuur IN (1,2) AND aantalgefactureerd>1
             THEN
-               DBMS_OUTPUT.put_line ('Inclusief BTW');
-               totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
-            END IF;
-
-            IF fin.tolerantiematch (discipline,
-                                    ftype,
-                                    totaalgefactureerd,
-                                    opdrachtkosten) = 1
-            THEN
-               retval := 1;
+                -- er is al een eerdere factuur, dan is de rest fout
+                retval := -1;
             ELSE
-               retval := -1;
+                -- dan is dit 3 of de eerste van 1 of 2
+                IF inclbtw = 1   -- Opdrachtbedragen zijn dus inclusief, dan ook factuur inclusief matchen
+                THEN
+                   DBMS_OUTPUT.put_line ('Inclusief BTW');
+                   totaalgefactureerd := totaalgefactureerd + totaalgefactureerdbtw;
+                END IF;
+                IF typeopdr_factuur = 2
+                THEN
+                    retval := 1;
+                ELSE
+                    IF fin.tolerantiematch (discipline,
+                                            ftype,
+                                            totaalgefactureerd,
+                                            opdrachtkosten) = 1
+                    THEN
+                       retval := 1;
+                    ELSE
+                       retval := -1;
+                    END IF;
+                END IF;
             END IF;
          ELSE
             retval := 0;
@@ -1038,6 +1052,57 @@ AS
       END IF;
       RETURN s;
    END;
+
+   PROCEDURE remove(p_factuur_key IN NUMBER)
+   IS
+       CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+           SELECT fac_bijlagen_key
+             FROM fac_bijlagen b
+                , fin_factuur r
+                , fin_kenmerk k
+            WHERE b.fac_bijlagen_kenmerk_key = k.fin_kenmerk_key
+              AND b.fac_bijlagen_refkey = r.fin_factuur_key
+              AND b.fac_bijlagen_module = 'FIN'
+              AND k.fin_kenmerk_type = 'F'
+              AND b.fac_bijlagen_refkey = p_refkey;
+   BEGIN
+       -- Bijlagen van factuurregels verwijderen.
+       -- Zoek alle factuurregels bij deze factuur.
+       -- Garandeer dat de bijlage bij de factuurregel hoort en niet bij een factuur met dezelfde refkey als de factuurregel,
+       -- door alleen kenmerken te gebruiken die alleen voor factuurregels zijn.
+       FOR ref_bijlagen IN (SELECT fac_bijlagen_key
+                              FROM fac_bijlagen b
+                                 , fin_factuurregel r
+                                 , fin_kenmerk k
+                             WHERE b.fac_bijlagen_kenmerk_key = k.fin_kenmerk_key
+                               AND b.fac_bijlagen_refkey = r.fin_factuurregel_key
+                               AND b.fac_bijlagen_module = 'FIN'
+                               AND k.fin_kenmerk_type = 'R'
+                               AND r.fin_factuur_key = p_factuur_key
+                           )
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
+
+       FOR ref_bijlagen IN c_bijlagen(p_factuur_key)
+       LOOP
+           flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+       END LOOP;
+
+       DELETE FROM fin_factuur
+        WHERE fin_factuur_key = p_factuur_key;
+
+       -- Van de volgende tabellen worden de records die naar deze p_afspraak_key
+       -- verwijzen met ON DELETE CASCADE ook verwijderd:
+       --  fin_factuur_note
+       --  fin_kenmerkfactuur
+       -- Hierdoor worden de afhankelijkheden in de volgende tabellen ook verwijderd:
+       --  fin_factuurregel
+       --  fin_kenmerkfactregel
+
+       fac.remove_tracking('factuur', p_factuur_key);
+   END;
 END fin;
 /
 

FIN/FIN_TAB.SRC

@@ -68,6 +68,9 @@ ALTER TABLE ins_srtcontrole
 				ADD fin_btwtabelwaarde_key NUMBER(10)
  CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
 
+ALTER TABLE prs_bedrijf_bedrijf
+        ADD fin_btwtabelwaarde_key NUMBER(10) -- default btw
+ CONSTRAINT prs_r_fin_btwtabelwaarde_key2 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
 
 CREATE_TABLE(fin_factuur,0)
 (
@@ -125,6 +128,13 @@ CREATE_TABLE(fin_factuur,0)
     DATE
 , fin_factuur_flag
     NUMBER(1)
+, cnt_contract_plaats_key
+    NUMBER(10)
+    CONSTRAINT fin_r_fin_factuur8 REFERENCES cnt_contract_plaats(cnt_contract_plaats_key)
+, fin_factuur_externnr
+    VARCHAR2(256)
+, fin_factuur_externsyncdate
+    DATE
 );
 
 CREATE_TABLE(fin_factuurregel,0)
@@ -134,7 +144,7 @@ CREATE_TABLE(fin_factuurregel,0)
     CONSTRAINT fin_k_fin_regel PRIMARY KEY
 , fin_factuur_key
     NUMBER(10)
-    CONSTRAINT fin_r_fin_factuurregel1 REFERENCES fin_factuur(fin_factuur_key)
+    CONSTRAINT fin_r_fin_factuurregel1 REFERENCES fin_factuur(fin_factuur_key) ON DELETE CASCADE
     NOT_NULL(fin_factuur_key, fin_c_fin_factuurregel1)
 , fin_factuurregel_nr
     NUMBER
@@ -154,6 +164,14 @@ CREATE_TABLE(fin_factuurregel,0)
 , prs_kostensoort_key
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur5 REFERENCES prs_kostensoort(prs_kostensoort_key)
+, fin_factuurregel_code
+    VARCHAR2(30)
+, fin_factuurregel_aantal
+    NUMBER(8,2)
+, fin_factuurregel_eenheid
+    VARCHAR2(30)
+, fin_factuurregel_id
+    NUMBER(10)
 );
 
 
@@ -178,11 +196,13 @@ CREATE_TABLE(fin_kenmerk,0)
         VARCHAR2(255)
     ,fin_kenmerk_default
         VARCHAR2(4000)
+    ,fin_kenmerk_show_expr
+        VARCHAR2(4000)
     ,fin_kenmerk_dimensie
         VARCHAR2(10)
     ,fin_kenmerk_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+        CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,fin_kenmerk_systeem
         NUMBER(2)
     ,fin_kenmerk_toonbaar
@@ -222,7 +242,7 @@ CREATE_TABLE(fin_kenmerkfactuur,0)
         CONSTRAINT fin_k_fin_kenmerkfactuur_key PRIMARY KEY
     ,fin_factuur_key
         NUMBER(10)
-        CONSTRAINT fin_r_fin_factuur_key REFERENCES fin_factuur(fin_factuur_key)
+        CONSTRAINT fin_r_fin_factuur_key REFERENCES fin_factuur(fin_factuur_key) ON DELETE CASCADE
     ,fin_kenmerk_key
         NUMBER(10)
     ,fin_kenmerkfactuur_waarde
@@ -243,7 +263,7 @@ CREATE_TABLE(fin_kenmerkfactregel,0)
         CONSTRAINT fin_k_kenmerkfactregel_key PRIMARY KEY
     ,fin_factuurregel_key
         NUMBER(10)
-        CONSTRAINT fin_r_fin_factuurregel_key REFERENCES fin_factuurregel(fin_factuurregel_key)
+        CONSTRAINT fin_r_fin_factuurregel_key REFERENCES fin_factuurregel(fin_factuurregel_key) ON DELETE CASCADE
     ,fin_kenmerk_key
         NUMBER(10)
         CONSTRAINT fin_r_fin_kenmerk_key2 REFERENCES fin_kenmerk(fin_kenmerk_key)

INS/INS_IND.SRC

@@ -12,6 +12,7 @@ create index ins_i_ins_srtdeel3 on ins_srtdeel(ins_srtdeel_cadlayer, ins_srtdeel
 create index ins_i_ins_srtdeel4 on ins_srtdeel(ins_srtdeel_nr);
 create index ins_i_ins_srtdeel5 on ins_srtdeel(prs_bedrijf_key, ins_srtgroep_key, ins_srtdeel_verwijder);
 create index ins_i_ins_srtdeel6 on ins_srtdeel(ins_srtdeel_uitleenbaar);
+create index ins_i_ins_srtdeel7 on ins_srtdeel(ins_srtdeel_sensortype);
 create index ins_i_ins_srtdeel_prs_bdr_key on ins_srtdeel (prs_bedrijf_key);
 
 create index ins_i_ins_discipline1 on ins_tab_discipline(ins_discipline_module, ins_discipline_omschrijving);
@@ -24,6 +25,8 @@ create index ins_i_ins_deel5 on ins_deel(ins_alg_locatie_key);
 create index ins_i_ins_deel6 on ins_deel(ins_alg_locatie_key, ins_srtdeel_key, ins_deel_upper);
 CREATE INDEX ins_i_ins_deel7 ON ins_deel(ins_deel_parent_key);
 
+create index ins_i_ins_deel_note1 on ins_deel_note(ins_deel_key);
+
 /* Indices voor INS_KENMERK-zaken */
 CREATE INDEX ins_i_ins_srtkenmerk1 ON ins_kenmerk(ins_srtkenmerk_key);
 CREATE INDEX ins_i_ins_srtinstallatie1 ON ins_kenmerk(ins_srtinstallatie_key);

INS/INS_PAC.SRC

@@ -12,6 +12,7 @@ CREATE OR REPLACE PACKAGE ins AS
     FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_scenario IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
     FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
     PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
+    PROCEDURE ins_daily(today IN DATE DEFAULT SYSDATE);
 END ins;
 /
 
@@ -348,6 +349,144 @@ CREATE OR REPLACE PACKAGE BODY ins AS
        END IF;
     END;
 
+    PROCEDURE ins_daily(today IN DATE DEFAULT SYSDATE)
+    AS
+        CURSOR c_days(eerste_dag IN DATE, laatste_dag IN DATE)
+        IS
+            SELECT DISTINCT TRUNC(h.ins_deel_statedate) uitvoer_dag
+              FROM ins_deel_state_history h
+                 , ins_deel d
+                 , ins_srtdeel s
+             WHERE h.ins_deel_key = d.ins_deel_key
+               AND d.ins_srtdeel_key = s.ins_srtdeel_key
+               AND BITAND(s.ins_srtdeel_sensortype, 1) = 1
+               AND h.ins_deel_statedate BETWEEN eerste_dag AND (laatste_dag + 1)
+             ORDER BY 1;
+
+        CURSOR c_sensors(dag IN DATE)
+        IS
+            SELECT DISTINCT h.ins_deel_key
+              FROM ins_deel_state_history h
+                 , ins_deel d
+                 , ins_srtdeel s
+             WHERE h.ins_deel_key = d.ins_deel_key
+               AND d.ins_srtdeel_key = s.ins_srtdeel_key
+               AND BITAND(s.ins_srtdeel_sensortype, 1) = 1
+               AND h.ins_deel_statedate BETWEEN (dag) AND (dag + 1);
+
+        -- Haal de statuswijzigingen van een dag op.
+        -- De laatste status loopt tot middernacht.
+        -- Ook de status van middernacht tot de eerste statuswijziging deze dag moet worden opgehaald.
+        -- Deze kan meerdere dagen voor deze dag voor het laatst gezet zijn!
+        CURSOR c_states ( deel_key IN NUMBER
+                        , dag IN DATE)
+        IS
+            SELECT x.status
+                 , SUM(x.eindtijd - x.starttijd) totaaltijd
+              FROM (
+                        (   SELECT a.ins_deel_state  status
+                                 , dag starttijd
+                                 , min(c.ins_deel_statedate)  eindtijd
+                                 , a.ins_deel_key
+                              FROM ins_deel_state_history a
+                                 , ins_deel_state_history c
+                             WHERE a.ins_deel_key = c.ins_deel_key
+                               AND c.ins_deel_statedate BETWEEN dag AND dag+1
+                               AND a.ins_deel_statedate = (SELECT MAX(b.ins_deel_statedate)
+                                                             FROM ins_deel_state_history b
+                                                            WHERE b.ins_deel_key = a.ins_deel_key
+                                                              AND b.ins_deel_statedate < dag
+                                                          )
+                             GROUP BY a.ins_deel_key
+                                    , a.ins_deel_state
+                        )
+                        UNION
+                        (   SELECT a.ins_deel_state     status
+                                 , a.ins_deel_statedate starttijd
+                                 , least(MIN(b.ins_deel_statedate), dag+1) eindtijd
+                                 , a.ins_deel_key
+                              FROM ins_deel_state_history a
+                                 , ins_deel_state_history b
+                             WHERE a.ins_deel_key = deel_key
+                               AND a.ins_deel_statedate BETWEEN dag AND dag+1
+                               AND a.ins_deel_key = b.ins_deel_key
+                               AND a.ins_deel_state <> b.ins_deel_state
+                               AND a.ins_deel_statedate < b.ins_deel_statedate
+                             GROUP BY a.ins_deel_statedate
+                                    , a.ins_deel_state
+                                    , a.ins_deel_key
+                        )
+                   ) x
+             WHERE x.ins_deel_key = deel_key
+             GROUP BY x.status;
+
+        keep_days             NUMBER(3);
+        first_day_available   DATE;
+        last_day_compressed   DATE;
+        start_day_compress    DATE;
+        end_day_compress      DATE;
+    BEGIN
+        -- Setting aantal dagen history ophalen.
+        SELECT COALESCE(fac_setting_default, fac_setting_pvalue)
+          INTO keep_days
+          FROM fac_setting
+         WHERE fac_setting_name = 'ins_state_history';
+
+        -- dbms_output.put_line('today: '||to_char(today,'dd-mm-yyyy'));
+        -- Vandaag comprimeren mag niet want je weet niet of je alle meetwaarden al hebt.
+        end_day_compress := TRUNC(today);
+        IF (end_day_compress = TRUNC(sysdate))
+        THEN
+            end_day_compress := end_day_compress -1;
+        END IF;
+
+        -- Voor welke dagen moet ins_deel_state_history gecomprimeerd worden?
+        -- (voor het geval ins_daily een aantal dagen niet heeft gewerkt.)
+        SELECT TRUNC(COALESCE(MIN(ins_deel_statedate), end_day_compress))
+          INTO first_day_available
+          FROM ins_deel_state_history;
+        -- dbms_output.put_line('first_day_available: ' ||to_char(first_day_available,'dd-mm-yyyy'));
+
+        SELECT COALESCE(TRUNC(MAX(ins_deel_statedate)), first_day_available)
+          INTO last_day_compressed
+          FROM ins_deel_state_history_all;
+        -- dbms_output.put_line('last_day_compressed: ' ||to_char(last_day_compressed,'dd-mm-yyyy'));
+
+        SELECT GREATEST(first_day_available, (last_day_compressed + 1))
+          INTO start_day_compress
+          FROM DUAL;
+        -- dbms_output.put_line('Compress from '||to_char(start_day_compress,'dd-mm-yyyy')||' to '||to_char(end_day_compress,'dd-mm-yyyy'));
+
+        FOR r_day IN c_days(start_day_compress, end_day_compress)
+        LOOP
+            -- dbms_output.put_line('Compress '||to_char(r_day.uitvoer_dag,'dd-mm-yyyy'));
+            FOR r_sensor IN c_sensors(r_day.uitvoer_dag)
+            LOOP
+                -- dbms_output.put_line('sensor: '||r_sensor.ins_deel_key);
+                FOR r_state IN c_states(r_sensor.ins_deel_key, r_day.uitvoer_dag)
+                LOOP
+                     -- dbms_output.put_line('-  '||to_char(r_sensor.ins_deel_key)||' '||r_state.status||' '||to_char(r_state.totaaltijd));
+                     INSERT INTO ins_deel_state_history_all
+                     ( ins_deel_key
+                     , ins_deel_statedate
+                     , ins_deel_state
+                     , ins_deel_statetime
+                     ) VALUES
+                     ( r_sensor.ins_deel_key
+                     , r_day.uitvoer_dag
+                     , r_state.status
+                     , r_state.totaaltijd
+                     );
+                END LOOP;
+            END LOOP;
+            COMMIT;
+        END LOOP;
+        --
+        -- Verwijder alle records uit ins_deel_state_history ouder dan x dagen.
+        DELETE FROM ins_deel_state_history
+         WHERE TRUNC(ins_deel_statedate) <= TRUNC(SYSDATE - keep_days);
+    END;
+
 END ins;
 /
 

INS/INS_SEQ.SRC

@@ -22,6 +22,7 @@ CREATE SEQUENCE ins_s_ins_deelkoppeling_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_compositie_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_srtdeel_comp_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_deel_state_hist_key MINVALUE 1;
+CREATE SEQUENCE ins_s_ins_deel_st_histall_key MINVALUE 1;
 
 CREATE SEQUENCE ins_s_ins_scenario_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_srtcontrole_key MINVALUE 10;
@@ -34,6 +35,9 @@ CREATE SEQUENCE ins_s_ins_srtdeel_srtdeel_key MINVALUE 1;
 
 CREATE SEQUENCE ins_s_ins_disc_params_key START WITH 1 NOCACHE;
 
+CREATE SEQUENCE ins_s_ins_deel_note_key MINVALUE 1;
+
+
 
 REGISTERONCE('$Id$')
 

INS/INS_TAB.SRC

@@ -19,9 +19,9 @@ CREATE_TABLE(ins_srtdiscipline,0)
         VARCHAR(2000 CHAR),
     ins_srtdiscipline_prefix
         VARCHAR2(3),
-    ins_srtdiscipline_kostenklant  /* 0 = uit, 1 = aan, 2 = niet tonen */
-        NUMBER(1) DEFAULT (0)
-        CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2)),
+    ins_srtdiscipline_kostenklant  /* FE: 0x**00 = uit, 0x**01 = aan, 0x**10 = niet tonen, FO/BO: 0x00** = uit, 0x01** = aan, 0x10** = niet tonen */
+        NUMBER(2) DEFAULT (0)
+        CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2,4,5,6,8,9,10)),
     ins_srtdiscipline_alg
         NUMBER(3) DEFAULT(1)
         CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)),
@@ -47,6 +47,10 @@ CREATE_TABLE(ins_srtdiscipline,0)
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
+    ins_srtdiscipline_image
+        VARCHAR2(255),
+    ins_srtdiscipline_color
+        VARCHAR2(60 CHAR),
     ins_srtdiscipline_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -54,6 +58,10 @@ CREATE_TABLE(ins_srtdiscipline,0)
     ins_srtdiscipline_verwijder
         DATE
         DEFAULT NULLDATUM,
+    ins_srtdiscipline_externnr
+        VARCHAR2(256),
+    ins_srtdiscipline_extsyncdate
+        DATE,
     CONSTRAINT ins_u_ins_srtdisc_omschr UNIQUE (ins_srtdiscipline_omschrijving,
                                                 ins_srtdiscipline_verwijder,
                                                 ins_srtdiscipline_module)
@@ -81,11 +89,11 @@ CREATE_TABLE(ins_tab_discipline,0)
     ins_discipline_verwijder
         DATE
         DEFAULT NULLDATUM,
-    ins_discipline_min_level /* 1; Reserveerbaar object; 2; Verbruiksartikel; 3; Ruimte */
+    ins_discipline_min_level /* 1; Reserveerbaar object; 2; Verbruiksartikel; 3; Ruimte 4; Personenresource; 5; Werkplek;*/
         NUMBER(1),
     ins_discipline_kpnverplicht
-        NUMBER(1) DEFAULT(0)
-        CONSTRAINT ins_c_ins_discipline_kpn CHECK(ins_discipline_kpnverplicht IN (0,1)),
+        NUMBER(1) DEFAULT(0) NOT NULL
+        CONSTRAINT ins_c_ins_discipline_kpn CHECK(ins_discipline_kpnverplicht IN (0,1,2)),  -- Kostenplaats verplicht {0=niet verplicht (default), 1=verplicht, 2=niet zichtbaar (en niet verplicht)}
     ins_srtdiscipline_key
         NUMBER(10)
         //NOT_NULL(ins_srtdiscipline_key, ins_c_ins_srtdiscipline_key1)
@@ -106,6 +114,17 @@ CREATE_TABLE(ins_tab_discipline,0)
         NUMBER(3),
     ins_discipline_volgnr
         NUMBER(4),
+    ins_discipline_code
+        VARCHAR2(60)
+        CONSTRAINT ins_u_ins_discipline_code UNIQUE,
+    ins_discipline_image
+        VARCHAR2(255),
+    ins_discipline_color
+        VARCHAR2(60 CHAR),
+    ins_discipline_externnr
+        VARCHAR2(256),
+    ins_discipline_externsyncdate
+        DATE,
     CONSTRAINT ins_u_ins_discipline_omschr UNIQUE (ins_discipline_omschrijving,
                                                    ins_srtdiscipline_key,
                                                    ins_discipline_verwijder,
@@ -169,6 +188,10 @@ CREATE_TABLE(ins_srtgroep,0)
     ins_srtgroep_verwijder
         DATE
         DEFAULT NULLDATUM,
+    ins_srtgroep_externnr
+        VARCHAR2(256),
+    ins_srtgroep_externsyncdate
+        DATE,
     CONSTRAINT ins_u_ins_srtgroep_upper UNIQUE(ins_discipline_key, ins_srtgroep_upper, ins_srtgroep_verwijder, ins_srtgroep_module)
 );
 
@@ -218,8 +241,12 @@ CREATE_TABLE(ins_srtdeel,0)
         VARCHAR2(30),
     ins_srtdeel_dimensie
         NUMBER(1),
-    ins_srtdeel_acadsymbol /* ACADSYMBOL vanuit INV_TAB veplaatst */
+    ins_srtdeel_acadsymbol
         VARCHAR2(256),
+    ins_srtdeel_acadsymbol_dwgx
+        NUMBER(16,3),
+    ins_srtdeel_acadsymbol_dwgy
+        NUMBER(16,3),
     ins_srtdeel_acad_tagvalue /* TAGVALUE vanuit ACAD */
         VARCHAR2(30),
     ins_srtdeel_cadlayer
@@ -261,6 +288,14 @@ CREATE_TABLE(ins_srtdeel,0)
         NUMBER(6),
     ins_srtdeel_mjb_grensscore1
         NUMBER(6,2),
+    ins_srtdeel_externnr
+        VARCHAR2(256),
+    ins_srtdeel_externsyncdate
+        DATE,
+    ins_srtdeel_sensortype  /* bitwise: 0=no sensor, &1=discrete values sensor, &2=continuous values sensor, rest tbd */
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL,
      CONSTRAINT ins_c_ins_srtdeel_binding CHECK ((ins_srtdeel_module ='INS' AND ins_srtdeel_binding > 0) OR ins_srtdeel_module <> 'INS')
 );
 
@@ -371,10 +406,16 @@ CREATE_TABLE(ins_deel,0)
     ins_deel_actief                   -- Object 0=Inactief, 1=Actief.
         NUMBER(1)
         DEFAULT 1 NOT NULL,
+    ins_deel_image
+        VARCHAR2(255),
      ins_deel_mjb_score1
         NUMBER(6,2), /* nu: laatst gemeten conditiescore; numeriek omdat vergeleken moet worden met ins_srtdeel_mjb_grensscore1 */
      ins_deel_mjb_score2
         NUMBER(6,2), /* nu: laatst bepaalde prioriteit;  */
+    ins_deel_externnr
+        VARCHAR2(256),
+    ins_deel_externsyncdate
+        DATE,
 -- In: PRS_TAB.SRC
 --    prs_perslid_key_beh
 --        NUMBER(10)
@@ -406,6 +447,22 @@ CREATE_TABLE(ins_deel_state_history, 0)
         VARCHAR2(320)
 );
 
+CREATE_TABLE(ins_deel_state_history_all, 0)
+(
+    ins_deel_state_history_all_key
+        NUMBER(10)
+        CONSTRAINT ins_k_deel_state_histall_key PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        CONSTRAINT ins_r_ins_deel_key3 REFERENCES ins_deel(ins_deel_key),
+    ins_deel_statedate
+        DATE,
+    ins_deel_state
+        VARCHAR2(128),
+    ins_deel_statetime
+        NUMBER
+);
+
 CREATE_TABLE(ins_scenario, 0)
 (
     ins_scenario_key
@@ -433,17 +490,18 @@ CREATE_TABLE(ins_scenario, 0)
 CREATE_TABLE(ins_srtcontrole, 0)
 (
     ins_srtcontrole_key
-       NUMBER(10)
-       PRIMARY KEY,
+        NUMBER(10)
+        PRIMARY KEY,
     ins_srtinstallatie_key
-       NUMBER(10),
+        NUMBER(10),
     ins_srtcontrole_niveau
-       VARCHAR2(1)
-       CONSTRAINT ins_c_srtcontrole_niveau1 CHECK (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
+        VARCHAR2(1)
+        CONSTRAINT ins_c_srtcontrole_niveau1 CHECK (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
     ins_srtcontrole_omschrijving
         VARCHAR2(60)
         NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
-    ctr_discipline_key NUMBER(10)
+    ctr_discipline_key
+        NUMBER(10)
         CONSTRAINT ctr_c_ins_srtcontrole_dis_key CHECK(ctr_discipline_key IS NOT NULL)
         CONSTRAINT ctr_c_ins_srtctr_discipline REFERENCES ins_tab_discipline(ins_discipline_key),
     ins_srtcontrole_groep  // vrijblijvende categorisering voor groepering in rapportages
@@ -467,15 +525,15 @@ CREATE_TABLE(ins_srtcontrole, 0)
         DEFAULT(10)
         NOT_NULL(ins_srtcontrole_level, ins_c_ins_srtcontrole_level),
     ins_srtcontrole_uren      // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) bv tbv capaciteitsplanning
-         NUMBER(8,2),
+        NUMBER(8,2),
     ins_srtcontrole_materiaal // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
-         NUMBER(9,2),
+        NUMBER(9,2),
     ins_srtcontrole_kosten    // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 1 (bv BTW hoog)
-         NUMBER(11,2),
+        NUMBER(11,2),
     ins_srtcontrole_kosten2   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 2 (bv BTW laag)
-         NUMBER(11,2),
+        NUMBER(11,2),
     ins_srtcontrole_kosten3   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 3 (spare)
-         NUMBER(11,2),
+        NUMBER(11,2),
     ins_srtcontrole_percentage // percentage van het aantal delen waarop dit betrekking heeft
         NUMBER(3)
         DEFAULT (100)
@@ -489,13 +547,18 @@ CREATE_TABLE(ins_srtcontrole, 0)
         DEFAULT 15
         NOT_NULL(ins_srtcontrole_options, ins_c_ins_srtcontr_options),
     ins_scenario_key
-       NUMBER(10)
-       DEFAULT 1 NOT NULL
-       CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
+        NUMBER(10)
+        DEFAULT 1 NOT NULL
+        CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
+/* na create table ins_controlemode
+      ins_controlemode_key
+        NUMBER(10)
+        CONSTRAINT ins_c_ins_controlemode_key REFERENCES ins_controlemode(ins_controlemode_key),
+*/
 /* in fin_tab.src:
     fin_btwtabelwaarde_key
-			 NUMBER(10)
- 			 CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+			  NUMBER(10)
+ 			  CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
 */
 	ins_srtcontrole_afbouwtijd
        NUMBER(6,2)
@@ -508,6 +571,9 @@ CREATE_TABLE(ins_srtcontrole, 0)
     ,prs_kostenplaats_key
         NUMBER(10)
         CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
+    ,prs_dienst_key
+        NUMBER(10)
+        CONSTRAINT cnt_r_prs_dienst_key1 REFERENCES prs_dienst(prs_dienst_key)
 */
 );
 
@@ -524,6 +590,7 @@ CREATE_TABLE(ins_controlemode, 0)
     ins_controlemode_success        // 1=positive/neutral result, 0=negative result
         NUMBER(1)
         DEFAULT(1)
+        NOT NULL
         CONSTRAINT ins_c_ins_controlemode_success CHECK (ins_controlemode_success IN (0,1)),
     ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
         NUMBER(1)
@@ -531,6 +598,11 @@ CREATE_TABLE(ins_controlemode, 0)
     CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_srtcontrole_type,ins_controlemode_oms)
 );
 
+ALTER TABLE ins_srtcontrole
+  ADD ins_controlemode_key
+      NUMBER(10)
+      CONSTRAINT ins_c_ins_controlemode_key REFERENCES ins_controlemode(ins_controlemode_key);
+
 // Eventuele afwijkingen (xcp=exception) per specifiek deel
 // De methodiek (flags) en het level kunnen niet overruled worden; fungeert als COALESCE met ins_srtcontrole
 // Het kan ook voor alleen respijt bestaan
@@ -574,6 +646,10 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
         DATE,
     ins_srtcontroledl_xcp_eind    // hier eindigt deze
         DATE,
+    ins_srtcontroledl_xcp_prio
+        NUMBER(1)
+        DEFAULT(2) // normaal
+        NOT NULL,
     ins_scenario_key
        NUMBER(10)
        DEFAULT 1 NOT NULL
@@ -604,6 +680,8 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
        CONSTRAINT ins_r_ins_controlemode_key REFERENCES ins_controlemode,
     ins_deelsrtcontrole_opmerking
         VARCHAR(4000 CHAR),
+    ins_deelsrtcontrole_plan_opm
+        VARCHAR(4000 CHAR),
     ins_deelsrtcontrole_plandatum
        DATE,
     ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 5;Afgemeld/Gereed gemeld; 6;Afgerond)
@@ -662,7 +740,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
       VARCHAR2(10),
    ins_srtkenmerk_kenmerktype
       VARCHAR2(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B')),
+      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
    ins_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
       NUMBER(2)
       DEFAULT 0 NOT NULL,
@@ -710,6 +788,8 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_bewerkniveau /* Kenmerk behoort bij individueel Deel of algemeen Srtdeel */
         VARCHAR2(1) DEFAULT 'D' NOT NULL
         CONSTRAINT ins_c_ins_kenmerk_bewerk CHECK(ins_kenmerk_bewerkniveau IN ('D', 'S')),
+   ins_kenmerk_omschrijving
+      VARCHAR2(50), /* optionele overrule van srtkenmerk_omschrijving */
    ins_kenmerk_verplicht
       NUMBER(1),
    ins_kenmerk_groep
@@ -738,6 +818,8 @@ CREATE_TABLE(ins_kenmerk, 0)
       VARCHAR2(255),
    ins_kenmerk_default
       VARCHAR2(4000),
+   ins_kenmerk_show_expr
+      VARCHAR2(4000),
    ins_kenmerk_hint
       VARCHAR2(255 CHAR),
    ins_kenmerk_aanmaak
@@ -748,7 +830,7 @@ CREATE_TABLE(ins_kenmerk, 0)
       DATE
       DEFAULT NULLDATUM,
    CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL OR ins_kenmerk_niveau = 'D'),
-   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_groep, ins_kenmerk_verwijder)
+   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_omschrijving, ins_kenmerk_groep, ins_kenmerk_verwijder)
 );
 
 /* De waarde mag in de tabel NULL zijn, maar om de database niet
@@ -915,6 +997,28 @@ CREATE_TABLE(ins_disc_params,0)
     REFERENCES ins_tab_discipline (ins_discipline_key)
 );
 
+CREATE_TABLE(ins_deel_note,0)
+(
+    ins_deel_note_key
+        NUMBER(10)
+        PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        NOT NULL
+        REFERENCES ins_deel (ins_deel_key)
+        ON DELETE CASCADE,
+    ins_deel_note_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        REFERENCES prs_perslid (prs_perslid_key)
+//        ON DELETE SET NULL,
+    ins_deel_note_omschrijving
+        VARCHAR2(4000)
+);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_TRI.SRC

@@ -31,6 +31,7 @@ BEFORE INSERT OR UPDATE ON ins_tab_discipline
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(ins_discipline_key,ins_s_ins_discipline_key);
+    UPDATE_UPPER(ins_discipline_code,ins_discipline_code,ins_tab_discipline);
    IF (    :new.ins_discipline_verwijder IS NOT NULL
        AND:old.ins_discipline_verwijder IS NULL
        AND:new.ins_discipline_module = 'MLD')
@@ -41,7 +42,8 @@ BEGIN
          SELECT   'x'
            INTO   dummy
            FROM   mld_melding m, mld_stdmelding stdm
-          WHERE   stdm.mld_ins_discipline_key = :new.ins_discipline_key
+          WHERE   (stdm.mld_ins_discipline_key = :new.ins_discipline_key
+                   OR m.mld_ins_discipline_key = :new.ins_discipline_key)
             AND   m.mld_stdmelding_key = stdm.mld_stdmelding_key
             AND   m.mld_melding_status IN (0,2,3,4,7);
          raise_application_error (-20000, 'ins_m999 Vakgroep heeft nog open meldingen');
@@ -116,9 +118,15 @@ BEGIN
        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;
+       BEGIN
+          UPDATE res_srtartikel_onrgoed
+             SET res_srtartikel_og_verwijder = :new.ins_discipline_verwijder
+           WHERE res_srtartikel_onrgoed.res_discipline_key = :new.ins_discipline_key
+             AND res_srtartikel_og_verwijder IS NULL;
 
+          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);
@@ -278,6 +286,9 @@ BEGIN
          WHEN OTHERS
          THEN NULL;
        END;
+     ELSE
+       -- Voor koppeling van een object aan een afdeling, contactpersoon of persoon de alg_locatie_key altijd op NULL zetten.
+       :new.ins_alg_locatie_key := NULL;
      END IF;
    END IF;
    /* Bij INS_DEEL moet INS_ALG_RUIMTE_KEY ingevuld zijn
@@ -343,14 +354,18 @@ BEGIN
      EXCEPTION
          WHEN DUP_VAL_ON_INDEX
          THEN
-            SELECT ins_deel_state
-              INTO prev_state
-              FROM ins_deel_state_history
-             WHERE ins_deel_state_history_key =
-                      (SELECT MAX (ins_deel_state_history_key)
-                         FROM ins_deel_state_history
-                        WHERE ins_deel_key = :new.ins_deel_key
-                              AND ins_deel_statedate < new_date);
+            BEGIN
+               SELECT ins_deel_state
+                 INTO prev_state
+                 FROM ins_deel_state_history
+                WHERE ins_deel_state_history_key =
+                         (SELECT MAX (ins_deel_state_history_key)
+                            FROM ins_deel_state_history
+                           WHERE ins_deel_key = :new.ins_deel_key
+                             AND ins_deel_statedate < new_date);
+            EXCEPTION
+               WHEN NO_DATA_FOUND THEN NULL;
+            END;
 
             IF (prev_state = :new.ins_deel_state)
             THEN
@@ -541,6 +556,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_st_histall_B_I)
+BEFORE INSERT ON ins_deel_state_history_all
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(ins_deel_state_history_all_key,ins_s_ins_deel_st_histall_key);
+END;
+/
+
 
 CREATE_TRIGGER(ins_t_ins_import_B_IU)
 BEFORE INSERT OR UPDATE ON ins_import
@@ -956,6 +979,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_note_B_IU)
+BEFORE INSERT OR UPDATE ON ins_deel_note
+FOR EACH ROW
+BEGIN
+     UPDATE_PRIMARY_KEY(ins_deel_note_key, ins_s_ins_deel_note_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif

INS/INS_VIE.SRC

@@ -1566,9 +1566,11 @@ CREATE_VIEW(ins_v_defined_inspect, 0)
    ins_srtcontrole_afbouwtijd,
    ins_srtcontrole_options,
    prs_kostenplaats_key,
+   prs_dienst_key,
    fin_btwtabelwaarde_key,
    ctr_discipline_key,
    ctr_controle_type,
+   ins_controlemode_key,
    ctr_ismjob,
    mld_stdmelding_key
 )
@@ -1601,9 +1603,11 @@ AS
           isc.ins_srtcontrole_afbouwtijd,
           isc.ins_srtcontrole_options,
           isc.prs_kostenplaats_key,
+          isc.prs_dienst_key,
           isc.fin_btwtabelwaarde_key,
           isc.ctr_discipline_key,
           cdp.ctr_disc_params_controle_type,
+          isc.ins_controlemode_key,
           cdp.ctr_disc_params_ismjob,
           COALESCE(isc.mld_stdmelding_key, cdp.mld_stdmelding_key)
      FROM ins_deel id,
@@ -1649,6 +1653,7 @@ CREATE_VIEW(ins_v_defined_inspect_xcp, 0)
    ins_srtcontrole_afbouwtijd,
    ins_srtcontrole_options,
    prs_kostenplaats_key,
+   prs_dienst_key,
    fin_btwtabelwaarde_key,
    ins_srtcontroledl_xcp_key,
    ins_srtcontroledl_xcp_eenheid,
@@ -1661,6 +1666,7 @@ CREATE_VIEW(ins_v_defined_inspect_xcp, 0)
    ins_srtcontroledl_xcp_materia,
    ins_srtcontroledl_xcp_perc,
    ins_srtcontroledl_xcp_startdat,
+   ins_srtcontroledl_xcp_prio,
    ins_srtcontroledl_xcp_eind,
    ins_srtcontroledl_xcp_groep,
    ins_srtcontroledl_xcp_opmerk,
@@ -1669,6 +1675,7 @@ CREATE_VIEW(ins_v_defined_inspect_xcp, 0)
    ins_scenario_key,
    ctr_discipline_key,
    ctr_controle_type,
+   ins_controlemode_key,
    ctr_ismjob,
    mld_stdmelding_key
 )
@@ -1702,6 +1709,7 @@ AS
            ins_srtcontrole_afbouwtijd,
            ins_srtcontrole_options,
            prs_kostenplaats_key,
+           prs_dienst_key,
            fin_btwtabelwaarde_key,
            ins_srtcontroledl_xcp_key,
            ins_srtcontroledl_xcp_eenheid,
@@ -1714,6 +1722,7 @@ AS
            ins_srtcontroledl_xcp_materia,
            ins_srtcontroledl_xcp_perc,
            ins_srtcontroledl_xcp_startdat,
+           ins_srtcontroledl_xcp_prio,
            ins_srtcontroledl_xcp_eind,
            ins_srtcontroledl_xcp_groep,
            ins_srtcontroledl_xcp_opmerk,
@@ -1722,6 +1731,7 @@ AS
            ins_scenario_key,
            di.ctr_discipline_key,
            di.ctr_controle_type,
+           di.ins_controlemode_key,
            di.ctr_ismjob,
            di.mld_stdmelding_key
       FROM ins_v_defined_inspect di, ins_srtcontroledl_xcp xcp
@@ -1757,6 +1767,7 @@ AS
            ins_srtcontrole_afbouwtijd,
            ins_srtcontrole_options,
            prs_kostenplaats_key,
+           prs_dienst_key,
            fin_btwtabelwaarde_key,
            ins_srtcontroledl_xcp_key,
            ins_srtcontroledl_xcp_eenheid,
@@ -1769,6 +1780,7 @@ AS
            ins_srtcontroledl_xcp_materia,
            ins_srtcontroledl_xcp_perc,
            ins_srtcontroledl_xcp_startdat,
+           ins_srtcontroledl_xcp_prio,
            ins_srtcontroledl_xcp_eind,
            ins_srtcontroledl_xcp_groep,
            ins_srtcontroledl_xcp_opmerk,
@@ -1777,6 +1789,7 @@ AS
            1 ins_scenario_key,
            di.ctr_discipline_key,
            di.ctr_controle_type,
+           di.ins_controlemode_key,
            di.ctr_ismjob,
            di.mld_stdmelding_key
       FROM ins_v_defined_inspect  di,
@@ -1812,277 +1825,282 @@ AS
 /* Let op: kolomwijzigingen ook in de vervolgview(s) verwerken */
 CREATE_VIEW(ins_v_udr_deel, 1)
 (
-   deel_key,
-   discipline,
-   soort,
-   groep,
-   soortcode,
-   omschrijving,
-   plaatseigenaar,
-   plaatseigenaartype,
-   plaatsaanduiding,
-   eigenaar,
-   opmerking,
-   regio,
-   district,
-   locatie_code,
-   locatie_omschrijving,
-   locatie_plaats,
-   gebouwcode,
-   gebouw,
-   terreinsectorcode,
-   terreinsector,
-   verdiepingcode,
-   ruimtenr,
-   werkplekvolgnr,
-   werkplek,
-   uitleenbaar,
-   uitgeleend,
-   res_opmerking,
-   beheerder,
-   vervaldatum,
-   actief,
-   aantal,
-   state,
-   statedate,
-   fclt_3d_discipline_key,
-   fclt_3d_afdeling_key,
-   fclt_3d_locatie_key
+    deel_key,
+    discipline,
+    soort,
+    groep,
+    soortcode,
+    omschrijving,
+    plaatseigenaar,
+    plaatseigenaartype,
+    plaatsaanduiding,
+    eigenaar,
+    eigenaar_key,
+    opmerking,
+    regio,
+    district,
+    locatie_code,
+    locatie_omschrijving,
+    locatie_plaats,
+    gebouwcode,
+    gebouw,
+    terreinsectorcode,
+    terreinsector,
+    verdiepingcode,
+    ruimtenr,
+    werkplekvolgnr,
+    werkplek,
+    uitleenbaar,
+    uitgeleend,
+    res_opmerking,
+    beheerder,
+    vervaldatum,
+    actief,
+    aantal,
+    state,
+    statedate,
+    fclt_3d_discipline_key,
+    fclt_3d_afdeling_key,
+    fclt_3d_locatie_key
 )
 AS
-   SELECT ii.ins_deel_key,
-          lcl.x ('ins_discipline_omschrijving',
-                 id.ins_discipline_key,
-                 id.ins_discipline_omschrijving),
-          lcl.x ('ins_srtdeel_omschrijving', s.ins_srtdeel_key, s.ins_srtdeel_omschrijving),
-          lcl.x ('ins_srtgroep_omschrijving', sg.ins_srtgroep_key, sg.ins_srtgroep_omschrijving),
-          s.ins_srtdeel_code,
-          ii.ins_deel_omschrijving,
-          COALESCE (ii.plaats, ii.eigenaar),
-          ii.ins_alg_ruimte_type,
-          ii.plaats,
-          ii.eigenaar,
-          ii.ins_deel_opmerking,
-          ii.regio,
-          ii.district,
-          ii.locatie_code,
-          ii.locatie_omschrijving,
-          ii.locatie_plaats,
-          ii.alg_gebouw_code,
-          ii.alg_gebouw_omschrijving,
-          ii.alg_terreinsector_code,
-          ii.alg_terreinsector_omschrijving,
-          ii.alg_verdieping_code,
-          ii.alg_ruimte_nr,
-          ii.prs_werkplek_volgnr,
-          ii.prs_werkplek_omschrijving,
-          DECODE (s.ins_srtdeel_uitleenbaar, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
-          DECODE (ii.ins_alg_ruimte_key_org, NULL, lcl.l ('lcl_no'), lcl.l ('lcl_yes')),
-          ii.res_deel_opmerking,
-          pf.prs_perslid_naam_full,
-          ii.ins_deel_vervaldatum,
-          DECODE (ii.ins_deel_actief, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
-          ii.ins_deel_aantal,
-          ii.ins_deel_state,
-          ii.ins_deel_statedate,
-          sg.ins_discipline_key,
-          ii.ins_alg_ruimte_key,
-          ii.alg_locatie_key
-     FROM (SELECT i.ins_deel_key,
-                  i.ins_deel_omschrijving,
-                  i.ins_srtdeel_key,
-                  i.prs_perslid_key_beh,
-                  TO_CHAR (NULL) plaats,
-                  i.ins_deel_opmerking,
-                  i.ins_alg_ruimte_type,
-                  NULL regio,
-                  NULL district,
-                  NULL locatie_code,
-                  NULL locatie_omschrijving,
-                  NULL locatie_plaats,
-                  NULL alg_gebouw_code,
-                  NULL alg_gebouw_omschrijving,
-                  NULL alg_terreinsector_code,
-                  NULL alg_terreinsector_omschrijving,
-                  NULL alg_verdieping_code,
-                  NULL alg_ruimte_nr,
-                  NULL prs_werkplek_volgnr,
-                  NULL prs_werkplek_omschrijving,
-                  rd.res_deel_opmerking,
-                  i.ins_deel_vervaldatum,
-                  (SELECT d.prs_afdeling_omschrijving
-                     FROM prs_v_afdeling d
-                    WHERE prs_afdeling_key = i.ins_alg_ruimte_key)
-                     eigenaar,
-                  i.ins_discipline_key,
-                  i.ins_alg_ruimte_key,
-                  NULL alg_locatie_key,
-                  i.ins_deel_actief,
-                  i.ins_deel_aantal,
-                  i.ins_alg_ruimte_key_org,
-                  i.ins_deel_state,
-                  i.ins_deel_statedate
-             FROM ins_deel i,
-                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
-                     FROM res_deel
-                    WHERE res_deel_verwijder IS NULL) rd,
-                  prs_v_afdeling_boom d,
-                  prs_bedrijf b
-            WHERE     i.ins_deel_verwijder IS NULL
-                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
-                  AND i.ins_deel_module = 'INS'
-                  AND i.ins_deel_parent_key IS NULL
-                  AND i.ins_alg_ruimte_key = d.prs_afdeling_key
-                  AND i.ins_alg_ruimte_type = 'A'
-           UNION
-           SELECT i.ins_deel_key,
-                  i.ins_deel_omschrijving,
-                  i.ins_srtdeel_key,
-                  i.prs_perslid_key_beh,
-                  TO_CHAR (NULL) plaats,
-                  i.ins_deel_opmerking,
-                  i.ins_alg_ruimte_type,
-                  NULL regio,
-                  NULL district,
-                  NULL locatie_code,
-                  NULL locatie_omschrijving,
-                  NULL locatie_plaats,
-                  NULL alg_gebouw_code,
-                  NULL alg_gebouw_omschrijving,
-                  NULL alg_terreinsector_code,
-                  NULL alg_terreinsector_omschrijving,
-                  NULL alg_verdieping_code,
-                  NULL alg_ruimte_nr,
-                  NULL prs_werkplek_volgnr,
-                  NULL prs_werkplek_omschrijving,
-                  rd.res_deel_opmerking,
-                  i.ins_deel_vervaldatum,
-                  pf.prs_perslid_naam_full eigenaar,
-                  i.ins_discipline_key,
-                  p.prs_afdeling_key,
-                  NULL alg_locatie_key,
-                  i.ins_deel_actief,
-                  i.ins_deel_aantal,
-                  i.ins_alg_ruimte_key_org,
-                  i.ins_deel_state,
-                  i.ins_deel_statedate
-             FROM ins_deel i,
-                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
-                     FROM res_deel
-                    WHERE res_deel_verwijder IS NULL) rd,
-                  prs_perslid p,
-                  prs_v_perslid_fullnames_all pf,
-                  prs_v_afdeling_boom d
-            WHERE     i.ins_deel_verwijder IS NULL
-                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
-                  AND i.ins_deel_module = 'INS'
-                  AND i.ins_deel_parent_key IS NULL
-                  AND i.ins_alg_ruimte_key = p.prs_perslid_key
-                  AND p.prs_perslid_key = pf.prs_perslid_key
-                  AND p.prs_afdeling_key = d.prs_afdeling_key
-                  AND i.ins_alg_ruimte_type = 'P'
-           UNION
-           SELECT i.ins_deel_key,
-                  i.ins_deel_omschrijving,
-                  i.ins_srtdeel_key,
-                  i.prs_perslid_key_beh,
-                  TO_CHAR (NULL) plaats,
-                  i.ins_deel_opmerking,
-                  i.ins_alg_ruimte_type,
-                  NULL regio,
-                  NULL district,
-                  NULL locatie_code,
-                  NULL locatie_omschrijving,
-                  NULL locatie_plaats,
-                  NULL alg_gebouw_code,
-                  NULL alg_gebouw_omschrijving,
-                  NULL alg_terreinsector_code,
-                  NULL alg_terreinsector_omschrijving,
-                  NULL alg_verdieping_code,
-                  NULL alg_ruimte_nr,
-                  NULL prs_werkplek_volgnr,
-                  NULL prs_werkplek_omschrijving,
-                  rd.res_deel_opmerking,
-                  i.ins_deel_vervaldatum,
-                  c.prs_contactpersoon_naam eigenaar,
-                  NULL discipline_key,
-                  NULL,
-                  NULL alg_locatie_key,
-                  i.ins_deel_actief,
-                  i.ins_deel_aantal,
-                  i.ins_alg_ruimte_key_org,
-                  i.ins_deel_state,
-                  i.ins_deel_statedate
-             FROM ins_deel i,
-                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
-                     FROM res_deel
-                    WHERE res_deel_verwijder IS NULL) rd,
-                  prs_contactpersoon c
-            WHERE     i.ins_deel_verwijder IS NULL
-                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
-                  AND i.ins_deel_module = 'INS'
-                  AND i.ins_deel_parent_key IS NULL
-                  AND i.ins_alg_ruimte_key = c.prs_contactpersoon_key
-                  AND i.ins_alg_ruimte_type = 'C'
-           UNION
-           SELECT i.ins_deel_key,
-                  i.ins_deel_omschrijving,
-                  i.ins_srtdeel_key,
-                  i.prs_perslid_key_beh,
-                  o.alg_plaatsaanduiding,
-                  i.ins_deel_opmerking,
-                  i.ins_alg_ruimte_type,
-                  re.alg_regio_omschrijving,
-                  di.alg_district_omschrijving,
-                  l.alg_locatie_code locatie_code,
-                  l.alg_locatie_omschrijving locatie_omschrijving,
-                  l.alg_locatie_plaats locatie_plaats,
-                  o.alg_gebouw_code,
-                  o.alg_gebouw_omschrijving,
-                  o.alg_terreinsector_code,
-                  o.alg_terreinsector_omschrijving,
-                  o.alg_verdieping_code,
-                  o.alg_ruimte_nr,
-                  o.prs_werkplek_volgnr,
-                  o.prs_werkplek_omschrijving,
-                  rd.res_deel_opmerking,
-                  i.ins_deel_vervaldatum,
-                  NULL eigenaar,
-                  i.ins_discipline_key,
-                  NULL,
-                  l.alg_locatie_key,
-                  i.ins_deel_actief,
-                  i.ins_deel_aantal,
-                  i.ins_alg_ruimte_key_org,
-                  i.ins_deel_state,
-                  i.ins_deel_statedate
-             FROM ins_deel i,
-                  ins_v_alg_overzicht o,
-                  alg_locatie l,
-                  alg_district di,
-                  alg_regio re,
-                  (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
-                     FROM res_deel
-                    WHERE res_deel_verwijder IS NULL) rd
-            WHERE     i.ins_deel_verwijder IS NULL
-                  AND i.ins_deel_module = 'INS'
-                  AND i.ins_deel_key = rd.res_ins_deel_key(+)
-                  AND i.ins_deel_parent_key IS NULL
-                  AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
-                  AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
-                  AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
-                  AND o.alg_locatie_key = i.ins_alg_locatie_key
-                  AND i.ins_alg_locatie_key = l.alg_locatie_key
-                  AND l.alg_district_key = di.alg_district_key
-                  AND di.alg_regio_key = re.alg_regio_key) ii,
-          ins_srtdeel s,
-          ins_srtgroep sg,
-          ins_discipline id,
-          prs_v_perslid_fullnames pf
-    WHERE     sg.ins_srtgroep_key = s.ins_srtgroep_key
-          AND id.ins_discipline_key = sg.ins_discipline_key
-          AND ii.prs_perslid_key_beh = pf.prs_perslid_key(+)
-          AND s.ins_srtdeel_key = ii.ins_srtdeel_key;
+    SELECT ii.ins_deel_key,
+           lcl.x ('ins_discipline_omschrijving',
+                  id.ins_discipline_key,
+                  id.ins_discipline_omschrijving),
+           lcl.x ('ins_srtdeel_omschrijving', s.ins_srtdeel_key, s.ins_srtdeel_omschrijving),
+           lcl.x ('ins_srtgroep_omschrijving', sg.ins_srtgroep_key, sg.ins_srtgroep_omschrijving),
+           s.ins_srtdeel_code,
+           ii.ins_deel_omschrijving,
+           COALESCE (ii.plaats, ii.eigenaar),
+           ii.ins_alg_ruimte_type,
+           ii.plaats,
+           ii.eigenaar,
+           ii.eigenaar_key,
+           ii.ins_deel_opmerking,
+           ii.regio,
+           ii.district,
+           ii.locatie_code,
+           ii.locatie_omschrijving,
+           ii.locatie_plaats,
+           ii.alg_gebouw_code,
+           ii.alg_gebouw_omschrijving,
+           ii.alg_terreinsector_code,
+           ii.alg_terreinsector_omschrijving,
+           ii.alg_verdieping_code,
+           ii.alg_ruimte_nr,
+           ii.prs_werkplek_volgnr,
+           ii.prs_werkplek_omschrijving,
+           DECODE (s.ins_srtdeel_uitleenbaar, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+           DECODE (ii.ins_alg_ruimte_key_org, NULL, lcl.l ('lcl_no'), lcl.l ('lcl_yes')),
+           ii.res_deel_opmerking,
+           pf.prs_perslid_naam_full,
+           ii.ins_deel_vervaldatum,
+           DECODE (ii.ins_deel_actief, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no')),
+           ii.ins_deel_aantal,
+           ii.ins_deel_state,
+           ii.ins_deel_statedate,
+           sg.ins_discipline_key,
+           ii.ins_alg_ruimte_key,
+           ii.alg_locatie_key
+      FROM (SELECT i.ins_deel_key,
+                   i.ins_deel_omschrijving,
+                   i.ins_srtdeel_key,
+                   i.prs_perslid_key_beh,
+                   TO_CHAR (NULL) plaats,
+                   i.ins_deel_opmerking,
+                   i.ins_alg_ruimte_type,
+                   NULL regio,
+                   NULL district,
+                   NULL locatie_code,
+                   NULL locatie_omschrijving,
+                   NULL locatie_plaats,
+                   NULL alg_gebouw_code,
+                   NULL alg_gebouw_omschrijving,
+                   NULL alg_terreinsector_code,
+                   NULL alg_terreinsector_omschrijving,
+                   NULL alg_verdieping_code,
+                   NULL alg_ruimte_nr,
+                   NULL prs_werkplek_volgnr,
+                   NULL prs_werkplek_omschrijving,
+                   rd.res_deel_opmerking,
+                   i.ins_deel_vervaldatum,
+                   (SELECT d.prs_afdeling_omschrijving
+                      FROM prs_v_afdeling d
+                     WHERE prs_afdeling_key = i.ins_alg_ruimte_key)
+                       eigenaar,
+                   NULL eigenaar_key,
+                   i.ins_discipline_key,
+                   i.ins_alg_ruimte_key,
+                   NULL alg_locatie_key,
+                   i.ins_deel_actief,
+                   i.ins_deel_aantal,
+                   i.ins_alg_ruimte_key_org,
+                   i.ins_deel_state,
+                   i.ins_deel_statedate
+              FROM ins_deel i,
+                   (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                      FROM res_deel
+                     WHERE res_deel_verwijder IS NULL) rd,
+                   prs_v_afdeling_boom d
+             WHERE     i.ins_deel_verwijder IS NULL
+                   AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                   AND i.ins_deel_module = 'INS'
+                   AND i.ins_deel_parent_key IS NULL
+                   AND i.ins_alg_ruimte_key = d.prs_afdeling_key
+                   AND i.ins_alg_ruimte_type = 'A'
+            UNION
+            SELECT i.ins_deel_key,
+                   i.ins_deel_omschrijving,
+                   i.ins_srtdeel_key,
+                   i.prs_perslid_key_beh,
+                   TO_CHAR (NULL)           plaats,
+                   i.ins_deel_opmerking,
+                   i.ins_alg_ruimte_type,
+                   NULL                     regio,
+                   NULL                     district,
+                   NULL                     locatie_code,
+                   NULL                     locatie_omschrijving,
+                   NULL                     locatie_plaats,
+                   NULL                     alg_gebouw_code,
+                   NULL                     alg_gebouw_omschrijving,
+                   NULL                     alg_terreinsector_code,
+                   NULL                     alg_terreinsector_omschrijving,
+                   NULL                     alg_verdieping_code,
+                   NULL                     alg_ruimte_nr,
+                   NULL                     prs_werkplek_volgnr,
+                   NULL                     prs_werkplek_omschrijving,
+                   rd.res_deel_opmerking,
+                   i.ins_deel_vervaldatum,
+                   pf.prs_perslid_naam_full eigenaar,
+                   pf.prs_perslid_key eigenaar_key,
+                   i.ins_discipline_key,
+                   p.prs_afdeling_key,
+                   NULL                     alg_locatie_key,
+                   i.ins_deel_actief,
+                   i.ins_deel_aantal,
+                   i.ins_alg_ruimte_key_org,
+                   i.ins_deel_state,
+                   i.ins_deel_statedate
+              FROM ins_deel i,
+                   (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                      FROM res_deel
+                     WHERE res_deel_verwijder IS NULL) rd,
+                   prs_perslid p,
+                   prs_v_perslid_fullnames_all pf,
+                   prs_v_afdeling_boom d
+             WHERE     i.ins_deel_verwijder IS NULL
+                   AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                   AND i.ins_deel_module = 'INS'
+                   AND i.ins_deel_parent_key IS NULL
+                   AND i.ins_alg_ruimte_key = p.prs_perslid_key
+                   AND p.prs_perslid_key = pf.prs_perslid_key
+                   AND p.prs_afdeling_key = d.prs_afdeling_key
+                   AND i.ins_alg_ruimte_type = 'P'
+            UNION
+            SELECT i.ins_deel_key,
+                   i.ins_deel_omschrijving,
+                   i.ins_srtdeel_key,
+                   i.prs_perslid_key_beh,
+                   TO_CHAR (NULL)            plaats,
+                   i.ins_deel_opmerking,
+                   i.ins_alg_ruimte_type,
+                   NULL                      regio,
+                   NULL                      district,
+                   NULL                      locatie_code,
+                   NULL                      locatie_omschrijving,
+                   NULL                      locatie_plaats,
+                   NULL                      alg_gebouw_code,
+                   NULL                      alg_gebouw_omschrijving,
+                   NULL                      alg_terreinsector_code,
+                   NULL                      alg_terreinsector_omschrijving,
+                   NULL                      alg_verdieping_code,
+                   NULL                      alg_ruimte_nr,
+                   NULL                      prs_werkplek_volgnr,
+                   NULL                      prs_werkplek_omschrijving,
+                   rd.res_deel_opmerking,
+                   i.ins_deel_vervaldatum,
+                   c.prs_contactpersoon_naam eigenaar,
+                   NULL                      eigenaar_key,
+                   NULL                      discipline_key,
+                   NULL,
+                   NULL                      alg_locatie_key,
+                   i.ins_deel_actief,
+                   i.ins_deel_aantal,
+                   i.ins_alg_ruimte_key_org,
+                   i.ins_deel_state,
+                   i.ins_deel_statedate
+              FROM ins_deel i,
+                   (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                      FROM res_deel
+                     WHERE res_deel_verwijder IS NULL) rd,
+                   prs_contactpersoon c
+             WHERE     i.ins_deel_verwijder IS NULL
+                   AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                   AND i.ins_deel_module = 'INS'
+                   AND i.ins_deel_parent_key IS NULL
+                   AND i.ins_alg_ruimte_key = c.prs_contactpersoon_key
+                   AND i.ins_alg_ruimte_type = 'C'
+            UNION
+            SELECT i.ins_deel_key,
+                   i.ins_deel_omschrijving,
+                   i.ins_srtdeel_key,
+                   i.prs_perslid_key_beh,
+                   o.alg_plaatsaanduiding,
+                   i.ins_deel_opmerking,
+                   i.ins_alg_ruimte_type,
+                   re.alg_regio_omschrijving,
+                   di.alg_district_omschrijving,
+                   l.alg_locatie_code         locatie_code,
+                   l.alg_locatie_omschrijving locatie_omschrijving,
+                   l.alg_locatie_plaats       locatie_plaats,
+                   o.alg_gebouw_code,
+                   o.alg_gebouw_omschrijving,
+                   o.alg_terreinsector_code,
+                   o.alg_terreinsector_omschrijving,
+                   o.alg_verdieping_code,
+                   o.alg_ruimte_nr,
+                   o.prs_werkplek_volgnr,
+                   o.prs_werkplek_omschrijving,
+                   rd.res_deel_opmerking,
+                   i.ins_deel_vervaldatum,
+                   NULL                       eigenaar,
+                   NULL                       eigenaar_key,
+                   i.ins_discipline_key,
+                   NULL,
+                   l.alg_locatie_key,
+                   i.ins_deel_actief,
+                   i.ins_deel_aantal,
+                   i.ins_alg_ruimte_key_org,
+                   i.ins_deel_state,
+                   i.ins_deel_statedate
+              FROM ins_deel i,
+                   (SELECT res_deel_key, res_ins_deel_key, res_deel_opmerking res_deel_opmerking
+                      FROM res_deel
+                     WHERE res_deel_verwijder IS NULL) rd,
+                   ins_v_alg_overzicht o,
+                   alg_locatie l,
+                   alg_district di,
+                   alg_regio re
+             WHERE     i.ins_deel_verwijder IS NULL
+                   AND i.ins_deel_key = rd.res_ins_deel_key(+)
+                   AND i.ins_deel_module = 'INS'
+                   AND i.ins_deel_parent_key IS NULL
+                   AND o.alg_onroerendgoed_keys = i.ins_alg_ruimte_key
+                   AND o.alg_onroerendgoed_type = i.ins_alg_ruimte_type
+                   AND i.ins_alg_ruimte_type IN ('T', 'R', 'W')
+                   AND o.alg_locatie_key = i.ins_alg_locatie_key
+                   AND i.ins_alg_locatie_key = l.alg_locatie_key
+                   AND l.alg_district_key = di.alg_district_key
+                   AND di.alg_regio_key = re.alg_regio_key) ii,
+           ins_srtdeel              s,
+           ins_srtgroep             sg,
+           ins_discipline           id,
+           prs_v_perslid_fullnames  pf
+     WHERE     sg.ins_srtgroep_key = s.ins_srtgroep_key
+           AND id.ins_discipline_key = sg.ins_discipline_key
+           AND ii.prs_perslid_key_beh = pf.prs_perslid_key(+)
+           AND s.ins_srtdeel_key = ii.ins_srtdeel_key;
 
 CREATE_VIEW(ins_v_udr_deelmelding, 1)
 AS
@@ -2097,6 +2115,7 @@ SELECT
    d.plaatseigenaartype,
    d.plaatsaanduiding,
    d.eigenaar,
+   d.eigenaar_key,
    d.opmerking,
    d.regio,
    d.district,
@@ -2125,6 +2144,8 @@ SELECT
    d.fclt_3d_locatie_key,
    m.melding_key,
    m.meldingnummer,
+   m.melding_start_key,
+   m.externnummer,
    m.melding_district,
    m.melding_locatiecode,
    m.melding_locatie,
@@ -2145,6 +2166,9 @@ SELECT
    m.afdeling,
    m.afdeling_omschrijving,
    --m.fclt_3d_afdeling_key,
+   m.divisie,
+   m.divisie_omschrijving,
+   --m.fclt_3d_divisie_key,
    m.bedrijf_key,
    m.invoerder,
    m.meldbron,
@@ -2204,7 +2228,7 @@ AS
        CASE
           WHEN skm.ins_srtkenmerk_kenmerktype = 'R' OR skm.ins_srtkenmerk_kenmerktype = 'S'
           THEN
-             fac.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.ins_kenmerkdeel_waarde)
+             flx.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.ins_kenmerkdeel_waarde)
           WHEN skm.ins_srtkenmerk_kenmerktype = 'C' OR skm.ins_srtkenmerk_kenmerktype = 'F'
           THEN
              km.ins_kenmerkdeel_waarde
@@ -2250,6 +2274,7 @@ SELECT d.deel_key,
        d.plaatseigenaartype,
        d.plaatsaanduiding,
        d.eigenaar,
+       d.eigenaar_key,
        d.opmerking,
        d.regio,
        d.district,
@@ -2278,6 +2303,10 @@ SELECT d.deel_key,
        d.fclt_3d_locatie_key,
        idsc.ins_deelsrtcontrole_key,
        idsc.ins_srtcontrole_key,
+       (SELECT cd.ins_discipline_omschrijving
+          FROM ctr_discipline cd, ins_srtcontrole isc
+         WHERE isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+           AND isc.ctr_discipline_key = cd.ins_discipline_key) ctr_discipline_omschrijving,
        (SELECT isc.ins_srtcontrole_omschrijving
           FROM ins_srtcontrole isc
          WHERE isc.ins_srtcontrole_key = idsc.ins_srtcontrole_key) srtcontrole_omschrijving,
@@ -2312,6 +2341,7 @@ SELECT di.deel_key,
        di.plaatseigenaartype,
        di.plaatsaanduiding,
        di.eigenaar,
+       di.eigenaar_key,
        di.opmerking,
        di.regio,
        di.district,

KPI/KPI_INI.SRC

@@ -42,182 +42,207 @@ SELECT 'Trend',      'kpi_v_graph_ond_trend',  4, null, null, null, null, 'FCLT_
 
 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" ]
-      }
-   }
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{
+  "title": "",
+  "seriesDefaults": {
+    "rendererOptions": {
+      "background": "white",
+      "ringColor": "#444",
+      "needleThickness": 7,
+      "hubRadius": 7,
+      "intervalInnerRadius": 25,
+      "intervalOuterRadius": 50,
+      "shadowDepth": 0,
+      "intervalColors": [
+        "#CC0000",
+        "#EE9900",
+        "#77BB00"
+      ]
+    }
+  }
 }'
 WHERE fac_usrgraph_omschrijving = 'Total';
 
 -- onderdeel
-UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
-   animate: true,
-   stackSeries: false,
-   seriesDefaults:{
-      pointLabels: {
-         show: true,
-         edgeTolerance: -100,
-         ypadding: 0
+UPDATE fac_usrgraph SET fac_usrgraph_options = '{
+  "title": "",
+  "animate": true,
+  "stackSeries": false,
+  "seriesDefaults": {
+    "pointLabels": {
+      "show": true,
+      "edgeTolerance": -100,
+      "ypadding": 0
+    }
+  },
+  "series": [
+    {
+      "rendererOptions": {
+        "barWidth": 50,
+        "varyBarColor": true,
+        "shadow": false
       }
-   },
-   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}
+    }
+  ],
+  "axes": {
+    "yaxis": {
+      "min": 0,
+      "max": 100,
+      "ticks": [
+        0,
+        20,
+        40,
+        60,
+        80,
+        100
+      ],
+      "tickOptions": {
+        "enableFontSupport": true,
+        "fontFamily": "Tahoma",
+        "fontSize": "9pt"
       },
-      xaxis: {
-         tickOptions: {
-            enableFontSupport: true,
-            fontFamily: "Tahoma",
-            fontSize: "10pt",
-            showGridline: false
-         }
+      "rendererOptions": {
+        "drawBaseline": false
       }
-   },
-   canvasOverlay: {
-      show: true,
-      objects: [ {
-         horizontalLine: {
-            name: "n070",
-            y: 70,
-            lineWidth: 1,
-            lineCap: "square",
-            color: "rgba(220, 160, 0, 0.5)",
-            shadow: 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
+        "horizontalLine": {
+          "name": "n090",
+          "y": 90,
+          "lineWidth": 1,
+          "lineCap": "square",
+          "color": "rgba(85, 238, 0, 0.5)",
+          "shadow": false
         }
+      }
+    ]
+  },
+  "axesStyles": {
+    "borderWidth": 0,
+    "ticks": {
+      "fontSize": "20pt",
+      "fontFamily": "Tahoma",
+      "textColor": "black"
+    },
+    "label": {
+      "fontFamily": "Tahoma",
+      "textColor": "black"
+    }
+  },
+  "grid": {
+    "backgroundColor": "white",
+    "borderWidth": 0,
+    "gridLineColor": "#eee",
+    "gridLineWidth": 1,
+    "borderColor": "white",
+    "shadow": false
+  }
 }'
 WHERE fac_usrgraph_omschrijving = 'Category';
 
 -- trend
-UPDATE fac_usrgraph SET fac_usrgraph_options = '{  title: "",
-   animate: true,
-   seriesDefaults: {
-      showMarker: false,
-      pointLabels: {
-         show: true
-      }
-   },
-   series: [ {
-      color: "#55acda",
-      shadow: true
-   } ],
-   axes: {
-      yaxis: {
-         tickOptions: {
-            enableFontSupport: true,
-            fontFamily: "Tahoma",
-            fontSize: "9pt"
-         },
-         rendererOptions: { drawBaseline: false }
-      },
-      xaxis: {
-         tickOptions: {
-            enableFontSupport: true,
-            fontFamily: "Tahoma",
-            fontSize: "10pt",
-            showGridline: false
-         }
-      }
-   },
-   axesStyles: {
-      borderWidth: 0,
-      ticks: {
-         fontSize: "20pt",
-         fontFamily: "Tahoma",
-         textColor: "black"
-      },
-      label: {
-         fontFamily: "Tahoma",
-         textColor: "black"
-      }
-   },
-   grid: {
-      backgroundColor: "white",
-      borderWidth: 0,
-      gridLineColor: "#eee",
-      gridLineWidth: 1,
-      borderColor: "white",
-      shadow: false
-   },
-   canvasOverlay: {
-      show: true,
-      objects: [ {
-         horizontalLine: {
-            name: "n070",
-            y: 70,
-            lineWidth: 2,
-            lineCap: "square",
-            color: "rgba(220, 160, 0, 0.5)",
-            shadow: false
-          }
-       },
-       {
-          horizontalLine: {
-             name: "n090",
-             y: 90,
-             lineWidth: 2,
-             lineCap: "square",
-             color: "rgba(85, 238, 0, 0.5)",
-             shadow: false
-          }
-       } ]
+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';
 

MLD/MLD_IND.SRC

@@ -1,9 +1,8 @@
-#ifdef  MLD // 13-03-96 AH
+#ifdef  MLD
 /*
  * $Revision$
  * $Id$
  */
-
 create index mld_i_mld_melding1 on mld_melding(mld_melding_module);
 create index mld_i_mld_melding2 on mld_melding(mld_ins_srtinst_keys);
 create index mld_i_mld_melding3 on mld_melding(mld_meldbron_key);
@@ -39,6 +38,7 @@ create index mld_i_mld_opdr13 on mld_opdr(prs_kostenplaats_key);
 create index mld_i_mld_opdr14 on mld_opdr(mld_opdr_ordernr);
 create index mld_i_mld_opdr15 on mld_opdr(fac_activiteit_key);
 create index mld_i_mld_opdr16 on mld_opdr(cnt_contract_key);
+create index mld_i_mld_opdr17 on mld_opdr(mld_opdr_teverzenden);
 
 create index mld_i_mld_typeopdr1 on mld_typeopdr(mld_typeopdr_module);
 
@@ -46,12 +46,8 @@ create index mld_i_mld_kenmerk1 on mld_kenmerk(mld_srtkenmerk_key);
 create index mld_i_mld_kenmerk2 on mld_kenmerk(mld_stdmelding_key);
 
 create index mld_i_mld_kenmerkmelding1 on mld_kenmerkmelding(mld_melding_key);
-create index mld_i_mld_kenmerkmelding2 on mld_kenmerkmelding(mld_kenmerk_key);
-create index mld_i_mld_kenmerkmelding3 on mld_kenmerkmelding(mld_kenmerkmelding_waarde);
 
 create index mld_i_mld_kenmerkopdr1 on mld_kenmerkopdr(mld_opdr_key);
-create index mld_i_mld_kenmerkopdr2 on mld_kenmerkopdr(mld_kenmerk_key);
-create index mld_i_mld_kenmerkopdr3 on mld_kenmerkopdr(mld_kenmerkopdr_waarde);
 
 CREATE UNIQUE INDEX mld_i_mld_disc_params1 ON mld_disc_params(mld_ins_discipline_key);
 
@@ -63,6 +59,7 @@ CREATE INDEX mld_i_mld_opdr_note1 ON mld_opdr_note(mld_opdr_key);
 CREATE UNIQUE INDEX mld_i_mld_opdruren_kosten1 ON mld_opdruren_kosten(mld_opdr_uren_key, mld_kosten_key);
 CREATE UNIQUE INDEX mld_i_mld_opdr_uren1 ON mld_opdr_uren(mld_opdr_uren_datum, mld_opdr_key, mld_impropdr_key, prs_perslid_key);
 CREATE UNIQUE INDEX mld_i_opdruren_dagkosten1 ON mld_opdruren_dagkosten(prs_perslid_key, mld_opdruren_dagkosten_datum);
+CREATE INDEX mld_i_mld_opdr_uren2 ON mld_opdr_uren(mld_opdr_key);
 
 CREATE UNIQUE INDEX mld_i_mld_dienstpakket ON mld_dienstpakket(mld_stdmelding_key, mld_dienstniveau_key);
 

MLD/MLD_LCL.SRC

@@ -99,6 +99,10 @@ DEFINE_LOCALEITEM(lcl_mld_ingevoerd)
 DEFINE_LOCALEITEM(lcl_mld_ingezien)
 DEFINE_LOCALEITEM(lcl_mld_is_mldbeh_none)
 DEFINE_LOCALEITEM(lcl_mld_is_mldbeh_to)
+DEFINE_LOCALEITEM(lcl_mld_is_mldbhg_none)
+DEFINE_LOCALEITEM(lcl_mld_is_mldbhg_to)
+DEFINE_LOCALEITEM(lcl_mld_is_mldabh_none)
+DEFINE_LOCALEITEM(lcl_mld_is_mldabh_to)
 DEFINE_LOCALEITEM(lcl_mld_kenmerken)
 DEFINE_LOCALEITEM(lcl_mld_kosten)
 DEFINE_LOCALEITEM(lcl_mld_name)
@@ -180,10 +184,19 @@ DEFINE_LOCALEITEM(lcl_search_diff_fields)
 DEFINE_LOCALEITEM(lcl_select_uitvoerende)
 DEFINE_LOCALEITEM(lcl_select_vakgroep)
 DEFINE_LOCALEITEM(lcl_select_stdmelding)
+DEFINE_LOCALEITEM(lcl_select_mld_process_grp)
+DEFINE_LOCALEITEM(lcl_mld_processor)
+DEFINE_LOCALEITEM(lcl_mld_processing_details)
+DEFINE_LOCALEITEM(mld_discipline_srtgroepLOV)
+DEFINE_LOCALEITEM(lcl_default_processing_group)
+DEFINE_LOCALEITEM(mld_processing_group)
+DEFINE_LOCALEITEM(mld_discipline_bhgnotify)
 DEFINE_LOCALEITEM(lcl_mld_is_mldnew)
 DEFINE_LOCALEITEM(lcl_mld_is_mldupd)
 DEFINE_LOCALEITEM(lcl_mld_is_mldafm)
 DEFINE_LOCALEITEM(lcl_mld_is_mldrej)
+DEFINE_LOCALEITEM(lcl_mld_is_mldbhg)
+DEFINE_LOCALEITEM(lcl_mld_is_mldabh)
 DEFINE_LOCALEITEM(lcl_mld_statusfilters)
 DEFINE_LOCALEITEM(lcl_doaction_hint)
 DEFINE_LOCALEITEM(lcl_mld_desirable_enddate)

MLD/MLD_TAB.SRC

@@ -56,13 +56,25 @@ CREATE_TABLE(mld_disc_params, 0)
         NUMBER(1),
     mld_disc_params_frontendprio
         NUMBER(1),
+    mld_disc_params_kanpubliek
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 0
+        NOT NULL,
     mld_disc_params_bonotify
         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_bhgnotify
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 1
+        NOT NULL,
     mld_disc_params_benotify
         NUMBER(1)       -- valid are 0, 1
         DEFAULT 0
         NOT NULL,
+    mld_disc_params_nobnotify
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 1
+        NOT NULL,
     mld_disc_params_offhours
         NUMBER(1)
         DEFAULT 0
@@ -116,10 +128,14 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_smsnw4
         VARCHAR2(15),
     mld_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
-        NUMBER(1)
+        NUMBER(1),
+    mld_disc_params_srtgroep /* &1=Primaire vakgroep, &2=Behandelteam, &4=Primair heeft behandelteams (0, 4 en 6 zijn hiermee dus ongeldige/onlogische waarden) */
+        NUMBER(1) DEFAULT(1) NOT NULL
+        CONSTRAINT mld_c_mld_disc_params_srtgroep CHECK(mld_disc_params_srtgroep IN (1,5,2,3,7)),
+    mld_disc_params_primairbeh
+        NUMBER(1) DEFAULT(1) NOT NULL
 );
 
-
 CREATE_TABLE(mld_oorzaak,0)
 (
     mld_oorzaak_key
@@ -218,9 +234,32 @@ CREATE_TABLE(mld_typeopdr,0)
     mld_typeopdr_sluitmelding
         NUMBER(1) DEFAULT(0)
         CONSTRAINT mld_c_mld_typeopdr_sluitm CHECK(mld_typeopdr_sluitmelding IN (0,1,2)), /*0=niet, 1=vragen, 2=vanzelf*/
+    mld_typeopdr_annuleermelding
+        NUMBER(1) DEFAULT(0) NOT NULL
+        CONSTRAINT mld_c_mld_typeopdr_annulm CHECK(mld_typeopdr_annuleermelding IN (0,1,2)), /*0=niet, 1=vragen, 2=vanzelf*/
     mld_typeopdr_matchtype
         NUMBER(1) DEFAULT(2)
         CONSTRAINT mld_c_mld_typeopdr_match CHECK(mld_typeopdr_matchtype IN (0,1,2,3,4,5,6,7)), /*0=altijd ok, 1=mld_opdr_totaal, 2=termijnen, 3=mld_opdr_uren(per week), 4=geen kosten, 5=aantal x prijs, 6=mld_opdr_uren(totaal),7=max aantal uren */
+    mld_typeopdr_uren
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT ins_c_mld_typeopdr_uren CHECK(mld_typeopdr_uren IN (0, 1, 2, 3, 4, 5)),
+    mld_typeopdr_materiaal
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2)),
+    mld_typeopdr_totaal
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT ins_c_mld_typeopdr_totaal CHECK(mld_typeopdr_totaal IN (0, 1, 2)),
+    mld_typeopdr_factuur
+        NUMBER(1)
+        DEFAULT 3
+        NOT NULL
+        CONSTRAINT ins_c_mld_typeopdr_factuur CHECK(mld_typeopdr_factuur IN (0, 1, 2, 3, 4)),
     mld_typeopdr_afmeldmarge  /* aantal dagen dat afmeldtijdstip vroeger mag zijn dan sysdate */
         NUMBER(2),
     mld_typeopdr_zichtbaarfe  /* of deze opdrachten zichtbaar zijn voor de melders (1) of niet (0/null) */
@@ -250,6 +289,10 @@ CREATE_TABLE(mld_typeopdr,0)
     mld_typeopdr_fvs
         NUMBER(11,2)
         DEFAULT 0,
+    mld_typeopdr_accept
+        NUMBER(1)       /* -- valid are 0, 1 */
+        DEFAULT 1
+        NOT NULL,
     mld_typeopdr_kosten_verplicht  /* bitwise valid are 0, 1, 2 and 4. Opdr kosten verplicht bij (0 = niet verplicht, 1 = save + 2 = afmelden, 4 = afronden) */
         NUMBER(1),
     mld_typeopdr_sequential  /* Strikte sequentiele opdracht afhandeling en/of Hold (BITAND1 is (kan pauzeren en hervatten) en BITAND2 is strikt sequentieel) */
@@ -302,10 +345,22 @@ CREATE_TABLE(mld_stdmelding,0)
         NOT_NULL(mld_stdmelding_upper, mld_c_mld_stdmelding_upper),
     mld_stdmelding_hint
         VARCHAR2(1000),
-    mld_stdmelding_t_accepttijd
+    mld_stdmelding_default_disc
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_discipline_key5 REFERENCES ins_tab_discipline(ins_discipline_key),
+    mld_stdmelding_t_accepttijd /* pr3 */
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmelding_t_accept CHECK(mld_stdmelding_t_accepttijd.tijdsduur >= 0),
-    mld_stdmelding_t_uitvoertijd /* pr3*/
+    mld_stdmelding_t_accept_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmelding_t_accept1 CHECK(mld_stdmelding_t_accept_pr1.tijdsduur >= 0),
+    mld_stdmelding_t_accept_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmelding_t_accept2 CHECK(mld_stdmelding_t_accept_pr2.tijdsduur >= 0),
+    mld_stdmelding_t_accept_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmelding_t_accept4 CHECK(mld_stdmelding_t_accept_pr4.tijdsduur >= 0),
+    mld_stdmelding_t_uitvoertijd /* pr3 */
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd CHECK(mld_stdmelding_t_uitvoertijd.tijdsduur >= 0),
     mld_stdmelding_t_uitvtijd_pr1
@@ -317,7 +372,13 @@ CREATE_TABLE(mld_stdmelding,0)
     mld_stdmelding_t_uitvtijd_pr4
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd4 CHECK(mld_stdmelding_t_uitvtijd_pr4.tijdsduur >= 0),
-    mld_stdmelding_planbaar            -- 1: de einddatum van de melding is FE-aanpasbaar, 2 veld is verborgen
+    mld_stdmelding_planbaar            -- 0: einddatum wordt berekend, 1: de einddatum van de melding is default leeg, 2: veld is verborgen
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    mld_stdmelding_planbaarfe          -- 0: niet in te vullen door FE
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    mld_stdmelding_thirdparty          -- 1: external person can be used in call
         NUMBER(1)
         DEFAULT 0 NOT NULL,
     mld_stdmelding_slabewaken
@@ -337,8 +398,6 @@ CREATE_TABLE(mld_stdmelding,0)
     mld_stdmeldinggroep_key                           -- reference to mld_stdmeldinggroep
         NUMBER(10)
         CONSTRAINT mld_r_mld_stdmeldinggroep_key REFERENCES mld_stdmeldinggroep(mld_stdmeldinggroep_key),
-    ins_srtinst_verplicht -- 1: er moet minstens een object worden aangegeven
-        NUMBER(1),
     ins_srtinst_verplichtstatus
         NUMBER(2),
     alg_onrgoed_niveau    -- level of onrgoed of objects to display with new melding and/or required level
@@ -346,11 +405,11 @@ CREATE_TABLE(mld_stdmelding,0)
         CONSTRAINT mld_c_alg_onrgoed_niveau CHECK (alg_onrgoed_niveau IN ('L','G','V','R')),
     alg_onrgoed_obj_niveau    -- level of onrgoed which should be selected before chosing objects
         VARCHAR2(1)
-        CONSTRAINT mld_c_alg_onrgoed_objniveau CHECK (alg_onrgoed_obj_niveau IN ('L','G','V','R')),
+        CONSTRAINT mld_c_alg_onrgoed_obj_niveau CHECK (alg_onrgoed_obj_niveau IN ('A','L','G','V','R')),
     alg_org_obj_niveau    -- level of organisation from which objects can be chosen (-1=alle, 0=bedrijf, ...., 9=geen)
         NUMBER(1)
-        DEFAULT 9
-        CONSTRAINT mld_c_alg_org_objniveau CHECK (alg_org_obj_niveau IN (-1,0,1,2,3,4,5,9)),
+        DEFAULT -1
+        CONSTRAINT mld_c_alg_org_objniveau CHECK (alg_org_obj_niveau IN (-1,0,1,2,3,4,5,8)),
     mld_stdmelding_freetext  -- 0:geen omschrijving, 1:optionele omschrijving, 2:verplichte omschrijving
         NUMBER(1)
         DEFAULT 1,
@@ -395,6 +454,8 @@ CREATE_TABLE(mld_stdmelding,0)
         CONSTRAINT mld_r_bes_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key),
     mld_stdmelding_image
         VARCHAR2(255 CHAR),
+    mld_stdmelding_color
+        VARCHAR2 (60 CHAR),
     mld_stdmelding_vervaldatum
         DATE,
     mld_stdmelding_aanmaak
@@ -425,10 +486,24 @@ CREATE_TABLE(mld_stdmelding,0)
         NUMBER(1)
         DEFAULT 0
         NOT NULL,
+    mld_stdmelding_code
+        VARCHAR2(60)
+        CONSTRAINT mld_u_mld_stdmelding_code UNIQUE,
+    mld_stdmelding_externnr
+        VARCHAR2(256),
+    mld_stdmelding_externsyncdate
+        DATE,
+-- in CAD_TAB.SRC:
+--    cad_thema_key
+--        NUMBER(10)
+--        CONSTRAINT mld_r_cad_thema_key1 REFERENCES cad_thema(cad_thema_key),
     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_accept_pr1  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accept_pr2  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accept_pr4  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);
@@ -627,7 +702,13 @@ CREATE_TABLE(mld_workflowstep, 0)
   mld_workflowstep_jointype
       NUMBER(2) -- 0 = AND, 1 = (X)OR, 2 = SYNC
       DEFAULT 0
-      NOT_NULL(mld_workflowstep_jointype, mld_c_mld_wfstep_jointype)
+      NOT_NULL(mld_workflowstep_jointype, mld_c_mld_wfstep_jointype),
+  mld_workflowstep_eindtype
+      NUMBER(2) -- 0 = sla van stdmelding, 1 = max einddatum van rootmelding
+      DEFAULT 0
+      NOT_NULL(mld_workflowstep_eindtype, mld_c_mld_workflowstep_eindtyp),
+  mld_workflowstep_attachments NUMBER(3)
+      DEFAULT 1 NOT NULL
 );
 
 
@@ -692,6 +773,12 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_behandelaar_key
         NUMBER(10)
         CONSTRAINT mld_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key),
+    mld_melding_behandelaar2_key
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_perslid_key12 REFERENCES prs_perslid(prs_perslid_key),
+    mld_ins_discipline_key
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_discipline_key4 REFERENCES ins_tab_discipline(ins_discipline_key),
     mld_stdmelding_key
         NUMBER(10)
         NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key)
@@ -703,6 +790,8 @@ CREATE_TABLE(mld_melding,0)
         MLD_T_UITVOERTIJD,
     mld_melding_einddatum  -- geplande einddatum, trigger vult eventueel
         DATE,
+    mld_melding_actiedatum  -- optionele datum voor volgende actie
+        DATE,
     mld_melding_t_respijt
         MLD_T_UITVOERTIJD,  -- tijdsduur die van de doorlooptijd afgetrokken wordt
     mld_melding_indult
@@ -737,13 +826,16 @@ CREATE_TABLE(mld_melding,0)
     prs_perslid_key
         NUMBER(10)
         CONSTRAINT mld_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key),
+    prs_afdeling_key
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_afdeling_key REFERENCES prs_afdeling(prs_afdeling_key),
     prs_perslid_key_voor
         NUMBER(10)
         CONSTRAINT mld_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
         CONSTRAINT mld_c_prs_perslid_key_voor CHECK(prs_perslid_key_voor IS NOT NULL),
     mld_melding_status
         NUMBER(10)
-        CONSTRAINT mld_c_mld_status1 CHECK(mld_melding_status IN (0,1,2,3,4,5,6,7,99)),
+        CONSTRAINT mld_c_mld_status1 CHECK(mld_melding_status IN (0,1,2,4,5,6,7,99)),
     mld_adres_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_adres_key1 REFERENCES mld_adres(mld_adres_key),
@@ -767,12 +859,18 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_kto_verstuurd -- Is er een kto uitnodiging verstuurd, zo ja registreer datum
         DATE,
     mld_melding_externnr    /* voor koppelingen met externe systemen */
-        VARCHAR2(30),
+        VARCHAR2(1000),
+    mld_melding_externsyncdate    /* voor koppelingen met externe systemen */
+        DATE,
     mld_melding_flag
         NUMBER(1),
-    mld_melding_actiecode
+    mld_melding_publiek
         NUMBER(1)
-        DEFAULT 1 /* actie bij 1=behandelaar, 2=melder */
+        DEFAULT 0      /* 0=niet publiek, 1=publiek, anderen met gelijkwaardige MLDUSE hebben readrecht hierop */
+        NOT NULL,
+    mld_melding_actiecode
+        NUMBER(3)
+        DEFAULT 1 /* actie bij +1=behandelaar, +2=melder, +128 attentie */
         NOT NULL,
     mld_melding_satisfaction
         NUMBER(2),
@@ -788,8 +886,27 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_locked_user_key
       NUMBER(10),
     mld_melding_locked_date
-      DATE
+      DATE,
+    mld_melding_naam_ext
+      VARCHAR2(60),
+    mld_melding_email_ext
+      VARCHAR2(100),
+    mld_melding_tel_ext
+      VARCHAR2(15),
+    mld_melding_dwgx
+        NUMBER(16,3),
+    mld_melding_dwgy
+        NUMBER(16,3),
+    mld_melding_dwgz
+        NUMBER(16,3),
+    mld_melding_x
+        NUMBER(16,6),
+    mld_melding_y
+        NUMBER(16,6),
+    mld_melding_z
+        NUMBER(16,6)
 );
+
 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);
@@ -852,8 +969,7 @@ CREATE_TABLE(mld_opdr,0)
         CONSTRAINT mld_c_mld_opdr_uren CHECK(mld_opdr_uren >= 0),
     mld_opdr_materiaal
         NUMBER(8,2)
-        DEFAULT 0
-        CONSTRAINT mld_c_mld_opdr_materiaal CHECK(mld_opdr_materiaal >= 0),
+        DEFAULT 0,
     mld_opdr_kosten       /* excl BTW */
         NUMBER(12,2)
         DEFAULT 0,
@@ -879,7 +995,11 @@ CREATE_TABLE(mld_opdr,0)
     mld_opdr_teverzenden
         NUMBER(1)
         CONSTRAINT mld_c_mld_opdr_teverz CHECK(mld_opdr_teverzenden IS NULL
-                                             OR mld_opdr_teverzenden = 1),
+                                             OR mld_opdr_teverzenden = 1
+                                             OR mld_opdr_teverzenden = 2),  /* NULL=niet verzenden, 1=verzende bij status 4 en 5, 2=altijd verzenden */
+    mld_opdr_teverzenden_datum
+        DATE
+        DEFAULT NULLDATUM,
     mld_opdr_verzonden
         DATE,
     mld_opdr_bedrijfopdr_volgnr
@@ -893,7 +1013,7 @@ CREATE_TABLE(mld_opdr,0)
         NUMBER(10)
         CONSTRAINT mld_r_prs_contactpersoon_key REFERENCES prs_contactpersoon(prs_contactpersoon_key) ON DELETE SET NULL,
     mld_opdr_opmerking_fiat
-        VARCHAR2(1024),
+        VARCHAR2(4000),
     fac_activiteit_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_activiteit2 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
@@ -932,10 +1052,17 @@ CREATE_TABLE(mld_opdr,0)
         NUMBER(1)
         DEFAULT (0)
         CONSTRAINT mld_c_mld_opdr_meerwerk CHECK(mld_opdr_meerwerk IN (0, 1)),
+    mld_opdr_externnr    /* voor koppelingen met externe systemen */
+        VARCHAR2(1000),
+    mld_opdr_externsyncdate    /* voor koppelingen met externe systemen */
+        DATE,
     mld_opdr_laatstgezien
         DATE
         DEFAULT SYSDATE
-        NOT NULL
+        NOT NULL,
+    mld_opdr_parent_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key)
 );
 
 CREATE_TABLE(mld_vrije_dagen, 0)
@@ -956,6 +1083,7 @@ CREATE_TABLE(mld_melding_object, 0)
         CONSTRAINT mld_k_mld_object_key PRIMARY KEY,
     mld_melding_key
         NUMBER(10)
+        CONSTRAINT mld_r_mld_melding_key5 REFERENCES mld_melding(mld_melding_key) ON DELETE CASCADE
         NOT_NULL(mld_melding_key, mld_c_mld_melding_key),
     ins_deel_key
         NUMBER(10)
@@ -1003,10 +1131,13 @@ CREATE_TABLE(mld_srtkenmerk, 0)
 ,  mld_srtkenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
+,  mld_srtkenmerk_code
+      VARCHAR2(60)
+      CONSTRAINT mld_u_mld_srtkenmerk_code UNIQUE
 ,  CONSTRAINT mld_c_mld_srtkenmerk_omschr    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_srtkenmerk_omschrijving    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_u_mld_srtkenmerk_upper    UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
-,  CONSTRAINT mld_c_mld_srtkenmerk_kenmtype  CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+,  CONSTRAINT mld_c_mld_srtkenmerk_kenmtype  CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT mld_c_mld_srtkenmerk_lengte    CHECK(mld_srtkenmerk_lengte >= 1
                                                AND mld_srtkenmerk_lengte <= 4000)
 ,  CONSTRAINT mld_c_mld_srtkenmerk_max_min   CHECK(mld_srtkenmerk_nmax >= mld_srtkenmerk_nmin)
@@ -1025,8 +1156,10 @@ CREATE_TABLE(mld_kenmerk, 0)
       NUMBER(10)
 ,  mld_typeopdr_key
       NUMBER(10)
-,  mld_kenmerk_niveau
+,  mld_kenmerk_niveau  -- T=srTdiscipline, D=Discipline, S=Stdmelding, O=Opdrachttype, A=Alle meldingen en P=alle oPdrachten.
       VARCHAR2(1)
+,  mld_kenmerk_omschrijving
+      VARCHAR2(50)  /* optionele overrule van srtkenmerk_omschrijving */
 ,  mld_kenmerk_verplicht
       NUMBER(1)
 ,  mld_kenmerk_groep
@@ -1037,8 +1170,6 @@ CREATE_TABLE(mld_kenmerk, 0)
 ,  mld_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
-,  mld_kenmerk_locatiekolom
-      VARCHAR2(30)
 ,  mld_kenmerk_uniek
       NUMBER(1)
 ,  mld_kenmerk_regexp
@@ -1050,20 +1181,37 @@ CREATE_TABLE(mld_kenmerk, 0)
       DEFAULT SYSDATE
 ,  mld_kenmerk_default
       VARCHAR2(4000)
+,  mld_kenmerk_show_expr
+      VARCHAR2(4000)
 ,  mld_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
 ,  mld_kenmerk_verplicht_status
       NUMBER(2)
-,  CONSTRAINT mld_r_mld_srtkenmerk_keys       CHECK((mld_typeopdr_key IS NULL AND mld_stdmelding_key IS NOT NULL)
-                                                 OR (mld_typeopdr_key IS NOT NULL AND mld_stdmelding_key IS NULL))
+,   mld_kenmerk_obligation_fill  /* 0=Altijd in te vullen, 1=Alleen invulbaar bij verplichting */
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+,  mld_kenmerk_onderbreken -- 0=Nee (default), 1=Ja, 2=Ja, wissen bij hervatten.
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+,  mld_kenmerk_code
+      VARCHAR2(60)
+      CONSTRAINT mld_u_mld_kenmerk_code UNIQUE
+,  mld_kenmerk_wissen
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+//,  CONSTRAINT mld_r_mld_srtkenmerk_keys       CHECK((mld_typeopdr_key IS NULL AND mld_stdmelding_key IS NOT NULL)
+//                                                 OR (mld_typeopdr_key IS NOT NULL AND mld_stdmelding_key IS NULL))
 ,  CONSTRAINT mld_r_mld_srtkenmerk_key2 FOREIGN KEY(mld_srtkenmerk_key) REFERENCES mld_srtkenmerk(mld_srtkenmerk_key)
 ,  CONSTRAINT mld_c_mld_kenmerk_niveau1       CHECK(mld_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT mld_c_mld_kenmerk_niveau2       CHECK(mld_kenmerk_niveau IN ('T','D','S','O'))
+,  CONSTRAINT mld_c_mld_kenmerk_niveau2       CHECK(mld_kenmerk_niveau IN ('T','D','S','O','A','P'))
 ,  CONSTRAINT mld_c_mld_kenmerk_toonbaar      CHECK(mld_kenmerk_toonbaar IS NULL
                                                  OR mld_kenmerk_toonbaar = 1)
 ,  CONSTRAINT mld_c_mld_kenmerk_aanmaak       CHECK(mld_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT mld_u_mld_kenmerk              UNIQUE(mld_srtkenmerk_key, mld_stdmelding_key, mld_typeopdr_key, mld_kenmerk_niveau, mld_kenmerk_groep, mld_kenmerk_verwijder)
+,  CONSTRAINT mld_u_mld_kenmerk              UNIQUE(mld_srtkenmerk_key, mld_stdmelding_key, mld_typeopdr_key, mld_kenmerk_niveau, mld_kenmerk_omschrijving, mld_kenmerk_groep, mld_kenmerk_verwijder)
 ,  CONSTRAINT mld_r_mld_srtkenmerk_key3 FOREIGN KEY(mld_typeopdr_key) REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE
 );
 
@@ -1166,7 +1314,9 @@ CREATE_TABLE(mld_melding_note, 0)
    mld_melding_note_key             NUMBER (10) PRIMARY KEY,
    mld_melding_key                  NUMBER (10) NOT NULL REFERENCES mld_melding (mld_melding_key) ON DELETE CASCADE,
    mld_melding_note_aanmaak         DATE        DEFAULT SYSDATE,
+   mld_melding_note_wijzigdatum     DATE,
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
+   fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
    mld_melding_note_omschrijving    VARCHAR2 (4000 CHAR),
    mld_melding_note_flag            NUMBER (2) DEFAULT 0
 );
@@ -1176,7 +1326,9 @@ CREATE_TABLE(mld_opdr_note, 0)
    mld_opdr_note_key                NUMBER (10) PRIMARY KEY,
    mld_opdr_key                     NUMBER (10) NOT NULL REFERENCES mld_opdr (mld_opdr_key) ON DELETE CASCADE,
    mld_opdr_note_aanmaak            DATE        DEFAULT SYSDATE,
+   mld_opdr_note_wijzigdatum        DATE,
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
+   fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
    mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR)
 );
 
@@ -1205,7 +1357,7 @@ CREATE_TABLE(mld_opdr_uren, 0)
     mld_opdr_uren_datum
         DATE NOT NULL,
     mld_opdr_key
-        NUMBER(10) CONSTRAINT mld_r_mld_opdr_key1 REFERENCES mld_opdr(mld_opdr_key),
+        NUMBER(10) CONSTRAINT mld_r_mld_opdr_key1 REFERENCES mld_opdr(mld_opdr_key) ON DELETE CASCADE,
     mld_impropdr_key
         NUMBER(10) CONSTRAINT mld_r_mld_impropdr_key1 REFERENCES mld_impropdr(mld_impropdr_key),
     prs_perslid_key
@@ -1309,7 +1461,7 @@ CREATE_TABLE(mld_opdr_uitvoeren, 0)
     mld_opdr_key
         NUMBER(10)
         NOT_NULL(mld_opdr_key, mld_c_mld_opdr_key)
-        CONSTRAINT mld_r_mld_opdr_key2 REFERENCES mld_opdr(mld_opdr_key),
+        CONSTRAINT mld_r_mld_opdr_key2 REFERENCES mld_opdr(mld_opdr_key) ON DELETE CASCADE,
     mld_opdr_uitvoeren_van
         NUMBER(4)
         NOT_NULL(mld_opdr_uitvoeren_van, mld_c_opdr_inzetbaar_van)
@@ -1333,7 +1485,7 @@ CREATE_TABLE(mld_opdr_materiaal, 0)
     mld_opdr_key
         NUMBER(10)
         NOT_NULL(mld_opdr_key, mld_c_mld_opdr_key2)
-        CONSTRAINT mld_r_mld_opdr_key3 REFERENCES mld_opdr(mld_opdr_key),
+        CONSTRAINT mld_r_mld_opdr_key3 REFERENCES mld_opdr(mld_opdr_key) ON DELETE CASCADE,
     fac_usrdata_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_usrdata_key REFERENCES fac_usrdata(fac_usrdata_key),
@@ -1345,7 +1497,7 @@ CREATE_TABLE(mld_opdr_materiaal, 0)
     mld_opdr_materiaal_eenheid
         VARCHAR2(30),
     mld_opdr_materiaal_prijs
-       NUMBER(9,2)
+       NUMBER(15,7)
        CONSTRAINT mld_c_mld_opdr_mat_prijs CHECK((mld_opdr_materiaal_prijs >= 0) or (mld_opdr_materiaal_prijs IS NULL)),
 /* in fin_tab.src:
     fin_btwtabelwaarde_key
@@ -1360,12 +1512,20 @@ CREATE_TABLE(mld_opdr_materiaal, 0)
         VARCHAR2(4000),
     mld_opdr_materiaal_groep
         VARCHAR2(60),
+    mld_opdr_materiaal_id
+        NUMBER(10),
     mld_opdr_materiaal_extra1
         VARCHAR2(60),
     mld_opdr_materiaal_extra2
         VARCHAR2(60),
     mld_opdr_materiaal_extra3
         VARCHAR2(4000),
+    mld_opdr_materiaal_extra4
+        VARCHAR2(4000),
+    mld_opdr_materiaal_externnr
+        VARCHAR2(256),
+    mld_opdr_materiaal_extsyncdate
+        DATE,
     CONSTRAINT mld_c_mld_opdr_mat_omschr CHECK((mld_opdr_materiaal_omschr IS NULL AND fac_usrdata_key IS NOT NULL) OR (mld_opdr_materiaal_omschr IS NOT NULL AND fac_usrdata_key IS NULL))
 );
 
@@ -1378,7 +1538,7 @@ CREATE_TABLE(mld_afmeldtekst, 0)
         VARCHAR2(60)
         NOT_NULL(mld_afmeldtekst_naam, mld_c_afmeldtekst_naam),
     mld_afmeldtekst_omschrijving
-        VARCHAR2(1000)
+        VARCHAR2(4000)
         NOT_NULL(mld_afmeldtekst_omschrijving, mld_c_mld_afmeldtekst_omschr),
     mld_stdmelding_key
         NUMBER(10)

MLD/MLD_TRI.SRC

@@ -87,6 +87,9 @@ FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(mld_stdmelding_key,mld_s_mld_stdmelding_key);
     UPDATE_UPPER(mld_stdmelding_omschrijving,mld_stdmelding_upper,mld_stdmelding);
+    UPDATE_UPPER(mld_stdmelding_code,mld_stdmelding_code,mld_stdmelding);
+    IF :new.mld_stdmelding_planbaar = 1 THEN :new.mld_stdmelding_planbaarfe := 1; END IF;
+    IF :new.mld_stdmelding_planbaar = 2 THEN :new.mld_stdmelding_planbaarfe := 0; END IF;
     IF :new.mld_ins_discipline_key <> :old.mld_ins_discipline_key
     THEN
         -- is omhangen, dus afhankelijken laten volgen
@@ -118,6 +121,13 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(mld_typeopdr)
+AUDIT_VALUE(mld_typeopdr, mld_typeopdr_gvs)
+AUDIT_VALUE(mld_typeopdr, mld_typeopdr_fvs)
+AUDIT_VALUE(mld_typeopdr, mld_typeopdr_kosten)
+AUDIT_VALUE(mld_typeopdr, mld_typeopdr_factuur)
+AUDIT_END()
+
 CREATE_TRIGGER(mld_t_mld_typeopdr_B_IU)
 BEFORE INSERT OR UPDATE ON mld_typeopdr
 FOR EACH ROW
@@ -164,22 +174,24 @@ BEGIN
     IF    :new.mld_melding_acceptdatum_std IS NULL
        OR UPDATING ('mld_melding_datum')
        OR UPDATING ('mld_stdmelding_key')
+       OR UPDATING ('mld_melding_spoed')
     THEN
         :new.mld_melding_acceptdatum_std :=
-            mld.getacceptdatum (:new.mld_melding_datum, :new.mld_stdmelding_key, :new.mld_alg_onroerendgoed_keys);
+            mld.getacceptdatum (:new.mld_melding_datum, :new.mld_stdmelding_key, :new.mld_alg_onroerendgoed_keys, :new.mld_melding_spoed);
     END IF;
 
     -- Als prs_perslid_key_voor geen waarde heeft dan gelijk aan prs_perslid_key.
     -- en afhankelijk van de setting ook gelijkhouden.
     IF :new.prs_perslid_key_voor IS NULL
        OR (:new.prs_perslid_key <> :old.prs_perslid_key
-           AND fac.getSetting('mld_allow_for_others') <> 1)
+           AND fac.getSetting('mld_allow_for_others') < 1)
     THEN
       :new.prs_perslid_key_voor := :new.prs_perslid_key;
     END IF;
 
     DECLARE
-        l_planbaar     mld_stdmelding.mld_stdmelding_planbaar%TYPE;
+        l_planbaar             mld_stdmelding.mld_stdmelding_planbaar%TYPE;
+        l_default_t_accepttijd mld_stdmelding.mld_stdmelding_t_accepttijd%TYPE;
     BEGIN
         IF :new.mld_melding_einddatum_std IS NULL
            OR UPDATING ('mld_melding_datum')
@@ -200,13 +212,24 @@ BEGIN
                                      :new.mld_melding_spoed,
                                      :new.mld_alg_onroerendgoed_keys,
                                      mld.getlowestobjectuitvoer(:new.mld_melding_key)),
-                   mld_stdmelding_t_accepttijd,
+                    DECODE (:new.mld_melding_spoed,
+                      1, mld_stdmelding_t_accept_pr1,
+                      2, mld_stdmelding_t_accept_pr2,
+                      3, mld_stdmelding_t_accepttijd,
+                      4, mld_stdmelding_t_accept_pr4,
+                      mld_stdmelding_t_accepttijd),
+                      mld_stdmelding_t_accepttijd,
                    mld_stdmelding_planbaar
               INTO :new.mld_melding_t_uitvoertijd,
                    :new.mld_melding_t_accepttijd,
+                   l_default_t_accepttijd,
                    l_planbaar
               FROM mld_stdmelding msm
              WHERE msm.mld_stdmelding_key = :new.mld_stdmelding_key;
+            IF :new.mld_melding_t_accepttijd.tijdsduur IS NULL
+            THEN
+                :new.mld_melding_t_accepttijd := l_default_t_accepttijd;
+            END IF;
             -- Alleen aanpassen aan de SLA indien niet meegegeven en mogelijk gewijzigd (!)
             IF (UPDATING AND NOT UPDATING('mld_melding_einddatum')
                 AND (:old.mld_melding_einddatum_std IS NULL
@@ -341,6 +364,7 @@ FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(mld_srtkenmerk_key, mld_s_mld_srtkenmerk_key);
   UPDATE_UPPER(mld_srtkenmerk_omschrijving, mld_srtkenmerk_upper,mld_srtkenmerk);
+  UPDATE_UPPER(mld_srtkenmerk_code, mld_srtkenmerk_code,mld_srtkenmerk);
   UPDATE_AANMAAKDATUM(mld_srtkenmerk, mld_srtkenmerk_aanmaak);
   IF (:new.mld_srtkenmerk_verwijder IS NOT NULL AND :old.mld_srtkenmerk_verwijder IS NULL AND
     BITAND(:new.mld_srtkenmerk_systeem, 1) = 1)
@@ -416,6 +440,7 @@ FOR EACH ROW
 BEGIN
    -- FSN#13902: we tolereren het achteraf verplicht maken
   UPDATE_PRIMARY_KEY(mld_kenmerk_key, mld_s_mld_kenmerk_key);
+  UPDATE_UPPER(mld_kenmerk_code,mld_kenmerk_code,mld_kenmerk);
   UPDATE_AANMAAKDATUM(mld_kenmerk, mld_kenmerk_aanmaak);
 END;
 /
@@ -452,7 +477,7 @@ BEGIN
     BEGIN
       KenmerkMeldingWaarde := :new.mld_kenmerkmelding_waarde;
       --
-      SELECT MLD_SK.mld_srtkenmerk_omschrijving
+      SELECT COALESCE(MLD_K.mld_kenmerk_omschrijving, MLD_SK.mld_srtkenmerk_omschrijving)
       ,      MLD_SK.mld_srtkenmerk_kenmerktype
       ,      MLD_SK.mld_srtkenmerk_lengte
       ,      MLD_SK.mld_srtkenmerk_dec
@@ -573,7 +598,7 @@ BEGIN
     BEGIN
       KenmerkOpdrWaarde := :new.mld_kenmerkopdr_waarde;
       --
-      SELECT MLD_SK.mld_srtkenmerk_omschrijving
+      SELECT COALESCE(MLD_K.mld_kenmerk_omschrijving, MLD_SK.mld_srtkenmerk_omschrijving)
       ,      MLD_SK.mld_srtkenmerk_kenmerktype
       ,      MLD_SK.mld_srtkenmerk_lengte
       ,      MLD_SK.mld_srtkenmerk_dec
@@ -709,6 +734,28 @@ BEGIN
 END;
 /
 
+CREATE OR REPLACE TRIGGER mld_t_mld_melding_note_b_u
+BEFORE INSERT OR UPDATE ON mld_melding_note
+FOR EACH ROW
+BEGIN
+    IF :new.mld_melding_note_omschrijving <> :old.mld_melding_note_omschrijving  OR :old.mld_melding_note_omschrijving IS NULL
+    THEN
+      :new.mld_melding_note_wijzigdatum := SYSDATE;
+    END IF;
+END;
+/
+
+CREATE OR REPLACE TRIGGER mld_t_mld_opdr_note_B_U
+BEFORE INSERT OR UPDATE ON mld_opdr_note
+FOR EACH ROW
+BEGIN
+    IF :new.mld_opdr_note_omschrijving <> :old.mld_opdr_note_omschrijving OR :old.mld_opdr_note_omschrijving IS NULL
+    THEN
+        :new.mld_opdr_note_wijzigdatum := SYSDATE;
+    END IF;
+END;
+/
+
 CREATE_TRIGGER(mld_t_mld_opdr_note_b_iu)
 BEFORE INSERT OR UPDATE ON mld_opdr_note
 FOR EACH ROW

MLD/MLD_VIE.SRC

@@ -251,10 +251,10 @@ AS
                                                                                                     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,
+                    WHERE k.prs_kostenplaats_key = COALESCE(o.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,
+                    WHERE k.prs_kostenplaats_key = COALESCE(o.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,
@@ -513,7 +513,10 @@ CREATE_VIEW(mld_v_rap_stdmelding, 0)
    melding_key,
    volgnummer,
    meldingsgroep,
-   acceptatietijd,
+   acceptatietijd,  /* _normaal zou logisch zijn, maar incompatible */
+   acceptatietijd_laag,
+   acceptatietijd_hoog,
+   acceptatietijd_kritisch,
    uitvoertijd_normaal,
    uitvoertijd_laag,
    uitvoertijd_hoog,
@@ -572,6 +575,9 @@ AS
           mld_stdmelding_volgnr volgnummer,
           mld_stdmeldinggroep_naam meldingsgroep,
           std.mld_stdmelding_t_accepttijd.tijdsduur||DECODE(std.mld_stdmelding_t_accepttijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') acceptatietijd,
+          std.mld_stdmelding_t_accept_pr4.tijdsduur||DECODE(std.mld_stdmelding_t_accepttijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') acceptatietijd_laag,
+          std.mld_stdmelding_t_accept_pr2.tijdsduur||DECODE(std.mld_stdmelding_t_accepttijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') acceptatietijd_hoog,
+          std.mld_stdmelding_t_accept_pr1.tijdsduur||DECODE(std.mld_stdmelding_t_accepttijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') acceptatietijd_kritisch,
           std.mld_stdmelding_t_uitvoertijd.tijdsduur||DECODE(std.mld_stdmelding_t_uitvoertijd.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_normaal,
           std.mld_stdmelding_t_uitvtijd_pr4.tijdsduur||DECODE(std.mld_stdmelding_t_uitvtijd_pr4.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_laag,
           std.mld_stdmelding_t_uitvtijd_pr2.tijdsduur||DECODE(std.mld_stdmelding_t_uitvtijd_pr2.eenheid, 'U', ' Uren', 'D', ' Dagen', '') uitvoertijd_hoog,
@@ -663,42 +669,48 @@ CREATE_VIEW(mld_v_rap_expimp_afmtxt, 0)
    fclt_x_discipline_key,
    fclt_x_stdmelding_key,
    discipline_key,
-   stdmelding_key
+   stdmelding_key,
+   afmeldtekstusefor
 )
 AS
-   SELECT t.mld_afmeldtekst_naam,
-          t.mld_afmeldtekst_omschrijving,
-             md.ins_discipline_omschrijving
+   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
+          || ']'
+        , 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 (
+          || ']'
+        , sm.mld_ins_discipline_key
+        , t.mld_stdmelding_key
+        , mld_afmeldtekst_usefor
+     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
+   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
+             || ']')
+        , NULL
+        , md.ins_discipline_key
+        , NULL
+        , mld_afmeldtekst_usefor
+     FROM mld_afmeldtekst t
+        , mld_discipline md
     WHERE t.mld_stdmelding_key IS NULL
-          AND t.mld_ins_discipline_key = md.ins_discipline_key(+);
+      AND t.mld_ins_discipline_key = md.ins_discipline_key(+);
 
 ---- KTO views + rapportages
 CREATE_VIEW(mld_v_kto_vragen, 0)
@@ -1163,6 +1175,8 @@ CREATE_VIEW(mld_v_udr_melding, 1)
 (
    melding_key,
    meldingnummer,
+   melding_start_key,
+   externnummer,
    melding_regio,
    melding_district,
    melding_locatiecode,
@@ -1181,9 +1195,13 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    kostenplaats_oms,
    melder,
    melder_key,
+   melder_email,
    afdeling,
    afdeling_omschrijving,
    fclt_3d_afdeling_key,
+   divisie,
+   divisie_omschrijving,
+   fclt_3d_divisie_key,
    bedrijf_key,
    invoerder,
    meldbron,
@@ -1195,6 +1213,10 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    behandelaar,
    behandelaar_key,
    subproductgroepgroep,
+   fclt_3d_discipline2_key,
+   actieve_behandelgroep,
+   actieve_behandelaar_key,
+   actieve_behandelaar,
    melding_status,
    sla_nvt,
    sla_werkdgn,
@@ -1206,6 +1228,7 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    plan_uitvoertijd_sla,
    melding_datum,
    melding_einddatum,
+   melding_einddatum_std,
    melding_acceptdatum,
    melding_afgemeld,
    melding_accepted,
@@ -1219,6 +1242,7 @@ CREATE_VIEW(mld_v_udr_melding, 1)
    rating,
    rating_opmerking,
    bolletje,
+   actiecode,
    accept_sla_dagen,
    accept_sla_uren,
    uitvoering_sla_dagen,
@@ -1233,6 +1257,8 @@ CREATE_VIEW(mld_v_udr_melding, 1)
 AS
    SELECT mld_melding_key,
           meldingnummer,
+          mld_melding_start_key,
+          mld_melding_externnr,
           alg_regio_omschrijving,
           alg_district_omschrijving,
           locatie,
@@ -1251,20 +1277,28 @@ AS
           kostenplaats_oms,
           melder,
           prs_perslid_key,
+          prs_perslid_email,
           afdeling,
           afdeling_omschrijving,
           afdeling_key,
+          divisie,
+          divisie_omschrijving,
+          divisie_key,
           prs_bedrijf_key,
           invoerder,
           meldbron,
           soortmelding,
-          ins_discipline_key,
+          stdm_ins_discipline_key,
           productgroep,
           subproductgroep,
           behandelgroep,
           behandelaar,
           behandelaar_key,
           subproductgroepgroep,
+          mld_ins_discipline_key,
+          actieve_behandelgroep,
+          actieve_behandelaar_key,
+          actieve_behandelaar,
           status,
           sla_nvt,
           sla_werkdgn,
@@ -1276,6 +1310,7 @@ AS
           plan_uitvoertijd_sla,
           datum,
           einddatum,
+          einddatum_std,
           acceptdatum,
           afgemeld,
           accepted,
@@ -1291,11 +1326,15 @@ AS
           mld_melding_satisfaction,
           mld_melding_satisfaction_op,
           mld_melding_flag,
+          mld_melding_actiecode,
           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)
+          CAST (
+            DECODE (x.t_doorlooptijd.eenheid,
+                    'U', (acceptdatum - COALESCE (accepted, afgemeld)) * 24,
+                    NULL)
+           AS NUMBER(7,2)
+          )
              accept_sla_uren,
           DECODE (
              x.t_doorlooptijd.eenheid,
@@ -1305,22 +1344,28 @@ AS
              + 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)
+          CAST (
+            DECODE (
+               x.t_doorlooptijd.eenheid,
+               'U',
+               ( (mld.geteinddatum (mld_melding_key) - COALESCE (afgemeld, SYSDATE)) * 24)
+               + COALESCE (sla_respijturen, 0),
+               NULL)
+           AS NUMBER(7,2)
+          )
              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)
+          CAST (
+            DECODE (
+               x.t_doorlooptijd.eenheid,
+               'U',
+               ( (einddatum - COALESCE (afgemeld, SYSDATE)) * 24) + COALESCE (sla_respijtdgn, 0),
+               NULL)
+           AS NUMBER(7,2)
+          )
              afspraak_sla_uren,
           CASE
              WHEN acceptdatum IS NULL
@@ -1376,7 +1421,10 @@ AS
              afspraak_sla_optijd,
              DECODE(invoerder, melder, lcl.l ('lcl_yes'), lcl.l ('lcl_no')) selfservice
      FROM (SELECT m.mld_melding_key,
+                  m.mld_melding_start_key,
+                  m.mld_melding_externnr,
                   m.prs_perslid_key,
+                  mab.prs_perslid_email,
                   sd.ins_srtdiscipline_prefix || m.mld_melding_key meldingnummer,
                   alg_regio_omschrijving,
                   alg_district_omschrijving,
@@ -1419,25 +1467,13 @@ AS
                      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,
+                  mab.afdeling_naam afdeling,
+                  mab.afdeling_omschrijving afdeling_omschrijving,
+                  mab.prs_afdeling_key afdeling_key,
+                  mab.divisie_naam divisie,
+                  mab.divisie_omschrijving,
+                  mab.prs_afdeling_key1 divisie_key,
+                  mab.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))
@@ -1449,7 +1485,7 @@ AS
                   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_key stdm_ins_discipline_key,
                   md.ins_discipline_omschrijving productgroep,
                   s.mld_stdmelding_omschrijving subproductgroep,
                   smg.mld_stdmeldinggroep_naam subproductgroepgroep,
@@ -1459,6 +1495,15 @@ AS
                     WHERE pf.prs_perslid_key = m.mld_melding_behandelaar_key)
                      behandelaar,
                   m.mld_melding_behandelaar_key behandelaar_key,
+                  m.mld_ins_discipline_key mld_ins_discipline_key,
+                  (SELECT md2.ins_discipline_omschrijving
+                     FROM mld_discipline md2
+                    WHERE md2.ins_discipline_key = m.mld_ins_discipline_key) actieve_behandelgroep,
+                  m.mld_melding_behandelaar2_key actieve_behandelaar_key,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = m.mld_melding_behandelaar2_key)
+                     actieve_behandelaar,
                   (SELECT mld_statuses_omschrijving
                      FROM mld_statuses sta
                     WHERE sta.mld_statuses_key = m.mld_melding_status)
@@ -1508,10 +1553,8 @@ AS
                     THEN TO_DATE(NULL)
                     ELSE m.mld_melding_einddatum
                   END einddatum,
-                  mld.getacceptdatum (m.mld_melding_datum,
-                                      m.mld_stdmelding_key,
-                                      og.alg_onroerendgoed_keys)
-                     acceptdatum,
+                  mld_melding_einddatum_std einddatum_std,
+                  mld_melding_acceptdatum_std acceptdatum,
                   COALESCE (mld.getmeldingstatusdate (m.mld_melding_key, 5),
                             mld.getmeldingstatusdate (m.mld_melding_key, 1))
                      afgemeld,
@@ -1525,7 +1568,8 @@ AS
                   m.mld_melding_spoed,
                   m.mld_melding_satisfaction,
                   m.mld_melding_satisfaction_op,
-                  m.mld_melding_flag
+                  m.mld_melding_flag,
+                  mld_melding_actiecode
              FROM mld_melding m,
                   mld_stdmelding s,
                   alg_locatie l,
@@ -1536,7 +1580,27 @@ AS
                   mld_disc_params mdp,
                   mld_behandelgroep mbg,
                   ins_srtdiscipline sd,
-                  mld_stdmeldinggroep smg
+                  mld_stdmeldinggroep smg,
+                  (SELECT mx.mld_melding_key
+                        , div.prs_bedrijf_key
+                        , ab.prs_afdeling_key1
+                        , div.prs_afdeling_naam divisie_naam
+                        , div.prs_afdeling_omschrijving divisie_omschrijving
+                        , ab.prs_afdeling_key
+                        , afd.prs_afdeling_naam afdeling_naam
+                        , afd.prs_afdeling_omschrijving afdeling_omschrijving
+                        , px.prs_perslid_key
+                        , px.prs_perslid_email
+                     FROM mld_melding mx
+                        , prs_perslid px
+                        , prs_v_afdeling_boom ab
+                        , prs_afdeling afd
+                        , prs_afdeling div
+                    WHERE px.prs_perslid_key = mx.prs_perslid_key
+                      AND ab.prs_afdeling_key = coalesce(mx.prs_afdeling_key, px.prs_afdeling_key)
+                      AND ab.prs_afdeling_key = afd.prs_afdeling_key
+                      AND ab.prs_afdeling_key1 = div.prs_afdeling_key
+                  ) mab
             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
@@ -1546,6 +1610,7 @@ AS
                   AND mdp.mld_behandelgroep_key = mbg.mld_behandelgroep_key(+)
                   AND l.alg_district_key = d.alg_district_key(+)
                   AND d.alg_regio_key = r.alg_regio_key(+)
+                  AND m.mld_melding_key = mab.mld_melding_key
                   AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
                   AND m.fac_activiteit_key IS NULL
                   AND m.mld_melding_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
@@ -1591,148 +1656,217 @@ CREATE_VIEW(mld_v_udr_opdracht, 1)
    opdracht_correctie,
    opdracht_materiaal,
    opdracht_uurtarief,
-   opdracht_kosten
+   opdracht_kosten,
+   opdracht_parent_key,
+   opdracht_parent_nummer,
+   opdracht_parent_volgnummer,
+   opdracht_verstrektdatum,
+   opdracht_lev_doorloopdagen,
+   opdracht_lev_doorloopuren
 )
 AS
-   SELECT mld_opdr_key,
-          ins_srtdiscipline_prefix || TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
-          alg_regio_omschrijving,
-          alg_district_omschrijving,
-          locatie,
-          locatie_omschrijving,
-          locatie_plaats,
-          alg_locatie_key,
-          gebouw,
-          gebouw_naam,
-          verdieping,
-          ruimte,
-          ruimte_omschrijving,
-          kostenplaats,
-          kostenplaats_oms,
-          mld_melding_key,
-          opdracht_type,
-          opdracht_volgnummer,
-          opdracht_status,
-          opdracht_duur_gepland,
-          opdracht_datum,
-          opdracht_einddatum,
-          opdracht_plandatum,
-          opdracht_acceptdatum,
-          opdracht_afgemeld,
-          opdracht_doorlooptijd,
-          opdracht_accepttijd,
-          opdracht_omschrijving,
-          opdracht_opmerking,
-          opdracht_uitvoerende,
-          opdracht_uitvoerende_contact,
-          opdracht_behandelaar,
-          opdracht_contract,
-          opdracht_contract_versie,
-          opdracht_contactpersoon,
-          opdracht_uren,
-          opdracht_correctie,
-          opdracht_materiaal,
-          opdracht_uurtarief,
-          opdracht_kosten
-     FROM (SELECT alg_regio_omschrijving,
-                  alg_district_omschrijving,
-                  alg_locatie_code locatie,
-                  alg_locatie_omschrijving locatie_omschrijving,
-                  alg_locatie_plaats locatie_plaats,
-                  l.alg_locatie_key,
-                  og.alg_gebouw_code gebouw,
-                  og.alg_gebouw_naam gebouw_naam,
-                  og.alg_verdieping_code verdieping,
-                  og.alg_ruimte_nr ruimte,
-                  og.alg_ruimte_omschrijving ruimte_omschrijving,
-                  (SELECT k.prs_kostenplaats_nr
-                     FROM prs_kostenplaats k
-                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
-                     kostenplaats,
-                  (SELECT k.prs_kostenplaats_omschrijving
-                     FROM prs_kostenplaats k
-                    WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key)
-                     kostenplaats_oms,
-                  o.mld_opdr_key,
-                  o.mld_melding_key,
-                  top.mld_typeopdr_key,
-                  top.mld_typeopdr_omschrijving opdracht_type,
-                  o.mld_opdr_bedrijfopdr_volgnr opdracht_volgnummer,
-                  (SELECT mld_statusopdr_omschrijving
-                     FROM mld_statusopdr sta
-                    WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key)
-                     opdracht_status,
-                  fac.count_work_days (o.mld_opdr_datumbegin, o.mld_opdr_einddatum)
-                     opdracht_duur_gepland,
-                  o.mld_opdr_datumbegin opdracht_datum,
-                  o.mld_opdr_einddatum opdracht_einddatum,
-                  o.mld_opdr_plandatum opdracht_plandatum,
-                  COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 1)) opdracht_acceptdatum,
-                  mld.getopdrachtstatusdate (o.mld_opdr_key, 6) opdracht_afgemeld,
-                  fac.count_work_days (o.mld_opdr_datumbegin,
-                                       mld.getopdrachtstatusdate (o.mld_opdr_key, 6))
-                     opdracht_doorlooptijd,
-                  COALESCE (fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
-                                                 COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 6))),
-                            fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
-                                          mld.getopdrachtstatusdate (o.mld_opdr_key, 1)))
-                     opdracht_accepttijd,
-                  o.mld_opdr_omschrijving opdracht_omschrijving,
-                  o.mld_opdr_opmerking opdracht_opmerking,
-                  (SELECT naam
-                     FROM mld_v_uitvoerende u
-                    WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys)
-                     opdracht_uitvoerende,
-               (SELECT contact_naam
-                  FROM (SELECT cp.prs_contactpersoon_key,
-                               pf.prs_perslid_naam_full contact_naam
-                          FROM prs_contactpersoon cp,
-                               prs_v_perslid_fullnames_all pf
-                         WHERE cp.prs_perslid_key = pf.prs_perslid_key
-                        UNION ALL
-                        SELECT cp.prs_contactpersoon_key,
-                               cp.prs_contactpersoon_naam
-                          FROM prs_contactpersoon cp,
-                               prs_v_perslid_fullnames_all pf
-                         WHERE cp.prs_perslid_key = pf.prs_perslid_key
-                               AND cp.prs_perslid_key IS NULL) cpn
-                 WHERE cpn.prs_contactpersoon_key = o.prs_contactpersoon_key)
-                  opdracht_uitvoerende_contact,
-                  (SELECT prs_perslid_naam_full
-                     FROM prs_v_perslid_fullnames_all pf
-                    WHERE pf.prs_perslid_key = o.prs_perslid_key) opdracht_behandelaar,
-                  c.cnt_contract_nummer_intern opdracht_contract,
-                  c.cnt_contract_versie opdracht_contract_versie,
-                  o.mld_opdr_contactpersoon opdracht_contactpersoon,
-                  o.mld_opdr_uren opdracht_uren,
-                  o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
-                     opdracht_correctie,
-                  o.mld_opdr_materiaal opdracht_materiaal,
-                  o.mld_opdr_uurloon opdracht_uurtarief,
-                  o.mld_opdr_kosten opdracht_kosten,
-                  sdi.ins_srtdiscipline_prefix
-             FROM alg_locatie l,
-                  alg_district d,
-                  alg_regio r,
-                  alg_v_allonrgoed_gegevens og,
-                  mld_opdr o,
-                  mld_typeopdr top,
-                  mld_melding m,
-                  mld_stdmelding stdm,
-                  ins_tab_discipline di,
-                  ins_srtdiscipline sdi,
-                  cnt_contract c
-            WHERE     m.mld_alg_locatie_key = l.alg_locatie_key(+)
-                  AND l.alg_district_key = d.alg_district_key(+)
-                  AND d.alg_regio_key = r.alg_regio_key(+)
-                  AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
-                  AND o.cnt_contract_key = c.cnt_contract_key(+)
-                  AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
-                  AND stdm.mld_ins_discipline_key = di.ins_discipline_key
-                  AND di.ins_srtdiscipline_key = sdi.ins_srtdiscipline_key
-                  AND o.mld_melding_key = m.mld_melding_key
-                  AND o.mld_typeopdr_key = top.mld_typeopdr_key(+)
-                  AND o.mld_opdr_datumbegin >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')) x;
+          SELECT mld_opdr_key,
+                 ins_srtdiscipline_prefix || TO_CHAR (mld_melding_key) || '/' || opdracht_volgnummer,
+                 alg_regio_omschrijving,
+                 alg_district_omschrijving,
+                 locatie,
+                 locatie_omschrijving,
+                 locatie_plaats,
+                 alg_locatie_key,
+                 gebouw,
+                 gebouw_naam,
+                 verdieping,
+                 ruimte,
+                 ruimte_omschrijving,
+                 kostenplaats,
+                 kostenplaats_oms,
+                 mld_melding_key,
+                 opdracht_type,
+                 opdracht_volgnummer,
+                 opdracht_status,
+                 opdracht_duur_gepland,
+                 opdracht_datum,
+                 opdracht_einddatum,
+                 opdracht_plandatum,
+                 opdracht_acceptdatum,
+                 opdracht_afgemeld,
+                 opdracht_doorlooptijd,
+                 opdracht_accepttijd,
+                 opdracht_omschrijving,
+                 opdracht_opmerking,
+                 opdracht_uitvoerende,
+                 opdracht_uitvoerende_contact,
+                 opdracht_behandelaar,
+                 opdracht_contract,
+                 opdracht_contract_versie,
+                 opdracht_contactpersoon,
+                 opdracht_uren,
+                 opdracht_correctie,
+                 opdracht_materiaal,
+                 opdracht_uurtarief,
+                 opdracht_kosten,
+                 opdracht_parent_key,
+                 CASE WHEN opdracht_parent_key IS NOT NULL
+                      THEN ins_srtdiscipline_prefix || TO_CHAR (mld_melding_key) || '/' || opdracht_parent_volgnummer
+                      ELSE NULL
+                 END
+                 opdracht_parent_nummer,
+                 opdracht_parent_volgnummer,
+                 opdracht_verstrektdatum,
+                 MLD.getactualuitvoer ( opdracht_verstrektdatum
+                                      , opdracht_afgemeld
+                                      , mld_stdmelding_key
+                                      , mld_melding_spoed
+                                      , NULL
+                                      , NULL
+                                      , 'D'
+                                      ).tijdsduur opdracht_lev_doorloopdagen,
+                 MLD.getactualuitvoer ( opdracht_verstrektdatum
+                                      , opdracht_afgemeld
+                                      , mld_stdmelding_key
+                                      , mld_melding_spoed
+                                      , NULL
+                                      , NULL
+                                      , 'U'
+                                      ).tijdsduur opdracht_lev_doorloopuren
+            FROM (SELECT alg_regio_omschrijving,
+                         alg_district_omschrijving,
+                         alg_locatie_code locatie,
+                         alg_locatie_omschrijving locatie_omschrijving,
+                         alg_locatie_plaats locatie_plaats,
+                         l.alg_locatie_key,
+                         og.alg_gebouw_code gebouw,
+                         og.alg_gebouw_naam gebouw_naam,
+                         og.alg_verdieping_code verdieping,
+                         og.alg_ruimte_nr ruimte,
+                         og.alg_ruimte_omschrijving ruimte_omschrijving,
+                         (SELECT k.prs_kostenplaats_nr
+                            FROM prs_kostenplaats k
+                           WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key
+                         )
+                         kostenplaats,
+                         (SELECT k.prs_kostenplaats_omschrijving
+                            FROM prs_kostenplaats k
+                           WHERE k.prs_kostenplaats_key = o.prs_kostenplaats_key
+                         )
+                         kostenplaats_oms,
+                         o.mld_opdr_key,
+                         o.mld_melding_key,
+                         top.mld_typeopdr_key,
+                         top.mld_typeopdr_omschrijving opdracht_type,
+                         o.mld_opdr_bedrijfopdr_volgnr opdracht_volgnummer,
+                         (SELECT mld_statusopdr_omschrijving
+                            FROM mld_statusopdr sta
+                           WHERE sta.mld_statusopdr_key = o.mld_statusopdr_key
+                         )
+                         opdracht_status,
+                         fac.count_work_days (o.mld_opdr_datumbegin, o.mld_opdr_einddatum)
+                         opdracht_duur_gepland,
+                         o.mld_opdr_datumbegin opdracht_datum,
+                         o.mld_opdr_einddatum opdracht_einddatum,
+                         o.mld_opdr_plandatum opdracht_plandatum,
+                         COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 1))
+                         opdracht_acceptdatum,
+                         COALESCE (mld.getopdrachtstatusdate (o.mld_opdr_key, 6), mld.getopdrachtstatusdate (o.mld_opdr_key, 1))
+                         opdracht_afgemeld,
+                         fac.count_work_days (o.mld_opdr_datumbegin,
+                                              mld.getopdrachtstatusdate (o.mld_opdr_key, 6))
+                         opdracht_doorlooptijd,
+                         COALESCE (fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
+                                                        COALESCE(mld.getopdrachtstatusdate (o.mld_opdr_key, 8), mld.getopdrachtstatusdate (o.mld_opdr_key, 6))),
+                                   fac.count_Work_Days (mld.getopdrachtstatusdate (o.mld_opdr_key, 5),
+                                                 mld.getopdrachtstatusdate (o.mld_opdr_key, 1)))
+                         opdracht_accepttijd,
+                         o.mld_opdr_omschrijving opdracht_omschrijving,
+                         o.mld_opdr_opmerking opdracht_opmerking,
+                         (SELECT naam
+                            FROM mld_v_uitvoerende u
+                           WHERE u.mld_uitvoerende_key = o.mld_uitvoerende_keys
+                         )
+                         opdracht_uitvoerende,
+                         (SELECT contact_naam
+                            FROM (SELECT cp.prs_contactpersoon_key,
+                                         pf.prs_perslid_naam_full contact_naam
+                                    FROM prs_contactpersoon cp,
+                                         prs_v_perslid_fullnames_all pf
+                                   WHERE cp.prs_perslid_key = pf.prs_perslid_key
+                                  UNION ALL
+                                  SELECT cp.prs_contactpersoon_key,
+                                         cp.prs_contactpersoon_naam
+                                    FROM prs_contactpersoon cp,
+                                         prs_v_perslid_fullnames_all pf
+                                   WHERE cp.prs_perslid_key = pf.prs_perslid_key
+                                         AND cp.prs_perslid_key IS NULL
+                                 ) cpn
+                           WHERE cpn.prs_contactpersoon_key = o.prs_contactpersoon_key
+                         )
+                         opdracht_uitvoerende_contact,
+                         (SELECT prs_perslid_naam_full
+                            FROM prs_v_perslid_fullnames_all pf
+                           WHERE pf.prs_perslid_key = o.prs_perslid_key
+                         )
+                         opdracht_behandelaar,
+                         c.cnt_contract_nummer_intern opdracht_contract,
+                         c.cnt_contract_versie opdracht_contract_versie,
+                         o.mld_opdr_contactpersoon opdracht_contactpersoon,
+                         o.mld_opdr_uren opdracht_uren,
+                         o.mld_opdr_kosten - o.mld_opdr_materiaal - (o.mld_opdr_uren * o.mld_opdr_uurloon)
+                         opdracht_correctie,
+                         o.mld_opdr_materiaal opdracht_materiaal,
+                         o.mld_opdr_uurloon opdracht_uurtarief,
+                         o.mld_opdr_kosten opdracht_kosten,
+                         sdi.ins_srtdiscipline_prefix,
+                         o.mld_opdr_parent_key opdracht_parent_key,
+                         op.mld_opdr_bedrijfopdr_volgnr opdracht_parent_volgnummer,
+                         verstrekt.verstrektdatum opdracht_verstrektdatum,
+                         m.mld_stdmelding_key,
+                         m.mld_melding_spoed,
+                         DECODE (m.mld_melding_spoed,
+                                 1, stdm.mld_stdmelding_t_uitvtijd_pr1.eenheid,
+                                 2, stdm.mld_stdmelding_t_uitvtijd_pr2.eenheid,
+                                 3, stdm.mld_stdmelding_t_uitvoertijd.eenheid,
+                                    stdm.mld_stdmelding_t_uitvtijd_pr4.eenheid
+                                )  eenheid
+                    FROM alg_locatie l,
+                         alg_district d,
+                         alg_regio r,
+                         alg_v_allonrgoed_gegevens og,
+                         mld_opdr o,
+                         mld_opdr op,
+                         mld_typeopdr top,
+                         mld_melding m,
+                         mld_stdmelding stdm,
+                         ins_tab_discipline di,
+                         ins_srtdiscipline sdi,
+                         cnt_contract c,
+                         (SELECT t.fac_tracking_refkey  mld_opdr_key
+                               , CASE WHEN MAX(t.fac_tracking_datum) < o.mld_opdr_datumbegin
+                                      THEN o.mld_opdr_datumbegin
+                                      ELSE MAX(t.fac_tracking_datum)
+                                 END verstrektdatum
+                            FROM fac_tracking t
+                               , fac_srtnotificatie n
+                               , mld_opdr o
+                           WHERE t.fac_tracking_refkey = o.mld_opdr_key(+)
+                             AND n.fac_srtnotificatie_key = t.fac_srtnotificatie_key
+                             AND n.fac_srtnotificatie_code IN ('ORDNEW','ORDSNT')
+                           GROUP BY t.fac_tracking_refkey
+                                  , o.mld_opdr_datumbegin
+                         ) verstrekt
+                   WHERE m.mld_alg_locatie_key = l.alg_locatie_key(+)
+                     AND l.alg_district_key = d.alg_district_key(+)
+                     AND d.alg_regio_key = r.alg_regio_key(+)
+                     AND m.mld_alg_onroerendgoed_keys = og.alg_onroerendgoed_keys(+)
+                     AND o.cnt_contract_key = c.cnt_contract_key(+)
+                     AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
+                     AND stdm.mld_ins_discipline_key = di.ins_discipline_key
+                     AND di.ins_srtdiscipline_key = sdi.ins_srtdiscipline_key
+                     AND o.mld_melding_key = m.mld_melding_key
+                     AND o.mld_typeopdr_key = top.mld_typeopdr_key(+)
+                     AND o.mld_opdr_datumbegin >= TO_DATE ('01-01-2010', 'DD-MM-YYYY')
+                     AND o.mld_opdr_parent_key = op.mld_opdr_key(+)
+                     AND o.mld_opdr_key = verstrekt.mld_opdr_key(+)
+                 ) x;
 
 -- Noot: SELECT * is een slecht gebruik en leidt tot onoplosbare conflicten
 CREATE_VIEW(mld_v_udr_meldingopdracht, 1)
@@ -1740,6 +1874,8 @@ AS
 SELECT
    m.melding_key,
    m.meldingnummer,
+   m.melding_start_key,
+   m.externnummer,
    m.melding_regio,
    m.melding_district,
    m.melding_locatiecode,
@@ -1758,9 +1894,13 @@ SELECT
    m.kostenplaats_oms,
    m.melder,
    m.melder_key,
+   m.melder_email,
    m.afdeling,
    m.afdeling_omschrijving,
    m.fclt_3d_afdeling_key,
+   m.divisie,
+   m.divisie_omschrijving,
+   m.fclt_3d_divisie_key,
    m.bedrijf_key,
    m.invoerder,
    m.meldbron,
@@ -1772,6 +1912,10 @@ SELECT
    m.behandelaar,
    m.behandelaar_key,
    m.subproductgroepgroep,
+   m.fclt_3d_discipline2_key,
+   m.actieve_behandelgroep,
+   m.actieve_behandelaar_key,
+   m.actieve_behandelaar,
    m.melding_status,
    m.sla_nvt,
    m.sla_werkdgn,
@@ -1783,6 +1927,7 @@ SELECT
    m.plan_uitvoertijd_sla,
    m.melding_datum,
    m.melding_einddatum,
+   m.melding_einddatum_std,
    m.melding_acceptdatum,
    m.melding_afgemeld,
    m.melding_accepted,
@@ -1796,6 +1941,7 @@ SELECT
    m.rating,
    m.rating_opmerking,
    m.bolletje,
+   m.actiecode,
    m.accept_sla_dagen,
    m.accept_sla_uren,
    m.uitvoering_sla_dagen,
@@ -1845,7 +1991,10 @@ SELECT
    o.opdracht_correctie,
    o.opdracht_materiaal,
    o.opdracht_uurtarief,
-   o.opdracht_kosten
+   o.opdracht_kosten,
+   o.opdracht_verstrektdatum,
+   o.opdracht_lev_doorloopuren,
+   o.opdracht_lev_doorloopdagen
  FROM mld_v_udr_melding m, mld_v_udr_opdracht o
  WHERE m.melding_key = o.melding_key(+);
 
@@ -1855,14 +2004,14 @@ SELECT
 CREATE_VIEW(mld_v_udr_meldingkenmerk_cnd, 1)
 AS
    SELECT m.*,
-       lcl.x ('skm.mld_srtkenmerk_omschrijving',
+       lcl.x ('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)
+             flx.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.mld_kenmerkmelding_waarde)
           WHEN skm.mld_srtkenmerk_kenmerktype = 'C' OR skm.mld_srtkenmerk_kenmerktype = 'F'
           THEN
              km.mld_kenmerkmelding_waarde
@@ -1899,14 +2048,14 @@ AS
 CREATE_VIEW(mld_v_udr_opdrachtkenmerk_cnd, 1)
 AS
 SELECT o.*,
-       lcl.x ('skm.mld_srtkenmerk_omschrijving',
+       lcl.x ('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)
+             flx.getdomeinwaarde (skm.fac_kenmerkdomein_key, ko.mld_kenmerkopdr_waarde)
           WHEN skm.mld_srtkenmerk_kenmerktype = 'C' OR skm.mld_srtkenmerk_kenmerktype = 'F'
           THEN
              ko.mld_kenmerkopdr_waarde
@@ -1950,9 +2099,11 @@ SELECT o.*,
        mld_opdr_materiaal_code code,
        mld_opdr_materiaal_info info,
        mld_opdr_materiaal_groep groep,
+       mld_opdr_materiaal_id id,
        mld_opdr_materiaal_extra1 extra1,
        mld_opdr_materiaal_extra2 extra2,
        mld_opdr_materiaal_extra3 extra3,
+       mld_opdr_materiaal_extra4 extra4,
        fin_btwtabelwaarde_code btwcode,
        fin_btwtabelwaarde_oms btwomschrijving,
        fin_btwtabelwaarde_perc btw,

MODULES.H

@@ -9,6 +9,7 @@
  * BEZ  - Bezoekers registratie
  * BGT  - Budgetconrole (BCS)
  * CAD  - AutoCAD koppeling
+ * CND  - Conditiemetingen (NEN2767)
  * CNT  - Contracten
  * CTR  - Periodieke taken (controles)
  * FAC  - Basismodule
@@ -29,6 +30,7 @@
 #define BEZ    BEZ
 #define BGT    BGT
 #define CAD    CAD
+#define CND    CND
 #define CNT    CNT
 #define CTR    CTR
 #define FAC    FAC

PRJ/PRJ_INI.SRC

@@ -7,7 +7,7 @@
 _FAC_MODULE('PRJ','lcl_module_PRJ')
 
 
-INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default project legenda', 1);
+INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (3, 'Default project legenda', 1);
 
 INSERT INTO cad_thema
             (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type)

PRJ/PRJ_PAC.SRC

@@ -39,6 +39,7 @@ AS
       RETURN VARCHAR2 ;
    FUNCTION find_or_create_free_werkplek (pruimtekey   IN   NUMBER,bezetting    IN   NUMBER )
       RETURN NUMBER ;
+   PROCEDURE remove(p_scenario_key IN NUMBER);
 END prj;
 /
 
@@ -1235,6 +1236,27 @@ AS
       prj_commit_additions (pscenariokey); -- Als laatste om tijdelijke dubbelen te voorkomen
       prj_commit_cleanup (pscenariokey);
    END prj_commit_scenario;
+
+   PROCEDURE remove(p_scenario_key IN NUMBER)
+   AS
+   BEGIN
+       DELETE FROM prj_scenario
+        WHERE prj_scenario_key = p_scenario_key;
+
+       -- Van de volgende tabellen worden de records die naar deze p_scenario_key
+       -- verwijzen met ON DELETE CASCADE ook verwijderd:
+       --  prj_scenario_note
+       --  prj_ruimte
+       -- Hierdoor worden de afhankelijkheden in de volgende tabellen ook verwijderd:
+       --  prj_deel
+       --  prj_ruimteafdeling
+       --  prj_werkplek
+       --  prj_perslidwerkplek
+       --  prj_selectie
+
+       fac.remove_tracking('scenario', p_scenario_key);
+   END;
+
 END prj;
 /
 

PRJ/PRJ_TAB.SRC

@@ -58,10 +58,10 @@ CREATE_TABLE(prj_ruimte, 0)
         NUMBER(10)
         CONSTRAINT prj_r_alg_srtruimte_key REFERENCES alg_srtruimte(alg_srtruimte_key),
     prj_ruimte_nr
-        VARCHAR2(10)
+        VARCHAR2(20)
         NOT_NULL(prj_ruimte_nr, prj_c_alg_ruimte_nr),
     prj_ruimte_upper_nr
-        VARCHAR2(10)
+        VARCHAR2(20)
         NOT_NULL(prj_ruimte_upper_nr, prj_c_alg_ruimte_upper_nr),
     prj_ruimte_omschrijving
         VARCHAR2(30),
@@ -113,11 +113,11 @@ CREATE_TABLE(prj_werkplek, 0)
         NOT_NULL(prj_ruimte_key, prj_r_prs_prj_ruimte_key1)
         CONSTRAINT prs_r_prs_prj_ruimte_key2 REFERENCES prj_ruimte(prj_ruimte_key) ON DELETE CASCADE,
     prj_werkplek_dwgx
-        NUMBER(10,3),
+        NUMBER(16,3),
     prj_werkplek_dwgy
-        NUMBER(10,3),
+        NUMBER(16,3),
     prj_werkplek_dwgz
-        NUMBER(10,3),
+        NUMBER(16,3),
     prj_werkplek_dwgrotatie
         NUMBER(5,1),
     prj_werkplek_dwgschaal
@@ -226,11 +226,11 @@ CREATE_TABLE(prj_deel, 0)
        VARCHAR2(60)
        CONSTRAINT prj_c_ins_deel_omschrijving CHECK(prj_deel_omschrijving IS NOT NULL)
 ,  prj_deel_dwgx
-       NUMBER(10,3)
+       NUMBER(16,3)
 ,  prj_deel_dwgy
-       NUMBER(10,3)
+       NUMBER(16,3)
 ,  prj_deel_dwgz
-       NUMBER(10,3)
+       NUMBER(16,3)
 ,  prj_deel_dwgrotatie
        NUMBER(5,1)
 ,  prj_deel_dwgschaal
@@ -279,9 +279,9 @@ CREATE_TABLE(prj_scenario_note, 0)
     prj_scenario_note_nr
         NUMBER(3),
     prj_scenario_note_DWGX
-        NUMBER(10),
+        NUMBER(16,3),
     prj_scenario_note_DWGY
-        NUMBER(10),
+        NUMBER(16,3),
     prj_scenario_note_omschrijving
         VARCHAR2(2000),
     prj_ruimte_key

PRS/PRS_IND.SRC

@@ -14,7 +14,6 @@ CREATE UNIQUE INDEX prs_i_prs_bedrijfadres2 ON prs_bedrijfadres(prs_bedrijf_key,
 
 CREATE INDEX prs_i_prs_perslid1 ON prs_perslid(prs_srtperslid_key);
 CREATE INDEX prs_i_prs_perslid2 ON prs_perslid(prs_afdeling_key);
-CREATE INDEX prs_i_prs_perslid3 ON prs_perslid(prs_perslid_init_upper);
 /*via unique: CREATE UNIQUE INDEX prs_i_prs_perslid4 ON prs_perslid(prs_perslid_oslogin);*/
 CREATE INDEX prs_i_prs_perslid5 ON prs_perslid(prs_perslid_upper);
 CREATE INDEX prs_i_prs_perslid6 ON prs_perslid(prs_perslid_nr);
@@ -44,6 +43,8 @@ CREATE UNIQUE INDEX prs_i_prs_perslid_inzetbaar1 ON prs_perslid_inzetbaar(prs_pe
 
 CREATE UNIQUE INDEX prs_i_prs_kostenplaatsdisc1 ON prs_kostenplaatsdisc (prs_kostenplaats_key, ins_discipline_key);
 
+CREATE UNIQUE INDEX prs_i_prs_perslid_tabs1 on prs_perslid_tabs(prs_perslid_key, prs_perslid_tabs_code);
+
 REGISTERONCE('$Id$')
 
 #endif  // PRS

PRS/PRS_PAC.SRC

@@ -107,6 +107,8 @@ AS
    PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2);
 
    PROCEDURE delete_perslid (p_import_key IN NUMBER, p_perslid_key IN NUMBER);
+
+   FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER) RETURN BOOLEAN;
 END prs;
 /
 
@@ -251,14 +253,18 @@ AS
    -- De functie levert de prs_perslid_key op van de perslid die een item (opdracht/bestelling) van
    -- discipline pdisckey boven bedrag COALESCE(pfiatbedrag, pondergrens) mag fiatteren
    -- volgens de door ons gedefinieerde regels. Werkt analoog aan getkpverantwoordelijke
-   -- Maar houdt hierbij rekening met de profielen van de budgethouders als prs_approvemethod==3
+   -- Maar houdt hierbij rekening met de profielen van de budgethouders als prs_approvemethod == 3
    --
-   -- Levert dus in eerste instantie de kostenplaatsverantwoordelijke (budgethouder) op.
-   -- Levert de kostenplaatsgroepverantwoordelijke op indien geen goede budgethouder
-   -- wordt gevonden.
-   -- Afhankelijk van de pfiatbedrag levert de functie dan de kostenplaatsgroepverantwoordelijke op
-   -- die boven het bedrag van COALESCE(pfiatbedrag, pondergrens) mag fiatteren.
-   -- De parameter pondergrens wordt ook gebruikt voor mode 3 om het profiel van de budgethouder te controleren. Daarom extra parameter pfiatbedrag nodig.
+   -- 1) Levert dus in eerste instantie de kostenplaatsverantwoordelijke (budgethouder) op.
+   -- 2) Levert de kostenplaatsgroepverantwoordelijke op indien geen goede budgethouder wordt gevonden.
+   --    Afhankelijk van de pfiatbedrag levert de functie dan de kostenplaatsgroepverantwoordelijke op
+   --    die boven het bedrag van COALESCE(pfiatbedrag, pondergrens) mag fiatteren.
+   --    Als er in dat geval WEL een pfiatbedrag wordt meegegeven dan wordt de VOLGENDE (kpg) fiatteur opgeleverd.
+   --    Als er in dat geval GEEN pfiatbedrag wordt meegegeven dan wordt de LAATSTE (kpg) fiatteur opgeleverd.
+   --    De parameter pondergrens wordt ook gebruikt voor mode 3 om het profiel van de budgethouder te controleren. Daarom extra parameter pfiatbedrag nodig.
+   --
+   -- Als pexcludekey gevuld is, dan is dit de kp verantwoordelijke. Niet vullen met een kpGROEP verantwoordelijke, want dan wordt de kp verantwoordelijke teruggegeven.
+   -- Het fiatbedrag (of pondergrens) zorgt er wel voor dat je juiste kpg verantwoordelijke wordt teruggegeven.
    --
    FUNCTION getfiatteur (pkostenplaats_key   IN NUMBER,
                          pexcludekey         IN NUMBER,
@@ -294,13 +300,13 @@ AS
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
-            -- kostenplaats bestaat niet
+            -- Kostenplaats bestaat niet.
             RETURN -1;
       END;
       dbms_output.put_line('Budgethouder: '||lkpverantwkey);
-      -- lkpverantwkey is (mits gedefinieerd) de budgethouder van de kp. Het is nog niet gezegd of dit de gevraagde fiatteur is
+      -- De lkpverantwkey is (mits gedefinieerd) de budgethouder van de kp. Het is nog niet gezegd of dit de gevraagde fiatteur is.
       -- Is de meegegeven pexcludekey wellicht een vervanger van kostenplaatsverantwoordelijke van de kostenplaats?
-      -- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey
+      -- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey.
       IF pexcludekey > 0 AND lkpverantwkey <> pexcludekey THEN
           SELECT COUNT(prs_perslid_key)
             INTO lexcludeisvervanger
@@ -318,16 +324,16 @@ AS
         dbms_output.put_line('Zijn limiet: '||lkpverantwlimiet);
         IF (lkpverantwlimiet < pondergrens) -- lkpverantwkey != -1 is impliciet in die limiet
         THEN -- het profiel van deze budgethouder is niet genoeg
-          lkpverantwkey := -1; -- niet meer interessant wie dit was
+          lkpverantwkey := -1; -- Niet meer interessant wie dit was.
         END IF;
       END IF;
 
       IF (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1)
           AND (lmethode = 2 OR lmethode = 3)
-      -- doorloop de boom naar boven, met allerlei aannames
+      -- Doorloop de boom naar boven, met allerlei aannames.
       THEN
         dbms_output.put_line('We gaan de boom in');
-         -- waar hoort deze kp bij?
+         -- Waar hoort deze kp bij?
          BEGIN
             SELECT   prs_afdeling_key, prs_afdeling_parentkey
               INTO   afdkey, parentafdkey
@@ -336,10 +342,10 @@ AS
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
-               -- kp is niet aan een afdeling gerelateerd, dan weet ik het met deze methode niet
+               -- De kostenplaats is niet aan een afdeling gerelateerd, dan weet ik het met deze methode niet.
                RETURN -1;
          END;
-         -- Zolang nog geen goede en we kunnen hogerop
+         -- Zolang nog geen goede en we kunnen hogerop.
          WHILE (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1)
               AND parentafdkey IS NOT NULL
          LOOP
@@ -351,12 +357,12 @@ AS
                          AND a.prs_afdeling_key = parentafdkey;
             dbms_output.put_line('Volgende budgethouder: '||lkpverantwkey);
 
-            IF lmethode = 3 THEN -- ook profiel budgethouder controleren
+            IF lmethode = 3 THEN -- Ook profiel budgethouder controleren.
               lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
               dbms_output.put_line('Zijn limiet B: '||lkpverantwlimiet);
               IF (lkpverantwlimiet < pondergrens)
               THEN -- het profiel van deze budgethouder is niet genoeg
-                lkpverantwkey := -1; -- niet meer interessant wie dit was
+                lkpverantwkey := -1; -- Niet meer interessant wie dit was.
               END IF;
             END IF;
 
@@ -368,13 +374,16 @@ AS
                    AND prs_perslid_key = lkpverantwkey;
             END IF;
          END LOOP;
-      -- nu heb ik er een of kan ik er geen vinden
+      -- Nu heb ik er een of kan ik er geen vinden.
       END IF;
       dbms_output.put_line('Gevonden budgethouder voor de kpgroep-tak: '||lkpverantwkey);
-      -- Nu: als ik methode 1 heb, of methode 2 niemand opleverde (ondanks afdelingskostenplaats): de kpngroepverantwoordelijke
+      -- Als 1) de methode 1 is of
+      --     2) de methode 2 of 3 is en dit niemand opleverde (ondanks afdelingskostenplaats) of
+      --     3) de opgeleverde kostenplaatsverandwoordelijke de exclude(vervanger) is
+      -- dan kpngroepverantwoordelijken opvragen en kijken wie van hen de gevraagde fiatteur is.
       IF lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1
       THEN
-         -- vindt de kostenplaatsGROEPverantwoordelijke van de altijd meegegeven kp
+         -- Vindt de kostenplaatsGROEPverantwoordelijken van de altijd meegegeven kostenplaats.
          BEGIN
             SELECT COALESCE(kg.prs_perslid_key, -1),
                    COALESCE(kg.prs_kostenplaatsgrp_fiat2_key, -1),
@@ -397,13 +406,13 @@ AS
          lfoundfiatteur := 0;
          lfiatteur := -1;
 
-         -- Als er een fiatbedrag is meegegeven dan de volgende fiatteur opleveren en niet de laatste die moet fiatteren.
-         -- Dan het de ondergrens het fiatbedrag en niet het totale opdrachtbedrag.
+         -- Als er WEL een fiatbedrag is meegegeven dan de VOLGENDE fiatteur opleveren. De ondergrens is dan het fiatbedrag (pfiatbedrag).
+         -- Als er GEEN fiatbedrag is meegegeven dan de LAATSTE fiatteur opleveren. De ondergrens is dan pondergrens (normaalgesproken het totale opdrachtbedrag).
          IF pfiatbedrag >= 0
          THEN
-             lgrens := pfiatbedrag;
+             lgrens := pfiatbedrag; // De volgende fiatteur opleveren.
          ELSE
-             lgrens := pondergrens;
+             lgrens := pondergrens; // De laatste fiatteur opleveren.
          END IF;
 
          WHILE lteller <= 3 AND lfoundfiatteur = 0
@@ -420,7 +429,8 @@ AS
              WHEN lteller = 3
              THEN
                 lkpgverantwkey := lkpgverantwkey3;
-                llastfiat := lgrens >= fac.getsetting ('mld_opdr_kpg_fin_limit2');
+                llastfiat := lgrens >= fac.getsetting ('mld_opdr_kpg_fin_limit2') OR
+                             lexcludeiskpgverantw = 1; -- Als de 2de fiatteur de exclude is dan moet de 3de fiatteur toch nog fiatteren.
              END CASE;
 
              IF lkpgverantwkey = pexcludekey
@@ -465,12 +475,12 @@ AS
        WHEN 'MLD'
        THEN
            SELECT CASE
-                  WHEN NOT EXISTS (SELECT prs_perslid_key
-                                     FROM fac_tracking t,
-                                          fac_srtnotificatie st
-                                    WHERE t.fac_srtnotificatie_key = st.fac_srtnotificatie_key
-                                      AND st.fac_srtnotificatie_code = 'ORDFOK'
-                                      AND fac_tracking_refkey = o.mld_opdr_key)
+                  WHEN mld_opdr_fiatbedrag IS NULL
+                  -- I.v.m. herfiattering hier niet meer met de 'ORDFOK' tracking gecontroleerd of de kp verantvoordelijke al gefiatteerd heeft,
+                  -- maar hier kijken naar het gefiatteerde bedrag die is opgeslagen in het veld mld_opdr.mld_opdr_fiatbedrag.
+                  -- Met Melding AASA#55601 wordt het veld mld_opdr.mld_opdr_fiatbedrag leeg gemaakt als de setting "mld_opdr_refiat_preference" op 1 staat
+                  -- en de goedkeurder heeft aangegeven dat de opdracht opnieuw als een nieuwe opdracht moet worden gefiatteerd.
+                  -- Er kan dan in dat geval nagegaan worden tot welk bedrag er is gefiatteerd.
                   THEN
                      prs.getfiatteur(o.prs_kostenplaats_key, pexcludekey, mld_opdr_kosten, std.mld_ins_discipline_key, COALESCE(mld_opdr_fiatbedrag, -1))
                   WHEN mld_opdr_fiatbedrag >= fac.getsetting ('mld_opdr_kpg_fin_limit2')
@@ -504,7 +514,7 @@ AS
                                    AND st.fac_srtnotificatie_code = 'BESFIT'
                                    AND fac_tracking_refkey = b.bes_bestelling_key)
                       THEN
-                          prs.getfiatteur(b.prs_kostenplaats_key, -1, binfo.totaal, binfo.ins_discipline_key, COALESCE(bes_bestelling_fiatbedrag, -1))
+                          prs.getfiatteur(b.prs_kostenplaats_key, pexcludekey, binfo.totaal, binfo.ins_discipline_key, COALESCE(bes_bestelling_fiatbedrag, -1))
                       WHEN bes_bestelling_fiatbedrag >= fac.getsetting('mld_opdr_kpg_fin_limit2')
                       THEN
                           COALESCE(prs_kostenplaatsgrp_fiat3_key, -1)
@@ -551,7 +561,10 @@ AS
            WHERE prs_perslid_key = pperslidkey;
           UPDATE prs_perslid
              SET prs_perslid_wachtwoord_hash = fac.makehash(prs_perslid_salt || pwachtwoord),
-                 prs_perslid_wachtwoord_exp = NULL -- of ooit: SYSDATE + fac.getsetting ('prs_password_expiration') als die is gevuld
+                 prs_perslid_wachtwoord_exp = CASE WHEN fac.getsetting ('prs_password_expiration') > 0
+                                                   THEN SYSDATE + fac.getsetting ('prs_password_expiration')
+                                                   ELSE NULL
+                                              END
            WHERE prs_perslid_key = pperslidkey;
       END IF;
   END;
@@ -1274,9 +1287,9 @@ AS
               v_errorhint := 'Ongeldige ruimte nr';
               v_alg_ruimte_nr := TRIM (v_alg_ruimte_nr);
 
-              IF LENGTH (v_alg_ruimte_nr) > 10
+              IF LENGTH (v_alg_ruimte_nr) > 20
               THEN
-                 v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 10);
+                 v_alg_ruimte_nr := SUBSTR (v_alg_ruimte_nr, 1, 20);
                  fac.imp_writelog (
                     p_import_key,
                     'W',
@@ -1828,7 +1841,8 @@ AS
                     (SELECT prs_srtperslid_key
                        FROM prs_srtperslid sp
                       WHERE UPPER (sp.prs_srtperslid_omschrijving) =
-                               UPPER (i.prs_srtperslid_omschrijving))
+                               UPPER (i.prs_srtperslid_omschrijving)
+                        AND prs_srtperslid_verwijder IS NULL)
         GROUP BY UPPER (prs_srtperslid_omschrijving);
 
      recSPersLid        cSPersLid%ROWTYPE;
@@ -1855,10 +1869,22 @@ AS
 
            v_aanduiding := recSPersLid.PRS_SRTPERSLID_OMSCHRIJVING;
 
-           v_errorhint := 'Fout bij toevoegen functie';
+           v_errorhint := 'Zoek in verwijderde functies';
+           SELECT MAX(prs_srtperslid_key)
+             INTO v_srtperslid_key
+             FROM prs_srtperslid sp
+            WHERE UPPER (sp.prs_srtperslid_omschrijving) = UPPER (recSPersLid.prs_srtperslid_omschrijving);
 
-           INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
-               VALUES (recSPersLid.prs_srtperslid_omschrijving);
+           IF v_srtperslid_key IS NULL
+           THEN
+              v_errorhint := 'Fout bij toevoegen functie';
+
+              INSERT INTO prs_srtperslid (prs_srtperslid_omschrijving)
+                   VALUES (recSPersLid.prs_srtperslid_omschrijving);
+           ELSE
+              v_errorhint := 'Reanimeer functie';
+              UPDATE prs_srtperslid SET prs_srtperslid_verwijder = NULL WHERE prs_srtperslid_key = v_srtperslid_key;
+           END IF;
 
            COMMIT;
         EXCEPTION
@@ -2387,6 +2413,86 @@ AS
      END;
   END delete_perslid;
 
+   FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER)
+      RETURN BOOLEAN
+   AS
+      l_dummy            prs_kostencombinatie.prs_kostencombinatie_key%TYPE;
+      l_kp_key           prs_kostenplaats.prs_kostenplaats_key%TYPE;
+      l_ksrt_key         prs_kostensoort.prs_kostensoort_key%TYPE;
+      l_disc_key         mld_stdmelding.mld_ins_discipline_key%TYPE;
+      l_combination_OK   BOOLEAN DEFAULT FALSE;                                         -- Start de afvalrace met FALSE.
+      l_kpgrp_key        prs_kostenplaatsgrp.prs_kostenplaatsgrp_key%TYPE DEFAULT -1;
+   BEGIN
+      l_kp_key := p_kp_key;
+      l_ksrt_key := p_ksrt_key;
+      l_disc_key := p_disc_key;
+
+      -- Als de kostensoort niet werd meegegeven dan deze proberen zelf te bepalen.
+      IF l_ksrt_key IS NULL AND l_disc_key IS NOT NULL
+      THEN
+         SELECT prs_kostensoort_key
+           INTO l_ksrt_key
+           FROM ins_tab_discipline
+          WHERE ins_discipline_key = l_disc_key;
+      END IF;
+
+      -- Start de afvalrace.
+      IF l_kp_key IS NULL OR l_ksrt_key IS NULL
+      THEN
+         l_combination_OK := TRUE;
+      END IF;
+
+      IF NOT l_combination_OK
+      THEN
+         BEGIN
+            SELECT prs_kostenplaatsgrp_key
+              INTO l_kpgrp_key
+              FROM prs_kostenplaats
+             WHERE prs_kostenplaats_key = l_kp_key;
+            -- het is goed als er geen groep gedefinieerd is
+            l_combination_OK := l_kpgrp_key IS NULL;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+               NULL;
+         END;
+      END IF;
+
+      IF NOT l_combination_OK
+      THEN
+         BEGIN
+            -- Geldt er uberhaupt een restrictie op deze kostensoort?
+            SELECT DISTINCT 1
+              INTO l_dummy
+              FROM prs_kostencombinatie kc
+             WHERE kc.prs_kostensoort_key = l_ksrt_key;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+               l_combination_OK := TRUE;
+         END;
+      END IF;
+
+      IF NOT l_combination_OK
+      THEN
+         BEGIN
+            SELECT prs_kostencombinatie_key
+              INTO l_dummy
+              FROM prs_kostencombinatie kc
+             WHERE kc.prs_kostenplaatsgrp_key = l_kpgrp_key
+               AND kc.prs_kostensoort_key = l_ksrt_key;
+            -- Er is een geldige combinatie gevonden.
+            l_combination_OK := TRUE;
+         EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+               NULL;
+         END;
+      END IF;
+
+      RETURN l_combination_OK;
+   END;
+
 END prs;
 /
 

PRS/PRS_SEQ.SRC

@@ -34,6 +34,9 @@ CREATE SEQUENCE prs_s_prs_staffel_key          MINVALUE 1;
 CREATE SEQUENCE prs_s_prs_perslid_inzet_key    MINVALUE 1;
 CREATE SEQUENCE prs_s_prs_relatietype_key      MINVALUE 10;
 
+CREATE SEQUENCE prs_s_prs_perslid_tabs_key     MINVALUE 1;
+CREATE SEQUENCE prs_s_prs_perslid_cols_key     MINVALUE 1;
+
 REGISTERONCE('$Id$')
 
 #endif  // PRS

PRS/PRS_TAB.SRC

@@ -60,9 +60,9 @@ CREATE_TABLE(prs_bedrijf,0)
     prs_bedrijf_contact_fax
         VARCHAR2(20),
     prs_bedrijf_opmerking
-        VARCHAR2(320),
+        VARCHAR2(1000),
     prs_bedrijf_opmerking2
-        VARCHAR2(320),
+        VARCHAR2(1000),
     prs_bedrijf_uurloon
         NUMBER(6,2),
     prs_leverancier_nr
@@ -164,12 +164,16 @@ CREATE_TABLE(prs_bedrijf_bedrijf,0)
         NUMBER (10)
         CONSTRAINT prs_r_prs_bedrijf_bedrijf1 REFERENCES prs_bedrijf (prs_bedrijf_key) NOT NULL,
    prs_bedrijf_externid1
-        VARCHAR2(60),     -- optional remote key of 1
+        VARCHAR2(256),     -- optional remote key of 1
+   prs_bedrijf_externsyncdate1
+        DATE,
    prs_bedrijf_key2
         NUMBER (10)
         CONSTRAINT prs_r_prs_bedrijf_bedrijf2 REFERENCES prs_bedrijf (prs_bedrijf_key) NOT NULL,
    prs_bedrijf_externid2
-        VARCHAR2(60),     -- optional remote key of 2
+        VARCHAR2(256),     -- optional remote key of 2
+   prs_bedrijf_externsyncdate2
+        DATE,
    prs_bedrijf_bedrijf_startdatum
         DATE
         DEFAULT SYSDATE,
@@ -190,7 +194,14 @@ CREATE_TABLE(prs_bedrijf_bedrijf,0)
    prs_bedrijf_bedrijf_fee2
         NUMBER(6,2),      -- bedrag in euro's tbv berekening icm chargemode
    prs_bedrijf_bedrijf_fee3
-        NUMBER(6,2)       -- bedrag in euro's tbv berekening icm chargemode
+        NUMBER(6,2),       -- bedrag in euro's tbv berekening icm chargemode
+--   In FIN_TAB.SRC:
+--   fin_btwtabelwaarde_key -- default btw
+--        NUMBER(10)
+--        CONSTRAINT prs_r_fin_btwtabelwaarde_key2 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+   prs_bedrijf_bedrijf_g_pct -- G-percentage
+        NUMBER(3)
+        CONSTRAINT prs_c_bedrijf_bedrijf_g_pct CHECK(prs_bedrijf_bedrijf_g_pct BETWEEN 0 AND 100)
 );
 
 /*  Kruistabel met elektronische adressen van een bedrijf, toegepast door
@@ -211,14 +222,18 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
     alg_locatie_key
         NUMBER(10)
         CONSTRAINT prs_r_alg_locatie_key REFERENCES alg_locatie(alg_locatie_key) ON DELETE CASCADE,
-    prs_bedrijfadres_type /* O=Order, B=Bestelling, V=Voorraadinfo, C=Contract, N=Notificatie */
+    prs_bedrijfadres_type /* O=Order, B=Bestelling, V=Voorraadinfo, C=Contract, N=Notificatie, I=IOT */
         VARCHAR2(1)
-        CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V','N')),
+        CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V','N','I')),
 -- In MLD_TAB.SRC:
 --    mld_typeopdr_key
 --        NUMBER(10) CONSTRAINT prs_r_mld_typeopdr_key REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
     prs_bedrijfadres_url    /* voor digitale verzending */
         VARCHAR2(512),
+    prs_bedrijfadres_sender
+        VARCHAR2(512),
+    prs_bedrijfadres_replyaddress
+        VARCHAR2(512),
     prs_bedrijfadres_ordermode /* bitwise, TBD */
         NUMBER(3)  DEFAULT 0,
     prs_bedrijfadres_soapversion /* future use, eg 1.1 or 1.2 */
@@ -229,12 +244,24 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
         VARCHAR2(255),
     prs_bedrijfadres_xsl
         VARCHAR2(256),
+    prs_bedrijfadres_charset
+        VARCHAR2(32),
+    prs_bedrijfadres_plugin
+        VARCHAR2(320),
+    prs_bedrijfadres_plugindata // naar eigen inzicht voor de plugin, bijvoorbeeld refreshtoken
+        VARCHAR2(4000),
+    prs_bedrijfadres_error_handler
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     prs_bedrijfadres_ext
         VARCHAR2(10),
     prs_bedrijfadres_username
         VARCHAR2(32),
     prs_bedrijfadres_password
-        VARCHAR2(32),
+        VARCHAR2(320),
+    prs_bedrijfadres_privkey
+        VARCHAR2(4000),
     prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, >4=future use */
         NUMBER(3)
         DEFAULT 0
@@ -280,9 +307,6 @@ CREATE_TABLE(prs_kostenplaatsgrp,0) (
    prs_kostenplaatsgrp_aanmaak
        DATE
        DEFAULT SYSDATE
---   bgt_project_key
---       NUMBER(10)
---       CONSTRAINT prs_r_bgt_project_key2 REFERENCES bgt_project(bgt_project_key)
 );
 
 CREATE_TABLE(prs_kostenplaats,0) (
@@ -306,7 +330,8 @@ CREATE_TABLE(prs_kostenplaats,0) (
        DATE,
    prs_kostenplaatsgrp_key
        NUMBER(10)
-       CONSTRAINT prs_r_prs_kostenplaatsgrp_key REFERENCES prs_kostenplaatsgrp(prs_kostenplaatsgrp_key),
+       CONSTRAINT prs_r_prs_kostenplaatsgrp_key REFERENCES prs_kostenplaatsgrp(prs_kostenplaatsgrp_key)
+       ON DELETE SET NULL,
    prs_kostenplaats_aanmaak
        DATE DEFAULT SYSDATE,
    prs_kostenplaats_verwijder
@@ -318,12 +343,19 @@ CREATE_TABLE(prs_kostenplaats,0) (
    prs_kostenplaats_extern -- 0=intern, 1=extern (gebruikt bij prijsberekeningen)
        NUMBER(1)
        DEFAULT 0,
+   prs_kostenplaats_externnr
+       VARCHAR2(256),
+   prs_kostenplaats_extsyncdate
+       DATE,
    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)
+   ins_discipline_key
+       NUMBER(10)
+       CONSTRAINT prs_r_ins_discipline_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
+CONSTRAINT prs_u_prs_kostenplaats_upper UNIQUE(prs_kostenplaats_upper, prs_kostenplaats_verwijder, ins_discipline_key)
 );
 
 ALTER TABLE alg_gebouw ADD
@@ -397,7 +429,9 @@ CREATE_TABLE(prs_afdeling,0)
 --        NUMBER(10)
 --        CONSTRAINT alg_r_mld_adres_key2 REFERENCES mld_adres(mld_adres_key),
     prs_afdeling_externid    /* voor koppelingen met externe systemen, bijvoorbeeld een externe GUID */
-        VARCHAR2(128),
+        VARCHAR2(256),
+    prs_afdeling_externsyncdate
+        DATE,
     prs_afdeling_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -480,12 +514,16 @@ CREATE_TABLE(prs_werkplek,0)
         NUMBER(10)
         NOT_NULL(prs_alg_ruimte_key, prs_r_prs_alg_ruimte_key1)
         CONSTRAINT prs_r_prs_alg_ruimte_key2 REFERENCES alg_ruimte(alg_ruimte_key),
+    prs_werkplek_externnr
+        VARCHAR2(256),
+    prs_werkplek_externsyncdate
+        DATE,
     prs_werkplek_dwgx
-        NUMBER(10,3),
+        NUMBER(16,3),
     prs_werkplek_dwgy
-        NUMBER(10,3),
+        NUMBER(16,3),
     prs_werkplek_dwgz
-        NUMBER(10,3),
+        NUMBER(16,3),
     prs_werkplek_dwgrotatie
         NUMBER(5,1),
     prs_werkplek_dwgschaal
@@ -531,11 +569,9 @@ CREATE_TABLE(prs_perslid,0)
     prs_perslid_titel
         VARCHAR2(15),
     prs_perslid_geslacht
-        NUMBER(1),   -- 1=man; 0=vrouw (geen M/V ivm international)
+        NUMBER(1),   -- 1=man; 0=vrouw (others=others)
     prs_perslid_initialen
         VARCHAR2(10),
-    prs_perslid_init_upper
-        VARCHAR2(10),
     prs_perslid_nr
         VARCHAR2(16),
     prs_perslid_oslogin
@@ -592,6 +628,10 @@ CREATE_TABLE(prs_perslid,0)
         DEFAULT 1
         CONSTRAINT prs_c_prs_perslid_ingids CHECK(prs_perslid_ingids IS NULL
                                                  OR prs_perslid_ingids = 1 ),
+    prs_perslid_visibility
+        NUMBER(3) /* levels coded, opt-in */
+        DEFAULT 0
+        NOT NULL,
     fac_profiel_key
         NUMBER (10)
         CONSTRAINT prs_r_fac_profiel_key REFERENCES fac_profiel(fac_profiel_key),
@@ -628,7 +668,9 @@ CREATE_TABLE(prs_perslid,0)
         DATE
         DEFAULT SYSDATE NOT NULL,
     prs_perslid_externid    /* voor koppelingen met externe systemen, bijvoorbeeld een externe GUID */
-        VARCHAR2(128),
+        VARCHAR2(256),
+    prs_perslid_externsyncdate
+        DATE,
     prs_perslid_externoslogin -- SCIM only, not uppercased
         VARCHAR2(30),
     prs_perslid_terms_datum
@@ -637,11 +679,15 @@ CREATE_TABLE(prs_perslid,0)
         VARCHAR2(200),
     prs_perslid_timezone
         VARCHAR2(40),
-    CONSTRAINT prs_c_prs_perslid_datums CHECK(prs_perslid_einddatum >= prs_perslid_ingangsdatum),
+    prs_perslid_lcid
+        NUMBER(4),
+    prs_perslid_opmerking
+        VARCHAR2 (320),
     prs_perslid_loglevel
         NUMBER(1)
         DEFAULT 0
-        NOT NULL
+        NOT NULL,
+    CONSTRAINT prs_c_prs_perslid_datums CHECK(prs_perslid_einddatum >= prs_perslid_ingangsdatum)
 );
 
 // Without this column, that table is useless, but we must define it here, after prs_perslid.
@@ -664,7 +710,11 @@ ALTER TABLE fac_notificatie ADD(
     REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
   prs_perslid_key_receiver
     NUMBER(10)
-    REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+    REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+  prs_bedrijfadres_key
+    NUMBER(10)
+    CONSTRAINT prs_r_bedrijfadres_key1
+    REFERENCES prs_bedrijfadres(prs_bedrijfadres_key) ON DELETE CASCADE
 );
 
 ALTER TABLE fac_activiteit ADD (
@@ -699,6 +749,13 @@ ALTER TABLE fac_session ADD (
         NUMBER(10)
         CONSTRAINT fac_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
+/* Alvast voor 2022.1
+ALTER TABLE fac_widget_page ADD (
+  prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+*/
 ALTER TABLE fac_bookmark ADD (
   prs_perslid_key
         NUMBER(10)
@@ -739,6 +796,16 @@ ALTER TABLE alg_gebouw ADD (
         CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
 );
 
+ALTER TABLE alg_terreinsector ADD
+(
+    prs_perslid_key_verantw
+        NUMBER(10)
+        CONSTRAINT alg_r_prs_perslid_key3 REFERENCES prs_perslid(prs_perslid_key),
+    prs_perslid_key_verantw2
+        NUMBER(10)
+        CONSTRAINT alg_r_prs_perslid_key4 REFERENCES prs_perslid(prs_perslid_key)
+);
+
 ALTER TABLE prs_bedrijfadres
     ADD prs_bedrijfadres_lockuser_key
         NUMBER(10)
@@ -798,10 +865,21 @@ ADD
         CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL)
 );
 
+ALTER TABLE imp_schedule ADD (
+  prs_perslid_key
+  NUMBER(10)
+  CONSTRAINT imp_r_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
+
 ALTER TABLE fac_kenmwaarden
 ADD
 CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key);
 
+ALTER TABLE fac_email_setting
+    ADD prs_perslid_key_auth
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key10 REFERENCES prs_perslid(prs_perslid_key);
+
 ALTER TABLE fac_setting ADD
 (
    prs_perslid_key
@@ -816,6 +894,14 @@ ALTER TABLE fac_audit ADD
        CONSTRAINT fac_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
 );
 
+ALTER TABLE ins_deel_note
+ADD
+(
+    prs_perslid_key
+        NUMBER(10)
+        REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL
+);
+
 ALTER TABLE prs_kostenplaatsgrp
     ADD prs_kostenplaatsgrp_fiat2_key
    NUMBER(10)
@@ -922,6 +1008,10 @@ CREATE_TABLE(prs_perslidwerkplek,0)
          (prs_perslidwerkplek_bezetting is not null and prs_perslidwerkplek_bezetting BETWEEN 0 AND 100),
     prs_perslidwerkplek_volgnr  -- UWVA#18996
         NUMBER(2),
+    prs_perslidwerkplek_externnr
+        VARCHAR2(256),
+    prs_perslidwerkplek_extsyncd
+        DATE,
     prs_perslidwerkplek_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -950,12 +1040,14 @@ CREATE_TABLE(prs_kenmerk,0)
         VARCHAR2(255)
     ,prs_kenmerk_default
         VARCHAR2(4000)
+    ,prs_kenmerk_show_expr
+        VARCHAR2(4000)
     ,prs_kenmerk_dimensie
         VARCHAR2(10)
     ,prs_kenmerk_kenmerktype
         VARCHAR2(1)
         CONSTRAINT prs_c_prs_kenmerk_type2 CHECK
-         (prs_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+         (prs_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,prs_kenmerk_systeem
         NUMBER(2)
         DEFAULT 0
@@ -1041,7 +1133,7 @@ prs_contactpersoon_telefoon_2
 prs_contactpersoon_fax
     VARCHAR2(30),
 prs_contactpersoon_email
-    VARCHAR2(50),
+    VARCHAR2(200),
 prs_contactpersoon_functie
     VARCHAR2(60),
 prs_contactpersoon_opmerking
@@ -1054,6 +1146,10 @@ prs_bedrijf_key
 prs_perslid_key  /* kan eventueel een Facilitor user zijn */
     NUMBER(10)
     CONSTRAINT prs_r_prs_perslid_key16 REFERENCES prs_perslid(prs_perslid_key),
+prs_contactpersoon_externnr
+    VARCHAR2(256),
+prs_contactpersoon_extsyncdate
+    DATE,
 prs_contactpersoon_aanmaak
     DATE
     DEFAULT SYSDATE,
@@ -1083,9 +1179,16 @@ prs_dienst_key
 prs_dienst_omschrijving
     VARCHAR2(60)
     NOT_NULL(prs_dienst_omschrijving, prs_c_prs_dienst_omschrijving)
-    CONSTRAINT prs_c_prs_dienst_omschr UNIQUE
+    CONSTRAINT prs_c_prs_dienst_omschr UNIQUE,
+prs_dienst_hint
+    VARCHAR2(1000)
 );
 
+ALTER TABLE ins_srtcontrole ADD
+(
+    prs_dienst_key NUMBER(10)
+        CONSTRAINT ins_r_prs_dienst_key1 REFERENCES prs_dienst(prs_dienst_key)
+);
 
 CREATE_TABLE(prs_bedrijfdienstlocatie, 0)  /* intussen feitelijk prs_bedrijfdienstgebouw_of_locatie */
 (
@@ -1106,10 +1209,13 @@ alg_locatie_key
 alg_gebouw_key
     NUMBER(10)
     CONSTRAINT prs_r_alg_gebouw_key1 REFERENCES alg_gebouw(alg_gebouw_key) ON DELETE CASCADE,
+prs_bdl_t_uitvoertijd
+    MLD_T_UITVOERTIJD
+    CONSTRAINT prs_c_prs_bdl_t_uitvoertijd CHECK(prs_bdl_t_uitvoertijd.tijdsduur >= 0), /* of null */
 CONSTRAINT prs_u_prs_bedrijfdienstloc_key UNIQUE (prs_bedrijf_key, prs_dienst_key, alg_locatie_key, alg_gebouw_key),
 CONSTRAINT prs_c_prs_bedrijfdienstloc CHECK (alg_locatie_key IS NULL OR alg_gebouw_key IS NULL)
 );
-
+ALTER TABLE prs_bedrijfdienstlocatie MODIFY prs_bdl_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 
 CREATE_TABLE(prs_project,0) (
@@ -1227,6 +1333,47 @@ CREATE_TABLE(prs_perslid_inzetbaar, 0)
         NOT_NULL(prs_perslid_inzetbaar_dag, prs_c_prs_perslid_inzet_dag)
 );
 
+CREATE_TABLE(prs_perslid_tabs, 0)
+(
+    prs_perslid_tabs_key
+        NUMBER(10)
+        CONSTRAINT prs_k_prs_perslid_tabs_key PRIMARY KEY,
+    prs_perslid_tabs_code
+        VARCHAR2(32) NOT NULL,
+    prs_perslid_tabs_aanmaak
+        DATE DEFAULT SYSDATE,
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT prs_r_prs_perslid_key20 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+
+CREATE_TABLE(prs_perslid_cols, 0)
+(
+    prs_perslid_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_prs_perslid_cols_key PRIMARY KEY,
+    prs_perslid_tabs_key
+        NUMBER(10)
+        CONSTRAINT fac_r_perslid_cols_tabs_key REFERENCES prs_perslid_tabs(prs_perslid_tabs_key)
+        ON DELETE CASCADE,
+    prs_perslid_cols_volgnr
+        NUMBER(10)
+        NOT NULL,
+    prs_perslid_cols_column_name
+        VARCHAR2(32) NOT NULL,
+    prs_perslid_cols_visible /* V;Visible; I;Invisible */
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT prs_c_perslid_cols_visible CHECK (prs_perslid_cols_visible IN ('V', 'I')),
+    prs_perslid_cols_combine /* 0;False 1;True */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT prs_c_perslid_cols_combine CHECK (prs_perslid_cols_combine IN (0, 1)),
+    CONSTRAINT prs_u_prs_perslid_cols1 UNIQUE(prs_perslid_tabs_key, prs_perslid_cols_column_name)
+);
+
 REGISTERONCE('$Id$')
 
 #endif // PRS

PRS/PRS_TRI.SRC

@@ -111,26 +111,6 @@ BEFORE INSERT ON prs_perslid
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(prs_perslid_key, prs_s_prs_alluitvoerende_keys);
-   -- If this perslid belongs to the primary company of an xd-environment
-   -- it gets a default apikey to get synced across the domains
-   IF :new.prs_perslid_apikey IS NULL AND fac.getsetting ('xd_primary_bedrijfkey') > 0
-   THEN
-      DECLARE
-         dummy   prs_afdeling.prs_bedrijf_key%TYPE;
-      BEGIN
-         SELECT prs_bedrijf_key
-           INTO dummy
-           FROM prs_v_afdeling
-          WHERE prs_afdeling_key = :new.prs_afdeling_key
-                AND prs_v_afdeling.prs_bedrijf_key = fac.getsetting ('xd_primary_bedrijfkey');
-         -- 52 lower en uppercase letters*32 is 182 bits equivalent
-         SELECT DBMS_RANDOM.string ('a', 32) INTO :new.prs_perslid_apikey FROM DUAL;
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            NULL;                                    -- persoon hoort niet bij de serviceorganisatie
-      END;
-   END IF;
 END;
 /
 
@@ -139,124 +119,165 @@ BEFORE INSERT OR UPDATE ON prs_perslid
 FOR EACH ROW
 BEGIN
     UPDATE_UPPER(prs_perslid_naam, prs_perslid_upper,prs_perslid);
-    UPDATE_UPPER(prs_perslid_initialen, prs_perslid_init_upper,prs_perslid);
-    UPDATE_UPPER(prs_perslid_oslogin, prs_perslid_oslogin,prs_perslid);
-    UPDATE_UPPER(prs_perslid_oslogin2, prs_perslid_oslogin2,prs_perslid);
-    UPDATE_AANMAAKDATUM(prs_perslid, prs_perslid_aanmaak);
-    IF :new.prs_perslid_verwijder IS NOT NULLDATUM AND :old.prs_perslid_verwijder IS NULLDATUM
+    IF (BITAND(:old.prs_perslid_flags,32) = 32 OR BITAND(:new.prs_perslid_flags,32) = 32)
     THEN
-        DECLARE
-            dummy   VARCHAR2(1);
-        BEGIN
-         -- Niet verwijderen als nog MLD_OPDR's zijn met status 'Uitgegeven' en
-         -- uitvoerende deze PERSLID.
-            SELECT 'X'
-            INTO   dummy
-            FROM   mld_opdr       MLD_O
-            WHERE  MLD_O.mld_statusopdr_key IN (5, 8)
-            AND    MLD_O.mld_uitvoerende_keys = :new.prs_perslid_key;
-            APPLICATION_ERROR_GOTO(-20000, 'prs_m085');
-        EXCEPTION
-            WHEN NO_DATA_FOUND THEN NULL;
-            WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m085');
-        END;
+        IF (:old.prs_perslid_oslogin <> :new.prs_perslid_oslogin)
+        THEN
+            raise_application_error(-20000, 'PRS_M183');
+        END IF;
+    ELSE
+        :new.prs_perslid_oslogin := UPPER(:new.prs_perslid_oslogin);
+        :new.prs_perslid_oslogin2 := UPPER(:new.prs_perslid_oslogin2);
+    END IF;
+    UPDATE_AANMAAKDATUM(prs_perslid, prs_perslid_aanmaak);
+    -- If this perslid belongs to the primary company of an xd-environment
+    -- it gets a default apikey to get synced across the domains
+    IF (:old.prs_afdeling_key IS NULL OR :old.prs_afdeling_key <> :new.prs_afdeling_key)
+    AND fac.getsetting ('xd_primary_bedrijfkey') > 0
+    THEN
+       DECLARE
+          dummy   prs_afdeling.prs_bedrijf_key%TYPE;
+       BEGIN
+          SELECT prs_bedrijf_key
+            INTO dummy
+            FROM prs_v_afdeling
+           WHERE prs_afdeling_key = :new.prs_afdeling_key
+                 AND prs_v_afdeling.prs_bedrijf_key = fac.getsetting ('xd_primary_bedrijfkey');
+          -- 52 lower en uppercase letters*32 is 182 bits equivalent
+          SELECT DBMS_RANDOM.string ('a', 32) INTO :new.prs_perslid_apikey FROM DUAL;
+       EXCEPTION
+          WHEN NO_DATA_FOUND
+          THEN
+             NULL;                                    -- persoon hoort niet bij de serviceorganisatie
+       END;
+    END IF;
+    IF (:new.prs_perslid_verwijder IS NOT NULLDATUM AND :old.prs_perslid_verwijder IS NULLDATUM)
+    THEN
+        IF (  BITAND(:old.prs_perslid_flags,32) = 32
+           OR BITAND(:new.prs_perslid_flags,32) = 32
+           )
+        THEN
+            -- Persoon mag niet verwijderd worden omdat flagbit=32 aan staat.
+            raise_application_error(-20000, 'Delete not allowed');
+        ELSE
+            DECLARE
+                dummy   VARCHAR2(1);
+            BEGIN
+             -- Niet verwijderen als nog MLD_OPDR's zijn met status 'Uitgegeven' en
+             -- uitvoerende deze PERSLID.
+                SELECT 'X'
+                INTO   dummy
+                FROM   mld_opdr       MLD_O
+                WHERE  MLD_O.mld_statusopdr_key IN (5, 8)
+                AND    MLD_O.mld_uitvoerende_keys = :new.prs_perslid_key;
+                APPLICATION_ERROR_GOTO(-20000, 'prs_m085');
+            EXCEPTION
+                WHEN NO_DATA_FOUND THEN NULL;
+                WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m085');
+            END;
 
-        DECLARE
-            dummy   VARCHAR2(1);
-        BEGIN
-            -- Persoon mag alleen verwijderd worden als deze geen objecten meer in het bezit heeft.
-            -- Dit geldt alleen voor objecten die 'van de organisatie' zijn, d.i.
-            -- ins_discipline_min_level <> 3. Deze mocht de gebruiker zelf bijhouden
-            SELECT 'x'
-            INTO   dummy
-            FROM   ins_v_aanwezigdeel D, ins_tab_discipline DI
-            WHERE  ins_alg_ruimte_type = 'P'
-            AND    ins_alg_ruimte_key  = :old.prs_perslid_key
-            AND    DI.ins_discipline_key = D.ins_discipline_key
-            AND    DI.ins_discipline_min_level <> 3;
-            APPLICATION_ERROR_GOTO(-20000,'prs_m175');
-        EXCEPTION
-            WHEN NO_DATA_FOUND THEN NULL;
-            WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'prs_m175');
-        END;
+            DECLARE
+                dummy   VARCHAR2(1);
+            BEGIN
+                -- Persoon mag alleen verwijderd worden als deze geen objecten meer in het bezit heeft.
+                -- Dit geldt alleen voor objecten die 'van de organisatie' zijn, d.i.
+                -- ins_discipline_min_level <> 3. Deze mocht de gebruiker zelf bijhouden
+                SELECT 'x'
+                INTO   dummy
+                FROM   ins_v_aanwezigdeel D, ins_tab_discipline DI
+                WHERE  ins_alg_ruimte_type = 'P'
+                AND    ins_alg_ruimte_key  = :old.prs_perslid_key
+                AND    DI.ins_discipline_key = D.ins_discipline_key
+                AND    DI.ins_discipline_min_level <> 3;
+                APPLICATION_ERROR_GOTO(-20000,'prs_m175');
+            EXCEPTION
+                WHEN NO_DATA_FOUND THEN NULL;
+                WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'prs_m175');
+            END;
 
-        -- Hierna kan het verwijderen niet meer falen
-        BEGIN
-            -- Ja, je zou zeggen dat dit een zaak is van prs_perslidwerkplek, maar
-            -- dat is toch niet zo. Bovendien krijg je dan nare mutating trigger errors.
-            -- Alleen vaste werkplekken, geen flexplekken
-            IF fac.getsetting ('prs_werkplek_implicit') = 1
-            THEN
-                DELETE FROM prs_werkplek
-                      WHERE prs_werkplek_key IN (SELECT prs_werkplek_key
-                                                   FROM prs_perslidwerkplek
-                                                  WHERE prs_perslid_key = :old.prs_perslid_key)
-                        AND prs_werkplek_type = 0;
-                -- Deze delete cascadeert naar de werkplekbezetting door, gooit die dus ook weg
-                -- Let wel: de werkplekken blijven helaas wel bestaan
-            ELSE
-                -- Bij expliciet gooien wij de bezetting weg en blijft de werkplek leeg achter
-                DELETE FROM prs_perslidwerkplek
-                WHERE  prs_perslid_key = :old.prs_perslid_key;
-            END IF;
-        END;
-        -- Verwijder mandateringen
-        DELETE FROM prs_perslidkostenplaats
-        WHERE  prs_perslid_key = :old.prs_perslid_key;
+            -- Hierna kan het verwijderen niet meer falen
+            BEGIN
+                -- Ja, je zou zeggen dat dit een zaak is van prs_perslidwerkplek, maar
+                -- dat is toch niet zo. Bovendien krijg je dan nare mutating trigger errors.
+                -- Alleen vaste werkplekken, geen flexplekken
+                IF fac.getsetting ('prs_werkplek_implicit') = 1
+                THEN
+                    DELETE FROM prs_werkplek
+                          WHERE prs_werkplek_key IN (SELECT prs_werkplek_key
+                                                       FROM prs_perslidwerkplek
+                                                      WHERE prs_perslid_key = :old.prs_perslid_key)
+                            AND prs_werkplek_type = 0;
+                    -- Deze delete cascadeert naar de werkplekbezetting door, gooit die dus ook weg
+                    -- Let wel: de werkplekken blijven helaas wel bestaan
+                ELSE
+                    -- Bij expliciet gooien wij de bezetting weg en blijft de werkplek leeg achter
+                    DELETE FROM prs_perslidwerkplek
+                    WHERE  prs_perslid_key = :old.prs_perslid_key;
+                END IF;
+            END;
+            -- Verwijder mandateringen
+            DELETE FROM prs_perslidkostenplaats
+            WHERE  prs_perslid_key = :old.prs_perslid_key;
 
-        -- Verwijder contactpersoon-link
-        UPDATE prs_contactpersoon
-           SET prs_perslid_key = NULL
-         WHERE prs_perslid_key = :old.prs_perslid_key;
+            -- Verwijder contactpersoon-link
+            UPDATE prs_contactpersoon
+               SET prs_perslid_key = NULL
+             WHERE prs_perslid_key = :old.prs_perslid_key;
 
-        -- Verwijder vervangingsregistraties heen en terug
-		DELETE FROM prs_collega
-         WHERE prs_perslid_key = :old.prs_perslid_key OR prs_perslid_key_alt = :old.prs_perslid_key;
+            -- Verwijder vervangingsregistraties heen en terug
+    		DELETE FROM prs_collega
+             WHERE prs_perslid_key = :old.prs_perslid_key OR prs_perslid_key_alt = :old.prs_perslid_key;
 
-        BEGIN
-            -- Pak mijn autorisaties af
-            DELETE FROM FAC_GEBRUIKERSGROEP WHERE PRS_PERSLID_KEY = :old.prs_perslid_key;
-            -- Ook een stukje veiligheid
-            DELETE FROM fac_session WHERE prs_perslid_key = :old.prs_perslid_key;
-            DELETE FROM aut_client_perslid WHERE prs_perslid_key = :old.prs_perslid_key;
-        END;
-        -- Tenslotte: ruim de objecten die ik zelf mocht beheren op
-        -- Aandacht: zou nog steeds kunnen dat dit faalt, niet mekkeren, jammer dan
-        BEGIN
-            DELETE FROM INS_DEEL WHERE ins_deel_key IN
-                    (SELECT D.ins_deel_key
-                     FROM   ins_deel D, ins_tab_discipline DI
-                     WHERE  ins_alg_ruimte_type = 'P'
-                     AND    ins_alg_ruimte_key  = :old.prs_perslid_key
-                     AND    DI.ins_discipline_key = D.ins_discipline_key
-                     AND    DI.ins_discipline_min_level = 3);
-        EXCEPTION
-            WHEN OTHERS THEN NULL;
-        END;
-        -- Wis alle authenticatiemogelijkheden
-       :new.prs_perslid_oslogin := '';
-       :new.prs_perslid_oslogin2 := '';
-       :new.prs_perslid_apikey := NULL;
-       -- And do what prs.setpassword(:new.prs_perslid_key, NULL) would do:
-       :new.prs_perslid_salt := NULL;
-       :new.prs_perslid_wachtwoord_hash := NULL;
-       :new.prs_perslid_wachtwoord_exp := NULL;
-       :new.prs_perslid_otpsecret := NULL;
-       -- Wis profiel (dat kan anders nooit opgeruimd worden)
-       :new.fac_profiel_key := NULL;
-      END IF;
+            BEGIN
+                -- Pak mijn autorisaties af
+                DELETE FROM FAC_GEBRUIKERSGROEP WHERE PRS_PERSLID_KEY = :old.prs_perslid_key;
+                -- Ook een stukje veiligheid
+                DELETE FROM fac_session WHERE prs_perslid_key = :old.prs_perslid_key;
+                DELETE FROM aut_client_perslid WHERE prs_perslid_key = :old.prs_perslid_key;
+            END;
+            -- Tenslotte: ruim de objecten die ik zelf mocht beheren op
+            -- Aandacht: zou nog steeds kunnen dat dit faalt, niet mekkeren, jammer dan
+            BEGIN
+                DELETE FROM INS_DEEL WHERE ins_deel_key IN
+                        (SELECT D.ins_deel_key
+                         FROM   ins_deel D, ins_tab_discipline DI
+                         WHERE  ins_alg_ruimte_type = 'P'
+                         AND    ins_alg_ruimte_key  = :old.prs_perslid_key
+                         AND    DI.ins_discipline_key = D.ins_discipline_key
+                         AND    DI.ins_discipline_min_level = 3);
+            EXCEPTION
+                WHEN OTHERS THEN NULL;
+            END;
+            -- Wis alle authenticatiemogelijkheden
+            :new.prs_perslid_oslogin := '';
+            :new.prs_perslid_oslogin2 := '';
+            :new.prs_perslid_apikey := NULL;
+            -- And do what prs.setpassword(:new.prs_perslid_key, NULL) would do:
+            :new.prs_perslid_salt := NULL;
+            :new.prs_perslid_wachtwoord_hash := NULL;
+            :new.prs_perslid_wachtwoord_exp := NULL;
+            :new.prs_perslid_otpsecret := NULL;
+            -- Wis profiel (dat kan anders nooit opgeruimd worden)
+            :new.fac_profiel_key := NULL;
+        END IF;
+    END IF;
 
-      IF    :new.prs_perslid_oslogin  IS NULL AND :old.prs_perslid_oslogin  IS NOT NULL
-         OR :new.prs_perslid_oslogin2 IS NULL AND :old.prs_perslid_oslogin2 IS NOT NULL
-         OR NVL(:new.prs_perslid_wachtwoord_hash, 'X') <> NVL(:old.prs_perslid_wachtwoord_hash, 'X')
-      THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
-           --          automatisch door uitgelogd
-         :new.prs_perslid_credentials_datum := SYSDATE;
-         DELETE FROM fac_session
-               WHERE prs_perslid_key = :new.prs_perslid_key;
-         DELETE FROM aut_client_perslid
-               WHERE prs_perslid_key = :old.prs_perslid_key;
-      END IF;
+    IF     fac.getsetting ('login_use_email') = 0
+       AND (  :new.prs_perslid_oslogin  IS NULL AND :old.prs_perslid_oslogin  IS NOT NULL
+           OR :new.prs_perslid_oslogin2 IS NULL AND :old.prs_perslid_oslogin2 IS NOT NULL
+           OR NVL(:new.prs_perslid_wachtwoord_hash, 'X') <> NVL(:old.prs_perslid_wachtwoord_hash, 'X')
+           )
+       OR      fac.getsetting ('login_use_email') = 1
+           AND :new.prs_perslid_email IS NULL
+           AND :old.prs_perslid_email IS NOT NULL
+    THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
+         --          automatisch door uitgelogd
+        :new.prs_perslid_credentials_datum := SYSDATE;
+        DELETE FROM fac_session
+              WHERE prs_perslid_key = :new.prs_perslid_key;
+        DELETE FROM aut_client_perslid
+              WHERE prs_perslid_key = :old.prs_perslid_key;
+    END IF;
 
 END;
 /
@@ -293,6 +314,10 @@ CREATE_TRIGGER(prs_t_prs_perslid_B_D)
 BEFORE DELETE ON prs_perslid
 FOR EACH ROW
 BEGIN
+    IF (BITAND(:old.prs_perslid_flags,32) = 32 OR BITAND(:new.prs_perslid_flags,32) = 32)
+    THEN
+        raise_application_error(-20000, 'Delete not allowed');
+    END IF;
 	DELETE FROM prs_kenmerklink KL WHERE KL.prs_link_key=:old.prs_perslid_key  AND KL.prs_kenmerklink_niveau='P';
 END;
 /
@@ -315,6 +340,11 @@ BEGIN
             ins_alg_ruimte_key = :old.prs_alg_ruimte_key
       WHERE ins_deel.ins_alg_ruimte_key = :old.prs_werkplek_key
         AND ins_deel.ins_alg_ruimte_type = 'W';
+     UPDATE ins_deel
+        SET ins_alg_ruimte_type_org = 'R',
+            ins_alg_ruimte_key_org = :old.prs_alg_ruimte_key
+      WHERE ins_deel.ins_alg_ruimte_key_org = :old.prs_werkplek_key
+        AND ins_deel.ins_alg_ruimte_type_org = 'W';
 END;
 /
 CREATE_TRIGGER(prs_t_prs_ruimteafdeling_B_IU)
@@ -876,6 +906,21 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(prs_t_perslid_tabs_B_I)
+BEFORE INSERT ON prs_perslid_tabs
+FOR EACH ROW
+BEGIN
+     UPDATE_PRIMARY_KEY(prs_perslid_tabs_key, prs_s_prs_perslid_tabs_key);
+END;
+/
+
+CREATE_TRIGGER(prs_t_perslid_cols_B_I)
+BEFORE INSERT ON prs_perslid_cols
+FOR EACH ROW
+BEGIN
+     UPDATE_PRIMARY_KEY(prs_perslid_cols_key, prs_s_prs_perslid_cols_key);
+END;
+/
 REGISTERRUN('$Id$')
 
 #endif

PRS/PRS_VIE.SRC

@@ -71,7 +71,6 @@ CREATE_VIEW(prs_v_perslid_gegevens,0) AS
            PRS_P.prs_perslid_tussenvoegsel,
            PRS_P.prs_perslid_voornaam,
            PRS_P.prs_perslid_initialen,
-           PRS_P.prs_perslid_init_upper,
            PRS_P.prs_perslid_nr,
            PRS_P.prs_perslid_telefoonnr,
            PRS_P.prs_perslid_email,
@@ -1037,6 +1036,9 @@ AS
     WHERE     b.bes_bestelling_status IN (5, 4, 3, 2)
           AND b.mld_adres_key_lev = ma.mld_adres_key(+)
           AND b.fac_activiteit_key IS NULL
+          AND EXISTS (SELECT 1
+                        FROM bes_bestelling_item       i
+                       WHERE b.bes_bestelling_key = i.bes_bestelling_key)
    UNION ALL
    SELECT b.prs_perslid_key_voor,
           'PRS_OPENST_BESTELLING',
@@ -1048,6 +1050,9 @@ AS
     WHERE     b.bes_bestelling_status IN (5, 4, 3, 2)
           AND b.mld_adres_key_lev = ma.mld_adres_key(+)
           AND b.fac_activiteit_key IS NULL
+          AND EXISTS (SELECT 1
+                        FROM bes_bestelling_item       i
+                       WHERE b.bes_bestelling_key = i.bes_bestelling_key)
    UNION ALL
    SELECT ins_alg_ruimte_key,
           'PRS_BEZIT_OBJECT',
@@ -1176,31 +1181,33 @@ AS
           k.prs_kostenplaats_nr,
           k.prs_kostenplaats_key,
           NULL,
-          ''
+          'budgethouder'
      FROM prs_kostenplaats k
+    WHERE prs_kostenplaats_verwijder IS NULL
+      AND (prs_kostenplaats_eind > SYSDATE OR prs_kostenplaats_eind IS NULL)
    UNION ALL
    SELECT k.prs_perslid_key,
-          'PRS_BUDGETHOUDER_GROEP',
+          'PRS_FIATTEUR_GROEP1',
           k.prs_kostenplaatsgrp_oms,
           k.prs_kostenplaatsgrp_key,
           NULL,
-          ''
+          'fiatteur'
      FROM prs_kostenplaatsgrp k
    UNION ALL
    SELECT k.prs_kostenplaatsgrp_fiat2_key,
-          'PRS_BUDGETHOUDER_GROEP',
+          'PRS_FIATTEUR_GROEP2',
           k.prs_kostenplaatsgrp_oms,
           k.prs_kostenplaatsgrp_key,
           NULL,
-          ''
+          'fiatteur'
      FROM prs_kostenplaatsgrp k
    UNION ALL
    SELECT k.prs_kostenplaatsgrp_fiat3_key,
-          'PRS_BUDGETHOUDER_GROEP',
+          'PRS_FIATTEUR_GROEP3',
           k.prs_kostenplaatsgrp_oms,
           k.prs_kostenplaatsgrp_key,
           NULL,
-          ''
+          'fiatteur'
      FROM prs_kostenplaatsgrp k
    UNION ALL
    SELECT c.prs_perslid_key_beh,
@@ -1421,6 +1428,9 @@ AS
      FROM bes_bestelling b
     WHERE b.bes_bestelling_status IN (5, 4, 3, 2)
       AND b.fac_activiteit_key IS NULL
+      AND EXISTS (SELECT 1
+                    FROM bes_bestelling_item       i
+                   WHERE b.bes_bestelling_key = i.bes_bestelling_key)
    UNION ALL
    SELECT ins_alg_ruimte_key, ins_deel_key
      FROM ins_v_aanwezigdeel d, ins_tab_discipline ID

RES/RES_IND.SRC

@@ -14,9 +14,11 @@ create index res_i_res_ruimte_opstelling2 on res_ruimte_opstelling(res_opstellin
 
 create index res_i_res_deel1 on res_deel(res_deel_key, res_ins_deel_key);
 create index res_i_res_deel2 on res_deel(res_discipline_key);
-CREATE UNIQUE INDEX res_i_res_deel3 ON res_deel(res_ins_deel_key, res_discipline_key, res_deel_verwijder);
+CREATE UNIQUE INDEX res_i_res_deel3 ON res_deel(res_ins_deel_key, res_prs_perslid_key, res_discipline_key, res_deel_verwijder);
+create index res_i_res_deel4 ON res_deel(res_prs_perslid_key);
 
 create index res_i_res_artikel1 on res_artikel(res_discipline_key);
+create unique index res_i_res_arrangement_art1 on res_arrangement_artikel(res_arrangement_key, res_artikel_key);
 
 create index res_i_res_rsv_ruimte1 on res_rsv_ruimte(res_ruimte_opstel_key, res_rsv_ruimte_van, res_rsv_ruimte_tot);
 create index res_i_res_rsv_ruimte2 on res_rsv_ruimte(res_rsv_ruimte_van, res_rsv_ruimte_tot);
@@ -28,6 +30,7 @@ create index res_i_res_rsv_ruimte12 on res_rsv_ruimte (alg_ruimte_key);
 create index res_i_res_rsv_ruimte13 on res_rsv_ruimte (res_rsv_ruimte_tot, res_rsv_ruimte_van);
 create index res_i_res_rsv_ruimte14 on res_rsv_ruimte (res_rsv_ruimte_kto_verstuurd);
 create index res_i_res_rsv_ruimte15 on res_rsv_ruimte (res_rsv_ruimte_externnr);
+create index res_i_res_rsv_ruimte16 on res_rsv_ruimte (mld_opdr_key);
 
 create index res_i_res_rsv_deel2 on res_rsv_deel(res_deel_key);
 create index res_i_res_rsv_deel3 on res_rsv_deel(bez_bezoekers_key);

RES/RES_LCL.SRC

@@ -139,10 +139,6 @@ DEFINE_LOCALEITEM(lcl_res_objplantime)
 DEFINE_LOCALEITEM(lcl_res_opstelling)
 DEFINE_LOCALEITEM(lcl_res_pers)
 DEFINE_LOCALEITEM(lcl_res_plaats)
-DEFINE_LOCALEITEM(lcl_res_plan_eerder)
-DEFINE_LOCALEITEM(lcl_res_plan_later)
-DEFINE_LOCALEITEM(lcl_res_plan_meer_eerder)
-DEFINE_LOCALEITEM(lcl_res_plan_meer_later)
 DEFINE_LOCALEITEM(lcl_res_plan_tt_eerder)
 DEFINE_LOCALEITEM(lcl_res_plan_tt_later)
 DEFINE_LOCALEITEM(lcl_res_plan_tt_meer_eerder)

RES/RES_PAC.SRC

@@ -14,6 +14,7 @@ CREATE OR REPLACE PACKAGE res AS
                               newreskey NUMBER DEFAULT NULL,
                               newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER;
    PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER);
+   PROCEDURE set_catalogus_approve(prsv_ruimte_key IN NUMBER, puserkey IN NUMBER);
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER);
    PROCEDURE set_ruimtes_clean (checkdate IN DATE);
    PROCEDURE set_delen_dirty (prsv_ruimte_key IN NUMBER);
@@ -35,6 +36,7 @@ CREATE OR REPLACE PACKAGE res AS
    FUNCTION sprintf (ps IN VARCHAR2 , pres_rsv_ruimte_key IN NUMBER) RETURN VARCHAR2;
    FUNCTION notifypool (pbez_bezoeker_key IN NUMBER, pcode IN VARCHAR2) RETURN NUMBER;
    PROCEDURE notifybackoffice (prsvkey IN NUMBER, pcode IN VARCHAR2, ptype IN VARCHAR2 DEFAULT NULL, pkey IN NUMBER DEFAULT NULL);
+   PROCEDURE remove(p_rsv_ruimte_key IN NUMBER);
 END res;
 /
 
@@ -59,6 +61,7 @@ AS
            WHERE   res_reservering_key = pres_key)
       LOOP
          rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey, newvolgnr);
+         res.set_catalogus_approve(rsv_key, puserkey);
          newvolgnr := newvolgnr + 1;
       END LOOP;
      RETURN nextkey;
@@ -142,7 +145,7 @@ AS
 
    PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER)
    AS
-      --flags (0-32767)
+      --flags (0-131071)
       -- 0 Niks
       -- 1 Omschrijving
       -- 2 Opmerking
@@ -156,9 +159,12 @@ AS
       -- 256 Catering (artikelen)
       -- 512 Bezoekers
       -- 1024 Flexkenmerken
+      -- 2048 Datum
       -- 4096 Naam
       -- 8192 Reserveringsstatus
       -- 16384 Afgesproken ruimteprijs
+      -- 32768 Korting
+      -- 65536 Flags (bolletjes)
       -- Neem van alles (afh. flags) van prsv_ruimte_key_from over naar prsv_ruimte_key_to
       -- Misschien inzetbaar bij follow_artikel met  prsv_ruimte_key_from==prsv_ruimte_key_to
       -- Bepaal de rsv_ruimte van dezelfde reservering die verder in de toekomst liggen
@@ -178,7 +184,7 @@ AS
         FROM   res_rsv_ruimte rr
        WHERE   rr.res_rsv_ruimte_key = prsv_ruimte_key_to;
       -- 0 Niks
-      IF BITAND (flags, 32767) = 0
+      IF BITAND (flags, 131071) = 0
       THEN
          RETURN;
       END IF;
@@ -289,6 +295,20 @@ AS
             SET   res_rsv_ruimte_totaal = rsv_from.res_rsv_ruimte_totaal
           WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to;
       END IF;
+      -- 32768 Korting
+      IF BITAND (flags, 32768) = 32768
+      THEN
+         UPDATE   res_rsv_ruimte
+            SET   res_rsv_ruimte_korting = rsv_from.res_rsv_ruimte_korting
+          WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to;
+      END IF;
+      -- 65536 Flags (bolletjes)
+      IF BITAND (flags, 65536) = 65536
+      THEN
+         UPDATE   res_rsv_ruimte
+            SET   res_rsv_ruimte_flag = rsv_from.res_rsv_ruimte_flag
+          WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to;
+      END IF;
       -- 128 Voorzieningen (delen)
       IF BITAND (flags, 128) = 128
       THEN
@@ -351,6 +371,64 @@ AS
                             + (ra.res_rsv_artikel_levering - TRUNC (ra.res_rsv_artikel_levering)) BETWEEN new_ruimte_van AND  new_ruimte_tot
                         AND ra.res_rsv_ruimte_key = prsv_ruimte_key_from;
          END;
+         -- Kenmerken ook kopieren.
+         IF BITAND (flags, 1024) = 1024
+         THEN
+            -- Verwijder eerst de oude niet-file kenmerken
+            -- Artikel kenmerken.
+            DELETE FROM   res_kenmerkartikel
+                  WHERE   res_rsv_artikel_key IN (SELECT res_rsv_artikel_key FROM res_rsv_artikel WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
+                    AND   res_kenmerk_key IN
+                              (SELECT k.res_kenmerk_key
+                                 FROM res_kenmerkartikel w, res_kenmerk k, res_srtkenmerk sk
+                                WHERE w.res_kenmerk_key = k.res_kenmerk_key
+                                  AND k.res_srtkenmerk_key = sk.res_srtkenmerk_key
+                                  AND w.res_rsv_artikel_key IN (SELECT res_rsv_artikel_key FROM res_rsv_artikel WHERE res_rsv_ruimte_key = prsv_ruimte_key_to)
+                                  AND sk.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E'));
+            --
+            -- Artikel kenmerken.
+            -- Artikel is al toegevoegd indien catering is aangevinkt.
+            INSERT INTO res_kenmerkartikel (res_rsv_artikel_key, res_kenmerk_key, res_kenmerkartikel_waarde)
+                SELECT a.res_rsv_artikel_key,
+                       k.res_kenmerk_key,
+                       waarde_from.res_kenmerkartikel_waarde
+                  FROM res_kenmerk k,
+                       res_srtkenmerk s,
+                       res_rsv_ruimte r,
+                       res_rsv_artikel a,
+                       (SELECT w1.res_kenmerkartikel_waarde,
+                               k1.res_kenmerk_groep,
+                               k1.res_srtkenmerk_key,
+                               k1.res_artikel_key,
+                               k1.res_kenmerk_key
+                          FROM res_kenmerkartikel w1,
+                               res_kenmerk k1,
+                               res_srtkenmerk s1,
+                               res_rsv_ruimte r1,
+                               res_rsv_artikel a1
+                         WHERE w1.res_kenmerk_key = k1.res_kenmerk_key
+                           AND k1.res_srtkenmerk_key = s1.res_srtkenmerk_key
+                           AND k1.res_artikel_key = a1.res_artikel_key
+                           AND k1.res_activiteit_key IS NULL
+                           AND w1.res_rsv_artikel_key = a1.res_rsv_artikel_key
+                           AND a1.res_rsv_ruimte_key = r1.res_rsv_ruimte_key
+                           AND w1.res_kenmerkartikel_verwijder IS NULL
+                           AND s1.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
+                           AND r1.res_rsv_ruimte_key = prsv_ruimte_key_from
+                       ) waarde_from
+                 WHERE k.res_artikel_key = a.res_artikel_key
+                   AND a.res_rsv_ruimte_key = r.res_rsv_ruimte_key
+                   AND k.res_kenmerk_niveau = 'D'
+                   AND k.res_kenmerk_volgnummer < 900
+                   AND k.res_kenmerk_verwijder IS NULL
+                   AND s.res_srtkenmerk_verwijder IS NULL
+                   AND k.res_srtkenmerk_key = s.res_srtkenmerk_key
+                   AND s.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
+                   AND waarde_from.res_srtkenmerk_key = k.res_srtkenmerk_key
+                   AND waarde_from.res_kenmerk_groep = k.res_kenmerk_groep
+                   AND waarde_from.res_artikel_key = a.res_artikel_key
+                   AND r.res_rsv_ruimte_key = prsv_ruimte_key_to;
+         END IF;
       END IF;
       -- 512 Bezoekers
       IF BITAND (flags, 512) = 512
@@ -364,6 +442,7 @@ AS
       IF BITAND (flags, 1024) = 1024
       THEN
          -- Verwijder eerst de oude niet-file kenmerken
+         -- Ruimte kenmerken.
          DELETE FROM   res_kenmerkwaarde
                WHERE   res_rsv_ruimte_key = prsv_ruimte_key_to
                  AND   res_kenmerk_key IN
@@ -374,12 +453,12 @@ AS
                                AND w.res_rsv_ruimte_key = prsv_ruimte_key_to
                                AND sk.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E'));
          --
+         -- Ruimte kenmerken.
          INSERT INTO res_kenmerkwaarde (res_rsv_ruimte_key, res_kenmerk_key, res_kenmerkreservering_waarde)
              SELECT prsv_ruimte_key_to
                   , k.res_kenmerk_key
                   , waarde_from.res_kenmerkreservering_waarde
-               FROM res_srtkenmerk t
-                  , res_kenmerk k
+               FROM res_kenmerk k
                   , res_srtkenmerk s
                   , res_rsv_ruimte r
                   , ( SELECT w1.res_kenmerkreservering_waarde
@@ -387,6 +466,8 @@ AS
                            , k1.res_srtkenmerk_key
                            , k1.res_activiteit_key
                            , k1.res_kenmerk_key
+                           , k1.res_kenmerk_omschrijving
+                           , s1.res_srtkenmerk_omschrijving
                         FROM res_kenmerkwaarde w1
                            , res_kenmerk k1
                            , res_srtkenmerk s1
@@ -394,7 +475,8 @@ AS
                        WHERE w1.res_kenmerk_key = k1.res_kenmerk_key
                          AND k1.res_srtkenmerk_key = s1.res_srtkenmerk_key
                          AND k1.res_activiteit_key = r1.res_activiteit_key
-                         and w1.res_rsv_ruimte_key = r1.res_rsv_ruimte_key
+                         AND k1.res_artikel_key IS NULL
+                         AND w1.res_rsv_ruimte_key = r1.res_rsv_ruimte_key
                          AND w1.res_kenmerkwaarde_verwijder IS NULL
                          AND s1.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
                          AND r1.res_rsv_ruimte_key = prsv_ruimte_key_from
@@ -403,11 +485,11 @@ AS
                 AND k.res_kenmerk_niveau = 'A'
                 AND k.res_kenmerk_volgnummer < 900
                 AND k.res_kenmerk_verwijder IS NULL
-                AND k.res_srtkenmerk_key = t.res_srtkenmerk_key
-                AND t.res_srtkenmerk_verwijder IS NULL
+                AND s.res_srtkenmerk_verwijder IS NULL
                 AND k.res_srtkenmerk_key = s.res_srtkenmerk_key
                 AND s.res_srtkenmerk_kenmerktype NOT IN ('F', 'M', 'E')
                 AND waarde_from.res_srtkenmerk_key = k.res_srtkenmerk_key
+                AND COALESCE(waarde_from.res_kenmerk_omschrijving, waarde_from.res_srtkenmerk_omschrijving) = COALESCE(k.res_kenmerk_omschrijving, s.res_srtkenmerk_omschrijving)
                 AND waarde_from.res_kenmerk_groep = k.res_kenmerk_groep
                 AND r.res_rsv_ruimte_key = prsv_ruimte_key_to;
       END IF;
@@ -421,7 +503,64 @@ AS
       res.set_delen_dirty (prsv_ruimte_key_to);
       res.set_artikelen_dirty (prsv_ruimte_key_to);
    END;
-
+   -- Er moet aangegeven worden of de artikelregels gefiatteerd dienen te worden of direct goedgekeurd kunnen worden.
+   PROCEDURE set_catalogus_approve (prsv_ruimte_key IN NUMBER, puserkey IN NUMBER)
+   AS
+      hastoapprove        NUMBER := 0;
+      -- Voor elke artikelregel het totaalbedrag en drempelbedrag van zijn catalogus opleveren.
+      CURSOR prsv_artikel_cat_appr
+      IS
+         SELECT (  SELECT SUM(res.getartikelprijs(rra1.res_rsv_artikel_key)) sum_cat_artprijs
+                     FROM res_rsv_artikel rra1,
+                          res_artikel ra1
+                    WHERE rra1.res_artikel_key = ra1.res_artikel_key
+                      AND rra1.res_rsv_artikel_dirtlevel = 0
+                      AND rra1.res_rsv_ruimte_key = rra.res_rsv_ruimte_key
+                      AND ra1.res_discipline_key = ra.res_discipline_key
+                 GROUP BY ra1.res_discipline_key) sum_cat_artprijs,
+                rdp.res_disc_params_threshold
+           FROM res_rsv_artikel rra,
+                res_artikel ra,
+                res_v_aanwezigdiscipline rd,
+                res_disc_params rdp
+          WHERE rra.res_artikel_key = ra.res_artikel_key
+            AND ra.res_discipline_key = rd.ins_discipline_key
+            AND rd.ins_discipline_key = rdp.res_ins_discipline_key
+            AND rra.res_rsv_ruimte_key = prsv_ruimte_key;
+   BEGIN
+      FOR prsv_art_cat_appr IN prsv_artikel_cat_appr
+      LOOP
+         -- Voor elke artikelregel bepalen of deze nog gefiatteerd dient te worden of dat de artikelregel direct goedgekeurd kan worden.
+         IF hastoapprove = 0 AND prsv_art_cat_appr.sum_cat_artprijs > prsv_art_cat_appr.res_disc_params_threshold
+         THEN
+           hastoapprove := 1;
+         END IF;
+      END LOOP;
+      -- De res_rsv_artikel_approved velden aanpassen. De default waarde is 1.
+      -- Rsv artikel setting res_rsv_artikel_approved: De artikelregel is 0=Niet gefiatteerd, 1=Goedgekeurd (default), 2=Afgewezen.
+      UPDATE res_rsv_artikel
+         SET res_rsv_artikel_approved = CASE
+                                        WHEN hastoapprove = 1
+                                        THEN 0
+                                        ELSE 1
+                                        END
+       WHERE res_rsv_ruimte_key = prsv_ruimte_key;
+      -- Het res_rsv_ruimte_cat_appr veld aanpassen.
+      -- Er moet worden gefiatteerd als hastoapprove true is. Er zijn dan catalogussen met een totaal bestelbedrag die boven de drempelwaarde ligt.
+      -- Catalogus setting res_rsv_ruimte_cat_appr: Artikelregels wel of niet fiatteren {0=Nee of 1=Ja}.
+      UPDATE res_rsv_ruimte
+         SET res_rsv_ruimte_cat_appr = CASE
+                                       WHEN hastoapprove = 1
+                                       THEN 1
+                                       ELSE 0
+                                       END
+       WHERE res_rsv_ruimte_key = prsv_ruimte_key;
+      IF hastoapprove = 1
+      THEN
+         -- Notificatie en tracking: Reservering ##KEY## (##DESC##) is ter fiattering aangeboden aan ##FIATTEUR##.
+         fac.trackaction ('RESFIA', prsv_ruimte_key, puserkey, NULL, NULL);
+      END IF;
+   END;
    -- Moeten wijzelf misschien dirty worden (door overlap met anderen)
    -- of schoon worden
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER)
@@ -435,14 +574,17 @@ AS
       IS
              SELECT   rr.alg_ruimte_key,
                       rr.res_ruimte_opstel_key,
+                      ro.res_ruimte_opstel_tijd,
                       rr.res_status_fo_key,
                       rr.res_rsv_ruimte_van,
                       rr.res_rsv_ruimte_tot,
                       ra.res_activiteit_posttime
                FROM   res_rsv_ruimte rr,
-                      res_activiteit ra
+                      res_activiteit ra,
+                      res_ruimte_opstelling ro
               WHERE   rr.res_rsv_ruimte_key = prsv_ruimte_key
                 AND   rr.res_activiteit_key = ra.res_activiteit_key
+                AND   rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
          FOR UPDATE   OF res_rsv_ruimte_dirtlevel;
       prsv_ruimte prsv_ruimtecur%ROWTYPE;
    BEGIN
@@ -487,7 +629,7 @@ AS
                 preposttime := preposttime - 1/24/60;
             END IF;
             DBMS_OUTPUT.PUT_LINE('Catalogus preposttime (dagen): ' || TO_CHAR(preposttime));
-            DBMS_OUTPUT.PUT_LINE('Activiteit preposttime (uren): ' || TO_CHAR(prsv_ruimte.res_activiteit_posttime));
+            DBMS_OUTPUT.PUT_LINE('Activiteit posttime (uren): ' || TO_CHAR(prsv_ruimte.res_activiteit_posttime));
             --
             n_overlap := 0;
             -- Controleer op blokkade van ruimte ivm middagpauze
@@ -503,9 +645,13 @@ AS
             -- Oke, hoeveel overlappende alg_ruimte hebben we nu
             SELECT   COUNT (DISTINCT rb.res_ruimte_key) + n_overlap
               INTO   n_overlap
-              FROM   res_alg_ruimte rb,                                                                        -- ikzelf
-                     res_v_rsv_ruimte_2_alg_ruimte rr                                                          -- de andere
+              FROM   res_alg_ruimte rb,                                                                           -- ikzelf
+                     res_v_rsv_ruimte_2_alg_ruimte rr,                                                            -- de andere
+                     (SELECT res_ruimte_key, res_disc_params_preposttime
+                        FROM res_disc_params, res_ruimte
+                       WHERE res_disc_params.res_ins_discipline_key = res_ruimte.res_discipline_key) rsv_prepost  -- prepost van de ander
              WHERE   rr.alg_ruimte_key = rb.alg_ruimte_key AND rb.res_ruimte_key = my_res_ruimte_key
+                     AND rsv_prepost.res_ruimte_key = rr.res_ruimte_key
                      -- Redundant maar z<><7A>r goed voor performance
                      -- ONGETEST/komt niet voor maar: meerdaagse reserveringen zou zo maar goed kunnen gaan
                      AND rb.res_alg_ruimte_verwijder IS NULL
@@ -519,11 +665,25 @@ AS
                      -- de rr.res_rsv_ruimte_van PLUS preposttime
                      AND CASE rr.res_status_fo_key
                            WHEN 3 THEN rr.res_rsv_ruimte_van
-                           ELSE rr.res_rsv_ruimte_van - GREATEST(preposttime, (prsv_ruimte.res_activiteit_posttime / 24))
+                           ELSE rr.res_rsv_ruimte_van - GREATEST(preposttime,
+                                                                 rsv_prepost.res_disc_params_preposttime / 24,
+                                                                 prsv_ruimte.res_activiteit_posttime / 24,
+                                                                 (SELECT CASE rr.res_ruimte_opstel_key
+                                                                            WHEN prsv_ruimte.res_ruimte_opstel_key THEN 0 -- Geen omsteltijd bij dezelfde opstelling
+                                                                            ELSE GREATEST (prsv_ruimte.res_ruimte_opstel_tijd, rr.res_ruimte_opstel_tijd) / 24
+                                                                         END
+                                                                    FROM DUAL))
                         END < prsv_ruimte.res_rsv_ruimte_tot
                      AND CASE rr.res_status_fo_key
                            WHEN 3 THEN rr.res_rsv_ruimte_tot
-                           ELSE rr.res_rsv_ruimte_tot + GREATEST(preposttime, (rr.res_activiteit_posttime / 24))
+                           ELSE rr.res_rsv_ruimte_tot + GREATEST(preposttime,
+                                                                 rsv_prepost.res_disc_params_preposttime / 24,
+                                                                 rr.res_activiteit_posttime / 24,
+                                                                 (SELECT CASE rr.res_ruimte_opstel_key
+                                                                            WHEN prsv_ruimte.res_ruimte_opstel_key THEN 0 -- Geen omsteltijd bij dezelfde opstelling
+                                                                            ELSE GREATEST (prsv_ruimte.res_ruimte_opstel_tijd, rr.res_ruimte_opstel_tijd) / 24
+                                                                         END
+                                                                    FROM DUAL))
                         END > prsv_ruimte.res_rsv_ruimte_van
                      AND rr.res_rsv_ruimte_key != prsv_ruimte_key
                      AND res_rsv_ruimte_dirtlevel < 256 --And die anderen niet zwaar dirty!
@@ -556,6 +716,7 @@ AS
             FROM   res_rsv_ruimte
            WHERE   res_rsv_ruimte_dirtlevel <> 0
                    AND res_rsv_ruimte_verwijder IS NULL
+                   AND (res_status_bo_key IS NULL OR res_status_bo_key <> 6) -- status 6 is niet bij te werken.
                    AND res_rsv_ruimte_van BETWEEN TRUNC (checkdate) AND TRUNC (checkdate + 1))
       loop
          set_ruimte_dirty (prsv_ruimte.res_rsv_ruimte_key);
@@ -697,6 +858,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_prs_perslid_key res_deel.res_prs_perslid_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;
@@ -710,6 +872,7 @@ AS
       BEGIN
           SELECT   d.res_deel_key,
                    rd.res_ins_deel_key,
+                   rd.res_prs_perslid_key,
                    rd.res_deel_vervaldatum,
                    d.res_rsv_ruimte_key,
                    res_rsv_deel_key,
@@ -721,6 +884,7 @@ AS
                    res_disc_params_preposttime / 24
             INTO   lres_deel_key,
                    lres_ins_deel_key,
+                   lres_prs_perslid_key,
                    lres_deel_vervaldatum,
                    lrsv_ruimte_key,
                    lrsv_deel_key,
@@ -752,7 +916,8 @@ AS
             FROM   res_v_aanwezigrsv_deel rad,                                                                  -- de andere
                    res_deel rd
            WHERE rd.res_deel_key = rad.res_deel_key
-             AND rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key
+             AND (rd.res_ins_deel_key = lres_ins_deel_key -- Er kunnen meerdere res_deel-en zijn met dezelfde ins_deel_key/ prs_perslid_key
+                  OR rd.res_prs_perslid_key = lres_prs_perslid_key)
                    -- Er is overlap als
                    -- A) de andere ruimte begint voor ons einde
                    -- B) en eindigt na ons begin
@@ -764,10 +929,12 @@ AS
           THEN
              newdirtlevel :=  512;                                                                                 -- Overlap
           END IF;
-          IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
-             lres_deel_vervaldatum <= lrsv_deel_tot
-          THEN
-             newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope/Not Allowed
+          IF lres_prs_perslid_key IS NULL THEN
+              IF NOT res_deel_in_scope (lres_deel_key, lrsv_ruimte_key) OR
+                 lres_deel_vervaldatum <= lrsv_deel_tot
+              THEN
+                 newdirtlevel :=  newdirtlevel + 256;                                                               -- OutOfScope/Not Allowed
+              END IF;
           END IF;
           IF (lrsv_deel_van < lruimtevan OR lrsv_deel_tot > lruimtetot)
           THEN
@@ -894,12 +1061,20 @@ AS
       prsv_artikel prsv_artikelcur%ROWTYPE;
       newvan res_rsv_ruimte.res_rsv_ruimte_van%TYPE;
       newtot res_rsv_ruimte.res_rsv_ruimte_tot%TYPE;
+      oldvantijd VARCHAR2(5);
+      oldtottijd VARCHAR2(5);
+      newvandatum VARCHAR2(10);
+      newvantijd VARCHAR2(5);
+      newtottijd VARCHAR2(5);
    BEGIN
-      SELECT   res_rsv_ruimte_van, res_rsv_ruimte_tot
-        INTO newvan,newtot
+      SELECT   res_rsv_ruimte_van, res_rsv_ruimte_tot, to_char(res_rsv_ruimte_van,'HH24:MI'), to_char(res_rsv_ruimte_tot,'HH24:MI')
+        INTO   newvan, newtot, newvantijd, newtottijd
         FROM   res_rsv_ruimte
        WHERE   res_rsv_ruimte_key = prsv_ruimte_key;
-      IF oldvan <> newvan OR oldtot <> newtot
+      SELECT to_char(oldvan,'HH24:MI')  INTO oldvantijd FROM DUAL;
+      SELECT to_char(oldtot,'HH24:MI')  INTO oldtottijd FROM DUAL;
+      SELECT to_char(newvan,'DD-MM-YYYY')  INTO newvandatum FROM DUAL;
+      IF oldvantijd <> newvantijd OR oldtottijd <> newtottijd
       THEN
          -- alleen aanpassen indien de tijden zijn veranderd
          -- Als de status "Verwerkt(6)" krijg je hier een foutmelding via de trigger res_t_res_rsv_artikel_B_IU.
@@ -910,6 +1085,14 @@ AS
                   AND (   rra.res_rsv_artikel_levering = oldvan
                        OR rra.res_rsv_artikel_levering > newtot
                        OR rra.res_rsv_artikel_levering < newvan);
+      ELSE
+         -- change date-part only to keep the item-dates within the from-to date range
+         UPDATE   res_rsv_artikel rra
+            SET   rra.res_rsv_artikel_levering = TO_DATE (newvandatum || ' ' || TO_CHAR (res_rsv_artikel_levering, 'HH24:MI'), 'DD-MM-YYYY HH24:MI')
+          WHERE   rra.res_rsv_ruimte_key = prsv_ruimte_key
+                  AND (   rra.res_rsv_artikel_levering = oldvan
+                       OR rra.res_rsv_artikel_levering > newtot
+                       OR rra.res_rsv_artikel_levering < newvan);
       END IF;
       -- now (re)set the dirty marks
       FOR prsv_artikel IN prsv_artikelcur
@@ -991,7 +1174,8 @@ AS
                 , t.res_srtkenmerk_nmax nmax
                 , t.fac_kenmerkdomein_key
                 , k.res_kenmerk_volgnummer
-                , t.res_srtkenmerk_omschrijving
+                , COALESCE(lcl.x ('res_kenmerk_omschrijving', k.res_kenmerk_key, k.res_kenmerk_omschrijving)
+                         , lcl.x ('res_srtkenmerk_omschrijving', t.res_srtkenmerk_key, t.res_srtkenmerk_omschrijving)) kenmerk_omschrijving
                 , v.res_kenmerkreservering_waarde
              FROM res_srtkenmerk t
                 , res_kenmerk k
@@ -1000,9 +1184,11 @@ AS
               AND k.res_srtkenmerk_key = t.res_srtkenmerk_key
               AND k.res_kenmerk_verwijder IS NULL
               AND t.res_srtkenmerk_verwijder IS NULL
+              AND k.res_kenmerk_niveau = 'A'
               AND v.res_rsv_ruimte_key = prsv_ruimte_key
             ORDER BY k.res_kenmerk_volgnummer
-                , UPPER(lcl.x ('t.res_srtkenmerk_omschrijving', t.res_srtkenmerk_key, res_srtkenmerk_omschrijving));
+                , UPPER(COALESCE(lcl.x ('res_kenmerk_omschrijving', k.res_kenmerk_key, k.res_kenmerk_omschrijving)
+                               , lcl.x ('res_srtkenmerk_omschrijving', t.res_srtkenmerk_key, t.res_srtkenmerk_omschrijving)));
 
     BEGIN
        BEGIN
@@ -1072,7 +1258,7 @@ AS
              IF waarde IS NOT NULL AND waarde <> '-1'
              -- gevuld
              THEN
-               IF ck.res_srtkenmerk_kenmerktype IN ('N', 'B') AND ck.nmin = 0 AND ck.nmax = 1
+               IF ck.res_srtkenmerk_kenmerktype = 'V'
                -- checkbox
                THEN
                  IF waarde = '0'
@@ -1085,17 +1271,17 @@ AS
                ELSIF ck.res_srtkenmerk_kenmerktype = 'R' OR ck.res_srtkenmerk_kenmerktype = 'S'
                -- referentie
                THEN
-                 waarde := fac.getdomeinwaarde (ck.fac_kenmerkdomein_key, TO_NUMBER (waarde));
+                 waarde := flx.getdomeinwaarde (ck.fac_kenmerkdomein_key, TO_NUMBER (waarde));
                END IF;
                -- In het zeldzame geval dat de tekst te lang zou worden slaan we sommige
                -- kenmerken gewoon silent over. Niet ideaal maar toch vrij theoretisch
-               IF (COALESCE(LENGTH(bezremark),0) + LENGTH(ck.res_srtkenmerk_omschrijving) + LENGTH(waarde) < 3990)
+               IF (COALESCE(LENGTH(bezremark),0) + LENGTH(ck.kenmerk_omschrijving) + LENGTH(waarde) < 3990)
                THEN
                  IF lremarkfilled
                  THEN
-                   bezremark := bezremark || CHR(10) || ck.res_srtkenmerk_omschrijving || ': ' || waarde;
+                   bezremark := bezremark || CHR(10) || ck.kenmerk_omschrijving || ': ' || waarde;
                  ELSE
-                   bezremark := ck.res_srtkenmerk_omschrijving || ': ' || waarde;
+                   bezremark := ck.kenmerk_omschrijving || ': ' || waarde;
                    lremarkfilled := TRUE;
                  END IF;
                END IF;
@@ -1766,17 +1952,26 @@ AS
       s            VARCHAR2 (2048 CHAR);
       nr           VARCHAR2 (30);
       omschrijving res_rsv_ruimte.res_rsv_ruimte_omschrijving%TYPE;
+      fiatteur     prs_v_perslid_fullnames_all.prs_perslid_naam_full%TYPE;
    BEGIN
       s :=  ps;
       -- TODO We support substitution of placeholders in the messages
-      -- ##DESC##   = res_rsv_ruimte_omschrijving
-      -- ##KEY##    = res_reservering_nr
-      SELECT   TO_CHAR (res_reservering_key)  ||  '/'  ||  TO_CHAR (rr.res_rsv_ruimte_volgnr),
-               rr.res_rsv_ruimte_omschrijving
-        INTO   nr, omschrijving
-        FROM   res_rsv_ruimte rr
-       WHERE   rr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
-      s :=  REPLACE (REPLACE (s, '##DESC##', omschrijving), '##KEY##', nr);
+      -- ##DESC##     = res_rsv_ruimte_omschrijving
+      -- ##KEY##      = res_reservering_nr
+      -- ##FIATTEUR## = budgethouder van de kostenplaats.
+      SELECT TO_CHAR (res_reservering_key)  ||  '/'  ||  TO_CHAR (rr.res_rsv_ruimte_volgnr)
+           , rr.res_rsv_ruimte_omschrijving
+           , prs_perslid_naam_full
+        INTO nr
+           , omschrijving
+           , fiatteur
+        FROM res_rsv_ruimte rr
+           , prs_kostenplaats k
+           , prs_v_perslid_fullnames_all
+       WHERE rr.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+         AND k.prs_perslid_key = prs_v_perslid_fullnames_all.prs_perslid_key(+)
+         AND rr.res_rsv_ruimte_key = pres_rsv_ruimte_key;
+      s :=  REPLACE (REPLACE (REPLACE (s, '##DESC##', omschrijving), '##KEY##', nr), '##FIATTEUR##', fiatteur);
       s :=  REPLACE (s, ' ()', '');
       RETURN s;
    END;
@@ -1983,9 +2178,9 @@ AS
                          WHERE rr.res_rsv_ruimte_key = ra.res_rsv_ruimte_key
                            AND ra.res_artikel_key = a.res_artikel_key
                            AND rr.res_rsv_ruimte_host_key = p.prs_perslid_key
-                           AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key
-                           AND ro.res_ruimte_key = rar.res_alg_ruimte_key
-                           AND ro.res_ruimte_key = rg.res_ruimte_key
+                           AND rr.res_ruimte_opstel_key = ro.res_ruimte_opstel_key(+)
+                           AND ro.res_ruimte_key = rar.res_alg_ruimte_key(+)
+                           AND ro.res_ruimte_key = rg.res_ruimte_key(+)
                            AND TRUNC(rr.res_rsv_ruimte_van) = TRUNC(sysdate)
                            AND (   ptype IS NULL
                                OR (ptype = 'C' AND a.res_artikel_key = pkey)
@@ -2091,6 +2286,64 @@ AS
       END;
    END;
 
+   PROCEDURE remove(p_rsv_ruimte_key IN NUMBER)
+   IS
+      CURSOR c_bijlagen(p_refkey IN NUMBER) IS
+         SELECT fac_bijlagen_key
+           FROM fac_bijlagen b
+              , res_rsv_ruimte r
+          WHERE b.fac_bijlagen_refkey = r.res_rsv_ruimte_key
+            AND b.fac_bijlagen_module = 'RES'
+            AND b.fac_bijlagen_refkey = p_refkey;
+
+      res_key  res_reservering.res_reservering_key%TYPE;
+   BEGIN
+      -- Verwijder afspraken en de bezoekers daarvan bij deelreservering.
+      FOR ref_afspraak IN (SELECT bez_afspraak_key
+                             FROM bez_afspraak
+                            WHERE res_rsv_ruimte_key = p_rsv_ruimte_key
+                          )
+      LOOP
+         bez.remove(ref_afspraak.bez_afspraak_key);
+      END LOOP;
+
+      -- Verwijder de deelreservering.
+      fac.remove_tracking('reservering', p_rsv_ruimte_key);
+      fac.remove_tracking('xreservering', p_rsv_ruimte_key);
+
+      SELECT res_reservering_key
+        INTO res_key
+        FROM res_rsv_ruimte
+       WHERE res_rsv_ruimte_key = p_rsv_ruimte_key;
+
+      FOR ref_bijlagen IN c_bijlagen(p_rsv_ruimte_key)
+      LOOP
+         flx.deleteflexbijlage (ref_bijlagen.fac_bijlagen_key);
+      END LOOP;
+
+      DELETE FROM res_rsv_ruimte
+       WHERE res_rsv_ruimte_key = p_rsv_ruimte_key;
+
+      -- Van de volgende tabellen worden de records die naar deze res_rsv_ruimte_key
+      -- verwijzen met ON DELETE CASCADE ook verwijderd:
+      --  res_kenmerkwaarde
+      --  res_rsv_artikel
+      --  res_rsv_deel
+      -- In de volgende tabel wordt res_rsv_ruimte_key leeg gemaakt bij het verwijderen van res_rsv_ruimte:
+      --  bez_afspraak
+      --  mld_melding
+
+      -- Als dit de laatste deelreservering in de reservering is mag de reservering ook weg.
+      DELETE FROM res_reservering
+       WHERE NOT EXISTS (SELECT 1
+                           FROM res_rsv_ruimte
+                          WHERE res_reservering_key = res_key
+                        )
+         AND res_reservering_key = res_key;
+
+      -- Geen tracking op res_reservering.
+   END;
+
 END res;
 /
 

RES/RES_SEQ.SRC

@@ -11,6 +11,8 @@ CREATE SEQUENCE res_s_res_opstelling_key        MINVALUE 10;
 CREATE SEQUENCE res_s_res_ruimte_opstel_key     MINVALUE 1;
 CREATE SEQUENCE res_s_res_deel_key              MINVALUE 1;
 CREATE SEQUENCE res_s_res_artikel_key           MINVALUE 1;
+CREATE SEQUENCE res_s_res_arrangement_key       MINVALUE 1;
+CREATE SEQUENCE res_s_res_arrangement_art_key   MINVALUE 1;
 CREATE SEQUENCE res_s_res_rsv_artikel_key       MINVALUE 1;
 CREATE SEQUENCE res_s_res_rsv_deel_key          MINVALUE 1;
 CREATE SEQUENCE res_s_res_cyclus                MINVALUE 10;
@@ -21,6 +23,7 @@ CREATE SEQUENCE res_s_res_rsv_ruimte_key        MINVALUE 1;
 CREATE SEQUENCE res_s_res_srtkenmerk_key        MINVALUE 1;
 CREATE SEQUENCE res_s_res_kenmerk_key           MINVALUE 1;
 CREATE SEQUENCE res_s_res_kenmerkwaarde_key     MINVALUE 1;
+CREATE SEQUENCE res_s_res_kenmerkartikel_key    MINVALUE 1;
 CREATE SEQUENCE res_s_res_srtartikel_og_key     MINVALUE 1;
 CREATE SEQUENCE res_s_res_disc_params_key       MINVALUE 1;
 CREATE SEQUENCE res_s_res_activiteitdisc_key    MINVALUE 1;

RES/RES_TAB.SRC

@@ -18,6 +18,10 @@ CREATE_TABLE (res_disc_params,0)
   res_disc_params_cancel_dagen NUMBER(3)        DEFAULT 1 NOT NULL,  /* 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,
+  res_disc_params_min_duur     NUMBER(4,2)      DEFAULT 0 NOT NULL,
+  res_disc_params_min_deelnmrs NUMBER(5)        DEFAULT 0 NOT NULL,
+  res_disc_params_threshold    NUMBER(11,2)     DEFAULT 9999999 NOT NULL,
+  res_disc_params_intervals    VARCHAR(2000 CHAR),                   /* Optioneel: JSON-structured intervallen */
   prs_bedrijf_key              NUMBER(10),                           /* Optioneel: de leverancier van deze catalogus */
   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),
@@ -44,6 +48,10 @@ CREATE_TABLE(res_ruimte,0)
     VARCHAR2(1000),
   res_ruimte_volgnummer
     NUMBER(3),
+  res_ruimte_minbezoekers
+    NUMBER(5)
+    DEFAULT 0
+    NOT_NULL(res_ruimte_minbezoekers, res_c_ruimte_minbezoekers),
   res_ruimte_info_url
     VARCHAR2(1000),
   res_ruimte_image
@@ -112,13 +120,27 @@ CREATE_TABLE(res_ruimte,0)
     CONSTRAINT res_c_res_status_fo2 CHECK(res_status_fo_key IN (1,2,3,4)),
   res_ruimte_extern_id
     VARCHAR2(256),
-  res_ruimte_syncstate
-    CLOB,
-  res_ruimte_syncdate
+  res_ruimte_externsyncdate
     DATE,
+  res_ruimte_graphhooksecret
+    VARCHAR2(128),
+  res_ruimte_cv
+    NUMBER(1)
+    DEFAULT 0
+    NOT NULL
+    CONSTRAINT res_c_res_ruimte_cv CHECK(res_ruimte_cv IN (0,1)),
   CONSTRAINT res_u_res_ruimte_upper UNIQUE(res_ruimte_upper, res_ruimte_verwijder)
 );
 
+CREATE_TABLE(res_ruimte_sync,0)
+(
+  res_ruimte_key
+    NUMBER(10),
+  res_ruimte_syncstate
+    CLOB,
+  res_ruimte_syncdate
+    DATE
+);
 
 CREATE_TABLE(res_alg_ruimte,0)
 (
@@ -183,6 +205,8 @@ CREATE_TABLE(res_ruimte_opstelling, 0)
     NOT_NULL(res_ruimte_opstel_bezoekers, res_c_res_ruimte_bezoekers)
 , res_ruimte_opstel_default
     NUMBER(1)
+, res_ruimte_opstel_tijd
+    NUMBER(5,2) DEFAULT 0 NOT NULL
 , res_ruimte_opstel_image
     VARCHAR2(255)
 , res_ruimte_opstel_aanmaak
@@ -200,8 +224,10 @@ CREATE_TABLE(res_deel, 0)
     CONSTRAINT res_k_res_deel_key PRIMARY KEY
 , res_ins_deel_key
     NUMBER(10)
-    NOT_NULL(res_ins_deel_key, res_c_res_deel_key)
     CONSTRAINT res_r_res_ins_deel_key REFERENCES ins_deel(ins_deel_key)
+, res_prs_perslid_key
+    NUMBER(10)
+    CONSTRAINT res_r_res_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key)
 , res_deel_eenheid
     VARCHAR2(10)
 , res_deel_prijs
@@ -236,6 +262,11 @@ CREATE_TABLE(res_deel, 0)
     NUMBER(4)
     DEFAULT 127
     NOT NULL
+, res_deel_externnr
+    VARCHAR2(256)
+, res_deel_externsyncdate
+    DATE
+,   CONSTRAINT res_c_deelperslid_key CHECK((res_ins_deel_key IS NOT NULL AND res_prs_perslid_key IS NULL) OR (res_ins_deel_key IS NULL AND res_prs_perslid_key IS NOT NULL))
 );
 
 
@@ -301,6 +332,36 @@ CREATE_TABLE(res_artikel, 0)
 , res_artikel_verwijder
     DATE
     DEFAULT NULLDATUM
+, res_artikel_externnr
+    VARCHAR2(256)
+, res_artikel_externsyncdate
+    DATE
+);
+
+CREATE_TABLE(res_arrangement,0)
+(
+    res_arrangement_key
+        NUMBER(10)
+        PRIMARY KEY
+,   res_arrangement_omschrijving
+        VARCHAR2(60)
+        CONSTRAINT res_c_res_arrangement_omschr CHECK(res_arrangement_omschrijving IS NOT NULL)
+,   res_arrangement_opmerking
+        VARCHAR2(4000)
+);
+
+CREATE_TABLE(res_arrangement_artikel, 0)
+(  res_arrangement_artikel_key
+      NUMBER(10)
+      PRIMARY KEY
+,  res_arrangement_key
+      NUMBER(10)
+      CONSTRAINT res_c_res_arrangement_key CHECK(res_arrangement_key IS NOT NULL)
+      CONSTRAINT res_c_res_arrangement REFERENCES res_arrangement(res_arrangement_key)
+,  res_artikel_key
+      NUMBER(10)
+      CONSTRAINT res_c_res_arrangement_art_key CHECK(res_artikel_key IS NOT NULL)
+      CONSTRAINT res_c_res_arrangement_artikel REFERENCES res_artikel(res_artikel_key)
 );
 
 CREATE_TABLE(res_srtactiviteit, 0)
@@ -321,7 +382,7 @@ CREATE_TABLE(res_srtactiviteit, 0)
     CONSTRAINT res_c_srtactiviteit_kpn CHECK(res_srtactiviteit_kpnverplicht IN (0,1,2))
 , res_srtactiviteit_anonym
     NUMBER(1) DEFAULT(0)
-    CONSTRAINT res_c_srtactiviteit_anonym CHECK(res_srtactiviteit_anonym IN (0,1))
+    CONSTRAINT res_c_srtactiviteit_anonym CHECK(res_srtactiviteit_anonym IN (0,1,2))
 , res_srtactiviteit_metomschr
     NUMBER(1) DEFAULT(1) /* 0=niet tonen, 1=tonen */
     CONSTRAINT res_c_srtactiviteit_metomschr CHECK(res_srtactiviteit_metomschr IN (0,1))
@@ -361,7 +422,7 @@ CREATE_TABLE(res_activiteit, 0)
     CONSTRAINT res_c_activiteit_oms CHECK(res_activiteit_omsverplicht IN (0,1))
 , res_activiteit_aantalverplicht  /* is res_rsv_ruimte_bezoekers verplicht */
     NUMBER(1) DEFAULT(0)
-    CONSTRAINT res_c_activiteit_aantal CHECK(res_activiteit_aantalverplicht IN (0,1))
+    CONSTRAINT res_c_activiteit_aantal CHECK(res_activiteit_aantalverplicht IN (0,1,2))
 , res_activiteit_posttime
     NUMBER(5,2) DEFAULT 0 NOT NULL
 , res_activiteit_aanmaak
@@ -382,6 +443,10 @@ CREATE_TABLE(res_activiteit, 0)
 , res_activiteit_cvab_mode
     NUMBER(1)
     CONSTRAINT res_c_res_activiteit_cvab_mode CHECK(res_activiteit_cvab_mode IN (0,1,2,3))
+,  res_activiteit_intervals
+    VARCHAR(2000 CHAR)                   /* Optioneel: JSON-structured intervallen */
+,  res_activiteit_image
+    VARCHAR2(255)
 , CONSTRAINT res_u_res_activiteit_upper UNIQUE(res_activiteit_upper, res_activiteit_verwijder, res_srtactiviteit_key)
 );
 
@@ -398,7 +463,11 @@ CREATE_TABLE(res_reservering,0)
     DEFAULT 0 NOT NULL,
   res_reservering_verwijder
     DATE
-    DEFAULT NULLDATUM
+    DEFAULT NULLDATUM,
+  res_reservering_externnr
+    VARCHAR2(256),
+  res_reservering_externsyncdate
+    DATE
 );
 
 
@@ -447,6 +516,8 @@ CREATE_TABLE(res_rsv_ruimte, 0)
 , res_rsv_ruimte_van
     DATE
     NOT_NULL(res_rsv_ruimte_van, res_c_res_rsv_ruimte_van)
+, res_rsv_ruimte_van_actual
+    DATE
 , res_rsv_ruimte_tot
     DATE
     NOT_NULL(res_rsv_ruimte_tot, res_c_res_rsv_ruimte_tot)
@@ -475,6 +546,9 @@ CREATE_TABLE(res_rsv_ruimte, 0)
 , res_rsv_ruimte_noshow
     NUMBER(1)
     CONSTRAINT res_c_res_rsv_ruimte_noshow CHECK((res_rsv_ruimte_noshow = 0) OR (res_rsv_ruimte_noshow = 1))
+, mld_opdr_key
+    NUMBER(10)
+    CONSTRAINT res_r_mld_opdr1 REFERENCES mld_opdr(mld_opdr_key)
 , res_rsv_ruimte_aanmaak
     DATE
     DEFAULT SYSDATE
@@ -506,11 +580,18 @@ CREATE_TABLE(res_rsv_ruimte, 0)
     CONSTRAINT res_c_res_rsv_ruimte_afgerond1 CHECK(res_rsv_ruimte_afgerond IN (0,1))
 , res_rsv_ruimte_externnr    /* voor koppelingen met externe systemen */
     VARCHAR2(1000)
+, res_rsv_ruimte_externsyncdate
+    DATE
+, res_rsv_ruimte_cat_appr    /* Catalogus artikelen dienen gefiatteerd te worden 0=Nee, 1=Ja */
+    NUMBER(1)
+    DEFAULT 0
+    NOT NULL
+    CONSTRAINT res_c_res_rsv_ruimte_cat_appr CHECK(res_rsv_ruimte_cat_appr IN (0,1))
 );
 
 ALTER TABLE mld_melding ADD res_rsv_ruimte_key
       NUMBER(10)
-      CONSTRAINT mld_r_res_rsv_ruimte_key REFERENCES res_rsv_ruimte(res_rsv_ruimte_key);
+      CONSTRAINT mld_r_res_rsv_ruimte_key REFERENCES res_rsv_ruimte(res_rsv_ruimte_key) ON DELETE SET NULL;
 
 CREATE_TABLE(res_rsv_deel, 0)
 (  res_rsv_deel_key
@@ -532,7 +613,7 @@ CREATE_TABLE(res_rsv_deel, 0)
      DEFAULT 2
      CONSTRAINT res_c_res_status_bo2 CHECK(res_status_bo_key IN (2,5,6))
 ,  res_rsv_ruimte_key NUMBER(10)
-     CONSTRAINT res_c_res_rsv_ruimte_key REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)
+     CONSTRAINT res_c_res_rsv_ruimte_key REFERENCES res_rsv_ruimte(res_rsv_ruimte_key) ON DELETE CASCADE
 ,  res_rsv_deel_van
      DATE
 ,  res_rsv_deel_tot
@@ -557,7 +638,14 @@ CREATE_TABLE(res_rsv_deel, 0)
     DEFAULT 0
 /* defined in BEZ_TAB.src:
 ,  CONSTRAINT res_c_res_deel_ruimte
-      CHECK (res_rsv_ruimte_key IS NOT NULL OR bez_bezoekers_key IS NOT NULL) */
+      CHECK (res_rsv_ruimte_key IS NOT NULL OR bez_bezoekers_key IS NOT NULL)
+*/
+,  res_rsv_deel_geleverd
+    DATE
+, res_rsv_deel_externnr
+    VARCHAR2(256)
+, res_rsv_deel_externsyncdate
+    DATE
 );
 
 ALTER TABLE ins_deel ADD res_rsv_deel_key
@@ -584,7 +672,7 @@ CREATE_TABLE(res_rsv_artikel, 0)
      DEFAULT 2
      CONSTRAINT res_c_res_status_bo3 CHECK(res_status_bo_key IN (2,5,6))
 ,  res_rsv_ruimte_key NUMBER(10)
-     CONSTRAINT res_c_res_rsv_ruimte_key2 REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)
+     CONSTRAINT res_c_res_rsv_ruimte_key2 REFERENCES res_rsv_ruimte(res_rsv_ruimte_key) ON DELETE CASCADE
      NOT_NULL(res_rsv_ruimte_key, res_c_res_artikel_ruimte)
 ,  res_rsv_artikel_prijs
      NUMBER(9,2)
@@ -607,6 +695,17 @@ CREATE_TABLE(res_rsv_artikel, 0)
     NUMBER(7,2)
 , res_rsv_artikel_btw
     NUMBER(5,3)
+, res_rsv_artikel_approved    /* 0=Niet gefiatteerd, 1=Goedgekeurd, 2=Afgewezen */
+    NUMBER(1)
+    DEFAULT 1
+    NOT NULL
+    CONSTRAINT res_c_res_rsv_artikel_approved CHECK(res_rsv_artikel_approved IN (0,1,2))
+, res_rsv_artikel_geleverd
+    DATE
+, res_rsv_artikel_externnr
+    VARCHAR2(256)
+, res_rsv_artikel_externsyncdate
+    DATE
 );
 
 
@@ -660,7 +759,7 @@ CREATE_TABLE(res_srtkenmerk, 0)
 ,  CONSTRAINT res_c_res_srtkenmerk_omschr    CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT res_srtkenmerk_omschrijving    CHECK(res_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT res_u_res_srtkenmerk_upper    UNIQUE(res_srtkenmerk_upper, res_srtkenmerk_verwijder)
-,  CONSTRAINT res_c_res_srtkenmerk_kenmtype  CHECK(res_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B'))
+,  CONSTRAINT res_c_res_srtkenmerk_kenmtype  CHECK(res_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT res_c_res_srtkenmerk_lengte    CHECK(res_srtkenmerk_lengte >= 1
                                                AND res_srtkenmerk_lengte <= 4000)
 ,  CONSTRAINT res_c_res_srtkenmerk_max_min   CHECK(res_srtkenmerk_nmax >= res_srtkenmerk_nmin)
@@ -678,8 +777,15 @@ CREATE_TABLE(res_kenmerk, 0)
       NUMBER(10)
 ,  res_activiteit_key
       NUMBER(10)
-,  res_kenmerk_niveau
+,  res_artikel_key
+      NUMBER(10)
+,  res_discipline_key
+      NUMBER(10)
+,  res_kenmerk_niveau /* Activiteit/Discipline/Catering */
       VARCHAR2(1)
+      DEFAULT 'A'
+,  res_kenmerk_omschrijving
+      VARCHAR2(50) /* optionele overrule van srtkenmerk_omschrijving */
 ,  res_kenmerk_toonbaar
       NUMBER(1)
 ,  res_kenmerk_uniek
@@ -698,6 +804,8 @@ CREATE_TABLE(res_kenmerk, 0)
       NOT NULL
 ,  res_kenmerk_default
       VARCHAR2(4000)
+,  res_kenmerk_show_expr
+      VARCHAR2(4000)
 ,  res_kenmerk_aanmaak
       DATE
       DEFAULT SYSDATE
@@ -707,10 +815,12 @@ CREATE_TABLE(res_kenmerk, 0)
 ,  CONSTRAINT res_r_res_srtkenmerk_key1      CHECK(res_srtkenmerk_key IS NOT NULL)
 ,  CONSTRAINT res_r_res_srtkenmerk_key2      FOREIGN KEY(res_srtkenmerk_key) REFERENCES res_srtkenmerk(res_srtkenmerk_key)
 ,  CONSTRAINT res_c_res_kenmerk_niveau1      CHECK(res_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT res_c_res_kenmerk_niveau2      CHECK(res_kenmerk_niveau IN ('A'))
+,  CONSTRAINT res_c_res_kenmerk_niveau2      CHECK(res_kenmerk_niveau IN ('A', 'D', 'C')) /* Activiteit/Discipline/Catering */
 ,  CONSTRAINT res_c_res_kenmerk_aanmaak      CHECK(res_kenmerk_aanmaak IS NOT NULL)
 ,  CONSTRAINT res_r_res_activiteit_key       FOREIGN KEY(res_activiteit_key) REFERENCES res_activiteit(res_activiteit_key)
-,  CONSTRAINT res_u_res_kenmerk              UNIQUE(res_activiteit_key, res_srtkenmerk_key, res_kenmerk_groep, res_kenmerk_verwijder)
+,  CONSTRAINT res_r_res_artikel_key          FOREIGN KEY(res_artikel_key) REFERENCES res_artikel(res_artikel_key)
+,  CONSTRAINT res_c_res_kenmerk_discipline   FOREIGN KEY(res_discipline_key) REFERENCES ins_tab_discipline(ins_discipline_key)
+,  CONSTRAINT res_u_res_kenmerk              UNIQUE(res_activiteit_key, res_discipline_key, res_artikel_key, res_srtkenmerk_key, res_kenmerk_omschrijving, res_kenmerk_groep, res_kenmerk_verwijder)
 );
 
 CREATE_TABLE(res_kenmerkwaarde, 0)
@@ -736,6 +846,29 @@ CREATE_TABLE(res_kenmerkwaarde, 0)
 ,  CONSTRAINT res_u_res_kenmerkwaarde            UNIQUE(res_rsv_ruimte_key, res_kenmerk_key, res_kenmerkwaarde_verwijder)
 );
 
+CREATE_TABLE(res_kenmerkartikel, 0)
+(  res_kenmerkartikel_key
+      NUMBER(10)
+      CONSTRAINT res_k_res_kenmerkartikel_key PRIMARY KEY
+,  res_rsv_artikel_key
+      NUMBER(10)
+,  res_kenmerk_key
+      NUMBER(10)
+,  res_kenmerkartikel_waarde
+      VARCHAR2(4000)
+,  res_kenmerkartikel_aanmaak
+      DATE
+      DEFAULT SYSDATE
+,  res_kenmerkartikel_verwijder
+      DATE
+      DEFAULT NULLDATUM
+,  CONSTRAINT res_r_res_rsv_artikel_key          CHECK(res_rsv_artikel_key IS NOT NULL)
+,  CONSTRAINT res_r_res_kenmerk_key2             CHECK(res_kenmerk_key IS NOT NULL)
+,  CONSTRAINT res_r_res_rsv_artikel_key2         FOREIGN KEY(res_rsv_artikel_key) REFERENCES res_rsv_artikel(res_rsv_artikel_key) ON DELETE CASCADE
+,  CONSTRAINT res_c_res_kenmerkartikel_aanm      CHECK(res_kenmerkartikel_aanmaak IS NOT NULL)
+,  CONSTRAINT res_u_res_kenmerkartikel           UNIQUE(res_rsv_artikel_key, res_kenmerk_key, res_kenmerkartikel_verwijder)
+);
+
 CREATE_TABLE(res_srtartikel_onrgoed, 0)
 (  res_srtartikel_onrgoed_key
       NUMBER(10)

RES/RES_TRI.SRC

@@ -12,7 +12,6 @@ AUDIT_VALUE(res_disc_params, res_disc_params_noti_dagen)
 AUDIT_VALUE(res_disc_params, res_disc_params_expire_dagen)
 AUDIT_VALUE(res_disc_params, res_disc_params_expire_tijd)
 AUDIT_VALUE(res_disc_params, res_disc_params_cancel_dagen)
-AUDIT_VALUE(res_disc_params, res_disc_params_remoteurl)
 AUDIT_VALUE(res_disc_params, res_disc_params_maxduur)
 AUDIT_END()
 
@@ -163,6 +162,22 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(res_t_res_arrangement_B_I)
+BEFORE INSERT ON res_arrangement
+FOR EACH ROW
+BEGIN
+     UPDATE_PRIMARY_KEY(res_arrangement_key, res_s_res_arrangement_key);
+END;
+/
+
+CREATE_TRIGGER(res_t_res_arrangement_art_B_I)
+BEFORE INSERT ON res_arrangement_artikel
+FOR EACH ROW
+BEGIN
+     UPDATE_PRIMARY_KEY(res_arrangement_artikel_key, res_s_res_arrangement_art_key);
+END;
+/
+
 CREATE_TRIGGER(res_t_res_rsv_artikel_B_IU)
 BEFORE INSERT OR UPDATE ON res_rsv_artikel
 FOR EACH ROW
@@ -283,14 +298,24 @@ BEGIN
         Dummy CHAR;
       BEGIN
         SELECT 'X'
-        INTO   Dummy
-        FROM   res_kenmerkwaarde
-        WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkreservering_waarde) < :new.res_srtkenmerk_nmin
-        AND    res_kenmerk_key IN
-              (SELECT res_kenmerk_key
-               FROM   res_kenmerk
-               WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
-              );
+          INTO Dummy
+          FROM (SELECT 'X'
+                FROM   res_kenmerkwaarde
+                WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkreservering_waarde) < :new.res_srtkenmerk_nmin
+                AND    res_kenmerk_key IN
+                      (SELECT res_kenmerk_key
+                       FROM   res_kenmerk
+                       WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
+                      )
+                UNION
+                SELECT 'X'
+                FROM   res_kenmerkartikel
+                WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkartikel_waarde) < :new.res_srtkenmerk_nmin
+                AND    res_kenmerk_key IN
+                      (SELECT res_kenmerk_key
+                       FROM   res_kenmerk
+                       WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
+                      ));
         raise_application_error(-20000, 'res_C_res_SRTKENMERK_MIN');
       EXCEPTION
         WHEN NO_DATA_FOUND
@@ -307,14 +332,24 @@ BEGIN
         Dummy CHAR;
       BEGIN
         SELECT 'X'
-        INTO   Dummy
-        FROM   res_kenmerkwaarde
-        WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkreservering_waarde) > :new.res_srtkenmerk_nmax
-        AND    res_kenmerk_key IN
-              (SELECT res_kenmerk_key
-               FROM   res_kenmerk
-               WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
-              );
+          INTO Dummy
+          FROM (SELECT 'X'
+                FROM   res_kenmerkwaarde
+                WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkreservering_waarde) > :new.res_srtkenmerk_nmax
+                AND    res_kenmerk_key IN
+                      (SELECT res_kenmerk_key
+                       FROM   res_kenmerk
+                       WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
+                      )
+                UNION
+                SELECT 'X'
+                FROM   res_kenmerkartikel
+                WHERE  FAC.SAFE_TO_NUMBER(res_kenmerkartikel_waarde) > :new.res_srtkenmerk_nmax
+                AND    res_kenmerk_key IN
+                      (SELECT res_kenmerk_key
+                       FROM   res_kenmerk
+                       WHERE  res_srtkenmerk_key = :old.res_srtkenmerk_key
+                      ));
         raise_application_error(-20000, 'res_C_res_SRTKENMERK_MAX');
       EXCEPTION
         WHEN NO_DATA_FOUND
@@ -331,7 +366,7 @@ CREATE_TRIGGER(res_t_res_rsv_ruimte_B_IU)
 BEFORE INSERT OR UPDATE ON res_rsv_ruimte
 FOR EACH ROW
 BEGIN
-  IF :old.res_status_bo_key=6 THEN raise_application_error(-20000, 'Reserveringsgegevens zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF;
+  IF :old.res_status_bo_key=6 THEN raise_application_error(-20000, 'Reserveringsgegevens '||:new.res_rsv_ruimte_key||'/'||:new.res_rsv_ruimte_volgnr||' zijn verwerkt; wijzigen is niet meer toegestaan.'); END IF;
   UPDATE_PRIMARY_KEY(res_rsv_ruimte_key, res_s_res_rsv_ruimte_key);
   BEGIN IF :new.res_rsv_ruimte_verwijder IS NOT NULL OR (:new.res_rsv_ruimte_verwijder IS NULL AND :old.res_rsv_ruimte_verwijder IS NOT NULL) THEN UPDATE res_rsv_artikel SET res_rsv_artikel_verwijder = :new.res_rsv_ruimte_verwijder WHERE res_rsv_artikel.res_rsv_ruimte_key = :new.res_rsv_ruimte_key AND res_rsv_artikel.res_rsv_artikel_verwijder IS NULL; END IF; END;
   BEGIN IF :new.res_rsv_ruimte_verwijder IS NOT NULL OR (:new.res_rsv_ruimte_verwijder IS NULL AND :old.res_rsv_ruimte_verwijder IS NOT NULL) THEN UPDATE res_rsv_deel SET res_rsv_deel_verwijder = :new.res_rsv_ruimte_verwijder WHERE res_rsv_deel.res_rsv_ruimte_key = :new.res_rsv_ruimte_key AND res_rsv_deel.res_rsv_deel_verwijder IS NULL; END IF; END;
@@ -392,7 +427,8 @@ BEGIN
                    kenmerkverplicht
               FROM res_srtkenmerk res_sk, res_kenmerk res_k
              WHERE res_sk.res_srtkenmerk_key = res_k.res_srtkenmerk_key
-                   AND res_k.res_kenmerk_key = :new.res_kenmerk_key;
+               AND res_k.res_kenmerk_niveau = 'A'
+               AND res_k.res_kenmerk_key = :new.res_kenmerk_key;
 
             --
             -- Controleer eerst of het verplichte veld ingevuld is.
@@ -485,6 +521,141 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(res_t_res_kenmerkartikel_b_iu)
+BEFORE INSERT OR UPDATE ON res_kenmerkartikel
+FOR EACH ROW
+BEGIN
+    -- Controleer eerst of de ingevulde waarde goed is.
+    --
+    IF    :new.res_kenmerkartikel_waarde <> :old.res_kenmerkartikel_waarde
+       OR:old.res_kenmerkartikel_waarde IS NULL
+       OR:new.res_kenmerkartikel_waarde IS NULL
+    THEN
+        DECLARE
+            srtkenmerkomschr   res_srtkenmerk.res_srtkenmerk_omschrijving%TYPE;
+            srtkenmerktype     res_srtkenmerk.res_srtkenmerk_kenmerktype%TYPE;
+            srtkenmerklengte   res_srtkenmerk.res_srtkenmerk_lengte%TYPE;
+            srtkenmerkdec      res_srtkenmerk.res_srtkenmerk_dec%TYPE;
+            srtkenmerknmin     res_srtkenmerk.res_srtkenmerk_nmin%TYPE;
+            srtkenmerknmax     res_srtkenmerk.res_srtkenmerk_nmax%TYPE;
+            kenmerkverplicht   res_kenmerk.res_kenmerk_verplicht%TYPE;
+            numberwaarde       NUMBER (25, 5);
+            formatmask         VARCHAR2 (60);
+            kenmerkreswaarde   res_kenmerkartikel.res_kenmerkartikel_waarde%TYPE;
+        BEGIN
+            kenmerkreswaarde := :new.res_kenmerkartikel_waarde;
+
+            --
+            SELECT res_sk.res_srtkenmerk_omschrijving,
+                   res_sk.res_srtkenmerk_kenmerktype,
+                   res_sk.res_srtkenmerk_lengte,
+                   res_sk.res_srtkenmerk_dec,
+                   res_sk.res_srtkenmerk_nmin,
+                   res_sk.res_srtkenmerk_nmax,
+                   res_k.res_kenmerk_verplicht
+              INTO srtkenmerkomschr,
+                   srtkenmerktype,
+                   srtkenmerklengte,
+                   srtkenmerkdec,
+                   srtkenmerknmin,
+                   srtkenmerknmax,
+                   kenmerkverplicht
+              FROM res_srtkenmerk res_sk, res_kenmerk res_k
+             WHERE res_sk.res_srtkenmerk_key = res_k.res_srtkenmerk_key
+               --AND res_k.res_kenmerk_niveau = 'D'
+               AND res_k.res_kenmerk_key = :new.res_kenmerk_key;
+
+            --
+            -- Controleer eerst of het verplichte veld ingevuld is.
+            --
+            IF kenmerkverplicht IS NOT NULL AND kenmerkreswaarde IS NULL
+            THEN
+                raise_application_error (-20004, 'res_m244,' || srtkenmerkomschr);
+            --
+            -- Kijk welk KenmerkType gebruikt wordt.
+            -- Aan de hand daarvan moet een controle uitgevoerd worden.
+            --
+            ELSIF srtkenmerktype = 'C'
+            THEN
+                -- CHAR
+                -- Controleer of de lengte te groot of goed is.
+                IF LENGTH (kenmerkreswaarde) > srtkenmerklengte
+                THEN
+                    raise_application_error (
+                        -20004,
+                        'res_m245,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
+                END IF;
+            ELSIF srtkenmerktype IN ('N', 'B')
+            THEN
+                -- NUMBER
+                -- Controleer of er een numerieke waarde ingevuld is.
+                IF srtkenmerkdec IS NULL OR srtkenmerkdec = 0
+                THEN
+                    formatmask := RPAD ('9', srtkenmerklengte, '9');
+                ELSE
+                    formatmask :=
+                           RPAD ('9', srtkenmerklengte - srtkenmerkdec, '9')
+                        || 'D'
+                        || RPAD ('9', srtkenmerkdec, '9');
+                END IF;
+
+                --
+                BEGIN
+                    numberwaarde := TO_NUMBER (kenmerkreswaarde);
+                EXCEPTION
+                    WHEN OTHERS
+                    THEN
+                        formatmask := REPLACE (formatmask, '9', '#');
+                        formatmask := REPLACE (formatmask, '0', '#');
+                        formatmask := REPLACE (formatmask, 'D', '.');
+                        raise_application_error (
+                            -20004,
+                            'res_m246,' || srtkenmerkomschr || ',' || formatmask);
+                END;
+
+                -- Controleer of de waarde binnen NMin en NMax ligt.
+                IF (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin)
+                   OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax)
+                THEN
+                    raise_application_error (
+                        -20004,
+                           'res_m247,'
+                        || srtkenmerkomschr
+                        || ','
+                        || TO_CHAR (srtkenmerknmin)
+                        || ','
+                        || TO_CHAR (srtkenmerknmax));
+                ELSE
+                    --  Controleer of de waarde aan het formaat voldoet.
+                    kenmerkreswaarde := LTRIM (TO_CHAR (numberwaarde, formatmask));
+
+                    IF INSTR (kenmerkreswaarde, '#') <> 0
+                    THEN
+                        formatmask := REPLACE (formatmask, '9', '#');
+                        formatmask := REPLACE (formatmask, '0', '#');
+                        formatmask := REPLACE (formatmask, 'D', '.');
+                        raise_application_error (
+                            -20004,
+                            'res_m246,' || srtkenmerkomschr || ',' || formatmask);
+                    END IF;
+                END IF;
+
+                -- Zet de geconverteerde waarde terug.
+                :new.res_kenmerkartikel_waarde := kenmerkreswaarde;
+            ELSIF srtkenmerktype = 'D'
+            THEN
+                -- DATUM
+                kenmerkreswaarde := TO_CHAR (TO_DATE (kenmerkreswaarde, 'DD-MM-YY'), 'DD-MM-YYYY');
+                -- Zet de geconverteerde waarde terug.
+                :new.res_kenmerkartikel_waarde := kenmerkreswaarde;
+            END IF;
+        END;
+
+        UPDATE_PRIMARY_KEY(res_kenmerkartikel_key, res_s_res_kenmerkartikel_key);
+    END IF;
+END;
+/
+
 CREATE_TRIGGER(res_t_res_srtartikel_og_B_IU)
 BEFORE INSERT OR UPDATE ON res_srtartikel_onrgoed
 FOR EACH ROW

RES/RES_VIE.SRC

@@ -185,6 +185,7 @@ SELECT
   r.res_reservering_key,
   r.res_rsv_ruimte_key,
   r.res_ruimte_opstel_key,
+  ro.res_ruimte_opstel_tijd,
   ro.res_ruimte_key,
   ra.alg_ruimte_key,
   r.res_rsv_ruimte_van,
@@ -342,11 +343,14 @@ AS
 DEFINIEER_VIEW_AANWEZIG(res_kenmerkwaarde, res_kenmerkwaarde_verwijder,
 res_v_aanwezigkenmerkwaarde, 0);
 
+DEFINIEER_VIEW_AANWEZIG(res_kenmerkartikel, res_kenmerkartikel_verwijder,
+res_v_aanwezigkenmerkartikel, 0);
+
 CREATE_VIEW(res_v_res_catalogus, 0)
 AS SELECT *
 FROM   INS_TAB_DISCIPLINE
 WHERE  ins_discipline_module = 'RES'
-AND    ins_discipline_min_level IN (1,2,3);
+AND    ins_discipline_min_level IN (1,2,3,4);
 
 
 -- View levert op in welke alg_ruimtes uit een bepaalde catalogus besteld mag worden
@@ -1085,17 +1089,17 @@ AS
                          TO_NUMBER (NULL) pa,
                          NULL btw,
                          k.res_kenmerk_key k_key,
-                         sk.res_srtkenmerk_omschrijving k_naam,
+                         COALESCE(k.res_kenmerk_omschrijving, sk.res_srtkenmerk_omschrijving) k_naam,
                          sk.res_srtkenmerk_kenmerktype k_type,
                          DECODE (
                             sk.res_srtkenmerk_kenmerktype,
                             'R',
-                            fac.getdomeinwaarde (
+                            flx.getdomeinwaarde (
                                sk.fac_kenmerkdomein_key,
                                kw.res_kenmerkreservering_waarde
                             ),
                             'S',
-                            fac.getdomeinwaarde (
+                            flx.getdomeinwaarde (
                                sk.fac_kenmerkdomein_key,
                                kw.res_kenmerkreservering_waarde
                             ),
@@ -1330,17 +1334,17 @@ AS
                          TO_NUMBER (NULL) pa,
                          NULL btw,
                          k.res_kenmerk_key k_key,
-                         sk.res_srtkenmerk_omschrijving k_naam,
+                         COALESCE(k.res_kenmerk_omschrijving, sk.res_srtkenmerk_omschrijving) k_naam,
                          sk.res_srtkenmerk_kenmerktype k_type,
                          DECODE (
                             sk.res_srtkenmerk_kenmerktype,
                             'R',
-                            fac.getdomeinwaarde (
+                            flx.getdomeinwaarde (
                                sk.fac_kenmerkdomein_key,
                                kw.res_kenmerkreservering_waarde
                             ),
                             'S',
-                            fac.getdomeinwaarde (
+                            flx.getdomeinwaarde (
                                sk.fac_kenmerkdomein_key,
                                kw.res_kenmerkreservering_waarde
                             ),
@@ -1365,12 +1369,17 @@ CREATE_VIEW(res_v_udr_reservering, 1)
    datum,
    gastheer,
    contact,
+   gastheer_email,
+   contact_email,
    invoerder,
    kostensoortgroep,
    kostensoort,
    kpn,
    kpn_omschrijving,
    kpn_extern,
+   fclt_3d_divisie_key,
+   divisie_naam,
+   divisie_omschrijving,
    fclt_3d_afdeling_key,
    afdeling_code,
    afdeling_omschrijving,
@@ -1400,7 +1409,8 @@ CREATE_VIEW(res_v_udr_reservering, 1)
    bostatus,
    activiteit,
    srtactiviteit_key,
-   activiteitsoort
+   activiteitsoort,
+   opmerking
 )
 AS
    SELECT rrr.res_rsv_ruimte_key,
@@ -1414,6 +1424,12 @@ AS
           (SELECT prs_perslid_naam_full
              FROM prs_v_perslid_fullnames_all pf
             WHERE pf.prs_perslid_key = rrr.res_rsv_ruimte_contact_key),
+          (SELECT ph.prs_perslid_email
+             FROM prs_perslid ph
+            WHERE ph.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
+          (SELECT pc.prs_perslid_email
+             FROM prs_perslid pc
+            WHERE pc.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
@@ -1452,6 +1468,9 @@ AS
           k.prs_kostenplaats_nr,
           k.prs_kostenplaats_omschrijving,
           k.prs_kostenplaats_extern,
+          an.prs_afdeling_key,
+          an.prs_afdeling_naam,
+          an.prs_afdeling_omschrijving,
           a.prs_afdeling_key,
           a.prs_afdeling_naam,
           a.prs_afdeling_omschrijving,
@@ -1560,7 +1579,8 @@ AS
             WHERE rs.res_status_bo_key = rrr.res_status_bo_key),
           ra.res_activiteit_omschrijving,
           rsa.res_srtactiviteit_key,
-          rsa.res_srtactiviteit_omschrijving
+          rsa.res_srtactiviteit_omschrijving,
+          rrr.res_rsv_ruimte_opmerking
      FROM res_v_aanwezigrsv_ruimte rrr,
           res_activiteit ra,
           res_srtactiviteit rsa,
@@ -1568,6 +1588,8 @@ AS
           prs_kostenplaats k,
           prs_perslid p,
           prs_afdeling a,
+          prs_afdeling an,
+          prs_v_afdeling_boom ab,
           (  SELECT res_rsv_ruimte_key,
                     MAX (o.res_opstelling_omschrijving) opstelling,
                     MAX (ro.res_ruimte_opstel_bezoekers) capaciteit,
@@ -1599,6 +1621,8 @@ AS
           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 ab.prs_afdeling_key1 = an.prs_afdeling_key
+          AND ab.prs_afdeling_key = p.prs_afdeling_key
           AND rrr.res_rsv_ruimte_van >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
 
 CREATE_VIEW(res_v_udr_reserveringincl, 1)
@@ -1610,12 +1634,17 @@ CREATE_VIEW(res_v_udr_reserveringincl, 1)
    datum,
    gastheer,
    contact,
+   gastheer_email,
+   contact_email,
    invoerder,
    kostensoortgroep,
    kostensoort,
    kpn,
    kpn_omschrijving,
    kpn_extern,
+   fclt_3d_divisie_key,
+   divisie_naam,
+   divisie_omschrijving,
    fclt_3d_afdeling_key,
    afdeling_code,
    afdeling_omschrijving,
@@ -1646,6 +1675,7 @@ CREATE_VIEW(res_v_udr_reserveringincl, 1)
    activiteit,
    srtactiviteit_key,
    activiteitsoort,
+   opmerking,
    voorziening_discipline_key,
    voorziening_type,
    voorziening_catalogus,
@@ -1663,13 +1693,19 @@ AS
           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),
+          rrr.res_rsv_ruimte_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 ph.prs_perslid_email
+             FROM prs_perslid ph
+            WHERE ph.prs_perslid_key = rrr.res_rsv_ruimte_host_key),
+          (SELECT pc.prs_perslid_email
+             FROM prs_perslid pc
+            WHERE pc.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
@@ -1712,6 +1748,9 @@ AS
           k.prs_kostenplaats_nr,
           k.prs_kostenplaats_omschrijving,
           k.prs_kostenplaats_extern,
+          an.prs_afdeling_key,
+          an.prs_afdeling_naam,
+          an.prs_afdeling_omschrijving,
           a.prs_afdeling_key,
           a.prs_afdeling_naam,
           a.prs_afdeling_omschrijving,
@@ -1823,6 +1862,7 @@ AS
           ra.res_activiteit_omschrijving,
           rsa.res_srtactiviteit_key,
           rsa.res_srtactiviteit_omschrijving,
+          rrr.res_rsv_ruimte_opmerking,
           voorz.ins_discipline_key,
           voorz.vtype,
           voorz.catalogus,
@@ -1844,6 +1884,8 @@ AS
           prs_kostenplaats k,
           prs_perslid p,
           prs_afdeling a,
+          prs_afdeling an,
+          prs_v_afdeling_boom ab,
           (  SELECT res_rsv_ruimte_key,
                     MAX (o.res_opstelling_omschrijving) opstelling,
                     MAX (ro.res_ruimte_opstel_bezoekers) capaciteit,
@@ -1919,6 +1961,8 @@ AS
           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 p.prs_afdeling_key = ab.prs_afdeling_key
+          AND ab.prs_afdeling_key1 = an.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-2010', 'DD-MM-YYYY');
 

_UP/DB34to35.src

@@ -7,10 +7,330 @@
 
 COMMIT;
 
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#51376
+ALTER TABLE prs_bedrijfdienstlocatie
+  ADD prs_bdl_t_uitvoertijd
+      MLD_T_UITVOERTIJD
+      DEFAULT MLD_T_UITVOERTIJD(NULL, NULL)
+      CONSTRAINT prs_bdl_t_uitvoertijd CHECK(prs_bdl_t_uitvoertijd.tijdsduur >= 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54013
+ALTER TABLE mld_stdmelding
+  ADD mld_stdmelding_code
+      VARCHAR2(60)
+      CONSTRAINT mld_u_mld_stdmelding_code UNIQUE;
+ALTER TABLE mld_kenmerk
+  ADD mld_kenmerk_code
+      VARCHAR2(60)
+      CONSTRAINT mld_u_mld_kenmerk_code UNIQUE;
+ALTER TABLE mld_srtkenmerk
+  ADD mld_srtkenmerk_code
+      VARCHAR2(60)
+      CONSTRAINT mld_u_mld_srtkenmerk_code UNIQUE;
+ALTER TABLE ins_tab_discipline
+  ADD ins_discipline_code
+      VARCHAR2(60)
+      CONSTRAINT ins_u_ins_discipline_code UNIQUE;
+/////////////////////////////////////////////////////////////////////////////////////////// STAM#52848
+DEF_MENUITEM(3, 'lcl_mobile_ins_fo'             , '', 'INS', 'appl/pda/ins_list.asp?urole=fo', 0, 0, 'WEB_INSFOF', 'R', '1',      'fa-arrow-circle-up');
+/////////////////////////////////////////////////////////////////////////////////////////// BLCC#53564
+ALTER TABLE mld_opdr
+  ADD mld_opdr_parent_key
+      NUMBER(10)
+        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr (mld_opdr_key);
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#53859
+CREATE TABLE ins_deel_note
+(
+    ins_deel_note_key
+        NUMBER(10)
+        PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        NOT NULL
+        REFERENCES ins_deel (ins_deel_key)
+        ON DELETE CASCADE,
+    ins_deel_note_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    prs_perslid_key
+        NUMBER(10)
+        REFERENCES prs_perslid (prs_perslid_key)
+        ON DELETE SET NULL,
+    ins_deel_note_omschrijving
+        VARCHAR2(4000)
+);
+CREATE SEQUENCE ins_s_ins_deel_note_key MINVALUE 1;
+create index ins_i_ins_deel_note1 on ins_deel_note(ins_deel_key);
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#53849
+ALTER TABLE mld_disc_params
+  ADD mld_disc_params_nobnotify
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 1
+        NOT NULL;
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#39286
+ALTER TABLE fac_faq
+  ADD fac_functie_key
+        NUMBER(10)
+        REFERENCES fac_functie (fac_functie_key);
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54239
+ALTER TABLE ins_deelsrtcontrole
+  ADD ins_deelsrtcontrole_plan_opm
+      VARCHAR2(4000);
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54465
+ALTER TABLE fac_email_setting
+  ADD fac_email_setting_attachext
+      VARCHAR2(255);
+/////////////////////////////////////////////////////////////////////////////////////////// NMMS#54500
+ALTER TABLE mld_opdr_materiaal
+      MODIFY mld_opdr_materiaal_prijs NUMBER(15,7);
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55003
+UPDATE fac_usrrap ur
+   SET ur.fac_usrrap_functie = 0
+ WHERE ur.fac_usrrap_functie IS NULL;
+ALTER TABLE fac_usrrap
+      MODIFY fac_usrrap_functie NUMBER(3) DEFAULT 0 NOT NULL;
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#53352
+ALTER TABLE mld_opdr_materiaal
+  ADD mld_opdr_materiaal_extra4
+      VARCHAR2(4000);
+ALTER TABLE mld_opdr_materiaal
+  ADD mld_opdr_materiaal_id
+     NUMBER(10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#53975
+create index mld_i_mld_opdr17 on mld_opdr(mld_opdr_teverzenden);
+
+ALTER TABLE mld_opdr DROP CONSTRAINT mld_c_mld_opdr_teverz;
+ALTER TABLE mld_opdr
+  ADD CONSTRAINT mld_c_mld_opdr_teverz CHECK(mld_opdr_teverzenden IS NULL
+                                          OR mld_opdr_teverzenden = 1
+                                          OR mld_opdr_teverzenden = 2);  /* NULL=niet verzenden, 1=verzende bij status 4 en 5, 2=altijd verzenden */
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#38509
+// Iedereen *is* over naar JWT en SAML
+DELETE FROM aut_idp
+ WHERE aut_idp_type = 3; // GUID Deprecated
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#38888
+DELETE FROM fac_usrrap
+ WHERE LOWER(fac_usrrap_view_name) IN ('fac_v_perfmon_sample_user', 'fac_v_perfmon_sample_overall60', 'fac_v_perfmon_sample_ip');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#36197
+DEF_MENUITEM(2, 'lcl_menu_kpi_definitie'        , '', 'FAC', 'appl/mgt/kpi_definitie.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54169
+ALTER TABLE mld_melding
+    ADD mld_melding_behandelaar2_key NUMBER (10)
+        CONSTRAINT mld_r_prs_perslid_key12
+        REFERENCES prs_perslid (prs_perslid_key);
+
+ALTER TABLE mld_melding
+    ADD mld_ins_discipline_key NUMBER (10)
+        CONSTRAINT mld_r_ins_discipline_key4
+        REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE mld_stdmelding
+    ADD mld_stdmelding_default_disc NUMBER(10)
+        CONSTRAINT mld_r_ins_discipline_key5
+        REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE mld_disc_params
+    ADD mld_disc_params_srtgroep NUMBER(1) DEFAULT(3);
+
+ALTER TABLE mld_disc_params
+    ADD mld_disc_params_bhgnotify NUMBER(1) DEFAULT(1) NOT NULL;
+
+DEF_FAC_SRTNOT('MLDABH', 0, 'lcl_noti_MLDABH', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('MLDAB2', 0, 'lcl_noti_MLDAB2', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('MLDBHG', 0, 'lcl_noti_MLDBHG', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#53389
+CREATE VIEW fac_v_udr_faq AS SELECT '' dummy FROM DUAL;
+CREATE VIEW fac_v_udr_faqkenmerk_cnd AS SELECT '' dummy FROM DUAL;
+
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Kennisbank','FAC_V_UDR_FAQ','Basisrapport voor kennisbank rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FAC_V_UDR_FAQ');
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key, fac_usrrap_functie)
+ SELECT 'UDR: Kennisbank plus','FAC_V_UDR_FAQKENMERK_CND','Basisrapport voor kennisbankgegevens+kenmerk rapportages', fac_functie_key, 32
+   FROM fac_functie WHERE fac_functie_code='WEB_UDRMAN'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FAC_V_UDR_FAQKENMERK_CND');
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#54315
+ALTER TABLE mld_kenmerk              -- 0=Nee (default), 1=Ja, 2=Ja, wissen bij hervatten.
+  ADD mld_kenmerk_onderbreken
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53571
+ALTER TABLE mld_melding
+  ADD mld_melding_publiek
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#53814
+ALTER TABLE prs_kostenplaats
+  ADD ins_discipline_key
+      NUMBER(10)
+      CONSTRAINT prs_r_ins_discipline_key2 REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE prs_kostenplaats
+      DROP CONSTRAINT prs_u_prs_kostenplaats_upper
+      DROP INDEX;
+
+ALTER TABLE prs_kostenplaats
+      ADD CONSTRAINT prs_u_prs_kostenplaats_upper
+      UNIQUE(prs_kostenplaats_upper, prs_kostenplaats_verwijder, ins_discipline_key);
+
+UPDATE prs_kostenplaats kp
+   SET kp.ins_discipline_key = (SELECT pr.ins_discipline_key
+                                  FROM bgt_project pr
+                                     , prs_kostenplaatsgrp kg
+                                 WHERE kg.bgt_project_key = pr.bgt_project_key
+                                   AND kg.prs_kostenplaatsgrp_key = kp.prs_kostenplaatsgrp_key
+                               );
+
+ALTER TABLE prs_kostenplaatsgrp
+      DROP CONSTRAINT prs_r_bgt_project_key2;
+
+ALTER TABLE prs_kostenplaatsgrp
+      DROP COLUMN bgt_project_key;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#54385
+ALTER TABLE mld_kenmerk
+  ADD mld_kenmerk_obligation_fill  /* 0=Altijd in te vullen, 1=Alleen invulbaar bij verplichting */
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54805
+DELETE FAC_IMPORT
+ WHERE FAC_IMPORT_DATUM_GELEZEN IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#52552
+ALTER TABLE bes_bestelopdr_item
+  ADD bes_bestelopdr_item_opmerking
+      VARCHAR2(100);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#53729
+ALTER TABLE res_srtactiviteit
+ DROP constraint res_c_srtactiviteit_anonym;
+
+ALTER TABLE res_srtactiviteit
+  ADD CONSTRAINT res_c_srtactiviteit_anonym CHECK(res_srtactiviteit_anonym IN (0,1,2));
+
 /////////////////////////////////////////////////////////////////////////////////////////// XXXX#12345
+ALTER TABLE fin_factuurregel
+  ADD (fin_factuurregel_code
+          VARCHAR2(30),
+       fin_factuurregel_aantal
+          NUMBER(8,2),
+       fin_factuurregel_eenheid
+          VARCHAR2(30),
+       fin_factuurregel_id
+          NUMBER(10));
+
+ALTER TABLE fac_imp_factuur
+  ADD (kenmerk13
+          VARCHAR2(250),
+       kenmerk14
+          VARCHAR2(250),
+       kenmerk15
+          VARCHAR2(250),
+       kenmerk16
+          VARCHAR2(250),
+       kenmerk17
+          VARCHAR2(250),
+       kenmerk18
+          VARCHAR2(250),
+       kenmerk19
+          VARCHAR2(250),
+       kenmerk20
+          VARCHAR2(250),
+       artikelcode
+          VARCHAR2(30),
+       factuurregelaantal
+          NUMBER(8,2),
+       eenheid
+          VARCHAR2(30),
+       opdrachtregelid
+          NUMBER(10));
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#55026
+BEGIN
+    adm.trydrop('INDEX jgl9');
+    adm.trydrop('INDEX jgl10');
+END;
+/
+CREATE INDEX bgt_bgt_budget_key_naar ON bgt_budgetmutatie(bgt_budget_key_naar);
+CREATE INDEX bgt_bgt_budget_key_van  ON bgt_budgetmutatie(bgt_budget_key_van);
+CREATE INDEX bgt_i_bgt_disc_params ON bgt_disc_params(bgt_ins_discipline_key);
+CREATE INDEX bgt_i_bgt_budget ON bgt_budget(ins_discipline_key, bgt_project_key, bgt_kostenrubriek_key, prs_kostensoortgrp_key, prs_kostensoort_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54581
+ALTER TABLE ins_srtcontroledl_xcp ADD
+(
+    ins_srtcontroledl_xcp_prio
+        NUMBER(1)
+        DEFAULT(2)
+        NOT NULL
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54582
+ALTER TABLE ins_srtcontrole ADD
+(
+    prs_dienst_key NUMBER(10)
+        CONSTRAINT ins_r_prs_dienst_key1 REFERENCES prs_dienst(prs_dienst_key)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54238
+ALTER TABLE alg_srtgebouw ADD
+(
+    alg_srtgebouw_aspect_max_vg     /* Veiligheid - Gezondheid */
+        NUMBER(2)
+        DEFAULT 1
+        NOT NULL,
+    alg_srtgebouw_aspect_max_ch     /* Cultuur Historische waarde */
+        NUMBER(2)
+        DEFAULT 2
+        NOT NULL,
+    alg_srtgebouw_aspect_max_gb     /* Gebruik en Bedrijfsproces */
+        NUMBER(2)
+        DEFAULT 3
+        NOT NULL,
+    alg_srtgebouw_aspect_max_tv     /* Technische Vervolgschade */
+        NUMBER(2)
+        DEFAULT 5
+        NOT NULL,
+    alg_srtgebouw_aspect_max_tk     /* Toename Klachtenonderhoud */
+        NUMBER(2)
+        DEFAULT 5
+        NOT NULL,
+    alg_srtgebouw_aspect_max_be     /* Beleving - Esthetica */
+        NUMBER(2)
+        DEFAULT 7
+        NOT NULL,
+    alg_srtgebouw_aspect_max_en     /* Energie (aanvulling) */
+        NUMBER(2)
+        DEFAULT 4
+        NOT NULL
+);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#12345
+
 
 ///////////////////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////////////////// GENERAL
+// Iets prettiger
+UPDATE fac_usrrap_cols
+   SET fac_usrrap_cols_datatype = 'datetime'
+ WHERE fac_usrrap_cols_column_name = 'fac_auditfail_datum'
+   AND fac_usrrap_cols_datatype = 'date';
 
 /////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
 /////////////////////////////////////////////////////////////////////////////////////////// MNNL#42727

_UP/DB35to36.src

@@ -0,0 +1,639 @@
+/* DB35to36.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55775
+// Nog uit DB35toDB35a
+ALTER TABLE fac_imp_factuur
+    MODIFY locatie VARCHAR2(30);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55024
+// Aanpassen indexen voor zover deze niet goed zijn
+// Eerst wat tijdelijke procedures definieren voor het zonder errors toevoegen/hernoemen van indexen
+CREATE OR REPLACE PROCEDURE tmp_trycreate (n IN VARCHAR2)
+    AS
+        stmt VARCHAR2 (1000);
+    BEGIN
+        stmt := 'CREATE ' || n;
+
+        EXECUTE IMMEDIATE stmt;
+        DBMS_OUTPUT.put_line ('Successfully created: ' || n);
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            IF SQLCODE IN (-901, -904, -942, -1418, -1452, -1918, -2158, -2425, -2427, -4043)
+            THEN
+                -- cannot create, voor identifier (column) table, view, index, sequence, object and trigger, constraint
+                DBMS_OUTPUT.put_line ('Not found, not created: ' || n);
+                NULL;
+            ELSIF SQLCODE IN (-955, -1408, -1442, -2261)
+            THEN
+                -- object or not-null property already exist
+                DBMS_OUTPUT.put_line ('Already exists, not created: ' || n);
+                NULL;
+            ELSE
+                raise_application_error (-20001, 'Error trying to CREATE ' || n || ': ' || SQLERRM);
+            END IF;
+    END;
+/
+
+CREATE OR REPLACE PROCEDURE tmp_tryrename(n_from IN VARCHAR2, n_to IN VARCHAR2)
+    AS
+        exec_dml VARCHAR2(500);
+    BEGIN
+        exec_dml := 'ALTER '|| n_from ||' RENAME TO '|| n_to;
+        EXECUTE IMMEDIATE exec_dml;
+        DBMS_OUTPUT.put_line ('Successfully renamed index to: ' || n_to);
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            IF SQLCODE IN (-1418)
+            THEN
+                DBMS_OUTPUT.put_line ('Index does not exist: ' || n_from);
+                NULL;
+            ELSE
+                raise_application_error (-20001, 'Error trying to RENAME INDEX ' || n_from || ': ' || SQLERRM);
+            END IF;
+    END;
+/
+
+CREATE OR REPLACE PROCEDURE tmp_tryrename_pk (tab IN VARCHAR2, name IN VARCHAR2)
+    AS
+        old_name VARCHAR2(100);
+        exec_dml VARCHAR2(500);
+   BEGIN
+        -- Zoek de constaint-name van de primary-key op. Deze is dan meestal van type sys_c00....
+        SELECT constraint_name
+          INTO old_name
+          FROM user_constraints
+         WHERE table_name = UPPER(tab)
+           AND constraint_type = 'P';  -- constraint_type : Unique, Reference, Check, Primary key
+        --
+        IF (UPPER(old_name) = UPPER(name))
+        THEN
+            DBMS_OUTPUT.put_line ('Already exists, not created PK: ' || name);
+        ELSE
+            exec_dml := 'ALTER TABLE '|| tab ||' RENAME CONSTRAINT '|| old_name ||' TO '|| name;
+            EXECUTE IMMEDIATE exec_dml;
+            exec_dml := 'ALTER INDEX '|| old_name ||' RENAME TO '|| name;
+            EXECUTE IMMEDIATE exec_dml;
+            DBMS_OUTPUT.put_line ('Successfully renamed to: ' || name);
+        END IF;
+    EXCEPTION
+        WHEN NO_DATA_FOUND
+        THEN
+                DBMS_OUTPUT.put_line ('Table does not exist: ' || tab);
+                NULL;
+        WHEN OTHERS
+        THEN
+            IF SQLCODE IN (-1403)
+            THEN
+                DBMS_OUTPUT.put_line ('Index not found: ' || old_name);
+                NULL;
+            ELSIF SQLCODE IN (-2264, -1418)
+            THEN
+                DBMS_OUTPUT.put_line ('Index already exists: ' || name);
+                NULL;
+            ELSE
+                raise_application_error (-20001, 'Error trying to RENAME TO CONSTRAINT ' || name || ': ' || SQLERRM);
+            END IF;
+    END;
+/
+
+CREATE OR REPLACE PROCEDURE tmp_tryalter (n IN VARCHAR2)
+   AS
+       exec_dml VARCHAR2 (1000);
+   BEGIN
+       exec_dml := 'ALTER ' || n;
+
+       EXECUTE IMMEDIATE exec_dml;
+       DBMS_OUTPUT.put_line ('Found, successfully altered: ' || n);
+   EXCEPTION
+       WHEN OTHERS
+       THEN
+          IF SQLCODE IN (-904, -942, -1418, -2289, -4043, -4080, -2443)
+          THEN
+             -- did not exist, voor identifier (column) table, view, index, sequence, object and trigger, constraint
+             DBMS_OUTPUT.put_line ('Not found, not altered: ' || n);
+             NULL;
+          ELSIF SQLCODE IN (-955, -1442, -2261)
+          THEN
+             -- object or not-null property already exist
+             DBMS_OUTPUT.put_line ('Already exists, not altered: ' || n);
+             NULL;
+          ELSE
+             raise_application_error (-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM);
+          END IF;
+   END;
+/
+
+BEGIN
+    adm.trydrop('INDEX prs_i_prs_kostenplaats1');
+
+    tmp_trycreate('INDEX aut_i_cp_accesstoken ON aut_client_perslid(aut_client_perslid_accesstoken)');
+    tmp_trycreate('INDEX aut_i_cp_refreshtkn  ON aut_client_perslid(aut_client_perslid_refreshtkn)');
+    tmp_trycreate('UNIQUE INDEX fac_i_fac_menuitems1 ON fac_menuitems (fac_menuitems_label)');
+    tmp_trycreate('UNIQUE INDEX fac_i_srtnotificatie_code2 on fac_srtnotificatie(fac_srtnotificatie_key, fac_srtnotificatie_xmlnode)');
+    tmp_trycreate('UNIQUE INDEX mld_i_opdruren_dagkosten1 ON mld_opdruren_dagkosten(prs_perslid_key, mld_opdruren_dagkosten_datum)');
+    tmp_trycreate('INDEX bgt_i_bgt_budget ON bgt_budget(ins_discipline_key, bgt_project_key, bgt_kostenrubriek_key, prs_kostensoortgrp_key, prs_kostensoort_key)');
+    tmp_trycreate('INDEX bgt_i_bgt_disc_params ON bgt_disc_params(bgt_ins_discipline_key)');
+    tmp_trycreate('INDEX ins_i_ins_deel_note1 ON ins_deel_note(ins_deel_key)');
+    tmp_trycreate('INDEX mld_i_mld_opdr17 ON mld_opdr(mld_opdr_teverzenden)');
+    tmp_tryalter('TABLE ins_tab_discipline ADD CONSTRAINT ins_u_ins_discipline_code UNIQUE (ins_discipline_code)');
+    tmp_tryalter('TABLE mld_srtkenmerk ADD CONSTRAINT mld_u_mld_srtkenmerk_code UNIQUE (mld_srtkenmerk_code)');
+    tmp_tryalter('TABLE mld_kenmerk ADD CONSTRAINT mld_u_mld_kenmerk_code UNIQUE (mld_kenmerk_code)');
+    tmp_tryrename('INDEX bgt_bgt_budget_key_van',  'bgt_i_bgt_budget_key_van');
+    tmp_tryrename('INDEX bgt_bgt_budget_key_naar', 'bgt_i_bgt_budget_key_naar');
+
+    tmp_tryrename_pk('imp_log', 'imp_k_imp_log_key');
+END;
+/
+
+// nu mogen de tijdelijke procedures weer verwijderd worden
+DROP PROCEDURE tmp_tryrename_pk;
+DROP PROCEDURE tmp_tryrename;
+DROP PROCEDURE tmp_trycreate;
+DROP PROCEDURE tmp_tryalter;
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#55433
+CREATE TABLE res_arrangement
+(
+    res_arrangement_key
+        NUMBER(10)
+        PRIMARY KEY
+,   res_arrangement_omschrijving
+        VARCHAR2(60)
+        CONSTRAINT res_c_res_arrangement_omschr CHECK(res_arrangement_omschrijving IS NOT NULL)
+,   res_arrangement_opmerking
+        VARCHAR2(4000)
+);
+CREATE SEQUENCE res_s_res_arrangement_key MINVALUE 1;
+
+CREATE TABLE res_arrangement_artikel
+(  res_arrangement_artikel_key
+      NUMBER(10)
+      PRIMARY KEY
+,  res_arrangement_key
+      NUMBER(10)
+      CONSTRAINT res_c_res_arrangement_key CHECK(res_arrangement_key IS NOT NULL)
+      CONSTRAINT res_c_res_arrangement REFERENCES res_arrangement(res_arrangement_key)
+,  res_artikel_key
+      NUMBER(10)
+      CONSTRAINT res_c_res_arrangement_art_key CHECK(res_artikel_key IS NOT NULL)
+      CONSTRAINT res_c_res_arrangement_artikel REFERENCES res_artikel(res_artikel_key)
+);
+CREATE SEQUENCE res_s_res_arrangement_art_key MINVALUE 1;
+create index res_i_res_arrangement_art1 on res_arrangement_artikel(res_arrangement_key, res_arrangement_artikel_key);
+
+DEF_MENUITEM(2, 'lcl_menu_res_arrangementen', '', 'RES', 'appl/mgt/res_arrangement.asp', 0, 0, 'WEB_RESMSU', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_res_arrangementen', 'lcl_menu_res_verbruiksartikele', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53571
+ALTER TABLE mld_disc_params
+  ADD mld_disc_params_kanpubliek
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 0
+      NOT NULL;
+DEF_MENUITEM(0, 'lcl_menu_mld_fe_common_wishes' , '', 'MLD', 'appl/mld/mld_search.asp?urole=fe&public=1&autosearch=1', 0, 0, 'WEB_MLDUSE', 'R', '0', '');
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#54648
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_accept
+        NUMBER(1)       -- valid are 0, 1
+        DEFAULT 1
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#55036
+ALTER TABLE alg_locatie ADD alg_locatie_vervaldatum DATE;
+ALTER TABLE alg_terreinsector ADD alg_terreinsector_vervaldatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56301
+ALTER TABLE res_disc_params ADD res_disc_params_min_duur NUMBER(4,2) DEFAULT(0) NOT NULL;
+ALTER TABLE res_disc_params ADD res_disc_params_min_deelnmrs NUMBER(5) DEFAULT(0) NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#55483
+ALTER TABLE fac_usrrap
+  ADD fac_usrrap_volgnr
+        NUMBER(10);
+create index fac_i_fac_usrrap_volgnr on fac_usrrap(fac_usrrap_volgnr, fac_usrrap_omschrijving);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#55141
+ALTER TABLE bez_bezoekers ADD bez_bezoekers_aanmaak DATE DEFAULT SYSDATE NOT NULL;
+ALTER TABLE bez_afspraak  ADD bez_afspraak_aanmaak DATE DEFAULT SYSDATE NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55575
+ALTER TABLE fac_imp_ins ADD ins_deel_aanmaak DATE;
+ALTER TABLE fac_imp_ins ADD ins_deel_vervaldatum DATE;
+ALTER TABLE fac_imp_ins ADD ins_deel_aantal NUMBER(8,2) DEFAULT(0) NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55831
+ALTER TABLE mld_melding_note ADD mld_melding_note_wijzigdatum DATE;
+ALTER TABLE mld_opdr_note ADD mld_opdr_note_wijzigdatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#55846
+ALTER TABLE mld_typeopdr ADD mld_typeopdr_annuleermelding NUMBER(1) DEFAULT(0) NOT NULL
+CONSTRAINT mld_c_mld_typeopdr_annulm CHECK(mld_typeopdr_annuleermelding IN (0,1,2)); /*0=niet, 1=vragen, 2=vanzelf*/
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55795
+ALTER TABLE fac_locale MODIFY fac_locale_tekst VARCHAR2(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PLAT#55511
+INSERT INTO fac_setting (fac_setting_module,
+                         fac_setting_name,
+                         fac_setting_description,
+                         fac_setting_pvalue)
+     VALUES('INS',
+           'ins_element_description',
+           'SQL voor de objectomschrijving achter de "heeft betrekking op" knop voor het selecteren van elementen',
+            '');
+UPDATE fac_setting
+   SET fac_setting_pvalue = (SELECT fac_setting_pvalue FROM fac_setting WHERE fac_setting_name = 'fac_reserved_string1')
+ WHERE fac_setting_name = 'ins_element_description';
+UPDATE fac_setting
+   SET fac_setting_pvalue = ''
+ WHERE fac_setting_name = 'fac_reserved_string1';
+
+ /////////////////////////////////////////////////////////////////////////////////////////// AAFM#52969
+ UPDATE fac_setting
+    SET fac_setting_pvalue = ''
+  WHERE fac_setting_name = 'mld_note_sort_ascending';
+
+  /////////////////////////////////////////////////////////////////////////////////////////// FCLT#56591
+ INSERT INTO fac_setting (fac_setting_module,
+                          fac_setting_name,
+                          fac_setting_description,
+                          fac_setting_pvalue)
+      VALUES('FAC',
+            'fac_xml_max_factuur',
+            'Maximum number of lines for invoice in sales-invoice node',
+             '');
+ UPDATE fac_setting
+    SET fac_setting_pvalue = (SELECT fac_setting_pvalue FROM fac_setting WHERE fac_setting_name = 'res_xml_max_rsv_ruimte')
+  WHERE fac_setting_name = 'fac_xml_max_factuur';
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#56537
+ALTER TABLE cnt_disc_params ADD cnt_disc_params_binding NUMBER(3) DEFAULT (3) NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#55980
+ALTER TABLE FIN_FACTUUR
+  ADD cnt_contract_plaats_key
+      NUMBER(10)
+      CONSTRAINT fin_r_fin_factuur8 REFERENCES cnt_contract_plaats(cnt_contract_plaats_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#55076
+ALTER TABLE fac_nieuws
+  ADD fac_groep_key
+      NUMBER(10)
+      REFERENCES fac_groep(fac_groep_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54360
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/mld_kenmerk.asp?niveau=M'
+ WHERE fac_menuitems_label = 'lcl_menu_mld_kenmerken_m';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/mld_kenmerk.asp?niveau=O'
+ WHERE fac_menuitems_label = 'lcl_menu_mld_kenmerken';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55853
+CREATE INDEX mld_i_mld_opdr_uren2 ON mld_opdr_uren(mld_opdr_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54957
+UPDATE fac_setting
+   SET fac_setting_pvalue =
+              'xsl/'
+           || (SELECT MAX (fac_version_cust) FROM fac_version)
+           || '.xsl'
+ WHERE     fac_setting_name = 'puo_notificationxsl'
+       AND (   LOWER (fac_setting_pvalue) = 'xsl/cust.xsl'
+            OR LOWER (fac_setting_pvalue) = '../xsl/cust.xsl');
+
+UPDATE prs_bedrijfadres
+   SET prs_bedrijfadres_xsl =
+              'xsl/'
+           || (SELECT MAX (fac_version_cust) FROM fac_version)
+           || '.xsl'
+ WHERE LOWER (prs_bedrijfadres_xsl) = 'xsl/cust.xsl';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56028
+UPDATE fac_srtnotificatie
+   SET fac_srtnotificatie_url = 'mgt/prs_kostenplaats.asp?mode=show&id='
+ WHERE fac_srtnotificatie_code = 'PRSKPU';
+
+/////////////////////////////////////////////////////////////////////////////////////////// MDUX#31137
+UPDATE fac_menu
+   SET fac_menu_alturl = REPLACE(fac_menu_alturl, 'exp_export.asp', 'exp_export_confirm.asp')
+ WHERE fac_menu_alturl LIKE '%exp_export%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FNS#37089
+ALTER TABLE ins_srtdiscipline
+ DROP CONSTRAINT ins_c_ins_srtdiscipline_kk;
+
+ALTER TABLE ins_srtdiscipline MODIFY ins_srtdiscipline_kostenklant NUMBER(2) DEFAULT (0);
+
+ALTER TABLE ins_srtdiscipline
+  ADD CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2,4,5,6,8,9,10));
+
+UPDATE ins_srtdiscipline
+   SET ins_srtdiscipline_kostenklant = 5
+ WHERE ins_srtdiscipline_kostenklant = 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54494
+ALTER TABLE fac_version
+  ADD fac_version_group VARCHAR2(4);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56269
+DROP INDEX prs_i_prs_perslid3;
+
+ALTER TABLE prs_perslid
+ DROP COLUMN prs_perslid_init_upper;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53978
+DROP INDEX fac_i_fac_xml1;
+
+DROP TABLE fac_xml PURGE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56327
+UPDATE fac_message
+   SET fac_message_text = 'Copyright (c) 1996-2019, Aareon Nederland B.V.'
+ WHERE fac_message_code = 'FAC_M005';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56379
+ALTER TABLE fac_kenmwaarden
+  ADD ( fac_kenmwaarden_kenmerklen NUMBER(4)
+      , fac_kenmwaarden_kenmerkdec NUMBER(3)
+      );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56461
+UPDATE mld_disc_params
+   SET mld_disc_params_srtgroep =
+           CASE
+               WHEN mld_disc_params_srtgroep = 1 THEN 5
+               WHEN mld_disc_params_srtgroep = 2 THEN 3
+               ELSE   -- mld_disc_params_srtgroep IN (NULL, 0, 3+)
+                    1 -- New default
+           END;
+
+ALTER TABLE mld_disc_params
+    MODIFY mld_disc_params_srtgroep NUMBER (1)
+           DEFAULT (1)
+           NOT NULL
+           CONSTRAINT mld_c_mld_disc_params_srtgroep CHECK
+               (mld_disc_params_srtgroep IN (1,5,2,3,7));
+
+UPDATE fac_locale_xsl
+   SET fac_locale_xsl_cust = NULL
+ WHERE fac_locale_xsl_label = 'mld_discipline_srtgroepLOV';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56358
+ALTER TABLE prs_bedrijfadres
+  ADD ( prs_bedrijfadres_sender VARCHAR2(512)
+      , prs_bedrijfadres_replyaddress VARCHAR2(512)
+      );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56458
+CREATE OR REPLACE TYPE km_record AS OBJECT (tbl VARCHAR2(50), cst VARCHAR2(50));
+/
+
+DECLARE
+    TYPE km_tables  IS VARRAY(11) OF km_record;
+    rec             km_tables;
+    opdracht        VARCHAR2(1000);
+    sql_type        VARCHAR2(1000);
+BEGIN
+    rec := km_tables( km_record('alg_kenmerk', 'alg_c_alg_kenmerk_type1')
+                    , km_record('bez_kenmerk', 'bez_c_bez_kenmerk_type2')
+                    , km_record('faq_kenmerk', 'faq_c_faq_kenmerk_type1')
+                    , km_record('fin_kenmerk', 'fin_c_fin_kenmerk_type1')
+                    , km_record('prs_kenmerk', 'prs_c_prs_kenmerk_type2')
+                    , km_record('bes_srtkenmerk', 'bes_c_bes_srtkenmerk_kenmtype')
+                    , km_record('cnt_srtkenmerk', 'cnt_c_cnt_srtkenmerk_kenmtype')
+                    , km_record('ins_srtkenmerk', 'ins_c_ins_srtkenmerk_kenmtype')
+                    , km_record('mld_srtkenmerk', 'mld_c_mld_srtkenmerk_kenmtype')
+                    , km_record('res_srtkenmerk', 'res_c_res_srtkenmerk_kenmtype')
+                    , km_record('fac_kenmwaarden', 'fac_c_fac_kenmwaarden_kenmtype')
+                    );
+    FOR i IN 1 .. 11 LOOP
+        --
+        -- huidige constraint verwijderen
+        opdracht := 'TABLE '|| rec(i).tbl ||' DROP CONSTRAINT '|| rec(i).cst;
+        --DBMS_OUTPUT.put_line('ALTER '|| opdracht);
+        ADM.tryalter(opdracht);
+        --
+        -- nieuwe constraint zetten
+        opdracht := 'TABLE '|| rec(i).tbl ||' ADD CONSTRAINT '|| rec(i).cst
+                 ||' CHECK('|| rec(i).tbl ||'_kenmerktype'
+                 ||' IN (''C'',''N'',''D'',''T'',''R'',''X'',''L'',''Q'',''F'',''M'',''E'',''S'',''l'',''B'',''V''))'
+                 ||' ENABLE NOVALIDATE';
+        --DBMS_OUTPUT.put_line('ALTER '|| opdracht);
+        ADM.tryalter(opdracht);
+        --
+        -- waarden voor checkbox omzetten
+        IF (rec(i).tbl = 'fac_kenmwaarden')
+        THEN
+            DELETE FROM fac_kenmwaarden;
+        ELSE
+            opdracht := 'UPDATE '|| rec(i).tbl
+                     || '   SET '|| rec(i).tbl ||'_kenmerktype = ''V'''
+                     || '     , '|| rec(i).tbl ||'_lengte = NULL'
+                     || '     , '|| rec(i).tbl ||'_nmin = NULL'
+                     || '     , '|| rec(i).tbl ||'_nmax = NULL'
+                     || ' WHERE '|| rec(i).tbl ||'_kenmerktype = ''N'''
+                     || '   AND '|| rec(i).tbl ||'_lengte = 1'
+                     || '   AND '|| rec(i).tbl ||'_nmin = 0'
+                     || '   AND '|| rec(i).tbl ||'_nmax = 1';
+            --DBMS_OUTPUT.put_line(opdracht);
+            EXECUTE IMMEDIATE opdracht;
+        END IF;
+    END LOOP;
+END;
+/
+
+DROP TYPE km_record;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#56347
+ALTER TABLE aut_idp_map
+    ADD aut_idp_map_autocreate -- unused/future use
+        NUMBER(1)
+        DEFAULT 0 -- +1: create; +2: update
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#53135
+ALTER TABLE prs_bedrijf_bedrijf
+        ADD fin_btwtabelwaarde_key -- default btw
+            NUMBER(10)
+ CONSTRAINT prs_r_fin_btwtabelwaarde_key2 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
+ALTER TABLE prs_bedrijf_bedrijf
+        ADD prs_bedrijf_bedrijf_g_pct -- G-percentage
+            NUMBER(3)
+ CONSTRAINT prs_c_bedrijf_bedrijf_g_pct CHECK(prs_bedrijf_bedrijf_g_pct BETWEEN 0 AND 100);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#51899
+ALTER TABLE res_ruimte_opstelling
+        ADD res_ruimte_opstel_tijd
+            NUMBER(5,2)
+            DEFAULT 0
+            NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#43129
+
+ALTER TABLE mld_melding MODIFY mld_melding_actiecode NUMBER(3);
+
+ALTER TRIGGER mld_t_mld_melding_b_iu DISABLE;
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt fac.getSetting
+ALTER PACKAGE fac COMPILE BODY;  // nodig?
+
+UPDATE mld_melding
+   SET mld_melding_actiecode = 2, -- (actie ligt bij melder)
+       mld_melding_flag = 0 -- reset flag
+ WHERE mld_melding_flag = fac.getSetting('mld_flag_on_fenote')
+   AND fac.getSetting('mld_flag_on_fenote') > 0;
+
+UPDATE mld_melding
+   SET mld_melding_actiecode = 1 + 128, -- (actie bij BO+attentie)
+       mld_melding_flag = 0 -- reset flag
+ WHERE mld_melding_flag = fac.getSetting('mld_flag_on_bonote')
+   AND fac.getSetting('mld_flag_on_bonote') > 0;
+
+ALTER TRIGGER mld_t_mld_melding_B_IU ENABLE;
+
+INSERT INTO fac_setting (fac_setting_module,
+                         fac_setting_name,
+                         fac_setting_description,
+                         fac_setting_pvalue)
+     VALUES('MLD',
+           'mld_melding_actiecode',
+           'Dummy',
+            CASE WHEN fac.getSetting('mld_flag_on_fenote') > 0 OR fac.getSetting('mld_flag_on_fenote') > 0 THEN 1 ELSE NULL END);
+
+// Proberen flags te resetten
+DECLARE
+    newflag   NUMBER (1);
+BEGIN
+    newflag := fac.getSetting ('mld_melding_flags');
+    DBMS_OUTPUT.PUT_LINE('mld_melding_flags was: ' || newflag);
+    DBMS_OUTPUT.PUT_LINE('mld_flag_on_fenote was: ' || fac.getSetting ('mld_flag_on_fenote'));
+    DBMS_OUTPUT.PUT_LINE('mld_flag_on_bonote was: ' || fac.getSetting ('mld_flag_on_bonote'));
+
+    IF fac.getSetting ('mld_flag_on_fenote') = newflag - 1
+    THEN
+        newflag := newflag - 1;
+        UPDATE fac_setting
+           SET fac_setting_pvalue = NULL
+         WHERE fac_setting_name = 'mld_flag_on_fenote';
+    END IF;
+    IF fac.getSetting ('mld_flag_on_bonote') = newflag - 1
+    THEN
+        newflag := newflag - 1;
+        UPDATE fac_setting
+           SET fac_setting_pvalue = NULL
+         WHERE fac_setting_name = 'mld_flag_on_bonote';
+    END IF;
+    IF fac.getSetting ('mld_flag_on_fenote') = newflag - 1
+    THEN
+        newflag := newflag - 1;
+        UPDATE fac_setting
+           SET fac_setting_pvalue = NULL
+         WHERE fac_setting_name = 'mld_flag_on_fenote';
+    END IF;
+    IF newflag <= 1 THEN
+        newflag := 0;
+    END IF;
+    DBMS_OUTPUT.PUT_LINE('mld_melding_flags is now: ' || newflag);
+    IF newflag <> fac.getSetting ('mld_melding_flags') THEN
+        UPDATE fac_setting
+           SET fac_setting_pvalue = NULL
+         WHERE fac_setting_name = 'mld_melding_flags';
+    END IF;
+END;
+/
+
+DEF_FAC_SRTNOT('MLDA2B', 0, 'lcl_noti_MLDA2B', 'mld/mld_melding.asp?urole=bo&mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('MLDA2M', 0, 'lcl_noti_MLDA2M', 'mld/mld_melding.asp?urole=fe&mld_key=', '0', 'melding', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56113
+ALTER TABLE mld_melding
+   ADD mld_melding_externsyncdate    /* voor koppelingen met externe systemen */
+        DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#55434
+ALTER TABLE res_kenmerk
+ DROP CONSTRAINT res_c_res_kenmerk_niveau2;
+
+ALTER TABLE res_kenmerk
+  ADD CONSTRAINT res_c_res_kenmerk_niveau2 CHECK(res_kenmerk_niveau IN ('A', 'D')); /* Activiteit of Discipline/Catalogus */
+
+ALTER TABLE res_kenmerk
+  MODIFY res_kenmerk_niveau DEFAULT 'A';
+
+ALTER TABLE res_kenmerk
+  ADD res_artikel_key
+      NUMBER(10)
+  CONSTRAINT res_r_res_artikel_key REFERENCES res_artikel(res_artikel_key);
+
+ALTER TABLE res_kenmerk
+ DROP CONSTRAINT res_u_res_kenmerk DROP INDEX;
+
+ALTER TABLE res_kenmerk
+  ADD CONSTRAINT res_u_res_kenmerk UNIQUE(res_artikel_key, res_activiteit_key, res_srtkenmerk_key, res_kenmerk_groep, res_kenmerk_verwijder);
+
+CREATE SEQUENCE res_s_res_kenmerkartikel_key    MINVALUE 1;
+
+CREATE_TABLE(res_kenmerkartikel, 0)
+(  res_kenmerkartikel_key
+      NUMBER(10)
+      CONSTRAINT res_k_res_kenmerkartikel_key PRIMARY KEY
+,  res_rsv_artikel_key
+      NUMBER(10)
+,  res_kenmerk_key
+      NUMBER(10)
+,  res_kenmerkartikel_waarde
+      VARCHAR2(4000)
+,  res_kenmerkartikel_aanmaak
+      DATE
+      DEFAULT SYSDATE
+,  res_kenmerkartikel_verwijder
+      DATE
+      DEFAULT NULLDATUM
+,  CONSTRAINT res_r_res_rsv_artikel_key          CHECK(res_rsv_artikel_key IS NOT NULL)
+,  CONSTRAINT res_r_res_kenmerk_key2             CHECK(res_kenmerk_key IS NOT NULL)
+,  CONSTRAINT res_r_res_rsv_artikel_key2         FOREIGN KEY(res_rsv_artikel_key) REFERENCES res_rsv_artikel(res_rsv_artikel_key) ON DELETE CASCADE
+,  CONSTRAINT res_c_res_kenmerkartikel_aanm      CHECK(res_kenmerkartikel_aanmaak IS NOT NULL)
+,  CONSTRAINT res_u_res_kenmerkartikel           UNIQUE(res_rsv_artikel_key, res_kenmerk_key, res_kenmerkartikel_verwijder)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#55706
+ALTER TABLE mld_workflowstep ADD
+  mld_workflowstep_eindtype
+      NUMBER(2)
+      DEFAULT 0
+      NOT_NULL(mld_workflowstep_eindtype, mld_c_mld_workflowstep_eindtyp);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#56743
+ALTER TABLE mld_opdr DROP CONSTRAINT mld_c_mld_opdr_materiaal;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DIAN#55467
+ALTER TABLE ins_tab_discipline
+ DROP CONSTRAINT ins_c_ins_discipline_kpn;
+
+ALTER TABLE ins_tab_discipline
+  ADD CONSTRAINT ins_c_ins_discipline_kpn CHECK(ins_discipline_kpnverplicht IN (0,1,2));
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#54382
+ALTER TABLE prs_dienst ADD prs_dienst_hint VARCHAR2(1000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAVG#56809
+ALTER TABLE fac_usrrap_cols MODIFY fac_usrrap_cols_filterdefault VARCHAR2(500);
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn
+
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB36_FSN#58238.sql

@@ -0,0 +1,37 @@
+--
+-- $Id$
+--
+-- Corrigeer CONSTRAINT ins_c_ins_srtdiscipline_kk voor klanten
+-- die met DB36 zijn aangemaakt
+
+DEFINE thisfile = 'DB36_FSN#58238.sql'
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+ALTER TABLE ins_srtdiscipline
+ DROP CONSTRAINT ins_c_ins_srtdiscipline_kk;
+
+ALTER TABLE ins_srtdiscipline
+  ADD CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2,4,5,6,8,9,10));
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

_UP/DB36to37.src

@@ -0,0 +1,636 @@
+/* DB36to37.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56940
+ALTER TABLE fac_email_setting
+    ADD fac_email_setting_loglevel NUMBER(3)
+     DEFAULT 0 NOT NULL;
+
+ALTER TABLE fac_email_setting
+    ADD prs_perslid_key_auth
+        NUMBER(10)
+        CONSTRAINT fac_r_prs_perslid_key10 REFERENCES prs_perslid(prs_perslid_key);
+
+ALTER TABLE fac_email_setting
+     ADD fac_email_setting_opmerking VARCHAR2 (320);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#xxxxx
+
+ALTER TABLE mld_opdr
+     ADD mld_opdr_externnr VARCHAR2(30);
+
+ALTER TABLE mld_opdr
+     ADD mld_opdr_externsyncdate DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#56503
+ALTER TABLE fac_kenmwaarden
+     ADD fac_kenmwaarden_exprwaarde VARCHAR2 (4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// STAM#56747
+UPDATE fac_setting
+   SET fac_setting_pvalue = DECODE(UPPER(fac_setting_pvalue), 'FALSE', '0', 'TRUE', '1', '')
+ WHERE fac_setting_name = 'portalmenu_combine_single';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56366
+ALTER TABLE fac_usrrap_cols
+  ADD fac_usrrap_cols_sorting
+      NUMBER(1)
+      DEFAULT 3
+      NOT NULL
+      CONSTRAINT fac_c_usrrap_cols_sorting CHECK (fac_usrrap_cols_sorting IN (0,1,2,3));
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#55820
+ALTER TABLE res_ruimte
+  ADD res_ruimte_cv
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+      CONSTRAINT res_c_res_ruimte_cv CHECK(res_ruimte_cv IN (0,1));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#36801
+ALTER TABLE ins_srtcontrole
+  ADD ins_controlemode_key
+      NUMBER(10)
+      CONSTRAINT ins_c_ins_controlemode_key REFERENCES ins_controlemode(ins_controlemode_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57144
+ALTER TABLE mld_kenmerk DROP CONSTRAINT mld_r_mld_srtkenmerk_keys;
+ALTER TABLE mld_kenmerk DROP CONSTRAINT mld_c_mld_kenmerk_niveau2;
+ALTER TABLE mld_kenmerk
+  ADD CONSTRAINT mld_c_mld_kenmerk_niveau2 CHECK(mld_kenmerk_niveau IN ('T','D','S','O','A','P'));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57372
+DEF_STATUS('factuur', 5, 'lcl_fin_ter_goedgekeuring');
+
+/////////////////////////////////////////////////////////////////////////////////////////// KFSG#50528
+UPDATE fac_setting
+   SET fac_setting_pvalue = 1
+ WHERE     fac_setting_name = 'qrc_enable'
+       AND fac_setting_pvalue IS NULL
+       AND EXISTS
+               (SELECT ''
+                  FROM fac_setting
+                 WHERE     fac_setting_name = 'mobile_enabled'
+                       AND fac_setting_pvalue = 1);
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#57223
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid
+ALTER PACKAGE fac COMPILE BODY;  // nodig?
+UPDATE mld_melding
+  SET mld_melding_status = 2
+WHERE mld_melding_status = 3;
+
+ALTER TABLE mld_melding
+ DROP CONSTRAINT mld_c_mld_status1;
+ALTER TABLE mld_melding
+ ADD CONSTRAINT mld_c_mld_status1 CHECK(mld_melding_status IN (0,1,2,4,5,6,7,99));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57049
+DELETE
+  FROM fac_notificatie_job
+ WHERE UPPER(fac_notificatie_job_view) = 'FAC_V_NOTI_LICENTIE';
+
+DROP VIEW FAC_V_NOTI_LICENTIE;
+DROP VIEW FAC_V_LCRAP_KEY_STATS;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#55745
+ALTER TABLE fac_usrrap
+  ADD fac_usrrap_parameters VARCHAR2(200);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#34049
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_error_handler NUMBER (1) DEFAULT 0 NOT NULL;
+
+UPDATE prs_bedrijfadres
+   SET prs_bedrijfadres_error_handler = 1
+ WHERE LOWER(prs_bedrijfadres_ext) IN ('cxml', 'xxml');
+
+UPDATE prs_bedrijfadres
+   SET prs_bedrijfadres_ext = 'xml'
+ WHERE LOWER(prs_bedrijfadres_ext) = 'xxml';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#57494
+CREATE_TABLE(prs_perslid_tabs, 0)
+(
+    prs_perslid_tabs_key
+        NUMBER(10)
+        CONSTRAINT prs_k_prs_perslid_tabs_key PRIMARY KEY,
+    prs_perslid_tabs_code
+        VARCHAR2(32) NOT NULL,
+    prs_perslid_tabs_aanmaak
+        DATE DEFAULT SYSDATE,
+    prs_perslid_key
+        NUMBER(10)
+        CONSTRAINT prs_r_prs_perslid_key20 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+);
+CREATE SEQUENCE prs_s_prs_perslid_tabs_key MINVALUE 1;
+CREATE UNIQUE INDEX prs_i_prs_perslid_tabs1 on prs_perslid_tabs(prs_perslid_key, prs_perslid_tabs_code);
+
+CREATE_TABLE(prs_perslid_cols, 0)
+(
+    prs_perslid_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_prs_perslid_cols_key PRIMARY KEY,
+    prs_perslid_tabs_key
+        NUMBER(10)
+        CONSTRAINT fac_r_perslid_cols_tabs_key REFERENCES prs_perslid_tabs(prs_perslid_tabs_key)
+        ON DELETE CASCADE,
+    prs_perslid_cols_volgnr
+        NUMBER(10) NOT NULL,
+    prs_perslid_cols_column_name
+        VARCHAR2(32) NOT NULL,
+    prs_perslid_cols_visible /* V;Visible; I;Invisible */
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT prs_c_perslid_cols_visible CHECK (prs_perslid_cols_visible IN ('V', 'I')),
+    prs_perslid_cols_combine /* 0;False 1;True */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT prs_c_perslid_cols_combine CHECK (prs_perslid_cols_combine IN (0, 1)),
+    CONSTRAINT prs_u_prs_perslid_cols1 UNIQUE(prs_perslid_tabs_key, prs_perslid_cols_column_name)
+);
+CREATE SEQUENCE prs_s_prs_perslid_cols_key MINVALUE 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57020
+UPDATE ins_tab_discipline
+   SET ins_discipline_kpnverplicht = 0
+ WHERE ins_discipline_kpnverplicht IS NULL;
+
+// VALIDATE gaf problemen, Melding 58853
+ALTER TABLE ins_tab_discipline
+    MODIFY ins_discipline_kpnverplicht NOT NULL ENABLE NOVALIDATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#57586
+ALTER TABLE bgt_kostenrubriek
+  ADD fin_btwtabelwaarde_key
+      NUMBER(10)
+      CONSTRAINT bgt_r_fin_btwtabelwaarde_key REFERENCES fin_btwtabelwaarde (fin_btwtabelwaarde_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57586
+ALTER TABLE fac_version
+  ADD fac_version_upgrading
+      VARCHAR(64);
+
+ALTER TABLE fac_version
+  ADD fac_version_upgrading_date
+      DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PLAT#51673
+CREATE OR REPLACE PROCEDURE tmp_insert (n IN VARCHAR2)
+    AS
+        stmt VARCHAR2 (1000);
+    BEGIN
+        stmt := 'INSERT INTO ' || n;
+
+        EXECUTE IMMEDIATE stmt;
+        DBMS_OUTPUT.put_line ('Successfully created: ' || n);
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            DBMS_OUTPUT.put_line ('message allready exists, not created: ' || n);
+            NULL;
+    END;
+/
+
+BEGIN
+    tmp_insert('fac_message VALUES (''ALG_M999'',                     ''Kan onroerendgoed niet verwijderen. Er zijn nog objecten of lopende meldingen.'')');
+    tmp_insert('fac_message VALUES (''FAC_I_FAC_GEBRUIKERSGROEP1'',   ''De combinatie gebruiker/groep is niet uniek.'')');
+    tmp_insert('fac_message VALUES (''FAC_U_FAC_USRRAP'',             ''De rapportomschrijving moet uniek zijn'')');
+    tmp_insert('fac_message VALUES (''FAC_C_MENU1'',                  ''De afwijkende URL of de menuoptie bij Standaardgegevens moet ingevuld zijn.'')');
+    tmp_insert('fac_message VALUES (''BES_I_BES_SRTDEEL2'',           ''De combinatie artikelnummer, leverancier en groep is niet uniek.'')');
+    tmp_insert('fac_message VALUES (''MLD_U_MLD_SRTKENMERK_UPPER'',   ''De omschrijving van kenmerksoort is niet uniek.'')');
+    tmp_insert('fac_message VALUES (''MLD_U_MLD_STDMELDING'',         ''De vakgroep en omschrijving moeten uniek zijn.'')');
+    tmp_insert('fac_message VALUES (''RES_M960'',                     ''U probeerde ruimte te reserveren met key='')');
+    tmp_insert('fac_message VALUES (''RES_C_RES_RSV_RUIMTE_KORTING'', ''De korting moet gelijk of groter dan 0 zijn.'')');
+    tmp_insert('fac_message VALUES (''RES_C_RES_RSV_ARTIKEL_AANTAL'', ''Het aantal artikelen is niet ingevuld.'')');
+    tmp_insert('fac_message VALUES (''INS_U_INS_DEEL_UPPER2'',        ''Het veld ''''Identificatie'''' is niet uniek binnen de combinatie Locatie/Objectsoort.'')');
+    tmp_insert('fac_message VALUES (''PRS_U_PRS_KOSTENPLAATS_UPPER'', ''De omschrijving kostenplaats is niet uniek binnen type.'')');
+END;
+/
+DROP PROCEDURE tmp_insert;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57680
+ALTER TABLE mld_melding
+  ADD prs_afdeling_key NUMBER (10)
+      CONSTRAINT mld_r_prs_afdeling_key
+      REFERENCES prs_afdeling (prs_afdeling_key);
+
+UPDATE fac_functie
+   SET fac_functie_min_level = 15
+ WHERE fac_functie_code = 'WEB_MLDUSE';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57650
+ALTER TABLE alg_kenmerk ADD alg_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE bes_kenmerk ADD bes_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE bez_kenmerk ADD bez_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE cnt_kenmerk ADD cnt_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE faq_kenmerk ADD faq_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE fin_kenmerk ADD fin_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE ins_kenmerk ADD ins_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE mld_kenmerk ADD mld_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE prs_kenmerk ADD prs_kenmerk_show_expr VARCHAR2(4000);
+ALTER TABLE res_kenmerk ADD res_kenmerk_show_expr VARCHAR2(4000);
+UPDATE alg_kenmerk SET alg_kenmerk_show_expr = alg_kenmerk_default, alg_kenmerk_default = '' WHERE alg_kenmerk_default LIKE '##SHOW##%';
+UPDATE bes_kenmerk SET bes_kenmerk_show_expr = bes_kenmerk_default, bes_kenmerk_default = '' WHERE bes_kenmerk_default LIKE '##SHOW##%';
+UPDATE bez_kenmerk SET bez_kenmerk_show_expr = bez_kenmerk_default, bez_kenmerk_default = '' WHERE bez_kenmerk_default LIKE '##SHOW##%';
+UPDATE cnt_kenmerk SET cnt_kenmerk_show_expr = cnt_kenmerk_default, cnt_kenmerk_default = '' WHERE cnt_kenmerk_default LIKE '##SHOW##%';
+UPDATE faq_kenmerk SET faq_kenmerk_show_expr = faq_kenmerk_default, faq_kenmerk_default = '' WHERE faq_kenmerk_default LIKE '##SHOW##%';
+UPDATE fin_kenmerk SET fin_kenmerk_show_expr = fin_kenmerk_default, fin_kenmerk_default = '' WHERE fin_kenmerk_default LIKE '##SHOW##%';
+UPDATE ins_kenmerk SET ins_kenmerk_show_expr = ins_kenmerk_default, ins_kenmerk_default = '' WHERE ins_kenmerk_default LIKE '##SHOW##%';
+UPDATE mld_kenmerk SET mld_kenmerk_show_expr = mld_kenmerk_default, mld_kenmerk_default = '' WHERE mld_kenmerk_default LIKE '##SHOW##%';
+UPDATE prs_kenmerk SET prs_kenmerk_show_expr = prs_kenmerk_default, prs_kenmerk_default = '' WHERE prs_kenmerk_default LIKE '##SHOW##%';
+UPDATE res_kenmerk SET res_kenmerk_show_expr = res_kenmerk_default, res_kenmerk_default = '' WHERE res_kenmerk_default LIKE '##SHOW##%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// HPJI#57253
+UPDATE prs_bedrijfadres SET prs_bedrijfadres_flexfiles = 0 WHERE prs_bedrijfadres_type = 'B';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#58075
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_charset VARCHAR(32);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58083
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/alg_srtruimte.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_alg_ruimtefuncties';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#57833
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_uren
+      NUMBER(1)
+      DEFAULT 1
+      NOT NULL
+      CONSTRAINT ins_c_mld_typeopdr_uren CHECK(mld_typeopdr_uren IN (0, 1, 2, 3, 4, 5));
+
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_materiaal
+      NUMBER(1)
+      DEFAULT 1
+      NOT NULL
+      CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2));
+
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_totaal
+      NUMBER(1)
+      DEFAULT 1
+      NOT NULL
+      CONSTRAINT ins_c_mld_typeopdr_totaal CHECK(mld_typeopdr_totaal IN (0, 1));
+
+ALTER TABLE mld_typeopdr
+  ADD mld_typeopdr_factuur
+      NUMBER(1)
+      DEFAULT 3
+      NOT NULL
+      CONSTRAINT ins_c_mld_typeopdr_factuur CHECK(mld_typeopdr_factuur IN (0, 1, 2, 3, 4));
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 1,
+       mld_typeopdr_materiaal = 1,
+       mld_typeopdr_totaal = 1,
+       mld_typeopdr_factuur = 3
+ WHERE mld_typeopdr_matchtype = 0;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 1,
+       mld_typeopdr_materiaal = 1,
+       mld_typeopdr_totaal = 1,
+       mld_typeopdr_factuur = 1
+ WHERE mld_typeopdr_matchtype = 1;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 1,
+       mld_typeopdr_materiaal = 1,
+       mld_typeopdr_totaal = 1,
+       mld_typeopdr_factuur = 3
+ WHERE mld_typeopdr_matchtype = 2;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 5,
+       mld_typeopdr_materiaal = 0,
+       mld_typeopdr_totaal = 0,
+       mld_typeopdr_factuur = 0
+ WHERE mld_typeopdr_matchtype = 3;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 1,
+       mld_typeopdr_materiaal = 0,
+       mld_typeopdr_totaal = 0,
+       mld_typeopdr_factuur = 0
+ WHERE mld_typeopdr_matchtype = 4;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 0,
+       mld_typeopdr_materiaal = 2,
+       mld_typeopdr_totaal = 0,
+       mld_typeopdr_factuur = 3
+ WHERE mld_typeopdr_matchtype = 5;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 3,
+       mld_typeopdr_materiaal = 1,
+       mld_typeopdr_totaal = 1,
+       mld_typeopdr_factuur = 0
+ WHERE mld_typeopdr_matchtype = 6;
+
+UPDATE mld_typeopdr
+   SET mld_typeopdr_uren = 4,
+       mld_typeopdr_materiaal = 1,
+       mld_typeopdr_totaal = 1,
+       mld_typeopdr_factuur = 0
+ WHERE mld_typeopdr_matchtype = 7;
+
+/////////////////////////////////////////////////////////////////////////////////////////// SVRZ#56758
+BEGIN
+  adm.tryalter('TABLE mld_stdmelding DROP CONSTRAINT mld_c_alg_onrgoed_objniveau');
+  adm.tryalter('TABLE mld_stdmelding DROP CONSTRAINT mld_c_alg_onrgoed_obj_niveau');
+END;
+/
+
+ALTER TABLE mld_stdmelding
+ ADD CONSTRAINT mld_c_alg_onrgoed_obj_niveau CHECK (alg_onrgoed_obj_niveau IN ('A','L','G','V','R'));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#55795
+ALTER TABLE fac_locale_xsl MODIFY fac_locale_xsl_tekst VARCHAR2(4000);
+ALTER TABLE fac_locale_xsl MODIFY fac_locale_xsl_cust VARCHAR2(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58238
+ALTER TABLE ins_srtdiscipline
+ DROP CONSTRAINT ins_c_ins_srtdiscipline_kk;
+
+ALTER TABLE ins_srtdiscipline
+  ADD CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2,4,5,6,8,9,10));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57835
+CREATE TABLE fac_bijlagen
+(
+    fac_bijlagen_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_bijlagen_key PRIMARY KEY
+,   fac_bijlagen_module
+        VARCHAR2(3) NOT NULL
+,    fac_bijlagen_refkey          NUMBER(10) NOT NULL
+,    fac_bijlagen_kenmerk_key     NUMBER(10) NOT NULL
+,   fac_bijlagen_disk_directory
+        VARCHAR2(200) NOT NULL
+,   fac_bijlagen_disk_filename
+        VARCHAR2(200)
+,   fac_bijlagen_filename
+        VARCHAR2(200) NOT NULL
+,   fac_bijlagen_description
+        VARCHAR2(500)
+,   fac_bijlagen_digest
+        VARCHAR2(64)
+,   fac_bijlagen_content_type
+        VARCHAR2(50)
+,   fac_bijlagen_file_size
+        NUMBER(12) NOT NULL
+,   fac_bijlagen_root_key
+        NUMBER(10) NOT NULL
+,   fac_bijlagen_aanmaak
+        DATE DEFAULT SYSDATE
+,   fac_bijlagen_verwijder
+        DATE
+,   CONSTRAINT fac_r_bijlagen_root_key
+       FOREIGN KEY (fac_bijlagen_root_key) REFERENCES fac_bijlagen(fac_bijlagen_key)
+);
+
+CREATE SEQUENCE fac_s_fac_bijlagen_key MINVALUE 1;
+
+CREATE INDEX fac_i_fac_bijlagen_root_key ON fac_bijlagen(fac_bijlagen_root_key);
+CREATE INDEX fac_i_fac_bijlagen_refkey1 ON fac_bijlagen(fac_bijlagen_refkey);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54611
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'Gebruik statistieken 90 dagen','FAC_V_USAGE_STATISTICS','Basisrapport voor gebruik statistieken', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_FACFAC'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FAC_V_USAGE_STATISTICS');
+
+CREATE OR REPLACE VIEW fac_v_usage_statistics_all AS SELECT * FROM DUAL;
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'Gebruik statistieken historisch','FAC_V_USAGE_STATISTICS_ALL','Historisch gebruik statistieken', fac_functie_key
+   FROM fac_functie WHERE fac_functie_code='WEB_FACFAC'
+    AND NOT EXISTS (SELECT '' FROM fac_usrrap WHERE UPPER(fac_usrrap_view_name)='FAC_V_USAGE_STATISTICS_ALL');
+
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name,fac_usrrap_info, fac_functie_key)
+ SELECT 'Licentie bepaling','FAC_V_LCRAP_FE_VS_KEY_DATA','Achtergrond van de licentie bepaling', 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)='FAC_V_LCRAP_FE_VS_KEY_DATA');
+
+DEF_MENUITEM(2, 'lcl_menu_about', '', 'FAC', 'appl/fac/about.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_about', 'lcl_menu_fac_eigen_tabellen', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57661
+ALTER TABLE mld_workflowstep
+    ADD mld_workflowstep_attachments NUMBER(3)
+     DEFAULT 1 NOT NULL;
+UPDATE mld_workflowstep
+   SET mld_workflowstep_attachments = 2
+ WHERE (SELECT fac_setting_pvalue FROM fac_setting WHERE fac_setting_name = 'fac_reserved_number1') = 1;
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'fac_reserved_number1';
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLCC#58290
+ALTER TABLE cnt_disc_params
+   ADD cnt_disc_params_fin NUMBER(1)
+    DEFAULT 1 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// VOLK#58421
+ALTER TABLE bez_bezoekers ADD  bez_bezoekers_telefoon VARCHAR2(20);
+ALTER TABLE bez_bezoekers ADD  bez_bezoekers_email VARCHAR2(200);
+ALTER TABLE bez_bezoekers ADD  bez_bezoekers_kenteken VARCHAR2(10);
+ALTER TABLE alg_gebouw ADD alg_gebouw_toon_telefoon NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_gebouw_toon_telf CHECK(alg_gebouw_toon_telefoon IN (0,1,2,3));   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+ALTER TABLE alg_gebouw ADD alg_gebouw_toon_email NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_gebouw_toon_mail CHECK(alg_gebouw_toon_email IN (0,1,2,3));      /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+ALTER TABLE alg_gebouw ADD alg_gebouw_toon_kenteken NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_gebouw_toon_kent CHECK(alg_gebouw_toon_kenteken IN (0,1,2,3));   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+ALTER TABLE alg_terreinsector ADD alg_terreinsector_toon_telef NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_terreinsector_telf CHECK(alg_terreinsector_toon_telef IN (0,1,2,3));   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+ALTER TABLE alg_terreinsector ADD alg_terreinsector_toon_email NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_terreinsector_mail CHECK(alg_terreinsector_toon_email IN (0,1,2,3));   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+ALTER TABLE alg_terreinsector ADD alg_terreinsector_toon_kentk NUMBER(3) DEFAULT(0) NOT NULL
+      CONSTRAINT alg_c_alg_terreinsector_kent CHECK(alg_terreinsector_toon_kentk IN (0,1,2,3));   /* 0=Onzichtbaar; 1=Niet verplicht; 2=Verplicht bij parkeerplaats. 3=Altijd verplicht */
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAXX#58183
+ALTER TABLE fac_faq ADD fac_faq_wijzigdatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58547
+ALTER TABLE prs_perslid
+     ADD prs_perslid_opmerking VARCHAR2 (320);
+UPDATE prs_perslid
+  SET prs_perslid_opmerking = 'System account for Facilitor maintenance.'||CHR(13)||'For use by Facilitor support'
+WHERE prs_perslid_oslogin = '_FACILITOR';
+UPDATE prs_perslid
+  SET prs_perslid_opmerking =  'System account for incoming email.'||CHR(13)||'For Facilitor internal use'
+WHERE prs_perslid_oslogin = '_HMAIL';
+UPDATE prs_perslid
+  SET prs_perslid_opmerking =  'System account for outgoing email.'||CHR(13)||'For Facilitor internal use'
+WHERE prs_perslid_oslogin = '_PUTORDERS';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57059
+ALTER TABLE prs_perslid ADD  prs_perslid_lcid NUMBER(4);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#58354
+ALTER TABLE fac_imp_ins MODIFY prs_perslid_matchcode   VARCHAR2(4000);
+ALTER TABLE fac_imp_ins MODIFY prs_perslid_matchwaarde VARCHAR2(4000);
+
+DECLARE
+    i NUMBER;
+    s VARCHAR2(100);
+BEGIN
+    FOR i IN 1 .. 20
+    LOOP
+        s := 'ALTER TABLE fac_imp_ins MODIFY ins_kenmerkwaarde' || i || ' VARCHAR(4000)';
+        EXECUTE IMMEDIATE (s);
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58249
+CREATE TABLE res_ruimte_sync
+(
+    res_ruimte_key       NUMBER(10),
+    res_ruimte_syncstate CLOB,
+    res_ruimte_syncdate  DATE
+);
+
+INSERT INTO res_ruimte_sync
+( SELECT res_ruimte_key
+       , res_ruimte_syncstate
+       , res_ruimte_syncdate
+    FROM res_ruimte
+   WHERE res_ruimte_syncstate IS NOT NULL
+      OR res_ruimte_syncdate IS NOT NULL
+);
+
+ALTER TABLE res_ruimte DROP COLUMN res_ruimte_syncstate;
+ALTER TABLE res_ruimte DROP COLUMN res_ruimte_syncdate;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58588
+DECLARE
+    dbdate   DATE;
+    dbupg    VARCHAR (100);
+    dbver    VARCHAR (100);
+    admusr   VARCHAR (100);
+BEGIN
+    -- Datum van de create
+    SELECT adm_tracking_date, adm_tracking_osuser
+      INTO dbdate, admusr
+      FROM adm_tracking
+     WHERE UPPER (adm_tracking_name) = 'FCLT.SRC';
+
+    -- De oudste upgrade
+    SELECT adm_tracking_name
+      INTO dbupg
+      FROM adm_tracking t_ext
+     WHERE     adm_tracking_date = (SELECT MIN (adm_tracking_date)
+                                     FROM adm_tracking t_in
+                                    WHERE UPPER (adm_tracking_name) LIKE 'DB%TO%.SRC')
+           AND UPPER (adm_tracking_name) LIKE 'DB%TO%.SRC';
+
+    dbver := SUBSTR(dbupg, 1, INSTR(dbupg, 'to') - 1);
+    INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision, adm_tracking_date, adm_tracking_osuser)
+         VALUES ('Database created', dbver, dbdate, admusr);
+    DBMS_OUTPUT.PUT_LINE ('Database creation version ' || dbver ||
+                          ' estimated at ' || to_char(dbdate, 'DD-MM-YYYY HH24:MI') ||
+                          ' by ' || admusr);
+EXCEPTION
+    WHEN NO_DATA_FOUND
+    THEN
+        DBMS_OUTPUT.PUT_LINE ('Old database, could not reliably determine creation date and version');
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#38906
+DEF_FAC_FUNCTIE3('WEB_BESFIN', 'BES',  5, 1,    0);  //    0
+DEF_FAC_FUNCTIE3('WEB_CNTFIN', 'CNT',  5, 1,    0);  //    0
+DEF_FAC_FUNCTIE3('WEB_MLDFIN', 'MLD',  5, 1,    0);  //    0
+
+/////////////////////////////////////////////////////////////////////////////////////////// INLO#58631
+ALTER TABLE cnt_disc_params ADD cnt_disc_params_leverancier
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL;
+ALTER TABLE cnt_disc_params ADD cnt_disc_params_uitvoerende
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL;
+ALTER TABLE cnt_disc_params ADD cnt_disc_params_huurder
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// RABO#58667
+UPDATE ins_controlemode
+   SET ins_controlemode_success = 0
+ WHERE ins_controlemode_success IS NULL;
+
+ALTER TABLE ins_controlemode
+      MODIFY ins_controlemode_success NUMBER(1) DEFAULT 1 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58783
+ALTER TABLE fac_version
+    ADD fac_version_putorders_date DATE;
+ALTER TABLE fac_version
+    ADD fac_version_scheduler_date DATE;
+ALTER TABLE fac_version
+    ADD fac_version_notify_date DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// NYBU#57569
+ALTER TABLE res_kenmerk
+  ADD res_discipline_key
+      NUMBER(10)
+  CONSTRAINT  res_c_res_kenmerk_discipline REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE res_kenmerk
+ DROP CONSTRAINT res_c_res_kenmerk_niveau2;
+
+ALTER TABLE res_kenmerk
+  ADD CONSTRAINT res_c_res_kenmerk_niveau2 CHECK(res_kenmerk_niveau IN ('A', 'D', 'C')); /* Activiteit/Discipline/Catatering */
+
+UPDATE res_kenmerk
+   SET res_kenmerk_niveau = 'C'
+ WHERE res_kenmerk_niveau = 'D';
+
+ALTER TABLE res_kenmerk
+ DROP CONSTRAINT res_u_res_kenmerk DROP INDEX;
+
+ALTER TABLE res_kenmerk
+  ADD CONSTRAINT res_u_res_kenmerk UNIQUE(res_activiteit_key, res_discipline_key, res_artikel_key, res_srtkenmerk_key, res_kenmerk_groep, res_kenmerk_verwijder);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58793
+UPDATE cnt_typecontract SET cnt_typecontract_omschrijving='lcl_cnt_typecontract1' WHERE cnt_typecontract_key=1;
+UPDATE cnt_typecontract SET cnt_typecontract_omschrijving='lcl_cnt_typecontract3' WHERE cnt_typecontract_key=3;
+UPDATE cnt_typecontract SET cnt_typecontract_omschrijving='lcl_cnt_typecontract4' WHERE cnt_typecontract_key=4;
+UPDATE cnt_typecontract SET cnt_typecontract_omschrijving='lcl_cnt_typecontract5' WHERE cnt_typecontract_key=5;
+UPDATE cnt_typecontract SET cnt_typecontract_omschrijving='lcl_cnt_typecontract6' WHERE cnt_typecontract_key=6;
+
+/////////////////////////////////////////////////////////////////////////////////////////// STAM#58066
+ALTER TABLE mld_stdmelding
+ DROP CONSTRAINT mld_c_alg_org_objniveau;
+
+ALTER TABLE mld_stdmelding
+  ADD CONSTRAINT mld_c_alg_org_objniveau CHECK (alg_org_obj_niveau IN (-1,0,1,2,3,4,5,8,9));
+
+UPDATE mld_stdmelding
+   SET mld_stdmelding_prsafdobj = 1;
+
+--/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53579
+DEF_MENUENTRY(2, 99160, 'lcl_menu_fac_refresh_accept'  , '', 'FAC', 'appl/fac/fac_refresh_accept.asp', 0, 0, 'WEB_FACFAC');
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn
+
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB37to38.src

@@ -0,0 +1,783 @@
+/* DB37to38.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58677
+ALTER TABLE fac_activiteit
+  ADD (fac_activiteit_eenheid  -- 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks, null=eenmalig. Niet beschikbaar: uurlijks(0)
+         NUMBER(1)
+         DEFAULT(1)
+         CONSTRAINT fac_c_fac_activiteit_eenheid CHECK (fac_activiteit_eenheid IN (1,2,3,4) OR fac_activiteit_eenheid IS NULL),
+       fac_activiteit_bits  -- Details eenheid (mag best null zijn).
+         NUMBER(4),
+       fac_activiteit_periode
+         NUMBER(6)
+      );
+
+UPDATE fac_activiteit
+   SET fac_activiteit_eenheid = CASE
+                                WHEN fac_activiteit_aantal = 1
+                                THEN NULL
+                                ELSE 1                              -- Dagelijks (is al default).
+                                END,
+       fac_activiteit_bits = 0,
+       fac_activiteit_periode = CASE
+                                WHEN fac_activiteit_aantal = 1 OR fac_activiteit_interval IS NULL
+                                THEN NULL
+                                WHEN fac_activiteit_interval/24 <= 1
+                                THEN 1
+                                ELSE ROUND(fac_activiteit_interval/24)
+                                END;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58944
+ALTER TABLE mld_opdr
+  ADD (mld_opdr_teverzenden_datum
+        DATE
+        DEFAULT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// SUTF#59250
+DELETE FROM fac_message WHERE fac_message_code = 'RES_M960';
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#58355
+ALTER TABLE fac_menu ADD fac_menu_message
+      VARCHAR2(1024);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57152
+ALTER TABLE fac_menu ADD fac_menu_color VARCHAR2 (60 CHAR);
+ALTER TABLE mld_stdmelding ADD mld_stdmelding_color VARCHAR2 (60 CHAR);
+ALTER TABLE ins_srtdiscipline ADD ins_srtdiscipline_color VARCHAR2 (60 CHAR);
+ALTER TABLE ins_tab_discipline ADD ins_discipline_color VARCHAR2 (60 CHAR);
+
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59418
+// De autorisatie "WEB_FINUSE" hernoemen naar "WEB_EXTFIN".
+// Dit is in plaats van: DEF_FAC_FUNCTIE3('WEB_EXTFIN', 'FIN', 11, 0,    1);  //    1
+UPDATE fac_functie
+   SET fac_functie_min_level = 11,
+       fac_functie_code = 'WEB_EXTFIN',
+       fac_functie_omschrijving = 'lcl_WEB_EXTFIN',
+       fac_functie_info = 'lcl_WEB_EXTFIN_info'
+ WHERE fac_functie_code = 'WEB_FINUSE';
+DEF_FAC_FUNCTIE3('WEB_EXTORD', 'MLD', 11, 1,    1);  //    1
+DEF_FAC_FUNCTIE3('WEB_EXTREL', 'PRS', 11, 0,    1);  //    1
+
+DEF_MENUITEM(1, 'lcl_menu_mld_bo_afm_opdr_ext'  , '', 'MLD', 'appl/mld/opdr_search.asp?urole=b2', 0, 0, 'WEB_EXTORD', 'R', '1', '');
+MENU_INS_AFTER('lcl_menu_mld_bo_afm_opdr_ext', 'lcl_menu_mld_bo_afmeldenopdra', 2);
+DEF_MENUITEM(3, 'lcl_mobile_opdrachten_ext'     , '', 'MLD', 'appl/pda/orders_list.asp', 0, 0, 'WEB_EXTORD', 'R', '1',            'fa-briefcase');
+MENU_INS_AFTER('lcl_mobile_opdrachten_ext', 'lcl_mobile_opdrachten1', 2);
+
+// WEB_FINUSE is vervangen door WEBEXTFIN voor menuitem DEF_MENUITEM(1, 'lcl_menu_fin_fe'               , '', 'FIN', 'appl/fin/fin_factuur.asp?urole=fe', 0, 0, 'WEB_EXTFIN', 'W', '1', '');  /* fe = leverancier */
+UPDATE fac_menuitems
+   SET fac_functie_key = (SELECT fac_functie_key
+                            FROM fac_functie
+                           WHERE UPPER (fac_functie_code) = 'WEB_EXTFIN')
+ WHERE fac_menuitems_label = 'lcl_menu_fin_fe';
+// WEB_FINUSE is vervangen door WEBEXTFIN voor menuitem DEF_MENUITEM(1, 'lcl_menu_fin_fe_overz'         , '', 'FIN', 'appl/fin/fin_search.asp', 0, 0, 'WEB_EXTFIN', 'R', '1', '');            /* fe = leverancier */
+UPDATE fac_menuitems
+   SET fac_functie_key = (SELECT fac_functie_key
+                            FROM fac_functie
+                           WHERE UPPER (fac_functie_code) = 'WEB_EXTFIN')
+ WHERE fac_menuitems_label = 'lcl_menu_fin_fe_overz';
+
+
+DECLARE
+    lnew_groep                NUMBER (1);
+    lfirst_prs                NUMBER (1);
+    lfac_groep_key            fac_groep.fac_groep_key%TYPE;
+    lnew_fac_groep_key        fac_groep.fac_groep_key%TYPE;
+    lins_discipline_key       fac_groeprechten.ins_discipline_key%TYPE;
+    lprs_perslid_key          prs_perslid.prs_perslid_key%TYPE;
+    -- Interne personen die geen contactpersoon van een extern bedrijf zijn maar die wel 'WEB_ORDBO2' rechten hebben (Interne uitvoerders).
+    CURSOR c_pers_intern_rechten IS
+        -- Welke personen zijn geen contactpersoon van een extern bedrijf maar hebben wel 'WEB_ORDBO2' rechten (Interne uitvoerders).
+        -- Deze moeten naar de nieuwe fac_groep worden gekopieerd.
+        -- Welke fac_groeprechten zijn het die geen contactpersoon zijn van een extern bedrijf maar wel 'WEB_ORDBO2' rechten hebben.
+        -- Voor elke groep kunnen verschillende disciplines zijn ingesteld.
+        SELECT DISTINCT excl.fac_groeprechten_key,
+               excl.ins_discipline_key,
+               excl.fac_groep_key,
+               excl.fac_functie_key,
+               excl.fac_gebruiker_alg_level_read,
+               excl.fac_gebruiker_alg_level_write,
+               excl.fac_gebruiker_prs_level_read,
+               excl.fac_gebruiker_prs_level_write,
+               excl.prs_perslid_key,
+               excl.fac_groep_omschrijving
+          FROM (SELECT DISTINCT fgg.fac_groep_key,
+                                fg.fac_groep_omschrijving,
+                                f.fac_functie_key,
+                                f.fac_functie_code,
+                                fgr.fac_groeprechten_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,
+                                fgg.prs_perslid_key
+                  FROM fac_gebruikersgroep fgg,
+                       fac_groep fg,
+                       fac_groeprechten fgr,
+                       fac_functie f
+                 WHERE fg.fac_groep_key = fgg.fac_groep_key
+                   AND fgr.fac_groep_key = fg.fac_groep_key
+                   AND fgr.fac_functie_key = f.fac_functie_key
+                   AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                   AND EXISTS
+                           (SELECT 1
+                              FROM prs_contactpersoon cp
+                             WHERE cp.prs_perslid_key = fgg.prs_perslid_key)) inc,
+               (SELECT DISTINCT fgg.fac_groep_key,
+                                fg.fac_groep_omschrijving,
+                                f.fac_functie_key,
+                                f.fac_functie_code,
+                                fgr.fac_groeprechten_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,
+                                fgg.prs_perslid_key
+                  FROM fac_gebruikersgroep fgg,
+                       fac_groep fg,
+                       fac_groeprechten fgr,
+                       fac_functie f
+                 WHERE fg.fac_groep_key = fgg.fac_groep_key
+                   AND fgr.fac_groep_key = fg.fac_groep_key
+                   AND fgr.fac_functie_key = f.fac_functie_key
+                   AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                   AND NOT EXISTS
+                           (SELECT 1
+                              FROM prs_contactpersoon cp
+                             WHERE fgg.prs_perslid_key = cp.prs_perslid_key)) excl
+         WHERE inc.fac_groep_key = excl.fac_groep_key
+        ORDER BY excl.fac_groep_key,
+                 excl.prs_perslid_key,
+                 excl.ins_discipline_key,
+                 excl.fac_groeprechten_key;
+BEGIN
+    lfac_groep_key := 0;
+    lprs_perslid_key := 0;
+    lins_discipline_key := 0;
+    lfirst_prs := 0;
+    -- Eerst interne uitvoerders die GEEN contactpersoon zijn van een extern bedrijf in een nieuwe groep gooien.
+    -- Anders hebben ze straks te weinig rechten.
+    FOR f_pers_intern_rechten IN c_pers_intern_rechten
+    LOOP
+        lnew_groep := 0;
+        IF lfac_groep_key != f_pers_intern_rechten.fac_groep_key
+        THEN
+            -- Nieuwe groep aanmaken (omschrijving + BO2)
+            INSERT INTO fac_groep (fac_groep_omschrijving,
+                                   fac_groep_opmerking)
+                           VALUES (TRIM(SUBSTR(f_pers_intern_rechten.fac_groep_omschrijving, 1, 23)) || ' ORDBO2',
+                                   'Interne personen die geen contactpersoon van een extern bedrijf zijn maar die wel WEB_ORDBO2 rechten hebben (Interne uitvoerders).')
+            RETURNING fac_groep_key INTO lnew_fac_groep_key;
+            lfac_groep_key := f_pers_intern_rechten.fac_groep_key;
+            lnew_groep := 1;
+        END IF;
+
+        IF lnew_groep = 1 OR lprs_perslid_key != f_pers_intern_rechten.prs_perslid_key
+        THEN
+            -- Personen aan de gebruikersgroep toevoegen.
+            INSERT INTO fac_gebruikersgroep (fac_groep_key,
+                                             prs_perslid_key)
+                                     VALUES (lnew_fac_groep_key,
+                                             f_pers_intern_rechten.prs_perslid_key);
+            lprs_perslid_key := f_pers_intern_rechten.prs_perslid_key;
+            IF lnew_groep = 1
+            THEN
+                lfirst_prs := 1;
+            ELSE
+                lfirst_prs := 0;
+            END IF;
+        END IF;
+
+        -- Voor de tweede prs_perslid niet opnieuw alle disciplines toevoegen anders krijg je ze dubbel erin.
+        IF lfirst_prs = 1 AND (lnew_groep = 1 OR lins_discipline_key != f_pers_intern_rechten.ins_discipline_key)
+        THEN
+            -- Groepsrechten toevoegen.
+            INSERT INTO fac_groeprechten (fac_groep_key,
+                                          fac_functie_key,
+                                          ins_discipline_key,
+                                          fac_gebruiker_alg_level_read,
+                                          fac_gebruiker_alg_level_write,
+                                          fac_gebruiker_prs_level_read,
+                                          fac_gebruiker_prs_level_write)
+                                  VALUES (lnew_fac_groep_key,
+                                          f_pers_intern_rechten.fac_functie_key,
+                                          f_pers_intern_rechten.ins_discipline_key,
+                                          f_pers_intern_rechten.fac_gebruiker_alg_level_read,
+                                          f_pers_intern_rechten.fac_gebruiker_alg_level_write,
+                                          f_pers_intern_rechten.fac_gebruiker_prs_level_read,
+                                          f_pers_intern_rechten.fac_gebruiker_prs_level_write);
+            lins_discipline_key := f_pers_intern_rechten.ins_discipline_key;
+        END IF;
+
+    END LOOP;
+
+    -- Omgooien groepen van 'WEB_ORDBO2' naar 'WEB_EXTORD'
+    -- De EXIST (contactpersoon) zorgt ervoor dat de net aangemaakte groep met de rechten NIET van 'WEB_ORDBO2' naar 'WEB_EXTORD' worden omgegooid.
+    -- In de nieuwe groep zitten namelijk alleen interne uitvoerders die GEEN contactpersoon zijn van een extern bedrijf.
+    UPDATE fac_groeprechten
+       SET fac_functie_key =
+               (SELECT fac_functie_key
+                  FROM fac_functie
+                 WHERE fac_functie_code LIKE 'WEB_EXTORD')
+     WHERE fac_functie_key = (SELECT fac_functie_key
+                                FROM fac_functie
+                               WHERE fac_functie_code LIKE 'WEB_ORDBO2')
+       AND fac_groep_key IN (SELECT DISTINCT fgg.fac_groep_key
+                               FROM fac_gebruikersgroep fgg,
+                                    fac_groep fg,
+                                    fac_groeprechten fgr,
+                                    fac_functie f
+                              WHERE fg.fac_groep_key = fgg.fac_groep_key
+                                AND fgr.fac_groep_key = fg.fac_groep_key
+                                AND fgr.fac_functie_key = f.fac_functie_key
+                                AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                                AND EXISTS
+                                        (SELECT 1
+                                           FROM prs_contactpersoon cp
+                                          WHERE cp.prs_perslid_key = fgg.prs_perslid_key));
+END;
+/
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59433
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+UPDATE prs_perslid
+   SET prs_perslid_flags = prs_perslid_flags + 32
+ WHERE prs_perslid_oslogin IN ('_FACILITOR','_HMAIL','_PUTORDERS');
+
+DELETE FROM fac_message
+  WHERE fac_message_code BETWEEN 'PRS_M183' AND 'PRS_M199';
+
+INSERT INTO fac_message VALUES ('PRS_M183', 'Login van deze gebruiker kan niet gewijzigd worden');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57667
+ALTER TABLE bes_kenmerk ADD bes_kenmerk_omschrijving VARCHAR2(50);
+ALTER TABLE cnt_kenmerk ADD cnt_kenmerk_omschrijving VARCHAR2(50);
+ALTER TABLE ins_kenmerk ADD ins_kenmerk_omschrijving VARCHAR2(50);
+ALTER TABLE mld_kenmerk ADD mld_kenmerk_omschrijving VARCHAR2(50);
+ALTER TABLE res_kenmerk ADD res_kenmerk_omschrijving VARCHAR2(50);
+
+ALTER TABLE bes_kenmerk DROP CONSTRAINT bes_u_bes_kenmerk DROP INDEX;
+ALTER TABLE bes_kenmerk ADD CONSTRAINT bes_u_bes_kenmerk UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_omschrijving, bes_kenmerk_groep, bes_kenmerk_verwijder);
+
+ALTER TABLE cnt_kenmerk DROP CONSTRAINT cnt_u_cnt_kenmerk DROP INDEX;
+ALTER TABLE cnt_kenmerk ADD CONSTRAINT cnt_u_cnt_kenmerk UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_omschrijving, cnt_kenmerk_groep, cnt_kenmerk_verwijder);
+
+ALTER TABLE ins_kenmerk DROP CONSTRAINT ins_u_ins_kenmerk DROP INDEX;
+ALTER TABLE ins_kenmerk ADD CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_omschrijving, ins_kenmerk_groep, ins_kenmerk_verwijder);
+
+ALTER TABLE mld_kenmerk DROP CONSTRAINT mld_u_mld_kenmerk DROP INDEX;
+ALTER TABLE mld_kenmerk ADD CONSTRAINT mld_u_mld_kenmerk UNIQUE (mld_srtkenmerk_key, mld_stdmelding_key, mld_typeopdr_key, mld_kenmerk_niveau, mld_kenmerk_omschrijving, mld_kenmerk_groep, mld_kenmerk_verwijder);
+
+ALTER TABLE res_kenmerk DROP CONSTRAINT res_u_res_kenmerk DROP INDEX;
+ALTER TABLE res_kenmerk ADD CONSTRAINT res_u_res_kenmerk UNIQUE(res_activiteit_key, res_discipline_key, res_artikel_key, res_srtkenmerk_key, res_kenmerk_omschrijving, res_kenmerk_groep, res_kenmerk_verwijder);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59896
+ALTER TABLE alg_locatie ADD alg_locatie_image VARCHAR2(255);
+ALTER TABLE alg_gebouw ADD alg_gebouw_image VARCHAR2(255);
+ALTER TABLE alg_terreinsector ADD alg_terreinsector_image VARCHAR2(255);
+ALTER TABLE ins_deel ADD ins_deel_image VARCHAR2(255);
+ALTER TABLE ins_srtdiscipline ADD ins_srtdiscipline_image VARCHAR2(255);
+ALTER TABLE ins_tab_discipline ADD ins_discipline_image VARCHAR2(255);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59840
+ALTER TABLE mld_opdr MODIFY mld_opdr_opmerking_fiat VARCHAR2(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#61237
+DELETE FROM fac_usrrap
+ WHERE LOWER(fac_usrrap_view_name) = 'fac_v_lcrap_key_stats';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#36763
+CREATE OR REPLACE PROCEDURE add_import_translation(imp_code VARCHAR2, oms_en VARCHAR2)
+AS
+    imp_key NUMBER(10);
+BEGIN
+    dbms_output.put_line('Translate: ' || imp_code);
+    BEGIN
+        SELECT fac_import_app_key
+          INTO imp_key
+          FROM fac_import_app
+         WHERE UPPER(fac_import_app_code) = UPPER(imp_code)
+           AND ins_discipline_key IS NULL
+           AND fac_import_app_prefix IS NULL;
+
+        INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst)
+        VALUES ('EN', imp_key, 'FAC_IMPORT_APP_OMS', oms_en);
+    EXCEPTION
+        WHEN NO_DATA_FOUND THEN dbms_output.put_line('-->Not found');
+        WHEN OTHERS THEN dbms_output.put_line(sqlerrm);
+        -- Sla maar over bij too_many_rows of no_data_found.
+    END;
+END;
+/
+BEGIN
+    add_import_translation('ONRGOED1',            'FIP: 1-Add districts up to buildings');
+    add_import_translation('ONRGOED1_DEL',        'FIP: 1-Replace from districts');
+    add_import_translation('ONRGOED2',            'FIP: 2-Add floors and rooms');
+    add_import_translation('ONRGOED2_DEL',        'FIP: 2-Replace from floors');
+    add_import_translation('ORGANISATIE',         'FIP: 3-Add organization structure');
+    add_import_translation('ORGANISATIE_DEL',     'FIP: 3-Replace from organization structure');
+    add_import_translation('PERSLID',             'FIP: 4-Add persons');
+    add_import_translation('PERSLID_DEL',         'FIP: 4-Replace from persons');
+    add_import_translation('MLD',                 'FIP: 5-Add service desk');
+    add_import_translation('MLD_DEL',             'FIP: 5-Replace service desk');
+    add_import_translation('INS',                 'FIP: 6-Add objects');
+    add_import_translation('FAC_GROEP',           'FIP: 6-Add user groups');
+    add_import_translation('FAC_GROEP_DEL',       'FIP: 7b-Replace user groups');
+    add_import_translation('FAC_VAKGROEP_DEL',    'FIP: 7c-Replace diciplines of all user groups');
+    add_import_translation('FAC_GEBRUIKERSGROEP', 'FIP: 8-Assign user groups');
+    add_import_translation('INSPECTIE',           'FIP: 9-Add inspection definitions');
+    add_import_translation('RES_ARTIKEL_SYNC',    'Reservation: Download consumables');
+    add_import_translation('EXT_BEDRIJF',         'FIP: Add external companies');
+    add_import_translation('FACTUUR',             'Standard import of invoice file from supplier(s)');
+    add_import_translation('CATALOGUS',           'Replacement(!) purchase order catalogs (generic)');
+    add_import_translation('MENU',                'TRANSPORT: Menu structure');
+    add_import_translation('FLEX',                'TRANSPORT: Flex properties');
+    add_import_translation('USRDATA',             'FIP: Own tables');
+    add_import_translation('SLE',                 'FIP: Keys');
+    add_import_translation('FAQ',                 'FIP: Knowledge base');
+    add_import_translation('CNT',                 'FIP: Contracts');
+    add_import_translation('MLDAFMTXT',           'FIP: Standard texts');
+    add_import_translation('BEDRIJFADRES',        'FIP: Add company technical addresses');
+    add_import_translation('TRANSLATION',         'Import of FACILITOR translation file');
+    add_import_translation('KPN',                 'FIP: Create/Update cost centres');
+END;
+/
+DROP PROCEDURE add_import_translation;
+
+// In fac_ini.src staan tegenwoordig de viewnamen in lowercase. Doe dat hier ook
+// Pas echter op met XSL-styled rapportages: daar wordt soms in de XSL naar de viewnaam (in uppercase) verwezen
+// Die rapportages dus niet aanpassen
+UPDATE fac_usrrap
+   SET fac_usrrap_view_name = LOWER(fac_usrrap_view_name),
+       fac_usrrap_omschrijving = TRIM(fac_usrrap_omschrijving)
+ WHERE BITAND(fac_usrrap_functie, 1) = 0;
+UPDATE fac_usrrap
+    SET fac_usrrap_info = 'Exporteren van flexkenmerken voor RES (per activiteit)'
+  WHERE fac_usrrap_info = 'Exporteren van flexkenmerken voor RES (per activiteit';
+
+CREATE OR REPLACE PROCEDURE add_usrrap_translation(oms_nl VARCHAR2, oms_en VARCHAR2, info_en VARCHAR2)
+AS
+    rap_key   NUMBER(10);
+    viewname  fac_usrrap.fac_usrrap_view_name%TYPE;
+BEGIN
+    BEGIN
+        SELECT fac_usrrap_key
+             , fac_usrrap_view_name
+          INTO rap_key
+             , viewname
+          FROM fac_usrrap
+         WHERE TRIM(fac_usrrap_omschrijving) = oms_nl;
+
+        INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst)
+        VALUES ('EN', rap_key, 'FAC_USRRAP_OMSCHRIJVING', oms_en);
+        INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst)
+        VALUES ('EN', rap_key, 'FAC_USRRAP_INFO', info_en);
+    EXCEPTION
+        WHEN NO_DATA_FOUND    THEN dbms_output.put_line('Rapport ['||oms_nl||'] niet gevonden.');
+        WHEN DUP_VAL_ON_INDEX THEN dbms_output.put_line('Er bestaat al een engelse vertaling voor deze kolom in view ['||viewname||'].');
+        WHEN OTHERS           THEN dbms_output.put_line('View: ['||viewname||'] '||sqlerrm);
+    END;
+END;
+/
+
+BEGIN
+    add_usrrap_translation('TRANSPORT: Eigen tabellen',              'TRANSPORT: Own tables',                     'Export of your own table(s)');
+    add_usrrap_translation('TRANSPORT: Menustructuur',               'TRANSPORT: Menu structure',                 'Export the entire menu structure');
+    add_usrrap_translation('TRANSPORT: Flexkenmerken Reserveringen', 'TRANSPORT: Flex properties Reservations',   'Export of flex properties for RES (per activity)');
+    add_usrrap_translation('TRANSPORT: Flexkenmerken Bestellingen',  'TRANSPORT: Flex properties Purchase order', 'Export of flex properties for BES (per catalog/group/article)');
+    add_usrrap_translation('TRANSPORT: Flexkenmerken Meldingen',     'TRANSPORT: Flex properties Calls',          'Export of flex properties for MLD (per department (type)/report/order type)');
+    add_usrrap_translation('TRANSPORT: Flexkenmerken Contracten',    'TRANSPORT: Flex properties Contracts',      'Export of flex properties for CNT (per contract type)');
+    add_usrrap_translation('Gebruik statistieken 90 dagen',          'Use statistics for 90 days',                'Basic report for usage statistics');
+    add_usrrap_translation('Gebruik statistieken historisch',        'Use statistics historically',               'Historical usage statistics');
+    add_usrrap_translation('Licentie bepaling',                      'License provision',                         'Background to the license provision');
+    add_usrrap_translation('TRANSPORT: Flexkenmerken Objecten',      'TRANSPORT: Flex properties Objects',        'Export of flex properties for INS (per discipline/group/object type or task type)');
+    add_usrrap_translation('BEHEER: Audit fail',                     'ADMIN: Audit fail',                         'Report audit fail');
+    add_usrrap_translation('BEHEER: Personen in groepen',            'ADMIN: People in groups',                   'Who is in which groups. DO NOT USE WITHOUT FILTERS!');
+    add_usrrap_translation('BEHEER: Rechten van groepen',            'ADMIN: Rights of groups',                   'What rights does a group and the like have. DO NOT USE WITHOUT FILTERS!');
+    add_usrrap_translation('BEHEER: Autorisatiegroeprechten',        'ADMIN: Authorization group rights',         'Which groups have which rights?');
+    add_usrrap_translation('TRANSPORT: Gebruikersgroepen',           'TRANSPORT: User groups',                    'Export for import Inventory User groups');
+    add_usrrap_translation('KTO.1: Algemeen resultaten overzicht',   'CSS.1: General results overview',           'Display of CSS results with the help of various selection options');
+    add_usrrap_translation('KTO.2: KTO Response - algemeen',         'CSS.2: CSS Response - general',             'Response numbers, percentages and times per year/month');
+    add_usrrap_translation('KTO.3: KTO Response - regio/district',   'CSS.3: CSS Response - region/district',     'Response numbers, percentages and times per year/month and region/distict');
+    add_usrrap_translation('KTO.4: KTO Response - locatie',          'CSS.4: CSS Response location',              'Response numbers, percentages and times per year/month and location');
+    add_usrrap_translation('KTO.5: KTO Response - discipline',       'CSS.5: CSS Response - discipline',          'Response numbers, percentages and times per year/month and discipline');
+    add_usrrap_translation('INFOBORD: Actuele reserveringen',        'INFOBOARD: Actual reservations',            'Reservation overview for information screens');
+    add_usrrap_translation('Vertalingen',                            'Translations',                              'Basic report for translations export');
+    add_usrrap_translation('UDR: Bestellingen',                      'UDR: Purchase order',                       'Basic report for purchase order reports');
+    add_usrrap_translation('UDR: Bezoekers',                         'UDR: Visitors',                             'Basic report for visitor reports');
+    add_usrrap_translation('UDR: Contracten',                        'UDR: Contracts',                            'Basic report for contract reports');
+    add_usrrap_translation('UDR: Facturen',                          'UDR: Invoices',                             'Basic report for invoice reports');
+    add_usrrap_translation('UDR: Objecten',                          'UDR: Objects',                              'Basic report for object reports');
+    add_usrrap_translation('UDR: Meldingen',                         'UDR: Calls',                                'Basic report for call reports');
+    add_usrrap_translation('UDR: Opdrachten',                        'UDR: Orders',                               'Basic report for order reports');
+    add_usrrap_translation('UDR: Meldingen/opdrachten',              'UDR: Calls/Orders',                         'Basic report for call+order reports');
+    add_usrrap_translation('UDR: Meldingen plus',                    'UDR: Calls plus',                           'Basic report for call+property reports');
+    add_usrrap_translation('UDR: Opdrachten plus',                   'UDR: Order plus',                           'Basic report for order+property reports');
+    add_usrrap_translation('UDR: Opdrachten-materialen',             'UDR: Order materials',                      'Basic report for order+material reports');
+    add_usrrap_translation('UDR: Reserveringen',                     'UDR: Reservations',                         'Basic report for reservation reports');
+    add_usrrap_translation('UDR: Reserveringen-voorzieningen',       'UDR: Reservation facilities',               'Basic report for reservation reports incl. facilities');
+    add_usrrap_translation('UDR: Bedrijven',                         'UDR: Companies',                            'Basic report for company reports');
+    add_usrrap_translation('UDR: Kostenoverzicht',                   'UDR: Cost overview',                        'Basic report for cost reports');
+    add_usrrap_translation('UDR: Objectmeldingen',                   'UDR: Object calls',                         'Basic report for objects with call details');
+    add_usrrap_translation('UDR: Objecten plus',                     'UDR: Objects plus',                         'Basic report for object+property reports');
+    add_usrrap_translation('UDR: Object inspecties',                 'UDR: Object inspections',                   'Basic report for object inspection reports');
+    add_usrrap_translation('UDR: Object soort controles',            'UDR: Object type tasks',                    'Basic report for object type task reports');
+    add_usrrap_translation('UDR: Bezoekers bij reserveringen',       'UDR: Visitors with reservations',           'Basic report for visitors with reservation details');
+    add_usrrap_translation('UDR: Kennisbank',                        'UDR: Knowledge base',                       'Basic report for knowledge base reports');
+    add_usrrap_translation('UDR: Kennisbank plus',                   'UDR: Knowledge base plus',                  'Basic report for knowledge base+property reports');
+END;
+/
+DROP PROCEDURE add_usrrap_translation;
+
+/////////////////////////////////////////////////////////////////////////////////////////// NOUR#59219
+ALTER TABLE prs_kostenplaats DROP CONSTRAINT prs_r_prs_kostenplaatsgrp_key;
+
+ALTER TABLE prs_kostenplaats
+    MODIFY prs_kostenplaatsgrp_key CONSTRAINT prs_r_prs_kostenplaatsgrp_key
+    REFERENCES prs_kostenplaatsgrp (prs_kostenplaatsgrp_key) ON DELETE SET NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59970
+DECLARE
+    -- Alle bijlagen die meer dan 1 keer in de tabel voorkomen.
+    CURSOR c_dubbel IS
+        SELECT fac_bijlagen_module,
+               fac_bijlagen_refkey,
+               fac_bijlagen_disk_directory,
+               fac_bijlagen_filename,
+               MAX (fac_bijlagen_key) laatste
+          FROM fac_bijlagen
+         GROUP BY fac_bijlagen_module,
+                  fac_bijlagen_refkey,
+                  fac_bijlagen_disk_directory,
+                  fac_bijlagen_filename
+         HAVING COUNT (*) > 1;
+BEGIN
+    FOR f_dubbel IN c_dubbel
+    LOOP
+        -- Verwijder de dubbele bijlagen maar laat alleen de meest recente staan.
+        DELETE
+          FROM fac_bijlagen
+         WHERE fac_bijlagen_module = f_dubbel.fac_bijlagen_module
+           AND fac_bijlagen_refkey = f_dubbel.fac_bijlagen_refkey
+           AND fac_bijlagen_disk_directory = f_dubbel.fac_bijlagen_disk_directory
+           AND fac_bijlagen_filename = f_dubbel.fac_bijlagen_filename
+           AND fac_bijlagen_key < f_dubbel.laatste;
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#59635
+ALTER TABLE mld_afmeldtekst MODIFY mld_afmeldtekst_omschrijving VARCHAR2(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60190
+ALTER TABLE fac_notificatie_job ADD fac_notificatie_job_lastrun DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#60055
+DEF_FAC_SRTNOT('BEZUN2', 0, 'lcl_noti_BEZUN2', 'bez/bez_afspraak.asp?bez_key=', '0', 'bezoeker', 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#59178
+ALTER TABLE mld_stdmelding ADD mld_stdmelding_planbaarfe NUMBER(1) DEFAULT 0 NOT NULL;
+// conversie:
+UPDATE mld_stdmelding
+   SET mld_stdmelding_planbaar = 0
+     , mld_stdmelding_planbaarfe = 1
+ WHERE mld_stdmelding_planbaar = 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60342
+ALTER TABLE CNT_KENMERK DROP COLUMN cnt_kenmerk_locatiekolom;
+ALTER TABLE MLD_KENMERK DROP COLUMN mld_kenmerk_locatiekolom;
+
+ALTER TABLE fac_imp_flex
+  ADD ( kenmerk_show_expr VARCHAR2(4000)
+      , kenmerk_omschr    VARCHAR2(255)
+      , kenmerk_extra_1   VARCHAR2(255)
+      , kenmerk_extra_2   VARCHAR2(255)
+      , kenmerk_extra_3   VARCHAR2(255)
+      , kenmerk_extra_4   VARCHAR2(255)
+      );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60015
+#define CREATETABLEIFNOTEXISTS(tname, tsql) \
+DECLARE \
+    alreadyexists   NUMBER; \
+    vsql VARCHAR2(4000); \
+BEGIN \
+    SELECT COUNT (*) \
+      INTO alreadyexists \
+      FROM all_objects \
+     WHERE object_type = 'TABLE' AND object_name = UPPER (tname); \
+    IF alreadyexists = 0 \
+    THEN \
+        vsql := 'CREATE TABLE '||tname||' '|| tsql; \
+        EXECUTE IMMEDIATE vsql; \
+    END IF; \
+END;
+
+CREATETABLEIFNOTEXISTS('cnd_imp_nen2767_results',
+  '(fac_import_key NUMBER (10), alg_gebouw_code VARCHAR2 (12), ins_deel_omschrijving VARCHAR2 (60), mld_melding_datum VARCHAR2 (20), mld_melding_omschrijving VARCHAR2 (2000), prs_perslid_email VARCHAR2 (200), gebrekcode VARCHAR2 (20), ernst VARCHAR2 (50), omvang VARCHAR2 (50), intensiteit VARCHAR2 (50), aspect1 VARCHAR2 (20), aspect2 VARCHAR2 (20), aspect3 VARCHAR2 (20), aspect4 VARCHAR2 (20), aspect5 VARCHAR2 (20), aspect6 VARCHAR2 (20), aspect7 VARCHAR2 (20), foto VARCHAR2 (50), condscore NUMBER (6, 2), prioscore NUMBER (6, 2), kosten NUMBER (10, 2), plandatum DATE)')
+/
+
+//CREATE_TABLE(cnd_imp_nen2767_results,0)
+//(
+//    fac_import_key              NUMBER (10),
+//    alg_gebouw_code             VARCHAR2 (12),
+//    ins_deel_omschrijving       VARCHAR2 (60),
+//    mld_melding_datum           VARCHAR2 (20),
+//    mld_melding_omschrijving    VARCHAR2 (2000),
+//    prs_perslid_email           VARCHAR2 (200),
+//    gebrekcode                  VARCHAR2 (20),
+//    ernst                       VARCHAR2 (50),
+//    omvang                      VARCHAR2 (50),
+//    intensiteit                 VARCHAR2 (50),
+//    aspect1                     VARCHAR2 (20),
+//    aspect2                     VARCHAR2 (20),
+//    aspect3                     VARCHAR2 (20),
+//    aspect4                     VARCHAR2 (20),
+//    aspect5                     VARCHAR2 (20),
+//    aspect6                     VARCHAR2 (20),
+//    aspect7                     VARCHAR2 (20),
+//    foto                        VARCHAR2 (50),
+//    condscore                   NUMBER (6, 2),
+//    prioscore                   NUMBER (6, 2),
+//    kosten                      NUMBER (10, 2),
+//    plandatum                   DATE
+//);
+
+CREATETABLEIFNOTEXISTS('cnd_imp_srtdeel_mlddiscipline',
+ '(fac_import_key NUMBER (10), ins_srtdeel_code VARCHAR2 (10), ins_srtgroep_omschrijving VARCHAR2 (60), ins_discipline_omschrijving VARCHAR2 (60), mld_discipline_omschrijving VARCHAR2 (60))')
+/
+
+//CREATE_TABLE(cnd_imp_srtdeel_mlddiscipline,0)
+//(
+//    fac_import_key                 NUMBER (10),
+//    ins_srtdeel_code               VARCHAR2 (10),
+//    ins_srtgroep_omschrijving      VARCHAR2 (60),
+//    ins_discipline_omschrijving    VARCHAR2 (60),
+//    mld_discipline_omschrijving    VARCHAR2 (60)
+//);
+
+// Clean-up previous Plato stuff (if any)
+DELETE FROM fac_usrtab
+      WHERE fac_usrtab_object = 'USR_$PLATONEN2727';
+
+// These have moved to CND
+UPDATE fac_import_app
+   SET fac_import_app_prefix = 'CND'
+ WHERE fac_import_app_code = 'NEN2767_RESULTS' AND fac_import_app_prefix = 'PLAT';
+
+UPDATE fac_import_app
+   SET fac_import_app_prefix = 'CND'
+ WHERE fac_import_app_code = 'SRTDEEL_MLDDISC' AND fac_import_app_prefix = 'PLAT';
+
+CREATE OR REPLACE VIEW cnd_v_rap_conditiemetingen AS SELECT * FROM DUAL;
+UPDATE fac_usrrap
+   SET fac_usrrap_view_name = 'cnd_v_rap_conditiemetingen'
+ WHERE fac_usrrap_view_name = 'plat_v_rap_conditiemetingen';
+
+BEGIN
+ adm.trydrop ('PROCEDURE plat_export_nen2767_aggr_score');
+ adm.trydrop ('PROCEDURE plat_export_nen2767_cond_score');
+ adm.trydrop ('PROCEDURE plat_import_srtdeel_mlddisc');
+ adm.trydrop ('PROCEDURE plat_update_srtdeel_mlddisc');
+ adm.trydrop ('PROCEDURE plat_import_nen2767_results');
+ adm.trydrop ('PROCEDURE plat_update_nen2767_results');
+
+ adm.trydrop ('PROCEDURE cnd_export_max_cond_score');
+ adm.trydrop ('PROCEDURE cnd_export_nen2767_cond_score');
+ adm.trydrop ('FUNCTION cnd_nen2767_meth12_cond_score');
+ adm.trydrop ('FUNCTION cnd_nen2767_prio_score');
+ adm.trydrop ('FUNCTION cnd_nen2767_prio_score_mld');
+ adm.trydrop ('VIEW cnd_v_nen2767_prioriteit');
+ adm.trydrop ('VIEW cnd_v_nen2767_prio_srtgebrek');
+ adm.trydrop ('VIEW plat_v_rap_conditiemetingen');
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#60634
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_opmerking VARCHAR2(1000);
+ALTER TABLE prs_bedrijf MODIFY prs_bedrijf_opmerking2 VARCHAR2(1000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60471
+// persoons- (en afdelings-)gebonden objecten
+UPDATE mld_stdmelding
+   SET mld_stdmelding_prsafdobj = 3
+ WHERE mld_stdmelding_prsafdobj = 1;
+// geen persoonsgebonden objecten
+UPDATE mld_stdmelding
+   SET mld_stdmelding_prsafdobj = 1
+ WHERE mld_stdmelding_prsafdobj = 0;
+// geen afdelingsgebonden objecten, dus dan persoonsgebonden objecten.
+UPDATE mld_stdmelding
+   SET mld_stdmelding_prsafdobj = 0
+     , alg_org_obj_niveau = -1
+ WHERE alg_org_obj_niveau = 9;
+
+ALTER TABLE mld_stdmelding MODIFY alg_org_obj_niveau DEFAULT -1;
+ALTER TABLE mld_stdmelding DROP CONSTRAINT mld_c_alg_org_objniveau;
+ALTER TABLE mld_stdmelding ADD CONSTRAINT mld_c_alg_org_objniveau CHECK(alg_org_obj_niveau IN (-1,0,1,2,3,4,5,8));
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#60362
+ALTER TABLE mld_stdmelding
+ADD
+(
+    cad_thema_key
+        NUMBER(10)
+        CONSTRAINT mld_r_cad_thema_key1 REFERENCES cad_thema(cad_thema_key)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#40050
+ALTER TABLE cnt_disc_params
+    ADD cnt_disc_params_verkoopcontr NUMBER (1) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60405
+ALTER TABLE res_disc_params ADD res_disc_params_threshold
+      NUMBER(11,2)
+      DEFAULT 9999999
+      NOT NULL;
+
+ALTER TABLE res_rsv_ruimte ADD res_rsv_ruimte_cat_appr    /* Catalogus artikelen dienen gefiatteerd te worden 0=Nee, 1=Ja */
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+      CONSTRAINT res_c_res_rsv_ruimte_cat_appr CHECK(res_rsv_ruimte_cat_appr IN (0,1));
+
+ALTER TABLE res_rsv_artikel ADD res_rsv_artikel_approved    /* 0=Niet gefiatteerd, 1=Goedgekeurd, 2=Afgewezen */
+      NUMBER(1)
+      DEFAULT 1
+      NOT NULL
+      CONSTRAINT res_c_res_rsv_artikel_approved CHECK(res_rsv_artikel_approved IN (0,1,2));
+
+DEF_FAC_SRTNOT('RESFIA', 3, 'lcl_noti_RESFIA', 'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering', 10);
+DEF_FAC_SRTNOT('RESFOK', 0, 'lcl_noti_RESFOK', 'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering', 10);
+DEF_FAC_SRTNOT('RESFNO', 0, 'lcl_noti_RESFNO', 'res/res_reservering.asp?rsv_ruimte_key=', '0', 'reservering', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#59724
+ALTER TABLE mld_typeopdr DROP CONSTRAINT ins_c_mld_typeopdr_totaal;
+ALTER TABLE mld_typeopdr ADD CONSTRAINT ins_c_mld_typeopdr_totaal CHECK(mld_typeopdr_totaal IN (0, 1, 2));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60944
+CREATE OR REPLACE PROCEDURE tmp_insert (n IN VARCHAR2)
+    AS
+        stmt VARCHAR2 (1000);
+    BEGIN
+        stmt := 'INSERT INTO ' || n;
+
+        EXECUTE IMMEDIATE stmt;
+        DBMS_OUTPUT.put_line ('Successfully created: ' || n);
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            DBMS_OUTPUT.put_line ('message allready exists, not created: ' || n);
+            NULL;
+    END;
+/
+
+BEGIN
+   tmp_insert('fac_message VALUES (''ALG_U_ALG_VERDIEPING_CODE'',      ''Verdiepingcode bestaat al voor dit gebouw'')');
+   tmp_insert('fac_message VALUES (''BES_C_BES_BESTELLING_ITEM'',      ''Incorrect aantal bestel items'')');
+   tmp_insert('fac_message VALUES (''BES_C_BES_SRTGROEP_KEY3'',        ''Het artikelgroep moet ingevuld worden'')');
+   tmp_insert('fac_message VALUES (''BES_U_BES_KENMERK'',              ''Dit kenmerk bestaat al'')');
+   tmp_insert('fac_message VALUES (''bes_m240'',                       ''Voor dit kenmerk moet een waarde worden ingevoerd'')');
+   tmp_insert('fac_message VALUES (''bes_m242'',                       ''Voor dit kenmerk wordt een numerieke waarde verwacht'')');
+   tmp_insert('fac_message VALUES (''CNT_C_CNT_SRTKENMERK_DEC'',       ''De waarde van het veld ''''Decimal'''' moet tussen 0 en de maximale lengte liggen'')');
+   tmp_insert('fac_message VALUES (''CNT_I_CNT_FACTUURSCHEMA1'',       ''De combinatie verdeelperiode en contract is niet uniek'')');
+   tmp_insert('fac_message VALUES (''FAC_I_FAC_LOCALE_XREF1'',         ''Referentie van label in asp-programma is niet uniek'')');
+   tmp_insert('fac_message VALUES (''FAC_U_FAC_EXPORT_APP_CODE'',      ''Code exportfunctie moet uniek zijn'')');
+   tmp_insert('fac_message VALUES (''FAC_U_FAC_GROEP_UPPER'',          ''Naam van autorisatiegroep moet uniek zijn'')');
+   tmp_insert('fac_message VALUES (''FAC_U_FAC_GUI_COUNTER'',          ''De combinatie scherm, groep en dag is niet uniek'')');
+   tmp_insert('fac_message VALUES (''FAC_U_FAC_KENMERKDOMEIN_UPPER'',  ''De combinatie module en kenmerkdomein is niet uniek'')');
+   tmp_insert('fac_message VALUES (''FIN_R_FIN_FACTUUR8'',             ''Contractscope kan niet worden verwijderd omdat er facturen op geregistreerd zijn'')');
+   tmp_insert('fac_message VALUES (''INS_U_INS_SRTDISC_OMSCHR'',       ''De combinatie module en vakgroep is niet uniek'')');
+   tmp_insert('fac_message VALUES (''MLD_C_MLD_KENMERK_NIVEAU1'',      ''Het niveau van het kenmerk moet ingevuld zijn.'')');
+   tmp_insert('fac_message VALUES (''MLD_C_MLD_TYPEOPDR_KEY1'',        ''Ongeldige verwijzing naar opdrachttype'')');
+   tmp_insert('fac_message VALUES (''MLD_U_AFMELDTEKST_NAAM'',         ''Naam van afmeldtekst moet uniek zijn'')');
+   tmp_insert('fac_message VALUES (''MLD_U_MLD_KENMERK'',              ''Dit kenmerk bestaat al'')');
+   tmp_insert('fac_message VALUES (''MLD_U_MLD_KENMERKOPDR'',          ''Kenmerk bij opdracht moet uniek zijn'')');
+   tmp_insert('fac_message VALUES (''MLD_U_MLD_STDMELDING_SRTINST'',   ''De combinatie standaardmelding, discipline en niveau is niet uniek'')');
+   tmp_insert('fac_message VALUES (''RES_C_ALG_ONRGOED_KEY'',          ''De combinatie discipline en onroerendgoed object is niet uniek'')');
+   tmp_insert('fac_message VALUES (''RES_C_ALG_RUIMTE_OR_OPSTEL'',     ''Opstelling of ruimte moet ingevuld zijn'')');
+   tmp_insert('fac_message VALUES (''RES_C_RES_RSV_RUIMTE_VAN_TOT'',   ''Opstelling alleen invullen als begin en einddtijd verschillen'')');
+   tmp_insert('fac_message VALUES (''RES_I_RES_DEEL3'',                ''De combinatie discipline en reserveerbaar deel is niet uniek'')');
+   tmp_insert('fac_message VALUES (''RES_U_RES_KENMERK'',              ''Dit kenmerk bestaat al'')');
+   tmp_insert('fac_message VALUES (''PRS_C_PRS_DIENST_OMSCHR'',        ''Naam van dienst is niet uniek'')');
+   tmp_insert('fac_message VALUES (''PRS_I_PRS_BEDRIJFADRES2'',        ''Combinatie bedrijf, district, locatie, opdrachttype, adrestype is niet uniek'')');
+   tmp_insert('fac_message VALUES (''PRS_U_PRS_BEDRIJFDIENSTLOC_KEY'', ''De combinatie bedrijf, dienst, locatie en gebouw is niet uniek'')');
+END;
+/
+DROP PROCEDURE tmp_insert;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59435
+ALTER TABLE mld_disc_params
+  ADD mld_disc_params_primairbeh
+      NUMBER(1) DEFAULT(1) NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn
+ALTER TABLE cnd_imp_nen2767_results
+ADD (
+    flex1                       VARCHAR2 (255),
+    flex2                       VARCHAR2 (255),
+    flex3                       VARCHAR2 (255),
+    flex4                       VARCHAR2 (255),
+    flex5                       VARCHAR2 (255),
+    flex6                       VARCHAR2 (255),
+    flex7                       VARCHAR2 (255),
+    flex8                       VARCHAR2 (255),
+    flex9                       VARCHAR2 (255),
+    flex10                      VARCHAR2 (255)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHA#61127
+UPDATE mld_kenmerk
+   SET mld_kenmerk_niveau = 'A'
+ WHERE mld_kenmerk_niveau = 'T'
+   AND mld_stdmelding_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#61108
+UPDATE aut_idp
+   SET aut_idp_ipfilter = '80.250.128.5,80.250.128.6,31.161.17.4,80.250.129.2'
+ WHERE aut_idp_code = 'FACILITORSUPPORT';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59583
+DROP INDEX res_i_res_arrangement_art1;
+CREATE UNIQUE INDEX res_i_res_arrangement_art1 ON res_arrangement_artikel(res_arrangement_key, res_artikel_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// WOXX#59873
+ALTER TABLE alg_gebouw ADD alg_gebouw_groep VARCHAR2(60);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60353
+INSERT INTO fac_setting (fac_setting_module,
+                         fac_setting_name,
+                         fac_setting_description,
+                         fac_setting_pvalue)
+     VALUES('PUO',
+           'puo_app2enabled',
+           '....wordt door epilogue/recreate goed gezet....',
+            (SELECT fac_setting_pvalue
+                  FROM fac_setting
+                 WHERE     fac_setting_name = 'mobile_enabled'));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59840
+ALTER TABLE mld_opdr MODIFY mld_opdr_externnr VARCHAR2(1000);
+ALTER TABLE mld_melding MODIFY mld_melding_externnr VARCHAR2(1000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#nnnnn
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB38ato38d.sql

@@ -0,0 +1,59 @@
+--
+-- $Id$
+--
+-- Aanpassingen om DB38a (SaaS-prod) naar DB38d te brengen
+-- Merk op dat de recreate er nog bij komt die de DB-version bijwerkt en views opnieuw
+
+DEFINE thisfile = 'DB38ato38d.sql'  
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+CREATE VIEW cad_v_label_deel_res_datum (dummy) AS select '' from dual; 
+CREATE VIEW cad_v_thema_deel_res_datum (dummy) AS select '' from dual; 
+
+INSERT INTO cad_legenda (cad_legenda_key,cad_legenda_omschrijving, cad_legenda_discreet) VALUES (4, 'Bezetting', 1);
+
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'0','33CC33','hele dag beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'1','FF9900','''s middags beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'2','FFFF00','''s ochtends beschikbaar');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
+VALUES (4,'3','FF0000','hele dag bezet');
+
+INSERT INTO cad_thema
+    ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
+    SELECT 13, 'Werkplekbezetting', 4, 'cad_v_thema_deel_res_datum', '17', fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_RESUSE';
+
+INSERT INTO cad_label
+    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, cad_label_visible, fac_functie_key )
+    SELECT 13, 'Werkplekbezetting', 'cad_v_label_deel_res_datum', '17', 700, 0, fac_functie_key
+      from fac_functie
+    where fac_functie_code = 'WEB_RESUSE';
+
+
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

_UP/DB38to38a.sql

@@ -0,0 +1,39 @@
+--
+-- $Id$
+--
+-- Aanpassingen om DB38 (SaaS-prod) naar DB38a te brengen
+-- Merk op dat de recreate er nog bij komt die de DB-version bijwerkt
+
+DEFINE thisfile = 'DB38to38a.sql'
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+-- FCLT#61770 Foutieve index res_u_res_kenmerk
+ALTER TABLE res_kenmerk DROP CONSTRAINT res_u_res_kenmerk DROP INDEX;
+ALTER TABLE res_kenmerk ADD CONSTRAINT res_u_res_kenmerk UNIQUE(res_activiteit_key, res_discipline_key, res_artikel_key, res_srtkenmerk_key, res_kenmerk_omschrijving, res_kenmerk_groep, res_kenmerk_verwijder);
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// FCLT#59840
+ALTER TABLE mld_opdr MODIFY mld_opdr_externnr VARCHAR2(1000);
+ALTER TABLE mld_melding MODIFY mld_melding_externnr VARCHAR2(1000);
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

_UP/DB38to39.src

@@ -0,0 +1,446 @@
+/* DB38to39.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58677
+// Sinds 2020.1 niet meer in gebruik, nu weg.
+ALTER TABLE fac_activiteit DROP COLUMN fac_activiteit_interval;
+
+/////////////////////////////////////////////////////////////////////////////////////////// YASK#60689
+ALTER TABLE alg_terreinsector ADD
+( prs_perslid_key_verantw
+      NUMBER(10)
+      CONSTRAINT alg_r_prs_perslid_key3 REFERENCES prs_perslid(prs_perslid_key),
+  prs_perslid_key_verantw2
+      NUMBER(10)
+      CONSTRAINT alg_r_prs_perslid_key4 REFERENCES prs_perslid(prs_perslid_key)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#60669
+ALTER TABLE fac_imp_factuur MODIFY
+( kenmerk1  VARCHAR2(255)
+, kenmerk2  VARCHAR2(255)
+, kenmerk3  VARCHAR2(255)
+, kenmerk4  VARCHAR2(255)
+, kenmerk5  VARCHAR2(255)
+, kenmerk6  VARCHAR2(255)
+, kenmerk7  VARCHAR2(255)
+, kenmerk8  VARCHAR2(255)
+, kenmerk9  VARCHAR2(255)
+, kenmerk10 VARCHAR2(255)
+, kenmerk11 VARCHAR2(255)
+, kenmerk12 VARCHAR2(255)
+, kenmerk13 VARCHAR2(255)
+, kenmerk14 VARCHAR2(255)
+, kenmerk15 VARCHAR2(255)
+, kenmerk16 VARCHAR2(255)
+, kenmerk17 VARCHAR2(255)
+, kenmerk18 VARCHAR2(255)
+, kenmerk19 VARCHAR2(255)
+, kenmerk20 VARCHAR2(255)
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59942
+DEF_FAC_SRTNOT('ADMTRK', 0, '', '', 0, 'admin',       10);
+DEF_FAC_SRTNOT('ALGTRK', 0, '', '', 0, 'ruimte',      10);
+DEF_FAC_SRTNOT('AUTTRK', 0, '', '', 0, 'autorisatie', 10);
+DEF_FAC_SRTNOT('BESTRK', 0, '', 'bes/bes_bestelling.asp?bes_key=', 0, 'bestelling',  10);
+DEF_FAC_SRTNOT('BEZTRK', 0, '', 'bez/bez_afspraak.asp?bez_key=', 0, 'afspraak',    10);
+DEF_FAC_SRTNOT('BGTTRK', 0, '', 'bgt/bgt_budget.asp?id=', 0, 'budget',      10);
+DEF_FAC_SRTNOT('CADTRK', 0, '', '', 0, 'grafisch',    10);
+DEF_FAC_SRTNOT('CNDTRK', 0, '', '', 0, 'conditie',    10);
+DEF_FAC_SRTNOT('CNTTRK', 0, '', 'cnt/cnt_contract.asp?cnt_key=', 0, 'contract',    10);
+DEF_FAC_SRTNOT('CTRTRK', 0, '', '', 0, 'inspectie',   10);
+DEF_FAC_SRTNOT('FACTRK', 0, '', '', 0, 'basis',       10);
+DEF_FAC_SRTNOT('FINTRK', 0, '', 'fin/fin_factuur.asp?fin_key=', 0, 'factuur',     10);
+DEF_FAC_SRTNOT('INSTRK', 0, '', 'ins/ins_deel.asp?ins_key=', 0, 'deel',        10);
+DEF_FAC_SRTNOT('KPITRK', 0, '', '', 0, 'kpi',         10);
+DEF_FAC_SRTNOT('MLDTRK', 0, '', 'mld/mld_melding.asp?mld_key=', 0, 'melding',     10);
+DEF_FAC_SRTNOT('MRKTRK', 0, '', 'mrk/mrk_bericht.asp?mrk_key=', 0, 'marktplaats', 10);
+DEF_FAC_SRTNOT('MESTRK', 0, '', 'msg/msg_message.asp?message_key=', 0, 'message',     10);
+DEF_FAC_SRTNOT('ORDTRK', 0, '', 'mld/mld_opdr.asp?opdr_key=', 0, 'opdracht',    10);
+DEF_FAC_SRTNOT('PRJTRK', 0, '', 'prj/prj_scenario.asp?prj_key=', 0, 'scenario',    10);
+DEF_FAC_SRTNOT('PRSTRK', 0, '', 'prs/prs_perslid.asp?prs_key=', 0, 'perslid',     10);
+DEF_FAC_SRTNOT('RESTRK', 0, '', 'res/res_reservering.asp?rsv_ruimte_key=', 0, 'reservering', 10);
+DEF_FAC_SRTNOT('WEBTRK', 0, '', '', 0, 'intranet',    10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MAAS#62148 FCLT#61731
+ALTER TABLE fac_result MODIFY (fac_result_waarde VARCHAR2(4000));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59901
+DECLARE
+    v_cons  VARCHAR2(64);
+BEGIN
+    BEGIN
+        SELECT constraint_name
+          INTO v_cons
+          FROM all_constraints
+         WHERE table_name = 'FAC_IMPORT'
+           AND constraint_type = 'R'
+           AND constraint_name like 'SYS%';
+        --
+        EXECUTE IMMEDIATE('ALTER TABLE fac_import DROP CONSTRAINT ' || v_cons);
+    EXCEPTION
+        WHEN NO_DATA_FOUND THEN NULL;
+    END;
+    --
+    BEGIN
+        EXECUTE IMMEDIATE('ALTER TABLE fac_import MODIFY fac_import_app_key CONSTRAINT fac_r_fac_import_app_key REFERENCES fac_import_app(fac_import_app_key) ON DELETE CASCADE');
+    EXCEPTION
+        WHEN OTHERS THEN
+            DBMS_OUTPUT.put_line ('Could not add contraint fac_r_fac_import_app_key on fac_import.fac_import_app_key');
+    END;
+END;
+/
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58643
+ALTER TABLE fac_usrrap ADD
+( fac_usrrap_sort
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL
+      CONSTRAINT fac_c_fac_usrrap_sort CHECK (fac_usrrap_sort IN (0, 1, 2)), -- 0=x-as (aflopend/oplopend bij de kolom gedefinieerd), 1=y-as oplopend, 2-y-as aflopend.
+  fac_usrrap_maxrows
+      NUMBER(10),
+  fac_usrrap_limiet0
+      NUMBER(8),
+  fac_usrrap_limiet1
+      NUMBER(8),
+  fac_usrrap_limiet2
+      NUMBER(8),
+  fac_usrrap_limiet3
+      NUMBER(8)
+);
+
+ALTER TABLE fac_usrrap_cols ADD fac_usrrap_cols_urllink
+      VARCHAR2(255);
+
+ALTER TABLE fac_usrrap_cols DROP CONSTRAINT fac_c_usrrap_cols_visible;
+ALTER TABLE fac_usrrap_cols ADD CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H', 'S', 'U'));
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#61648
+DEF_FAC_FUNCTIE3('WEB_FACQRC', 'FAC',  0, 0,    0);  //    0
+DEF_MENUITEM(7, 'lcl_mobile_scanqr', '', 'FAC', 'qr:', 0, 0, 'WEB_FACQRC', 'R', '1', 'fa-camera');
+MENU_INS_AFTER('lcl_mobile_scanqr', 'lcl_mobile_opdrachten1', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#62971
+CREATE_TABLE(fac_note_group, 0)
+(
+   fac_note_group_key             NUMBER (10)    PRIMARY KEY,
+   fac_note_group_xmlnode         VARCHAR2(60)   NOT_NULL(fac_note_group_xmlnode, fac_c_fac_note_group_xmlnd),
+   fac_note_group_volgnr          NUMBER(3),
+   fac_note_group_naam            VARCHAR2(60)   NOT_NULL(fac_note_group_naam, fac_c_fac_note_group_naam),
+   fac_note_group_omschrijving    VARCHAR2(4000),
+   fac_note_group_vervaldatum     DATE,
+   CONSTRAINT fac_u_fac_note_group_naam UNIQUE (fac_note_group_xmlnode,
+                                                fac_note_group_naam)
+);
+CREATE SEQUENCE fac_s_fac_note_group_key      MINVALUE 1;
+CREATE INDEX fac_i_fac_note_group1 ON fac_note_group(fac_note_group_xmlnode, fac_note_group_volgnr);
+DEF_MENUITEM(2, 'lcl_menu_fac_note_group'        , '', 'FAC', 'appl/mgt/fac_note_group.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_fac_note_group', 'lcl_menu_mld_afmeldteksten', 2);
+
+ALTER TABLE mld_melding_note ADD
+( fac_note_group_key NUMBER(10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL );
+ALTER TABLE mld_opdr_note ADD
+( fac_note_group_key NUMBER(10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL );
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#61932
+DEF_MENUITEM(3, 'lcl_logoff', '', 'FAC', 'appl/pda/logoff_confirm.asp', 0, 0, 'WEB_MLDUSE', 'R', '0', 'fa-fa-window-close-o');
+MENU_INS_AFTER('lcl_logoff', 'lcl_mobile_rapporten', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60636
+DELETE FROM fac_locale_xref
+ WHERE fac_locale_xref_filepath like 'api2/orders/%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60205
+UPDATE fac_menu
+   SET fac_functie_key =  (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_FACTAB')
+ WHERE fac_functie_key IN (SELECT fac_functie_key FROM fac_functie WHERE fac_functie_code = 'WEB_FACFAC')
+   AND fac_menu_altlabel IN -- menuentries die in fac_ini op FACTAB staan.
+       ( 'lcl_menu_admtracking_search'
+       , 'lcl_menu_session'
+       , 'lcl_menu_mytracking'
+       , 'lcl_menu_fac_verify'
+       , 'lcl_menu_fac_verify_data'
+       , 'lcl_menu_fac_email_setting'
+       , 'lcl_menu_fac_custnotificaties'
+       , 'lcl_menu_aut_idp'
+       , 'lcl_menu_aut_client'
+       );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60830
+UPDATE fac_setting
+   SET fac_setting_pvalue =
+           (SELECT fac_setting_pvalue
+              FROM fac_setting
+             WHERE fac_setting_name = 'mld_note_sort_ascending')
+ WHERE fac_setting_name = 'note_sort_ascending';
+UPDATE fac_setting
+   SET fac_setting_pvalue =
+           (SELECT fac_setting_pvalue
+              FROM fac_setting
+             WHERE fac_setting_name = 'mld_note_autoscroll')
+ WHERE fac_setting_name = 'note_autoscroll';
+UPDATE fac_setting
+   SET fac_setting_pvalue =
+           (SELECT fac_setting_pvalue
+              FROM fac_setting
+             WHERE fac_setting_name = 'mld_note_autocollapse')
+ WHERE fac_setting_name = 'note_autocollapse';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#62687
+UPDATE fac_setting
+   SET fac_setting_default = '2'
+     , fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'puo_sendusing'
+   AND EXISTS (SELECT 1
+                 FROM fac_setting
+                WHERE fac_setting_name = 'puo_smtpserver'
+                  AND fac_setting_pvalue = 'localhost'
+              );
+
+UPDATE fac_setting
+   SET fac_setting_default = 'localhost'
+     , fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'puo_smtpserver'
+   AND fac_setting_pvalue = 'localhost';
+
+/////////////////////////////////////////////////////////////////////////////////////////// RWSN#59536
+DEF_FAC_SRTNOT('ALGCUP', 0, 'lcl_noti_ALGCUP', 'alg/alg_regio.asp?key=',      '0', 'regio',      60);
+DEF_FAC_SRTNOT('ALGDUP', 0, 'lcl_noti_ALGDUP', 'alg/alg_district.asp?key=',   '0', 'district',   60);
+DEF_FAC_SRTNOT('ALGWUP', 0, 'lcl_noti_ALGWUP', 'alg/alg_wp.asp?key=',         '0', 'werkplek',   60);
+DEF_FAC_SRTNOT('ALGTUP', 0, 'lcl_noti_ALGTUP', 'alg/alg_terreinsector.asp?key=','0','terreinsector', 60);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#62811
+ALTER TABLE prs_bedrijfadres MODIFY prs_bedrijfadres_password VARCHAR2(320);
+
+UPDATE prs_bedrijfadres
+   SET prs_bedrijfadres_password = prs_bedrijfadres_certificate
+     , prs_bedrijfadres_certificate = NULL
+ WHERE prs_bedrijfadres_certificate = (SELECT COALESCE(fac_setting_pvalue, fac_setting_default)
+                                         FROM fac_setting
+                                        WHERE fac_setting_name= 'puo_app2secret'
+                                      );
+
+ALTER TABLE fac_imp_bedrijfadres MODIFY prs_bedrijfadres_password VARCHAR2(320);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#54037
+ALTER TABLE prs_bedrijfadres
+  ADD prs_bedrijfadres_privkey VARCHAR2(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#62778
+DEF_FAC_FUNCTIE3('WEB_FACHML', 'FAC',  0, 0, NULL);
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+
+INSERT INTO fac_groep
+            (fac_groep_omschrijving)
+     VALUES ('_Hmail');
+
+INSERT INTO fac_gebruikersgroep
+            (fac_groep_key, prs_perslid_key)
+     SELECT fac_groep_key, prs_perslid_key
+       FROM fac_groep, prs_perslid
+      WHERE fac_groep_upper = '_HMAIL'
+        AND prs_perslid_oslogin = '_HMAIL';
+
+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 fac_groep_key, fac_functie_key, -1,-1,-1,-1
+  FROM fac_groep, fac_functie
+ WHERE fac_groep_omschrijving = '_Hmail'
+   AND fac_functie_code = 'WEB_FACHML';
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#62237
+ALTER TABLE mld_stdmelding ADD mld_stdmelding_thirdparty NUMBER(1) DEFAULT 0 NOT NULL;
+ALTER TABLE mld_melding ADD mld_melding_naam_ext VARCHAR2(60);
+ALTER TABLE mld_melding ADD mld_melding_email_ext VARCHAR2(100);
+ALTER TABLE mld_melding ADD mld_melding_tel_ext VARCHAR2(15);
+
+/////////////////////////////////////////////////////////////////////////////////////////// IVET#62425
+ALTER TABLE bes_disc_params ADD bes_disc_params_expire_tijd NUMBER(5,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// WOHW#59479
+DEF_FAC_FUNCTIE3('WEB_CTRSEN', 'CTR',  3, 1,    1);
+
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+
+-- De autorisatie WEB_CTRSEN is nu aangemaakt. Nu kan de conversie beginnen.
+-- Personen met 'WEB_CTRUSE' groeprechten moeten dezelfde rechten krijgen voor de nieuwe autorisatie 'WEB_CTRSEN' voor elke groep.
+-- Deze rechten moeten dus naar de nieuwe rechten 'WEB_CTRSEN' worden gekopieerd.
+-- Dit betekent dat de groeprechten, voor de groepen met 'WEB_CTRUSE' rechten, gekopieerd moeten worden.
+-- Personen met 'WEB_CTRMGT' rechten kunnen scenario's blijven beheren.
+-- Personen met 'WEB_CTRSEN' kunnen dan nu ook de naam en omschrijving van een scenario beheren/aanpassen.
+-- Voor 'WEB_CTRMGT' hoeft er voor nu niets te gebeuren.
+DECLARE
+    CURSOR pers_rechten IS
+        -- Welke groepen hebben de 'WEB_CTRUSE' rechten. Deze rechten moeten in de groep naar de nieuwe rechten 'WEB_CTRSEN' worden gekopieerd.
+        SELECT DISTINCT fgg.fac_groep_key,
+                        fg.fac_groep_omschrijving,
+                        f.fac_functie_key,
+                        f.fac_functie_code,
+                        fgr.fac_groeprechten_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_gebruikersgroep fgg,
+               fac_groep fg,
+               fac_groeprechten fgr,
+               fac_functie f
+         WHERE fg.fac_groep_key = fgg.fac_groep_key
+           AND fgr.fac_groep_key = fg.fac_groep_key
+           AND fgr.fac_functie_key = f.fac_functie_key
+           AND UPPER(fac_functie_code) IN ('WEB_CTRUSE')
+      ORDER BY fac_groep_key,
+               ins_discipline_key,
+               fac_groeprechten_key;
+BEGIN
+    -- Voor de groepen de 'WEB_CTRUSE' rechten kopi<70>ren naar de nieuwe functie 'WEB_CTRSEN'.
+    FOR f_pers_rechten IN pers_rechten
+    LOOP
+        -- Groepsrechten toevoegen.
+        INSERT INTO fac_groeprechten (fac_groep_key,
+                                      fac_functie_key,
+                                      ins_discipline_key,
+                                      fac_gebruiker_alg_level_read,
+                                      fac_gebruiker_alg_level_write,
+                                      fac_gebruiker_prs_level_read,
+                                      fac_gebruiker_prs_level_write)
+                              VALUES (f_pers_rechten.fac_groep_key,
+                                      (SELECT fac_functie_key
+                                         FROM fac_functie
+                                        WHERE fac_functie_code = 'WEB_CTRSEN'),
+                                      f_pers_rechten.ins_discipline_key,
+                                      f_pers_rechten.fac_gebruiker_alg_level_read,
+                                      f_pers_rechten.fac_gebruiker_alg_level_write,
+                                      f_pers_rechten.fac_gebruiker_prs_level_read,
+                                      f_pers_rechten.fac_gebruiker_prs_level_write);
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63107
+ALTER TABLE fac_usrrap
+  ADD fac_usrrap_code
+      VARCHAR2(60)
+      CONSTRAINT fac_u_fac_usrrap_code UNIQUE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#58539
+CREATE_TABLE(fac_nieuws_groep, 0)
+(
+    fac_nieuws_groep_key
+        NUMBER(10)
+        CONSTRAINT fac_k_nieuws_groep_key PRIMARY KEY,
+    fac_nieuws_groep_omschrijving
+        VARCHAR2(30)
+        CONSTRAINT fac_c_nieuws_groep_omschr CHECK(fac_nieuws_groep_omschrijving IS NOT NULL),
+    fac_nieuws_groep_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT fac_c_niews_groep_aanmaak NOT NULL
+);
+
+ALTER TABLE fac_nieuws
+  ADD fac_nieuws_show
+      NUMBER(3) DEFAULT 3 NOT NULL;
+ALTER TABLE fac_nieuws
+  ADD fac_nieuws_groep_key
+      NUMBER(10) REFERENCES fac_nieuws_groep(fac_nieuws_groep_key);
+
+CREATE SEQUENCE fac_s_fac_nieuws_groep_key      MINVALUE 1;
+CREATE_TRIGGER(fac_t_fac_nieuws_groep_b_iu)
+BEFORE INSERT OR UPDATE ON fac_nieuws_groep
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_nieuws_groep_key, fac_s_fac_nieuws_groep_key);
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#63145
+ALTER TABLE res_deel
+  ADD res_prs_perslid_key
+    NUMBER(10)
+    CONSTRAINT res_r_res_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key);
+
+ALTER TABLE res_deel DROP CONSTRAINT res_c_res_deel_key;
+ALTER TABLE res_deel ADD CONSTRAINT res_c_deelperslid_key CHECK((res_ins_deel_key IS NOT NULL AND res_prs_perslid_key IS NULL) OR (res_ins_deel_key IS NULL AND res_prs_perslid_key IS NOT NULL));
+
+ALTER TABLE res_rsv_ruimte
+ADD mld_opdr_key
+    NUMBER(10)
+    CONSTRAINT res_r_mld_opdr1 REFERENCES mld_opdr(mld_opdr_key);
+
+create index res_i_res_deel4 ON res_deel(res_prs_perslid_key);
+create index res_i_res_rsv_ruimte16 on res_rsv_ruimte (mld_opdr_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#62993
+ALTER TABLE fac_notificatie
+  ADD  fac_notificatie_notbefore
+    DATE
+    DEFAULT SYSDATE NOT NULL;
+ALTER TABLE fac_notificatie
+  ADD fac_notificatie_failcount
+    NUMBER(10)
+    DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#62836
+ALTER TABLE res_disc_params
+ADD res_disc_params_intervals VARCHAR(2000 CHAR);
+
+UPDATE res_disc_params rdp
+   SET res_disc_params_intervals =
+           (SELECT ins_discipline_opmerking
+              FROM res_discipline
+             WHERE     ins_discipline_key = rdp.res_ins_discipline_key
+                   AND ins_discipline_opmerking LIKE '%{%}%');
+
+--UPDATE ins_tab_discipline
+--   SET ins_discipline_opmerking = NULL
+-- WHERE ins_discipline_module = 'RES' AND ins_discipline_opmerking LIKE '%{%}%';
+
+ALTER TABLE res_activiteit
+ADD res_activiteit_intervals VARCHAR(2000 CHAR);
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#62876
+ALTER TABLE mld_stdmelding
+ADD mld_stdmelding_t_accept_pr1
+    MLD_T_UITVOERTIJD
+    CONSTRAINT mld_c_mld_stdmelding_t_accept1 CHECK(mld_stdmelding_t_accept_pr1.tijdsduur >= 0);
+ALTER TABLE mld_stdmelding
+ADD mld_stdmelding_t_accept_pr2
+    MLD_T_UITVOERTIJD
+    CONSTRAINT mld_c_mld_stdmelding_t_accept2 CHECK(mld_stdmelding_t_accept_pr2.tijdsduur >= 0);
+ALTER TABLE mld_stdmelding
+ADD mld_stdmelding_t_accept_pr4
+    MLD_T_UITVOERTIJD
+    CONSTRAINT mld_c_mld_stdmelding_t_accept4 CHECK(mld_stdmelding_t_accept_pr4.tijdsduur >= 0);
+
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accept_pr1  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accept_pr2  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_accept_pr4  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#57643
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/bes_srtdeel.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_bes_items';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#61636
+ALTER TABLE res_rsv_artikel ADD res_rsv_artikel_geleverd DATE;
+ALTER TABLE res_rsv_deel    ADD res_rsv_deel_geleverd DATE;
+
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB38zto38.sql

@@ -0,0 +1,308 @@
+--
+-- $Id$
+--
+-- Aanpassingen om DB38z (accept) naar de definitieve DB38 te brengen
+-- Merk op dat de recreate er nog bij komt die de DB-version bijwerkt
+
+DEFINE thisfile = 'DB38zto38.sql'
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+--/////////////////////////////////////////////////////////////////////////////////////////// FCLT#59418
+-- De autorisatie "WEB_FINUSE" hernoemen naar "WEB_EXTFIN".
+-- Dit is in plaats van: DEF_FAC_FUNCTIE3('WEB_EXTFIN', 'FIN', 11, 0,    1);  //    1
+-- Dan is er geen conversie nodig van "WEB_FINUSE" naar "WEB_EXTFIN".
+-- De autorisatie "WEB_EXTFIN" nu eerst verwijderen op accept, want daar was die al aangemaakt.
+DELETE
+  FROM fac_functie
+ WHERE fac_functie_code = 'WEB_EXTFIN';
+
+UPDATE fac_functie
+   SET fac_functie_min_level = 11,
+       fac_functie_code = 'WEB_EXTFIN',
+       fac_functie_omschrijving = 'lcl_WEB_EXTFIN',
+       fac_functie_info = 'lcl_WEB_EXTFIN_info'
+ WHERE fac_functie_code = 'WEB_FINUSE';
+
+-- DEF_MENUITEM(1, 'lcl_menu_mld_bo_afm_opdr_ext'  , '', 'MLD', 'appl/mld/opdr_search.asp?urole=b2', 0, 0, 'WEB_EXTORD', 'R', '1', '');
+INSERT INTO fac_menuitems(fac_menuitems_groep,
+                          fac_menuitems_label,
+                          fac_menuitems_oms,
+                          fac_menuitems_module,
+                          fac_menuitems_url,
+                          fac_menuitems_srtdisc,
+                          fac_menuitems_disc,
+                          fac_functie_key,
+                          fac_menuitems_rw,
+                          fac_menuitems_default,
+                          fac_menuitems_image)
+    SELECT 1,
+           'lcl_menu_mld_bo_afm_opdr_ext',
+           '',
+           'MLD',
+           'appl/mld/opdr_search.asp?urole=b2',
+           0,
+           0,
+           fac_functie_key,
+           'R',
+           '1',
+           ''
+      FROM fac_functie
+     WHERE fac_functie_code = 'WEB_EXTORD';
+
+-- MENU_INS_AFTER('lcl_menu_mld_bo_afm_opdr_ext', 'lcl_menu_mld_bo_afmeldenopdra', 2);
+INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
+    SELECT i.fac_menuitems_key, m.fac_menu_volgnr + 2
+      FROM fac_menuitems i, fac_menu m
+     WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key)
+                                    FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = 'lcl_menu_mld_bo_afm_opdr_ext')
+                                     AND m.fac_menuitems_key =
+                                     (SELECT MAX(mm.fac_menuitems_key)
+                                        FROM fac_menu mm, fac_menuitems mmi
+                                       WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key
+                                         AND mmi.fac_menuitems_label = 'lcl_menu_mld_bo_afmeldenopdra');
+
+-- DEF_MENUITEM(3, 'lcl_mobile_opdrachten_ext'     , '', 'MLD', 'appl/pda/orders_list.asp', 0, 0, 'WEB_EXTORD', 'R', '1',            'fa-briefcase');
+INSERT INTO fac_menuitems(fac_menuitems_groep,
+                          fac_menuitems_label,
+                          fac_menuitems_oms,
+                          fac_menuitems_module,
+                          fac_menuitems_url,
+                          fac_menuitems_srtdisc,
+                          fac_menuitems_disc,
+                          fac_functie_key,
+                          fac_menuitems_rw,
+                          fac_menuitems_default,
+                          fac_menuitems_image)
+    SELECT 3,
+           'lcl_mobile_opdrachten_ext',
+           '',
+           'MLD',
+           'appl/pda/orders_list.asp',
+           0,
+           0,
+           fac_functie_key,
+           'R',
+           '1',
+           'fa-briefcase'
+      FROM fac_functie
+     WHERE fac_functie_code = 'WEB_EXTORD';
+
+-- MENU_INS_AFTER('lcl_mobile_opdrachten_ext', 'lcl_mobile_opdrachten1', 2);
+INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
+    SELECT i.fac_menuitems_key, m.fac_menu_volgnr + 2
+      FROM fac_menuitems i, fac_menu m
+     WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key)
+                                    FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = 'lcl_mobile_opdrachten_ext')
+                                     AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key)
+                                                                  FROM fac_menu mm, fac_menuitems mmi
+                                                                 WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key
+                                                                   AND mmi.fac_menuitems_label = 'lcl_mobile_opdrachten1');
+
+-- WEB_FINUSE is vervangen door WEBEXTFIN voor menuitem DEF_MENUITEM(1, 'lcl_menu_fin_fe'               , '', 'FIN', 'appl/fin/fin_factuur.asp?urole=fe', 0, 0, 'WEB_EXTFIN', 'W', '1', '');  /* fe = leverancier */
+UPDATE fac_menuitems
+   SET fac_functie_key = (SELECT fac_functie_key
+                            FROM fac_functie
+                           WHERE UPPER (fac_functie_code) = 'WEB_EXTFIN')
+ WHERE fac_menuitems_label = 'lcl_menu_fin_fe';
+-- WEB_FINUSE is vervangen door WEBEXTFIN voor menuitem DEF_MENUITEM(1, 'lcl_menu_fin_fe_overz'         , '', 'FIN', 'appl/fin/fin_search.asp', 0, 0, 'WEB_EXTFIN', 'R', '1', '');            /* fe = leverancier */
+UPDATE fac_menuitems
+   SET fac_functie_key = (SELECT fac_functie_key
+                            FROM fac_functie
+                           WHERE UPPER (fac_functie_code) = 'WEB_EXTFIN')
+ WHERE fac_menuitems_label = 'lcl_menu_fin_fe_overz';
+
+DECLARE
+    lnew_groep                NUMBER (1);
+    lfirst_prs                NUMBER (1);
+    lfac_groep_key            fac_groep.fac_groep_key%TYPE;
+    lnew_fac_groep_key        fac_groep.fac_groep_key%TYPE;
+    lins_discipline_key       fac_groeprechten.ins_discipline_key%TYPE;
+    lprs_perslid_key          prs_perslid.prs_perslid_key%TYPE;
+    -- Interne personen die geen contactpersoon van een extern bedrijf zijn maar die wel 'WEB_ORDBO2' rechten hebben (Interne uitvoerders).
+    CURSOR c_pers_intern_rechten IS
+        -- Welke personen zijn geen contactpersoon van een extern bedrijf maar hebben wel 'WEB_ORDBO2' rechten (Interne uitvoerders).
+        -- Deze moeten naar de nieuwe fac_groep worden gekopieerd.
+        -- Welke fac_groeprechten zijn het die geen contactpersoon zijn van een extern bedrijf maar wel 'WEB_ORDBO2' rechten hebben.
+        -- Voor elke groep kunnen verschillende disciplines zijn ingesteld.
+        SELECT DISTINCT excl.fac_groeprechten_key,
+               excl.ins_discipline_key,
+               excl.fac_groep_key,
+               excl.fac_functie_key,
+               excl.fac_gebruiker_alg_level_read,
+               excl.fac_gebruiker_alg_level_write,
+               excl.fac_gebruiker_prs_level_read,
+               excl.fac_gebruiker_prs_level_write,
+               excl.prs_perslid_key,
+               excl.fac_groep_omschrijving
+          FROM (SELECT DISTINCT fgg.fac_groep_key,
+                                fg.fac_groep_omschrijving,
+                                f.fac_functie_key,
+                                f.fac_functie_code,
+                                fgr.fac_groeprechten_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,
+                                fgg.prs_perslid_key
+                  FROM fac_gebruikersgroep fgg,
+                       fac_groep fg,
+                       fac_groeprechten fgr,
+                       fac_functie f
+                 WHERE fg.fac_groep_key = fgg.fac_groep_key
+                   AND fgr.fac_groep_key = fg.fac_groep_key
+                   AND fgr.fac_functie_key = f.fac_functie_key
+                   AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                   AND EXISTS
+                           (SELECT 1
+                              FROM prs_contactpersoon cp
+                             WHERE cp.prs_perslid_key = fgg.prs_perslid_key)) inc,
+               (SELECT DISTINCT fgg.fac_groep_key,
+                                fg.fac_groep_omschrijving,
+                                f.fac_functie_key,
+                                f.fac_functie_code,
+                                fgr.fac_groeprechten_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,
+                                fgg.prs_perslid_key
+                  FROM fac_gebruikersgroep fgg,
+                       fac_groep fg,
+                       fac_groeprechten fgr,
+                       fac_functie f
+                 WHERE fg.fac_groep_key = fgg.fac_groep_key
+                   AND fgr.fac_groep_key = fg.fac_groep_key
+                   AND fgr.fac_functie_key = f.fac_functie_key
+                   AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                   AND NOT EXISTS
+                           (SELECT 1
+                              FROM prs_contactpersoon cp
+                             WHERE fgg.prs_perslid_key = cp.prs_perslid_key)) excl
+         WHERE inc.fac_groep_key = excl.fac_groep_key
+        ORDER BY excl.fac_groep_key,
+                 excl.prs_perslid_key,
+                 excl.ins_discipline_key,
+                 excl.fac_groeprechten_key;
+BEGIN
+    lfac_groep_key := 0;
+    lprs_perslid_key := 0;
+    lins_discipline_key := 0;
+    lfirst_prs := 0;
+    -- Eerst interne uitvoerders die GEEN contactpersoon zijn van een extern bedrijf in een nieuwe groep gooien.
+    -- Anders hebben ze straks te weinig rechten.
+    FOR f_pers_intern_rechten IN c_pers_intern_rechten
+    LOOP
+        lnew_groep := 0;
+        IF lfac_groep_key != f_pers_intern_rechten.fac_groep_key
+        THEN
+            -- Nieuwe groep aanmaken (omschrijving + BO2)
+            INSERT INTO fac_groep (fac_groep_omschrijving,
+                                   fac_groep_opmerking)
+                           VALUES (TRIM(SUBSTR(f_pers_intern_rechten.fac_groep_omschrijving, 1, 23)) || ' ORDBO2',
+                                   'Interne personen die geen contactpersoon van een extern bedrijf zijn maar die wel WEB_ORDBO2 rechten hebben (Interne uitvoerders).')
+            RETURNING fac_groep_key INTO lnew_fac_groep_key;
+            lfac_groep_key := f_pers_intern_rechten.fac_groep_key;
+            lnew_groep := 1;
+        END IF;
+
+        IF lnew_groep = 1 OR lprs_perslid_key != f_pers_intern_rechten.prs_perslid_key
+        THEN
+            -- Personen aan de gebruikersgroep toevoegen.
+            INSERT INTO fac_gebruikersgroep (fac_groep_key,
+                                             prs_perslid_key)
+                                     VALUES (lnew_fac_groep_key,
+                                             f_pers_intern_rechten.prs_perslid_key);
+            lprs_perslid_key := f_pers_intern_rechten.prs_perslid_key;
+            IF lnew_groep = 1
+            THEN
+                lfirst_prs := 1;
+            ELSE
+                lfirst_prs := 0;
+            END IF;
+        END IF;
+
+        -- Voor de tweede prs_perslid niet opnieuw alle disciplines toevoegen anders krijg je ze dubbel erin.
+        IF lfirst_prs = 1 AND (lnew_groep = 1 OR lins_discipline_key != f_pers_intern_rechten.ins_discipline_key)
+        THEN
+            -- Groepsrechten toevoegen.
+            INSERT INTO fac_groeprechten (fac_groep_key,
+                                          fac_functie_key,
+                                          ins_discipline_key,
+                                          fac_gebruiker_alg_level_read,
+                                          fac_gebruiker_alg_level_write,
+                                          fac_gebruiker_prs_level_read,
+                                          fac_gebruiker_prs_level_write)
+                                  VALUES (lnew_fac_groep_key,
+                                          f_pers_intern_rechten.fac_functie_key,
+                                          f_pers_intern_rechten.ins_discipline_key,
+                                          f_pers_intern_rechten.fac_gebruiker_alg_level_read,
+                                          f_pers_intern_rechten.fac_gebruiker_alg_level_write,
+                                          f_pers_intern_rechten.fac_gebruiker_prs_level_read,
+                                          f_pers_intern_rechten.fac_gebruiker_prs_level_write);
+            lins_discipline_key := f_pers_intern_rechten.ins_discipline_key;
+        END IF;
+
+    END LOOP;
+
+    -- Omgooien groepen van 'WEB_ORDBO2' naar 'WEB_EXTORD'
+    -- De EXIST (contactpersoon) zorgt ervoor dat de net aangemaakte groep met de rechten NIET van 'WEB_ORDBO2' naar 'WEB_EXTORD' worden omgegooid.
+    -- In de nieuwe groep zitten namelijk alleen interne uitvoerders die GEEN contactpersoon zijn van een extern bedrijf.
+    UPDATE fac_groeprechten
+       SET fac_functie_key =
+               (SELECT fac_functie_key
+                  FROM fac_functie
+                 WHERE fac_functie_code LIKE 'WEB_EXTORD')
+     WHERE fac_functie_key = (SELECT fac_functie_key
+                                FROM fac_functie
+                               WHERE fac_functie_code LIKE 'WEB_ORDBO2')
+       AND fac_groep_key IN (SELECT DISTINCT fgg.fac_groep_key
+                               FROM fac_gebruikersgroep fgg,
+                                    fac_groep fg,
+                                    fac_groeprechten fgr,
+                                    fac_functie f
+                              WHERE fg.fac_groep_key = fgg.fac_groep_key
+                                AND fgr.fac_groep_key = fg.fac_groep_key
+                                AND fgr.fac_functie_key = f.fac_functie_key
+                                AND UPPER(fac_functie_code) = 'WEB_ORDBO2'
+                                AND EXISTS
+                                        (SELECT 1
+                                           FROM prs_contactpersoon cp
+                                          WHERE cp.prs_perslid_key = fgg.prs_perslid_key));
+END;
+/
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// FCLT#60353
+UPDATE fac_setting
+   SET fac_setting_pvalue = 1
+ WHERE     fac_setting_name = 'puo_app2enabled'
+       AND fac_setting_pvalue IS NULL
+       AND EXISTS
+               (SELECT ''
+                  FROM fac_setting
+                 WHERE     fac_setting_name = 'mobile_enabled'
+                       AND fac_setting_pvalue = 1);
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

_UP/DB39to40e.src

@@ -0,0 +1,702 @@
+/*
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64792
+-- Setting is al handmatig overgenomen naar fg_move_origin
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'fac_reserved_number1';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63749
+UPDATE ins_tab_discipline
+   SET INS_DISCIPLINE_IMAGE = SUBSTR(INS_DISCIPLINE_IMAGE, 1, LENGTH(INS_DISCIPLINE_IMAGE) - 2)
+ WHERE INS_DISCIPLINE_IMAGE LIKE '%-o';
+
+UPDATE ins_srtdiscipline
+   SET INS_SRTDISCIPLINE_IMAGE = SUBSTR(INS_SRTDISCIPLINE_IMAGE, 1, LENGTH(INS_SRTDISCIPLINE_IMAGE) - 2)
+ WHERE INS_SRTDISCIPLINE_IMAGE LIKE '%-o';
+
+UPDATE mld_stdmelding
+   SET mld_stdmelding_image = SUBSTR(mld_stdmelding_image, 1, LENGTH(mld_stdmelding_image) - 2)
+ WHERE mld_stdmelding_image LIKE '%-o';
+
+UPDATE fac_menu
+   SET fac_menu_image = SUBSTR(fac_menu_image, 1, LENGTH(fac_menu_image) - 2)
+ WHERE fac_menu_image LIKE '%-o';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_image = SUBSTR(fac_menuitems_image, 1, LENGTH(fac_menuitems_image) - 2)
+ WHERE fac_menuitems_image LIKE '%-o';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-sliders-v-square'
+ WHERE fac_menu_image = 'fa-sliders';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63749 2e batch
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-blank'
+ WHERE fac_menu_image = 'blank';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-euro-sign'
+ WHERE fac_menu_image = 'fa-eur';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-money-bill'
+ WHERE fac_menu_image = 'fa-money';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-pie'
+ WHERE fac_menu_image = 'fa-pie-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-blank'
+ WHERE fac_menu_image = 'blank';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-sliders-v'
+ WHERE fac_menu_image = 'fa-sliders';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-bar'
+ WHERE fac_menu_image = 'fa-bar-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-credit-card'
+ WHERE fac_menu_image = 'fa-vcard';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-line'
+ WHERE fac_menu_image = 'fa-line-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-utensils-alt'
+ WHERE fac_menu_image = 'fa-cutlery';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-file-alt'
+ WHERE fac_menu_image = 'fa-file-text';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-cog'
+ WHERE fac_menu_image = 'fa-gear';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-line'
+ WHERE fac_menu_image = 'fa-chart';
+
+  UPDATE fac_menu
+   SET fac_menu_image = 'fa-cogs'
+ WHERE fac_menu_image = 'fa-gears';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-euro-sign'
+ WHERE fac_menu_image = 'fa-euro';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-exclamation-triangle'
+ WHERE fac_menu_image = 'fa-warning';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_image = 'fa-file-alt'
+ WHERE fac_menuitems_image = 'fa-file-text';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAGN#61402
+DEF_FAC_SRTNOT('ORDCAE', 0, 'lcl_noti_ORDCAE', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDCAI', 0, 'lcl_noti_ORDCAI', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#64001
+ALTER TABLE mld_kenmerk
+  ADD mld_kenmerk_wissen NUMBER(1) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63906
+ALTER TABLE res_activiteit
+  ADD res_activiteit_image VARCHAR2(255);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64850
+DELETE fac_kenmwaarden;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64624
+ALTER TABLE res_rsv_ruimte
+  ADD res_rsv_ruimte_van_actual DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60030
+ALTER TABLE alg_regio          ADD (         alg_regio_externnr VARCHAR2(256),       alg_regio_externsyncdate DATE);
+ALTER TABLE alg_district       ADD (      alg_district_externnr VARCHAR2(256),    alg_district_externsyncdate DATE);
+ALTER TABLE alg_locatie        ADD (       alg_locatie_externnr VARCHAR2(256),     alg_locatie_externsyncdate DATE);
+ALTER TABLE alg_terreinsector  ADD ( alg_terreinsector_externnr VARCHAR2(256),  alg_terreinsector_extsyncdate DATE);
+ALTER TABLE alg_gebouw         ADD (        alg_gebouw_externnr VARCHAR2(256),      alg_gebouw_externsyncdate DATE);
+ALTER TABLE alg_verdieping     ADD (    alg_verdieping_externnr VARCHAR2(256),  alg_verdieping_externsyncdate DATE);
+ALTER TABLE alg_ruimte         ADD (        alg_ruimte_externnr VARCHAR2(256),      alg_ruimte_externsyncdate DATE);
+ALTER TABLE bes_bestelling     ADD (    bes_bestelling_externnr VARCHAR2(256),  bes_bestelling_externsyncdate DATE);
+ALTER TABLE bes_bestelopdr     ADD (    bes_bestelopdr_externnr VARCHAR2(256),  bes_bestelopdr_externsyncdate DATE);
+ALTER TABLE bez_afspraak       ADD (      bez_afspraak_externnr VARCHAR2(256),    bez_afspraak_externsyncdate DATE);
+ALTER TABLE bez_bezoekers      ADD (     bez_bezoekers_externnr VARCHAR2(256),   bez_bezoekers_externsyncdate DATE);
+ALTER TABLE fin_factuur        ADD (       fin_factuur_externnr VARCHAR2(256),     fin_factuur_externsyncdate DATE);
+ALTER TABLE ins_srtdiscipline  ADD ( ins_srtdiscipline_externnr VARCHAR2(256),  ins_srtdiscipline_extsyncdate DATE);
+ALTER TABLE ins_tab_discipline ADD (    ins_discipline_externnr VARCHAR2(256),  ins_discipline_externsyncdate DATE);
+ALTER TABLE ins_srtgroep       ADD (      ins_srtgroep_externnr VARCHAR2(256),    ins_srtgroep_externsyncdate DATE);
+ALTER TABLE ins_srtdeel        ADD (       ins_srtdeel_externnr VARCHAR2(256),     ins_srtdeel_externsyncdate DATE);
+ALTER TABLE ins_deel           ADD (          ins_deel_externnr VARCHAR2(256),        ins_deel_externsyncdate DATE);
+ALTER TABLE mld_opdr_materiaal ADD (mld_opdr_materiaal_externnr VARCHAR2(256), mld_opdr_materiaal_extsyncdate DATE);
+ALTER TABLE mld_stdmelding     ADD (    mld_stdmelding_externnr VARCHAR2(256),  mld_stdmelding_externsyncdate DATE);
+ALTER TABLE res_deel           ADD (          res_deel_externnr VARCHAR2(256),        res_deel_externsyncdate DATE);
+ALTER TABLE res_artikel        ADD (       res_artikel_externnr VARCHAR2(256),     res_artikel_externsyncdate DATE);
+ALTER TABLE res_ruimte         ADD (                                                res_ruimte_externsyncdate DATE);
+ALTER TABLE res_rsv_artikel    ADD (   res_rsv_artikel_externnr VARCHAR2(256), res_rsv_artikel_externsyncdate DATE);
+ALTER TABLE res_rsv_deel       ADD (      res_rsv_deel_externnr VARCHAR2(256),    res_rsv_deel_externsyncdate DATE);
+ALTER TABLE res_rsv_ruimte     ADD (                                            res_rsv_ruimte_externsyncdate DATE);
+ALTER TABLE res_reservering    ADD (   res_reservering_externnr VARCHAR2(256), res_reservering_externsyncdate DATE);
+
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_externsyncdate1 DATE);
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_externsyncdate2 DATE);
+ALTER TABLE prs_afdeling        ADD (  prs_afdeling_externsyncdate DATE);
+ALTER TABLE prs_perslid         ADD (   prs_perslid_externsyncdate DATE);
+ALTER TABLE prs_kostenplaats    ADD (    prs_kostenplaats_externnr VARCHAR2(256),   prs_kostenplaats_extsyncdate DATE);
+ALTER TABLE prs_werkplek        ADD (        prs_werkplek_externnr VARCHAR2(256),    prs_werkplek_externsyncdate DATE);
+ALTER TABLE prs_perslidwerkplek ADD ( prs_perslidwerkplek_externnr VARCHAR2(256),   prs_perslidwerkplek_extsyncd DATE);
+ALTER TABLE prs_contactpersoon  ADD (  prs_contactpersoon_externnr VARCHAR2(256), prs_contactpersoon_extsyncdate DATE);
+
+ALTER TABLE prs_bedrijf_bedrijf MODIFY prs_bedrijf_externid1 VARCHAR2(256);
+ALTER TABLE prs_bedrijf_bedrijf MODIFY prs_bedrijf_externid2 VARCHAR2(256);
+ALTER TABLE prs_afdeling        MODIFY prs_afdeling_externid VARCHAR2(256);
+ALTER TABLE prs_perslid         MODIFY prs_perslid_externid  VARCHAR2(256);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64883
+ALTER TABLE fac_version DROP COLUMN fac_version_major;
+ALTER TABLE fac_version DROP COLUMN fac_version_minor;
+ALTER TABLE fac_version DROP COLUMN fac_version_patch;
+
+DELETE fac_message
+ WHERE fac_message_code = 'FAC_M005';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65049
+_FAC_MODULE('CHT', 'lcl_module_CHT')
+
+DEF_FAC_FUNCTIE3('WEB_CHTOPR', 'CHT',  0, 1,    0);
+DEF_FAC_FUNCTIE3('WEB_CHTREQ', 'CHT',  0, 1,    0);
+
+DEF_MENUITEM(2, 'lcl_menu_cht_chatkanalen', '', 'CHT', 'appl/mgt/cht_discipline.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_chatkanalen', 'lcl_menu_fac_notificaties', 2);
+
+DEF_MENUITEM(0, 'lcl_menu_cht_chatnow'          , '', 'CHT', 'appl/chat/ChatterWant.asp', 0, 1, 'WEB_CHTREQ', 'R', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_chatnow', 'lcl_menu_fe_search', 2);
+
+DEF_MENUITEM(1, 'lcl_menu_cht_incoming'          , '', 'CHT', 'appl/chat/ChatterAccept.asp', 0, 1, 'WEB_CHTOPR', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_incoming', 'lcl_menu_sle_sleutels', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64375
+UPDATE fac_usrgraph
+   SET fac_usrgraph_options = REPLACE (fac_usrgraph_options, '      "renderer": "$.jqplot.BarRenderer",' || CHR(10), '')
+ WHERE fac_usrgraph_omschrijving = 'Category';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63800
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/msg/fac_nieuws_search.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_msg_overzicht';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_label = 'lcl_menu_msg_bericht_maken',
+       fac_menuitems_default = 1
+ WHERE fac_menuitems_label = 'lcl_menu_msg_berichten';
+
+/* Nu default wel in het menu, dat dan ook even voor bestaande klanten; */
+INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
+    SELECT fac_menuitems_key, fac_menuitems_key * 100
+      FROM fac_menuitems i
+     WHERE     fac_menuitems_label = 'lcl_menu_msg_bericht_maken'
+           AND i.fac_menuitems_key NOT IN
+                   (SELECT m.fac_menuitems_key
+                      FROM fac_menu m
+                     WHERE m.fac_menuitems_key IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66753
+DELETE FROM mld_melding_object mmo
+ WHERE mmo.mld_melding_key NOT IN (SELECT mld_melding_key FROM mld_melding);
+
+DELETE FROM mld_melding_object mmo
+ WHERE mmo.mld_melding_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#65182
+ALTER TABLE fin_kenmerkfactuur   DROP CONSTRAINT fin_r_fin_factuur_key;
+ALTER TABLE fin_factuurregel     DROP CONSTRAINT fin_r_fin_factuurregel1;
+ALTER TABLE fin_kenmerkfactregel DROP CONSTRAINT fin_r_fin_factuurregel_key;
+ALTER TABLE bes_bestelling       DROP CONSTRAINT bes_r_mld_melding1;
+ALTER TABLE cnt_contract_object  DROP CONSTRAINT cnt_r_cnt_contract_key_object;
+ALTER TABLE cnt_contract_plaats  DROP CONSTRAINT cnt_r_cnt_contract_key_plaats;
+ALTER TABLE cnt_contract_dienst  DROP CONSTRAINT cnt_r_cnt_contract_dienst;
+ALTER TABLE cnt_factuurschema    DROP CONSTRAINT cnt_r_cnt_factuurschema1;
+ALTER TABLE res_rsv_deel         DROP CONSTRAINT res_c_res_rsv_ruimte_key;
+ALTER TABLE res_rsv_artikel      DROP CONSTRAINT res_c_res_rsv_ruimte_key2;
+ALTER TABLE mld_melding          DROP CONSTRAINT mld_r_res_rsv_ruimte_key;
+ALTER TABLE mld_opdr             DROP CONSTRAINT mld_r_cnt_contract_key;
+ALTER TABLE mld_opdr_materiaal   DROP CONSTRAINT mld_r_mld_opdr_key3;
+ALTER TABLE mld_opdr_uitvoeren   DROP CONSTRAINT mld_r_mld_opdr_key2;
+ALTER TABLE mld_opdr_uren        DROP CONSTRAINT mld_r_mld_opdr_key1;
+
+ALTER TABLE fin_kenmerkfactuur   MODIFY fin_factuur_key      CONSTRAINT fin_r_fin_factuur_key         REFERENCES fin_factuur(fin_factuur_key)           ON DELETE CASCADE;
+ALTER TABLE fin_factuurregel     MODIFY fin_factuur_key      CONSTRAINT fin_r_factuurregel1           REFERENCES fin_factuur(fin_factuur_key)           ON DELETE CASCADE;
+ALTER TABLE fin_kenmerkfactregel MODIFY fin_factuurregel_key CONSTRAINT fin_r_fin_factuurregel_key    REFERENCES fin_factuurregel(fin_factuurregel_key) ON DELETE CASCADE;
+ALTER TABLE bes_bestelling       MODIFY mld_melding_key      CONSTRAINT bes_r_mld_melding1            REFERENCES mld_melding(mld_melding_key)           ON DELETE SET NULL;
+ALTER TABLE cnt_contract_object  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_key_object REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_contract_plaats  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_key_plaats REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_contract_dienst  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_dienst     REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_factuurschema    MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_factuurschema1      REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE res_rsv_deel         MODIFY res_rsv_ruimte_key   CONSTRAINT res_c_res_rsv_ruimte_key      REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE CASCADE;
+ALTER TABLE res_rsv_artikel      MODIFY res_rsv_ruimte_key   CONSTRAINT res_c_res_rsv_ruimte_key2     REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE CASCADE;
+ALTER TABLE mld_melding          MODIFY res_rsv_ruimte_key   CONSTRAINT mld_r_res_rsv_ruimte_key      REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE SET NULL;
+ALTER TABLE mld_melding_object   MODIFY mld_melding_key      CONSTRAINT mld_r_mld_melding_key5        REFERENCES mld_melding(mld_melding_key)           ON DELETE CASCADE;
+ALTER TABLE mld_opdr             MODIFY cnt_contract_key     CONSTRAINT mld_r_cnt_contract_key        REFERENCES cnt_contract(cnt_contract_key)         ON DELETE SET NULL;
+ALTER TABLE mld_opdr_materiaal   MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key3           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+ALTER TABLE mld_opdr_uitvoeren   MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key2           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+ALTER TABLE mld_opdr_uren        MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key1           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// LOGC#65120
+DEF_FAC_SRTNOT('PRSREG', 127, 'lcl_noti_PRSREG', '', '0', 'perslid', 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65498
+UPDATE fac_version
+   SET fac_version_cust = UPPER(fac_version_cust)
+     , fac_version_group = UPPER(fac_version_group);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64726
+ALTER TABLE ins_srtdeel
+ ADD ins_srtdeel_sensortype NUMBER(3) DEFAULT 0 NOT NULL;
+CREATE INDEX ins_i_ins_srtdeel7 ON ins_srtdeel(ins_srtdeel_sensortype);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#64081
+DEF_FAC_SRTNOT('BEZBEZ', 18, 'lcl_noti_BEZBEZ', '', '0', 'afspraak', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64717
+ALTER TABLE prs_bedrijfadres DROP CONSTRAINT prs_c_prs_bedrijfadrestype;
+ALTER TABLE prs_bedrijfadres ADD  CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V','N','I'));
+ALTER TABLE fac_notificatie ADD prs_bedrijfadres_key
+    NUMBER(10) CONSTRAINT prs_r_bedrijfadres_key1
+    REFERENCES prs_bedrijfadres(prs_bedrijfadres_key) ON DELETE CASCADE;
+
+ALTER TABLE fac_notificatie_job ADD fac_notificatie_job_seconds NUMBER(5);
+ALTER TABLE fac_notificatie_job ADD CONSTRAINT fac_c_notificatie_job1 CHECK((fac_notificatie_job_interval IS NOT NULL AND fac_notificatie_job_seconds IS NULL) OR (fac_notificatie_job_interval IS NULL AND fac_notificatie_job_seconds IS NOT NULL));
+ALTER TABLE fac_notificatie_job ADD fac_notificatie_job_queue VARCHAR2(20) DEFAULT 'DEFAULT' NOT NULL;
+ALTER TABLE fac_notificatie ADD fac_notificatie_queue VARCHAR2(20) DEFAULT 'DEFAULT' NOT NULL;
+
+DEF_FAC_SRTNOT('FACTST', 0, 'lcl_noti_FACTST', '', '0', 'perslid', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#65726
+
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_plugin VARCHAR(320);
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_plugindata VARCHAR(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#64730
+ALTER TABLE res_activiteit DROP CONSTRAINT res_c_activiteit_aantal;
+ALTER TABLE res_activiteit ADD  CONSTRAINT res_c_activiteit_aantal CHECK(res_activiteit_aantalverplicht IN (0,1,2));
+
+///////////////////////////////////////////////////////////////////////////////////////////  ARAI#59648
+ALTER TABLE mld_melding ADD mld_melding_dwgx NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_dwgy NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_dwgz NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_x NUMBER(16,6);
+ALTER TABLE mld_melding ADD mld_melding_y NUMBER(16,6);
+ALTER TABLE mld_melding ADD mld_melding_z NUMBER(16,6);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#65858
+ALTER TABLE fac_imp_onrgoed2 MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_perslid MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_ins MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_sle MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE alg_ruimte MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE alg_ruimte MODIFY alg_ruimte_upper_nr VARCHAR2(20);
+ALTER TABLE prj_ruimte MODIFY prj_ruimte_nr VARCHAR2(20);
+ALTER TABLE prj_ruimte MODIFY prj_ruimte_upper_nr VARCHAR2(20);
+
+/////////////////////////////////////////////////////////////////////////////////////////// GDZW#65247
+ALTER TABLE bez_bezoekers ADD bez_bezoekers_done_actual DATE;
+ALTER TABLE bez_bezoekers ADD bez_bezoekers_out_actual DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#65917
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantal NUMBER (15, 3);
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantalontv NUMBER (15, 3);
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantalexp NUMBER (15, 3);
+ALTER TABLE bes_bestelling_item MODIFY bes_bestelling_item_aantal NUMBER (15, 3);
+ALTER TABLE bes_bestelling_item MODIFY bes_bestelling_item_aantalontv NUMBER (15, 3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#65934
+ALTER TABLE mld_melding ADD mld_melding_actiedatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAXX#65358
+DECLARE
+    -- Bij afgemelden(5) of voltooien(6) van periodieke inspecties (NIET MJOB) wordt het veld ins_deelsrtcontrole_freezecost pas gevuld.
+    -- Het veld ins_deelsrtcontrole_freezedate veld wordt daarbij nooit gevuld. Dat gebeurd alleen bij MJOB taken.
+    -- Alle afgemelde of voltooide periodieke inspecties (NIET MJOB) ophalen waarvoor geldt:
+    -- 1) de freezecost zijn groter dan 0 en
+    -- 2) het aantal van het bijbehorende object is groter dan 1.
+    CURSOR c_freezecost IS
+        SELECT idsc.ins_deelsrtcontrole_key,
+               id.ins_deel_aantal
+          FROM ins_deelsrtcontrole idsc,
+               ins_deel id,
+               ins_srtcontrole isc,
+               ctr_disc_params cdp
+         WHERE idsc.ins_deel_key = id.ins_deel_key
+           AND idsc.ins_srtcontrole_key = isc.ins_srtcontrole_key
+           AND isc.ctr_discipline_key = cdp.ctr_ins_discipline_key
+           AND idsc.ins_deelsrtcontrole_status IN (5, 6)
+           AND idsc.ins_deelsrtcontrole_freezedate IS NULL
+           AND id.ins_deel_aantal > 1
+           AND idsc.ins_deelsrtcontrole_freezecost > 0
+           AND cdp.ctr_disc_params_ismjob = 0;
+
+BEGIN
+    FOR f_freezecost IN c_freezecost
+    LOOP
+        -- Vermenigvuldig het totaalbedrag (freezecost) met het aantal opbjecten.
+        UPDATE ins_deelsrtcontrole
+           SET ins_deelsrtcontrole_freezecost = (f_freezecost.ins_deel_aantal * ins_deelsrtcontrole_freezecost)
+         WHERE ins_deelsrtcontrole_key = f_freezecost.ins_deelsrtcontrole_key;
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#63145
+DROP INDEX res_i_res_deel3;
+CREATE UNIQUE INDEX res_i_res_deel3 ON res_deel(res_ins_deel_key, res_prs_perslid_key, res_discipline_key, res_deel_verwijder);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66178
+ALTER TABLE prs_perslid ADD prs_perslid_visibility NUMBER(3) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60561
+ALTER TABLE res_ruimte ADD res_ruimte_graphhooksecret VARCHAR(128);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66441
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadsymbol_dwgx NUMBER(16,3);
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadsymbol_dwgy NUMBER(16,3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65949
+ALTER TABLE bes_srtdeel MODIFY bes_srtdeel_veelvoud NUMBER(9,3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64726
+CREATE_TABLE(ins_deel_state_history_all, 0)
+(
+    ins_deel_state_history_all_key
+        NUMBER(10)
+        CONSTRAINT ins_k_deel_state_histall_key PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        CONSTRAINT ins_r_ins_deel_key3 REFERENCES ins_deel(ins_deel_key),
+    ins_deel_statedate
+        DATE,
+    ins_deel_state
+        VARCHAR2(128),
+    ins_deel_statetime
+        NUMBER
+);
+
+CREATE SEQUENCE ins_s_ins_deel_st_histall_key MINVALUE 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65180
+ALTER TABLE fac_import_app ADD   fac_import_app_delimiter VARCHAR(2);
+ALTER TABLE fac_export_app ADD   fac_export_app_delimiter VARCHAR(2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#66368
+ALTER TABLE fac_faq ADD fac_faq_vervaldatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66612
+ALTER TABLE alg_gebouw MODIFY (alg_gebouw_dwgx NUMBER(16,3) );
+ALTER TABLE alg_gebouw MODIFY (alg_gebouw_dwgy NUMBER(16,3) );
+
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgx NUMBER(16,3) );
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgy NUMBER(16,3) );
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgz NUMBER(16,3) );
+
+ALTER TABLE prj_scenario_note MODIFY (prj_scenario_note_DWGX NUMBER(16,3) );
+ALTER TABLE prj_scenario_note MODIFY (prj_scenario_note_DWGY NUMBER(16,3) );
+
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgx NUMBER(16,3) );
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgy NUMBER(16,3) );
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgz NUMBER(16,3) );
+
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgx NUMBER(16,3) );
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgy NUMBER(16,3) );
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgz NUMBER(16,3) );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#63210
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view, fac_notificatie_job_oms, fac_notificatie_job_mode, fac_notificatie_job_interval, fac_notificatie_job_flags)
+     VALUES ('fac_v_noti_auditfail_day', 'Dagelijkse signaleringen van >5 inlogpogingen', 2, 24, 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66765
+drop index mld_i_mld_kenmerkmelding2;
+drop index mld_i_mld_kenmerkmelding3;
+
+drop index mld_i_mld_kenmerkopdr2;
+drop index mld_i_mld_kenmerkopdr3;
+
+drop index bes_i_bes_kenmerkbestell2;
+drop index bes_i_bes_kenmerkbestell3;
+
+drop index bes_i_bes_kenmerkbesteli2;
+drop index bes_i_bes_kenmerkbesteli3;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66677
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+
+-- Toevoegen ontbrekende gebruiker om HMAIL-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags,
+                         prs_perslid_opmerking)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. hMail-koppeling',
+          '_HMAIL',
+          DBMS_RANDOM.string ('a', 32),
+          36,
+          'System account for incoming email.'||CHR(13)||'For Facilitor internal use'
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR'
+      AND NOT EXISTS (SELECT 1 FROM prs_perslid WHERE prs_perslid_oslogin = '_HMAIL');
+
+-- Toevoegen ontbrekende gebruiker om PUTORDERS-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags,
+                         prs_perslid_opmerking)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. Putorders-koppeling',
+          '_PUTORDERS',
+          fac.getsetting('puo_fclt_web_apikey'),
+          36,
+          'System account for outgoing email.'||CHR(13)||'For Facilitor internal use'
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR'
+      AND NOT EXISTS (SELECT 1 FROM prs_perslid WHERE prs_perslid_oslogin = '_PUTORDERS');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66686
+DELETE FROM fac_notificatie
+ WHERE fac_notificatie_status IN (0,16)
+   AND fac_notificatie_systeemadres IS NULL
+   AND prs_bedrijfadres_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56923
+DELETE FROM fac_api
+ WHERE LOWER(fac_api_filepath) IN ('appl/api/api_perslid.asp', 'appl/api/api_ressoap_info.asp');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65005
+
+ALTER TABLE fac_import_app ADD
+  fac_import_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key4 REFERENCES fac_functie(fac_functie_key);
+
+ALTER TABLE fac_export_app ADD
+  fac_export_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key5 REFERENCES fac_functie(fac_functie_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66924
+ALTER TABLE fac_imp_catalogus        ADD ( ins_srtdeel_sensortype         NUMBER(3)
+                                         , ins_srtdeel_acadsymbol_dwgx    NUMBER(16,3)
+                                         , ins_srtdeel_acadsymbol_dwgy    NUMBER(16,3)
+                                         , ins_srtdeel_externnr           VARCHAR2(256) );
+ALTER TABLE fac_imp_mld              ADD ( mld_stdmelding_externnr        VARCHAR2(256) );
+ALTER TABLE fac_imp_organisatie      ADD ( prs_afdeling_externid          VARCHAR2 (256) );
+ALTER TABLE fac_imp_kpn              ADD ( prs_kostenplaats_externnr      VARCHAR2(256) );
+ALTER TABLE fac_imp_perslid          ADD ( prs_perslid_visibility         NUMBER(3)
+                                         , prs_perslid_externid           VARCHAR2(256) );
+ALTER TABLE fac_imp_ins              ADD ( ins_deel_externnr              VARCHAR2(256) );
+ALTER TABLE fac_imp_res_artikel_sync ADD ( res_artikel_externnr           VARCHAR2(256) );
+ALTER TABLE fac_imp_bedrijfadres     ADD ( prs_bedrijfadres_plugin        VARCHAR2 (320)
+                                         , prs_bedrijfadres_plugindata    VARCHAR2 (4000) );
+ALTER TABLE fac_imp_factuur          ADD ( externnr                       VARCHAR2(256) );
+ALTER TABLE fac_imp_flex             ADD ( kenmerk_wissen                 NUMBER(1) );
+ALTER TABLE fac_imp_faq              ADD ( fac_faq_vervaldatum            DATE );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66929
+ALTER TABLE imp_schedule ADD (
+  prs_perslid_key
+  NUMBER(10)
+  CONSTRAINT imp_r_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64018
+-- Dan hebben we de oude waarde in de logging
+SELECT fac_setting_pvalue
+  FROM fac_setting
+ WHERE fac_setting_name = 'csstemplate';
+
+-- Styling resetten
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'csstemplate';
+
+/////////////////////////////////////////////////////////////////////////////////////////// KFHT#67002
+ALTER TABLE prs_contactpersoon MODIFY (prs_contactpersoon_email VARCHAR2(200));
+
+/////////////////////////////////////////////////////////////////////////////////////////// DLLG#60172
+DEF_MENUITEM(3, 'lcl_mobile_res_catering',  '', 'RES', 'appl/pda/reservering.asp?restype=C', 0, 0, 'WEB_RESUSE', 'W', '0', 'fa-coffee');
+MENU_INS_AFTER('lcl_mobile_res_catering', 'lcl_mobile_res_voorziening', 2);
+DEF_MENUITEM(3, 'lcl_mobile_res_looplijst', '', 'RES', 'appl/pda/catering_looplijst.asp',    0, 0, 'WEB_RESUSE', 'W', '0', 'fa-person-carry');
+MENU_INS_AFTER('lcl_mobile_res_looplijst', 'lcl_mobile_res_catering', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#67053
+
+-- Verwijder alle kenmerken met kenmerktype 'Q' / Blanco, incl. references (ALG, BEZ, FAQ, FIN, PRS)
+DELETE FROM alg_onrgoedkenmerk
+      WHERE alg_kenmerk_key IN
+                (SELECT alg_kenmerk_key
+                   FROM alg_kenmerk
+                  WHERE alg_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM alg_kenmerk
+      WHERE alg_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM bez_kenmerkwaarde
+      WHERE bez_kenmerk_key IN
+                (SELECT bez_kenmerk_key
+                   FROM bez_kenmerk
+                  WHERE bez_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM bez_kenmerk
+      WHERE bez_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM faq_kenmerk
+      WHERE faq_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM fin_kenmerkfactregel
+      WHERE fin_kenmerk_key IN
+                (SELECT fin_kenmerk_key
+                   FROM fin_kenmerk
+                  WHERE fin_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM fin_kenmerk
+      WHERE fin_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM prs_kenmerk
+      WHERE prs_kenmerk_kenmerktype = 'Q';
+
+-- Verwijder alle kenmerken van een kenmerksoort met kenmerktype 'Q' / Blanco, incl. references (BES, CNT, INS, MLD, RES)
+DELETE FROM bes_kenmerkbestell
+      WHERE bes_kenmerk_key IN
+                (SELECT bes_kenmerk_key
+                   FROM bes_kenmerk
+                  WHERE bes_srtkenmerk_key IN
+                            (SELECT bes_srtkenmerk_key
+                               FROM bes_srtkenmerk
+                              WHERE bes_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM bes_kenmerkbesteli
+      WHERE bes_kenmerk_key IN
+                (SELECT bes_kenmerk_key
+                   FROM bes_kenmerk
+                  WHERE bes_srtkenmerk_key IN
+                            (SELECT bes_srtkenmerk_key
+                               FROM bes_srtkenmerk
+                              WHERE bes_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM bes_kenmerk
+      WHERE bes_srtkenmerk_key IN
+                (SELECT bes_srtkenmerk_key
+                   FROM bes_srtkenmerk
+                  WHERE bes_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM cnt_kenmerkcontract
+      WHERE cnt_kenmerk_key IN
+                (SELECT cnt_kenmerk_key
+                   FROM cnt_kenmerk
+                  WHERE cnt_srtkenmerk_key IN
+                            (SELECT cnt_srtkenmerk_key
+                               FROM cnt_srtkenmerk
+                              WHERE cnt_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM cnt_kenmerk
+      WHERE cnt_srtkenmerk_key IN
+                (SELECT cnt_srtkenmerk_key
+                   FROM cnt_srtkenmerk
+                  WHERE cnt_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM ins_kenmerkdeel
+      WHERE ins_kenmerk_key IN
+                (SELECT ins_kenmerk_key
+                   FROM ins_kenmerk
+                  WHERE ins_srtkenmerk_key IN
+                            (SELECT ins_srtkenmerk_key
+                               FROM ins_srtkenmerk
+                              WHERE ins_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM ins_kenmerk
+      WHERE ins_srtkenmerk_key IN (SELECT ins_srtkenmerk_key
+                                     FROM ins_srtkenmerk
+                                    WHERE ins_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM mld_kenmerkmelding
+      WHERE mld_kenmerk_key IN
+                (SELECT mld_kenmerk_key
+                   FROM mld_kenmerk
+                  WHERE mld_srtkenmerk_key IN
+                            (SELECT mld_srtkenmerk_key
+                               FROM mld_srtkenmerk
+                              WHERE mld_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM mld_kenmerkopdr
+      WHERE mld_kenmerk_key IN
+                (SELECT mld_kenmerk_key
+                   FROM mld_kenmerk
+                  WHERE mld_srtkenmerk_key IN
+                            (SELECT mld_srtkenmerk_key
+                               FROM mld_srtkenmerk
+                              WHERE mld_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM mld_kenmerk
+      WHERE mld_srtkenmerk_key IN (SELECT mld_srtkenmerk_key
+                                     FROM mld_srtkenmerk
+                                    WHERE mld_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM res_kenmerk
+      WHERE res_srtkenmerk_key IN (SELECT res_srtkenmerk_key
+                                     FROM res_srtkenmerk
+                                    WHERE res_srtkenmerk_kenmerktype = 'Q');
+
+-- Verwijder alle kenmerksoorten met kenmerktype 'Q' / Blanco, incl. references (BES, CNT, INS, MLD, RES)
+DELETE FROM bes_srtkenmerk
+      WHERE bes_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM cnt_srtkenmerk
+      WHERE cnt_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM ins_srtkenmerk
+      WHERE ins_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM mld_srtkenmerk
+      WHERE mld_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM res_srtkenmerk
+      WHERE res_srtkenmerk_kenmerktype = 'Q';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#*****
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB39to40g.src

@@ -0,0 +1,712 @@
+/*
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64792
+-- Setting is al handmatig overgenomen naar fg_move_origin
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'fac_reserved_number1';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63749
+UPDATE ins_tab_discipline
+   SET INS_DISCIPLINE_IMAGE = SUBSTR(INS_DISCIPLINE_IMAGE, 1, LENGTH(INS_DISCIPLINE_IMAGE) - 2)
+ WHERE INS_DISCIPLINE_IMAGE LIKE '%-o';
+
+UPDATE ins_srtdiscipline
+   SET INS_SRTDISCIPLINE_IMAGE = SUBSTR(INS_SRTDISCIPLINE_IMAGE, 1, LENGTH(INS_SRTDISCIPLINE_IMAGE) - 2)
+ WHERE INS_SRTDISCIPLINE_IMAGE LIKE '%-o';
+
+UPDATE mld_stdmelding
+   SET mld_stdmelding_image = SUBSTR(mld_stdmelding_image, 1, LENGTH(mld_stdmelding_image) - 2)
+ WHERE mld_stdmelding_image LIKE '%-o';
+
+UPDATE fac_menu
+   SET fac_menu_image = SUBSTR(fac_menu_image, 1, LENGTH(fac_menu_image) - 2)
+ WHERE fac_menu_image LIKE '%-o';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_image = SUBSTR(fac_menuitems_image, 1, LENGTH(fac_menuitems_image) - 2)
+ WHERE fac_menuitems_image LIKE '%-o';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-sliders-v-square'
+ WHERE fac_menu_image = 'fa-sliders';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63749 2e batch
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-blank'
+ WHERE fac_menu_image = 'blank';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-euro-sign'
+ WHERE fac_menu_image = 'fa-eur';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-money-bill'
+ WHERE fac_menu_image = 'fa-money';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-pie'
+ WHERE fac_menu_image = 'fa-pie-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-blank'
+ WHERE fac_menu_image = 'blank';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-sliders-v'
+ WHERE fac_menu_image = 'fa-sliders';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-bar'
+ WHERE fac_menu_image = 'fa-bar-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-credit-card'
+ WHERE fac_menu_image = 'fa-vcard';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-line'
+ WHERE fac_menu_image = 'fa-line-chart';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-utensils-alt'
+ WHERE fac_menu_image = 'fa-cutlery';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-file-alt'
+ WHERE fac_menu_image = 'fa-file-text';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-cog'
+ WHERE fac_menu_image = 'fa-gear';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-chart-line'
+ WHERE fac_menu_image = 'fa-chart';
+
+  UPDATE fac_menu
+   SET fac_menu_image = 'fa-cogs'
+ WHERE fac_menu_image = 'fa-gears';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-euro-sign'
+ WHERE fac_menu_image = 'fa-euro';
+
+UPDATE fac_menu
+   SET fac_menu_image = 'fa-exclamation-triangle'
+ WHERE fac_menu_image = 'fa-warning';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_image = 'fa-file-alt'
+ WHERE fac_menuitems_image = 'fa-file-text';
+
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAGN#61402
+DEF_FAC_SRTNOT('ORDCAE', 0, 'lcl_noti_ORDCAE', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('ORDCAI', 0, 'lcl_noti_ORDCAI', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#64001
+ALTER TABLE mld_kenmerk
+  ADD mld_kenmerk_wissen NUMBER(1) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63906
+ALTER TABLE res_activiteit
+  ADD res_activiteit_image VARCHAR2(255);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64850
+DELETE fac_kenmwaarden;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64624
+ALTER TABLE res_rsv_ruimte
+  ADD res_rsv_ruimte_van_actual DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60030
+ALTER TABLE alg_regio          ADD (         alg_regio_externnr VARCHAR2(256),       alg_regio_externsyncdate DATE);
+ALTER TABLE alg_district       ADD (      alg_district_externnr VARCHAR2(256),    alg_district_externsyncdate DATE);
+ALTER TABLE alg_locatie        ADD (       alg_locatie_externnr VARCHAR2(256),     alg_locatie_externsyncdate DATE);
+ALTER TABLE alg_terreinsector  ADD ( alg_terreinsector_externnr VARCHAR2(256),  alg_terreinsector_extsyncdate DATE);
+ALTER TABLE alg_gebouw         ADD (        alg_gebouw_externnr VARCHAR2(256),      alg_gebouw_externsyncdate DATE);
+ALTER TABLE alg_verdieping     ADD (    alg_verdieping_externnr VARCHAR2(256),  alg_verdieping_externsyncdate DATE);
+ALTER TABLE alg_ruimte         ADD (        alg_ruimte_externnr VARCHAR2(256),      alg_ruimte_externsyncdate DATE);
+ALTER TABLE bes_bestelling     ADD (    bes_bestelling_externnr VARCHAR2(256),  bes_bestelling_externsyncdate DATE);
+ALTER TABLE bes_bestelopdr     ADD (    bes_bestelopdr_externnr VARCHAR2(256),  bes_bestelopdr_externsyncdate DATE);
+ALTER TABLE bez_afspraak       ADD (      bez_afspraak_externnr VARCHAR2(256),    bez_afspraak_externsyncdate DATE);
+ALTER TABLE bez_bezoekers      ADD (     bez_bezoekers_externnr VARCHAR2(256),   bez_bezoekers_externsyncdate DATE);
+ALTER TABLE fin_factuur        ADD (       fin_factuur_externnr VARCHAR2(256),     fin_factuur_externsyncdate DATE);
+ALTER TABLE ins_srtdiscipline  ADD ( ins_srtdiscipline_externnr VARCHAR2(256),  ins_srtdiscipline_extsyncdate DATE);
+ALTER TABLE ins_tab_discipline ADD (    ins_discipline_externnr VARCHAR2(256),  ins_discipline_externsyncdate DATE);
+ALTER TABLE ins_srtgroep       ADD (      ins_srtgroep_externnr VARCHAR2(256),    ins_srtgroep_externsyncdate DATE);
+ALTER TABLE ins_srtdeel        ADD (       ins_srtdeel_externnr VARCHAR2(256),     ins_srtdeel_externsyncdate DATE);
+ALTER TABLE ins_deel           ADD (          ins_deel_externnr VARCHAR2(256),        ins_deel_externsyncdate DATE);
+ALTER TABLE mld_opdr_materiaal ADD (mld_opdr_materiaal_externnr VARCHAR2(256), mld_opdr_materiaal_extsyncdate DATE);
+ALTER TABLE mld_stdmelding     ADD (    mld_stdmelding_externnr VARCHAR2(256),  mld_stdmelding_externsyncdate DATE);
+ALTER TABLE res_deel           ADD (          res_deel_externnr VARCHAR2(256),        res_deel_externsyncdate DATE);
+ALTER TABLE res_artikel        ADD (       res_artikel_externnr VARCHAR2(256),     res_artikel_externsyncdate DATE);
+ALTER TABLE res_ruimte         ADD (                                                res_ruimte_externsyncdate DATE);
+ALTER TABLE res_rsv_artikel    ADD (   res_rsv_artikel_externnr VARCHAR2(256), res_rsv_artikel_externsyncdate DATE);
+ALTER TABLE res_rsv_deel       ADD (      res_rsv_deel_externnr VARCHAR2(256),    res_rsv_deel_externsyncdate DATE);
+ALTER TABLE res_rsv_ruimte     ADD (                                            res_rsv_ruimte_externsyncdate DATE);
+ALTER TABLE res_reservering    ADD (   res_reservering_externnr VARCHAR2(256), res_reservering_externsyncdate DATE);
+
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_externsyncdate1 DATE);
+ALTER TABLE prs_bedrijf_bedrijf ADD (  prs_bedrijf_externsyncdate2 DATE);
+ALTER TABLE prs_afdeling        ADD (  prs_afdeling_externsyncdate DATE);
+ALTER TABLE prs_perslid         ADD (   prs_perslid_externsyncdate DATE);
+ALTER TABLE prs_kostenplaats    ADD (    prs_kostenplaats_externnr VARCHAR2(256),   prs_kostenplaats_extsyncdate DATE);
+ALTER TABLE prs_werkplek        ADD (        prs_werkplek_externnr VARCHAR2(256),    prs_werkplek_externsyncdate DATE);
+ALTER TABLE prs_perslidwerkplek ADD ( prs_perslidwerkplek_externnr VARCHAR2(256),   prs_perslidwerkplek_extsyncd DATE);
+ALTER TABLE prs_contactpersoon  ADD (  prs_contactpersoon_externnr VARCHAR2(256), prs_contactpersoon_extsyncdate DATE);
+
+ALTER TABLE prs_bedrijf_bedrijf MODIFY prs_bedrijf_externid1 VARCHAR2(256);
+ALTER TABLE prs_bedrijf_bedrijf MODIFY prs_bedrijf_externid2 VARCHAR2(256);
+ALTER TABLE prs_afdeling        MODIFY prs_afdeling_externid VARCHAR2(256);
+ALTER TABLE prs_perslid         MODIFY prs_perslid_externid  VARCHAR2(256);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64883
+ALTER TABLE fac_version DROP COLUMN fac_version_major;
+ALTER TABLE fac_version DROP COLUMN fac_version_minor;
+ALTER TABLE fac_version DROP COLUMN fac_version_patch;
+
+DELETE fac_message
+ WHERE fac_message_code = 'FAC_M005';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65049
+_FAC_MODULE('CHT', 'lcl_module_CHT')
+
+DEF_FAC_FUNCTIE3('WEB_CHTOPR', 'CHT',  0, 1,    0);
+DEF_FAC_FUNCTIE3('WEB_CHTREQ', 'CHT',  0, 1,    0);
+
+DEF_MENUITEM(2, 'lcl_menu_cht_chatkanalen', '', 'CHT', 'appl/mgt/cht_discipline.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_chatkanalen', 'lcl_menu_fac_notificaties', 2);
+
+DEF_MENUITEM(0, 'lcl_menu_cht_chatnow'          , '', 'CHT', 'appl/chat/ChatterWant.asp', 0, 1, 'WEB_CHTREQ', 'R', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_chatnow', 'lcl_menu_fe_search', 2);
+
+DEF_MENUITEM(1, 'lcl_menu_cht_incoming'          , '', 'CHT', 'appl/chat/ChatterAccept.asp', 0, 1, 'WEB_CHTOPR', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_cht_incoming', 'lcl_menu_sle_sleutels', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64375
+UPDATE fac_usrgraph
+   SET fac_usrgraph_options = REPLACE (fac_usrgraph_options, '      "renderer": "$.jqplot.BarRenderer",' || CHR(10), '')
+ WHERE fac_usrgraph_omschrijving = 'Category';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#63800
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/msg/fac_nieuws_search.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_msg_overzicht';
+
+UPDATE fac_menuitems
+   SET fac_menuitems_label = 'lcl_menu_msg_bericht_maken',
+       fac_menuitems_default = 1
+ WHERE fac_menuitems_label = 'lcl_menu_msg_berichten';
+
+/* Nu default wel in het menu, dat dan ook even voor bestaande klanten; */
+INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr)
+    SELECT fac_menuitems_key, fac_menuitems_key * 100
+      FROM fac_menuitems i
+     WHERE     fac_menuitems_label = 'lcl_menu_msg_bericht_maken'
+           AND i.fac_menuitems_key NOT IN
+                   (SELECT m.fac_menuitems_key
+                      FROM fac_menu m
+                     WHERE m.fac_menuitems_key IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66753
+DELETE FROM mld_melding_object mmo
+ WHERE mmo.mld_melding_key NOT IN (SELECT mld_melding_key FROM mld_melding);
+
+DELETE FROM mld_melding_object mmo
+ WHERE mmo.mld_melding_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#65182
+ALTER TABLE fin_kenmerkfactuur   DROP CONSTRAINT fin_r_fin_factuur_key;
+ALTER TABLE fin_factuurregel     DROP CONSTRAINT fin_r_fin_factuurregel1;
+ALTER TABLE fin_kenmerkfactregel DROP CONSTRAINT fin_r_fin_factuurregel_key;
+ALTER TABLE bes_bestelling       DROP CONSTRAINT bes_r_mld_melding1;
+ALTER TABLE cnt_contract_object  DROP CONSTRAINT cnt_r_cnt_contract_key_object;
+ALTER TABLE cnt_contract_plaats  DROP CONSTRAINT cnt_r_cnt_contract_key_plaats;
+ALTER TABLE cnt_contract_dienst  DROP CONSTRAINT cnt_r_cnt_contract_dienst;
+ALTER TABLE cnt_factuurschema    DROP CONSTRAINT cnt_r_cnt_factuurschema1;
+ALTER TABLE res_rsv_deel         DROP CONSTRAINT res_c_res_rsv_ruimte_key;
+ALTER TABLE res_rsv_artikel      DROP CONSTRAINT res_c_res_rsv_ruimte_key2;
+ALTER TABLE mld_melding          DROP CONSTRAINT mld_r_res_rsv_ruimte_key;
+ALTER TABLE mld_opdr             DROP CONSTRAINT mld_r_cnt_contract_key;
+ALTER TABLE mld_opdr_materiaal   DROP CONSTRAINT mld_r_mld_opdr_key3;
+ALTER TABLE mld_opdr_uitvoeren   DROP CONSTRAINT mld_r_mld_opdr_key2;
+ALTER TABLE mld_opdr_uren        DROP CONSTRAINT mld_r_mld_opdr_key1;
+
+ALTER TABLE fin_kenmerkfactuur   MODIFY fin_factuur_key      CONSTRAINT fin_r_fin_factuur_key         REFERENCES fin_factuur(fin_factuur_key)           ON DELETE CASCADE;
+ALTER TABLE fin_factuurregel     MODIFY fin_factuur_key      CONSTRAINT fin_r_factuurregel1           REFERENCES fin_factuur(fin_factuur_key)           ON DELETE CASCADE;
+ALTER TABLE fin_kenmerkfactregel MODIFY fin_factuurregel_key CONSTRAINT fin_r_fin_factuurregel_key    REFERENCES fin_factuurregel(fin_factuurregel_key) ON DELETE CASCADE;
+ALTER TABLE bes_bestelling       MODIFY mld_melding_key      CONSTRAINT bes_r_mld_melding1            REFERENCES mld_melding(mld_melding_key)           ON DELETE SET NULL;
+ALTER TABLE cnt_contract_object  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_key_object REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_contract_plaats  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_key_plaats REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_contract_dienst  MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_contract_dienst     REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE cnt_factuurschema    MODIFY cnt_contract_key     CONSTRAINT cnt_r_cnt_factuurschema1      REFERENCES cnt_contract(cnt_contract_key)         ON DELETE CASCADE;
+ALTER TABLE res_rsv_deel         MODIFY res_rsv_ruimte_key   CONSTRAINT res_c_res_rsv_ruimte_key      REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE CASCADE;
+ALTER TABLE res_rsv_artikel      MODIFY res_rsv_ruimte_key   CONSTRAINT res_c_res_rsv_ruimte_key2     REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE CASCADE;
+ALTER TABLE mld_melding          MODIFY res_rsv_ruimte_key   CONSTRAINT mld_r_res_rsv_ruimte_key      REFERENCES res_rsv_ruimte(res_rsv_ruimte_key)     ON DELETE SET NULL;
+ALTER TABLE mld_melding_object   MODIFY mld_melding_key      CONSTRAINT mld_r_mld_melding_key5        REFERENCES mld_melding(mld_melding_key)           ON DELETE CASCADE;
+ALTER TABLE mld_opdr             MODIFY cnt_contract_key     CONSTRAINT mld_r_cnt_contract_key        REFERENCES cnt_contract(cnt_contract_key)         ON DELETE SET NULL;
+ALTER TABLE mld_opdr_materiaal   MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key3           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+ALTER TABLE mld_opdr_uitvoeren   MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key2           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+ALTER TABLE mld_opdr_uren        MODIFY mld_opdr_key         CONSTRAINT mld_r_mld_opdr_key1           REFERENCES mld_opdr(mld_opdr_key)                 ON DELETE CASCADE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// LOGC#65120
+DEF_FAC_SRTNOT('PRSREG', 127, 'lcl_noti_PRSREG', '', '0', 'perslid', 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65498
+UPDATE fac_version
+   SET fac_version_cust = UPPER(fac_version_cust)
+     , fac_version_group = UPPER(fac_version_group);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64726
+ALTER TABLE ins_srtdeel
+ ADD ins_srtdeel_sensortype NUMBER(3) DEFAULT 0 NOT NULL;
+CREATE INDEX ins_i_ins_srtdeel7 ON ins_srtdeel(ins_srtdeel_sensortype);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#64081
+DEF_FAC_SRTNOT('BEZBEZ', 18, 'lcl_noti_BEZBEZ', '', '0', 'afspraak', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64717
+ALTER TABLE prs_bedrijfadres DROP CONSTRAINT prs_c_prs_bedrijfadrestype;
+ALTER TABLE prs_bedrijfadres ADD  CONSTRAINT prs_c_prs_bedrijfadrestype CHECK (prs_bedrijfadres_type IN ('O','B','C','V','N','I'));
+ALTER TABLE fac_notificatie ADD prs_bedrijfadres_key
+    NUMBER(10) CONSTRAINT prs_r_bedrijfadres_key1
+    REFERENCES prs_bedrijfadres(prs_bedrijfadres_key) ON DELETE CASCADE;
+
+ALTER TABLE fac_notificatie_job ADD fac_notificatie_job_seconds NUMBER(5);
+ALTER TABLE fac_notificatie_job ADD CONSTRAINT fac_c_notificatie_job1 CHECK((fac_notificatie_job_interval IS NOT NULL AND fac_notificatie_job_seconds IS NULL) OR (fac_notificatie_job_interval IS NULL AND fac_notificatie_job_seconds IS NOT NULL));
+ALTER TABLE fac_notificatie_job ADD fac_notificatie_job_queue VARCHAR2(20) DEFAULT 'DEFAULT' NOT NULL;
+ALTER TABLE fac_notificatie ADD fac_notificatie_queue VARCHAR2(20) DEFAULT 'DEFAULT' NOT NULL;
+
+DEF_FAC_SRTNOT('FACTST', 0, 'lcl_noti_FACTST', '', '0', 'perslid', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#65726
+
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_plugin VARCHAR(320);
+ALTER TABLE prs_bedrijfadres
+    ADD prs_bedrijfadres_plugindata VARCHAR(4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// YKPN#64730
+ALTER TABLE res_activiteit DROP CONSTRAINT res_c_activiteit_aantal;
+ALTER TABLE res_activiteit ADD  CONSTRAINT res_c_activiteit_aantal CHECK(res_activiteit_aantalverplicht IN (0,1,2));
+
+///////////////////////////////////////////////////////////////////////////////////////////  ARAI#59648
+ALTER TABLE mld_melding ADD mld_melding_dwgx NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_dwgy NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_dwgz NUMBER(16,3);
+ALTER TABLE mld_melding ADD mld_melding_x NUMBER(16,6);
+ALTER TABLE mld_melding ADD mld_melding_y NUMBER(16,6);
+ALTER TABLE mld_melding ADD mld_melding_z NUMBER(16,6);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#65858
+ALTER TABLE fac_imp_onrgoed2 MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_perslid MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_ins MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE fac_imp_sle MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE alg_ruimte MODIFY alg_ruimte_nr VARCHAR2(20);
+ALTER TABLE alg_ruimte MODIFY alg_ruimte_upper_nr VARCHAR2(20);
+ALTER TABLE prj_ruimte MODIFY prj_ruimte_nr VARCHAR2(20);
+ALTER TABLE prj_ruimte MODIFY prj_ruimte_upper_nr VARCHAR2(20);
+
+/////////////////////////////////////////////////////////////////////////////////////////// GDZW#65247
+ALTER TABLE bez_bezoekers ADD bez_bezoekers_done_actual DATE;
+ALTER TABLE bez_bezoekers ADD bez_bezoekers_out_actual DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#65917
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantal NUMBER (15, 3);
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantalontv NUMBER (15, 3);
+ALTER TABLE bes_bestelopdr_item MODIFY bes_bestelopdr_item_aantalexp NUMBER (15, 3);
+ALTER TABLE bes_bestelling_item MODIFY bes_bestelling_item_aantal NUMBER (15, 3);
+ALTER TABLE bes_bestelling_item MODIFY bes_bestelling_item_aantalontv NUMBER (15, 3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#65934
+ALTER TABLE mld_melding ADD mld_melding_actiedatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// AAXX#65358
+DECLARE
+    -- Bij afgemelden(5) of voltooien(6) van periodieke inspecties (NIET MJOB) wordt het veld ins_deelsrtcontrole_freezecost pas gevuld.
+    -- Het veld ins_deelsrtcontrole_freezedate veld wordt daarbij nooit gevuld. Dat gebeurd alleen bij MJOB taken.
+    -- Alle afgemelde of voltooide periodieke inspecties (NIET MJOB) ophalen waarvoor geldt:
+    -- 1) de freezecost zijn groter dan 0 en
+    -- 2) het aantal van het bijbehorende object is groter dan 1.
+    CURSOR c_freezecost IS
+        SELECT idsc.ins_deelsrtcontrole_key,
+               id.ins_deel_aantal
+          FROM ins_deelsrtcontrole idsc,
+               ins_deel id,
+               ins_srtcontrole isc,
+               ctr_disc_params cdp
+         WHERE idsc.ins_deel_key = id.ins_deel_key
+           AND idsc.ins_srtcontrole_key = isc.ins_srtcontrole_key
+           AND isc.ctr_discipline_key = cdp.ctr_ins_discipline_key
+           AND idsc.ins_deelsrtcontrole_status IN (5, 6)
+           AND idsc.ins_deelsrtcontrole_freezedate IS NULL
+           AND id.ins_deel_aantal > 1
+           AND idsc.ins_deelsrtcontrole_freezecost > 0
+           AND cdp.ctr_disc_params_ismjob = 0;
+
+BEGIN
+    FOR f_freezecost IN c_freezecost
+    LOOP
+        -- Vermenigvuldig het totaalbedrag (freezecost) met het aantal opbjecten.
+        UPDATE ins_deelsrtcontrole
+           SET ins_deelsrtcontrole_freezecost = (f_freezecost.ins_deel_aantal * ins_deelsrtcontrole_freezecost)
+         WHERE ins_deelsrtcontrole_key = f_freezecost.ins_deelsrtcontrole_key;
+    END LOOP;
+END;
+/
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#63145
+DROP INDEX res_i_res_deel3;
+CREATE UNIQUE INDEX res_i_res_deel3 ON res_deel(res_ins_deel_key, res_prs_perslid_key, res_discipline_key, res_deel_verwijder);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66178
+ALTER TABLE prs_perslid ADD prs_perslid_visibility NUMBER(3) DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#60561
+ALTER TABLE res_ruimte ADD res_ruimte_graphhooksecret VARCHAR(128);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66441
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadsymbol_dwgx NUMBER(16,3);
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_acadsymbol_dwgy NUMBER(16,3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65949
+ALTER TABLE bes_srtdeel MODIFY bes_srtdeel_veelvoud NUMBER(9,3);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FLEX#64726
+CREATE_TABLE(ins_deel_state_history_all, 0)
+(
+    ins_deel_state_history_all_key
+        NUMBER(10)
+        CONSTRAINT ins_k_deel_state_histall_key PRIMARY KEY,
+    ins_deel_key
+        NUMBER(10)
+        CONSTRAINT ins_r_ins_deel_key3 REFERENCES ins_deel(ins_deel_key),
+    ins_deel_statedate
+        DATE,
+    ins_deel_state
+        VARCHAR2(128),
+    ins_deel_statetime
+        NUMBER
+);
+
+CREATE SEQUENCE ins_s_ins_deel_st_histall_key MINVALUE 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65180
+ALTER TABLE fac_import_app ADD   fac_import_app_delimiter VARCHAR(2);
+ALTER TABLE fac_export_app ADD   fac_export_app_delimiter VARCHAR(2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#66368
+ALTER TABLE fac_faq ADD fac_faq_vervaldatum DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66612
+ALTER TABLE alg_gebouw MODIFY (alg_gebouw_dwgx NUMBER(16,3) );
+ALTER TABLE alg_gebouw MODIFY (alg_gebouw_dwgy NUMBER(16,3) );
+
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgx NUMBER(16,3) );
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgy NUMBER(16,3) );
+ALTER TABLE prj_deel MODIFY (prj_deel_dwgz NUMBER(16,3) );
+
+ALTER TABLE prj_scenario_note MODIFY (prj_scenario_note_DWGX NUMBER(16,3) );
+ALTER TABLE prj_scenario_note MODIFY (prj_scenario_note_DWGY NUMBER(16,3) );
+
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgx NUMBER(16,3) );
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgy NUMBER(16,3) );
+ALTER TABLE prj_werkplek MODIFY (prj_werkplek_dwgz NUMBER(16,3) );
+
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgx NUMBER(16,3) );
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgy NUMBER(16,3) );
+ALTER TABLE prs_werkplek MODIFY (prs_werkplek_dwgz NUMBER(16,3) );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#63210
+INSERT INTO fac_notificatie_job (fac_notificatie_job_view, fac_notificatie_job_oms, fac_notificatie_job_mode, fac_notificatie_job_interval, fac_notificatie_job_flags)
+     VALUES ('fac_v_noti_auditfail_day', 'Dagelijkse signaleringen van >5 inlogpogingen', 2, 24, 0);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66765
+drop index mld_i_mld_kenmerkmelding2;
+drop index mld_i_mld_kenmerkmelding3;
+
+drop index mld_i_mld_kenmerkopdr2;
+drop index mld_i_mld_kenmerkopdr3;
+
+drop index bes_i_bes_kenmerkbestell2;
+drop index bes_i_bes_kenmerkbestell3;
+
+drop index bes_i_bes_kenmerkbesteli2;
+drop index bes_i_bes_kenmerkbesteli3;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66677
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+
+-- Toevoegen ontbrekende gebruiker om HMAIL-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags,
+                         prs_perslid_opmerking)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. hMail-koppeling',
+          '_HMAIL',
+          DBMS_RANDOM.string ('a', 32),
+          36,
+          'System account for incoming email.'||CHR(13)||'For Facilitor internal use'
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR'
+      AND NOT EXISTS (SELECT 1 FROM prs_perslid WHERE prs_perslid_oslogin = '_HMAIL');
+
+-- Toevoegen ontbrekende gebruiker om PUTORDERS-API uit te voeren
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags,
+                         prs_perslid_opmerking)
+   SELECT prs_perslid_module,
+          prs_srtperslid_key,
+          prs_afdeling_key,
+          'API-user tbv. Putorders-koppeling',
+          '_PUTORDERS',
+          fac.getsetting('puo_fclt_web_apikey'),
+          36,
+          'System account for outgoing email.'||CHR(13)||'For Facilitor internal use'
+     FROM prs_perslid
+    WHERE prs_perslid_oslogin = '_FACILITOR'
+      AND NOT EXISTS (SELECT 1 FROM prs_perslid WHERE prs_perslid_oslogin = '_PUTORDERS');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66686
+DELETE FROM fac_notificatie
+ WHERE fac_notificatie_status IN (0,16)
+   AND fac_notificatie_systeemadres IS NULL
+   AND prs_bedrijfadres_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#56923
+DELETE FROM fac_api
+ WHERE LOWER(fac_api_filepath) IN ('appl/api/api_perslid.asp', 'appl/api/api_ressoap_info.asp');
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#65005
+
+ALTER TABLE fac_import_app ADD
+  fac_import_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key4 REFERENCES fac_functie(fac_functie_key);
+
+ALTER TABLE fac_export_app ADD
+  fac_export_app_browse_f_key
+    NUMBER(10)
+    CONSTRAINT fac_r_fac_functie_key5 REFERENCES fac_functie(fac_functie_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66924
+ALTER TABLE fac_imp_catalogus        ADD ( ins_srtdeel_sensortype         NUMBER(3)
+                                         , ins_srtdeel_acadsymbol_dwgx    NUMBER(16,3)
+                                         , ins_srtdeel_acadsymbol_dwgy    NUMBER(16,3)
+                                         , ins_srtdeel_externnr           VARCHAR2(256) );
+ALTER TABLE fac_imp_mld              ADD ( mld_stdmelding_externnr        VARCHAR2(256) );
+ALTER TABLE fac_imp_organisatie      ADD ( prs_afdeling_externid          VARCHAR2 (256) );
+ALTER TABLE fac_imp_kpn              ADD ( prs_kostenplaats_externnr      VARCHAR2(256) );
+ALTER TABLE fac_imp_perslid          ADD ( prs_perslid_visibility         NUMBER(3)
+                                         , prs_perslid_externid           VARCHAR2(256) );
+ALTER TABLE fac_imp_ins              ADD ( ins_deel_externnr              VARCHAR2(256) );
+ALTER TABLE fac_imp_res_artikel_sync ADD ( res_artikel_externnr           VARCHAR2(256) );
+ALTER TABLE fac_imp_bedrijfadres     ADD ( prs_bedrijfadres_plugin        VARCHAR2 (320)
+                                         , prs_bedrijfadres_plugindata    VARCHAR2 (4000) );
+ALTER TABLE fac_imp_factuur          ADD ( externnr                       VARCHAR2(256) );
+ALTER TABLE fac_imp_flex             ADD ( kenmerk_wissen                 NUMBER(1) );
+ALTER TABLE fac_imp_faq              ADD ( fac_faq_vervaldatum            DATE );
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#66929
+ALTER TABLE imp_schedule ADD (
+  prs_perslid_key
+  NUMBER(10)
+  CONSTRAINT imp_r_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#64018
+-- Dan hebben we de oude waarde in de logging
+SELECT fac_setting_pvalue
+  FROM fac_setting
+ WHERE fac_setting_name = 'csstemplate';
+
+-- Styling resetten
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'csstemplate';
+
+/////////////////////////////////////////////////////////////////////////////////////////// KFHT#67002
+ALTER TABLE prs_contactpersoon MODIFY (prs_contactpersoon_email VARCHAR2(200));
+
+/////////////////////////////////////////////////////////////////////////////////////////// DLLG#60172
+DEF_MENUITEM(3, 'lcl_mobile_res_catering',  '', 'RES', 'appl/pda/reservering.asp?restype=C', 0, 0, 'WEB_RESUSE', 'W', '0', 'fa-coffee');
+MENU_INS_AFTER('lcl_mobile_res_catering', 'lcl_mobile_res_voorziening', 2);
+DEF_MENUITEM(3, 'lcl_mobile_res_looplijst', '', 'RES', 'appl/pda/catering_looplijst.asp',    0, 0, 'WEB_RESUSE', 'W', '0', 'fa-person-carry');
+MENU_INS_AFTER('lcl_mobile_res_looplijst', 'lcl_mobile_res_catering', 2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#67053
+
+-- Verwijder alle kenmerken met kenmerktype 'Q' / Blanco, incl. references (ALG, BEZ, FAQ, FIN, PRS)
+DELETE FROM alg_onrgoedkenmerk
+      WHERE alg_kenmerk_key IN
+                (SELECT alg_kenmerk_key
+                   FROM alg_kenmerk
+                  WHERE alg_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM alg_kenmerk
+      WHERE alg_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM bez_kenmerkwaarde
+      WHERE bez_kenmerk_key IN
+                (SELECT bez_kenmerk_key
+                   FROM bez_kenmerk
+                  WHERE bez_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM bez_kenmerk
+      WHERE bez_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM faq_kenmerk
+      WHERE faq_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM fin_kenmerkfactregel
+      WHERE fin_kenmerk_key IN
+                (SELECT fin_kenmerk_key
+                   FROM fin_kenmerk
+                  WHERE fin_kenmerk_kenmerktype = 'Q');
+
+DELETE FROM fin_kenmerk
+      WHERE fin_kenmerk_kenmerktype = 'Q';
+
+DELETE FROM prs_kenmerk
+      WHERE prs_kenmerk_kenmerktype = 'Q';
+
+-- Verwijder alle kenmerken van een kenmerksoort met kenmerktype 'Q' / Blanco, incl. references (BES, CNT, INS, MLD, RES)
+DELETE FROM bes_kenmerkbestell
+      WHERE bes_kenmerk_key IN
+                (SELECT bes_kenmerk_key
+                   FROM bes_kenmerk
+                  WHERE bes_srtkenmerk_key IN
+                            (SELECT bes_srtkenmerk_key
+                               FROM bes_srtkenmerk
+                              WHERE bes_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM bes_kenmerkbesteli
+      WHERE bes_kenmerk_key IN
+                (SELECT bes_kenmerk_key
+                   FROM bes_kenmerk
+                  WHERE bes_srtkenmerk_key IN
+                            (SELECT bes_srtkenmerk_key
+                               FROM bes_srtkenmerk
+                              WHERE bes_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM bes_kenmerk
+      WHERE bes_srtkenmerk_key IN
+                (SELECT bes_srtkenmerk_key
+                   FROM bes_srtkenmerk
+                  WHERE bes_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM cnt_kenmerkcontract
+      WHERE cnt_kenmerk_key IN
+                (SELECT cnt_kenmerk_key
+                   FROM cnt_kenmerk
+                  WHERE cnt_srtkenmerk_key IN
+                            (SELECT cnt_srtkenmerk_key
+                               FROM cnt_srtkenmerk
+                              WHERE cnt_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM cnt_kenmerk
+      WHERE cnt_srtkenmerk_key IN
+                (SELECT cnt_srtkenmerk_key
+                   FROM cnt_srtkenmerk
+                  WHERE cnt_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM ins_kenmerkdeel
+      WHERE ins_kenmerk_key IN
+                (SELECT ins_kenmerk_key
+                   FROM ins_kenmerk
+                  WHERE ins_srtkenmerk_key IN
+                            (SELECT ins_srtkenmerk_key
+                               FROM ins_srtkenmerk
+                              WHERE ins_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM ins_kenmerk
+      WHERE ins_srtkenmerk_key IN (SELECT ins_srtkenmerk_key
+                                     FROM ins_srtkenmerk
+                                    WHERE ins_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM mld_kenmerkmelding
+      WHERE mld_kenmerk_key IN
+                (SELECT mld_kenmerk_key
+                   FROM mld_kenmerk
+                  WHERE mld_srtkenmerk_key IN
+                            (SELECT mld_srtkenmerk_key
+                               FROM mld_srtkenmerk
+                              WHERE mld_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM mld_kenmerkopdr
+      WHERE mld_kenmerk_key IN
+                (SELECT mld_kenmerk_key
+                   FROM mld_kenmerk
+                  WHERE mld_srtkenmerk_key IN
+                            (SELECT mld_srtkenmerk_key
+                               FROM mld_srtkenmerk
+                              WHERE mld_srtkenmerk_kenmerktype = 'Q'));
+
+DELETE FROM mld_kenmerk
+      WHERE mld_srtkenmerk_key IN (SELECT mld_srtkenmerk_key
+                                     FROM mld_srtkenmerk
+                                    WHERE mld_srtkenmerk_kenmerktype = 'Q');
+
+DELETE FROM res_kenmerk
+      WHERE res_srtkenmerk_key IN (SELECT res_srtkenmerk_key
+                                     FROM res_srtkenmerk
+                                    WHERE res_srtkenmerk_kenmerktype = 'Q');
+
+-- Verwijder alle kenmerksoorten met kenmerktype 'Q' / Blanco, incl. references (BES, CNT, INS, MLD, RES)
+DELETE FROM bes_srtkenmerk
+      WHERE bes_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM cnt_srtkenmerk
+      WHERE cnt_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM ins_srtkenmerk
+      WHERE ins_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM mld_srtkenmerk
+      WHERE mld_srtkenmerk_kenmerktype = 'Q';
+
+DELETE FROM res_srtkenmerk
+      WHERE res_srtkenmerk_kenmerktype = 'Q';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#67972
+ALTER TABLE res_ruimte ADD res_ruimte_minbezoekers
+      NUMBER(5)
+      DEFAULT 0
+      CONSTRAINT res_c_ruimte_minbezoekers CHECK(res_ruimte_minbezoekers IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FMHN#67970
+ALTER TABLE bes_srtdeel ADD bes_srtdeel_maximum
+        NUMBER(6);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#*****
+///////////////////////////////////////////////////////////////////////////////////////////
+
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB39zto39.sql

@@ -0,0 +1,35 @@
+--
+-- $Id$
+--
+-- Last minute wijzigingen DB39
+
+
+DEFINE thisfile = 'DB39zto39.sql'
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+WHENEVER SQLERROR EXIT;
+SELECT adm.scriptspoolfile('&dbuser', '&thisfile') AS fcltlogfile FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+SPOOL &fcltlogfile
+SET DEFINE OFF
+
+------ payload begin ------
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// FCLT#61636
+ALTER TABLE res_rsv_artikel ADD res_rsv_artikel_geleverd DATE;
+ALTER TABLE res_rsv_deel    ADD res_rsv_deel_geleverd DATE;
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile

_UP/DB40eto40f.sql

@@ -0,0 +1,46 @@
+--
+-- $Id$
+--
+-- Aanpassingen om DB40e (prod) naar de () DB40f te brengen
+-- Merk op dat de recreate er nog bij komt die de DB-version bijwerkt
+--
+-- MOET OOK ZIJN/WORDEN OPGENOMEN IN DB39TO40f.src !!!
+
+DEFINE thisfile = 'DB40eto40f.sql'
+DEFINE dbuser   = '*'
+
+SET ECHO ON
+SET DEFINE ON
+COLUMN fcltlogfile NEW_VALUE fcltlogfile NOPRINT;
+COLUMN fcltcusterr NEW_VALUE fcltcusterr NOPRINT;
+WHENEVER SQLERROR CONTINUE;
+SELECT adm.getscriptspoolfile('&thisfile') AS fcltlogfile FROM DUAL;
+SPOOL &fcltlogfile
+WHENEVER SQLERROR EXIT;
+SELECT adm.checkscriptcust('&dbuser') AS fcltcusterr FROM DUAL;
+WHENEVER SQLERROR CONTINUE;
+PROMPT &fcltcusterr
+SET DEFINE OFF
+
+------ payload begin ------
+-- /////////////////////////////////////////////////////////////////////////////////////////// FMHN#67972
+ALTER TABLE res_ruimte ADD res_ruimte_minbezoekers
+      NUMBER(5)
+      DEFAULT 0
+      CONSTRAINT res_c_ruimte_minbezoekers CHECK(res_ruimte_minbezoekers IS NOT NULL);
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// FMHN#67970
+ALTER TABLE bes_srtdeel ADD bes_srtdeel_maximum
+        NUMBER(6);
+
+------ payload end   ------
+
+SET DEFINE OFF
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+/
+
+COMMIT;
+SET ECHO OFF
+SPOOL OFF
+SET DEFINE ON
+PROMPT Logfile of this upgrade is: &fcltlogfile