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

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

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)
 );
 
@@ -100,6 +108,16 @@ CREATE_TABLE(alg_locatie,0)
         NUMBER(16,6),
     alg_locatie_y
         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)
@@ -178,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)
@@ -190,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)
 );
 
@@ -215,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)
 );
 
@@ -280,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
@@ -301,10 +370,38 @@ CREATE_TABLE(alg_gebouw,0)
         DEFAULT 1
         CONSTRAINT alg_c_alg_gebouw_bez CHECK(alg_gebouw_bez IS NULL
                                            OR alg_gebouw_bez = 1),
+    alg_gebouw_mld
+        NUMBER(1)
+        DEFAULT(1)
+        CONSTRAINT alg_c_alg_gebouw_mld CHECK(alg_gebouw_mld IS NULL
+                                           OR alg_gebouw_mld = 1),
     alg_gebouw_email
         VARCHAR2(200),
     alg_gebouw_vervaldatum
         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,
+-- in MLD_TAB.SRC:
+--    mld_dienstniveau_key
+--        NUMBER(10)
+--        REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 
@@ -342,6 +439,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)
@@ -441,10 +542,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),
@@ -491,6 +592,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)
@@ -556,13 +661,15 @@ 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','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(1)
+        NUMBER(2)
     ,alg_kenmerk_toonbaar
        NUMBER(1)
     ,alg_kenmerk_uniek

ALG/ALG_VIE.SRC

@@ -146,7 +146,7 @@ CREATE_VIEW(alg_v_ruimte_gegevens, 0) AS
       AND alg_l.alg_locatie_key = alg_g.alg_locatie_key;
 
 CREATE_VIEW(alg_v_ruimte_gegevens_all, 0) AS
-   SELECT alg_l.alg_locatie_key, alg_l.alg_district_key, alg_l.alg_locatie_omschrijving, alg_l.alg_locatie_code,
+   SELECT alg_l.alg_locatie_key, alg_l.alg_district_key, alg_l.alg_locatie_omschrijving, alg_l.alg_locatie_adres, alg_l.alg_locatie_code,
           alg_l.alg_locatie_upper, alg_g.alg_gebouw_key, alg_g.alg_srtgebouw_key, alg_g.alg_gebouw_omschrijving,
           alg_g.alg_gebouw_upper, alg_v.alg_verdieping_key, alg_v.alg_verdieping_omschrijving,
           alg_v.alg_verdieping_upper, alg_v.alg_verdieping_volgnr, alg_v.alg_verdieping_code,
@@ -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,
@@ -937,8 +957,8 @@ CREATE_VIEW(ALG_V_ONRGOED_BOOM, 0 )
 (ALG_REGIO_KEY, ALG_DISTRICT_KEY, ALG_LOCATIE_KEY, ALG_GEBOUW_KEY, ALG_VERDIEPING_KEY,
  ALG_RUIMTE_KEY)
 AS
-SELECT a0.alg_regio_key, a1.alg_district_key, a2.alg_locatie_key,
-          a3.alg_gebouw_key, a4.alg_verdieping_key, a5.alg_ruimte_key
+SELECT a1.alg_regio_key, a2.alg_district_key, a3.alg_locatie_key,
+          a4.alg_gebouw_key, a5.alg_verdieping_key, a5.alg_ruimte_key
      FROM alg_regio a0,
           alg_district a1,
           alg_locatie a2,

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
@@ -185,6 +189,10 @@ CREATE TABLE aut_client_perslid
         VARCHAR(320),
     aut_client_perslid_device_name
         VARCHAR(320),
+    aut_client_perslid_appbuild
+        NUMBER(10),
+    aut_client_perslid_appversion
+        VARCHAR2(20),
     aut_client_perslid_scope
         VARCHAR(320)
         DEFAULT NULL,

BES/BES_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_INI.SRC

@@ -14,6 +14,7 @@ DEF_STATUS('bestelling', 5, 'lcl_bes_besteld');
 DEF_STATUS('bestelling', 6, 'lcl_bes_geleverd');
 DEF_STATUS('bestelling', 7, 'lcl_bes_verwerkt');
 DEF_STATUS('bestelling', 8, 'lcl_bes_is_bescan');
+DEF_STATUS('bestelling', 9, 'lcl_bes_ontvangen');
 
 DEF_STATUS('bestelopdr', 1, 'lcl_bes_ord_afgewezen');
 DEF_STATUS('bestelopdr', 2, 'lcl_bes_ord_new');

BES/BES_PAC.SRC

@@ -29,7 +29,7 @@ AS
    FUNCTION calcopdrachtkortingbedrag (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER)
       RETURN NUMBER;
 
-   FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER)
+   FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER, ppunchout IN NUMBER)
       RETURN NUMBER;
 
    FUNCTION calcbesopdrachtkorting (pbes_bestelopdr_key IN NUMBER, pautoupdate IN NUMBER)
@@ -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;
 /
 
@@ -334,12 +340,14 @@ AS
      RETURN lkortingsbedrag;
    END;
 
-   FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER)
+   FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER, ppunchout IN NUMBER)
       RETURN NUMBER
    AS
       lstaffelgroep bes_staffeltabel.bes_staffeltabel_groep%TYPE;
       lstaffeltabelkey bes_staffeltabel.bes_staffeltabel_key%TYPE;
-       lprijs bes_srtdeel_prijs.bes_srtdeel_prijs_prijs%TYPE;
+      laanvraagprijs  bes_srtdeel_prijs.bes_srtdeel_prijs_prijs%TYPE;
+      lcatalogusprijs bes_srtdeel_prijs.bes_srtdeel_prijs_prijs%TYPE;
+      lprijs          bes_srtdeel_prijs.bes_srtdeel_prijs_prijs%TYPE;
       lstaffeltype bes_staffeltabel.fac_typestaffel_key%TYPE;
       lstaffelkorting bes_staffel.bes_staffel_korting%TYPE;
       lkortingsprijs NUMBER;
@@ -356,12 +364,14 @@ AS
          SELECT   st.bes_staffeltabel_groep,
                   sd.bes_staffeltabel_key,
                   st.fac_typestaffel_key,
+                  bi.bes_bestelling_item_brutoprijs,
                   bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL) bes_srtdeel_prijs,
                   bi.bes_bestelling_item_aantal
            INTO   lstaffelgroep,
                   lstaffeltabelkey,
                   lstaffeltype,
-                  lprijs,
+                  laanvraagprijs,
+                  lcatalogusprijs,
                   laantalbesteld
            FROM   bes_srtdeel sd, bes_staffeltabel st, bes_bestelling_item bi
           WHERE   sd.bes_staffeltabel_key = st.bes_staffeltabel_key
@@ -371,14 +381,27 @@ AS
          WHEN NO_DATA_FOUND
          THEN
             BEGIN
-               SELECT   bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL) bes_srtdeel_prijs
-                 INTO   lprijs
+               SELECT   bi.bes_bestelling_item_brutoprijs,
+                        bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL) bes_srtdeel_prijs
+                 INTO   laanvraagprijs,
+                        lcatalogusprijs
                  FROM   bes_srtdeel sd, bes_bestelling_item bi
                 WHERE   sd.bes_srtdeel_key = bi.bes_srtdeel_key
                   AND   bi.bes_bestelling_item_key = pbes_bestelling_item_key;
-               RETURN lprijs;
+               IF ppunchout = 1
+               THEN
+                  RETURN laanvraagprijs;
+               ELSE
+                  RETURN lcatalogusprijs;
+               END IF;
             END;
       END;
+      IF ppunchout = 1
+      THEN
+         lprijs := laanvraagprijs;
+      ELSE
+         lprijs := lcatalogusprijs;
+      END IF;
 
       IF lstaffelgroep = 1
       THEN
@@ -592,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)
@@ -757,7 +780,9 @@ AS
       factura_key               mld_adres.mld_adres_key%TYPE;
       bedrijf_email             prs_bedrijf.prs_bedrijf_email%TYPE;
       bedrijf_telefoon2         prs_bedrijf.prs_bedrijf_telefoon2%TYPE;
-      itemprijsmetkorting       NUMBER (12, 6);
+      l_item_brutoprijs         bes_bestelopdr_item.bes_bestelopdr_item_brutoprijs%TYPE;
+      l_item_prijs              bes_bestelopdr_item.bes_bestelopdr_item_prijs%TYPE;
+      l_item_inkprijs           bes_bestelopdr_item.bes_bestelopdr_item_inkprijs%TYPE;
       besopdrachtkorting        NUMBER (8, 2);
       besopdrachtkosten         NUMBER (8, 2);
       bedrijfvolgnr             NUMBER (3);
@@ -767,6 +792,7 @@ AS
                bd.prs_bedrijf_naam,
                s.bes_srtdeel_omschrijving,
                NVL (s.bes_srtdeel_eenheid, '') bes_srtdeel_eenheid,
+               bi.bes_bestelling_item_brutoprijs,
                bes.getsrtdeelprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_prijs,
                s.bes_srtdeel_key,
                bi.bes_bestelling_item_key,
@@ -774,24 +800,31 @@ AS
                NVL (b.mld_adres_key_lev, abd.mld_adres_key_lev) mld_adres_key_lev,
                p.prs_afdeling_key,
                abd.mld_adres_key_fac,
+               bi.bes_bestelling_item_inkprijs,
                bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
                b.bes_bestelling_parentkey,
-               b.prs_perslid_key
+               b.prs_perslid_key,
+               bdp.bes_disc_params_punchouturl,
+               bdp.bes_disc_params_freeartikel
           FROM prs_bedrijf bd,
                bes_srtdeel s,
+               bes_srtgroep g,
+               bes_disc_params bdp,
                bes_bestelling_item bi,
                bes_bestelling b,
                prs_perslid p,
                prs_v_afdeling d,
                prs_bedrijf abd
-         WHERE abd.prs_bedrijf_key = d.prs_bedrijf_key
-           AND p.prs_afdeling_key = d.prs_afdeling_key
-           AND b.prs_perslid_key = p.prs_perslid_key
-           AND bi.bes_bestelling_key = b.bes_bestelling_key
-           AND s.bes_srtdeel_key = bi.bes_srtdeel_key
-           AND s.prs_bedrijf_key = bd.prs_bedrijf_key
-           AND b.bes_bestelling_status IN (1, 2, 3, 4)   -- om dubbelen te vermijden
-           AND b.bes_bestelling_key = bes_key
+         WHERE     abd.prs_bedrijf_key = d.prs_bedrijf_key
+               AND p.prs_afdeling_key = d.prs_afdeling_key
+               AND b.prs_perslid_key = p.prs_perslid_key
+               AND bi.bes_bestelling_key = b.bes_bestelling_key
+               AND g.ins_discipline_key = bdp.bes_ins_discipline_key
+               AND s.bes_srtgroep_key = g.bes_srtgroep_key
+               AND s.bes_srtdeel_key = bi.bes_srtdeel_key
+               AND s.prs_bedrijf_key = bd.prs_bedrijf_key
+               AND b.bes_bestelling_status IN (1, 2, 3, 4)   -- om dubbelen te vermijden
+               AND b.bes_bestelling_key = bes_key
          ORDER BY 1, 7;
       BEGIN
         -- Maakt bestelopdrachten van bestelaanvragen
@@ -910,8 +943,25 @@ AS
                 );
             aantalopdrachtregels := 0;
           END IF;
-          itemprijsmetkorting := bes.calcbesartikelkortingsprijs(rec1.bes_bestelling_item_key);
           --DBMS_OUTPUT.put_line ('Bestelregel maken: ' || TO_CHAR (aantalopdrachtregels + 1));
+          -- Voor punchout gebruiken we de aanvraagprijzen, anders de catalogusprijzen (as was) voor
+          -- bes_bestelling_item_brutoprijs / bes_bestelopdr_item_brutoprijs
+          -- bes_bestelling_item_prijs      / bes_bestelopdr_item_prijs
+          -- bes_bestelling_item_inkprijs   / bes_bestelopdr_item_inkprijs
+          IF (rec1.bes_disc_params_punchouturl IS NOT NULL AND rec1.bes_disc_params_freeartikel = 0)
+          THEN
+            -- punchout
+            --DBMS_OUTPUT.put_line ('Punchoutprijzen');
+            l_item_brutoprijs  := rec1.bes_bestelling_item_brutoprijs;
+            l_item_prijs       := bes.calcbesartikelkortingsprijs(rec1.bes_bestelling_item_key, 1);
+            l_item_inkprijs    := rec1.bes_bestelling_item_inkprijs;
+          ELSE
+            --DBMS_OUTPUT.put_line ('Catalogusprijzen');
+            l_item_brutoprijs  := rec1.bes_srtdeel_prijs;
+            l_item_prijs       := bes.calcbesartikelkortingsprijs(rec1.bes_bestelling_item_key, 0);
+            l_item_inkprijs    := rec1.bes_srtdeel_inkprijs;
+          END IF;
+
           INSERT INTO bes_bestelopdr_item
               (bes_bestelopdr_item_key, bes_bestelopdr_item_posnr, bes_bestelopdr_key,
                bes_bestelopdr_item_aantal, bes_bestelopdr_item_aantalontv, bes_bestelopdr_item_omschrijv,
@@ -920,8 +970,8 @@ AS
               )
           VALUES (bes_s_bes_bestelopdr_item_key.NEXTVAL, aantalopdrachtregels + 1, lbord_key,
                rec1.bes_bestelling_item_aantal, NULL, rec1.bes_srtdeel_omschrijving,
-               rec1.bes_srtdeel_prijs, NULL, rec1.bes_srtdeel_inkprijs,
-               itemprijsmetkorting
+               l_item_brutoprijs, NULL, l_item_inkprijs,
+               l_item_prijs
               );
           aantalopdrachtregels := aantalopdrachtregels + 1;
           UPDATE bes_bestelling_item
@@ -1159,7 +1209,7 @@ AS
    AS
       currentstatus bes_bestelling.bes_bestelling_status%TYPE;
       newstatus bes_bestelling.bes_bestelling_status%TYPE;
-      eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
+      eventcode VARCHAR2(10);  -- tabelsize is 6
    BEGIN
       SELECT   COALESCE (bes_bestelling_status, -1)
         INTO   currentstatus
@@ -1167,51 +1217,57 @@ AS
        WHERE   bes_bestelling_key = pbestellingkey;
 
       CASE pstatus
-         WHEN 1                                                                                             -- Afgewezen
+         WHEN 1                                                                                            -- Afgewezen
          THEN
             IF currentstatus <> 1
             THEN
                eventcode := 'BESREJ';
             END IF;
-         WHEN 2                              -- Ingevoerd. Dit is de default, dus leeg kan niet; we rekenen 2>2 ook goed
+         WHEN 2                              -- Nieuw. Dit is de default, dus leeg kan niet; we rekenen 2>2 ook goed
          THEN
             eventcode := 'BESAP2';
-         WHEN 3                                                    -- Ingezien (voor de eerste keer, voordat acceptatie)
+         WHEN 3                                                    -- Gefiatteerd (voor de eerste keer, voordat acceptatie)
          THEN
             IF currentstatus <> 3
             THEN
                eventcode := 'BESFIT';
             END IF;
-         WHEN 4                                                                     -- Geaccepteerd (ongezien of gezien)
+         WHEN 4                                                                                            -- Geaccepteerd
          THEN
             IF currentstatus <> 4
             THEN
                eventcode := 'BESACP';
             END IF;
-         WHEN 5                                                                                              -- Afgemeld
+         WHEN 5                                                                                            -- Besteld
          THEN
             IF currentstatus <> 5
             THEN
                eventcode := 'BESBES';
             END IF;
-         WHEN 6                                                                                              -- Verwerkt
+         WHEN 6                                                                                            -- Geleverd
          THEN
             IF currentstatus <> 6
             THEN
                eventcode := 'BESOTV';
             END IF;
-         WHEN 7                                                                                            -- Uitgegeven
+         WHEN 7                                                                                            -- Verwerkt
          THEN
             IF currentstatus <> 7
             THEN
                eventcode := 'BESVER';
             END IF;
-         WHEN 8                                                                                            -- Annuleer
+         WHEN 8                                                                                            -- Geannuleerd
          THEN
             IF currentstatus <> 8
             THEN
                eventcode := 'BESCAN';
             END IF;
+         WHEN 9                                                                                            -- Ontvangen
+         THEN
+            IF currentstatus <> 9
+            THEN
+               eventcode := '#BESOT2'; -- Alleen tracken en geen notificatie omdat die bij het ontvangen(6) wordt verstuurd.
+            END IF;
          ELSE
             -- Invalid statuschange or no change
             eventcode := NULL;
@@ -1240,50 +1296,50 @@ AS
        WHERE   bes_bestelopdr_key = pbestelopdrkey;
 
       CASE pstatus
-         WHEN 1                                                                                             -- Afgewezen
+         WHEN 1                                                                                           -- Afgewezen
          THEN
             IF currentstatus <> 1
             THEN
-               eventcode := 'BES2RE';                                                                       -- afgewezen
+               eventcode := 'BES2RE';
             END IF;
-         WHEN 2
+         WHEN 2                                                                                           -- Unused
          THEN
-            eventcode := NULL;                                                                                 -- unused
+            eventcode := NULL;
          WHEN 3
          THEN
-            IF currentstatus <> 3
+            IF currentstatus <> 3                                                                         -- In behandeling
             THEN
-               eventcode := 'BES2NE';                                                                  -- in behandeling
+               eventcode := 'BES2NE';
             END IF;
-         WHEN 4                                                                     -- Geaccepteerd (ongezien of gezien)
+         WHEN 4                                                                                           -- In Bestelling (bevestigd)
          THEN
             IF currentstatus <> 4
             THEN
-               eventcode := 'BES2CO';                                                       -- In Bestelling (bevestigd)
+               eventcode := 'BES2CO';
             END IF;
-         WHEN 5                                                                                              -- Afgemeld
+         WHEN 5                                                                                           -- Ter Bevesting
          THEN
             IF currentstatus <> 5
             THEN
-               eventcode := 'BES2BE';                                                                   -- Ter Bevesting
+               eventcode := 'BES2BE';
             END IF;
-         WHEN 6                                                                                              -- Verwerkt
+         WHEN 6                                                                                           -- Geleverd
          THEN
             IF currentstatus <> 6
             THEN
-               eventcode := 'BES2AF';                                                                        -- geleverd
+               eventcode := 'BES2AF';
             END IF;
-         WHEN 7                                                                                            -- Uitgegeven
+         WHEN 7                                                                                           -- Verwerkt
          THEN
             IF currentstatus <> 7
             THEN
-               eventcode := 'BES2VE';                                                                        -- verwerkt
+               eventcode := 'BES2VE';
             END IF;
-         WHEN 8                                                                                            -- Uitgegeven
+         WHEN 8                                                                                           -- Geannuleerd
          THEN
             IF currentstatus <> 8
             THEN
-               eventcode := 'BES2CA';                                                                     -- Geannuleerd
+               eventcode := 'BES2CA';
             END IF;
          ELSE
             -- Invalid statuschange or no change
@@ -2023,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;
@@ -2034,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
@@ -2048,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),
@@ -189,7 +191,10 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_maxbestel    /* De voorrraad is het maximum aantal dat ik mag bestellen {0=nee (default), 1=ja} */
         NUMBER(1)
         DEFAULT 0
-        NOT NULL
+        NOT NULL,
+    ins_srtdeel_key /* objectrelatie */
+        NUMBER(10)
+        CONSTRAINT ins_r_ins_srtdeel_key4 REFERENCES ins_srtdeel(ins_srtdeel_key)
 );
 
 
@@ -238,6 +243,8 @@ CREATE_TABLE(bes_bestelling, 0)
     bes_bestelling_fiat_user
         NUMBER(10)
         CONSTRAINT bes_r_bes_bestelling_fiat REFERENCES prs_perslid(prs_perslid_key),
+    bes_bestelling_fiatbedrag /* Tot zover gefiatteerd */
+        NUMBER(11,2),
     mld_adres_key_lev
         NUMBER(10)
         CONSTRAINT bes_r_mld_adres_key_lev REFERENCES mld_adres(mld_adres_key),
@@ -250,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
@@ -260,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)
@@ -300,12 +311,22 @@ CREATE_TABLE(bes_bestelopdr, 0)
         NUMBER(10)
         CONSTRAINT bes_r_opdr_prs_user_key1 REFERENCES prs_perslid(prs_perslid_key),
     bes_bestelopdr_delivery_opmerk
-        VARCHAR2(320)
+        VARCHAR2(320),
+    bes_bestelopdr_flag
+        NUMBER(1),
+    bes_bestelopdr_externnr
+        VARCHAR2(256),
+    bes_bestelopdr_externsyncdate
+        DATE
 );
 
 ALTER TABLE cnt_contract ADD bes_bestelopdr_key
       NUMBER(10)
       CONSTRAINT cnt_r_bes_bestelopdr_key REFERENCES bes_bestelopdr(bes_bestelopdr_key);
+ALTER TABLE ins_deel
+  ADD bes_bestelopdr_key
+      NUMBER(10)
+      CONSTRAINT bes_r_bes_bestelopdr_key3 REFERENCES bes_bestelopdr(bes_bestelopdr_key);
 
 CREATE_TABLE(bes_bestelopdr_item, 0)
 (
@@ -319,20 +340,22 @@ 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
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_bestelopdr_item_brutoprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_bestelopdr_item_ontvangen
         DATE,
     bes_bestelopdr_item_status
@@ -358,10 +381,10 @@ 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),
+        NUMBER(11,5),
     bes_bestelling_item_prijs  /* incl. kortingen */
         NUMBER(12,6),
     bes_bestelling_item_inkprijs /* inkoopprijs ten tijde van bestelling */
@@ -370,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
@@ -437,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
@@ -506,7 +531,31 @@ CREATE_TABLE(bes_disc_params, 0)
     bes_disc_params_bestellimiet5
         NUMBER(11,2)
         DEFAULT 1000000,
-    bes_disc_params_freeartikel /* Vrije-artikel mode {0=ouderwets, 1=vrij artikelen, 2=met suggest voor bestaande (future)} */
+    bes_disc_params_freeartikel /* Deprecated, gaat van 2017.3 via bes_disc_params_bestelmode */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_bestelmode /* 0=ouderwets artikelselector, 1=vrij artikelen, 2=bestellijst */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_fotomode /* 0=alleen bij kiezen artikel, 1=ook in bestellijst */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_ins_mode    /* bestelcatalogusinstellingen {0=Niet van toepassing, 1=Aanmaken en koppelen (Nog niet ondersteund), 2=Koppelen} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_fe_confirm    /* Besteller bevestigt ontvangst {0=Nee (default), 1=Ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_hide_cost_fe  /* Onderdruk kosten in bestellijst voor FE {0=Nee (default), 1=Ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_deliver_fe
         NUMBER(1)
         DEFAULT 0
         NOT NULL
@@ -528,7 +577,9 @@ CREATE_TABLE(bes_srtkenmerk, 0)
 ,  bes_srtkenmerk_kenmerktype
       VARCHAR2(1)
 ,  bes_srtkenmerk_systeem
-      NUMBER(1)
+      NUMBER(2)
+      DEFAULT 0
+      NOT NULL
 ,  bes_srtkenmerk_lengte
       NUMBER(4)
 ,  bes_srtkenmerk_dec
@@ -549,9 +600,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','R','X','L','Q','F','M','E','S', 'l', 'B'))
-,  CONSTRAINT bes_c_bes_srtkenmerk_systeem   CHECK(bes_srtkenmerk_systeem IS NULL
-                                                OR bes_srtkenmerk_systeem = 1)
+,  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)
@@ -576,6 +625,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
@@ -597,6 +648,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
@@ -606,7 +659,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)
@@ -690,9 +743,9 @@ CREATE_TABLE(bes_srtdeel_prijs,0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_srtdeel_key1 REFERENCES bes_srtdeel(bes_srtdeel_key) ON DELETE CASCADE,
     bes_srtdeel_prijs_prijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_srtdeel_prijs_inkprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig (Farmers wilde dit ook). */
     bes_srtdeel_prijs_vervaldatum
         DATE,
@@ -711,9 +764,9 @@ CREATE_TABLE(bes_srtprod_prijs,0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_srtprod_key REFERENCES bes_srtprod(bes_srtprod_key),
     bes_srtprod_prijs_prijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     bes_srtprod_prijs_inkprijs
-        NUMBER(8,2),
+        NUMBER(11,5),
     /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig */
     bes_srtprod_prijs_vervaldatum
         DATE,
@@ -739,7 +792,7 @@ CREATE_TABLE(bes_bedrijf_srtprod, 0)
     bes_bedrijf_srtprod_opmerking
         VARCHAR2(320),
     bes_bedrijf_srtprod_prijs
-        NUMBER(8,2)
+        NUMBER(11,5)
 );
 
 /* MB: Voorkeursleveranciers    ---------------------------------------------------------------------------*/

BES/BES_VIE.SRC

@@ -27,21 +27,21 @@ AS
  */
 CREATE_VIEW(bes_bestellingstatuses, 0)
 AS
-SELECT   fac_code2label_code bes_bestellingstatuses_key,
-         COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestellingstatuses_omschr
-  FROM   fac_locale_xsl fl, fac_code2label fs
- WHERE       fl.fac_locale_xsl_label = fac_code2label_label
-         AND fac_code2label_domein = 'bestelling'
-         AND fac_locale_xsl_lang = lcl.getuserlanguage ();
+SELECT fac_code2label_code bes_bestellingstatuses_key,
+       COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestellingstatuses_omschr
+  FROM fac_locale_xsl fl, fac_code2label fs
+ WHERE fl.fac_locale_xsl_label = fac_code2label_label
+   AND fac_code2label_domein = 'bestelling'
+   AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 CREATE_VIEW(bes_bestelopdrstatuses, 0)
 AS
-SELECT   fac_code2label_code bes_bestelopdrstatuses_key,
-         COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestelopdrstatuses_omschr
-  FROM   fac_locale_xsl fl, fac_code2label fs
- WHERE       fl.fac_locale_xsl_label = fac_code2label_label
-         AND fac_code2label_domein = 'bestelopdr'
-         AND fac_locale_xsl_lang = lcl.getuserlanguage ();
+SELECT fac_code2label_code bes_bestelopdrstatuses_key,
+       COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestelopdrstatuses_omschr
+  FROM fac_locale_xsl fl, fac_code2label fs
+ WHERE fl.fac_locale_xsl_label = fac_code2label_label
+   AND fac_code2label_domein = 'bestelopdr'
+   AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
                                     bestelaanvraagnr,
@@ -175,7 +175,7 @@ AS
                   ins_tab_discipline d,
                   alg_locatie l
             WHERE b.prs_perslid_key = p.prs_perslid_key
-              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
+              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
               AND p.prs_afdeling_key = a.prs_afdeling_key
               AND b.mld_adres_key_lev = ma.mld_adres_key
               AND wp2.prs_perslid_key(+) = p.prs_perslid_key
@@ -207,15 +207,15 @@ AS
            fac_locale de,
            fac_locale fr,
            bqa
-     WHERE     bqa.ins_discipline_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.ins_discipline_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.ins_discipline_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR'
+     WHERE bqa.ins_discipline_key = en.fac_locale_kolomkeyval(+)
+       AND en.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+       AND en.fac_locale_lang(+) = 'EN'
+       AND bqa.ins_discipline_key = de.fac_locale_kolomkeyval(+)
+       AND de.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+       AND de.fac_locale_lang(+) = 'DE'
+       AND bqa.ins_discipline_key = fr.fac_locale_kolomkeyval(+)
+       AND fr.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
+       AND fr.fac_locale_lang(+) = 'FR'
     UNION ALL
     SELECT DISTINCT bqa.bes_srtgroep_key,
                     'BES_SRTGROEP_OMSCHRIJVING',
@@ -227,15 +227,15 @@ AS
            fac_locale de,
            fac_locale fr,
            bqa
-     WHERE     bqa.bes_srtgroep_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.bes_srtgroep_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.bes_srtgroep_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR'
+     WHERE bqa.bes_srtgroep_key = en.fac_locale_kolomkeyval(+)
+       AND en.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+       AND en.fac_locale_lang(+) = 'EN'
+       AND bqa.bes_srtgroep_key = de.fac_locale_kolomkeyval(+)
+       AND de.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+       AND de.fac_locale_lang(+) = 'DE'
+       AND bqa.bes_srtgroep_key = fr.fac_locale_kolomkeyval(+)
+       AND fr.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
+       AND fr.fac_locale_lang(+) = 'FR'
     UNION ALL
     SELECT DISTINCT bqa.bes_srtdeel_key,
                     'BES_SRTDEEL_OMSCHRIJVING',
@@ -247,15 +247,15 @@ AS
            fac_locale de,
            fac_locale fr,
            bqa
-     WHERE     bqa.bes_srtdeel_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.bes_srtdeel_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.bes_srtdeel_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR';
+     WHERE bqa.bes_srtdeel_key = en.fac_locale_kolomkeyval(+)
+       AND en.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+       AND en.fac_locale_lang(+) = 'EN'
+       AND bqa.bes_srtdeel_key = de.fac_locale_kolomkeyval(+)
+       AND de.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+       AND de.fac_locale_lang(+) = 'DE'
+       AND bqa.bes_srtdeel_key = fr.fac_locale_kolomkeyval(+)
+       AND fr.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
+       AND fr.fac_locale_lang(+) = 'FR';
 
 -- Vooralsnog placeholders, moeten aangepast worden
 CREATE_VIEW(bes_v_api_bestellingen, 1) AS SELECT * from bes_bestelling;
@@ -282,6 +282,7 @@ CREATE_VIEW(bes_v_udr_bestelling, 1)
    regio_omschrijving,
    district_omschrijving,
    afleveradres,
+   afleverplaats,
    mandaat,
    fclt_3d_discipline_key,
    catalogus,
@@ -320,6 +321,7 @@ AS
           regio_omschrijving,
           district_omschijving,
           afleveradres,
+          afleverplaats,
           mandaat,
           ins_discipline_key,
           catalogus,
@@ -395,6 +397,7 @@ AS
                           AND l.alg_locatie_key = ma.alg_locatie_key)
                      district_omschijving,
                   ma.mld_adres_naam afleveradres,
