FSN#41521 usertellingnotificatiejob werd iedere dag gestuurd ipv elke 90 dagen

svn path=/Database/branches/DB31/; revision=34826

ADM/ADM_PAC.SRC

@@ -4,55 +4,18 @@
 
 CREATE OR REPLACE PACKAGE adm
 AS
-   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER);
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2);
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER);
+   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;
 END adm;
 /
 
 CREATE OR REPLACE PACKAGE BODY adm
 AS
-   PROCEDURE systrackscript (n IN VARCHAR2, r IN VARCHAR2, force IN NUMBER)
-   AS
-      revisionnr VARCHAR2 (60);
-      scriptname VARCHAR2 (60);
-   BEGIN
-      -- Als force = 1 dan wordt onvoorwaardelijk getrackt, anders
-      -- wordt niet getrackt als deze (n,r) al eerder werd getrackt
-      revisionnr := REPLACE (r, '$', '');
-      revisionnr := RTRIM (REPLACE (revisionnr, 'Revision: ', ''));
-      scriptname := REPLACE (n, '$', '');
-      scriptname := RTRIM (REPLACE (scriptname, 'Workfile: ', ''));
-
-      IF force = 1
-      THEN
-         INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
-                                  )
-           VALUES   (scriptname, revisionnr
-                    );
-      ELSE
-         BEGIN
-            UPDATE   adm_tracking
-               SET   adm_tracking_date = SYSDATE, adm_tracking_osuser = SYS_CONTEXT ('USERENV', 'OS_USER')
-             WHERE   UPPER (adm_tracking_name) = UPPER (scriptname)
-                     AND UPPER (adm_tracking_revision) = UPPER (revisionnr);
-
-            IF SQL%ROWCOUNT = 0
-            THEN
-               INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision
-                                        )
-                 VALUES   (scriptname, revisionnr
-                          );
-            END IF;
-         END;
-      END IF;
-   END;
-
    -- Voor SVN is dit handiger, vereist alleen de svn-id string
    -- ($Id$)
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER)
+   PROCEDURE systrackscriptId (svnid IN VARCHAR2, force IN NUMBER DEFAULT 1)
    AS
       revisionnr VARCHAR2 (60);
       scriptname VARCHAR2 (60);
@@ -84,13 +47,6 @@ AS
     END IF;
    END;
 
-   -- Trackt altijd
-   PROCEDURE systrackscriptId (svnid IN VARCHAR2)
-   AS
-   BEGIN
-        adm.systrackscriptId(svnid, 1);
-   END;
-
    -- DDL. Probeert een object (TABLE, INDEX e.d.) te droppen, maar moppert niet als die niet bestond
    -- Hiermee voorkomen we foutmeldingen in logfiles die niet erg zijn
    PROCEDURE trydrop (n IN VARCHAR2)
@@ -127,14 +83,14 @@ AS
    EXCEPTION
        WHEN OTHERS
        THEN
-          IF SQLCODE IN (-942, -1418, -2289, -4043, -4080, -2443)
+          IF SQLCODE IN (-904, -942, -1418, -2289, -4043, -4080, -2443)
           THEN
-             -- did not exist, voor table, view, index, sequence, object and trigger, constraint
+             -- did not exist, voor identifier (column) table, view, index, sequence, object and trigger, constraint
              DBMS_OUTPUT.put_line ('Not found, not altered: ' || n);
              NULL;
-          ELSIF SQLCODE IN (-955)
+          ELSIF SQLCODE IN (-955, -1442)
           THEN
-             -- object already exist
+             -- object or not-null property already exist
              DBMS_OUTPUT.put_line ('Already exists, not altered:     ' || n);
              NULL;
           ELSE
@@ -142,7 +98,34 @@ AS
           END IF;
    END;
 
-END adm;
+   FUNCTION scriptspoolfile (custpattern  IN VARCHAR2, -- eg ^SGGR for 'start with SGGR', ATCH|BONS for two schema
+                             scriptname   IN VARCHAR)
+      RETURN VARCHAR
+   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 := UPPER (scriptname);
+      RETURN lstname || '_'
+             || UPPER(   USER
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVICE_NAME')
+                      || '_'
+                      || SYS_CONTEXT ('USERENV', 'SERVER_HOST'))
+             || '_'
+             || TO_CHAR (SYSDATE, 'YYYYMMDD_HH24MISS')
+             || '.lst';
+   END;
+
+   END adm;
 /
 
 REGISTERRUN('$Id$')

ADM/ADM_SEQ.SRC

@@ -0,0 +1,9 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE adm_s_adm_tracking_key MINVALUE 1;
+
+// De package is er nog niet bij de CREA dus uitgeschakeld
+// REGISTERONCE('$Id$')

ADM/ADM_TAB.SRC

@@ -5,8 +5,14 @@
 
 CREATE_TABLE(adm_tracking, 0)
 (
+   adm_tracking_key
+      NUMBER(10)
+      CONSTRAINT adm_k_adm_tracking_key PRIMARY KEY,
    adm_tracking_name VARCHAR2 (60),
    adm_tracking_revision VARCHAR2 (60),
    adm_tracking_date DATE DEFAULT SYSDATE,
    adm_tracking_osuser VARCHAR2 (60) DEFAULT SYS_CONTEXT('USERENV','OS_USER')
 );
+
+// De package is er nog niet bij de CREA dus uitgeschakeld
+// REGISTERONCE('$Id$')

ADM/ADM_TRI.SRC

@@ -0,0 +1,16 @@
+/*
+ *  $Revision$
+ *  $Id$
+ *
+ */
+
+CREATE_TRIGGER(adm_t_adm_tracking_B_I)
+BEFORE INSERT ON adm_tracking
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(adm_tracking_key, adm_s_adm_tracking_key);
+END;
+/
+
+// De package is er nog niet bij de CREA dus uitgeschakeld
+// REGISTERRUN('$Id$')

ALG/ALGSQL.H

@@ -5,35 +5,6 @@
  *
  * History:
  */
-#ifdef MS_SQL
-
-#define SET_VERWIJDER_CHILDREN_DEEL(child_table, parent_key, parent_verwijder, \
-        dummy1, child_verwijder, child_key, dummy2)      \
- BEGIN                                                                    \
-   UPDATE child_table                                                     \
-   SET child_verwijder = i.parent_verwijder                               \
-   FROM inserted i left join deleted d                                    \
-  on i.parent_key = d.parent_key                                          \
-   WHERE child_table.child_key = i.parent_key                             \
-   AND (i.parent_verwijder IS NOT NULL OR                                 \
-       (i.parent_verwijder IS NULL AND d.parent_verwijder IS NOT NULL))   \
-   AND ins_alg_ruimte_type NOT IN ('W','T');                              \
- END
-
-#define SET_VERWIJDER_CHILDREN_DEELT(child_table, parent_key, parent_verwijder, \
-        dummy1, child_verwijder, child_key, dummy2)      \
- BEGIN                                                                    \
-   UPDATE child_table                                                     \
-   SET child_verwijder = i.parent_verwijder                               \
-   FROM inserted i left join deleted d                                    \
-  on i.parent_key = d.parent_key                                          \
-   WHERE child_table.child_key = i.parent_key                             \
-   AND (i.parent_verwijder IS NOT NULL OR                                 \
-       (i.parent_verwijder IS NULL AND d.parent_verwijder IS NOT NULL))   \
-   AND ins_alg_ruimte_type = 'T';                                        \
- END
-
-#else
 
 #define SET_VERWIJDER_CHILDREN_DEEL(child_table, parent_key, parent_verwijder,  \
         dummy1, child_verwijder, child_key, dummy2)           \
@@ -61,8 +32,6 @@
     END IF;                                                                    \
  END
 
-#endif
-
 #define SET_VERWIJDER_CHILDREN_DEELWP(child_table, parent_key, parent_verwijder,        \
         dummy1, child_verwijder, child_key, dummy2)           \
  BEGIN                                                                         \

ALG/ALG_INI.SRC

@@ -3,7 +3,7 @@
  * $Id$
  */
 
-_FAC_MODULE('ALG','Vastgoedbeheer')
+_FAC_MODULE('ALG','lcl_module_ALG')
 
 DEF_FAC_MESSAGE ('ALG_OPENST_MELDING', 'heeft openstaande melding', '');
 DEF_FAC_MESSAGE ('ALG_BEVAT_OBJECT', 'bevat object', '');

ALG/ALG_SEQ.SRC

@@ -20,3 +20,4 @@ CREATE SEQUENCE alg_s_alg_srtverdieping_key     MINVALUE 1;
 
 CREATE SEQUENCE alg_s_alg_kenmerk_key           MINVALUE 1000;
 CREATE SEQUENCE alg_s_alg_onrgoedkenmerk_key    MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_algfaq_key            MINVALUE 1;

ALG/ALG_TAB.SRC

@@ -73,7 +73,7 @@ CREATE_TABLE(alg_locatie,0)
         DATE
         DEFAULT NULLDATUM,
     alg_locatie_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_postcode
         VARCHAR2(12),
     alg_locatie_plaats
@@ -81,7 +81,7 @@ CREATE_TABLE(alg_locatie,0)
     alg_locatie_land
         VARCHAR2(30),
     alg_locatie_post_adres
-        VARCHAR2(35),
+        VARCHAR2(50),
     alg_locatie_post_postcode
         VARCHAR2(12),
     alg_locatie_post_plaats
@@ -231,7 +231,7 @@ CREATE_TABLE(alg_gebouw,0)
         NUMBER(10)
         CONSTRAINT alg_r_alg_srtgebouw_key REFERENCES alg_srtgebouw(alg_srtgebouw_key),
     alg_gebouw_naam
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(alg_gebouw_naam, alg_c_alg_gebouw_naam),
     alg_gebouw_code
         VARCHAR2(12)
@@ -272,6 +272,13 @@ CREATE_TABLE(alg_gebouw,0)
 --    CONSTRAINT alg_r_mld_adres_key1 REFERENCES mld_adres(mld_adres_key),
     alg_gebouw_opmerking
         VARCHAR2(50),
+-- in PRS_TAB.SRC: de gebouwverantwoordelijke (1 en 2)
+--    prs_perslid_key_verantw
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key1 REFERENCES prs_perslid(prs_perslid_key),
+--    prs_perslid_key_verantw2
+--        NUMBER(10)
+--        CONSTRAINT alg_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key),
     alg_gebouw_dwgx
         NUMBER(10,3),
     alg_gebouw_dwgy
@@ -294,6 +301,10 @@ 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_email
+        VARCHAR2(200),
+    alg_gebouw_vervaldatum
+        DATE,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 
@@ -378,13 +389,14 @@ CREATE_TABLE(alg_srtruimte,0)
         NUMBER(1)
         CONSTRAINT alg_c_prs_verhuurbaar CHECK(prs_verhuurbaar IS NULL
                                             OR prs_verhuurbaar = 1 ),
-    alg_srtruimte_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT alg_c_alg_srtruimt_uitvoertijd CHECK(alg_srtruimte_uitvoertijd >= 0),
-    CONSTRAINT alg_c_prs_werkplek_verhuurbaar CHECK(NOT(prs_bevat_werkplek = 1
+    alg_srtruimte_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtruimt_t_uitvtijd CHECK(alg_srtruimte_t_uitvoertijd.tijdsduur >= 0),
+   CONSTRAINT alg_c_prs_werkplek_verhuurbaar CHECK(NOT(prs_bevat_werkplek = 1
                                                     AND prs_verhuurbaar IS NULL)),
     CONSTRAINT alg_u_alg_srtruimte_upper UNIQUE(alg_srtruimte_upper, alg_srtruimte_verwijder)
 );
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_srtruimte_locatiegebouw,0)
 (
@@ -548,7 +560,7 @@ CREATE_TABLE(alg_kenmerk,0)
         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'))
+        CONSTRAINT alg_c_alg_kenmerk_type1 CHECK(alg_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,alg_kenmerk_systeem
         NUMBER(1)
     ,alg_kenmerk_toonbaar
@@ -559,6 +571,9 @@ CREATE_TABLE(alg_kenmerk,0)
        VARCHAR2(255)
     ,alg_kenmerk_verplicht
        NUMBER(1)
+    ,alg_kenmerk_groep
+        NUMBER(1)
+       DEFAULT 0 NOT NULL
     ,alg_kenmerk_lengte
         NUMBER(4)
     ,alg_kenmerk_dec
@@ -579,4 +594,22 @@ CREATE_TABLE(alg_kenmerk,0)
         DEFAULT NULLDATUM
 );
 
-REGISTERONCE('$Id$')
+-- Koppeltabel tussen de Kennisbank (FAQ) en plaats (alg_v_allonroerendgoed)
+CREATE_TABLE(alg_algfaq, 0)
+(
+    alg_algfaq_key
+        NUMBER(10)
+        CONSTRAINT alg_k_algfaq_key PRIMARY KEY,
+    alg_locatie_key
+        NUMBER(10)
+        NOT_NULL(alg_locatie_key, mld_c_alg_locatie_key)
+        CONSTRAINT mld_r_mld_locatie_key1 REFERENCES alg_locatie(alg_locatie_key) ON DELETE CASCADE,
+    alg_onroerendgoed_keys
+        NUMBER(10),
+    fac_faq_key
+        NUMBER(10)
+        NOT_NULL(fac_faq_key, alg_c_fac_faq_key)
+        CONSTRAINT alg_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
+);
+
+REGISTERONCE('$Id$')

ALG/ALG_TRI.SRC

@@ -117,20 +117,6 @@ BEGIN
         WHEN NO_DATA_FOUND THEN NULL;
         WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m027');
       END;
-      /* CONN#465 */
-      DECLARE
-        dummy CHAR;
-      BEGIN
-        SELECT 'x'
-        INTO   dummy
-        FROM   cnt_contract_onrgoed co
-        WHERE  co.ALG_ONRGOED_KEY  = :old.alg_terreinsector_key
-        AND    co.ALG_ONRGOED_NIVEAU = 'T';
-        APPLICATION_ERROR_GOTO(-20000,'alg_m999 Terrein heeft nog huurcontract');
-      EXCEPTION
-        WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'alg_m999 Terrein heeft nog huurcontract');
-      END;
       DECLARE
         dummy CHAR;
       BEGIN
@@ -333,20 +319,6 @@ BEGIN
         WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m024');
       END;
 
-      DECLARE
-        dummy CHAR;
-      BEGIN
-        SELECT 'x'
-        INTO   dummy
-        FROM   cnt_contract_onrgoed co
-        WHERE  co.alg_onrgoed_key  = :old.alg_ruimte_key
-        AND    co.alg_onrgoed_niveau = 'R';
-        APPLICATION_ERROR_GOTO(-20000,'alg_m999 Ruimte heeft nog huurcontract');
-      EXCEPTION
-        WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'alg_m999 Ruimte heeft nog huurcontract');
-      END;
-
       DECLARE
         dummy CHAR;
       BEGIN
@@ -448,18 +420,16 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'ALG_M238');
    END IF;
-   IF (:new.alg_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.alg_kenmerk_lengte IS NULL
+   IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.alg_kenmerk_kenmerktype = 'N'
-   AND :new.alg_kenmerk_lengte > 20
+   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20
    THEN
       :new.alg_kenmerk_lengte := 20;
    END IF;
-   IF :new.alg_kenmerk_kenmerktype = 'N' AND :old.alg_kenmerk_key IS NOT NULL
+   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :old.alg_kenmerk_key IS NOT NULL
    THEN
      IF :old.alg_kenmerk_nmin <> :new.alg_kenmerk_nmin OR
        :old.alg_kenmerk_nmin IS NULL AND :new.alg_kenmerk_nmin IS NOT NULL
@@ -614,7 +584,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -690,12 +660,31 @@ CREATE_TRIGGER(alg_t_alg_srtterreinsec_B_IU)
 BEFORE INSERT OR UPDATE ON alg_srtterreinsector
 FOR EACH ROW
 BEGIN
-    UPDATE_PRIMARY_KEY(alg_srtterreinsector_key, alg_s_alg_srtruimte_key);
+    UPDATE_PRIMARY_KEY(alg_srtterreinsector_key, alg_s_alg_srtterrein_key);
     UPDATE_UPPER(alg_srtterreinsec_omschrijving, alg_srtterreinsector_upper,alg_srtterreinsector);
     UPDATE_AANMAAKDATUM(alg_srtterreinsector, alg_srtterreinsector_aanmaak);
 
     CHECK_NOG_REFERENCES(alg_srtterreinsector, alg_srtterreinsector_verwijder,
-                alg_v_aanwezigsrtterreinsector, alg_srtterreinsector_key, 'alg_m041');
+                alg_v_aanwezigterreinsector, alg_srtterreinsector_key, 'alg_m041');
+END;
+/
+
+CREATE_TRIGGER(alg_t_alg_algfaq_B_I)
+BEFORE INSERT ON alg_algfaq
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(alg_algfaq_key, alg_s_alg_algfaq_key);
+END;
+/
+
+CREATE_TRIGGER(alg_t_alg_algfaq_B_IU)
+BEFORE INSERT OR UPDATE ON alg_algfaq
+FOR EACH ROW
+BEGIN
+    IF :new.alg_onroerendgoed_keys IS NOT NULL
+    THEN
+    CHECK_REFERENCE_ONROERENDGOED(alg_onroerendgoed_keys, 'alg_m239 alg_onroerendgoed_keys ('|| :new.alg_onroerendgoed_keys ||') bestaat niet');
+    END IF;
 END;
 /
 

ALG/ALG_VIE.SRC

@@ -268,6 +268,8 @@ SELECT ALG_R.alg_ruimte_key,
 CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
 (
    alg_onroerendgoed_keys,
+   alg_plaatsaanduiding,
+   alg_plaatsomschrijving,
    alg_onroerendgoed_code,
    alg_onroerendgoed_omschrijving,
    alg_ruimte_key,
@@ -286,189 +288,268 @@ CREATE_VIEW(alg_v_allonrgoed_gegevens,0)
    alg_type
 )
 AS
-   SELECT   alg_r.alg_ruimte_key,
-            alg_r.alg_ruimte_nr,
-            alg_r.alg_ruimte_omschrijving,
-            alg_r.alg_ruimte_key,
-            alg_r.alg_ruimte_nr,
-            alg_r.alg_ruimte_omschrijving,
-            alg_r.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'R'
-     FROM   alg_ruimte alg_r, alg_verdieping alg_v, alg_gebouw alg_g
-    WHERE   alg_r.alg_verdieping_key = alg_v.alg_verdieping_key AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+   SELECT alg_r.alg_ruimte_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code)
+          || DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', '-' || alg_r.alg_ruimte_nr),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (
+                SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                '_',
+                alg_g.alg_gebouw_naam,
+                DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', alg_r.alg_ruimte_omschrijving))),
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'R'
+     FROM alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_v.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_v.alg_verdieping_key,
-            alg_v.alg_verdieping_code,
-            alg_v.alg_verdieping_omschrijving,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'V'
-     FROM   alg_verdieping alg_v, alg_gebouw alg_g
-    WHERE   alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+   SELECT alg_v.alg_verdieping_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', alg_v.alg_verdieping_omschrijving)),
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'V'
+     FROM alg_verdieping alg_v, alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_gebouw_key,
-            alg_g.alg_gebouw_code,
-            alg_g.alg_gebouw_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_g.alg_locatie_key,
-            'G'
-     FROM   alg_gebouw alg_g
+   SELECT alg_g.alg_gebouw_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code),
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_g.alg_gebouw_naam),
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_g.alg_locatie_key,
+          'G'
+     FROM alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_g.alg_locatie_key
    UNION ALL
-   SELECT   alg_t.alg_terreinsector_key,
-            alg_t.alg_terreinsector_code,
-            alg_t.alg_terreinsector_naam,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            TO_NUMBER (NULL),
-            NULL,
-            NULL,
-            alg_t.alg_terreinsector_key,
-            alg_t.alg_terreinsector_code,
-            alg_t.alg_terreinsector_naam,
-            alg_t.alg_locatie_key,
-            'T'
-     FROM   alg_terreinsector alg_t;
+   SELECT alg_t.alg_terreinsector_key,
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', '',
+                  alg_t.alg_terreinsector_code),
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_terreinsector_naam),
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          TO_NUMBER (NULL),
+          NULL,
+          NULL,
+          alg_t.alg_terreinsector_key,
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          alg_t.alg_locatie_key,
+          'T'
+     FROM alg_terreinsector alg_t, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_t.alg_locatie_key;
 
 CREATE_VIEW(alg_v_onroerendgoed_gegevens,0)
-                                (alg_onroerendgoed_keys,
-                                 alg_onroerendgoed_code,
-                                 alg_onroerendgoed_omschrijving,
-                                 alg_ruimte_key,
-                                 alg_ruimte_nr,
-                                 alg_ruimte_omschrijving,
-                                 alg_verdieping_key,
-                                 alg_verdieping_code,
-                                 alg_verdieping_omschrijving,
-                                 alg_gebouw_key,
-                                 alg_gebouw_code,
-                                 alg_gebouw_naam,
-                                 alg_terreinsector_key,
-                                 alg_terreinsector_code,
-                                 alg_terreinsector_naam,
-                                 alg_type,
-                                 alg_locatie_key ) AS
-   SELECT ALG_R.alg_ruimte_key,
-          ALG_R.alg_ruimte_nr,
-          ALG_R.alg_ruimte_omschrijving,
-          ALG_R.alg_ruimte_key,
-          ALG_R.alg_ruimte_nr,
-          ALG_R.alg_ruimte_omschrijving,
-          ALG_R.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+(
+   alg_onroerendgoed_keys,
+   alg_plaatsaanduiding,
+   alg_plaatsomschrijving,
+   alg_onroerendgoed_code,
+   alg_onroerendgoed_omschrijving,
+   alg_ruimte_key,
+   alg_ruimte_nr,
+   alg_ruimte_omschrijving,
+   alg_verdieping_key,
+   alg_verdieping_code,
+   alg_verdieping_omschrijving,
+   alg_gebouw_key,
+   alg_gebouw_code,
+   alg_gebouw_naam,
+   alg_terreinsector_key,
+   alg_terreinsector_code,
+   alg_terreinsector_naam,
+   alg_locatie_key,
+   alg_type
+)
+AS
+   SELECT alg_r.alg_ruimte_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code)
+          || DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', '-' || alg_r.alg_ruimte_nr),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (
+                SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                '_',
+                alg_g.alg_gebouw_naam,
+                DECODE (SUBSTR (alg_r.alg_ruimte_nr, 1, 1), '_', '', alg_r.alg_ruimte_omschrijving))),
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_ruimte_key,
+          alg_r.alg_ruimte_nr,
+          alg_r.alg_ruimte_omschrijving,
+          alg_r.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'R',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanwezigruimte ALG_R, alg_verdieping ALG_V, alg_gebouw ALG_G
-   WHERE ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-     AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-   UNION
-   SELECT ALG_V.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'R'
+     FROM alg_ruimte alg_r,
+          alg_verdieping alg_v,
+          alg_gebouw alg_g,
+          alg_locatie alg_l
+    WHERE     alg_r.alg_verdieping_key = alg_v.alg_verdieping_key
+          AND alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_v.alg_verdieping_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code)
+          || DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', '',
+                     '-' || alg_v.alg_verdieping_code),
+          DECODE (
+             SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+             '_',
+             alg_l.alg_locatie_omschrijving,
+             DECODE (SUBSTR (alg_v.alg_verdieping_code, 1, 1),
+                     '_', alg_v.alg_verdieping_omschrijving)),
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_V.alg_verdieping_key,
-          ALG_V.alg_verdieping_code,
-          ALG_V.alg_verdieping_omschrijving,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_v.alg_verdieping_key,
+          alg_v.alg_verdieping_code,
+          alg_v.alg_verdieping_omschrijving,
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'V',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanwezigverdieping ALG_V, alg_gebouw ALG_G
-   WHERE ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key
-   UNION
-   SELECT ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'V'
+     FROM alg_verdieping alg_v, alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+          AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_g.alg_gebouw_key,
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1), '_', '', alg_g.alg_gebouw_code),
+          DECODE (SUBSTR (alg_g.alg_gebouw_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_g.alg_gebouw_naam),
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          ALG_G.alg_gebouw_naam,
-          to_number(NULL),
+          alg_g.alg_gebouw_key,
+          alg_g.alg_gebouw_code,
+          alg_g.alg_gebouw_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          'G',
-          ALG_G.alg_locatie_key
-   FROM alg_v_aanweziggebouw ALG_G
-   UNION
-   SELECT ALG_T.alg_terreinsector_key,
-          ALG_T.alg_terreinsector_code,
-          ALG_T.alg_terreinsector_naam,
-          to_number(NULL),
+          alg_g.alg_locatie_key,
+          'G'
+     FROM alg_gebouw alg_g, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_g.alg_locatie_key
+   UNION ALL
+   SELECT alg_t.alg_terreinsector_key,
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', '',
+                  alg_t.alg_terreinsector_code),
+          DECODE (SUBSTR (alg_t.alg_terreinsector_code, 1, 1),
+                  '_', alg_l.alg_locatie_omschrijving,
+                  alg_terreinsector_naam),
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          to_number(NULL),
+          TO_NUMBER (NULL),
           NULL,
           NULL,
-          ALG_T.alg_terreinsector_key,
-          ALG_T.alg_terreinsector_code,
-          ALG_T.alg_terreinsector_naam,
-          'T',
-          ALG_T.alg_locatie_key
-   FROM alg_v_aanwezigterreinsector ALG_T;
-
-CREATE_VIEW(alg_v_alg_ruimte_verdieping,0)
-AS SELECT ALG_R.alg_ruimte_key
-   ,      ALG_V.alg_verdieping_key
-   FROM   alg_ruimte           ALG_R,
-          alg_verdieping       ALG_V
-   WHERE  ALG_R.alg_verdieping_key = ALG_V.alg_verdieping_key
-   AND    ALG_R.alg_ruimte_verwijder IS NULL;
-
+          alg_t.alg_terreinsector_key,
+          alg_t.alg_terreinsector_code,
+          alg_t.alg_terreinsector_naam,
+          alg_t.alg_locatie_key,
+          'T'
+     FROM alg_terreinsector alg_t, alg_locatie alg_l
+    WHERE alg_l.alg_locatie_key = alg_t.alg_locatie_key;
 
 CREATE_VIEW(alg_v_my_room, 0) AS
    SELECT DISTINCT r.alg_ruimte_key, r.alg_verdieping_key, pl.prs_perslid_key
@@ -481,49 +562,49 @@ CREATE_VIEW(alg_v_my_room, 0) AS
 CREATE_VIEW(alg_v_my_floor, 0) AS
   SELECT v.alg_verdieping_key,
          alg_gebouw_key,
-     prs_perslid_key
+         r.prs_perslid_key
     FROM alg_v_my_room r, alg_verdieping v
    WHERE r.alg_verdieping_key = v.alg_verdieping_key;
 
 CREATE_VIEW(alg_v_my_building, 0) AS
   SELECT f.alg_gebouw_key,
          alg_locatie_key,
-     prs_perslid_key
+         f.prs_perslid_key
     FROM alg_v_my_floor f, alg_gebouw b
    WHERE f.alg_gebouw_key = b.alg_gebouw_key;
 
 CREATE_VIEW(alg_v_my_location, 0) AS
   SELECT b.alg_locatie_key,
          l.alg_district_key,
-     prs_perslid_key
+         b.prs_perslid_key
     FROM alg_v_my_building b, alg_locatie l
    WHERE b.alg_locatie_key = l.alg_locatie_key;
 
 CREATE_VIEW(alg_v_my_district, 0) AS
   SELECT l.alg_district_key,
          alg_regio_key,
-     prs_perslid_key
+         l.prs_perslid_key
     FROM alg_v_my_location l, alg_district d
    WHERE l.alg_district_key = d.alg_district_key;
 
 CREATE_VIEW(alg_v_my_region, 0) AS
   SELECT alg_regio_key,
-     prs_perslid_key
+         prs_perslid_key
     FROM alg_v_my_district;
 
 
 CREATE_VIEW(fac_v_my_regions, 0)
-       (alg_regio_key,
+   (alg_regio_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_regio_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
@@ -537,28 +618,28 @@ UNION
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
-  prs_perslid_key,
-  1
+        prs_perslid_key,
+        1
    FROM alg_v_my_region
 UNION
  SELECT alg_regio_key,
-  prs_perslid_key,
-  0
+        prs_perslid_key,
+        0
    FROM alg_v_my_region;
 
 
 CREATE_VIEW(fac_v_my_districts, 0)
-       (alg_district_key,
+   (alg_district_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_district_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
@@ -572,29 +653,29 @@ UNION
    FROM alg_v_my_district
 UNION
  SELECT alg_district_key,
-  prs_perslid_key,
-  1
+        prs_perslid_key,
+        1
    FROM alg_v_my_district d
 UNION
  SELECT alg_district_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_district d, alg_v_my_region ro
   WHERE ro.alg_regio_key = d.alg_regio_key;
 
 
 CREATE_VIEW(fac_v_my_locations, 0)
-       (alg_locatie_key,
+   (alg_locatie_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_locatie_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_location
 UNION
  SELECT alg_locatie_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_location
 UNION
  SELECT alg_locatie_key,
@@ -608,31 +689,31 @@ UNION
    FROM alg_v_my_location
 UNION
  SELECT l.alg_locatie_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l
   WHERE l.alg_district_key= d.alg_district_key
 UNION
  SELECT l.alg_locatie_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_locatie l, alg_district d, alg_v_my_region ro
   WHERE l.alg_district_key= d.alg_district_key
     AND ro.alg_regio_key = d.alg_regio_key;
 
 
 CREATE_VIEW(fac_v_my_buildings, 0)
-       (alg_gebouw_key,
+   (alg_gebouw_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_gebouw_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_building
 UNION
  SELECT alg_gebouw_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_building
 UNION
  SELECT alg_gebouw_key,
@@ -641,21 +722,21 @@ UNION
    FROM alg_v_my_building
  UNION
  SELECT alg_gebouw_key,
-        prs_perslid_key,
+        l.prs_perslid_key,
         2
    FROM alg_v_my_location l, alg_gebouw g
   WHERE g.alg_locatie_key = l.alg_locatie_key
 UNION
  SELECT g.alg_gebouw_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw g
   WHERE d.alg_district_key = l.alg_district_key
     AND g.alg_locatie_key = l.alg_locatie_key
 UNION
  SELECT g.alg_gebouw_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_gebouw g, alg_locatie l, alg_district d
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND l.alg_district_key= d.alg_district_key
@@ -663,43 +744,43 @@ UNION
 
 
 CREATE_VIEW(fac_v_my_floors, 0)
-       (alg_verdieping_key,
+   (alg_verdieping_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_verdieping_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_floor
 UNION
  SELECT alg_verdieping_key,
         prs_perslid_key,
-  4
+        4
    FROM alg_v_my_floor
 UNION
  SELECT v.alg_verdieping_key,
-        prs_perslid_key,
+        b.prs_perslid_key,
         3
    FROM alg_v_my_building b, alg_verdieping v
   WHERE b.alg_gebouw_key = v.alg_gebouw_key
  UNION
  SELECT v.alg_verdieping_key,
-        prs_perslid_key,
+        l.prs_perslid_key,
         2
    FROM alg_v_my_location l, alg_gebouw g, alg_verdieping v
   WHERE l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_key = v.alg_gebouw_key
 UNION
  SELECT v.alg_verdieping_key,
-  prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw g, alg_verdieping v
   WHERE d.alg_district_key = l.alg_district_key
     AND l.alg_locatie_key = g.alg_locatie_key
     AND g.alg_gebouw_key = v.alg_gebouw_key
 UNION
  SELECT v.alg_verdieping_key,
-  prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_district d, alg_locatie l, alg_gebouw g, alg_verdieping v
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND d.alg_district_key= l.alg_district_key
@@ -707,38 +788,38 @@ UNION
     AND g.alg_gebouw_key = v.alg_gebouw_key;
 
 CREATE_VIEW(fac_v_my_rooms, 0)
-       (alg_ruimte_key,
+   (alg_ruimte_key,
     prs_perslid_key,
     niveau) AS
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  5
+        prs_perslid_key,
+        5
    FROM alg_v_my_room
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  4
+        f.prs_perslid_key,
+        4
    FROM alg_v_my_floor f, alg_ruimte r
   WHERE f.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  3
+        b.prs_perslid_key,
+        3
    FROM alg_v_my_building b, alg_verdieping v, alg_ruimte r
   WHERE b.alg_gebouw_key = v.alg_gebouw_key
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  2
+        l.prs_perslid_key,
+        2
    FROM alg_v_my_location l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE l.alg_locatie_key = b.alg_locatie_key
     AND b.alg_gebouw_key = v.alg_gebouw_key
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  1
+        d.prs_perslid_key,
+        1
    FROM alg_v_my_district d, alg_locatie l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE d.alg_district_key = l.alg_district_key
     AND l.alg_locatie_key = b.alg_locatie_key
@@ -746,8 +827,8 @@ UNION
     AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION
  SELECT alg_ruimte_key,
-    prs_perslid_key,
-  0
+        ro.prs_perslid_key,
+        0
    FROM alg_v_my_region ro, alg_district d, alg_locatie l, alg_gebouw b, alg_verdieping v, alg_ruimte r
   WHERE ro.alg_regio_key = d.alg_regio_key
     AND d.alg_district_key = l.alg_district_key
@@ -774,35 +855,35 @@ WITH avmr -- alg_v_my_room
              WHERE r.alg_ruimte_key = wp.prs_alg_ruimte_key
                    AND pl.prs_werkplek_key = wp.prs_werkplek_key),
      avmf -- alg_v_my_floor
-        AS (SELECT v.alg_verdieping_key, alg_gebouw_key, prs_perslid_key
+        AS (SELECT v.alg_verdieping_key, alg_gebouw_key, r.prs_perslid_key
                 FROM avmr r, alg_verdieping v
                WHERE r.alg_verdieping_key = v.alg_verdieping_key),
      avmb -- alg_v_my_building
-        AS (SELECT f.alg_gebouw_key, alg_locatie_key, prs_perslid_key
+        AS (SELECT f.alg_gebouw_key, alg_locatie_key, f.prs_perslid_key
                 FROM avmf f, alg_gebouw b
                WHERE f.alg_gebouw_key = b.alg_gebouw_key),
      avml -- alg_v_my_location
-        AS (SELECT b.alg_locatie_key, l.alg_district_key, prs_perslid_key
+        AS (SELECT b.alg_locatie_key, l.alg_district_key, b.prs_perslid_key
                 FROM avmb b, alg_locatie l
                WHERE b.alg_locatie_key = l.alg_locatie_key),
      avmd -- alg_v_my_district
-        AS (SELECT l.alg_district_key, alg_regio_key, prs_perslid_key
+        AS (SELECT l.alg_district_key, alg_regio_key, l.prs_perslid_key
                 FROM avml l, alg_district d
                WHERE l.alg_district_key = d.alg_district_key),
      avmrr -- alg_v_my_region
         AS (SELECT alg_regio_key, prs_perslid_key FROM avmd)
 SELECT alg_ruimte_key, prs_perslid_key, 5 FROM avmr
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 4
+SELECT alg_ruimte_key, f.prs_perslid_key, 4
   FROM avmf f, alg_ruimte r
  WHERE f.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 3
+SELECT alg_ruimte_key, b.prs_perslid_key, 3
   FROM avmb b, alg_verdieping v, alg_ruimte r
  WHERE b.alg_gebouw_key = v.alg_gebouw_key
        AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 2
+SELECT alg_ruimte_key, l.prs_perslid_key, 2
   FROM avml l,
        alg_gebouw b,
        alg_verdieping v,
@@ -811,7 +892,7 @@ SELECT alg_ruimte_key, prs_perslid_key, 2
        AND b.alg_gebouw_key = v.alg_gebouw_key
        AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 1
+SELECT alg_ruimte_key, d.prs_perslid_key, 1
   FROM avmd d,
        alg_locatie l,
        alg_gebouw b,
@@ -822,7 +903,7 @@ SELECT alg_ruimte_key, prs_perslid_key, 1
        AND b.alg_gebouw_key = v.alg_gebouw_key
        AND v.alg_verdieping_key = r.alg_verdieping_key
 UNION ALL
-SELECT alg_ruimte_key, prs_perslid_key, 0
+SELECT alg_ruimte_key, ro.prs_perslid_key, 0
   FROM avmrr ro,
        alg_district d,
        alg_locatie l,
@@ -1201,8 +1282,8 @@ AS
             x.ruimtesoort,
             x.ruimtegebruik,
             x.vloersoort,
-            REPLACE (TO_CHAR (ROUND (x.nen2580_opp, 2)), '.', ','),
-            REPLACE (TO_CHAR (ROUND (x.vloer_opp, 2)), '.', ','),
+            ROUND (x.nen2580_opp, 2),
+            ROUND (x.vloer_opp, 2),
             TO_CHAR (100 * ROUND (x.bezetting, 2)) || '%',
             x.werkplekken,
             x.alg_gebouw_key

AUT/AUT_IND.SRC

@@ -0,0 +1,11 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+CREATE UNIQUE INDEX aut_i_idp_code ON aut_idp(aut_idp_code);
+CREATE UNIQUE INDEX aut_i_idp2 ON aut_idp(aut_idp_issuer, aut_idp_audience, aut_idp_type);
+
+CREATE UNIQUE INDEX aut_i_cp_refreshtkn  ON aut_client_perslid(aut_client_perslid_refreshtkn);
+CREATE UNIQUE INDEX aut_i_cp_accesstoken ON aut_client_perslid(aut_client_perslid_accesstoken);
+
+REGISTERONCE('$Id$')

AUT/AUT_SEQ.SRC

@@ -0,0 +1,12 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE aut_s_aut_idp_key               MINVALUE 1;
+CREATE SEQUENCE aut_s_aut_idp_map_key           MINVALUE 1;
+
+CREATE SEQUENCE aut_s_aut_client_key            MINVALUE 1;
+CREATE SEQUENCE aut_s_aut_client_perslid_key    MINVALUE 1;
+
+REGISTERONCE('$Id$')

AUT/AUT_TAB.SRC

@@ -0,0 +1,147 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+// Documentatie in de wiki onder Authenticeren
+CREATE TABLE aut_idp
+(
+    aut_idp_key
+        NUMBER(10)
+        CONSTRAINT aut_k_idp_key PRIMARY KEY,
+    aut_idp_code            -- Voor &sso=<code>
+        VARCHAR2(30),
+    aut_idp_type            -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
+        NUMBER(3),          -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
+    aut_idp_algorithm       -- HS256 is HMAC-SHA256
+        VARCHAR2(30),
+    aut_idp_omschrijving
+        VARCHAR2(30),
+    aut_idp_opmerking
+        VARCHAR2(320),
+    aut_idp_secret
+        VARCHAR2(128),
+    aut_idp_audience
+        VARCHAR2(128),
+    aut_idp_issuer
+        VARCHAR2(128),
+    aut_idp_remote_loginurl
+        VARCHAR2(128),
+    aut_idp_remote_logouturl
+        VARCHAR2(128),
+    aut_idp_saml_metaurl
+        VARCHAR2(128),
+    aut_idp_clockskew
+        NUMBER(10),
+    aut_idp_duration
+        NUMBER(10),
+    aut_idp_autocreate
+        NUMBER(1)
+        DEFAULT 0 -- +1: create; +2: update
+        NOT NULL,
+-- Note: these column are defined in PRS_TAB.SRC
+--    prs_afdeling_key         NUMBER(10)
+--    prs_bedrijf_key          NUMBER(10)
+    fac_functie_key
+        NUMBER(10)
+        CONSTRAINT aut_r_idp_functie REFERENCES fac_functie(fac_functie_key),
+    aut_idp_internal        -- can be used for FACFAC
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    aut_idp_ipfilter
+        VARCHAR2(320),
+    aut_idp_ipauto
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    aut_idp_loglevel
+      NUMBER(1) DEFAULT 0 NOT NULL,
+    aut_idp_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
+CREATE TABLE aut_idp_map
+(
+    aut_idp_map_key
+        NUMBER(10)
+        CONSTRAINT aut_k_idp_map_key PRIMARY KEY,
+    aut_idp_key
+        NUMBER(10)
+        CONSTRAINT aut_r_idp_map_id REFERENCES aut_idp(aut_idp_key) ON DELETE CASCADE,
+    aut_idp_map_from --  as sent in JWT
+        VARCHAR(100)
+        NOT NULL,
+    aut_idp_map_to -- FACILITOR column of 1000+kenmerk_key
+        NUMBER(10)
+        NOT NULL,
+    aut_idp_map_identify
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    aut_idp_map_default
+        VARCHAR(256),
+    aut_idp_map_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
+-- Clients (zoals al dan niet native App's)
+CREATE TABLE aut_client
+(
+    aut_client_key
+        NUMBER(10)
+        CONSTRAINT aut_k_aut_client_key PRIMARY KEY,
+    aut_client_id
+        VARCHAR2(64),
+    aut_client_type            -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
+        NUMBER(3),             -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
+    aut_client_omschrijving
+        VARCHAR2(30),
+    aut_client_opmerking
+        VARCHAR2(320),
+    aut_client_secret
+        VARCHAR2(128),
+    aut_client_customuri -- future use
+        VARCHAR2(128),
+    aut_client_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
+-- Koppeling client en (toestemming gegeven door) perslid
+CREATE TABLE aut_client_perslid
+(
+    aut_client_perslid_key
+        NUMBER(10)
+        CONSTRAINT aut_k_client_perslid PRIMARY KEY,
+    aut_client_key
+        NUMBER(10)
+        CONSTRAINT aut_r_aut_client_id REFERENCES aut_client(aut_client_key) ON DELETE CASCADE,
+    aut_client_perslid_device_id
+        VARCHAR(320),
+    aut_client_perslid_scope
+        VARCHAR(320)
+        DEFAULT NULL,
+    aut_client_perslid_pushtoken
+        VARCHAR(320),
+    aut_client_perslid_refreshtkn -- unused yet
+        VARCHAR(320),
+    aut_client_perslid_refreshdate
+        DATE,
+    aut_client_perslid_accesstoken
+        VARCHAR(320),
+    aut_client_perslid_accessdate
+        DATE,
+    aut_client_perslid_login -- wanneer voor het laatst de app gebruikt
+        DATE,
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT aut_r_aut_client_perslid REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
+//        CONSTRAINT aut_c_aut_client_perslid CHECK(prs_perslid_key IS NOT NULL),
+    aut_client_perslid_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
+REGISTERONCE('$Id$')

AUT/AUT_TRI.SRC

@@ -0,0 +1,40 @@
+/*
+ *  $Revision$
+ *  $Id$
+ *
+ */
+
+CREATE_TRIGGER(aut_t_aut_idp_B_IU)
+BEFORE INSERT OR UPDATE ON aut_idp
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(aut_idp_key, aut_s_aut_idp_key);
+   :new.aut_idp_code := UPPER(:new.aut_idp_code);
+END;
+/
+
+CREATE_TRIGGER(aut_t_aut_idp_map_B_I)
+BEFORE INSERT ON aut_idp_map
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(aut_idp_map_key, aut_s_aut_idp_map_key);
+END;
+/
+
+CREATE_TRIGGER(aut_t_aut_client_B_I)
+BEFORE INSERT ON aut_client
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(aut_client_key, aut_s_aut_client_key);
+END;
+/
+
+CREATE_TRIGGER(aut_t_aut_client_perslid_B_I)
+BEFORE INSERT ON aut_client_perslid
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(aut_client_perslid_key, aut_s_aut_client_perslid_key);
+END;
+/
+
+REGISTERRUN('$Id$')

BES/BES_INI.SRC

@@ -4,7 +4,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('BES','Bestellingenmodule')
+_FAC_MODULE('BES','lcl_module_BES')
 
 DEF_STATUS('bestelling', 1, 'lcl_bes_afgewezen');
 DEF_STATUS('bestelling', 2, 'lcl_bes_new');

BES/BES_PAC.SRC

@@ -51,7 +51,8 @@ AS
                          p_bes_srtdeel_vervaldatum     IN DATE,
                          p_bes_srtdeel_image           IN VARCHAR2,
                          p_bes_srtdeel_veelvoud        IN NUMBER,
-                         p_bes_srtdeel_opmerking       IN VARCHAR2
+                         p_bes_srtdeel_opmerking       IN VARCHAR2,
+                         p_bes_srtdeel_details_loc     IN VARCHAR2 DEFAULT NULL
                         );
 
    PROCEDURE makeorders (i_userkey IN NUMBER, bes_key IN NUMBER);
@@ -61,11 +62,12 @@ AS
    PROCEDURE setbestelopdrstatus (pbestelopdrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
    PROCEDURE updatebestellingstatus (pbestelling_key IN NUMBER, user_key IN NUMBER);
    PROCEDURE updatebestelopdrstatus (pbestelopdr_key IN NUMBER, user_key IN NUMBER);
+   PROCEDURE notifybackoffice (pbeskey IN NUMBER);
    PROCEDURE notifybesgoedkeurders (pbeskey IN NUMBER);
    PROCEDURE acceptopdracht (pbestelopdr_key IN NUMBER, user_key IN NUMBER, presulttext IN VARCHAR2);
    PROCEDURE rejectopdracht (pbestelopdr_key IN NUMBER, user_key IN NUMBER, presulttext IN VARCHAR2);
    FUNCTION bestelopdr_tooltip (besopdrkey IN NUMBER) RETURN VARCHAR2;
-   FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number)
+   FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number, pbes_discipline IN VARCHAR2)
       RETURN varchar2;
    FUNCTION opdrsprintf (ps IN varchar2, pbes_bestelopdr_key IN number)
       RETURN varchar2;
@@ -563,7 +565,7 @@ AS
            VALUES   (p_bes_srtdeel_key, p_bes_srtdeel_prijs, p_bes_srtdeel_inkprijs
                     );                                                                                 -- geen einddatum
 
-         IF v_currentprijs IS NOT NULL AND v_currentinkprijs IS NOT NULL
+         IF v_currentprijs IS NOT NULL OR v_currentinkprijs IS NOT NULL
          THEN
             SELECT   MIN (bes_srtdeel_prijs_key)
               INTO   loldkey
@@ -605,7 +607,8 @@ AS
                              p_bes_srtdeel_vervaldatum     IN DATE,
                              p_bes_srtdeel_image           IN VARCHAR2,                                -- VARCHAR2 (255)
                              p_bes_srtdeel_veelvoud        IN NUMBER,                                      -- NUMBER (6)
-                             p_bes_srtdeel_opmerking       IN VARCHAR2                                -- VARCHAR2 (2000)
+                             p_bes_srtdeel_opmerking       IN VARCHAR2,                               -- VARCHAR2 (2000)
+                             p_bes_srtdeel_details_loc     IN VARCHAR2  DEFAULT NULL                   -- VARCHAR2 (255)
                             )
    AS
       v_bes_srtgroep_key NUMBER (10);
@@ -687,7 +690,8 @@ AS
                                      bes_srtdeel_image,
                                      bes_srtdeel_veelvoud,
                                      bes_srtdeel_verwijder,
-                                     bes_srtdeel_opmerking
+                                     bes_srtdeel_opmerking,
+                                     bes_srtdeel_details_loc
                     )
            VALUES   (
                         v_bes_srtdeel_key,
@@ -701,7 +705,8 @@ AS
                         p_bes_srtdeel_image,
                         p_bes_srtdeel_veelvoud,
                         SYSDATE,
-                        p_bes_srtdeel_opmerking
+                        p_bes_srtdeel_opmerking,
+                        p_bes_srtdeel_details_loc
                     );
       ELSE
         -- Bestaand artikel, maar de verwijdatum moet wel ververst worden
@@ -770,7 +775,8 @@ AS
                p.prs_afdeling_key,
                abd.mld_adres_key_fac,
                bes.getsrtdeelinkprijs (s.bes_srtdeel_key, NULL) bes_srtdeel_inkprijs,
-               b.bes_bestelling_parentkey
+               b.bes_bestelling_parentkey,
+               b.prs_perslid_key
           FROM prs_bedrijf bd,
                bes_srtdeel s,
                bes_bestelling_item bi,
@@ -841,7 +847,7 @@ AS
                     BEGIN
                       SELECT a.prs_afdeling_parentkey
                         INTO afd_key_temp
-                        FROM prs_v_aanwezigafdeling a
+                        FROM prs_afdeling a
                        WHERE a.prs_afdeling_key = afd_key;
                       IF niveau != 1
                       THEN
@@ -899,7 +905,7 @@ AS
                 )
             VALUES (lbord_key, 3, rec1.prs_bedrijf_key,
                  SYSDATE, rec1.mld_adres_key_lev, factura_key,
-                 i_userkey,
+                 rec1.prs_perslid_key,
                  lbord_id
                 );
             aantalopdrachtregels := 0;
@@ -1366,6 +1372,134 @@ AS
       END IF;
    END;
 
+
+   -- Stuur alle mogelijke backofficemedewerkers een bericht als de
+   -- melding NIEUW is. Naar wie, wordt reversed opgezocht op basis van
+   -- toegekende autorisaties
+   -- (zoals bij de lijst van BO-behandelaars in suggest/persoonfilter.inc)
+   PROCEDURE notifybackoffice (pbeskey IN NUMBER)
+   AS
+      lloc_key   mld_adres.alg_locatie_key%TYPE;
+      lafd_key   prs_perslid.prs_afdeling_key%TYPE;
+      ldisc_key  bes_srtgroep.ins_discipline_key%TYPE;
+      ldisc_oms  bes_discipline.ins_discipline_omschrijving%TYPE;
+      loms       fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      bericht    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
+   BEGIN
+      BEGIN
+         SELECT   DISTINCT
+                  COALESCE(ma.alg_locatie_key, -1),
+                  p.prs_afdeling_key,
+                  bsg.ins_discipline_key,
+                  bd.ins_discipline_omschrijving
+           INTO   lloc_key,
+                  lafd_key,
+                  ldisc_key,
+                  ldisc_oms
+           FROM   bes_bestelling b,
+                  bes_bestelling_item bi,
+                  bes_srtdeel bsd,
+                  bes_srtgroep bsg,
+                  bes_discipline bd,
+                  prs_perslid p,
+                  mld_adres ma
+          WHERE   b.bes_bestelling_key = bi.bes_bestelling_key
+            AND   bi.bes_srtdeel_key = bsd.bes_srtdeel_key
+            AND   bsd.bes_srtgroep_key = bsg.bes_srtgroep_key
+            AND   bsg.ins_discipline_key = bd.ins_discipline_key
+            AND   b.prs_perslid_key = p.prs_perslid_key
+            AND   b.mld_adres_key_lev = ma.mld_adres_key
+            AND   b.bes_bestelling_key = pbeskey;                   -- op dit moment nog alleen voor NIEUWE bestellingen
+
+         -- Als die er niet is sprongen we al naar de exception
+         -- Als die er wel is, gaan we verder
+         SELECT   lcl.x('fac_srtnotificatie_oms', fac_srtnotificatie_key, fac_srtnotificatie_oms)
+           INTO   loms
+           FROM   fac_srtnotificatie
+          WHERE   fac_srtnotificatie_code = 'BES2BO';
+
+         bericht := bes.bessprintf (loms, pbeskey, ldisc_oms);      -- de variabelen invullen
+
+         lnrreceivers := 0;
+         lreceivers := '';
+         FOR boer
+            IN (SELECT   g.prs_perslid_key
+                  FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p, prs_v_afdeling d
+                 WHERE       g.fac_functie_key = f.fac_functie_key
+                         AND g.ins_discipline_key = ldisc_key
+                         AND g.prs_perslid_key = p.prs_perslid_key
+                         AND d.prs_afdeling_key = p.prs_afdeling_key
+                         AND (g.fac_gebruiker_prs_level_write = -1
+                              OR (g.fac_gebruiker_prs_level_write = 0
+                              AND d.prs_bedrijf_key = (SELECT aa.prs_bedrijf_key
+                                                         FROM prs_v_afdeling aa
+                                                        WHERE aa.prs_afdeling_key = lafd_key))
+                              OR (g.fac_gebruiker_prs_level_write >0
+                                  AND p.prs_afdeling_key IN
+                                           (SELECT   prs_afdeling_key
+                                              FROM   prs_v_afdeling_familie a
+                                             WHERE   a.prs_afdeling_elder_key IN
+                                                           (SELECT   aa.prs_afdeling_elder_key
+                                                              FROM   prs_v_afdeling_familie aa
+                                                             WHERE   aa.prs_afdeling_key = lafd_key
+                                                                     AND aa.niveau = g.fac_gebruiker_prs_level_write))))
+                         -- in ASP:  if (params.loc_key>0)
+                         -- Bij bestelling wordt afleveradres ingevuld die is gekoppeld aan alg_locatie_key. Dus op locatie niveau checken is hier voldoende.
+                         AND (g.fac_gebruiker_alg_level_write = -1
+                              OR (g.fac_gebruiker_alg_level_write < 9
+                                  AND lloc_key IN
+                                           (SELECT   alg_locatie_key
+                                              FROM   fac_v_my_locations
+                                             WHERE   prs_perslid_key = p.prs_perslid_key
+                                                     AND niveau = fac_gebruiker_alg_level_write)))
+                         AND fac_functie_code = 'WEB_BESBOF')
+         LOOP
+            fac.putnotificationsrtprio (NULL,
+                                        boer.prs_perslid_key,
+                                        'BES2BO',
+                                        pbeskey,
+                                        bericht,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        2,
+                                        NULL
+                                       );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+               lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
+         END LOOP;
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_bes_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#BESMAI', pbeskey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            RETURN;
+      END;
+   END;
+
    -- Stuur alle mogelijke bestelling goedkeurders een bericht als de bestelling status 3 heeft.
    -- Naar wie, wordt reversed opgezocht op basis van toegekende autorisaties.
    PROCEDURE notifybesgoedkeurders (pbeskey IN NUMBER)
@@ -1381,21 +1515,27 @@ AS
       lbestellimiet3 bes_disc_params.bes_disc_params_bestellimiet3%TYPE;
       lbestellimiet4 bes_disc_params.bes_disc_params_bestellimiet4%TYPE;
       lbestellimiet5 bes_disc_params.bes_disc_params_bestellimiet5%TYPE;
+      lbonotify      bes_disc_params.bes_disc_params_bonotify%TYPE;
       lfunctiecode fac_functie.fac_functie_code%TYPE;
       lsender mld_discipline.ins_discipline_email%TYPE;
       bericht fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;                         -- kan te kort zijn na substitutie
+      lnrreceivers   NUMBER;
+      lreceivers     fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      lreceivers1    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
+      ltracking      VARCHAR2(4000);  -- moet tijdelijk groter dan fac_srtnotificatie.fac_srtnotificatie_oms%TYPE kunnen zijn
    BEGIN
       BEGIN
          SELECT COALESCE(ma.alg_locatie_key, -1),
                 p.prs_afdeling_key,
                 bsg.ins_discipline_key,
                 COALESCE (b.bes_bestelling_approved, -1),
-                COALESCE ( SUM (bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs) - b.bes_bestelling_korting + b.bes_bestelling_levkosten, 0),
-                bdp.bes_disc_params_bestellimiet,
-                bdp.bes_disc_params_bestellimiet2,
-                bdp.bes_disc_params_bestellimiet3,
-                bdp.bes_disc_params_bestellimiet4,
-                bdp.bes_disc_params_bestellimiet5
+                COALESCE (SUM (bi.bes_bestelling_item_aantal * bi.bes_bestelling_item_prijs) - b.bes_bestelling_korting + b.bes_bestelling_levkosten, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet2, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet3, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet4, 0),
+                COALESCE (bdp.bes_disc_params_bestellimiet5, 0),
+                bdp.bes_disc_params_bonotify
            INTO lloc_key,
                 lafd_key,
                 ldisc_key,
@@ -1405,7 +1545,8 @@ AS
                 lbestellimiet2,
                 lbestellimiet3,
                 lbestellimiet4,
-                lbestellimiet5
+                lbestellimiet5,
+                lbonotify
            FROM bes_bestelling b,
                 bes_bestelling_item bi,
                 bes_srtdeel bsd,
@@ -1430,10 +1571,15 @@ AS
                   bdp.bes_disc_params_bestellimiet2,
                   bdp.bes_disc_params_bestellimiet3,
                   bdp.bes_disc_params_bestellimiet4,
-                  bdp.bes_disc_params_bestellimiet5;
+                  bdp.bes_disc_params_bestellimiet5,
+                  bdp.bes_disc_params_bonotify;
 
          IF lbes_kosten <= lbestellimiet   -- Dit eerst testen i.v.m. Acceptering. Verder moet sowieso geaccepteerd worden.
          THEN
+           IF lbonotify = 1
+           THEN                             -- Er hoeft niet gefiatteerd te worden,
+             bes.notifybackoffice(pbeskey); -- dus stuur de backoffice een bericht dat er een nieuwe bestelling is.
+           END IF;
            RETURN;   -- Het bedrag is lager als de eerste limiet. De bestelling hoeft niet goed gekeurd te worden, dus een lege fiatteurs array teruggeven.
          ELSIF (((fac.getsetting ('bes_approval_all') = 0 AND lbes_kosten >= lbestellimiet) OR
                  (fac.getsetting ('bes_approval_all') = 1 AND lbes_kosten <= lbestellimiet2)) AND
@@ -1457,7 +1603,11 @@ AS
          THEN
            lfunctiecode := 'WEB_BESGO5';
          ELSE
-           RETURN; -- Het goedgekeurde bedrag zit al boven de vijfde limiet. Geen approval meer nodig.
+           IF lbonotify = 1
+           THEN                             -- De laatste fiatteur heeft de bestelling goedgekeurd,
+             bes.notifybackoffice(pbeskey); -- dus nu mag de backoffice het bericht krijgen dat er een nieuwe bestelling is.
+           END IF;
+           RETURN; -- Het goedgekeurde bedrag zit al boven de limiet. Geen approval meer nodig.
          END IF;
 
          -- These notifications are now sent on behalf of the system, what might be the local FM organisation
@@ -1485,8 +1635,10 @@ AS
            FROM   fac_srtnotificatie
           WHERE   fac_srtnotificatie_code = 'BESAP1';
 
-         bericht := bes.bessprintf (loms, pbeskey);                                        -- de variabelen invullen
+         bericht := bes.bessprintf (loms, pbeskey, '');             -- de variabelen invullen
 
+         lnrreceivers := 0;
+         lreceivers := '';
          FOR boer
             IN (SELECT   g.prs_perslid_key
                   FROM   fac_v_webgebruiker g, fac_functie f, prs_perslid p
@@ -1525,7 +1677,30 @@ AS
                                         2,
                                         lsender
                                        );
+            IF lnrreceivers = 0 THEN
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+            ELSE
+                SELECT prs_perslid_naam_friendly
+                  INTO lreceivers1
+                  FROM prs_v_perslid_fullnames
+                 WHERE prs_perslid_key = boer.prs_perslid_key;
+               lreceivers := lreceivers||', '||lreceivers1;
+            END IF;
+            lnrreceivers := lnrreceivers+1;
          END LOOP;
+         IF lnrreceivers > 0 THEN
+             DBMS_OUTPUT.PUT_LINE(lnrreceivers);
+             ltracking :=  lcl.l ('lcl_ord_notification_sent_to');
+             --ltracking := 'Notitificatie ''{0}'' verstuurd aan {1}';
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             ltracking := REPLACE (ltracking, '{0}', bericht);
+             ltracking := REPLACE (ltracking, '{1}', lreceivers);
+             DBMS_OUTPUT.PUT_LINE(ltracking);
+             fac.trackaction ('#BES2MA', pbeskey, NULL, NULL, SUBSTR(ltracking,1,2048));  -- maxlengte van fac_srtnotificatie_oms
+        END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
@@ -1687,7 +1862,8 @@ AS
                   bes_bestelling_plaats,
                   mld_adres_key_lev,
                   prs_kostenplaats_key,
-                  bes_bestelling_leverdatum
+                  bes_bestelling_leverdatum,
+                  bes_bestelling_lev_opm
                   ) =
                      (SELECT bes_bestelling_datum,
                              prs_perslid_key,
@@ -1696,7 +1872,8 @@ AS
                              bes_bestelling_plaats,
                              mld_adres_key_lev,
                              prs_kostenplaats_key,
-                             bes_bestelling_leverdatum
+                             bes_bestelling_leverdatum,
+                             bes_bestelling_lev_opm
                         FROM bes_bestelling
                        WHERE bes_bestelling_key = beskey)
             WHERE bes_bestelling_key = orgbeskey;
@@ -1828,7 +2005,7 @@ AS
        RETURN lret;
     END;
 
-    FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number)
+    FUNCTION bessprintf (ps IN varchar2, pbes_bestelling_key IN number, pbes_discipline IN VARCHAR2)
        RETURN varchar2
     IS
        s varchar2 (2048 CHAR);
@@ -1838,19 +2015,17 @@ AS
          -- We support substitution of placeholders in the messages
          -- ##KEY##    = bes_bestelling_key
          -- ##DATUM##  = bes_bestelling_datum
+         -- ##DISC##   = ins_discipline_omschrijving
          IF INSTR2 (s, '#') > 0
          THEN
-           SELECT   bes_bestelling_datum
+           SELECT   b.bes_bestelling_datum
              INTO   lbes_bestelling_datum
-             FROM   bes_bestelling
-            WHERE   bes_bestelling_key = pbes_bestelling_key;
-            s :=
-               REPLACE (REPLACE (s,
-                                 '##KEY##',
-                                 NUMBER_TO_CHAR (pbes_bestelling_key)
-                                ),
-                        '##DATUM##',
-                        DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI')
+             FROM   bes_bestelling b
+            WHERE   b.bes_bestelling_key  = pbes_bestelling_key;
+           s := REPLACE( REPLACE( REPLACE( s
+                       , '##KEY##',   NUMBER_TO_CHAR (pbes_bestelling_key) )
+                       , '##DATUM##', DATE_TO_CHAR (lbes_bestelling_datum, 'DD-MM-YY HH24:MI') )
+                       , '##DISC##',  pbes_discipline
                        );
          END IF;
 

BES/BES_TAB.SRC

@@ -30,6 +30,9 @@ CREATE_TABLE(bes_srtgroep,0)
         NOT_NULL(bes_srtgroep_omschrijving, bes_c_bes_srtgroep_omschr),
     bes_srtgroep_volgnr
         NUMBER(3),
+    prs_kostensoort_key
+        NUMBER(10)
+        CONSTRAINT bes_r_prs_kostensoort_key1 REFERENCES prs_kostensoort(prs_kostensoort_key),
     bes_srtgroep_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -170,6 +173,9 @@ CREATE_TABLE(bes_srtdeel,0)
         NUMBER(6),
     bes_srtdeel_voorraadmax
         NUMBER(6),
+    bes_srtdeel_voorraadfactor
+        NUMBER(6)
+        DEFAULT 1,        /* factor tussen inkoop- en verkoopenheden van zelfde artikelnr tbv voorraadbepaling */
     bes_srtdeel_margepct  /* percentage van de leveranciersmarge (verkoop-inkoop) dat voor ons is, de rest is voor whoever */
         NUMBER(3),
     bes_srtdeel_wijzigdagen /* zoveel dagen voor leverdatum nog te wijzigen */
@@ -179,7 +185,11 @@ CREATE_TABLE(bes_srtdeel,0)
     bes_srtdeel_depotverdeelpct
         NUMBER(3),
     bes_srtdeel_notitie /* magazijnlocatie */
-        VARCHAR2(50)
+        VARCHAR2(50),
+    bes_srtdeel_maxbestel    /* De voorrraad is het maximum aantal dat ik mag bestellen {0=nee (default), 1=ja} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 
@@ -248,7 +258,9 @@ CREATE_TABLE(bes_bestelling, 0)
     bes_bestelling_satisfaction_op
         VARCHAR2(2000),
     bes_bestelling_approved
-        NUMBER(11,2)
+        NUMBER(11,2),
+    bes_bestelling_lev_opm
+        VARCHAR2(320)
 );
 
 CREATE_TABLE(bes_bestelopdr, 0)
@@ -361,7 +373,9 @@ CREATE_TABLE(bes_bestelling_item, 0)
         NUMBER(5),
     bes_bestelling_item_status
         NUMBER(10),
-    CONSTRAINT bes_c_bes_bestelling_item CHECK (bes_bestelling_item_aantalontv<=bes_bestelling_item_aantal)
+    CONSTRAINT bes_c_bes_bestelling_item
+        CHECK ((bes_bestelling_item_aantal>=0 AND bes_bestelling_item_aantalontv<=bes_bestelling_item_aantal)
+               OR (bes_bestelling_item_aantal<0 AND bes_bestelling_item_aantalontv>=bes_bestelling_item_aantal))
 );
 
 --CREATE_TABLE(bes_bestellingstatuses, 0)
@@ -391,6 +405,10 @@ CREATE_TABLE(bes_disc_params, 0)
         NUMBER(10)
         NOT_NULL(bes_ins_discipline_key, bes_c_ins_discipline_key)
         CONSTRAINT bes_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key),
+    bes_disc_params_fiatflow /* Fiatterings flow 0=fiatteur->besbof 1=besbof->fiatteur */
+        NUMBER(1)
+        DEFAULT 0
+        CONSTRAINT bes_c_disc_params_fiatflow CHECK(bes_disc_params_fiatflow IN (0,1)),
     bes_disc_params_bestellimiet
         NUMBER(8,2)
         DEFAULT 100000,
@@ -443,12 +461,15 @@ CREATE_TABLE(bes_disc_params, 0)
     bes_ins_discipline_key_inkoop  /* optionele corresponderende inkoopcatalogus tbv voorraad */
         NUMBER(10)
         CONSTRAINT bes_r_ins_discipine_key2 REFERENCES ins_tab_discipline(ins_discipline_key),
-    bes_disc_params_pgb /* 1=moet worden gecontroleerd tegen persoonsgebonden jaarbudget */
+    bes_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
         NUMBER(1),
     bes_disc_params_singlegroep /* 1=een bestelling mag alleen artikelen van 1 srtgroep bevatten */
         NUMBER(1),
     bes_disc_params_noti_opdr /* 1=notificeer besteller over bestelopdracht(en) */
         NUMBER(1),
+    bes_disc_params_bonotify /* 1=notificeer BO als er een bestelling is */
+        NUMBER(1)
+        NOT NULL,
     bes_disc_params_herfiat /* 0=nooit, 1=zie criteria, 2=altijd */
         NUMBER(1),
     bes_disc_params_herfiatpct
@@ -484,7 +505,11 @@ CREATE_TABLE(bes_disc_params, 0)
         DEFAULT 1000000,
     bes_disc_params_bestellimiet5
         NUMBER(11,2)
-        DEFAULT 1000000
+        DEFAULT 1000000,
+    bes_disc_params_freeartikel /* Vrije-artikel mode {0=ouderwets, 1=vrij artikelen, 2=met suggest voor bestaande (future)} */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
 );
 
 //// flexprops
@@ -524,7 +549,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'))
+,  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_lengte    CHECK(bes_srtkenmerk_lengte >= 1
@@ -553,6 +578,9 @@ CREATE_TABLE(bes_kenmerk, 0)
             (bes_kenmerk_niveau is not null and (bes_kenmerk_niveau IN( 'D', 'G', 'S')))
 ,  bes_kenmerk_verplicht
       NUMBER(1)
+,  bes_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  bes_kenmerk_toonbaar
       NUMBER(1)
 ,  bes_kenmerk_volgnummer
@@ -572,13 +600,13 @@ CREATE_TABLE(bes_kenmerk, 0)
 ,  bes_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
-,  CONSTRAINT bes_c_bes_srtkenmerk_key1       CHECK(bes_srtkenmerk_key IS NOT NULL)
-,  CONSTRAINT bes_r_bes_srtkenmerk_key2 FOREIGN KEY(bes_srtkenmerk_key) REFERENCES bes_srtkenmerk(bes_srtkenmerk_key)
-,  CONSTRAINT bes_c_bes_kenmerk_niveau1       CHECK(bes_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT bes_c_bes_kenmerk_toonbaar      CHECK(bes_kenmerk_toonbaar IS NULL
-                                                 OR bes_kenmerk_toonbaar = 1)
-,  CONSTRAINT bes_c_bes_kenmerk_aanmaak       CHECK(bes_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT bes_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_verwijder)
+,  CONSTRAINT bes_c_bes_srtkenmerk_key1      CHECK(bes_srtkenmerk_key IS NOT NULL)
+,  CONSTRAINT bes_r_bes_srtkenmerk_key2      FOREIGN KEY(bes_srtkenmerk_key) REFERENCES bes_srtkenmerk(bes_srtkenmerk_key)
+,  CONSTRAINT bes_c_bes_kenmerk_niveau1      CHECK(bes_kenmerk_niveau IS NOT NULL)
+,  CONSTRAINT bes_c_bes_kenmerk_toonbaar     CHECK(bes_kenmerk_toonbaar IS NULL
+                                                OR bes_kenmerk_toonbaar = 1)
+,  CONSTRAINT bes_c_bes_kenmerk_aanmaak      CHECK(bes_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT bes_u_bes_kenmerk              UNIQUE(bes_srtkenmerk_key, bes_srtinstallatie_key, bes_kenmerk_type, bes_kenmerk_niveau, bes_kenmerk_groep, bes_kenmerk_verwijder)
 );
 
 CREATE_TABLE(bes_kenmerkbestell, 0)

BES/BES_TRI.SRC

@@ -147,6 +147,47 @@ END;
 /
 
 
+AUDIT_BEGIN(bes_disc_params)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet2)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet3)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet4)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bestellimiet5)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_min_bedrag)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_auto_order)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_autoacceptrfo)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiat)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiatpct)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_herfiatmarge)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurpct)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurmarge)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_factmatchmode)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurappr)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_factuurgrens)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_pgb)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_leverdagen)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_remoteconfirm)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_freeartikel)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_punchouturl)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_punch_bedr_key)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_logo_url)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_noti_dagen)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_noti_opdr)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_bonotify)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_retour)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_retour_url)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_levopm_url)
+AUDIT_VALUE(bes_disc_params, bes_ins_discipline_key_inkoop)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_singlegroep)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_kpautorisatie)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_maxartikel)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_contract)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_disckey)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_termijn)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_cnt_opzegterm)
+AUDIT_VALUE(bes_disc_params, bes_disc_params_for_others)
+AUDIT_END()
+
 CREATE_TRIGGER(BES_T_BES_DISC_PARAMS_B_IU)
 BEFORE INSERT OR UPDATE ON bes_disc_params
 FOR EACH ROW
@@ -169,19 +210,17 @@ BEGIN
        raise_application_error(-20003, 'bes_C_bes_SRTKENMERK_SYSTEEM');
    END IF;
 
-   IF     (:NEW.bes_srtkenmerk_kenmerktype = 'C' OR :NEW.bes_srtkenmerk_kenmerktype = 'N')
-      AND :NEW.bes_srtkenmerk_lengte IS NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL
    THEN
       raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.bes_srtkenmerk_kenmerktype = 'N'
-   AND :new.bes_srtkenmerk_lengte > 20
+   IF :new.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20
    THEN
       :new.bes_srtkenmerk_lengte := 20;
    END IF;
 
-   IF :NEW.bes_srtkenmerk_kenmerktype = 'N' AND :OLD.bes_srtkenmerk_key IS NOT NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :OLD.bes_srtkenmerk_key IS NOT NULL
    THEN
       IF    :OLD.bes_srtkenmerk_nmin <> :NEW.bes_srtkenmerk_nmin
          OR (:OLD.bes_srtkenmerk_nmin IS NULL AND :NEW.bes_srtkenmerk_nmin IS NOT NULL)
@@ -318,7 +357,7 @@ BEGIN
             THEN
                raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype = 'N'
+         ELSIF srtkenmerktype IN ('N', 'B')
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.
@@ -433,7 +472,7 @@ BEGIN
             THEN
                raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype = 'N'
+         ELSIF srtkenmerktype IN ('N', 'B')
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.

BES/BES_VIE.SRC

@@ -57,6 +57,8 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
                                     afdeling_omschrijving,
                                     alg_locatie_key,
                                     locatie_code,
+                                    locatie_omschrijving,
+                                    locatie_plaats,
                                     district_omschijving,
                                     afleveradres,
                                     mandaat,
@@ -84,28 +86,34 @@ CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
                                    )
 AS
    SELECT bes_bestelling_key, bestelaanvraagnr, besteldatum, besteller, invoerder, kostensoortgroep,kostensoort, kpn, kpn_omschrijving, prs_bedrijf_key,
-                afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, district_omschijving, afleveradres, mandaat,
+                afdeling_code, afdeling_omschrijving, alg_locatie_key, locatie_code, locatie_omschrijving, locatie_plaats, district_omschijving, afleveradres, mandaat,
                 personeelsnr, werkplek, ins_discipline_key, catalogus,  bes_srtgroep_key, groep, afleverdatum, doorlooptijd_werkdgn, sla_tijd,
                 productcode, prijs, inkoopprijs, status, gefiatteerddoor, bestelopdrachtnummer, aantal, itemprijs, iteminkoopprijs, bes_srtdeel_key, productomschrijving, itemposnr
      FROM (SELECT b.bes_bestelling_key bes_bestelling_key, 'A-' || b.bes_bestelling_key bestelaanvraagnr,
-                  TO_CHAR (b.bes_bestelling_datum, 'YYYY-MM-DD') besteldatum,
+                  TRUNC(b.bes_bestelling_datum) besteldatum,
                   (SELECT prs_perslid_naam_full
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = p.prs_perslid_key) besteller,
                   (SELECT prs_perslid_naam_full
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = COALESCE(fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key), fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key))) invoerder,
-                  (select ksg.prs_kostensoortgrp_oms
-                                        from prs_kostensoortgrp ksg, prs_kostensoort ks
-                                        where ksg.PRS_KOSTENSOORTGRP_KEY = ks.PRS_KOSTENSOORTGRP_KEY
-                                        and ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
-                                                                                                from bes_discipline disc
-                                                                                                    where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key))  kostensoortgroep,
-                                    (select ks.prs_kostensoort_oms
-                                        from prs_kostensoort ks
-                                        where ks.PRS_KOSTENSOORT_KEY = (select disc.PRS_KOSTENSOORT_KEY
-                                                                                                from bes_discipline disc
-                                                                                                    where disc.ins_DISCIPLINE_KEY = d.ins_discipline_key))  kostensoort,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg,
+                          prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                      AND ks.prs_kostensoort_key =
+                            (SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
+                               FROM bes_discipline disc,
+                                    bes_srtgroep bsg
+                              WHERE disc.ins_discipline_key = d.ins_discipline_key)) kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                            (SELECT MAX(COALESCE(bsg.prs_kostensoort_key, disc.prs_kostensoort_key))
+                               FROM bes_discipline disc,
+                                    bes_srtgroep bsg
+                              WHERE disc.ins_discipline_key = bsg.ins_discipline_key
+                                AND disc.ins_discipline_key = d.ins_discipline_key)) kostensoort,
                   k.prs_kostenplaats_nr kpn,
                   k.prs_kostenplaats_omschrijving kpn_omschrijving,
                   (SELECT prs_bedrijf_key
@@ -114,9 +122,9 @@ AS
                   a.prs_afdeling_naam afdeling_code,
                   a.prs_afdeling_omschrijving afdeling_omschrijving,
                   ma.alg_locatie_key alg_locatie_key,
-                  (SELECT alg_locatie_code
-                     FROM alg_locatie l
-                    WHERE l.alg_locatie_key = ma.alg_locatie_key) locatie_code,
+                  l.alg_locatie_code locatie_code,
+                  l.alg_locatie_omschrijving locatie_omschrijving,
+                  l.alg_locatie_plaats locatie_plaats,
                   (SELECT alg_district_omschrijving
                      FROM alg_locatie l, alg_district d
                     WHERE l.alg_district_key = d.alg_district_key
@@ -129,15 +137,14 @@ AS
                   d.ins_discipline_omschrijving catalogus,
                   sg.bes_srtgroep_key bes_srtgroep_key,
                   sg.bes_srtgroep_omschrijving groep,
-                  TO_CHAR (b.bes_bestelling_leverdatum, 'YYYY-MM-DD') afleverdatum,
-                  TO_CHAR (fac.count_work_days (b.bes_bestelling_datum, NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE))
-                          ) doorlooptijd_werkdgn,
+                  TRUNC(bes_bestelling_leverdatum) afleverdatum,
+                  fac.count_work_days (b.bes_bestelling_datum, NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE)) doorlooptijd_werkdgn,
                   NVL ((SELECT bdp.bes_disc_params_leverdagen
                           FROM bes_disc_params bdp
                          WHERE d.ins_discipline_key = bdp.bes_ins_discipline_key), 0) sla_tijd,
                   sd.bes_srtdeel_nr productcode,
-                  REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') prijs,
-                  REPLACE (TO_CHAR (NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) * bi.bes_bestelling_item_aantal, '9999990.99'), '.', ',') inkoopprijs,
+                  bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal prijs,
+                  NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) * bi.bes_bestelling_item_aantal inkoopprijs,
                   (SELECT bes_bestellingstatuses_omschr
                      FROM bes_bestellingstatuses bs
                     WHERE bs.bes_bestellingstatuses_key = b.bes_bestelling_status) status,
@@ -145,8 +152,8 @@ AS
                      FROM prs_v_perslid_fullnames_all pf
                     WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user) gefiatteerddoor,
                   'O-' || bo.bes_bestelopdr_id bestelopdrachtnummer, bi.bes_bestelling_item_aantal aantal,
-                  REPLACE (TO_CHAR (bi.bes_bestelling_item_prijs, '9999990.99'), '.', ',') itemprijs,
-                  REPLACE (TO_CHAR (NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs), '9999990.99'), '.', ',') iteminkoopprijs,
+                  bi.bes_bestelling_item_prijs itemprijs,
+                  NVL(bes.getsrtdeelinkprijs(sd.bes_srtdeel_key, bes_bestelling_datum), bi.bes_bestelling_item_prijs) iteminkoopprijs,
                   sd.bes_srtdeel_key bes_srtdeel_key,
                   sd.bes_srtdeel_omschrijving productomschrijving,
                   boi.bes_bestelopdr_item_posnr itemposnr
@@ -165,12 +172,14 @@ AS
                   bes_bestelopdr bo,
                   bes_srtdeel sd,
                   bes_srtgroep sg,
-                  ins_tab_discipline d
+                  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 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
+              AND l.alg_locatie_key(+) = ma.alg_locatie_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(+)
@@ -252,6 +261,245 @@ AS
 CREATE_VIEW(bes_v_api_bestellingen, 1) AS SELECT * from bes_bestelling;
 CREATE_VIEW(bes_v_api_bestelopdrachten, 1) AS SELECT * from bes_bestelopdr;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bes_v_udr_bestelling, 1)
+(
+   bestelling_key,
+   bestelaanvraagnr,
+   besteldatum,
+   leverancier,
+   besteller,
+   invoerder,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   fclt_3d_afdeling_key,
+   afdeling_code,
+   afdeling_omschrijving,
+   fclt_3d_locatie_key,
+   locatie_code,
+   regio_omschrijving,
+   district_omschrijving,
+   afleveradres,
+   mandaat,
+   fclt_3d_discipline_key,
+   catalogus,
+   groep,
+   productomschrijving,
+   productcode,
+   afleverdatum,
+   doorlooptijd_werkdgn,
+   sla_tijd,
+   prijs,
+   inkoopprijs,
+   status,
+   gefiatteerddoor,
+   bestelopdrachtnummer,
+   aantal,
+   itemprijs,
+   iteminkoopprijs,
+   itemposnr
+)
+AS
+   SELECT bes_bestelling_key,
+          bestelaanvraagnr,
+          besteldatum,
+          bedrijf_naam,
+          besteller,
+          invoerder,
+          kostensoortgroep,
+          kostensoort,
+          kpn,
+          kpn_omschrijving,
+          prs_afdeling_key,
+          afdeling_code,
+          afdeling_omschrijving,
+          alg_locatie_key,
+          locatie_code,
+          regio_omschrijving,
+          district_omschijving,
+          afleveradres,
+          mandaat,
+          ins_discipline_key,
+          catalogus,
+          groep,
+          productomschrijving,
+          productcode,
+          afleverdatum,
+          doorlooptijd_werkdgn,
+          sla_tijd,
+          prijs,
+          inkoopprijs,
+          status,
+          gefiatteerddoor,
+          bestelopdrachtnummer,
+          aantal,
+          itemprijs,
+          iteminkoopprijs,
+          itemposnr
+     FROM (SELECT b.bes_bestelling_key bes_bestelling_key,
+                  'A-' || b.bes_bestelling_key bestelaanvraagnr,
+                  b.bes_bestelling_datum besteldatum,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = p.prs_perslid_key)
+                     besteller,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key =
+                             COALESCE (fac.gettrackinguserkey ('BESNEW', b.bes_bestelling_key),
+                                       fac.gettrackinguserkey ('BESAP2', b.bes_bestelling_key)))
+                     invoerder,
+                  (SELECT ksg.prs_kostensoortgrp_oms
+                     FROM prs_kostensoortgrp ksg, prs_kostensoort ks
+                    WHERE ksg.prs_kostensoortgrp_key = ks.prs_kostensoortgrp_key
+                          AND ks.prs_kostensoort_key =
+                                (SELECT MAX(COALESCE (bsg.prs_kostensoort_key,
+                                                      disc.prs_kostensoort_key))
+                                   FROM bes_discipline disc, bes_srtgroep bsg
+                                  WHERE disc.ins_discipline_key = d.ins_discipline_key))
+                     kostensoortgroep,
+                  (SELECT ks.prs_kostensoort_oms
+                     FROM prs_kostensoort ks
+                    WHERE ks.prs_kostensoort_key =
+                             (SELECT MAX(COALESCE (bsg.prs_kostensoort_key,
+                                                   disc.prs_kostensoort_key))
+                                FROM bes_discipline disc, bes_srtgroep bsg
+                               WHERE disc.ins_discipline_key = bsg.ins_discipline_key
+                                     AND disc.ins_discipline_key = d.ins_discipline_key))
+                     kostensoort,
+                  k.prs_kostenplaats_nr kpn,
+                  k.prs_kostenplaats_omschrijving kpn_omschrijving,
+                  (SELECT b.prs_bedrijf_naam
+                     FROM prs_bedrijf b
+                    WHERE b.prs_bedrijf_key = sd.prs_bedrijf_key)
+                     bedrijf_naam,
+                  a.prs_afdeling_key,
+                  a.prs_afdeling_naam afdeling_code,
+                  a.prs_afdeling_omschrijving afdeling_omschrijving,
+                  ma.alg_locatie_key alg_locatie_key,
+                  (SELECT alg_locatie_code
+                     FROM alg_locatie l
+                    WHERE l.alg_locatie_key = ma.alg_locatie_key)
+                     locatie_code,
+                  (SELECT alg_regio_omschrijving
+                     FROM alg_locatie l, alg_district d, alg_regio r
+                    WHERE r.alg_regio_key = d.alg_regio_key
+                          AND l.alg_district_key = d.alg_district_key
+                          AND l.alg_locatie_key = ma.alg_locatie_key)
+                     regio_omschrijving,
+                  (SELECT alg_district_omschrijving
+                     FROM alg_locatie l, alg_district d
+                    WHERE l.alg_district_key = d.alg_district_key
+                          AND l.alg_locatie_key = ma.alg_locatie_key)
+                     district_omschijving,
+                  ma.mld_adres_naam afleveradres,
+                  NVL ( (SELECT pr.fac_profiel_limiet
+                           FROM fac_profiel pr
+                          WHERE p.fac_profiel_key = pr.fac_profiel_key), 0)
+                     mandaat,
+                  d.ins_discipline_key ins_discipline_key,
+                  d.ins_discipline_omschrijving catalogus,
+                  sg.bes_srtgroep_omschrijving groep,
+                  b.bes_bestelling_leverdatum afleverdatum,
+                  fac.count_work_days (
+                     b.bes_bestelling_datum,
+                     NVL (fac.gettrackingdate ('BESOTV', b.bes_bestelling_key), SYSDATE))
+                     doorlooptijd_werkdgn,
+                  NVL ( (SELECT bdp.bes_disc_params_leverdagen
+                           FROM bes_disc_params bdp
+                          WHERE d.ins_discipline_key = bdp.bes_ins_discipline_key), 0)
+                     sla_tijd,
+                  sd.bes_srtdeel_nr productcode,
+                  bi.bes_bestelling_item_prijs * bi.bes_bestelling_item_aantal prijs,
+                  NVL (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, bes_bestelling_datum),
+                       bi.bes_bestelling_item_prijs)
+                  * bi.bes_bestelling_item_aantal
+                     inkoopprijs,
+                  (SELECT bes_bestellingstatuses_omschr
+                     FROM bes_bestellingstatuses bs
+                    WHERE bs.bes_bestellingstatuses_key = b.bes_bestelling_status)
+                     status,
+                  (SELECT prs_perslid_naam_full
+                     FROM prs_v_perslid_fullnames_all pf
+                    WHERE pf.prs_perslid_key = b.bes_bestelling_fiat_user)
+                     gefiatteerddoor,
+                  'O-' || bo.bes_bestelopdr_id bestelopdrachtnummer,
+                  bi.bes_bestelling_item_aantal aantal,
+                  bi.bes_bestelling_item_prijs itemprijs,
+                  NVL (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, bes_bestelling_datum),
+                       bi.bes_bestelling_item_prijs)
+                     iteminkoopprijs,
+                  sd.bes_srtdeel_omschrijving productomschrijving,
+                  boi.bes_bestelopdr_item_posnr itemposnr
+             FROM bes_bestelling b,
+                  prs_perslid p,
+                  prs_kostenplaats k,
+                  prs_afdeling a,
+                  mld_adres ma,
+                  bes_bestelling_item bi,
+                  bes_bestelopdr_item boi,
+                  bes_bestelopdr bo,
+                  bes_srtdeel sd,
+                  bes_srtgroep sg,
+                  ins_tab_discipline d
+            WHERE     b.prs_perslid_key = p.prs_perslid_key
+                  AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
+                  AND p.prs_afdeling_key = a.prs_afdeling_key
+                  AND b.mld_adres_key_lev = ma.mld_adres_key
+                  AND b.bes_bestelling_key = bi.bes_bestelling_key
+                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
+                  AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+                  AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
+                  AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
+                  AND sg.ins_discipline_key = d.ins_discipline_key);
+
+CREATE_VIEW(bes_v_allsrtinstallatie, 0)
+(
+   NIVEAU,
+   BES_SRTINSTALLATIE_KEY,
+   DISCIPLINE_OMS,
+   SRTGROEP_OMS,
+   SRTDEEL_OMS,
+   BES_DISCIPLINE_KEY,
+   BES_SRTGROEP_KEY,
+   BES_SRTDEEL_KEY
+)
+AS
+   SELECT 'D',
+          bes_ID.ins_discipline_key,
+          bes_ID.ins_discipline_omschrijving discipline_oms,
+          NULL srtgroep_oms,
+          NULL srtdeel_oms,
+          bes_ID.ins_discipline_key,
+          NULL bes_srtgroep_key,
+          NULL bes_srtdeel_key
+     FROM bes_discipline bes_ID
+   UNION
+   SELECT 'G',
+          bes_SG.bes_srtgroep_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          NULL,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          NULL
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG
+    WHERE bes_ID.ins_discipline_key = bes_SG.ins_discipline_key
+   UNION
+   SELECT 'S',
+          bes_SD.bes_srtdeel_key,
+          bes_ID.ins_discipline_omschrijving,
+          bes_SG.bes_srtgroep_omschrijving,
+          bes_SD.bes_srtdeel_omschrijving,
+          bes_ID.ins_discipline_key,
+          bes_SG.bes_srtgroep_key,
+          bes_SD.bes_srtdeel_key
+     FROM bes_discipline bes_ID, bes_srtgroep bes_SG, bes_srtdeel bes_SD
+    WHERE bes_SG.bes_srtgroep_key = bes_SD.bes_srtgroep_key
+          AND bes_ID.ins_discipline_key = bes_SG.ins_discipline_key;
+
 REGISTERRUN('$Id$')
 
 #endif  // BES

BEZ/BEZ_IND.SRC

@@ -9,6 +9,7 @@ create index bez_i_bez_afspraak_bez3 on bez_afspraak (prs_perslid_key);
 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_bezoeker_afsp on bez_bezoekers (bez_afspraak_key);
 

BEZ/BEZ_INI.SRC

@@ -3,7 +3,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('BEZ','Bezoekersregistratie')
+_FAC_MODULE('BEZ','lcl_module_BEZ')
 
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Onbekend');
 INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Ontvanger bellen');

BEZ/BEZ_PAC.SRC

@@ -29,7 +29,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          SELECT   bez_bezoekers_key,
                   bez_afspraak_naam,
                   bez_afspraak_bedrijf,
-                  bez_afspraak_opmerking,
+                  bez_bezoekers_opmerking,
                   prs_contactpersoon_key
            FROM   bez_bezoekers
           WHERE   bez_afspraak_key = pkey;
@@ -54,13 +54,23 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
       SELECT   bez_s_bez_afspraak_key.NEXTVAL INTO newafspraakkey FROM DUAL;
 
-      INSERT INTO bez_afspraak (bez_afspraak_key, prs_perslid_key, bez_afspraak_host_key, bez_afspraak_contact_key, bez_afspraak_gastheer, bez_afspraak_datum, bez_actie_key, alg_locatie_key, res_rsv_ruimte_key, alg_onrgoed_keys, bez_afspraak_ruimte, bez_afspraak_opmerking, bez_afspraak_eind
+      INSERT INTO bez_afspraak (bez_afspraak_key,
+                  prs_perslid_key,
+                  bez_afspraak_host_key,
+                  bez_afspraak_contact_key,
+                  bez_afspraak_gastheer,
+                  bez_afspraak_telefoonnr,
+                  bez_afspraak_datum, bez_actie_key,
+                  alg_locatie_key, res_rsv_ruimte_key,
+                  alg_onrgoed_keys, bez_afspraak_ruimte,
+                  bez_afspraak_opmerking, bez_afspraak_eind
                                )
          SELECT   newafspraakkey,
                   puserkey,
                   a.bez_afspraak_host_key,
                   a.bez_afspraak_contact_key,
                   a.bez_afspraak_gastheer,
+                  a.bez_afspraak_telefoonnr,
                   nieuwvan,
                   a.bez_actie_key,
                   a.alg_locatie_key,
@@ -72,7 +82,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
            FROM   bez_afspraak a
           WHERE   a.bez_afspraak_key = pkey;
 
-      -- Er zijn geen flexkenmerken in het spel
+      -- Er zijn geen flexkenmerken in het spel voor afspraak
       FOR b IN bezoekers
       LOOP
          SELECT   bez_s_bez_bezoekers_key.NEXTVAL INTO newbezoekerskey FROM DUAL;
@@ -82,7 +92,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                                        bez_afspraak_key,
                                        bez_afspraak_naam,
                                        bez_afspraak_bedrijf,
-                                       bez_afspraak_opmerking,
+                                       bez_bezoekers_opmerking,
                                        prs_contactpersoon_key
                     )
            VALUES   (
@@ -90,7 +100,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                         newafspraakkey,
                         b.bez_afspraak_naam,
                         b.bez_afspraak_bedrijf,
-                        b.bez_afspraak_opmerking,
+                        b.bez_bezoekers_opmerking,
                         b.prs_contactpersoon_key
                     );
 
@@ -103,6 +113,22 @@ CREATE OR REPLACE PACKAGE BODY bez AS
          -- Eventueel: controleren of de nieuwe nu ook een P heeft,
          -- en zo niet dat dan tracken; goed doordenken!
          END IF;
+
+         -- Kopieer de flexkenmerken van de bezoekers
+         INSERT INTO bez_kenmerkwaarde
+                     ( bez_bezoekers_key,
+                       bez_kenmerk_key,
+                       bez_kenmerkwaarde_waarde
+                     )
+                     SELECT newbezoekerskey,
+                            w.bez_kenmerk_key,
+                            w.bez_kenmerkwaarde_waarde
+                       FROM bez_kenmerkwaarde w,
+                            bez_kenmerk k
+                      WHERE w.bez_kenmerk_key = k.bez_kenmerk_key
+                        AND w.bez_bezoekers_key = b.bez_bezoekers_key
+                        AND w.bez_kenmerkwaarde_verwijder IS NULL;
+
       END LOOP;
 
       fac.trackaction ('BEZMUT', newafspraakkey, puserkey, NULL, NULL);
@@ -165,6 +191,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       talgruimte res_rsv_ruimte.alg_ruimte_key%TYPE;
       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;
    BEGIN
       -- Claim een (nieuwe) parkeerplaats voor de gegeven bezoeker
       -- Reserveer voor de tijden van de bijbehorende afspraak cq. res_rsv_ruimte
@@ -193,11 +220,21 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       IF ldeelreskey IS NOT NULL
       THEN
          -- Zoek de noodzakelijke gegevens op
-         SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot, r.res_ruimte_opstel_key, r.alg_ruimte_key
-           INTO   lbegin, leinde, topstel, talgruimte
+         SELECT   r.res_ruimte_opstel_key, r.alg_ruimte_key
+           INTO   topstel, talgruimte
            FROM   res_rsv_ruimte r
           WHERE   res_rsv_ruimte_key = ldeelreskey;
 
+         -- Begin- en eindtijd zouden al bekend moeten zijn via afspraak (zal eigenlijk altijd gevuld zijn)
+         -- Zo niet, dan nog ophalen uit rsv_ruimte
+         IF lbegin IS NULL OR leinde IS NULL
+         THEN
+            SELECT   r.res_rsv_ruimte_van, r.res_rsv_ruimte_tot
+              INTO   lbegin, leinde
+              FROM   res_rsv_ruimte r
+             WHERE   res_rsv_ruimte_key = ldeelreskey;
+         END IF;
+
          IF talgruimte IS NOT NULL
          THEN
             SELECT   g.alg_locatie_key
@@ -212,15 +249,23 @@ CREATE OR REPLACE PACKAGE BODY bez AS
               FROM   res_ruimte_opstelling ro, res_alg_ruimte rag, alg_ruimte r, alg_verdieping v, alg_gebouw g
              WHERE       ro.res_ruimte_key = rag.res_ruimte_key
                      AND rag.alg_ruimte_key = r.alg_ruimte_key
+                     AND res_alg_ruimte_verwijder IS NULL
                      AND r.alg_verdieping_key = v.alg_verdieping_key
                      AND v.alg_gebouw_key = g.alg_gebouw_key
                      AND ro.res_ruimte_opstel_key = topstel;
          END IF;
       END IF;
 
-      -- ik weet genoeg, behalve: de discipline_key van parkeerplaatsen!
-      bez_parkingdiscipline_key :=  fac.safe_to_number (fac.getsetting ('vis_parking_key'));
+      -- ik weet genoeg, behalve: de discipline_key van parkeerplaatsen en de pre/post tijden van deze discipline!
+      bez_parkingdiscipline_key := fac.safe_to_number (fac.getsetting ('vis_parking_key'));
 
+      SELECT COALESCE(rdp.res_disc_params_preposttime, 0) / 24
+        INTO lpreposttime
+        FROM res_disc_params rdp
+       WHERE rdp.res_ins_discipline_key = bez_parkingdiscipline_key;
+
+      -- 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
@@ -231,10 +276,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              (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
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440
+                                       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
@@ -244,6 +289,14 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
                              -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
                              AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       ELSE
@@ -255,10 +308,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              (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
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440
+                                       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
@@ -270,6 +323,14 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                              AND (og.alg_gebouw_key = palg_gebter_key
                                OR og.alg_terreinsector_key = palg_gebter_key)
                              AND id.ins_alg_ruimte_type IN ('R', 'T')
+                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                             -- (bits & (2^(dow-1))) = (2^(dow-1))
+                             AND BITAND(d.res_deel_beschikbaar_bits,
+                                        POWER(2,
+                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                             AND (   d.res_deel_vervaldatum IS NULL
+                                  OR d.res_deel_vervaldatum > lbegin)
                   ORDER BY   id.ins_deel_upper)
          WHERE   aantal IS NULL;
       END IF;

BEZ/BEZ_TAB.SRC

@@ -13,10 +13,17 @@ CREATE_TABLE(bez_actie,0)
         VARCHAR2(64),
     bez_actie_default
         NUMBER(1),
+    bez_actie_flags
+        NUMBER(3) DEFAULT 0 NOT NULL, -- 0x001=oproepen, 0x002=autobadge
     bez_actie_verwijder
         DATE
 );
 
+ALTER TABLE res_ruimte
+    ADD  bez_actie_key
+    NUMBER(10)
+    REFERENCES bez_actie(bez_actie_key);
+
 CREATE_TABLE(bez_afspraak,0)
 (
     bez_afspraak_key
@@ -77,12 +84,19 @@ CREATE_TABLE(bez_bezoekers,0)
         CONSTRAINT bez_r_prs_perslid REFERENCES prs_perslid(prs_perslid_key),
     bez_bezoekers_pasnr
         VARCHAR2(30),
+    bez_bezoekers_opmerking
+        VARCHAR2(50),
     bez_afspraak_opmerking
         VARCHAR2(50),
     bez_bezoekers_done
         DATE,
     bez_bezoekers_out
-        DATE
+        DATE,
+    bez_bezoekers_oproep
+        DATE,
+    bez_bezoekers_flags -- documentatie in appl/bez/xxx.inc
+        NUMBER(10)
+        DEFAULT 0 NOT NULL
  );
 
 
@@ -114,7 +128,7 @@ CREATE_TABLE(bez_kenmerk,0)
     ,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'))
+         (bez_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,bez_kenmerk_systeem
         NUMBER(1)
     ,bez_kenmerk_toonbaar
@@ -125,6 +139,9 @@ CREATE_TABLE(bez_kenmerk,0)
         VARCHAR2(255)
     ,bez_kenmerk_verplicht
         NUMBER(1)
+    ,bez_kenmerk_groep
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,bez_kenmerk_lengte
         NUMBER(4)
     ,bez_kenmerk_dec

BEZ/BEZ_TRI.SRC

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

BEZ/BEZ_VIE.SRC

@@ -19,7 +19,7 @@ SELECT a.bez_afspraak_key,
        b.bez_bezoekers_key,
        b.bez_afspraak_naam bezoeker_naam,
        b.bez_afspraak_bedrijf bezoeker_bedrijf,
-       b.bez_afspraak_opmerking bezoeker_opmerking,
+       b.bez_bezoekers_opmerking bezoeker_opmerking,
        b.bez_bezoekers_done,
        b.bez_bezoekers_out,
        b.bez_bezoekers_pasnr
@@ -33,6 +33,251 @@ SELECT a.bez_afspraak_key,
        AND p2.prs_perslid_key = a.bez_afspraak_contact_key
        AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys;
 
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(bez_v_udr_bezoeker, 1)
+(
+   key,
+   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
+)
+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,
+          og.alg_locatie_key,
+          pp1.prs_afdeling_key
+     FROM bez_afspraak a,
+          bez_bezoekers b,
+          prs_v_perslid_fullnames_all p1,
+          prs_v_perslid_fullnames_all p2,
+          alg_v_allonrgoed_gegevens og,
+          alg_locatie l,
+          alg_district d,
+          alg_regio r,
+          bez_actie ba,
+          prs_perslid pp1,
+          res_rsv_deel rrd,
+          res_deel rd
+    WHERE     a.bez_afspraak_key = b.bez_afspraak_key
+          AND pp1.prs_perslid_key(+) = a.bez_afspraak_host_key
+          AND p1.prs_perslid_key(+) = a.bez_afspraak_host_key
+          AND p2.prs_perslid_key = a.bez_afspraak_contact_key
+          AND a.bez_actie_key = ba.bez_actie_key
+          AND l.alg_district_key = d.alg_district_key
+          AND d.alg_regio_key = r.alg_regio_key
+          AND l.alg_locatie_key = og.alg_locatie_key
+          AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys
+          AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
+          AND rrd.res_deel_key = rd.res_deel_key(+)
+          AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
+
+CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
+(
+   bezoeker_key,
+   afspraak_key,
+   reservering_key,
+   host,
+   plaats_code,
+   plaats_omschrijving,
+   regio,
+   district,
+   locatie_code,
+   locatie_naam,
+   gebouw_code,
+   gebouw_naam,
+   verdieping_code,
+   verdieping_naam,
+   ruimte_code,
+   ruimte_naam,
+   afspraak_ruimte,
+   afspraak_opmerking,
+   bezoeker_naam,
+   bezoeker_bedrijf,
+   bezoek_van,
+   bezoek_tot,
+   actie,
+   bezoeker_opmerking,
+   bezoeker_binnen,
+   bezoeker_buiten,
+   pasnr,
+   parkeerplaats,
+   nummer,
+   res_omschrijving,
+   invoerdatum,
+   datum,
+   gastheer,
+   invoerder,
+   kostensoortgroep,
+   kostensoort,
+   kpn,
+   kpn_omschrijving,
+   fclt_3d_afdeling_key,
+   afdeling_code,
+   afdeling_omschrijving,
+   regio_omschrijving,
+   district_omschijving,
+   fclt_3d_locatie_key,
+   locatie,
+   locatie_omschrijving,
+   locatie_plaats,
+   gebouw,
+   verdieping,
+   ruimte,
+   opstelling,
+   capaciteit,
+   no_show,
+   mandaat,
+   personeelsnr,
+   fclt_3d_discipline_key,
+   catalogus_key,
+   catalogus,
+   reserveerbare_ruimte,
+   bezoekers,
+   van,
+   tot,
+   duur,
+   status,
+   bostatus,
+   activiteit,
+   srtactiviteit_key,
+   activiteitsoort
+ )
+AS
+SELECT
+   b.key bezoeker_key,
+   b.afspraak_key,
+   b.reservering_key,
+   b.host,
+   --b.contact,
+   b.plaats_code,
+   b.plaats_omschrijving,
+   b.regio,
+   b.district,
+   b.locatie_code,
+   b.locatie_naam,
+   --b.locatie_plaats,
+   b.gebouw_code,
+   b.gebouw_naam,
+   b.verdieping_code,
+   b.verdieping_naam,
+   b.ruimte_code,
+   b.ruimte_naam,
+   b.afspraak_ruimte,
+   b.afspraak_opmerking,
+   b.bezoeker_naam,
+   b.bezoeker_bedrijf,
+   b.bezoek_van,
+   b.bezoek_tot,
+   b.actie,
+   b.bezoeker_opmerking,
+   b.bezoeker_binnen,
+   b.bezoeker_buiten,
+   b.pasnr,
+   b.parkeerplaats,
+   --b.fclt_3d_locatie_key,
+   --b.fclt_3d_afdeling_key,
+   --r.key,
+   r.nummer,
+   r.res_omschrijving,
+   r.invoerdatum,
+   r.datum,
+   r.gastheer,
+   --r.contact,
+   r.invoerder,
+   r.kostensoortgroep,
+   r.kostensoort,
+   r.kpn,
+   r.kpn_omschrijving,
+   r.fclt_3d_afdeling_key,
+   r.afdeling_code,
+   r.afdeling_omschrijving,
+   r.regio_omschrijving,
+   r.district_omschijving,
+   r.fclt_3d_locatie_key,
+   r.locatie,
+   r.locatie_omschrijving,
+   r.locatie_plaats,
+   r.gebouw,
+   r.verdieping,
+   r.ruimte,
+   r.opstelling,
+   r.capaciteit,
+   r.no_show,
+   r.mandaat,
+   r.personeelsnr,
+   r.fclt_3d_discipline_key,
+   r.catalogus_key,
+   r.catalogus,
+   r.reserveerbare_ruimte,
+   r.bezoekers,
+   r.van,
+   r.tot,
+   r.duur,
+   r.status,
+   r.bostatus,
+   r.activiteit,
+   r.srtactiviteit_key,
+   r.activiteitsoort
+  FROM res_v_udr_reservering r, bez_v_udr_bezoeker b
+ WHERE b.reservering_key = r.key;
+
+
 REGISTERRUN('$Id$')
 
 #endif  // BEZ

BGT/BGT_IND.SRC

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

BGT/BGT_INI.SRC

@@ -0,0 +1,11 @@
+#ifdef BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+_FAC_MODULE('BGT','lcl_module_BGT')
+
+REGISTERONCE('$Id$')
+
+#endif // BGT

BGT/BGT_PAC.SRC

@@ -0,0 +1,10 @@
+#ifdef BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+REGISTERRUN('$Id$')
+
+#endif // BGT

BGT/BGT_SEQ.SRC

@@ -0,0 +1,16 @@
+#ifdef  BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE bgt_s_bgt_disc_params_key   MINVALUE 1;
+CREATE SEQUENCE bgt_s_bgt_project_key       MINVALUE 1;
+CREATE SEQUENCE bgt_s_bgt_kostenrubriek_key MINVALUE 1;
+CREATE SEQUENCE bgt_s_bgt_budget_key        MINVALUE 1;
+CREATE SEQUENCE bgt_s_bgt_budgetmutatie_key MINVALUE 1;
+
+
+REGISTERONCE('$Id$')
+
+#endif  // BGT

BGT/BGT_TAB.SRC

@@ -0,0 +1,151 @@
+#ifdef  BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+/* discipline=project */
+CREATE_TABLE(bgt_disc_params,0)
+(
+    bgt_disc_params_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    bgt_ins_discipline_key
+        NUMBER (10)
+        CONSTRAINT bgt_r_ins_discipine_key REFERENCES ins_tab_discipline (ins_discipline_key),
+    bgt_disc_params_code  -- projectcode
+        VARCHAR2 (20 BYTE),
+    bgt_disc_params_opdrachtgever
+        VARCHAR2 (200 BYTE),
+    bgt_disc_params_startdatum
+        DATE
+);
+/* deelproject */
+CREATE_TABLE(bgt_project, 0)
+(
+    bgt_project_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    ins_discipline_key
+        NUMBER (10)
+        CONSTRAINT bgt_r_ins_discipline_key1 REFERENCES ins_tab_discipline (ins_discipline_key),
+    bgt_project_code
+        VARCHAR2 (20 BYTE),
+    bgt_project_omschrijving
+        VARCHAR2 (60 BYTE),
+    bgt_project_volgnr
+        NUMBER (3),
+    bgt_project_prijspeildatum
+        DATE,
+    bgt_project_info
+        VARCHAR2 (4000 BYTE),
+    bgt_project_notes
+        VARCHAR2 (4000 BYTE),
+    bgt_project_aanmaak
+        DATE DEFAULT SYSDATE,
+    bgt_project_verwijder
+        DATE
+);
+
+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
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    bgt_project_key
+        NUMBER (10)
+        CONSTRAINT bgt_c_bgt_kostenrubriek1 NOT NULL
+        CONSTRAINT bgt_r_bgt_project_key1 REFERENCES bgt_project (bgt_project_key),
+    bgt_kostenrubriek_code
+        VARCHAR2 (20 BYTE),
+    bgt_kostenrubriek_oms
+        VARCHAR2 (60 BYTE) NOT NULL
+);
+
+ALTER TABLE prs_kostensoortgrp ADD bgt_kostenrubriek_key NUMBER(10) CONSTRAINT prs_r_bgt_kostenrubriek_key1 REFERENCES bgt_kostenrubriek (bgt_kostenrubriek_key);
+
+CREATE_TABLE(bgt_budget,1)
+(
+    bgt_budget_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    ins_discipline_key
+        NUMBER (10)
+        CONSTRAINT prs_r_ins_discipline_key1 REFERENCES ins_tab_discipline (ins_discipline_key),  /* ik denk nog not null?*/
+    bgt_project_key
+        NUMBER (10)
+        CONSTRAINT prs_r_bgt_project_key1 REFERENCES bgt_project (bgt_project_key),           /* ik denk nog not null?*/
+    bgt_kostenrubriek_key
+        NUMBER (10)
+        CONSTRAINT prs_r_bgt_kostenrubriek_key2 REFERENCES bgt_kostenrubriek (bgt_kostenrubriek_key),
+    prs_kostensoortgrp_key
+        NUMBER (10)
+        CONSTRAINT prs_r_kostensoortgrp_key2 REFERENCES prs_kostensoortgrp (prs_kostensoortgrp_key),
+    prs_kostensoort_key
+        NUMBER (10)
+        CONSTRAINT prs_r_kostensoort_key2 REFERENCES prs_kostensoort (prs_kostensoort_key),
+    prs_kostenplaatsgrp_key
+        NUMBER (10)
+        CONSTRAINT prs_r_kostenplaatsgrp_key3 REFERENCES prs_kostenplaatsgrp (prs_kostenplaatsgrp_key),
+    prs_kostenplaats_key
+        NUMBER (10)
+        CONSTRAINT prs_r_kostenplaats_key5 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
+    bgt_budget_bedrag
+        NUMBER (12,2),
+    bgt_budget_btwbedrag
+        NUMBER (12,2),
+    bgt_budget_isreserve
+        NUMBER(1)
+        DEFAULT (0)
+        NOT NULL
+        CONSTRAINT bgt_c_bgt_budget_isreserve CHECK(bgt_budget_isreserve IN (0,1)),
+    bgt_budget_begin
+        DATE,
+    bgt_budget_eind
+        DATE,
+    bgt_budget_aanmaak
+        DATE DEFAULT SYSDATE,
+    bgt_budget_vervaldatum
+        DATE,                                         -- of gewoon verwijderdatum?
+    CONSTRAINT bgt_c_bgt_budget1 CHECK (  (bgt_budget_isreserve = 0 AND (   bgt_kostenrubriek_key IS NOT NULL
+                                                                        OR (bgt_kostenrubriek_key IS NOT NULL AND prs_kostensoortgrp_key IS NOT NULL)
+                                                                        OR (bgt_kostenrubriek_key IS NOT NULL AND prs_kostensoortgrp_key IS NOT NULL AND prs_kostensoort_key IS NOT NULL)
+                                                                        OR prs_kostenplaatsgrp_key IS NOT NULL
+                                                                        OR (prs_kostenplaatsgrp_key IS NOT NULL AND prs_kostenplaats_key IS NOT NULL)
+                                                                        )
+                                          )
+                                       OR (bgt_budget_isreserve = 1 AND prs_kostensoortgrp_key IS NULL AND prs_kostenplaats_key IS NULL)
+                                       )
+);
+
+-- under construction
+CREATE_TABLE(bgt_budgetmutatie, 1)
+(
+   bgt_budgetmutatie_key
+        NUMBER (10) PRIMARY KEY,
+   bgt_budgetmutatie_datum
+        DATE NOT NULL,
+   bgt_budgetmutatie_omschrijving
+        VARCHAR2 (100) NOT NULL,
+   prs_perslid_key
+        NUMBER (10)
+        NOT NULL
+        CONSTRAINT bgt_r_prs_perslid_key2 REFERENCES prs_perslid (prs_perslid_key),
+   bgt_budget_key_van
+        NUMBER (10)
+        CONSTRAINT bgt_r_bgt_budget1 REFERENCES bgt_budget (bgt_budget_key),
+   bgt_budget_bedrag_van
+        NUMBER (12, 2),
+   bgt_budget_btwbedrag_van
+        NUMBER (12, 2),
+   bgt_budget_key_naar
+        NUMBER (10)
+        CONSTRAINT bgt_r_bgt_budget2 REFERENCES bgt_budget (bgt_budget_key),
+   bgt_budget_bedrag_naar
+        NUMBER (12, 2),
+   bgt_budget_btwbedrag_naar
+        NUMBER (12, 2),
+   CONSTRAINT bgt_c_bgt_budget_key1 CHECK(bgt_budget_key_van IS NOT NULL OR bgt_budget_key_naar IS NOT NULL)
+);
+
+REGISTERONCE('$Id$')
+
+#endif // BGT

BGT/BGT_TRI.SRC

@@ -0,0 +1,78 @@
+#ifdef  BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+AUDIT_BEGIN(bgt_disc_params)
+AUDIT_VALUE(bgt_disc_params, bgt_ins_discipline_key)
+AUDIT_END()
+
+CREATE_TRIGGER(bgt_t_bgt_disc_params_b_i)
+BEFORE INSERT ON bgt_disc_params
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bgt_disc_params_key, bgt_s_bgt_disc_params_key);
+END;
+/
+
+CREATE_TRIGGER(bgt_t_bgt_project_B_I)
+BEFORE INSERT ON bgt_project
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(bgt_project_key,bgt_s_bgt_project_key);
+END;
+/
+
+CREATE_TRIGGER(bgt_t_bgt_kostenrubriek_B_I)
+BEFORE INSERT ON bgt_kostenrubriek
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(bgt_kostenrubriek_key,bgt_s_bgt_kostenrubriek_key);
+END;
+/
+
+CREATE_TRIGGER(bgt_t_bgt_budget_B_I)
+BEFORE INSERT ON bgt_budget
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(bgt_budget_key,bgt_s_bgt_budget_key);
+END;
+/
+
+CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_I)
+BEFORE INSERT ON bgt_budgetmutatie
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(bgt_budgetmutatie_key,bgt_s_bgt_budgetmutatie_key);
+END;
+/
+
+CREATE_TRIGGER(bgt_t_bgt_budgetmutatie_B_IU)
+BEFORE INSERT OR UPDATE ON bgt_budgetmutatie
+FOR EACH ROW
+BEGIN
+    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;
+    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;
+    END IF;
+END;
+/
+
+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;
+END;
+/
+
+REGISTERRUN('$Id$')
+
+#endif  // BGT

BGT/BGT_VIE.SRC

@@ -0,0 +1,16 @@
+#ifdef BGT
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE_VIEW(ctr_discipline, 0)
+AS
+ SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'BGT';
+
+DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
+    bgt_v_aanwezigdiscipline, 0);
+
+REGISTERRUN('$Id$')
+
+#endif // BGT

CAD/CAD_INI.SRC

@@ -4,7 +4,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('CAD','Facilitor Graphics')
+_FAC_MODULE('CAD','lcl_module_CAD')
 
 
 INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('Default legenda', 1);
@@ -102,8 +102,8 @@ INSERT INTO CAD_LABEL
 
 -- NB: deze gaat met vaste key 12, een harde default voor infobord.
 INSERT INTO cad_label
-    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, fac_functie_key )
-    SELECT 12, 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', -500, fac_functie_key
+    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, cad_label_visible, fac_functie_key )
+    SELECT 12, 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', 500, 0, fac_functie_key
       from fac_functie
     where fac_functie_code = 'WEB_RESFOF';
 -- De cad_label_key sequence gaat later vanzelf wel verder met 21.

CAD/CAD_TAB.SRC

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

CAD/CAD_VIE.SRC

@@ -11,51 +11,6 @@ CREATE_VIEW(cad_v_cad_aanwezigtekening,0) AS
                                    FROM ins_discipline)
      OR C_T.ins_discipline_key IS NULL);
 
-CREATE_VIEW(cad_v_cad_tekening_gegevens,0)
-   (cad_tekening_key,
-    alg_locatie_key,
-    alg_locatie_code,
-    alg_gebouw_key,
-    alg_gebouw_code,
-    alg_verdieping_key,
-    alg_verdieping_omschrijving,
-    ins_discipline_key,
-    ins_discipline_omschrijving) AS
-   SELECT C_T.cad_tekening_key,
-          C_T.alg_locatie_key,
-          ALG_L.alg_locatie_code,
-          ALG_G.alg_gebouw_key,
-          ALG_G.alg_gebouw_code,
-          C_T.alg_verdieping_key,
-          ALG_V.alg_verdieping_omschrijving,
-          C_T.ins_discipline_key,
-          INS_D.ins_discipline_omschrijving
-     FROM alg_locatie ALG_L,
-          alg_verdieping ALG_V,
-          alg_gebouw ALG_G,
-          ins_discipline INS_D,
-          cad_v_cad_aanwezigtekening C_T
-    WHERE C_T.alg_locatie_key = ALG_L.alg_locatie_key
-      AND C_T.alg_verdieping_key = ALG_V.alg_verdieping_key (+)
-      AND ALG_V.alg_gebouw_key = ALG_G.alg_gebouw_key (+)
-      AND C_T.ins_discipline_key = INS_D.ins_discipline_key (+);
-
-CREATE_VIEW(cad_v_plattegrond,0) AS
-  SELECT * FROM cad_tekening
-   WHERE cad_tekening_verwijder IS NULL
-     AND UPPER(cad_tekening_type) = 'P';
-
-CREATE_VIEW(cad_v_contour,0) AS
-  SELECT * FROM cad_tekening
-   WHERE cad_tekening_verwijder IS NULL
-     AND UPPER(cad_tekening_type) = 'C';
-
-CREATE_VIEW(cad_v_discipline,0) AS
-  SELECT * FROM cad_tekening
-   WHERE cad_tekening_verwijder IS NULL
-     AND UPPER(cad_tekening_type) = 'D';
-
-
 /* mapping van labels in tekening met ruimtenr in database
  * let op: de applicatie kan van een specifieke variant gebruikmaken
  * deze heet dan XXXX_V_SYNC..
@@ -81,84 +36,6 @@ SELECT
    t.alg_terreinsector_code
   FROM alg_v_aanwezigterreinsector t;
 
-
-
-/* View met ALLE tekeningen, ongeacht de autorisatie; minimale kolommen, gebruikt in CAD_PAC.SRC */
-CREATE_VIEW(cad_v_cad_tekening,0) AS
-  SELECT ins_discipline_key,
-         alg_locatie_key,
-         alg_verdieping_key,
-         cad_tekening_type,
-         cad_tekening_filenaam
-  FROM cad_tekening C_T
- WHERE cad_tekening_verwijder IS NULL;
-
-/* 29-06-1998 KTH LOG#1905
- * View CAD_V_INS_DEEL wordt door de AutoCAD Map-user FCLTCAD geraadpleegd.
- * Bij die user heet de SYNONYM ernaar toe anders (zie CAD_ROL).
- */
-CREATE_VIEW(cad_v_ins_deel,0)
-  (ins_deel_key,
-   ins_deel_cadlabel,
-   ins_srtdeel_omschrijving,
-   ins_deel_oppervlak,
-   ins_deel_omtrek
-) AS
-  SELECT D.ins_deel_key,
-         D.ins_deel_omschrijving,
-         SD.ins_srtdeel_omschrijving,
-         NVL(TO_CHAR(D.ins_deel_oppervlak),'-')||' m2',
-         NVL(TO_CHAR(D.ins_deel_omtrek),'-')||' m'
-  FROM all_v_aanwezigdeel D, ins_srtdeel SD
-  WHERE SD.ins_srtdeel_key=D.ins_srtdeel_key;
-
-CREATE_VIEW(cad_v_lpn_ins_deel_2,0) AS
-SELECT
-  D.ins_deel_key,
-  ins_srtkenmerk_omschrijving,
-  KD.ins_kenmerkdeel_waarde ||' '|| SK.ins_srtkenmerk_dimensie INS_KENMERKDEEL_WAARDE2
-FROM
-  ins_srtkenmerk SK,
-  ins_kenmerk K,
-  ins_kenmerkdeel KD,
-  ins_deel D
-WHERE SK.ins_srtkenmerk_key=K.ins_srtkenmerk_key
-  AND K.ins_kenmerk_key=KD.ins_kenmerk_key
-  AND KD.ins_deel_key=D.ins_deel_key
-  AND KD.ins_kenmerkdeel_verwijder IS NULL;
-
-CREATE_VIEW(cad_v_lpn_ins_deel_1,0) AS
-SELECT
-  D.ins_deel_key,
-  SD.ins_srtdeel_omschrijving,
-  D.ins_deel_omschrijving
-FROM
-  ins_srtdeel SD,
-  ins_deel D
-WHERE D.ins_srtdeel_key = SD.ins_srtdeel_key;
-
-
-CREATE_VIEW(cad_v_prs_werkplek,0)
-  (prs_werkplek_key,
-   prs_werkplek_cadlabel,
-   prs_werkplek_volgnr,
-   prs_werkplek_omschrijving,
-   prs_werkplek_opp
-) AS
- SELECT W.prs_werkplek_key,
-        W.prs_werkplek_volgnr,
-        W.prs_werkplek_volgnr,
-        W.prs_werkplek_omschrijving,
-        W.prs_werkplek_opp   /* Alleen een waarde indien prs_werkplek_vastopp 1 is, anders te traag? */
-   FROM prs_werkplek W;
-
-CREATE_VIEW(cad_v_lpn_prs_werkplek_1,0) AS
- SELECT W.prs_werkplek_key,
-        W.prs_werkplek_volgnr,
-        W.prs_werkplek_omschrijving
-   FROM prs_werkplek W;
-
-
 /* Standard thema/label views */
 //  Zowel label-views als thema-views hebben de kolommen alg_ruimte_key en waarde
 //  Feature: Sommige thema views kunnen updatable zijn!
@@ -631,10 +508,12 @@ AS
     GROUP BY rar.alg_ruimte_key
     UNION
     SELECT alg_ruimte_key, alg_ruimte_nr
-      FROM alg_ruimte r, ins_deel
-     WHERE     ins_alg_ruimte_key = alg_ruimte_key
-           AND ins_alg_ruimte_type = 'R'
-           AND ins_deel_state IS NOT NULL
+      FROM alg_ruimte r, ins_deel d, ins_srtdeel sd
+     WHERE     d.ins_alg_ruimte_key = r.alg_ruimte_key
+           AND d.ins_alg_ruimte_type = 'R'
+           AND d.ins_deel_state IS NOT NULL
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
            AND NOT EXISTS (SELECT ''
                              FROM res_alg_ruimte
                             WHERE alg_ruimte_key = r.alg_ruimte_key);
@@ -721,11 +600,13 @@ CREATE_VIEW(cad_v_thema_ruimtesensor,0)
 )
 AS
     SELECT r.alg_ruimte_key alg_ruimte_key, initcap(d.ins_deel_state) status
-      FROM alg_ruimte r, ins_deel d
+      FROM alg_ruimte r, ins_deel d, ins_srtdeel sd
      WHERE     r.alg_ruimte_verwijder IS NULL
            AND d.ins_deel_verwijder IS NULL
            AND d.ins_alg_ruimte_type = 'R'
            AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
            AND d.ins_deel_state IS NOT NULL;
 
 -- Kleurenthema dat reserveringen en actuele bezetting weergeeft
@@ -738,39 +619,44 @@ CREATE_VIEW(cad_v_thema_srtruimtesensor, 0)
 )
 AS
    -- zalen met een sensor
-   SELECT r.alg_ruimte_key,
-          DECODE (
-             INITCAP (d.ins_deel_state),
-             'Uit',                      -- als de sensor uit is kijken we naar de reservering
-             DECODE (r2a.res_reservering_key,
-                     NULL, 'Uit',        -- als er geen reservering gescheduled staat is de status uit
-                     DECODE (eerste10min, 1, 'Aan', 'NoShow')),  -- in de eerste 10 minuten v/d reservering melden we nog geen noshow
-             'Aan')
-             status
-     FROM alg_ruimte r,
-          ins_deel d,
-          (SELECT rr2a.res_reservering_key,
-                  rr2a.alg_ruimte_key,
-                  CASE WHEN (SYSDATE - res_rsv_ruimte_van > 10 / 1440)
-                       THEN 0
-                       ELSE 1
-                  END eerste10min
-             FROM res_v_rsv_ruimte_2_alg_ruimte rr2a
-            WHERE res_rsv_ruimte_dirtlevel = 0
-              AND rr2a.res_alg_ruimte_verwijder IS NULL
-              AND rr2a.res_rsv_ruimte_van BETWEEN TRUNC(SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen
-              AND rr2a.res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC(SYSDATE + 1)) r2a
-    WHERE r.alg_ruimte_verwijder IS NULL
-      AND d.ins_deel_verwijder IS NULL
-      AND d.ins_alg_ruimte_type = 'R'
-      AND d.ins_alg_ruimte_key = r.alg_ruimte_key
-      AND d.ins_deel_state IS NOT NULL
-      AND r.alg_ruimte_key = r2a.alg_ruimte_key(+)
+   SELECT alg_ruimte_key, DECODE (MAX (status), 0, 'Uit', 2, 'Aan', 'NoShow')
+     FROM ( SELECT r.alg_ruimte_key,
+                   DECODE (
+                      INITCAP (d.ins_deel_state),
+                      '0',                      -- als de sensor uit is kijken we naar de reservering
+                      DECODE (r2a.res_reservering_key,
+                              NULL, 0,        -- als er geen reservering gescheduled staat is de status uit
+                              DECODE (eerste10min, 1, 2, 1)),  --  in de eerste 10 minuten v/d reservering melden we nog geen noshow(1) aan(2)
+                      2)
+                      status
+              FROM alg_ruimte r,
+                   ins_deel d,
+                   ins_srtdeel sd,
+                   (SELECT rr2a.res_reservering_key,
+                           rr2a.alg_ruimte_key,
+                           CASE WHEN (SYSDATE - res_rsv_ruimte_van > 10 / 1440)
+                                THEN 0
+                                ELSE 1
+                           END eerste10min
+                      FROM res_v_rsv_ruimte_2_alg_ruimte rr2a
+                     WHERE res_rsv_ruimte_dirtlevel = 0
+                       AND rr2a.res_alg_ruimte_verwijder IS NULL
+                       AND rr2a.res_rsv_ruimte_van BETWEEN TRUNC(SYSDATE) AND SYSDATE -- Voorkennis: geen meerdaagse ruimtereserveringen
+                       AND rr2a.res_rsv_ruimte_tot BETWEEN SYSDATE AND TRUNC(SYSDATE + 1)) r2a
+             WHERE r.alg_ruimte_verwijder IS NULL
+               AND d.ins_deel_verwijder IS NULL
+               AND d.ins_alg_ruimte_type = 'R'
+               AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+               AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+               AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
+               AND d.ins_deel_state IS NOT NULL
+               AND r.alg_ruimte_key = r2a.alg_ruimte_key(+))
+    GROUP BY alg_ruimte_key
    UNION ALL               -- en dan de ruimten zonder sensor
    SELECT r.alg_ruimte_key,
           DECODE (rr.res_ruimte_key,  -- is dit een vergaderruimte?
                   NULL, '*' || sr.alg_srtruimte_omschrijving,
-                  DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan'))
+                  DECODE (r2a.res_reservering_key, NULL, 'Uit', 'Aan'))        -- 0 uit / 1 noshow / 2 aan
      FROM alg_v_aanwezigruimte r,
           alg_srtruimte sr,
           (SELECT rr2a.res_reservering_key, rr2a.alg_ruimte_key
@@ -788,10 +674,12 @@ AS
       AND r.alg_ruimte_key = rr.alg_ruimte_key(+)
       AND NOT EXISTS
              (SELECT r.alg_ruimte_key
-                FROM ins_deel d
+                FROM ins_deel d, ins_srtdeel sd
                WHERE d.ins_deel_verwijder IS NULL
                  AND d.ins_alg_ruimte_type = 'R'
                  AND d.ins_alg_ruimte_key = r.alg_ruimte_key
+                 AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+                 AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
                  AND d.ins_deel_state IS NOT NULL);
 
 CREATE_VIEW(cad_v_thema_wpsensor,0)
@@ -801,11 +689,13 @@ CREATE_VIEW(cad_v_thema_wpsensor,0)
 )
 AS
     SELECT wp.prs_werkplek_key prs_werkplek_key, initcap(d.ins_deel_state) status
-      FROM prs_werkplek wp, ins_deel d
+      FROM prs_werkplek wp, ins_deel d, ins_srtdeel sd
      WHERE     d.ins_deel_verwijder IS NULL
            AND wp.prs_werkplek_virtueel = 0
            AND d.ins_alg_ruimte_type = 'W'
            AND d.ins_alg_ruimte_key = wp.prs_werkplek_key
+           AND d.ins_srtdeel_key = sd.ins_srtdeel_key
+           AND sd.ins_srtgroep_key = fac.getSetting('ins_occupationsensors_srtgroep_key')
            AND d.ins_deel_state IS NOT NULL;
 
 REGISTERRUN('$Id$')

CARE/CARE_INI.SRC

@@ -5,7 +5,7 @@
  * $Id$
  */
 
-_FAC_MODULE('CARE','Care-Webb')
+_FAC_MODULE('CARE','lcl_module_CARE')
 
 
 ------------ De eenvoudige bedrijfsstructuur vormgeven via 3 nivo's: bedrijf, afdeling en subafdeling ------------
@@ -142,18 +142,32 @@ INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,a
                                                  alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
 VALUES (1006, 'L', 33, 'Veiling tarieven', 'N', 1, 0, 1);
 
+
+-- BONS#31596: Gemeente is een budgetgemeente, van invloed op:
+-- kolom T+U+V van het Iwmo facturen rapport en,
+-- de clienten worden niet naar het CAK gestuurd.
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1007, 'L', 34, 'Budgetgemeente', 'N', 1, 0, 1);
+
+-- BONS#32746: OB code in het CAK rapport
+INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving,
+                                                 alg_kenmerk_kenmerktype, alg_kenmerk_lengte,alg_kenmerk_nmin, alg_kenmerk_nmax)
+VALUES (1008, 'L', 31, 'Ondersteunende Begeleiding', 'N', 1, 0, 1);
+
+
 -- Label factuur-infix en factuur-postfix
 INSERT INTO alg_kenmerk
 (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_default,alg_kenmerk_kenmerktype)
-VALUES (1003, 'L', 35, 'Factuurnr specificatie','<span style="color:red">Gemeente afhankelijke factuurnummers (afwijkend van standaard) </span>','L');
+VALUES (1003, 'L', 40, 'Factuurnr specificatie','<span style="color:red">Gemeente afhankelijke factuurnummers (afwijkend van standaard) </span>','L');
 
 -- Factnr infix (ATCH#21599)
 INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_kenmerktype, alg_kenmerk_lengte)
-VALUES (1004, 'L', 37, 'Factuurnr. infix', 'C', 10);
+VALUES (1004, 'L', 42, 'Factuurnr. infix', 'C', 10);
 
 -- Factnr suffix (ATCH#21599)
 INSERT INTO alg_kenmerk (alg_kenmerk_key,alg_kenmerk_niveau,alg_kenmerk_volgnr,alg_kenmerk_omschrijving, alg_kenmerk_kenmerktype, alg_kenmerk_lengte)
-VALUES (1005, 'L', 39, 'Factuurnr. postfix', 'C', 10);
+VALUES (1005, 'L', 44, 'Factuurnr. postfix', 'C', 10);
 
 
 -- Label archief
@@ -507,20 +521,20 @@ INSERT INTO mld_disc_params(mld_ins_discipline_key, mld_disc_params_notify)
 SELECT ins_discipline_key,0 FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Klachten over verzorger';
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Slechte kwaliteit geleverd',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Slechte kwaliteit geleverd',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Niet komen opdagen',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Niet komen opdagen',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Schade',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Schade',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Houding en/of communicatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Houding en/of communicatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO ins_tab_discipline
 (ins_discipline_module,  ins_discipline_omschrijving, ins_srtdiscipline_key)
@@ -530,16 +544,16 @@ INSERT INTO mld_disc_params(mld_ins_discipline_key, mld_disc_params_notify)
 SELECT ins_discipline_key,0 FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Klachten over zorgaanbieder';
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Afspraak niet nagekomen',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Afspraak niet nagekomen',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Houding en/of communicatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Houding en/of communicatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 INSERT INTO mld_stdmelding
-(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_urgentie, mld_stdmelding_freetext)
-SELECT max(ins_discipline_key),'Onduidelijke informatie',4,2 FROM ins_tab_discipline;
+(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_t_accepttijd, mld_stdmelding_freetext)
+SELECT max(ins_discipline_key),'Onduidelijke informatie',MLD_T_UITVOERTIJD(4, 'U'),2 FROM ins_tab_discipline;
 
 
 -- Autorisatiegroepen met rechten voor klachten: FO, BO en MI.
@@ -838,6 +852,7 @@ AND UPPER(FAC_LOCALEITEMS_LCL) = 'LCL_MLD_BEHANDELAAR';
 -- FAC-TABELLEN FAC_USRRAP
 
 -- Rapportages
+-- Rapport IWMO) voor de BACKOFFICE/ADMINISTRATIE: Iwmo factuur rapport (BONS#31596)
 -- Rapport A) voor de BACKOFFICE/ADMINISTRATIE: NIET ingeleverde weekbrieven (UUR_BOF).
 -- Rapport B) voor de FRONTOFFICE/TEAMLEIDER: NIET ingeleverde weekbrieven van de teamleden (UUR_FOF).
 -- Rapport C) voor de FRONTEND/VERZORGER,medewerker: Overzichtslijst van je teamgenoten (WEB_MLDORD).
@@ -850,6 +865,36 @@ AND UPPER(FAC_LOCALEITEMS_LCL) = 'LCL_MLD_BEHANDELAAR';
 -- Rapport J) voor de MANINFO/FACTUURADMIN: Factuurrapport voor de gemaakte uren binnen 1 PERIODE, per week, per verzorger - variant C: (MLDBAC).
 
 
+
+-- BONS#31596: Iwmo factuurrapport via XSL
+-- Rapport Iwmo) FACTUURrapport voor Iwmo:
+INSERT INTO fac_usrrap
+            (fac_usrrap_omschrijving,
+             fac_usrrap_view_name,
+             fac_usrrap_in_huidige_locatie,
+             fac_usrrap_template,
+             fac_usrrap_macro,
+             fac_usrrap_vraagbegindatum,
+             fac_usrrap_vraageinddatum,
+             fac_usrrap_functie,
+             fac_usrrap_info,
+             fac_functie_key,
+             fac_usrrap_autorefresh
+            )
+     SELECT  'Factuur Iwmo) Per beschikking in periode, per week',
+             'care_v_rap2_factuur_uren_iwmo',
+             NULL,
+             NULL,
+             NULL,
+             0,
+             0,
+             1,
+             'Factuurrapportage Iwmo',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
+
+
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving,
              fac_usrrap_view_name,
@@ -1474,6 +1519,26 @@ INSERT INTO fac_usrrap
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
+-- Rapport R) FACTUURrapport met detailgegevens client per beschikking - variant R:
+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  'Factuur R) Details Client per beschikking',
+             'care_v_rap2_factuur_uren_R',
+             0,
+             0,
+             1,
+             'Factuurrapportage per beschikking met detailgegevens clienten',
+             fac_functie_key,
+             0
+    FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
 -- Rapport Q) FACTUURrapport voor de gemaakte uren per datum - variant Q (Bernisse):
 INSERT INTO fac_usrrap
@@ -1502,7 +1567,47 @@ INSERT INTO fac_usrrap
              0
     FROM fac_functie WHERE fac_functie_code = 'WEB_MLDBAC';
 
-
+-- BONS#36043: Totaallijst clienten in zorg (outerjoin uren):
+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',
+             'care_v_rap_tot_clientzorg',
+             0,
+             0,
+             1,
+             'Totaal lijst cli<6C>nten in zorg (ook zonder uren)',
+             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,
+             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 MDW',
+             'care_v_rap_tot_clientzorg_mdw',
+             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';
 
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -2073,7 +2178,7 @@ FROM  DUAL
 CONNECT BY LEVEL <= 1*52+1;
 
 INSERT INTO care_t_qvw_periodeweektabel
-SELECT 
+SELECT
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IYYY') jaar,
     DECODE(FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE - 7*(LEVEL-1),'IW') - 1) /4) + 1)  periode,
     TO_CHAR (SYSDATE - 7*(LEVEL-1), 'IW') week,
@@ -2081,7 +2186,7 @@ SELECT
 FROM  DUAL
 CONNECT BY LEVEL <= 1*52+1
 UNION
-SELECT 
+SELECT
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IYYY') jaar,
     DECODE(FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1, 14, 13,FLOOR((TO_CHAR (SYSDATE + 7*(LEVEL),'IW') - 1) /4) + 1)  periode,
     TO_CHAR (SYSDATE + 7*(LEVEL), 'IW') week,

CARE/CARE_PAC.SRC

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

CNT/CNT_IND.SRC

@@ -19,11 +19,10 @@ create index cnt_i_cnt_contract_plaats1 on cnt_contract_plaats(cnt_alg_plaats_ke
 create index cnt_i_cnt_contract_plaats2 on cnt_contract_plaats(cnt_contract_key);
 
 create index cnt_i_cnt_contract_object1 on cnt_contract_object(cnt_contract_key);
-
-CREATE INDEX cnt_i_cnt_contract_onrg1 ON cnt_contract_onrgoed(cnt_contract_key);
-CREATE INDEX cnt_i_cnt_contract_onrg2 ON cnt_contract_onrgoed(alg_onrgoed_key);
+CREATE INDEX cnt_i_cnt_contract_object2 ON cnt_contract_object(cnt_ins_deel_key);
 
 CREATE INDEX cnt_i_cnt_contract_note1 ON cnt_contract_note(cnt_contract_key);
+CREATE UNIQUE INDEX cnt_i_cnt_factuurschema1 ON cnt_factuurschema(cnt_contract_key, cnt_factuurschema_boekmaand);
 
 REGISTERONCE('$Id$')
 

CNT/CNT_INI.SRC

@@ -5,13 +5,13 @@
 /*
 ** Bij installatie van modules moet de tabel FAC_MODULE gevuld of ge-update worden.
 */
-_FAC_MODULE('CNT','Contractbeheer')
+_FAC_MODULE('CNT','lcl_module_CNT')
 
 /*
 **      De MESSAGES van de CNT module.
 */
 DEF_FAC_MESSAGE ('CNT_M001','Verwijderen contract','Delete contract');
-DEF_FAC_MESSAGE ('CNT_M002','Er moet of een bedrijf of een afdeling ingevuld worden.','Either a company or a department must be entered.');
+DEF_FAC_MESSAGE ('CNT_M002','Er moet of een bedrijf of een afdeling of een persoon ingevuld worden.','Either a company or a department or a person must be entered.');
 DEF_FAC_MESSAGE ('CNT_M003','Locatie bestaat niet.','Location does not exist.');
 DEF_FAC_MESSAGE ('CNT_M004','Terreinsector bestaat niet.','Sublocation does not exist.');
 DEF_FAC_MESSAGE ('CNT_M005','Gebouw bestaat niet.','Building does not exist.');
@@ -63,16 +63,7 @@ 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_mutatie_status VALUES (0, 'Vervallen');
-INSERT INTO cnt_mutatie_status VALUES (1, 'Open');
-INSERT INTO cnt_mutatie_status VALUES (2, 'Concept');
-INSERT INTO cnt_mutatie_status VALUES (3, 'Ontvangen/Ok');
-INSERT INTO cnt_mutatie_status VALUES (4, 'Ontvangen/NietOk');
-INSERT INTO cnt_mutatie_status VALUES (5, 'Voltooid');
-INSERT INTO cnt_mutatie_status VALUES (6, 'Geexporteerd');
-
 INSERT INTO cnt_typecontract VALUES (1, 'Onderhoud/Maintenance');
-INSERT INTO cnt_typecontract VALUES (2, 'Huur/Rental');
 INSERT INTO cnt_typecontract VALUES (3, 'Ondersteuning/Support');
 INSERT INTO cnt_typecontract VALUES (4, 'Algemeen/Generic');
 INSERT INTO cnt_typecontract VALUES (5, 'Leverancier/Supplier');

CNT/CNT_PAC.SRC

@@ -7,19 +7,19 @@
 CREATE OR REPLACE PACKAGE cnt AS
   PROCEDURE setcontractstatus (pcontractkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
   FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER) RETURN DATE;
+  FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER) RETURN NUMBER;
   FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE;
   FUNCTION cnt_getRappeldatum (pcnt_contract_key IN NUMBER) RETURN DATE;
   FUNCTION cnt_contract_status (van IN DATE, rappel IN DATE, opzeg IN DATE, tot IN DATE) RETURN NUMBER;
-  FUNCTION cnt_contract_items (cntKey IN NUMBER) RETURN VARCHAR2;
 
-  PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER);
   PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER);
+  PROCEDURE generatefactuurschema (pcontractkey IN NUMBER,ptermijnbedrag   IN NUMBER DEFAULT NULL);
+
   FUNCTION getnieuwsteversiekey(p_key IN NUMBER) RETURN NUMBER;
   FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
 
-  PRAGMA RESTRICT_REFERENCES (cnt_contract_items, WNDS, WNPS);
   PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
-END Cnt;
+END cnt;
 /
 
 CREATE OR REPLACE PACKAGE BODY cnt AS
@@ -93,7 +93,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
    END;
 
-   -- Deze functie bepaald de datum door het termijn (ptermijn_key) van de datum (pdate) in mindering te brengen.
+   -- Deze functie bepaalt de datum door het termijn (ptermijn_key) van de datum (pdate) in mindering te brengen.
    -- Indien de 29, 30 of 31 datum niet in de betreffende maand voorkomt wordt de eerste van de volgende maand genomen.
    -- prichting geeft aan of ten opzichte van pdate achteruit (-1) of vooruit (1, of anders) moet worden gerekend.
    FUNCTION cnt_getTermijndatum (pdate IN DATE, ptermijn_key IN NUMBER, prichting IN NUMBER)
@@ -139,6 +139,48 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
    END;
 
+   -- Deze functie benadert de factor om een contracttermijn te normaliseren tot een (1) jaar.
+   -- Als dat niet kan (ongeldige termijn) wordt nu -1 opgeleverd
+   -- Vb: 4W -> 13, 2M ->6, 2J-> 0,5
+   -- Kan geen rekening houden met schrikkeljaren en 53 weken en zo
+   FUNCTION termijnjaarfactor (ptermijn_key IN NUMBER)
+      RETURN NUMBER
+   IS
+      ptermijn_type     VARCHAR2 (1);
+      ptermijn_aantal   NUMBER;
+   BEGIN
+      IF ptermijn_key IS NOT NULL
+      THEN
+         SELECT cnt_termijn_type, cnt_termijn_aantal
+           INTO ptermijn_type, ptermijn_aantal
+           FROM cnt_termijn
+          WHERE cnt_termijn_key = ptermijn_key;
+      ELSE
+         -- Als ptermijn_key leeg/ongedefinieerd, return dan maar 1
+         RETURN -1;
+      END IF;
+
+      IF ptermijn_aantal = 0
+      THEN
+         RETURN -1;  -- delen door null mag niet he
+      END IF;
+
+      IF ptermijn_type = 'D'
+      THEN
+         RETURN 365 / ptermijn_aantal;
+      -- soms 366
+      ELSIF ptermijn_type = 'W'
+      THEN
+         RETURN 52 / ptermijn_aantal;                                                     -- soms 53
+      ELSIF ptermijn_type = 'M'
+      THEN
+         RETURN 12 / ptermijn_aantal;
+      ELSE
+         -- ptermijn_type = 'Y'
+         RETURN 1 / ptermijn_aantal;
+      END IF;
+   END;
+
    FUNCTION cnt_getOpzegdatum (pcnt_contract_key IN NUMBER) RETURN DATE IS
        plooptijd_tot DATE;
        popzegtermijn NUMBER;
@@ -190,104 +232,6 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN 4;
    END;
 
-   FUNCTION cnt_contract_items (cntKey IN NUMBER)
-      RETURN VARCHAR2
-   AS
-      ret    VARCHAR2(512);
-      var_ckey   NUMBER;
-   CURSOR query(cntKey NUMBER) IS
-      SELECT 1 ckey, S.INS_SRTDEEL_CODE || ' ' ||S.INS_SRTDEEL_OMSCHRIJVING cntText
-        from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGSRTDEEL S
-       WHERE O.CNT_CONTRACT_KEY = cntKey
-         AND S.ins_srtdeel_key   = O.cnt_ins_srtdeel_key
-         AND O.cnt_ins_DEEL_key IS NULL
-   UNION
-      SELECT 2 ckey, D.INS_DEEL_OMSCHRIJVING cntText
-        from CNT_CONTRACT_OBJECT O, INS_V_AANWEZIGDEEL D
-       WHERE O.CNT_CONTRACT_KEY = cntKey
-         AND D.ins_DEEL_key   = O.cnt_ins_DEEL_key
-   UNION
-      SELECT 3 ckey, g.alg_locatie_omschrijving cntText
-        FROM alg_v_aanweziglocatie g, CNT_v_aanwezigCONTRACT_PLAATS P
-       WHERE p.CNT_CONTRACT_KEY = cntKey
-         AND p.cnt_alg_plaats_key = g.alg_locatie_key
-         AND p.CNT_ALG_PLAATS_CODE = 'L'
-   UNION
-      SELECT 4 ckey, l.alg_locatie_omschrijving || ' ' ||g.alg_gebouw_omschrijving cntText
-        FROM alg_v_aanweziggebouw g, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
-       WHERE p.CNT_CONTRACT_KEY = cntKey
-         AND p.cnt_alg_plaats_key = g.alg_gebouw_key
-         AND p.CNT_ALG_PLAATS_CODE = 'G'
-         AND l.alg_locatie_key = g.alg_locatie_key
-   UNION
-      SELECT 5 ckey, l.alg_locatie_omschrijving || ' ' ||alg_terreinsector_naam cntText
-        FROM alg_v_aanwezigterreinsector T, CNT_v_aanwezigCONTRACT_PLAATS P, alg_locatie l
-       WHERE p.CNT_CONTRACT_KEY = cntKey
-         AND p.cnt_alg_plaats_key = T.alg_terreinsector_key
-         AND p.CNT_ALG_PLAATS_CODE = 'T'
-         AND l.alg_locatie_key = t.alg_locatie_key
-       ORDER BY 2;
-
-   BEGIN
-      ret   := null;
-      var_ckey  := -1;
-      FOR cntitem_rec IN query(cntKey) LOOP
-        IF var_ckey = -1 THEN
-           ret := cntitem_rec.cntText;
-        ELSE
-           IF LENGTH(ret)+LENGTH(cntitem_rec.cntText)<(512-5) THEN
-              ret := ret || CHR(10) || cntitem_rec.cntText;
-           ELSE
-              ret := ret || CHR(10) || '...';
-              RETURN ret;
-           END IF;
-        END IF;
-        var_ckey := cntitem_rec.ckey;
-      END LOOP;
-
-      RETURN ret;
-   END;
-
-
-   PROCEDURE cnt_complete_mutatie(p_mutaite_key IN NUMBER)
-   IS
-   -- The following actions should be executed when the state becomes 'Voltooid':
-   -- Find the matching records in the CNT_CONTRACT_ONRGOED table where one row without a mutation_key
-   -- filled in matches a row with a mutation_key filled in.
-   -- The match will be successful if both rows have the same ALG_ONRGOED_KEY,
-   -- the same ALG_ONRGOED_NIVEAU and the same CNT_CONTRACT_KEY.
-   -- From these matching records the one without CNT_MUTATION_KEY should be deleted
-   BEGIN
-      DELETE
-      cnt_contract_onrgoed
-      WHERE cnt_contract_onrgoed_key IN (
-      SELECT a.cnt_contract_onrgoed_key
-      FROM  cnt_contract_onrgoed b, cnt_contract_onrgoed a
-      WHERE a.cnt_contract_key = b.cnt_contract_key
-      AND   a.alg_onrgoed_key = b.alg_onrgoed_key
-      AND   a.alg_onrgoed_niveau = b.alg_onrgoed_niveau
-      AND   b.cnt_mutatie_key = p_mutaite_key
-      AND   a.cnt_mutatie_key  IS  NULL);
-
-      -- Delete the entries in the CNT_CONTRACT_ONRGOED table with the mutation_key equal
-      -- to the CNT_MUTATION that will be accepted and where the area size (CNT_CONTRACT_ONRGOED_OPP) = 0.
-      DELETE
-      cnt_contract_onrgoed
-      WHERE cnt_mutatie_key = p_mutaite_key
-      AND CNT_CONTRACT_ONRGOED_OPP = 0;
-
-      -- Set the Mutation_key to NULL from the rows where the CNT_MUTATION_KEY will be equal to the CNT_MUTATION that was accepted.
-      UPDATE
-      cnt_contract_onrgoed
-      SET cnt_mutatie_key = NULL
-      WHERE cnt_mutatie_key = p_mutaite_key;
-      -- The state of the mutation should be set to 'Voltooid'
-      UPDATE cnt_mutatie
-      SET CNT_MUTATIE_DATUM_VOLTOOID = SYSDATE,
-          CNT_MUTATIE_STATUS = 5
-      WHERE cnt_mutatie_key = p_mutaite_key;
-   END cnt_complete_mutatie;
-
    PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
    IS
       begin1 DATE;
@@ -296,10 +240,11 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       newkey NUMBER;
       nummer1 cnt_contract.cnt_contract_nummer_intern%TYPE;
       amount1 cnt_contract.cnt_contract_kosten%TYPE;
+      srtcontract_type cnt_disc_params.cnt_srtcontract_type%TYPE;
       new_status cnt_contract.cnt_contract_status%TYPE;
    BEGIN
-      -- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum,
-      -- en een nieuwe kopie die begint op die datum
+      -- Splits het contract met p_key in twee delen: het oude dat eindigt op p_datum - 1,
+      -- en een nieuwe kopie die begint op die p_datum
       -- p_amount is -optioneel- het bedrag dat bij het oude contract moeten blijven
       -- de rest komt bij de nieuwe. Als p_amount NULL is, eindigen beide contracten
       -- met het originele bedrag.
@@ -313,19 +258,22 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   c.cnt_contract_looptijd_tot,
                   COALESCE (c.cnt_contract_versie, '0'),
                   cnt_contract_nummer_intern,
-                  cnt_contract_kosten
-           INTO   begin1, eind1, versie1, nummer1, amount1
-           FROM   cnt_contract c
-          WHERE       c.cnt_contract_key = p_key
-                  AND c.cnt_contract_looptijd_van < p_datum
-                  AND c.cnt_contract_looptijd_tot > p_datum;
+                  cnt_contract_kosten,
+                  cdp.cnt_srtcontract_type
+           INTO   begin1, eind1, versie1, nummer1, amount1, srtcontract_type
+           FROM   cnt_contract c,
+                  cnt_disc_params cdp
+          WHERE   c.ins_discipline_key = cdp.cnt_ins_discipline_key
+            AND   c.cnt_contract_key = p_key
+            AND   c.cnt_contract_looptijd_van < p_datum
+            AND   c.cnt_contract_looptijd_tot > p_datum;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             RETURN;
       END;
 
-      IF (fac.getsetting('cnt_contract_approval') = 1)
+      IF (fac.getsetting('cnt_contract_approval') = 1 AND srtcontract_type != 6)
       THEN
         new_status := 2; -- altijd op nieuw
       ELSE
@@ -333,8 +281,8 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       END IF;
       -- de datum is een zinvolle splitsdatum, alles in orde
       INSERT INTO cnt_contract (cnt_contract_nummer, cnt_contract_omschrijving, cnt_contract_looptijd_tot, cnt_contract_kosten,
-                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_contract_verwijder,
-                                cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
+                                cnt_contract_uurloon, cnt_prs_bedrijf_key, cnt_prs_afdeling_key, cnt_prs_perslid_key,
+                                cnt_contract_verwijder, cnt_contract_nummer_intern, cnt_contract_korting, prs_contactpersoon_key,
                                 cnt_contract_contact_persoon, ins_discipline_key, cnt_contract_document,
                                 prs_perslid_key_eig, prs_perslid_key_beh, prs_afdeling_key_eig, cnt_contract_status,
                                 cnt_contract_looptijd_van, prs_kostenplaats_key, cnt_contract_termijnkosten, prs_kostensoort_key,
@@ -348,6 +296,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
                   cnt_prs_afdeling_key,
+                  cnt_prs_perslid_key,
                   NULL,
                   cnt_contract_nummer_intern,
                   cnt_contract_korting,
@@ -418,18 +367,6 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
            FROM   cnt_contract_object cob
           WHERE   cob.cnt_contract_key = p_key AND cob.cnt_contract_object_verwijder IS NULL;
 
-      --cnt_contract_onrgoed
-      INSERT INTO cnt_contract_onrgoed (cnt_contract_key, alg_onrgoed_key, alg_onrgoed_niveau, alg_srtonrgoed_key, cnt_contract_onrgoed_opp, cnt_srtruimte_prijs
-                                       )
-         SELECT   newkey,
-                  cog.alg_onrgoed_key,
-                  cog.alg_onrgoed_niveau,
-                  cog.alg_srtonrgoed_key,
-                  cog.cnt_contract_onrgoed_opp,
-                  cog.cnt_srtruimte_prijs
-           FROM   cnt_contract_onrgoed cog
-          WHERE   cog.cnt_contract_key = p_key AND cog.cnt_mutatie_key IS NULL;
-
       --cnt_contract_plaats
       INSERT INTO cnt_contract_plaats (cnt_contract_key, cnt_alg_plaats_code, cnt_alg_plaats_key, cnt_contract_plaats_gewicht
                                       )
@@ -451,12 +388,52 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       --cnt_factuurschema: splitst op dezelfde grensdatum
       UPDATE   cnt_factuurschema
          SET   cnt_contract_key = newkey
-       WHERE   cnt_contract_key = p_key AND cnt_factuurschema_datum > p_datum;
+       WHERE   cnt_contract_key = p_key
+         AND cnt_factuurschema_boekmaand >= TO_CHAR(p_datum, 'YYYY-MM');
 
       fac.trackaction ('CNTNEW', newkey, p_user, NULL, NULL);
 
    END splitscontract;
 
+   -- Genereer een factuurschema met een gelijk bedrag per maand gedurende
+   -- de looptijd van het contract
+   -- Verondersteld dat er nog geen schema was.
+   PROCEDURE generatefactuurschema (
+      pcontractkey     IN NUMBER,
+      ptermijnbedrag   IN NUMBER DEFAULT NULL)
+   AS
+      maanden          NUMBER (10);
+      maand            NUMBER (10);
+      ltermijnbedrag   cnt_factuurschema.cnt_factuurschema_bedrag%TYPE;
+   BEGIN
+      FOR cnt_rec
+         IN (SELECT cnt_contract_kosten,
+                    cnt_contract_looptijd_tot,
+                    cnt_contract_looptijd_van
+               FROM cnt_contract
+              WHERE cnt_contract_key = pcontractkey)
+      LOOP
+         maanden :=
+            1
+            + TRUNC(MONTHS_BETWEEN (cnt_rec.cnt_contract_looptijd_tot,
+                                    cnt_rec.cnt_contract_looptijd_van));
+
+         ltermijnbedrag :=
+            COALESCE (ptermijnbedrag, cnt_rec.cnt_contract_kosten / maanden);
+         FOR maand IN 0 .. maanden - 1
+         LOOP
+            INSERT INTO cnt_factuurschema (cnt_contract_key,
+                                           cnt_factuurschema_boekmaand,
+                                           cnt_factuurschema_bedrag)
+                VALUES (pcontractkey,
+                        TO_CHAR (
+                           ADD_MONTHS (cnt_rec.cnt_contract_looptijd_van, maand),
+                           'YYYY-MM'),
+                        ltermijnbedrag);
+         END LOOP;
+      END LOOP;
+   END;
+
    -- Zoek de key van de hoogste revisie van het meegegeven contract
    -- Beseffende dat _versie een oplopende reeks is en hopende dat
    -- nummer_intern hetzelfde blijft over versies en vrij uniek is
@@ -502,7 +479,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN VARCHAR2
    IS
       s VARCHAR2 (2048 CHAR);
-      varlev prs_bedrijf.prs_bedrijf_naam%TYPE;
+      varlev VARCHAR2 (255 CHAR); -- Kan nu ook een samenstelling zijn van prs_perslid gegevens.
       varomsch cnt_contract.cnt_contract_omschrijving%TYPE;
       varnummer cnt_contract.cnt_contract_nummer_intern%TYPE;
    BEGIN
@@ -513,12 +490,19 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       -- ##KEY##    = cnt_contract_nummer_intern
       IF INSTR (s, '#') > 0
       THEN
-           SELECT prs_bedrijf_naam,
+         SELECT   COALESCE(prs_bedrijf_naam, fac.getsetting ('prs_pers_string'), fac.getsetting ('prs_dep_string')),
                   cnt_contract_omschrijving,
                   cnt_contract_nummer_intern
-           INTO   varlev, varomsch, varnummer
-           FROM   cnt_contract c, prs_bedrijf b
-          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key
+           INTO   varlev,
+                  varomsch,
+                  varnummer
+           FROM   cnt_contract c,
+                  prs_bedrijf b,
+                  prs_perslid p,
+                  prs_afdeling a
+          WHERE   c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
+            AND   c.cnt_prs_perslid_key = p.prs_perslid_key(+)
+            AND   c.cnt_prs_afdeling_key = a.prs_afdeling_key(+)
             AND   c.cnt_contract_key = p_contract_key;
          s :=
             REPLACE (REPLACE (REPLACE (s, '##LEV##', varlev), '##OMSCH##', varomsch),

CNT/CNT_SEQ.SRC

@@ -16,9 +16,6 @@ CREATE SEQUENCE cnt_s_cnt_srtkenmerk_key MINVALUE 1;
 CREATE SEQUENCE cnt_s_cnt_kenmerk_key MINVALUE 1;
 CREATE SEQUENCE cnt_s_cnt_kenmerkcontract_key MINVALUE 1;
 
-CREATE SEQUENCE cnt_s_cnt_onrgoed_key           MINVALUE 1;
-CREATE SEQUENCE cnt_s_cnt_mutatie_key           MINVALUE 1;
-
 CREATE SEQUENCE cnt_s_cnt_contract_note_key     MINVALUE 1;
 CREATE SEQUENCE cnt_s_cnt_factuurschema_key     MINVALUE 1;
 

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_factuurschema
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     cnt_disc_params_factuurmarge
         NUMBER(8,2)
         DEFAULT 0,
@@ -90,11 +94,17 @@ CREATE_TABLE(cnt_contract,0)
    NUMBER(11,2)
 ,  cnt_contract_termijnkosten
    NUMBER(11,2)
+,  cnt_contract_termijntermijn
+    NUMBER(10)
+    CONSTRAINT cnt_r_cnt_termijn_key4 REFERENCES cnt_termijn(cnt_termijn_key)
 ,  cnt_contract_uurloon
    NUMBER(6,2)
 ,  cnt_prs_bedrijf_key
    NUMBER(10)
    CONSTRAINT cnt_r_prs_bedrijf_key REFERENCES prs_bedrijf(prs_bedrijf_key)
+,  cnt_prs_perslid_key
+   NUMBER(10)
+   CONSTRAINT cnt_r_prs_perslid_key2 REFERENCES prs_perslid(prs_perslid_key)
 ,  cnt_prs_afdeling_key
    NUMBER(10)
    CONSTRAINT cnt_r_prs_afdeling_key REFERENCES prs_afdeling(prs_afdeling_key)
@@ -248,10 +258,9 @@ ALTER TABLE mld_opdr ADD
 );
 
 ALTER TABLE mld_opdr DROP CONSTRAINT mld_r_mld_melding_key1;
-
 ALTER TABLE mld_opdr ADD
 (
-    CONSTRAINT MLD_R_MLD_MELDING_KEY3 CHECK(mld_melding_key IS NOT NULL OR cnt_contract_key IS NOT NULL)
+    CONSTRAINT mld_r_mld_melding_key3 CHECK(mld_melding_key IS NOT NULL OR cnt_contract_key IS NOT NULL OR prs_kostensoort_key IS NOT NULL)
 );
 
 CREATE_TABLE(cnt_srtkenmerk, 0)
@@ -288,7 +297,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'))
+,  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_systeem   CHECK(cnt_srtkenmerk_systeem IS NULL
                                                 OR cnt_srtkenmerk_systeem = 1)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_lengte    CHECK(cnt_srtkenmerk_lengte >= 1
@@ -311,6 +320,9 @@ CREATE_TABLE(cnt_kenmerk, 0)
       VARCHAR2(1)
 ,  cnt_kenmerk_verplicht
       NUMBER(1)
+,  cnt_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_toonbaar
       NUMBER(1)
 ,  cnt_kenmerk_volgnummer
@@ -331,14 +343,14 @@ CREATE_TABLE(cnt_kenmerk, 0)
       DATE
       DEFAULT NULLDATUM
 ,  cnt_kenmerk_default VARCHAR2(4000)
-,  CONSTRAINT cnt_r_cnt_srtkenmerk_key1       CHECK(cnt_srtkenmerk_key IS NOT NULL)
-,  CONSTRAINT cnt_r_cnt_srtkenmerk_key2 FOREIGN KEY(cnt_srtkenmerk_key) REFERENCES cnt_srtkenmerk(cnt_srtkenmerk_key)
-,  CONSTRAINT cnt_c_cnt_kenmerk_niveau1       CHECK(cnt_kenmerk_niveau IS NOT NULL)
-,  CONSTRAINT cnt_c_cnt_kenmerk_niveau2       CHECK(cnt_kenmerk_niveau IN ('C','S'))
-,  CONSTRAINT cnt_c_cnt_kenmerk_toonbaar      CHECK(cnt_kenmerk_toonbaar IS NULL
-                                                 OR cnt_kenmerk_toonbaar = 1)
-,  CONSTRAINT cnt_c_cnt_kenmerk_aanmaak       CHECK(cnt_kenmerk_aanmaak IS NOT NULL)
-,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_verwijder)
+,  CONSTRAINT cnt_r_cnt_srtkenmerk_key1      CHECK(cnt_srtkenmerk_key IS NOT NULL)
+,  CONSTRAINT cnt_r_cnt_srtkenmerk_key2      FOREIGN KEY(cnt_srtkenmerk_key) REFERENCES cnt_srtkenmerk(cnt_srtkenmerk_key)
+,  CONSTRAINT cnt_c_cnt_kenmerk_niveau1      CHECK(cnt_kenmerk_niveau IS NOT NULL)
+,  CONSTRAINT cnt_c_cnt_kenmerk_niveau2      CHECK(cnt_kenmerk_niveau IN ('C','S'))
+,  CONSTRAINT cnt_c_cnt_kenmerk_toonbaar     CHECK(cnt_kenmerk_toonbaar IS NULL
+                                                OR cnt_kenmerk_toonbaar = 1)
+,  CONSTRAINT cnt_c_cnt_kenmerk_aanmaak      CHECK(cnt_kenmerk_aanmaak IS NOT NULL)
+,  CONSTRAINT cnt_u_cnt_kenmerk              UNIQUE(cnt_srtkenmerk_key, cnt_srtcontract_key, cnt_kenmerk_niveau, cnt_kenmerk_groep, cnt_kenmerk_verwijder)
 );
 
 CREATE_TABLE(cnt_kenmerkcontract, 0)
@@ -363,69 +375,10 @@ CREATE_TABLE(cnt_kenmerkcontract, 0)
 ,  CONSTRAINT cnt_r_cnt_kenmerk_key1             CHECK(cnt_kenmerk_key IS NOT NULL)
 ,  CONSTRAINT cnt_r_cnt_kenmerk_key2       FOREIGN KEY(cnt_kenmerk_key) REFERENCES cnt_kenmerk(cnt_kenmerk_key)
 ,  CONSTRAINT cnt_c_cnt_kenmerkcontract_aan      CHECK(cnt_kenmerkcontract_aanmaak IS NOT NULL)
-,  CONSTRAINT cnt_u_cnt_kenmerkcontract          UNIQUE(cnt_kenmerk_key, cnt_contract_key, cnt_kenmerkcontract_verwijder)
+,  CONSTRAINT cnt_u_cnt_kenmerkcontract          UNIQUE(cnt_contract_key, cnt_kenmerk_key, cnt_kenmerkcontract_verwijder)
 ,  CONSTRAINT cnt_r_kenmerk_contract       FOREIGN KEY (cnt_contract_key) REFERENCES cnt_contract(cnt_contract_key) ON DELETE CASCADE
 );
 
-
-CREATE_TABLE(cnt_mutatie, 0)
-( cnt_mutatie_key             NUMBER(10)
-    CONSTRAINT cnt_k_cnt_mutatie_key PRIMARY KEY,
-  cnt_mutatie_omschrijving    VARCHAR2(50),
-  cnt_mutatie_datum           DATE,
-  cnt_mutatie_datum_concept   DATE,
-  cnt_mutatie_datum_ontvangen DATE,
-  cnt_mutatie_datum_voltooid  DATE,
-  cnt_mutatie_datum_ingang    DATE,
-  prs_perslid_key             NUMBER(10)
-    CONSTRAINT cnt_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key),
-  cnt_mutatie_status  NUMBER(1) -- Open = 1      Concept = 2   OntvangenOK = 3   OntvangenNOK = 4  Voltooid = 5
-);
-
-
-CREATE_TABLE(cnt_mutatie_status,0)
-(
-  cnt_mutatie_status
-      NUMBER(10)
-      CONSTRAINT cnt_k_cnt_mutatie_status_key PRIMARY KEY,
-  cnt_mutatie_status_omschrijv
-    VARCHAR2(30)
-);
-
-
-CREATE_TABLE(cnt_contract_onrgoed, 0)
-  ( cnt_contract_onrgoed_key
-      NUMBER(10)
-      CONSTRAINT cnt_k_cnt_contract_onrgoed_key PRIMARY KEY,
-    cnt_contract_key
-      NUMBER(10)
-      CONSTRAINT cnt_r_cnt_contract_key REFERENCES cnt_contract(cnt_contract_key),
-    alg_onrgoed_key
-      NUMBER(10),
-    alg_onrgoed_niveau
-      VARCHAR2(1)
-      CONSTRAINT cnt_c_cnt_onrgoed_niveau     CHECK(alg_onrgoed_niveau IN ('R', 'T')),
-    cnt_mutatie_key
-      NUMBER(10)
-      CONSTRAINT cnt_r_cnt_mutatie_key REFERENCES cnt_mutatie(cnt_mutatie_key) on delete cascade,
-    cnt_contract_onrgoed_opp
-      NUMBER(8,2),
-    alg_srtonrgoed_key
-      NUMBER(10),
-    cnt_mld_melding_key
-      NUMBER(10)
-      CONSTRAINT cnt_r_mld_melding_key REFERENCES mld_melding(mld_melding_key),
-    cnt_mutatie_status_key
-      NUMBER(10)
-        DEFAULT 1
-      CONSTRAINT cnt_r_cnt_mutatie_status REFERENCES cnt_mutatie_status(cnt_mutatie_status),
-    cnt_srtruimte_prijs
-        NUMBER(8,2),
-   cnt_contract_onrgoed_key_org
-      NUMBER(10)
-      CONSTRAINT cnt_r_cnt_contract_onrgoed_key  REFERENCES cnt_contract_onrgoed(cnt_contract_onrgoed_key)
-);
-
 CREATE_TABLE(cnt_contract_note, 0)
 (
    cnt_contract_note_key            NUMBER (10) PRIMARY KEY,
@@ -443,12 +396,15 @@ CREATE_TABLE(cnt_factuurschema , 0)
         NUMBER(10)
         NOT NULL
         CONSTRAINT cnt_r_cnt_factuurschema1 REFERENCES cnt_contract(cnt_contract_key),
-    cnt_factuurschema_datum
-        DATE,
+    cnt_factuurschema_boekmaand  /* format YYYY-MM */
+        VARCHAR2(7),
     cnt_factuurschema_bedrag
         NUMBER(11,2),
-    cnt_factuurschema_referentie
-        VARCHAR2(20)
+    cnt_factuurschema_opmerking
+        VARCHAR2(320),
+    cnt_factuurschema_aanmaak
+        DATE
+        DEFAULT SYSDATE
 );
 
 REGISTERONCE('$Id$')

CNT/CNT_TRI.SRC

@@ -3,6 +3,16 @@
  *  $Id$
  */
 
+AUDIT_BEGIN(cnt_disc_params)
+AUDIT_VALUE(cnt_disc_params, cnt_srtcontract_type)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurschema)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurpct)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurmarge)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurappr)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_factuurgrens)
+AUDIT_VALUE(cnt_disc_params, cnt_disc_params_opmerking)
+AUDIT_END()
+
 CREATE_TRIGGER(cnt_t_cnt_disc_params_b_iu)
 BEFORE INSERT OR UPDATE ON cnt_disc_params
 FOR EACH ROW
@@ -55,9 +65,14 @@ BEFORE INSERT OR UPDATE ON cnt_contract
 FOR EACH ROW
 BEGIN
   IF (   :new.cnt_prs_bedrijf_key  IS NULL
-     AND :new.cnt_prs_afdeling_key IS NULL)
+     AND :new.cnt_prs_afdeling_key IS NULL
+     AND :new.cnt_prs_perslid_key  IS NULL)
   OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
      AND :new.cnt_prs_afdeling_key IS NOT NULL)
+  OR (   :new.cnt_prs_bedrijf_key  IS NOT NULL
+     AND :new.cnt_prs_perslid_key IS NOT NULL)
+  OR (   :new.cnt_prs_perslid_key  IS NOT NULL
+     AND :new.cnt_prs_afdeling_key IS NOT NULL)
   THEN
     APPLICATION_ERROR_GOTO(-20000,'cnt_m002');
   ELSE
@@ -70,14 +85,6 @@ BEGIN
 
   SET_VERWIJDER_CHILDREN(cnt_contract_object,cnt_contract_key,cnt_contract_verwijder,cnt_contract_object_verwijder,cnt_contract);
   SET_VERWIJDER_CHILDREN(cnt_contract_plaats,cnt_contract_key,cnt_contract_verwijder,cnt_contract_plaats_verwijder,cnt_contract);
-  BEGIN IF :new.cnt_contract_verwijder IS NOT NULL
-        OR (   :new.cnt_contract_verwijder IS NULL
-           AND :old.cnt_contract_verwijder IS NOT NULL)
-        THEN
-          DELETE cnt_contract_onrgoed
-           WHERE cnt_contract_onrgoed.cnt_contract_key = :new.cnt_contract_key;
-        END IF;
-  END;
 END;
 /
 
@@ -134,20 +141,18 @@ BEGIN
     raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
   END IF;
   --
-  IF (:new.cnt_srtkenmerk_kenmerktype = 'C'
-  OR  :new.cnt_srtkenmerk_kenmerktype = 'N')
-  AND :new.cnt_srtkenmerk_lengte IS NULL
+  IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL
   THEN
     raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_LENGTE');
   END IF;
   -- Numeriek mag niet te lang zijn (numeric overflow)
-  IF :new.cnt_srtkenmerk_kenmerktype = 'N'
+  IF :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
   AND :new.cnt_srtkenmerk_lengte > 20
   THEN
      :new.cnt_srtkenmerk_lengte := 20;
   END IF;
   --
-  IF  :new.cnt_srtkenmerk_kenmerktype = 'N'
+  IF  :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
   AND :old.cnt_srtkenmerk_key IS NOT NULL
   THEN
     IF :old.cnt_srtkenmerk_nmin <> :new.cnt_srtkenmerk_nmin
@@ -272,7 +277,7 @@ BEGIN
         THEN
           APPLICATION_ERROR_GOTO(-20004, 'cnt_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
         END IF;
-      ELSIF SrtKenmerkType = 'N'
+      ELSIF SrtKenmerkType IN ('N', 'B')
       THEN
         -- NUMBER
         -- Controleer of er een numerieke waarde ingevuld is.
@@ -326,26 +331,6 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(cnt_t_cnt_contract_onrg_B_IU)
-BEFORE INSERT OR UPDATE ON cnt_contract_onrgoed
-FOR EACH ROW
-BEGIN
-  UPDATE_PRIMARY_KEY(cnt_contract_onrgoed_key,cnt_s_cnt_onrgoed_key);
-END;
-/
-
-CREATE_TRIGGER(cnt_t_cnt_mutatie_B_IU)
-BEFORE INSERT OR UPDATE ON cnt_mutatie
-FOR EACH ROW
-BEGIN
-  :new.cnt_mutatie_datum := SYSDATE;
-  UPDATE_PRIMARY_KEY(cnt_mutatie_key,cnt_s_cnt_mutatie_key);
-  IF :new.cnt_mutatie_key IS NOT NULL AND :old.cnt_mutatie_key IS NULL THEN
-     :new.cnt_mutatie_datum_ingang := SYSDATE;
-  END IF;
-END;
-/
-
 CREATE_TRIGGER(cnt_t_cnt_termijn_B_IU)
 BEFORE INSERT OR UPDATE ON cnt_termijn
 FOR EACH ROW

COMSQL.H

@@ -21,10 +21,10 @@
  * It is now defined by external macro _DBV
  */
 /* The minimum required software version */
-#define _VERSIONMAJ 5
-#define _VERSIONMIN 4
-#define _VERSIONPATCH STRINGIZE(1)
-#define _VERSION '5.4.1'
+#define _VERSIONMAJ 2017
+#define _VERSIONMIN 1
+#define _VERSIONPATCH '0'
+#define _VERSION '2017.1.0'
 #define _DBV_STRING _MKSTRING(_DBV)
 
 #define REGISTERONCE(svnid) \
@@ -79,6 +79,9 @@ BEGIN adm.systrackscriptId(svnid, 0); END;~/
  END
 
 
+#define CREATE_TYPE(type_name)                                                 \
+ CREATE TYPE type_name
+
 #define CREATE_TABLE(table_name, level)                                        \
  CREATE TABLE table_name
 
@@ -99,16 +102,16 @@ INTO x
 #define CREATE_SEQUENCE(sequence_name, minval) \
 CREATE SEQUENCE sequence_name MINVALUE minval;
 
-#define CREATE_VIEW(view_name, level)                                          \
+#define CREATE_VIEW(view_name, level) \
  CREATE OR REPLACE FORCE VIEW view_name
 
-#define CREATE_TRIGGER(trigger_name)                           \
+#define CREATE_TRIGGER(trigger_name) \
   CREATE OR REPLACE TRIGGER trigger_name
 
-#define _END_TRIGGER()                           \
+#define _END_TRIGGER() \
   END;~/
 
-#define CREATE_PROCEDURE(pack_name, proc_name)                      \
+#define CREATE_PROCEDURE(pack_name, proc_name) \
     CREATE OR REPLACE PROCEDURE proc_name
 
 #define MONEY \
@@ -629,10 +632,15 @@ CEIL
 #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 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_SRTNOT(c, m, o, u, g, x, d) INSERT INTO fac_srtnotificatie (fac_srtnotificatie_code, fac_srtnotificatie_mode, fac_srtnotificatie_oms, fac_srtnotificatie_url, fac_srtnotificatie_groep, fac_srtnotificatie_xmlnode, fac_srtnotificatie_delay) VALUES (c, m, o, u, g, x, d)
 
 #define DEF_MENUKOP(g, s) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT COALESCE(MAX(fac_menuitems_key),0)*100+50, s, g, 1 FROM fac_menuitems
-#define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x FROM fac_functie WHERE fac_functie_code=f
+#define DEF_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_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_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
 #define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
 // We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter
@@ -652,24 +660,6 @@ CEIL
 // De CHECK() geeft het wel, dus wordt deze gebruikt.
 #define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
 
-/* Macros voor het vullen van de INS bibliotheek in INS_DATA.SRC */
-#define DEF_DISCIPLINE(ldis)\
- INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving, ins_discipline_min_level) \
- VALUES('INS', SUBSTR(ldis ,1, 30), 1)
-
-#define DEF_GROEPSOORT(ldis, lgrp)\
- INSERT INTO ins_srtgroep (ins_discipline_key, ins_srtgroep_module, ins_srtgroep_omschrijving) \
- SELECT ins_discipline_key, 'INS', SUBSTR(lgrp, 1,30) FROM ins_tab_discipline \
- WHERE SUBSTR(UPPER(ins_discipline_omschrijving),1,30) = SUBSTR(UPPER(ldis),1,30)
-
-#define DEF_DEELSOORT(ldis, lgrp, lds, lsym, lcode)\
- INSERT INTO ins_srtdeel \
- (ins_srtgroep_key, ins_srtdeel_module, ins_srtdeel_code, \
- ins_srtdeel_acadsymbol, ins_srtdeel_omschrijving,ins_srtdeel_dimensie) \
- SELECT ins_srtgroep_key, 'INS', lcode ,lsym, SUBSTR(lds,1,30), 0 \
- FROM ins_srtgroep \
- WHERE SUBSTR(UPPER(ins_srtgroep_omschrijving),1,30) = SUBSTR(UPPER(lgrp),1,30)
-
 #define BEGIN_MODULE(m) \
  DECLARE ~\
    dummy VARCHAR2(1); ~\
@@ -691,12 +681,6 @@ CEIL
  SQL_SPOOL(START n.m) ~\
  END_MODULE(m)
 
-#define __T__USER_OBJECTS__OBJECT_TYPE__TYPE \
-VARCHAR2(50)
-
-#define __T__ins_discipline__ins_discipline_key__TYPE \
-NUMBER(10)
-
 #define START_LOCALEITEMS(dialect_id) \
 DECLARE                            ~ \
     v_dialect_id fac_localeitems.fac_localeitems_dialect_id%TYPE; ~ \
@@ -717,4 +701,43 @@ END; ~\
 / ~ \
 COMMIT;
 
+#define AUDIT_BEGIN(table)                          ~\
+CREATE OR REPLACE TRIGGER aud_t_##table##           ~\
+AFTER UPDATE OR DELETE ON table                     ~\
+FOR EACH ROW                                        ~\
+ DECLARE                                            ~\
+   isdeleting NUMBER(1) := 0;                       ~\
+ BEGIN                                              ~\
+   IF DELETING THEN                                 ~\
+      isdeleting := 1;                              ~\
+   END IF;
+
+#define AUDIT_VALUE_K(table, tablekey, column)      ~\
+      aud.auditaction(STRINGIZE(table),             ~\
+                      :old.tablekey,                ~\
+                      :new.tablekey,                ~\
+                      STRINGIZE(column),            ~\
+                      :old.column,                  ~\
+                      :new.column,                  ~\
+                      isdeleting);
+
+#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; ~\
+/ ~ \
+
+
 #endif  // _COMSQL_H

CTR/CTR_IND.SRC

@@ -0,0 +1,9 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE UNIQUE INDEX ctr_i_ctr_disc_params1 ON ctr_disc_params(ctr_ins_discipline_key);
+
+REGISTERONCE('$Id$')
+

CTR/CTR_INI.SRC

@@ -0,0 +1,24 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+_FAC_MODULE('CTR','lcl_module_CTR')
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Controle');
+INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 1 FROM ins_tab_discipline;
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Vervanging');
+INSERT INTO ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 2 FROM ins_tab_discipline;
+
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_omschrijving) values ('CTR', 'Certificering');
+insert into ctr_disc_params(ctr_ins_discipline_key, ctr_disc_params_controle_type)
+    SELECT MAX(ins_discipline_key), 3 FROM ins_tab_discipline;
+
+REGISTERONCE('$Id$')
+
+#endif // MRK

CTR/CTR_PAC.SRC

@@ -0,0 +1,10 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+REGISTERRUN('$Id$')
+
+#endif // CTR

CTR/CTR_SEQ.SRC

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

CTR/CTR_TAB.SRC

@@ -0,0 +1,30 @@
+#ifdef  CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE_TABLE (ctr_disc_params,0)
+(
+  ctr_disc_params_key
+      NUMBER(10),
+  ctr_ins_discipline_key
+      NUMBER(10),
+  ctr_disc_params_controle_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+      NUMBER(1)
+      DEFAULT(1)
+      CONSTRAINT ctr_disc_params_controle_type NOT NULL,
+  ctr_disc_params_ismjob
+      NUMBER(1)       -- valid are 0, 1
+      DEFAULT 0
+      NOT NULL,
+
+  CONSTRAINT ctr_c_ins_discipline_key CHECK (ctr_ins_discipline_key IS NOT NULL),
+  CONSTRAINT ctr_k_ctr_disc_params_key PRIMARY KEY (ctr_disc_params_key),
+  CONSTRAINT ctr_r_ins_discipine_key FOREIGN KEY (ctr_ins_discipline_key)
+    REFERENCES ins_tab_discipline (ins_discipline_key)
+);
+
+REGISTERONCE('$Id$')
+
+#endif // CTR

CTR/CTR_TRI.SRC

@@ -0,0 +1,24 @@
+#ifdef  CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+AUDIT_BEGIN(ctr_disc_params)
+AUDIT_VALUE(ctr_disc_params, ctr_ins_discipline_key)
+AUDIT_VALUE(ctr_disc_params, ctr_disc_params_controle_type)
+AUDIT_VALUE(ctr_disc_params, ctr_disc_params_ismjob)
+AUDIT_END()
+
+CREATE_TRIGGER(ctr_t_ctr_disc_params_b_iu)
+BEFORE INSERT OR UPDATE ON ctr_disc_params
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(ctr_disc_params_key, ctr_s_ctr_disc_params_key);
+END;
+/
+
+REGISTERRUN('$Id$')
+
+#endif  // CTR

CTR/CTR_VIE.SRC

@@ -0,0 +1,17 @@
+#ifdef CTR
+/*
+ * $Revision$
+ * $Id$
+ */
+
+
+CREATE_VIEW(ctr_discipline, 0)
+AS
+ SELECT * FROM ins_tab_discipline WHERE ins_discipline_module = 'CTR';
+
+DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
+    ctr_v_aanwezigdiscipline, 0);
+
+REGISTERRUN('$Id$')
+
+#endif // CTR

FAC/FAC_IND.SRC

@@ -2,10 +2,17 @@
  *  $Id$
  */
 
+CREATE INDEX fac_i_audit_perslidkey1 ON fac_audit(prs_perslid_key);
+CREATE INDEX fac_i_audit_tabel1 ON fac_audit(fac_audit_tabelnaam, fac_audit_tabelkey);
+
+CREATE UNIQUE INDEX fac_i_fac_bookmark1 ON fac_bookmark(fac_bookmark_id);
+
 CREATE UNIQUE INDEX fac_i_fac_gebruikersgroep1 ON fac_gebruikersgroep(prs_perslid_key, fac_groep_key);
 
 CREATE INDEX fac_i_fac_selectie1  ON fac_selectie(fac_selectie_node,fac_selectie_tabel);
 
+create index fac_i_fac_result1 on fac_result(fac_result_sessionid);
+
 CREATE UNIQUE INDEX fac_i_fac_profielwaarde1 ON fac_profielwaarde (fac_profiel_key, ins_discipline_key);
 
 create index fac_i_fac_perfmon_sample1 on fac_perfmon_sample(fac_perfmon_sample_datum);
@@ -19,6 +26,9 @@ 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);
+
+CREATE UNIQUE INDEX fac_i_fac_sequence1 ON fac_sequence(fac_sequence_name);
 
 CREATE UNIQUE INDEX fac_i_fac_import_app1
    ON fac_import_app (fac_import_app_code,
@@ -27,15 +37,29 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
                       fac_import_app_prefix);
 
 CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
-CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key);
+CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
+-- Maakt opruimen efficienter:
+CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key, fac_import_key);
 
 CREATE INDEX fac_i_tracking_refkey1 ON fac_tracking(fac_tracking_refkey);
 CREATE INDEX fac_i_tracking_perslidkey1 ON fac_tracking(prs_perslid_key);
 CREATE INDEX fac_i_tracking_srtnotkey1 ON fac_tracking(fac_srtnotificatie_key);
 
 CREATE INDEX fac_i_imp_factuur1 ON fac_imp_factuur (ordernr);
+CREATE INDEX fac_i_imp_factuur2 ON fac_imp_factuur (fac_import_key);
 
 CREATE UNIQUE INDEX fac_i_fac_locale_xref1 ON fac_locale_xref (fac_locale_xref_filepath, fac_locale_xsl_key);
 
 CREATE UNIQUE INDEX fac_i_fac_code2label ON fac_code2label (fac_code2label_domein, fac_code2label_code);
+
+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);
+
 REGISTERONCE('$Id$')

FAC/FAC_LCLMDL.csv

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

FAC/FAC_PACA.SRC

@@ -0,0 +1,46 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+/*  FAC_PACA, (A means Audit) to be included from fac_pac.src, isolated for convenience only
+ *  The Audit-package source. Contains all functions for audit.
+ *
+ *  Usage: aud.auditaction(...);
+ *
+ */
+
+
+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);
+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)
+   IS
+   BEGIN
+      IF COALESCE(waarde_oud, 'bUSnDIaVjRS56D3z') <> COALESCE(waarde_nieuw, 'bUSnDIaVjRS56D3z')
+      THEN
+         INSERT INTO fac_audit (fac_audit_tabelnaam,
+                                fac_audit_tabelkey,
+                                fac_audit_veldnaam,
+                                fac_audit_actie,
+                                fac_audit_waarde_oud,
+                                fac_audit_waarde_nieuw,
+                                prs_perslid_key,
+                                fac_audit_opmerking)
+                        VALUES (tabelnaam,
+                                COALESCE(tabelkey_nieuw, tabelkey_oud),
+                                veldnaam,
+                                CASE WHEN isdeleting = 1 OR SUBSTR(veldnaam, -9) = 'verwijder' THEN 'D' ELSE 'U' END,
+                                waarde_oud,
+                                waarde_nieuw,
+                                sys_context('USERENV', 'CLIENT_IDENTIFIER'),
+                                opmerk);
+      END IF;
+   END;
+END aud;
+/
+
+REGISTERRUN('$Id$')

FAC/FAC_PACFLEX.SRC

@@ -0,0 +1,511 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+/*  FAC_PACFLEX
+ *
+ *  Contains all functions for flex values.
+ *
+ */
+
+CREATE OR REPLACE PACKAGE flx
+AS
+    PROCEDURE gettableinf (pmodule            IN OUT  VARCHAR2,
+                           o_ktable           OUT VARCHAR2,  -- Naam kenmerk tabel
+                           o_ktable_kdefault  OUT VARCHAR2,
+                           o_kvtable          OUT VARCHAR2,  -- Naam kenmerk waarden tabel
+                           o_kvtable_refkey   OUT VARCHAR2,
+                           o_kvtable_kniveau  OUT VARCHAR2,
+                           o_kvtable_kwaarde  OUT VARCHAR2,
+                           o_kvtable_kkey     OUT VARCHAR2,
+                           o_kvtable_kdelete  OUT VARCHAR2
+                        );
+    FUNCTION getflex (pmodule IN VARCHAR2,
+                      p_kenmerk_key   IN NUMBER,
+                      p_ref_key       IN NUMBER,
+                      p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+    PROCEDURE setflex (pmodule IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_waarde        IN VARCHAR2);
+    PROCEDURE setflex (pmodule IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_niveau        IN VARCHAR2,
+                       p_waarde        IN VARCHAR2);
+    PROCEDURE deleteflex (pmodule IN VARCHAR2,
+                          p_kenmerk_key   IN NUMBER,
+                          p_ref_key       IN NUMBER,
+                          p_niveau        IN VARCHAR2);
+    FUNCTION getflexexpression (pmodule IN VARCHAR2,
+                                p_kenmerk_key   IN NUMBER,
+                                p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+    FUNCTION getdomeinwaarde (dkey IN NUMBER,
+                              waarde IN VARCHAR2,
+                              ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
+    PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER);
+END flx;
+/
+
+
+CREATE OR REPLACE PACKAGE BODY flx
+AS
+    PROCEDURE gettableinf (pmodule            IN OUT  VARCHAR2,
+                           o_ktable           OUT VARCHAR2,  -- Naam kenmerk tabel
+                           o_ktable_kdefault  OUT VARCHAR2,
+                           o_kvtable          OUT VARCHAR2,  -- Naam kenmerk waarden tabel
+                           o_kvtable_refkey   OUT VARCHAR2,
+                           o_kvtable_kniveau  OUT VARCHAR2,
+                           o_kvtable_kwaarde  OUT VARCHAR2,
+                           o_kvtable_kkey     OUT VARCHAR2,
+                           o_kvtable_kdelete  OUT VARCHAR2
+                        )
+    AS
+       l_module          VARCHAR2 (3);
+    BEGIN
+       l_module := pmodule;
+       o_kvtable_kniveau := NULL;
+       CASE
+          WHEN pmodule = 'ALG'
+          THEN o_kvtable       := 'alg_onrgoedkenmerk';
+               o_kvtable_refkey  := 'alg_onrgoed_key';
+               o_kvtable_kniveau := 'alg_onrgoed_niveau';
+          WHEN pmodule = 'BEZ'
+          THEN o_kvtable       := 'bez_kenmerkwaarde';
+               o_kvtable_refkey  := 'bez_bezoekers_key';
+          WHEN pmodule = 'BES'
+          THEN o_kvtable       := 'bes_kenmerkbestell';
+               o_kvtable_refkey  := 'bes_bestelling_key';
+          WHEN pmodule = 'CNT'
+          THEN o_kvtable       := 'cnt_kenmerkcontract';
+               o_kvtable_refkey  := 'cnt_contract_key';
+          WHEN pmodule = 'FAQ'
+          THEN o_kvtable       := 'faq_kenmerkwaarde';
+               o_kvtable_refkey  := 'fac_faq_key';
+          WHEN pmodule = 'FIN'
+          THEN o_kvtable       := 'fin_kenmerkfactuur';
+               o_kvtable_refkey  := 'fin_factuur_key';
+          WHEN pmodule = 'CIL' OR pmodule = 'SLE'
+          THEN o_kvtable       := 'ins_kenmerkdeel';
+               o_kvtable_refkey  := 'ins_deel_key';
+          WHEN pmodule = 'INS'
+          THEN o_kvtable       := 'ins_kenmerkdeel';
+               o_kvtable_refkey  := 'ins_deel_key';
+          WHEN pmodule = 'MLD'
+          THEN o_kvtable       := 'mld_kenmerkmelding';
+               o_kvtable_refkey  := 'mld_melding_key';
+          WHEN pmodule = 'OPD'
+          THEN o_kvtable       := 'mld_kenmerkopdr';
+               o_kvtable_refkey  := 'mld_opdr_key';
+               l_module          := 'MLD';
+          WHEN pmodule = 'PRS'
+          THEN o_kvtable       := 'prs_kenmerklink';
+               o_kvtable_refkey  := 'prs_link_key';
+               o_kvtable_kniveau := 'prs_kenmerklink_niveau';
+          WHEN pmodule = 'RES'
+          THEN o_kvtable       := 'res_kenmerkwaarde';
+               o_kvtable_refkey  := 'res_rsv_ruimte_key';
+       END CASE;
+
+       IF l_module = 'RES'
+       THEN o_kvtable_kwaarde := 'res_kenmerkreservering_waarde'; -- RES is uitzondering
+       ELSE o_kvtable_kwaarde := o_kvtable || '_waarde';
+       END IF;
+
+       o_ktable          := l_module || '_kenmerk';
+       o_ktable_kdefault := l_module || '_kenmerk_default';
+       o_kvtable_kkey    := l_module || '_kenmerk_key';
+       o_kvtable_kdelete := o_kvtable || '_verwijder';
+    END;
+
+    FUNCTION getflex (pmodule IN VARCHAR2,
+                      p_kenmerk_key   IN NUMBER,
+                      p_ref_key       IN NUMBER,
+                      p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+    IS
+    BEGIN
+        RETURN NULL;  -- TODO
+    END;
+
+    PROCEDURE setflex (pmodule         IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_waarde        IN VARCHAR2)
+    AS
+    BEGIN
+        setflex(pmodule, p_kenmerk_key, p_ref_key, NULL, p_waarde);
+    END;
+
+    PROCEDURE setflex (pmodule         IN VARCHAR2,
+                       p_kenmerk_key   IN NUMBER,
+                       p_ref_key       IN NUMBER,
+                       p_niveau        IN VARCHAR2,
+                       p_waarde        IN VARCHAR2)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_kenm            VARCHAR2 (4500);
+       l_sql_insert          VARCHAR2 (4500);
+       l_sql_update          VARCHAR2 (4500);
+       l_sql                 VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_kenm         INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_cursor_upsert       INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_aantal_kenm         NUMBER;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau_col      VARCHAR2 (32) DEFAULT '';
+       l_niveau_val      VARCHAR2 (7)  DEFAULT '';
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       l_sql_kenm := 'SELECT COUNT(*)' ||
+                     '  FROM ' || l_kenmval_tablename ||
+                     ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                     '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                     '   AND ' || l_kcolumnname_delete || ' IS NULL';
+
+       EXECUTE IMMEDIATE l_sql_kenm INTO l_aantal_kenm;
+
+       IF l_aantal_kenm = 0
+       THEN
+          IF p_niveau IS NOT NULL
+          THEN
+             l_niveau_col := ', ' || l_kcolumnname_niveau;
+             l_niveau_val := ', ''' || p_niveau || '''';
+          END IF;
+
+          l_sql_insert := 'INSERT INTO ' || l_kenmval_tablename ||
+                          '           (' || l_kcolumnname_refkey ||
+                          '          , ' || l_kcolumnname_kkey ||
+                          '          , ' || l_kcolumnname_waarde ||
+                                            l_niveau_col ||
+                          '           )' ||
+                          '    VALUES (' || p_ref_key ||
+                          '          , ' || p_kenmerk_key ||
+                          '          , :pwaarde'||
+                                            l_niveau_val ||
+                          '           )';
+          l_sql := l_sql_insert;
+       ELSE
+          l_sql_update := 'UPDATE ' || l_kenmval_tablename ||
+                          '   SET ' || l_kcolumnname_waarde || ' = :pwaarde' ||
+                          ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                          '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                          '   AND ' || l_kcolumnname_delete || ' IS NULL';
+          l_sql := l_sql_update;
+       END IF;
+
+       DBMS_SQL.parse (l_cursor_upsert, l_sql, DBMS_SQL.native);
+       DBMS_SQL.BIND_VARIABLE(l_cursor_upsert,':pwaarde', p_waarde);
+       l_rowsprocessed := DBMS_SQL.execute (l_cursor_upsert);
+       DBMS_SQL.close_cursor(l_cursor_upsert);
+    END;
+
+    PROCEDURE deleteflex (pmodule IN VARCHAR2,
+                          p_kenmerk_key   IN NUMBER,
+                          p_ref_key       IN NUMBER,
+                          p_niveau        IN VARCHAR2)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_delete          VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_delete       INTEGER DEFAULT DBMS_SQL.open_cursor;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau          VARCHAR2 (40);
+
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       IF l_kcolumnname_niveau IS NOT NULL
+       THEN
+          l_niveau := ' AND ' || l_kcolumnname_niveau || ' = ''' || p_niveau || '''';
+       ELSE
+          l_niveau := '';
+       END IF;
+
+       l_sql_delete := 'DELETE FROM ' || l_kenmval_tablename ||
+                       ' WHERE ' || l_kcolumnname_refkey || ' = ' || p_ref_key ||
+                       '   AND ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key ||
+                       '   AND ' || l_kcolumnname_delete || ' IS NULL' ||
+                       l_niveau;
+       DBMS_SQL.parse (l_cursor_delete, l_sql_delete, DBMS_SQL.native);
+
+       l_rowsprocessed := DBMS_SQL.execute (l_cursor_delete);
+       DBMS_SQL.close_cursor(l_cursor_delete);
+    END;
+
+    FUNCTION getflexexpression (pmodule IN VARCHAR2,
+                                p_kenmerk_key   IN NUMBER,
+                                p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+    IS
+       l_module              VARCHAR2 (3);
+       l_sql_expr            VARCHAR2 (4500);
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_expr                VARCHAR2 (4000);
+    BEGIN
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       -- Expressie opvragen uit de default waarde uit de kenmerk tabel.
+       l_sql_expr := 'SELECT (SUBSTR (' || l_kcolumnname_default || ', 9))' ||
+                     '  FROM ' || l_kenmerk_tablename ||
+                     ' WHERE ' || l_kcolumnname_kkey || ' = ' || p_kenmerk_key;
+
+       EXECUTE IMMEDIATE l_sql_expr INTO l_expr;
+
+       RETURN l_expr;
+    END;
+
+    FUNCTION getdomeinwaarde (dkey IN NUMBER, waarde IN VARCHAR2, ignorewhenxmlnode IN NUMBER DEFAULT 0)
+       RETURN VARCHAR2
+    IS
+       sresult     VARCHAR2 (255);
+       kolomnaam   fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
+       kolomtxt    fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
+       objectnaam  fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
+       xmlnode     fac_kenmerkdomein.fac_kenmerkdomein_xmlnode%TYPE;
+       resultvalue VARCHAR2 (1000);
+    BEGIN
+       IF waarde IS NULL
+       THEN
+          resultvalue := NULL;                                                                             -- gauw klaar mee
+       ELSE
+          SELECT   rsk.fac_kenmerkdomein_kolomnaam,
+                   rsk.fac_kenmerkdomein_kolomtxt,
+                   rsk.fac_kenmerkdomein_objectnaam,
+                   rsk.fac_kenmerkdomein_xmlnode
+            INTO   kolomnaam,
+                   kolomtxt,
+                   objectnaam,
+                   xmlnode
+            FROM   fac_kenmerkdomein rsk
+           WHERE   rsk.fac_kenmerkdomein_key = dkey;
+          IF (xmlnode IS NOT NULL AND ignorewhenxmlnode = 1)
+          THEN
+             RETURN waarde;
+          END IF;
+          -- Optimalisatie: meestal is het dezelfde query op de usrdata-tabel
+          -- Dan hoeven we niet te bouwen en steeds te parsen (FSN#25653)
+          IF kolomtxt = 'FAC_USRDATA_OMSCHR'
+             AND objectnaam = 'FAC_USRDATA'
+             AND kolomnaam = 'FAC_USRDATA_KEY'
+          THEN
+            SELECT fac_usrdata_omschr
+              INTO resultvalue
+              FROM fac_usrdata
+             WHERE fac_usrdata_key = fac.safe_to_number(waarde);
+          ELSE
+             sresult := 'SELECT MIN(' || kolomtxt || ') FROM ' || objectnaam || ' WHERE ' || kolomnaam || ' = :bd_waarde';
+             EXECUTE IMMEDIATE sresult INTO resultvalue USING waarde;
+          END IF;
+       END IF;
+       RETURN resultvalue;
+    END;
+
+    PROCEDURE evaluateflexexpressions (pmodule IN VARCHAR2, prefkey IN NUMBER, puserkey IN NUMBER, psavetodb IN NUMBER)
+    AS
+       l_module              VARCHAR2 (3);
+       l_sql_exprval         VARCHAR2 (4500);
+       l_rowsprocessed       NUMBER DEFAULT 0;
+       l_cursor_exprval      NUMBER;  -- INTEGER DEFAULT DBMS_SQL.open_cursor;
+       l_desctab             DBMS_SQL.desc_tab;
+       l_colcnt              NUMBER;
+       l_expr                VARCHAR2 (4000);
+       l_exprval             VARCHAR2 (4000);
+       l_exprval_num         NUMBER;
+       l_exprval_date        DATE;
+       l_cntbind             NUMBER;
+       l_cnt                 NUMBER;
+       l_bvar                VARCHAR2 (1000);
+       l_rflex               VARCHAR2 (1000) DEFAULT '(\:flex[0-9_]+)'; -- supports ':flex111 = ''538'''
+       l_kenmerkwaarde       fac_kenmwaarden.fac_kenmwaarden_waarde%TYPE;
+       l_kenmerkw_date       DATE;
+       l_kenmerkw_num        NUMBER;
+       l_kenmerktype         fac_kenmwaarden.fac_kenmwaarden_kenmerktype%TYPE;
+       l_kenmerk_key         fac_kenmwaarden.fac_kenmwaarden_kenmerk_key%TYPE;
+
+       l_kenmerk_tablename   VARCHAR2 (30);
+       l_kenmval_tablename   VARCHAR2 (30);
+       l_kcolumnname_refkey  VARCHAR2 (30);
+       l_kcolumnname_niveau  VARCHAR2 (30);
+       l_kcolumnname_waarde  VARCHAR2 (30);
+       l_kcolumnname_default VARCHAR2 (30);
+       l_kcolumnname_kkey    VARCHAR2 (30);
+       l_kcolumnname_delete  VARCHAR2 (30);
+
+       l_niveau_val          VARCHAR2 (1)  DEFAULT '';
+
+       CURSOR c_expressions
+       IS
+          SELECT fac_kenmwaarden_kenmerk_key,
+                 fac_kenmwaarden_kenmerktype,
+                 fac_kenmwaarden_niveau
+            FROM fac_kenmwaarden
+           WHERE fac_kenmwaarden_module = pmodule
+             AND fac_kenmwaarden_refkey = prefkey
+             AND prs_perslid_key = puserkey
+             AND fac_kenmwaarden_isexpr = 1
+           ORDER BY fac_kenmwaarden_key;
+
+    BEGIN
+
+       l_module := pmodule;
+       flx.gettableinf (l_module, l_kenmerk_tablename, l_kcolumnname_default, l_kenmval_tablename, l_kcolumnname_refkey, l_kcolumnname_niveau, l_kcolumnname_waarde, l_kcolumnname_kkey, l_kcolumnname_delete);
+
+       FOR expr IN c_expressions
+       LOOP
+          l_cursor_exprval := DBMS_SQL.open_cursor;
+          -- Expressie opvragen.
+          l_expr := flx.getflexexpression(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
+
+          l_sql_exprval := 'SELECT ' || '(' || l_expr || ')' || '  FROM DUAL';
+
+          DBMS_SQL.parse (l_cursor_exprval, l_sql_exprval, DBMS_SQL.native);
+
+
+          --DBMS_SQL.describe_columns(l_cursor_exprval, l_colcnt, l_desctab);
+
+          IF expr.fac_kenmwaarden_kenmerktype = 'N'
+          THEN
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num);
+          ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
+          THEN
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_date);
+          ELSE
+             DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval, 4000);
+          END IF;
+
+          l_cntbind := REGEXP_COUNT (l_sql_exprval,
+                                     l_rflex,
+                                     1,
+                                     'i');
+
+          FOR l_cnt IN 1 .. l_cntbind
+          LOOP
+             l_bvar := REGEXP_SUBSTR (l_sql_exprval,
+                                      l_rflex,
+                                      1,
+                                      l_cnt,
+                                      'i');
+
+             l_kenmerk_key := TO_NUMBER (SUBSTR (l_bvar, 6));
+
+             BEGIN
+                SELECT fac_kenmwaarden_waarde,
+                       fac_kenmwaarden_kenmerktype
+                  INTO l_kenmerkwaarde,
+                       l_kenmerktype
+                  FROM fac_kenmwaarden
+                 WHERE fac_kenmwaarden_module = l_module
+                   AND fac_kenmwaarden_refkey = prefkey
+                   AND prs_perslid_key = puserkey
+                   AND fac_kenmwaarden_kenmerk_key = l_kenmerk_key;
+             EXCEPTION
+                WHEN NO_DATA_FOUND
+                THEN
+                   l_kenmerkwaarde := NULL;
+                   l_kenmerktype := NULL;
+             END;
+
+             -- Als <20><>n van de flexkenmerken NULL is, dan met die waarde verder rekenen. Waarde kan bewust NULL zijn
+             CASE l_kenmerktype
+                WHEN 'D'
+                THEN
+                   l_kenmerkw_date := TO_DATE(l_kenmerkwaarde, 'DD-MM-YYYY');
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_date);
+                WHEN 'N'
+                THEN
+                   l_kenmerkw_num := TO_NUMBER(l_kenmerkwaarde);
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkw_num);
+                ELSE
+                   DBMS_SQL.bind_variable (l_cursor_exprval, l_bvar, l_kenmerkwaarde);
+             END CASE;
+          END LOOP;
+
+          l_rowsprocessed := DBMS_SQL.execute_and_fetch (l_cursor_exprval);
+
+          IF expr.fac_kenmwaarden_kenmerktype = 'N'
+          THEN
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_num);
+             l_exprval := TO_CHAR(l_exprval_num);
+          ELSIF expr.fac_kenmwaarden_kenmerktype = 'D'
+          THEN
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval_date);
+             l_exprval := TO_CHAR(l_exprval_date, 'DD-MM-YYYY');
+          ELSE
+             DBMS_SQL.column_value (l_cursor_exprval, 1, l_exprval);
+          END IF;
+
+
+          IF l_kcolumnname_niveau IS NOT NULL
+          THEN
+             IF psavetodb = 1
+             THEN
+               -- Waarde opslaan in de database
+               flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, expr.fac_kenmwaarden_niveau, l_exprval);
+             END IF;
+
+             -- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
+             -- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
+             UPDATE fac_kenmwaarden
+                SET fac_kenmwaarden_waarde = l_exprval
+              WHERE fac_kenmwaarden_module = pmodule
+                AND fac_kenmwaarden_refkey = prefkey
+                AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
+                AND fac_kenmwaarden_niveau = expr.fac_kenmwaarden_niveau
+                AND prs_perslid_key = puserkey
+                AND fac_kenmwaarden_isexpr = 1;
+          ELSE
+             IF psavetodb = 1
+             THEN
+               -- Waarde opslaan in de database
+               flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, l_exprval);
+             END IF;
+
+             -- Waarde van de expressie flexkenmerk in de tijdelijke kenmerk waarden tabel (fac_kenmwaarden) vullen met de nieuwe waarde.
+             -- Expressie flexkenmerken die afhankelijke zijn van andere expressie flexkenmerken worden dan ook goed berekend.
+             UPDATE fac_kenmwaarden
+                SET fac_kenmwaarden_waarde = l_exprval
+              WHERE fac_kenmwaarden_module = pmodule
+                AND fac_kenmwaarden_refkey = prefkey
+                AND fac_kenmwaarden_kenmerk_key = expr.fac_kenmwaarden_kenmerk_key
+                AND prs_perslid_key = puserkey
+                AND fac_kenmwaarden_niveau IS NULL
+                AND fac_kenmwaarden_isexpr = 1;
+          END IF;
+
+         DBMS_SQL.close_cursor(l_cursor_exprval);
+       END LOOP;
+    END;
+
+END flx;
+/
+REGISTERRUN('$Id$')

FAC/FAC_PACL.SRC

@@ -22,14 +22,18 @@ AS
 
    PROCEDURE setuserlanguage (flcode IN VARCHAR2);
 
+   PROCEDURE setdatabaselanguage (flcode IN VARCHAR2);
+
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2;
 
-   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
+   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
       RETURN VARCHAR2;
 
-   FUNCTION L (pnaam IN VARCHAR2)
+   FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2;
+
+   PROCEDURE fallback_languages;
 END lcl;
 /
 
@@ -42,11 +46,17 @@ AS
       userlang   VARCHAR2 (10);
    BEGIN
       -- Bepaalt de applicatietaal van de user zoals vanuit ASP gezet
+      -- Links is wat Oracle teruggeeft, rechts wat ISO-639 vindt (onze keuze)
       userlang := SYS_CONTEXT ('userenv', 'LANG');
       RETURN CASE userlang
+                WHEN 'NL' THEN 'NL'
                 WHEN 'GB' THEN 'EN'
-                WHEN 'D' THEN 'DE'
-                WHEN 'F' THEN 'FR'
+                WHEN 'D'  THEN 'DE'
+                WHEN 'F'  THEN 'FR'
+                WHEN 'S'  THEN 'SV'
+                WHEN 'N'  THEN 'NO'
+                WHEN 'DK' THEN 'DA'
+                WHEN 'SF' THEN 'FI'
                 ELSE userlang
              END;
    END;
@@ -55,7 +65,7 @@ AS
    AS
       nlslang   VARCHAR2 (30);
       setsql    VARCHAR2 (60);
-      lflcode   VARCHAR2 (3);  -- locale kopie
+      lflcode   VARCHAR2 (10);  -- locale kopie
    BEGIN
       -- Zet de sessie in de juiste taal, gegeven de FACILITOR-tweeletterige taalcode
 
@@ -67,7 +77,7 @@ AS
           INTO lflcode
           FROM fac_version;
       ELSE
-        lflcode := flcode;
+        lflcode := SUBSTR(flcode, 1, 10);
       END IF;
 
 
@@ -86,6 +96,18 @@ AS
          WHEN 'FR'
          THEN
             nlslang := 'FRENCH';
+         WHEN 'SV'
+         THEN
+            nlslang := 'SWEDISH';
+         WHEN 'NO'
+         THEN
+            nlslang := 'NORWEGIAN';
+         WHEN 'DA'
+         THEN
+            nlslang := 'DANISH';
+         WHEN 'FI'
+         THEN
+            nlslang := 'FINNISH';
          ELSE
             nlslang := 'DUTCH';
       END CASE;
@@ -95,6 +117,15 @@ AS
       EXECUTE IMMEDIATE setsql;
    END;
 
+   /* Let op dat ASP-code mogelijk ook nog cache't. Wijzig een willekeurige setting voor een re-cache */
+   PROCEDURE setdatabaselanguage (flcode IN VARCHAR2)
+   AS
+   BEGIN
+    UPDATE   fac_version
+       SET   fac_version_lang = flcode;
+    fcltdblanguage := flcode; -- Gecachete waarde bijwerken
+   END;
+
    /* levert de vertaalde string op*/
    FUNCTION xl (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, plang IN VARCHAR2)
       RETURN VARCHAR2
@@ -123,7 +154,7 @@ AS
 
 
 
-   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2)
+   FUNCTION x (pnaam IN VARCHAR2, pkey IN NUMBER, pdefault IN VARCHAR2, pautolcl IN NUMBER DEFAULT 1)
       RETURN VARCHAR2
    AS
       requiredlang fac_version.fac_version_lang%TYPE;
@@ -147,15 +178,26 @@ AS
          retval := lcl.xl (pnaam, pkey, pdefault, requiredlang);
       END IF;
 
+      --  Voor lcl_noti_* maar verder generiek
+      IF pautolcl = 1 THEN
+         retval := lcl.L(retval, pautolcl);
+      END IF;
+
       RETURN retval;
    END;
 
    -- Oracle variant van de ASP-L functie
-   FUNCTION L (pnaam IN VARCHAR2)
+   -- Geef pautolcl=1 mee als je niet zeker weet of het een lcl is
+   FUNCTION L (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
       RETURN VARCHAR2
    AS
       retval VARCHAR2(2000); --fac_locale.fac_locale_tekst%TYPE;
    BEGIN
+      --  Voor lcl_noti_* maar verder generiek
+      IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
+        RETURN pnaam;
+      END IF;
+
       SELECT COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst)
         INTO retval
         FROM fac_locale_xsl
@@ -166,6 +208,95 @@ AS
       RETURN retval;
    END;
 
-END lcl;
+   PROCEDURE fallback_languages
+   AS
+   BEGIN
+      -- Eerst: missende LCL's aanmaken vanuit NL (die ik compleet veronderstel)
+      -- Eerder ggeimporteerde talen zijn mogelijk niet compleet namelijk
+      FOR c_lang IN (SELECT DISTINCT (fac_locale_xsl_lang) lang
+                       FROM fac_locale_xsl
+                      WHERE fac_locale_xsl_lang <> 'NL')
+      LOOP
+         DBMS_OUTPUT.PUT_LINE ('Updating language ' || c_lang.lang);
+
+         INSERT INTO fac_locale_xsl (fac_locale_xsl_lang,
+                                     fac_locale_xsl_module,
+                                     fac_locale_xsl_label,
+                                     fac_locale_xsl_tekst,
+                                     fac_locale_xsl_isvalid)
+            SELECT c_lang.lang,
+                   fac_locale_xsl_module,
+                   fac_locale_xsl_label,
+                   '@@',
+                   0
+              FROM fac_locale_xsl x2
+             WHERE fac_locale_xsl_lang = 'NL'
+                   AND NOT EXISTS
+                         (SELECT 1
+                            FROM fac_locale_xsl x3
+                           WHERE x3.fac_locale_xsl_lang = c_lang.lang
+                                 AND x2.fac_locale_xsl_label =
+                                       x3.fac_locale_xsl_label
+                                 AND x2.fac_locale_xsl_module =
+                                       x3.fac_locale_xsl_module);
+      END LOOP;
+
+      -- Dan: Engelstalig terugvallen op de database taal (of NL)
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang =
+                              COALESCE((SELECT fac_version_lang FROM fac_version), 'NL'))
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              OR fac_locale_xsl_tekst = '@'
+              OR fac_locale_xsl_tekst = '@@')
+             AND fac_locale_xsl_lang = 'EN';
+
+      -- Dan: Nu nog steeds missende Engelstalig echt terugvallen op NL. Altijd beter dan '@@'
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang = 'NL')
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              OR fac_locale_xsl_tekst = '@'
+              OR fac_locale_xsl_tekst = '@@')
+             AND fac_locale_xsl_lang = 'EN';
+
+      -- Daarna: Alle andere talen terugvallen op Engelstalig
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 0,
+             fac_locale_xsl_tekst =
+                (SELECT fac_locale_xsl_tekst
+                   FROM fac_locale_xsl flx2
+                  WHERE flx1.fac_locale_xsl_label = flx2.fac_locale_xsl_label
+                        AND flx1.fac_locale_xsl_module =
+                              flx2.fac_locale_xsl_module
+                        AND fac_locale_xsl_lang = 'EN')
+       WHERE (   fac_locale_xsl_isvalid = 0
+              OR fac_locale_xsl_tekst IS NULL
+              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 allerlaatst: lege teksten zijn altijd valid
+      UPDATE fac_locale_xsl flx1
+         SET fac_locale_xsl_isvalid = 1
+       WHERE fac_locale_xsl_tekst IS NULL;
+   END;
+
+   END lcl;
 /
 REGISTERRUN('$Id$')

FAC/FAC_SEQ.SRC

@@ -7,6 +7,7 @@ CREATE SEQUENCE fac_s_fac_functie_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrtab_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrdata_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrrap_key            MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_usrrap_cols_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_usrgraph_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_mgtrap_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_groep_key             MINVALUE 1;
@@ -31,16 +32,24 @@ CREATE SEQUENCE fac_s_fac_nieuws_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;
-CREATE SEQUENCE fac_s_fac_locale_mgt_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_locale_xsl_key        MINVALUE 1;
 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_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_audit_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;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_TAB.SRC

@@ -66,21 +66,6 @@ CREATE_TABLE (fac_rapport,0)
     CONSTRAINT fac_u_fac_rapport UNIQUE(fac_rapport_node, fac_rapport_volgnr, fac_rapport_soort)
 );
 
-CREATE_TABLE (fac_error,0)
-(
-    fac_error_code
-        NUMBER
-);
-
-/* Used for reporting system procedure errorlogging (for conversions, imports etc)*/
-CREATE_TABLE(fac_errorlog,0)
-(
-  recno      NUMBER (10),
-  rec_table  VARCHAR2 (32),
-  descript   VARCHAR2 (1024)
-);
-
-
 /* Tabel waarin de keys voor de multi_selectie worden bewaard. */
 CREATE_TABLE(fac_selectie, 0)
 (
@@ -103,6 +88,8 @@ CREATE_TABLE(fac_functie, 0)
     fac_functie_code
         VARCHAR2(10)
         NOT_NULL(fac_functie_code, fac_c_fac_functie_code),
+    fac_functie_volgnr
+        NUMBER(10),
     fac_functie_omschrijving
         VARCHAR2(30)
         NOT_NULL(fac_functie_omschrijving, fac_c_fac_functie_omschrijving),
@@ -117,7 +104,7 @@ CREATE_TABLE(fac_functie, 0)
         DEFAULT 0
         NOT_NULL(fac_functie_discipline, fac_c_fac_functie_discipline),
     fac_functie_info
-        VARCHAR2(100),
+        VARCHAR2(320),
     CONSTRAINT fac_u_fac_functie UNIQUE(fac_functie_code)
 );
 
@@ -133,10 +120,15 @@ CREATE_TABLE(fac_groep, 0)
     fac_groep_upper
         VARCHAR2(30),
 --        CONSTRAINT fac_c_fac_groep_upper CHECK(fac_groep_upper IS NOT NULL),
+    fac_groep_collega
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
     fac_groep_aanmaak
         DATE
         DEFAULT SYSDATE
         CONSTRAINT fac_c_fac_groep_aanmaak NOT NULL,
+    fac_groep_opmerking
+        VARCHAR2(320),
     CONSTRAINT fac_u_fac_groep_upper UNIQUE(fac_groep_upper)
 );
 
@@ -148,35 +140,41 @@ CREATE_TABLE(fac_gebruikersgroep, 0)
     fac_groep_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_groep_key REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE
-        CONSTRAINT fac_c_fac_groep_key CHECK(fac_groep_key IS NOT NULL)
+        CONSTRAINT fac_c_fac_groep_key CHECK(fac_groep_key IS NOT NULL),
 // Note: this column is defined in PRS_TAB.SRC
-//    ,prs_perslid_key
+//    prs_perslid_key
 //        NUMBER(10)
 //        CONSTRAINT fac_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
-//        CONSTRAINT fac_c_prs_perslid_key CHECK(prs_perslid_key IS NOT NULL)
+//        CONSTRAINT fac_c_prs_perslid_key CHECK(prs_perslid_key IS NOT NULL),
+    fac_gebruikersgroep_aanmaak
+        DATE
+        DEFAULT SYSDATE
 );
 
 CREATE_TABLE(fac_groeprechten, 0)
 (
-  fac_groeprechten_key
-    NUMBER(10)
-    CONSTRAINT fac_k_groeprechten_key PRIMARY KEY,
-  fac_groep_key
-    NUMBER(10)
-    NOT_NULL(fac_groep_key, fac_c_fac_groep_key2)
-    CONSTRAINT fac_r_groeprechten_groep REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE,
-  fac_functie_key
-    NUMBER(10)
-    NOT_NULL(fac_functie_key, fac_c_fac_functie_key1)
-    CONSTRAINT fac_r_groeprechten_functie REFERENCES fac_functie(fac_functie_key) ON DELETE CASCADE,
-  ins_discipline_key
-    NUMBER(10)
-    /* defined in ins_tab.src: CONSTRAINT fac_r_groeprechten_disc REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE */,
-  fac_gebruiker_prs_level_read   NUMBER(1),
-  fac_gebruiker_alg_level_read   NUMBER(1),
-  fac_gebruiker_prs_level_write  NUMBER(1),
-  fac_gebruiker_alg_level_write  NUMBER(1),
-  CONSTRAINT fac_u_fac_groeprechten UNIQUE(FAC_GROEP_KEY, FAC_FUNCTIE_KEY, INS_DISCIPLINE_KEY)
+    fac_groeprechten_key
+        NUMBER(10)
+        CONSTRAINT fac_k_groeprechten_key PRIMARY KEY,
+    fac_groep_key
+        NUMBER(10)
+        NOT_NULL(fac_groep_key, fac_c_fac_groep_key2)
+        CONSTRAINT fac_r_groeprechten_groep REFERENCES fac_groep(fac_groep_key) ON DELETE CASCADE,
+    fac_functie_key
+        NUMBER(10)
+        NOT_NULL(fac_functie_key, fac_c_fac_functie_key1)
+        CONSTRAINT fac_r_groeprechten_functie REFERENCES fac_functie(fac_functie_key) ON DELETE CASCADE,
+    ins_discipline_key
+        NUMBER(10)
+        /* defined in ins_tab.src: CONSTRAINT fac_r_groeprechten_disc REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE */,
+    fac_gebruiker_prs_level_read   NUMBER(1),
+    fac_gebruiker_alg_level_read   NUMBER(1),
+    fac_gebruiker_prs_level_write  NUMBER(1),
+    fac_gebruiker_alg_level_write  NUMBER(1),
+    fac_groeprechten_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    CONSTRAINT fac_u_fac_groeprechten UNIQUE(FAC_GROEP_KEY, FAC_FUNCTIE_KEY, INS_DISCIPLINE_KEY)
 );
 
 
@@ -200,6 +198,11 @@ CREATE_TABLE(fac_usrtab, 0)
         DATE
         DEFAULT SYSDATE
         NOT_NULL(fac_usrtab_aanmaak, fac_c_fac_usrtab_aanmaak),
+    fac_usrtab_verwijder
+        DATE,
+    fac_functie_key  /* optional required authorisation for editing, implies WEB_PRSSYS if NULL */
+        NUMBER(10)
+        CONSTRAINT fac_r_usrtab_functie REFERENCES fac_functie(fac_functie_key) ON DELETE SET NULL,
     CONSTRAINT fac_u_fac_usrtab_object UNIQUE(fac_usrtab_object)
 );
 
@@ -235,7 +238,7 @@ CREATE_TABLE(fac_usrdata, 0)
         NOT_NULL(fac_usrdata_aanmaak, fac_c_fac_usrdata_aanmaak),
     fac_usrdata_verwijder
         DATE,
-    CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrdata_upper, fac_usrtab_key, fac_usrdata_verwijder)
+    CONSTRAINT fac_u_fac_usrdata_upper UNIQUE(fac_usrtab_key, fac_usrdata_upper, fac_usrdata_verwijder)
 );
 
 /*
@@ -256,19 +259,11 @@ CREATE_TABLE(fac_usrrap, 0)
     fac_usrrap_view_name
         VARCHAR2(32)
         NOT_NULL(fac_usrrap_view_name, fac_c_fac_usrrap_view_name),
-    fac_usrrap_in_huidige_locatie
-        VARCHAR2(1)
-        CONSTRAINT fac_c_fac_usrrap_locatie CHECK (fac_usrrap_in_huidige_locatie = 0
-                                                OR fac_usrrap_in_huidige_locatie = 1),
+    fac_usrrap_col_refresh
+        DATE,
     fac_usrrap_aanmaak
         DATE
         DEFAULT SYSDATE,
-    fac_usrrap_template
-        VARCHAR2(32)
-        DEFAULT NULL,
-    fac_usrrap_macro
-        VARCHAR2(32)
-        DEFAULT NULL,
     fac_usrrap_vraagbegindatum
         NUMBER(1)
         DEFAULT 0,
@@ -276,18 +271,98 @@ CREATE_TABLE(fac_usrrap, 0)
         NUMBER(1)
         DEFAULT 0,
     fac_usrrap_functie
-        NUMBER(1)
+        NUMBER(3)
         DEFAULT 0,
     fac_usrrap_info
         VARCHAR2(100),
         CONSTRAINT fac_u_fac_usrrap UNIQUE(fac_usrrap_omschrijving),
+    fac_usrrap_urllink
+        VARCHAR2(100)
+        DEFAULT NULL,
+    fac_usrrap_groep
+        VARCHAR2(40)
+        DEFAULT NULL,
     fac_usrrap_autorefresh
         NUMBER(1)
         DEFAULT 0
         CONSTRAINT fac_c_fac_usrrap_refresh CHECK (fac_usrrap_autorefresh IN (0,1)),
-    FAC_FUNCTIE_KEY
+    fac_usrrap_count
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_count CHECK (fac_usrrap_count IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_ratio
+        NUMBER(1)
+        DEFAULT 1
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_ratio CHECK (fac_usrrap_ratio IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_pivot
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_pivot CHECK (fac_usrrap_pivot IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_graph
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_graph CHECK (fac_usrrap_graph IN (0,1,2,3)), // +2 default on, +1 changeable
+    fac_usrrap_cond
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+        CONSTRAINT fac_c_fac_usrrap_cond CHECK (fac_usrrap_cond IN (0,1,2,3)), // 0=AND, 2=OR, +1 changeable
+    fac_functie_key
         NUMBER(10)
-        CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key)
+        CONSTRAINT fac_r_fac_usrrap_functie_key REFERENCES fac_functie(fac_functie_key),
+    fac_usrrap_graph_options // JSON
+        VARCHAR2(4000),
+    fac_usrrap_graph_type
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL
+// Note: this column is defined in PRS_TAB.SRC
+//  , prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT fac_r_prs_perslid_key6 REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE,
+);
+
+// De kolommen van een rapport
+CREATE_TABLE(fac_usrrap_cols, 0)
+(
+    fac_usrrap_cols_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_usrrap_cols_key PRIMARY KEY,
+    fac_usrrap_key
+        NUMBER(10)
+        CONSTRAINT fac_r_usrrap_cols_usrrap_key REFERENCES fac_usrrap(fac_usrrap_key)
+        ON DELETE CASCADE,
+    fac_usrrap_cols_volgnr
+        NUMBER(10),
+    fac_usrrap_cols_column_name
+        VARCHAR2(32)
+        NOT_NULL(fac_usrrap_cols_column_name, fac_c_usrrap_cols_column_name),
+    fac_usrrap_cols_expression
+        VARCHAR2(4000),
+    fac_usrrap_cols_caption
+        VARCHAR2(60),
+    fac_usrrap_cols_filter /* See lcl_rap_filterLOV */
+        VARCHAR2(3),
+    fac_usrrap_cols_filterdefault /* Predefined filterval */
+        VARCHAR2(60),
+    fac_usrrap_cols_datatype
+        VARCHAR2(16)
+        NOT NULL,
+    fac_usrrap_cols_visible
+        VARCHAR2(1)
+        DEFAULT 'V'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_visible CHECK (fac_usrrap_cols_visible IN ('V', 'I', 'H')),
+    fac_usrrap_cols_group
+        VARCHAR2(1)
+        DEFAULT 'G'
+        NOT NULL
+        CONSTRAINT fac_c_usrrap_cols_group CHECK (fac_usrrap_cols_group IN ('G', 'S', 'C', 'A', 'H', 'D', 'W', 'M', 'Q', 'Y')),
+    CONSTRAINT fac_u_fac_usrrap_cols1 UNIQUE(fac_usrrap_key, fac_usrrap_cols_column_name)
 );
 
 CREATE_TABLE(fac_usrgraph, 0)
@@ -355,7 +430,10 @@ CREATE_TABLE(fac_profiel, 0) (
     fac_profiel_omschrijving
         VARCHAR2(30) NOT NULL,
     fac_profiel_limiet
-        NUMBER(8)
+        NUMBER(8),
+    fac_profiel_aanmaak
+        DATE
+        DEFAULT SYSDATE
 );
 
 CREATE_TABLE(fac_profielwaarde, 0) (
@@ -369,7 +447,10 @@ CREATE_TABLE(fac_profielwaarde, 0) (
 --        REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE,
     fac_profielwaarde_limiet
         NUMBER(8)
-        NOT NULL
+        NOT NULL,
+    fac_profielwaarde_aanmaak
+        DATE
+        DEFAULT SYSDATE
 );
 
 CREATE_TABLE(fac_perfmon, 0)
@@ -480,7 +561,13 @@ CREATE_TABLE(fac_srtnotificatie, 0)
   fac_srtnotificatie_groep
     VARCHAR2(1),
   fac_srtnotificatie_delay
-    NUMBER(4)
+    NUMBER(4),
+  fac_srtnotificatie_gebouw
+    NUMBER(1)
+    DEFAULT 0
+    NOT_NULL(fac_srtnotificatie_gebouw, fac_c_fac_srtnotificatie_geb),
+  fac_srtnotificatie_srtkm_key
+    NUMBER(10)
 );
 
 /*
@@ -531,7 +618,9 @@ CREATE_TABLE(fac_notificatie, 0)
   fac_notificatie_lang
     VARCHAR2(3),
   fac_notificatie_systeemadres
-    VARCHAR2(200)
+    VARCHAR2(200),
+  fac_notificatie_attachments   /* comma-separated filenames */
+    VARCHAR2(4000)
 );
 /* Welke notificatiejobs bestaan er
  * Vermelding hierin veroorzaakt periodieke notificaties
@@ -585,6 +674,8 @@ CREATE_TABLE(fac_import_app, 0)
     VARCHAR(320),
   fac_import_app_files
     VARCHAR(32),
+  fac_import_app_loglevel
+    NUMBER(1) DEFAULT 0 NOT NULL,
   fac_import_app_action
     VARCHAR(320) DEFAULT 'ORACLE' NOT NULL
 );
@@ -604,7 +695,11 @@ CREATE_TABLE(fac_import, 0)
   fac_import_filenaam
      VARCHAR2 (256),
   fac_import_versie
-     VARCHAR2(30)
+     VARCHAR2(30),
+  fac_import_refkey
+     NUMBER(10),
+  fac_import_backupdir
+     VARCHAR(320)
 // Note: this column is defined in PRS_TAB.SRC
 //  prs_perslid_key
 //     NUMBER(10)
@@ -614,7 +709,7 @@ CREATE_TABLE(fac_import, 0)
 CREATE_TABLE(imp_log, 0)
 (
   imp_log_key              NUMBER(10) CONSTRAINT imp_k_imp_log_key PRIMARY KEY,
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key2 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   imp_log_applicatie       VARCHAR2(50)
 , imp_log_datum            DATE DEFAULT SYSDATE
 , imp_log_status           VARCHAR2(1)
@@ -641,7 +736,9 @@ CREATE_TABLE(fac_export_app, 0)
   fac_export_app_folder
     VARCHAR(320),
   fac_export_app_prefix
-    VARCHAR2(20),
+    VARCHAR2(4),
+  fac_export_app_file_prefix
+    VARCHAR2(60),
   fac_export_app_postfix
     VARCHAR2(20),
   fac_export_app_log_postfix
@@ -656,7 +753,8 @@ CREATE_TABLE(fac_export_app, 0)
     DATE,
   fac_export_app_aanmaak
     DATE
-    DEFAULT SYSDATE
+    DEFAULT SYSDATE,
+  CONSTRAINT fac_u_fac_export_app_code UNIQUE(fac_export_app_code)
 );
 
 -- Might still need some changes
@@ -699,7 +797,7 @@ CREATE_TABLE(fac_activiteit, 0)
 
 CREATE_TABLE(fac_imp_file, 0)
 (
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key           NUMBER(10) CONSTRAINT fac_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   fac_imp_file_index       NUMBER(10),
   fac_imp_file_line        VARCHAR2(4000 CHAR)
 );
@@ -707,7 +805,7 @@ CREATE_TABLE(fac_imp_file, 0)
 
 CREATE_TABLE(fac_imp_catalogus, 0)
 (
-  fac_import_key           NUMBER(10) REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+  fac_import_key             NUMBER(10) CONSTRAINT fac_r_fac_import_key3 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
   ins_discipline_key         NUMBER(10),
   prs_bedrijf_key            NUMBER(10),
   fac_imp_catalogus_datum    DATE,
@@ -721,10 +819,11 @@ CREATE_TABLE(fac_imp_catalogus, 0)
   ins_srtdeel_btw            NUMBER(3),
   ins_srtdeel_vervaldatum    DATE,
   ins_srtdeel_inkprijs       NUMBER(8,2),
-  ins_srtdeel_minimum		 NUMBER(6),
+  ins_srtdeel_minimum        NUMBER(6),
   bes_staffeltabel_key       NUMBER(10),
   ins_srtdeel_wijzigdagen    NUMBER(3),
-  ins_srtdeel_annuleerdagen  NUMBER(3)
+  ins_srtdeel_annuleerdagen  NUMBER(3),
+  ins_srtdeel_opmerking      VARCHAR2(2000)
 );
 
 // Facilitor Import (FIP) tabellen
@@ -735,15 +834,15 @@ CREATE_TABLE(fac_imp_onrgoed1, 0)
   , alg_locatie_code               VARCHAR2(10)
   , alg_locatie_omschrijving       VARCHAR2(60)
   , alg_gebouw_code                VARCHAR2(12)
-  , alg_gebouw_naam                VARCHAR2(30)
+  , alg_gebouw_naam                VARCHAR2(60)
   , alg_srtgebouw_omschrijving     VARCHAR2(30)
   , alg_locatie_verantw            VARCHAR2(30)
   , alg_locatie_verantw_tel        VARCHAR2(15)
-  , alg_locatie_adres              VARCHAR2(35)
+  , alg_locatie_adres              VARCHAR2(50)
   , alg_locatie_postcode           VARCHAR2(12)
   , alg_locatie_plaats             VARCHAR2(30)
   , alg_locatie_land               VARCHAR2(30)
-  , alg_locatie_post_adres         VARCHAR2(35)
+  , alg_locatie_post_adres         VARCHAR2(50)
   , alg_locatie_post_postcode      VARCHAR2(12)
   , alg_locatie_post_plaats        VARCHAR2(30)
   , alg_locatie_post_land          VARCHAR2(30)
@@ -780,6 +879,20 @@ CREATE_TABLE(fac_imp_mld, 0)
   , mld_stdmelding_notfrontend      VARCHAR2(1)
   , alg_onrgoed_niveau              VARCHAR2(1)
   , mld_typeopdr_omschrijving       VARCHAR2(30)
+  , mld_stdmelding_hint             VARCHAR2(1000)
+  , mld_stdmelding_kopieerbaar      NUMBER(1)
+  , mld_stdmelding_afmeldtext       NUMBER(1)
+  , mld_stdmelding_doublecheck      NUMBER(4)
+  , mld_stdmelding_slabewaken       NUMBER(1)
+);
+
+CREATE_TABLE(fac_imp_mldafmtxt, 0)
+(
+    mld_afmeldtekst_naam            VARCHAR2(60)
+  , mld_afmeldtekst_omschrijving    VARCHAR2(1000)
+  , ins_discipline_key              NUMBER(10)
+  , mld_stdmelding_key              NUMBER(10)
+  , mld_afmeldtekst_usefor          NUMBER(1)
 );
 
 CREATE_TABLE(fac_imp_onrgoed2, 0)
@@ -793,12 +906,13 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
   , alg_ruimte_bruto_vloeropp      NUMBER(8,2)
   , reserveerbaar                  VARCHAR2(1)
   , res_discipline_omschrijving    VARCHAR2(30)
+  , res_discipline_expire_dagen    NUMBER(3)
   , res_ruimte_prijs               NUMBER(7,2)
   , res_opstelling_omschrijving    VARCHAR2(30)
   , res_ruimte_opstel_bezoekers    NUMBER (5)
   , res_ruimte_nr                  VARCHAR2(255)
   , res_ruimte_omschrijving        VARCHAR2(255)
-  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 10 zou genoeg zijn, wat speelruimte
+  , prs_afdeling_naam              VARCHAR2(60 CHAR)  -- 15 zou genoeg zijn, wat speelruimte
   , prs_ruimteafdeling_bezetting   NUMBER(8,5)
   , alg_kenmerkwaarde1             VARCHAR2(255)
   , alg_kenmerkwaarde2             VARCHAR2(255)
@@ -810,12 +924,27 @@ CREATE_TABLE(fac_imp_onrgoed2, 0)
 CREATE_TABLE(fac_imp_organisatie, 0)
 (
    PRS_BEDRIJF_NAAM               VARCHAR2 (60)
-  ,PRS_AFDELING_NAAM              VARCHAR2 (10)
-  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (10)
+  ,PRS_AFDELING_NAAM              VARCHAR2 (15)
+  ,PRS_AFDELING_NAAM_PARENT       VARCHAR2 (15)
   ,PRS_AFDELING_OMSCHRIJVING      VARCHAR2 (60 CHAR)
   ,PRS_KOSTENPLAATS_NR            VARCHAR2 (30)
 );
 
+CREATE_TABLE(fac_imp_kpn, 0)
+(
+   prs_kostenplaats_nr              VARCHAR2 (30),
+   prs_kostenplaats_omschrijving    VARCHAR2 (60),
+   prs_kostenplaats_module          VARCHAR2 (3),
+   prs_kostenplaats_begin           DATE,
+   prs_kostenplaats_eind            DATE,
+   prs_kostenplaatsgrp_key          NUMBER (10),
+   prs_perslid_key                  NUMBER (10),
+   prs_kostenplaats_limiet          NUMBER (8),
+   prs_kostenplaats_limietperiode   NUMBER (1),
+   prs_kostenplaats_extern          NUMBER (1),
+   prs_kostenplaats_fiat            NUMBER (1)
+);
+
 CREATE_TABLE(fac_imp_perslid, 0)
 (
    alg_locatie_code                VARCHAR2(10)
@@ -824,15 +953,15 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,alg_ruimte_nr                   VARCHAR2(10)
   ,prs_werkplek_volgnr             NUMBER (3)
   ,prs_werkplek_omschrijving       VARCHAR2 (30)
-  ,prs_afdeling_naam               VARCHAR2 (10)
+  ,prs_afdeling_naam               VARCHAR2 (15)
   ,prs_perslid_naam                VARCHAR2 (60)
   ,prs_perslid_tussenvoegsel       VARCHAR2 (15)
-  ,prs_perslid_voorletters         VARCHAR2 (10)
+  ,prs_perslid_voorletters         VARCHAR2 (15)
   ,prs_perslid_voornaam            VARCHAR2 (30)
   ,prs_perslid_titel               VARCHAR2 (15)
   ,prs_perslid_telefoonnr          VARCHAR2 (15)
   ,prs_perslid_mobiel              VARCHAR2 (15)
-  ,prs_perslid_email               VARCHAR2 (50)
+  ,prs_perslid_email               VARCHAR2 (200)
   ,prs_srtperslid_omschrijving     VARCHAR2 (60)
   ,prs_perslid_nr                  VARCHAR2 (16)
   ,prs_perslid_oslogin             VARCHAR2 (30)
@@ -862,6 +991,10 @@ CREATE_TABLE(fac_imp_perslid, 0)
   ,prs_kenmerk18                   VARCHAR2(255)
   ,prs_kenmerk19                   VARCHAR2(255)
   ,prs_kenmerk20                   VARCHAR2(255)
+  ,fac_import_key                  NUMBER(10)       /* for internal processing */
+  ,fac_imp_file_index              NUMBER(10)       /* for internal processing */
+  ,prs_perslid_key                 NUMBER(10)       /* for internal processing */
+  ,prs_perslid_apikey              VARCHAR2(128)    /* for XD-syncing */
 );
 
 CREATE_TABLE(fac_imp_ins, 0)
@@ -872,6 +1005,7 @@ CREATE_TABLE(fac_imp_ins, 0)
   ,ins_srtdeel_code            VARCHAR2 (10)
   ,ins_srtdeel_omschrijving    VARCHAR2 (100)
   ,ins_deel_omschrijving       VARCHAR2 (60)
+  ,ins_deel_opmerking          VARCHAR2 (320)
   ,reserveerbaar               NUMBER (1)
   ,res_deel_eenheid            VARCHAR2 (10)
   ,res_deel_prijs              NUMBER (7,2)
@@ -929,11 +1063,11 @@ CREATE_TABLE(fac_imp_sle, 0)
 CREATE_TABLE(fac_imp_adres, 0)
 (
   adres_naam                  VARCHAR2(60),
-  adres_bezoek_adres          VARCHAR2(35),
+  adres_bezoek_adres          VARCHAR2(50),
   adres_bezoek_postcode       VARCHAR2(12),
   adres_bezoek_plaats         VARCHAR2(30),
   adres_bezoek_land           VARCHAR2(30),
-  adres_post_adres            VARCHAR2(35),
+  adres_post_adres            VARCHAR2(50),
   adres_gebouw_ruimte         VARCHAR2(30),
   adres_post_postcode         VARCHAR2(12),
   adres_post_plaats           VARCHAR2(30),
@@ -988,17 +1122,17 @@ CREATE_TABLE(fac_imp_fac_gebruikersgroep, 0)
    email              VARCHAR2 (255)
 );
 
-CREATE TABLE fac_imp_ext_bedrijf
+CREATE_TABLE(fac_imp_ext_bedrijf, 0)
 (
    prs_bedrijf_naam VARCHAR2 (60),
    prs_leverancier_nr VARCHAR2 (50),
-   prs_bedrijf_bezoek_adres VARCHAR2 (35),
+   prs_bedrijf_bezoek_adres VARCHAR2 (50),
    prs_bedrijf_bezoek_postcode VARCHAR2 (12),
    prs_bedrijf_bezoek_plaats VARCHAR2 (30),
    prs_bedrijf_bezoek_land VARCHAR2 (30),
    prs_bedrijf_telefoon VARCHAR2 (20),
    prs_bedrijf_fax VARCHAR2 (20),
-   prs_bedrijf_post_adres VARCHAR2 (35),
+   prs_bedrijf_post_adres VARCHAR2 (50),
    prs_bedrijf_post_postcode VARCHAR2 (12),
    prs_bedrijf_post_plaats VARCHAR2 (30),
    prs_bedrijf_post_land VARCHAR2 (30),
@@ -1022,9 +1156,26 @@ CREATE TABLE fac_imp_ext_bedrijf
    prs_bedrijf_overig2 VARCHAR2 (256),
    prs_bedrijf_overig3 VARCHAR2 (256),
    prs_bedrijf_xsl VARCHAR2(256),
-   prs_bedrijf_order_adres VARCHAR2(256)
+   prs_bedrijf_order_adres VARCHAR2(256),
+   prs_relatietype VARCHAR2(256)
 );
 
+CREATE_TABLE(fac_imp_bedrijfadres, 0)
+(
+   prs_bedrijf_key                NUMBER (10),
+   prs_bedrijfadres_type          VARCHAR2 (1),
+   mld_typeopdr_key               NUMBER (10),
+   prs_bedrijfadres_url           VARCHAR2 (512),
+   prs_bedrijfadres_ordermode     NUMBER (3),
+   prs_bedrijfadres_certificate   VARCHAR2 (255),
+   prs_bedrijfadres_xsl           VARCHAR2 (256),
+   prs_bedrijfadres_ext           VARCHAR2 (10),
+   prs_bedrijfadres_attachfile    VARCHAR2 (256),
+   prs_bedrijfadres_username      VARCHAR2 (32),
+   prs_bedrijfadres_password      VARCHAR2 (32)
+);
+
+
 // For OPrognose import (optional)
 CREATE_TABLE(fac_imp_oprognose, 0) (
  objectcode
@@ -1070,11 +1221,14 @@ CREATE_TABLE (fac_setting,0) (
     DEFAULT 'string'
     NOT_NULL(fac_setting_type, fac_c_setting_type),
   fac_setting_default
-    VARCHAR2(1024),
+    VARCHAR2(4000),
   fac_setting_pvalue
-    VARCHAR2(1024),
+    VARCHAR2(4000),
   fac_setting_datum
-    DATE
+    DATE,
+  fac_functie_key
+    NUMBER(10)
+    CONSTRAINT fac_r_setting_functie REFERENCES fac_functie(fac_functie_key)
 // Note: this column is defined in PRS_TAB.SRC
 // ,prs_perslid_key
 //  NUMBER(10) CONSTRAINT prs_perslid_key12 REFERENCES prs_perslid (prs_perslid_key)
@@ -1083,7 +1237,7 @@ CREATE_TABLE (fac_setting,0) (
 // We want the database to know what he is. This table has only one record.
 CREATE_TABLE (fac_version, 0) (
   fac_version_major
-    NUMBER(3),
+    NUMBER(4),
   fac_version_minor
     NUMBER(3),
   fac_version_patch
@@ -1186,6 +1340,10 @@ CREATE_TABLE(fac_menu, 0)
 //   ins_srtdiscipline_key NUMBER(10) CONSTRAINT fac_r_menu4 REFERENCES ins_srtdiscipline (ins_srtdiscipline_key),
    fac_menu_level       NUMBER(1),  /* 1=head, null=item, other=future use */
    fac_menu_portal      NUMBER(1),  /* 1=include in picture/portalmenu, null=donot include, other=future use */
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid          NUMBER(10) CONSTRAINT fac_r_prs_perslid_key7 REFERENCES prs_perslid (prs_perslid_key),
+   fac_menu_filter      VARCHAR2(4000),
+   fac_menu_aanmaak     DATE DEFAULT SYSDATE,
    CONSTRAINT fac_c_menu1 CHECK (fac_menuitems_key IS NULL OR fac_menu_alturl IS NULL)
 );
 
@@ -1217,7 +1375,8 @@ CREATE_TABLE(fac_faq, 0)
 //   prs_perslid_key NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
    fac_faq_datum DATE,
    fac_faq_lang VARCHAR2(3),
-   fac_faq_hint VARCHAR2(1000)
+   fac_faq_hint VARCHAR2(1000),
+   fac_faq_displaymode NUMBER(3) DEFAULT 0  NOT NULL -- 0 gewoon, +1 altijd bij invoeren, +2 altijd bij bewerken
 );
 
 CREATE_TABLE(fac_localeitems, 0) /* Alle mogelijk vertaalbare labels/teksten */
@@ -1247,16 +1406,6 @@ CREATE_TABLE(fac_locale, 0) /* Alle feitelijk vertaalde teksten */
    CONSTRAINT fac_c_fac_locale1 CHECK((fac_localeitems_key IS NOT NULL AND fac_locale_dialect_key IS NOT NULL AND fac_locale_kolomnaam IS NULL AND fac_locale_kolomkeyval IS NULL)
                                    OR (fac_localeitems_key IS NULL AND fac_locale_dialect_key IS NULL AND fac_locale_kolomnaam IS NOT NULL AND fac_locale_kolomkeyval IS NOT NULL))
 );
-CREATE_TABLE(fac_locale_mgt, 0) /* labelvertalingen van facmgt */
-(
-   fac_locale_mgt_key       NUMBER (10) PRIMARY KEY,
-   fac_locale_mgt_label     VARCHAR2(300 CHAR),
-   fac_locale_mgt_module    VARCHAR2(3 CHAR),
-   fac_locale_mgt_filenaam  VARCHAR2(60 CHAR),
-   fac_locale_mgt_lang      VARCHAR2(3) NOT NULL,
-   fac_locale_mgt_tekst     VARCHAR2(300 CHAR),
-   CONSTRAINT fac_u_fac_locale_mgt UNIQUE(fac_locale_mgt_label, fac_locale_mgt_lang, fac_locale_mgt_module, fac_locale_mgt_filenaam)
-);
 CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
 (
    fac_locale_xsl_key       NUMBER (10) PRIMARY KEY,
@@ -1265,6 +1414,7 @@ CREATE_TABLE(fac_locale_xsl, 0) /* labelvertalingen voor stylesheets */
    fac_locale_xsl_lang      VARCHAR2(3) NOT NULL,
    fac_locale_xsl_tekst     VARCHAR2(2000 CHAR),
    fac_locale_xsl_cust      VARCHAR2(2000),
+   fac_locale_xsl_isvalid   NUMBER(1) DEFAULT 1 NOT NULL,
    CONSTRAINT fac_u_fac_locale_xsl UNIQUE(fac_locale_xsl_label, fac_locale_xsl_lang, fac_locale_xsl_module)
 );
 
@@ -1291,7 +1441,7 @@ CREATE_TABLE(fac_code2label, 0)
 CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
 (
    leveranciernr        VARCHAR2 (20),      -- prs_bedrijf.overeenkomstnr
-   ordernr              VARCHAR2 (15),      -- de code van de BROC
+   ordernr              VARCHAR2 (31),      -- de code van de BROC (optionally even prefixed although unsupported with standard import)
    factuurnr            VARCHAR2 (30),
    factuurdatum         VARCHAR2 (10),
    aantal               VARCHAR2 (10),      -- aantal geleverd (info)
@@ -1302,7 +1452,7 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
    afleverdatum         VARCHAR2 (10),       -- info
    btw_bedrag           VARCHAR2 (15),      -- regeltotaal btw
    docid                VARCHAR2 (255),     -- bestandsnaam
-   omschrijving         VARCHAR2 (60),      -- regelomschrijving
+   omschrijving         VARCHAR2 (250),      -- regelomschrijving
    opmerking            VARCHAR2(250),
    btw_verlegd          VARCHAR2(3),
    kenmerk1             VARCHAR2(250),
@@ -1310,7 +1460,14 @@ CREATE_TABLE(fac_imp_factuur, 0) /* Standaard tabel voor de factuur-import */
    kenmerk3             VARCHAR2(250),
    kenmerk4             VARCHAR2(250),
    kenmerk5             VARCHAR2(250),
-   fac_import_key       NUMBER(10),
+   kenmerk6             VARCHAR2(250),
+   kenmerk7             VARCHAR2(250),
+   kenmerk8             VARCHAR2(250),
+   kenmerk9             VARCHAR2(250),
+   kenmerk10            VARCHAR2(250),
+   kenmerk11            VARCHAR2(250),
+   kenmerk12            VARCHAR2(250),
+   fac_import_key       NUMBER(10) CONSTRAINT fac_r_fac_imp_factuur1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
    fac_imp_file_index   NUMBER(10),
    fin_factuur_key      NUMBER(10),           -- geen importkolom, temp
    fin_factuurregel_key NUMBER(10),           -- geen importkolom, temp
@@ -1336,6 +1493,7 @@ CREATE_TABLE(fac_imp_menu, 0)
 );
 
 // PF: 1 anamorphe tabel voor alle modules
+// -- UWVA#32742:  flexkenmerken transport voor objecten
 CREATE_TABLE(fac_imp_flex, 0)
 (
    fac_kenmerkdomein_omschrijving   VARCHAR2(255),
@@ -1353,6 +1511,7 @@ CREATE_TABLE(fac_imp_flex, 0)
    srtkenmerk_dimensie          VARCHAR2(255),
    kenmerk_niveau               VARCHAR2(255),
    kenmerk_verplicht            VARCHAR2(255),
+   kenmerk_groep                VARCHAR2(255),
    kenmerk_volgnummer           VARCHAR2(255),
    kenmerk_default              VARCHAR2(4000),
    kenmerk_type                 VARCHAR2(255),
@@ -1370,12 +1529,52 @@ CREATE_TABLE(fac_imp_flex, 0)
    bes_discipline               VARCHAR2(255),
    bes_srtgroep                 VARCHAR2(255),
    bes_srtdeel                  VARCHAR2(255),
-   cnt_discipline               VARCHAR2(255)
+   cnt_discipline               VARCHAR2(255),
+   ins_discipline               VARCHAR2(255),
+   ins_srtgroep                 VARCHAR2(255),
+   ins_srtdeel                  VARCHAR2(255)
 );
 
+CREATE_TABLE (fac_kenmwaarden, 0)
+(
+    fac_kenmwaarden_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_kenmwaarden_key PRIMARY KEY,
+    fac_kenmwaarden_module
+        VARCHAR2(3)
+        NOT_NULL(fac_kenmwaarden_module, fac_c_kenmwaarden_module),
+    fac_kenmwaarden_refkey
+        NUMBER(10),
+    fac_kenmwaarden_niveau
+        VARCHAR2(1)
+        CONSTRAINT fac_c_fac_kenmwaarden_niveau CHECK(fac_kenmwaarden_niveau IS NOT NULL
+               AND fac_kenmwaarden_niveau IN ('R','V','G','T','L','D','A','B','C','P')
+                OR fac_kenmwaarden_niveau IS NULL),
+    fac_kenmwaarden_kenmerk_key
+        NUMBER(10),
+    fac_kenmwaarden_waarde
+        VARCHAR2(4000),
+    fac_kenmwaarden_kenmerktype
+        VARCHAR2(1)
+        CONSTRAINT fac_c_fac_kenmwaarden_kenmtype  CHECK(fac_kenmwaarden_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
+    fac_kenmwaarden_isexpr
+        VARCHAR2(1)
+        DEFAULT 0
+        CONSTRAINT fac_c_fac_kenmwaarden_isexpr CHECK(fac_kenmwaarden_isexpr IS NOT NULL
+               AND fac_kenmwaarden_isexpr IN (0, 1))
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT fac_r_prs_perslid_key8 REFERENCES prs_perslid(prs_perslid_key),
+//        CONSTRAINT fac_c_prs_perslid_key1 CHECK(prs_perslid_key IS NOT NULL),
+//    CONSTRAINT fac_u_fac_kenmwaarden UNIQUE(fac_kenmwaarden_module, fac_kenmwaarden_refkey, fac_kenmwaarden_kenmerk_key, prs_perslid_key)
+);
 
 CREATE_TABLE(fac_session, 0)
 (
+   fac_session_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_session_key PRIMARY KEY,
    fac_session_sessionid_hash VARCHAR(128),
    fac_session_data           VARCHAR(256),   -- Diverse data
    fac_session_expire         DATE DEFAULT SYSDATE+(1/24),
@@ -1457,8 +1656,11 @@ CREATE_TABLE(fac_widget, 0)
 /* deze tabel heeft geen numerieke, automatische key maar een GUID-APIKEY achtige key van 32 posities */
 CREATE_TABLE(fac_bookmark, 0)
 (
+   fac_bookmark_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_bookmark_key PRIMARY KEY,
    fac_bookmark_id
-        VARCHAR2(32) CONSTRAINT fac_bookmark_id PRIMARY KEY,
+        VARCHAR2(32),
    fac_bookmark_naam
         VARCHAR(60)
         NOT_NULL(fac_bookmark_naam, fac_c_fac_bookmark_naam),
@@ -1473,8 +1675,12 @@ CREATE_TABLE(fac_bookmark, 0)
         NUMBER(10),
    fac_bookmark_xmlnode
         VARCHAR2(60),
+   fac_bookmark_refkey
+        NUMBER(10),
    fac_bookmark_aanmaak
         DATE DEFAULT SYSDATE,
+   fac_bookmark_flags
+        NUMBER(3) DEFAULT(1) NOT NULL, -- 0=onzichtbaar, 1=prssys zichtbaar, 2=iedereen zichtbaar, +4=prssys muteerbaar
    fac_bookmark_expire DATE
 // Note: this column is defined in PRS_TAB.SRC
 //   prs_perslid_key           NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
@@ -1485,8 +1691,12 @@ CREATE_TABLE(fac_bookmark, 0)
 --FSN#21091
 CREATE_TABLE(fac_email_setting, 0)
 (
-   fac_email_setting_user VARCHAR2 (255) PRIMARY KEY,
+   fac_email_setting_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_email_setting_key PRIMARY KEY,
+   fac_email_setting_user VARCHAR2 (255) NOT NULL,
    fac_email_setting_from VARCHAR2 (255),
+   fac_email_setting_frommode NUMBER(3) DEFAULT 0 NOT NULL, -- 0=MAIL FROM SMTP-command, 1=e-mail MIME header
    fac_email_setting_action VARCHAR2 (255),
    fac_email_setting_aanmaak DATE DEFAULT SYSDATE,
    fac_email_setting_expire DATE,
@@ -1522,7 +1732,10 @@ CREATE_TABLE(fac_imp_inspectie, 0) (
    ins_srtdeel_code             VARCHAR2 (10),
    ins_srtcontrole_omschrijving VARCHAR2 (60),
    ins_srtcontrole_info         VARCHAR2 (320),
-   ins_srtcontrole_periode      VARCHAR2 (4)
+   ins_srtcontrole_periode      VARCHAR2 (7),
+   ins_srtcontrole_mode					VARCHAR2 (1),
+   ins_srtcontrole_eenheid			VARCHAR2 (1),
+   ins_srtcontrole_bits					VARCHAR2 (4)
 );
 
 -- AAIT#25547
@@ -1540,7 +1753,7 @@ CREATE_TABLE(fac_imp_faq, 0) (
 );
 
 -- FSN#25952: Generieke contractenimport
-CREATE TABLE fac_imp_cnt
+CREATE_TABLE(fac_imp_cnt, 0)
 (
    nummer_intern      VARCHAR2 (30),
    nummer_extern      VARCHAR2 (30),
@@ -1548,7 +1761,7 @@ CREATE TABLE fac_imp_cnt
    beschrijving       VARCHAR2 (50),
    mantel_nr          VARCHAR2 (30),
    omschrijving       VARCHAR2 (1000),
-   afdeling           VARCHAR2 (10),
+   afdeling           VARCHAR2 (15),
    perslid_eig        VARCHAR2 (30),
    perslid_beh        VARCHAR2 (30),
    opmerking          VARCHAR2 (1000),
@@ -1594,7 +1807,13 @@ CREATE TABLE fac_imp_cnt
    flex25             VARCHAR2 (255)
 );
 
-
+CREATE_TABLE(fac_imp_translation, 0)
+(
+   locale_label     VARCHAR2(60 CHAR),
+   locale_module    VARCHAR2(3),
+   locale_lang      VARCHAR2(3) NOT NULL,
+   locale_tekst     VARCHAR2(2000 CHAR)
+);
 
 --FSN#23201
 CREATE_TABLE(fac_api, 0)
@@ -1611,6 +1830,37 @@ CREATE_TABLE(fac_api, 0)
    fac_api_options_json     VARCHAR2 (4000)
 );
 
+CREATE_TABLE(fac_audit, 0)
+(
+   fac_audit_key
+       NUMBER(10)
+       CONSTRAINT fac_k_fac_audit_key PRIMARY KEY,
+   fac_audit_tabelnaam
+       VARCHAR2(30)
+       CONSTRAINT fac_k_fac_audit_tabelnaam CHECK(fac_audit_tabelnaam IS NOT NULL),
+   fac_audit_tabelkey
+       NUMBER(10),
+   fac_audit_veldnaam
+       VARCHAR2(30),
+   fac_audit_actie
+       VARCHAR2(1)
+       CONSTRAINT fac_k_fac_audit_actie CHECK(fac_audit_actie IN ('C', 'D', 'U')),
+   fac_audit_waarde_oud
+       VARCHAR2(4000),
+   fac_audit_waarde_nieuw
+       VARCHAR2(4000),
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key
+//       NUMBER(10)
+//       CONSTRAINT fac_r_prs_perslid_key9 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
+   fac_audit_opmerking
+       VARCHAR2(320),
+   fac_audit_datum
+       DATE
+       DEFAULT SYSDATE
+       CONSTRAINT fac_c_fac_audit_datum CHECK(fac_audit_datum IS NOT NULL)
+);
+
 -- AAIT#25547
 CREATE_TABLE(faq_kenmerk,0)
 (
@@ -1623,12 +1873,13 @@ CREATE_TABLE(faq_kenmerk,0)
    faq_kenmerk_dimensie     VARCHAR2(10),
    faq_kenmerk_kenmerktype  VARCHAR2(1)
                             CONSTRAINT faq_c_faq_kenmerk_type1
-                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l')),
+                                 CHECK(faq_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B')),
    faq_kenmerk_systeem      NUMBER(1),
    faq_kenmerk_toonbaar     NUMBER(1),
    faq_kenmerk_uniek        NUMBER(1),
    faq_kenmerk_regexp       VARCHAR2(255),
    faq_kenmerk_verplicht    NUMBER(1),
+   faq_kenmerk_groep        NUMBER(1) DEFAULT 0 NOT NULL,
    faq_kenmerk_lengte       NUMBER(4),
    faq_kenmerk_dec          NUMBER(2),
    faq_kenmerk_nmin         NUMBER(10),
@@ -1642,7 +1893,7 @@ CREATE_TABLE(faq_kenmerk,0)
                             DEFAULT NULLDATUM
 );
 
-CREATE TABLE faq_kenmerkwaarde
+CREATE_TABLE(faq_kenmerkwaarde, 0)
 (
    faq_kenmerkwaarde_key       NUMBER(10)
                                CONSTRAINT faq_k_faq_kenmerkwaarde_key PRIMARY KEY,
@@ -1660,6 +1911,9 @@ CREATE TABLE faq_kenmerkwaarde
 
 CREATE_TABLE(fac_qvw_ticket, 0)
 (
+    fac_qvw_ticket_key
+        NUMBER(10)
+        CONSTRAINT fac_k_fac_qvw_ticket_key PRIMARY KEY,
     fac_qvw_ticket_userid   VARCHAR(32), -- XXXX01 t/m XXXX02 of AAXX_martin.leneman
     fac_qvw_ticket_flags    NUMBER(3) DEFAULT 0  NOT NULL, -- 0=shared, 1=reserved
     fac_qvw_ticket_aanmaak  DATE DEFAULT SYSDATE,
@@ -1669,4 +1923,81 @@ CREATE_TABLE(fac_qvw_ticket, 0)
 //        CONSTRAINT fac_r_qvw_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE CASCADE
 );
 
+// Holds several usage counters and related info for analyzing and stats
+CREATE_TABLE(fac_gui_counter, 0)
+(
+   fac_gui_counter_key      NUMBER (10) PRIMARY KEY,
+   fac_gui_counter_group    VARCHAR2 (12),                            /* prodsearch, menu, usrrap */
+   fac_gui_counter_refkey   NUMBER (10),
+   fac_gui_counter_count    NUMBER (12),
+   fac_gui_counter_info     VARCHAR2 (1000),
+   fac_gui_counter_date     DATE DEFAULT SYSDATE,
+// Note: this column is defined in PRS_TAB.SRC
+//   prs_perslid_key          NUMBER (10) CONSTRAINT fac_r_guicnt_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
+   CONSTRAINT fac_u_fac_gui_counter UNIQUE(fac_gui_counter_group, fac_gui_counter_date, fac_gui_counter_refkey, fac_gui_counter_info)
+);
+
+CREATE_TABLE(fac_sequence, 0)
+(
+   fac_sequence_key      NUMBER(10)
+                         CONSTRAINT fac_k_fac_sequence_key PRIMARY KEY,
+   fac_sequence_name     VARCHAR2(50)
+                         NOT NULL,
+   fac_sequence_lastval  NUMBER(10),
+   fac_sequence_expire   DATE
+);
+
+// Documentatie in de wiki onder Authenticeren
+// LET OP: deprecated sinds 2017.1, gebruik aut_idp
+// Te verwijderen met 2017.2
+CREATE TABLE fac_idp
+(
+    fac_idp_key
+        NUMBER(10)
+        CONSTRAINT fac_k_idp_key PRIMARY KEY,
+    fac_idp_code            -- Voor &sso=<code>
+        VARCHAR2(30),
+    fac_idp_type            -- 1=Internal (login.asp, future use), 2=UID_DEC (deprecated),
+        NUMBER(3),          -- 3=GUID-encrypted (deprecated), 4=JWT, 5=SAML (future use)
+    fac_idp_algorithm       -- HS256 is HMAC-SHA256
+        VARCHAR2(30),
+    fac_idp_omschrijving
+        VARCHAR2(30),
+    fac_idp_opmerking
+        VARCHAR2(320),
+    fac_idp_secret
+        VARCHAR2(128),
+    fac_idp_audience
+        VARCHAR2(128),
+    fac_idp_issuer
+        VARCHAR2(128),
+    fac_idp_remote_loginurl
+        VARCHAR2(128),
+    fac_idp_remote_logouturl
+        VARCHAR2(128),
+    fac_idp_usermapping
+        VARCHAR2(30),
+    fac_idp_clockskew
+        NUMBER(10),
+    fac_idp_duration
+        NUMBER(10),
+-- Note: these column are defined in PRS_TAB.SRC
+--    prs_afdeling_key         NUMBER(10)
+--    prs_bedrijf_key          NUMBER(10)
+    fac_functie_key
+        NUMBER(10)
+        CONSTRAINT fac_r_idp_functie REFERENCES fac_functie(fac_functie_key),
+    fac_idp_internal        -- can be used for FACFAC
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    fac_idp_ipfilter
+        VARCHAR2(320),
+    fac_idp_ipauto
+        NUMBER(1)
+        DEFAULT 0 NOT NULL,
+    fac_idp_aanmaak
+        DATE
+        DEFAULT SYSDATE
+);
+
 REGISTERONCE('$Id$')

FAC/FAC_TRI.SRC

@@ -4,21 +4,21 @@
  *
  */
 
-#define     FAC_ERROR_CODE  -20999
-
-CREATE_TRIGGER(fac_t_fac_error_B_IU)
-BEFORE INSERT OR UPDATE ON fac_error
-FOR EACH ROW
-BEGIN
-   APPLICATION_ERROR(FAC_ERROR_CODE, '');
-END;
-/
-
-CREATE_TRIGGER(fac_t_fac_functie_B_IU)
-BEFORE INSERT OR UPDATE ON fac_functie
+CREATE_TRIGGER(fac_t_fac_functie_B_I)
+BEFORE INSERT ON fac_functie
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fac_functie_key, fac_s_fac_functie_key);
+   :new.fac_functie_volgnr :=
+          CASE
+             WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('USE', 'FOF', 'BOF')
+                  AND SUBSTR (:new.fac_functie_code, 5, 3) <> 'UUR'
+             THEN 250
+             WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('BAC', 'MAN')
+             THEN 500
+             WHEN SUBSTR (:new.fac_functie_code, 8, 3) IN ('BO2', 'BO3', 'AFR', 'NOS', 'OAP')
+             THEN 750
+          END;
 END;
 /
 
@@ -40,6 +40,29 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(fac_gebruikersgroep)
+AUDIT_VALUE(fac_gebruikersgroep, fac_groep_key)
+AUDIT_VALUE(fac_gebruikersgroep, prs_perslid_key)
+AUDIT_END()
+
+CREATE_TRIGGER(fac_t_fac_email_setting_B_IU)
+BEFORE INSERT OR UPDATE ON fac_email_setting
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_email_setting_key, fac_s_fac_email_setting_key);
+END;
+/
+
+AUDIT_BEGIN(fac_groeprechten)
+AUDIT_VALUE(fac_groeprechten, fac_groep_key)
+AUDIT_VALUE(fac_groeprechten, fac_functie_key)
+AUDIT_VALUE(fac_groeprechten, ins_discipline_key)
+AUDIT_VALUE(fac_groeprechten, fac_gebruiker_alg_level_read)
+AUDIT_VALUE(fac_groeprechten, fac_gebruiker_prs_level_read)
+AUDIT_VALUE(fac_groeprechten, fac_gebruiker_alg_level_write)
+AUDIT_VALUE(fac_groeprechten, fac_gebruiker_prs_level_write)
+AUDIT_END()
+
 CREATE_TRIGGER(fac_t_fac_groeprechten_B_IU)
 BEFORE INSERT OR UPDATE ON fac_groeprechten
 FOR EACH ROW
@@ -208,6 +231,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_usrrapcols_B_IU)
+BEFORE INSERT OR UPDATE ON fac_usrrap_cols
+FOR EACH ROW
+DECLARE
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_usrrap_cols_key, fac_s_fac_usrrap_cols_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_usrgraph_B_IU)
 BEFORE INSERT OR UPDATE ON fac_usrgraph
 FOR EACH ROW
@@ -238,6 +270,10 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(fac_profiel)
+AUDIT_VALUE(fac_profiel, fac_profiel_omschrijving)
+AUDIT_VALUE(fac_profiel, fac_profiel_limiet)
+AUDIT_END()
 
 CREATE_TRIGGER(fac_t_fac_profiel_B_IU)
 BEFORE INSERT OR UPDATE ON fac_profiel
@@ -247,6 +283,12 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(fac_profielwaarde)
+AUDIT_VALUE(fac_profielwaarde, fac_profiel_key)
+AUDIT_VALUE(fac_profielwaarde, fac_profielwaarde_limiet)
+AUDIT_VALUE(fac_profielwaarde, ins_discipline_key)
+AUDIT_END()
+
 CREATE_TRIGGER(fac_t_fac_profielwaarde_B_IU)
 BEFORE INSERT OR UPDATE ON fac_profielwaarde
 FOR EACH ROW
@@ -284,7 +326,7 @@ BEGIN
    IF BITAND (:NEW.fac_notificatie_status, 1) = 1  AND :new.prs_perslid_key_receiver IS NOT NULL
    THEN
       -- strip zodat we alleen de eerste regel overhouden
-      loms := :NEW.fac_notificatie_oms;
+      loms := SUBSTR(:NEW.fac_notificatie_oms, 1, 512);
       IF INSTR (loms, chr(13)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(13)) -1);
       END IF;
@@ -356,16 +398,16 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_import_B_IU)
-BEFORE INSERT OR UPDATE ON fac_import
+CREATE_TRIGGER(fac_t_fac_import_B_I)
+BEFORE INSERT ON fac_import
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(fac_import_key, fac_s_fac_import_key);
 END;
 /
 
-CREATE_TRIGGER(fac_t_imp_log_B_IU)
-BEFORE INSERT OR UPDATE ON imp_log
+CREATE_TRIGGER(fac_t_imp_log_B_I)
+BEFORE INSERT ON imp_log
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(imp_log_key, imp_s_imp_log_key);
@@ -429,6 +471,10 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(fac_setting)
+AUDIT_VALUE(fac_setting, fac_setting_pvalue)
+AUDIT_END()
+
 CREATE_TRIGGER(fac_t_fac_setting_B_IU)
 BEFORE INSERT or UPDATE ON fac_setting
 FOR EACH ROW
@@ -466,6 +512,15 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_qvw_ticket_B_I)
+BEFORE INSERT ON fac_qvw_ticket
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_qvw_ticket_key, fac_s_fac_qvw_ticket_key);
+END;
+/
+
+
 CREATE_TRIGGER(fac_t_fac_tracking_b_i)
 BEFORE INSERT ON fac_tracking
 FOR EACH ROW
@@ -531,14 +586,6 @@ BEGIN
    :new.fac_localeitems_dialect_id := UPPER (:new.fac_localeitems_dialect_id);
 END;
 /
-CREATE_TRIGGER(fac_t_fac_locale_mgt_b_iu)
-BEFORE INSERT OR UPDATE ON fac_locale_mgt
-FOR EACH ROW
-BEGIN
-   UPDATE_PRIMARY_KEY(fac_locale_mgt_key, fac_s_fac_locale_mgt_key);
-   :new.fac_locale_mgt_lang := UPPER (:new.fac_locale_mgt_lang);
-END;
-/
 CREATE_TRIGGER(fac_t_fac_locale_xsl_b_iu)
 BEFORE INSERT OR UPDATE ON fac_locale_xsl
 FOR EACH ROW
@@ -620,6 +667,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_kenmwaarden_B_IU)
+BEFORE INSERT OR UPDATE ON fac_kenmwaarden
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fac_kenmwaarden_key, fac_s_fac_kenmwaarden_key);
+END;
+/
+
 CREATE_TRIGGER(fac_t_fac_widget_B_IU)
 BEFORE INSERT OR UPDATE ON fac_widget
 FOR EACH ROW
@@ -645,6 +700,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_audit_b_i)
+BEFORE INSERT ON fac_audit
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_audit_key, fac_s_fac_audit_key);
+END;
+/
+
 CREATE_TRIGGER(faq_t_faq_kenmerkwaarde_b_iu)
 BEFORE INSERT OR UPDATE ON faq_kenmerkwaarde
 FOR EACH ROW
@@ -708,7 +771,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -792,17 +855,15 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'faq_m238');
    END IF;
-   IF (:new.faq_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.faq_kenmerk_lengte IS NULL
+   IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
    END IF;
-   IF :new.faq_kenmerk_kenmerktype = 'N'
-   AND :new.faq_kenmerk_lengte > 20
+   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20
    THEN
       :new.faq_kenmerk_lengte := 20;
    END IF;
-   IF :new.faq_kenmerk_kenmerktype = 'N' AND :old.faq_kenmerk_key IS NOT NULL
+   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :old.faq_kenmerk_key IS NOT NULL
    THEN
      IF :old.faq_kenmerk_nmin <> :new.faq_kenmerk_nmin OR
        :old.faq_kenmerk_nmin IS NULL AND :new.faq_kenmerk_nmin IS NOT NULL
@@ -857,4 +918,45 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_gui_counter_b_i)
+BEFORE INSERT ON fac_gui_counter
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(fac_gui_counter_key, faq_s_fac_gui_counter_key);
+END;
+/
+
+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
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_bookmark_key, fac_s_fac_bookmark_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_session_B_I)
+BEFORE INSERT ON fac_session
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_session_key, fac_s_fac_session_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_sequence_B_I)
+BEFORE INSERT ON fac_sequence
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_sequence_key, fac_s_fac_sequence_key);
+END;
+/
+
 REGISTERRUN('$Id$')

FAC/parse_fac_lclmld.js

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

FCLT.NMK

@@ -1,9 +1,9 @@
 ###############################################################################
 ##  MAK\SQL\FCLT.NMK
 ##
-##    Project: SM44 FACILITOR
+##    Project: FACILITOR
 ##
-##             (c) 1995-2012 SG|facilitor bv
+##             (c) 1995-2017 Facilitor B.V.
 ##
 ##   Auteur:    Ir. P.G. Feij
 ##   $Revision$
@@ -60,10 +60,10 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=20
-NEXTVERSION=21
-FILEVERSION=
-NEXTCAREVERSION=26
+CURRENTVERSION=30
+NEXTVERSION=31
+FILEVERSION=e
+NEXTCAREVERSION=32
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
@@ -124,6 +124,10 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\alg\alg_tab.src   \
       $(MSRC)\alg\alg_tri.src   \
       $(MSRC)\alg\alg_vie.src   \
+      $(MSRC)\aut\aut_ind.src   \
+      $(MSRC)\aut\aut_seq.src   \
+      $(MSRC)\aut\aut_tab.src   \
+      $(MSRC)\aut\aut_tri.src   \
       $(MSRC)\bes\bes_ind.src   \
       $(MSRC)\bes\bes_ini.src   \
       $(MSRC)\bes\bes_pac.src   \
@@ -138,6 +142,13 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\bez\bez_tab.src   \
       $(MSRC)\bez\bez_tri.src   \
       $(MSRC)\bez\bez_vie.src   \
+      $(MSRC)\bgt\bgt_ind.src   \
+      $(MSRC)\bgt\bgt_ini.src   \
+      $(MSRC)\bgt\bgt_pac.src   \
+      $(MSRC)\bgt\bgt_seq.src   \
+      $(MSRC)\bgt\bgt_tab.src   \
+      $(MSRC)\bgt\bgt_tri.src   \
+      $(MSRC)\bgt\bgt_vie.src   \
       $(MSRC)\cad\cad_ind.src   \
       $(MSRC)\cad\cad_ini.src   \
       $(MSRC)\cad\cad_pac.src   \
@@ -152,32 +163,50 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\cnt\cnt_tab.src   \
       $(MSRC)\cnt\cnt_tri.src   \
       $(MSRC)\cnt\cnt_vie.src   \
+      $(MSRC)\ctr\ctr_ind.src   \
+      $(MSRC)\ctr\ctr_ini.src   \
+      $(MSRC)\ctr\ctr_pac.src   \
+      $(MSRC)\ctr\ctr_seq.src   \
+      $(MSRC)\ctr\ctr_tab.src   \
+      $(MSRC)\ctr\ctr_tri.src   \
+      $(MSRC)\ctr\ctr_vie.src   \
       $(MSRC)\fac\fac_ind.src   \
       $(MSRC)\fac\fac_ini.src   \
       $(MSRC)\fac\fac_lcl.src   \
-      $(MSRC)\fac\fac_lclasp.src \
+##       $(MSRC)\fac\_fac_lclmdl.src \
       $(MSRC)\fac\fac_set.src   \
       $(MSRC)\fac\fac_pac.src   \
+      $(MSRC)\fac\fac_paca.src  \
       $(MSRC)\fac\fac_pacx.src  \
       $(MSRC)\fac\fac_pacf.src  \
       $(MSRC)\fac\fac_pacl.src  \
+      $(MSRC)\fac\fac_pacflex.src  \
       $(MSRC)\fac\fac_seq.src   \
       $(MSRC)\fac\fac_tab.src   \
       $(MSRC)\fac\fac_tri.src   \
       $(MSRC)\fac\fac_vie.src   \
       $(MSRC)\ins\ins_ind.src   \
       $(MSRC)\ins\ins_ini.src   \
+      $(MSRC)\ins\ins_lcl.src   \
       $(MSRC)\ins\ins_pac.src   \
       $(MSRC)\ins\ins_seq.src   \
       $(MSRC)\ins\ins_tab.src   \
       $(MSRC)\ins\ins_tri.src   \
       $(MSRC)\ins\ins_vie.src   \
+      $(MSRC)\kpi\kpi_ind.src   \
+      $(MSRC)\kpi\kpi_ini.src   \
+      $(MSRC)\kpi\kpi_pac.src   \
+      $(MSRC)\kpi\kpi_seq.src   \
+      $(MSRC)\kpi\kpi_tab.src   \
+      $(MSRC)\kpi\kpi_tri.src   \
+      $(MSRC)\kpi\kpi_vie.src   \
       $(MSRC)\mld\mld_ind.src   \
       $(MSRC)\mld\mld_ini.src   \
       $(MSRC)\mld\mld_lcl.src   \
       $(MSRC)\mld\mld_pac.src   \
       $(MSRC)\mld\mld_seq.src   \
       $(MSRC)\mld\mld_tab.src   \
+      $(MSRC)\mld\mld_typ.src   \
       $(MSRC)\mld\mld_tri.src   \
       $(MSRC)\mld\mld_vie.src   \
       $(MSRC)\mrk\mrk_ind.src   \
@@ -230,10 +259,15 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\web\web_tab.src   \
       $(MSRC)\web\web_tri.src   \
       $(MSRC)\web\web_vie.src
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
+$(MSRC)\fac\_fac_lclmdl.src: \
+    $(MSRC)\fac\fac_lclmdl.csv
+ cscript /nologo $(MSRC)\fac\parse_fac_lclmld.js $** >$@
+
 ##########################################################################
 #### UPDATES CONSIST OF UPDATE AND RECREATE scripts
 ##########################################################################
@@ -245,6 +279,7 @@ $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src       \
       $(MSRC)\comsql.h       \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCUPDATE).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -256,6 +291,7 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(MSRC)\fclt.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
+ @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
@@ -275,7 +311,8 @@ $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL:   \
       $(MSRC)\care\care_vie.src  \
       $(MSRC)\care\care_pac.src  \
       $(MSRC)\care\care_ini.src
-    $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
+ $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql
 
@@ -285,6 +322,7 @@ $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
       $(MSRC)\care.src   \
       $(MSRC)\comsql.h   \
       $(EXE)\CARE\CARE$(NEXTCAREVERSION).sql
+ @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
  $(PRECOMP) $(PRECOMP_OPTIONS) $(CARERECREA).src>$*_.sql
  $(CLEANUP1) $*_.sql
  $(WRAP1) iname=$*_.sql oname=$*.sql

FCLT.SRC

@@ -1,12 +1,14 @@
--- [CREA*.SQL]
+-- [FCLT*.SQL]
 --
--- Script tbv het aanmaken van de FACILITOR omgeving in Oracle
--- Copyright 1996-2014 SG|facilitor bv.
+-- Script to initialise a FACILITOR database schema in Oracle
+-- Copyright 1996-2016 Facilitor bv, the Netherlands.
 -- All rights reserved!
 /*
  * $Revision$
  * $Id$
  */
+#define FCLT_CREATE
+
 #include "modules.h"
 #include "comsql.h"
 
@@ -14,6 +16,7 @@ SET TIME ON
 SET HEADING OFF
 SET FEEDBACK OFF
 SET ECHO OFF
+SET SERVEROUTPUT ON SIZE UNLIMITED;
 
 column fcltlogfile new_value fcltlogfile NOPRINT;
 select 'FACILITOR'|| _DBV_STRING || '_' || UPPER(USER || '_' || sys_context('USERENV', 'SERVICE_NAME') || '_' || sys_context('USERENV', 'SERVER_HOST')) || '_' || to_char(sysdate,'YYYYMMDD_HH24MISS') || '.lst' as fcltlogfile from dual;
@@ -44,22 +47,27 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2014 SG|facilitor bv. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2017 Facilitor bv, the Netherlands. ALL RIGHTS RESERVED.
 PROMPT
-PROMPT Dit is de gegenereerde list-file van FCLTnnn.sql welke
-PROMPT is gebruikt om de FACILITOR(r) _VERSION omgeving in Oracle aan te
-PROMPT maken.
+PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
+PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
 PROMPT
 
 SET LINESIZE 1000
 SET DEFINE OFF
 SET ECHO ON
 #include "adm\adm_tab.src"
+#include "adm\adm_seq.src"
+#include "adm\adm_tri.src"
 #include "adm\adm_pac.src"
 
+/* TYPES */
+#include "mld\mld_typ.src"
+
 /* TABLES */
 #include "fac\fac_tab.src"
 #include "alg\alg_tab.src"
+#include "aut\aut_tab.src"
 #include "ins\ins_tab.src"
 #include "prs\prs_tab.src"
 #include "mld\mld_tab.src"
@@ -71,12 +79,16 @@ SET ECHO ON
 #include "cnt\cnt_tab.src"
 #include "bes\bes_tab.src"
 #include "fin\fin_tab.src"
+#include "bgt\bgt_tab.src"
 #include "prj\prj_tab.src"
 #include "msg\msg_tab.src"
+#include "kpi\kpi_tab.src"
+#include "ctr\ctr_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
 #include "alg\alg_seq.src"
+#include "aut\aut_seq.src"
 #include "ins\ins_seq.src"
 #include "prs\prs_seq.src"
 #include "mld\mld_seq.src"
@@ -88,12 +100,16 @@ SET ECHO ON
 #include "cnt\cnt_seq.src"
 #include "bes\bes_seq.src"
 #include "fin\fin_seq.src"
+#include "bgt\bgt_seq.src"
 #include "prj\prj_seq.src"
 #include "msg\msg_seq.src"
+#include "kpi\kpi_seq.src"
+#include "ctr\ctr_seq.src"
 
 /* INDICES */
 #include "fac\fac_ind.src"
 #include "alg\alg_ind.src"
+#include "aut\aut_ind.src"
 #include "ins\ins_ind.src"
 #include "prs\prs_ind.src"
 #include "mld\mld_ind.src"
@@ -105,8 +121,11 @@ SET ECHO ON
 #include "cnt\cnt_ind.src"
 #include "bes\bes_ind.src"
 #include "fin\fin_ind.src"
+#include "bgt\bgt_ind.src"
 #include "prj\prj_ind.src"
 #include "msg\msg_ind.src"
+#include "kpi\kpi_ind.src"
+#include "ctr\ctr_ind.src"
 
 /* VIEWS, PACKAGES, TRIGGERS and LOCALES */
 #include "_up/recreate.inc"
@@ -125,8 +144,11 @@ SET ECHO ON
 #include "cnt\cnt_ini.src"
 #include "bes\bes_ini.src"
 #include "fin\fin_ini.src"
+#include "bgt\bgt_ini.src"
 #include "prj\prj_ini.src"
 #include "msg\msg_ini.src"
+#include "kpi\kpi_ini.src"
+#include "ctr\ctr_ini.src"
 
 COMMIT;
 
@@ -138,17 +160,20 @@ BEGIN fac.registerversion(_VERSIONMAJ, _VERSIONMIN, _VERSIONPATCH, _DBV_STRING,
 REGISTERONCE('$Id$')
 
 COMMIT;
-///////////////////////////// Report invalid objects, if any ///////
+/* Report invalid objects, if any */
 SET ECHO OFF
 SET LINESIZE 132
-PROMPT List of all invalid objects after FACILITOR creation:
+PROMPT List of all invalid objects after FACILITOR initialisation:
 SELECT 'OR'||'A-'||'DB'|| _DBV_STRING ||' Warning: ' || object_type || ' ' || object_name || ' is ' || status
   FROM user_objects
 WHERE object_type IN ('VIEW', 'TRIGGER', 'PACKAGE', 'PROCEDURE', 'FUNCTION', 'PACKAGE BODY')
 AND status <> 'VALID'
 ORDER BY object_name;
 
-SELECT 'FACILITOR/' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
-PROMPT Schema initialisatie is gereed, controleer de LST-files.
-PROMPT Neem bij vragen, twijfels of problemen contact op met FACILITOR.
+PROMPT ======================================================================
+SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL;
+PROMPT
+PROMPT Your schema initialisation is ready. Please check the logfile for errors.
+PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 700
+PROMPT Copyright (c) 1992-2017 Facilitor bv, the Netherlands. All rights reserved.
 SPOOL OFF

FIN/FIN_IND.SRC

@@ -7,8 +7,11 @@
 CREATE INDEX fin_i_fin_factuur1 ON fin_factuur(mld_opdr_key);
 CREATE INDEX fin_i_fin_factuur2 ON fin_factuur(cnt_contract_key);
 CREATE INDEX fin_i_fin_factuur3 ON fin_factuur(bes_bestelopdr_key);
+CREATE INDEX fin_i_fin_factuur4 ON fin_factuur(fin_factuur_statuses_key, fin_factuur_verwijder);
 CREATE INDEX fin_i_fin_factuurregel1 ON fin_factuurregel(fin_factuur_key);
 CREATE INDEX fin_i_fin_factuurnote1 ON fin_factuur_note(fin_factuur_key);
+CREATE INDEX fin_i_fin_verkoopfactuur1 ON fin_verkoopfactuur(fin_verkoopfactuur_refkey, fin_verkoopfactuur_xmlnode);
+CREATE INDEX fin_i_fin_verkoopfactuur2 ON fin_verkoopfactuur(fin_verkoopfactuur_id);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_INI.SRC

@@ -3,7 +3,7 @@
  *  $Id$
  */
 
-_FAC_MODULE('FIN','Facturen')
+_FAC_MODULE('FIN','lcl_module_FIN')
 
 DEF_STATUS('factuur', 1, 'lcl_fin_afgewezen');
 DEF_STATUS('factuur', 2, 'lcl_fin_ingevoerd');
@@ -14,7 +14,7 @@ DEF_STATUS('factuur', 7, 'lcl_fin_verwerkt');
 INSERT INTO fin_btwtabel (fin_btwtabel_key, fin_btwtabel_omschrijving, fin_btwtabel_default) VALUES (1, 'NL standaard', 1);
 INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(1, 1, '0', 'Nul', 0);
 INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(2, 1, 'L', 'Laag', 6);
-INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(3, 1, 'H', 'Hoog', 19);
+INSERT INTO fin_btwtabelwaarde (fin_btwtabelwaarde_key, fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_oms, fin_btwtabelwaarde_perc) VALUES(3, 1, 'H', 'Hoog', 21);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_PAC.SRC

@@ -40,8 +40,7 @@ AS
    FUNCTION getfactuurkostenplaats (pfactuur_key IN NUMBER)
       RETURN NUMBER;
 
-
-
+  FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER) RETURN VARCHAR2;
 END fin;
 /
 
@@ -66,10 +65,15 @@ AS
       CASE pstatus
          WHEN 1                                                                                             -- Afgewezen
          THEN
-            IF currentstatus IS NULL OR currentstatus = 2
+            IF currentstatus IS NULL OR currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
-               eventcode := 'FINFNO';
+               IF currentstatus = 5
+               THEN
+                 eventcode := 'FINGNO';
+               ELSE
+                 eventcode := 'FINFNO';
+               END IF;
             END IF;
          WHEN 2                                                                                             -- Ingevoerd
          THEN
@@ -77,19 +81,30 @@ AS
             THEN
                newstatus := pstatus;
                eventcode := 'FINNEW';
-            ELSIF currentstatus = 1 OR currentstatus = 6
+            ELSIF currentstatus = 1 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFUN';
+            ELSIF currentstatus = 6
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGUN';
             END IF;
-         WHEN 6                                                                                              -- Verwerkt
+         WHEN 5                                                                                             -- Ter goedkeuring
          THEN
             IF currentstatus = 2
+            THEN
+               newstatus := pstatus;
+               eventcode := 'FINGOE';
+            END IF;
+         WHEN 6                                                                                             -- Verwerkt
+         THEN
+            IF currentstatus = 2 OR currentstatus = 5
             THEN
                newstatus := pstatus;
                eventcode := 'FINFOK';
             END IF;
-         WHEN 7                                                                                            -- Uitgegeven
+         WHEN 7                                                                                             -- Uitgegeven
          THEN
             IF currentstatus = 6
             THEN
@@ -274,27 +289,30 @@ AS
       -- -1 factuur niet (automatisch) goed
       --  0 niks van te zeggen of reeds goed-/afgekeurd/verwerkt
       --  1 factuur okay
-      ftype VARCHAR2 (1);
-      c_key fin_factuur.cnt_contract_key%TYPE;
-      b_key fin_factuur.bes_bestelopdr_key%TYPE;
-      o_key fin_factuur.mld_opdr_key%TYPE;
-      factuurstatus fin_factuur.fin_factuur_statuses_key%TYPE;
-      factuurdatum fin_factuur.fin_factuur_datum%TYPE;
-      discipline ins_tab_discipline.ins_discipline_key%TYPE;
-      factmatchmode mld_disc_params.mld_disc_params_factmatchmode%TYPE;
-      korting bes_bestelopdr.bes_bestelopdr_korting%TYPE;
-      levkosten bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
-      contracttermijnkosten cnt_contract.cnt_contract_termijnkosten%TYPE;
-      contractkosten cnt_contract.cnt_contract_kosten%TYPE;
-      opdrachtkosten mld_opdr.mld_opdr_kosten%TYPE;
-      matchtype mld_typeopdr.mld_typeopdr_matchtype%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
-      totaalgefactureerdbtw NUMBER (12, 2);
-      opdrstatus mld_opdr.mld_statusopdr_key%TYPE;
-      retval NUMBER := 0;
-      inclbtw NUMBER := 0;
+      ftype                       VARCHAR2 (1);
+      c_key                       fin_factuur.cnt_contract_key%TYPE;
+      b_key                       fin_factuur.bes_bestelopdr_key%TYPE;
+      o_key                       fin_factuur.mld_opdr_key%TYPE;
+      factuurstatus               fin_factuur.fin_factuur_statuses_key%TYPE;
+      factuurdatum                fin_factuur.fin_factuur_datum%TYPE;
+      factuurboekmaand            fin_factuur.fin_factuur_boekmaand%TYPE;
+      discipline                  ins_tab_discipline.ins_discipline_key%TYPE;
+      factmatchmode               mld_disc_params.mld_disc_params_factmatchmode%TYPE;
+      korting                     bes_bestelopdr.bes_bestelopdr_korting%TYPE;
+      levkosten                   bes_bestelopdr.bes_bestelopdr_levkosten%TYPE;
+      contracttermijnkosten       cnt_contract.cnt_contract_termijnkosten%TYPE;
+      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;
+      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
+      totaalgefactureerdbtw       NUMBER (12, 2);
+      opdrstatus                  mld_opdr.mld_statusopdr_key%TYPE;
+      retval                      NUMBER := 0;
+      inclbtw                     NUMBER := 0;
    -- Bepaal te tolerantie van de vakgroep
    -- waarschijnlijk in procenten of zo?
    -- of geven we de factuurwaarde mee en leveren we true/false op?
@@ -318,13 +336,15 @@ AS
                bes_bestelopdr_key,
                fin_factuur_totaal,
                fin_factuur_statuses_key,
-               fin_factuur_datum
+               fin_factuur_datum,
+               fin_factuur_boekmaand
         INTO   o_key,
                c_key,
                b_key,
                factuurbedrag,
                factuurstatus,
-               factuurdatum
+               factuurdatum,
+               factuurboekmaand
         FROM   fin_factuur
        WHERE   fin_factuur_key = pfactuur_key;
 
@@ -361,11 +381,13 @@ AS
             factmatchmode := fin.getfactmatchmode (discipline, 'B');
 
             -- Zijn de bestelbedragen incl. of excl. BTW.
-            SELECT ks.prs_kostensoort_btw
+            SELECT MAX((SELECT ks.prs_kostensoort_btw
+                          FROM prs_kostensoort ks
+                         WHERE ks.prs_kostensoort_key = COALESCE(bsg.prs_kostensoort_key, bd.prs_kostensoort_key)))
               INTO inclbtw
               FROM bes_discipline bd,
-                   prs_kostensoort ks
-             WHERE bd.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+                   bes_srtgroep bsg
+             WHERE bd.ins_discipline_key = bsg.ins_discipline_key
                AND bd.ins_discipline_key = discipline;
 
             -- Bereken dan nu de voor de matching relevante bedragen
@@ -423,13 +445,16 @@ AS
          --
          WHEN ftype = 'C'
          THEN
+            -- om te beginnen zit deze factuur per definitie in deze termijn (welke dan ook)
+            totaaltermijngefactureerd := factuurbedrag;
+
             -- Controle op termijn bedrag en totaal, je kunt discussieren of _verwijder moet worden gecontroleerd.
             BEGIN
-                SELECT   c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
-                  INTO   contracttermijnkosten, contractkosten, discipline
-                  FROM   cnt_contract c
-                 WHERE   cnt_contract_status = 0  -- actief
-                   AND   cnt_contract_key = c_key;
+               SELECT c.cnt_contract_termijnkosten, c.cnt_contract_kosten, c.ins_discipline_key
+                 INTO contracttermijnkosten, contractkosten, discipline
+                 FROM cnt_contract c
+                WHERE cnt_contract_status = 0                                              -- actief
+                                             AND cnt_contract_key = c_key;
             EXCEPTION
                WHEN NO_DATA_FOUND
                THEN
@@ -437,19 +462,52 @@ AS
                   RETURN -1;
             END;
 
+            -- Er kan ook gebruik gemaakt worden van een factuurschema, dan moet het termijnbedrag anders bepaald worden
+            BEGIN
+               SELECT s.cnt_factuurschema_bedrag
+                 INTO factuurschemabedrag
+                 FROM cnt_factuurschema s
+                WHERE s.cnt_factuurschema_boekmaand = factuurboekmaand
+                      AND s.cnt_contract_key = c_key;
+
+               -- Ok, er is dus een factuurschema-bedrag voor deze periode: dan controleren:
+               -- waren er niet al facturen voor dezelfde periode en komt het totaal er met deze dan niet overheen?
+               SELECT SUM (fin_factuur_totaal)                                          -- Excl. BTW
+                 INTO totaaltermijngefactureerd
+                 FROM fin_factuur
+                WHERE     cnt_contract_key = c_key
+                      AND fin_factuur_statuses_key <> 1
+                      AND fin_factuur_verwijder IS NULL
+                      AND fin_factuur_datum <= factuurdatum
+                      AND fin_factuur_boekmaand = factuurboekmaand;
+            -- totaaltermijngefactureerd is dus voor deze periode inclusief deze nieuwe, dus
+            -- dus mogelijk hoger dan deze ene factuur
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  DBMS_OUTPUT.put_line(   'Geen factuurschema van toepassing voor contract '
+                                       || c_key
+                                       || ' in periode '
+                                       || factuurboekmaand);
+            -- factuurschemabedrag is nu null
+            END;
+
             -- LET OP: contractbedragen worden altijd excl. BTW. verondersteld
-
             -- Zou hier horen, maar we doen er toch niks mee: factmatchmode := fin.getfactmatchmode (discipline, 'C');
-            SELECT   SUM (fin_factuur_totaal) -- Excl. BTW
-              INTO   totaalgefactureerd
-              FROM   fin_factuur
-             WHERE   cnt_contract_key = c_key
-               AND   fin_factuur_statuses_key <> 1
-               AND   fin_factuur_verwijder IS NULL
-               AND   fin_factuur_datum <= factuurdatum;
+            SELECT SUM (fin_factuur_totaal)                                             -- Excl. BTW
+              INTO totaalgefactureerd
+              FROM fin_factuur
+             WHERE     cnt_contract_key = c_key
+                   AND fin_factuur_statuses_key <> 1
+                   AND fin_factuur_verwijder IS NULL
+                   AND fin_factuur_datum <= factuurdatum;
 
-            IF totaalgefactureerd <= contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
-               AND fin.tolerantiematch (discipline, ftype, factuurbedrag, contracttermijnkosten) = 1
+            IF totaalgefactureerd <=
+                  contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
+               AND fin.tolerantiematch (discipline,
+                                        ftype,
+                                        totaaltermijngefactureerd,
+                                        COALESCE (factuurschemabedrag, contracttermijnkosten)) = 1
             THEN
                retval := 1;
             ELSE
@@ -526,7 +584,12 @@ AS
       CASE fin.matchfactuur (pfactuur_key)
          WHEN 1
          THEN
-            fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            IF fac.getsetting('fin_enable_goedkeuren') <> 0
+            THEN
+               fin.setfactuurstatus (pfactuur_key, 5, NULL);
+            ELSE
+               fin.setfactuurstatus (pfactuur_key, 6, NULL);
+            END IF;
          WHEN -1
          THEN
             IF prejecttoo
@@ -648,7 +711,7 @@ AS
          SELECT   DISTINCT COALESCE (btw.fin_btwtabel_key, fin.getdefaultbtwtabelkey ()) btwtabel_key
            FROM   cnt_contract c, prs_bedrijf bd, fin_btwtabel btw
           WHERE       btw.fin_btwtabel_key(+) = bd.fin_btwtabel_key
-                  AND bd.prs_bedrijf_key = c.cnt_prs_bedrijf_key
+                  AND bd.prs_bedrijf_key(+) = c.cnt_prs_bedrijf_key
                   AND c.cnt_contract_key = p_ckey;
 
       CURSOR mld_btwtabel
@@ -816,6 +879,21 @@ AS
 
       RETURN kpkey;
    END;
+
+   FUNCTION sprintf (ps IN VARCHAR2 , p_factuur_key IN NUMBER)
+      RETURN VARCHAR2
+   IS
+      s VARCHAR2 (2048 CHAR);
+   BEGIN
+      s :=  ps;
+      -- We do support substitution of placeholders in the messages
+      -- ##KEY##    = fin_factuur_key
+      IF INSTR (s, '#') > 0
+      THEN
+         s := REPLACE (s, '##KEY##', p_factuur_key);
+      END IF;
+      RETURN s;
+   END;
 END fin;
 /
 

FIN/FIN_SEQ.SRC

@@ -13,6 +13,8 @@ CREATE SEQUENCE fin_s_fin_btwtabel_key MINVALUE 2;  /* 1 wordt gebruikt in de fi
 CREATE SEQUENCE fin_s_fin_btwtabelwaarde_key MINVALUE 4; /* eerste 3 standaard gevuld */
 
 CREATE SEQUENCE fin_s_fin_factuur_note_key MINVALUE 1;
+CREATE SEQUENCE fin_s_fin_verkoopfactuur_key MINVALUE 1;
+CREATE SEQUENCE fin_s_verkoopfactuurkop_key MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

FIN/FIN_TAB.SRC

@@ -53,10 +53,22 @@ CREATE_TABLE(fin_btwtabelwaarde, 0)
     CONSTRAINT fin_u_fin_btwtabelwaarde UNIQUE(fin_btwtabel_key, fin_btwtabelwaarde_code, fin_btwtabelwaarde_verwijder)
 );
 
+ALTER TABLE prs_kostensoort ADD fin_btwtabelwaarde_key NUMBER(10) CONSTRAINT prs_r_fin_btwtabelwaarde_key REFERENCES fin_btwtabelwaarde (fin_btwtabelwaarde_key);
+
 ALTER TABLE prs_bedrijf
         ADD fin_btwtabel_key NUMBER(10)
  CONSTRAINT prs_r_fin_btwtabel_key1 REFERENCES fin_btwtabel(fin_btwtabel_key);
 
+ALTER TABLE mld_opdr_materiaal
+        ADD fin_btwtabelwaarde_key NUMBER(10)
+ CONSTRAINT mld_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
+
+// FSN#37318
+ALTER TABLE ins_srtcontrole
+				ADD fin_btwtabelwaarde_key NUMBER(10)
+ CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key);
+
+
 CREATE_TABLE(fin_factuur,0)
 (
   fin_factuur_key
@@ -66,10 +78,12 @@ CREATE_TABLE(fin_factuur,0)
     VARCHAR2(30)
     NOT_NULL(fin_factuur_nr, fin_c_fin_factuur0)
 , fin_factuur_totaal
-    NUMBER(8,2)
+    NUMBER(12,2)
 , fin_factuur_totaal_btw
-    NUMBER (10,4)
+    NUMBER (14,4)
     NOT_NULL(fin_factuur_totaal_btw, fin_c_fin_factuur1)
+, fin_factuur_gbedrag
+    NUMBER(14,2)
 , mld_opdr_key
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur1 REFERENCES mld_opdr(mld_opdr_key)
@@ -82,6 +96,9 @@ CREATE_TABLE(fin_factuur,0)
 , prs_perslid_key_user
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur4 REFERENCES prs_perslid(prs_perslid_key)
+, prs_perslid_key_goedkeur
+    NUMBER(10)
+    CONSTRAINT fin_r_fin_factuur6 REFERENCES prs_perslid(prs_perslid_key)
 , fin_factuur_datum
     DATE
     NOT_NULL(fin_factuur_datum, fin_c_fin_factuur3)
@@ -96,8 +113,12 @@ CREATE_TABLE(fin_factuur,0)
     VARCHAR2(250)
 , fin_factuur_statuses_key
     NUMBER(10)
-    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,6,7))
+    CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7))
     NOT_NULL(fin_factuur_statuses_key, fin_c_fin_factuur5)
+, fin_factuur_bron
+    NUMBER(3)
+    DEFAULT 0
+    NOT NULL
 , fin_factuur_verwijder
     DATE
 );
@@ -114,13 +135,13 @@ CREATE_TABLE(fin_factuurregel,0)
 , fin_factuurregel_nr
     NUMBER
 , fin_factuurregel_totaal
-    NUMBER(8,2)
+    NUMBER(12,2)
     NOT_NULL(fin_factuurregel_totaal, fin_c_fin_factuurregel2)
 , fin_factuurregel_btw
-    NUMBER(10,4)
+    NUMBER(14,4)
     NOT_NULL(fin_factuurregel_btw, fin_c_fin_factuurregel3)
 , fin_factuurregel_omschrijving
-    VARCHAR2(60)
+    VARCHAR2(250)
 , fin_factuurregel_referentie
     VARCHAR2(30)
 , fin_btwtabelwaarde_key
@@ -157,7 +178,7 @@ CREATE_TABLE(fin_kenmerk,0)
         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'))
+        CONSTRAINT fin_c_fin_kenmerk_type1 CHECK(fin_kenmerk_kenmerktype IN ('C','N','D','R','X','L','Q','F','M','E','S', 'l', 'B'))
     ,fin_kenmerk_systeem
         NUMBER(1)
     ,fin_kenmerk_toonbaar
@@ -168,6 +189,9 @@ CREATE_TABLE(fin_kenmerk,0)
        VARCHAR2(255)
     ,fin_kenmerk_verplicht
         NUMBER(1)
+    ,fin_kenmerk_groep
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,fin_kenmerk_lengte
         NUMBER(4)
     ,fin_kenmerk_dec
@@ -240,6 +264,72 @@ CREATE_TABLE(fin_factuur_note, 0)
    fin_factuur_note_omschrijving    VARCHAR2 (4000 CHAR)
 );
 
+// Met name om er een model (scaffolding) op te kunnen baseren is een kop-tabel erg wenselijk.
+CREATE_TABLE(fin_verkoopfactuurkop, 0)
+(
+    fin_verkoopfactuurkop_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuurkop_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    CONSTRAINT fin_u_verkoopfactuurkop_id UNIQUE(fin_verkoopfactuurkop_id)
+);
+
+// Een basistabel waarin verkoopfactuurREGELS kunnen worden bewaard als een soort hardcopy
+// Deze tabel wordt (vooralsnog) niet door de core-programmatuur gevuld maar is wel een
+// uniforme opslag voor latere referentie; vervangt de diverse cust-tabellen die ontstonden
+// Voor verschillende waarden (van bv kostenplaats of btwpercentage) zijn er verschillende regels
+// Stamgegevens kunnen later wijzigen en worden hier bevroren, overige gegevens kunnen worden
+// teruggevonden via de bijbehorende referentie
+// Tevens zijn er plenty extra kolommen voor gebruik naar eigen inzicht
+// LET OP: dit is bewust de rand van ons datamodel, hierin verder gaan opent de beerput van de financiele wereld
+//         waar we niet vrijwillig in willen vallen.
+// LET OP: de verwijzing fin_verkoopfactuurkop_key is optioneel.
+//         Indien een cust dit via de GUI wil gebruiken is deze vereist.
+CREATE_TABLE(fin_verkoopfactuur, 0)
+(
+    fin_verkoopfactuur_key          NUMBER(10) PRIMARY KEY,
+    fin_verkoopfactuurkop_key       NUMBER(10) REFERENCES fin_verkoopfactuurkop(fin_verkoopfactuurkop_key) ON DELETE CASCADE,
+    fin_verkoopfactuur_aanmaak      DATE DEFAULT SYSDATE,
+    fin_verkoopfactuur_id           VARCHAR2(30),   /* het (externe) factuurnummer, vaak wel numeriek */
+    fin_verkoopfactuur_datum        DATE,           /* de factuurdatum */
+    fin_verkoopfactuur_omschr       VARCHAR2(1000),
+    fin_verkoopfactuur_xmlnode      VARCHAR2(60),   /* type van waarover deze factuur gaat */
+    fin_verkoopfactuur_refkey       NUMBER(10),   /* key van de bijbehorende entiteit van type xmlnode */
+    prs_kostenplaats_key            NUMBER(10),
+    prs_kostenplaats_nr             VARCHAR2(30),
+    prs_kostenplaats_omschrijving   VARCHAR2(60),
+    prs_kostenplaatsgrp_oms         VARCHAR2(60),
+    prs_kostensoort_oms             VARCHAR2(60),
+    prs_kostensoort_opmerking       VARCHAR2(255),
+    prs_kostensoort_refcode         VARCHAR2(60),
+    prs_bedrijf_key                 NUMBER(10),
+    prs_debiteur_naam               VARCHAR2(60),   /* kan prs_bedrijf_naam zijn maar hoeft niet */
+    prs_kostensoortgrp_oms          VARCHAR2(60),
+    fin_verkoopfactuur_bedrag       NUMBER(12,2),
+    fin_verkoopfactuur_btw          NUMBER(12,2),
+    fin_btwtabelwaarde_code         VARCHAR2(10),
+    fin_btwtabelwaarde_oms          VARCHAR2(30),
+    fin_btwtabelwaarde_perc         NUMBER(5,3),
+    fin_btwtabelwaarde_verlegd      NUMBER(1),
+    fin_verkoopfactuur_maand        VARCHAR2(6),    /* boekmaand, bv 201409 */
+    fin_verkoopfactuur_n1           NUMBER(14,4),
+    fin_verkoopfactuur_n2           NUMBER(14,4),
+    fin_verkoopfactuur_n3           NUMBER(14,4),
+    fin_verkoopfactuur_n4           NUMBER(14,4),
+    fin_verkoopfactuur_n5           NUMBER(14,4),
+    fin_verkoopfactuur_c1           VARCHAR2(200),
+    fin_verkoopfactuur_c2           VARCHAR2(200),
+    fin_verkoopfactuur_c3           VARCHAR2(200),
+    fin_verkoopfactuur_c4           VARCHAR2(200),
+    fin_verkoopfactuur_c5           VARCHAR2(200),
+    fin_verkoopfactuur_c6           VARCHAR2(500),
+    fin_verkoopfactuur_c7           VARCHAR2(1000),
+    fin_verkoopfactuur_c8           VARCHAR2(4000),
+    fin_verkoopfactuur_d1           DATE,
+    fin_verkoopfactuur_d2           DATE,
+    fin_verkoopfactuur_d3           DATE,
+    fin_verkoopfactuur_d4           DATE,
+    fin_verkoopfactuur_d5           DATE
+);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_TRI.SRC

@@ -84,7 +84,7 @@ BEGIN
                APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType = 'N'
+         ELSIF KenmerkType IN ('N', 'B')
          /*
          ** Number
          */
@@ -302,14 +302,12 @@ BEGIN
    THEN
       APPLICATION_ERROR(-20003, 'fin_M238');
    END IF;
-   IF (:new.fin_kenmerk_kenmerktype IN ('C','N'))
-   AND :new.fin_kenmerk_lengte IS NULL
+   IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL
    THEN
       APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
    END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.fin_kenmerk_kenmerktype = 'N'
-   AND :new.fin_kenmerk_lengte > 20
+   IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20
    THEN
       :new.fin_kenmerk_lengte := 20;
    END IF;
@@ -391,6 +389,22 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fin_t_verkoopfactuurkop_b_i)
+BEFORE INSERT ON fin_verkoopfactuurkop
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuurkop_key, fin_s_verkoopfactuurkop_key);
+END;
+/
+
+CREATE_TRIGGER(fin_t_fin_verkoopfactuur_b_iu)
+BEFORE INSERT OR UPDATE ON fin_verkoopfactuur
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(fin_verkoopfactuur_key, fin_s_fin_verkoopfactuur_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif // FIN

FIN/FIN_VIE.SRC

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

INS/INSSQL.H

@@ -184,8 +184,6 @@
     END;                                                                       \
  END IF
 
-#ifndef MS_SQL
-
 #define INS_CHECK_NOG_REFERENCES(tabel,tabel_verwijder_veld,reference_view,    \
     reference_verwijder_veld, key_veld, message)                               \
  DECLARE                                                                       \
@@ -206,19 +204,4 @@
         APPLICATION_ERROR(-20000,message);                                     \
  END
 
-#else
-
-#define INS_CHECK_NOG_REFERENCES(tabel,tabel_verwijder_veld,reference_view,    \
-    reference_verwijder_veld, key_veld, message)                               \
-    IF :new.tabel_verwijder_veld IS NOT NULLDATUM _THEN                        \
-      if (  SELECT count(*)                                                    \
-            FROM reference_view                                                \
-            WHERE reference_view.key_veld = :old.key_veld                      \
-              AND reference_view.reference_verwijder_veld IS NULL)>0 _THEN     \
-        APPLICATION_ERROR(-20000,message);                                     \
-      _END_IF                                                                  \
-    _END_IF
-
-#endif
-
 #endif // _INSSQL_H

INS/INS_IND.SRC

@@ -39,6 +39,8 @@ CREATE UNIQUE INDEX ins_i_ins_disc_params1 ON ins_disc_params(ins_discipline_key
 
 CREATE UNIQUE INDEX ins_i_ins_deel_state_hist1 ON ins_deel_state_history(ins_deel_key, ins_deel_statedate);
 
+CREATE INDEX ins_i_ins_deelsrtcontrole1 ON ins_deelsrtcontrole(ins_deelsrtcontrole_status, ins_deel_key);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_INI.SRC

@@ -4,21 +4,17 @@
  * $Id$
  */
 
-_FAC_MODULE('INS','Objectbeheer')
-_FAC_MODULE('SLE','Sleutelbeheer')
+_FAC_MODULE('INS','lcl_module_INS')
+_FAC_MODULE('SLE','lcl_module_SLE')
 
 INSERT INTO fac_usrrap
             (fac_usrrap_omschrijving, fac_usrrap_view_name,
-             fac_usrrap_in_huidige_locatie,
-             fac_usrrap_template, fac_usrrap_macro,
              fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum,
              fac_usrrap_functie,
              fac_usrrap_info,
              fac_functie_key, fac_usrrap_autorefresh
             )
      VALUES ('SLE: Sleuteloverzicht', 'ins_v_rap_sle_toegang',
-             NULL,
-             NULL, NULL,
              0, 0,
              0,
              'Overzicht van sleutels en bezitters',
@@ -27,6 +23,10 @@ INSERT INTO fac_usrrap
              0
             );
 
+DEF_STATUS('controle', 0, 'lcl_ins_controle_pending');
+DEF_STATUS('controle', 2, 'lcl_ins_controle_gestart');
+DEF_STATUS('controle', 5, 'lcl_ins_controle_afgemeld');
+DEF_STATUS('controle', 6, 'lcl_ins_controle_verwerkt');
 
 REGISTERONCE('$Id$')
 

INS/INS_LCL.SRC

@@ -0,0 +1,122 @@
+#ifdef  INS
+/*
+ *  $Id$
+ *  $Revision$
+ */
+
+START_LOCALEITEMS('INS_TAB_DISCIPLINE_KEY')
+DEFINE_LOCALEITEM(ins_controlemode_success)
+DEFINE_LOCALEITEM(ins_srtcontrole_groep)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten2)
+DEFINE_LOCALEITEM(ins_srtcontrole_kosten3)
+DEFINE_LOCALEITEM(ins_srtcontrole_materiaal)
+DEFINE_LOCALEITEM(ins_srtcontrole_opmerking)
+DEFINE_LOCALEITEM(ins_srtcontrole_percentage)
+DEFINE_LOCALEITEM(ins_srtcontrole_uren)
+DEFINE_LOCALEITEM(lcl_bld_terra)
+DEFINE_LOCALEITEM(lcl_building)
+DEFINE_LOCALEITEM(lcl_cancel)
+DEFINE_LOCALEITEM(lcl_change)
+DEFINE_LOCALEITEM(lcl_count)
+DEFINE_LOCALEITEM(lcl_date)
+DEFINE_LOCALEITEM(lcl_delete)
+DEFINE_LOCALEITEM(lcl_discipline)
+DEFINE_LOCALEITEM(lcl_district)
+DEFINE_LOCALEITEM(lcl_estate_gebouw_title)
+DEFINE_LOCALEITEM(lcl_ins_additional_details)
+DEFINE_LOCALEITEM(lcl_ins_change_xcp)
+DEFINE_LOCALEITEM(lcl_ins_close)
+DEFINE_LOCALEITEM(lcl_ins_controle)
+DEFINE_LOCALEITEM(lcl_ins_controle_act_req)
+DEFINE_LOCALEITEM(lcl_ins_controle_afgemeld)
+DEFINE_LOCALEITEM(lcl_ins_controle_afgerond)
+DEFINE_LOCALEITEM(lcl_ins_controle_dagelijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_datum)
+DEFINE_LOCALEITEM(lcl_ins_controle_derde)
+DEFINE_LOCALEITEM(lcl_ins_controle_eenheid)
+DEFINE_LOCALEITEM(lcl_ins_controle_eennalaatste)
+DEFINE_LOCALEITEM(lcl_ins_controle_eerste)
+DEFINE_LOCALEITEM(lcl_ins_controle_first)
+DEFINE_LOCALEITEM(lcl_ins_controle_gestart)
+DEFINE_LOCALEITEM(lcl_ins_controle_groep)
+DEFINE_LOCALEITEM(lcl_ins_controle_identical_values)
+DEFINE_LOCALEITEM(lcl_ins_controle_is_upd)
+DEFINE_LOCALEITEM(lcl_ins_controle_jaarlijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_laatste)
+DEFINE_LOCALEITEM(lcl_ins_controle_legenda)
+DEFINE_LOCALEITEM(lcl_ins_controle_maandelijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_mode)
+DEFINE_LOCALEITEM(lcl_ins_controle_notholiday)
+DEFINE_LOCALEITEM(lcl_ins_controle_opm)
+DEFINE_LOCALEITEM(lcl_ins_controle_pending)
+DEFINE_LOCALEITEM(lcl_ins_controle_period)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_fronttext)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_ofthemonth)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearday)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearhour)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonth)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearmonthon)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweek)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearweekon)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyear)
+DEFINE_LOCALEITEM(lcl_ins_controle_period_rearyearin)
+DEFINE_LOCALEITEM(lcl_ins_controle_plan)
+DEFINE_LOCALEITEM(lcl_ins_controle_plandate)
+DEFINE_LOCALEITEM(lcl_ins_controle_soon)
+DEFINE_LOCALEITEM(lcl_ins_controle_srt)
+DEFINE_LOCALEITEM(lcl_ins_controle_srt_verplicht)
+DEFINE_LOCALEITEM(lcl_ins_controle_tweede)
+DEFINE_LOCALEITEM(lcl_ins_controle_uurlijks)
+DEFINE_LOCALEITEM(lcl_ins_controle_vierde)
+DEFINE_LOCALEITEM(lcl_ins_controle_vijfde)
+DEFINE_LOCALEITEM(lcl_ins_controle_wekelijks)
+DEFINE_LOCALEITEM(lcl_ins_finish)
+DEFINE_LOCALEITEM(lcl_ins_finishing)
+DEFINE_LOCALEITEM(lcl_ins_info)
+DEFINE_LOCALEITEM(lcl_ins_inspecteur)
+DEFINE_LOCALEITEM(lcl_ins_interval_kenmerken)
+DEFINE_LOCALEITEM(lcl_ins_kosten)
+DEFINE_LOCALEITEM(lcl_ins_object)
+DEFINE_LOCALEITEM(lcl_ins_planned_activities)
+DEFINE_LOCALEITEM(lcl_ins_respijt)
+DEFINE_LOCALEITEM(lcl_ins_schedule)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_insp)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_repl)
+DEFINE_LOCALEITEM(lcl_ins_srtcontrole_type)
+DEFINE_LOCALEITEM(lcl_ins_start)
+DEFINE_LOCALEITEM(lcl_ins_starting)
+DEFINE_LOCALEITEM(lcl_ins_status)
+DEFINE_LOCALEITEM(lcl_ins_vervaldatum)
+DEFINE_LOCALEITEM(lcl_location)
+DEFINE_LOCALEITEM(lcl_mjb_becancelled)
+DEFINE_LOCALEITEM(lcl_mjb_dragdrop)
+DEFINE_LOCALEITEM(lcl_mjb_frequency)
+DEFINE_LOCALEITEM(lcl_mjb_group)
+DEFINE_LOCALEITEM(lcl_mjb_inclbtw)
+DEFINE_LOCALEITEM(lcl_mjb_inflation)
+DEFINE_LOCALEITEM(lcl_mjb_overruled_xcp)
+DEFINE_LOCALEITEM(lcl_mjb_phasingout)
+DEFINE_LOCALEITEM(lcl_mjb_uptoyear)
+DEFINE_LOCALEITEM(lcl_name)
+DEFINE_LOCALEITEM(lcl_obj_group)
+DEFINE_LOCALEITEM(lcl_obj_identification)
+DEFINE_LOCALEITEM(lcl_obj_sort)
+DEFINE_LOCALEITEM(lcl_opdr_plandate)
+DEFINE_LOCALEITEM(lcl_park)
+DEFINE_LOCALEITEM(lcl_remark)
+DEFINE_LOCALEITEM(lcl_search)
+DEFINE_LOCALEITEM(lcl_search_generic)
+DEFINE_LOCALEITEM(lcl_select_controlemode)
+DEFINE_LOCALEITEM(lcl_select_discipline)
+DEFINE_LOCALEITEM(lcl_select_srtcontrole)
+DEFINE_LOCALEITEM(lcl_shared_doaction)
+DEFINE_LOCALEITEM(lcl_show)
+DEFINE_LOCALEITEM(lcl_status_details)
+DEFINE_LOCALEITEM(lcl_submit)
+DEFINE_LOCALEITEM(lcl_Total)
+DEFINE_LOCALEITEM(lcl_valutasign)
+END_LOCALEITEMS()
+
+REGISTERONCE('$Id$')
+#endif  // INS

INS/INS_PAC.SRC

@@ -6,8 +6,12 @@
 
 CREATE OR REPLACE PACKAGE ins AS
     FUNCTION delete_deelkoppeling( DeelKey IN NUMBER ) RETURN BOOLEAN;
-    FUNCTION get_description(LPNName   IN VARCHAR2, CondKey   IN NUMBER, Prefix    IN VARCHAR2, PrefixKey IN NUMBER) RETURN VARCHAR2;
+    FUNCTION get_description(LPNName   IN VARCHAR2, CondKey   IN NUMBER, Prefix    IN VARCHAR2) RETURN VARCHAR2;
     FUNCTION sprintf (ps IN varchar2, pins_deel_key IN number) RETURN varchar2;
+    FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number) RETURN varchar2;
+    FUNCTION nextcyclusdate (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
+    FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
+    PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
 END ins;
 /
 
@@ -28,33 +32,32 @@ CREATE OR REPLACE PACKAGE BODY ins AS
     -- Was: FAC_F_FAC_GET_DESCRIPTION
     FUNCTION get_description(LPNName   IN VARCHAR2
                             ,CondKey   IN NUMBER
-                            ,Prefix    IN VARCHAR2
-                            ,PrefixKey IN NUMBER) RETURN VARCHAR2 IS
+                            ,Prefix    IN VARCHAR2) RETURN VARCHAR2 IS
       NextVolgNr    VARCHAR2(30);
       DeelUpper     ins_deel.ins_deel_omschrijving%TYPE;
       ReturnString  VARCHAR2(30);
     BEGIN
-      -- From 4.40 on, CondKey is dummy for ins_deel (object/subobject): uniqueness is assumed over the entire database
+      -- From 4.40 on, CondKey is dummy for ins_deel (object): uniqueness is assumed over the entire database
+      -- From DB23 on, object uniqueness is forced by prefix only, last parameter PrefixKey was dropped
       IF LPNName = 'LPN_INS_DEEL'
       THEN
         SELECT NVL(LPAD( TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))))+1) , MAX(LENGTH(ins_deel_upper)-LENGTH(Prefix)),'0'),'001')
-            INTO NextVolgNr
-        FROM INS_DEEL
-        WHERE ins_deel_upper LIKE Prefix||'%'
-        AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
-        AND LTRIM(SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1), '0') = TO_CHAR(fac.safe_to_integer ((SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1))))
-        AND ins_deel_parent_key IS NULL
-        AND ins_deel_verwijder IS NULL
-        AND ins_srtdeel_key = PrefixKey;
+          INTO NextVolgNr
+          FROM ins_deel
+         WHERE ins_deel_upper LIKE Prefix||'%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
+           AND LTRIM(SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1), '0') = TO_CHAR(fac.safe_to_integer ((SUBSTR (ins_deel_upper, LENGTH (Prefix) + 1))))
+           AND ins_deel_parent_key IS NULL
+           AND ins_deel_verwijder IS NULL;
       ELSIF LPNName = 'LPN_INS_ONDERDEEL'
       THEN
         SELECT NVL(LPAD( TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))))+1) , MAX(LENGTH(ins_deel_upper)-LENGTH(Prefix)),'0'),'001')
-            INTO NextVolgNr
-        FROM INS_DEEL
-        WHERE ins_deel_upper LIKE Prefix||'%'
-        AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
-        AND ins_deel_parent_key = CondKey
-        AND ins_deel_verwijder IS NULL;
+          INTO NextVolgNr
+          FROM INS_DEEL
+         WHERE ins_deel_upper LIKE Prefix||'%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(Prefix)+1,LENGTH(ins_deel_upper)-LENGTH(Prefix))) IS NOT NULL
+           AND ins_deel_parent_key = CondKey
+           AND ins_deel_verwijder IS NULL;
       ELSIF LPNName = 'LPN_ALG_TERREINSECTOR'
       THEN
         FOR i IN 3..10
@@ -177,21 +180,193 @@ CREATE OR REPLACE PACKAGE BODY ins AS
              INTO   lins_deel_omschrijving
              FROM   ins_deel
             WHERE   ins_deel_key = pins_deel_key;
-            s :=
-               REPLACE (s,
-                        '##DESC##',
-                        lins_deel_omschrijving
-                       );
+           s :=  REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key));
          END IF;
 
        RETURN s;
     END;
 
+    FUNCTION contrsprintf (ps IN varchar2, pins_deelsrtcontr_key IN number)
+       RETURN varchar2
+    IS
+       s varchar2 (2048 CHAR);
+    BEGIN
+       s := ps;
+         IF INSTR2 (s, '#') > 0
+         THEN
+           s :=  REPLACE (s, '##KEY##', TO_CHAR (pins_deelsrtcontr_key));
+         END IF;
+
+       RETURN s;
+    END;
+
+    -- Berekent de n-de (p_steps) controledatum na p_date.
+    -- Indien p_steps niet is meegegeven dan wordt de eerstvolgende controledatum na nu teruggegeven.
+    -- steps = 0, (NULL): 1-ste vandaag of in de toekomst (als meegegeven datum (p_date) de huidite datum is, dan deze weer teruggeven).
+    -- steps = n: n-volgende vanaf meegegeven datum (p_date). Als deze berekende datum in de toekomst ligt en steps is nog niet null, dan wordt NULL teruggegeven).
+    -- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
+    FUNCTION nextcyclusdate (p_insdeel     IN NUMBER,
+                             p_srtcontrole IN NUMBER,
+                             p_steps       IN NUMBER DEFAULT 0)
+        RETURN DATE
+    IS
+        inspdate   DATE;
+    BEGIN
+        SELECT inspectie_next
+          INTO inspdate
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+
+                SELECT fac.nextcyclusdate (COALESCE ( (SELECT CASE di.ins_srtcontrole_mode
+                                                              WHEN 0
+                                                              THEN idsc.ins_deelsrtcontrole_datum_org
+                                                              ELSE idsc.ins_deelsrtcontrole_datum
+                                                              END ins_deelsrtcontrole_datum
+                                                         FROM ins_deelsrtcontrole idsc
+                                                        WHERE idsc.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                          AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                          AND idsc.ins_deel_key = di.ins_deel_key
+                                                          AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
+                                                                                                FROM ins_deelsrtcontrole idsc2
+                                                                                               WHERE idsc2.ins_deel_key = di.ins_deel_key
+                                                                                                 AND idsc2.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                                                                 AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
+                                                      di.ins_deel_aanmaak),
+                                           di.ins_srtcontrole_mode,
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                           COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                           p_steps
+                                          ) inspectie_next
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole);
+
+        RETURN inspdate;
+    END;
+
+    -- De einddatum van het object (xcp.ins_srtcontroledl_xcp_eind) wordt niet meegenomen. De volgende inspectiedatum wordt gewoon teruggeven.
+    FUNCTION nextcyclusdatesteps (p_insdeel     IN NUMBER,
+                                  p_srtcontrole IN NUMBER,
+                                  p_steps       IN NUMBER DEFAULT 1)     -- Standaard beginnen te tellen bij 1.
+        RETURN NUMBER
+    IS
+        lsteps     NUMBER;
+    BEGIN
+        SELECT inspectie_steps
+          INTO lsteps
+          FROM (WITH defined_inspect AS (SELECT isc.ins_srtcontrole_key,
+                                                isc.ins_srtcontrole_mode,
+                                                isc.ins_srtcontrole_eenheid,
+                                                isc.ins_srtcontrole_bits,
+                                                isc.ins_srtcontrole_periode,
+                                                id.ins_deel_key,
+                                                id.ins_deel_aanmaak
+                                           FROM ins_deel id,
+                                                ins_srtdeel s,
+                                                ins_srtcontrole isc
+                                          WHERE s.ins_srtdeel_key = id.ins_srtdeel_key
+                                            AND (isc.ins_srtcontrole_niveau = 'S'
+                                             AND isc.ins_srtinstallatie_key = id.ins_srtdeel_key
+                                              OR isc.ins_srtcontrole_niveau = 'G'
+                                             AND isc.ins_srtinstallatie_key = s.ins_srtgroep_key
+                                              OR isc.ins_srtcontrole_niveau = 'D'
+                                             AND isc.ins_srtinstallatie_key = id.ins_discipline_key)
+                                            AND id.ins_deel_key = p_insdeel)
+                SELECT fac.nextcyclusdatesteps (COALESCE ( (SELECT COALESCE(idsc.ins_deelsrtcontrole_plandatum, idsc.ins_deelsrtcontrole_datum_org) ins_deelsrtcontrole_datum
+                                                               FROM ins_deelsrtcontrole idsc
+                                                              WHERE di.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                                                                AND idsc.ins_deelsrtcontrole_status IN (5,6)
+                                                                AND idsc.ins_deel_key = di.ins_deel_key
+                                                                AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(idsc2.ins_deelsrtcontrole_key)
+                                                                                                      FROM ins_deelsrtcontrole idsc2
+                                                                                                      WHERE idsc2.ins_deel_key = p_insdeel
+                                                                                                      AND idsc2.ins_srtcontrole_key = p_srtcontrole
+                                                                                                       AND idsc2.ins_deelsrtcontrole_status IN (5,6))),
+                                                             ins_deel_aanmaak),
+                                                di.ins_srtcontrole_mode,
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_eenheid, di.ins_srtcontrole_eenheid),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_periode, di.ins_srtcontrole_periode),
+                                                COALESCE(xcp.ins_srtcontroledl_xcp_bits, di.ins_srtcontrole_bits),
+                                                p_steps
+                                               ) inspectie_steps
+                   FROM defined_inspect di,
+                        ins_srtcontroledl_xcp xcp
+                  WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key(+)
+                    AND di.ins_deel_key = xcp.ins_deel_key(+)
+                    AND di.ins_deel_key = p_insdeel
+                    AND di.ins_srtcontrole_key = p_srtcontrole);
+
+        RETURN lsteps;
+    END;
+
+    -- Geef deelsrtcontrolekey, gewenste status en userkey, en de status wortdt
+    -- gezet, waarbij zonodig (indien verandering) een trackrecord wordt gemaakt
+    -- Als de status niet wijzigt, wordt ook geen trackrecord gemaakt
+    PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER)
+    AS
+       currentstatus ins_deelsrtcontrole.ins_deelsrtcontrole_status%TYPE;
+       newstatus ins_deelsrtcontrole.ins_deelsrtcontrole_status%TYPE;
+       eventcode fac_srtnotificatie.fac_srtnotificatie_code%TYPE;
+    BEGIN
+       SELECT   ins_deelsrtcontrole_status
+         INTO   currentstatus
+         FROM   ins_deelsrtcontrole
+        WHERE   ins_deelsrtcontrole_key = pdlsrtcontrkey;
+       CASE pstatus
+          WHEN 0  -- Gepland
+          THEN
+             newstatus :=  pstatus;
+          WHEN 2  -- In behandeling
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCBE';
+          WHEN 5  -- Afgemeld
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCAF';
+          WHEN 6  -- Verwerkt
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCVE';
+          ELSE
+             -- Invalid statuschange or no change
+             newstatus :=  NULL;
+       END CASE;
+       IF newstatus IS NOT NULL
+       THEN
+          -- vooralsnog lopen de notificaties 1-op-1 met de tracking
+          -- noticode :=  eventcode;
+          UPDATE   ins_deelsrtcontrole
+             SET   ins_deelsrtcontrole_status = newstatus
+           WHERE   ins_deelsrtcontrole_key = pdlsrtcontrkey;
+          -- We know that trackaction doesnt do tracking if eventcode is null
+          fac.trackaction (eventcode, pdlsrtcontrkey, puserkey, NULL, NULL);
+       END IF;
+    END;
+
 END ins;
 /
 
-
-
 REGISTERRUN('$Id$')
 
 #endif  // INS

INS/INS_SEQ.SRC

@@ -23,9 +23,11 @@ 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_scenario_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_srtcontrole_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_controlemode_key MINVALUE 10;
 CREATE SEQUENCE ins_s_ins_deelsrtcontrole_key MINVALUE 1;
+CREATE SEQUENCE ins_s_srtcontroledl_xcp_key MINVALUE 1;
 CREATE SEQUENCE ins_s_ins_kmdeelsrtcontr_key MINVALUE 1;
 
 CREATE SEQUENCE ins_s_ins_srtdeel_srtdeel_key MINVALUE 1;

INS/INS_TAB.SRC

@@ -23,8 +23,8 @@ CREATE_TABLE(ins_srtdiscipline,0)
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_kk CHECK(ins_srtdiscipline_kostenklant IN (0,1,2)),
     ins_srtdiscipline_alg
-        NUMBER(1) DEFAULT(1)
-        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1)),
+        NUMBER(3) DEFAULT(1)
+        CONSTRAINT ins_c_ins_srtdiscipline_alg CHECK(ins_srtdiscipline_alg IN (0,1,3,5,7)),
     ins_srtdiscipline_ins
         NUMBER(1) DEFAULT(1)
         CONSTRAINT ins_c_ins_srtdiscipline_ins CHECK(ins_srtdiscipline_ins IN (0,1)),
@@ -296,7 +296,7 @@ CREATE_TABLE(ins_deel,0)
  * Dit wordt in de B_IU-trigger gecontroleerd.
  */
     ins_deel_aantal
-        NUMBER(6)
+        NUMBER(8,2)
         DEFAULT 1
         CONSTRAINT ins_c_ins_deel_aantal2 CHECK
           (ins_deel_aantal is not null and ins_deel_aantal > 0),
@@ -354,13 +354,21 @@ CREATE_TABLE(ins_deel,0)
         VARCHAR2(128),
     ins_deel_statedate
         DATE,
-    ins_deel_uitvoertijd
-        NUMBER(8,5)
-        CONSTRAINT ins_c_ins_deel_uitvoertijd CHECK(ins_deel_uitvoertijd >= 0),
+    ins_deel_t_uitvoertijd
+        MLD_T_UITVOERTIJD
+        CONSTRAINT ins_c_ins_deel_uitvoertijd1 CHECK(ins_deel_t_uitvoertijd.tijdsduur >= 0),
+    ins_deel_actief                   -- Object 0=Inactief, 1=Actief.
+        NUMBER(1)
+        DEFAULT 1 NOT NULL,
+-- In: PRS_TAB.SRC
+--    prs_perslid_key_beh
+--        NUMBER(10)
+--        CONSTRAINT ins_r_prs_perslid_key_beh REFERENCES prs_perslid (prs_perslid_key),
     CONSTRAINT ins_u_ins_deel_upper2 UNIQUE(ins_alg_locatie_key,
            ins_deel_parent_key, ins_srtdeel_key, ins_deel_upper,
            ins_deel_verwijder)
 );
+ALTER TABLE ins_deel MODIFY ins_deel_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 // Track history of ins_deel_states, in principe alleen wijzigende waarden
 CREATE_TABLE(ins_deel_state_history, 0)
@@ -379,26 +387,103 @@ CREATE_TABLE(ins_deel_state_history, 0)
         VARCHAR2(320)
 );
 
+CREATE_TABLE(ins_scenario, 0)
+(
+    ins_scenario_key
+        NUMBER(10)
+        CONSTRAINT insk_ins_scenario_key PRIMARY KEY,
+    ins_scenario_omschrijving
+        VARCHAR2(30),
+        NOT_NULL(ins_scenario_omschrijving, ins_r_ins_scenario_omschr),
+    ins_scenario_status
+        NUMBER(3), /* not ietwat ongedefinieerd  */
+    ins_scenario_opmerking
+        VARCHAR2(4000),
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER(10)
+//        CONSTRAINT ins_r_prs_perslid_key0 REFERENCES prs_perslid(prs_perslid_key),
+    ins_scenario_aanmaak
+        DATE
+        DEFAULT SYSDATE,
+    ins_scenario_verwerkt
+        DATE
+);
+
 /* welke inspecties, controles etc gelden er voor objecten van deze soorten */
 CREATE_TABLE(ins_srtcontrole, 0)
 (
     ins_srtcontrole_key
        NUMBER(10)
        PRIMARY KEY,
-   ins_srtinstallatie_key
-      NUMBER(10),
-   ins_srtcontrole_niveau
-      VARCHAR2(1)
-      CONSTRAINT ins_c_srtcontrole_niveau1 CHECK
-            (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
+    ins_srtinstallatie_key
+       NUMBER(10),
+    ins_srtcontrole_niveau
+       VARCHAR2(1)
+       CONSTRAINT ins_c_srtcontrole_niveau1 CHECK (ins_srtcontrole_niveau IS NOT NULL AND (ins_srtcontrole_niveau IN( 'D', 'G', 'S'))),
     ins_srtcontrole_omschrijving
         VARCHAR2(60)
         NOT_NULL(ins_srtcontrole_omschrijving, ins_c_srtcontrole_omschrijving),
+    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
+        VARCHAR2(60),
     ins_srtcontrole_info
+        VARCHAR2(4000),
+    ins_srtcontrole_periode
+        NUMBER(6,2)
+        NOT_NULL(ins_srtcontrole_periode, ins_c_ins_srtcontrole_periode),
+    ins_srtcontrole_eenheid //  0=uurlijks, 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks, null=niet
+        NUMBER(1)
+        DEFAULT(1),
+    ins_srtcontrole_bits //  details, afhankelijk van de mode (mag best null zijn)
+        NUMBER(4),
+    ins_srtcontrole_mode //  0=moment-modus of 1=interval-modus
+        NUMBER(1)
+        DEFAULT(1)
+        NOT_NULL(ins_srtcontrole_mode, ins_c_ins_srtcontrole_mode),
+    ins_srtcontrole_level //  hierarchy level (relative; lower = more important)
+        NUMBER(3)
+        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),
+    ins_srtcontrole_materiaal // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle)
+         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),
+    ins_srtcontrole_kosten2   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 2 (bv BTW laag)
+         NUMBER(11,2),
+    ins_srtcontrole_kosten3   // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle) deel 3 (spare)
+         NUMBER(11,2),
+    ins_srtcontrole_percentage // percentage van het aantal delen waarop dit betrekking heeft
+        NUMBER(3)
+        DEFAULT (100)
+        CONSTRAINT ins_c_srtcontrole_percentage CHECK(ins_srtcontrole_percentage BETWEEN 0 AND 100),
+    ins_srtcontrole_opmerking
         VARCHAR2(320),
-    ins_srtcontrole_periode     /* in dagen */
-        NUMBER(4)
-        NOT_NULL(ins_srtcontrole_periode, ins_c_ins_srtcontrole_periode)
+    ins_srtcontrole_eind  // hier eindigt deze
+        DATE,
+    ins_srtcontrole_options   /* bitwise: 1=(kan)inplannen, 2=(kan)starten, 4=(kan)afmelden, 8=(kan)voltooien */
+        NUMBER(3)
+        DEFAULT 15
+        NOT_NULL(ins_srtcontrole_options, ins_c_ins_srtcontr_options),
+    ins_scenario_key
+       NUMBER(10)
+       CONSTRAINT ins_r_ins_scenario_key1 REFERENCES ins_scenario(ins_scenario_key) ON DELETE CASCADE,
+/* in fin_tab.src:
+    fin_btwtabelwaarde_key
+			 NUMBER(10)
+ 			 CONSTRAINT ins_r_fin_btwtabelwaarde1 REFERENCES fin_btwtabelwaarde(fin_btwtabelwaarde_key),
+*/
+	ins_srtcontrole_afbouwtijd
+        NUMBER(6,2)
+/* in prs_tab.src:
+    ,prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_kostenplaats_key1 REFERENCES prs_kostenplaats(prs_kostenplaats_key)
+*/
 );
 
 CREATE_TABLE(ins_controlemode, 0)
@@ -411,11 +496,68 @@ CREATE_TABLE(ins_controlemode, 0)
         NOT_NULL(ins_controlemode_oms, ins_c_controlemode_oms),
     ins_controlemode_opmerking
         VARCHAR(2000 CHAR),
-    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_controlemode_oms)
+    ins_controlemode_success        // 1=positive/neutral result, 0=negative result
+        NUMBER(1)
+        DEFAULT(1)
+        CONSTRAINT ins_c_ins_controlemode_success CHECK (ins_controlemode_success IN (0,1)),
+    ins_srtcontrole_type  // 1=controle, 2=vervanging, 3=certificering, rest ntb
+        NUMBER(1)
+        DEFAULT(1),
+    CONSTRAINT ins_u_ins_controlemode_oms UNIQUE (ins_srtcontrole_type,ins_controlemode_oms)
 );
 
+// Eventuele afwijkingen (xcp=exception) per specifiek deel
+// De methodiek (flags) en het level kunnen niet overruled worden; fungeert als COALESCE met ins_srtcontrole
+// Het kan ook voor alleen respijt bestaan
+CREATE_TABLE(ins_srtcontroledl_xcp, 0)
+(
+    ins_srtcontroledl_xcp_key
+       NUMBER(10)
+       PRIMARY KEY,
+    ins_deel_key
+       NUMBER(10)
+       NOT NULL REFERENCES ins_deel ON DELETE CASCADE,
+    ins_srtcontrole_key
+       NUMBER(10)
+       NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
+    ins_srtcontroledl_xcp_periode
+        NUMBER(6,2),
+    ins_srtcontroledl_xcp_eenheid //  0=uurlijks, 1=dagelijks, 2=wekelijk, 3=maandelijk, 4=jaarlijks
+        NUMBER(3),
+    ins_srtcontroledl_xcp_bits    //  details, afhankelijk van de mode (mag best null zijn)
+        NUMBER(4),
+    ins_srtcontroledl_xcp_aantal  // optionele overrule van het ins_deel_aantal tbv deze controle
+        NUMBER(8,2),
+    ins_srtcontroledl_xcp_aanteh  // optionele overrule van het ins_srtdeel_eenheid tbv deze controle (_eenheid bestond al)
+        VARCHAR2(30),
+    ins_srtcontroledl_xcp_uren    // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle) bv tbv capaciteitsplanning
+         NUMBER(8,2),
+    ins_srtcontroledl_xcp_materia // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle)
+         NUMBER(9,2),
+    ins_srtcontroledl_xcp_kosten  // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_kosten2 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal of ins_srtcontroledl_xcp_aantal) per controle) deel 2 (bv BTW laag)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_kosten3 // vervangings- of controlekosten (geldt per stuk (ins_deel_aantal) per controle of ins_srtcontroledl_xcp_aantal) deel 3 (spare)
+         NUMBER(11,2),
+    ins_srtcontroledl_xcp_perc    // percentage van het aantal delen waarop dit betrekking heeft
+        NUMBER(3)
+        CONSTRAINT ins_c_srtcontroledl_xcp_perc CHECK(ins_srtcontroledl_xcp_perc BETWEEN 0 AND 100),
+    ins_srtcontroledl_xcp_groep   // Vrijblijvende categorisering voor groepering in rapportages
+        VARCHAR2(60),
+    ins_srtcontroledl_xcp_startdat  // Startdatum eerste inspectie.
+        DATE,
+    ins_srtcontroledl_xcp_eind    // hier eindigt deze
+        DATE,
+    ins_scenario_key
+       NUMBER(10)
+        CONSTRAINT ins_r_ins_scenario_key2 REFERENCES ins_scenario(ins_scenario_key)  ON DELETE CASCADE,
+		ins_srtcontroledl_xcp_opmerk
+        VARCHAR2(320),
+    CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key)
+);
 
-/* wanneer zijn de inspecties uitgevoerd */
+/* de feitelijke inspecties */
 CREATE_TABLE(ins_deelsrtcontrole, 0)
 (
     ins_deelsrtcontrole_key
@@ -428,18 +570,25 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
        NUMBER(10)
        NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
     ins_deelsrtcontrole_datum
-       DATE
-       NOT NULL,
+       DATE,
+    ins_deelsrtcontrole_datum_org
+       DATE,
     ins_controlemode_key
        NUMBER(10)
-       NOT NULL REFERENCES ins_controlemode ON DELETE SET NULL,
+       CONSTRAINT ins_r_ins_controlemode_key REFERENCES ins_controlemode,
     ins_deelsrtcontrole_opmerking
-        VARCHAR(2000 CHAR),
+        VARCHAR(4000 CHAR),
+    ins_deelsrtcontrole_plandatum
+       DATE,
+    ins_deelsrtcontrole_status // (vooralsnog 0,2,5,6)
+       NUMBER(1)
+       DEFAULT (6)
+       CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,
 // Note: this column is defined in PRS_TAB.SRC
 //    prs_perslid_key
 //        NUMBER(10)
 //        CONSTRAINT ins_r_prs_perslid_key REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL
-    CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_datum)
+    CONSTRAINT ins_u_ins_deelsrtcontrole UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_deelsrtcontrole_datum_org)
 );
 
 CREATE_TABLE(ins_import,0)
@@ -479,7 +628,7 @@ CREATE_TABLE(ins_srtkenmerk, 0)
       VARCHAR2(10),
    ins_srtkenmerk_kenmerktype
       VARCHAR2(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN('C', 'N', 'D', 'R', 'X', 'L', 'Q','F','M','E','S', 'l')),
+      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
@@ -530,6 +679,9 @@ CREATE_TABLE(ins_kenmerk, 0)
         CONSTRAINT ins_c_ins_kenmerk_bewerk CHECK(ins_kenmerk_bewerkniveau IN ('D', 'S')),
    ins_kenmerk_verplicht
       NUMBER(1),
+   ins_kenmerk_groep
+      NUMBER(1)
+      DEFAULT 0 NOT NULL,
    ins_kenmerk_toonbaar
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_toonbaar CHECK(ins_kenmerk_toonbaar IS NULL
@@ -538,6 +690,10 @@ CREATE_TABLE(ins_kenmerk, 0)
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_meetwaarde CHECK(ins_kenmerk_meetwaarde IS NULL
                                                OR ins_kenmerk_meetwaarde = 1),
+   ins_kenmerk_wissen
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
+      CONSTRAINT ins_c_ins_kenmerk_wissen CHECK(ins_kenmerk_wissen IN (0,1,2)),
    ins_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL,
@@ -548,7 +704,7 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_regexp
       VARCHAR2(255),
    ins_kenmerk_default
-      VARCHAR2(255),
+      VARCHAR2(4000),
    ins_kenmerk_hint
       VARCHAR2(255 CHAR),
    ins_kenmerk_aanmaak
@@ -559,7 +715,7 @@ CREATE_TABLE(ins_kenmerk, 0)
       DATE
       DEFAULT NULLDATUM,
    CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL OR ins_kenmerk_niveau = 'D'),
-   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_verwijder)
+   CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_groep, ins_kenmerk_verwijder)
 );
 
 /* De waarde mag in de tabel NULL zijn, maar om de database niet
@@ -719,6 +875,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
   ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
   CONSTRAINT ins_r_ins_discipine_key FOREIGN KEY (ins_discipline_key)

INS/INS_TRI.SRC

@@ -15,6 +15,16 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(ins_tab_discipline)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_omschrijving)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_volgnr)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, prs_kostensoort_key)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_kpnverplicht)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_email)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_ktopercentage)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_ktodrempel)
+AUDIT_VALUE_K(ins_tab_discipline, ins_discipline_key, ins_discipline_verwijder)
+AUDIT_END()
 
 CREATE_TRIGGER(ins_t_ins_discipline_B_IU)
 BEFORE INSERT OR UPDATE ON ins_tab_discipline
@@ -102,6 +112,14 @@ BEGIN
       END;
    END IF;
 
+   IF (    :new.ins_discipline_verwijder IS NOT NULL
+       AND :old.ins_discipline_verwijder IS NULL
+       AND :new.ins_discipline_module = 'RES')
+   THEN
+       BEGIN DELETE FROM res_activiteitdiscipline WHERE res_activiteitdiscipline.res_discipline_key = :new.ins_discipline_key; END;
+   END IF;
+
+
     SET_VERWIJDER_CHILDREN(ins_srtgroep, ins_discipline_key, ins_discipline_verwijder,
         ins_srtgroep_verwijder,ins_tab_discipline);
     SET_VERWIJDER_CHILDREN(bes_srtgroep, ins_discipline_key, ins_discipline_verwijder,
@@ -157,14 +175,20 @@ BEGIN
  END;
 /
 
+CREATE_TRIGGER(ins_t_ins_deel_B_I)
+BEFORE INSERT ON ins_deel
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
+END;
+/
+
 CREATE_TRIGGER(ins_t_ins_deel_B_IU)
 BEFORE INSERT OR UPDATE ON ins_deel
 FOR EACH ROW
-declare
+DECLARE
   Dummy1 BOOLEAN;
 BEGIN
-
-   UPDATE_PRIMARY_KEY(ins_deel_key,ins_s_ins_inst_keys);
    UPDATE_UPPER(ins_deel_omschrijving,ins_deel_upper,ins_deel);
    IF :new.ins_deel_verwijder IS NOT NULL AND :old.ins_deel_verwijder IS NULL THEN
      DECLARE
@@ -298,13 +322,49 @@ BEGIN
          END IF;
       END;
    END IF;
+   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
+END;
+/
+
+CREATE_TRIGGER(ins_t_ins_deel_A_U)
+AFTER UPDATE ON ins_deel
+FOR EACH ROW
+DECLARE
+  new_date DATE;
+  prev_state   ins_deel_state_history.ins_deel_state%TYPE;
+BEGIN
    IF (:old.ins_deel_state  IS NULL AND :new.ins_deel_state IS NOT NULL)
     OR (:new.ins_deel_state  <> :old.ins_deel_state)
    THEN
-     INSERT INTO ins_deel_state_history (ins_deel_key, ins_deel_state, ins_deel_statedate)
-     VALUES (:new.ins_deel_key, :new.ins_deel_state, COALESCE(:new.ins_deel_statedate, SYSDATE));
+     BEGIN
+       new_date := COALESCE (:new.ins_deel_statedate, SYSDATE); -- voorkom dat de update *net* een seconde later kan zijn
+       INSERT INTO ins_deel_state_history (ins_deel_key, ins_deel_state, ins_deel_statedate)
+       VALUES (:new.ins_deel_key, :new.ins_deel_state, COALESCE(:new.ins_deel_statedate, new_date));
+     EXCEPTION
+         WHEN DUP_VAL_ON_INDEX
+         THEN
+            SELECT ins_deel_state
+              INTO prev_state
+              FROM ins_deel_state_history
+             WHERE ins_deel_state_history_key =
+                      (SELECT MAX (ins_deel_state_history_key)
+                         FROM ins_deel_state_history
+                        WHERE ins_deel_key = :new.ins_deel_key
+                              AND ins_deel_statedate < new_date);
+
+            IF (prev_state = :new.ins_deel_state)
+            THEN
+               DELETE ins_deel_state_history
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            ELSE -- kan alleen bij tri-stste statussen gebeuren
+               UPDATE ins_deel_state_history
+                  SET ins_deel_state = :new.ins_deel_state
+                WHERE ins_deel_key = :new.ins_deel_key
+                      AND ins_deel_statedate = new_date;
+            END IF;
+      END;
    END IF;
-   UPDATE_AANMAAKDATUM(ins_deel, ins_deel_aanmaak);
 END;
 /
 
@@ -505,20 +565,17 @@ BEGIN
       APPLICATION_ERROR(-20003, 'INS_M156');
     END IF;
 
-    IF (:new.ins_srtkenmerk_kenmerktype = 'C'
-    OR  :new.ins_srtkenmerk_kenmerktype = 'N')
-    AND :new.ins_srtkenmerk_lengte IS NULL
+    IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL
     THEN
        APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
     END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-    IF :new.ins_srtkenmerk_kenmerktype = 'N'
-    AND :new.ins_srtkenmerk_lengte > 20
+    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20
     THEN
        :new.ins_srtkenmerk_lengte := 20;
     END IF;
 
-    IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :old.ins_srtkenmerk_key IS NOT NULL
+    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.ins_srtkenmerk_key IS NOT NULL
     THEN
       IF :old.ins_srtkenmerk_nmin <> :new.ins_srtkenmerk_nmin OR
         (:old.ins_srtkenmerk_nmin IS NULL AND :new.ins_srtkenmerk_nmin IS NOT NULL)
@@ -633,7 +690,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType = 'N' /* Number */
+   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -742,7 +799,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType = 'N' /* Number */
+   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -835,6 +892,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_scenario_B_IU)
+BEFORE INSERT  OR UPDATE ON ins_scenario
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(ins_scenario_key, ins_s_ins_scenario_key);
+END;
+/
+
 CREATE_TRIGGER(ins_t_srtcontrole_B_IU)
 BEFORE INSERT  OR UPDATE ON ins_srtcontrole
 FOR EACH ROW
@@ -851,6 +916,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_srtcontroledl_xcp_B_IU)
+BEFORE INSERT  OR UPDATE ON ins_srtcontroledl_xcp
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(ins_srtcontroledl_xcp_key, ins_s_srtcontroledl_xcp_key);
+END;
+/
+
 CREATE_TRIGGER(ins_t_deelsrtcontrole_B_IU)
 BEFORE INSERT  OR UPDATE ON ins_deelsrtcontrole
 FOR EACH ROW
@@ -859,6 +932,12 @@ BEGIN
 END;
 /
 
+AUDIT_BEGIN(ins_disc_params)
+AUDIT_VALUE(ins_disc_params, ins_disc_params_autonum)
+AUDIT_VALUE(ins_disc_params, ins_disc_params_cadlayers)
+AUDIT_VALUE(ins_disc_params, ins_disc_params_type)
+AUDIT_END()
+
 CREATE_TRIGGER(ins_t_ins_disc_params_b_iu)
 BEFORE INSERT OR UPDATE ON ins_disc_params
 FOR EACH ROW

KPI/KPI_IND.SRC

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

KPI/KPI_INI.SRC

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

KPI/KPI_PAC.SRC

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

KPI/KPI_SEQ.SRC

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

KPI/KPI_TAB.SRC

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

KPI/KPI_TRI.SRC

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

KPI/KPI_VIE.SRC

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