+                  b.bes_bestelling_plaats afleverplaats,
                   NVL ( (SELECT pr.fac_profiel_limiet
                            FROM fac_profiel pr
                           WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
@@ -444,16 +447,16 @@ AS
                   bes_srtdeel sd,
                   bes_srtgroep sg,
                   ins_tab_discipline d
-            WHERE     b.prs_perslid_key = p.prs_perslid_key
-                  AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
-                  AND p.prs_afdeling_key = a.prs_afdeling_key
-                  AND b.mld_adres_key_lev = ma.mld_adres_key
-                  AND b.bes_bestelling_key = bi.bes_bestelling_key
-                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
-                  AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
-                  AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
-                  AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
-                  AND sg.ins_discipline_key = d.ins_discipline_key);
+            WHERE b.prs_perslid_key = p.prs_perslid_key
+              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+              AND p.prs_afdeling_key = a.prs_afdeling_key
+              AND b.mld_adres_key_lev = ma.mld_adres_key
+              AND b.bes_bestelling_key = bi.bes_bestelling_key
+              AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
+              AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+              AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
+              AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
+              AND sg.ins_discipline_key = d.ins_discipline_key);
 
 CREATE_VIEW(bes_v_allsrtinstallatie, 0)
 (
@@ -464,7 +467,10 @@ CREATE_VIEW(bes_v_allsrtinstallatie, 0)
    SRTDEEL_OMS,
    BES_DISCIPLINE_KEY,
    BES_SRTGROEP_KEY,
-   BES_SRTDEEL_KEY
+   BES_SRTDEEL_KEY,
+   BES_DISCIPLINE_VERWIJDER,
+   BES_SRTGROEP_VERWIJDER,
+   BES_SRTDEEL_VERWIJDER
 )
 AS
    SELECT 'D',
@@ -474,17 +480,23 @@ AS
           NULL srtdeel_oms,
           bes_ID.ins_discipline_key,
           NULL bes_srtgroep_key,
-          NULL bes_srtdeel_key
+          NULL bes_srtdeel_key,
+          bes_ID.ins_discipline_verwijder bes_discipline_verwijder,
+          NULL bes_srtgroep_verwijder,
+          NULL bes_srtdeel_verwijder
      FROM bes_discipline bes_ID
    UNION
    SELECT 'G',
           bes_SG.bes_srtgroep_key,
           bes_ID.ins_discipline_omschrijving,
           bes_SG.bes_srtgroep_omschrijving,
-          NULL,
+          NULL srtdeel_oms,
           bes_ID.ins_discipline_key,
           bes_SG.bes_srtgroep_key,
-          NULL
+          NULL bes_srtdeel_key,
+          bes_ID.ins_discipline_verwijder bes_discipline_verwijder,
+          bes_SG.bes_srtgroep_verwijder,
+          NULL bes_srtdeel_verwijder
      FROM bes_discipline bes_ID, bes_srtgroep bes_SG
     WHERE bes_ID.ins_discipline_key = bes_SG.ins_discipline_key
    UNION
@@ -495,7 +507,10 @@ AS
           bes_SD.bes_srtdeel_omschrijving,
           bes_ID.ins_discipline_key,
           bes_SG.bes_srtgroep_key,
-          bes_SD.bes_srtdeel_key
+          bes_SD.bes_srtdeel_key,
+          bes_ID.ins_discipline_verwijder bes_discipline_verwijder,
+          bes_SG.bes_srtgroep_verwijder,
+          bes_SD.bes_srtdeel_verwijder
      FROM bes_discipline bes_ID, bes_srtgroep bes_SG, bes_srtdeel bes_SD
     WHERE bes_SG.bes_srtgroep_key = bes_SD.bes_srtgroep_key
           AND bes_ID.ins_discipline_key = bes_SG.ins_discipline_key;

BEZ/BEZ_IND.SRC

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

BEZ/BEZ_PAC.SRC

@@ -6,11 +6,13 @@
  */
 CREATE OR REPLACE PACKAGE bez AS
   PROCEDURE copy_afspraak (pkey IN NUMBER, newdate IN DATE, puserkey IN NUMBER, prsvkey_to IN NUMBER);
+  PROCEDURE copy_afspraak (pkey IN NUMBER, newdate IN DATE, puserkey IN NUMBER, prsvkey_to IN NUMBER, newafspraakkey OUT NUMBER);
   PROCEDURE sync_resafspraak (presvruimtevan IN NUMBER, presvruimtenaar IN NUMBER);
   PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER);
   FUNCTION  hasparking    (pbez_bezoekers_key IN NUMBER) RETURN NUMBER;
   FUNCTION  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;
 /
 
@@ -19,10 +21,18 @@ CREATE OR REPLACE PACKAGE BODY bez AS
    PROCEDURE copy_afspraak (pkey IN NUMBER, newdate IN DATE, puserkey IN NUMBER, prsvkey_to IN NUMBER)
    AS
       newafspraakkey bez_afspraak.bez_afspraak_key%TYPE;
+   BEGIN
+      copy_afspraak (pkey, newdate, puserkey, prsvkey_to, newafspraakkey);
+   END;
+
+   -- Variant waarbij je newafspraakkey terug krijgt
+   PROCEDURE copy_afspraak (pkey IN NUMBER, newdate IN DATE, puserkey IN NUMBER, prsvkey_to IN NUMBER, newafspraakkey OUT NUMBER)
+   AS
       newbezoekerskey bez_bezoekers.bez_bezoekers_key%TYPE;
       hasparking NUMBER;
       nieuwvan DATE;
       nieuwtot DATE;
+      alg_gebter_key ins_deel.ins_alg_ruimte_key%TYPE;
 
       CURSOR bezoekers
       IS
@@ -30,7 +40,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
@@ -93,7 +107,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,
@@ -101,7 +119,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
@@ -109,12 +131,31 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
          IF (hasparking > 0)
          THEN
-            claim_parking (newbezoekerskey, null);
+            -- Probeer in/op het/dezelfde gebouw/terreinsector een lege parkeerplaats te vinden.
+            -- Lukt dit niet dan probeer op dezelfde locatie een lege parkeerplaats te vinden.
+            SELECT id.ins_alg_ruimte_key
+              INTO alg_gebter_key
+              FROM res_rsv_deel rrd,
+                   res_deel rd,
+                   ins_deel id
+             WHERE rrd.res_deel_key = rd.res_deel_key
+               AND rd.res_ins_deel_key = id.ins_deel_key
+               AND rrd.bez_bezoekers_key = b.bez_bezoekers_key;
+
+            claim_parking (newbezoekerskey, alg_gebter_key);
+
+            hasparking := bez.hasparking (newbezoekerskey);
+            IF hasparking = 0
+            THEN
+               -- dan maar de oude methode: overal zoeken
+               claim_parking (newbezoekerskey, null);
+            END IF;
          -- Eventueel: controleren of de nieuwe nu ook een P heeft,
          -- en zo niet dat dan tracken; goed doordenken!
          END IF;
 
          -- Kopieer de flexkenmerken van de bezoekers
+         -- Do not copy backoffice characteristics (> 900)
          INSERT INTO bez_kenmerkwaarde
                      ( bez_bezoekers_key,
                        bez_kenmerk_key,
@@ -127,6 +168,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;
@@ -180,6 +222,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       END IF;
    END;
 
+   -- Pas op met testen van deze PROCEDURE. De user voor autorisatie wordt bepaald
+   -- via sys_context('USERENV', 'CLIENT_IDENTIFIER')
+   -- ASP-code zet die indirect via fac.initsession
+   -- Compacter kun je dat doen via DBMS_SESSION.SET_IDENTIFIER(3); (met 3=key van de user)
    PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER)
    AS
       lafspraakkey bez_afspraak.bez_afspraak_key%TYPE;
@@ -192,6 +238,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       lparkeerkey res_deel.res_deel_key%TYPE;
       bez_parkingdiscipline_key NUMBER;
       lpreposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
+      lautlevel fac_v_webgebruiker.fac_gebruiker_prs_level_write%TYPE;
    BEGIN
       -- Claim een (nieuwe) parkeerplaats voor de gegeven bezoeker
       -- Reserveer voor de tijden van de bijbehorende afspraak cq. res_rsv_ruimte
@@ -264,75 +311,145 @@ CREATE OR REPLACE PACKAGE BODY bez AS
         FROM res_disc_params rdp
        WHERE rdp.res_ins_discipline_key = bez_parkingdiscipline_key;
 
+      SELECT COALESCE((SELECT w.fac_gebruiker_prs_level_write
+                         FROM fac_v_webgebruiker w,
+                              fac_functie f
+                        WHERE w.fac_functie_key = f.fac_functie_key
+                          AND w.prs_perslid_key = TO_NUMBER(SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER'))
+                          AND f.fac_functie_code = 'WEB_BEZPAF'),
+                      9) lautlevel
+        INTO lautlevel
+        FROM DUAL;
+
       -- lpreposttime is nu in dagen (in uren / 24 = in dagen).
       -- In de query wordt rekening gehouden met 1 minuut marge voor afrondfouten (+/- 1 / 1440).
       -- Heb ik een gebouwkey of terreinkey meegekregen?
       IF palg_gebter_key IS NULL
       THEN
         -- Wat is een vrije parkeerplaats
-        SELECT   MIN (res_deel_key)                                                                    -- logischer maken?
-          INTO   lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
-                             (SELECT   MIN (rd.res_deel_key)
-                                FROM   res_v_aanwezigrsv_deel rd
-                               WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
-                                       AND d.res_discipline_key = bez_parkingdiscipline_key)
-                                aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_aanwezigterreinsector t
-                     WHERE       d.res_ins_deel_key = id.ins_deel_key
-                             AND id.ins_alg_locatie_key = llocatiekey
-                             AND d.res_discipline_key = bez_parkingdiscipline_key
-                             AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
-                             -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
-                             AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
-                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
-                             -- (bits & (2^(dow-1))) = (2^(dow-1))
-                             AND BITAND(d.res_deel_beschikbaar_bits,
-                                        POWER(2,
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
-                             AND (   d.res_deel_vervaldatum IS NULL
-                                  OR d.res_deel_vervaldatum > lbegin)
-                  ORDER BY   id.ins_deel_upper)
-         WHERE   aantal IS NULL;
+        SELECT MIN (res_deel_key)                                                                    -- logischer maken?
+          INTO lparkeerkey
+          FROM (SELECT d.res_deel_key,
+                       (SELECT MIN (rd.res_deel_key)
+                          FROM res_v_aanwezigrsv_deel rd
+                         WHERE     d.res_deel_key = rd.res_deel_key
+                               AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                               AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                               AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                               AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
+                               AND d.res_discipline_key = bez_parkingdiscipline_key) aantal
+                  FROM res_v_aanwezigdeel d,
+                       ins_deel id,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
+                 WHERE d.res_ins_deel_key = id.ins_deel_key
+                   AND id.ins_alg_locatie_key = llocatiekey
+                   AND d.res_discipline_key = bez_parkingdiscipline_key
+                   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_key
+                   -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
+                   AND t.alg_terreinsector_key IN
+                           (SELECT alg_terreinsector_key
+                              FROM alg_v_aanwezigterreinsector t2
+                             WHERE (lautlevel < 0
+                                 OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                 OR (lautlevel > 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.prs_afdeling_key IN
+                                          (SELECT prs_afdeling_key
+                                             FROM prs_v_afdeling_familie a
+                                            WHERE a.prs_afdeling_elder_key IN
+                                                      (SELECT aa.prs_afdeling_elder_key
+                                                         FROM prs_v_afdeling_familie aa
+                                                        WHERE aa.prs_afdeling_key = (SELECT prs_afdeling_key
+                                                                                       FROM prs_perslid
+                                                                                      WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                          AND aa.niveau = lautlevel))))
+                                 OR (lautlevel = 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.prs_afdeling_key IN
+                                          (SELECT a.prs_afdeling_key
+                                             FROM prs_v_afdeling a
+                                            WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                         FROM prs_perslid p,
+                                                                              prs_v_afdeling a
+                                                                        WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                          AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))
+                   -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                   -- (bits & (2^(dow-1))) = (2^(dow-1))
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                       POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
+                ORDER BY   id.ins_deel_upper)
+         WHERE aantal IS NULL;
       ELSE
         -- Wat is een vrije parkeerplaats
         -- Er is een gebouwkey of terreinkey meegegeven. Hierbinnen moet de parkeerplaats gereserveerd worden.
-        SELECT   MIN (res_deel_key)                                                                    -- logischer maken?
-          INTO   lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
-                             (SELECT   MIN (rd.res_deel_key)
-                                FROM   res_v_aanwezigrsv_deel rd
-                               WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
-                                       AND d.res_discipline_key = bez_parkingdiscipline_key)
-                                aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_allonroerendgoed og
-                     WHERE       d.res_ins_deel_key = id.ins_deel_key
-                             AND id.ins_alg_locatie_key = llocatiekey
-                             AND d.res_discipline_key = bez_parkingdiscipline_key
-                             AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
-                               OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
-                             AND (og.alg_gebouw_key = palg_gebter_key
-                               OR og.alg_terreinsector_key = palg_gebter_key)
-                             AND id.ins_alg_ruimte_type IN ('R', 'T')
-                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
-                             -- (bits & (2^(dow-1))) = (2^(dow-1))
-                             AND BITAND(d.res_deel_beschikbaar_bits,
-                                        POWER(2,
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
-                             AND (   d.res_deel_vervaldatum IS NULL
-                                  OR d.res_deel_vervaldatum > lbegin)
-                  ORDER BY   id.ins_deel_upper)
-         WHERE   aantal IS NULL;
+        SELECT MIN (res_deel_key)                                                                    -- logischer maken?
+          INTO lparkeerkey
+          FROM (SELECT d.res_deel_key,
+                       (SELECT MIN (rd.res_deel_key)
+                          FROM res_v_aanwezigrsv_deel rd
+                         WHERE d.res_deel_key = rd.res_deel_key
+                           AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                           AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                           AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                           AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
+                           AND d.res_discipline_key = bez_parkingdiscipline_key)
+                          aantal
+                  FROM res_v_aanwezigdeel d,
+                       ins_deel id,
+                       alg_v_allonroerendgoed og,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
+                 WHERE d.res_ins_deel_key = id.ins_deel_key
+                   AND id.ins_alg_locatie_key = llocatiekey
+                   AND d.res_discipline_key = bez_parkingdiscipline_key
+                   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_key
+                   AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
+                     OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
+                   AND (og.alg_gebouw_key = palg_gebter_key                   -- De talbel alg_gebouw heeft geen referentie naar de afdelingen tabel (geen prs_afdeling_key kolom).
+                     OR (og.alg_terreinsector_key = palg_gebter_key
+                     AND og.alg_terreinsector_key IN
+                               (SELECT alg_terreinsector_key
+                                  FROM alg_v_aanwezigterreinsector t2
+                                 WHERE (lautlevel < 0
+                                     OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                     OR (lautlevel > 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.prs_afdeling_key IN
+                                              (SELECT prs_afdeling_key
+                                                 FROM prs_v_afdeling_familie a
+                                                WHERE a.prs_afdeling_elder_key IN
+                                                          (SELECT aa.prs_afdeling_elder_key
+                                                             FROM prs_v_afdeling_familie aa
+                                                            WHERE aa.prs_afdeling_key = (SELECT prs_afdeling_key
+                                                                                           FROM prs_perslid
+                                                                                          WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                              AND aa.niveau = lautlevel))))
+                                     OR (lautlevel = 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.prs_afdeling_key IN
+                                              (SELECT a.prs_afdeling_key
+                                                 FROM prs_v_afdeling a
+                                                WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                             FROM prs_perslid p,
+                                                                                  prs_v_afdeling a
+                                                                            WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                              AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))))
+                   AND id.ins_alg_ruimte_type IN ('R', 'T')
+                   -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                   -- (bits & (2^(dow-1))) = (2^(dow-1))
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                       POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
+                ORDER BY id.ins_deel_upper)
+         WHERE aantal IS NULL;
       END IF;
 
       IF lparkeerkey IS NOT NULL
@@ -367,7 +484,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);
@@ -391,9 +507,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;
@@ -423,16 +539,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

@@ -39,7 +39,7 @@ CREATE_TABLE(bez_afspraak,0)
         NUMBER(10)
         REFERENCES prs_perslid(prs_perslid_key),
     bez_afspraak_gastheer
-        VARCHAR2(50),
+        VARCHAR2(120),
     bez_afspraak_telefoonnr
         VARCHAR2(15),
     bez_afspraak_datum
@@ -54,6 +54,9 @@ CREATE_TABLE(bez_afspraak,0)
     res_rsv_ruimte_key
         NUMBER(10)
         REFERENCES res_rsv_ruimte(res_rsv_ruimte_key),
+    mld_opdr_key
+        NUMBER(10)
+        REFERENCES mld_opdr(mld_opdr_key),
     alg_onrgoed_keys
         NUMBER(10),
     bez_afspraak_ruimte
@@ -61,6 +64,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 +102,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,14 +147,16 @@ 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','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(1)
+        NUMBER(2)
         DEFAULT 0 NOT NULL
     ,bez_kenmerk_toonbaar
         NUMBER(1)

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,25 +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);
+   -- 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

@@ -36,96 +36,114 @@ SELECT a.bez_afspraak_key,
 /* ROOT VIEWS for User defined Reports (UDR) */
 CREATE_VIEW(bez_v_udr_bezoeker, 1)
 (
-   key,
-   afspraak_key,
-   reservering_key,
-   host,
-   contact,
-   plaats_code,
-   plaats_omschrijving,
-   regio,
-   district,
-   locatie_code,
-   locatie_naam,
-   locatie_plaats,
-   gebouw_code,
-   gebouw_naam,
-   verdieping_code,
-   verdieping_naam,
-   ruimte_code,
-   ruimte_naam,
-   afspraak_ruimte,
-   afspraak_opmerking,
-   bezoeker_naam,
-   bezoeker_bedrijf,
-   bezoek_van,
-   bezoek_tot,
-   actie,
-   bezoeker_opmerking,
-   bezoeker_binnen,
-   bezoeker_buiten,
-   pasnr,
-   parkeerplaats,
-   fclt_3d_locatie_key,
-   fclt_3d_afdeling_key
+    key,
+    afspraak_key,
+    reservering_key,
+    host,
+    contact,
+    invoerder,
+    plaats_code,
+    plaats_omschrijving,
+    regio,
+    district,
+    locatie_code,
+    locatie_naam,
+    locatie_plaats,
+    gebouw_code,
+    gebouw_naam,
+    verdieping_code,
+    verdieping_naam,
+    ruimte_code,
+    ruimte_naam,
+    afspraak_ruimte,
+    afspraak_opmerking,
+    bezoeker_naam,
+    bezoeker_bedrijf,
+    bezoek_van,
+    weekdag_bezoek_van,
+    bezoek_tot,
+    actie,
+    bezoeker_opmerking,
+    bezoeker_binnen,
+    bezoeker_buiten,
+    pasnr,
+    parkeerplaats,
+    fclt_3d_locatie_key,
+    fclt_3d_divisie_key,
+    divisie_naam,
+    divisie_omschrijving,
+    fclt_3d_afdeling_key,
+    selfservice
 )
 AS
-   SELECT b.bez_bezoekers_key,
-          a.bez_afspraak_key,
-          a.res_rsv_ruimte_key,
-          COALESCE (p1.prs_perslid_naam_full, a.bez_afspraak_gastheer) bez_afspraak_host,
-          p2.prs_perslid_naam_full bez_afspraak_contact,
-          og.alg_onroerendgoed_code,
-          og.alg_onroerendgoed_omschrijving,
-          r.alg_regio_omschrijving,
-          d.alg_district_omschrijving,
-          l.alg_locatie_code,
-          l.alg_locatie_omschrijving,
-          l.alg_locatie_plaats,
-          og.alg_gebouw_code,
-          og.alg_gebouw_naam,
-          og.alg_verdieping_code,
-          og.alg_verdieping_omschrijving,
-          og.alg_ruimte_nr,
-          og.alg_ruimte_omschrijving,
-          a.bez_afspraak_ruimte,
-          a.bez_afspraak_opmerking,
-          b.bez_afspraak_naam bezoeker_naam,
-          b.bez_afspraak_bedrijf bezoeker_bedrijf,
-          a.bez_afspraak_datum,
-          a.bez_afspraak_eind,
-          ba.bez_actie_omschrijving,
-          b.bez_bezoekers_opmerking bezoeker_opmerking,
-          b.bez_bezoekers_done,
-          b.bez_bezoekers_out,
-          b.bez_bezoekers_pasnr,
-          rd.res_deel_omschrijving,
-          a.alg_locatie_key,
-          pp1.prs_afdeling_key
-     FROM bez_afspraak a,
-          bez_bezoekers b,
-          prs_v_perslid_fullnames_all p1,
-          prs_v_perslid_fullnames_all p2,
-          alg_v_allonrgoed_gegevens og,
-          alg_locatie l,
-          alg_district d,
-          alg_regio r,
-          bez_actie ba,
-          prs_perslid pp1,
-          res_rsv_deel rrd,
-          res_deel rd
-    WHERE     a.bez_afspraak_key = b.bez_afspraak_key
-          AND pp1.prs_perslid_key(+) = a.bez_afspraak_host_key
-          AND p1.prs_perslid_key(+) = a.bez_afspraak_host_key
-          AND p2.prs_perslid_key = a.bez_afspraak_contact_key
-          AND a.bez_actie_key = ba.bez_actie_key
-          AND l.alg_district_key = d.alg_district_key
-          AND d.alg_regio_key = r.alg_regio_key
-          AND l.alg_locatie_key = a.alg_locatie_key
-          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys(+)
-          AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
-          AND rrd.res_deel_key = rd.res_deel_key(+)
-          AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
+    SELECT b.bez_bezoekers_key,
+           a.bez_afspraak_key,
+           a.res_rsv_ruimte_key,
+           COALESCE (p1.prs_perslid_naam_full, a.bez_afspraak_gastheer) bez_afspraak_host,
+           p2.prs_perslid_naam_full bez_afspraak_contact,
+           p3.prs_perslid_naam_full bez_afspraak_invoerder,
+           og.alg_onroerendgoed_code,
+           og.alg_onroerendgoed_omschrijving,
+           r.alg_regio_omschrijving,
+           d.alg_district_omschrijving,
+           l.alg_locatie_code,
+           l.alg_locatie_omschrijving,
+           l.alg_locatie_plaats,
+           og.alg_gebouw_code,
+           og.alg_gebouw_naam,
+           og.alg_verdieping_code,
+           og.alg_verdieping_omschrijving,
+           og.alg_ruimte_nr,
+           og.alg_ruimte_omschrijving,
+           a.bez_afspraak_ruimte,
+           a.bez_afspraak_opmerking,
+           b.bez_afspraak_naam bezoeker_naam,
+           b.bez_afspraak_bedrijf bezoeker_bedrijf,
+           a.bez_afspraak_datum,
+           TO_CHAR(a.bez_afspraak_datum, 'D') weekdag_bezoek_van,
+           a.bez_afspraak_eind,
+           ba.bez_actie_omschrijving,
+           b.bez_bezoekers_opmerking bezoeker_opmerking,
+           b.bez_bezoekers_done,
+           b.bez_bezoekers_out,
+           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,
+           bez_bezoekers b,
+           prs_v_perslid_fullnames_all p1,
+           prs_v_perslid_fullnames_all p2,
+           prs_v_perslid_fullnames_all p3,
+           alg_v_allonrgoed_gegevens og,
+           alg_locatie l,
+           alg_district d,
+           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
+           AND pp1.prs_perslid_key(+) = a.bez_afspraak_host_key
+           AND p1.prs_perslid_key(+) = a.bez_afspraak_host_key
+           AND p2.prs_perslid_key = a.bez_afspraak_contact_key
+           AND p3.prs_perslid_key(+) = a.prs_perslid_key
+           AND a.bez_actie_key = ba.bez_actie_key
+           AND l.alg_district_key = d.alg_district_key
+           AND d.alg_regio_key = r.alg_regio_key
+           AND l.alg_locatie_key = a.alg_locatie_key
+           AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys(+)
+           AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
+           AND rrd.res_deel_key = rd.res_deel_key(+)
+           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)
 (
@@ -167,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,
@@ -205,6 +226,7 @@ SELECT
    b.reservering_key,
    b.host,
    --b.contact,
+   --b.invoerder,
    b.plaats_code,
    b.plaats_omschrijving,
    b.regio,
@@ -232,6 +254,7 @@ SELECT
    b.parkeerplaats,
    --b.fclt_3d_locatie_key,
    --b.fclt_3d_afdeling_key,
+   --b.selfservice,
    --r.key,
    r.nummer,
    r.res_omschrijving,
@@ -244,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

@@ -5,13 +5,48 @@
  */
 CREATE OR REPLACE PACKAGE bgt
 AS
+   FUNCTION getMutatieOpBudget( p_budget_key IN NUMBER
+                              , p_mutatie_key IN NUMBER
+                              , p_btw IN NUMBER
+                              ) RETURN NUMBER;
    FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
+                              , p_btw IN NUMBER
                               , p_datum_van DATE DEFAULT NULL
                               , p_datum_tot DATE DEFAULT NULL
                               ) RETURN NUMBER;
    FUNCTION getBudgetOpDatum ( p_budget_key IN NUMBER
+                             , p_btw IN NUMBER
                              , p_datum DATE DEFAULT NULL
                              ) RETURN NUMBER;
+   FUNCTION getBudgetSoortMutatie  ( p_kostenrubriek_key IN NUMBER
+                                   , p_kostensoortgrp_key IN NUMBER
+                                   , p_kostensoort_key IN NUMBER
+                                   , p_btw IN NUMBER
+                                   , p_soortmutatie IN VARCHAR2
+                                   , p_datum IN DATE DEFAULT NULL
+                                   ) RETURN NUMBER;
+   FUNCTION getSoortMutatie ( p_mutatie_key IN NUMBER
+                            ) RETURN VARCHAR2;
+   FUNCTION getContractwaarde( p_srtkey IN VARCHAR2
+                             , p_key IN NUMBER
+                             , p_btw IN NUMBER
+                             , p_status NUMBER DEFAULT 3
+                             , p_datum_van DATE DEFAULT NULL
+                             , p_datum_tot DATE DEFAULT NULL
+                             ) RETURN NUMBER;
+   FUNCTION getRaming ( p_mld_opdr_key IN NUMBER
+                      , p_btw IN NUMBER
+                      , p_datum_van DATE DEFAULT NULL
+                      , p_datum_tot DATE DEFAULT NULL
+                      ) RETURN NUMBER;
+   FUNCTION getGecontracteerd ( p_mld_opdr_key IN NUMBER
+                              , p_btw IN NUMBER
+                              , p_datum_van DATE DEFAULT NULL
+                              , p_datum_tot DATE DEFAULT NULL
+                              ) RETURN NUMBER;
+   FUNCTION getGefactureerdSoort( p_kostensoort_key IN NUMBER
+                                , p_btw IN NUMBER
+                                ) RETURN NUMBER;
    FUNCTION getGefactureerd ( p_mld_opdr_key IN NUMBER
                             , p_btw IN NUMBER
                             , p_datum_van DATE DEFAULT NULL
@@ -27,64 +62,344 @@ END bgt;
 
 CREATE OR REPLACE PACKAGE BODY bgt
 AS
-   FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
-                              , p_datum_van DATE DEFAULT NULL
-                              , p_datum_tot DATE DEFAULT NULL
+   FUNCTION getMutatieOpBudget( p_budget_key IN NUMBER
+                              , p_mutatie_key IN NUMBER
+                              , p_btw IN NUMBER
                               ) RETURN NUMBER
    IS
       v_bedrag_mut  NUMBER;
    BEGIN
-      v_bedrag_mut := 0;
+      -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       BEGIN
-         SELECT COALESCE(SUM(mut.bedrag_van), 0)
+         SELECT COALESCE(SUM(bedrag_mutatie), 0)
            INTO v_bedrag_mut
-           FROM (SELECT SUM(bgt_budget_bedrag_van) bedrag_van
+           FROM (SELECT bgt_budgetmutatie_key
+                      , bgt_budget_key_van     budget_key
+                      , CASE WHEN p_btw=0 THEN COALESCE(bgt_budget_bedrag_van, 0)
+                             WHEN p_btw=1 THEN COALESCE(bgt_budget_btwbedrag_van, 0)
+                             WHEN p_btw=2 THEN COALESCE(bgt_budget_bedrag_van, 0) + COALESCE(bgt_budget_btwbedrag_van, 0)
+                        END  bedrag_mutatie
+                   FROM bgt_budgetmutatie
+                  UNION
+                 SELECT bgt_budgetmutatie_key
+                      , bgt_budget_key_naar     budget_key
+                      , CASE WHEN p_btw=0 THEN COALESCE(bgt_budget_bedrag_naar, 0)
+                             WHEN p_btw=1 THEN COALESCE(bgt_budget_btwbedrag_naar, 0)
+                             WHEN p_btw=2 THEN COALESCE(bgt_budget_bedrag_naar, 0) + COALESCE(bgt_budget_btwbedrag_naar, 0)
+                        END  bedrag_mutatie
+                   FROM bgt_budgetmutatie
+                ) mut
+          WHERE mut.budget_key = p_budget_key
+            AND mut.bgt_budgetmutatie_key = DECODE(p_mutatie_key , NULL, mut.bgt_budgetmutatie_key, p_mutatie_key);
+      EXCEPTION
+         WHEN NO_DATA_FOUND THEN
+            v_bedrag_mut := NULL;
+      END;
+      RETURN v_bedrag_mut;
+   END getMutatieOpBudget;
+
+   FUNCTION getBudgetMutaties ( p_budget_key IN NUMBER
+                              , p_btw IN NUMBER
+                              , p_datum_van DATE DEFAULT NULL
+                              , p_datum_tot DATE DEFAULT NULL  -- eigenlijk: tot-en-met
+                              ) RETURN NUMBER
+   IS
+      v_bedrag_mut  NUMBER;
+   BEGIN
+      -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
+      -- NB: dit zijn zowel onderlinge mutaties als van-naar reserve mutaties!!
+      BEGIN
+         SELECT COALESCE(SUM(mut.bedrag_mutaties), 0)
+           INTO v_bedrag_mut
+           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 SUM(bgt_budget_bedrag_naar) bedrag_van
+                 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
-            v_bedrag_mut := 0;
+            v_bedrag_mut := NULL;
       END;
       RETURN v_bedrag_mut;
    END getBudgetMutaties;
 
    FUNCTION getBudgetOpDatum ( p_budget_key IN NUMBER
+                             , p_btw IN NUMBER
                              , p_datum DATE DEFAULT NULL
                              ) RETURN NUMBER
    IS
-      v_bedrag      NUMBER;
-      v_mutatie     NUMBER;
-      v_eindbedrag  NUMBER;
+      v_huidig_budget  NUMBER;
+      v_mutatie        NUMBER;
+      v_datum_budget   NUMBER;
    BEGIN
-      v_bedrag := 0;
+      -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       BEGIN
-         SELECT COALESCE(bgt_budget_bedrag, 0)
-              , BGT.getBudgetMutaties(bgt_budget_key, p_datum+1, NULL)
-           INTO v_eindbedrag
+         SELECT CASE WHEN p_btw=0 THEN COALESCE(bgt_budget_bedrag, 0)
+                     WHEN p_btw=1 THEN COALESCE(bgt_budget_btwbedrag, 0)
+                     WHEN p_btw=2 THEN COALESCE(bgt_budget_bedrag, 0) + COALESCE(bgt_budget_btwbedrag, 0)
+                END huidig_budget
+              , CASE WHEN p_btw=0 THEN BGT.getBudgetMutaties(bgt_budget_key, 0, p_datum+1, NULL)
+                     WHEN p_btw=1 THEN BGT.getBudgetMutaties(bgt_budget_key, 1, p_datum+1, NULL)
+                     WHEN p_btw=2 THEN BGT.getBudgetMutaties(bgt_budget_key, 0, p_datum+1, NULL) + BGT.getBudgetMutaties(bgt_budget_key, 1, p_datum+1, NULL)
+                END mutaties
+           INTO v_huidig_budget
               , v_mutatie
            FROM bgt_budget
           WHERE bgt_budget_key = p_budget_key;
-          v_bedrag := v_eindbedrag - v_mutatie;
+         --
+         v_datum_budget := v_huidig_budget - v_mutatie;
       EXCEPTION
          WHEN NO_DATA_FOUND THEN
-            v_bedrag := 0;
+            v_datum_budget := NULL;
+      END;
+      RETURN v_datum_budget;
+   END getBudgetOpDatum;
+
+   FUNCTION getBudgetSoortMutatie  ( p_kostenrubriek_key IN NUMBER
+                                   , p_kostensoortgrp_key IN NUMBER
+                                   , p_kostensoort_key IN NUMBER
+                                   , p_btw IN NUMBER
+                                   , p_soortmutatie IN VARCHAR2
+                                   , p_datum IN DATE DEFAULT NULL
+                                   ) RETURN NUMBER
+   IS
+      v_bedrag  NUMBER;
+   BEGIN
+      -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
+      BEGIN
+         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
+                       , 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)
+                         END bgt_mutatie_bedrag
+                       , BGT.getSoortMutatie (m.bgt_budgetmutatie_key) bgt_mutatie_soort
+                    FROM bgt_budget b
+                       , bgt_budgetmutatie m
+                   WHERE b.bgt_budget_key = m.bgt_budget_key_van
+                  UNION ALL
+                  SELECT b.bgt_kostenrubriek_key
+                       , b.prs_kostensoortgrp_key
+                       , b.prs_kostensoort_key
+                       , b.bgt_budget_isreserve
+                       , 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)
+                         END bgt_mutatie_bedrag
+                       , BGT.getSoortMutatie (m.bgt_budgetmutatie_key) bgt_mutatie_soort
+                    FROM bgt_budget b
+                       , bgt_budgetmutatie m
+                   WHERE b.bgt_budget_key = m.bgt_budget_key_naar
+                ) single_mutatie
+         WHERE INSTR(p_soortmutatie, bgt_mutatie_soort) > 0
+           AND (  (p_kostenrubriek_key IS NOT NULL AND p_kostensoortgrp_key = -1        AND p_kostensoort_key = -1        AND bgt_kostenrubriek_key = p_kostenrubriek_key)
+               OR (p_kostenrubriek_key IS NOT NULL AND p_kostensoortgrp_key IS NULL     AND p_kostensoort_key IS NULL     AND bgt_kostenrubriek_key = p_kostenrubriek_key AND prs_kostensoortgrp_key IS NULL AND prs_kostensoort_key IS NULL)
+               OR (p_kostenrubriek_key IS NOT NULL AND p_kostensoortgrp_key IS NOT NULL AND p_kostensoort_key IS NOT NULL AND prs_kostensoort_key = p_kostensoort_key)
+               OR (p_kostenrubriek_key IS NULL     AND p_kostensoortgrp_key IS NOT NULL AND p_kostensoort_key = -1        AND prs_kostensoortgrp_key = p_kostensoortgrp_key)
+               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 (TRUNC(bgt_budgetmutatie_datum) <= p_datum OR p_datum IS NULL);
+      EXCEPTION
+         WHEN NO_DATA_FOUND THEN
+            v_bedrag := NULL;
       END;
       RETURN v_bedrag;
-   END getBudgetOpDatum;
+   END getBudgetSoortMutatie;
+
+   FUNCTION getSoortMutatie( p_mutatie_key IN NUMBER
+                           ) RETURN VARCHAR2
+   IS
+      v_budget_van            bgt_budgetmutatie.bgt_budget_key_van%TYPE;
+      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);
+      v_budget_isreserve      bgt_budget.bgt_budget_isreserve%TYPE;
+   BEGIN
+      BEGIN
+         SELECT m.bgt_budget_key_van
+              , 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
+                               THEN 'G'
+                               ELSE CASE WHEN bv.bgt_kostenrubriek_key IS NOT NULL
+                                         THEN 'R'
+                                         ELSE 'P'
+                                         END
+                               END
+                     END mutatie_level_van
+              , CASE WHEN bn.prs_kostensoort_key IS NOT NULL
+                     THEN 'S'
+                     ELSE CASE WHEN bn.prs_kostensoortgrp_key IS NOT NULL
+                               THEN 'G'
+                               ELSE CASE WHEN bn.bgt_kostenrubriek_key IS NOT NULL
+                                         THEN 'R'
+                                         ELSE 'P'
+                                         END
+                               END
+                     END mutatie_level_naar
+              , bv.bgt_budget_isreserve
+           INTO v_budget_van
+              , v_budget_naar
+              , v_mutatie_omschrijving
+              , v_mutatie_reserve
+              , v_mutatie_code
+              , v_mutatie_level_van
+              , v_mutatie_level_naar
+              , v_budget_isreserve
+           FROM bgt_budget bv
+              , bgt_budget bn
+              , bgt_budgetmutatie m
+          WHERE m.bgt_budget_key_van  = bv.bgt_budget_key(+)
+            AND m.bgt_budget_key_naar = bn.bgt_budget_key(+)
+            AND m.bgt_budgetmutatie_key = p_mutatie_key;
+         --
+         -- 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)
+         --                             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'
+                IF (v_mutatie_code = 'W') THEN
+                    v_soort_mutatie := 'W';
+                ELSE
+                    v_soort_mutatie := 'A';
+                END IF;
+            ELSE
+                v_soort_mutatie := 'R';
+            END IF;
+         END IF;
+         --
+         -- Mutatie extra budget (er wordt geld aan algemeenreserve, kostenrubriek of kostensoort toegevoegd OF onttrokken.
+         IF ((v_budget_van = v_budget_naar) OR (v_budget_van IS NULL) OR (v_budget_naar IS NULL) ) THEN
+            v_soort_mutatie := 'E';
+         END IF;
+         --
+         -- Onderlinge mutatie (mutaties tussen kostensoorten)
+         IF (   (v_budget_van <> v_budget_naar)
+            AND (v_mutatie_level_van = 'S')
+            AND (v_mutatie_level_naar = 'S')
+            ) THEN
+            v_soort_mutatie := 'M';
+         END IF;
+      EXCEPTION
+         WHEN NO_DATA_FOUND THEN
+            v_soort_mutatie := NULL;
+      END;
+      --
+      RETURN v_soort_mutatie;
+   END getSoortMutatie;
+
+   FUNCTION getContractwaarde( p_srtkey IN VARCHAR2
+                             , p_key IN NUMBER
+                             , p_btw IN NUMBER
+                             , p_status NUMBER DEFAULT 3
+                             , p_datum_van DATE DEFAULT NULL
+                             , p_datum_tot DATE DEFAULT NULL  -- eigenlijk: tot-en-met
+                             ) RETURN NUMBER
+   IS
+      v_bedrag  NUMBER;
+   BEGIN
+      -- p_srtkey: SRT=prs_kostensoort_key, OPDR=mld_opdr_key.
+      -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
+      -- p_status: 1=raming, 2=gecontracteerd, 3=alles.
+      BEGIN
+         SELECT CASE WHEN p_btw=0 THEN SUM(COALESCE(mld_opdr_kosten,     0))
+                     WHEN p_btw=1 THEN SUM(COALESCE(mld_opdr_kosten_btw, 0))
+                     WHEN p_btw=2 THEN SUM(COALESCE(mld_opdr_kosten,     0)) + SUM(COALESCE(mld_opdr_kosten_btw, 0))
+                END contracten
+           INTO v_bedrag
+           FROM mld_opdr
+          WHERE p_key = DECODE(p_srtkey, 'SRT', prs_kostensoort_key, 'OPDR', mld_opdr_key)
+            AND (  (p_status = 1 AND mld_statusopdr_key = 10)
+                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 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;
+      END;
+      RETURN v_bedrag;
+   END getContractwaarde;
+
+   FUNCTION getRaming( p_mld_opdr_key IN NUMBER
+                     , p_btw IN NUMBER
+                     , p_datum_van DATE DEFAULT NULL
+                     , p_datum_tot DATE DEFAULT NULL
+                     ) RETURN NUMBER
+   IS
+      v_bedrag  NUMBER;
+   BEGIN
+      v_bedrag := BGT.getContractwaarde('OPDR', p_mld_opdr_key, p_btw, 1, p_datum_van, p_datum_tot);
+      RETURN v_bedrag;
+   END getRaming;
+
+   FUNCTION getGecontracteerd( p_mld_opdr_key IN NUMBER
+                             , p_btw IN NUMBER
+                             , p_datum_van DATE DEFAULT NULL
+                             , p_datum_tot DATE DEFAULT NULL
+                             ) RETURN NUMBER
+   IS
+      v_bedrag  NUMBER;
+   BEGIN
+      v_bedrag := BGT.getContractwaarde('OPDR', p_mld_opdr_key, p_btw, 2, p_datum_van, p_datum_tot);
+      RETURN v_bedrag;
+   END getGecontracteerd;
+
+   FUNCTION getGefactureerdSoort( p_kostensoort_key IN NUMBER
+                                , p_btw IN NUMBER
+                                ) RETURN NUMBER
+   IS
+      v_bedrag  NUMBER;
+   BEGIN
+      BEGIN
+         SELECT SUM(BGT.getGefactureerd(mld_opdr_key, p_btw, NULL, NULL))
+           INTO v_bedrag
+           FROM mld_opdr
+          WHERE prs_kostensoort_key = p_kostensoort_key;
+      EXCEPTION
+         WHEN NO_DATA_FOUND THEN
+            v_bedrag := NULL;
+      END;
+      RETURN v_bedrag;
+   END getGefactureerdSoort;
 
    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;
@@ -92,14 +407,14 @@ AS
       -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       v_bedrag := 0;
       BEGIN
-         SELECT CASE WHEN p_btw=0 THEN SUM(fin_factuur_totaal)
-                     WHEN p_btw=1 THEN SUM(fin_factuur_totaal_btw)
-                     WHEN p_btw=2 THEN SUM(fin_factuur_totaal) + SUM(fin_factuur_totaal_btw)
+         SELECT CASE WHEN p_btw=0 THEN SUM(COALESCE(fin_factuur_totaal,     0))
+                     WHEN p_btw=1 THEN SUM(COALESCE(fin_factuur_totaal_btw, 0))
+                     WHEN p_btw=2 THEN SUM(COALESCE(fin_factuur_totaal,     0)) + SUM(COALESCE(fin_factuur_totaal_btw, 0))
                 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
@@ -114,25 +429,24 @@ AS
                             , p_datum_tot DATE DEFAULT NULL
                             ) RETURN NUMBER
    IS
-      v_bedrag  NUMBER;
+      v_statusopdr  NUMBER;
+      v_cont        NUMBER;
+      v_fact        NUMBER;
+      v_bedrag      NUMBER;
    BEGIN
       -- p_btw: 0=excl.btw, 1=btw, 2=incl.btw.
       v_bedrag := 0;
       BEGIN
-         SELECT CASE WHEN p_btw=0 THEN COALESCE(MAX(o.mld_opdr_kosten), 0) - SUM(f.fin_factuur_totaal)
-                     WHEN p_btw=1 THEN COALESCE(MAX(o.mld_opdr_kosten_btw), 0) - SUM(f.fin_factuur_totaal_btw)
-                     WHEN p_btw=2 THEN COALESCE(MAX(o.mld_opdr_kosten), 0) + COALESCE(MAX(o.mld_opdr_kosten_btw), 0) - SUM(f.fin_factuur_totaal) - SUM(f.fin_factuur_totaal_btw)
-                END tefactureren
-           INTO v_bedrag
-           FROM fin_factuur f
-              , mld_opdr o
-          WHERE o.mld_opdr_key = f.mld_opdr_key(+)
-            AND ((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)
-            AND o.mld_opdr_key = p_mld_opdr_key;
-      EXCEPTION
-         WHEN NO_DATA_FOUND THEN
-            v_bedrag := 0;
+         SELECT NVL(mld_statusopdr_key, 0)
+           INTO v_statusopdr
+           FROM mld_opdr
+          WHERE mld_opdr_key = p_mld_opdr_key;
+         --
+         IF (v_statusopdr <> 10) THEN
+            v_cont := getGecontracteerd(p_mld_opdr_key, p_btw, p_datum_van, p_datum_tot);
+            v_fact := getGefactureerd(p_mld_opdr_key, p_btw, p_datum_van, p_datum_tot);
+            v_bedrag := COALESCE(v_cont, 0) - COALESCE(v_fact, 0);
+         END IF;
       END;
       RETURN v_bedrag;
    END getTefactureren;

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);
@@ -149,6 +150,14 @@ CREATE_TABLE(bgt_budgetmutatie, 1)
         NUMBER (12, 2),
    bgt_budget_btwbedrag_naar
         NUMBER (12, 2),
+   bgt_budgetmutatie_reserve
+        NUMBER (1)
+        DEFAULT (0)
+        NOT NULL,
+   bgt_budgetmutatie_code
+        VARCHAR2 (2),
+   bgt_budgetmutatie_volgnr
+        NUMBER (3),
    CONSTRAINT bgt_c_bgt_budget_key1 CHECK(bgt_budget_key_van IS NOT NULL OR bgt_budget_key_naar IS NOT NULL)
 );
 

BGT/BGT_TRI.SRC

@@ -53,13 +53,19 @@ CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_IU)
 BEFORE INSERT OR UPDATE ON bgt_budgetmutatie
 FOR EACH ROW
 BEGIN
+    -- Bij insert moet het nieuwe mutatiebedrag bij het budgetbedrag worden opgeteld.
+    -- Bij update moet het VERSCHIL tussen het oude- en nieuwe mutatiebedrag bij het budgetbedrag worden opgeteld.
     IF (:new.bgt_budget_key_van IS NOT NULL) THEN
-        UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
-        UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_van, 0) WHERE bgt_budget_key = :new.bgt_budget_key_van;
+        UPDATE bgt_budget
+           SET bgt_budget_bedrag    = NVL(bgt_budget_bedrag, 0)    + (NVL(:new.bgt_budget_bedrag_van, 0) - NVL(:old.bgt_budget_bedrag_van, 0))
+             , bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + (NVL(:new.bgt_budget_btwbedrag_van, 0) - NVL(:old.bgt_budget_btwbedrag_van, 0))
+         WHERE bgt_budget_key = :new.bgt_budget_key_van;
     END IF;
     IF (:new.bgt_budget_key_naar IS NOT NULL) THEN
-        UPDATE bgt_budget SET bgt_budget_bedrag = NVL(bgt_budget_bedrag, 0) + NVL(:new.bgt_budget_bedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
-        UPDATE bgt_budget SET bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + NVL(:new.bgt_budget_btwbedrag_naar, 0) WHERE bgt_budget_key = :new.bgt_budget_key_naar;
+        UPDATE bgt_budget
+           SET bgt_budget_bedrag =    NVL(bgt_budget_bedrag, 0)    + (NVL(:new.bgt_budget_bedrag_naar, 0) - NVL(:old.bgt_budget_bedrag_naar, 0))
+             , bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) + (NVL(:new.bgt_budget_btwbedrag_naar, 0) - NVL(:old.bgt_budget_btwbedrag_naar, 0))
+         WHERE bgt_budget_key = :new.bgt_budget_key_naar;
     END IF;
 END;
 /
@@ -68,8 +74,18 @@ CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_D)
 BEFORE DELETE ON bgt_budgetmutatie
 FOR EACH ROW
 BEGIN
-    UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_van WHERE bgt_budget_key = :old.bgt_budget_key_van;
-    UPDATE bgt_budget SET bgt_budget_bedrag = bgt_budget_bedrag - :old.bgt_budget_bedrag_naar WHERE bgt_budget_key = :old.bgt_budget_key_naar;
+    IF (:old.bgt_budget_key_van IS NOT NULL) THEN
+        UPDATE bgt_budget
+           SET bgt_budget_bedrag    = NVL(bgt_budget_bedrag, 0)    - NVL(:old.bgt_budget_bedrag_van, 0)
+             , bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) - NVL(:old.bgt_budget_btwbedrag_van, 0)
+         WHERE bgt_budget_key = :old.bgt_budget_key_van;
+    END IF;
+    IF (:old.bgt_budget_key_naar IS NOT NULL) THEN
+        UPDATE bgt_budget
+           SET bgt_budget_bedrag    = NVL(bgt_budget_bedrag, 0)    - NVL(:old.bgt_budget_bedrag_naar, 0)
+             , bgt_budget_btwbedrag = NVL(bgt_budget_btwbedrag, 0) - NVL(:old.bgt_budget_btwbedrag_naar, 0)
+         WHERE bgt_budget_key = :old.bgt_budget_key_naar;
+    END IF;
 END;
 /
 

BGT/BGT_VIE.SRC

@@ -11,6 +11,115 @@ AS
 DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
     bgt_v_aanwezigdiscipline, 0);
 
+CREATE OR REPLACE VIEW bgt_v_project_gegevens
+AS
+    SELECT pr.ins_discipline_key
+         , pr.bgt_project_key
+         , dp.bgt_disc_params_opdrachtgever                                     opdrachtgever
+         , dp.bgt_disc_params_code                                              pcode
+         , dp.bgt_disc_params_code || ' ' || id.ins_discipline_omschrijving     project
+         , id.ins_discipline_omschrijving                                       projectnaam
+         , pr.bgt_project_code                                                  dcode
+         , pr.bgt_project_code     || ' - ' || pr.bgt_project_omschrijving      subproject
+         , pr.bgt_project_omschrijving                                          subprojectnaam
+         , id.ins_discipline_verwijder
+         , pr.bgt_project_verwijder
+      FROM ins_tab_discipline  id
+         , bgt_disc_params     dp
+         , bgt_project         pr
+     WHERE id.ins_discipline_module = 'BGT'
+       AND id.ins_discipline_key = dp.bgt_ins_discipline_key
+       AND id.ins_discipline_key = pr.ins_discipline_key;
+
+
+CREATE OR REPLACE VIEW bgt_v_project_full
+AS
+    SELECT pr.ins_discipline_key
+         , pr.bgt_project_key
+         , pr.opdrachtgever
+         , pr.pcode
+         , pr.project
+         , pr.projectnaam
+         , pr.dcode
+         , pr.subproject
+         , pr.subprojectnaam
+         , pr.ins_discipline_verwijder
+         , pr.bgt_project_verwijder
+         , kr.bgt_kostenrubriek_key
+         , kr.bgt_kostenrubriek_code rcode
+         , kr.bgt_kostenrubriek_oms  kostenrubriek
+         , NULL                      prs_kostensoortgrp_key
+         , NULL                      gcode
+         , NULL                      kostengroep
+         , NULL                      prs_kostensoort_key
+         , NULL                      scode
+         , NULL                      kostensoort
+         , kr.bgt_kostenrubriek_code kostencode
+         , SUBSTR(kr.bgt_kostenrubriek_oms, INSTR(kr.bgt_kostenrubriek_oms, ' ',1,1)+1)  kostennaam
+      FROM bgt_v_project_gegevens pr
+         , bgt_kostenrubriek      kr
+     WHERE pr.bgt_project_key = kr.bgt_project_key
+    UNION
+    SELECT pr.ins_discipline_key
+         , pr.bgt_project_key
+         , pr.opdrachtgever
+         , pr.pcode
+         , pr.project
+         , pr.projectnaam
+         , pr.dcode
+         , pr.subproject
+         , pr.subprojectnaam
+         , pr.ins_discipline_verwijder
+         , pr.bgt_project_verwijder
+         , kr.bgt_kostenrubriek_key
+         , kr.bgt_kostenrubriek_code     rcode
+         , kr.bgt_kostenrubriek_oms      kostenrubriek
+         , kg.prs_kostensoortgrp_key
+         , kg.prs_kostensoortgrp_altcode gcode
+         , kg.prs_kostensoortgrp_oms     kostengroep
+         , NULL
+         , NULL
+         , NULL
+         , kg.prs_kostensoortgrp_altcode kostencode
+         , SUBSTR(kg.prs_kostensoortgrp_oms, INSTR(kg.prs_kostensoortgrp_oms, ' ',1,1)+1)  kostennaam
+      FROM bgt_v_project_gegevens pr
+         , bgt_kostenrubriek      kr
+         , prs_kostensoortgrp     kg
+     WHERE pr.bgt_project_key = kr.bgt_project_key
+       AND kr.bgt_kostenrubriek_key = kg.bgt_kostenrubriek_key
+    UNION
+    SELECT pr.ins_discipline_key
+         , pr.bgt_project_key
+         , pr.opdrachtgever
+         , pr.pcode
+         , pr.project
+         , pr.projectnaam
+         , pr.dcode
+         , pr.subproject
+         , pr.subprojectnaam
+         , pr.ins_discipline_verwijder
+         , pr.bgt_project_verwijder
+         , kr.bgt_kostenrubriek_key
+         , kr.bgt_kostenrubriek_code     rcode
+         , kr.bgt_kostenrubriek_oms      kostenrubriek
+         , kg.prs_kostensoortgrp_key
+         , kg.prs_kostensoortgrp_altcode gcode
+         , kg.prs_kostensoortgrp_oms     kostengroep
+         , ks.prs_kostensoort_key
+         , ks.prs_kostensoort_altcode    scode
+         , ks.prs_kostensoort_oms        kostensoort
+         , ks.prs_kostensoort_altcode    kostencode
+         , SUBSTR(ks.prs_kostensoort_oms, INSTR(ks.prs_kostensoort_oms, ' ',1,1)+1)  kostennaam
+      FROM bgt_v_project_gegevens pr
+         , bgt_kostenrubriek      kr
+         , prs_kostensoortgrp     kg
+         , prs_kostensoort        ks
+     WHERE pr.bgt_project_key = kr.bgt_project_key
+       AND kr.bgt_kostenrubriek_key = kg.bgt_kostenrubriek_key
+       AND kg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key;
+
+
+
 REGISTERRUN('$Id$')
 
 #endif // BGT

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

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

CAD/CAD_VIE.SRC

@@ -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
@@ -217,18 +208,25 @@ SELECT ra.alg_ruimte_key, 'mismatch'
 CREATE_VIEW(cad_v_label_srtruimteopp,0)
      (alg_ruimte_key, waarde)
 AS
-   SELECT r.alg_ruimte_key,
-          sr.alg_srtruimte_omschrijving || ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)'
-     FROM alg_v_aanwezigruimte r, alg_srtruimte sr
-    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key;
+    SELECT r.alg_ruimte_key,
+              lcl.x ('alg_srtruimte_omschrijving',
+                     sr.alg_srtruimte_key,
+                     sr.alg_srtruimte_omschrijving)
+           || DECODE (r.alg_ruimte_bruto_vloeropp,
+                      NULL, '',
+                      ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)')
+      FROM alg_v_aanwezigruimte r, alg_srtruimte sr
+     WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key;
 
 -- Ruimtesoort
 CREATE_VIEW(cad_v_thema_srtruimte, 0)
      (alg_ruimte_key, waarde, waarde_key)
 AS
-   SELECT r.alg_ruimte_key, sr.alg_srtruimte_omschrijving, r.alg_srtruimte_key
-     FROM alg_v_aanwezigruimte r, alg_srtruimte sr
-    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+);
+  SELECT r.alg_ruimte_key,
+        sr.alg_srtruimte_omschrijving,  // deze moet niet vertaald worden, dat regelt de programmatuur
+        r.alg_srtruimte_key
+  FROM alg_v_aanwezigruimte r, alg_srtruimte sr
+ WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+);
 
 CREATE_TRIGGER(cad_t_thema_srtruimte_i_iu)
 INSTEAD OF INSERT OR UPDATE ON cad_v_thema_srtruimte
@@ -274,26 +272,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 +298,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 +428,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 +473,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 +496,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 +563,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 + 1 >= res_rsv_deel_van
+                     AND datum < res_rsv_deel_tot ) res                          -- Bezet
+       WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+)
+    GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
+
+
 --
 -- Thema's gebaseerd op objectstatus van objecten binnen ruimte/werkplek (typisch sensoren)
 --
@@ -698,6 +779,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 + 1 >= res_rsv_deel_van
+                             AND datum < res_rsv_deel_tot) blokkerend -- vandaag en nog niet afgelopen
+               WHERE     r.res_deel_key = blokkerend.res_deel_key(+)
+                     AND datums.datum = blokkerend.datum(+)
+                     AND (r.res_deel_vervaldatum IS NULL or r.res_deel_vervaldatum > datums.datum)
+                     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);
@@ -1587,7 +1612,7 @@ INSERT INTO fac_usrrap
              fac_functie_key,
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
-	
+
 	-- BONS#40385: Totaallijst clienten in zorg met medewerker (outerjoin uren):
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
@@ -1609,6 +1634,26 @@ 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_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Totaal lijst cli<6C>nten in zorg - zonder uren',
+             'care_v_rap_tot_clientzorg_all',
+             0,
+             0,
+             1,
+             'Totaal lijst cli<6C>nten in zorg met gekoppelde medewerker',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
+
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -2125,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;
@@ -287,7 +288,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                                 prs_perslid_key_eig, prs_perslid_key_beh, prs_afdeling_key_eig, cnt_contract_status,
                                 cnt_contract_looptijd_van, prs_kostenplaats_key, cnt_contract_termijnkosten, prs_kostensoort_key,
                                 cnt_contract_opmerking, cnt_contract_mantel_key, cnt_contract_opzegtermijn,
-                                cnt_contract_rappeltermijn, cnt_contract_versie
+                                cnt_contract_rappeltermijn, cnt_contract_versie, prs_dienst_key, cnt_contract_termijntermijn
                                )
          SELECT   cnt_contract_nummer,
                   cnt_contract_omschrijving,
@@ -316,7 +317,9 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   cnt_contract_mantel_key,
                   cnt_contract_opzegtermijn,
                   cnt_contract_rappeltermijn,
-                  TO_CHAR (versie1 + 1)
+                  TO_CHAR (versie1 + 1),
+                  prs_dienst_key,
+                  cnt_contract_termijntermijn
            FROM   cnt_contract
           WHERE   cnt_contract_key = p_key;
 
@@ -513,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
 );
 
 
@@ -120,7 +142,7 @@ CREATE_TABLE(cnt_contract,0)
 ,  cnt_contract_nummer_intern
    VARCHAR2(30)
 ,  cnt_contract_korting
-   NUMBER(4,2)
+   NUMBER(5,2)
    CONSTRAINT cnt_c_cnt_contract_korting CHECK(0 <= cnt_contract_korting  AND cnt_contract_korting  <= 100)
 ,  prs_contactpersoon_key
    NUMBER(10)
@@ -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
@@ -276,7 +298,7 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
 ,  cnt_srtkenmerk_kenmerktype
       VARCHAR2(1)
 ,  cnt_srtkenmerk_systeem
-      NUMBER(1)
+      NUMBER(2)
 ,  cnt_srtkenmerk_lengte
       NUMBER(4)
 ,  cnt_srtkenmerk_dec
@@ -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','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
                                        ),
@@ -894,7 +894,7 @@ SELECT c.cnt_contract_nummer_intern,
                                0, 1,
                                SUM (cnt_contract_plaats_gewicht))
                   FROM cnt_contract_plaats ccp
-                 WHERE ccp.cnt_contract_key = cnt_contract_key),
+                 WHERE ccp.cnt_contract_key = c.cnt_contract_key),
              c.cnt_contract_kosten),
           2)
           kosten,
@@ -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)
 
@@ -628,38 +624,105 @@ CEIL
 
 #define DEF_FAC_MESSAGE(a,b,c)    INSERT INTO fac_message VALUES (a,b)
 
-#define DEF_FAC_FUNCTIE(c, o, m, l) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level) VALUES(c, o, m, l)
-#define UPD_FAC_FUNCTIE(c, o, m, l) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l) WHERE fac_functie_code=c
-#define DEF_FAC_FUNCTIE2(c, o, m, l, d, g, i) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, o, m, l, d, g, i)
-#define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=0,fac_functie_module=m,fac_functie_min_level=l, fac_functie_discipline=d, fac_functie_groep=g, fac_functie_info=i) WHERE fac_functie_code=c
+#define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=o,fac_functie_module=m,fac_functie_min_level=l, fac_functie_discipline=d, fac_functie_groep=g, fac_functie_info=i) WHERE fac_functie_code=c
 #define DEF_FAC_FUNCTIE3(c, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, 'lcl_' || c, m, l, d, g, 'lcl_' || c || '_info')
+#define DEF_FAC_FUNCTIE3x(c, x, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c||x, 'lcl_' || c ||x, m, l, d, g, 'lcl_' || c || x ||'_info')
 #define DEF_FAC_SRTNOT(c, m, o, u, g, x, d) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode, fac_srtnotificatie_delay) VALUES (c, m, o, u, g, x, d)
 
-#define DEF_MENUKOP(g, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, 1 FROM fac_menuitems
-#define DEF_MENUKOPV(g, v, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) VALUES (v, s, g, 1)
+#define DEF_MENUKOP(g, s, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, i, 1 FROM fac_menuitems
+#define DEF_MENUKOPV(g, v, s, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) VALUES (v, s, g, i, 1)
 #define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x, img) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default, fac_menuitems_image) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x, img FROM fac_functie WHERE fac_functie_code=f
 
-#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_functie_key) SELECT v, l, i, u, g, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
+#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_menu_level, fac_functie_key) SELECT v, l, i, u, g, 2, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
 
 #define DEF_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
-#define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
+#define DEF_BOOKMARK(x, p, q) INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
 // We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter
-#define DEF_STATUS(x, c, t)INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
+#define DEF_STATUS(x, c, t) INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
 
 // Voeg (nieuwe, default) menukop met label a van groep g en level l toe na bestaande menuoptie met label b, increment n
 #define MENU_INSKOP_AFTER(a, b, g, n) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT fac_menu_volgnr + n, a, g, 1 FROM fac_menu m WHERE m.fac_menuitems_key = (SELECT MAX (mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // Voeg (nieuwe, default) menuoptie met label a toe na de eerste bestaande menukop met label b, increment n
-#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, MIN (m.fac_menu_volgnr) + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
+#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, MIN (m.fac_menu_volgnr) + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
 // Voeg (nieuwe, default) menuoptie met label a toe na bestaande menuoptie met label b, increment n
-#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
+#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, m.fac_menu_volgnr + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // poging 1
 #define MENU_MOV_AFTER(b, a, n) UPDATE fac_menu SET fac_menu_volgnr = (SELECT m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE m.fac_menuitems_key=i.fac_menuitems_key AND i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a)) WHERE fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 
+
+// Default widget's volgens;
+#define DEF_WIDGET(t, n, c, u, p) INSERT INTO fac_widget (fac_widget_type, fac_widget_naam, fac_widget_content, fac_widget_url, fac_widget_public) VALUES (UPPER(t), n, c, u, p)
+
 // NOT_NULL(): Columnconstraint ipv. NOT NULL, De melding ORA-1400: mandatory (NOT NULL)...
 // geeft de constraintnaam niet, zodat de melding niet vertaald kan worden.
 // De CHECK() geeft het wel, dus wordt deze gebruikt.
 #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); ~\
@@ -703,13 +766,17 @@ COMMIT;
 
 #define AUDIT_BEGIN(table)                          ~\
 CREATE OR REPLACE TRIGGER aud_t_##table##           ~\
-AFTER UPDATE OR DELETE ON table                     ~\
+AFTER INSERT OR UPDATE OR DELETE ON table           ~\
 FOR EACH ROW                                        ~\
  DECLARE                                            ~\
-   isdeleting NUMBER(1) := 0;                       ~\
+   action VARCHAR2(1);                              ~\
  BEGIN                                              ~\
    IF DELETING THEN                                 ~\
-      isdeleting := 1;                              ~\
+      action := 'D';                                ~\
+   ELSIF INSERTING THEN                             ~\
+      action := 'I';                                ~\
+   ELSE                                             ~\
+      action := 'U';                                ~\
    END IF;
 
 #define AUDIT_VALUE_K(table, tablekey, column)      ~\
@@ -719,22 +786,11 @@ FOR EACH ROW                                        ~\
                       STRINGIZE(column),            ~\
                       :old.column,                  ~\
                       :new.column,                  ~\
-                      isdeleting);
+                      action);
 
 #define AUDIT_VALUE(table, column)                  ~\
       AUDIT_VALUE_K(table, table##_key, column)
 
-#define AUDIT_DELETE(table, column)                 ~\
-   IF DELETING THEN                                 ~\
-      aud.auditaction(STRINGIZE(table),             ~\
-                      :old.table##_key,             ~\
-                      :new.table##_key,             ~\
-                      STRINGIZE(column),            ~\
-                      :old.column,                  ~\
-                      :new.column,                  ~\
-                      1);                           ~\
-   END IF;
-
 #define AUDIT_END()                                 ~\
 END; ~\
 / ~ \

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);
 
@@ -41,6 +40,9 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
 
 CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
 CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
+CREATE INDEX fac_i_fac_imp_file1 ON fac_imp_file(fac_import_key);
+CREATE INDEX fac_i_fac_imp_csv1 ON fac_imp_csv(fac_import_key);
+
 -- Maakt opruimen efficienter:
 CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key, fac_import_key);
 
@@ -59,10 +61,15 @@ CREATE UNIQUE INDEX fac_i_fac_menuitems1 ON fac_menuitems (fac_menuitems_label);
 
 CREATE INDEX fac_i_fac_menu_perslid_key ON fac_menu (prs_perslid_key);
 
-CREATE UNIQUE INDEX fac_i_idp_code ON fac_idp(fac_idp_code);
-
 CREATE UNIQUE INDEX fac_i_imp_usrdata1 ON fac_imp_usrdata (fac_usrtab_naam, fac_usrdata_code);
 
 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_PACA.SRC

@@ -12,15 +12,16 @@
 
 CREATE OR REPLACE PACKAGE aud
 AS
-    PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, isdeleting NUMBER, opmerk VARCHAR2 DEFAULT NULL);
+    PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, action VARCHAR2, opmerk VARCHAR2 DEFAULT NULL);
 END aud;
 /
 CREATE OR REPLACE PACKAGE BODY aud
 AS
-   PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, isdeleting NUMBER, opmerk VARCHAR2 DEFAULT NULL)
+   PROCEDURE auditaction (tabelnaam VARCHAR2, tabelkey_oud NUMBER, tabelkey_nieuw NUMBER, veldnaam VARCHAR2, waarde_oud VARCHAR2, waarde_nieuw VARCHAR2, action VARCHAR2, opmerk VARCHAR2 DEFAULT NULL)
    IS
    BEGIN
-      IF COALESCE(waarde_oud, 'bUSnDIaVjRS56D3z') <> COALESCE(waarde_nieuw, 'bUSnDIaVjRS56D3z')
+      IF (action <> 'I' AND COALESCE(waarde_oud, 'bUSnDIaVjRS56D3z') <> COALESCE(waarde_nieuw, 'bUSnDIaVjRS56D3z')) OR
+         (action = 'I' AND waarde_nieuw IS NOT NULL)
       THEN
          INSERT INTO fac_audit (fac_audit_tabelnaam,
                                 fac_audit_tabelkey,
@@ -33,7 +34,7 @@ AS
                         VALUES (tabelnaam,
                                 COALESCE(tabelkey_nieuw, tabelkey_oud),
                                 veldnaam,
-                                CASE WHEN isdeleting = 1 OR SUBSTR(veldnaam, -9) = 'verwijder' THEN 'D' ELSE 'U' END,
+                                CASE WHEN action = 'D' OR SUBSTR(veldnaam, -9) = 'verwijder' THEN 'D' ELSE action END,
                                 waarde_oud,
                                 waarde_nieuw,
                                 sys_context('USERENV', 'CLIENT_IDENTIFIER'),

FAC/FAC_PACANO.SRC

@@ -0,0 +1,765 @@
+#ifdef MLD
+/*
+ * $Revision$
+ * $Id$
+ */
+
+#undef TRUNC
+
+CREATE OR REPLACE PACKAGE ano AS
+  PROCEDURE anonymizebes (p_startdatum IN DATE, p_einddatum IN DATE);
+  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;
+/
+
+CREATE OR REPLACE PACKAGE BODY ano AS
+    PROCEDURE anonymizebes (p_startdatum IN DATE,
+                            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
+       IS
+            SELECT b.bes_bestelling_key
+              FROM bes_bestelling b
+             WHERE (SELECT MAX(ft.fac_tracking_datum)
+                      FROM fac_tracking ft
+                     WHERE ft.fac_tracking_refkey = b.bes_bestelling_key
+                       AND ft.fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                           FROM fac_srtnotificatie
+                                                         WHERE fac_srtnotificatie_xmlnode = 'bestelling'
+                                                           --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
+                          FROM fac_tracking ft
+                         WHERE ft.fac_tracking_refkey = b.bes_bestelling_key
+                           AND ft.fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key
+                                                              FROM fac_srtnotificatie
+                                                             WHERE fac_srtnotificatie_code = 'BESANO'))
+          ORDER BY b.bes_bestelling_key;
+
+    BEGIN
+       IF p_einddatum > SYSDATE - anonymize_period + 1
+       THEN
+         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.
+          DELETE FROM bes_kenmerkbestell bkbl
+                WHERE bkbl.bes_bestelling_key = rec_b.bes_bestelling_key
+                  AND bkbl.bes_kenmerk_key IN (SELECT bk.bes_kenmerk_key
+                                                FROM bes_kenmerk bk,
+                                                     bes_srtkenmerk bsk
+                                               WHERE bk.bes_srtkenmerk_key = bsk.bes_srtkenmerk_key
+                                                 AND bk.bes_kenmerk_key = bkbl.bes_kenmerk_key
+                                                 AND BITAND(bsk.bes_srtkenmerk_systeem, 8) = 8);
+
+
+          -- Verwijder alle kenmerkwaarden van de bestelopdrachten van de bestelling waarvan het &8 (BITAND) bit van het bes_srtkenmerk.bes_srtkenmerk_systeem veld is gezet.
+          DELETE FROM bes_kenmerkbesteli bkbi
+                WHERE bkbi.bes_bestelling_item_key IN (SELECT bi.bes_bestelling_item_key
+                                                         FROM bes_bestelling_item bi
+                                                        WHERE bi.bes_bestelling_key = rec_b.bes_bestelling_key)
+                  AND bkbi.bes_kenmerk_key IN (SELECT bk.bes_kenmerk_key
+                                                FROM bes_kenmerk bk,
+                                                     bes_srtkenmerk bsk
+                                               WHERE bk.bes_srtkenmerk_key = bsk.bes_srtkenmerk_key
+                                                 AND bk.bes_kenmerk_key = bkbi.bes_kenmerk_key
+                                                 AND BITAND(bsk.bes_srtkenmerk_systeem, 8) = 8);
+
+          -- Alle BES tracking anonimiseren m.b.t. de bestelling.
+          UPDATE fac_tracking
+             SET fac_tracking_oms = NULL
+           WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                              FROM fac_srtnotificatie
+                                             WHERE fac_srtnotificatie_xmlnode = 'bestelling'
+                                               AND fac_srtnotificatie_code != 'BESANO')
+             AND fac_tracking_refkey = rec_b.bes_bestelling_key
+             AND fac_tracking_oms IS NOT NULL;
+
+          -- Anonimiseren van de bestelling tracken.
+          fac.trackaction('BESANO', rec_b.bes_bestelling_key, NULL, NULL, NULL);
+
+          -- Anonimiseren bestelopdrachten.
+          FOR rec_bo IN (SELECT bo.bes_bestelopdr_key
+                           FROM bes_bestelopdr bo,
+                                bes_bestelopdr_item boi,
+                                bes_bestelling_item bi
+                          WHERE bo.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                            AND boi.bes_bestelopdr_item_key = bi.bes_bestelopdr_item_key
+                            AND bi.bes_bestelling_key = rec_b.bes_bestelling_key)
+          LOOP
+             -- Alle BES tracking anonimiseren m.b.t. de bestelopdracht van de bestelling.
+             UPDATE fac_tracking
+                SET fac_tracking_oms = NULL
+              WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                 FROM fac_srtnotificatie
+                                                WHERE fac_srtnotificatie_xmlnode = 'bestelopdr'
+                                                  AND fac_srtnotificatie_code != 'BES2AN')
+                AND fac_tracking_refkey = rec_bo.bes_bestelopdr_key
+                AND fac_tracking_oms IS NOT NULL;
+
+             -- 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;
+
+    PROCEDURE anonymizebez (p_startdatum IN DATE,
+                            p_einddatum  IN DATE)
+    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
+       IS
+            SELECT bez_afspraak_key
+              FROM bez_afspraak
+             WHERE bez_afspraak_datum BETWEEN p_startdatum AND p_einddatum
+               AND NOT EXISTS
+                       (SELECT ft.fac_tracking_key
+                          FROM fac_tracking ft
+                         WHERE ft.fac_tracking_refkey = bez_afspraak_key
+                           AND ft.fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key
+                                                              FROM fac_srtnotificatie
+                                                             WHERE fac_srtnotificatie_code = 'BEZANO'))
+          ORDER BY bez_afspraak_key;
+    BEGIN
+       IF p_einddatum > SYSDATE - anonymize_period + 1
+       THEN
+         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.
+          DELETE FROM bez_kenmerkwaarde bkw
+                WHERE bkw.bez_bezoekers_key IN (SELECT b.bez_bezoekers_key
+                                                  FROM bez_bezoekers b
+                                                 WHERE b.bez_afspraak_key = rec.bez_afspraak_key)
+                  AND bkw.bez_kenmerk_key IN (SELECT bk.bez_kenmerk_key
+                                                FROM bez_kenmerk bk
+                                               WHERE bk.bez_kenmerk_key = bkw.bez_kenmerk_key
+                                                 AND BITAND(bk.bez_kenmerk_systeem, 8) = 8);
+
+          -- Anonimiseer alle bezoekers.
+          UPDATE bez_bezoekers
+             SET bez_afspraak_naam = bez_generic_visitor,
+                 bez_afspraak_bedrijf = 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.
+          -- Door de trigger in de update wordt automatische de naam van de host in de gastheer geplakt.
+          -- Daardoor wordt de lcl "Ganonimiseerd" in vele gevallen niet blijvend in de gasheer gezet.
+          -- De persoon (prs record) moet daarom eerst aangepast worden.
+          -- Tijdens het anonimiseren van de persoon wordt daarom de bez_afspraak_gastheer ook geanonimiseerd.
+          -- In de gevallen dat er geen host wordt gebruikt en alleen tekst voor de persoon (gastheer) wordt ingevuld wordt het veld wel blijvend gezet.
+          UPDATE bez_afspraak
+             SET bez_afspraak_gastheer = bez_generic_visitor,
+                 bez_afspraak_telefoonnr = NULL,
+                 bez_afspraak_opmerking = NULL
+           WHERE bez_afspraak_key = rec.bez_afspraak_key;
+
+          -- Alle BEZ tracking anonimiseren m.b.t. de afspraak.
+          UPDATE fac_tracking
+             SET fac_tracking_oms = NULL
+           WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                              FROM fac_srtnotificatie
+                                             WHERE fac_srtnotificatie_xmlnode = 'afspraak'
+                                               AND fac_srtnotificatie_code != 'BEZANO')
+             AND fac_tracking_refkey = rec.bez_afspraak_key
+             AND fac_tracking_oms IS NOT NULL;
+
+          -- Alle BEZ tracking anonimiseren m.b.t. de bezoekers van de afspraak.
+          UPDATE fac_tracking
+             SET fac_tracking_oms = NULL
+           WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                              FROM fac_srtnotificatie
+                                             WHERE fac_srtnotificatie_xmlnode = 'bezoeker')
+             AND fac_tracking_refkey IN (SELECT bb.bez_bezoekers_key FROM bez_bezoekers bb WHERE bb.bez_afspraak_key = rec.bez_afspraak_key)
+             AND fac_tracking_oms IS NOT NULL;
+
+          -- 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;
+
+    PROCEDURE anonymizemld (p_startdatum IN DATE,
+                            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
+       IS
+            SELECT m.mld_melding_key
+              FROM mld_melding m
+             WHERE (SELECT MAX(ft.fac_tracking_datum)
+                      FROM fac_tracking ft
+                     WHERE ft.fac_tracking_refkey = m.mld_melding_key
+                       AND ft.fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                           FROM fac_srtnotificatie
+                                                         WHERE fac_srtnotificatie_xmlnode = 'melding'
+                                                           --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
+                          FROM fac_tracking ft
+                         WHERE ft.fac_tracking_refkey = m.mld_melding_key
+                           AND ft.fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key
+                                                              FROM fac_srtnotificatie
+                                                             WHERE fac_srtnotificatie_code = 'MLDANO'))
+          ORDER BY m.mld_melding_key;
+
+    BEGIN
+       IF p_einddatum > SYSDATE - anonymize_period + 1
+       THEN
+         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.
+          DELETE FROM mld_kenmerkmelding mkm
+                WHERE mkm.mld_melding_key = rec_m.mld_melding_key
+                  AND mkm.mld_kenmerk_key IN (SELECT mk.mld_kenmerk_key
+                                                FROM mld_kenmerk mk,
+                                                     mld_srtkenmerk msk
+                                               WHERE mk.mld_srtkenmerk_key = msk.mld_srtkenmerk_key
+                                                 AND mk.mld_kenmerk_key = mkm.mld_kenmerk_key
+                                                 AND BITAND(msk.mld_srtkenmerk_systeem, 8) = 8);
+
+          -- Verwijder alle kenmerkwaarden van de opdrachten van de melding waarvan het &8 (BITAND) bit van het mld_srtkenmerk.mld_srtkenmerk_systeem veld is gezet.
+          DELETE FROM mld_kenmerkopdr mko
+                WHERE mko.mld_opdr_key IN (SELECT mo.mld_opdr_key
+                                             FROM mld_opdr mo
+                                            WHERE mo.mld_melding_key = rec_m.mld_melding_key)
+                  AND mko.mld_kenmerk_key IN (SELECT mk.mld_kenmerk_key
+                                                FROM mld_kenmerk mk,
+                                                     mld_srtkenmerk msk
+                                               WHERE mk.mld_srtkenmerk_key = msk.mld_srtkenmerk_key
+                                                 AND mk.mld_kenmerk_key = mko.mld_kenmerk_key
+                                                 AND BITAND(msk.mld_srtkenmerk_systeem, 8) = 8);
+
+          -- Alle MLD tracking anonimiseren m.b.t. de melding.
+          UPDATE fac_tracking
+             SET fac_tracking_oms = NULL
+           WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                              FROM fac_srtnotificatie
+                                             WHERE fac_srtnotificatie_xmlnode = 'melding'
+                                               AND fac_srtnotificatie_code != 'MLDANO')
+             AND fac_tracking_refkey = rec_m.mld_melding_key
+             AND fac_tracking_oms IS NOT NULL;
+
+          -- Anonimiseren van de melding tracken.
+          fac.trackaction('MLDANO', rec_m.mld_melding_key, NULL, NULL, NULL);
+
+          -- Anonimiseren opdrachten melding.
+          FOR rec_o IN (SELECT mld_opdr_key
+                          FROM mld_opdr
+                         WHERE mld_melding_key = rec_m.mld_melding_key)
+          LOOP
+             -- Alle MLD tracking anonimiseren m.b.t. de opdrachten van de melding.
+             UPDATE fac_tracking
+                SET fac_tracking_oms = NULL
+              WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                 FROM fac_srtnotificatie
+                                                WHERE fac_srtnotificatie_xmlnode = 'opdracht'
+                                                  AND fac_srtnotificatie_code != 'ORDANO')
+                AND fac_tracking_refkey = rec_o.mld_opdr_key
+                AND fac_tracking_oms IS NOT NULL;
+
+             -- 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;
+
+    PROCEDURE anonymizeprs (p_startdatum IN DATE,
+                            p_einddatum  IN DATE)
+    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
+       IS
+            SELECT '[' || TO_CHAR (p.prs_perslid_key) || '|' || p.prs_perslid_naam || '|' || p.prs_perslid_email || '] ' aanduiding,
+                   p.prs_perslid_key
+              FROM prs_perslid p
+             WHERE p.prs_perslid_verwijder IS NOT NULL
+               AND p.prs_perslid_verwijder BETWEEN p_startdatum AND p_einddatum
+               AND NOT EXISTS
+                       (SELECT ft.fac_tracking_key
+                          FROM fac_tracking ft
+                         WHERE ft.fac_tracking_refkey = p.prs_perslid_key
+                           AND ft.fac_srtnotificatie_key = (SELECT fac_srtnotificatie_key
+                                                              FROM fac_srtnotificatie
+                                                             WHERE fac_srtnotificatie_code = 'PRSANO'))
+          ORDER BY 2;
+    BEGIN
+       IF p_einddatum > SYSDATE - anonymize_period + 1
+       THEN
+         raise_application_error (-20000, 'ano_m001 Einddatum is te groot');
+       END IF;
+
+       v_count := 0;
+       FOR rec IN c_perslid
+       LOOP
+          BEGIN
+             -- Verwijder alle kenmerkwaarden van de persoon waarvan het &8 (BITAND) bit van het prs_kenmerk.prs_kenmerk_systeem veld is gezet.
+             DELETE FROM prs_kenmerklink pkl
+                   WHERE pkl.prs_kenmerklink_niveau = 'P'
+                     AND pkl.prs_link_key = rec.prs_perslid_key
+                     AND pkl.prs_kenmerk_key IN (SELECT pk.prs_kenmerk_key
+                                                   FROM prs_kenmerk pk
+                                                  WHERE pk.prs_kenmerk_key = pkl.prs_kenmerk_key
+                                                    AND BITAND(pk.prs_kenmerk_systeem, 8) = 8);
+
+             -- Persoon anonimiseren.
+             UPDATE prs_perslid
+                SET prs_perslid_naam = prs_old_employee,
+                    prs_perslid_tussenvoegsel = NULL,
+                    prs_perslid_voorletters = NULL,
+                    prs_perslid_voornaam = NULL,
+                    prs_perslid_titel = NULL,
+                    prs_perslid_initialen = NULL,
+                    prs_perslid_geslacht = NULL,
+                    prs_perslid_nr = NULL,
+                    prs_perslid_telefoonnr = NULL,
+                    prs_perslid_mobiel = NULL,
+                    prs_perslid_email = NULL,
+                    prs_perslid_oslogin = NULL,
+                    prs_perslid_oslogin2 = NULL,
+                    prs_perslid_uurloon = NULL,
+                    alg_onroerendgoed_keys = NULL,
+                    alg_onroerendgoed_type = NULL
+              WHERE prs_perslid_key = rec.prs_perslid_key;
+
+             -- Van al zijn afspraken waar hij host was, ook de naam van de host (=veld gastheer) anonimiseren.
+             -- Door update gebeurd dit eigenlijk al automatisch maar dan moet de persoon al wel eerst geanonimiseerd zijn.
+             UPDATE bez_afspraak
+                SET bez_afspraak_gastheer = bez_generic_visitor
+              WHERE bez_afspraak_host_key = rec.prs_perslid_key;
+
+             -- Alle PRSXXX tracking anonimiseren. De PRSLOG tracking moet verwijderd worden.
+             UPDATE fac_tracking
+                SET fac_tracking_oms = NULL
+              WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                 FROM fac_srtnotificatie
+                                                WHERE fac_srtnotificatie_code LIKE 'PRS%'
+                                                  AND fac_srtnotificatie_code != 'PRSLOG'
+                                                  AND fac_srtnotificatie_code != 'PRSANO')
+                AND fac_tracking_refkey = rec.prs_perslid_key
+                AND fac_tracking_oms IS NOT NULL;
+
+             -- PRSLOG Tracking verwijderen.
+             DELETE FROM fac_tracking
+              WHERE fac_srtnotificatie_key IN (SELECT fac_srtnotificatie_key
+                                                 FROM fac_srtnotificatie
+                                                WHERE fac_srtnotificatie_code = 'PRSLOG')
+                AND fac_tracking_refkey = rec.prs_perslid_key;
+
+             -- 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
+    BEGIN
+       anonymizebes(p_startdatum, p_einddatum);
+       anonymizebez(p_startdatum, p_einddatum);
+       anonymizemld(p_startdatum, p_einddatum);
+       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;
+/
+
+REGISTERRUN('$Id$')
+
+#endif // 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
@@ -178,10 +179,10 @@ AS
 
       IF (requiredlang = fcltdblanguage OR pkey IS NULL)
       THEN
-         DBMS_OUTPUT.put_line ('Using default language ' || requiredlang);
+         -- DBMS_OUTPUT.put_line ('Using default language ' || requiredlang);
          retval := pdefault;
       ELSE
-         DBMS_OUTPUT.put_line ('Using notdefault language ' || requiredlang);
+         -- DBMS_OUTPUT.put_line ('Using notdefault language ' || requiredlang);
          retval := lcl.xl (pnaam, pkey, pdefault, requiredlang);
       END IF;
 
@@ -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,19 +38,25 @@ 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;
+CREATE SEQUENCE fac_s_fac_widget_page_key       MINVALUE 100;
+CREATE SEQUENCE fac_s_fac_widget_onpage_key     MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_note_group_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
+CREATE SEQUENCE fac_s_imp_csv_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_audit_key             MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_auditfail_key         MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerk_key           MINVALUE 1;
 CREATE SEQUENCE faq_s_faq_kenmerkwaarde_key     MINVALUE 1;
 CREATE SEQUENCE faq_s_fac_gui_counter_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_email_setting_key     MINVALUE 1;
-CREATE SEQUENCE fac_s_fac_idp_key               MINVALUE 1;
 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;
+CREATE SEQUENCE fac_s_fac_layout_key            MINVALUE 100;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_TRI.SRC

@@ -28,7 +28,6 @@ FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_groep_key, fac_s_fac_groep_key);
     :new.fac_groep_upper := UPPER(:new.fac_groep_omschrijving);
-    :new.fac_groep_aanmaak := SYSDATE;
 END;
 /
 
@@ -191,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
@@ -376,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;
 /
 
@@ -393,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;
 /
 
@@ -428,6 +441,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_imp_csv_B_I)
+BEFORE INSERT ON fac_imp_csv
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_imp_csv_key, fac_s_imp_csv_key);
+END;
+/
+
 CREATE_TRIGGER(imp_t_notificatie_imp_log)
    AFTER INSERT
    ON imp_log
@@ -437,6 +458,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
@@ -470,7 +493,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;
@@ -505,6 +543,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
@@ -547,7 +586,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;
@@ -569,6 +608,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
@@ -581,6 +627,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)
@@ -694,10 +741,27 @@ BEFORE INSERT OR UPDATE ON fac_widget
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fac_widget_key, fac_s_fac_widget_key);
+   :new.fac_widget_type := UPPER(:new.fac_widget_type);
    UPDATE_AANMAAKDATUM(fac_widget, fac_widget_aanmaak);
 END;
 /
 
+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
@@ -722,6 +786,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_auditfail_b_i)
+BEFORE INSERT ON fac_auditfail
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_auditfail_key, fac_s_fac_auditfail_key);
+END;
+/
+
 CREATE_TRIGGER(faq_t_faq_kenmerkwaarde_b_iu)
 BEFORE INSERT OR UPDATE ON faq_kenmerkwaarde
 FOR EACH ROW
@@ -940,15 +1012,6 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_idp_B_IU)
-BEFORE INSERT OR UPDATE ON fac_idp
-FOR EACH ROW
-BEGIN
-   UPDATE_PRIMARY_KEY(fac_idp_key, fac_s_fac_idp_key);
-   :new.fac_idp_code := UPPER(:new.fac_idp_code);
-END;
-/
-
 CREATE_TRIGGER(fac_t_fac_bookmark_B_I)
 BEFORE INSERT ON fac_bookmark
 FOR EACH ROW
@@ -973,4 +1036,23 @@ 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;
+/
+
+CREATE_TRIGGER(fac_t_fac_layout_B_I)
+BEFORE INSERT ON fac_layout
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_layout_key, fac_s_fac_layout_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/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-2017 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
@@ -44,7 +44,7 @@
 ###############################################################################
 ##
 ##    Steps performed are:
-##          All files are preprocessed directly into their result, no temp files
+##          All files are preprocessed using intermediate temp files
 
 
 #############
@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=31
-NEXTVERSION=32
-FILEVERSION=a
-NEXTCAREVERSION=32
+CURRENTVERSION=39
+NEXTVERSION=40f
+FILEVERSION=
+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  \
@@ -260,9 +265,11 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\web\web_tri.src   \
       $(MSRC)\web\web_vie.src
  @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
- $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$*_.sql
- $(CLEANUP1) $*_.sql
- $(WRAP1) iname=$*_.sql oname=$*.sql
+ $(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
 
 $(MSRC)\fac\_fac_lclmdl.src: \
     $(MSRC)\fac\fac_lclmdl.csv
@@ -280,9 +287,11 @@ $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL: \
       $(MSRC)\comsql.h       \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
  @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
- $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCUPDATE).src>$*_.sql
- $(CLEANUP1) $*_.sql
- $(WRAP1) iname=$*_.sql oname=$*.sql
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCUPDATE).src>$(TEMP)\$(*B)_.sql
+ $(CLEANUP1) $(TEMP)\$(*B)_.sql
+ COPY $(TEMP)\$(*B)_.sql $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION)_.SQL
+ $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+ COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL
 
 $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(SRCRECREA).src   \
@@ -292,9 +301,11 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(MSRC)\comsql.h   \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
  @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
- $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$*_.sql
- $(CLEANUP1) $*_.sql
- $(WRAP1) iname=$*_.sql oname=$*.sql
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$(TEMP)\$(*B)_.sql
+ $(CLEANUP1) $(TEMP)\$(*B)_.sql
+ COPY $(TEMP)\$(*B)_.sql $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION)_.SQL
+ $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+ COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL
 
 
 ##########################################################################
@@ -312,9 +323,11 @@ $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL:   \
       $(MSRC)\care\care_pac.src  \
       $(MSRC)\care\care_ini.src
  @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
- $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
- $(CLEANUP1) $*_.sql
- $(WRAP1) iname=$*_.sql oname=$*.sql
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$(TEMP)\$(*B)_.sql
+ $(CLEANUP1) $(TEMP)\$(*B)_.sql
+ COPY $(TEMP)\$(*B)_.sql $(EXE)\CARE\CARE$(NEXTCAREVERSION)_.SQL
+ $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+ COPY $(TEMP)\$(*B).sql $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL
 
 $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
       $(CARERECREA).src  \
@@ -323,8 +336,10 @@ $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
       $(MSRC)\comsql.h   \
       $(EXE)\CARE\CARE$(NEXTCAREVERSION).sql
  @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
- $(PRECOMP) $(PRECOMP_OPTIONS) $(CARERECREA).src>$*_.sql
- $(CLEANUP1) $*_.sql
- $(WRAP1) iname=$*_.sql oname=$*.sql
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(CARERECREA).src>$(TEMP)\$(*B)_.sql
+ $(CLEANUP1) $(TEMP)\$(*B)_.sql
+ COPY $(TEMP)\$(*B)_.sql $(EXE)\CARE\RECAR$(NEXTCAREVERSION)_.SQL
+ $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+ COPY $(TEMP)\$(*B).sql $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL
 
 ## END-OF-FILE

FCLT.SRC

@@ -1,11 +1,8 @@
--- [FCLT*.SQL]
---
--- Script to initialise a FACILITOR database schema in Oracle
--- Copyright 1996-2017 Facilitor bv, the Netherlands.
--- All rights reserved!
 /*
  * $Revision$
  * $Id$
+ *
+ * Script to initialise a FACILITOR database schema in Oracle
  */
 #define FCLT_CREATE
 
@@ -41,17 +38,22 @@ 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-2017 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2022 Aareon Nederland B.V. All rights reserved.
 PROMPT
 PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
 PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
 PROMPT
+SELECT 'Current os_user: ' || SYS_CONTEXT( 'userenv', 'os_user' ) FROM DUAL;
+PROMPT
 
 SET LINESIZE 1000
 SET DEFINE OFF
@@ -84,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"
@@ -155,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
@@ -174,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) 1992-2017 Facilitor bv, the Netherlands. All rights reserved.
+PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 710
+PROMPT Copyright (c) 1996-2022 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;
 /
 
@@ -99,14 +101,14 @@ AS
             IF currentstatus = 2
             THEN
                newstatus := pstatus;
-               eventcode := 'FINGOE';
+               eventcode := 'FINFOK';
             END IF;
          WHEN 6                                                                                             -- Verwerkt
          THEN
             IF currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
-               eventcode := 'FINFOK';
+               eventcode := 'FINGOE';
             END IF;
          WHEN 7                                                                                             -- Uitgegeven
          THEN
@@ -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;
@@ -653,15 +667,29 @@ AS
    -- Keurt een ingevoerde factuur (onvoorwaardelijk) goed of (als rejecttoo) af op basis van de matchingscriteria
    PROCEDURE matchandsetfactuur (pfactuur_key IN NUMBER, prejecttoo IN BOOLEAN)
    IS
+      lgoedkeurder fin_factuur.prs_perslid_key_goedkeur%TYPE;
    BEGIN
       CASE fin.matchfactuur (pfactuur_key)
          WHEN 1
          THEN
-            IF fac.getsetting('fin_enable_goedkeuren') <> 0
+            IF fac.getsetting('fin_enable_goedkeuren') = 0     -- validation unavailable
+            THEN
+               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            ELSIF fac.getsetting('fin_enable_goedkeuren') = 2  -- validation required
             THEN
                fin.setfactuurstatus (pfactuur_key, 5, NULL);
-            ELSE
-               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            ELSE                                               -- validation optional (fin_enable_goedkeuren = 1)
+               SELECT f.prs_perslid_key_goedkeur
+                 INTO lgoedkeurder
+                 FROM fin_factuur f
+                WHERE fin_factuur_key = pfactuur_key;
+
+               IF lgoedkeurder IS NULL
+               THEN
+                  fin.setfactuurstatus (pfactuur_key, 6, NULL);
+               ELSE
+                  fin.setfactuurstatus (pfactuur_key, 5, NULL);
+               END IF;
             END IF;
          WHEN -1
          THEN
@@ -1024,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)
 (
@@ -123,6 +126,15 @@ CREATE_TABLE(fin_factuur,0)
     NOT NULL
 , fin_factuur_verwijder
     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)
@@ -132,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
@@ -152,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)
 );
 
 
@@ -176,13 +196,15 @@ 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','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(1)
+        NUMBER(2)
     ,fin_kenmerk_toonbaar
         NUMBER(1)
     ,fin_kenmerk_uniek
@@ -220,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
@@ -241,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;
 /
 
@@ -223,12 +224,30 @@ CREATE OR REPLACE PACKAGE BODY ins AS
                                                   AND idsc.ins_deelsrtcontrole_status IN (5,6)
                                                   AND idsc.ins_scenario_key = 1
                                                   AND idsc.ins_deel_key = xcp.ins_deel_key
-                                                  AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
-                                                                                        FROM ins_deelsrtcontrole idsc2
-                                                                                       WHERE idsc2.ins_deel_key = xcp.ins_deel_key
-                                                                                         AND idsc2.ins_srtcontrole_key = xcp.ins_srtcontrole_key
-                                                                                         AND idsc2.ins_deelsrtcontrole_status IN (5,6)
-                                                                                         AND idsc2.ins_scenario_key = 1)),
+                                                  -- Voor mjob moeten de NIET succesvolle inspecties niet worden meegenomen.
+                                                  -- Voor periodieke inspectie laten we het vooralsnog hetzelfde.
+                                                  AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(ins_deelsrtcontrole_key)
+                                                                                        FROM (SELECT idsc2.ins_deelsrtcontrole_key
+                                                                                                   , idsc2.ins_deel_key
+                                                                                                   , idsc2.ins_srtcontrole_key
+                                                                                                   , 0 ctr_ismjob
+                                                                                                FROM ins_deelsrtcontrole idsc2
+                                                                                               WHERE idsc2.ins_deelsrtcontrole_status IN (5,6)
+                                                                                                 AND idsc2.ins_scenario_key = 1
+                                                                                              UNION
+                                                                                              SELECT idsc2.ins_deelsrtcontrole_key
+                                                                                                   , idsc2.ins_deel_key
+                                                                                                   , idsc2.ins_srtcontrole_key
+                                                                                                   , 1 ctr_ismjob
+                                                                                                FROM ins_deelsrtcontrole idsc2,
+                                                                                                     ins_controlemode cm
+                                                                                               WHERE idsc2.ins_controlemode_key = cm.ins_controlemode_key
+                                                                                                 AND idsc2.ins_deelsrtcontrole_status IN (5,6)
+                                                                                                 AND idsc2.ins_scenario_key = 1
+                                                                                                 AND cm.ins_controlemode_success = 1) aa
+                                                                                       WHERE aa.ins_deel_key = xcp.ins_deel_key
+                                                                                         AND aa.ins_srtcontrole_key = xcp.ins_srtcontrole_key
+                                                                                         AND aa.ctr_ismjob = xcp.ctr_ismjob)),
                                               xcp.ins_srtcontroledl_xcp_startdat,
                                               xcp.ins_deel_aanmaak),
                                    xcp.ins_srtcontrole_mode,
@@ -330,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)),
@@ -43,6 +43,14 @@ CREATE_TABLE(ins_srtdiscipline,0)
     ins_srtdiscipline_cnt  /* reserved for future use */
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_cnt CHECK(ins_srtdiscipline_cnt IN (0,1)),
+    ins_srtdiscipline_mldgroup
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL,
+    ins_srtdiscipline_image
+        VARCHAR2(255),
+    ins_srtdiscipline_color
+        VARCHAR2(60 CHAR),
     ins_srtdiscipline_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -50,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)
@@ -66,7 +78,7 @@ CREATE_TABLE(ins_tab_discipline,0)
         DEFAULT 'INS'
         NOT_NULL(ins_discipline_module, ins_c_ins_discipline_module),
     ins_discipline_omschrijving
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(ins_discipline_omschrijving, ins_c_ins_discipline_omschr),
     ins_discipline_opmerking
         VARCHAR(2000 CHAR),
@@ -77,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)
@@ -92,16 +104,27 @@ CREATE_TABLE(ins_tab_discipline,0)
 //    prs_kostensoort_key
 //        NUMBER(10)
 //        CONSTRAINT ins_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key),
-   ins_discipline_btw   -- 1=Incl. BTW
+    ins_discipline_btw   -- 1=Incl. BTW
         NUMBER(1) DEFAULT(1)
         CONSTRAINT ins_c_ins_discipline_btw CHECK(ins_discipline_btw IN (0,1)),
-   ins_discipline_ktopercentage /* percentage dat evt. deelneemt aan KTO (klanttevredenheidsonderzoek), voor MLD, RES, BES */
+    ins_discipline_ktopercentage /* percentage dat evt. deelneemt aan KTO (klanttevredenheidsonderzoek), voor MLD, RES, BES */
         NUMBER(3)
         CONSTRAINT ins_c_discipline_ktopercentage CHECK(ins_discipline_ktopercentage BETWEEN 0 AND 100),
-   ins_discipline_ktodrempel /* minimum aantal dat evt. deelneemt aan KTO */
+    ins_discipline_ktodrempel /* minimum aantal dat evt. deelneemt aan KTO */
         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,
@@ -139,6 +162,16 @@ ALTER TABLE fac_import_app ADD
         REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
 );
 
+ALTER TABLE fac_faq ADD
+    faq_ins_discipline_key
+        NUMBER(10)
+        NOT_NULL(faq_ins_discipline_key, faq_c_ins_discipline_key)
+        CONSTRAINT faq_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE faq_kenmerk
+     ADD CONSTRAINT faq_c_faq_kenmerk_discipline FOREIGN KEY(faq_discipline_key)
+     REFERENCES ins_tab_discipline(ins_discipline_key);
+
 CREATE_TABLE(ins_srtgroep,0)
 (
     ins_srtgroep_key
@@ -165,6 +198,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)
 );
 
@@ -214,8 +251,16 @@ 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_acadlabelsize
+        NUMBER(5),
+    ins_srtdeel_acadlabelpos
+        NUMBER(1),
     ins_srtdeel_acad_tagvalue /* TAGVALUE vanuit ACAD */
         VARCHAR2(30),
     ins_srtdeel_cadlayer
@@ -255,9 +300,20 @@ CREATE_TABLE(ins_srtdeel,0)
         NUMBER(6),
     ins_srtdeel_voorraadmax
         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')
 );
 
+
 /* New table for relations between object types; designed for key management (formerly SLE)*/
 CREATE_TABLE(ins_srtdeel_srtdeel, 0)
 (
@@ -350,6 +406,10 @@ CREATE_TABLE(ins_deel,0)
         NUMBER(10),
     ins_alg_ruimte_type_org
         VARCHAR2(1),
+-- In: RES_TAB.SRC
+--    res_rsv_deel_key
+--        NUMBER(10)
+--        CONSTRAINT ins_r_res_rsv_deel_key REFERENCES res_rsv_deel (res_rsv_deel_key),
     ins_deel_state
         VARCHAR2(128),
     ins_deel_statedate
@@ -360,10 +420,24 @@ 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)
 --        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key),
+-- In: BES_TAB.SRC
+--     bes_bestelopdr_key
+--        NUMBER(10)
+--        CONSTRAINT bes_r_bes_bestelopdr_key3 REFERENCES bes_bestelopdr(bes_bestelopdr_key),
     CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
            ins_deel_parent_key, ins_srtdeel_key, ins_deel_upper,
            ins_deel_verwijder)
@@ -387,6 +461,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
@@ -414,17 +504,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
@@ -448,15 +539,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)
@@ -470,13 +561,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)
@@ -489,6 +585,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)
 */
 );
 
@@ -505,6 +604,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)
@@ -512,6 +612,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
@@ -555,6 +660,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
@@ -585,6 +694,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)
@@ -643,11 +754,10 @@ CREATE_TABLE(ins_srtkenmerk, 0)
       VARCHAR2(10),
    ins_srtkenmerk_kenmerktype
       VARCHAR2(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l', 'B')),
-   ins_srtkenmerk_systeem
-      NUMBER(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_systeem CHECK(ins_srtkenmerk_systeem IS NULL
-                                                 OR ins_srtkenmerk_systeem = 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','V')),
+   ins_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
+      NUMBER(2)
+      DEFAULT 0 NOT NULL,
    ins_srtkenmerk_lengte
       NUMBER(4)
       CONSTRAINT ins_c_ins_srtkenmerk_lengte CHECK(ins_srtkenmerk_lengte >= 1
@@ -692,6 +802,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
@@ -720,6 +832,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
@@ -730,7 +844,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
@@ -889,7 +1003,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_disc_params_key          NUMBER(10),
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
-  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten, 4=?, 8=?, 16=hide label? */
   ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
@@ -897,6 +1011,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

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);
@@ -24,6 +23,8 @@ create index mld_i_mld_melding19 on mld_melding(res_rsv_ruimte_key);
 CREATE INDEX mld_i_mld_melding20 ON mld_melding(mld_melding_datum);
 CREATE INDEX mld_i_mld_melding21 ON mld_melding(mld_melding_externnr);
 CREATE INDEX mld_i_mld_melding22 ON mld_melding(mld_alg_locatie_key);
+CREATE INDEX mld_i_mld_melding23 ON mld_melding(mld_melding_mldgroup_key);
+CREATE INDEX mld_i_mld_melding24 ON mld_melding(mld_ins_discipline_key,mld_melding_behandelaar2_key);
 
 create index mld_i_mld_opdr1 on mld_opdr(mld_opdr_module);
 create index mld_i_mld_opdr2 on mld_opdr(mld_melding_key);
@@ -38,6 +39,8 @@ 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_opdr18 on mld_opdr(mld_opdr_parent_key);
 
 create index mld_i_mld_typeopdr1 on mld_typeopdr(mld_typeopdr_module);
 
@@ -45,12 +48,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);
 
@@ -62,6 +61,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);
 
@@ -70,6 +70,7 @@ CREATE INDEX mld_i_mld_opdr_materiaal1 ON mld_opdr_materiaal(mld_opdr_key, fac_u
 
 CREATE UNIQUE INDEX mld_i_mld_stdmeldingfaq1 ON mld_stdmeldingfaq(mld_stdmelding_key, ins_discipline_key, fac_faq_key);
 CREATE INDEX mld_i_mld_stdmeldingfaq2 ON mld_stdmeldingfaq(ins_discipline_key, fac_faq_key);
+CREATE UNIQUE INDEX mld_i_mld_disc_disc1 ON mld_discipline_discipline(mld_discipline_key1, mld_discipline_key2);
 
 REGISTERONCE('$Id$')
 

MLD/MLD_LCL.SRC

@@ -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)
@@ -192,6 +205,7 @@ DEFINE_LOCALEITEM(lcl_mld_opdr_closed_3)
 DEFINE_LOCALEITEM(lcl_mld_person_prefix)
 DEFINE_LOCALEITEM(lcl_mld_vakgroep)
 DEFINE_LOCALEITEM(lcl_mld_subject)
+DEFINE_LOCALEITEM(lcl_mld_fe_newmelding_confirm)
 END_LOCALEITEMS()
 
 START_LOCALEITEMS('MLD_TYPEOPDR_KEY')

MLD/MLD_SEQ.SRC

@@ -18,6 +18,7 @@ CREATE SEQUENCE mld_s_mld_vrije_dagen_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmelding_key MINVALUE 1;  /* also used for mld_typeopdr */
 CREATE SEQUENCE mld_s_mld_stdmeldinggroep_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_behandelgroep_key MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdm_srtinst_key MINVALUE 1;
 
 CREATE SEQUENCE mld_s_mld_object_key MINVALUE 1;
 
@@ -45,6 +46,7 @@ CREATE SEQUENCE mld_s_mld_opdr_materiaal_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_afmeldtekst_key      MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmeldingfaq_key    MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmsrtruimte_key    MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_disc_disc_key        MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

MLD/MLD_TAB.SRC

@@ -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
@@ -99,11 +111,33 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_bestellimiet5
         NUMBER(11,2)
         DEFAULT 1000000,
+    mld_disc_params_emailnw1
+        VARCHAR2(200),
+    mld_disc_params_emailnw2
+        VARCHAR2(200),
+    mld_disc_params_emailnw3
+        VARCHAR2(200),
+    mld_disc_params_emailnw4
+        VARCHAR2(200),
+    mld_disc_params_smsnw1
+        VARCHAR2(15),
+    mld_disc_params_smsnw2
+        VARCHAR2(15),
+    mld_disc_params_smsnw3
+        VARCHAR2(15),
+    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,
+    mld_disc_params_mldgroup
+        NUMBER(3) DEFAULT(0) NOT NULL
 );
 
-
 CREATE_TABLE(mld_oorzaak,0)
 (
     mld_oorzaak_key
@@ -202,9 +236,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, 3)), /* 0=Geen materiaal, 1=Optioneel totaalbedrag, 2=Materialenlijst, 3=Verplichte materialenlijst */
+    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) */
@@ -225,6 +282,10 @@ CREATE_TABLE(mld_typeopdr,0)
         NUMBER(1)
         DEFAULT (2)
         CONSTRAINT mld_c_mld_typeopdr_contract CHECK(mld_typeopdr_contract IN (0,2,3)),
+    mld_typeopdr_bez
+        NUMBER(1)
+        DEFAULT(0)
+        CONSTRAINT mld_c_mld_typeopdr_bez CHECK(mld_typeopdr_bez IN (0,1)),
     mld_typeopdr_afhandeling  /* Afhandeling verplicht bij afmelden opdracht van dit opdrachttype (0=Nee/1=Ja) */
         NUMBER(1)
         DEFAULT 0,
@@ -234,11 +295,17 @@ 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) */
         NUMBER(1)
         DEFAULT 0 NOT NULL,
+    mld_typeopdr_image
+        VARCHAR2(255 CHAR),
     CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
 );
 
@@ -266,6 +333,10 @@ CREATE_TABLE(mld_stdmeldinggroep,0)
         NOT_NULL(mld_stdmeldinggroep_naam, mld_c_mld_stdmeldinggroep_naam),
     mld_stdmeldinggroep_oms
         VARCHAR2(1000),
+    mld_stdmeldinggroep_image
+        VARCHAR2(255),
+    mld_stdmeldinggroep_color
+        VARCHAR2 (60),
   CONSTRAINT mld_u_stdmeldinggroep_naam UNIQUE (mld_stdmeldinggroep_naam)
 );
 
@@ -286,10 +357,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
@@ -301,8 +384,15 @@ 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
-        NUMBER(1),
+    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
         NUMBER(1)                                 -- 0: overschrijden van SLA is niet erg
         DEFAULT 1 NOT NULL,
@@ -320,23 +410,18 @@ 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_key     -- optional reference to objecttype (level defined by ins_srtinst_niveau)
-        NUMBER(10),
-    ins_srtinst_niveau    -- level of ins_srtinst_key
-        VARCHAR2(1)
-        CONSTRAINT mld_c_ins_srtinst_niveau CHECK (ins_srtinst_niveau IN ('D','G','S')),
-    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
         VARCHAR2(1)
         CONSTRAINT mld_c_alg_onrgoed_niveau CHECK (alg_onrgoed_niveau IN ('L','G','V','R')),
     alg_onrgoed_obj_niveau    -- level of onrgoed which should be selected before chosing objects
         VARCHAR2(1)
-        CONSTRAINT mld_c_alg_onrgoed_objniveau CHECK (alg_onrgoed_obj_niveau IN ('L','G','V','R')),
+        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,
@@ -352,8 +437,13 @@ CREATE_TABLE(mld_stdmelding,0)
     prs_kostensoort_key
         NUMBER(10)
         CONSTRAINT ins_r_prs_kostensoort_key2 REFERENCES prs_kostensoort(prs_kostensoort_key),
+    prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
     mld_stdmelding_autoorder -- (1: probeer automatisch opdracht te maken)
         NUMBER(1),
+    mld_stdmelding_autoorderamount -- Opdrachtbedrag voor automatisch aangemaakte opdrachten (default 0).
+        NUMBER(12,2),
     mld_typeopdr_key -- wat voor een opdrachttype als autoorder of anders default
         NUMBER(10)
         CONSTRAINT mld_r_mld_typeopdr1 REFERENCES mld_typeopdr(mld_typeopdr_key),
@@ -379,6 +469,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
@@ -400,9 +492,37 @@ CREATE_TABLE(mld_stdmelding,0)
         NOT_NULL(mld_stdmelding_subject, mld_c_mld_stdmelding_subject),
     mld_stdmelding_externurl
         VARCHAR2(1024),
+    mld_stdmelding_enddate_empty  -- Einddatum opdracht leeglaten (0=Nee(Default) | 1=Ja)
+        NUMBER(1)
+        DEFAULT 0
+        CONSTRAINT mld_c_stdmelding_enddate_empty CHECK (mld_stdmelding_enddate_empty IN (0,1))
+        CONSTRAINT mld_c_stdmelding_enddate_empt2 CHECK (mld_stdmelding_enddate_empty IS NOT NULL),
+    mld_stdmelding_prsafdobj
+        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,
+    mld_stdmelding_notes  // 0:geen notities, &1=FE, &2=FOBO, &4=UITV
+        NUMBER(1)
+        DEFAULT 7
+        NOT_NULL(mld_stdmelding_notes, mld_c_mld_stdmelding_notes),
+-- in CAD_TAB.SRC:
+--    cad_thema_key
+--        NUMBER(10)
+--        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);
@@ -416,6 +536,26 @@ ALTER TABLE ins_srtcontrole ADD
         CONSTRAINT mld_r_mld_stdmelding_key7 REFERENCES mld_stdmelding
 );
 
+CREATE_TABLE(mld_stdmelding_srtinst, 0)
+(
+    mld_stdmelding_srtinst_key
+        NUMBER(10)
+        CONSTRAINT mld_k_stdmelding_srtinst_key PRIMARY KEY,
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key8 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key1),
+    ins_srtinstallatie_key     -- optional reference to objecttype (level defined by _niveau)
+        NUMBER(10),
+    ins_srtinstallatie_niveau    -- level of _srtinst_key
+        VARCHAR2(1)
+        CONSTRAINT mld_c_mld_srtinst_niveau CHECK (ins_srtinstallatie_niveau IN ('D','G','S')),
+    mld_stdmelding_srtinst_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    CONSTRAINT mld_u_mld_stdmelding_srtinst UNIQUE(mld_stdmelding_key, ins_srtinstallatie_niveau, ins_srtinstallatie_key)
+);
+
 // Eventuele afwijkingen per srtruimte van SLA tijden.
 // Fungeert als COALESCE met alg_srtruimte.
 CREATE_TABLE(mld_stdmsrtruimte, 0)
@@ -468,6 +608,20 @@ CREATE_TABLE(mld_stdmeldingfaq, 0)
         CONSTRAINT mld_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
 );
 
+CREATE_TABLE(mld_discipline_discipline, 0)                        -- Kruistabel voor ins_tab_discipline
+(
+    mld_discipline_discipline_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    mld_discipline_key1
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_disc_disc_key1
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL,
+    mld_discipline_key2
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_disc_disc_key2
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL
+);
+
 CREATE_TABLE(mld_adres, 0)
 (
     mld_adres_key
@@ -581,7 +735,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
 );
 
 
@@ -618,6 +778,8 @@ CREATE_TABLE(mld_melding,0)
         NUMBER(10),
     mld_melding_parentkey   --  moedermelding
         NUMBER(10) REFERENCES mld_melding(mld_melding_key),
+    mld_melding_mldgroup_key
+        NUMBER(10) REFERENCES mld_melding(mld_melding_key),
     mld_meldbron_key
         NUMBER(10)
         NOT_NULL(mld_meldbron_key, mld_r_mld_meldbron_key1)
@@ -644,6 +806,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)
@@ -655,6 +823,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
@@ -689,13 +859,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),
@@ -719,9 +892,19 @@ 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_publiek
+        NUMBER(1)
+        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),
     mld_melding_satisfaction_op
@@ -736,8 +919,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);
@@ -790,6 +992,8 @@ CREATE_TABLE(mld_opdr,0)
         DATE,
     mld_opdr_plandatum    /* (beoogd) tijdstip van feitelijke start-uitvoering */
         DATE,
+    mld_opdr_plandatum2   /* (beoogd) tijdstip van einddatum uitvoering */
+        DATE,
     mld_opdr_werkzaamheden
         VARCHAR2(80),
     mld_opdr_uren
@@ -798,8 +1002,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,
@@ -825,7 +1028,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
@@ -839,7 +1046,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,
@@ -877,7 +1084,22 @@ CREATE_TABLE(mld_opdr,0)
     mld_opdr_meerwerk
         NUMBER(1)
         DEFAULT (0)
-        CONSTRAINT mld_c_mld_opdr_meerwerk CHECK(mld_opdr_meerwerk IN (0, 1))
+        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,
+    mld_opdr_parent_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key),
+    mld_opdr_actiecode
+        NUMBER(3)
+        DEFAULT 1 /* actie bij +1=FOBO behandelaar, +2=melder, +4=uitvoerende, +128 attentie */
+        NOT NULL
 );
 
 CREATE_TABLE(mld_vrije_dagen, 0)
@@ -898,6 +1120,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)
@@ -924,9 +1147,10 @@ CREATE_TABLE(mld_srtkenmerk, 0)
       VARCHAR2(10)
 ,  mld_srtkenmerk_kenmerktype
       VARCHAR2(1)
-,  mld_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
-      NUMBER(1)
+,  mld_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list, &4 = confidential, &8 = anonimiseren
+      NUMBER(2)
       DEFAULT 0
+      NOT NULL
 ,  mld_srtkenmerk_lengte
       NUMBER(4)
 ,  mld_srtkenmerk_dec
@@ -944,11 +1168,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','R','X','L','Q','F','M','E','S', 'l', 'B'))
-,  CONSTRAINT mld_c_mld_srtkenmerk_systeem   CHECK(mld_srtkenmerk_systeem IS NOT NULL)
+,  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)
@@ -967,8 +1193,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
@@ -979,8 +1207,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
@@ -992,20 +1218,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
 );
 
@@ -1108,9 +1351,12 @@ 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
+   mld_melding_note_flag            NUMBER (2) DEFAULT 0, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO), +4=UITV (redefined DB41)
+   mld_melding_note_parent_key      NUMBER (10) DEFAULT NULL REFERENCES mld_melding_note (mld_melding_note_key) ON DELETE CASCADE
 );
 
 CREATE_TABLE(mld_opdr_note, 0)
@@ -1118,8 +1364,12 @@ 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,
-   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR)
+   fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
+   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR),
+   mld_opdr_note_flag               NUMBER (2) DEFAULT 4, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO), +4=UITV
+   mld_opdr_note_parent_key         NUMBER (10) DEFAULT NULL REFERENCES mld_opdr_note (mld_opdr_note_key) ON DELETE CASCADE
 );
 
 -- Improductieve opdrachten, alternatief van mld_opdr om uren op te registreren
@@ -1147,7 +1397,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
@@ -1155,7 +1405,7 @@ CREATE_TABLE(mld_opdr_uren, 0)
     mld_opdr_uren_besteed
         NUMBER(7,4) NOT NULL,
     mld_opdr_uren_status
-        NUMBER(1) NOT NULL, --2=ingevoerd, 3=terfiat, 4=gefiatteerd, 1=afgekeurd, 6=verwerkt(=gefactureerd)
+        NUMBER(1) NOT NULL, --1=Ingevoerd 2=Ter goedkeuring 3=Goedgekeurd 4=Verwerkt
      mld_opdr_uren_opmerking
         VARCHAR2(100),
     CONSTRAINT mld_c_mld_opdr_uren1 CHECK ((mld_opdr_key IS NULL AND mld_impropdr_key IS NOT NULL) OR (mld_opdr_key IS NOT NULL AND mld_impropdr_key IS NULL))
@@ -1251,7 +1501,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)
@@ -1275,7 +1525,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),
@@ -1287,7 +1537,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
@@ -1302,12 +1552,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))
 );
 
@@ -1320,7 +1578,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)
@@ -1328,8 +1586,8 @@ CREATE_TABLE(mld_afmeldtekst, 0)
     mld_ins_discipline_key
         NUMBER(10)
         CONSTRAINT mld_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
-    mld_afmeldtekst_usefor /* Bitwise 1=Afmeldtekst, 2=Afwijstekst, 3=Beide*/
-        NUMBER(1)
+    mld_afmeldtekst_usefor /* Bitwise 1=Afmeldtekst, 2=Afwijstekst, 4=Opdracht, 8=Reactie-melding*/
+        NUMBER(2)
         DEFAULT 1 NOT NULL,
   CONSTRAINT mld_u_afmeldtekst_naam UNIQUE (mld_afmeldtekst_naam)
 );

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
@@ -102,6 +105,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(mld_t_mld_stdm_srtinst_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmelding_srtinst
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(mld_stdmelding_srtinst_key, mld_s_mld_stdm_srtinst_key);
+END;
+/
+
 CREATE_TRIGGER(mld_t_mld_stdmeldinggroep_B_IU)
 BEFORE INSERT OR UPDATE ON mld_stdmeldinggroep
 FOR EACH ROW
@@ -110,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
@@ -156,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')
@@ -192,18 +212,29 @@ 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
                      OR :old.mld_melding_einddatum_std <> :new.mld_melding_einddatum_std)
-                AND l_planbaar <> 1)
+                AND l_planbaar = 1)
                OR (INSERTING AND :new.mld_melding_einddatum IS NULL)
             THEN
                 :new.mld_melding_einddatum := :new.mld_melding_einddatum_std;
@@ -333,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)
@@ -408,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;
 /
@@ -444,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
@@ -565,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
@@ -701,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

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;
 /
 
@@ -147,11 +148,11 @@ AS
                AND w.prs_alg_ruimte_key = parent_key
                AND w.prs_werkplek_volgnr = TO_NUMBER (element_omschrijving);
             -- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
-            IF TO_NUMBER (element_omschrijving) = 999
+            IF TO_NUMBER (element_omschrijving) = 99999999
             THEN
-               -- Ik kan met 3 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
+               -- Ik kan met 8 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
                omschrijving :=
-                            forceuniqueness (element_type, parent_key, '000', NULL);
+                            forceuniqueness (element_type, parent_key, '00000000', NULL);
             ELSE
                omschrijving :=
                   forceuniqueness (element_type,
@@ -179,11 +180,11 @@ AS
                AND w.prj_werkplek_volgnr = element_omschrijving
                AND w.prj_werkplek_verwijder IS NULL;
             -- Gevonden, dus niet uniek. Probeer het met een sterretje ervoor, passen ze dat later maar zelf aan
-            IF TO_NUMBER (element_omschrijving) = 999
+            IF TO_NUMBER (element_omschrijving) = 99999999
             THEN
-               -- Ik kan met 3 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
+               -- Ik kan met 8 cijfers niet hoger, begin opnieuw onderaan (to prevent infinite recursion)
                omschrijving :=
-                            forceuniqueness (element_type, parent_key, '000', NULL);
+                            forceuniqueness (element_type, parent_key, '00000000', NULL);
             ELSE
                omschrijving :=
                   forceuniqueness (element_type,
@@ -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),
@@ -96,7 +96,7 @@ CREATE_TABLE(prj_werkplek, 0)
          NUMBER(10)
          CONSTRAINT prj_r_prs_werkplek_key REFERENCES prs_werkplek(prs_werkplek_key) ON DELETE CASCADE,
     prj_werkplek_volgnr
-        NUMBER(4)
+        NUMBER(8)
         NOT_NULL(prj_werkplek_volgnr, prj_c_prj_werkplek_volgnr),
     prj_werkplek_omschrijving
         VARCHAR2(30),
@@ -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

@@ -83,10 +83,16 @@ AS
    FUNCTION getfiatteur (pkostenplaats_key   IN NUMBER,
                          pexcludekey         IN NUMBER,
                          pondergrens         IN NUMBER,
-                         pdisckey            IN NUMBER
+                         pdisckey            IN NUMBER,
+                         pfiatbedrag         IN NUMBER DEFAULT -1
                         )
       RETURN NUMBER;
 
+   FUNCTION nextfiatteur (pkey        IN NUMBER,
+                          pmodule     IN VARCHAR2,
+                          pexcludekey IN NUMBER DEFAULT -1)
+      RETURN NUMBER;
+
    PROCEDURE setpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2);
 
    FUNCTION testpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2)
@@ -98,9 +104,11 @@ AS
 
    PROCEDURE import_perslid (p_import_key IN NUMBER, p_seq_of_columns IN VARCHAR2, p_header IN VARCHAR2);
 
-   PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2);
+   PROCEDURE update_perslid (p_import_key IN NUMBER, p_sleutelkolom IN VARCHAR2, p_alg_type IN VARCHAR2, p_import_kenmerk IN NUMBER DEFAULT 0);
 
    PROCEDURE delete_perslid (p_import_key IN NUMBER, p_perslid_key IN NUMBER);
+
+   FUNCTION combinatievalidatie (p_kp_key IN NUMBER, p_ksrt_key IN NUMBER, p_disc_key IN NUMBER) RETURN BOOLEAN;
 END prs;
 /
 
@@ -242,32 +250,48 @@ AS
       RETURN llimiet;
    END;
 
-   -- Levert de prs_perslid_key op van de perslid die een item (opdracht/bestelling) van
-   -- discipline pdisckey boven bedrag pondergrens mag fiatteren
+   -- 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
+   --
+   -- 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.
    --
-   -- Levert de kostenplaatsgroepverantwoordelijke op indien geen goede budgethouder
-   -- wordt gevonden
-   -- prs_approvemethod geeft methode aan:
-   -- methode 1 = 2-laagsmethode via kp - kpngroep
-   -- methode 2 = 2-laagsmethode via afdelingsboom tot gedefinieerde budgethouder en dan kpgroep
-   -- methode 3 = als 2 maar houd rekening met de profiel van de budgethouders tov pondergrens
-   -- Met pexcludekey kan een perslid_key worden opgegeven die je niet wilt
-   -- Geef -1 mee als je niemand wilt excluden
    FUNCTION getfiatteur (pkostenplaats_key   IN NUMBER,
                          pexcludekey         IN NUMBER,
                          pondergrens         IN NUMBER,
-                         pdisckey            IN NUMBER
+                         pdisckey            IN NUMBER,
+                         pfiatbedrag         IN NUMBER DEFAULT -1
                         )
       RETURN NUMBER
    IS
       lkpverantwkey prs_kostenplaats.prs_perslid_key%TYPE;
+      lkpgverantwkey prs_kostenplaatsgrp.prs_perslid_key%TYPE;
+      lkpgverantwkey1 prs_kostenplaatsgrp.prs_perslid_key%TYPE;
+      lkpgverantwkey2 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fiat2_key%TYPE;
+      lkpgverantwkey3 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fiat3_key%TYPE;
+      lkpgfinlimit1 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit1%TYPE;
+      lkpgfinlimit2 prs_kostenplaatsgrp.prs_kostenplaatsgrp_fin_limit2%TYPE;
       lexcludeisvervanger NUMBER;
+      lexcludeiskpgverantw NUMBER;
       lkpverantwlimiet fac_profiel.fac_profiel_limiet%TYPE;
       afdkey prs_afdeling.prs_afdeling_key%TYPE;
       parentafdkey prs_afdeling.prs_afdeling_parentkey%TYPE;
       lmethode NUMBER;
+      lteller NUMBER;
+      lfoundfiatteur NUMBER;
+      lfiatteur prs_kostenplaats.prs_perslid_key%TYPE;
+      llastfiat	BOOLEAN;
+      lgrens NUMBER;
    BEGIN
       BEGIN
          lkpverantwkey := -1;
@@ -278,14 +302,14 @@ 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
-      IF pexcludekey > 0 THEN
+      -- Zo ja, dan is in dat geval lkpverantwkey de pexcludekey.
+      IF pexcludekey > 0 AND lkpverantwkey <> pexcludekey THEN
           SELECT COUNT(prs_perslid_key)
             INTO lexcludeisvervanger
             FROM prs_collega
@@ -295,22 +319,23 @@ AS
       dbms_output.put_line('ExcludeIsVervanger: '||lexcludeisvervanger);
       lmethode := fac.getSetting('prs_approvemethod');
       dbms_output.put_line('Approvemethod: '||lmethode);
-      IF lmethode = 3 THEN
+      dbms_output.put_line('Ondergrens: '||pondergrens);
+
+      IF lmethode = 3 THEN -- ook profiel budgethouder controleren
         lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
         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.
+        END IF;
       END IF;
-      dbms_output.put_line('Ondergrens: '||pondergrens);
-      IF (lmethode = 3 AND lkpverantwlimiet >= pondergrens) -- lkpverantwkey != -1 is impliciet in die limiet
-      THEN
-        -- het profiel van de budgethouder is genoeg
-        RETURN lkpverantwkey;
-      END IF;
-      IF (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1 OR (lmethode = 3 AND lkpverantwlimiet < pondergrens))
+
+      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
@@ -319,10 +344,12 @@ 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;
-         WHILE lkpverantwkey = -1 AND parentafdkey IS NOT NULL AND (lmethode <> 3 OR lkpverantwlimiet < pondergrens)
+         -- Zolang nog geen goede en we kunnen hogerop.
+         WHILE (lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1)
+              AND parentafdkey IS NOT NULL
          LOOP
             SELECT   COALESCE (k.prs_perslid_key, -1), prs_afdeling_parentkey
               INTO   lkpverantwkey, parentafdkey
@@ -331,34 +358,196 @@ AS
                      AND a.prs_afdeling_verwijder IS NULL
                          AND a.prs_afdeling_key = parentafdkey;
             dbms_output.put_line('Volgende budgethouder: '||lkpverantwkey);
-            IF lmethode = 3 THEN
+
+            IF lmethode = 3 THEN -- Ook profiel budgethouder controleren.
               lkpverantwlimiet := prs.getprofiellimiet (lkpverantwkey, pdisckey);
-              dbms_output.put_line('Zijn limiet: '||lkpverantwlimiet);
+              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.
+              END IF;
+            END IF;
+
+            IF pexcludekey > 0 AND lkpverantwkey <> pexcludekey THEN
+                SELECT COUNT(prs_perslid_key)
+                  INTO lexcludeisvervanger
+                  FROM prs_collega
+                 WHERE prs_perslid_key_alt = pexcludekey
+                   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
-      IF lkpverantwkey = -1 OR lkpverantwkey = pexcludekey OR lexcludeisvervanger = 1 OR (lmethode = 3 AND lkpverantwlimiet < pondergrens)
+      -- 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 altijd de meegegeven kp
+         -- Vindt de kostenplaatsGROEPverantwoordelijken van de altijd meegegeven kostenplaats.
          BEGIN
-            SELECT   COALESCE (kg.prs_perslid_key, -1)
-              INTO   lkpverantwkey -- variabele bvat nu een kpg-verantwoordelijke, naam klopt niet 100%
-              FROM   prs_kostenplaats k, prs_kostenplaatsgrp kg
-             WHERE       prs_kostenplaats_key = pkostenplaats_key
-                     AND kg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key
-                     AND kg.prs_perslid_key NOT IN (lkpverantwkey, pexcludekey);
+            SELECT COALESCE(kg.prs_perslid_key, -1),
+                   COALESCE(kg.prs_kostenplaatsgrp_fiat2_key, -1),
+                   COALESCE(kg.prs_kostenplaatsgrp_fiat3_key, -1),
+                   COALESCE(kg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1'))),
+                   COALESCE(kg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
+              INTO lkpgverantwkey1,
+                   lkpgverantwkey2,
+                   lkpgverantwkey3,
+                   lkpgfinlimit1,
+                   lkpgfinlimit2
+              FROM prs_kostenplaats k,
+                   prs_kostenplaatsgrp kg
+             WHERE prs_kostenplaats_key = pkostenplaats_key
+               AND kg.prs_kostenplaatsgrp_key = k.prs_kostenplaatsgrp_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
-               -- er is geen kpgroep bij, of het is de excludekey
+               -- Er is geen kpgroep bij.
                RETURN -1;
          END;
+
+         lteller := 1;
+         lfoundfiatteur := 0;
+         lfiatteur := -1;
+
+         -- 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; -- De volgende fiatteur opleveren.
+         ELSE
+             lgrens := pondergrens; -- De laatste fiatteur opleveren.
+         END IF;
+
+         WHILE lteller <= 3 AND lfoundfiatteur = 0
+         LOOP
+             CASE
+             WHEN lteller = 1
+             THEN
+                lkpgverantwkey := lkpgverantwkey1;
+                llastfiat := lgrens < lkpgfinlimit1;
+             WHEN lteller = 2
+             THEN
+                lkpgverantwkey := lkpgverantwkey2;
+                llastfiat := lgrens < lkpgfinlimit2;
+             WHEN lteller = 3
+             THEN
+                lkpgverantwkey := lkpgverantwkey3;
+                llastfiat := lgrens >= lkpgfinlimit2 OR
+                             lexcludeiskpgverantw = 1; -- Als de 2de fiatteur de exclude is dan moet de 3de fiatteur toch nog fiatteren.
+             END CASE;
+
+             IF lkpgverantwkey = pexcludekey
+             THEN
+                 lexcludeiskpgverantw := 1;
+             ELSE
+                 SELECT CASE
+                        WHEN COUNT(prs_perslid_key) > 0
+                        THEN 1
+                        ELSE 0
+                        END
+                   INTO lexcludeiskpgverantw
+                   FROM prs_collega
+                  WHERE prs_perslid_key_alt = pexcludekey
+                    AND prs_perslid_key = lkpgverantwkey;
+             END IF;
+
+             IF lexcludeiskpgverantw = 0 AND llastfiat
+             THEN
+                 lfiatteur := lkpgverantwkey;
+                 lfoundfiatteur := 1;
+             END IF;
+             lteller := lteller + 1;
+         END LOOP;
+      ELSE
+        lfiatteur := lkpverantwkey;
       END IF;
-      dbms_output.put_line('Volgende budgethouder: '||lkpverantwkey);
-      RETURN lkpverantwkey;
+      dbms_output.put_line('Resultaat budgethouder: '||lfiatteur);
+      RETURN lfiatteur;
+   END;
+
+   -- Levert de volgende fiatteur in de rij op. Indien geen volgende fiatteur gevonden kan worden wordt -1 teruggegeven.
+   -- Er wordt hier niet gecontroleerd of de opdracht gefiatteerd dient te worden. Dat dien je voor de aanroep te bepalen.
+   FUNCTION nextfiatteur (pkey        IN NUMBER,
+                          pmodule     IN VARCHAR2,
+                          pexcludekey IN NUMBER DEFAULT -1)
+      RETURN NUMBER
+   IS
+      lnextfiatteur prs_kostenplaats.prs_perslid_key%TYPE;
+   BEGIN
+       CASE pmodule
+       WHEN 'MLD'
+       THEN
+           SELECT CASE
+                  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, 0))
+                  WHEN mld_opdr_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
+                  THEN
+                     COALESCE(prs_kostenplaatsgrp_fiat3_key, -1)
+                  WHEN mld_opdr_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1')))
+                  THEN
+                     COALESCE(prs_kostenplaatsgrp_fiat2_key, -1)
+                  ELSE
+                     COALESCE(kpg.prs_perslid_key, -1)
+                  END nextfiatteur
+             INTO lnextfiatteur
+             FROM mld_opdr o,
+                  mld_melding m,
+                  mld_stdmelding std,
+                  prs_kostenplaats kp,
+                  prs_kostenplaatsgrp kpg
+            WHERE o.mld_melding_key = m.mld_melding_key
+              AND m.mld_stdmelding_key = std.mld_stdmelding_key
+              AND o.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+              AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
+              AND o.mld_opdr_key = pkey;
+       WHEN 'BES'
+       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 = 'BESFIT'
+                                   AND fac_tracking_refkey = b.bes_bestelling_key)
+                      THEN
+                          prs.getfiatteur(b.prs_kostenplaats_key, pexcludekey, binfo.totaal, binfo.ins_discipline_key, COALESCE(bes_bestelling_fiatbedrag, -1))
+                      WHEN bes_bestelling_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit2, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit2')))
+                      THEN
+                          COALESCE(prs_kostenplaatsgrp_fiat3_key, -1)
+                      WHEN bes_bestelling_fiatbedrag >= COALESCE(kpg.prs_kostenplaatsgrp_fin_limit1, fac.safe_To_Number(fac.getsetting ('mld_opdr_kpg_fin_limit1')))
+                      THEN
+                          COALESCE(prs_kostenplaatsgrp_fiat2_key, -1)
+                      ELSE
+                          COALESCE(kpg.prs_perslid_key, -1)
+                  END
+                      nextfiatteur
+             INTO lnextfiatteur
+             FROM bes_bestelling b,
+                  (SELECT MAX(bsg.ins_discipline_key) ins_discipline_key,
+                          SUM(bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs) totaal
+                     FROM bes_bestelling_item bi,
+                          bes_srtdeel bsd,
+                          bes_srtgroep bsg
+                    WHERE bi.bes_srtdeel_key = bsd.bes_srtdeel_key
+                      AND bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+                      AND bes_bestelling_key = pkey) binfo,
+                  prs_kostenplaats kp,
+                  prs_kostenplaatsgrp kpg
+            WHERE b.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
+              AND kp.prs_kostenplaatsgrp_key = kpg.prs_kostenplaatsgrp_key(+)
+              AND b.bes_bestelling_key = pkey;
+       END CASE;
+       RETURN lnextfiatteur;
    END;
 
   PROCEDURE setpassword(pperslidkey IN NUMBER, pwachtwoord IN VARCHAR2)
@@ -378,7 +567,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;
@@ -411,7 +603,7 @@ AS
                            p_waarde        IN VARCHAR2)
   IS
       v_count    NUMBER;
-      v_niveau   VARCHAR2 (1);
+      v_niveau   prs_kenmerk.prs_kenmerk_niveau%TYPE;
   BEGIN
       -- niveau van prs_kenmerk ophalen, omdat deze ook in prs_kenmerklink wordt opgeslagen
       SELECT prs_kenmerk_niveau
@@ -563,15 +755,15 @@ AS
                 IF v_wp_key IS NULL
                 THEN
                     -- Er is geen vrije (kan ook omdat we impliciet zijn), maak dan een nieuwe vrije werkplek.
-                    SELECT MIN (ll) eerstvrije
+                    SELECT COALESCE(MIN (ll), 1) eerstvrije
                       INTO v_wp_volgnr
-                      FROM (    SELECT   LEVEL ll
-                                  FROM   DUAL
-                            CONNECT BY   LEVEL <= 9999
-                            MINUS
-                            SELECT   prs_werkplek_volgnr
-                              FROM   prs_werkplek
-                             WHERE   prs_alg_ruimte_key = p_ruimte_key);
+                      FROM ( SELECT prs_werkplek_volgnr +1 AS ll
+                               FROM prs_werkplek
+                              WHERE prs_alg_ruimte_key = p_ruimte_key
+                             MINUS
+                             SELECT prs_werkplek_volgnr
+                               FROM prs_werkplek
+                              WHERE prs_alg_ruimte_key = p_ruimte_key);
 
                     SELECT alg_ruimte_nr
                       INTO v_ruimte_nr
@@ -759,11 +951,11 @@ AS
            WHERE fac_import_key = p_import_key
         ORDER BY fac_imp_file_index;
   BEGIN
-     // JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
-     //      toevoegen zodat het script ook multi-user veilig is,
-     //      Heel veel klant-specifieke imports(/aanvullingen) controleren
-     //      echter niet op de fac_import_key en zouden flink de fout in gaan.
-     //      Daarom vooralsnog hier toch maar alles verwijderen
+     -- JGL: Ik zou graag een WHERE fac_import_key = p_import_key hieronder
+     --      toevoegen zodat het script ook multi-user veilig is,
+     --      Heel veel klant-specifieke imports(/aanvullingen) controleren
+     --      echter niet op de fac_import_key en zouden flink de fout in gaan.
+     --      Daarom vooralsnog hier toch maar alles verwijderen
      DELETE FROM   fac_imp_perslid;
 
      SELECT COALESCE (MAX (fac_imp_file_index), 0) + 1
@@ -1101,9 +1293,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',
@@ -1616,7 +1808,8 @@ AS
   --                     R,V,G,L,D - werkplek(en) op dit niveau verwijderen
   PROCEDURE update_perslid (p_import_key         IN NUMBER,
                             p_sleutelkolom       IN VARCHAR2,
-                            p_alg_type           IN VARCHAR2)
+                            p_alg_type           IN VARCHAR2,
+                            p_import_kenmerk     IN NUMBER DEFAULT 0)
   IS
      c_fielddelimitor   VARCHAR2 (1) := ';';
 
@@ -1655,7 +1848,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;
@@ -1665,8 +1859,177 @@ AS
         SELECT * FROM fac_imp_perslid;
 
      recPersLid         cPersLid%ROWTYPE;
-  BEGIN
 
+    -- SUBPROC
+    PROCEDURE upsertkenmerk_imp(p_perslid_key IN NUMBER, p_kenmerkwaarde IN VARCHAR2)
+    AS
+        ccount             NUMBER;
+        v_kenmerk          VARCHAR2(60);
+        v_sql              VARCHAR2(1000);
+        v_cursor           INTEGER;
+        v_rowsprocessed    NUMBER DEFAULT 0;
+        v_waarde           prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
+        v_kenmerk_key      prs_kenmerk.prs_kenmerk_key%TYPE;
+        v_kenmerk_type     prs_kenmerk.prs_kenmerk_kenmerktype%TYPE;
+        v_kenmerk_niveau   prs_kenmerk.prs_kenmerk_niveau%TYPE;
+        v_objectnaam       fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
+        v_kolomnaam        fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
+        v_kolomtxt         fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
+        v_kenmerklink_key  prs_kenmerklink.prs_kenmerklink_key%TYPE;
+    BEGIN
+        IF p_kenmerkwaarde IS NOT NULL
+        THEN
+            v_errormsg := 'Fout bij bepalen kenmerk [' || p_kenmerkwaarde || ']';
+
+            v_kenmerk := SUBSTR(p_kenmerkwaarde, 1, INSTR(p_kenmerkwaarde, '=') - 1);
+            v_waarde  := SUBSTR(p_kenmerkwaarde, INSTR(p_kenmerkwaarde, '=') + 1);
+
+            IF fac.safe_to_number (v_kenmerk) IS NULL
+            THEN
+               SELECT k.prs_kenmerk_key,
+                      k.prs_kenmerk_kenmerktype,
+                      k.prs_kenmerk_niveau
+                 INTO v_kenmerk_key,
+                      v_kenmerk_type,
+                      v_kenmerk_niveau
+                 FROM (  SELECT ks.prs_kenmerk_key,
+                                ks.prs_kenmerk_kenmerktype,
+                                ks.prs_kenmerk_niveau,
+                                ks.prs_kenmerk_volgnr
+                           FROM prs_v_aanwezigkenmerk ks
+                          WHERE ks.prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
+                            AND COALESCE(UPPER(ks.prs_kenmerk_omschrijving), ks.prs_kenmerk_upper) = UPPER(v_kenmerk)
+                          ORDER BY ks.prs_kenmerk_volgnr
+                      ) k
+                WHERE ROWNUM = 1;
+            ELSE
+                SELECT k.prs_kenmerk_key,
+                       k.prs_kenmerk_kenmerktype,
+                       k.prs_kenmerk_niveau
+                  INTO v_kenmerk_key,
+                       v_kenmerk_type,
+                       v_kenmerk_niveau
+                  FROM prs_v_aanwezigkenmerk k
+                 WHERE k.prs_kenmerk_key = v_kenmerk
+                   AND k.prs_kenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V')
+                 ORDER BY k.prs_kenmerk_volgnr;
+            END IF;
+
+            IF v_waarde IS NOT NULL
+            THEN
+                IF v_kenmerk_type IN ('R', 'S')
+                THEN
+                    v_errormsg := 'Fout bij bepalen eigen tabel';
+
+                    SELECT COUNT (*)
+                      INTO ccount
+                      FROM prs_kenmerk k,
+                           fac_kenmerkdomein d
+                     WHERE k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                       AND d.fac_usrtab_key IS NOT NULL
+                       AND k.prs_kenmerk_key = v_kenmerk_key;
+
+                    v_errormsg := 'Fout bij bepalen nieuwe waarde [' || v_waarde || ']';
+
+                    IF ccount = 1
+                    THEN                                                          -- Eigen tabel
+                        SELECT TO_CHAR(ud.fac_usrdata_key)
+                          INTO v_waarde
+                          FROM prs_kenmerk k,
+                               fac_kenmerkdomein d,
+                               fac_v_aanwezigusrdata ud
+                         WHERE k.prs_kenmerk_key = v_kenmerk_key
+                           AND k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                           AND d.fac_usrtab_key = ud.fac_usrtab_key
+                           AND UPPER(TRIM(ud.fac_usrdata_omschr)) = UPPER(v_waarde);
+                    ELSE                                                         -- FACILITOR view/tabel
+                        SELECT d.fac_kenmerkdomein_objectnaam,
+                               d.fac_kenmerkdomein_kolomnaam,
+                               d.fac_kenmerkdomein_kolomtxt
+                          INTO v_objectnaam,
+                               v_kolomnaam,
+                               v_kolomtxt
+                          FROM prs_kenmerk k,
+                               fac_kenmerkdomein d
+                         WHERE k.prs_kenmerk_key = v_kenmerk_key
+                           AND k.fac_kenmerkdomein_key = d.fac_kenmerkdomein_key
+                           AND d.fac_usrtab_key IS NULL;
+
+                         v_sql := 'SELECT MAX(' || v_kolomnaam || ')'
+                               || '  FROM '     || v_objectnaam
+                               || ' WHERE UPPER(TRIM(' || v_kolomtxt || ')) = UPPER(:pwaarde)';
+
+                         v_cursor := DBMS_SQL.open_cursor;
+                         DBMS_SQL.parse (v_cursor, v_sql, DBMS_SQL.native);
+                         DBMS_SQL.BIND_VARIABLE(v_cursor, ':pwaarde', v_waarde);
+                         DBMS_SQL.define_column(v_cursor, 1, v_waarde, 255);
+                         v_rowsprocessed := DBMS_SQL.execute_and_fetch (v_cursor);
+                         DBMS_SQL.column_value (v_cursor, 1, v_waarde);
+                         DBMS_SQL.close_cursor(v_cursor);
+                    END IF;
+                ELSE                                 -- C(Karakter)/D(Datum)/N(Numeriek)/X(Bestandsnaam)
+                    NULL; -- v_waarde := p_waarde;
+                END IF;
+
+                v_errormsg := 'Fout bij bepalen huidige waarde';
+
+                SELECT COUNT(*),
+                       MAX(prs_kenmerklink_key)
+                  INTO ccount,
+                       v_kenmerklink_key
+                  FROM prs_v_aanwezigkenmerklink
+                 WHERE prs_link_key = p_perslid_key
+                   AND prs_kenmerk_key = v_kenmerk_key;
+
+                IF v_kenmerk_type = 'N'  -- Alleen voor numerieke waarden de decimale komma vervangen door punt.
+                THEN
+                    v_waarde := REPLACE (v_waarde, ',', '.');
+                END IF;
+
+                IF ccount = 0
+                THEN
+                    v_errormsg := 'Fout bij toevoegen waarde [' || v_waarde || ']'
+                               || ' voor perslid_key=' || TO_CHAR(p_perslid_key)
+                               || ', kenmerk_key=' || TO_CHAR(v_kenmerk_key)
+                               || ', link_niveau=' || v_kenmerk_niveau;
+
+                    INSERT INTO prs_kenmerklink (prs_link_key,
+                                                 prs_kenmerk_key,
+                                                 prs_kenmerklink_niveau,
+                                                 prs_kenmerklink_waarde)
+                    VALUES (p_perslid_key,
+                            v_kenmerk_key,
+                            v_kenmerk_niveau,
+                            v_waarde);
+                ELSE
+                    v_errormsg := 'Fout bij bijwerken waarde [' || v_waarde || ']'
+                               || ' voor kenmerklink_key=' || TO_CHAR(v_kenmerklink_key);
+
+                    UPDATE prs_kenmerklink
+                       SET prs_kenmerklink_waarde = v_waarde
+                     WHERE prs_kenmerklink_key = v_kenmerklink_key;
+                END IF;
+            ELSE
+                -- Verwijder kenmerken die al bestaan maar met de nieuwe import leeg zijn.
+                DELETE prs_kenmerklink
+                 WHERE prs_kenmerk_key = v_kenmerk_key
+                   AND prs_link_key = p_perslid_key;
+            END IF;
+        END IF;
+    EXCEPTION
+        WHEN OTHERS
+        THEN
+            oracle_err_num := SQLCODE;
+            oracle_err_mes := SUBSTR(SQLERRM, 1, 200);
+            v_errormsg := v_errormsg || ' (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+            fac.imp_writelog (p_import_key,
+                              'W',
+                              v_aanduiding || v_errormsg,
+                              'upsertkenmerk_imp');
+
+    END; -- upsertkenmerk_imp
+
+  BEGIN
      v_count_update := 0;
      v_count_tot := 0;
      v_count_error := 0;
@@ -1682,10 +2045,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
@@ -1694,12 +2069,11 @@ AS
               v_count_error := v_count_error + 1;
               oracle_err_num := SQLCODE;
               oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
-              v_errormsg :=
-                    ' (ORACLE error number = <'
-                 || ORACLE_err_num
-                 || '> ORACLE error message = <'
-                 || ORACLE_err_mes
-                 || '>)';
+              v_errormsg := ' (ORACLE error number = <'
+                         || ORACLE_err_num
+                         || '> ORACLE error message = <'
+                         || ORACLE_err_mes
+                         || '>)';
 
               fac.imp_writelog (p_import_key,
                                 'E',
@@ -1738,11 +2112,8 @@ AS
            v_errorhint := '';
            v_count_tot := v_count_tot + 1;
 
-           v_aanduiding :=
-                 recPersLid.prs_perslid_naam
-              || '|'
-              || recPersLid.prs_perslid_voornaam
-              || '| ';
+           v_aanduiding := recPersLid.prs_perslid_naam || '|'
+                        || recPersLid.prs_perslid_voornaam || '| ';
            v_errormsg := '';
 
            v_errorhint := 'Fout bij bepalen functie';
@@ -1821,23 +2192,16 @@ AS
              INTO v_perslid_key, v_count
              FROM prs_perslid
             WHERE prs_perslid_verwijder IS NULL
-                  AND ( (p_sleutelkolom IS NULL
-                         AND UPPER (prs_perslid_naam) =
-                               UPPER (recPersLid.prs_perslid_naam)
-                         AND UPPER (prs_perslid_voornaam) =
-                               UPPER (recPersLid.prs_perslid_voornaam))
-                       OR (UPPER (p_sleutelkolom) = 'NR'
-                           AND UPPER (prs_perslid_nr) =
-                                 UPPER (recPersLid.prs_perslid_nr)
-                           OR UPPER (p_sleutelkolom) = 'EMAIL'
-                             AND UPPER (prs_perslid_email) =
-                                   UPPER (recPersLid.prs_perslid_email)
-                           OR UPPER (p_sleutelkolom) = 'LOGIN'
-                             AND UPPER (prs_perslid_oslogin) =
-                                   UPPER (recPersLid.prs_perslid_oslogin)
-                           OR UPPER (p_sleutelkolom) = 'APIKEY'
-                             AND UPPER (prs_perslid_apikey) =
-                                   UPPER (recPersLid.prs_perslid_apikey)));
+              AND (  (   p_sleutelkolom IS NULL
+                     AND UPPER (prs_perslid_naam) = UPPER (recPersLid.prs_perslid_naam)
+                     AND UPPER (prs_perslid_voornaam) = UPPER (recPersLid.prs_perslid_voornaam)
+                     )
+                  OR (  UPPER (p_sleutelkolom) = 'NR'     AND UPPER (prs_perslid_nr) = UPPER (recPersLid.prs_perslid_nr)
+                     OR UPPER (p_sleutelkolom) = 'EMAIL'  AND UPPER (prs_perslid_email) = UPPER (recPersLid.prs_perslid_email)
+                     OR UPPER (p_sleutelkolom) = 'LOGIN'  AND UPPER (prs_perslid_oslogin) = UPPER (recPersLid.prs_perslid_oslogin)
+                     OR UPPER (p_sleutelkolom) = 'APIKEY' AND UPPER (prs_perslid_apikey) = UPPER (recPersLid.prs_perslid_apikey)
+                     )
+                  );
 
            IF (v_count = 0)
            THEN
@@ -1888,10 +2252,8 @@ AS
                  SET prs_srtperslid_key = v_srtperslid_key,
                      prs_afdeling_key = v_afdeling_key,
                      prs_perslid_naam = v_prs_perslid_naam,
-                     prs_perslid_voorletters =
-                        recPersLid.prs_perslid_voorletters,
-                     prs_perslid_tussenvoegsel =
-                        v_prs_perslid_tussenvoegsel,
+                     prs_perslid_voorletters = recPersLid.prs_perslid_voorletters,
+                     prs_perslid_tussenvoegsel = v_prs_perslid_tussenvoegsel,
                      prs_perslid_voornaam = recPersLid.prs_perslid_voornaam,
                      prs_perslid_nr = recPersLid.prs_perslid_nr,
                      prs_perslid_dienstverband = recPersLid.prs_perslid_dienstverband,
@@ -1918,22 +2280,37 @@ AS
 
            COMMIT;                      -- persoon in ieder geval toegevoegd.
 
-           v_aanduiding :=
-                 recPersLid.prs_perslid_nr
-              || '|'
-              || recPersLid.prs_perslid_naam
-              || '|'
-              || recPersLid.prs_perslid_voornaam
-              || '|'
-              || recPersLid.alg_locatie_code
-              || '|'
-              || recPersLid.alg_gebouw_code
-              || '|'
-              || recPersLid.alg_verdieping_volgnr
-              || '|'
-              || recPersLid.alg_ruimte_nr
-              || ' - ';
+           IF (p_import_kenmerk = 1)
+           THEN
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk1);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk2);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk3);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk4);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk5);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk6);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk7);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk8);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk9);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk10);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk11);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk12);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk13);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk14);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk15);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk16);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk17);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk18);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk19);
+              upsertkenmerk_imp(v_perslid_key, recPersLid.prs_kenmerk20);
+           END IF;
 
+           v_aanduiding := recPersLid.prs_perslid_nr || '|'
+                        || recPersLid.prs_perslid_naam || '|'
+                        || recPersLid.prs_perslid_voornaam || '|'
+                        || recPersLid.alg_locatie_code || '|'
+                        || recPersLid.alg_gebouw_code  || '|'
+                        || recPersLid.alg_verdieping_volgnr || '|'
+                        || recPersLid.alg_ruimte_nr || ' - ';
 
            v_locatie_key := NULL;
            v_gebouw_key := NULL;
@@ -2214,6 +2591,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
@@ -155,14 +155,6 @@ ADD
         CONSTRAINT fac_r_prs_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
 );
 
-ALTER TABLE fac_idp
-ADD
-(
-    prs_bedrijf_key
-        NUMBER(10)
-        CONSTRAINT fac_r_idp_prs_bedrijf REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE
-);
-
 /* Kruistabel met bedrijfsrelaties (use case Mareon): bedrijf 1 doet iets voor bedrijf 2 of andersom */
 CREATE_TABLE(prs_bedrijf_bedrijf,0)
 (
@@ -172,17 +164,25 @@ 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,
    prs_bedrijf_bedrijf_einddatum
         DATE,
+   prs_bedrijf_bedrijf_startdt2
+        DATE,
+   prs_bedrijf_bedrijf_einddt2
+        DATE,
    prs_bedrijf_bedrijf_status
         NUMBER(1)         -- voor mld_opdr_teverzenden: 0=niet te verzenden 1=te verzenden
         DEFAULT(0)
@@ -198,7 +198,20 @@ 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
+   prs_bedrijf_bedrijf_fee4
+        NUMBER(6,2),       -- bedrag in euro's tbv berekening icm chargemode (voor aannemer)
+--   In FIN_TAB.SRC:
+--   fin_btwtabelwaarde_key -- default btw
+--        NUMBER(10)
+--        CONSTRAINT prs_r_fin_btwtabelwaarde_key2 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+   prs_bedrijf_bedrijf_g_pct -- G-percentage
+        NUMBER(3)
+        CONSTRAINT prs_c_bedrijf_bedrijf_g_pct CHECK(prs_bedrijf_bedrijf_g_pct BETWEEN 0 AND 100),
+   prs_bedrijf_bedrijf_account1
+        VARCHAR2(60),
+   prs_bedrijf_bedrijf_account2
+        VARCHAR2(60)
 );
 
 /*  Kruistabel met elektronische adressen van een bedrijf, toegepast door
@@ -219,14 +232,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 */
@@ -237,16 +254,34 @@ 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),
-    prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, >4=future use */
+        VARCHAR2(320),
+    prs_bedrijfadres_privkey
+        VARCHAR2(4000),
+    prs_bedrijfadres_authmethod /* 0=http.open, 1=Forces basic, 2=custom header, 3=add to xml, 4=oAuth basic >5=future use */
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
+    prs_bedrijfadres_oa_token_url
+        VARCHAR2(512),
+    prs_bedrijfadres_oa_scope
+        VARCHAR2(512),
+    prs_bedrijfadres_oa_resource
+        VARCHAR2(512),
 --    prs_bedrijfadres_lockuser_key
 --        NUMBER(10)
 --        CONSTRAINT prs_r_prs_bedrijfadres_lckusr REFERENCES prs_perslid(prs_perslid_key),
@@ -260,11 +295,11 @@ CREATE_TABLE(prs_bedrijfadres, 0) (
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
-    prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data, 2=application/json, , 3=text/html */
+    prs_bedrijfadres_encoding /* 0=text/xml, 1=multipart/form-data, 2=application/json, 3=text/html, 4=application/x-www-form-urlencoded */
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
-    prs_bedrijfadres_loglevel /* future use */
+    prs_bedrijfadres_loglevel
         NUMBER(1)
         DEFAULT 0
         NOT NULL
@@ -282,15 +317,16 @@ CREATE_TABLE(prs_kostenplaatsgrp,0) (
        NUMBER(8),
    prs_kostenplaatsgrp_limperiode /* 0(of NULL)=geen(oneindig), 1=maand, 2=jaar */
        NUMBER(1),
+   prs_kostenplaatsgrp_fin_limit1
+       NUMBER(8),
+   prs_kostenplaatsgrp_fin_limit2
+       NUMBER(8),
 --   prs_perslid_key
 --       NUMBER(10)
 --       CONSTRAINT prs_r_prs_perslid_key11 REFERENCES prs_perslid(prs_perslid_key),
    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) (
@@ -314,7 +350,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
@@ -326,12 +363,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
@@ -405,7 +449,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
@@ -425,12 +471,6 @@ ALTER TABLE alg_terreinsector ADD
        NUMBER(10)
        CONSTRAINT alg_r_prs_afdeling1 REFERENCES prs_afdeling(prs_afdeling_key)
 );
-ALTER TABLE fac_idp ADD
-(
-    prs_afdeling_key
-       NUMBER(10)
-       CONSTRAINT alg_r_idp_prs_afdeling REFERENCES prs_afdeling(prs_afdeling_key) ON DELETE CASCADE
-);
 
 CREATE_TABLE(prs_srtperslid,0)
 (
@@ -470,7 +510,7 @@ CREATE_TABLE(prs_werkplek,0)
     prs_werkplek_module
         VARCHAR2(3),
     prs_werkplek_volgnr
-        NUMBER(4)
+        NUMBER(8)
         NOT_NULL(prs_werkplek_volgnr, prs_c_prs_werkplek_volgnr),
     prs_werkplek_omschrijving
         VARCHAR2(30),
@@ -494,12 +534,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
@@ -545,11 +589,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
@@ -606,6 +648,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),
@@ -642,7 +688,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
@@ -651,6 +699,14 @@ CREATE_TABLE(prs_perslid,0)
         VARCHAR2(200),
     prs_perslid_timezone
         VARCHAR2(40),
+    prs_perslid_lcid
+        NUMBER(4),
+    prs_perslid_opmerking
+        VARCHAR2 (320),
+    prs_perslid_loglevel
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     CONSTRAINT prs_c_prs_perslid_datums CHECK(prs_perslid_einddatum >= prs_perslid_ingangsdatum)
 );
 
@@ -674,7 +730,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 (
@@ -709,6 +769,11 @@ ALTER TABLE fac_session ADD (
         NUMBER(10)
         CONSTRAINT fac_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
+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)
@@ -749,6 +814,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)
@@ -808,10 +883,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
@@ -826,6 +912,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)
@@ -932,6 +1026,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
@@ -960,14 +1058,18 @@ 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','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(1)
+        NUMBER(2)
+        DEFAULT 0
+        NOT NULL
     ,prs_kenmerk_toonbaar
         NUMBER(1)
     ,prs_kenmerk_uniek
@@ -1049,7 +1151,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
@@ -1062,6 +1164,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,
@@ -1091,9 +1197,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 */
 (
@@ -1104,6 +1217,9 @@ prs_bedrijf_key
     NUMBER(10)
     NOT_NULL(prs_bedrijf_key, prs_c_prs_bedrijf_key2)
     CONSTRAINT prs_r_prs_bedrijf_key5 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
+prs_perslid_key
+    NUMBER(10)
+    CONSTRAINT prs_r_prs_perslid_key21 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
 prs_dienst_key
     NUMBER(10)
     NOT_NULL(prs_dienst_key, prs_c_prs_dienst_key1)
@@ -1114,10 +1230,14 @@ alg_locatie_key
 alg_gebouw_key
     NUMBER(10)
     CONSTRAINT prs_r_alg_gebouw_key1 REFERENCES alg_gebouw(alg_gebouw_key) ON DELETE CASCADE,
-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)
+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_perslid_key, prs_dienst_key, alg_locatie_key, alg_gebouw_key),
+CONSTRAINT prs_c_prs_bedrijfdienstloc CHECK (alg_locatie_key IS NULL OR alg_gebouw_key IS NULL),
+CONSTRAINT prs_c_prs_bdlbp1 CHECK ((prs_bedrijf_key IS NOT NULL AND prs_perslid_key IS NULL) OR (prs_bedrijf_key IS NULL AND prs_perslid_key IS NOT NULL))
 );
-
+ALTER TABLE prs_bedrijfdienstlocatie MODIFY prs_bdl_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 
 CREATE_TABLE(prs_project,0) (
@@ -1232,7 +1352,59 @@ CREATE_TABLE(prs_perslid_inzetbaar, 0)
         CONSTRAINT prs_c_prs_perslid_inzet_tot2 CHECK(prs_perslid_inzetbaar_tot>=0 AND prs_perslid_inzetbaar_tot<1440),
     prs_perslid_inzetbaar_dag  -- 0=zondag, 1=maandag, 2=dinsdag, 3=woensdag, 4=donderdag, 5=vrijdag, 6=zaterdag
         NUMBER(1)
-        NOT_NULL(prs_perslid_inzetbaar_dag, prs_c_prs_perslid_inzet_dag)
+        NOT_NULL(prs_perslid_inzetbaar_dag, prs_c_prs_perslid_inzet_dag),
+    alg_locatie_key /* future use */
+        NUMBER(10)
+        CONSTRAINT prs_r_alg_locatie_key5 REFERENCES alg_locatie(alg_locatie_key),
+    prs_perslid_inzetbaar_plaats /* unstructured variant of alg_locatie_key */
+        VARCHAR2 (200),
+    prs_perslid_inzetbaar_plaats_x /* x of _plaats */
+        NUMBER(16,6),
+    prs_perslid_inzetbaar_plaats_y /* y of _plaats */
+        NUMBER(16,6),
+    prs_perslid_inzetbaar_radius
+        NUMBER (6)
+);
+
+CREATE_TABLE(prs_perslid_tabs, 0)
+(
+    prs_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$')

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,122 +119,169 @@ 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 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;
-      END IF;
+            -- Verwijder contactpersoon-link
+            UPDATE prs_contactpersoon
+               SET prs_perslid_key = NULL
+             WHERE prs_perslid_key = :old.prs_perslid_key;
 
-      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;
+            -- 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;
+    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
+           )
+       OR  (   :new.prs_perslid_inactief IS NOT NULL
+           AND :old.prs_perslid_inactief IS NULL
+           )
+    THEN -- Merk op: anno 5.3.2 wordt een persoon die *nu* is ingelogd hier niet
+         --          automatisch door uitgelogd
+        :new.prs_perslid_credentials_datum := SYSDATE;
+        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;
 /
@@ -291,6 +318,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;
 /
@@ -313,6 +344,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)
@@ -729,8 +765,12 @@ AUDIT_BEGIN(prs_kostenplaatsgrp)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_oms)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_nr)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_perslid_key)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fiat2_key)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fiat3_key)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limiet)
 AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_limperiode)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fin_limit1)
+AUDIT_VALUE(prs_kostenplaatsgrp, prs_kostenplaatsgrp_fin_limit2)
 AUDIT_END()
 
 CREATE_TRIGGER(prs_t_prs_kostenplaatsgrp_B_IU)
@@ -872,6 +912,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,
@@ -100,13 +99,13 @@ CREATE_VIEW (prs_v_perslid_print,0) AS
            ,PRS_SP.prs_srtperslid_omschrijving
            ,k.prs_kostenplaats_nr AS prs_afdeling_kostenplaats
            ,k.prs_kostenplaats_nr
-       FROM prs_v_aanwezigperslid    PRS_P
-           ,prs_afdeling   PRS_A
+       FROM prs_v_aanwezigperslid PRS_P
+           ,prs_afdeling PRS_A
            ,prs_srtperslid PRS_SP
            ,prs_kostenplaats k
-    WHERE   PRS_P.prs_afdeling_key    = PRS_A.prs_afdeling_key
+    WHERE   PRS_P.prs_afdeling_key = PRS_A.prs_afdeling_key
       AND   PRS_SP.prs_srtperslid_key(+) = PRS_P.prs_srtperslid_key
-      AND   PRS_A.prs_kostenplaats_key=k.prs_kostenplaats_key;
+      AND   PRS_A.prs_kostenplaats_key = k.prs_kostenplaats_key(+);
 
 CREATE_VIEW(prs_v_perslid_fullnames, 0) AS
 SELECT prs_perslid_key,
@@ -533,6 +532,29 @@ SELECT prs_afdeling_key5 prs_afdeling_key,
    SELECT prs_afdeling_key1, prs_afdeling_key1, 1
      FROM prs_v_afdeling_boom21 ;
 
+// Compacte en efficiente versie van prs_v_afdeling_familie
+// Maar helaas bij enorm veel afdelingen (BAMG, FMHN) soms toch trager
+CREATE_VIEW (prs_v_afdeling_familie_oud, 0)
+(PRS_AFDELING_KEY, PRS_AFDELING_ELDER_KEY, NIVEAU)
+AS
+    WITH
+        levels
+        AS
+            (    SELECT prs_afdeling_key,
+                        COALESCE (CONNECT_BY_ROOT (prs_afdeling_parentkey), prs_afdeling_key) prs_afdeling_elder_key,
+                        LEVEL niveau
+                   FROM prs_afdeling
+             CONNECT BY PRIOR prs_afdeling_key = prs_afdeling_parentkey
+               ORDER BY prs_afdeling_key, niveau)
+      SELECT ll.prs_afdeling_key,
+             ll.prs_afdeling_elder_key,
+             (SELECT MAX (l2.niveau)
+                FROM levels l2
+               WHERE ll.prs_afdeling_elder_key = l2.prs_afdeling_key)
+                 niveau
+        FROM levels ll
+    ORDER BY prs_afdeling_key, niveau;
+
 --
 --
 CREATE_VIEW(prs_v_afdeling, 0)
@@ -1037,6 +1059,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 +1073,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 +1204,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 +1451,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_INI.SRC

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

RES/RES_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_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

@@ -11,14 +11,18 @@ CREATE_TABLE (res_disc_params,0)
   res_disc_params_preposttime  NUMBER(5,2)      DEFAULT 0,
   res_disc_params_notify       NUMBER(2)        DEFAULT 1,
   res_disc_params_bonotify     NUMBER(2)        DEFAULT 0,
-  res_disc_params_kosten       NUMBER(3)        DEFAULT 100, /* Hoeveel van de kosten worden doorbelast in procenten */
-  res_disc_params_noti_dagen   NUMBER(2),                   /* aantal dagen voor/achteraf voor reminder */
-  res_disc_params_expire_dagen NUMBER(3),                   /* aantal (hele) dagen vooraf waarna niet meer mag worden gewijzigd */
-  res_disc_params_expire_tijd  NUMBER(5,2),                 /* grenstijdstip van de dag voor die freeze (bv 16.5) */
-  res_disc_params_cancel_dagen NUMBER(3),                   /* 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_kosten       NUMBER(3)        DEFAULT 100,         /* Hoeveel van de kosten worden doorbelast in procenten */
+  res_disc_params_noti_dagen   NUMBER(2),                            /* aantal dagen voor/achteraf voor reminder */
+  res_disc_params_expire_dagen NUMBER(3)        DEFAULT 1 NOT NULL,  /* aantal (hele) dagen vooraf waarna niet meer mag worden gewijzigd */
+  res_disc_params_expire_tijd  NUMBER(5,2),                          /* grenstijdstip van de dag voor die freeze (bv 16.5) */
+  res_disc_params_cancel_dagen NUMBER(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,
-  prs_bedrijf_key              NUMBER(10),                  /* Optioneel: de leverancier van deze catalogus */
+  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),
   CONSTRAINT res_r_ins_discipine_key FOREIGN KEY (res_ins_discipline_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
@@ -212,6 +238,8 @@ CREATE_TABLE(res_deel, 0)
     CONSTRAINT res_c_res_deel_prijs_vast1 CHECK(res_deel_prijs_vast IN (0,1))
 , res_deel_opmerking
     VARCHAR2(2000)
+, res_deel_bulkreserveerbaar NUMBER(1) DEFAULT(NULL)
+    CONSTRAINT res_c_res_deel_bulkrsveerbaar CHECK(res_deel_bulkreserveerbaar IN (0,1))
 , res_discipline_key
     NUMBER(10)
     NOT_NULL(res_discipline_key, res_c_res_deel_dis_key)
@@ -236,6 +264,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))
 );
 
 
@@ -251,7 +284,7 @@ CREATE_TABLE(res_artikel, 0)
 , res_artikel_nr
     VARCHAR2(10)
 , res_artikel_omschrijving
-    VARCHAR2(30)
+    VARCHAR2(40)
 , res_artikel_eenheid
     VARCHAR2(10)
 , res_artikel_prijs
@@ -301,6 +334,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 +384,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 +424,9 @@ 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
     DATE
     DEFAULT SYSDATE
@@ -377,6 +442,17 @@ CREATE_TABLE(res_activiteit, 0)
 , res_activiteit_meteindtijd
     NUMBER(1) DEFAULT 1
     CONSTRAINT res_c_res_activiteit_meteind CHECK(res_activiteit_meteindtijd IS NOT NULL)
+, 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                           /* Optional: JSON-structured intervals */
+    VARCHAR(2000 CHAR)
+,  res_activiteit_limiet       /* Optional overrule of Setting res_reservering_limiet (days) */
+     NUMBER(3)
+,  res_activiteit_limiet_fe /* Optional overrule of Setting res_fe_reservering_limiet (days) */
+     NUMBER(3)
+,  res_activiteit_image
+    VARCHAR2(255)
 , CONSTRAINT res_u_res_activiteit_upper UNIQUE(res_activiteit_upper, res_activiteit_verwijder, res_srtactiviteit_key)
 );
 
@@ -393,7 +469,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
 );
 
 
@@ -433,6 +513,7 @@ CREATE_TABLE(res_rsv_ruimte, 0)
 , res_ruimte_opstel_key
     NUMBER(10)
     CONSTRAINT res_r_res_ruimte_opstel_key2 REFERENCES res_ruimte_opstelling(res_ruimte_opstel_key)
+, CONSTRAINT res_c_alg_ruimte_or_opstel CHECK (res_ruimte_opstel_key IS NOT NULL OR alg_ruimte_key IS NOT NULL OR mld_opdr_key IS NOT NULL)
 , res_rsv_ruimte_cvab_mode  /* 0=afhalen; 1=bezorgen (alg_ruimte bevat res_deel records); null=weetniet, +2=vast  */
     NUMBER(1)
 , res_activiteit_key
@@ -441,6 +522,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)
@@ -469,6 +552,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
@@ -500,11 +586,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
@@ -526,7 +619,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
@@ -551,9 +644,22 @@ 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
+      NUMBER(10)
+      CONSTRAINT ins_r_res_rsv_deel_key
+      REFERENCES res_rsv_deel (res_rsv_deel_key)
+      ON DELETE SET NULL;
+
 CREATE_TABLE(res_rsv_artikel, 0)
 (  res_rsv_artikel_key
      NUMBER(10)
@@ -572,7 +678,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)
@@ -595,6 +701,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
 );
 
 
@@ -623,7 +740,9 @@ CREATE_TABLE(res_srtkenmerk, 0)
 ,  res_srtkenmerk_kenmerktype
       VARCHAR2(1)
 ,  res_srtkenmerk_systeem
-      NUMBER(1)
+      NUMBER(2)
+      DEFAULT 0
+      NOT NULL
 ,  res_srtkenmerk_lengte
       NUMBER(4)
 ,  res_srtkenmerk_dimensie
@@ -646,9 +765,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','R','X','L','Q','F','M','E','S', 'l', 'B'))
-,  CONSTRAINT res_c_res_srtkenmerk_systeem   CHECK(res_srtkenmerk_systeem IS NULL
-                                                OR res_srtkenmerk_systeem = 1)
+,  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)
@@ -666,8 +783,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
@@ -686,6 +810,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
@@ -695,10 +821,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)
@@ -724,6 +852,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,29 +185,47 @@ 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,
-  r.RES_RSV_RUIMTE_TOT,
+  r.res_rsv_ruimte_van,
+  r.res_rsv_ruimte_tot,
   r.res_status_fo_key,
+  rac.res_activiteit_posttime,
   ra.res_alg_ruimte_verwijder,
   r.res_rsv_ruimte_dirtlevel
 FROM
-  RES_RSV_RUIMTE r, RES_RUIMTE_OPSTELLING ro, RES_RUIMTE rr, RES_ALG_RUIMTE ra
+  res_rsv_ruimte r,
+  res_ruimte_opstelling ro,
+  res_ruimte rr,
+  res_alg_ruimte ra,
+  res_activiteit rac
 WHERE
   r.res_rsv_ruimte_verwijder IS NULL AND
   r.res_ruimte_opstel_key = ro.res_ruimte_opstel_key AND
   ro.res_ruimte_key = rr.res_ruimte_key AND
-  rr.res_ruimte_key = ra.res_ruimte_key;
+  rr.res_ruimte_key = ra.res_ruimte_key AND
+  r.res_activiteit_key = rac.res_activiteit_key;
 /
 
 CREATE_VIEW(res_v_reserveringruimte_geg, 0) AS
-   SELECT rr.res_reservering_key, rr2.res_rsv_ruimte_opmerking,
-          rr2.res_rsv_ruimte_omschrijving, k.prs_kostenplaats_nr res_rsv_ruimte_ordernr, rr2.res_rsv_ruimte_telefoon,
-          rr2.res_rsv_ruimte_aanmaak, rr2.res_rsv_ruimte_verwijder, rr2.res_rsv_ruimte_contact_key,
-          rr2.res_rsv_ruimte_host_key, rr.res_ruimte_key, rr.alg_ruimte_key, k.prs_kostenplaats_nr
-     FROM res_v_rsv_ruimte_2_alg_ruimte rr, prs_kostenplaats k, res_rsv_ruimte rr2
-    WHERE k.prs_kostenplaats_key = rr2.prs_kostenplaats_key AND rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key;
+   SELECT rr.res_reservering_key,
+          rr2.res_rsv_ruimte_opmerking,
+          rr2.res_rsv_ruimte_omschrijving,
+          k.prs_kostenplaats_nr res_rsv_ruimte_ordernr,
+          rr2.res_rsv_ruimte_telefoon,
+          rr2.res_rsv_ruimte_aanmaak,
+          rr2.res_rsv_ruimte_verwijder,
+          rr2.res_rsv_ruimte_contact_key,
+          rr2.res_rsv_ruimte_host_key,
+          rr.res_ruimte_key,
+          rr.alg_ruimte_key,
+          k.prs_kostenplaats_nr
+     FROM res_v_rsv_ruimte_2_alg_ruimte rr,
+          prs_kostenplaats k,
+          res_rsv_ruimte rr2
+    WHERE k.prs_kostenplaats_key(+) = rr2.prs_kostenplaats_key
+      AND rr2.res_rsv_ruimte_key = rr.res_rsv_ruimte_key;
 
 CREATE_VIEW(res_v_ruimte_opstel_gegevens,0) AS
   SELECT RES_RO.res_ruimte_opstel_key,
@@ -336,11 +354,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
@@ -1079,17 +1100,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
                             ),
@@ -1324,17 +1345,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
                             ),
@@ -1359,11 +1380,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,
@@ -1393,7 +1420,8 @@ CREATE_VIEW(res_v_udr_reservering, 1)
    bostatus,
    activiteit,
    srtactiviteit_key,
-   activiteitsoort
+   activiteitsoort,
+   opmerking
 )
 AS
    SELECT rrr.res_rsv_ruimte_key,
@@ -1407,6 +1435,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
@@ -1444,6 +1478,10 @@ AS
              kostensoort,
           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,
@@ -1552,7 +1590,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,
@@ -1560,6 +1599,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,
@@ -1591,6 +1632,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)
@@ -1602,11 +1645,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,
@@ -1637,6 +1686,7 @@ CREATE_VIEW(res_v_udr_reserveringincl, 1)
    activiteit,
    srtactiviteit_key,
    activiteitsoort,
+   opmerking,
    voorziening_discipline_key,
    voorziening_type,
    voorziening_catalogus,
@@ -1654,13 +1704,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
@@ -1702,6 +1758,10 @@ AS
              kostensoort,
           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,
@@ -1813,6 +1873,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,
@@ -1834,6 +1895,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,
@@ -1909,6 +1972,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/DB32to33.src

@@ -7,8 +7,380 @@
 
 COMMIT;
 
-/////////////////////////////////////////////////////////////////////////////////////////// XXXX#12345
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#42307
+ALTER TABLE res_activiteit
+  ADD res_activiteit_cvab_mode
+      NUMBER(1)
+      CONSTRAINT res_c_res_activiteit_cvab_mode CHECK(res_activiteit_cvab_mode IN (0,1,2,3));
 
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#41463
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/prs_kostenplaats.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_fin_kostenplaatsen';
+
+/////////////////////////////////////////////////////////////////////////////////////////// VGLD#41598
+ALTER TABLE fin_factuur
+  ADD fin_factuur_flag
+      NUMBER(1);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#40537
+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')) ENABLE NOVALIDATE;
+
+-- /////////////////////////////////////////////////////////////////////////////////////// FSN#46947
+UPDATE fac_functie
+   SET fac_functie_groep = 2
+     , fac_functie_min_level=0
+     , fac_functie_discipline=0
+ WHERE fac_functie_code = 'WEB_BGTMGT';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#39055
+UPDATE fac_menuitems
+   SET fac_menuitems_url = fac_menuitems_url || '&autosearch=1'
+ WHERE fac_menuitems_label = 'lcl_menu_bgt_disciplines_1';
+
+ALTER TABLE bgt_budgetmutatie
+  ADD bgt_budgetmutatie_reserve
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+UPDATE bgt_budgetmutatie
+   SET bgt_budgetmutatie_reserve = 1
+ WHERE bgt_budgetmutatie_omschrijving = 'AO Automatische overboeking';
+
+UPDATE fac_setting
+   SET fac_setting_pvalue = 'true'
+ WHERE fac_setting_name = 'bgt_extra_report_param'
+   AND EXISTS (SELECT 1
+                 FROM fac_setting
+                WHERE fac_setting_name = 'fac_reserved_string1'
+                  AND fac_setting_pvalue = 'versienummer'
+              );
+
+UPDATE fac_setting
+   SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'fac_reserved_string1'
+   AND fac_setting_pvalue = 'versienummer';
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#39063
+ALTER TABLE mld_stdmelding  -- Einddatum opdracht leeglaten (0=Nee(Default) | 1=Ja)
+  ADD mld_stdmelding_enddate_empty
+      NUMBER(1)
+      DEFAULT 0
+      CONSTRAINT mld_c_stdmelding_enddate_empty CHECK (mld_stdmelding_enddate_empty IN (0,1))
+      CONSTRAINT mld_c_stdmelding_enddate_empt2 CHECK (mld_stdmelding_enddate_empty IS NOT NULL);
+
+/////////////////////////////////////////////////////////////////////////////////////////// KFSG#49267
+ALTER TABLE ins_deel ADD res_rsv_deel_key
+      NUMBER(10)
+      CONSTRAINT ins_r_res_rsv_deel_key REFERENCES res_rsv_deel (res_rsv_deel_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#49567
+UPDATE fac_menu
+   SET fac_menu_portal = NULL
+ WHERE fac_menu_altgroep IN (5, 6)
+   AND fac_menu_portal IS NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#43129
+ALTER TABLE mld_melding
+    ADD mld_melding_actiecode
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PLAT#41497
+DEF_FAC_SRTNOT('INSSUP', 0, 'lcl_noti_INSSUP', 'ins/ins_srtdeel.asp?srtdeel_key=', '0', 'srtdeel', 10);
+
+ALTER TABLE fac_audit
+ DROP CONSTRAINT fac_k_fac_audit_actie;
+ALTER TABLE fac_audit
+  ADD CONSTRAINT fac_k_fac_audit_actie CHECK (fac_audit_actie IN ('C', 'D', 'I', 'U'));
+
+UPDATE fac_srtnotificatie
+   SET fac_srtnotificatie_url = 'mgt/ins_srtcontrole.asp?id='
+ WHERE fac_srtnotificatie_code = 'CTRSUP';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#51441
+UPDATE prs_perslid
+   SET fac_profiel_key = NULL
+ WHERE prs_perslid_verwijder IS NOT NULL
+   AND fac_profiel_key IS NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#41432
+#define DEF_FAC_FUNCTIE3(c, m, l, d, g) UPDATE fac_functie SET fac_functie_groep = g WHERE fac_functie_code = c
+DEF_FAC_FUNCTIE3('WEB_BESBAC', 'BES', 13, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_BESGO2', 'BES', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_BESGO3', 'BES', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_BESGO4', 'BES', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_BESGO5', 'BES', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_BEZBAC', 'BEZ', 13, 0,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_FACFAC', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_FACMGT', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_FACMSU', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_FACTAB', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_FINGOE', 'FIN',  0, 0,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_HLPADM', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_IMPORT', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_KPIRAP', 'KPI',  0, 0,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_LCLSYS', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_MGTRAP', 'FAC',  3, 0,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_MLDBAC', 'MLD', 13, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_MLDBO3', 'MLD', 15, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDFIN', 'FIN',  0, 0, NULL);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDGO2', 'MLD', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDGO3', 'MLD', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDGO4', 'MLD', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDGO5', 'MLD', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDGOE', 'MLD', 11, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_ORDUSE', 'MLD', 15, 1,    1);  //    0
+DEF_FAC_FUNCTIE3('WEB_PERMON', 'FAC',  0, 0, NULL);  //    2
+DEF_FAC_FUNCTIE3('WEB_RESAFR', 'RES',  0, 0, NULL);  //    1
+DEF_FAC_FUNCTIE3('WEB_RESBAC', 'RES', 13, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_UURBOF', 'MLD',  3, 1,    0);  //    1
+DEF_FAC_FUNCTIE3('WEB_VERFAC', 'FIN',  0, 0,    0);  //    1
+#undef DEF_FAC_FUNCTIE3
+-- Overrulede user-functie omschrijvingen veiligstellen
+INSERT INTO fac_locale_xsl (fac_locale_xsl_label,
+                            fac_locale_xsl_module,
+                            fac_locale_xsl_lang,
+                            fac_locale_xsl_tekst,
+                            fac_locale_xsl_cust)
+    SELECT 'lcl_WEB_USER' || SUBSTR (fac_functie_code, 9, 2) || '_info',
+           'ASP',
+           fac_version_lang,
+           'Zelfdefinieerbare autorisatiefunctie ' || SUBSTR (fac_functie_code, 9, 2),
+           fac_functie_info
+      FROM fac_functie, fac_version
+     WHERE fac_functie_code LIKE 'WEB_USER%'
+           AND fac_functie_info <> 'Zelfdefinieerbare autorisatiefunctie ' || SUBSTR (fac_functie_code, 9, 2);
+
+INSERT INTO fac_locale_xsl (fac_locale_xsl_label,
+                            fac_locale_xsl_module,
+                            fac_locale_xsl_lang,
+                            fac_locale_xsl_tekst,
+                            fac_locale_xsl_cust)
+    SELECT 'lcl_WEB_USER' || SUBSTR (fac_functie_code, 9, 2),
+           'ASP',
+           fac_version_lang,
+           'Overig ' || SUBSTR (fac_functie_code, 9, 2),
+           fac_functie_omschrijving
+      FROM fac_functie, fac_version
+     WHERE fac_functie_code LIKE 'WEB_USER%'
+           AND fac_functie_omschrijving <> 'Overig ' || SUBSTR (fac_functie_code, 9, 2);
+
+UPDATE fac_functie
+   SET fac_functie_omschrijving = 'lcl_WEB_USER' || SUBSTR (fac_functie_code, 9, 2),
+       fac_functie_info = 'lcl_WEB_USER' || SUBSTR (fac_functie_code, 9, 2) || '_info'
+ WHERE fac_functie_code like 'WEB_USER%';
+
+/////////////////////////////////////////////////////////////////////////////////////////// PLAT#41688
+ALTER TABLE ins_tab_discipline MODIFY ins_discipline_omschrijving VARCHAR2(60);
+ALTER TABLE fac_imp_mld MODIFY ins_discipline_omschrijving VARCHAR2(60);
+ALTER TABLE fac_imp_ins MODIFY ins_discipline_omschrijving VARCHAR2(60);
+ALTER TABLE fac_imp_ins MODIFY res_discipline_omschrijving VARCHAR2(60);
+ALTER TABLE fac_imp_inspectie MODIFY ins_discipline_omschrijving VARCHAR2(60);
+ALTER TABLE fac_imp_onrgoed2 MODIFY res_discipline_omschrijving VARCHAR2(60);
+
+ALTER TABLE ins_deel ADD ins_deel_mjb_score1 NUMBER(6,2);
+ALTER TABLE ins_deel ADD ins_deel_mjb_score2 NUMBER(6,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// PLAT#52094
+ALTER TABLE ins_srtdeel ADD ins_srtdeel_mjb_grensscore1 NUMBER(6,2);
+ALTER TABLE alg_locatie ADD alg_locatie_mjb_score1 NUMBER(6,2);
+ALTER TABLE alg_gebouw ADD alg_gebouw_mjb_score1 NUMBER(6,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#51336
+UPDATE fac_notificatie_job
+   SET fac_notificatie_job_flags = 0
+ WHERE LOWER(fac_notificatie_job_view) = 'fac_v_noti_facorderqueuefails';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#51518
+CREATE_TABLE(mld_stdmelding_srtinst, 0)
+(
+    mld_stdmelding_srtinst_key
+        NUMBER(10)
+        CONSTRAINT mld_k_stdmelding_srtinst_key PRIMARY KEY,
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key8 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key1),
+    ins_srtinstallatie_key     -- optional reference to objecttype (level defined by _niveau)
+        NUMBER(10),
+    ins_srtinstallatie_niveau    -- level of _srtinst_key
+        VARCHAR2(1)
+        CONSTRAINT mld_c_mld_srtinst_niveau CHECK (ins_srtinstallatie_niveau IN ('D','G','S')),
+    mld_stdmelding_srtinst_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    CONSTRAINT mld_u_mld_stdmelding_srtinst UNIQUE(mld_stdmelding_key, ins_srtinstallatie_niveau, ins_srtinstallatie_key)
+);
+
+
+CREATE SEQUENCE mld_s_mld_stdm_srtinst_key MINVALUE 1;
+CREATE_TRIGGER(mld_t_mld_stdm_srtinst_B_IU)
+BEFORE INSERT OR UPDATE ON mld_stdmelding_srtinst
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(mld_stdmelding_srtinst_key, mld_s_mld_stdm_srtinst_key);
+END;
+/
+
+// CONVERT from mld_stdmelding
+INSERT INTO mld_stdmelding_srtinst (mld_stdmelding_key, ins_srtinstallatie_key, ins_srtinstallatie_niveau)
+SELECT mld_stdmelding_key, ins_srtinst_key, ins_srtinst_niveau
+  FROM mld_stdmelding
+ WHERE ins_srtinst_niveau IS NOT NULL
+   AND mld_stdmelding_verwijder IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#41309
+UPDATE fac_menuitems
+   SET fac_menuitems_url = 'appl/mgt/mld_stdmelding.asp'
+ WHERE fac_menuitems_label = 'lcl_menu_mld_meldingen';
+
+/////////////////////////////////////////////////////////////////////////////////////////// VGLD#51622
+ALTER TABLE bes_bestelling
+    ADD bes_bestelling_fiatbedrag
+   NUMBER(11,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#51790
+UPDATE fac_setting SET fac_setting_pvalue = REPLACE(fac_setting_pvalue, 'menuitemhovercolor', 'menuitemhoverbackgroundcolor')
+ WHERE fac_setting_name = 'csstemplate';
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#48507
+ALTER TABLE mld_stdmelding
+  ADD mld_stdmelding_autoorderamount
+      NUMBER(12,2);
+
+UPDATE mld_stdmelding
+   SET mld_stdmelding_autoorderamount = 0
+ WHERE mld_stdmelding_autoorder = 1;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#41676
+ALTER TABLE bes_bestelopdr ADD bes_bestelopdr_flag NUMBER(1);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#41674
+ALTER TABLE bes_disc_params      /* bestelcatalogusinstellingen {0=Niet van toepassing, 1=Aanmaken en koppelen (Nog niet ondersteund), 2=Koppelen} */
+  ADD bes_disc_params_ins_mode
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+ALTER TABLE bes_srtdeel          /* objectrelatie */
+  ADD ins_srtdeel_key
+      NUMBER(10)
+      CONSTRAINT ins_r_ins_srtdeel_key4 REFERENCES ins_srtdeel(ins_srtdeel_key);
+
+ALTER TABLE ins_deel
+  ADD bes_bestelopdr_key
+      NUMBER(10)
+      CONSTRAINT bes_r_bes_bestelopdr_key3 REFERENCES bes_bestelopdr(bes_bestelopdr_key);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#41675
+ALTER TABLE bes_disc_params
+  ADD bes_disc_params_fe_confirm    /* Besteller bevestigt ontvangst {0=Nee (default), 1=Ja} */
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+DEF_STATUS('bestelopdr', 9, 'lcl_bes_ord_ontvangen');
+
+DEF_FAC_SRTNOT('BESOT2', 0, 'lcl_noti_BESOT2', 'bes/bes_bestelling.asp?bes_key=', '0', 'bestelling', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#47307
+ALTER TABLE bes_disc_params /* 0=ouderwets artikelselector, 1=vrij artikelen, 2=bestellijst */
+  ADD bes_disc_params_bestelmode
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+UPDATE bes_disc_params
+  SET bes_disc_params_bestelmode = bes_disc_params_freeartikel;
+
+ALTER TABLE bes_disc_params /* 0=alleen bij kiezen artikel, 1=ook in bestellijst */
+  ADD bes_disc_params_fotomode
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#51994
+ALTER TABLE fac_api
+  ADD fac_api_stylesheet_out
+      VARCHAR2 (64);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#52010
+UPDATE aut_idp
+   SET aut_idp_ipfilter = '87.249.108.135,87.249.108.136,80.250.128.5,80.250.128.6,31.161.17.4' --  Enschede/Enschede/Mainz/Mainz/Emmen
+ WHERE aut_idp_ipfilter = '87.249.108.135,87.249.108.136';
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#45087
+ALTER TABLE mld_stdmelding
+  ADD mld_stdmelding_prsafdobj
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#52120
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+UPDATE mld_melding
+   SET mld_melding_kto_type = NULL
+ WHERE mld_melding_kto_type IS NOT NULL
+   AND mld_melding_kto_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#52125
+ALTER TABLE prs_perslid
+    ADD prs_perslid_loglevel
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHW#41702
+ALTER TABLE res_activiteit
+    ADD res_activiteit_posttime
+        NUMBER(5,2)
+        DEFAULT 0
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHW#41702
+UPDATE mld_stdmelding
+    SET mld_stdmelding_planbaar = 0
+  WHERE mld_stdmelding_planbaar IS NULL;
+
+ALTER TABLE mld_stdmelding
+    MODIFY mld_stdmelding_planbaar DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// AADS#45847
+DEF_FAC_SRTNOT('MLDNW3', 2, 'lcl_noti_MLDNW3', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 300);
+
+ALTER TABLE mld_disc_params
+    ADD (mld_disc_params_emailnw1 VARCHAR (200),
+         mld_disc_params_emailnw2 VARCHAR (200),
+         mld_disc_params_emailnw3 VARCHAR (200),
+         mld_disc_params_emailnw4 VARCHAR (200),
+         mld_disc_params_smsnw1 VARCHAR (15),
+         mld_disc_params_smsnw2 VARCHAR (15),
+         mld_disc_params_smsnw3 VARCHAR (15),
+         mld_disc_params_smsnw4 VARCHAR (15));
+
+/////////////////////////////////////////////////////////////////////////////////////////// AADS#45847
+ALTER TABLE fac_usrrap
+    MODIFY fac_usrrap_info
+        VARCHAR2(1000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// IVET#39761
+UPDATE ins_srtcontrole
+   SET ins_srtcontrole_bits = POWER(2, ins_srtcontrole_bits - 1)
+ WHERE ins_srtcontrole_eenheid = 4
+   AND ins_srtcontrole_mode = 0;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#52191
+ALTER TABLE bgt_budgetmutatie
+  ADD ( bgt_budgetmutatie_volgnr NUMBER(3)
+      , bgt_budgetmutatie_code   VARCHAR2(2)
+      );
 
 ///////////////////////////////////////////////////////////////////////////////////////////
 /////////////////////////////////////////////////////////////////////////////////////////// GENERAL
@@ -16,7 +388,7 @@ COMMIT;
 /////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
 
 /////////////////////////////////////////////////////////////////////////////////////////// DJIN#36213
-DROP TABLE fac_idp;
+DROP TABLE fac_idp PURGE;
 DROP SEQUENCE fac_s_fac_idp_key;
 
 ///////////////////////////////////////////////////////////////////////////////////////////

_UP/DB33to33a.src

@@ -0,0 +1,62 @@
+/* DB33to33aRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#51222
+DEF_FAC_SRTNOT('BESANO', 0, 'lcl_noti_BESANO', 'bes/bes_bestelling.asp?bes_key=', '0', 'bestelling', 10);
+DEF_FAC_SRTNOT('BES2AN', 0, 'lcl_noti_BES2AN', '', '0', 'bestelopdr', 10);
+DEF_FAC_SRTNOT('BEZANO', 0, 'lcl_noti_BEZANO', 'bez/bez_afspraak.asp?bez_key=',   '0', 'afspraak', 10);
+DEF_FAC_SRTNOT('MLDANO', 0, 'lcl_noti_MLDANO', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('ORDANO', 0, 'lcl_noti_ORDANO', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('PRSANO', 0, 'lcl_noti_PRSANO', 'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
+
+DEF_MENUITEM(2, 'lcl_menu_fac_anonymize'        , '', 'FAC', 'appl/fac/fac_anonymize.asp', 0, 0, 'WEB_PRSSYS', 'W', '0', '');
+MENU_INS_AFTER('lcl_menu_fac_anonymize', 'lcl_menu_fac_vertalingen', 2);
+
+ALTER TABLE bes_srtkenmerk
+ DROP CONSTRAINT bes_c_bes_srtkenmerk_systeem;
+
+UPDATE bes_srtkenmerk
+   SET bes_srtkenmerk_systeem = 0
+ WHERE bes_srtkenmerk_systeem IS NULL;
+
+ALTER TABLE bes_srtkenmerk
+      MODIFY bes_srtkenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+ALTER TABLE mld_srtkenmerk
+ DROP CONSTRAINT mld_c_mld_srtkenmerk_systeem;
+
+ALTER TABLE mld_srtkenmerk
+      MODIFY mld_srtkenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+UPDATE prs_kenmerk
+   SET prs_kenmerk_systeem = 0
+ WHERE prs_kenmerk_systeem IS NULL;
+
+ALTER TABLE prs_kenmerk
+      MODIFY prs_kenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+///////////////////////////////////////////////////////////////////////////////////////////
+/////////////////////////////////////////////////////////////////////////////////////////// GENERAL
+
+/////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
+
+
+///////////////////////////////////////////////////////////////////////////////////////////
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB33to34.src

@@ -0,0 +1,358 @@
+/* DB33to34.SRC
+ * Update script van FACILITOR schema
+ * $Revision$
+ * $Id$
+ */
+#include "prologue.inc"
+
+COMMIT;
+
+/////////////////////////////////////////////////////////////////////////////////////////// TWYN#52191
+DEF_MENUITEM(1, 'lcl_menu_bgt_budgetmutatie'    , '', 'BGT', 'appl/bgt/bgt_budgetmutatie.asp?smode=1',   0, 0, 'WEB_BGTUSE', 'W', '1', '');
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#51310
+ALTER TABLE fac_menu
+  ADD fac_menu_advfilter
+      VARCHAR2 (4000);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#41675
+DEF_STATUS('bestelling', 9, 'lcl_bes_ontvangen');
+
+DELETE FROM fac_code2label
+      WHERE fac_code2label_domein LIKE 'bestelopdr'
+        AND fac_code2label_code = 9
+        AND fac_code2label_label LIKE 'lcl_bes_ord_ontvangen';
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#40541
+ALTER TABLE alg_kenmerk DROP CONSTRAINT alg_c_alg_kenmerk_type1;
+ALTER TABLE alg_kenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE bes_srtkenmerk DROP CONSTRAINT bes_c_bes_srtkenmerk_kenmtype;
+ALTER TABLE bes_srtkenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE bez_kenmerk DROP CONSTRAINT bez_c_bez_kenmerk_type2;
+ALTER TABLE bez_kenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE cnt_srtkenmerk DROP CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype;
+ALTER TABLE cnt_srtkenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE fac_kenmwaarden DROP CONSTRAINT fac_c_fac_kenmwaarden_kenmtype;
+ALTER TABLE fac_kenmwaarden ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE faq_kenmerk DROP CONSTRAINT faq_c_faq_kenmerk_type1;
+ALTER TABLE faq_kenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE fin_kenmerk DROP CONSTRAINT fin_c_fin_kenmerk_type1;
+ALTER TABLE fin_kenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE ins_srtkenmerk DROP CONSTRAINT ins_c_ins_srtkenmerk_kenmtype;
+ALTER TABLE ins_srtkenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE mld_srtkenmerk DROP CONSTRAINT mld_c_mld_srtkenmerk_kenmtype;
+ALTER TABLE mld_srtkenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE prs_kenmerk DROP CONSTRAINT prs_c_prs_kenmerk_type2;
+ALTER TABLE prs_kenmerk ADD 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')) ENABLE NOVALIDATE;
+
+ALTER TABLE res_srtkenmerk DROP CONSTRAINT res_c_res_srtkenmerk_kenmtype;
+ALTER TABLE res_srtkenmerk ADD 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')) ENABLE NOVALIDATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#36724
+UPDATE res_disc_params
+   SET res_disc_params_expire_dagen = 1
+ WHERE res_disc_params_expire_dagen IS NULL;
+
+UPDATE res_disc_params
+   SET res_disc_params_cancel_dagen = 1
+ WHERE res_disc_params_cancel_dagen IS NULL;
+
+ALTER TABLE res_disc_params
+MODIFY ( res_disc_params_expire_dagen DEFAULT 1 NOT NULL
+       , res_disc_params_cancel_dagen DEFAULT 1 NOT NULL
+       );
+
+/////////////////////////////////////////////////////////////////////////////////////////// UWVA#51785
+ALTER TABLE res_rsv_ruimte ADD CONSTRAINT res_c_alg_ruimte_or_opstel
+      CHECK (res_ruimte_opstel_key IS NOT NULL OR alg_ruimte_key IS NOT NULL) ENABLE NOVALIDATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#52431
+CREATE SEQUENCE fac_s_fac_auditfail_key MINVALUE 1;
+
+CREATE_TABLE(fac_auditfail, 0)
+(
+   fac_auditfail_key
+       NUMBER(10)
+       CONSTRAINT fac_k_fac_auditfail_key PRIMARY KEY,
+   fac_auditfail_datum
+       DATE
+       DEFAULT SYSDATE
+       NOT NULL,
+   fac_auditfail_tekst
+       VARCHAR2(2048 CHAR)
+);
+
+
+CREATE OR REPLACE VIEW fac_v_rap_auditfail AS SELECT * FROM fac_auditfail;
+INSERT INTO fac_usrrap
+( fac_usrrap_omschrijving, fac_usrrap_view_name, fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum
+, fac_usrrap_functie, fac_usrrap_info, fac_functie_key
+)
+SELECT 'BEHEER: Audit fail', 'fac_v_rap_auditfail', 0, 0, NULL, 'Report audit fail', fac_functie_key
+  FROM fac_functie
+ WHERE fac_functie_code = 'WEB_FACMGT';
+
+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
+)
+SELECT fac_usrrap_key, 10, 'fac_auditfail_key', 'Key', NULL, NULL, 'number', 'H'
+  FROM fac_usrrap
+ WHERE fac_usrrap_omschrijving = 'BEHEER: Audit fail';
+
+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
+)
+SELECT fac_usrrap_key, 20 , 'fac_auditfail_datum' , 'Date' , 'R' , ':mp' , 'date' , 'V'
+  FROM fac_usrrap
+ WHERE fac_usrrap_omschrijving = 'BEHEER: Audit fail';
+
+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
+)
+SELECT fac_usrrap_key, 30 , 'fac_auditfail_tekst' , 'Description' , 'L' , NULL , 'varchar' , 'V'
+  FROM fac_usrrap
+ WHERE fac_usrrap_omschrijving = 'BEHEER: Audit fail';
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#41181
+ALTER TABLE fac_usrdata
+MODIFY fac_usrdata_prijs NUMBER(15,7);
+
+ALTER TABLE fac_imp_usrdata
+MODIFY fac_usrdata_prijs NUMBER(15,7);
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#39053
+DEF_FAC_SRTNOT('PRSUPB', 0, 'lcl_noti_PRSUPB', 'prs/prs_bedrijf.asp?bedrijf_key=',   '0', 'bedrijf',      10);
+DEF_FAC_SRTNOT('PRSUPT', 0, 'lcl_noti_PRSUPT', 'prs/prs_bedrijfadres.asp?badr_key=', '0', 'bedrijfadres', 10);
+
+/////////////////////////////////////////////////////////////////////////////////////////// BLCC#52924
+ALTER TABLE cnt_contract
+MODIFY cnt_contract_korting NUMBER(5,2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#52938
+ALTER TABLE ins_deel
+DROP CONSTRAINT ins_r_res_rsv_deel_key;
+
+ALTER TABLE ins_deel
+ADD CONSTRAINT ins_r_res_rsv_deel_key
+    FOREIGN KEY (res_rsv_deel_key)
+    REFERENCES res_rsv_deel (res_rsv_deel_key)
+    ON DELETE SET NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#42727
+ALTER TABLE mld_stdmelding
+  ADD ins_srtinst_verplichtstatus
+      NUMBER(2);
+
+UPDATE mld_stdmelding
+   SET ins_srtinst_verplichtstatus = CASE
+                                     WHEN ins_srtinst_verplicht = 1
+                                     THEN 2
+                                     ELSE NULL
+                                     END;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PNBR#52321
+ALTER TABLE res_artikel
+MODIFY res_artikel_omschrijving VARCHAR2(40);
+
+ALTER TABLE fac_imp_res_artikel_sync
+MODIFY res_artikel_omschrijving VARCHAR2(40);
+
+/////////////////////////////////////////////////////////////////////////////////////////// DJIN#39657
+ALTER TABLE mld_opdr
+  ADD mld_opdr_laatstgezien
+      DATE
+      DEFAULT SYSDATE
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// PCHD#53196
+DELETE FROM fac_menu
+      WHERE fac_menu_altlabel IS NULL AND prs_perslid_key IS NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#39706
+DELETE FROM fac_message WHERE UPPER(fac_message_code) = 'INS_C_INS_SRTKENMERK_SYSTEEM';
+
+ALTER TABLE ins_srtkenmerk DROP CONSTRAINT ins_c_ins_srtkenmerk_systeem;
+
+UPDATE ins_srtkenmerk
+   SET ins_srtkenmerk_systeem = 0
+ WHERE ins_srtkenmerk_systeem IS NULL;
+
+ALTER TABLE ins_srtkenmerk
+     MODIFY ins_srtkenmerk_systeem DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// DIAN#52892
+ALTER TABLE bes_disc_params
+  ADD bes_disc_params_hide_cost_fe
+      NUMBER(1)
+      DEFAULT 0
+      NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#53152
+ALTER TABLE mld_opdr
+  ADD mld_opdr_plandatum2
+      DATE;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MARX#53153
+DEF_FAC_SRTNOT('ORDPLD', 0, 'lcl_noti_ORDPLD', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 60);
+DEF_FAC_SRTNOT('ORDPL2', 0, 'lcl_noti_ORDPL2', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 60);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#51222
+// Alle patches van DB33to33a
+DEF_FAC_SRTNOT('BESANO', 0, 'lcl_noti_BESANO', 'bes/bes_bestelling.asp?bes_key=', '0', 'bestelling', 10);
+DEF_FAC_SRTNOT('BES2AN', 0, 'lcl_noti_BES2AN', '', '0', 'bestelopdr', 10);
+DEF_FAC_SRTNOT('BEZANO', 0, 'lcl_noti_BEZANO', 'bez/bez_afspraak.asp?bez_key=',   '0', 'afspraak', 10);
+DEF_FAC_SRTNOT('MLDANO', 0, 'lcl_noti_MLDANO', 'mld/mld_melding.asp?mld_key=', '0', 'melding', 10);
+DEF_FAC_SRTNOT('ORDANO', 0, 'lcl_noti_ORDANO', 'mld/mld_opdr.asp?opdr_key=', '0', 'opdracht', 10);
+DEF_FAC_SRTNOT('PRSANO', 0, 'lcl_noti_PRSANO', 'prs/prs_perslid.asp?prs_key='   , '0', 'perslid',      10);
+
+DEF_MENUITEM(2, 'lcl_menu_fac_anonymize'        , '', 'FAC', 'appl/fac/fac_anonymize_search.asp', 0, 0, 'WEB_PRSSYS', 'W', '1', '');
+MENU_INS_AFTER('lcl_menu_fac_anonymize', 'lcl_menu_fac_vertalingen', 2);
+
+ALTER TABLE bes_srtkenmerk
+ DROP CONSTRAINT bes_c_bes_srtkenmerk_systeem;
+
+UPDATE bes_srtkenmerk
+   SET bes_srtkenmerk_systeem = 0
+ WHERE bes_srtkenmerk_systeem IS NULL;
+
+ALTER TABLE bes_srtkenmerk
+      MODIFY bes_srtkenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+ALTER TABLE mld_srtkenmerk
+ DROP CONSTRAINT mld_c_mld_srtkenmerk_systeem;
+
+ALTER TABLE mld_srtkenmerk
+      MODIFY mld_srtkenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+UPDATE prs_kenmerk
+   SET prs_kenmerk_systeem = 0
+ WHERE prs_kenmerk_systeem IS NULL;
+
+ALTER TABLE prs_kenmerk
+      MODIFY prs_kenmerk_systeem
+             NUMBER(1)
+             DEFAULT 0
+             NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#52905
+ALTER PACKAGE fac COMPILE; // anders (nog) invalid en lukt het volgende niet niet
+ALTER PACKAGE fac COMPILE BODY;
+UPDATE ctr_disc_params
+   SET mld_stdmelding_key = CASE
+                            WHEN fac.safe_to_number(fac.getsetting('mjb_default_stdmelding')) > 0
+                            THEN fac.safe_to_number(fac.getsetting('mjb_default_stdmelding'))
+                            ELSE NULL
+                            END
+ WHERE mld_stdmelding_key IS NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// MNNL#52151
+ALTER TABLE mld_melding
+    ADD mld_melding_mldgroup_key
+    NUMBER(10) REFERENCES mld_melding(mld_melding_key);
+CREATE INDEX mld_i_mld_melding23 ON mld_melding(mld_melding_mldgroup_key);
+
+ALTER TABLE ins_srtdiscipline
+    ADD ins_srtdiscipline_mldgroup
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#38509
+// Iedereen *moet* over naar JWT
+UPDATE aut_idp
+   SET aut_idp_code = aut_idp_code || '_DISABLED_2018.1'
+ WHERE aut_idp_type = 3 -- GUID Deprecated
+   AND LENGTH(aut_idp_code) = 1;
+
+UPDATE fac_setting SET fac_setting_pvalue = NULL
+ WHERE fac_setting_name = 'use_simple_sso'
+   AND fac_setting_pvalue = '1';
+
+/////////////////////////////////////////////////////////////////////////////////////////// HSLE#38450
+ALTER TABLE mld_afmeldtekst
+    MODIFY mld_afmeldtekst_usefor NUMBER(2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53559
+ALTER TABLE bes_srtkenmerk
+    MODIFY bes_srtkenmerk_systeem NUMBER(2);
+
+ALTER TABLE cnt_srtkenmerk
+    MODIFY cnt_srtkenmerk_systeem NUMBER(2);
+
+ALTER TABLE ins_srtkenmerk
+    MODIFY ins_srtkenmerk_systeem NUMBER(2);
+
+ALTER TABLE mld_srtkenmerk
+    MODIFY mld_srtkenmerk_systeem NUMBER(2);
+
+ALTER TABLE res_srtkenmerk
+    MODIFY res_srtkenmerk_systeem NUMBER(2);
+
+ALTER TABLE alg_kenmerk
+    MODIFY alg_kenmerk_systeem NUMBER(2);
+
+ALTER TABLE bez_kenmerk
+    MODIFY bez_kenmerk_systeem NUMBER(2);
+
+ALTER TABLE faq_kenmerk
+    MODIFY faq_kenmerk_systeem NUMBER(2);
+
+ALTER TABLE fin_kenmerk
+    MODIFY fin_kenmerk_systeem NUMBER(2);
+
+ALTER TABLE prs_kenmerk
+    MODIFY prs_kenmerk_systeem NUMBER(2);
+
+/////////////////////////////////////////////////////////////////////////////////////////// FCLT#53724
+ALTER TABLE res_srtkenmerk DROP CONSTRAINT res_c_res_srtkenmerk_systeem;
+
+UPDATE res_srtkenmerk
+   SET res_srtkenmerk_systeem = 0
+ WHERE res_srtkenmerk_systeem IS NULL;
+
+ALTER TABLE res_srtkenmerk
+     MODIFY res_srtkenmerk_systeem DEFAULT 0 NOT NULL;
+
+/////////////////////////////////////////////////////////////////////////////////////////// XXXX#12345
+
+///////////////////////////////////////////////////////////////////////////////////////////
+/////////////////////////////////////////////////////////////////////////////////////////// GENERAL
+
+/////////////////////////////////////////////////////////////////////////////////////////// CLEANUP
+/////////////////////////////////////////////////////////////////////////////////////////// FSN#51518
+ALTER TABLE mld_stdmelding DROP COLUMN ins_srtinst_key;
+ALTER TABLE mld_stdmelding DROP COLUMN ins_srtinst_niveau;
+
+///////////////////////////////////////////////////////////////////////////////////////////
+REGISTERONCE('$Id$')
+
+#include "epilogue.inc"

_UP/DB33xto33.sql

@@ -0,0 +1,42 @@
+--
+-- $Id$
+--
+-- Last minute wijzigingen sinds DB33x
+
+DEFINE thisfile = 'DB33xto33.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 ------
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// TWYN#52191
+ALTER TABLE bgt_budgetmutatie
+  ADD ( bgt_budgetmutatie_volgnr NUMBER(3)
+      , bgt_budgetmutatie_code   VARCHAR2(2)
+      );
+
+-- /////////////////////////////////////////////////////////////////////////////////////////// FSN#52010
+UPDATE aut_idp
+   SET aut_idp_ipfilter = '87.249.108.135,87.249.108.136,80.250.128.5,80.250.128.6,31.161.17.4' --  Enschede/Enschede/Mainz/Mainz/Emmen
+ WHERE aut_idp_ipfilter = '87.249.108.135,87.249.108.136'
+    OR aut_idp_ipfilter = '87.249.108.135,87.249.108.136,80.250.128.6/24';
+
+------ 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