FZKH#88392 Probleem bij importeren verbruiksartikelen zonder kostensoort

Regels met niet bestaande kostensoort omschrijvingen worden niet in importtabel gezet.

svn path=/Database/branches/DB50/; revision=68689

ADM/ADM_PAC.SRC

@@ -11,6 +11,7 @@ AS
    FUNCTION scriptspoolfile(custpattern IN VARCHAR2, scriptname IN VARCHAR2) RETURN VARCHAR2;
    FUNCTION getscriptspoolfile(scriptname IN VARCHAR2) RETURN VARCHAR2;
    FUNCTION checkscriptcust(custpattern IN VARCHAR2) RETURN VARCHAR2;
+   PROCEDURE fix_mld_t_uitvoertijd;
 END adm;
 /
 
@@ -69,7 +70,7 @@ AS
              DBMS_OUTPUT.put_line ('Not found, no need to drop:  ' || n);
              NULL;
           ELSE
-             raise_application_error (-20001, 'Error trying to DROP ' || n || ': ' || SQLERRM);
+             raise_application_error(-20001, 'Error trying to DROP ' || n || ': ' || SQLERRM);
           END IF;
    END;
 
@@ -97,7 +98,7 @@ AS
              DBMS_OUTPUT.put_line ('Already exists, not altered:     ' || n);
              NULL;
           ELSE
-             raise_application_error (-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM);
+             raise_application_error(-20001, 'Error trying to ALTER ' || n || ': ' || SQLERRM);
           END IF;
    END;
 
@@ -145,7 +146,10 @@ AS
                          'SERVICE_NAME',
                          'IP_ADDRESS');
 
-      tekst := 'Time: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS');
+      SELECT banner_full
+        INTO tekst
+        FROM v$version;
+      tekst := tekst || CHR(10) ||'Time: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH24:MI:SS');
       tekst := tekst || CHR(10) ||'OS-user: ' || SYS_CONTEXT('USERENV','OS_USER');
       FOR elem IN 1 .. var_table_varchar.COUNT
       LOOP
@@ -196,13 +200,63 @@ AS
                || 'Wrong user!!!!!!!!!' || CHR(10)
                || tekst || CHR(10)
                || '============================================' || CHR(10);
-         RAISE_APPLICATION_ERROR(-20000, tekst);
+         raise_application_error(-20001, tekst);
       END IF;
 
       RETURN tekst;
    END;
 
-   END adm;
+   -- Als je een database importeert onder een andere user wordt de schemanaam voor de defaults
+   -- van mld_t_uitvoertijd 'bevroren' en kun je de database nooit meer onder een ander schema
+   -- inlezen. In deze procedure herdefiniereren we alle default waardes zodat je de database
+   -- daarna na exporteren gemakkelijk ergens anders kunt inlezen
+   -- Er is niet automatisch te bepalen wanneer dit al dan niet nodig is. Daarom doen we het:
+   -- * In de epiloog van een upgrade
+   -- * Na anonimiseren (wat nog wel eens gebeurt vlak na een database refresh)
+   PROCEDURE fix_mld_t_uitvoertijd
+   IS
+      --
+      -- data_default is van het datatype LONG. Daarop kan geen string-bewerking als INSTR(), SUBSTR() en REPLACE() worden gedaan.
+      -- Daarom moeten de benodigde gegevens eerst in een tijdelijke tabel ingelezen worden zodat het datatype VARCHAR2 wordt. Voor
+      -- het huidige doel (de owner van MLD_T_UITVOERTIJD verwijderen) is de stringlengte van 1000 voldoende.
+      -- Met FETCH .. BULK COLLECT INTO .. worden alle records die volgen uit de query in 1 keer opgehaald. Dit is sneller dan een fetch in een loop.
+      --
+      TYPE ut_row IS RECORD
+      (  tab_name     VARCHAR2(100)
+      ,  col_name     VARCHAR2(100)
+      ,  data_default VARCHAR2(1000)
+      );
+      TYPE ut_tab IS TABLE OF ut_row
+         INDEX BY PLS_INTEGER;
+
+      qry_txt      VARCHAR2(1000);
+      upd_txt      VARCHAR2(1000);
+      l_table      ut_tab;
+      l_cursor     SYS_REFCURSOR;
+      l_pos        INTEGER;
+      l_default    VARCHAR2(1000);
+   BEGIN
+      qry_txt := 'SELECT table_name, column_name, data_default'
+            || '  FROM user_tab_columns'
+            || ' WHERE data_type = ''MLD_T_UITVOERTIJD''';
+      OPEN l_cursor FOR qry_txt;
+      FETCH l_cursor BULK COLLECT INTO l_table;
+      CLOSE l_cursor;
+
+      FOR indx IN 1 .. l_table.COUNT
+      LOOP
+         l_pos := INSTR(l_table(indx).data_default, '"."');
+         IF (l_pos > 0)
+         THEN
+            l_default := REPLACE(REPLACE(SUBSTR(l_table(indx).data_default, l_pos+3, 100), '"', ''),'''','');
+            upd_txt := 'ALTER TABLE '|| l_table(indx).tab_name ||' MODIFY '|| l_table(indx).col_name ||' DEFAULT '|| l_default;
+            dbms_output.put_line(upd_txt);
+            EXECUTE IMMEDIATE upd_txt;
+         END IF;
+      END LOOP;
+   END;
+
+END adm;
 /
 
 REGISTERRUN('$Id$')

ADM/ADM_TRI.SRC

@@ -12,5 +12,52 @@ BEGIN
 END;
 /
 
+//
+// Deze triggers zijn om access buiten de applicatie om te tracken,
+// bijvoorbeeld met SQLPlus of Toad maar dat kan van alles zijn
+// Ten behoeve van extra auditing. Standaard doen we dat niet, omdat
+//  - het vereist niet-default privileges voor het SCHEMA (of niet?)
+//  - we weten niet altijd hoe we de webserver zelf uit kunnen sluiten
+// Als we meer weten kunnen we deze misschien wel standaard aanzetten
+//
+
+/*
+CREATE_TRIGGER(fclt_t_schema_session_on)
+    AFTER
+    LOGON
+    ON SCHEMA
+    WHEN (    SYS_CONTEXT ('USERENV', 'OS_USER') <> 'IUSR'
+          AND SYS_CONTEXT ('USERENV', 'OS_USER') NOT LIKE 'OracleService%')
+BEGIN
+    INSERT INTO adm_tracking (adm_tracking_name)
+        SELECT    'Login using '
+               || SYS_CONTEXT ('USERENV', 'MODULE')
+               || ' from '
+               || SYS_CONTEXT ('USERENV', 'HOST')
+          FROM DUAL;
+END;
+/
+
+CREATE_TRIGGER(fclt_t_schema_session_off)
+    BEFORE
+    LOGOFF
+    ON SCHEMA
+    WHEN (    SYS_CONTEXT ('USERENV', 'OS_USER') <> 'IUSR'
+          AND SYS_CONTEXT ('USERENV', 'OS_USER') NOT LIKE 'OracleService%')
+BEGIN
+    INSERT INTO adm_tracking (adm_tracking_name)
+        SELECT    'Logoff using '
+               || SYS_CONTEXT ('USERENV', 'MODULE')
+               || ' from '
+               || SYS_CONTEXT ('USERENV', 'HOST')
+          FROM DUAL;
+END;
+/
+
+-- Wel definieren en uitzetten is riskant, want een disabled trigger lijkt fout
+ALTER TRIGGER fclt_t_schema_session_on DISABLE;
+ALTER TRIGGER fclt_t_schema_session_off DISABLE;
+*/
+
 // De package is er nog niet bij de CREA dus uitgeschakeld
 // REGISTERRUN('$Id$')

ALG/ALG_IND.SRC

@@ -17,6 +17,11 @@ create index alg_i_alg_verdieping1 on alg_verdieping(alg_gebouw_key);
 create index alg_i_alg_ruimte1 on alg_ruimte(alg_verdieping_key);
 create index alg_i_alg_ruimte2 on alg_ruimte(alg_srtruimte_key);
 create index alg_i_alg_ruimte3 on alg_ruimte(alg_ruimte_key, alg_ruimte_nr);
+
+create index alg_i_alg_kenmerk1 on alg_kenmerk(alg_kenmerk_code);
+
+create index alg_i_alg_onroerendgoed_note1 on alg_onroerendgoed_note(alg_onroerendgoed_key, alg_onroerendgoed_typ);
+
 // speciaal tbv ins_v_alg_overzicht:
 CREATE INDEX alg_i_alg_ruimte4 on alg_ruimte(alg_verdieping_key,alg_ruimte_key, alg_ruimte_upper_nr, alg_ruimte_nr);
 

ALG/ALG_SEQ.SRC

@@ -3,21 +3,22 @@
  * $Id$
  */
 
-CREATE SEQUENCE alg_s_alg_import_key            MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_regio_key             MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_district_key          MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_locatie_key           MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_onroerendgoed_keys    MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_srtgebouw_key         MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_srtruimte_key         MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_srtruimte_lg_key      MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_import_key             MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_regio_key              MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_district_key           MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_locatie_key            MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_onroerendgoed_keys     MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_srtgebouw_key          MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_srtruimte_key          MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_srtruimte_lg_key       MINVALUE 1;
 
-CREATE SEQUENCE alg_s_alg_objectdeel_key        MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_systeemcluster_key    MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_bouwdeel_key          MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_srtterrein_key        MINVALUE 1;
-CREATE SEQUENCE alg_s_alg_srtverdieping_key     MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_objectdeel_key         MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_systeemcluster_key     MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_bouwdeel_key           MINVALUE 1;
+CREATE SEQUENCE alg_s_alg_srtterrein_key         MINVALUE 1;
+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;
+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;
+CREATE SEQUENCE alg_s_alg_onroerendgoed_note_key MINVALUE 1;

ALG/ALG_TAB.SRC

@@ -101,7 +101,7 @@ CREATE_TABLE(alg_locatie,0)
     alg_locatie_verantw
         VARCHAR2(30),
     alg_locatie_verantw_tel
-        VARCHAR2(15),
+        VARCHAR2(20),
     alg_locatie_email        /* might be used as sender */
         VARCHAR2(200),
     alg_locatie_x
@@ -118,6 +118,8 @@ CREATE_TABLE(alg_locatie,0)
         VARCHAR2(256),
     alg_locatie_externsyncdate
         DATE,
+    alg_locatie_volgnr
+        NUMBER(3),
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -154,10 +156,28 @@ CREATE_TABLE(alg_srtterreinsector,0)
     alg_srtterreinsector_verwijder
         DATE
         DEFAULT NULL,
-    CONSTRAINT alg_u_alg_srtterreinsec_upper UNIQUE(alg_srtterreinsector_upper, alg_srtterreinsector_verwijder),
-    prs_verhuurbaar NUMBER(1),
-    alg_srtterreinsector_code VARCHAR2(10)
+    prs_verhuurbaar
+        NUMBER(1),
+    alg_srtterreinsector_code
+        VARCHAR2(10),
+    alg_srtterreinsec_t_uitvtijd /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtterrein_t_uitvt CHECK(alg_srtterreinsec_t_uitvtijd.tijdsduur >= 0),
+    alg_srtterreinsec_t_uitv_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtterrein_t_uitv1 CHECK(alg_srtterreinsec_t_uitv_pr1.tijdsduur >= 0),
+    alg_srtterreinsec_t_uitv_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtterrein_t_uitv2 CHECK(alg_srtterreinsec_t_uitv_pr2.tijdsduur >= 0),
+    alg_srtterreinsec_t_uitv_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtterrein_t_uitv4 CHECK(alg_srtterreinsec_t_uitv_pr4.tijdsduur >= 0),
+    CONSTRAINT alg_u_alg_srtterreinsec_upper UNIQUE(alg_srtterreinsector_upper, alg_srtterreinsector_verwijder)
 );
+ALTER TABLE alg_srtterreinsector MODIFY alg_srtterreinsec_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtterreinsector MODIFY alg_srtterreinsec_t_uitv_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtterreinsector MODIFY alg_srtterreinsec_t_uitv_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtterreinsector MODIFY alg_srtterreinsec_t_uitv_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_terreinsector,0)
 (
@@ -169,13 +189,12 @@ CREATE_TABLE(alg_terreinsector,0)
         NOT_NULL(alg_locatie_key, alg_r_alg_locatie_key1)
         CONSTRAINT alg_r_alg_locatie_key2 REFERENCES alg_locatie(alg_locatie_key),
     alg_terreinsector_omschrijving
-        VARCHAR2(50)
-        NOT_NULL(alg_terreinsector_omschrijving, alg_c_alg_terreinsector_omschr),
+        VARCHAR2(60),
     alg_terreinsector_code
         VARCHAR2(12)
         NOT_NULL(alg_terreinsector_code, alg_c_alg_terreinsector_code),
     alg_terreinsector_naam
-        VARCHAR2(30)
+        VARCHAR2(60)
         NOT_NULL(alg_terreinsector_naam, alg_c_alg_terreinsector_naam),
     alg_terreinsector_upper
         VARCHAR2(30)
@@ -284,8 +303,24 @@ CREATE_TABLE(alg_srtgebouw,0)
         NUMBER(2)
         DEFAULT 4
         NOT NULL,
+    alg_srtgebouw_t_uitvoertijd /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtgebouw_t_uitvtijd CHECK(alg_srtgebouw_t_uitvoertijd.tijdsduur >= 0),
+    alg_srtgebouw_t_uitvoer_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtgebouw_t_uitv_pr1 CHECK(alg_srtgebouw_t_uitvoer_pr1.tijdsduur >= 0),
+    alg_srtgebouw_t_uitvoer_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtgebouw_t_uitv_pr2 CHECK(alg_srtgebouw_t_uitvoer_pr2.tijdsduur >= 0),
+    alg_srtgebouw_t_uitvoer_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtgebouw_t_uitv_pr4 CHECK(alg_srtgebouw_t_uitvoer_pr4.tijdsduur >= 0),
     CONSTRAINT alg_u_alg_srtgebouw_upper UNIQUE(alg_srtgebouw_upper, alg_srtgebouw_verwijder)
 );
+ALTER TABLE alg_srtgebouw MODIFY alg_srtgebouw_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtgebouw MODIFY alg_srtgebouw_t_uitvoer_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtgebouw MODIFY alg_srtgebouw_t_uitvoer_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtgebouw MODIFY alg_srtgebouw_t_uitvoer_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_gebouw,0)
 (
@@ -306,11 +341,14 @@ CREATE_TABLE(alg_gebouw,0)
         VARCHAR2(12)
         NOT_NULL(alg_gebouw_code, alg_c_alg_gebouw_code),
     alg_gebouw_omschrijving
-        VARCHAR2(60)
-        NOT_NULL(alg_gebouw_omschrijving, alg_c_alg_gebouw_omschrijving),
+        VARCHAR2(60),
     alg_gebouw_upper
         VARCHAR2(30)  /* 12 ware genoeg geweest */
         NOT_NULL(alg_gebouw_upper, alg_c_alg_gebouw_upper),
+    alg_gebouw_adres
+        VARCHAR2(50),
+    alg_gebouw_postcode
+        VARCHAR2(12),
     alg_gebouw_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -370,6 +408,11 @@ CREATE_TABLE(alg_gebouw,0)
         DEFAULT 1
         CONSTRAINT alg_c_alg_gebouw_bez CHECK(alg_gebouw_bez IS NULL
                                            OR alg_gebouw_bez = 1),
+    alg_gebouw_mld
+        NUMBER(1)
+        DEFAULT(1)
+        CONSTRAINT alg_c_alg_gebouw_mld CHECK(alg_gebouw_mld IS NULL
+                                           OR alg_gebouw_mld = 1),
     alg_gebouw_email
         VARCHAR2(200),
     alg_gebouw_vervaldatum
@@ -393,6 +436,14 @@ CREATE_TABLE(alg_gebouw,0)
         VARCHAR2(256),
     alg_gebouw_externsyncdate
         DATE,
+    mld_vrije_dagen_id
+        VARCHAR2(50),
+    alg_gebouw_virtueel
+        NUMBER(1) DEFAULT(0) NOT NULL,  /* 0=normaal, 1=virtueel gebouw */
+-- in MLD_TAB.SRC:
+--    mld_dienstniveau_key
+--        NUMBER(10)
+--        REFERENCES mld_dienstniveau(mld_dienstniveau_key) ON DELETE SET NULL,
     CONSTRAINT alg_u_alg_gebouw_upper UNIQUE(alg_locatie_key, alg_gebouw_upper, alg_gebouw_verwijder)
 );
 
@@ -423,6 +474,11 @@ CREATE_TABLE(alg_verdieping,0)
         NOT_NULL(alg_verdieping_volgnr, alg_c_alg_verdieping_volgnr),
     alg_verdieping_tekening     /* references the drawingfile */
         VARCHAR2(32),
+    alg_verdieping_dwgz
+        NUMBER(16,3),
+    alg_verdieping_bruto_vloeropp
+        NUMBER(12,2)
+        CONSTRAINT alg_c_alg_verdieping_vloeropp CHECK(alg_verdieping_bruto_vloeropp >= 0),
     alg_verdieping_in_bewerking
         NUMBER(1)
         CONSTRAINT alg_c_alg_verdieping_in_bewerk CHECK(alg_verdieping_in_bewerking IS NULL
@@ -434,6 +490,8 @@ CREATE_TABLE(alg_verdieping,0)
         VARCHAR2(256),
     alg_verdieping_externsyncdate
         DATE,
+    alg_verdieping_virtueel
+        NUMBER(1) DEFAULT(0) NOT NULL,  /* 0=normaal, 1=virtuele verdieping */
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -484,11 +542,23 @@ CREATE_TABLE(alg_srtruimte,0)
     alg_srtruimte_t_uitvoertijd
         MLD_T_UITVOERTIJD
         CONSTRAINT alg_c_alg_srtruimt_t_uitvtijd CHECK(alg_srtruimte_t_uitvoertijd.tijdsduur >= 0),
+    alg_srtruimte_t_uitvoer_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtruimt_t_uitv_pr1 CHECK(alg_srtruimte_t_uitvoer_pr1.tijdsduur >= 0),
+    alg_srtruimte_t_uitvoer_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtruimt_t_uitv_pr2 CHECK(alg_srtruimte_t_uitvoer_pr2.tijdsduur >= 0),
+    alg_srtruimte_t_uitvoer_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT alg_c_alg_srtruimt_t_uitv_pr4 CHECK(alg_srtruimte_t_uitvoer_pr4.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);
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoer_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoer_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE alg_srtruimte MODIFY alg_srtruimte_t_uitvoer_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 CREATE_TABLE(alg_srtruimte_locatiegebouw,0)
 (
@@ -587,6 +657,8 @@ CREATE_TABLE(alg_ruimte,0)
         VARCHAR2(256),
     alg_ruimte_externsyncdate
         DATE,
+    alg_ruimte_virtueel
+        NUMBER(1) DEFAULT(0) NOT NULL,  /* 0=normaal, 1=virtuele ruimte */
 -- in MLD_TAB.SRC:
 --    mld_dienstniveau_key
 --        NUMBER(10)
@@ -640,7 +712,7 @@ CREATE_TABLE(alg_kenmerk,0)
     ,alg_kenmerk_niveau
         VARCHAR2(1)
         CONSTRAINT alg_c_alg_kenmerk_niveau1 CHECK(alg_kenmerk_niveau IS NOT NULL
-               AND alg_kenmerk_niveau IN ('R','V','G','T','L','D'))
+               AND alg_kenmerk_niveau IN ('R','V','G','T','L','D','E'))
     ,alg_kenmerk_volgnr
         NUMBER(3)
         NOT NULL
@@ -648,6 +720,8 @@ CREATE_TABLE(alg_kenmerk,0)
         VARCHAR2(50)
     ,alg_kenmerk_upper
         VARCHAR2(50)
+    ,alg_kenmerk_code
+        VARCHAR2(60)
     ,alg_kenmerk_hint
         VARCHAR2(255)
     ,alg_kenmerk_default
@@ -658,11 +732,13 @@ 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','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,alg_kenmerk_systeem
         NUMBER(2)
     ,alg_kenmerk_toonbaar
        NUMBER(1)
+    ,alg_kenmerk_inlijst
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,alg_kenmerk_uniek
        NUMBER(1)
     ,alg_kenmerk_regexp
@@ -690,6 +766,9 @@ CREATE_TABLE(alg_kenmerk,0)
     ,alg_kenmerk_verwijder
         DATE
         DEFAULT NULLDATUM
+    ,fac_functie_key
+        NUMBER(10)
+        CONSTRAINT fac_r_alg_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
 );
 
 -- Koppeltabel tussen de Kennisbank (FAQ) en plaats (alg_v_allonroerendgoed)
@@ -710,4 +789,26 @@ CREATE_TABLE(alg_algfaq, 0)
         CONSTRAINT alg_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
 );
 
+CREATE_TABLE(alg_onroerendgoed_note, 0)
+(   alg_onroerendgoed_note_key
+        NUMBER (10)
+        CONSTRAINT alg_k_alg_onroerendgoed_note_key PRIMARY KEY
+,   alg_onroerendgoed_key
+        NUMBER (10)
+        CONSTRAINT alg_c_alg_onroerendgoed_key1 CHECK(alg_onroerendgoed_key IS NOT NULL)
+,   alg_onroerendgoed_typ
+        VARCHAR (1)
+        CONSTRAINT alg_c_alg_onroerendgoed_typ1 CHECK(alg_onroerendgoed_typ IS NOT NULL)
+        CONSTRAINT alg_c_alg_onroerendgoed_typ2 CHECK(alg_onroerendgoed_typ IN ('R','V','G','L'))
+,   alg_onroerendgoed_note_aanmaak
+        DATE
+        DEFAULT SYSDATE
+--,   prs_perslid_key
+--        NUMBER (10)
+--        CONSTRAINT alg_r_prs_perslid_key5 REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL
+,   alg_onroerendgoed_note_omschrijving
+        VARCHAR2 (4000 CHAR)
+);
+
+
 REGISTERONCE('$Id$')

ALG/ALG_TRI.SRC

@@ -59,7 +59,8 @@ BEGIN
         INTO   dummy
         FROM   cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
         WHERE  cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
-        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
+        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+        AND    cnt_v_aanwezigcontract.cnt_contract_status <> 1
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key  = :old.alg_locatie_key
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'L';
         raise_application_error(-20000,'cnt_m028');
@@ -77,10 +78,10 @@ BEGIN
         WHERE mld_alg_locatie_key=:old.alg_locatie_key
           AND fac_activiteit_key IS NULL
           AND mld_melding_status IN (0,2,3,4,7);
-        APPLICATION_ERROR(-20000, 'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        raise_application_error(-20001, 'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       EXCEPTION
           WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+          WHEN TOO_MANY_ROWS THEN raise_application_error(-20001,'alg_m999 Locatie kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       END;
 
       DELETE FROM cad_tekening WHERE alg_locatie_key=:old.alg_locatie_key;
@@ -94,9 +95,6 @@ BEFORE INSERT OR UPDATE ON alg_terreinsector
 FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(alg_terreinsector_key, alg_s_alg_onroerendgoed_keys);
-
-    :new.alg_terreinsector_omschrijving := SUBSTRB(:new.alg_terreinsector_code ||' - '|| :new.alg_terreinsector_naam,1,50);
-
     UPDATE_UPPER(alg_terreinsector_code,alg_terreinsector_upper,alg_terreinsector);
     UPDATE_AANMAAKDATUM(alg_terreinsector, alg_terreinsector_aanmaak);
     SET_VERWIJDER_CHILDREN_DEELT(ins_deel, alg_terreinsector_key, alg_terreinsector_verwijder, NULL,
@@ -109,7 +107,8 @@ BEGIN
           INTO   dummy
           FROM   cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
          WHERE  cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
-           AND  cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
+           AND  cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+           AND  cnt_v_aanwezigcontract.cnt_contract_status <> 1
            AND  cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key  = :old.alg_terreinsector_key
            AND  cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'T';
           raise_application_error(-20000,'cnt_m027');
@@ -126,10 +125,10 @@ BEGIN
         WHERE mld_alg_onroerendgoed_keys=:old.alg_terreinsector_key
           AND fac_activiteit_key IS NULL
           AND mld_melding_status IN (0,2,3,4,7);
-        APPLICATION_ERROR(-20000, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        raise_application_error(-20001, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Terrein kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       END;
       /* Terrein kent geen bezoekers */
     END IF;
@@ -155,7 +154,6 @@ BEGIN
     UPDATE_PRIMARY_KEY(alg_gebouw_key, alg_s_alg_onroerendgoed_keys);
     UPDATE_UPPER(alg_gebouw_code, alg_gebouw_upper,alg_gebouw);
     UPDATE_AANMAAKDATUM(alg_gebouw, alg_gebouw_aanmaak);
-    :new.alg_gebouw_omschrijving := SUBSTRB(:new.alg_gebouw_code ||' - '|| :new.alg_gebouw_naam,1,60);
     LAAT_VERDIEPING_VERVALLEN_VOOR_GEBOUW('alg_m54');
     IF :new.alg_gebouw_verwijder IS NOT NULL AND :old.alg_gebouw_verwijder IS NULL THEN
       DECLARE
@@ -165,13 +163,14 @@ BEGIN
         INTO   dummy
         FROM   cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
         WHERE  cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
-        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
+        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+        AND    cnt_v_aanwezigcontract.cnt_contract_status <> 1
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key  = :old.alg_gebouw_key
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'G';
-        APPLICATION_ERROR_GOTO(-20000,'cnt_m026');
+        raise_application_error(-20000,'cnt_m026');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m026');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m026');
       END;
 
       DECLARE
@@ -183,10 +182,10 @@ BEGIN
           WHERE mld_alg_onroerendgoed_keys = :OLD.alg_gebouw_key
             AND fac_activiteit_key IS NULL
             AND mld_melding_status IN (0,2,3,4,7);
-         APPLICATION_ERROR(-20000, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+         raise_application_error(-20001, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Gebouw kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       END;
 
       /* Wissen laat een ingevulde locatie_key over, wat goed is */
@@ -215,13 +214,14 @@ BEGIN
         INTO   dummy
         FROM   cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
         WHERE  cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
-        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
+        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+        AND    cnt_v_aanwezigcontract.cnt_contract_status <> 1
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key  = :old.alg_verdieping_key
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'V';
-        APPLICATION_ERROR_GOTO(-20000,'cnt_m025');
+        raise_application_error(-20000,'cnt_m025');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m025');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m025');
       END;
       DECLARE
         dummy CHAR;
@@ -232,10 +232,10 @@ BEGIN
         WHERE mld_alg_onroerendgoed_keys=:old.alg_verdieping_key
           AND fac_activiteit_key IS NULL
           AND mld_melding_status IN (0,2,3,4,7);
-        APPLICATION_ERROR(-20000, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        raise_application_error(-20001, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Verdieping kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       END;
       DELETE FROM cad_tekening WHERE alg_verdieping_key=:old.alg_verdieping_key;
 
@@ -296,10 +296,10 @@ BEGIN
             AND ALG_SR_2.alg_srtruimte_key = :new.alg_srtruimte_key
             AND ALG_SR_2.prs_bevat_werkplek IS NULL
             AND PRS_W.prs_alg_ruimte_key = :new.alg_ruimte_key;
-          APPLICATION_ERROR_GOTO(-20000, 'prs_m034');
+          raise_application_error(-20000, 'prs_m034');
         EXCEPTION
           WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_m034');
+          WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'prs_m034');
         END;
     END IF;
     IF :new.alg_ruimte_verwijder IS NOT NULL AND :old.alg_ruimte_verwijder IS NULL THEN
@@ -310,13 +310,14 @@ BEGIN
         INTO   dummy
         FROM   cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
         WHERE  cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
-        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
+        AND    cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+        AND    cnt_v_aanwezigcontract.cnt_contract_status <> 1
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key  = :old.alg_ruimte_key
         AND    cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'R';
-        APPLICATION_ERROR_GOTO(-20000,'cnt_m024');
+        raise_application_error(-20000,'cnt_m024');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m024');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20000,'cnt_m024');
       END;
 
       DECLARE
@@ -352,10 +353,10 @@ BEGIN
                     AND rd.res_rsv_deel_verwijder IS NULL
                     AND res_rsv_ruimte_tot > SYSDATE-14
                     AND rd.res_status_bo_key < 5);
-        APPLICATION_ERROR(-20000, 'res_m039');
+        raise_application_error(-20000, 'res_m039');
         EXCEPTION
           WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'res_m039');
+          WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'res_m039');
       END;
 
       DECLARE
@@ -367,10 +368,10 @@ BEGIN
         WHERE mld_alg_onroerendgoed_keys=:old.alg_ruimte_key
           AND fac_activiteit_key IS NULL
           AND mld_melding_status IN (0,2,3,4,7);
-        APPLICATION_ERROR(-20000, 'Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+        raise_application_error(-20001, 'Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
         EXCEPTION
           WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
+          WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog lopende meldingen');
       END;
 
       DECLARE
@@ -382,10 +383,10 @@ BEGIN
         WHERE ins_alg_ruimte_key=:old.alg_ruimte_key
           AND ins_deel_verwijder IS NULL
           AND ins_alg_ruimte_type = 'R';
-        APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten');
+        raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten');
         EXCEPTION
           WHEN NO_DATA_FOUND THEN NULL;
-          WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR(-20000, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten');
+          WHEN TOO_MANY_ROWS THEN raise_application_error(-20001, 'alg_m999 Ruimte kan nog niet verwijderd worden. Er zijn nog objecten');
        END;
 
       UPDATE res_alg_ruimte
@@ -414,22 +415,23 @@ BEFORE INSERT OR UPDATE ON alg_kenmerk
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(alg_kenmerk_key, alg_s_alg_kenmerk_key);
-   UPDATE_UPPER(alg_kenmerk_omschrijving, alg_kenmerk_upper,alg_kenmerk);
+   UPDATE_UPPER(alg_kenmerk_omschrijving, alg_kenmerk_upper, alg_kenmerk);
+   UPDATE_UPPER(alg_kenmerk_code, alg_kenmerk_code, alg_kenmerk);
    IF (:new.alg_kenmerk_verwijder IS NOT NULL AND :old.alg_kenmerk_verwijder IS NULL AND
        :new.alg_kenmerk_systeem = 1)
    THEN
-      APPLICATION_ERROR(-20003, 'ALG_M238');
+      raise_application_error(-20000, 'ALG_M238');
    END IF;
-   IF :new.alg_kenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.alg_kenmerk_lengte IS NULL
+   IF :new.alg_kenmerk_kenmerktype IN ('C', 'N') AND :new.alg_kenmerk_lengte IS NULL
    THEN
-      APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
+      raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :new.alg_kenmerk_lengte > 20
+   IF :new.alg_kenmerk_kenmerktype = 'N' AND :new.alg_kenmerk_lengte > 20
    THEN
       :new.alg_kenmerk_lengte := 20;
    END IF;
-   IF :new.alg_kenmerk_kenmerktype IN ('N', 'B') AND :old.alg_kenmerk_key IS NOT NULL
+   IF :new.alg_kenmerk_kenmerktype = 'N' 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
@@ -447,9 +449,9 @@ BEGIN
                   AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) < :new.alg_kenmerk_nmin
                   AND rownum=1);
          IF :new.alg_kenmerk_niveau = 'G' THEN
-           APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
+           raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
          ELSE
-           APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_R');
+           raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_R');
          END IF;
        EXCEPTION
          WHEN NO_DATA_FOUND
@@ -457,9 +459,9 @@ BEGIN
          WHEN TOO_MANY_ROWS THEN
            BEGIN
              IF :new.alg_kenmerk_niveau = 'G' THEN
-               APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
+               raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_G');
              ELSE
-               APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MIN_R');
+               raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MIN_R');
              END IF;
            END;
        END;
@@ -480,9 +482,9 @@ BEGIN
                   AND FAC.SAFE_TO_NUMBER(alg_onrgoedkenmerk_waarde) > :new.alg_kenmerk_nmax
                   AND rownum=1);
          IF :new.alg_kenmerk_niveau = 'G' THEN
-           APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_G');
+           raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_G');
          ELSE
-           APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_R');
+           raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_R');
          END IF;
        EXCEPTION
          WHEN NO_DATA_FOUND
@@ -490,9 +492,9 @@ BEGIN
          WHEN TOO_MANY_ROWS THEN
            BEGIN
              IF :new.alg_kenmerk_niveau = 'G' THEN
-               APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_G');
+               raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_G');
              ELSE
-               APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_MAX_R');
+               raise_application_error(-20000, 'ALG_C_ALG_KENMERK_MAX_R');
              END IF;
            END;
        END;
@@ -547,7 +549,7 @@ BEGIN
                END IF;
             EXCEPTION
                WHEN NO_DATA_FOUND
-               THEN APPLICATION_ERROR_GOTO(-20000, 'ALG_M015');
+               THEN raise_application_error(-20000, 'ALG_M015');
             END;
             SELECT alg_kenmerk_omschrijving
             ,      alg_kenmerk_kenmerktype
@@ -565,7 +567,7 @@ BEGIN
             WHERE  alg_kenmerk_key = :new.alg_kenmerk_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
-            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+            THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1');
          END;
 
          /* Kijk welk KenmerkType gebruikt wordt.
@@ -581,10 +583,10 @@ BEGIN
             */
             IF LENGTH(KenmerkWaarde) > KenmerkLengte
             THEN
-               APPLICATION_ERROR(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
-                                                    || TO_CHAR(KenmerkLengte));
+               APPLICATION_ERROR_GOTO(-20004, 'ALG_M232,'|| KenmerkOmschr ||','
+                                                         || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType IN ('N', 'B')
+         ELSIF KenmerkType = 'N'
          /*
          ** Number
          */
@@ -609,8 +611,8 @@ BEGIN
                THEN FormatMask := REPLACE(FormatMask, '9', '#');
                     FormatMask := REPLACE(FormatMask, '0', '#');
                     FormatMask := REPLACE(FormatMask, 'D', '.');
-                    RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||','
-                                                              || FormatMask);
+                    APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||','
+                                                             || FormatMask);
             END;
             /*
             ** Controleer of de waarde binnen NMin en NMax ligt
@@ -688,4 +690,12 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(alg_t_alg_onroerendgoed_note_B_I)
+BEFORE INSERT ON alg_onroerendgoed_note
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(alg_onroerendgoed_note_key, alg_s_alg_onroerendgoed_note_key);
+END;
+/
+
 REGISTERRUN('$Id$')

ALG/ALG_VIE.SRC

@@ -86,7 +86,7 @@ CREATE_VIEW(alg_v_verdieping_gegevens,0) AS
     SELECT ALG_L.alg_locatie_key, ALG_L.alg_district_key,
            ALG_L.alg_locatie_omschrijving, ALG_L.alg_locatie_code,
            ALG_L.alg_locatie_upper, ALG_G.alg_gebouw_key,
-           ALG_G.alg_srtgebouw_key, ALG_G.alg_gebouw_omschrijving,
+           ALG_G.alg_srtgebouw_key, ALG_G.alg_gebouw_naam, ALG_G.alg_gebouw_omschrijving,
            ALG_G.alg_gebouw_upper, ALG_V.alg_verdieping_key,
            ALG_V.alg_verdieping_omschrijving, ALG_V.alg_verdieping_upper,
            ALG_V.alg_verdieping_volgnr, ALG_V.alg_verdieping_code,
@@ -121,7 +121,7 @@ DEFINIEER_VIEW_AANWEZIG(alg_v_srtvloer, alg_srtvloer_verwijder,
 
 CREATE_VIEW(alg_v_ruimte_gegevens, 0) AS
    SELECT alg_l.alg_locatie_key, alg_l.alg_district_key, alg_l.alg_locatie_omschrijving, alg_l.alg_locatie_code,
-          alg_l.alg_locatie_upper, alg_g.alg_gebouw_key, alg_g.alg_srtgebouw_key, alg_g.alg_gebouw_omschrijving,
+          alg_l.alg_locatie_upper, alg_g.alg_gebouw_key, alg_g.alg_srtgebouw_key, alg_g.alg_gebouw_omschrijving, alg_g.alg_gebouw_naam,
           alg_g.alg_gebouw_upper, alg_v.alg_verdieping_key, alg_v.alg_verdieping_omschrijving,
           alg_v.alg_verdieping_upper, alg_v.alg_verdieping_volgnr, alg_v.alg_verdieping_code,
           alg_v.alg_verdieping_tekening, alg_r.alg_ruimte_key, alg_r.alg_srtruimte_key, alg_r.alg_ruimte_nr,
@@ -147,7 +147,7 @@ CREATE_VIEW(alg_v_ruimte_gegevens, 0) AS
 
 CREATE_VIEW(alg_v_ruimte_gegevens_all, 0) AS
    SELECT alg_l.alg_locatie_key, alg_l.alg_district_key, alg_l.alg_locatie_omschrijving, alg_l.alg_locatie_adres, alg_l.alg_locatie_code,
-          alg_l.alg_locatie_upper, alg_g.alg_gebouw_key, alg_g.alg_srtgebouw_key, alg_g.alg_gebouw_omschrijving,
+          alg_l.alg_locatie_upper, alg_g.alg_gebouw_key, alg_g.alg_srtgebouw_key, alg_g.alg_gebouw_omschrijving, alg_g.alg_gebouw_naam,
           alg_g.alg_gebouw_upper, alg_v.alg_verdieping_key, alg_v.alg_verdieping_omschrijving,
           alg_v.alg_verdieping_upper, alg_v.alg_verdieping_volgnr, alg_v.alg_verdieping_code,
           alg_v.alg_verdieping_tekening, alg_r.alg_ruimte_key, alg_r.alg_srtruimte_key, alg_r.alg_ruimte_nr,
@@ -1269,259 +1269,179 @@ SELECT m.mld_alg_onroerendgoed_keys, 'ALG_OPENST_MELDING',
    SELECT a.alg_onrgoed_keys, 'ALG_TOEK_AFSPRAAK', TO_CHAR (a.bez_afspraak_datum), a.bez_afspraak_key, a.alg_locatie_key
      FROM bez_afspraak a
     WHERE a.bez_afspraak_datum > SYSDATE;
-/
 
-CREATE_VIEW(alg_v_qvw_algemeen, 0)
-(
-   fclt_f_district,
-   fclt_f_gebouw,
-   gemeente,
-   adres,
-   fclt_f_verdieping,
-   ruimte,
-   fclt_f_divisie,
-   fclt_f_afdeling,
-   fclt_f_ruimtesoort,
-   fclt_f_ruimtegebruik,
-   fclt_f_vloersoort,
-   nen2580,
-   vloer,
-   bezetting,
-   wp,
-   fclt_3d_gebouw_key
-)
+/* ROOT VIEWS for User defined Reports (UDR) */
+CREATE_VIEW(alg_v_udr_ruimte, 1)
 AS
-   SELECT   x.district,
-            x.gebouw,
-            COALESCE (y.gemeente, x.plaats),
-            COALESCE (y.adres, x.adres),
-            x.verdieping,
-            x.ruimtenr,
-            x.divisie,
-            x.afdeling,
-            x.ruimtesoort,
-            x.ruimtegebruik,
-            x.vloersoort,
-            ROUND (x.nen2580_opp, 2),
-            ROUND (x.vloer_opp, 2),
-            TO_CHAR (100 * ROUND (x.bezetting, 2)) || '%',
-            x.werkplekken,
-            x.alg_gebouw_key
-     FROM   (   (SELECT   a.alg_gebouw_key,
-                          a.gebouw,
-                          a.adres,
-                          a.plaats,
-                          a.district,
-                          a.verdieping,
-                          a.alg_ruimte_key,
-                          a.ruimtenr,
-                          b.divisie,
-                          b.afdeling,
-                          a.ruimtesoort,
-                          f.ruimtegebruik,
-                          DECODE (
-                             a.nen2580_opp,
-                             NULL,
-                             NULL,
-                             (a.nen2580_opp * COALESCE (b.afd_bez, 1))
-                             / COALESCE (g.tot_bez, 1)
-                          )
-                             nen2580_opp,
-                          DECODE (
-                             a.vloer_opp,
-                             NULL,
-                             NULL,
-                             (a.vloer_opp * COALESCE (b.afd_bez, 1))
-                             / COALESCE (g.tot_bez, 1)
-                          )
-                             vloer_opp,
-                          COALESCE (b.afd_bez, 0) / COALESCE (g.tot_bez, 1)
-                          bezetting,
-                          d.werkplekken,
-                          h.vloersoort
-                   FROM                  (SELECT   r.alg_ruimte_key,
-                                                   r.alg_ruimte_nr ruimtenr,
-                                                   v.alg_verdieping_code
-                                                      verdieping,
-                                                   g.alg_gebouw_key,
-                                                   g.alg_gebouw_code gebouw,
-                                                   l.alg_locatie_adres adres,
-                                                   l.alg_locatie_plaats
-                                                      plaats,
-                                                   d.alg_district_omschrijving
-                                                      district,
-                                                   sr.alg_srtruimte_omschrijving
-                                                      ruimtesoort,
-                                                   r.alg_ruimte_bruto_vloeropp
-                                                      nen2580_opp,
-                                                   r.alg_ruimte_opp_alt1
-                                                      vloer_opp
-                                            FROM   alg_v_aanwezigruimte r,
-                                                   alg_verdieping v,
-                                                   alg_gebouw g,
-                                                   alg_locatie l,
-                                                   alg_district d,
-                                                   alg_srtruimte sr
-                                           WHERE   r.alg_verdieping_key =
-                                                      v.alg_verdieping_key
-                                                   AND v.alg_gebouw_key =
-                                                         g.alg_gebouw_key
-                                                   AND g.alg_locatie_key =
-                                                         l.alg_locatie_key
-                                                   AND l.alg_district_key =
-                                                         d.alg_district_key
-                                                   AND r.alg_srtruimte_key =
-                                                         sr.alg_srtruimte_key(+))
-                                         a
-                                      LEFT JOIN        -- divisie(s) op ruimte
-                                         (SELECT   ra.alg_ruimte_key,
-                                                   afd.prs_afdeling_omschrijving
-                                                   || ' ['
-                                                   || afd.prs_afdeling_naam
-                                                   || ']'
-                                                      divisie,
-                                                   (SELECT   a1.prs_afdeling_omschrijving
-                                                             || ' ['
-                                                             || a1.prs_afdeling_naam
-                                                             || ']'
-                                                      FROM   prs_afdeling a1
-                                                     WHERE   a1.prs_afdeling_key =
-                                                                ra.prs_afdeling_key)
-                                                      afdeling,
-                                                   ra.prs_ruimteafdeling_bezetting
-                                                      afd_bez
-                                            FROM   prs_v_aanwezigruimteafdeling ra,
-                                                   prs_v_afdeling_boom ab,
-                                                   prs_afdeling afd
-                                           WHERE   ra.prs_afdeling_key =
-                                                      ab.prs_afdeling_key
-                                                   AND ab.prs_afdeling_key1 =
-                                                         afd.prs_afdeling_key)
-                                         b
-                                      ON a.alg_ruimte_key = b.alg_ruimte_key
-                                   LEFT JOIN
-                                      (SELECT   ok.alg_onrgoed_key,
-                                                ok.alg_onrgoedkenmerk_waarde
-                                                   werkplekken
-                                         FROM   alg_onrgoedkenmerk ok
-                                        WHERE   ok.alg_kenmerk_key =
-                                             (SELECT   alg_kenmerk_key
-                                                FROM   alg_kenmerk
-                                               WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%WERKPLEK%'
-                                               AND     alg_kenmerk_systeem = 1
-                                               AND     alg_kenmerk_verwijder IS NULL)
-                                                AND ok.alg_onrgoed_niveau = 'R'
-                                                AND ok.alg_onrgoedkenmerk_verwijder IS NULL)
-                                      d
-                                   ON a.alg_ruimte_key = d.alg_onrgoed_key
-                             LEFT JOIN
-                                (SELECT   ok.alg_onrgoed_key,
-                                          ud.fac_usrdata_omschr ruimtegebruik
-                                   FROM   alg_onrgoedkenmerk ok,
-                                          fac_usrdata ud
-                                  WHERE   ok.alg_kenmerk_key =
-                                             (SELECT   alg_kenmerk_key
-                                                FROM   alg_kenmerk
-                                               WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%GEBRUIK%'
-                                               AND     alg_kenmerk_systeem = 1
-                                               AND     alg_kenmerk_verwijder IS NULL)
-                                          AND ok.alg_onrgoed_niveau = 'R'
-                                          AND ok.alg_onrgoedkenmerk_waarde =
-                                                ud.fac_usrdata_key) f
-                             ON a.alg_ruimte_key = f.alg_onrgoed_key
-                             LEFT JOIN
-                                (SELECT   ok.alg_onrgoed_key,
-                                          ud.fac_usrdata_omschr vloersoort
-                                   FROM   alg_onrgoedkenmerk ok,
-                                          fac_usrdata ud
-                                  WHERE   ok.alg_kenmerk_key =
-                                             (SELECT   alg_kenmerk_key
-                                                FROM   alg_kenmerk
-                                               WHERE   UPPER(alg_kenmerk_omschrijving) LIKE '%VLOER%'
-                                               AND     alg_kenmerk_systeem = 1
-                                               AND     alg_kenmerk_verwijder IS NULL)
-                                          AND ok.alg_onrgoed_niveau = 'R'
-                                          AND ok.alg_onrgoedkenmerk_waarde =
-                                                ud.fac_usrdata_key) h
-                             ON a.alg_ruimte_key = h.alg_onrgoed_key
-                          LEFT JOIN                        -- bezettingstotaal
-                             (  SELECT   ra.alg_ruimte_key,
-                                         SUM (ra.prs_ruimteafdeling_bezetting)
-                                            tot_bez
-                                  FROM   prs_v_aanwezigruimteafdeling ra
-                              GROUP BY   ra.alg_ruimte_key) g
-                          ON a.alg_ruimte_key = g.alg_ruimte_key) x
-             LEFT JOIN                                -- adres info bij gebouw
-                (SELECT   g.alg_gebouw_key,
-                          a.mld_adres_bezoek_plaats gemeente,
-                          a.mld_adres_bezoek_adres adres
-                   FROM   alg_gebouw g, mld_adres a
-                  WHERE   g.mld_adres_key = a.mld_adres_key
-                          AND a.mld_adres_verwijder IS NULL) y
-             ON x.alg_gebouw_key = y.alg_gebouw_key);
+    SELECT    alg_l.alg_locatie_code
+           || '-'
+           || alg_g.alg_gebouw_code
+           || '-'
+           || alg_v.alg_verdieping_code
+           || '-'
+           || alg_r.alg_ruimte_nr
+               ruimte_aanduiding,
+           alg_d.alg_district_omschrijving
+               district,
+           alg_re.alg_regio_omschrijving
+               regio,
+           alg_l.alg_locatie_omschrijving
+               locatie,
+           COALESCE (alg_g.alg_gebouw_adres, alg_l.alg_locatie_adres)
+               adres,
+           COALESCE (alg_g.alg_gebouw_postcode, alg_l.alg_locatie_postcode)
+               postcode,
+           alg_l.alg_locatie_plaats
+               plaats,
+           alg_l.alg_locatie_mjb_score1
+               locatieconditiescore,
+           alg_g.alg_gebouw_naam
+               gebouw,
+           alg_g.alg_gebouw_omschrijving
+               gebouwomschrijving,
+           lcl.x ('alg_srtruimte_omschrijving',
+                  alg_sg.alg_srtgebouw_key,
+                  alg_srtgebouw_omschrijving)
+               gebouwsoort,
+           alg_g.alg_gebouw_groep,
+           alg_g.alg_gebouw_bruto_vloeropp
+               gebouwoppervlakte,
+           alg_g.alg_gebouw_omtrek
+               gebouwomtrek,
+           alg_g.alg_gebouw_mjb_score1
+               gebouwconditiescore,
+           (SELECT p.prs_perslid_naam_friendly
+              FROM prs_v_perslid_fullnames_all p
+             WHERE p.prs_perslid_key = alg_g.prs_perslid_key_verantw)
+                gebouwverantwoordelijke1,
+           (SELECT p.prs_perslid_naam_friendly
+              FROM prs_v_perslid_fullnames_all p
+             WHERE p.prs_perslid_key = alg_g.prs_perslid_key_verantw2)
+                gebouwverantwoordelijke2,
+           alg_v.alg_verdieping_code
+               verdieping,
+           alg_v.alg_verdieping_omschrijving
+               verdiepingomschrijving,
+           alg_v.alg_verdieping_volgnr
+               verdiepingvolgnr,
+           alg_r.alg_ruimte_nr
+               ruimte,
+           alg_r.alg_ruimte_omschrijving
+               ruimteomschrijving,
+           lcl.x ('alg_srtruimte_omschrijving',
+                  alg_sr.alg_srtruimte_key,
+                  alg_srtruimte_omschrijving)
+               ruimtesoort,
+           alg_sr.alg_srtruimte_code
+               ruimtesoortcode,
+           alg_sr.alg_srtruimte_prijs
+               ruimtesoortprijs1,
+           alg_sr.alg_srtruimte_prijs2
+               ruimtesoortprijs2,
+           alg_sr.alg_srtruimte_prijs3
+               ruimtesoortprijs3,
+           alg_sr.alg_srtruimte_prijs4
+               ruimtesoortprijs4,
+           alg_sr.alg_srtruimte_prijs5
+               ruimtesoortprijs5,
+           DECODE (alg_sr.prs_verhuurbaar, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no'))
+               ruimtesoortverhuurbaar,
+           DECODE (alg_sr.prs_bevat_werkplek, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no'))
+               ruimtesoortwerkplekken,
+           alg_r.alg_ruimte_vloer_omschrijving
+               vloer,
+           alg_r.alg_ruimte_omtrek
+               omtrek,
+           alg_r.alg_ruimte_inhoud
+               inhoud,
+           alg_r.alg_ruimte_bruto_vloeropp
+               oppervlakte1,
+           alg_ruimte_opp_alt1
+               oppervlakte2,
+           alg_ruimte_opp_alt2
+               oppervlakte3,
+           alg_r.alg_ruimte_opmerking
+               ruimteopmerking,
+           alg_r.alg_ruimte_key,
+           alg_v.alg_verdieping_key,
+           alg_g.alg_gebouw_key,
+           alg_l.alg_locatie_key,
+           alg_l.alg_district_key,
+           alg_re.alg_regio_key
+      FROM alg_locatie     alg_l,
+           alg_gebouw      alg_g,
+           alg_verdieping  alg_v,
+           alg_ruimte      alg_r,
+           alg_srtruimte   alg_sr,
+           alg_srtgebouw   alg_sg,
+           alg_district    alg_d,
+           alg_regio       alg_re
+     WHERE     alg_r.alg_ruimte_verwijder IS NULL
+           AND alg_v.alg_verdieping_key = alg_r.alg_verdieping_key
+           AND alg_g.alg_gebouw_key = alg_v.alg_gebouw_key
+           AND alg_l.alg_locatie_key = alg_g.alg_locatie_key
+           AND alg_d.alg_district_key = alg_l.alg_district_key
+           AND alg_re.alg_regio_key = alg_d.alg_regio_key
+           AND alg_r.alg_srtruimte_key = alg_sr.alg_srtruimte_key(+)
+           AND alg_g.alg_srtgebouw_key = alg_sg.alg_srtgebouw_key(+);
 
--- Vooralsnog even rechttoerechtaan, moet aangepast worden
-CREATE_VIEW(alg_v_api_regios, 1) AS
-    SELECT alg_regio_key key,
-           alg_regio_omschrijving regioomschrijving
-      FROM alg_v_aanwezigregio;
-
-CREATE_VIEW(alg_v_api_districten, 1) AS
-    SELECT alg_district_key key,
-           alg_regio_omschrijving regioomschrijving,
-           alg_district_omschrijving districtomschrijving
-      FROM alg_v_district_gegevens;
-
-CREATE_VIEW(alg_v_api_locaties, 1) AS
-    SELECT l.alg_locatie_key key,
-           lg.alg_regio_omschrijving regioomschrijving,
-           lg.alg_district_omschrijving districtomschrijving,
-           l.alg_locatie_code locatiecode,
-           l.alg_locatie_omschrijving locatieomschrijving,
-           l.alg_locatie_adres locatieadres,
-           l.alg_locatie_postcode locatiepostcode,
-           l.alg_locatie_plaats locatieplaats,
-           l.alg_locatie_x locatiex,
-           l.alg_locatie_y locatiey
-      FROM alg_v_locatie_gegevens lg, alg_locatie l
-     WHERE lg.alg_locatie_key = l.alg_locatie_key;
-
-CREATE_VIEW(alg_v_api_gebouwen, 1) AS
-    SELECT g.alg_gebouw_key key,
-           l.alg_locatie_code locatiecode,
-           g.alg_gebouw_code gebouwcode,
-           g.alg_gebouw_naam gebouwnaam,
-           sg.alg_srtgebouw_omschrijving soortgebouw,
-           l.alg_locatie_adres locatieadres,
-           l.alg_locatie_postcode locatiepostcode,
-           l.alg_locatie_plaats locatieplaats,
-           COALESCE(l.alg_locatie_x, g.alg_gebouw_x) gebouwx,
-           COALESCE(l.alg_locatie_y, g.alg_gebouw_y) gebouwy
-      FROM alg_locatie l,
-           alg_v_aanweziggebouw g,
-           alg_v_aanwezigsrtgebouw sg
-     WHERE l.alg_locatie_key = g.alg_locatie_key AND
-           g.alg_srtgebouw_key = sg.alg_srtgebouw_key (+);
-
-CREATE_VIEW(alg_v_api_verdiepingen, 1) AS
-    SELECT alg_verdieping_key key,
-           alg_locatie_code locatiecode,
-           alg_gebouw_code gebouwcode,
-           alg_verdieping_code verdiepingcode,
-           alg_verdieping_omschrijving verdiepingomschrijving,
-           alg_verdieping_volgnr verdiepingvolgnr
-      FROM alg_v_verdieping_gegevens vg, alg_gebouw g
-     WHERE g.alg_gebouw_key = vg.alg_gebouw_key;
-
-CREATE_VIEW(alg_v_api_ruimten, 1) AS
-    SELECT alg_ruimte_key key,
-           alg_locatie_code locatiecode,
-           alg_gebouw_code gebouwcode,
-           alg_verdieping_code verdiepingcode,
-           alg_ruimte_nr ruimtecode,
-           alg_ruimte_omschrijving ruimtenaam,
-           alg_srtruimte_omschrijving soortruimte
-      FROM alg_v_ruimte_gegevens rg, alg_gebouw g
-     WHERE g.alg_gebouw_key = rg.alg_gebouw_key;
+CREATE_VIEW(alg_v_udr_terrein, 1)
+AS
+    SELECT alg_l.alg_locatie_code || '-' || alg_t.alg_terreinsector_code
+               terrein_aanduiding,
+           alg_d.alg_district_omschrijving
+               district,
+           alg_re.alg_regio_omschrijving
+               regio,
+           alg_l.alg_locatie_omschrijving
+               locatie,
+           alg_l.alg_locatie_adres
+               adres,
+           alg_l.alg_locatie_postcode
+               postcode,
+           alg_l.alg_locatie_plaats
+               plaats,
+           alg_l.alg_locatie_mjb_score1
+               locatieconditiescore,
+           alg_t.alg_terreinsector_naam
+               terrein,
+           alg_t.alg_terreinsector_omschrijving
+               terreinomschrijving,
+           lcl.x ('alg_srtterreinsec_omschrijving',
+                  alg_st.alg_srtterreinsector_key,
+                  alg_srtterreinsec_omschrijving)
+               terreinsoort,
+           alg_st.alg_srtterreinsector_code
+               terreinsoortcode,
+           alg_st.alg_srtterreinsector_prijs
+               terreinsoortprijs1,
+           alg_st.alg_srtterreinsector_prijs2
+               terreinsoortprijs2,
+           alg_st.alg_srtterreinsector_prijs3
+               terreinsoortprijs3,
+           alg_st.alg_srtterreinsector_prijs4
+               terreinsoortprijs4,
+           alg_st.alg_srtterreinsector_prijs5
+               terreinsoortprijs5,
+           DECODE (alg_st.prs_verhuurbaar, 1, lcl.l ('lcl_yes'), lcl.l ('lcl_no'))
+               terreinsoortverhuurbaar,
+           alg_t.alg_terreinsector_omtrek
+               omtrek,
+           alg_t.alg_terreinsector_oppervlak
+               oppervlakte,
+           alg_t.alg_terreinsector_key,
+           alg_l.alg_locatie_key,
+           alg_l.alg_district_key,
+           alg_re.alg_regio_key
+      FROM alg_locatie           alg_l,
+           alg_terreinsector     alg_t,
+           alg_srtterreinsector  alg_st,
+           alg_district          alg_d,
+           alg_regio             alg_re
+     WHERE     alg_t.alg_terreinsector_verwijder IS NULL
+           AND alg_l.alg_locatie_key = alg_t.alg_locatie_key
+           AND alg_d.alg_district_key = alg_l.alg_district_key
+           AND alg_re.alg_regio_key = alg_d.alg_regio_key
+           AND alg_t.alg_srtterreinsector_key = alg_st.alg_srtterreinsector_key(+);
 
 REGISTERRUN('$Id$')

AUT/AUT_INI.SRC

@@ -0,0 +1,24 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+_FAC_MODULE('AUT','lcl_module_AUT')
+
+INSERT INTO aut_idp
+       (aut_idp_code, aut_idp_type, aut_idp_algorithm,
+        aut_idp_omschrijving, aut_idp_opmerking,
+        aut_idp_secret, aut_idp_audience, aut_idp_issuer, aut_idp_clockskew)
+ VALUES ('_INTERNAL', 4, 'HS256',
+         'Internal use', 'Internal use only. Do not modify',
+         DBMS_RANDOM.string('a', 32), 'internal.facilitor.nl', 'internal.facilitor.nl', 30
+        );
+
+INSERT INTO aut_idp_map
+    (aut_idp_key, aut_idp_map_from, aut_idp_map_to, aut_idp_map_identify)
+ SELECT aut_idp_key, 'perslid_key', 99, 1
+   FROM aut_idp
+  WHERE aut_idp_code = '_INTERNAL';
+
+REGISTERONCE('$Id$')
+

AUT/AUT_TAB.SRC

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

BES/BES_IND.SRC

@@ -29,6 +29,9 @@ create index bes_i_bes_bestelopdr_p_prs_key on bes_bestelopdr (prs_perslid_key);
 create index bes_i_bes_bestelopdr_datum on bes_bestelopdr(bes_bestelopdr_datum);
 create index bes_i_bes_bestelopdr_item on bes_bestelopdr_item(bes_bestelopdr_item_verwerkt);
 
+create index bes_i_bes_bestellever_prs_key on bes_bestellevr (prs_perslid_key);
+create index bes_i_bes_bestellevr_item1 ON bes_bestellevr_item(bes_bestellevr_key);
+
 create index bes_i_bes_srtdeel1 on bes_srtdeel(bes_srtgroep_key);
 CREATE UNIQUE INDEX bes_i_bes_srtdeel2 ON bes_srtdeel(bes_srtdeel_nr, prs_bedrijf_key, bes_srtgroep_key, bes_srtdeel_verwijder);
 CREATE INDEX bes_i_bes_srtdeel_prs_bdr_key on bes_srtdeel (prs_bedrijf_key);
@@ -40,13 +43,13 @@ create index prs_i_prs_afdeling_p_bdr_key on prs_afdeling (prs_bedrijf_key);
 create unique index bes_i_bes_disc_params1 on bes_disc_params(bes_ins_discipline_key);
 
 CREATE INDEX bes_i_bes_kenmerkbestell1 ON bes_kenmerkbestell(bes_bestelling_key);
-
 CREATE INDEX bes_i_bes_kenmerkbesteli1 ON bes_kenmerkbesteli(bes_bestelling_item_key);
+CREATE INDEX bes_i_bes_srtkenmerk1 ON bes_srtkenmerk(bes_srtkenmerk_code);
+CREATE INDEX bes_i_bes_kenmerk1 ON bes_kenmerk(bes_kenmerk_code);
 
 CREATE INDEX bes_i_bes_favoriet1 ON bes_favoriet(prs_perslid_key);
 
 CREATE INDEX bes_i_bes_srtdeel_prijs1 ON bes_srtdeel_prijs (bes_srtdeel_key);
-CREATE INDEX bes_i_bes_srtprod_prijs1 ON bes_srtprod_prijs (bes_srtprod_key);
 
 REGISTERONCE('$Id$')
 

BES/BES_PAC.SRC

@@ -14,27 +14,13 @@ AS
       RETURN NUMBER;
    FUNCTION getsrtdeelinkprijs (pbes_srtdeel_key IN NUMBER, pdate IN DATE)
       RETURN NUMBER;
-   FUNCTION getsrtprodprijs (pbes_srtprod_key IN NUMBER, pdate IN DATE)
-      RETURN NUMBER;
 
    FUNCTION calcartikelkortingsprijs (pbes_srtdeel_key IN NUMBER, pbestelaantal IN NUMBER)
       RETURN NUMBER;
 
-   PROCEDURE calcopdrachtbedragkorting (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER,
-                                        pkortingsbedrag OUT NUMBER, pkorting OUT NUMBER);
-
-   FUNCTION calcopdrachtkorting (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER)
-      RETURN NUMBER;
-
-   FUNCTION calcopdrachtkortingbedrag (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER)
-      RETURN NUMBER;
-
    FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER, ppunchout IN NUMBER)
       RETURN NUMBER;
 
-   FUNCTION calcbesopdrachtkorting (pbes_bestelopdr_key IN NUMBER, pautoupdate IN NUMBER)
-      RETURN NUMBER;
-
    FUNCTION calcbesopdrachtkosten (pbes_bestelopdr_key IN NUMBER, pautoupdate IN NUMBER)
       RETURN NUMBER;
 
@@ -52,7 +38,8 @@ AS
                          p_bes_srtdeel_image           IN VARCHAR2,
                          p_bes_srtdeel_veelvoud        IN NUMBER,
                          p_bes_srtdeel_opmerking       IN VARCHAR2,
-                         p_bes_srtdeel_details_loc     IN VARCHAR2 DEFAULT NULL
+                         p_bes_srtdeel_details_loc     IN VARCHAR2,
+                         new_bes_srtdeel_key           OUT NUMBER
                         );
 
    PROCEDURE makeorders (i_userkey IN NUMBER, bes_key IN NUMBER);
@@ -77,6 +64,17 @@ AS
       RETURN NUMBER;
    FUNCTION bes_besteed_budget_agb (p_kp_key IN NUMBER)
       RETURN NUMBER;
+
+   PROCEDURE notifybestellingbedrijven (pbestelkey            NUMBER,
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL);
+
+   PROCEDURE notifybestelopdrbedrijven (pbestelopdrkey        NUMBER,
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL);
+
+   PROCEDURE autodeliver;
+
 END bes;
 /
 
@@ -170,42 +168,6 @@ AS
      RETURN bes.getsrtdeelprijsinfo (pbes_srtdeel_key, pdate, 2);
    END;
 
-   FUNCTION getsrtprodprijs (pbes_srtprod_key IN NUMBER, pdate IN DATE)
-      RETURN NUMBER
-   AS
-    ldate DATE;
-    lprijs bes_srtprod_prijs.bes_srtprod_prijs_prijs%TYPE;
-   BEGIN
-      ldate := SYSDATE;  -- default
-      IF pdate IS NOT NULL
-      THEN
-        ldate := pdate;
-      END IF;
-      BEGIN
-        SELECT   sdp.bes_srtprod_prijs_prijs
-          INTO   lprijs
-          FROM   bes_srtprod_prijs sdp
-         WHERE   COALESCE (sdp.bes_srtprod_prijs_vervaldatum, SYSDATE + 999) > ldate AND sdp.bes_srtprod_key = pbes_srtprod_key
-                    AND NOT EXISTS
-                       (SELECT   ''
-                          FROM   bes_srtprod_prijs sdp1
-                         WHERE COALESCE (sdp1.bes_srtprod_prijs_vervaldatum, SYSDATE + 999) > ldate
-                                 AND sdp1.bes_srtprod_key = pbes_srtprod_key
-                                 AND COALESCE(sdp1.bes_srtprod_prijs_vervaldatum, SYSDATE+999) < COALESCE (sdp.bes_srtprod_prijs_vervaldatum, SYSDATE + 999));
-      EXCEPTION
-         WHEN NO_DATA_FOUND
-         THEN
-            RETURN NULL;
-      END;
-      RETURN lprijs;
-   END;
-
-
-
-
-
-
-
    FUNCTION calcartikelkortingsprijs (pbes_srtdeel_key IN NUMBER, pbestelaantal IN NUMBER)
       RETURN NUMBER
    AS
@@ -276,70 +238,6 @@ AS
       RETURN lkortingsprijs;
    END;
 
-   PROCEDURE calcopdrachtbedragkorting (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER,
-                                        pkortingsbedrag OUT NUMBER, pkorting OUT NUMBER)
-   AS
-      lkorting prs_staffel.prs_staffel_korting%TYPE;                                                       -- percentage
-      lkortingsbedrag NUMBER;
-   BEGIN
-      -- De staffeltabel bevat intervallen waarvan de bovengrens is opgenomen
-      -- bijvoorbeeld
-      -- 10 -> 1%
-      -- 20 -> 2%
-      -- 50 -> 5%
-      -- Dan is 30 (euro) tussen 20 en 50 en geldt 5% korting
-      -- Je moet dus het laagste hogere record vinden. Voor de bovengrens (hooogste staffel) is de grenswaarde NULL
-      -- ATTENTIE: Nu wordt de laagste *korting* gekozen indien je in de hoogste staffel zit, terwijl je
-      --           de laagste grenswaarde moet pakken. Levert nu de verkeerde waarde op in het rare geval dat
-      --           de korting *lager* wordt als je in de hoogste staffel komt, bijvoorbeeld
-      --           bij tot10000 artikelen 30% korting, en boven10000 25%. Aanname om technische redenen, maar mocht
-      --           er een verrassend probleem optreden, is dit alvast de tip.
-      SELECT   COALESCE(MIN(prs_staffel_korting), 0)
-        INTO   lkorting
-        FROM   prs_staffel s1
-       WHERE   (prs_staffel_grenswaarde > pbrutoopdrachtbedrag OR s1.prs_staffel_grenswaarde IS NULL) --s2.prs_staffel_grenswaarde IS NULL)
-               AND NOT EXISTS
-                     (SELECT   'X'
-                        FROM   prs_staffel s2
-                       WHERE       s1.prs_bedrijf_key = s2.prs_bedrijf_key
-                               AND s2.prs_staffel_grenswaarde < s1.prs_staffel_grenswaarde
-                               AND (s2.prs_staffel_grenswaarde > pbrutoopdrachtbedrag OR s2.prs_staffel_grenswaarde IS NULL))
-               AND prs_bedrijf_key = pprs_bedrijf_key
-               AND pbrutoopdrachtbedrag > 0;
-
-      lkortingsbedrag := (lkorting / 100) * pbrutoopdrachtbedrag;
-
---     RETURN lkortingsbedrag;
-      pkortingsbedrag := lkortingsbedrag;
-      pkorting := lkorting;
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN
---         RETURN 0;
-      pkortingsbedrag := 0;
-      pkorting := 0;
-   END;
-
-   FUNCTION calcopdrachtkorting (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER)
-      RETURN NUMBER
-   AS
-      lkorting prs_staffel.prs_staffel_korting%TYPE;                                                       -- percentage
-      lkortingsbedrag NUMBER;
-   BEGIN
-     BES.calcopdrachtbedragkorting(pprs_bedrijf_key, pbrutoopdrachtbedrag, lkortingsbedrag, lkorting);
-     RETURN lkorting;
-   END;
-
-   FUNCTION calcopdrachtkortingbedrag (pprs_bedrijf_key IN NUMBER, pbrutoopdrachtbedrag IN NUMBER)
-      RETURN NUMBER
-   AS
-      lkorting prs_staffel.prs_staffel_korting%TYPE;                                                       -- percentage
-      lkortingsbedrag NUMBER;
-   BEGIN
-     BES.calcopdrachtbedragkorting(pprs_bedrijf_key, pbrutoopdrachtbedrag, lkortingsbedrag, lkorting);
-     RETURN lkortingsbedrag;
-   END;
-
    FUNCTION calcbesartikelkortingsprijs (pbes_bestelling_item_key IN NUMBER, ppunchout IN NUMBER)
       RETURN NUMBER
    AS
@@ -413,7 +311,7 @@ AS
             AND   bi.bes_bestelling_item_key = pbes_bestelling_item_key;
       END IF;
 
-      -- Vindt staffelrecord; zie(!) opmerkingen bij prs_staffel in bes.calcopdrachtkorting.
+      -- Vindt staffelrecord;
       BEGIN
          SELECT   COALESCE(MIN(bes_staffel_korting), 0)
            INTO   lstaffelkorting
@@ -450,62 +348,6 @@ AS
       RETURN lkortingsprijs;
    END;
 
-   FUNCTION calcbesopdrachtkorting (pbes_bestelopdr_key IN NUMBER, pautoupdate IN NUMBER)
-      RETURN NUMBER
-   AS
-      lbrutoopdrachtbedrag NUMBER;
-      lkorting prs_staffel.prs_staffel_korting%TYPE;                                                       -- percentage
-      lstaffelkortingbedrag NUMBER;
-      lkortingsbedrag NUMBER;
-   BEGIN
-      ----   som van de bes_bestelopdr_item_prijs > bedrijf.staffel -> kortingspercentage * (sum aantal * bes_bestelopdr_item_prijs) = bes_bestelopdr_korting
-      -- merk op: deze staffel is op prijs (niet op aantallen)
-      SELECT   COALESCE(SUM (bes_bestelopdr_item_prijs * bes_bestelopdr_item_aantal), 0)
-        INTO   lbrutoopdrachtbedrag
-        FROM   bes_bestelopdr_item
-       WHERE   bes_bestelopdr_key = pbes_bestelopdr_key;
-
-      -- De staffeltabel bevat intervallen waarvan de bovengrens is opgenomen
-      -- bijvoorbeeld
-      -- 10 -> 1%
-      -- 20 -> 2%
-      -- 50 -> 5%
-      -- Dan is 30 (euro) tussen 20 en 50 en geldt 5% korting
-      -- Je moet dus het laagste hogere record vinden. Voor de bovengrens (hooogste staffel) is de grenswaarde NULL
-      -- ATTENTIE: Nu wordt de laagste *korting* gekozen indien je in de hoogste staffel zit, terwijl je
-      --           de laagste grenswaarde moet pakken. Levert nu de verkeerde waarde op in het rare geval dat
-      --           de korting *lager* wordt als je in de hoogste staffel komt, bijvoorbeeld
-      --           bij tot10000 artikelen 30% korting, en boven10000 25%. Aanname om technische redenen, maar mocht
-      --           er een verrassend probleem optreden, is dit alvast de tip.
-      SELECT   COALESCE(MIN(prs_staffel_korting), 0)
-        INTO   lkorting
-        FROM   prs_staffel s1
-       WHERE   (prs_staffel_grenswaarde > lbrutoopdrachtbedrag OR s1.prs_staffel_grenswaarde IS NULL)
-               AND NOT EXISTS
-                     (SELECT   'X'
-                        FROM   prs_staffel s2
-                       WHERE       s1.prs_bedrijf_key = s2.prs_bedrijf_key
-                               AND s2.prs_staffel_grenswaarde < s1.prs_staffel_grenswaarde
-                               AND (s2.prs_staffel_grenswaarde > lbrutoopdrachtbedrag OR s2.prs_staffel_grenswaarde IS NULL))
-               AND prs_bedrijf_key = (SELECT   prs_bedrijf_key
-                                        FROM   bes_bestelopdr
-                                       WHERE   bes_bestelopdr_key = pbes_bestelopdr_key);
-
-      lkortingsbedrag := (lkorting / 100) * lbrutoopdrachtbedrag;
-
-      IF pautoupdate > 0
-      THEN
-         UPDATE   bes_bestelopdr
-            SET   bes_bestelopdr_korting = lkortingsbedrag
-          WHERE   bes_bestelopdr_key = pbes_bestelopdr_key;
-      END IF;
-
-      RETURN lkortingsbedrag;
-   EXCEPTION
-      WHEN NO_DATA_FOUND
-      THEN
-         RETURN 0;
-   END;
 
    FUNCTION calcbesopdrachtkosten (pbes_bestelopdr_key IN NUMBER, pautoupdate IN NUMBER)
       RETURN NUMBER
@@ -631,7 +473,8 @@ AS
                              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_details_loc     IN VARCHAR2  DEFAULT NULL                   -- VARCHAR2 (255)
+                             p_bes_srtdeel_details_loc     IN VARCHAR2,                                -- VARCHAR2 (255)
+                             new_bes_srtdeel_key           OUT NUMBER                                      -- NUMBER (10)
                             )
    AS
       v_bes_srtgroep_key NUMBER (10);
@@ -652,16 +495,10 @@ AS
 
       IF v_bes_srtgroep_key = -1
       THEN
-         INSERT INTO bes_srtgroep (ins_discipline_key, bes_srtgroep_omschrijving
-                                  )
-           VALUES   (p_ins_discipline_key, p_bes_srtgroep_omschrijving
-                    );
-
-         SELECT   bes_srtgroep_key
-           INTO   v_bes_srtgroep_key
-           FROM   bes_srtgroep
-          WHERE   ins_discipline_key = p_ins_discipline_key
-                  AND UPPER (bes_srtgroep_omschrijving) = UPPER (p_bes_srtgroep_omschrijving);
+         INSERT INTO bes_srtgroep (ins_discipline_key, bes_srtgroep_omschrijving )
+              VALUES (p_ins_discipline_key, p_bes_srtgroep_omschrijving )
+           RETURNING bes_srtgroep_key
+                INTO v_bes_srtgroep_key;
       END IF;
 
       IF p_prs_bedrijf_key = -1
@@ -715,8 +552,8 @@ AS
                                      bes_srtdeel_verwijder,
                                      bes_srtdeel_opmerking,
                                      bes_srtdeel_details_loc
-                    )
-           VALUES   (
+                     )
+              VALUES (
                         v_bes_srtdeel_key,
                         v_bes_srtgroep_key,
                         p_bes_srtdeel_omschrijving,
@@ -730,7 +567,7 @@ AS
                         SYSDATE,
                         p_bes_srtdeel_opmerking,
                         p_bes_srtdeel_details_loc
-                    );
+                     );
       ELSE
         -- Bestaand artikel, maar de verwijdatum moet wel ververst worden
         -- Anders gaat de prijsbepaling niet goed
@@ -738,6 +575,7 @@ AS
            SET bes_srtdeel_verwijder = SYSDATE
          WHERE bes_srtdeel_key = v_bes_srtdeel_key;
       END IF;
+      new_bes_srtdeel_key := v_bes_srtdeel_key;
 
       -- Verwerk de prijs
       bes.upsert_srtdeel_prijs (v_bes_srtdeel_key, p_bes_srtdeel_prijs, NULL);   -- TODO: waar komt die inkoopprijs vandaan?
@@ -783,7 +621,6 @@ AS
       l_item_brutoprijs         bes_bestelopdr_item.bes_bestelopdr_item_brutoprijs%TYPE;
       l_item_prijs              bes_bestelopdr_item.bes_bestelopdr_item_prijs%TYPE;
       l_item_inkprijs           bes_bestelopdr_item.bes_bestelopdr_item_inkprijs%TYPE;
-      besopdrachtkorting        NUMBER (8, 2);
       besopdrachtkosten         NUMBER (8, 2);
       bedrijfvolgnr             NUMBER (3);
       CURSOR tebestellen
@@ -911,11 +748,9 @@ AS
                         '');
                -- Bepaal opdrachtkorting en opdrachtkosten en sla deze op
                -- Met parameter 1 geven we aan dat de berekende waarde automaisch ook word opgeslagen
-               besopdrachtkorting := bes.calcbesopdrachtkorting(lbord_key, 1);
                besopdrachtkosten := bes.calcbesopdrachtkosten(lbord_key, 1);
                UPDATE bes_bestelopdr
                   SET bes_bestelopdr_levkosten = besopdrachtkosten
-                    , bes_bestelopdr_korting = besopdrachtkorting
                 WHERE bes_bestelopdr_key = lbord_key;
             END IF;
             -- Op naar de volgende
@@ -991,11 +826,9 @@ AS
                     '');
           -- Bepaal opdrachtkorting en opdrachtkosten en sla deze op
           -- Met parameter 1 geven we aan dat de berekende waarde automaisch ook word opgeslagen
-          besopdrachtkorting := bes.calcbesopdrachtkorting(lbord_key, 1);
           besopdrachtkosten := bes.calcbesopdrachtkosten(lbord_key, 1);
           UPDATE bes_bestelopdr
              SET bes_bestelopdr_levkosten = besopdrachtkosten
-               , bes_bestelopdr_korting = besopdrachtkorting
            WHERE bes_bestelopdr_key = lbord_key;
         END IF;
     END;
@@ -2394,6 +2227,230 @@ AS
       RETURN l_budgetbesteld;
    END;
 
+   PROCEDURE notifybestellingbedrijven (pbestelkey            NUMBER,
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay            NUMBER DEFAULT NULL)
+   AS
+   BEGIN
+      NULL; --  TODO?
+   END;
+
+   PROCEDURE notifybestelopdrbedrijven (pbestelopdrkey        NUMBER,
+                                        ptrackingkey          NUMBER,
+                                        pnotidelay NUMBER DEFAULT NULL)
+   AS
+   BEGIN
+      FOR bedrijfrec IN (SELECT b.prs_bedrijf_key,
+                                 CASE WHEN b.prs_bedrijf_key = o.prs_bedrijf_key THEN 'B' ELSE 'G' END bedrijfadres_type,
+                                 l.alg_locatie_key,
+                                 o.bes_bestelopdr_id
+                           FROM prs_bedrijf     b,
+                                 bes_bestelopdr  o,
+                                 mld_adres       ma,
+                                 alg_locatie     l
+                           WHERE     o.bes_bestelopdr_key = pbestelopdrkey
+                                 AND b.prs_bedrijf_key = o.prs_bedrijf_key
+                                 AND o.mld_adres_key_lev = ma.mld_adres_key
+                                 AND ma.alg_locatie_key = l.alg_locatie_key(+)
+                                 AND (   b.prs_bedrijf_key = o.prs_bedrijf_key  -- type 'B'
+                                    OR EXISTS
+                                             (SELECT 1
+                                                FROM prs_bedrijfadres ba
+                                             WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key
+                                               AND ba.prs_bedrijfadres_startdatum <= SYSDATE
+                                               AND ba.prs_bedrijfadres_type = 'G')))
+      LOOP
+         fac.notifybedrijf (pbedrijf_key          => bedrijfrec.prs_bedrijf_key,
+                            pbedrijfadres_type    => bedrijfrec.bedrijfadres_type,
+                            prefkey               => pbestelopdrkey,
+                            ptrackingkey          => ptrackingkey,
+                            preference            => bedrijfrec.bes_bestelopdr_id,
+                            plocatie_key          => bedrijfrec.alg_locatie_key,
+                            pnotidelay            => pnotidelay);
+      END LOOP;
+   END;
+
+   PROCEDURE autodeliver
+   IS
+      v_bes_bestellevr_key    bes_bestellevr.bes_bestellevr_key%TYPE;
+      last_bes_bestelopdr_key bes_bestelopdr.bes_bestelopdr_key%TYPE;
+      last_bes_bestelling_key bes_bestelling_item.bes_bestelling_key%TYPE;
+      amount                  bes_bestelling_item.bes_bestelling_item_aantal%TYPE;
+      tracking                VARCHAR2 (2000);
+
+      CURSOR b_upd IS
+            SELECT b.bes_bestelopdr_key,
+                   b.bes_bestelopdr_id,
+                   boi.bes_bestelopdr_item_key,
+                   boi.bes_bestelopdr_item_aantal,
+                   boi.bes_bestelopdr_item_omschrijv,
+                   bi.bes_bestelling_key,
+                   bi.bes_bestelling_item_key
+              FROM bes_bestelling bes
+                   JOIN bes_bestelling_item bi
+                       ON bi.bes_bestelling_key = bes.bes_bestelling_key
+                   JOIN bes_bestelopdr_item boi
+                       ON boi.bes_bestelopdr_item_key =
+                          bi.bes_bestelopdr_item_key
+                   JOIN bes_srtdeel s
+                       ON s.bes_srtdeel_key = bi.bes_srtdeel_key
+                   JOIN bes_srtgroep g
+                       ON g.bes_srtgroep_key = s.bes_srtgroep_key
+                   JOIN bes_disc_params bdp
+                       ON bdp.bes_ins_discipline_key = g.ins_discipline_key
+                   JOIN bes_bestelopdr b
+                       ON b.bes_bestelopdr_key = boi.bes_bestelopdr_key
+             WHERE     bdp.bes_disc_params_fe_confirm = 0
+                   AND bdp.bes_disc_params_deliver_fe = 0
+                   AND (   boi.bes_bestelopdr_item_aantalontv IS NULL
+                        OR boi.bes_bestelopdr_item_aantalontv <
+                           boi.bes_bestelopdr_item_aantal)
+                   AND bdp.bes_disc_params_autodeliverdays > 0
+                   AND   bes.bes_bestelling_leverdatum
+                       + bdp.bes_disc_params_autodeliverdays <
+                       SYSDATE
+          ORDER BY b.bes_bestelopdr_key;
+
+      PROCEDURE bes_auto_update (bes_bestelling_key   IN NUMBER,
+                                 bes_bestelopdr_key   IN NUMBER,
+                                 tracking             IN VARCHAR2)
+      IS
+         prs_voor bes_bestelling.prs_perslid_key_voor%TYPE;
+         sender   alg_locatie.alg_locatie_email%TYPE;
+
+         CURSOR fin_autoapprove (bestelopdr_key NUMBER)
+         IS
+               SELECT f.fin_factuur_key
+                 FROM fin_factuur f
+                WHERE     f.bes_bestelopdr_key = bestelopdr_key
+                      AND f.fin_factuur_statuses_key = 2
+                      AND f.fin_factuur_verwijder IS NULL
+             ORDER BY f.fin_factuur_key;
+      BEGIN
+         IF bes_bestelopdr_key <> -1
+         THEN
+            -- Update eerst de vorige nog even (deze is voor de laatste)
+            UPDATE bes_bestelopdr bo
+               SET bo.bes_bestelopdr_delivery_opmerk =
+                       lcl.l ('bes_discipline_autodelivered')
+             WHERE bo.bes_bestelopdr_key =
+                   bes_auto_update.bes_bestelopdr_key;
+
+            fac.trackaction ('BES2UP',
+                             bes_bestelopdr_key,
+                             NULL,
+                             NULL,
+                             tracking);
+
+            bes.updatebestelopdrstatus (bes_bestelopdr_key, NULL);
+            bes.updatebestellingstatus (bes_bestelling_key, NULL);
+
+            BEGIN
+               SELECT bes.prs_perslid_key_voor, l.alg_locatie_email
+                 INTO prs_voor, sender
+                 FROM bes_bestelling  bes
+                      JOIN mld_adres ma
+                          ON ma.mld_adres_key = bes.mld_adres_key_lev
+                      JOIN alg_locatie l
+                          ON l.alg_locatie_key = ma.alg_locatie_key
+                WHERE bes.bes_bestelling_key =
+                      bes_auto_update.bes_bestelling_key;
+            EXCEPTION
+               WHEN NO_DATA_FOUND
+               THEN
+                  prs_voor := NULL;
+                  sender   := NULL;
+            END;
+
+            fac.putnotificationsrtprio (NULL,
+                                        prs_voor,
+                                        'BESOT2',
+                                        bes_bestelling_key,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        NULL,
+                                        2,
+                                        sender);
+
+            FOR rec IN fin_autoapprove (bes_bestelopdr_key)
+            LOOP
+               fin.autoapprovefactuur (rec.fin_factuur_key);
+            END LOOP;
+         END IF;
+      END;
+   BEGIN
+      last_bes_bestelopdr_key := -1;
+      last_bes_bestelling_key := -1;
+
+      FOR rec IN b_upd
+      LOOP
+         IF rec.bes_bestelopdr_key <> last_bes_bestelopdr_key
+         THEN
+            -- Update eerst de vorige nog even;
+            bes_auto_update (last_bes_bestelling_key,
+                             last_bes_bestelopdr_key,
+                             tracking);
+
+            -- En hierna verder met de huidige
+            last_bes_bestelopdr_key := rec.bes_bestelopdr_key;
+            last_bes_bestelling_key := rec.bes_bestelling_key;
+            tracking :=
+               REPLACE (
+                  lcl.l ('lcl_bes_is_bes2uptrack'),
+                  '{0}',
+                     fac.getsetting ('bes_bestelopdr_prefix')
+                  || rec.bes_bestelopdr_id);
+
+            INSERT INTO bes_bestellevr (bes_bestellevr_opmerk)
+                 VALUES (lcl.l ('bes_discipline_autodelivered'))
+              RETURNING bes_bestellevr_key
+                   INTO v_bes_bestellevr_key;
+         END IF;
+
+         SELECT   bes_bestelopdr_item_aantal
+                - COALESCE (bes_bestelopdr_item_aantalontv, 0)
+           INTO amount
+           FROM bes_bestelopdr_item
+          WHERE bes_bestelopdr_item_key = rec.bes_bestelopdr_item_key;
+
+         INSERT INTO bes_bestellevr_item (bes_bestellevr_key,
+                                          bes_bestelopdr_item_key,
+                                          bes_bestellevr_item_aantal)
+                  VALUES (v_bes_bestellevr_key,
+                          rec.bes_bestelopdr_item_key,
+                          amount);
+
+         UPDATE bes_bestelopdr_item
+            SET bes_bestelopdr_item_aantalontv =
+                    bes_bestelopdr_item_aantal,
+                bes_bestelopdr_item_ontvangen = SYSDATE
+          WHERE bes_bestelopdr_item_key = rec.bes_bestelopdr_item_key;
+
+         UPDATE bes_bestelling_item
+            SET bes_bestelling_item_aantalontv =
+                    COALESCE (bes_bestelling_item_aantalontv, 0) + amount
+          WHERE bes_bestelling_item_key = rec.bes_bestelling_item_key;
+
+         tracking :=
+             SUBSTR (
+                    tracking
+                 || CHR(10)
+                 || lcl.l ('lcl_bes_delivery')
+                 || ': '
+                 || amount
+                 || ' '
+                 || rec.bes_bestelopdr_item_omschrijv,
+                 1,
+                 2000);
+      END LOOP;
+
+      -- Update de laatste ook nog even;
+      bes_auto_update (last_bes_bestelling_key,
+                       last_bes_bestelopdr_key,
+                       tracking);
+   END;
 END bes;
 /
 

BES/BES_SEQ.SRC

@@ -10,6 +10,8 @@ CREATE SEQUENCE bes_s_bes_bestelling_key  MINVALUE 1 NOCACHE;
 CREATE SEQUENCE bes_s_bes_bestelling_item_key  MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_bestelopdr_key  MINVALUE 1 NOCACHE;
 CREATE SEQUENCE bes_s_bes_bestelopdr_item_key  MINVALUE 1;
+CREATE SEQUENCE bes_s_bes_bestellevr_key  MINVALUE 1;
+CREATE SEQUENCE bes_s_bes_bestellevr_item_key  MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_cXMLparams_key  MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_disc_params_key MINVALUE 1;
 
@@ -23,12 +25,7 @@ CREATE SEQUENCE bes_s_bes_favoriet_key MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_staffeltabel_key MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_staffel_key MINVALUE 1;
 
-CREATE SEQUENCE bes_s_bes_srtprod_key MINVALUE 1;
-CREATE SEQUENCE bes_s_bes_grootheid_key MINVALUE 1;
 CREATE SEQUENCE bes_s_bes_srtdeel_prijs_key MINVALUE 1;
-CREATE SEQUENCE bes_s_bes_srtprod_prijs_key MINVALUE 1;
-CREATE SEQUENCE bes_s_bes_bedrijf_srtprod_key MINVALUE 1;
-CREATE SEQUENCE bes_s_bes_bedrijf_bedrijf_key MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

BES/BES_TAB.SRC

@@ -43,74 +43,7 @@ CREATE_TABLE(bes_srtgroep,0)
     CONSTRAINT bes_u_bes_srtgroep_oms UNIQUE(ins_discipline_key, bes_srtgroep_omschrijving, bes_srtgroep_verwijder)
 );
 
--- Gewicht/volume/aantal van een artikel
-CREATE_TABLE(bes_grootheid,0)
-(
-    bes_grootheid_key
-        NUMBER(10)
-        CONSTRAINT bes_k_bes_grootheid_key PRIMARY KEY,
-    /* Naam is b.v. kilogram, liter, aantal (of gram, milliliter, aantal, ...)*/
-    bes_grootheid_naam
-         VARCHAR2(25),
-    bes_grootheid_verwijder
-        DATE
-        DEFAULT NULLDATUM
-);
-
 -- Assortiment van producent/fabrikant (genormaliseerde producten)
-CREATE_TABLE(bes_srtprod,0)
-(
-    bes_srtprod_key
-        NUMBER(10)
-        CONSTRAINT bes_k_bes_srtprod_key PRIMARY KEY,
-    bes_srtgroep_key
-        NUMBER(10)
-        NOT_NULL(bes_srtgroep_key, bes_c_bes_srtgroep_key3) // echt?
-        CONSTRAINT bes_r_bes_srtgroep_key4 REFERENCES bes_srtgroep,
-    bes_srtprod_omschrijving
-        VARCHAR2(100)
-        NOT_NULL(bes_srtprod_omschrijving, bes_c_bes_srtprod_omschrijving),
-    bes_srtprod_opmerking
-        VARCHAR2(2000 CHAR),
-    bes_srtprod_aanmaak
-        DATE
-        DEFAULT SYSDATE
-        NOT_NULL(bes_srtprod_aanmaak, bes_c_bes_srtprod_aanmaak),
-    bes_srtprod_verwijder
-        DATE
-        DEFAULT NULLDATUM,
-    bes_srtprod_volgnr
-        NUMBER(3),
-    bes_srtprod_btw
-        NUMBER(3),
-    bes_srtprod_eenheid
-        VARCHAR2(30),
-    bes_srtprod_nr
-        VARCHAR2(32),
-    /* MB: Optionele referentie naar producent/fabrikant */
-    prs_bedrijf_key
-       NUMBER(10)
-       CONSTRAINT bes_r_prs_bedrijf_key5 REFERENCES prs_bedrijf(prs_bedrijf_key),
-    /* MB: artikel wordt door producent gemaakt tot aan deze datum, mag leeg zijn (= geen maak-limiet) */
-    bes_srtprod_vervaldatum
-        DATE,
-    bes_srtprod_image
-        VARCHAR2(255),
-    bes_srtprod_veelvoud
-        NUMBER(6),
-    /* MB: Verwijzing naar eenheid van een grootheid (gram / milliliter / aantal) */
-    bes_grootheid_key
-        NUMBER(10) CONSTRAINT bes_r_bes_grootheid REFERENCES bes_grootheid(bes_grootheid_key) ON DELETE CASCADE,
-    /* MB Hier het getal aan gewicht, inhoud of aantal in te vullen : */
-    /* b.v. 1000 (en betekent in combi met bes_grootheid_key b.v. 1000 gram) */
-    bes_grootheid_getal
-        NUMBER(10),
-    bes_srtprod_margebedrag  /* bedrag van de fee per 1 grootheid van dit product */
-        NUMBER(12,6),
-    bes_srtprod_margebedragpct  /* percentage van de producentfee dat voor ons is, de rest is voor whoever */
-        NUMBER(3)
-);
-
 
 CREATE_TABLE(bes_srtdeel,0)
 (
@@ -150,9 +83,6 @@ CREATE_TABLE(bes_srtdeel,0)
     prs_bedrijf_key
         NUMBER(10)
         CONSTRAINT bes_r_prs_bedrijf_key3 REFERENCES prs_bedrijf(prs_bedrijf_key),
-    bes_srtprod_key
-        NUMBER(10)
-        CONSTRAINT bes_r_bes_srtprod_key2 REFERENCES bes_srtprod(bes_srtprod_key),
     bes_srtdeel_vervaldatum
         DATE,
     bes_srtdeel_image
@@ -249,9 +179,9 @@ CREATE_TABLE(bes_bestelling, 0)
         NUMBER(10)
         CONSTRAINT bes_r_mld_adres_key_lev REFERENCES mld_adres(mld_adres_key),
     bes_bestelling_levkosten
-        NUMBER(8,2),
+        NUMBER(11,2),
     bes_bestelling_korting
-        NUMBER(8,2),
+        NUMBER(11,2),
     fac_activiteit_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_activiteit3 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
@@ -300,9 +230,9 @@ CREATE_TABLE(bes_bestelopdr, 0)
     bes_bestelopdr_leverdatum
         DATE,
     bes_bestelopdr_levkosten
-        NUMBER(8,2),
+        NUMBER(11,2),
     bes_bestelopdr_korting
-        NUMBER(8,2),
+        NUMBER(11,2),
     bes_bestelopdr_opmerking
         VARCHAR2(320),
     cnt_contract_key
@@ -351,11 +281,11 @@ CREATE_TABLE(bes_bestelopdr_item, 0)
     bes_bestelopdr_item_opmerking
         VARCHAR2(100),
     bes_bestelopdr_item_prijs
-        NUMBER(12,6),
+        NUMBER(15,6),
     bes_bestelopdr_item_inkprijs
-        NUMBER(8,2),
+        NUMBER(14,5),
     bes_bestelopdr_item_brutoprijs
-        NUMBER(8,2),
+        NUMBER(14,5),
     bes_bestelopdr_item_ontvangen
         DATE,
     bes_bestelopdr_item_status
@@ -367,6 +297,38 @@ CREATE_TABLE(bes_bestelopdr_item, 0)
                 OR (bes_bestelopdr_item_aantal<0 AND bes_bestelopdr_item_aantalontv>=bes_bestelopdr_item_aantal))
 );
 
+CREATE_TABLE(bes_bestellevr, 0)
+(
+    bes_bestellevr_key
+        NUMBER(10)
+        CONSTRAINT bes_k_bes_bestellevr_key PRIMARY KEY,
+    bes_bestellevr_pakbon
+        VARCHAR(50),
+    bes_bestellevr_datum
+        DATE
+        DEFAULT SYSDATE,
+    prs_perslid_key
+        NUMBER(10) REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
+    bes_bestellevr_opmerk
+        VARCHAR2(320),
+    bes_bestellevr_externsyncdate
+        DATE
+);
+
+CREATE_TABLE(bes_bestellevr_item, 0)
+(
+    bes_bestellevr_item_key
+        NUMBER(10)
+        CONSTRAINT bes_k_bestel_lev_item_key PRIMARY KEY,
+    bes_bestellevr_key
+        NUMBER(10) REFERENCES bes_bestellevr(bes_bestellevr_key) ON DELETE CASCADE,
+    bes_bestelopdr_item_key
+        NUMBER(10)
+        CONSTRAINT bes_r_bes_bestelopdr_i_key2 REFERENCES bes_bestelopdr_item(bes_bestelopdr_item_key) ON DELETE CASCADE,
+    bes_bestellevr_item_aantal
+        NUMBER(15,3)
+);
+
 CREATE_TABLE(bes_bestelling_item, 0)
 (
     bes_bestelling_item_key
@@ -384,11 +346,11 @@ CREATE_TABLE(bes_bestelling_item, 0)
         NUMBER(15,3)
         CONSTRAINT bes_c_bes_bestelling_i_aantal CHECK(bes_bestelling_item_aantal IS NOT NULL),
     bes_bestelling_item_brutoprijs /* verkoopprijs ten tijde van bestelling */
-        NUMBER(8,2),
+        NUMBER(14,5),
     bes_bestelling_item_prijs  /* incl. kortingen */
-        NUMBER(12,6),
+        NUMBER(15,6),
     bes_bestelling_item_inkprijs /* inkoopprijs ten tijde van bestelling */
-        NUMBER(12,6),
+        NUMBER(15,6),
     bes_bestelopdr_item_key
         NUMBER(10)
         CONSTRAINT bes_r_bes_bestelopdr_i_key1 REFERENCES bes_bestelopdr_item(bes_bestelopdr_item_key),
@@ -433,10 +395,10 @@ CREATE_TABLE(bes_disc_params, 0)
         DEFAULT 0
         CONSTRAINT bes_c_disc_params_fiatflow CHECK(bes_disc_params_fiatflow IN (0,1)),
     bes_disc_params_bestellimiet
-        NUMBER(8,2)
+        NUMBER(11,2)
         DEFAULT 100000,
     bes_disc_params_min_bedrag
-        NUMBER(8,2)
+        NUMBER(11,2)
         DEFAULT 0,
     bes_disc_params_auto_order
         NUMBER(1)
@@ -554,7 +516,13 @@ CREATE_TABLE(bes_disc_params, 0)
     bes_disc_params_hide_cost_fe  /* Onderdruk kosten in bestellijst voor FE {0=Nee (default), 1=Ja} */
         NUMBER(1)
         DEFAULT 0
-        NOT NULL
+        NOT NULL,
+    bes_disc_params_deliver_fe
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    bes_disc_params_autodeliverdays /* Als bes_disc_params_fe_confirm = 0 AND bes_disc_params_deliver_fe = 0, dan wordt deze bestelopdracht na bes_disc_params_autodeliverdays dagen als 'geleverd' gemarkeerd */
+        NUMBER(4)
 );
 
 //// flexprops
@@ -568,12 +536,14 @@ CREATE_TABLE(bes_srtkenmerk, 0)
       VARCHAR2(50)
 ,  bes_srtkenmerk_upper
       VARCHAR2(50)
+,  bes_srtkenmerk_code
+      VARCHAR2(60)
 ,  bes_srtkenmerk_dimensie
       VARCHAR2(10)
 ,  bes_srtkenmerk_kenmerktype
       VARCHAR2(1)
-,  bes_srtkenmerk_systeem
-      NUMBER(2)
+,  bes_srtkenmerk_systeem -- &1=systeemkemerk, &2=tonen in bestelaanvraag overzicht, &16=tonen in bestelopdracht overzicht.
+      NUMBER(2)           -- &4=vertrouwelijk en &8=anonimiseren blijven dan gereserveerd voor toekomstig gebruik.
       DEFAULT 0
       NOT NULL
 ,  bes_srtkenmerk_lengte
@@ -596,7 +566,6 @@ CREATE_TABLE(bes_srtkenmerk, 0)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_omschr    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_srtkenmerk_omschrijving    CHECK(bes_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT bes_u_bes_srtkenmerk_upper    UNIQUE(bes_srtkenmerk_upper, bes_srtkenmerk_verwijder)
-,  CONSTRAINT bes_c_bes_srtkenmerk_kenmtype  CHECK(bes_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT bes_c_bes_srtkenmerk_lengte    CHECK(bes_srtkenmerk_lengte >= 1
                                                AND bes_srtkenmerk_lengte <= 4000)
 ,  CONSTRAINT bes_c_bes_srtkenmerk_max_min   CHECK(bes_srtkenmerk_nmax >= bes_srtkenmerk_nmin)
@@ -616,13 +585,15 @@ CREATE_TABLE(bes_kenmerk, 0)
 ,  bes_kenmerk_type
       VARCHAR2(1)
       CONSTRAINT bes_c_ins_kenmerk_type CHECK
-            (bes_kenmerk_type is not null and (bes_kenmerk_type IN( 'B', 'I')))
+            (bes_kenmerk_type IS NOT NULL AND bes_kenmerk_type IN ('B', 'I'))
 ,  bes_kenmerk_niveau
       VARCHAR2(1)
       CONSTRAINT bes_c_ins_kenmerk_niveau2 CHECK
-            (bes_kenmerk_niveau is not null and (bes_kenmerk_niveau IN( 'D', 'G', 'S')))
+            (bes_kenmerk_niveau IS NOT NULL AND (bes_kenmerk_niveau IN( 'D', 'G', 'S')))
 ,  bes_kenmerk_omschrijving
       VARCHAR2(50) /* optionele overrule van srtkenmerk_omschrijving */
+,  bes_kenmerk_code
+      VARCHAR2(60)
 ,  bes_kenmerk_verplicht
       NUMBER(1)
 ,  bes_kenmerk_groep
@@ -630,6 +601,9 @@ CREATE_TABLE(bes_kenmerk, 0)
       DEFAULT 0 NOT NULL
 ,  bes_kenmerk_toonbaar
       NUMBER(1)
+,  bes_kenmerk_inlijst
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  bes_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
@@ -649,6 +623,9 @@ CREATE_TABLE(bes_kenmerk, 0)
 ,  bes_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM
+,  fac_functie_key
+      NUMBER(10)
+      CONSTRAINT fac_r_bes_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
 ,  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)
@@ -739,9 +716,9 @@ CREATE_TABLE(bes_srtdeel_prijs,0)
         NUMBER(10)
         CONSTRAINT bes_r_bes_srtdeel_key1 REFERENCES bes_srtdeel(bes_srtdeel_key) ON DELETE CASCADE,
     bes_srtdeel_prijs_prijs
-        NUMBER(8,2),
+        NUMBER(14,5),
     bes_srtdeel_prijs_inkprijs
-        NUMBER(8,2),
+        NUMBER(14,5),
     /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig (Farmers wilde dit ook). */
     bes_srtdeel_prijs_vervaldatum
         DATE,
@@ -750,62 +727,7 @@ CREATE_TABLE(bes_srtdeel_prijs,0)
         NUMBER(1)
 );
 
--- Prijsverloop van producten van fabriaknt
-CREATE_TABLE(bes_srtprod_prijs,0)
-(
-    bes_srtprod_prijs_key
-        NUMBER(10)
-        CONSTRAINT bes_k_bes_srtprod_prijs_key PRIMARY KEY,
-    bes_srtprod_key
-        NUMBER(10)
-        CONSTRAINT bes_r_bes_srtprod_key REFERENCES bes_srtprod(bes_srtprod_key),
-    bes_srtprod_prijs_prijs
-        NUMBER(8,2),
-    bes_srtprod_prijs_inkprijs
-        NUMBER(8,2),
-    /* MB: Tot aan deze datum geldt deze prijs, daarna is deze prijs niet meer geldig */
-    bes_srtprod_prijs_vervaldatum
-        DATE,
-    /* MB: Prioriteit/prijspakker instelling op producentartikelprijs-nivo, schaal van 1 (=lage prio) - 4 (=hoogste prio), mag leeg zijn (= 0: laagste prio) */
-    bes_srtprod_prijs_prio
-        NUMBER(1)
-);
 
--- Een productsample voor een klant
-CREATE_TABLE(bes_bedrijf_srtprod, 0)
-(
-    bes_bedrijf_srtprod_key
-        NUMBER(10)
-        CONSTRAINT bes_k_bedrijf_srtprod_key PRIMARY KEY,
-    prs_bedrijf_key
-        NUMBER(10)
-        CONSTRAINT bes_r_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key) ON DELETE CASCADE,
-    bes_srtprod_key
-        NUMBER(10)
-        CONSTRAINT bes_r_srtprod_key1 REFERENCES bes_srtprod(bes_srtprod_key) ON DELETE CASCADE,
-    bes_bedrijf_srtprod_weging
-        NUMBER(12,2),
-    bes_bedrijf_srtprod_opmerking
-        VARCHAR2(320),
-    bes_bedrijf_srtprod_prijs
-        NUMBER(8,2)
-);
-
-/* MB: Voorkeursleveranciers    ---------------------------------------------------------------------------*/
-CREATE_TABLE(bes_bedrijf_bedrijf,0)
-(
-    bes_bedrijf_bedrijf_key
-        NUMBER(10)
-        CONSTRAINT bes_k_bes_bedrijf_bedrijf_key PRIMARY KEY,
-    /* Klant: interne bedrijf */
-    prs_bedrijf_key_klant
-        NUMBER(10)
-        CONSTRAINT prs_r_prs_bedrijf_bedrijf_key1 REFERENCES prs_bedrijf(prs_bedrijf_key),
-    /* Leverancier: externe bedrijf */
-    prs_bedrijf_key_lev
-        NUMBER(10)
-        CONSTRAINT prs_r_prs_bedrijf_bedrijf_key2 REFERENCES prs_bedrijf(prs_bedrijf_key)
-);
 
 
 REGISTERONCE('$Id$')

BES/BES_TRI.SRC

@@ -33,13 +33,20 @@ BEGIN
  * Dit is vervallen. Elke trigger bemoeit zich alleen met zichzelf, en er zijn
  * een tweetal functies bes.updatebestellingstatus en bes.updatebestelopdrstatus
  * die desgevraagd tellen wat de stand is en daarop zonodig de parent aanpassen
- * Daarvan wordt dan ook tracjking bijgehouden.
+ * Daarvan wordt dan ook tracking bijgehouden.
  */
+CREATE_TRIGGER(bes_t_bes_bestelling_B_I)
+BEFORE INSERT ON bes_bestelling
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bes_bestelling_key,bes_s_bes_bestelling_key);
+END;
+/
+
 CREATE_TRIGGER(bes_t_bes_bestelling_B_IU)
 BEFORE INSERT OR UPDATE ON bes_bestelling
 FOR EACH ROW
 BEGIN
-   UPDATE_PRIMARY_KEY(bes_bestelling_key,bes_s_bes_bestelling_key);
    IF  :old.bes_bestelling_status IS NULL
    THEN
      -- weet niet of dit (nog)nodig is, om de status op 2 te zetten
@@ -52,6 +59,13 @@ BEGIN
    THEN
       fac.clrnotifications ('BESAP1', :new.bes_bestelling_key);
    END IF;
+
+   -- Beoordeling van de bestelling
+   IF     (:new.bes_bestelling_satisfaction IS NOT NULL
+      AND (:old.bes_bestelling_satisfaction IS NULL OR :old.bes_bestelling_satisfaction <> :new.bes_bestelling_satisfaction))
+   THEN
+      fac.trackaction('#BESLIK', :old.bes_bestelling_key, NULL , SYSDATE, REPLACE(lcl.l('lcl_faclike_changed'), '{0}', :new.bes_bestelling_satisfaction));
+   END IF;
 END;
 /
 
@@ -65,8 +79,8 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(bes_t_bes_bestelling_item_B_IU)
-   BEFORE INSERT OR UPDATE
+CREATE_TRIGGER(bes_t_bes_bestelling_item_B_I)
+   BEFORE INSERT
    ON bes_bestelling_item
    FOR EACH ROW
 BEGIN
@@ -74,12 +88,20 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(bes_t_bes_bestelopdr_B_I)
+   BEFORE INSERT
+   ON bes_bestelopdr
+   FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bes_bestelopdr_key,bes_s_bes_bestelopdr_key);
+END;
+/
+
 CREATE_TRIGGER(bes_t_bes_bestelopdr_B_IU)
    BEFORE INSERT OR UPDATE
    ON bes_bestelopdr
    FOR EACH ROW
 BEGIN
-   UPDATE_PRIMARY_KEY(bes_bestelopdr_key,bes_s_bes_bestelopdr_key);
    IF :OLD.bes_bestelopdr_datum IS NULL
    THEN
       :NEW.bes_bestelopdr_datum := SYSDATE;
@@ -94,8 +116,8 @@ END;
 /
 
 
-CREATE_TRIGGER(bes_t_bes_bestelopdr_item_B_IU)
-   BEFORE INSERT OR UPDATE
+CREATE_TRIGGER(bes_t_bes_bestelopdr_item_B_I)
+   BEFORE INSERT
    ON bes_bestelopdr_item
    FOR EACH ROW
 BEGIN
@@ -103,6 +125,24 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(bes_t_bes_bestellevr_B_I)
+   BEFORE INSERT
+   ON bes_bestellevr
+   FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bes_bestellevr_key,bes_s_bes_bestellevr_key);
+END;
+/
+
+CREATE_TRIGGER(bes_t_bes_bestellevr_item_B_I)
+   BEFORE INSERT
+   ON bes_bestellevr_item
+   FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bes_bestellevr_item_key,bes_s_bes_bestellevr_item_key);
+END;
+/
+
 CREATE_TRIGGER(bes_t_bes_bestelopdr_item_b_u)
    BEFORE UPDATE
    ON bes_bestelopdr_item
@@ -203,24 +243,26 @@ CREATE_TRIGGER(bes_t_bes_srtkenmerk_b_iu)
 BEGIN
    UPDATE_PRIMARY_KEY(bes_srtkenmerk_key, bes_s_bes_srtkenmerk_key);
    UPDATE_UPPER(bes_srtkenmerk_omschrijving, bes_srtkenmerk_upper,bes_srtkenmerk);
+   UPDATE_UPPER(bes_srtkenmerk_code, bes_srtkenmerk_code, bes_srtkenmerk);
+
    UPDATE_AANMAAKDATUM(bes_srtkenmerk,bes_srtkenmerk_aanmaak);
    IF (:new.bes_srtkenmerk_verwijder IS NOT NULL AND :old.bes_srtkenmerk_verwijder IS NULL AND
        :new.bes_srtkenmerk_systeem = 1)
    THEN
-       raise_application_error(-20003, 'bes_C_bes_SRTKENMERK_SYSTEEM');
+       raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_SYSTEEM');
    END IF;
 
-   IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :NEW.bes_srtkenmerk_lengte IS NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype IN ('C', 'N') AND :NEW.bes_srtkenmerk_lengte IS NULL
    THEN
-      raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
+      raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_LENGTE');
    END IF;
    -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.bes_srtkenmerk_lengte > 20
+   IF :new.bes_srtkenmerk_kenmerktype = 'N' AND :new.bes_srtkenmerk_lengte > 20
    THEN
       :new.bes_srtkenmerk_lengte := 20;
    END IF;
 
-   IF :NEW.bes_srtkenmerk_kenmerktype IN ('N', 'B') AND :OLD.bes_srtkenmerk_key IS NOT NULL
+   IF :NEW.bes_srtkenmerk_kenmerktype = 'N' 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)
@@ -244,14 +286,14 @@ BEGIN
                                                  FROM bes_kenmerk
                                                 WHERE bes_srtkenmerk_key = :OLD.bes_srtkenmerk_key));
 
-            raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MIN');
+            raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MIN');
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
                NULL;
             WHEN TOO_MANY_ROWS
             THEN
-               raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MIN');
+               raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MIN');
          END;
       END IF;
 
@@ -277,14 +319,14 @@ BEGIN
                                                  FROM bes_kenmerk
                                                 WHERE bes_srtkenmerk_key = :OLD.bes_srtkenmerk_key));
 
-            raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MAX');
+            raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MAX');
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
                NULL;
             WHEN TOO_MANY_ROWS
             THEN
-               raise_application_error (-20000, 'bes_C_bes_SRTKENMERK_MAX');
+               raise_application_error(-20000, 'bes_C_bes_SRTKENMERK_MAX');
          END;
       END IF;
    END IF;
@@ -300,6 +342,7 @@ BEGIN
    -- FSN#13902: we tolereren het achteraf verplicht maken
    UPDATE_PRIMARY_KEY(bes_kenmerk_key, bes_s_bes_kenmerk_key);
    UPDATE_AANMAAKDATUM(bes_kenmerk, bes_kenmerk_aanmaak);
+   UPDATE_UPPER(bes_kenmerk_code, bes_kenmerk_code, bes_kenmerk);
 END;
 /
 
@@ -344,7 +387,7 @@ BEGIN
          --
          IF kenmerkverplicht IS NOT NULL AND kenmerkbestellingwaarde IS NULL
          THEN
-            raise_application_error (-20004, 'bes_m240,' || srtkenmerkomschr);
+            APPLICATION_ERROR_GOTO(-20004, 'bes_m240,' || srtkenmerkomschr);
          --
          -- Kijk welk KenmerkType gebruikt wordt.
          -- Aan de hand daarvan moet een controle uitgevoerd worden.
@@ -355,9 +398,9 @@ BEGIN
             -- Controleer of de lengte te groot of goed is.
             IF LENGTH (kenmerkbestellingwaarde) > srtkenmerklengte
             THEN
-               raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
+               APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype IN ('N', 'B')
+         ELSIF srtkenmerktype = 'N'
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.
@@ -377,13 +420,13 @@ BEGIN
                   formatmask := REPLACE (formatmask, '9', '#');
                   formatmask := REPLACE (formatmask, '0', '#');
                   formatmask := REPLACE (formatmask, 'D', '.');
-                  raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
+                  APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
         END;
             -- Controleer of de waarde binnen NMin en NMax ligt.
             IF    (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin)
                OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax)
             THEN
-               raise_application_error (-20004,
+               APPLICATION_ERROR_GOTO(-20004,
                                            'bes_m243,'
                                         || srtkenmerkomschr
                                         || ','
@@ -400,7 +443,7 @@ BEGIN
                   formatmask := REPLACE (formatmask, '9', '#');
                   formatmask := REPLACE (formatmask, '0', '#');
                   formatmask := REPLACE (formatmask, 'D', '.');
-                  raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
+                  APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
                END IF;
             END IF;
 
@@ -459,7 +502,7 @@ BEGIN
          --
          IF kenmerkverplicht IS NOT NULL AND kenmerkbestelitemwaarde IS NULL
          THEN
-            raise_application_error (-20004, 'bes_m240,' || srtkenmerkomschr);
+            APPLICATION_ERROR_GOTO(-20004, 'bes_m240,' || srtkenmerkomschr);
          --
          -- Kijk welk KenmerkType gebruikt wordt.
          -- Aan de hand daarvan moet een controle uitgevoerd worden.
@@ -470,9 +513,9 @@ BEGIN
             -- Controleer of de lengte te groot of goed is.
             IF LENGTH (kenmerkbestelitemwaarde) > srtkenmerklengte
             THEN
-               raise_application_error (-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
+               APPLICATION_ERROR_GOTO(-20004, 'bes_m241,' || srtkenmerkomschr || ',' || TO_CHAR (srtkenmerklengte));
             END IF;
-         ELSIF srtkenmerktype IN ('N', 'B')
+         ELSIF srtkenmerktype = 'N'
          THEN
             -- NUMBER
             -- Controleer of er een numerieke waarde ingevuld is.
@@ -492,13 +535,13 @@ BEGIN
                   formatmask := REPLACE (formatmask, '9', '#');
                   formatmask := REPLACE (formatmask, '0', '#');
                   formatmask := REPLACE (formatmask, 'D', '.');
-                  raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
+                  APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
         END;
             -- Controleer of de waarde binnen NMin en NMax ligt.
             IF    (srtkenmerknmin IS NOT NULL AND numberwaarde < srtkenmerknmin)
                OR (srtkenmerknmax IS NOT NULL AND numberwaarde > srtkenmerknmax)
             THEN
-               raise_application_error (-20004,
+               APPLICATION_ERROR_GOTO(-20004,
                                            'bes_m243,'
                                         || srtkenmerkomschr
                                         || ','
@@ -515,7 +558,7 @@ BEGIN
                   formatmask := REPLACE (formatmask, '9', '#');
                   formatmask := REPLACE (formatmask, '0', '#');
                   formatmask := REPLACE (formatmask, 'D', '.');
-                  raise_application_error (-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
+                  APPLICATION_ERROR_GOTO(-20004, 'bes_m242,' || srtkenmerkomschr || ',' || formatmask);
                END IF;
             END IF;
 
@@ -557,22 +600,6 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(bes_t_bes_srtprod_B_IU)
-BEFORE INSERT OR UPDATE ON bes_srtprod
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(bes_srtprod_key, bes_s_bes_srtprod_key);
- END;
-/
-
-CREATE_TRIGGER(bes_t_bes_grootheid_B_IU)
-BEFORE INSERT OR UPDATE ON bes_grootheid
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(bes_grootheid_key, bes_s_bes_grootheid_key);
- END;
-/
-
 CREATE_TRIGGER(bes_t_bes_srtdeel_prijs_B_IU)
 BEFORE INSERT OR UPDATE ON bes_srtdeel_prijs
 FOR EACH ROW
@@ -581,30 +608,6 @@ BEGIN
  END;
 /
 
-CREATE_TRIGGER(bes_t_bes_srtprod_prijs_B_IU)
-BEFORE INSERT OR UPDATE ON bes_srtprod_prijs
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(bes_srtprod_prijs_key, bes_s_bes_srtprod_prijs_key);
- END;
-/
-
-CREATE_TRIGGER(bes_t_bes_bedrijf_srtprod_BIU)
-BEFORE INSERT OR UPDATE ON bes_bedrijf_srtprod
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(bes_bedrijf_srtprod_key, bes_s_bes_bedrijf_srtprod_key);
- END;
-/
-
-CREATE_TRIGGER(bes_t_bes_bedrijf_bedrijf_B_IU)
-BEFORE INSERT OR UPDATE ON bes_bedrijf_bedrijf
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(bes_bedrijf_bedrijf_key, bes_s_bes_bedrijf_bedrijf_key);
- END;
-/
-
 REGISTERRUN('$Id$')
 
 #endif  // BES

BES/BES_VIE.SRC

@@ -27,239 +27,21 @@ AS
  */
 CREATE_VIEW(bes_bestellingstatuses, 0)
 AS
-SELECT   fac_code2label_code bes_bestellingstatuses_key,
-         COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestellingstatuses_omschr
-  FROM   fac_locale_xsl fl, fac_code2label fs
- WHERE       fl.fac_locale_xsl_label = fac_code2label_label
-         AND fac_code2label_domein = 'bestelling'
-         AND fac_locale_xsl_lang = lcl.getuserlanguage ();
+SELECT fac_code2label_code bes_bestellingstatuses_key,
+       COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestellingstatuses_omschr
+  FROM fac_locale_xsl fl, fac_code2label fs
+ WHERE fl.fac_locale_xsl_label = fac_code2label_label
+   AND fac_code2label_domein = 'bestelling'
+   AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 CREATE_VIEW(bes_bestelopdrstatuses, 0)
 AS
-SELECT   fac_code2label_code bes_bestelopdrstatuses_key,
-         COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestelopdrstatuses_omschr
-  FROM   fac_locale_xsl fl, fac_code2label fs
- WHERE       fl.fac_locale_xsl_label = fac_code2label_label
-         AND fac_code2label_domein = 'bestelopdr'
-         AND fac_locale_xsl_lang = lcl.getuserlanguage ();
-
-CREATE_VIEW(bes_v_qvw_algemeen, 0) (bes_bestelling_key,
-                                    bestelaanvraagnr,
-                                    besteldatum,
-                                    besteller,
-                                    invoerder,
-                                    kostensoortgroep,
-                                    kostensoort,
-                                    kpn,
-                                    kpn_omschrijving,
-                                    prs_bedrijf_key,
-                                    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
-                                   )
-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, 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,
-                  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 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
-                   FROM prs_v_afdeling pva
-                   WHERE pva.prs_afdeling_key = a.prs_afdeling_key) prs_bedrijf_key,
-                  a.prs_afdeling_naam afdeling_code,
-                  a.prs_afdeling_omschrijving afdeling_omschrijving,
-                  ma.alg_locatie_key alg_locatie_key,
-                  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
-                      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,
-                  prs_perslid_nr personeelsnr, wp2.prs_werkplek_aanduiding werkplek,
-                  d.ins_discipline_key ins_discipline_key,
-                  d.ins_discipline_omschrijving catalogus,
-                  sg.bes_srtgroep_key bes_srtgroep_key,
-                  sg.bes_srtgroep_omschrijving groep,
-                  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,
-                  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_key bes_srtdeel_key,
-                  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,
-                  (SELECT   pw.prs_perslid_key,
-                            MIN (prs_werkplek_aanduiding) || DECODE (COUNT (*), 1, '', '...') prs_werkplek_aanduiding
-                       FROM prs_v_werkplek_gegevens wp, prs_perslidwerkplek pw
-                      WHERE wp.prs_werkplek_key = pw.prs_werkplek_key
-                   GROUP BY pw.prs_perslid_key) wp2,
-                  bes_bestelling_item bi,
-                  bes_bestelopdr_item boi,
-                  bes_bestelopdr bo,
-                  bes_srtdeel sd,
-                  bes_srtgroep sg,
-                  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(+)
-              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_qvw_locale, 0)
-(fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst_nl, fac_locale_tekst_en, fac_locale_tekst_de, fac_locale_tekst_fr)
-AS
-    WITH bqa AS (SELECT DISTINCT ins_discipline_key,
-                                 catalogus,
-                                 bes_srtgroep_key,
-                                 groep,
-                                 bes_srtdeel_key,
-                                 productomschrijving
-                   FROM bes_v_qvw_algemeen)
-    SELECT DISTINCT bqa.ins_discipline_key,
-                    'INS_DISCIPLINE_OMSCHRIJVING',
-                    bqa.catalogus,
-                    COALESCE (en.fac_locale_tekst, bqa.catalogus),
-                    COALESCE (de.fac_locale_tekst, bqa.catalogus),
-                    COALESCE (fr.fac_locale_tekst, bqa.catalogus)
-      FROM fac_locale en,
-           fac_locale de,
-           fac_locale fr,
-           bqa
-     WHERE     bqa.ins_discipline_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.ins_discipline_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.ins_discipline_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'INS_DISCIPLINE_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR'
-    UNION ALL
-    SELECT DISTINCT bqa.bes_srtgroep_key,
-                    'BES_SRTGROEP_OMSCHRIJVING',
-                    bqa.groep,
-                    COALESCE (en.fac_locale_tekst, bqa.groep),
-                    COALESCE (de.fac_locale_tekst, bqa.groep),
-                    COALESCE (fr.fac_locale_tekst, bqa.groep)
-      FROM fac_locale en,
-           fac_locale de,
-           fac_locale fr,
-           bqa
-     WHERE     bqa.bes_srtgroep_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.bes_srtgroep_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.bes_srtgroep_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTGROEP_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR'
-    UNION ALL
-    SELECT DISTINCT bqa.bes_srtdeel_key,
-                    'BES_SRTDEEL_OMSCHRIJVING',
-                    bqa.productomschrijving,
-                    COALESCE (en.fac_locale_tekst, bqa.productomschrijving),
-                    COALESCE (de.fac_locale_tekst, bqa.productomschrijving),
-                    COALESCE (fr.fac_locale_tekst, bqa.productomschrijving)
-      FROM fac_locale en,
-           fac_locale de,
-           fac_locale fr,
-           bqa
-     WHERE     bqa.bes_srtdeel_key = en.fac_locale_kolomkeyval(+)
-           AND en.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND en.fac_locale_lang(+) = 'EN'
-           AND bqa.bes_srtdeel_key = de.fac_locale_kolomkeyval(+)
-           AND de.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND de.fac_locale_lang(+) = 'DE'
-           AND bqa.bes_srtdeel_key = fr.fac_locale_kolomkeyval(+)
-           AND fr.fac_locale_kolomnaam(+) = 'BES_SRTDEEL_OMSCHRIJVING'
-           AND fr.fac_locale_lang(+) = 'FR';
-
--- Vooralsnog placeholders, moeten aangepast worden
-CREATE_VIEW(bes_v_api_bestellingen, 1) AS SELECT * from bes_bestelling;
-CREATE_VIEW(bes_v_api_bestelopdrachten, 1) AS SELECT * from bes_bestelopdr;
+SELECT fac_code2label_code bes_bestelopdrstatuses_key,
+       COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst) bes_bestelopdrstatuses_omschr
+  FROM fac_locale_xsl fl, fac_code2label fs
+ WHERE fl.fac_locale_xsl_label = fac_code2label_label
+   AND fac_code2label_domein = 'bestelopdr'
+   AND fac_locale_xsl_lang = lcl.getuserlanguage ();
 
 /* ROOT VIEWS for User defined Reports (UDR) */
 CREATE_VIEW(bes_v_udr_bestelling, 1)
@@ -447,16 +229,16 @@ AS
                   bes_srtdeel sd,
                   bes_srtgroep sg,
                   ins_tab_discipline d
-            WHERE     b.prs_perslid_key = p.prs_perslid_key
-                  AND b.prs_kostenplaats_key = k.prs_kostenplaats_key
-                  AND p.prs_afdeling_key = a.prs_afdeling_key
-                  AND b.mld_adres_key_lev = ma.mld_adres_key
-                  AND b.bes_bestelling_key = bi.bes_bestelling_key
-                  AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
-                  AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
-                  AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
-                  AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
-                  AND sg.ins_discipline_key = d.ins_discipline_key);
+            WHERE b.prs_perslid_key = p.prs_perslid_key
+              AND b.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+              AND p.prs_afdeling_key = a.prs_afdeling_key
+              AND b.mld_adres_key_lev = ma.mld_adres_key
+              AND b.bes_bestelling_key = bi.bes_bestelling_key
+              AND bi.bes_bestelopdr_item_key = boi.bes_bestelopdr_item_key(+)
+              AND boi.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
+              AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
+              AND sd.bes_srtgroep_key = sg.bes_srtgroep_key
+              AND sg.ins_discipline_key = d.ins_discipline_key);
 
 CREATE_VIEW(bes_v_allsrtinstallatie, 0)
 (
@@ -515,6 +297,60 @@ AS
     WHERE bes_SG.bes_srtgroep_key = bes_SD.bes_srtgroep_key
           AND bes_ID.ins_discipline_key = bes_SG.ins_discipline_key;
 
+CREATE_VIEW(bes_v_rap_sync_catalogus, 0)
+(
+   CATALOGUS_NAAM,
+   LEVERANCIER,
+   CAT_DATUM,
+   ARTIKELNR,
+   GROEP,
+   OMSCHRIJVING,
+   PRIJS,
+   EENHEID,
+   PICTURE,
+   ORDERAANTAL,
+   TAX,
+   DUEDATE,
+   INKOOPPRIJS,
+   MINIMUM,
+   STAFFELTABEL,
+   WIJZIGDAGEN,
+   ANNULEERDAGEN,
+   OPMERKING
+)
+AS
+   SELECT bd.ins_discipline_omschrijving,
+          b.prs_bedrijf_naam,
+          NULL,
+          sd.bes_srtdeel_nr,
+          sg.bes_srtgroep_omschrijving,
+          sd.bes_srtdeel_omschrijving,
+          REPLACE (TO_CHAR (bes.getsrtdeelprijs (sd.bes_srtdeel_key, NULL)), ',', '.'),
+          sd.bes_srtdeel_eenheid,
+          sd.bes_srtdeel_image,
+          TO_CHAR (sd.bes_srtdeel_veelvoud),
+          TO_CHAR (sd.bes_srtdeel_btw),
+          TO_CHAR (sd.bes_srtdeel_vervaldatum, 'yyyymmdd'),
+          REPLACE (TO_CHAR (bes.getsrtdeelinkprijs (sd.bes_srtdeel_key, NULL)), ',', '.'),
+          TO_CHAR (sd.bes_srtdeel_minimum),
+          bs.bes_staffeltabel_naam,
+          TO_CHAR (sd.bes_srtdeel_wijzigdagen),
+          TO_CHAR (sd.bes_srtdeel_annuleerdagen),
+          sd.bes_srtdeel_opmerking
+     FROM bes_discipline bd,
+          bes_srtgroep sg,
+          bes_srtdeel sd,
+          prs_bedrijf b,
+          bes_staffeltabel bs
+    WHERE bd.ins_discipline_module = 'BES'
+          AND bd.ins_discipline_verwijder IS NULL
+          AND bd.ins_discipline_key = sg.ins_discipline_key
+          AND sg.bes_srtgroep_verwijder IS NULL
+          AND sg.bes_srtgroep_key = sd.bes_srtgroep_key
+          AND sd.bes_srtdeel_verwijder IS NULL
+          AND sd.prs_bedrijf_key = b.prs_bedrijf_key
+          AND sd.bes_staffeltabel_key = bs.bes_staffeltabel_key;
+
 REGISTERRUN('$Id$')
 
 #endif  // BES

BEZ/BEZ_IND.SRC

@@ -10,8 +10,13 @@ create index bez_i_bez_afspraak_bez4 on bez_afspraak (bez_afspraak_datum);
 CREATE INDEX bez_i_bez_afspraak_bez5 ON bez_afspraak(bez_afspraak_contact_key, bez_afspraak_datum);
 CREATE INDEX bez_i_bez_afspraak_bez6 ON bez_afspraak(bez_afspraak_host_key, bez_afspraak_datum);
 CREATE INDEX bez_i_bez_afspraak_bez7 ON bez_afspraak(alg_locatie_key);
+CREATE INDEX bez_i_bez_afspraak_bez8 ON bez_afspraak(mld_opdr_key);
 
 create index bez_i_bez_bezoeker_afsp on bez_bezoekers (bez_afspraak_key);
+CREATE INDEX bez_i_bez_bezoekers1 ON bez_bezoekers(prs_perslid_key);
+CREATE INDEX bez_i_bez_bezoekers2 ON bez_bezoekers(prs_contactpersoon_key);
+
+CREATE INDEX bez_i_bez_kenmerk1 ON bez_kenmerk(bez_kenmerk_code);
 
 REGISTERONCE('$Id$')
 

BEZ/BEZ_INI.SRC

@@ -4,13 +4,6 @@
  */
 
 _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');
-INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Begeleiden naar ontvanger');
-INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Verwijzen naar ontvanger');
-INSERT INTO bez_actie (bez_actie_omschrijving) VALUES ('Op laten halen (bellen)');
-
 REGISTERONCE('$Id$')
 
 #endif  // BEZ

BEZ/BEZ_PAC.SRC

@@ -32,6 +32,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       hasparking NUMBER;
       nieuwvan DATE;
       nieuwtot DATE;
+      alg_gebter_key ins_deel.ins_alg_ruimte_key%TYPE;
 
       CURSOR bezoekers
       IS
@@ -75,6 +76,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                   bez_afspraak_telefoonnr,
                   bez_afspraak_datum, bez_actie_key,
                   alg_locatie_key, res_rsv_ruimte_key,
+                  mld_opdr_key,
                   alg_onrgoed_keys, bez_afspraak_ruimte,
                   bez_afspraak_opmerking, bez_afspraak_eind
                                )
@@ -88,6 +90,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
                   a.bez_actie_key,
                   a.alg_locatie_key,
                   prsvkey_to,
+                  mld_opdr_key,
                   a.alg_onrgoed_keys,
                   a.bez_afspraak_ruimte,
                   a.bez_afspraak_opmerking,
@@ -130,7 +133,31 @@ CREATE OR REPLACE PACKAGE BODY bez AS
 
          IF (hasparking > 0)
          THEN
-            claim_parking (newbezoekerskey, null);
+            -- Probeer in/op het/dezelfde gebouw/terreinsector een lege parkeerplaats te vinden.
+            -- Lukt dit niet dan probeer op dezelfde locatie een lege parkeerplaats te vinden.
+            SELECT CASE WHEN ins_alg_ruimte_type = 'T'
+                        THEN id.ins_alg_ruimte_key
+                        ELSE og.alg_gebouw_key
+                   END
+              INTO alg_gebter_key
+              FROM res_rsv_deel rrd,
+                   res_deel rd,
+                   ins_deel id,
+                   alg_v_allonroerendgoed og
+             WHERE rrd.res_deel_key = rd.res_deel_key
+               AND rd.res_ins_deel_key = id.ins_deel_key
+               AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
+                     OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
+               AND rrd.bez_bezoekers_key = b.bez_bezoekers_key;
+
+            claim_parking (newbezoekerskey, alg_gebter_key);
+
+            hasparking := bez.hasparking (newbezoekerskey);
+            IF hasparking = 0
+            THEN
+               -- dan maar de oude methode: overal zoeken
+               claim_parking (newbezoekerskey, null);
+            END IF;
          -- Eventueel: controleren of de nieuwe nu ook een P heeft,
          -- en zo niet dat dan tracken; goed doordenken!
          END IF;
@@ -203,6 +230,10 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       END IF;
    END;
 
+   -- Pas op met testen van deze PROCEDURE. De user voor autorisatie wordt bepaald
+   -- via sys_context('USERENV', 'CLIENT_IDENTIFIER')
+   -- ASP-code zet die indirect via fac.initsession
+   -- Compacter kun je dat doen via DBMS_SESSION.SET_IDENTIFIER(3); (met 3=key van de user)
    PROCEDURE claim_parking (pbez_bezoekers_key IN NUMBER, palg_gebter_key IN NUMBER)
    AS
       lafspraakkey bez_afspraak.bez_afspraak_key%TYPE;
@@ -215,6 +246,7 @@ CREATE OR REPLACE PACKAGE BODY bez AS
       lparkeerkey res_deel.res_deel_key%TYPE;
       bez_parkingdiscipline_key NUMBER;
       lpreposttime NUMBER(5,4); -- we gaan nog delen door 24, res_disc_params.res_disc_params_preposttime%TYPE is dan te klein;
+      lautlevel fac_v_webgebruiker.fac_gebruiker_prs_level_write%TYPE;
    BEGIN
       -- Claim een (nieuwe) parkeerplaats voor de gegeven bezoeker
       -- Reserveer voor de tijden van de bijbehorende afspraak cq. res_rsv_ruimte
@@ -287,75 +319,147 @@ CREATE OR REPLACE PACKAGE BODY bez AS
         FROM res_disc_params rdp
        WHERE rdp.res_ins_discipline_key = bez_parkingdiscipline_key;
 
+      SELECT COALESCE((SELECT w.fac_gebruiker_prs_level_write
+                         FROM fac_v_webgebruiker w,
+                              fac_functie f
+                        WHERE w.fac_functie_key = f.fac_functie_key
+                          AND w.prs_perslid_key = TO_NUMBER(SYS_CONTEXT('USERENV', 'CLIENT_IDENTIFIER'))
+                          AND f.fac_functie_code = 'WEB_BEZPAF'),
+                      9) lautlevel
+        INTO lautlevel
+        FROM DUAL;
+
       -- lpreposttime is nu in dagen (in uren / 24 = in dagen).
       -- In de query wordt rekening gehouden met 1 minuut marge voor afrondfouten (+/- 1 / 1440).
       -- Heb ik een gebouwkey of terreinkey meegekregen?
       IF palg_gebter_key IS NULL
       THEN
         -- Wat is een vrije parkeerplaats
-        SELECT   MIN (res_deel_key)                                                                    -- logischer maken?
-          INTO   lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
-                             (SELECT   MIN (rd.res_deel_key)
-                                FROM   res_v_aanwezigrsv_deel rd
-                               WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
-                                       AND d.res_discipline_key = bez_parkingdiscipline_key)
-                                aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_aanwezigterreinsector t
-                     WHERE       d.res_ins_deel_key = id.ins_deel_key
-                             AND id.ins_alg_locatie_key = llocatiekey
-                             AND d.res_discipline_key = bez_parkingdiscipline_key
-                             AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
-                             -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
-                             AND t.prs_afdeling_key IS  NULL -- Alleen 'gewone' parkeerplaatsen
-                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
-                             -- (bits & (2^(dow-1))) = (2^(dow-1))
-                             AND BITAND(d.res_deel_beschikbaar_bits,
-                                        POWER(2,
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
-                             AND (   d.res_deel_vervaldatum IS NULL
-                                  OR d.res_deel_vervaldatum > lbegin)
-                  ORDER BY   id.ins_deel_upper)
-         WHERE   aantal IS NULL;
+        SELECT MIN (res_deel_key)                                                                    -- logischer maken?
+          INTO lparkeerkey
+          FROM (SELECT d.res_deel_key,
+                       (SELECT MIN (rd.res_deel_key)
+                          FROM res_v_aanwezigrsv_deel rd
+                         WHERE     d.res_deel_key = rd.res_deel_key
+                               AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                               AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                               AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                               AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
+                               AND d.res_discipline_key = bez_parkingdiscipline_key) aantal
+                  FROM res_v_aanwezigdeel d,
+                       ins_deel id,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
+                 WHERE d.res_ins_deel_key = id.ins_deel_key
+                   AND id.ins_alg_locatie_key = llocatiekey
+                   AND d.res_discipline_key = bez_parkingdiscipline_key
+                   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_key
+                   -- outer join mag hier niet en dit filter is niet nodig? AND id.ins_alg_ruimte_type = 'T'(+)
+                   AND t.alg_terreinsector_key IN
+                           (SELECT alg_terreinsector_key
+                              FROM alg_v_aanwezigterreinsector t2
+                             WHERE (lautlevel < 0
+                                 OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                 OR (lautlevel > 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.prs_afdeling_key IN
+                                          (SELECT prs_afdeling_key
+                                             FROM prs_v_afdeling_familie a
+                                            WHERE a.prs_afdeling_elder_key IN
+                                                      (SELECT aa.prs_afdeling_elder_key
+                                                         FROM prs_v_afdeling_familie aa
+                                                        WHERE aa.prs_afdeling_key = (SELECT prs_afdeling_key
+                                                                                       FROM prs_perslid
+                                                                                      WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                          AND aa.niveau = lautlevel))))
+                                 OR (lautlevel = 0
+                                 AND (t2.prs_afdeling_key IS NULL
+                                   OR t2.prs_afdeling_key IN
+                                          (SELECT a.prs_afdeling_key
+                                             FROM prs_v_afdeling a
+                                            WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                         FROM prs_perslid p,
+                                                                              prs_v_afdeling a
+                                                                        WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                          AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))
+                   -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                   -- (bits & (2^(dow-1))) = (2^(dow-1))
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                       POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
+                   AND (id.ins_deel_vervaldatum IS NULL OR id.ins_deel_vervaldatum > lbegin)
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
+                ORDER BY   id.ins_deel_upper)
+         WHERE aantal IS NULL;
       ELSE
         -- Wat is een vrije parkeerplaats
         -- Er is een gebouwkey of terreinkey meegegeven. Hierbinnen moet de parkeerplaats gereserveerd worden.
-        SELECT   MIN (res_deel_key)                                                                    -- logischer maken?
-          INTO   lparkeerkey
-          FROM   (  SELECT   d.res_deel_key,
-                             (SELECT   MIN (rd.res_deel_key)
-                                FROM   res_v_aanwezigrsv_deel rd
-                               WHERE       d.res_deel_key = rd.res_deel_key
-                                       AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
-                                       AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
-                                       AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
-                                       AND d.res_discipline_key = bez_parkingdiscipline_key)
-                                aantal
-                      FROM   res_v_aanwezigdeel d, ins_deel id, alg_v_allonroerendgoed og
-                     WHERE       d.res_ins_deel_key = id.ins_deel_key
-                             AND id.ins_alg_locatie_key = llocatiekey
-                             AND d.res_discipline_key = bez_parkingdiscipline_key
-                             AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
-                               OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
-                             AND (og.alg_gebouw_key = palg_gebter_key
-                               OR og.alg_terreinsector_key = palg_gebter_key)
-                             AND id.ins_alg_ruimte_type IN ('R', 'T')
-                             -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
-                             -- (bits & (2^(dow-1))) = (2^(dow-1))
-                             AND BITAND(d.res_deel_beschikbaar_bits,
-                                        POWER(2,
-                                              (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
-                                 POWER(2, (fac.getweekdaynum(TRUNC (lbegin)) - 1))
-                             AND (   d.res_deel_vervaldatum IS NULL
-                                  OR d.res_deel_vervaldatum > lbegin)
-                  ORDER BY   id.ins_deel_upper)
-         WHERE   aantal IS NULL;
+        SELECT MIN (res_deel_key)                                                                    -- logischer maken?
+          INTO lparkeerkey
+          FROM (SELECT d.res_deel_key,
+                       (SELECT MIN (rd.res_deel_key)
+                          FROM res_v_aanwezigrsv_deel rd
+                         WHERE d.res_deel_key = rd.res_deel_key
+                           AND rd.res_rsv_deel_van BETWEEN TRUNC (lbegin) AND leinde - 1 / 1440 + lpreposttime
+                           AND rd.res_rsv_deel_tot BETWEEN lbegin + 1 / 1440 - lpreposttime AND TRUNC (lbegin) + 1
+                           AND rd.res_rsv_deel_van < leinde - 1 / 1440 + lpreposttime
+                           AND rd.res_rsv_deel_tot > lbegin + 1 / 1440 - lpreposttime
+                           AND d.res_discipline_key = bez_parkingdiscipline_key)
+                          aantal
+                  FROM res_v_aanwezigdeel d,
+                       ins_deel id,
+                       alg_v_allonroerendgoed og,
+                       alg_v_aanwezigterreinsector t,
+                       alg_locatie l
+                 WHERE d.res_ins_deel_key = id.ins_deel_key
+                   AND id.ins_alg_locatie_key = llocatiekey
+                   AND d.res_discipline_key = bez_parkingdiscipline_key
+                   AND id.ins_alg_ruimte_key = t.alg_terreinsector_key(+)
+                   AND id.ins_alg_locatie_key = l.alg_locatie_key
+                   AND (id.ins_alg_ruimte_key = og.alg_ruimte_key
+                     OR id.ins_alg_ruimte_key = og.alg_terreinsector_key)
+                   AND (og.alg_gebouw_key = palg_gebter_key                   -- De tabel alg_gebouw heeft geen referentie naar de afdelingen tabel (geen prs_afdeling_key kolom).
+                     OR (og.alg_terreinsector_key = palg_gebter_key
+                     AND og.alg_terreinsector_key IN
+                               (SELECT alg_terreinsector_key
+                                  FROM alg_v_aanwezigterreinsector t2
+                                 WHERE (lautlevel < 0
+                                     OR (lautlevel = 9 AND t2.prs_afdeling_key IS NULL)
+                                     OR (lautlevel > 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.prs_afdeling_key IN
+                                              (SELECT prs_afdeling_key
+                                                 FROM prs_v_afdeling_familie a
+                                                WHERE a.prs_afdeling_elder_key IN
+                                                          (SELECT aa.prs_afdeling_elder_key
+                                                             FROM prs_v_afdeling_familie aa
+                                                            WHERE aa.prs_afdeling_key = (SELECT prs_afdeling_key
+                                                                                           FROM prs_perslid
+                                                                                          WHERE prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER')))
+                                                              AND aa.niveau = lautlevel))))
+                                     OR (lautlevel = 0
+                                     AND (t2.prs_afdeling_key IS NULL
+                                       OR t2.prs_afdeling_key IN
+                                              (SELECT a.prs_afdeling_key
+                                                 FROM prs_v_afdeling a
+                                                WHERE a.prs_bedrijf_key = (SELECT a.prs_bedrijf_key
+                                                                             FROM prs_perslid p,
+                                                                                  prs_v_afdeling a
+                                                                            WHERE p.prs_afdeling_key = a.prs_afdeling_key
+                                                                              AND p.prs_perslid_key = TO_NUMBER(sys_context('USERENV', 'CLIENT_IDENTIFIER'))))))))))
+                   AND id.ins_alg_ruimte_type IN ('R', 'T')
+                   -- Is de parkeerplaats reserveerbaar op de begindag. Meerdaagse parkeerplaatsen worden niet ondersteund.
+                   -- (bits & (2^(dow-1))) = (2^(dow-1))
+                   AND BITAND(d.res_deel_beschikbaar_bits, POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))) =
+                       POWER(2, (fac.getweekdaynum(TRUNC(lbegin)) - 1))
+                   AND (d.res_deel_vervaldatum IS NULL OR d.res_deel_vervaldatum > lbegin)
+                   AND (id.ins_deel_vervaldatum IS NULL OR id.ins_deel_vervaldatum > lbegin)
+                   AND (l.alg_locatie_vervaldatum IS NULL OR l.alg_locatie_vervaldatum > TRUNC(lbegin))
+                   AND (t.alg_terreinsector_vervaldatum IS NULL OR t.alg_terreinsector_vervaldatum > TRUNC(lbegin))
+                ORDER BY id.ins_deel_upper)
+         WHERE aantal IS NULL;
       END IF;
 
       IF lparkeerkey IS NOT NULL

BEZ/BEZ_SEQ.SRC

@@ -3,9 +3,10 @@
  *  $Id$
  */
 
-CREATE SEQUENCE bez_s_bez_afspraak_key  MINVALUE 1;
-CREATE SEQUENCE bez_s_bez_bezoekers_key MINVALUE 1;
-CREATE SEQUENCE bez_s_bez_actie_key     MINVALUE 1;
+CREATE SEQUENCE bez_s_bez_afspraak_key    MINVALUE 1;
+CREATE SEQUENCE bez_s_bez_bezoekers_key   MINVALUE 1;
+CREATE SEQUENCE bez_s_bez_actie_groep_key MINVALUE 1;
+CREATE SEQUENCE bez_s_bez_actie_key       MINVALUE 1;
 
 CREATE SEQUENCE bez_s_bez_kenmerk_key          MINVALUE 1000;
 CREATE SEQUENCE bez_s_bez_kenmerkwaarde_key MINVALUE 1;

BEZ/BEZ_TAB.SRC

@@ -4,6 +4,24 @@
  *  $Id$
  */
 
+CREATE_TABLE(bez_actie_groep, 0)
+(   bez_actie_groep_key
+        NUMBER(10)
+        CONSTRAINT bez_k_bez_actie_groep_key PRIMARY KEY,
+    bez_actie_groep_omschrijving
+        VARCHAR2(64),
+    bez_actie_groep_default
+        NUMBER(1) DEFAULT 0 NOT NULL,
+    bez_actie_groep_verwijder
+        DATE,
+    CONSTRAINT BEZ_U_BEZ_ACTIE_GROEP UNIQUE(bez_actie_groep_omschrijving, bez_actie_groep_verwijder)
+);
+
+ALTER TABLE alg_gebouw
+    ADD bez_actie_groep_key
+    NUMBER(10)
+    REFERENCES bez_actie_groep(bez_actie_groep_key);
+
 CREATE_TABLE(bez_actie,0)
 (
     bez_actie_key
@@ -15,8 +33,12 @@ CREATE_TABLE(bez_actie,0)
         NUMBER(1),
     bez_actie_flags
         NUMBER(3) DEFAULT 0 NOT NULL, -- 0x001=oproepen, 0x002=autobadge
+    bez_actie_groep_key
+        NUMBER(10) NOT NULL
+        REFERENCES bez_actie_groep,
     bez_actie_verwijder
-        DATE
+        DATE,
+    CONSTRAINT BEZ_U_BEZ_ACTIE UNIQUE(bez_actie_groep_key, bez_actie_omschrijving, bez_actie_verwijder)
 );
 
 ALTER TABLE res_ruimte
@@ -39,9 +61,9 @@ CREATE_TABLE(bez_afspraak,0)
         NUMBER(10)
         REFERENCES prs_perslid(prs_perslid_key),
     bez_afspraak_gastheer
-        VARCHAR2(50),
+        VARCHAR2(120),
     bez_afspraak_telefoonnr
-        VARCHAR2(15),
+        VARCHAR2(20),
     bez_afspraak_datum
         DATE
         DEFAULT NULL,
@@ -54,6 +76,9 @@ CREATE_TABLE(bez_afspraak,0)
     res_rsv_ruimte_key
         NUMBER(10)
         REFERENCES res_rsv_ruimte(res_rsv_ruimte_key),
+    mld_opdr_key
+        NUMBER(10)
+        REFERENCES mld_opdr(mld_opdr_key),
     alg_onrgoed_keys
         NUMBER(10),
     bez_afspraak_ruimte
@@ -80,7 +105,7 @@ CREATE_TABLE(bez_bezoekers,0)
         NUMBER(10)
         REFERENCES bez_afspraak,
     bez_afspraak_naam     -- naam bezoeker
-        VARCHAR2(30),
+        VARCHAR2(60),
     bez_afspraak_bedrijf  -- naam bedrijf bezoeker
         VARCHAR2(60),
     prs_contactpersoon_key  -- optioneel
@@ -140,6 +165,8 @@ CREATE_TABLE(bez_kenmerk,0)
         VARCHAR2(50)
     ,bez_kenmerk_upper
         VARCHAR2(50)
+    ,bez_kenmerk_code
+        VARCHAR2(60)
     ,bez_kenmerk_hint
         VARCHAR2(255)
     ,bez_kenmerk_default
@@ -150,13 +177,14 @@ CREATE_TABLE(bez_kenmerk,0)
         VARCHAR2(10)
     ,bez_kenmerk_kenmerktype
         VARCHAR2(1)
-        CONSTRAINT bez_c_bez_kenmerk_type2 CHECK
-         (bez_kenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
-    ,bez_kenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
+    ,bez_kenmerk_systeem -- &1 = systeemkm, &8 = anonimiseren
         NUMBER(2)
         DEFAULT 0 NOT NULL
     ,bez_kenmerk_toonbaar
         NUMBER(1)
+    ,bez_kenmerk_inlijst
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,bez_kenmerk_uniek
         NUMBER(1)
     ,bez_kenmerk_regexp
@@ -184,6 +212,9 @@ CREATE_TABLE(bez_kenmerk,0)
     ,bez_kenmerk_verwijder
         DATE
         DEFAULT NULLDATUM
+    ,fac_functie_key
+        NUMBER(10)
+        CONSTRAINT fac_r_bez_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
 );
 
 CREATE_TABLE(bez_kenmerkwaarde,0)

BEZ/BEZ_TRI.SRC

@@ -3,14 +3,22 @@
  *  $Id$
  */
 
+CREATE_TRIGGER(bez_t_bez_afspraak_B_I)
+BEFORE INSERT ON bez_afspraak
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bez_afspraak_key,bez_s_bez_afspraak_key);
+END;
+/
+
 CREATE_TRIGGER(bez_t_bez_afspraak_B_IU)
 BEFORE INSERT OR UPDATE ON bez_afspraak
 FOR EACH ROW
-DECLARE dummy NUMBER;
 BEGIN
-   UPDATE_PRIMARY_KEY(bez_afspraak_key,bez_s_bez_afspraak_key);
-
-   dummy := :new.bez_afspraak_key;
+    IF sys_context('USERENV', 'ACTION') = 'ANONYMIZE' OR
+       sys_context('USERENV', 'ACTION') = 'DBUPGRADE' THEN
+      RETURN;
+    END IF;
 
    IF :new.bez_afspraak_contact_key IS NULL AND :new.prs_perslid_key IS NOT NULL THEN
         :new.bez_afspraak_contact_key := :new.prs_perslid_key;
@@ -62,14 +70,22 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(bez_t_bez_bezoekers_B_IU)
-BEFORE INSERT OR UPDATE ON bez_bezoekers
+CREATE_TRIGGER(bez_t_bez_bezoekers_B_I)
+BEFORE INSERT ON bez_bezoekers
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(bez_bezoekers_key,bez_s_bez_bezoekers_key);
 END;
 /
 
+CREATE_TRIGGER(bez_t_bez_actie_groep_B_I)
+BEFORE INSERT ON bez_actie_groep
+FOR EACH ROW
+BEGIN
+   UPDATE_PRIMARY_KEY(bez_actie_groep_key, bez_s_bez_actie_groep_key);
+END;
+/
+
 CREATE_TRIGGER(bez_t_bez_actie_B_IU)
 BEFORE INSERT OR UPDATE ON bez_actie
 FOR EACH ROW
@@ -107,17 +123,19 @@ BEFORE INSERT OR UPDATE ON bez_kenmerk
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(bez_kenmerk_key, bez_s_bez_kenmerk_key);
-   UPDATE_UPPER(bez_kenmerk_omschrijving, bez_kenmerk_upper,bez_kenmerk);
+   UPDATE_UPPER(bez_kenmerk_omschrijving, bez_kenmerk_upper, bez_kenmerk);
+   UPDATE_UPPER(bez_kenmerk_code, bez_kenmerk_code, bez_kenmerk);
+
    IF (:new.bez_kenmerk_verwijder IS NOT NULL AND :old.bez_kenmerk_verwijder IS NULL AND
        :new.bez_kenmerk_systeem = 1)
    THEN
-      APPLICATION_ERROR(-20003, 'ALG_M238');
+      raise_application_error(-20000, 'ALG_M238');
    END IF;
 
    IF (:new.bez_kenmerk_kenmerktype IN ('C','N'))
    AND :new.bez_kenmerk_lengte IS NULL
    THEN
-      APPLICATION_ERROR(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
+      raise_application_error(-20000, 'ALG_C_ALG_KENMERK_LENGTE');
    END IF;
    IF :new.bez_kenmerk_kenmerktype = 'N'
    AND :new.bez_kenmerk_lengte > 20
@@ -218,7 +236,7 @@ BEGIN
             WHERE  bez_kenmerk_key = :new.bez_kenmerk_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
-            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+            THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1');
          END;
 
          /* Kijk welk KenmerkType gebruikt wordt.
@@ -262,7 +280,7 @@ BEGIN
                THEN FormatMask := REPLACE(FormatMask, '9', '#');
                     FormatMask := REPLACE(FormatMask, '0', '#');
                     FormatMask := REPLACE(FormatMask, 'D', '.');
-                    RAISE_APPLICATION_ERROR(-20004,'ALG_M233,'|| KenmerkOmschr ||','
+                    APPLICATION_ERROR_GOTO(-20004,'ALG_M233,'|| KenmerkOmschr ||','
                                                               || FormatMask);
             END;
             /*

BEZ/BEZ_VIE.SRC

@@ -4,35 +4,6 @@
  *  $Id$
  */
 
-CREATE_VIEW(bez_v_api_afspraken, 1) AS
-SELECT a.bez_afspraak_key,
-       a.prs_perslid_key,
-       p1.prs_perslid_naam_full bez_afspraak_host,
-       p2.prs_perslid_naam_full bez_afspraak_contact,
-       a.bez_afspraak_datum,
-       a.bez_actie_key,
-       og.alg_onroerendgoed_code,
-       og.alg_onroerendgoed_omschrijving,
-       a.bez_afspraak_ruimte,
-       a.bez_afspraak_opmerking,
-       a.bez_afspraak_eind,
-       b.bez_bezoekers_key,
-       b.bez_afspraak_naam bezoeker_naam,
-       b.bez_afspraak_bedrijf bezoeker_bedrijf,
-       b.bez_bezoekers_opmerking bezoeker_opmerking,
-       b.bez_bezoekers_done,
-       b.bez_bezoekers_out,
-       b.bez_bezoekers_pasnr
-  FROM bez_afspraak a,
-       bez_bezoekers b,
-       prs_v_perslid_fullnames_all p1,
-       prs_v_perslid_fullnames_all p2,
-       alg_v_allonrgoed_gegevens og
- WHERE     a.bez_afspraak_key = b.bez_afspraak_key
-       AND p1.prs_perslid_key = a.bez_afspraak_host_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)
 (
@@ -49,6 +20,7 @@ CREATE_VIEW(bez_v_udr_bezoeker, 1)
     locatie_code,
     locatie_naam,
     locatie_plaats,
+    gebouw_key,
     gebouw_code,
     gebouw_naam,
     verdieping_code,
@@ -89,8 +61,9 @@ AS
            l.alg_locatie_code,
            l.alg_locatie_omschrijving,
            l.alg_locatie_plaats,
-           og.alg_gebouw_code,
-           og.alg_gebouw_naam,
+           COALESCE(og.alg_gebouw_code, og.alg_terreinsector_code) alg_gebouw_code,
+           COALESCE(og.alg_gebouw_naam, og.alg_terreinsector_naam) alg_gebouw_naam,
+           og.alg_gebouw_key,
            og.alg_verdieping_code,
            og.alg_verdieping_omschrijving,
            og.alg_ruimte_nr,
@@ -141,8 +114,8 @@ AS
            AND a.alg_onrgoed_keys = og.alg_onroerendgoed_keys(+)
            AND b.bez_bezoekers_key = rrd.bez_bezoekers_key(+)
            AND rrd.res_deel_key = rd.res_deel_key(+)
-           AND ab.prs_afdeling_key1 = an.prs_afdeling_key
-           AND ab.prs_afdeling_key = pp1.prs_afdeling_key
+           AND ab.prs_afdeling_key1 = an.prs_afdeling_key(+)
+           AND ab.prs_afdeling_key(+) = pp1.prs_afdeling_key
            AND a.bez_afspraak_datum >= TO_DATE ('01-01-2010', 'DD-MM-YYYY');
 
 CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
@@ -157,6 +130,7 @@ CREATE_VIEW(bez_v_udr_reserveringbezoeker, 1)
    district,
    locatie_code,
    locatie_naam,
+   gebouw_key,
    gebouw_code,
    gebouw_naam,
    verdieping_code,
@@ -234,6 +208,7 @@ SELECT
    b.locatie_code,
    b.locatie_naam,
    --b.locatie_plaats,
+   b.gebouw_key,
    b.gebouw_code,
    b.gebouw_naam,
    b.verdieping_code,

BGT/BGT_VIE.SRC

@@ -13,7 +13,8 @@ DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
 
 CREATE OR REPLACE VIEW bgt_v_project_gegevens
 AS
-    SELECT pr.ins_discipline_key
+    SELECT pr.ins_discipline_key FCLT_3D_DISCIPLINE_KEY
+         , pr.ins_discipline_key
          , pr.bgt_project_key
          , dp.bgt_disc_params_opdrachtgever                                     opdrachtgever
          , dp.bgt_disc_params_code                                              pcode
@@ -34,7 +35,8 @@ AS
 
 CREATE OR REPLACE VIEW bgt_v_project_full
 AS
-    SELECT pr.ins_discipline_key
+    SELECT pr.ins_discipline_key FCLT_3D_DISCIPLINE_KEY
+         , pr.ins_discipline_key
          , pr.bgt_project_key
          , pr.opdrachtgever
          , pr.pcode
@@ -60,7 +62,8 @@ AS
          , bgt_kostenrubriek      kr
      WHERE pr.bgt_project_key = kr.bgt_project_key
     UNION
-    SELECT pr.ins_discipline_key
+    SELECT pr.ins_discipline_key FCLT_3D_DISCIPLINE_KEY
+         , pr.ins_discipline_key
          , pr.bgt_project_key
          , pr.opdrachtgever
          , pr.pcode
@@ -88,7 +91,8 @@ AS
      WHERE pr.bgt_project_key = kr.bgt_project_key
        AND kr.bgt_kostenrubriek_key = kg.bgt_kostenrubriek_key
     UNION
-    SELECT pr.ins_discipline_key
+    SELECT pr.ins_discipline_key FCLT_3D_DISCIPLINE_KEY
+         , pr.ins_discipline_key
          , pr.bgt_project_key
          , pr.opdrachtgever
          , pr.pcode

CAD/CAD_INI.SRC

@@ -2,130 +2,29 @@
 /*  CAD_INI.SRC
  *  $Revision$
  *  $Id$
+ * 
+ *  Initialisatie die nooit fout is
  */
 
 _FAC_MODULE('CAD','lcl_module_CAD')
 
-
 INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (1, 'Default legenda', 1);
 INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (2, 'Aantallen', 0);
 // IN prj_ini: INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (3, 'Default project legenda', 1);
-INSERT INTO cad_legenda (cad_legenda_key, cad_legenda_omschrijving, cad_legenda_discreet) VALUES (4, 'Bezetting', 1);
 
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'0','FFFFFF','0');
+-- Een voorbeeldlegenda
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'0','FFFFFF','0');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'1','FDF68D','01');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'2','FFF10F','02');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'3','FFDD81','03');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'4','FDC01B','04');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'5','FFBF81','05');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'10','FF8309','10');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'20','FF8143','20');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'50','FF5A09','50');
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) VALUES (2,'99','FF0000','99');
 
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'1','FDF68D','01');
-
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'2','FFF10F','02');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'3','FFDD81','03');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'4','FDC01B','04');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'5','FFBF81','05');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'10','FF8309','10');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'20','FF8143','20');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'50','FF5A09','50');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (2,'99','FF0000','99');
-
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (4,'0','33CC33','hele dag beschikbaar');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (4,'1','FF9900','''s middags beschikbaar');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (4,'2','FFFF00','''s ochtends beschikbaar');
-INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr)
-VALUES (4,'3','FF0000','hele dag bezet');
-
-INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
-   SELECT 'Ruimtefunctie', 1, 'cad_v_thema_srtruimte', 1, fac_functie_key
-     FROM fac_functie
-    WHERE fac_functie_code = 'WEB_ALGUSE';
-
-INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
-   SELECT 'Vloerafwerking', 1, 'cad_v_thema_vloerafwerking', 1, fac_functie_key
-     FROM fac_functie
-    WHERE fac_functie_code = 'WEB_ALGUSE';
-
-INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
-   SELECT 'Open meldingen', 2, 'cad_v_thema_openmeldingen', 1, fac_functie_key
-     FROM fac_functie
-    WHERE fac_functie_code = 'WEB_MLDBAC';
-
-INSERT INTO CAD_THEMA
-    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW, CAD_THEMA_TYPE, fac_functie_key )
-    SELECT 'Bezetting: aantal werkplekken', 1, 'CAD_V_THEMA_AANTALWP', '1', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSBOF';
-
-INSERT INTO CAD_THEMA
-    ( CAD_THEMA_OMSCHRIJVING, CAD_LEGENDA_KEY, CAD_THEMA_VIEW,CAD_THEMA_TYPE, fac_functie_key )
-    SELECT  'Oppervlakte: Gemiddeld/werkplek', 1, 'CAD_V_THEMA_WPOPP', '1', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSBOF';
-
--- NB: deze gaan met vaste keys 12,13 harde defaults voor infobord.
-INSERT INTO cad_thema
-    ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
-    SELECT 12, 'Actuele bezetting', 1, 'cad_v_thema_srtruimtesensor', '1', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_RESFOF';
-
-INSERT INTO cad_thema
-    ( cad_thema_key, cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key )
-    SELECT 13, 'Werkplekbezetting', 4, 'cad_v_thema_deel_res_datum', '17', fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_RESUSE';
-
--- De cad_thema_key sequence gaat later vanzelf wel verder met 21.
-
-
-
-INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
-   SELECT 'Ruimtefunctie/opp', 'cad_v_label_srtruimteopp', 1, fac_functie_key, 360
-     FROM fac_functie
-    WHERE fac_functie_code = 'WEB_ALGUSE';
-
-INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
-   SELECT 'Bewoners', 'cad_v_label_bewoner', 1, fac_functie_key, 300
-     FROM fac_functie
-    WHERE fac_functie_code = 'WEB_PRSUSE';
-
-INSERT INTO CAD_LABEL
-    ( CAD_LABEL_OMSCHRIJVING, CAD_LABEL_VIEW, CAD_LABEL_TYPE, CAD_LABEL_SIZE, FAC_FUNCTIE_KEY )
-    SELECT  'Werkplekken', 'cad_v_label_werkplekken', '1', 800, fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSBOF';
-INSERT INTO CAD_LABEL
-    ( CAD_LABEL_OMSCHRIJVING, CAD_LABEL_VIEW, CAD_LABEL_TYPE, CAD_LABEL_SIZE, FAC_FUNCTIE_KEY )
-    SELECT  'Bewoners/werkplekken', 'cad_v_label_bewonerwp', '1', 800, fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_PRSUSE';
-INSERT INTO CAD_LABEL
-    ( CAD_LABEL_OMSCHRIJVING, CAD_LABEL_VIEW, CAD_LABEL_TYPE, CAD_LABEL_SIZE, FAC_FUNCTIE_KEY )
-    SELECT  'Ruimtefunctie/opp', 'prj_v_cad_v_label_srtruimteopp', '5', 800, fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_ALGUSE';
-
--- 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, 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';
-INSERT INTO cad_label
-    ( cad_label_key, cad_label_omschrijving, cad_label_view, cad_label_type, cad_label_size, cad_label_visible, fac_functie_key )
-    SELECT 13, 'Werkplekbezetting', 'cad_v_label_deel_res_datum', '17', 700, 0, fac_functie_key
-      from fac_functie
-    where fac_functie_code = 'WEB_RESUSE';
--- De cad_label_key sequence gaat later vanzelf wel verder met 21.
+-- Overige thema's en label's in de INI's
 
 REGISTERONCE('$Id$')
 

CAD/CAD_TAB.SRC

@@ -15,7 +15,7 @@ CREATE_TABLE(cad_tekening, 0)
         NUMBER(10)
         NOT_NULL(alg_locatie_key, cad_c_alg_locatie_key)
         CONSTRAINT cad_r_alg_locatie_key REFERENCES alg_locatie(alg_locatie_key) ON DELETE CASCADE,
-     alg_verdieping_key
+    alg_verdieping_key
         NUMBER(10)
         CONSTRAINT cad_r_alg_verdieping_key REFERENCES alg_verdieping(alg_verdieping_key) ON DELETE CASCADE,
     cad_tekening_filenaam
@@ -82,9 +82,11 @@ CREATE_TABLE(cad_thema,0)
 (
     cad_thema_key
         NUMBER(10) PRIMARY KEY,
-    cad_thema_omschrijving
+    cad_thema_omschrijving  /* de naam */
         VARCHAR2(60)
         NOT_NULL(cad_thema_omschrijving, cad_c_cad_thema_omschr),
+    cad_thema_opmerking     /* de uitleg */
+        VARCHAR2(4000),
     cad_legenda_key
         NUMBER(10)
         CONSTRAINT cad_r_cad_legenda_key REFERENCES cad_legenda(cad_legenda_key),
@@ -92,13 +94,17 @@ CREATE_TABLE(cad_thema,0)
         VARCHAR2(1000)
         NOT_NULL(cad_thema_view, cad_c_cad_thema_view),
     cad_thema_type
-        VARCHAR2(3)
+        NUMBER(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),
     cad_thema_onclick_url
-        VARCHAR2(512)
+        VARCHAR2(512),
+    cad_thema_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT cad_c_cad_thema_aanmaak NOT NULL
 );
 
 ALTER TABLE mld_stdmelding
@@ -114,9 +120,11 @@ CREATE_TABLE(cad_label,0)
 (
     cad_label_key
         NUMBER(10) PRIMARY KEY,
-    cad_label_omschrijving
+    cad_label_omschrijving  /* de naam */
         VARCHAR2(60)
         NOT_NULL(cad_label_omschrijving, cad_c_cad_label_omschr),
+    cad_label_opmerking     /* de uitleg */
+        VARCHAR2(4000),
     cad_label_view
         VARCHAR2(1000)
         NOT_NULL(cad_label_view, cad_c_cad_label_view),
@@ -125,14 +133,20 @@ CREATE_TABLE(cad_label,0)
         CONSTRAINT cad_c_cad_label_type CHECK (cad_label_type BETWEEN 1 AND 31),
     cad_label_size
         NUMBER,
+    cad_label_rotation
+        NUMBER(3), /* (0-360) */
     fac_functie_key
         NUMBER(10)
         CONSTRAINT cad_fac_functie_key2 REFERENCES fac_functie(fac_functie_key),
-    cad_label_visible
+    cad_label_visible /* eigenlijk zou cad_label_label_visible beter zijn, of het id-label erbij getoond moet worden */
         NUMBER(1)
         DEFAULT 1
         NOT NULL
-        CONSTRAINT cad_c_cad_label_visible CHECK (cad_label_visible IN (0,1))
+        CONSTRAINT cad_c_cad_label_visible CHECK (cad_label_visible IN (0,1)),
+    cad_label_aanmaak
+        DATE
+        DEFAULT SYSDATE
+        CONSTRAINT cad_c_cad_label_aanmaak NOT NULL
 );
 
 CREATE_TABLE(cad_imp_contour,0)

CAD/CAD_VIE.SRC

@@ -112,6 +112,30 @@ BEGIN
 END;
 /
 
+-- Toont de huidige afdeling die aan een ruimte gekoppeld is, en Meerdere! indien meerdere.
+-- Ondersteunt dus (wel) bezettingsintervallen/historie. Niet sleepbaar want geen triviaal antwoord op
+-- welke periode je dan moet doen (nu tot onbepaald zou kunnen, en dan moet je dus de huidige periode sluiten)
+-- Gebruik prs_afdeling_naam6 formattering (ongeacht S(prs_dep_string))
+CREATE_VIEW(cad_v_thema_huidigeafdelingen, 0)
+(
+    alg_ruimte_key
+  , waarde
+)
+AS
+   SELECT x.alg_ruimte_key,
+          DECODE (x.aantal,
+             1, SUBSTR (x.sp, 1, 60),
+             'Meerdere!')
+   FROM (SELECT ra.alg_ruimte_key,
+                MIN (d.prs_afdeling_naam || '-' || d.prs_afdeling_omschrijving) sp,
+                MIN (d.prs_afdeling_key) sp_key,
+                COUNT (ra.prs_afdeling_key) aantal
+         FROM prs_v_aanwezigruimteafdeling ra, prs_v_aanwezigafdeling d
+         WHERE ra.prs_afdeling_key = d.prs_afdeling_key
+           AND SYSDATE BETWEEN ra.prs_ruimteafdeling_ingangsdatum 
+               AND COALESCE (ra.prs_ruimteafdeling_einddatum, TRUNC (SYSDATE) + 1)         
+         GROUP BY ra.alg_ruimte_key) x;
+
 // De afdelingsbezetting maar dan gebaseerd op de afdelingen
 // van de de personen die op de werkplekken zitten
 CREATE_VIEW(cad_v_thema_prsafdelingen, 0)
@@ -208,18 +232,25 @@ SELECT ra.alg_ruimte_key, 'mismatch'
 CREATE_VIEW(cad_v_label_srtruimteopp,0)
      (alg_ruimte_key, waarde)
 AS
-   SELECT r.alg_ruimte_key,
-          sr.alg_srtruimte_omschrijving || ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)'
-     FROM alg_v_aanwezigruimte r, alg_srtruimte sr
-    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key;
+    SELECT r.alg_ruimte_key,
+              lcl.x ('alg_srtruimte_omschrijving',
+                     sr.alg_srtruimte_key,
+                     sr.alg_srtruimte_omschrijving)
+           || DECODE (r.alg_ruimte_bruto_vloeropp,
+                      NULL, '',
+                      ' (' || r.alg_ruimte_bruto_vloeropp || ' m2)')
+      FROM alg_v_aanwezigruimte r, alg_srtruimte sr
+     WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key;
 
 -- Ruimtesoort
 CREATE_VIEW(cad_v_thema_srtruimte, 0)
      (alg_ruimte_key, waarde, waarde_key)
 AS
-   SELECT r.alg_ruimte_key, sr.alg_srtruimte_omschrijving, r.alg_srtruimte_key
-     FROM alg_v_aanwezigruimte r, alg_srtruimte sr
-    WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+);
+  SELECT r.alg_ruimte_key,
+        sr.alg_srtruimte_omschrijving,  // deze moet niet vertaald worden, dat regelt de programmatuur
+        r.alg_srtruimte_key
+  FROM alg_v_aanwezigruimte r, alg_srtruimte sr
+ WHERE r.alg_srtruimte_key = sr.alg_srtruimte_key(+);
 
 CREATE_TRIGGER(cad_t_thema_srtruimte_i_iu)
 INSTEAD OF INSERT OR UPDATE ON cad_v_thema_srtruimte
@@ -231,27 +262,6 @@ BEGIN
 END;
 /
 
--- Bezetting
--- Afdelingen
-
-CREATE_VIEW(cad_v_thema_vloerafwerking, 0)
-     (alg_ruimte_key, waarde)
-AS
-   SELECT r.alg_ruimte_key,
-          va.fac_usrdata_omschr
-     FROM alg_ruimte r,
-          (SELECT rr.alg_ruimte_key, ud.fac_usrdata_omschr
-             FROM alg_onrgoedkenmerk ok,
-                  fac_usrdata ud,
-                  fac_kenmerkdomein rk,
-                  alg_kenmerk k,
-                  alg_v_aanwezigruimte rr
-            WHERE rk.fac_usrtab_key = ud.fac_usrtab_key
-              AND k.fac_kenmerkdomein_key = rk.fac_kenmerkdomein_key
-              AND TO_CHAR (ud.fac_usrdata_key) = ok.alg_onrgoedkenmerk_waarde
-              AND k.alg_kenmerk_key = 2
-              AND rr.alg_ruimte_key = ok.alg_onrgoed_key) va
-    WHERE va.alg_ruimte_key = r.alg_ruimte_key;
 
 --Meldingen
 CREATE_VIEW(cad_v_thema_openmeldingen,0)
@@ -658,8 +668,8 @@ AS
                      AND rrr.res_rsv_ruimte_host_key = pf.prs_perslid_key
                      AND pf.prs_perslid_key = p.prs_perslid_key
                      AND p.prs_afdeling_key = a.prs_afdeling_key
-                     AND datum >= TRUNC (res_rsv_deel_van)
-                     AND datum < TRUNC (res_rsv_deel_tot + 1)) res                          -- Bezet
+                     AND datum + 1 >= res_rsv_deel_van
+                     AND datum < res_rsv_deel_tot ) res                          -- Bezet
        WHERE isd.res_ins_deel_key = res.res_ins_deel_key(+) AND datums.datum = res.datum(+)
     GROUP BY datums.datum, isd.res_ins_deel_key, res_deel_omschrijving;
 
@@ -829,8 +839,8 @@ AS
                              res_rsv_deel_tot
                         FROM datums, res_v_aanwezigrsv_deel rrd
                        WHERE     res_rsv_deel_van > TRUNC(SYSDATE) - 1        -- negeer alle irrelevante historie sowieso
-                             AND datum >= TRUNC (res_rsv_deel_van)
-                             AND datum < TRUNC (res_rsv_deel_tot) + 1) blokkerend -- vandaag en nog niet afgelopen
+                             AND datum + 1 >= res_rsv_deel_van
+                             AND datum < res_rsv_deel_tot) blokkerend -- vandaag en nog niet afgelopen
                WHERE     r.res_deel_key = blokkerend.res_deel_key(+)
                      AND datums.datum = blokkerend.datum(+)
                      AND (r.res_deel_vervaldatum IS NULL or r.res_deel_vervaldatum > datums.datum)

CARE/CARE_INI.SRC

@@ -2228,12 +2228,6 @@ UPDATE prs_bedrijf SET prs_bedrijf_uitvoerende = NULL WHERE prs_bedrijf_key = 2;
 UPDATE prs_afdeling SET prs_afdeling_naam = 'Adm', prs_afdeling_omschrijving = 'Administratie'
 WHERE prs_afdeling_key = 1;
 
--- Een insert in fac_qlikview t.b.v. de Analyzer-autorisatie in Qlikview-file 'fclt_care'
-INSERT INTO fac_qlikview (fac_qlikview_omschrijving, fac_qlikview_qvw_name, fac_functie_key)
-SELECT 'Beschikkingen', 'fclt_care', fac_functie_key
-FROM fac_functie
-WHERE fac_functie_code = 'WEB_MLDBAC';
-
 -- Een insert in de periodetabel van alle weken tot en met 1 jaar terug.
 INSERT INTO care_periode (jaar, periode, week, maandag)
 SELECT

CARE/CARE_VIE.SRC

@@ -5723,6 +5723,12 @@ AS
 
 -- QlikView/Analyze views
 --
+-- NOTE: Analyzer (Qlikview) is vervallen per 1-1-2023. Onderstaande views worden dus niet
+--       meer voor hun oorspronkelijke doel gebruikt. De info/opzet kan nog ergens handig voor zijn
+--       bv voor UDR-alternatieven, mocht dat ter sprake komen (wat ik niet verwacht)
+--       Tevens zullen er geen nieuwe CARE-klanten komen dus is er geen noodzaak om hier
+--       aandacht aan te besteden. Keuze is om dit gewoon as-is te laten (en alleen statements
+--       die tot errors leiden te verwijderen)
 
 -- Periodetabel van 10 jaar in het verleden t/m 10 jaar in toekomst
 CREATE_VIEW(care_v_qvw_periodeweektabel, 0)
@@ -5798,51 +5804,6 @@ AS
     WHERE   b.mld_melding_key = u.mld_melding_key;
 
 
-
-/*
-Hieronder staat versie 1 van care_v_qvw_gemeente_tarieven, a.g.v. performance is versie 2 gemaakt die compacter is (en Oracle beter mee om zou kunnen gaan)
-CREATE_VIEW( care_v_qvw_gemeente_tarieven, 0)
-(alg_locatie_key, alg_locatie_code, product_code, product, tarief, vandatum, tmdatum)
-AS
-SELECT  l.alg_locatie_key,
-        l.alg_locatie_code,
-        gt.product_code,
-        ud.fac_usrdata_code,
-        gt.tarief,
-        gt2.duedatum + 1,
-        COALESCE(gt.duedatum, TO_DATE('31-12-2099','DD-MM-YYYY'))
-FROM  care_v_gemeente_tarieven gt, alg_locatie l, fac_usrdata ud, care_v_gemeente_tarieven gt2
-WHERE l.alg_locatie_key = gt.alg_locatie_key (+)
-AND   l.alg_locatie_verwijder IS NULL
-AND   ud.fac_usrdata_key = gt.product_code
-AND   gt2.alg_locatie_key = gt.alg_locatie_key
-AND   gt2.product_code = gt.product_code
-AND   gt2.duedatum =      (SELECT MAX (gt3.duedatum)
-                            FROM care_v_gemeente_tarieven gt3
-                            WHERE COALESCE(gt3.duedatum,SYSDATE+9999) < COALESCE(gt.duedatum,SYSDATE+9999)
-                            AND   gt3.alg_locatie_key = gt.alg_locatie_key
-                            AND   gt3.product_code = gt.product_code
-                           )
-UNION ALL
-SELECT  l.alg_locatie_key,
-        l.alg_locatie_code,
-        gt.product_code,
-        ud.fac_usrdata_code,
-        gt.tarief,
-        TO_DATE('01-01-2010','DD-MM-YYYY'),
-        COALESCE(gt.duedatum, TO_DATE('31-12-2099','DD-MM-YYYY'))
-FROM  care_v_gemeente_tarieven gt, alg_locatie l, fac_usrdata ud
-WHERE l.alg_locatie_key = gt.alg_locatie_key (+)
-AND   l.alg_locatie_verwijder IS NULL
-AND   ud.fac_usrdata_key = gt.product_code
-AND COALESCE(gt.duedatum,SYSDATE)=  (SELECT COALESCE(MIN (gt2.duedatum),SYSDATE)
-                            FROM care_v_gemeente_tarieven gt2
-                            WHERE gt2.alg_locatie_key = gt.alg_locatie_key
-                            AND   gt2.product_code = gt.product_code
-                           );
-*/
-
-
 CREATE_VIEW( care_v_qvw_gemeente_tarieven, 0)
 (alg_locatie_key, product_code, tarief, vandatum, tmdatum)
 AS

CND/CND.sql

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

CND/CND_INI.sql

@@ -130,7 +130,7 @@ UPDATE fac_setting
               FROM ins_srtdiscipline
              WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting')
  WHERE fac_setting_name = 'cnd_gebreken_srtdisc_key' AND fac_setting_pvalue IS NULL;
- 
+
 -- Vakgroepen
 
 INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_code, ins_discipline_omschrijving, ins_srtdiscipline_key) SELECT 'MLD', 'B1', 'B1 - Casco, constructies en funderingen', ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting';
@@ -5628,15 +5628,15 @@ INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_def
 INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'CONDITIE'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), NULL, 'T', 0, NULL, 05,  NULL FROM DUAL;
 INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'CONDITIESCORE'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'),  NULL, 'T', 0, 1, 35,  NULL FROM DUAL;
 INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'PRIORITEIT'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), NULL, 'T', 0, NULL, 50,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT1'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 55,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT2'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 60,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT3'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 65,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT4'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 70,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT5'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 75,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT6'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 80,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT7'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT fac_usrdata_key FROM fac_usrdata WHERE fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 85,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'FOTO'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), NULL, 'T', 0, NULL, 40,  NULL FROM DUAL;
-INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'PRIORITEITSCORE'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'),  NULL, 'T', 0, 1, 90, 'r1000x1000' FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT1'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 55,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT2'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 60,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT3'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 65,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT4'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 70,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT5'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 75,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT6'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 80,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'ASPECT7'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), (SELECT ud.fac_usrdata_key FROM fac_usrdata ud, fac_usrtab ut WHERE ut.fac_usrtab_key = ud.fac_usrtab_key AND ut.fac_usrtab_naam = 'Aspectenmatrix' AND fac_usrdata_omschr = 'NVT'), 'T', 1, NULL, 85,  NULL FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'FOTO'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'), NULL, 'T', 0, NULL, 40,  'r1000x1000' FROM DUAL;
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'PRIORITEITSCORE'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'),  NULL, 'T', 0, 1, 90, NULL FROM DUAL;
 INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_stdmelding_key, mld_kenmerk_default, mld_kenmerk_niveau, mld_kenmerk_verplicht, mld_kenmerk_toonbaar, mld_kenmerk_volgnummer, mld_kenmerk_regexp) SELECT (SELECT mld_srtkenmerk_key FROM mld_srtkenmerk WHERE mld_srtkenmerk_code = 'KOSTEN'), (SELECT ins_srtdiscipline_key FROM ins_srtdiscipline WHERE ins_srtdiscipline_omschrijving = 'NEN2767 - Conditiemeting'),  NULL, 'T', 0, 1, 92,  NULL FROM DUAL;
 
 -- corresponding tables are created by the core

CND/CND_PAC.SRC

@@ -878,7 +878,7 @@ AS
             -- we only track real changes, one should trust that we are accurate
             IF (loldscore1 IS NULL and lnewscore1 IS NOT NULL) OR (lnewscore1 <> loldscore1)
             THEN
-                fac.trackaction ('#INSUPD',
+                fac.trackaction ('#INSCN1',
                                  p_deel_key,
                                  p_user_key,
                                  NULL,
@@ -1246,13 +1246,13 @@ END;
 -----------------------------------------------------------------------------------------------------------------------
 -----------------------------------------------------------------------------------------------------------------------
 -- PLAT#53170: Koppelen van soort gebrek (mld_stdmelding) aan elementen obv importsheet: IMPORTFUNCTIE srtdeel_mlddisc
--- om het aantal combinaties te beperken tot alleen relevante combi's van gebrek en objectsoort
+-- om het aantal combinaties te beperken tot alleen relevante combi's van gebrek en objectsoort, groep of discipline
 -----------------------------------------------------------------------------------------------------------------------
 -----------------------------------------------------------------------------------------------------------------------
 CREATE OR REPLACE PROCEDURE cnd_import_srtdeel_mlddisc (
     p_import_key   IN NUMBER)
 AS
-    c_fielddelimitor                VARCHAR2 (1) := ';';
+    c_fielddelimitor                VARCHAR2 (2) := fac.import_delimiter(p_import_key);
     v_newline                       VARCHAR2 (1000);             -- Input line
     v_aanduiding                    VARCHAR2 (200);
     v_errorhint                     VARCHAR2 (1000);
@@ -1271,6 +1271,11 @@ AS
     v_ins_discipline_omschrijving   VARCHAR2 (1000);
     v_mld_discipline_omschrijving   VARCHAR2 (1000);
 
+    v_lcl_ins_srtdeel_code          VARCHAR2 (100);
+    v_lcl_ins_discipline_omschr     VARCHAR2 (100);
+    v_lcl_ins_srtgroep_omschr       VARCHAR2 (100);
+    v_lcl_mld_discipline_omschr     VARCHAR2 (100);
+
     CURSOR c1
     IS
           SELECT *
@@ -1329,6 +1334,8 @@ BEGIN
             --
             v_aanduiding :=
                    '['
+                || rec1.fac_imp_file_index
+                || ':'
                 || v_ins_srtdeel_code
                 || '-'
                 || v_ins_discipline_omschrijving
@@ -1347,17 +1354,30 @@ BEGIN
             -- Ik negeer alles totdat ik een geldige header ben gepasseerd.
             IF (header_is_valid = 0)
             THEN
-                IF     UPPER (v_ins_srtdeel_code) = 'SUBRECEPT NUMMER'
-                   AND UPPER (v_ins_discipline_omschrijving) = 'HOOFDRECEPT'
-                   AND UPPER (v_ins_srtgroep_omschrijving) = 'GROEP'
-                   AND UPPER (v_mld_discipline_omschrijving) = 'VAKGROEP'
+                IF UPPER (v_ins_srtdeel_code) = 'SUBRECEPT NUMMER'
+                THEN
+                   v_lcl_ins_srtdeel_code          := 'SUBRECEPT NUMMER';
+                   v_lcl_ins_discipline_omschr     := 'HOOFDRECEPT';
+                   v_lcl_ins_srtgroep_omschr       := 'GROEP';
+                   v_lcl_mld_discipline_omschr     := 'VAKGROEP';
+                ELSE
+                   v_lcl_ins_srtdeel_code          := 'OBJECTSOORTCODE';
+                   v_lcl_ins_discipline_omschr     := 'DISCIPLINEOMSCHRIJVING';
+                   v_lcl_ins_srtgroep_omschr       := 'GROEPSOORTOMSCHRIJVING';
+                   v_lcl_mld_discipline_omschr     := 'VAKGROEP';
+                END IF;
+
+                IF     UPPER (v_ins_srtdeel_code) = v_lcl_ins_srtdeel_code
+                   AND UPPER (v_ins_discipline_omschrijving) = v_lcl_ins_discipline_omschr
+                   AND UPPER (v_ins_srtgroep_omschrijving) = v_lcl_ins_srtgroep_omschr
+                   AND UPPER (v_mld_discipline_omschrijving) = v_lcl_mld_discipline_omschr
                 THEN
                     header_is_valid := 1;
                 END IF;
             ELSE
                 v_count_tot := v_count_tot + 1;
 
-                v_errorhint := 'Ongeldig Subreceptnummer';
+                v_errorhint := 'Ongeldig ' || v_lcl_ins_srtdeel_code;
 
                 IF (v_ins_srtdeel_code IS NOT NULL)
                 THEN
@@ -1368,20 +1388,13 @@ BEGIN
                         fac.imp_writelog (
                             p_import_key,
                             'W',
-                            v_aanduiding || 'Subreceptnummer te lang',
+                            v_aanduiding || v_lcl_ins_srtdeel_code || ' te lang',
                             'Afgebroken tot [' || v_ins_srtdeel_code || ']');
                     END IF;
-                ELSE
-                    fac.imp_writelog (
-                        p_import_key,
-                        'W',
-                        v_aanduiding,
-                        v_errorhint || ' - Regel wordt overgeslagen');
-                    v_ongeldig := 1;
                 END IF;
 
                 --
-                v_errorhint := 'Ongeldig hoofdrecept';
+                v_errorhint := 'Ongeldig ' || v_lcl_ins_discipline_omschr;
 
                 IF (v_ins_discipline_omschrijving IS NOT NULL)
                 THEN
@@ -1392,22 +1405,15 @@ BEGIN
                         fac.imp_writelog (
                             p_import_key,
                             'W',
-                            v_aanduiding || 'Hoofdrecept te lang',
+                            v_aanduiding || v_lcl_ins_discipline_omschr || ' te lang',
                                'Afgebroken tot ['
                             || v_ins_discipline_omschrijving
                             || ']');
                     END IF;
-                ELSE
-                    fac.imp_writelog (
-                        p_import_key,
-                        'W',
-                        v_aanduiding,
-                        v_errorhint || ' - Regel wordt overgeslagen');
-                    v_ongeldig := 1;
                 END IF;
 
                 --
-                v_errorhint := 'Ongeldige groep';
+                v_errorhint := 'Ongeldige ' || v_lcl_ins_srtgroep_omschr;
 
                 IF (v_ins_srtgroep_omschrijving IS NOT NULL)
                 THEN
@@ -1418,22 +1424,15 @@ BEGIN
                         fac.imp_writelog (
                             p_import_key,
                             'W',
-                            v_aanduiding || 'Groep te lang',
+                            v_aanduiding || v_lcl_ins_srtgroep_omschr || ' te lang',
                                'Afgebroken tot ['
                             || v_ins_srtgroep_omschrijving
                             || ']');
                     END IF;
-                ELSE
-                    fac.imp_writelog (
-                        p_import_key,
-                        'W',
-                        v_aanduiding,
-                        v_errorhint || ' - Regel wordt overgeslagen');
-                    v_ongeldig := 1;
                 END IF;
 
                 --
-                v_errorhint := 'Ongeldige vakgroep';
+                v_errorhint := 'Ongeldige ' || v_lcl_mld_discipline_omschr;
 
                 IF (v_mld_discipline_omschrijving IS NOT NULL)
                 THEN
@@ -1444,7 +1443,7 @@ BEGIN
                         fac.imp_writelog (
                             p_import_key,
                             'W',
-                            v_aanduiding || 'Vakgroep te lang',
+                            v_aanduiding || v_lcl_mld_discipline_omschr || ' te lang',
                                'Afgebroken tot ['
                             || v_mld_discipline_omschrijving
                             || ']');
@@ -1552,8 +1551,9 @@ IS
     oracle_err_mes         VARCHAR2 (200);
     v_count_tot            NUMBER (10);
     v_count_import         NUMBER (10);
+    v_niveau               VARCHAR2 (1);
 
-    v_ins_srtdeel_key      NUMBER (10);
+    v_ins_srtinstallatie_key NUMBER (10);
     v_mld_discipline_key   NUMBER (10);
 BEGIN
     v_count_tot := 0;
@@ -1562,6 +1562,8 @@ BEGIN
     FOR rec IN c1
     LOOP
         BEGIN
+            v_ins_srtinstallatie_key := NULL;
+
             v_aanduiding :=
                    '['
                 || rec.ins_srtdeel_code
@@ -1573,22 +1575,49 @@ BEGIN
                 || rec.ins_srtgroep_omschrijving
                 || '] ';
 
-            v_errorhint := 'MAX(sd.ins_srtdeel_key) levert NULL op';
+            IF rec.ins_srtdeel_code IS NOT NULL
+            THEN
+               v_errorhint := 'MAX(sd.ins_srtdeel_key) levert NULL op';
+               v_niveau := 'S';
+               SELECT MAX (sd.ins_srtdeel_key)
+                 INTO v_ins_srtinstallatie_key
+                 FROM ins_srtdeel sd, ins_srtgroep g, ins_discipline d
+                WHERE     sd.ins_srtgroep_key = g.ins_srtgroep_key
+                      AND g.ins_discipline_key = d.ins_discipline_key
+                      AND sd.ins_srtdeel_code_upper =
+                          UPPER (rec.ins_srtdeel_code)
+                      AND g.ins_srtgroep_upper =
+                          UPPER (rec.ins_srtgroep_omschrijving)
+                      AND UPPER(d.ins_discipline_omschrijving) =
+                          UPPER(rec.ins_discipline_omschrijving)
+                      AND d.ins_discipline_verwijder IS NULL
+                      AND g.ins_srtgroep_verwijder IS NULL
+                      AND sd.ins_srtdeel_verwijder IS NULL;
 
-            SELECT MAX (sd.ins_srtdeel_key)
-              INTO v_ins_srtdeel_key
-              FROM ins_srtdeel sd, ins_srtgroep g, ins_discipline d
-             WHERE     sd.ins_srtgroep_key = g.ins_srtgroep_key
-                   AND g.ins_discipline_key = d.ins_discipline_key
-                   AND sd.ins_srtdeel_code_upper =
-                       UPPER (rec.ins_srtdeel_code)
-                   AND g.ins_srtgroep_upper =
-                       UPPER (ins_srtgroep_omschrijving)
-                   AND d.ins_discipline_omschrijving =
-                       rec.ins_discipline_omschrijving
-                   AND d.ins_discipline_verwijder IS NULL
-                   AND g.ins_srtgroep_verwijder IS NULL
-                   AND sd.ins_srtdeel_verwijder IS NULL;
+            ELSIF rec.ins_srtgroep_omschrijving IS NOT NULL
+            THEN
+               v_niveau := 'G';
+               v_errorhint := 'MAX(g.ins_srtgroep_key) levert NULL op';
+               SELECT MAX (g.ins_srtgroep_key)
+                 INTO v_ins_srtinstallatie_key
+                 FROM ins_srtgroep g, ins_discipline d
+                WHERE     g.ins_discipline_key = d.ins_discipline_key
+                      AND g.ins_srtgroep_upper =
+                          UPPER (rec.ins_srtgroep_omschrijving)
+                      AND UPPER (d.ins_discipline_omschrijving) =
+                          UPPER (rec.ins_discipline_omschrijving)
+                      AND d.ins_discipline_verwijder IS NULL
+                      AND g.ins_srtgroep_verwijder IS NULL;
+            ELSE
+               v_niveau := 'D';
+               v_errorhint := 'MAX(d.ins_discipline_key) levert NULL op';
+               SELECT MAX (d.ins_discipline_key)
+                 INTO v_ins_srtinstallatie_key
+                 FROM ins_discipline d
+                WHERE     UPPER (d.ins_discipline_omschrijving) =
+                          UPPER (rec.ins_discipline_omschrijving)
+                      AND d.ins_discipline_verwijder IS NULL;
+            END IF;
 
             v_errorhint := 'MAX(d.ins_discipline_key) levert NULL op';
 
@@ -1599,12 +1628,12 @@ BEGIN
                        rec.mld_discipline_omschrijving
                    AND d.ins_discipline_verwijder IS NULL;
 
-            IF v_ins_srtdeel_key IS NULL
+            IF v_ins_srtinstallatie_key IS NULL
             THEN
                 fac.imp_writelog (
                     p_import_key,
                     'E',
-                    v_aanduiding || ' - Subreceptnummer niet gevonden',
+                    v_aanduiding || ' - Identificatie niet gevonden',
                     v_errorhint);
             END IF;
 
@@ -1617,7 +1646,7 @@ BEGIN
                     v_errorhint);
             END IF;
 
-            IF     v_ins_srtdeel_key IS NOT NULL
+            IF     v_ins_srtinstallatie_key IS NOT NULL
                AND v_mld_discipline_key IS NOT NULL
             THEN
                 v_errorhint := 'INSERT INTO mld_stdmelding_srtinst faalt...';
@@ -1626,7 +1655,7 @@ BEGIN
                                 mld_stdmelding_key,
                                 ins_srtinstallatie_key,
                                 ins_srtinstallatie_niveau)
-                    SELECT sm.mld_stdmelding_key, v_ins_srtdeel_key, 'S'
+                    SELECT sm.mld_stdmelding_key, v_ins_srtinstallatie_key, v_niveau
                       FROM mld_stdmelding sm
                      WHERE     sm.mld_ins_discipline_key =
                                v_mld_discipline_key
@@ -1637,9 +1666,9 @@ BEGIN
                                      WHERE     smsi.mld_stdmelding_key =
                                                sm.mld_stdmelding_key
                                            AND smsi.ins_srtinstallatie_key =
-                                               v_ins_srtdeel_key
+                                               v_ins_srtinstallatie_key
                                            AND smsi.ins_srtinstallatie_niveau =
-                                               'S');
+                                               v_niveau);
             END IF;
         EXCEPTION
             WHEN OTHERS
@@ -1686,7 +1715,7 @@ END cnd_update_srtdeel_mlddisc;
 CREATE OR REPLACE PROCEDURE cnd_import_nen2767_results (
     p_import_key   IN NUMBER)
 AS
-    c_fielddelimitor             VARCHAR2 (1) := ';';
+    c_fielddelimitor             VARCHAR2 (2) := fac.import_delimiter(p_import_key);
     v_newline                    VARCHAR2 (1000);                -- Input line
     v_aanduiding                 VARCHAR2 (200);
     v_errorhint                  VARCHAR2 (1000);
@@ -1781,13 +1810,13 @@ AS
            INTO   v_srtkenmerk_key
            FROM   mld_srtkenmerk     -- ins_v_aanwezigsrtkenmerk
           WHERE   mld_srtkenmerk_upper = UPPER (v_kw)
-                  AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
+                  AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'r', 'S', 'X', 'V');
       ELSE                             -- kenmerkwaarde is numeriek (dus key)!
          SELECT   mld_srtkenmerk_key
            INTO   v_srtkenmerk_key
            FROM   mld_srtkenmerk    -- ins_v_aanwezigsrtkenmerk
           WHERE   mld_srtkenmerk_key = fac.safe_to_number (v_kw)
-                  AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'S', 'X', 'B', 'V');
+                  AND mld_srtkenmerk_kenmerktype IN ('C', 'D', 'N', 'R', 'r', 'S', 'X', 'V');
       END IF;
 
       RETURN TO_CHAR(v_srtkenmerk_key) || '|' || TO_CHAR(v_kenmerk_groep);
@@ -1814,7 +1843,7 @@ AS
     BEGIN
         v_result := p_aspect;
 
-        IF p_aspect IS NULL
+        IF p_aspect IS NULL OR p_aspect = 0
         THEN
             v_result := 'NVT';
         END IF;
@@ -2860,9 +2889,9 @@ IS
         v_waarde            VARCHAR(4000);
         v_srtkenmerk_type   VARCHAR2 (1);
         ccount              NUMBER;
-        v_objectnaam        VARCHAR2 (30);
-        v_kolomnaam         VARCHAR2 (30);
-        v_kolomtxt          VARCHAR2 (30);
+        v_objectnaam        fac_kenmerkdomein.fac_kenmerkdomein_objectnaam%TYPE;
+        v_kolomnaam         fac_kenmerkdomein.fac_kenmerkdomein_kolomnaam%TYPE;
+        v_kolomtxt          fac_kenmerkdomein.fac_kenmerkdomein_kolomtxt%TYPE;
         sql_stmt            VARCHAR2 (1000);
         v_kenmerkdeel_key   NUMBER;
         l_cursor_1          INTEGER;
@@ -2902,7 +2931,7 @@ IS
 
             IF v_waarde IS NOT NULL
             THEN
-                IF v_srtkenmerk_type IN ('R', 'S')
+                IF v_srtkenmerk_type IN ('R', 'r', 'S')
                 THEN
                     v_errormsg := 'Fout bij bepalen eigen tabel';
 
@@ -3242,10 +3271,13 @@ BEGIN
             insert_mldkenmerk (v_mld_melding_key, rec.flex9);
             insert_mldkenmerk (v_mld_melding_key, rec.flex10);
 
-            v_errorhint := 'Meldingen direct accepteren ';
+            v_errorhint := 'Meldingen direct accepteren en conditie berekenen ';
             IF fac.getsetting('cnd_autoaccept') = 1
             THEN
                 mld.setmeldingstatus(v_mld_melding_key, 4, v_prs_perslid_key, 0);
+                -- berekening per gebrek is in principe te vaak,
+                -- dat mag per deel, maar dit is nu eenmaal de loop
+                cnd.process_mjb_score_effects (v_mld_melding_key);
             END IF;
 
             v_count_import := v_count_import + 1;

CND/CND_VIE.SRC

@@ -232,6 +232,7 @@ CREATE_VIEW(cnd_v_rap_conditiemetingen, 0)
 (
    mld_melding_key,
    complexnummer,
+   complexnaam,
    clusternummer,
    clusternaam,
    gebouwgroep,
@@ -259,7 +260,8 @@ CREATE_VIEW(cnd_v_rap_conditiemetingen, 0)
 )
 AS
    SELECT m.mld_melding_key,
-          l.alg_locatie_omschrijving complexnummer,
+          l.alg_locatie_code complexnummer,
+          l.alg_locatie_omschrijving complexnaam,
           aog.alg_gebouw_code clusternummer,
           aog.alg_gebouw_naam clusternaam,
           aog.alg_gebouw_groep groep,

CNT/CNT_IND.SRC

@@ -24,6 +24,9 @@ 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);
 
+CREATE INDEX cnt_i_cnt_srtkenmerk1 ON cnt_srtkenmerk(cnt_srtkenmerk_code);
+CREATE INDEX cnt_i_cnt_kenmerk1 ON cnt_kenmerk(cnt_kenmerk_code);
+
 REGISTERONCE('$Id$')
 
 #endif // CNT

CNT/CNT_PAC.SRC

@@ -11,6 +11,8 @@ CREATE OR REPLACE PACKAGE cnt AS
   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;
+  PROCEDURE autoverleng_contract;
+  PROCEDURE autoinactiveer_contract;
 
   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);
@@ -19,6 +21,10 @@ CREATE OR REPLACE PACKAGE cnt AS
   FUNCTION sprintf (ps IN VARCHAR2 , p_contract_key IN NUMBER) RETURN VARCHAR2;
   PROCEDURE remove(p_contract_key IN NUMBER);
 
+  PROCEDURE notifycontractbedrijven (pcntkey               NUMBER,
+                                     ptrackingkey          NUMBER,
+                                     pnotidelay            NUMBER DEFAULT NULL);
+
   PRAGMA RESTRICT_REFERENCES (cnt_contract_status, WNDS, WNPS);
 END cnt;
 /
@@ -233,16 +239,105 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
       RETURN 4;
    END;
 
+   PROCEDURE autoverleng_contract
+   IS
+      CURSOR c_verleng IS
+         SELECT c.cnt_contract_key
+              , c.ins_discipline_key
+              , c.cnt_contract_nummer_intern
+              , c.cnt_contract_omschrijving
+              , c.cnt_contract_looptijd_tot
+              , o.cnt_termijn_omschrijving  opzegtermijn
+              , cnt.cnt_getTermijndatum (c.cnt_contract_looptijd_tot, c.cnt_contract_opzegtermijn, -1) dtopzeggen
+              , v.cnt_termijn_omschrijving  verlengtermijn
+              , cnt.cnt_getTermijndatum (c.cnt_contract_looptijd_tot, c.cnt_contract_verleng_termijn, 1) dtnieuw
+           FROM cnt_contract c
+              , cnt_disc_params p
+              , cnt_termijn o
+              , cnt_termijn v
+          WHERE c.ins_discipline_key = p.cnt_ins_discipline_key
+            AND c.cnt_contract_opzegtermijn = o.cnt_termijn_key
+            AND c.cnt_contract_verleng_termijn = v.cnt_termijn_key
+            AND c.cnt_contract_verwijder IS NULL
+            AND BITAND(p.cnt_disc_params_opties,1) = 1  -- Dit contracttype mag automatisch verlengd worden
+            AND BITAND(c.cnt_contract_verlenging,4) = 4 -- Dit contract mag automatisch verlengd worden
+            AND TRUNC(SYSDATE) > cnt.cnt_getTermijndatum (c.cnt_contract_looptijd_tot, c.cnt_contract_opzegtermijn, -1)
+            AND NOT EXISTS
+                  ( SELECT 1
+                      FROM cnt_contract cn
+                     WHERE cn.cnt_contract_nummer_intern = c.cnt_contract_nummer_intern
+                       AND cn.cnt_contract_versie > c.cnt_contract_versie
+                       AND cn.cnt_contract_looptijd_van = (c.cnt_contract_looptijd_tot + 1)
+                       AND cn.cnt_contract_verwijder IS NULL
+                  );
+
+      tracking    VARCHAR2(4000);
+   BEGIN
+      FOR cnt_verloopt IN c_verleng
+      LOOP
+         UPDATE cnt_contract
+            SET cnt_contract_looptijd_tot = cnt_verloopt.dtnieuw
+          WHERE cnt_contract_key = cnt_verloopt.cnt_contract_key;
+         tracking := REPLACE(REPLACE(lcl.l('lcl_cnt_prolongation_tracking')
+                                    , '{0}', cnt_verloopt.verlengtermijn
+                                    )
+                            , '{1}', TO_CHAR(cnt_verloopt.dtnieuw,'dd-mm-yyyy')
+                            );
+         fac.trackaction ('CNTUPD', cnt_verloopt.cnt_contract_key, NULL, NULL, tracking);
+      END LOOP;
+   END;
+
+   PROCEDURE autoinactiveer_contract
+   IS
+      l_prs_perslid_key prs_perslid.prs_perslid_key%TYPE;
+      tracking          VARCHAR2(4000);
+
+      CURSOR c_inactiveer IS
+         SELECT c.cnt_contract_key
+           FROM cnt_contract c
+          WHERE c.cnt_contract_inactiveren = 1
+            AND TRUNC(c.cnt_contract_looptijd_tot) < TRUNC(SYSDATE)
+            AND NOT EXISTS (SELECT f.fin_factuur_key                       -- Contract mag geen openstaande facturen hebben.
+                              FROM fin_factuur f
+                             WHERE f.cnt_contract_key = c.cnt_contract_key
+                              AND f.fin_factuur_statuses_key NOT IN (1,7));
+   BEGIN
+      BEGIN
+         SELECT prs_perslid_key
+           INTO l_prs_perslid_key
+           FROM prs_perslid
+          WHERE prs_perslid_oslogin = '_SYSTEEM' AND prs_perslid_verwijder IS NULL;
+      EXCEPTION
+         WHEN NO_DATA_FOUND
+         THEN
+            fac.putsystemnotification ('Invalid configuration: missing _SYSTEEM user', 1);
+      END;
+
+      FOR cnt_inactiveer IN c_inactiveer
+      LOOP
+         cnt.setcontractstatus(cnt_inactiveer.cnt_contract_key, 1, l_prs_perslid_key); -- Zorgt ook voor tracking en daarmee notificatie.
+
+         UPDATE cnt_contract
+            SET cnt_contract_inactiveren = 0
+          WHERE cnt_contract_key = cnt_inactiveer.cnt_contract_key;
+
+         tracking := lcl.l('lcl_cnt_is_cntupd') || CHR(10) || lcl.l('lcl_cnt_auto_close') || ': ' || lcl.l('lcl_Yes') || lcl.l('lcl_trackto') || lcl.l('lcl_No');
+         fac.trackaction('CNTUPD', cnt_inactiveer.cnt_contract_key, NULL, NULL, tracking);
+      END LOOP;
+   END;
+
    PROCEDURE splitscontract (p_key IN NUMBER, p_datum IN DATE, p_user IN NUMBER, p_amount NUMBER)
    IS
-      begin1 DATE;
-      eind1 DATE;
-      versie1 cnt_contract.cnt_contract_versie%TYPE;
-      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;
+      begin1            DATE;
+      eind1             DATE;
+      versie1           cnt_contract.cnt_contract_versie%TYPE;
+      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;
+      tracking          VARCHAR2 (4000);
+      splitsen          BOOLEAN := TRUE;
    BEGIN
       -- 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
@@ -260,26 +355,40 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   COALESCE (c.cnt_contract_versie, '0'),
                   cnt_contract_nummer_intern,
                   cnt_contract_kosten,
-                  cdp.cnt_srtcontract_type
-           INTO   begin1, eind1, versie1, nummer1, amount1, srtcontract_type
+                  cdp.cnt_srtcontract_type,
+                  c.cnt_contract_status
+           INTO   begin1, eind1, versie1, nummer1, amount1, srtcontract_type, new_status
            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;
+            AND   c.cnt_contract_key = p_key;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             RETURN;
       END;
 
-      IF (fac.getsetting('cnt_contract_approval') = 1 AND srtcontract_type != 6)
+      IF (begin1 < p_datum AND eind1 > p_datum)
       THEN
-        new_status := 2; -- altijd op nieuw
+         -- Splitsen van contract.
+         begin1 := p_datum;
+         eind1  := eind1;
+         IF (fac.getsetting('cnt_contract_approval') = 1 AND srtcontract_type != 6)
+         THEN
+            new_status := 2; -- altijd op nieuw
+         ELSE
+            new_status := 0; -- direct actief
+         END IF;
+      ELSIF (eind1 < p_datum)
+      THEN
+         -- Verlengen van contract
+         begin1 := eind1 + 1;
+         eind1  := p_datum;
+         splitsen := FALSE;
       ELSE
-        new_status := 0; -- direct actief
+         RETURN;
       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_prs_perslid_key,
@@ -292,7 +401,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                                )
          SELECT   cnt_contract_nummer,
                   cnt_contract_omschrijving,
-                  cnt_contract_looptijd_tot,
+                  eind1,
                   amount1 - COALESCE(p_amount, 0),
                   cnt_contract_uurloon,
                   cnt_prs_bedrijf_key,
@@ -309,7 +418,7 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
                   prs_perslid_key_beh,
                   prs_afdeling_key_eig,
                   new_status,
-                  p_datum,
+                  begin1,
                   prs_kostenplaats_key,
                   cnt_contract_termijnkosten,
                   prs_kostensoort_key,
@@ -331,13 +440,26 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
          AND   cnt_contract_versie = TO_CHAR (versie1 + 1)
          AND   cnt_contract_verwijder IS NULL;
       --- Een versieloos oud contract krijgt expliciet versie 0
-      UPDATE   cnt_contract
-         SET   cnt_contract_looptijd_tot = p_datum - 1,
-               cnt_contract_versie = versie1,
-               cnt_contract_kosten = COALESCE(p_amount, cnt_contract_kosten)
-       WHERE   cnt_contract_key = p_key;
+      --- Looptijd_tot en kosten moteen alleen bij splitsen worden aangepast.
+      IF splitsen
+      THEN
+         UPDATE   cnt_contract
+            SET   cnt_contract_looptijd_tot = p_datum - 1,
+                  cnt_contract_versie = versie1,
+                  cnt_contract_kosten = COALESCE(p_amount, cnt_contract_kosten)
+          WHERE   cnt_contract_key = p_key;
+      ELSE
+         UPDATE   cnt_contract
+            SET   cnt_contract_versie = versie1
+         WHERE    cnt_contract_key = p_key;
+      END IF;
 
-      fac.trackaction ('CNTUPD', p_key, p_user, NULL, NULL);
+      tracking := lcl.l('lcl_cnt_is_cntupd') || CHR(10) || lcl.l('lcl_cnt_enddate') || ': ' || TO_CHAR(eind1, 'dd-mm-yyyy') || lcl.l('lcl_trackto') || TO_CHAR((p_datum - 1), 'dd-mm-yyyy');
+      IF (p_amount IS NOT NULL AND p_amount <> amount1)
+      THEN
+         tracking := tracking || CHR(10) || lcl.l('lcl_cnt_contract_sum') || ': ' || amount1 || lcl.l('lcl_trackto') || p_amount;
+      END IF;
+      fac.trackaction ('CNTUPD', p_key, p_user, NULL, tracking);
 
       -- de basis is gelegd, nu de aanhang meekopieren
       -- flexkenmerken
@@ -582,6 +704,82 @@ CREATE OR REPLACE PACKAGE BODY cnt AS
        -- In geen enkele omgeving is cnt_contract_key in deze tabel ingevuld.
    END;
 
+   PROCEDURE notifycontractbedrijven (pcntkey               NUMBER,
+                                      ptrackingkey          NUMBER,
+                                      pnotidelay            NUMBER DEFAULT NULL)
+   AS
+   BEGIN
+      FOR bedrijfrec
+         IN (SELECT b.prs_bedrijf_key,
+                     l.alg_locatie_key,
+                     CASE WHEN b.prs_bedrijf_key = c.cnt_prs_bedrijf_key THEN 'C' ELSE 'G' END bedrijfadres_type,
+                     cnt_contract_nummer_intern,
+                     COALESCE (l.alg_locatie_email, ins_discipline_email)
+               FROM prs_bedrijf         b,
+                     cnt_contract        c,
+                     ins_tab_discipline  d,
+                     alg_locatie         l,
+                     (  SELECT cnt_contract_key,
+                              DECODE (MIN (cp1.cnt_alg_plaats_code),
+                                       'L', MIN (cp1.cnt_alg_plaats_key),
+                                       MIN (alg_boom.alg_locatie_key))
+                                    cnt_locatie_key
+                           FROM cnt_contract_plaats cp1,
+                              (SELECT alg_r.alg_ruimte_key,
+                                       alg_r.alg_verdieping_key,
+                                       alg_v.alg_gebouw_key,
+                                       alg_g.alg_locatie_key,
+                                       'R' alg_type
+                                 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
+                                 UNION
+                                 SELECT TO_NUMBER (NULL),
+                                       alg_v.alg_verdieping_key,
+                                       alg_v.alg_gebouw_key,
+                                       alg_g.alg_locatie_key,
+                                       'V' alg_type
+                                 FROM alg_verdieping alg_v, alg_gebouw alg_g
+                                 WHERE alg_v.alg_gebouw_key = alg_g.alg_gebouw_key
+                                 UNION
+                                 SELECT TO_NUMBER (NULL),
+                                       TO_NUMBER (NULL),
+                                       alg_g.alg_gebouw_key,
+                                       alg_g.alg_locatie_key,
+                                       'G' alg_type
+                                 FROM alg_gebouw alg_g) alg_boom
+                        WHERE     cp1.cnt_alg_plaats_key =
+                                    CASE cp1.cnt_alg_plaats_code
+                                       WHEN 'G' THEN alg_boom.alg_gebouw_key(+)
+                                       WHEN 'V' THEN alg_boom.alg_verdieping_key(+)
+                                       WHEN 'R' THEN alg_boom.alg_ruimte_key(+)
+                                    END
+                              AND cp1.cnt_alg_plaats_code = alg_boom.alg_type(+)
+                              AND cp1.cnt_contract_plaats_verwijder IS NULL
+                     GROUP BY cnt_contract_key
+                        HAVING COUNT (1) = 1) cp
+               WHERE     c.cnt_contract_key = pcntkey
+                     AND d.ins_discipline_key = c.ins_discipline_key
+                     AND c.cnt_contract_key = cp.cnt_contract_key(+)
+                     AND cp.cnt_locatie_key = l.alg_locatie_key(+)
+                     AND (   b.prs_bedrijf_key = c.cnt_prs_bedrijf_key  -- type 'C'
+                           OR EXISTS
+                                 (SELECT 1
+                                    FROM prs_bedrijfadres ba
+                                    WHERE ba.prs_bedrijf_key = b.prs_bedrijf_key
+                                      AND ba.prs_bedrijfadres_startdatum <= SYSDATE
+                                      AND ba.prs_bedrijfadres_type = 'G')))
+      LOOP
+         fac.notifybedrijf (pbedrijf_key          => bedrijfrec.prs_bedrijf_key,
+                            pbedrijfadres_type    => bedrijfrec.bedrijfadres_type,
+                            prefkey               => pcntkey,
+                            ptrackingkey          => ptrackingkey,
+                            preference            => bedrijfrec.cnt_contract_nummer_intern,
+                            plocatie_key          => bedrijfrec.alg_locatie_key,
+                            pnotidelay            => pnotidelay);
+      END LOOP;
+   END;
+
 END cnt;
 /
 

CNT/CNT_TAB.SRC

@@ -82,6 +82,10 @@ CREATE_TABLE(cnt_disc_params, 0)
         DEFAULT 0
         NOT NULL,
     cnt_disc_params_huurder /* indien Bedrijf: Huurders? */
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    cnt_disc_params_opties
         NUMBER(1)
         DEFAULT 0
         NOT NULL
@@ -112,6 +116,10 @@ CREATE_TABLE(cnt_contract,0)
 ,  cnt_contract_looptijd_tot
    DATE
    CONSTRAINT cnt_c_cnt_contract_tot CHECK(cnt_contract_looptijd_tot IS NOT NULL)
+,  cnt_contract_inactiveren  /* Automatisch sluiten na einddatum (0=nee, 1=ja) */
+   NUMBER(1)
+   DEFAULT 0
+   CONSTRAINT cnt_r_cnt_contract_inactiveren CHECK(cnt_contract_inactiveren IN (0,1))
 ,  cnt_contract_kosten
    NUMBER(11,2)
 ,  cnt_contract_termijnkosten
@@ -184,7 +192,10 @@ CREATE_TABLE(cnt_contract,0)
 ,  cnt_contract_verlenging  /* 00=vragen nee (0), 01=vragen ja (1), 10=vast nee (2), 11=vast ja (3) */
    NUMBER(1)
    DEFAULT 2
-   CONSTRAINT cnt_r_cnt_contract_verlenging CHECK(cnt_contract_verlenging IN (0,1,2,3))
+   CONSTRAINT cnt_r_cnt_contract_verlenging CHECK(cnt_contract_verlenging IN (0,1,2,3,4,5,6,7))
+,  cnt_contract_verleng_termijn
+   NUMBER(10)
+   CONSTRAINT cnt_r_cnt_termijn_key5 REFERENCES cnt_termijn(cnt_termijn_key)
 ,  cnt_contract_approved
    NUMBER(11,2)
 ,  cnt_contract_teverzenden
@@ -293,6 +304,8 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
       VARCHAR2(50)
 ,  cnt_srtkenmerk_upper
       VARCHAR2(50)
+,  cnt_srtkenmerk_code
+      VARCHAR2(60)
 ,  cnt_srtkenmerk_dimensie
       VARCHAR2(10)
 ,  cnt_srtkenmerk_kenmerktype
@@ -319,7 +332,6 @@ CREATE_TABLE(cnt_srtkenmerk, 0)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_omschr    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_srtkenmerk_omschrijving    CHECK(cnt_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT cnt_u_cnt_srtkenmerk_upper    UNIQUE(cnt_srtkenmerk_upper, cnt_srtkenmerk_verwijder)
-,  CONSTRAINT cnt_c_cnt_srtkenmerk_kenmtype  CHECK(cnt_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_systeem   CHECK(cnt_srtkenmerk_systeem IS NULL
                                                 OR cnt_srtkenmerk_systeem = 1)
 ,  CONSTRAINT cnt_c_cnt_srtkenmerk_lengte    CHECK(cnt_srtkenmerk_lengte >= 1
@@ -342,6 +354,8 @@ CREATE_TABLE(cnt_kenmerk, 0)
       VARCHAR2(1)
 ,  cnt_kenmerk_omschrijving
       VARCHAR2(50)  /* optionele overrule van srtkenmerk_omschrijving */
+,  cnt_kenmerk_code
+      VARCHAR2(60)
 ,  cnt_kenmerk_verplicht
       NUMBER(1)
 ,  cnt_kenmerk_groep
@@ -349,6 +363,9 @@ CREATE_TABLE(cnt_kenmerk, 0)
       DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_toonbaar
       NUMBER(1)
+,  cnt_kenmerk_inlijst
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  cnt_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
@@ -366,6 +383,9 @@ CREATE_TABLE(cnt_kenmerk, 0)
       DEFAULT NULLDATUM
 ,  cnt_kenmerk_default VARCHAR2(4000)
 ,  cnt_kenmerk_show_expr VARCHAR2(4000)
+,  fac_functie_key
+      NUMBER(10)
+      CONSTRAINT fac_r_cnt_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
 ,  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)

CNT/CNT_TRI.SRC

@@ -54,7 +54,7 @@ BEGIN
     THEN
       CHECK_KEY_REFERENCE(alg_v_aanweziglocatie      , alg_locatie_key      , :new.cnt_alg_plaats_key, 'cnt_m003');
     ELSE
-      APPLICATION_ERROR(-20000, 'cnt_m008');
+      raise_application_error(-20000, 'cnt_m008');
     END IF;
   END IF;
 END;
@@ -74,7 +74,7 @@ BEGIN
   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');
+    raise_application_error(-20000,'cnt_m002');
   ELSE
     UPDATE_PRIMARY_KEY(cnt_contract_key,cnt_s_cnt_contract_key);
     IF :new.cnt_contract_nummer_intern IS NULL
@@ -133,26 +133,28 @@ BEFORE INSERT OR UPDATE ON cnt_srtkenmerk
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(cnt_srtkenmerk_key, cnt_s_cnt_srtkenmerk_key);
-  UPDATE_UPPER(cnt_srtkenmerk_omschrijving, cnt_srtkenmerk_upper,cnt_srtkenmerk);
+  UPDATE_UPPER(cnt_srtkenmerk_omschrijving, cnt_srtkenmerk_upper, cnt_srtkenmerk);
+  UPDATE_UPPER(cnt_srtkenmerk_code, cnt_srtkenmerk_code, cnt_srtkenmerk);
+
   UPDATE_AANMAAKDATUM(cnt_srtkenmerk, cnt_srtkenmerk_aanmaak);
   IF (:new.cnt_srtkenmerk_verwijder IS NOT NULL AND :old.cnt_srtkenmerk_verwijder IS NULL AND
       :new.cnt_srtkenmerk_systeem = 1)
   THEN
-    raise_application_error(-20003, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
+    raise_application_error(-20000, 'CNT_C_CNT_SRTKENMERK_SYSTEEM');
   END IF;
   --
-  IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.cnt_srtkenmerk_lengte IS NULL
+  IF :new.cnt_srtkenmerk_kenmerktype IN ('C', 'N') 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 IN ('N', 'B')
+  IF :new.cnt_srtkenmerk_kenmerktype = 'N'
   AND :new.cnt_srtkenmerk_lengte > 20
   THEN
      :new.cnt_srtkenmerk_lengte := 20;
   END IF;
   --
-  IF  :new.cnt_srtkenmerk_kenmerktype IN ('N', 'B')
+  IF  :new.cnt_srtkenmerk_kenmerktype = 'N'
   AND :old.cnt_srtkenmerk_key IS NOT NULL
   THEN
     IF :old.cnt_srtkenmerk_nmin <> :new.cnt_srtkenmerk_nmin
@@ -213,6 +215,7 @@ BEGIN
    -- FSN#13902: we tolereren het achteraf verplicht maken
   UPDATE_PRIMARY_KEY(cnt_kenmerk_key, cnt_s_cnt_kenmerk_key);
   UPDATE_AANMAAKDATUM(cnt_kenmerk, cnt_kenmerk_aanmaak);
+  UPDATE_UPPER(cnt_kenmerk_code, cnt_kenmerk_code, cnt_kenmerk);
 END;
 /
 
@@ -277,7 +280,7 @@ BEGIN
         THEN
           APPLICATION_ERROR_GOTO(-20004, 'cnt_m241,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
         END IF;
-      ELSIF SrtKenmerkType IN ('N', 'B')
+      ELSIF SrtKenmerkType = 'N'
       THEN
         -- NUMBER
         -- Controleer of er een numerieke waarde ingevuld is.
@@ -296,7 +299,7 @@ BEGIN
           THEN FormatMask := REPLACE(FormatMask, '9', '#');
                FormatMask := REPLACE(FormatMask, '0', '#');
                FormatMask := REPLACE(FormatMask, 'D', '.');
-               raise_application_error(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask);
+               APPLICATION_ERROR_GOTO(-20004,'cnt_m242,'||SrtKenmerkOmschr||','||FormatMask);
         END;
         -- Controleer of de waarde binnen NMin en NMax ligt.
         IF (SrtKenmerkNMin IS NOT NULL AND NumberWaarde < SrtKenmerkNMin)

CNT/CNT_VIE.SRC

@@ -63,323 +63,6 @@ WHERE  R.alg_verdieping_key = V.alg_verdieping_key
 AND    V.alg_gebouw_key     = G.alg_gebouw_key
 AND    G.alg_locatie_key    = L.alg_locatie_key;
 
-
-
-CREATE_VIEW(cnt_v_qvw_algemeen, 0)
-(
-   contract_key,
-   internnr,
-   externnr,
-   beschrijving,
-   discipline_key,
-   contractsoort,
-   typecontract_key,
-   typecontract,
-   ingangsdatum,
-   rappeldatum,
-   rappeltermijn,
-   opzegdatum,
-   opzegtermijn,
-   einddatum,
-   eigenaar,
-   beheerder,
-   uitvoerder,
-   contactpersoon,
-   kostenplaats,
-   termijnbedrag,
-   contractbedrag,
-   locatie_key,
-   locatie_code,
-   gebouw_key,
-   gebouw_code,
-   terreinsector_key,
-   terreinsector_code,
-   verdieping_key,
-   verdieping_omschrijving,
-   ruimte_key,
-   ruimte_nr
-)
-AS
-   SELECT basis.contract_key,
-          basis.internnr,
-          basis.externnr,
-          basis.beschrijving,
-          basis.discipline_key,
-          basis.contractsoort,
-          basis.typecontract_key,
-          basis.typecontract,
-          basis.ingangsdatum,
-          basis.rappeldatum,
-          basis.rappeltermijn,
-          basis.opzegdatum,
-          basis.opzegtermijn,
-          basis.einddatum,
-          basis.eigenaar,
-          basis.beheerder,
-          basis.uitvoerder,
-          basis.contactpersoon,
-          basis.kostenplaats,
-          basis.termijnbedrag,
-          basis.contractbedrag,
-          plaats.locatie_key,
-          plaats.locatie_code,
-          plaats.gebouw_key,
-          plaats.gebouw_code,
-          plaats.terreinsector_key,
-          plaats.terreinsector_code,
-          plaats.verdieping_key,
-          plaats.verdieping_omschrijving,
-          plaats.ruimte_key,
-          plaats.ruimte_nr
-     FROM    (SELECT cc.cnt_contract_key contract_key,
-                     cc.cnt_contract_nummer_intern internnr,
-                     cc.cnt_contract_nummer externnr,
-                     cc.cnt_contract_omschrijving beschrijving,
-                     cc.ins_discipline_key discipline_key,
-                     cs.ins_discipline_omschrijving contractsoort,
-                     tc.cnt_typecontract_key typecontract_key,
-                     tc.cnt_typecontract_omschrijving typecontract,
-                     TRUNC (COALESCE (cc.cnt_contract_looptijd_van, SYSDATE)) ingangsdatum,
-                     TRUNC(COALESCE (cnt.cnt_getrappeldatum (cc.cnt_contract_key),
-                                     COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)))
-                        rappeldatum,
-                     rt.cnt_termijn_omschrijving rappeltermijn,
-                     TRUNC(COALESCE (cnt.cnt_getopzegdatum (cc.cnt_contract_key),
-                                     COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)))
-                        opzegdatum,
-                     ot.cnt_termijn_omschrijving opzegtermijn,
-                     TRUNC (COALESCE (cc.cnt_contract_looptijd_tot, SYSDATE)) einddatum,
-                     (SELECT d.prs_afdeling_naam6
-                        FROM prs_v_aanwezigafdeling d
-                       WHERE d.prs_afdeling_key = cc.prs_afdeling_key_eig)
-                        eigenaar,
-                     (SELECT p.prs_perslid_naam
-                             || DECODE (NVL (p.prs_perslid_voorletters, ''),
-                                        '', '',
-                                        ', ' || p.prs_perslid_voorletters)
-                             || DECODE (NVL (p.prs_perslid_tussenvoegsel, ''),
-                                        '', '',
-                                        ' ' || p.prs_perslid_tussenvoegsel)
-                             || DECODE (NVL (p.prs_perslid_voornaam, ''),
-                                        '', '',
-                                        ' (' || p.prs_perslid_voornaam || ')')
-                        FROM prs_perslid p
-                       WHERE p.prs_perslid_key = cc.prs_perslid_key_beh)
-                        beheerder,
-                     (SELECT b.prs_bedrijf_naam
-                        FROM prs_bedrijf b
-                       WHERE b.prs_bedrijf_key = cc.cnt_prs_bedrijf_key)
-                        uitvoerder,
-                     (SELECT c.prs_contactpersoon_naam
-                             || DECODE (NVL (c.prs_contactpersoon_voorletters, ''),
-                                        '', '',
-                                        ', ' || c.prs_contactpersoon_voorletters)
-                             || DECODE (NVL (c.prs_contactpersoon_tussenv, ''),
-                                        '', '',
-                                        ' ' || c.prs_contactpersoon_tussenv)
-                             || DECODE (NVL (c.prs_contactpersoon_voornaam, ''),
-                                        '', '',
-                                        ' (' || c.prs_contactpersoon_voornaam || ')')
-                                prs_contactpersoon_naam
-                        FROM prs_contactpersoon c
-                       WHERE c.prs_contactpersoon_key = cc.prs_contactpersoon_key)
-                        contactpersoon,
-                     (SELECT k.prs_kostenplaats_nr || ' ' || k.prs_kostenplaats_omschrijving
-                        FROM prs_kostenplaats k
-                       WHERE k.prs_kostenplaats_key = cc.prs_kostenplaats_key)
-                        kostenplaats,
-                     cc.cnt_contract_termijnkosten termijnbedrag,
-                     cc.cnt_contract_kosten contractbedrag
-                FROM cnt_contract cc,
-                     cnt_discipline cs,
-                     cnt_disc_params dp,
-                     cnt_typecontract tc,
-                     cnt_termijn rt,
-                     cnt_termijn ot
-               WHERE     cc.ins_discipline_key = cs.ins_discipline_key
-                     AND cc.ins_discipline_key = dp.cnt_ins_discipline_key
-                     AND dp.cnt_srtcontract_type = tc.cnt_typecontract_key
-                     AND cc.cnt_contract_rappeltermijn = rt.cnt_termijn_key
-                     AND cc.cnt_contract_opzegtermijn = ot.cnt_termijn_key
-                     AND cc.cnt_contract_verwijder IS NULL) basis
-          LEFT JOIN
-             (SELECT cp.cnt_contract_key contract_key,
-                     DECODE (
-                        cp.cnt_alg_plaats_code,
-                        'L',
-                        cp.cnt_alg_plaats_key,
-                        'G',
-                        (SELECT l.alg_locatie_key
-                           FROM alg_gebouw g, alg_locatie l
-                          WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key
-                                AND g.alg_locatie_key = l.alg_locatie_key),
-                        'T',
-                        (SELECT l.alg_locatie_key
-                           FROM alg_terreinsector t, alg_locatie l
-                          WHERE t.alg_terreinsector_key = cp.cnt_alg_plaats_key
-                                AND t.alg_locatie_key = l.alg_locatie_key),
-                        'V',
-                        (SELECT l.alg_locatie_key
-                           FROM alg_gebouw g, alg_locatie l, alg_verdieping v
-                          WHERE     v.alg_verdieping_key = cp.cnt_alg_plaats_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key
-                                AND g.alg_locatie_key = l.alg_locatie_key),
-                        'R',
-                        (SELECT l.alg_locatie_key
-                           FROM alg_gebouw g,
-                                alg_locatie l,
-                                alg_verdieping v,
-                                alg_ruimte r
-                          WHERE     r.alg_ruimte_key = cp.cnt_alg_plaats_key
-                                AND v.alg_verdieping_key = r.alg_verdieping_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key
-                                AND g.alg_locatie_key = l.alg_locatie_key))
-                        locatie_key,
-                     DECODE (
-                        cp.cnt_alg_plaats_code,
-                        'L',
-                        (SELECT l.alg_locatie_code
-                           FROM alg_locatie l
-                          WHERE l.alg_locatie_key = cp.cnt_alg_plaats_key),
-                        'G',
-                        (SELECT l.alg_locatie_code
-                           FROM alg_gebouw g, alg_locatie l
-                          WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key
-                                AND g.alg_locatie_key = l.alg_locatie_key),
-                        'T',
-                        (SELECT l.alg_locatie_code
-                           FROM alg_terreinsector t, alg_locatie l
-                          WHERE t.alg_terreinsector_key = cp.cnt_alg_plaats_key
-                                AND t.alg_locatie_key = l.alg_locatie_key),
-                        'V',
-                        (SELECT l.alg_locatie_code
-                           FROM alg_gebouw g, alg_locatie l, alg_verdieping v
-                          WHERE     v.alg_verdieping_key = cp.cnt_alg_plaats_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key
-                                AND g.alg_locatie_key = l.alg_locatie_key),
-                        'R',
-                        (SELECT l.alg_locatie_code
-                           FROM alg_gebouw g,
-                                alg_locatie l,
-                                alg_verdieping v,
-                                alg_ruimte r
-                          WHERE     r.alg_ruimte_key = cp.cnt_alg_plaats_key
-                                AND v.alg_verdieping_key = r.alg_verdieping_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key
-                                AND g.alg_locatie_key = l.alg_locatie_key))
-                        locatie_code,
-                     DECODE (cp.cnt_alg_plaats_code, 'G', cp.cnt_alg_plaats_key, NULL) gebouw_key,
-                     DECODE (
-                        cp.cnt_alg_plaats_code,
-                        'G',
-                        (SELECT g.alg_gebouw_code
-                           FROM alg_gebouw g
-                          WHERE g.alg_gebouw_key = cp.cnt_alg_plaats_key),
-                        'V',
-                        (SELECT g.alg_gebouw_code
-                           FROM alg_gebouw g, alg_verdieping v
-                          WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key),
-                        'R',
-                        (SELECT g.alg_gebouw_code
-                           FROM alg_gebouw g, alg_verdieping v, alg_ruimte r
-                          WHERE     r.alg_ruimte_key = cp.cnt_alg_plaats_key
-                                AND v.alg_verdieping_key = r.alg_verdieping_key
-                                AND g.alg_gebouw_key = v.alg_gebouw_key),
-                        NULL)
-                        gebouw_code,
-                     DECODE (cp.cnt_alg_plaats_code, 'T', cp.cnt_alg_plaats_key, NULL)
-                        terreinsector_key,
-                     DECODE (cp.cnt_alg_plaats_code,
-                             'T', (SELECT t.alg_terreinsector_code
-                                     FROM alg_terreinsector t
-                                    WHERE t.alg_terreinsector_key = cp.cnt_alg_plaats_key),
-                             NULL)
-                        terreinsector_code,
-                     DECODE (cp.cnt_alg_plaats_code, 'V', cp.cnt_alg_plaats_key, NULL)
-                        verdieping_key,
-                     DECODE (
-                        cp.cnt_alg_plaats_code,
-                        'V',
-                        (SELECT alg_verdieping_omschrijving
-                           FROM alg_verdieping v
-                          WHERE v.alg_verdieping_key = cp.cnt_alg_plaats_key),
-                        'R',
-                        (SELECT alg_verdieping_omschrijving
-                           FROM alg_verdieping v, alg_ruimte r
-                          WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key
-                                AND v.alg_verdieping_key = r.alg_verdieping_key),
-                        NULL)
-                        verdieping_omschrijving,
-                     DECODE (cp.cnt_alg_plaats_code, 'R', cp.cnt_alg_plaats_key, NULL) ruimte_key,
-                     DECODE (cp.cnt_alg_plaats_code,
-                             'R', (SELECT alg_ruimte_nr
-                                     FROM alg_ruimte r
-                                    WHERE r.alg_ruimte_key = cp.cnt_alg_plaats_key),
-                             NULL)
-                        ruimte_nr
-                FROM cnt_contract_plaats cp
-               WHERE cp.cnt_contract_plaats_verwijder IS NULL) plaats
-          ON basis.contract_key = plaats.contract_key;
-
-
--- Een eerste versie
-CREATE_VIEW(cnt_v_api_contracten, 1)
-AS
-    SELECT c.cnt_contract_key contract_key,
-           c.cnt_contract_nummer contract_nummer,
-           c.cnt_contract_omschrijving omschrijving,
-           c.cnt_contract_looptijd_van looptijd_van,
-           c.cnt_contract_looptijd_tot looptijd_tot,
-           c.cnt_contract_kosten kosten,
-           c.cnt_contract_nummer_intern nummer_intern,
-           c.cnt_contract_korting korting,
-           c.cnt_contract_contact_persoon contactpersoon,
-           c.cnt_contract_document beschrijving,
-           c.cnt_contract_status status,
-           c.cnt_contract_termijnkosten termijnkosten,
-           c.cnt_contract_opmerking opmerking,
-           c.cnt_contract_versie versie,
-           c.cnt_contract_verlenging verlenging,
-           cm.cnt_contract_nummer mantelcontract,
-           b.prs_bedrijf_naam bedrijf,
-           a1.prs_afdeling_naam afdeling,
-           d.ins_discipline_omschrijving discipline,
-           p1.prs_perslid_naam_full eigenaar,
-           p2.prs_perslid_naam_full beheerder,
-           kp.prs_kostenplaats_omschrijving,
-           ks.prs_kostensoort_oms kostensoort,
-           t1.cnt_termijn_omschrijving opzegtermijn,
-           pd.prs_dienst_omschrijving dienst,
-           cp.prs_contactpersoon_naam contactpersoon_extern,
-           c.ins_discipline_key fclt_3d_discipline_key,
-           c.cnt_prs_afdeling_key fclt_3d_afdeling_key
-      FROM cnt_contract c,
-           cnt_contract cm,
-           prs_bedrijf b,
-           prs_afdeling a1,
-           ins_tab_discipline d,
-           prs_v_perslid_fullnames_all p1,
-           prs_v_perslid_fullnames_all p2,
-           prs_kostenplaats kp,
-           prs_kostensoort ks,
-           cnt_termijn t1,
-           prs_dienst pd,
-           prs_contactpersoon cp
-     WHERE     c.cnt_prs_bedrijf_key = b.prs_bedrijf_key(+)
-           AND c.cnt_prs_afdeling_key = a1.prs_afdeling_key(+)
-           AND c.prs_contactpersoon_key = cp.prs_contactpersoon_key(+)
-           AND c.ins_discipline_key = d.ins_discipline_key(+)
-           AND c.prs_perslid_key_eig = p1.prs_perslid_key(+)
-           AND c.prs_perslid_key_beh = p2.prs_perslid_key(+)
-           AND c.prs_kostenplaats_key = kp.prs_kostenplaats_key(+)
-           AND c.prs_kostensoort_key = ks.prs_kostensoort_key(+)
-           AND c.cnt_contract_mantel_key = cm.cnt_contract_key(+)
-           AND c.cnt_contract_opzegtermijn = t1.cnt_termijn_key
-           AND c.prs_dienst_key = pd.prs_dienst_key(+)
-           AND c.cnt_contract_verwijder IS NULL;
-
-/* Formatted on 17-9-2013 16:56:26 (QP5 v5.115.810.9015) */
 CREATE_VIEW(cnt_v_rap_expimp_cnt, 0)
 (
    hide_f_result_order,
@@ -454,8 +137,7 @@ AS
                                                           'N',
                                                           'R',
                                                           'S',
-                                                          'X',
-                                                          'B')
+                                                          'X')
                                                 AND EXISTS
                                                       (SELECT   1
                                                          FROM   cnt_kenmerk k
@@ -474,6 +156,11 @@ AS
                                           sk.fac_kenmerkdomein_key,
                                           ck.cnt_kenmerkcontract_waarde
                                        ),
+                                       'r',
+                                       flx.getdomeinwaarde (
+                                          sk.fac_kenmerkdomein_key,
+                                          ck.cnt_kenmerkcontract_waarde
+                                       ),
                                        'S',
                                        flx.getdomeinwaarde (
                                           sk.fac_kenmerkdomein_key,
@@ -762,7 +449,9 @@ CREATE_VIEW(cnt_v_udr_contract, 1)
    contractpartij,
    contractafdeling,
    contracteigenaar,
+   contracteigenaar_key,
    contractbeheerder,
+   contractbeheerder_key,
    begindatum,
    einddatum,
    opzegdatum,
@@ -813,9 +502,11 @@ SELECT c.cnt_contract_nummer_intern,
        (SELECT prs_perslid_naam_full
           FROM prs_v_perslid_fullnames_all
          WHERE prs_perslid_key = prs_perslid_key_eig),
+       prs_perslid_key_eig contracteigenaar_key,
        (SELECT prs_perslid_naam_full
           FROM prs_v_perslid_fullnames_all
          WHERE prs_perslid_key = prs_perslid_key_beh),
+       prs_perslid_key_beh contractbeheerder_key,
        c.cnt_contract_looptijd_van begindatum,
        c.cnt_contract_looptijd_tot einddatum,
        cnt.cnt_getopzegdatum (c.cnt_contract_key) cnt_opzegdatum,
@@ -1079,6 +770,7 @@ AS
                    lcl.x('cnt_srtkenmerk_omschrijving', skm.cnt_srtkenmerk_key, cnt_srtkenmerk_omschrijving)) kenmerk,
           CASE
              WHEN    skm.cnt_srtkenmerk_kenmerktype = 'R'
+                  OR skm.cnt_srtkenmerk_kenmerktype = 'r'
                   OR skm.cnt_srtkenmerk_kenmerktype = 'S'
              THEN
                 flx.getdomeinwaarde (skm.fac_kenmerkdomein_key,
@@ -1093,7 +785,6 @@ AS
              waarde_c,
           CASE
              WHEN skm.cnt_srtkenmerk_kenmerktype = 'N'
-                  OR skm.cnt_srtkenmerk_kenmerktype = 'B'
              THEN
                 TO_NUMBER (km.cnt_kenmerkcontract_waarde)
              ELSE
@@ -1107,7 +798,15 @@ AS
              ELSE
                 TO_DATE (NULL)
           END
-             waarde_d
+             waarde_d,
+       CASE
+          WHEN skm.cnt_srtkenmerk_kenmerktype IN ('R', 'r', 'S')
+          THEN
+             flx.getdomeinwaarde (skm.fac_kenmerkdomein_key, km.cnt_kenmerkcontract_waarde)
+          ELSE
+             km.cnt_kenmerkcontract_waarde
+       END
+          waarde_x
      FROM cnt_v_udr_contract c,
           cnt_kenmerkcontract km,
           cnt_kenmerk K,
@@ -1119,7 +818,5 @@ AS
           AND km.cnt_kenmerk_key = k.cnt_kenmerk_key(+)
           AND k.cnt_srtkenmerk_key = skm.cnt_srtkenmerk_key(+);
 
-
 REGISTERRUN('$Id$')
-
 #endif // CNT

COMSQL.H

@@ -624,6 +624,9 @@ CEIL
 
 #define DEF_FAC_MESSAGE(a,b,c)    INSERT INTO fac_message VALUES (a,b)
 
+// Default Setup volgens;
+#define DEF_SETUP(n, f) INSERT INTO ini_setup (ini_setup_name, ini_setup_name_full) VALUES (UPPER(n), f)
+
 #define UPD_FAC_FUNCTIE2(c, o, m, l, d, g, i) UPDATE fac_functie SET fac_functie_omschrijving=o,fac_functie_module=m,fac_functie_min_level=l, fac_functie_discipline=d, fac_functie_groep=g, fac_functie_info=i) WHERE fac_functie_code=c
 #define DEF_FAC_FUNCTIE3(c, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c, 'lcl_' || c, m, l, d, g, 'lcl_' || c || '_info')
 #define DEF_FAC_FUNCTIE3x(c, x, m, l, d, g) INSERT INTO fac_functie (fac_functie_code, fac_functie_omschrijving,fac_functie_module,fac_functie_min_level, fac_functie_discipline, fac_functie_groep, fac_functie_info) VALUES(c||x, 'lcl_' || c ||x, m, l, d, g, 'lcl_' || c || x ||'_info')
@@ -633,45 +636,61 @@ CEIL
 #define DEF_MENUKOPV(g, v, s, i) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_image, fac_menu_level) VALUES (v, s, g, i, 1)
 #define DEF_MENUITEM(g, l, i, m, u, s, d, f, rw, x, img) INSERT INTO fac_menuitems (fac_menuitems_groep, fac_menuitems_label, fac_menuitems_oms, fac_menuitems_module, fac_menuitems_url, fac_menuitems_srtdisc, fac_menuitems_disc, fac_functie_key, fac_menuitems_rw, fac_menuitems_default, fac_menuitems_image) SELECT g, l, i, m, u, s, d, fac_functie_key, rw, x, img FROM fac_functie WHERE fac_functie_code=f
 
-#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_functie_key) SELECT v, l, i, u, g, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
+#define DEF_MENUENTRY(g, v, l, i, m, u, s, d, f) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_info, fac_menu_alturl, fac_menu_altgroep, fac_menu_level, fac_functie_key) SELECT v, l, i, u, g, 2, fac_functie_key FROM fac_functie WHERE fac_functie_code = f AND NOT EXISTS (SELECT '' FROM fac_menu WHERE fac_menu_alturl = u)
 
 #define DEF_SETTING(m, n, d, t) INSERT INTO fac_setting (fac_setting_module, fac_setting_name, fac_setting_default, fac_setting_description) VALUES (m, n, d, t)
-#define DEF_BOOKMARK(x, p, q)INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
+#define DEF_BOOKMARK(x, p, q) INSERT INTO fac_bookmark (fac_bookmark_id, fac_bookmark_naam, fac_bookmark_xmlnode, fac_bookmark_path, fac_bookmark_query) VALUES (DBMS_RANDOM.string ('a', 16), x, x, p, q)
 // We begonnen te denken dat het om statussen ging, maar het werd meer. De naam van de macro bleef echter
-#define DEF_STATUS(x, c, t)INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
+#define DEF_STATUS(x, c, t) INSERT INTO fac_code2label (fac_code2label_domein ,fac_code2label_code, fac_code2label_label) VALUES (x, c, t)
 
 // Voeg (nieuwe, default) menukop met label a van groep g en level l toe na bestaande menuoptie met label b, increment n
 #define MENU_INSKOP_AFTER(a, b, g, n) INSERT INTO fac_menu (fac_menu_volgnr, fac_menu_altlabel, fac_menu_altgroep, fac_menu_level) SELECT fac_menu_volgnr + n, a, g, 1 FROM fac_menu m WHERE m.fac_menuitems_key = (SELECT MAX (mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // Voeg (nieuwe, default) menuoptie met label a toe na de eerste bestaande menukop met label b, increment n
-#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, MIN (m.fac_menu_volgnr) + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
+#define MENU_INS_AFTERKOP(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, MIN (m.fac_menu_volgnr) + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX (mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menu_altlabel = b GROUP BY i.fac_menuitems_key
 // Voeg (nieuwe, default) menuoptie met label a toe na bestaande menuoptie met label b, increment n
-#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_volgnr) SELECT i.fac_menuitems_key, m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
+#define MENU_INS_AFTER(a, b, n) INSERT INTO fac_menu (fac_menuitems_key, fac_menu_altlabel, fac_menu_alturl, fac_menu_altgroep, fac_menu_image, fac_menu_info, fac_menu_volgnr, fac_menu_level) SELECT i.fac_menuitems_key, i.fac_menuitems_label, i.fac_menuitems_url, i.fac_menuitems_groep, i.fac_menuitems_image, i.fac_menuitems_oms, m.fac_menu_volgnr + n, 2 FROM fac_menuitems i, fac_menu m WHERE i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a) AND m.fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 // poging 1
 #define MENU_MOV_AFTER(b, a, n) UPDATE fac_menu SET fac_menu_volgnr = (SELECT m.fac_menu_volgnr + n FROM fac_menuitems i, fac_menu m WHERE m.fac_menuitems_key=i.fac_menuitems_key AND i.fac_menuitems_key = (SELECT MAX(mmi.fac_menuitems_key) FROM fac_menuitems mmi WHERE mmi.fac_menuitems_label = a)) WHERE fac_menuitems_key = (SELECT MAX(mm.fac_menuitems_key) FROM fac_menu mm, fac_menuitems mmi WHERE mm.fac_menuitems_key = mmi.fac_menuitems_key AND mmi.fac_menuitems_label = b)
 
+
+// Default widget's volgens;
+#define DEF_WIDGET(t, n, c, u, p) INSERT INTO fac_widget (fac_widget_type, fac_widget_naam, fac_widget_content, fac_widget_url, fac_widget_public) VALUES (UPPER(t), n, c, u, p)
+
 // NOT_NULL(): Columnconstraint ipv. NOT NULL, De melding ORA-1400: mandatory (NOT NULL)...
 // geeft de constraintnaam niet, zodat de melding niet vertaald kan worden.
 // De CHECK() geeft het wel, dus wordt deze gebruikt.
 #define NOT_NULL(column, constraint_name) CONSTRAINT constraint_name CHECK(column IS NOT NULL)
 
-#define DEF_IMPORT(aut, code, oms_nl, oms_en)                            \
+#define DEF_IMPORT2(aut, code, oms_nl, oms_en, csv_typ, charset, folder, files)   \
 DECLARE                                                                 ~\
     imp_key NUMBER(10);                                                 ~\
 BEGIN                                                                   ~\
-    INSERT INTO fac_import_app                                          ~\
-           ( fac_import_app_code, fac_import_app_oms, fac_functie_key ) ~\
-    VALUES ( UPPER(code), oms_nl                                        ~\
-           , (SELECT fac_functie_key FROM fac_functie                   ~\
-               WHERE fac_functie_code = aut                             ~\
-             )                                                          ~\
-           )                                                            ~\
+    INSERT INTO fac_import_app (fac_import_app_code,                    ~\
+                                fac_import_app_oms,                     ~\
+                                fac_functie_key,                        ~\
+                                fac_import_app_csv,                     ~\
+                                fac_import_app_charset,                 ~\
+                                fac_import_app_folder,                  ~\
+                                fac_import_app_files)                   ~\
+     VALUES (UPPER (code),                                              ~\
+             oms_nl,                                                    ~\
+             (SELECT fac_functie_key                                    ~\
+                FROM fac_functie                                        ~\
+               WHERE fac_functie_code = aut),                           ~\
+             csv_typ,                                                   ~\
+             charset,                                                   ~\
+             folder,                                                    ~\
+             files)                                                     ~\
     RETURNING fac_import_app_key INTO imp_key;                          ~\
     INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\
     VALUES ('EN', imp_key, 'FAC_IMPORT_APP_OMS', oms_en); ~\
 END; ~\
 /    ~\
 
-#define DEF_RAPPORT(aut, func, view, oms_nl, info_nl, oms_en, info_en)  \
+#define DEF_IMPORT(aut, code, oms_nl, oms_en, csv_typ)                  \
+    DEF_IMPORT2(aut, code, oms_nl, oms_en, csv_typ, NULL, NULL, NULL)  ~\
+
+#define DEF_RAPPORT(grp, aut, func, view, oms_nl, info_nl, oms_en, info_en)  \
 DECLARE                                                                ~\
     rap_key     NUMBER(10);                                            ~\
 BEGIN                                                                  ~\
@@ -680,12 +699,12 @@ BEGIN                                                                  ~\
            , fac_usrrap_vraagbegindatum, fac_usrrap_vraageinddatum     ~\
            , fac_usrrap_functie, fac_usrrap_autorefresh                ~\
            , fac_usrrap_info                                           ~\
-           , fac_functie_key                                           ~\
+           , fac_functie_key, fac_usrrap_groep                         ~\
            )                                                           ~\
     VALUES ( oms_nl, view, 0, 0, func, 0, info_nl                      ~\
            , (SELECT fac_functie_key FROM fac_functie                  ~\
                WHERE fac_functie_code = aut                            ~\
-             )                                                         ~\
+             ), grp                                                    ~\
            )                                                           ~\
     RETURNING fac_usrrap_key INTO rap_key;                             ~\
     INSERT INTO fac_locale ( fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst) ~\

CTR/CTR_LCL.SRC

@@ -0,0 +1,123 @@
+#ifdef  CTR
+/*
+ *  $Id$
+ *  $Revision$
+ */
+
+START_LOCALEITEMS('CTR_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_ter_uitvoer)
+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  // CTR

CTR/CTR_PAC.SRC

@@ -4,6 +4,385 @@
  * $Id$
  */
 
+CREATE OR REPLACE PACKAGE ctr AS
+   PROCEDURE taak_naar_ter_uitvoering(pmld_stdmelding_key IN NUMBER,
+                                      pmld_subject IN VARCHAR2,
+                                      pins_srtcontrole_info IN VARCHAR2,
+                                      pprs_kostenplaats_key IN NUMBER,
+                                      pprs_perslid_key IN NUMBER,
+                                      pmld_stdmelding_default_disc IN NUMBER,
+                                      palg_locatie_key IN NUMBER,
+                                      palg_onroerendgoed_keys IN NUMBER,
+                                      pins_deel_key IN NUMBER,
+                                      pdeelsrtcontrole_key IN NUMBER);
+      RETURN NUMBER;
+
+   PROCEDURE melding_voor_geplande_taken_maken;
+END ctr;
+/
+
+CREATE OR REPLACE PACKAGE BODY ctr AS
+   PROCEDURE taak_naar_ter_uitvoering(pmld_stdmelding_key IN NUMBER,
+                                      pmld_subject IN VARCHAR2,
+                                      pins_srtcontrole_info IN VARCHAR2,
+                                      pprs_kostenplaats_key IN NUMBER,
+                                      pprs_perslid_key IN NUMBER,
+                                      pmld_stdmelding_default_disc IN NUMBER,
+                                      palg_locatie_key IN NUMBER,
+                                      palg_onroerendgoed_keys IN NUMBER,
+                                      pins_deel_key IN NUMBER,
+                                      pdeelsrtcontrole_key IN NUMBER)
+   AS
+      c_applname                 VARCHAR2 (50) := 'AFMELDEN_ORD';
+      v_errormsg                 VARCHAR2 (1000);
+      oracle_err_num             NUMBER;
+      oracle_err_mes             VARCHAR2 (200);
+      v_aanduiding               VARCHAR2 (200);
+
+      l_new_melding_key          mld_melding.mld_melding_key%TYPE;
+      l_new_melding_object_key   mld_melding_object.mld_melding_object_key%TYPE;
+   BEGIN
+      SELECT mld_s_mld_melding_key.NEXTVAL INTO l_new_melding_key FROM DUAL;
+
+      INSERT INTO mld_melding(prs_perslid_key,
+                              prs_perslid_key_voor,
+                              mld_melding_datum,
+                              mld_ins_discipline_key,
+                              mld_stdmelding_key,
+                              mld_melding_omschrijving,
+                              mld_melding_onderwerp,
+                              mld_meldbron_key,
+                              prs_kostenplaats_key,
+                              mld_alg_locatie_key,
+                              mld_melding_spoed,
+                              mld_alg_onroerendgoed_keys,
+                              mld_melding_module,
+                              mld_melding_key)
+           VALUES (pprs_perslid_key,
+                   pprs_perslid_key,
+                   SYSDATE,
+                   pmld_stdmelding_default_disc,
+                   pmld_stdmelding_key,
+                   pins_srtcontrole_info,
+                   pmld_subject,
+                   10,
+                   pprs_kostenplaats_key,
+                   palg_locatie_key,
+                   3,                                   -- Default prioriteit 3.
+                   palg_onroerendgoed_keys,
+                   'MLD',
+                   l_new_melding_key);
+
+      SELECT mld_s_mld_object_key.NEXTVAL INTO l_new_melding_object_key FROM DUAL;
+
+      INSERT INTO mld_melding_object(ins_deel_key,
+                                     mld_melding_key,
+                                     ins_deelsrtcontrole_key,
+                                     mld_melding_object_key)
+                             VALUES (pins_deel_key,
+                                     l_new_melding_key,
+                                     pdeelsrtcontrole_key,
+                                     l_new_melding_object_key);
+
+      mld.setmeldingstatus(l_new_melding_key, 2, NULL, 1);
+
+      IF pmld_stdmelding_default_disc IS NOT NULL -- mldbhg notificatie.
+      THEN
+        mld.notifybackoffice (l_new_melding_key, 'MLDBHG', 2);
+      END IF;
+
+      mld.mld_nextworkflowstep (l_new_melding_key, -1);
+
+      mld.mld_addautoorder(l_new_melding_key);
+      COMMIT;
+   EXCEPTION
+      WHEN OTHERS
+      THEN
+         oracle_err_num := SQLCODE;
+         oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+         v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+         fac.writelog (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
+   END;
+
+   -- Automatische starten en ter uitvoering zetten van taken die voor vandaag of eerder zijn gepland (via plandatum of berekend).
+   -- Er wordt bij de taak ook direct een melding aangemaakt.
+   -- voorwaarden: 1) Er is een stdmelding gedefinieerd bij de periodieke taak.
+   --              2) Alleen periodieke taken, GEEN mjob taken.
+   PROCEDURE melding_voor_geplande_taken_maken
+   AS
+      c_applname                 VARCHAR2 (50) := 'MELDING_VOOR_GEPLANDE_TAKEN_MAKEN';
+      v_errormsg                 VARCHAR2 (1000);
+      oracle_err_num             NUMBER;
+      oracle_err_mes             VARCHAR2 (200);
+      v_aanduiding               VARCHAR2 (200);
+      v_count_tot                NUMBER (10);
+
+      l_prs_perslid_key          prs_perslid.prs_perslid_key%TYPE;
+      l_new_deelsrtcontrole_key  ins_deelsrtcontrole.ins_deelsrtcontrole_key%TYPE;
+      l_deelsrtcontrole_key      ins_deelsrtcontrole.ins_deelsrtcontrole_key%TYPE;
+      mjb_approvedmld_desc       fac_setting.fac_setting_default%TYPE;
+      mld_subject                VARCHAR2 (200);
+
+      CURSOR c_taak_naar_ter_uitvoering
+      IS
+          -- Ingeplande taken.
+          SELECT idsc.ins_deelsrtcontrole_key,
+                 idsc.ins_deel_key,
+                 idsc.ins_srtcontrole_key,
+                 idsc.ins_scenario_key,
+                 xcp.mld_stdmelding_key,
+                 sm.mld_stdmelding_default_disc,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     COALESCE(xcp.prs_kostenplaats_key,
+                              (SELECT prs_kostenplaats_key
+                                 FROM alg_gebouw
+                                WHERE alg_gebouw_key = (SELECT alg.alg_gebouw_key FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)))
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     COALESCE(xcp.prs_kostenplaats_key,
+                              (SELECT prs_kostenplaats_key
+                                 FROM alg_gebouw
+                                WHERE alg_gebouw_key = (SELECT wpg.alg_gebouw_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)))
+                 ELSE
+                     NULL
+                 END prs_kostenplaats_key,
+                 xcp.ins_srtcontrole_omschrijving,
+                 xcp.ins_srtcontrole_info,
+                 isd.ins_srtdeel_omschrijving,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     (SELECT alg.alg_locatie_key FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     (SELECT wpg.alg_locatie_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('P', 'A')
+                 THEN
+                     NULL
+                 END alg_locatie_key,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     (SELECT alg.alg_onroerendgoed_keys FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     (SELECT wpg.alg_ruimte_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('P', 'A')
+                 THEN
+                     NULL
+                 END alg_onroerendgoed_keys,
+                 CASE
+                 WHEN (SELECT COUNT(ins_deelsrtcontrole_key)
+                         FROM ins_deelsrtcontrole idsc2
+                        WHERE idsc2.ins_deel_key = idsc.ins_deel_key
+                          AND idsc2.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                          AND idsc2.ins_scenario_key = idsc.ins_scenario_key
+                          AND idsc2.ins_deelsrtcontrole_status = 6) >= 1
+                 THEN
+                    ins.nextcyclusdate(idsc.ins_deel_key, idsc.ins_srtcontrole_key, 1, 1)
+                 ELSE NULL
+                 END nextdate
+            FROM ins_deelsrtcontrole idsc,
+                 ins_v_defined_inspect_xcp xcp,
+                 ins_v_deelenonderdeel d,
+                 ins_srtdeel isd,
+                 mld_stdmelding sm
+           WHERE xcp.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+             AND xcp.ins_deel_key = idsc.ins_deel_key
+             AND xcp.ins_scenario_key = idsc.ins_scenario_key
+             AND xcp.mld_stdmelding_key = sm.mld_stdmelding_key
+             AND d.ins_deel_key = idsc.ins_deel_key
+             AND d.ins_srtdeel_key = isd.ins_srtdeel_key
+             AND d.ins_alg_ruimte_type IN ('T', 'R', 'P', 'W', 'A')
+             AND TRUNC(idsc.ins_deelsrtcontrole_plandatum, 'dd') <= TRUNC(SYSDATE, 'dd')
+             AND (xcp.ins_srtcontrole_eind IS NULL OR xcp.ins_srtcontrole_eind > SYSDATE)
+             AND d.ins_deel_verwijder IS NULL
+             AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > SYSDATE)
+             AND idsc.ins_scenario_key = 1
+             AND idsc.ins_deelsrtcontrole_status = 0
+             AND xcp.ctr_ismjob = 0
+             AND xcp.mld_stdmelding_key IS NOT NULL
+          UNION
+          -- Berekende taken t.o.v. de laatste inspectie (met historie).
+          SELECT NULL ins_deelsrtcontrole_key,
+                 idsc.ins_deel_key,
+                 idsc.ins_srtcontrole_key,
+                 idsc.ins_scenario_key,
+                 xcp.mld_stdmelding_key,
+                 sm.mld_stdmelding_default_disc,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     COALESCE(xcp.prs_kostenplaats_key,
+                              (SELECT prs_kostenplaats_key
+                                 FROM alg_gebouw
+                                WHERE alg_gebouw_key = (SELECT alg.alg_gebouw_key FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)))
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     COALESCE(xcp.prs_kostenplaats_key,
+                              (SELECT prs_kostenplaats_key
+                                 FROM alg_gebouw
+                                WHERE alg_gebouw_key = (SELECT wpg.alg_gebouw_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)))
+                 ELSE
+                     NULL
+                 END prs_kostenplaats_key,
+                 xcp.ins_srtcontrole_omschrijving,
+                 xcp.ins_srtcontrole_info,
+                 isd.ins_srtdeel_omschrijving,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     (SELECT alg.alg_locatie_key FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     (SELECT wpg.alg_locatie_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('P', 'A')
+                 THEN
+                     NULL
+                 END alg_locatie_key,
+                 CASE
+                 WHEN d.ins_alg_ruimte_type IN ('T', 'R')
+                 THEN
+                     (SELECT alg.alg_onroerendgoed_keys FROM alg_v_allonroerendgoed alg WHERE alg.alg_onroerendgoed_keys = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('W')
+                 THEN
+                     (SELECT wpg.alg_ruimte_key FROM prs_v_werkplek_gegevens wpg WHERE wpg.prs_werkplek_key = d.ins_alg_ruimte_key)
+                 WHEN d.ins_alg_ruimte_type IN ('P', 'A')
+                 THEN
+                     NULL
+                 END alg_onroerendgoed_keys,
+                 CASE
+                 WHEN (SELECT COUNT(ins_deelsrtcontrole_key)
+                         FROM ins_deelsrtcontrole idsc2
+                        WHERE idsc2.ins_deel_key = idsc.ins_deel_key
+                          AND idsc2.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                          AND idsc2.ins_scenario_key = idsc.ins_scenario_key
+                          AND idsc2.ins_deelsrtcontrole_status = 6) >= 1
+                 THEN
+                    ins.nextcyclusdate(idsc.ins_deel_key, idsc.ins_srtcontrole_key, 1, 1)
+                 ELSE NULL
+                 END nextdate
+            FROM ins_deelsrtcontrole idsc,
+                 ins_v_defined_inspect_xcp xcp,
+                 ins_v_deelenonderdeel d,
+                 ins_srtdeel isd,
+                 mld_stdmelding sm
+           WHERE xcp.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+             AND xcp.ins_deel_key = idsc.ins_deel_key
+             AND xcp.ins_scenario_key = idsc.ins_scenario_key
+             AND xcp.mld_stdmelding_key = sm.mld_stdmelding_key
+             AND d.ins_deel_key = idsc.ins_deel_key
+             AND d.ins_srtdeel_key = isd.ins_srtdeel_key
+             AND d.ins_alg_ruimte_type IN ('T', 'R', 'P', 'W', 'A')
+             AND TRUNC(ins.nextcyclusdate(idsc.ins_deel_key, idsc.ins_srtcontrole_key, 1, 1), 'dd') <= TRUNC(SYSDATE, 'dd')
+             AND (xcp.ins_srtcontrole_eind IS NULL OR xcp.ins_srtcontrole_eind > SYSDATE)
+             AND d.ins_deel_verwijder IS NULL
+             AND (d.ins_deel_vervaldatum IS NULL OR d.ins_deel_vervaldatum > SYSDATE)
+             AND idsc.ins_scenario_key = 1
+             AND idsc.ins_deelsrtcontrole_key = (SELECT MAX(ins_deelsrtcontrole_key)
+                                                   FROM ins_deelsrtcontrole idsc2
+                                                  WHERE idsc2.ins_deel_key = idsc.ins_deel_key
+                                                    AND idsc2.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                                                    AND idsc2.ins_scenario_key = idsc.ins_scenario_key
+                                                    AND idsc2.ins_deelsrtcontrole_status = 6)
+             AND (SELECT MAX(ins_deelsrtcontrole_key)
+                    FROM ins_deelsrtcontrole idsc2
+                   WHERE idsc2.ins_deel_key = idsc.ins_deel_key
+                     AND idsc2.ins_srtcontrole_key = idsc.ins_srtcontrole_key
+                     AND idsc2.ins_scenario_key = idsc.ins_scenario_key
+                     AND idsc2.ins_deelsrtcontrole_status != 6) IS NULL  -- Er mag geen lopende taak aanwezig zijn.
+             AND xcp.ctr_ismjob = 0
+             AND xcp.mld_stdmelding_key IS NOT NULL;
+   BEGIN
+       v_count_tot := 0;
+       FOR rec IN c_taak_naar_ter_uitvoering
+       LOOP
+          BEGIN
+              v_errormsg := 'Fout starten taak';
+              v_aanduiding := '[' || TO_CHAR (rec.ins_deel_key) || '/' || TO_CHAR (rec.ins_srtcontrole_key) || '] ';
+
+              BEGIN
+                 SELECT prs_perslid_key
+                   INTO l_prs_perslid_key
+                   FROM prs_perslid
+                  WHERE prs_perslid_oslogin = '_SYSTEEM' AND prs_perslid_verwijder IS NULL;
+              EXCEPTION
+                 WHEN NO_DATA_FOUND
+                 THEN
+                    fac.putsystemnotification ('Invalid configuration: missing _SYSTEEM user', 1);
+              END;
+
+              -- Stap 1 is de taak starten.
+              IF rec.ins_deelsrtcontrole_key IS NULL
+              THEN
+                  SELECT ins_s_ins_deelsrtcontrole_key.NEXTVAL INTO l_new_deelsrtcontrole_key FROM DUAL;
+
+                  INSERT INTO ins_deelsrtcontrole (ins_deelsrtcontrole_key,
+                                                   ins_deel_key,
+                                                   ins_srtcontrole_key,
+                                                   ins_deelsrtcontrole_status,
+                                                   prs_perslid_key,
+                                                   ins_deelsrtcontrole_datum_org)
+                       VALUES (l_new_deelsrtcontrole_key,
+                               rec.ins_deel_key,
+                               rec.ins_srtcontrole_key,
+                               2,
+                               l_prs_perslid_key,
+                               rec.nextdate);
+                  l_deelsrtcontrole_key := l_new_deelsrtcontrole_key;
+              ELSE
+                  l_deelsrtcontrole_key := rec.ins_deelsrtcontrole_key;
+                  -- Het ins_deelsrtcontrole record bestaat al omdat de taak al is ingepland.
+              END IF;
+
+              ins.setinspectstatus(l_deelsrtcontrole_key, 2, NULL);
+
+              -- Stap 2 is de taak ter uitvoering brengen door een melding aan te maken en deze te koppelen aan de gestarte taak.
+              mjb_approvedmld_desc := fac.getsetting('mjb_approvedmelding_description');
+
+              IF mjb_approvedmld_desc = 2
+              THEN
+                 mld_subject := rec.ins_srtcontrole_omschrijving;
+              ELSIF mjb_approvedmld_desc = 3
+              THEN
+                 mld_subject := rec.ins_srtcontrole_omschrijving || ' (' || rec.ins_srtdeel_omschrijving || ')';
+              ELSE -- mjb_approvedmelding_description = 1
+                 mld_subject := rec.ins_srtdeel_omschrijving;
+              END IF;
+
+              -- Melding aangmaken en koppelen.
+              ctr.taak_naar_ter_uitvoering(rec.mld_stdmelding_key,
+                                           mld_subject,
+                                           rec.ins_srtcontrole_info,
+                                           rec.prs_kostenplaats_key,
+                                           l_prs_perslid_key,
+                                           rec.mld_stdmelding_default_disc,
+                                           rec.alg_locatie_key,
+                                           rec.alg_onroerendgoed_keys,
+                                           rec.ins_deel_key,
+                                           l_deelsrtcontrole_key);
+
+              ins.setinspectstatus(l_deelsrtcontrole_key, 3, NULL);
+
+              v_count_tot := v_count_tot + 1;
+              IF MOD (v_count_tot, 500) = 0 THEN COMMIT; END IF;
+          END;
+       END LOOP;
+
+       fac.writelog (c_applname, 'S', '#Taken gestart: ' || TO_CHAR (v_count_tot), '');
+       COMMIT;
+   EXCEPTION
+      WHEN OTHERS
+      THEN
+         oracle_err_num := SQLCODE;
+         oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+         v_errormsg := 'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+         fac.writelog (c_applname, 'E', v_aanduiding || v_errormsg, 'Taak afgebroken!');
+   END;
+END ctr;
+/
 
 REGISTERRUN('$Id$')
 

CTR/CTR_VIE.SRC

@@ -12,6 +12,537 @@ AS
 DEFINIEER_VIEW_AANWEZIG(ctr_discipline, ins_discipline_verwijder,
     ctr_v_aanwezigdiscipline, 0);
 
+CREATE_VIEW(ctr_v_allsrtinstallatie, 0)
+(
+    niveau,
+    ctr_srtinstallatie_key,
+    discipline_oms,
+    srtcontrole_oms,
+    ins_discipline_key,
+    ins_srtcontrole_key
+)
+AS
+    SELECT 'E',
+           cd.ins_discipline_key,
+           cd.ins_discipline_omschrijving,
+           NULL ins_srtcontrole_omschrijving,
+           cd.ins_discipline_key,
+           NULL ins_srtcontrole_key
+      FROM ctr_discipline cd
+    UNION
+    SELECT 'C',
+           isc.ins_srtcontrole_key,
+           cd.ins_discipline_omschrijving,
+           isc.ins_srtcontrole_omschrijving,
+           cd.ins_discipline_key,
+           isc.ins_srtcontrole_key
+      FROM ctr_discipline cd,
+           ins_srtcontrole isc
+     WHERE cd.ins_discipline_key = isc.ctr_discipline_key
+    UNION
+    SELECT 'T' niveau,
+           NULL ctr_srtinstallatie_key,
+           NULL discipline_oms,
+           NULL srtcontrole_oms,
+           NULL ins_discipline_key,
+           NULL ins_srtcontrole_key
+      FROM DUAL;
+
+CREATE_VIEW(ctr_v_monthly_recurring_tasks, 0)
+AS
+    -- Inspecties die dit jaar en volgend jaar nog uitgevoerd moeten worden.
+    SELECT ig.discipline,
+           ig.soort,
+           ig.groep,
+           ig.soortcode,
+           ig.omschrijving object,
+           ig.opmerking,
+           ig.locatie_omschrijving locatie,
+           ig.gebouw,
+           ig.ruimtenr,
+           ig.perslid persoon,
+           ig.aantal,
+           ig.srtcontrole_omschrijving taak,
+           ig.ins_srtcontrole_eenheid eenheid,
+           ig.ins_srtcontrole_periode periode,
+           ig.taaksoort,
+           ig.ins_deelsrtcontrole_datum inspectiedatum,
+           ig.controlemode_omschrijving taakafhandeling,
+           ig.ins_deelsrtcontrole_opmerking inspectie_opmerking,
+           ins_deelsrtcontrole_status inspectie_code,
+           ig.deelsrtcontrole_status inspectie_status,
+           ins_controlemode_success succesvol,
+           TO_CHAR(ig.volgendedatum, 'MM') maand,
+           TO_CHAR(ig.volgendedatum, 'YYYY') jaar,
+           TO_CHAR(ig.volgendedatum, 'YYYY-MM') jaarmaand,
+           ig.ins_deelsrtcontrole_datum_org orgdatum,
+           ig.ins_deelsrtcontrole_plandatum plandatum,
+           ig.volgendedatum,
+           ig.vervaldatum,
+           ig.ins_deel_key deel_key,
+           ig.ins_srtcontrole_key,
+           ig.ins_deelsrtcontrole_key
+      FROM (WITH
+                comps(ins_deel_key,
+                      ins_srtcontrole_key,
+                      ins_deelsrtcontrole_datum,
+                      ins_srtcontrole_mode,
+                      ins_srtcontrole_eenheid,
+                      ins_srtcontrole_periode,
+                      ins_srtcontrole_bits,
+                      volgendedatum,
+                      discipline,
+                      soort,
+                      groep,
+                      soortcode,
+                      omschrijving,
+                      opmerking,
+                      locatie_omschrijving,
+                      gebouw,
+                      ruimtenr,
+                      aantal,
+                      srtcontrole_omschrijving,
+                      taaksoort,
+                      ins_deelsrtcontrole_datum_org,
+                      controlemode_omschrijving,
+                      ins_deelsrtcontrole_opmerking,
+                      perslid,
+                      ins_deelsrtcontrole_plandatum,
+                      ins_deelsrtcontrole_status,
+                      ins_controlemode_success,
+                      deelsrtcontrole_status,
+                      vervaldatum,
+                      ins_deelsrtcontrole_key)
+                AS
+                    (SELECT *
+                       FROM (
+                             -- 1a) Dit deel bepaald de laatste inspectie (geplande(0), gestarte(2), afgemeld(5) of verwerkt(6)),
+                             --     inclusief de allereerste inspectie die nog niet gereed gemeld is.
+                             SELECT di.deel_key ins_deel_key,
+                                    xcp.ins_srtcontrole_key,
+                                    di.ins_deelsrtcontrole_datum,
+                                    xcp.ins_srtcontrole_mode,
+                                    xcp.ins_srtcontrole_eenheid,
+                                    xcp.ins_srtcontrole_periode,
+                                    xcp.ins_srtcontrole_bits,
+                                    COALESCE(di.ins_deelsrtcontrole_plandatum,
+                                             CASE
+                                             WHEN di.ins_deelsrtcontrole_status IN (2, 3)
+                                              AND di.ins_deelsrtcontrole_datum_org IS NULL
+                                             THEN -- Gestart(2) en de allereerste inspectie (ins_deelsrtcontrole_datum_org is NULL).
+                                                 -- Periodieke taken:
+                                                 -- De startdatum is MAX(startdatum, aanmaakdatum/registratiedatum) en heeft altijd een waarde (ins_deel_aanmaak is altijd gevuld).
+                                                 -- Er is nog geen inspectie geweest en de startdatum is ingevuld of de registratiedatum ligt in de toekomst.
+                                                 -- Er geldt dan het volgende:
+                                                 -- Voor Controle(1): Eerste inspectie tonen op MAX(startdatum, registratiedatum) van het object.
+                                                 -- Voor Vervanging(2) of Certificering(3):
+                                                 -- a) Als de startdatum het verst ligt: Eerste inspectie tonen op de startdatum.
+                                                 -- b) Als registratiedatum het verst in de toekomst ligt: Eerste inspectie tonen op 1 periode verder dan de registratiedatum.
+                                                 -- De aanmaakdatum/Registratiedatum is altijd ingevuld en als er al een inspectie is geweest,
+                                                 -- zijn de startdatum en registratiedatum niet meer van belang.
+                                                 CASE
+                                                 -- Er geldt dat (ctr_ismjob = 0), dus de eerste when is toch niet geldig.
+                                                 --WHEN di.ctr_ismjob = 1
+                                                 --THEN
+                                                 --    ins_deelsrtcontrole_freezedate
+                                                 WHEN xcp.ctr_controle_type = 1
+                                                 THEN -- Controle(1).
+                                                     CASE
+                                                     WHEN xcp.ins_srtcontroledl_xcp_startdat IS NOT NULL
+                                                      AND xcp.ins_srtcontroledl_xcp_startdat >= xcp.ins_deel_aanmaak
+                                                     THEN
+                                                         xcp.ins_srtcontroledl_xcp_startdat
+                                                     ELSE
+                                                         xcp.ins_deel_aanmaak
+                                                     END
+                                                 ELSE -- Vervanging(2), Certificering(3).
+                                                     CASE
+                                                     WHEN xcp.ins_srtcontroledl_xcp_startdat IS NOT NULL
+                                                      AND xcp.ins_srtcontroledl_xcp_startdat >= xcp.ins_deel_aanmaak
+                                                     THEN
+                                                         xcp.ins_srtcontroledl_xcp_startdat
+                                                     ELSE
+                                                         fac.nextcyclusdate(
+                                                             -- er is nog geen inspectie geweest, dus de laatste inspectie is null
+                                                             COALESCE(
+                                                                 NULL,
+                                                                 GREATEST(
+                                                                     COALESCE(xcp.ins_srtcontroledl_xcp_startdat,
+                                                                              xcp.ins_deel_aanmaak),
+                                                                     COALESCE(xcp.ins_deel_aanmaak,
+                                                                              xcp.ins_srtcontroledl_xcp_startdat))),
+                                                             xcp.ins_srtcontrole_mode,
+                                                             xcp.ins_srtcontrole_eenheid,
+                                                             xcp.ins_srtcontrole_periode,
+                                                             xcp.ins_srtcontrole_bits,
+                                                             1, -- steps. De eerste inspectie is nog niet geweest dus 1 periode verder dan startdatum/aanmaakdatum.
+                                                             0) -- Er geldt dat (ctr_ismjob = 0)
+                                                     END
+                                                 END
+                                             WHEN di.ins_deelsrtcontrole_status IN (2, 3)
+                                              AND di.ins_deelsrtcontrole_datum_org IS NOT NULL
+                                             THEN -- Gestart(2) en niet de allereerste inspectie.
+                                                 di.ins_deelsrtcontrole_datum_org
+                                             ELSE -- Status is Gereed gemeld(5) of Voltooid(6).
+                                                 CASE xcp.ins_srtcontrole_mode
+                                                 WHEN 0
+                                                 THEN -- Moment mode: ga uit van de originele berekende inspectiedatum.
+                                                     di.ins_deelsrtcontrole_datum_org
+                                                 ELSE -- Interval mode: ga uit van de werkelijke inspectiedatum.
+                                                     di.ins_deelsrtcontrole_datum
+                                                 END
+                                             END) volgendedatum,
+                                    discipline,
+                                    soort,
+                                    groep,
+                                    soortcode,
+                                    omschrijving,
+                                    opmerking,
+                                    locatie_omschrijving,
+                                    gebouw,
+                                    ruimtenr,
+                                    aantal,
+                                    srtcontrole_omschrijving,
+                                    ctr_discipline_omschrijving taaksoort,
+                                    ins_deelsrtcontrole_datum_org,
+                                    controlemode_omschrijving,
+                                    ins_deelsrtcontrole_opmerking,
+                                    perslid,
+                                    ins_deelsrtcontrole_plandatum,
+                                    di.ins_deelsrtcontrole_status,
+                                    COALESCE(
+                                        (SELECT icm.ins_controlemode_success
+                                           FROM ins_controlemode icm
+                                          WHERE icm.ins_controlemode_key =
+                                                (SELECT di2.ins_controlemode_key
+                                                   FROM ins_deelsrtcontrole di2
+                                                  WHERE di2.ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)),
+                                        -1) ins_controlemode_success,
+                                    CASE di.ins_deelsrtcontrole_status
+                                    WHEN 0
+                                    THEN
+                                        lcl.L('lcl_ins_controle_pending')
+                                    WHEN 2
+                                    THEN
+                                        lcl.L('lcl_ins_controle_gestart')
+                                    WHEN 3
+                                    THEN
+                                        lcl.L('lcl_ins_controle_ter_uitvoer')
+                                    WHEN 5
+                                    THEN
+                                        CASE
+                                        WHEN ((SELECT icm.ins_controlemode_success
+                                                 FROM ins_controlemode icm
+                                                WHERE icm.ins_controlemode_key =
+                                                      (SELECT di2.ins_controlemode_key
+                                                         FROM ins_deelsrtcontrole di2
+                                                        WHERE di2.ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)) =
+                                              1)
+                                        THEN
+                                            lcl.L('lcl_ins_controlemode_approved')
+                                        ELSE
+                                            lcl.L('lcl_ins_controlemode_deprecated')
+                                        END
+                                    WHEN 6
+                                    THEN
+                                        CASE
+                                        WHEN ((SELECT icm.ins_controlemode_success
+                                                 FROM ins_controlemode icm
+                                                WHERE icm.ins_controlemode_key =
+                                                      (SELECT ins_controlemode_key
+                                                         FROM ins_deelsrtcontrole
+                                                        WHERE ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)) =
+                                              1)
+                                        THEN
+                                            lcl.L('lcl_ins_controlemode_approved')
+                                        ELSE
+                                            lcl.L('lcl_ins_controlemode_deprecated')
+                                        END
+                                    END deelsrtcontrole_status,
+                                    xcp.ins_srtcontrole_eind vervaldatum,
+                                    di.ins_deelsrtcontrole_key
+                               FROM ins_v_udr_deelinspect di,
+                                    ins_v_defined_inspect_xcp xcp,
+                                    ctr_disc_params dp
+                              WHERE di.ins_srtcontrole_key = xcp.ins_srtcontrole_key
+                                AND di.deel_key = xcp.ins_deel_key
+                                AND xcp.ctr_discipline_key = dp.ctr_ins_discipline_key
+                                AND dp.ctr_disc_params_ismjob = 0
+                                AND xcp.ins_srtcontrole_eenheid > 2
+                                AND xcp.ins_scenario_key = 1
+                                AND xcp.ins_srtcontrole_periode > 0
+                                AND di.ins_deelsrtcontrole_key = (SELECT MAX(ins_deelsrtcontrole_key)
+                                                                    FROM ins_deelsrtcontrole id2
+                                                                   WHERE id2.ins_deel_key = di.deel_key
+                                                                     AND id2.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                                     AND id2.ins_scenario_key = 1)
+                             UNION ALL
+                             -- 1b) Dit deel bepaald de allereerste inspectie van een taak die nog niet ingepland of gestart is. Er is dus nog geen ins_deelsrtcontrole record van
+                             SELECT d.deel_key ins_deel_key,
+                                    xcp.ins_srtcontrole_key,
+                                    NULL,
+                                    xcp.ins_srtcontrole_mode,
+                                    xcp.ins_srtcontrole_eenheid,
+                                    xcp.ins_srtcontrole_periode,
+                                    xcp.ins_srtcontrole_bits,
+                                    -- Gestart(2) en de allereerste inspectie (ins_deelsrtcontrole_datum_org is NULL).
+                                    -- Periodieke taken:
+                                    -- De startdatum is MAX(startdatum, aanmaakdatum/registratiedatum) en heeft altijd een waarde (ins_deel_aanmaak is altijd gevuld).
+                                    -- Er is nog geen inspectie geweest en de startdatum is ingevuld of de registratiedatum ligt in de toekomst.
+                                    -- Er geldt dan het volgende:
+                                    -- Voor Controle(1): Eerste inspectie tonen op MAX(startdatum, registratiedatum) van het object.
+                                    -- Voor Vervanging(2) of Certificering(3):
+                                    -- a) Als de startdatum het verst ligt: Eerste inspectie tonen op de startdatum.
+                                    -- b) Als registratiedatum het verst in de toekomst ligt: Eerste inspectie tonen op 1 periode verder dan de registratiedatum.
+                                    -- De aanmaakdatum/Registratiedatum is altijd ingevuld en als er al een inspectie is geweest,
+                                    -- zijn de startdatum en registratiedatum niet meer van belang.
+                                    CASE
+                                        -- Er geldt dat (ctr_ismjob = 0), dus de eerste when is toch niet geldig.
+                                        --WHEN xcp.ctr_ismjob = 1
+                                        --THEN
+                                        --    xcp.ins_deelsrtcontrole_freezedate
+                                        WHEN xcp.ctr_controle_type = 1
+                                        THEN                                                             -- Controle(1).
+                                            CASE
+                                                WHEN xcp.ins_srtcontroledl_xcp_startdat IS NOT NULL
+                                                 AND xcp.ins_srtcontroledl_xcp_startdat >= xcp.ins_deel_aanmaak
+                                                THEN
+                                                    xcp.ins_srtcontroledl_xcp_startdat
+                                                ELSE
+                                                    xcp.ins_deel_aanmaak
+                                            END
+                                        ELSE                                         -- Vervanging(2), Certificering(3).
+                                            CASE
+                                                WHEN xcp.ins_srtcontroledl_xcp_startdat IS NOT NULL
+                                                 AND xcp.ins_srtcontroledl_xcp_startdat >= xcp.ins_deel_aanmaak
+                                                THEN
+                                                    xcp.ins_srtcontroledl_xcp_startdat
+                                                ELSE
+                                                    fac.nextcyclusdate(
+                                                        -- er is nog geen inspectie geweest, dus de laatste inspectie is null
+                                                        COALESCE(
+                                                            NULL,
+                                                            GREATEST(
+                                                                COALESCE(xcp.ins_srtcontroledl_xcp_startdat,
+                                                                         xcp.ins_deel_aanmaak),
+                                                                COALESCE(xcp.ins_deel_aanmaak,
+                                                                         xcp.ins_srtcontroledl_xcp_startdat))),
+                                                        xcp.ins_srtcontrole_mode,
+                                                        xcp.ins_srtcontrole_eenheid,
+                                                        xcp.ins_srtcontrole_periode,
+                                                        xcp.ins_srtcontrole_bits,
+                                                        1, -- steps. De eerste inspectie is nog niet geweest dus 1 periode verder dan startdatum/aanmaakdatum.
+                                                        0)                              -- Er geldt dat (ctr_ismjob = 0)
+                                            END
+                                    END
+                                        volgendedatum,
+                                    d.discipline,
+                                    d.soort,
+                                    d.groep,
+                                    d.soortcode,
+                                    d.omschrijving,
+                                    d.opmerking,
+                                    d.locatie_omschrijving,
+                                    d.gebouw,
+                                    d.ruimtenr,
+                                    d.aantal,
+                                    (SELECT isc.ins_srtcontrole_omschrijving
+                                       FROM ins_srtcontrole isc
+                                      WHERE isc.ins_srtcontrole_key = xcp.ins_srtcontrole_key) srtcontrole_omschrijving,
+                                    (SELECT cd.ins_discipline_omschrijving
+                                       FROM ctr_discipline cd,
+                                            ins_srtcontrole isc
+                                      WHERE isc.ins_srtcontrole_key = xcp.ins_srtcontrole_key
+                                        AND isc.ctr_discipline_key = cd.ins_discipline_key) taaksoort,
+                                    ins_deelsrtcontrole_datum_org,
+                                    NULL controlemode_omschrijving,
+                                    ins_deelsrtcontrole_opmerking,
+                                    NULL perslid,
+                                    ins_deelsrtcontrole_plandatum,
+                                    -1 ins_deelsrtcontrole_status,
+                                    -1 ins_controlemode_success,
+                                    lcl.L('lcl_ins_controlemode_notplaned') deelsrtcontrole_status,
+                                    xcp.ins_srtcontrole_eind vervaldatum,
+                                    NULL ins_deelsrtcontrole_key
+                               FROM ins_v_udr_deel d,
+                                    ins_deelsrtcontrole idsc,
+                                    ins_v_defined_inspect_xcp xcp,
+                                    ctr_disc_params dp
+                              WHERE xcp.ins_srtcontrole_key = idsc.ins_srtcontrole_key(+)
+                                AND xcp.ins_deel_key = idsc.ins_deel_key(+)
+                                AND xcp.ins_scenario_key = idsc.ins_scenario_key(+)
+                                AND xcp.ins_deel_key = d.deel_key
+                                AND xcp.ctr_discipline_key = dp.ctr_ins_discipline_key
+                                AND dp.ctr_disc_params_ismjob = 0
+                                AND xcp.ins_srtcontrole_eenheid > 2
+                                AND xcp.ins_scenario_key = 1
+                                AND idsc.ins_deel_key IS NULL
+                                AND idsc.ins_srtcontrole_key IS NULL
+                                AND xcp.ins_srtcontrole_periode > 0
+                                AND (idsc.ins_deelsrtcontrole_key IS NULL
+                                  OR idsc.ins_deelsrtcontrole_key =
+                                     (SELECT MAX(ins_deelsrtcontrole_key)
+                                        FROM ins_deelsrtcontrole id2
+                                       WHERE id2.ins_deel_key = d.deel_key
+                                         AND id2.ins_srtcontrole_key = xcp.ins_srtcontrole_key
+                                         AND id2.ins_scenario_key = 1)))
+                     UNION ALL
+                     -- 1c) Dit deel bepaalt/berekent de toekomstige inspecties van dit jaar en volgend jaar.
+                     SELECT m.ins_deel_key,
+                            m.ins_srtcontrole_key,
+                            NULL ins_deelsrtcontrole_datum,
+                            m.ins_srtcontrole_mode,
+                            m.ins_srtcontrole_eenheid,
+                            m.ins_srtcontrole_periode,
+                            m.ins_srtcontrole_bits,
+                            fac.nextcyclusdate(m.volgendedatum,
+                                               m.ins_srtcontrole_mode,
+                                               m.ins_srtcontrole_eenheid,
+                                               m.ins_srtcontrole_periode,
+                                               m.ins_srtcontrole_bits,
+                                               1,
+                                               0),
+                            m.discipline,
+                            m.soort,
+                            m.groep,
+                            m.soortcode,
+                            m.omschrijving,
+                            m.opmerking,
+                            m.locatie_omschrijving,
+                            m.gebouw,
+                            m.ruimtenr,
+                            m.aantal,
+                            m.srtcontrole_omschrijving,
+                            m.taaksoort,
+                            NULL ins_deelsrtcontrole_datum_org,
+                            NULL controlemode_omschrijving,
+                            NULL ins_deelsrtcontrole_opmerking,
+                            NULL perslid,
+                            NULL ins_deelsrtcontrole_plandatum,
+                            -1 ins_deelsrtcontrole_status,
+                            -1 ins_controlemode_success,
+                            lcl.L('lcl_ins_controlemode_notplaned') deelsrtcontrole_status,
+                            m.vervaldatum,
+                            NULL ins_deelsrtcontrole_key
+                       FROM comps m
+                      WHERE TRUNC(fac.nextcyclusdate(m.volgendedatum,
+                                                     m.ins_srtcontrole_mode,
+                                                     m.ins_srtcontrole_eenheid,
+                                                     m.ins_srtcontrole_periode,
+                                                     m.ins_srtcontrole_bits,
+                                                     1,
+                                                     0), 'YYYY') <=
+                            TRUNC(ADD_MONTHS(SYSDATE, 24), 'YYYY'))
+            SELECT *
+              FROM comps) ig
+     WHERE (ig.vervaldatum IS NULL
+         OR ig.vervaldatum > ig.volgendedatum)
+       AND ig.volgendedatum BETWEEN TRUNC(ADD_MONTHS(SYSDATE, -12), 'YYYY') AND TRUNC(ADD_MONTHS(SYSDATE, 24), 'YYYY')
+       AND TRUNC(ig.volgendedatum, 'YYYY') < TRUNC(ADD_MONTHS(SYSDATE, 24), 'YYYY') -- 1 januari in het jaar dat 2 jaar verder ligt niet meetellen.
+    UNION ALL
+    -- 2) Inspecties die vorig jaar en dit jaar zijn uitgevoerd, uitgezonderd de laatste.
+    SELECT di.discipline,
+           di.soort,
+           di.groep,
+           di.soortcode,
+           di.omschrijving object,
+           di.opmerking,
+           di.locatie_omschrijving locatie,
+           di.gebouw,
+           di.ruimtenr,
+           di.perslid persoon,
+           di.aantal,
+           di.srtcontrole_omschrijving taak,
+           sc.ins_srtcontrole_eenheid eenheid,
+           sc.ins_srtcontrole_periode periode,
+           di.ctr_discipline_omschrijving taaksoort,
+           di.ins_deelsrtcontrole_datum inspectiedatum,
+           di.controlemode_omschrijving taakafhandeling,
+           di.ins_deelsrtcontrole_opmerking inspectie_opmerking,
+           (SELECT ins_deelsrtcontrole_status
+              FROM ins_deelsrtcontrole
+             WHERE ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)
+               inspectie_code,
+           CASE (SELECT di2.ins_deelsrtcontrole_status
+                   FROM ins_deelsrtcontrole di2
+                  WHERE di2.ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)
+           WHEN 0
+           THEN
+               lcl.L('lcl_ins_controle_pending')
+           WHEN 2
+           THEN
+               lcl.L('lcl_ins_controle_gestart')
+           WHEN 3
+           THEN
+               lcl.L('lcl_ins_controle_ter_uitvoer')
+           WHEN 5
+           THEN
+               CASE
+               WHEN ((SELECT icm.ins_controlemode_success
+                        FROM ins_controlemode icm
+                       WHERE icm.ins_controlemode_key =
+                             (SELECT ins_controlemode_key
+                                FROM ins_deelsrtcontrole
+                               WHERE ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)) =
+                     1)
+               THEN
+                   lcl.L('lcl_ins_controlemode_approved')
+               ELSE
+                   lcl.L('lcl_ins_controlemode_deprecated')
+               END
+           WHEN 6
+           THEN
+               CASE
+               WHEN ((SELECT icm.ins_controlemode_success
+                        FROM ins_controlemode icm
+                       WHERE icm.ins_controlemode_key =
+                             (SELECT ins_controlemode_key
+                                FROM ins_deelsrtcontrole
+                               WHERE ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)) =
+                     1)
+               THEN
+                   lcl.L('lcl_ins_controlemode_approved')
+               ELSE
+                   lcl.L('lcl_ins_controlemode_deprecated')
+               END
+           END inspectie_status,
+           COALESCE((SELECT icm.ins_controlemode_success
+                       FROM ins_controlemode icm
+                      WHERE icm.ins_controlemode_key = (SELECT di2.ins_controlemode_key
+                                                          FROM ins_deelsrtcontrole di2
+                                                         WHERE di2.ins_deelsrtcontrole_key = di.ins_deelsrtcontrole_key)),
+                    -1) ins_controlemode_success,
+           TO_CHAR(di.ins_deelsrtcontrole_datum, 'MM') maand,
+           TO_CHAR(di.ins_deelsrtcontrole_datum, 'YYYY') jaar,
+           TO_CHAR(di.ins_deelsrtcontrole_datum, 'YYYY-MM') jaarmaand,
+           di.ins_deelsrtcontrole_datum_org orgdatum,
+           di.ins_deelsrtcontrole_plandatum plandatum,
+           di.ins_deelsrtcontrole_datum volgendedatum,
+           di.vervaldatum,
+           di.deel_key,
+           sc.ins_srtcontrole_key,
+           di.ins_deelsrtcontrole_key
+      FROM ins_v_udr_deelinspect di,
+           ins_srtcontrole sc,
+           ctr_disc_params dp
+     WHERE di.ins_srtcontrole_key = sc.ins_srtcontrole_key
+       AND sc.ctr_discipline_key = dp.ctr_ins_discipline_key
+       AND dp.ctr_disc_params_ismjob = 0
+       AND sc.ins_srtcontrole_eenheid > 2
+       AND di.ins_deelsrtcontrole_datum BETWEEN TRUNC(ADD_MONTHS(SYSDATE, -12), 'YYYY')
+                                            AND TRUNC(ADD_MONTHS(SYSDATE, 24), 'YYYY')
+       AND di.ins_deelsrtcontrole_key NOT IN (SELECT MAX(ins_deelsrtcontrole_key)
+                                                FROM ins_deelsrtcontrole id2
+                                               WHERE id2.ins_deel_key = di.deel_key
+                                                 AND id2.ins_srtcontrole_key = di.ins_srtcontrole_key
+                                                 AND id2.ins_scenario_key = 1);
+
+CREATE_VIEW(ctr_v_monthly_recurring_tasksy, 0)  // alleen huidige jaar
+AS
+SELECT *
+  FROM ctr_v_monthly_recurring_tasks
+ WHERE jaar = TO_CHAR (SYSDATE, 'YYYY');
+
 REGISTERRUN('$Id$')
 
 #endif // CTR

EXC/EXC_IND.SRC

@@ -0,0 +1,14 @@
+#ifdef  EXC
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE INDEX exc_i_exc_import1 ON exc_import(fac_import_key);
+
+CREATE INDEX exc_i_exc_import2
+    ON exc_import (APPT_ID || '|' || RECUR_ID, SEQ_NR, FAC_IMPORT_KEY);
+
+REGISTERONCE('$Id$')
+
+#endif  // EXC

EXC/EXC_INI.SRC

@@ -0,0 +1,44 @@
+#ifdef EXC
+/*  $Revision$
+ *  $Id$
+ */
+
+_FAC_MODULE('EXC', 'lcl_module_EXC')
+
+DEF_IMPORT2('WEB_PRSSYS', 'EXCHANGE', 'Import van reserveringen vanuit Exchange online',      'Import of reservations from Exchange online', 0, 'UTF-8', '	.\csv', 'exch_*.csv')
+DEF_IMPORT2('WEB_PRSSYS', 'EXCHFULL', 'Import van alle reserveringen vanuit Exchange online', 'Import of all reservations from Exchange online', 0, 'UTF-8', '	.\csv', 'full_*.csv')
+
+INSERT INTO fac_api (fac_api_name,
+                     fac_api_filepath,
+                     fac_api_loglevel,
+                     fac_api_viewmapping_json)
+     VALUES ('MSGRAPHNOTIFICATION',
+             'appl/api/api_msgraphnotification.asp',
+             0,
+             NULL);
+
+-- Toevoegen gebruiker om notificaties van MS Graph te verwerken
+INSERT INTO prs_perslid (prs_perslid_module,
+                         prs_srtperslid_key,
+                         prs_afdeling_key,
+                         prs_perslid_naam,
+                         prs_perslid_oslogin,
+                         prs_perslid_apikey,
+                         prs_perslid_flags,
+                         prs_perslid_opmerking)
+    SELECT prs_perslid_module,
+           prs_srtperslid_key,
+           prs_afdeling_key,
+           'API-user tbv. Exchange-koppeling',
+           '_MSGRAPHNOTIFICATION',
+           DBMS_RANDOM.string ('a', 32),
+           36,
+              'System account for Exchange notifications.'
+           || CHR (13)
+           || 'Contact Facilitor for configuration.'
+      FROM prs_perslid
+     WHERE prs_perslid_oslogin = '_FACILITOR';
+
+REGISTERONCE('$Id$')
+
+#endif // EXC

EXC/EXC_SEQ.SRC

@@ -0,0 +1,8 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE exc_s_import_key           MINVALUE 1;
+
+REGISTERONCE('$Id$')

EXC/EXC_TAB.SRC

@@ -0,0 +1,44 @@
+/* EXC_TAB.SRC
+ * $Revision$
+ * $Id$
+ */
+
+CREATE_TABLE(exc_import, 0)
+(
+   exc_import_key
+       NUMBER(10)
+       CONSTRAINT exc_k_exc_import_key PRIMARY KEY,
+   room_id
+        VARCHAR2(256),
+   subject
+        VARCHAR2(200),
+   starttime
+        DATE,
+   endtime
+        DATE,
+   organizer
+        VARCHAR2(200),
+   att_mail
+        VARCHAR2(200),
+   att_name
+        VARCHAR2(200),
+   visibility -- 0=Private, 1=Normal
+        NUMBER(4)
+        DEFAULT 1,
+   modifier
+        VARCHAR2(1),
+   appt_id
+        VARCHAR2(500),
+   recur_id
+        VARCHAR2(500),
+   seq_nr
+        NUMBER(16),
+   fac_import_key
+        NUMBER(10)
+        CONSTRAINT exc_r_fac_import_key1 REFERENCES fac_import(fac_import_key) ON DELETE CASCADE,
+   gelukt
+        NUMBER(1),
+   CONSTRAINT exc_c_visibility CHECK (modifier = 'D' OR visibility IS NOT NULL)
+);
+
+REGISTERONCE('$Id$')

EXC/EXC_TRI.SRC

@@ -0,0 +1,18 @@
+#ifdef  EXC
+
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE_TRIGGER(exc_t_exc_import_B_I)
+BEFORE INSERT ON exc_import
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(exc_import_key, exc_s_import_key);
+END;
+/
+
+REGISTERRUN('$Id$')
+
+#endif  // EXC

FAC/FAC_IND.SRC

@@ -26,6 +26,8 @@ CREATE UNIQUE INDEX fac_i_srtnotificatie_code2 on fac_srtnotificatie(fac_srtnoti
 
 CREATE INDEX fac_i_notificatie1 ON fac_notificatie(prs_perslid_key_receiver, fac_notificatie_status);
 CREATE INDEX fac_i_notificatie2 ON fac_notificatie(fac_srtnotificatie_key);
+-- voor ontdubbelingen:
+CREATE INDEX fac_i_notificatie3 ON fac_notificatie(fac_notificatie_refkey); 
 
 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);
@@ -40,6 +42,9 @@ CREATE UNIQUE INDEX fac_i_fac_import_app1
 
 CREATE INDEX imp_i_log_importkey1 ON imp_log(fac_import_key);
 CREATE INDEX imp_i_imp_log2 ON imp_log(imp_log_applicatie);
+CREATE INDEX fac_i_fac_imp_file1 ON fac_imp_file(fac_import_key);
+CREATE INDEX fac_i_fac_imp_csv1 ON fac_imp_csv(fac_import_key);
+
 -- Maakt opruimen efficienter:
 CREATE INDEX fac_i_import_appkey1 ON fac_import(fac_import_app_key, fac_import_key);
 
@@ -69,4 +74,10 @@ CREATE INDEX fac_i_fac_bijlagen_refkey1 ON fac_bijlagen(fac_bijlagen_refkey);
 
 CREATE INDEX fac_i_fac_note_group1 ON fac_note_group(fac_note_group_xmlnode, fac_note_group_volgnr);
 
+CREATE INDEX faq_i_faq_kenmerk1 ON faq_kenmerk(faq_kenmerk_code);
+
+CREATE INDEX fac_i_fac_gui_counter1 ON fac_gui_counter(prs_perslid_key);
+
+CREATE UNIQUE INDEX fac_i_fac_usrrap_cols1 ON fac_usrrap_cols(fac_usrrap_key, UPPER(fac_usrrap_cols_column_name));
+
 REGISTERONCE('$Id$')

FAC/FAC_PACDEL.SRC

@@ -0,0 +1,678 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+/* Purge (definitief echt verijderen) van data >7 jaar zoals met UWVA#61083 
+ * gerealiseerd voor UWV en met MNNL#78302 voor MN.
+ * Proces heeft te maken met het irrelevant raken van data en een wettelijke
+ * bewaarplicht (voor bv belastingdienst) en daarmee impliciet een opruimvrijheid
+ * na die periode, naast emotionele en praktische voordelen, zoals kleinere backupfiles
+ * minder data bij datalekken en de mogelijkheid om nog meer op te ruimen.
+ *
+ *    Gebruik: BEGIN del.fac_purge(1); END;
+ *
+ * Kan en mag herhaaldelijk worden aangeroepen en verwijdert wat verstreken is
+ * en geen latere afhankelijkheden heeft. Er is een lichte volgorde-afhankelijkheid
+ * (de gekozen volgorde is bewust) wat automatisch door herhaling wordt gecompenseerd.
+ *
+ * Praktisch bezien zou een jaarlijkse aanroep best volstaan, maar met een dagelijkse
+ * aanroep blijf je zeer strikt binnen het regime en blijft de (performance) impact
+ * zeer bescheiden.
+ * Er zijn wettelijke termijnen van 7 jaren (84 maanden), maar zoals iedere constante
+ * in de core kan die te overrulen worden met setting datapurge_period (years).
+ *
+ * -- TODO: Misschien ook nog schonen vastgoed, personen, objecten en nog meer?
+ * -- TODO: Periodieke bestelaanvragen/opdrachten niet beschouwen?
+ */
+/* NOTE: since views and package are tighly related, the views are contained here instead of FAC_VIE.SRC */
+
+CREATE_VIEW(fac_v_2purge_bes,0)
+(
+   jaar,
+   bes_bestelling_key
+)
+AS
+   WITH b
+           AS (SELECT bes_bestelling_key,
+                      bes_bestelling_datum,
+                      bes_bestelling_retourvan_key,
+                      COALESCE (
+                         fac.gettrackingdate ('BESREJ', bes_bestelling_key),
+                         fac.gettrackingdate ('BESOTV', bes_bestelling_key))
+                         gesloten
+                 FROM bes_bestelling
+                WHERE bes_bestelling_status IN (1, 6, 7, 8, 9) -- Gesloten bestelling
+                      AND bes_bestelling_datum < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))) 
+     SELECT TO_CHAR (b.bes_bestelling_datum, 'yyyy') jaar, bes_bestelling_key
+       FROM b
+      WHERE bes_bestelling_retourvan_key IS NULL -- Alleen bron-bestelling (dus zonder de retouren)
+            AND NOT EXISTS    -- Geen later gewijzigde child-bestelopdrachten!
+                  (SELECT 1
+                     FROM fac_tracking t, fac_srtnotificatie sn, bes_bestelopdr_item boi, bes_bestelling_item bbi
+                    WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+                          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+                          AND sn.fac_srtnotificatie_xmlnode = 'bestelopdracht'
+                          AND sn.fac_srtnotificatie_code <> 'BES2AN'
+                          AND t.fac_tracking_refkey = boi.bes_bestelopdr_key
+                          AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
+                          AND bbi.bes_bestelling_key = b.bes_bestelling_key)
+            AND NOT EXISTS -- Geen lopende facturen op child-bestelopdrachten!
+                  (SELECT 1
+                     FROM fin_factuur f, bes_bestelopdr_item boi, bes_bestelling_item bbi
+                    WHERE f.fin_factuur_verwijder IS NULL
+                          AND f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
+                          AND f.bes_bestelopdr_key = boi.bes_bestelopdr_key
+                          AND boi.bes_bestelopdr_item_key = bbi.bes_bestelopdr_item_key
+                          AND bbi.bes_bestelling_key = b.bes_bestelling_key);
+
+CREATE_VIEW(fac_v_2purge_bez,0)
+(
+   jaar,
+   bez_afspraak_key,
+   bezoekers
+)
+AS
+   WITH a
+           AS (  SELECT a.bez_afspraak_key,
+                        a.bez_afspraak_datum,
+                        COUNT (*) bezoekers
+                   FROM bez_afspraak a, bez_bezoekers b
+                  WHERE a.bez_afspraak_datum < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+                        AND a.bez_afspraak_key = b.bez_afspraak_key
+               GROUP BY a.bez_afspraak_key, a.bez_afspraak_datum)
+     SELECT TO_CHAR (a.bez_afspraak_datum, 'yyyy') jaar, bez_afspraak_key, bezoekers
+       FROM a;
+
+CREATE_VIEW(fac_v_2purge_res,0)
+(
+   jaar,
+   verwijderd,
+   res_rsv_ruimte_key
+)
+AS
+   WITH r
+           AS (SELECT res_rsv_ruimte_key,
+                      res_reservering_key,
+                      res_rsv_ruimte_volgnr,
+                      res_rsv_ruimte_tot,
+                      res_rsv_ruimte_verwijder
+                 FROM res_rsv_ruimte
+                WHERE res_rsv_ruimte_tot < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12)))
+     SELECT TO_CHAR (res_rsv_ruimte_tot, 'yyyy') jaar, DECODE (res_rsv_ruimte_verwijder, NULL, 'J', 'N') verwijderd, res_rsv_ruimte_key
+       FROM r
+      WHERE NOT EXISTS                     -- Geen latere child-reserveringen!
+               (SELECT 1
+                  FROM res_rsv_ruimte cr               -- Child-reserveringen!
+                 WHERE cr.res_rsv_ruimte_tot > TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+                       AND cr.res_reservering_key = r.res_reservering_key);
+
+-- TODO: Periodieke meldingen/opdrachten niet beschouwen? => Bij MN niet gebruikt!
+CREATE_VIEW(fac_v_2purge_mld,0)
+(
+   jaar,
+   datum,
+   mld_melding_key
+)
+AS
+   WITH m
+           AS (SELECT mld_melding_key,
+                      mld_melding_datum,
+                      mld_melding_start_key,
+                      mld_melding_parentkey,
+                      COALESCE (
+                         fac.gettrackingdate ('MLDREJ', mld_melding_key),
+                         fac.gettrackingdate ('MLDAFM', mld_melding_key), -- Soms niet Afgemeld?
+                         fac.gettrackingdate ('MLDVER', mld_melding_key))
+                         gesloten
+                 FROM mld_melding
+                WHERE mld_melding_status IN (1, 5, 6)              -- Gesloten
+                      AND mld_melding_datum < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12)))
+     SELECT TO_CHAR (m.mld_melding_datum, 'yyyy') jaar, m.mld_melding_datum datum, mld_melding_key
+       FROM m
+      WHERE m.gesloten < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+            AND (m.mld_melding_start_key IS NULL OR m.mld_melding_key = m.mld_melding_start_key) -- Alleen bron-melding
+            AND m.mld_melding_parentkey IS NULL         -- Alleen bron-melding
+            AND NOT EXISTS          -- Geen later gewijzigde child-opdrachten!
+                  (SELECT 1
+                     FROM fac_tracking t, fac_srtnotificatie sn, mld_opdr o
+                    WHERE t.fac_tracking_datum > TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+                          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+                          AND sn.fac_srtnotificatie_xmlnode = 'opdracht'
+                          AND sn.fac_srtnotificatie_code <> 'ORDANO'
+                          AND t.fac_tracking_refkey = o.mld_opdr_key
+                          AND o.mld_melding_key = m.mld_melding_key)
+            AND EXISTS       -- Eventuele start-melding ook > 7 jaar gesloten!
+                  (SELECT 1
+                     FROM m sm                             -- Start-meldingen!
+                    WHERE sm.mld_melding_key = COALESCE (m.mld_melding_start_key, m.mld_melding_key))
+            AND EXISTS      -- Eventuele parent-melding ook > 7 jaar gesloten!
+                  (SELECT 1
+                     FROM m pm                            -- Parent-meldingen!
+                    WHERE pm.mld_melding_key = COALESCE (m.mld_melding_parentkey, m.mld_melding_key))
+            AND NOT EXISTS -- Eventuele vervolg-melding ook > 7 jaar gesloten!
+                  (SELECT 1
+                     FROM mld_melding vm,                -- Vervolg-meldingen!
+                          fac_tracking t,
+                          fac_srtnotificatie sn
+                    WHERE vm.mld_melding_start_key = m.mld_melding_key
+                          AND vm.mld_melding_key = t.fac_tracking_refkey
+                          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+                          AND sn.fac_srtnotificatie_xmlnode = 'melding'
+                          AND sn.fac_srtnotificatie_code <> 'MLDANO'
+                          AND (vm.mld_melding_status NOT IN (1, 5, 6) -- Lopend
+                               OR (EXISTS (SELECT 1 FROM mld_melding vvm where vvm.mld_melding_start_key = vm.mld_melding_key)) -- Geneste vervolgmeldingen. Te ingewikkeld
+                               OR t.fac_tracking_datum > TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12)))) -- Geraakt < 7 jaar geleden
+            AND NOT EXISTS       -- Eventuele child-melding ook > 7 jaar gesloten!
+                  (SELECT 1
+                     FROM mld_melding cm,                  -- Child-meldingen!
+                          fac_tracking t,
+                          fac_srtnotificatie sn
+                    WHERE cm.mld_melding_parentkey = m.mld_melding_key
+                          AND cm.mld_melding_key = t.fac_tracking_refkey
+                          AND t.fac_srtnotificatie_key = sn.fac_srtnotificatie_key
+                          AND sn.fac_srtnotificatie_xmlnode = 'melding'
+                          AND sn.fac_srtnotificatie_code <> 'MLDANO'
+                          AND (cm.mld_melding_status NOT IN (1, 5, 6) -- Lopend
+                               OR t.fac_tracking_datum > TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12)))) -- Geraakt < 7 jaar geleden
+            AND NOT EXISTS       -- Geen lopende facturen op child-opdrachten!
+                  (SELECT 1
+                     FROM fin_factuur f, mld_opdr o
+                    WHERE f.fin_factuur_verwijder IS NULL
+                          AND f.fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
+                          AND f.mld_opdr_key = o.mld_opdr_key
+                          AND o.mld_melding_key = m.mld_melding_key);
+
+CREATE_VIEW(fac_v_2purge_cnt,0)
+(
+   ins_discipline_key,
+   contractsoort,
+   cnt_contract_key,
+   contractnr,
+   cnt_contract_omschrijving,
+   cnt_contract_looptijd_tot,
+   cnt_contract_status
+)
+AS
+   SELECT DISTINCT
+          c.ins_discipline_key,
+          cd.ins_discipline_omschrijving,
+          c.cnt_contract_key,
+          c.cnt_contract_nummer_intern || DECODE (c.cnt_contract_versie, NULL, '', '.' || c.cnt_contract_versie)
+             contractnr,
+          c.cnt_contract_omschrijving,
+          c.cnt_contract_looptijd_tot,
+          c.cnt_contract_status
+     FROM cnt_contract c, cnt_discipline cd
+    WHERE c.cnt_contract_looptijd_tot < TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12)) -- Verlopen > 7 jaar geleden
+          AND c.ins_discipline_key = cd.ins_discipline_key
+          AND NOT EXISTS -- Geen dossier-contract onder dezelfde mantel <= 7 jaar geleden
+                (SELECT 1
+                   FROM cnt_contract dc
+                  WHERE dc.cnt_contract_verwijder IS NULL
+                        AND dc.cnt_contract_looptijd_tot >= TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12))
+                        AND dc.cnt_contract_mantel_key = c.cnt_contract_key)
+          AND NOT EXISTS                 -- Geen lopende facturen op contract!
+                (SELECT 1
+                   FROM fin_factuur
+                  WHERE fin_factuur_verwijder IS NULL
+                        AND fin_factuur_statuses_key IN (2, 3, 5, 6) -- Lopende factuur
+                        AND cnt_contract_key = c.cnt_contract_key);
+
+/* candidate rootview for a fac_v_rap_2purge_all report */
+CREATE_VIEW(fac_v_2purge_all,0)
+(
+   module,
+   jaar,
+   aantal,
+   subaantal
+)
+AS
+     SELECT 'BES', jaar, COUNT (*) aantal, NULL subaantal
+       FROM fac_v_2purge_bes
+   GROUP BY 'BES', jaar
+   UNION ALL
+     SELECT 'BEZ', jaar, COUNT (*) aantal, SUM (bezoekers) subaantal
+       FROM fac_v_2purge_bez
+   GROUP BY 'BEZ', jaar
+   UNION ALL
+     SELECT 'RES', jaar, COUNT (*) aantal, NULL subaantal
+       FROM fac_v_2purge_res
+   GROUP BY 'RES', jaar
+   UNION ALL
+     SELECT 'MLD', jaar, COUNT (*) aantal, NULL subaantal
+       FROM fac_v_2purge_mld
+   GROUP BY 'MLD', jaar
+   UNION ALL
+     SELECT 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy') jaar, COUNT ( * ) aantal, NULL subaantal
+       FROM fac_v_2purge_cnt
+   GROUP BY 'CNT', TO_CHAR (cnt_contract_looptijd_tot, 'yyyy');
+
+
+
+/* THE PACKAGE (that does the job using the views above) */
+
+CREATE OR REPLACE PACKAGE del
+AS
+    -- If you are verysure, call this procedure with parameter 1
+    -- If you need extended logging, add 2 (so use 3)
+    PROCEDURE fac_purge (iamverysure IN NUMBER DEFAULT 0);
+END del;
+/
+
+CREATE OR REPLACE PACKAGE BODY del
+AS
+    PROCEDURE fac_purge(iamverysure IN NUMBER DEFAULT 0)
+    AS
+        -- BES per jaar
+        CURSOR cbes (p_jaar VARCHAR2)
+        IS
+              SELECT bes_bestelling_key
+                FROM fac_v_2purge_bes
+               WHERE jaar <= p_jaar
+            ORDER BY 1;
+
+        -- BEZ per jaar (samen met RES)
+        CURSOR cbez (p_jaar VARCHAR2)
+        IS
+              SELECT bez_afspraak_key
+                FROM fac_v_2purge_bez
+               WHERE jaar <= p_jaar
+            ORDER BY 1;
+
+        -- RES per jaar (samen met BEZ)
+        CURSOR cres (p_jaar VARCHAR2)
+        IS
+              SELECT res_rsv_ruimte_key
+                FROM fac_v_2purge_res
+               WHERE jaar <= p_jaar
+            ORDER BY 1;
+
+        -- MLD per jaar (of maand)
+        CURSOR cmld (p_datum DATE)
+        IS
+              SELECT mld_melding_key
+                FROM fac_v_2purge_mld
+               WHERE TRUNC (datum) <= p_datum
+            ORDER BY 1;
+
+        -- CNT allemaal tegelijk, hoeft niet per jaar
+        CURSOR ccnt
+        IS
+              SELECT ins_discipline_key, cnt_contract_key
+                FROM fac_v_2purge_cnt
+            ORDER BY 1, 2;
+
+        v_errormsg           VARCHAR2 (1000);
+        oracle_err_num       NUMBER;
+        oracle_err_mes       VARCHAR2 (200);
+        v_count              NUMBER (10);
+        v_jaar1              VARCHAR2 (4);
+        v_jaar2              VARCHAR2 (4);
+        v_datum              DATE;
+        v_purgeblock_start   DATE; -- voor logging-timing
+        v_purgeblock_end     DATE; -- voor logging-timing
+        v_genesisdatum       DATE; -- de nieuwe datum van het begin der aarde, alles voor deze datum mag weg.
+    BEGIN
+
+        -- Early Exit
+        IF fac.getsetting ('datapurge_period') = 99
+        THEN
+            fac.writelog ('$PURGE$','S','No purge of data, purge is disabled', 'Configuration of datapurge_period 99 (default) means disabled');
+            RETURN;
+        END IF;
+
+        -- Bepalen we obv vandaag en de setting datapurge_period (in jaren, default 99)
+        -- We vinden januari een uitloopmaand, vandaar de -1. Als iemand anders dat zwaarwegend anders gaat vinden
+        -- dan moet dat een datapurge_gracemonths worden. Dezelfde berekening zit ook in alle views hierboven
+        -- > Dit is dus 1 januari van het jaar dat bewaard moet blijven <
+        -- (niet onlogisch om deze datum als parameter aan de purge mee te kunnen geven?)
+        v_genesisdatum := TRUNC (ADD_MONTHS (TRUNC (ADD_MONTHS (SYSDATE, -1), 'yyyy'), -fac.getsetting ('datapurge_period') * 12));
+        DBMS_OUTPUT.put_line('About to (re)purge anything before '||TO_CHAR(v_genesisdatum,'DD-MM-YYYY'));
+        IF BITAND(iamverysure,1) = 1
+        THEN
+            fac.writelog ('$PURGE$','I','Purge anything before '||TO_CHAR(v_genesisdatum,'DD-MM-YYYY'), '');
+        ELSE
+            fac.writelog ('$PURGE$','I','Purge SIMULATION OF anything before '||TO_CHAR(v_genesisdatum,'DD-MM-YYYY'), '');
+        END IF;
+
+        SELECT COALESCE(SUM (aantal),0) INTO v_count FROM fac_v_2purge_all;
+        fac.writelog ('$PURGE$','S','There is a grand total of '||TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.''')||' items to possibly purge.', '');
+        DBMS_OUTPUT.put_line('There is a grand total of '||TO_CHAR(v_count)||' items to purge.');
+        IF v_count = 0
+        THEN
+            DBMS_OUTPUT.put_line('So nothing to purge, bye.');
+            fac.writelog ('$PURGE$','S','So nothing to purge, done.', '');
+            RETURN;
+        END IF;
+
+        DBMS_OUTPUT.put_line('Starting bestellingen');
+        -- Telkens een jaartje schonen totdat achterstand ingelopen
+        v_count := 0;
+        v_purgeblock_start := SYSDATE;
+
+        SELECT MIN (jaar), MAX (jaar) 
+          INTO v_jaar1, v_jaar2 
+          FROM fac_v_2purge_bes 
+         WHERE jaar > '1990';
+        DBMS_OUTPUT.put_line('Range is '||v_jaar1||'-'||v_jaar2);
+
+        FOR r IN cbes (v_jaar2)
+        LOOP
+            BEGIN
+                v_errormsg := 'Error purging bestelling: ' || TO_CHAR (r.bes_bestelling_key);
+                IF BITAND(iamverysure,1) = 1
+                THEN
+                    bes.remove (r.bes_bestelling_key);
+                END IF;
+                IF BITAND(iamverysure,2) = 2
+                THEN
+                    fac.writelog ('$PURGE$','I','Purged '||TO_CHAR(r.bes_bestelling_key)||'.', '');
+                END IF;
+                v_count := v_count + 1;
+
+                -- Elke 1000 BES een COMMIT
+                IF MOD (v_count, 1000) = 0
+                THEN
+                    COMMIT;
+                END IF;
+            EXCEPTION
+                WHEN OTHERS
+                THEN
+                    v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+                    fac.writelog ('$PURGE$','E', v_errormsg, 'BES-loop');
+            END;
+        END LOOP;
+
+        v_purgeblock_end := SYSDATE;
+
+        IF v_jaar1 = v_jaar2
+        THEN
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 1/5 #Bestellingen purged (year=' || v_jaar2 || '): ' || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        ELSE
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 1/5 #Bestellingen purged (years='
+                || v_jaar1
+                || '-'
+                || v_jaar2
+                || '): '
+                || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        END IF;
+        DBMS_OUTPUT.put_line('Bestellingen done.');
+        COMMIT;
+
+        DBMS_OUTPUT.put_line('Starting bezoekers');
+        v_count := 0;
+        v_purgeblock_start := SYSDATE;
+
+        SELECT MIN (jaar), MAX (jaar) 
+          INTO v_jaar1, v_jaar2 
+          FROM fac_v_2purge_bez 
+         WHERE jaar > '1990';
+        DBMS_OUTPUT.put_line('Range is '||v_jaar1||'-'||v_jaar2);
+
+        FOR r IN cbez (v_jaar2)
+        LOOP
+            BEGIN
+                v_errormsg := 'Error purging afspraak: ' || TO_CHAR (r.bez_afspraak_key);
+                IF BITAND(iamverysure,1) = 1
+                THEN
+                    bez.remove (r.bez_afspraak_key);
+                END IF;
+                IF BITAND(iamverysure,2) = 2
+                THEN
+                    fac.writelog ('$PURGE$','I','Purged '||TO_CHAR(r.bez_afspraak_key)||'.', '');
+                END IF;
+                v_count := v_count + 1;
+
+                -- Elke 1000 BEZ een COMMIT
+                IF MOD (v_count, 1000) = 0
+                THEN
+                    COMMIT;
+                END IF;
+            EXCEPTION
+                WHEN OTHERS
+                THEN
+                    v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+                    fac.writelog ('$PURGE$','E', v_errormsg, 'BEZ-loop');
+            END;
+        END LOOP;
+
+        v_purgeblock_end := SYSDATE;
+
+        IF v_jaar1 = v_jaar2
+        THEN
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 2/5 #Afspraken purged (year=' || v_jaar2 || '): ' || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        ELSE
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 2/5 #Afspraken purged (years='
+                || v_jaar1
+                || '-'
+                || v_jaar2
+                || '): '
+                || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        END IF;
+
+        COMMIT;
+        DBMS_OUTPUT.put_line('Bezoekers done.');
+
+        DBMS_OUTPUT.put_line('Starting reserveringen');
+        v_count := 0;
+        v_purgeblock_start := SYSDATE;
+        -- jaren kennelijk als BEZ
+
+        FOR r IN cres (v_jaar2)
+        LOOP
+            BEGIN
+                v_errormsg := 'Error purging reservering: ' || TO_CHAR (r.res_rsv_ruimte_key);
+                IF BITAND(iamverysure,1) = 1
+                THEN
+                    res.remove (r.res_rsv_ruimte_key);
+                END IF;
+                IF BITAND(iamverysure,2) = 2
+                THEN
+                    fac.writelog ('$PURGE$','I','Purged '||TO_CHAR(r.res_rsv_ruimte_key)||'.', '');
+                END IF;
+                v_count := v_count + 1;
+
+                -- Elke 1000 RES een COMMIT
+                IF MOD (v_count, 1000) = 0
+                THEN
+                    COMMIT;
+                END IF;
+            EXCEPTION
+                WHEN OTHERS
+                THEN
+                    v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+                    fac.writelog ('$PURGE$','E', v_errormsg, 'RES-loop');
+            END;
+        END LOOP;
+
+        v_purgeblock_end := SYSDATE;
+
+        IF v_jaar1 = v_jaar2
+        THEN
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 3/5 #Reserveringen purged (year=' || v_jaar1 || '): ' || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        ELSE
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 3/5 #Reserveringen purged (years='
+                || v_jaar1
+                || '-'
+                || v_jaar2
+                || '): '
+                || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        END IF;
+
+        DBMS_OUTPUT.put_line('Reserveringen done.');
+        COMMIT;
+
+        DBMS_OUTPUT.put_line('Starting meldingen');
+        v_count := 0;
+        v_purgeblock_start := SYSDATE;
+
+        SELECT MIN (jaar), MAX (jaar) 
+          INTO v_jaar1, v_jaar2 
+          FROM fac_v_2purge_mld
+         WHERE jaar > '1990';
+        DBMS_OUTPUT.put_line('Range is '||v_jaar1||'-'||v_jaar2);
+
+        v_errormsg := 'Fout bepalen oudste datum';
+        v_datum := fac.safe_to_date ('31-12-' || v_jaar2, 'dd-mm-yyyy');
+
+        FOR r IN cmld (v_datum)
+        LOOP
+            BEGIN
+                v_errormsg := 'Error purging melding: ' || TO_CHAR (r.mld_melding_key);
+                IF BITAND(iamverysure,1) = 1
+                THEN
+                    mld.remove (r.mld_melding_key);
+                END IF;
+                IF BITAND(iamverysure,2) = 2
+                THEN
+                    fac.writelog ('$PURGE$','I','Purged '||TO_CHAR(r.mld_melding_key)||'.', '');
+                END IF;
+                v_count := v_count + 1;
+
+                -- Elke 1000 MLD een COMMIT
+                IF MOD (v_count, 1000) = 0
+                THEN
+                    COMMIT;
+                END IF;
+            EXCEPTION
+                WHEN OTHERS
+                THEN
+                    v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+                    fac.writelog ('$PURGE$','E', v_errormsg, 'MLD-loop');
+            END;
+        END LOOP;
+
+        v_purgeblock_end := SYSDATE;
+
+        --fac.writelog ('$PURGE$', 'S', '#Meldingen purged (maand=' || TO_CHAR (v_datum - 1, 'yyyy-mm') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        --fac.writelog ('$PURGE$', 'S', '#Meldingen purged (year=' || TO_CHAR (v_datum - 1, 'yyyy') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        IF v_jaar1 = v_jaar2
+        THEN
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 4/5 #Meldingen purged (year=' || v_jaar1 || '): ' || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        ELSE
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 4/5 #Meldingen purged (years='
+                || v_jaar1
+                || '-'
+                || v_jaar2
+                || '): '
+                || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        END IF;
+
+        COMMIT;
+        DBMS_OUTPUT.put_line('Meldingen done.');
+
+        DBMS_OUTPUT.put_line('Starting contracten');
+        v_count := 0;
+        v_purgeblock_start := SYSDATE;
+
+        --v_errormsg := 'Fout bepalen oudste datum';
+        --SELECT MIN (cnt_contract_looptijd_tot)
+        --  INTO v_datum
+        --  FROM fac_v_2purge_cnt
+        -- WHERE cnt_contract_looptijd_tot > TO_DATE ( '01-01-1999', 'dd-mm-yyyy');
+        --v_datum := TRUNC (ADD_MONTHS (v_datum, 12), 'yyyy');
+
+        SELECT TO_CHAR(MIN (cnt_contract_looptijd_tot), 'YYYY'), TO_CHAR (MAX (cnt_contract_looptijd_tot), 'YYYY')
+          INTO v_jaar1, v_jaar2 
+          FROM fac_v_2purge_cnt;
+        DBMS_OUTPUT.put_line('Range is '||v_jaar1||'-'||v_jaar2);
+
+        -- Alle te schonen contracten(-dossiers) in 1x
+        FOR r IN ccnt
+        LOOP
+            BEGIN
+                v_errormsg := 'Error purging contract: ' || TO_CHAR (r.cnt_contract_key);
+                IF BITAND(iamverysure,1) = 1
+                THEN
+                    cnt.remove (r.cnt_contract_key);
+                END IF;
+                IF BITAND(iamverysure,2) = 2
+                THEN
+                    fac.writelog ('$PURGE$','I','Purged '||TO_CHAR(r.cnt_contract_key)||'.', '');
+                END IF;
+                v_count := v_count + 1;
+
+                -- Elke 1000 CNT een COMMIT!
+                IF MOD (v_count, 1000) = 0
+                THEN
+                    COMMIT;
+                END IF;
+            EXCEPTION
+                WHEN OTHERS
+                THEN
+                    v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+                    fac.writelog ('$PURGE$','E', v_errormsg, 'CNT-loop');
+            END;
+        END LOOP;
+
+        v_purgeblock_end := SYSDATE;
+
+        --fac.writelog ('$PURGE$', 'S', '#Contracten purged (year=' || TO_CHAR (v_datum - 1, 'yyyy') || '): ' || TO_CHAR (v_count), TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        IF v_jaar1 = v_jaar2
+        THEN
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 5/5 #Contracten purged (year=' || v_jaar1 || '): ' || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        ELSE
+            fac.writelog (
+                '$PURGE$',
+                'S',
+                'Step 5/5 #Contracten purged (years='
+                || v_jaar1
+                || '-'
+                || v_jaar2
+                || '): '
+                || TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.'''),
+                TO_CHAR (ROUND ((v_purgeblock_end - v_purgeblock_start) * 24 * 60), 'FM990') || 'm');
+        END IF;
+
+        COMMIT;
+         DBMS_OUTPUT.put_line('Contracten done.');
+
+        -- Na afloop checken of nog restjes zijn
+        SELECT COALESCE(SUM (aantal),0) INTO v_count FROM fac_v_2purge_all;
+        fac.writelog ('$PURGE$','I','There is a grand total of '||TO_CHAR (v_count, '999G999G999', 'NLS_NUMERIC_CHARACTERS = '',.''')||' items left to purge.', '');
+
+   EXCEPTION
+        WHEN OTHERS
+        THEN
+            v_errormsg := v_errormsg || '/'|| SUBSTR (SQLERRM, 1, 200);
+            fac.writelog ('$PURGE$','E', 'Purge aborted!', v_errormsg);
+            COMMIT;
+    END;
+END del;
+/

FAC/FAC_PACFLEX.SRC

@@ -24,7 +24,8 @@
      FUNCTION getflex (pmodule IN VARCHAR2,
                        p_kenmerk_key   IN NUMBER,
                        p_ref_key       IN NUMBER,
-                       p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+                       p_niveau        IN VARCHAR2 DEFAULT NULL,
+                       p_optional      IN NUMBER   DEFAULT 0) RETURN VARCHAR2;
      PROCEDURE setflex (pmodule IN VARCHAR2,
                         p_kenmerk_key   IN NUMBER,
                         p_ref_key       IN NUMBER,
@@ -63,14 +64,11 @@
                                   p_disk_directory  IN VARCHAR2,
                                   p_filename        IN VARCHAR2);
      FUNCTION getflexexprtype (pmodule IN VARCHAR2,
-                                 p_kenmerk_key   IN NUMBER,
-                                 p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+                                 p_kenmerk_key   IN NUMBER) RETURN VARCHAR2;
      FUNCTION getflexexpression (pmodule IN VARCHAR2,
-                                 p_kenmerk_key   IN NUMBER,
-                                 p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+                                 p_kenmerk_key   IN NUMBER) RETURN VARCHAR2;
      FUNCTION getflexshowexpr (pmodule IN VARCHAR2,
-                               p_kenmerk_key   IN NUMBER,
-                               p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
+                               p_kenmerk_key   IN NUMBER) RETURN VARCHAR2;
      FUNCTION getdomeinwaarde (dkey IN NUMBER,
                                waarde IN VARCHAR2,
                                ignorewhenxmlnode IN NUMBER DEFAULT 0) RETURN VARCHAR2;
@@ -153,7 +151,8 @@
      FUNCTION getflex (pmodule         IN VARCHAR2,
                        p_kenmerk_key   IN NUMBER,
                        p_ref_key       IN NUMBER,
-                       p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+                       p_niveau        IN VARCHAR2 DEFAULT NULL,
+                       p_optional      IN NUMBER   DEFAULT 0) RETURN VARCHAR2
      IS
         l_sql_kenm            VARCHAR2 (4500);
         l_waarde              VARCHAR2 (4000);
@@ -168,6 +167,11 @@
         l_kcolumnname_showexpr VARCHAR2 (30);
         l_module              VARCHAR2 (3);
      BEGIN
+        IF p_optional = 1 AND p_ref_key IS NULL
+        THEN
+            return NULL;
+        END IF;
+
         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_kcolumnname_showexpr);
         l_sql_kenm := 'SELECT ' || l_kcolumnname_waarde ||
@@ -315,9 +319,11 @@
             -- Wijzig de root_key van alle records die naar het te verwijderen record verwijzen
             UPDATE fac_bijlagen
                SET fac_bijlagen_root_key = v_new_root_key
-                 , fac_bijlagen_disk_directory = v_cur_disk_dir
-             WHERE fac_bijlagen_root_key = v_cur_root_key
-               AND fac_bijlagen_verwijder IS NULL;
+             WHERE fac_bijlagen_root_key = v_cur_root_key;
+            -- Wijzig alleen van de nieuwe root de directory
+            UPDATE fac_bijlagen
+               SET fac_bijlagen_disk_directory = v_cur_disk_dir
+             WHERE fac_bijlagen_key = v_new_root_key;
         END IF;
         --
         -- Nu mag dit record verwijderd worden
@@ -502,8 +508,7 @@
      END;
 
      FUNCTION getflexexprtype (pmodule IN VARCHAR2,
-                                 p_kenmerk_key   IN NUMBER,
-                                 p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+                                 p_kenmerk_key   IN NUMBER) RETURN VARCHAR2
      IS
         l_module              VARCHAR2 (3);
         l_sql_expr            VARCHAR2 (4500);
@@ -538,8 +543,7 @@
      END;
 
      FUNCTION getflexexpression (pmodule IN VARCHAR2,
-                                 p_kenmerk_key   IN NUMBER,
-                                 p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+                                 p_kenmerk_key   IN NUMBER) RETURN VARCHAR2
      IS
         l_module              VARCHAR2 (3);
         l_sql_expr            VARCHAR2 (4500);
@@ -565,8 +569,7 @@
      END;
 
      FUNCTION getflexshowexpr (pmodule IN VARCHAR2,
-                               p_kenmerk_key   IN NUMBER,
-                               p_niveau        IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2
+                               p_kenmerk_key   IN NUMBER) RETURN VARCHAR2
      IS
         l_module              VARCHAR2 (3);
         l_sql_expr            VARCHAR2 (4500);
@@ -689,8 +692,8 @@
         LOOP
            l_cursor_exprval := DBMS_SQL.open_cursor;
            -- Expressie opvragen.
-           l_exprtype := flx.getflexexprtype(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
-           l_expr := flx.getflexexpression(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
+           l_exprtype := flx.getflexexprtype(pmodule, expr.fac_kenmwaarden_kenmerk_key);
+           l_expr := flx.getflexexpression(pmodule, expr.fac_kenmwaarden_kenmerk_key);
            IF l_exprtype IS NOT NULL AND l_expr IS NOT NULL
            THEN
                l_sql_exprval := 'SELECT ' || '(' || l_expr || ')' || '  FROM DUAL';
@@ -702,7 +705,8 @@
                                -20001,
                                   'Error parsing flex-expression ' || pmodule || ' kenmerkkey:' || expr.fac_kenmwaarden_kenmerk_key
                                   || CHR(10) || SQLERRM
-                                  || CHR(10) || l_sql_exprval);
+                                  || CHR(10) || l_sql_exprval
+                                  || CHR(10) || 'Original: ' || l_expr);
                END;
                --DBMS_SQL.describe_columns(l_cursor_exprval, l_colcnt, l_desctab);
                IF expr.fac_kenmwaarden_kenmerktype = 'N'
@@ -711,9 +715,6 @@
                ELSIF expr.fac_kenmwaarden_kenmerktype = 'V'
                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;
@@ -805,10 +806,6 @@
                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;
@@ -850,11 +847,16 @@
 
             -- hierboven zijn ##EXPR## berekende kenmerken verwerkt
             -- Nu nog eventuele ##SHOW## om voorwaardelijk zichtbaar te maken
-            -- (JGL: kan dat eigenlijk niet samengenomen worden? Ik zie veel herhaling)
-            l_expr := flx.getflexshowexpr(pmodule, expr.fac_kenmwaarden_kenmerk_key, expr.fac_kenmwaarden_niveau);
+            l_expr := flx.getflexshowexpr(pmodule, expr.fac_kenmwaarden_kenmerk_key);
             IF l_expr IS NOT NULL
             THEN
-              l_sql_exprval := 'SELECT ' || '(' || l_expr || ')' || '  FROM DUAL';
+              DBMS_OUTPUT.PUT_LINE('Berekenen show-expressie voor kenmerk ' || expr.fac_kenmwaarden_kenmerk_key);
+              l_sql_exprval := 'SELECT CASE'
+                            || '         WHEN NVL (TO_CHAR(' || l_expr || '), ''0'') = ''0'''
+                            || '         THEN 0' -- als l_expr NULL, 0 of '0' oplevert
+                            || '         ELSE 1' -- alle andere waarden
+                            || '       END showexpr'
+                            || '  FROM DUAL';
               BEGIN
                 DBMS_SQL.parse (l_cursor_exprval, l_sql_exprval, DBMS_SQL.native);
               EXCEPTION
@@ -863,21 +865,11 @@
                               -20001,
                                  'Error parsing flex-expression ' || pmodule || ' kenmerkkey:' || expr.fac_kenmwaarden_kenmerk_key
                                  || CHR(10) || SQLERRM
-                                 || CHR(10) || l_sql_exprval);
+                                 || CHR(10) || l_sql_exprval
+                                 || CHR(10) || 'Original: ' || l_expr);
               END;
                --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 = 'V'
-               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;
+               DBMS_SQL.define_column(l_cursor_exprval, 1, l_exprval_num); -- onze expressie is altijd numeriek
                l_cntbind := REGEXP_COUNT (l_sql_exprval,
                                           l_rflex,
                                           1,
@@ -934,69 +926,15 @@
                                   || CHR(10) || SQLERRM
                                   || CHR(10) || l_sql_exprval);
                END;
-               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);
-                  IF (l_exprval IS NOT NULL AND expr.fac_kenmwaarden_kenmerkdec > 0)
-                  THEN
-                     -- Voeg gewenst aantal decimalen toe
-                     -- en een voorloop nul als het begint met een punt.
-                     IF (INSTR(l_exprval,'.') = 0)
-                     THEN
-                        l_exprval := l_exprval || '.';
-                     ELSIF (INSTR(l_exprval,'.') = 1)
-                     THEN
-                        l_exprval := '0' || l_exprval;
-                     END IF;
-                     l_exprval := l_exprval || RPAD('0', expr.fac_kenmwaarden_kenmerkdec, '0');
-                     l_exprval := SUBSTR(l_exprval, 1, INSTR(l_exprval, '.') + expr.fac_kenmwaarden_kenmerkdec);
-                  END IF;
-               ELSIF expr.fac_kenmwaarden_kenmerktype = 'V'
-               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 AND l_exprval IS NOT NULL AND l_exprval <> '0'
-                  THEN
-                    -- Waarde opslaan in de database
-                    flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, expr.fac_kenmwaarden_niveau, expr.fac_kenmwaarden_waarde);
-                  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_exprwaarde = 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 AND l_exprval IS NOT NULL AND l_exprval <> '0'
-                  THEN
-                    -- Waarde opslaan in de database
-                    flx.setflex (l_module, expr.fac_kenmwaarden_kenmerk_key, prefkey, expr.fac_kenmwaarden_waarde);
-                  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_exprwaarde = 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.column_value (l_cursor_exprval, 1, l_exprval_num);
+
+               UPDATE fac_kenmwaarden
+                  SET fac_kenmwaarden_exprwaarde = TO_CHAR(l_exprval_num) -- '0' of '1'
+                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_isexpr = 1;
             END IF;
           DBMS_SQL.close_cursor(l_cursor_exprval);
         END LOOP;

FAC/FAC_PACL.SRC

@@ -196,26 +196,31 @@ AS
 
    -- Oracle variant van de ASP-L functie
    -- 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
+   -- Geeft de lcl zelf retour als deze niet gedefinieerd is (beter dan nodatafound)
+   FUNCTION l (pnaam IN VARCHAR2, pautolcl IN NUMBER DEFAULT 0)
+       RETURN VARCHAR2
    AS
-      retval fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
+       retval   fac_locale_xsl.fac_locale_xsl_tekst%TYPE;
    BEGIN
-      --  Voor lcl_noti_* maar verder generiek
-      IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%' THEN
-        RETURN pnaam;
-      END IF;
-
-      SELECT COALESCE(fac_locale_xsl_cust, fac_locale_xsl_tekst)
-        INTO retval
-        FROM fac_locale_xsl
-       WHERE fac_locale_xsl_lang = lcl.getuserlanguage ()
-         AND fac_locale_xsl_label = pnaam
-         AND fac_locale_xsl_module = 'ASP';
-
-      RETURN retval;
+       --  Voor lcl_noti_* maar verder generiek
+       IF pautolcl = 1 AND pnaam NOT LIKE 'lcl_%'
+       THEN
+           RETURN pnaam;
+       END IF;
+       BEGIN
+           SELECT COALESCE (fac_locale_xsl_cust, fac_locale_xsl_tekst)
+             INTO retval
+             FROM fac_locale_xsl
+            WHERE     fac_locale_xsl_lang = lcl.getuserlanguage ()
+                  AND fac_locale_xsl_label = pnaam
+                  AND fac_locale_xsl_module = 'ASP';
+       EXCEPTION
+           WHEN NO_DATA_FOUND
+           THEN
+               retval := pnaam;
+       END;
+       RETURN retval;
    END;
-
    PROCEDURE fallback_languages
    AS
    BEGIN

FAC/FAC_PACTSK.SRC

@@ -0,0 +1,181 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+/*  FAC_PACTSK
+ *
+ *  Contains all functions for tasker.
+ *
+ */
+
+CREATE OR REPLACE PACKAGE tsk
+AS
+    PROCEDURE registercust (p_customerid VARCHAR2 DEFAULT NULL,
+                            p_schema VARCHAR2 DEFAULT NULL);
+    PROCEDURE registertask (p_taskcode VARCHAR2,
+                            p_customerid VARCHAR2 DEFAULT NULL);
+    PROCEDURE starttask (p_taskcode VARCHAR2,
+                         p_nextrun DATE DEFAULT SYSDATE,
+                         p_customerid VARCHAR2 DEFAULT NULL);
+    PROCEDURE waittask  (pinterval NUMBER DEFAULT 5,
+                         ptimeout NUMBER DEFAULT 300);
+END tsk;
+/
+
+CREATE OR REPLACE PACKAGE BODY tsk
+AS
+    PROCEDURE registercust (p_customerid VARCHAR2 DEFAULT NULL,
+                            p_schema VARCHAR2 DEFAULT NULL)
+    AS
+        tsk_master_schema VARCHAR(32);
+        custid            fac_version.fac_version_cust%TYPE;
+        selfid            fac_version.fac_version_cust%TYPE;
+        fac_schema        fac_version.fac_version_schema%TYPE;
+        currentdb_schema  VARCHAR2 (64);
+        tsksql            VARCHAR2 (4000);
+        cursor_name       INTEGER;
+        rows_processed    INTEGER;
+    BEGIN
+        SELECT fac_version_cust,
+               fac_version_schema
+          INTO selfid,
+               fac_schema
+          FROM fac_version;
+        custid := COALESCE(p_customerid, selfid);
+        tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
+
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
+        THEN    -- zelf oplossen
+          BEGIN
+            INSERT INTO fac_cust(fac_cust_customerid, fac_cust_schema)
+               VALUES(custid, COALESCE(p_schema, fac_schema));
+           EXCEPTION
+           WHEN DUP_VAL_ON_INDEX
+           THEN
+               NULL;
+          END;
+          -- Schema bijwerken
+          UPDATE fac_cust
+             SET fac_cust_schema = COALESCE(p_schema, fac_schema)
+           WHERE fac_cust_customerid = custid;
+        ELSE    -- Remote register
+            tsksql := 'BEGIN ' || tsk_master_schema || '.tsk.registercust(:custid, :schema); END;';
+
+            cursor_name := DBMS_SQL.open_cursor;
+            DBMS_SQL.PARSE (cursor_name, tsksql, DBMS_SQL.NATIVE);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':custid', selfid);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':schema', fac_schema);
+            rows_processed := DBMS_SQL.EXECUTE (cursor_name);
+            DBMS_SQL.CLOSE_CURSOR (cursor_name);
+        END IF;
+    END;
+
+    PROCEDURE registertask (p_taskcode VARCHAR2,
+                            p_customerid VARCHAR2 DEFAULT NULL)
+    AS
+        tsk_master_schema VARCHAR(32);
+        selfid            fac_version.fac_version_cust%TYPE;
+        tsksql            VARCHAR2 (4000);
+        currentdb_schema  VARCHAR2 (64);
+        cursor_name       INTEGER;
+        rows_processed    INTEGER;
+    BEGIN
+        SELECT fac_version_cust INTO selfid FROM fac_version;
+        tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
+
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
+        THEN    -- zelf oplossen
+            BEGIN
+                INSERT INTO fac_task(fac_cust_key, fac_task_code)
+                    SELECT fac_cust_key, p_taskcode
+                      FROM fac_cust
+                     WHERE fac_cust_customerid = COALESCE(p_customerid, selfid);
+            EXCEPTION
+            WHEN DUP_VAL_ON_INDEX
+            THEN
+                NULL;
+            END;
+        ELSE    -- start remote tasker
+            tsksql := 'BEGIN ' || tsk_master_schema || '.tsk.registertask(:taskcode, :custid); END;';
+
+            cursor_name := DBMS_SQL.open_cursor;
+            DBMS_SQL.PARSE (cursor_name, tsksql, DBMS_SQL.NATIVE);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':custid', selfid);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':taskcode', p_taskcode);
+            rows_processed := DBMS_SQL.EXECUTE (cursor_name);
+            DBMS_SQL.CLOSE_CURSOR (cursor_name);
+        END IF;
+    END;
+
+    -- veronderstelt dat taak al correct is geregistreerd
+    PROCEDURE starttask (p_taskcode VARCHAR2,
+                         p_nextrun DATE DEFAULT SYSDATE,
+                         p_customerid VARCHAR2 DEFAULT NULL)
+    AS
+        tsk_master_schema VARCHAR(32);
+        selfid            fac_version.fac_version_cust%TYPE;
+        tsksql            VARCHAR2 (4000);
+        currentdb_schema  VARCHAR2 (64);
+        cursor_name       INTEGER;
+        rows_processed    INTEGER;
+    BEGIN
+        SELECT fac_version_cust INTO selfid FROM fac_version;
+        tsk_master_schema := fac.getsetting ('tsk_master_schema');
+        currentdb_schema := SYS_CONTEXT ('USERENV', 'CURRENT_SCHEMA');
+
+        IF tsk_master_schema IS NULL OR tsk_master_schema = '*SELF*' OR tsk_master_schema = currentdb_schema
+        THEN    -- zelf oplossen
+            UPDATE fac_task
+               SET fac_task_nextrun = fac.safe_LEAST (p_nextrun, fac_task_nextrun)
+             WHERE fac_task_code = p_taskcode
+               AND fac_cust_key = (SELECT fac_cust_key
+                                    FROM fac_cust
+                                   WHERE fac_cust_customerid = COALESCE(p_customerid, selfid));
+        ELSE    -- start remote tasker
+            tsksql := 'BEGIN ' || tsk_master_schema || '.tsk.starttask(:taskcode, :nextrun, :custid); END;';
+
+            cursor_name := DBMS_SQL.open_cursor;
+            DBMS_SQL.PARSE (cursor_name, tsksql, DBMS_SQL.NATIVE);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':custid', selfid);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':taskcode', p_taskcode);
+            DBMS_SQL.BIND_VARIABLE (cursor_name, ':nextrun', p_nextrun);
+            rows_processed := DBMS_SQL.EXECUTE (cursor_name);
+            DBMS_SQL.CLOSE_CURSOR (cursor_name);
+        END IF;
+    END;
+
+    -- Keert terug als er iets interessants in fac_task staat
+    -- of als timeout is verstreken
+    PROCEDURE waittask (pinterval NUMBER DEFAULT 5,
+                        ptimeout NUMBER DEFAULT 300)
+    AS
+        timeend   DATE;
+        firsttask DATE;
+    BEGIN
+        timeend := SYSDATE + ptimeout / 60/60/24;
+        WHILE timeend > SYSDATE
+        LOOP
+            SELECT MIN (fac_task_nextrun)
+              INTO firsttask
+              FROM fac_task tt, fac_cust tsko
+            WHERE   tt.fac_cust_key = tsko.fac_cust_key
+                AND fac_cust_enabled > 0
+                AND fac_task_nextrun <= SYSDATE
+                AND BITAND (fac_task_flags, 1) = 1;
+
+            IF firsttask <= SYSDATE
+            THEN
+                RETURN;
+            END IF;
+
+            DBMS_SESSION.SLEEP(pinterval);
+        END LOOP;
+    END;
+END tsk;
+/
+-- tsk_master_schema needs:
+-- GRANT EXECUTE ON tsk TO PUBLIC
+
+REGISTERRUN('$Id$')

FAC/FAC_SEQ.SRC

@@ -24,7 +24,6 @@ CREATE SEQUENCE fac_s_fac_export_app_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_import_key            MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_activiteit_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_setting_key           MINVALUE 1;
-CREATE SEQUENCE fac_s_fac_qlikview_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_tracking_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_menuitems_key         MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_menu_key              MINVALUE 1;
@@ -38,13 +37,12 @@ CREATE SEQUENCE fac_s_fac_locale_xref_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmerkdomein_key     MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_kenmwaarden_key       MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_widget_key            MINVALUE 1;
-/* Alvast voor 2022.1
 CREATE SEQUENCE fac_s_fac_widget_page_key       MINVALUE 100;
 CREATE SEQUENCE fac_s_fac_widget_onpage_key     MINVALUE 1;
-*/
 CREATE SEQUENCE fac_s_fac_note_group_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_code2label_key        MINVALUE 1;
 CREATE SEQUENCE imp_s_imp_log_key               MINVALUE 1;
+CREATE SEQUENCE fac_s_imp_csv_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_api_key               MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_audit_key             MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_auditfail_key         MINVALUE 1;
@@ -53,10 +51,13 @@ 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_bookmark_key          MINVALUE 1;
-CREATE SEQUENCE fac_s_fac_qvw_ticket_key        MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_session_key           MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_sequence_key          MINVALUE 1;
 CREATE SEQUENCE fac_s_fac_bijlagen_key          MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_layout_key            MINVALUE 100;
+CREATE SEQUENCE fac_s_fac_cust_key              MINVALUE 1;
+CREATE SEQUENCE fac_s_fac_task_key              MINVALUE 1;
+-- CREATE SEQUENCE fac_s_fac_queue_key             MINVALUE 1;
 
 -- Some free to use sequence to generate unique and sequential numbers
 -- with custom procedures like exports or invoicing

FAC/FAC_TRI.SRC

@@ -159,7 +159,7 @@ BEGIN
   -- Omdat de ASP dit voorkomt, is dit een error als vangnet
   IF keepit = 1 AND (:new.fac_gebruiker_prs_level_read = 9 OR :new.fac_gebruiker_alg_level_read = 9)
   THEN
-      raise_application_error (-20000, 'FAC_MGG1 this is insufficient authorisation for this right');
+      raise_application_error(-20001, 'FAC_MGG1 this is insufficient authorisation for this right');
   END IF;
   IF keepit = 0 THEN
         Dummy :=  fac.remember_SavePrimaryKey('FAC_GROEPRECHTEN',:new.fac_groeprechten_key);
@@ -327,14 +327,6 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_notificatie_B_IU)
-BEFORE INSERT OR UPDATE ON fac_notificatie
-FOR EACH ROW
-BEGIN
-    UPDATE_PRIMARY_KEY(fac_notificatie_key, fac_s_fac_notificatie_key);
-END;
-/
-
 CREATE_TRIGGER(fac_t_fac_notificatie_B_I)
    BEFORE INSERT
    ON fac_notificatie
@@ -342,7 +334,13 @@ CREATE_TRIGGER(fac_t_fac_notificatie_B_I)
 DECLARE
     loms   web_user_messages.web_user_mess_dsc%TYPE;
     lxmlnode fac_srtnotificatie.fac_srtnotificatie_xmlnode%TYPE;
+    lparamkey web_user_messages.web_user_mess_action_params%TYPE;
+    realuser VARCHAR(64);
 BEGIN
+    UPDATE_PRIMARY_KEY(fac_notificatie_key, fac_s_fac_notificatie_key);
+
+    dbms_application_info.read_client_info (:NEW.fac_notificatie_realuser); -- is gezet achteraan m_connections.inc, wordt opgepikt door putorders
+
    -- Kopieer direct naar statusinformatie op de portal indien van toepassing
    -- Daarbij worden alle oude berichten (eerst) verwijderd
    IF BITAND (:NEW.fac_notificatie_status, 1) = 1  AND :new.prs_perslid_key_receiver IS NOT NULL
@@ -355,6 +353,13 @@ BEGIN
       IF INSTR (loms, chr(10)) > 0 THEN
         loms := SUBSTR (loms, 1, INSTR (loms, chr(10)) -1);
       END IF;
+      IF INSTR (loms, '<br>') > 0 THEN
+        loms := SUBSTR (loms, 1, INSTR (loms, '<br>') -1);
+      END IF;
+
+      -- meestal is dit de doorklik-key
+      lparamkey := COALESCE (:new.fac_notificatie_extrakey, :new.fac_notificatie_refkey);
+
       -- Verwijder oudere (achterhaalde) portalberichten over hetzelfde
       IF :NEW.fac_srtnotificatie_key IS NOT NULL
       THEN
@@ -363,21 +368,28 @@ BEGIN
             FROM fac_srtnotificatie
            WHERE fac_srtnotificatie_key = :NEW.fac_srtnotificatie_key;
 
+          -- de optionele tracking-key is geen goede doorklik-key voor melding/opdracht
+          IF lxmlnode IN ('melding', 'opdracht')
+          THEN
+               lparamkey := :new.fac_notificatie_refkey;
+          END IF;
+
           DELETE FROM web_user_messages
                 WHERE fac_srtnotificatie_key IN
                       (SELECT fac_srtnotificatie_key
                          FROM fac_srtnotificatie
                         WHERE fac_srtnotificatie_xmlnode = lxmlnode)
                   AND prs_perslid_key_receiver = :NEW.prs_perslid_key_receiver
-                  AND web_user_mess_action_params = COALESCE (:NEW.fac_notificatie_extrakey, :NEW.fac_notificatie_refkey);
+                  AND web_user_mess_action_params = lparamkey;
       END IF;
+
       -- En voeg de nieuwe toe. Let op: als een extrakey bekend is, wordt die als parameter gebruikt, anders gewoon refkey
       INSERT INTO web_user_messages
                   (prs_perslid_key_sender, prs_perslid_key_receiver, web_user_mess_dsc, web_user_mess_action_status,
                    web_user_mess_action_params, fac_srtnotificatie_key, web_user_mess_prioriteit
                   )
            VALUES (:NEW.prs_perslid_key_sender, :NEW.prs_perslid_key_receiver, loms, 1,
-                   COALESCE (:NEW.fac_notificatie_extrakey, :NEW.fac_notificatie_refkey), :NEW.fac_srtnotificatie_key,
+                   lparamkey, :NEW.fac_srtnotificatie_key,
                    :NEW.fac_notificatie_prioriteit
                   );
 
@@ -388,14 +400,23 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_notificatie_A_U)
-AFTER UPDATE ON fac_notificatie
+CREATE_TRIGGER(fac_t_fac_notificatie_A_IU)
+   AFTER INSERT OR UPDATE
+   ON fac_notificatie
+   FOR EACH ROW
 BEGIN
-   -- Ruim alle totaal verwerkte notificaties op.
-   DELETE FROM fac_notificatie
-    WHERE fac_notificatie_status IN (0,16)
-      AND fac_notificatie_systeemadres IS NULL
-      AND prs_bedrijfadres_key IS NULL;
+   IF INSERTING OR UPDATING ('fac_notificatie_notbefore')
+   THEN
+      IF BITAND(:NEW.fac_notificatie_status, 2 + 4 + 32) > 0 -- Alleen EMAIL, SMS of APPPUSH
+         OR :NEW.prs_bedrijfadres_key IS NOT NULL
+         OR :NEW.fac_notificatie_systeemadres IS NOT NULL
+      THEN
+         tsk.starttask(p_taskcode => 'PUTORDERS', p_nextrun => :NEW.fac_notificatie_notbefore);
+      ELSIF :NEW.fac_notificatie_queue = 'EXCHANGE' -- future use
+      THEN
+         tsk.starttask(p_taskcode => 'EXCHANGE', p_nextrun => :NEW.fac_notificatie_notbefore);
+      END IF;
+   END IF;
 END;
 /
 
@@ -441,6 +462,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_imp_csv_B_I)
+BEFORE INSERT ON fac_imp_csv
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_imp_csv_key, fac_s_imp_csv_key);
+END;
+/
+
 CREATE_TRIGGER(imp_t_notificatie_imp_log)
    AFTER INSERT
    ON imp_log
@@ -535,10 +564,10 @@ BEGIN
 
     :new.fac_setting_module := UPPER(:new.fac_setting_module);
     :new.fac_setting_name := LOWER(:new.fac_setting_name);
-    :new.prs_perslid_key := sys_context('USERENV', 'CLIENT_IDENTIFIER');
     -- Het kan geen kwaad om wijzigingen te tracken
     IF :new.fac_setting_datum <> :old.fac_setting_datum
     THEN
+        :new.prs_perslid_key := sys_context('USERENV', 'CLIENT_IDENTIFIER');
         INSERT INTO adm_tracking (adm_tracking_name, adm_tracking_revision, adm_tracking_osuser)
            VALUES   (SUBSTR('S('||:new.fac_setting_name||')', 1, 60),
                      SUBSTR(:new.fac_setting_pvalue, 1, 60),
@@ -548,40 +577,51 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fac_t_fac_qlikview_b_iu)
-BEFORE INSERT OR UPDATE ON fac_qlikview
-FOR EACH ROW
-BEGIN
-  UPDATE_PRIMARY_KEY(fac_qlikview_key, fac_s_fac_qlikview_key);
-  UPDATE_AANMAAKDATUM(fac_qlikview, fac_qlikview_aanmaak);
-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;
-/
-
-
+-- Door de COMPOUND TRIGGER kunnen we notifytrackingbedrijven doen in de AFTER STATEMENT
+-- met alleen de newkey als parameter. Dat kan omdat bij mijn weten er eigenlijk
+-- nooit een insert into meerdere FAC_TRACKING records is in een enkel statement
 CREATE_TRIGGER(fac_t_fac_tracking_b_i)
-BEFORE INSERT ON fac_tracking
-FOR EACH ROW
-BEGIN
-  UPDATE_PRIMARY_KEY(fac_tracking_key, fac_s_fac_tracking_key);
-  -- dit event moet mogelijk ook actief worden genotificeerd,
-  -- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een #
-  IF SUBSTR(:new.fac_tracking_oms, 1, 1) = '#'
-  THEN
-    -- bedoeld om te onderdrukken, maar moeten we wel weer verwijderen
-    :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
-    -- Moet ik nou nog iets doen om NULL te maken als dit alleen de # was?
-    -- En nu dus niet notificeren
-  ELSE
-    fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey);
-  END IF;
+    FOR INSERT
+    ON fac_tracking
+    COMPOUND TRIGGER
+    newkey   fac_tracking.fac_tracking_key%TYPE;
+
+    BEFORE EACH ROW
+    IS
+    BEGIN
+        UPDATE_PRIMARY_KEY(fac_tracking_key, fac_s_fac_tracking_key);
+
+        IF newkey IS NOT NULL THEN
+            raise_application_error(-20001, 'Unexpected multi-insert of fac_tracking'); -- for safety
+        END IF;
+
+        -- dit event moet mogelijk ook actief worden genotificeerd,
+        -- dat kan expliciet worden onderdrukt door de omschrijving te prefixen met een # of @
+        IF SUBSTR(:new.fac_tracking_oms, 1, 1) = '#'
+        THEN
+           -- bedoeld om te onderdrukken, maar moeten we wel weer verwijderen
+           :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
+           -- En nu dus niet notificeren
+           NULL;
+        ELSIF SUBSTR(:new.fac_tracking_oms, 1, 1) = '@' -- Technische adressen niet notificeren, wel personen
+        THEN
+            :new.fac_tracking_oms := SUBSTR(:new.fac_tracking_oms, 2);
+            fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
+			-- geen newkey assignment zodat zo geen fac.notifytrackingbedrijven volgt
+        ELSE
+            fac.notifytracking(:new.fac_srtnotificatie_key, :new.prs_perslid_key, :new.fac_tracking_oms, :new.fac_tracking_refkey, :new.fac_tracking_key);
+            newkey := :new.fac_tracking_key;
+        END IF;
+    END BEFORE EACH ROW;
+
+    AFTER STATEMENT
+    IS
+    BEGIN
+        IF newkey IS NOT NULL
+        THEN
+            fac.notifytrackingbedrijven (newkey);
+        END IF;
+    END AFTER STATEMENT;
 END;
 /
 
@@ -680,7 +720,7 @@ BEGIN
 
    IF objecttype IS NULL
    THEN
-      raise_application_error (-20000, 'FAC_MXX3 Invalid object');
+      raise_application_error(-20001, 'FAC_MXX3 Invalid object');
    ELSIF objecttype IN ('TABLE', 'VIEW')
    THEN
       DECLARE
@@ -695,7 +735,7 @@ BEGIN
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
-            raise_application_error (-20000, 'ALG_M236');
+            raise_application_error(-20000, 'ALG_M236');
       END;
 
       DECLARE
@@ -710,11 +750,11 @@ BEGIN
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
-            raise_application_error (-20000, 'ALG_M237');
+            raise_application_error(-20000, 'ALG_M237');
       END;
    ELSIF objecttype <> 'SYNONYM'
    THEN
-      raise_application_error (-20000, 'ALG_M235');
+      raise_application_error(-20000, 'ALG_M235');
    END IF;
 
 END;
@@ -733,11 +773,11 @@ BEFORE INSERT OR UPDATE ON fac_widget
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fac_widget_key, fac_s_fac_widget_key);
+   :new.fac_widget_type := UPPER(:new.fac_widget_type);
    UPDATE_AANMAAKDATUM(fac_widget, fac_widget_aanmaak);
 END;
 /
 
-/* Alvast voor 2022.1
 CREATE_TRIGGER(fac_t_fac_widget_page_B_I)
 BEFORE INSERT ON fac_widget_page
 FOR EACH ROW
@@ -753,7 +793,6 @@ BEGIN
   UPDATE_PRIMARY_KEY(fac_widget_onpage_key, fac_s_fac_widget_onpage_key);
 END;
 /
-*/
 
 CREATE_TRIGGER(fac_t_fac_code2label_B_IU)
 BEFORE INSERT OR UPDATE ON fac_code2label
@@ -831,7 +870,7 @@ BEGIN
             WHERE  faq_kenmerk_key = :new.faq_kenmerk_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
-            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+            THEN raise_application_error(-20000,'INS_R_INS_KENMERK_KEY1');
          END;
 
          /* Kijk welk KenmerkType gebruikt wordt.
@@ -847,10 +886,10 @@ BEGIN
             */
             IF LENGTH(KenmerkWaarde) > KenmerkLengte
             THEN
-               APPLICATION_ERROR(-20004, 'faq_m232,'|| KenmerkOmschr ||','
+               APPLICATION_ERROR_GOTO(-20004, 'faq_m232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType IN ('N', 'B')
+         ELSIF KenmerkType = 'N'
          /*
          ** Number
          */
@@ -875,7 +914,7 @@ BEGIN
                THEN FormatMask := REPLACE(FormatMask, '9', '#');
                     FormatMask := REPLACE(FormatMask, '0', '#');
                     FormatMask := REPLACE(FormatMask, 'D', '.');
-                    RAISE_APPLICATION_ERROR(-20004,'faq_m233,'|| KenmerkOmschr ||','
+                    APPLICATION_ERROR_GOTO(-20004,'faq_m233,'|| KenmerkOmschr ||','
                                                               || FormatMask);
             END;
             /*
@@ -928,21 +967,23 @@ BEFORE INSERT OR UPDATE ON faq_kenmerk
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(faq_kenmerk_key, faq_s_faq_kenmerk_key);
-   UPDATE_UPPER(faq_kenmerk_omschrijving, faq_kenmerk_upper,faq_kenmerk);
+   UPDATE_UPPER(faq_kenmerk_omschrijving, faq_kenmerk_upper, faq_kenmerk);
+   UPDATE_UPPER(faq_kenmerk_code, faq_kenmerk_code, faq_kenmerk);
+
    IF (:new.faq_kenmerk_verwijder IS NOT NULL AND :old.faq_kenmerk_verwijder IS NULL AND
        :new.faq_kenmerk_systeem = 1)
    THEN
-      APPLICATION_ERROR(-20003, 'faq_m238');
+      raise_application_error(-20000, 'faq_m238');
    END IF;
-   IF :new.faq_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.faq_kenmerk_lengte IS NULL
+   IF :new.faq_kenmerk_kenmerktype IN ('C','N') AND :new.faq_kenmerk_lengte IS NULL
    THEN
-      APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
+      raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_LENGTE');
    END IF;
-   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :new.faq_kenmerk_lengte > 20
+   IF :new.faq_kenmerk_kenmerktype = 'N' AND :new.faq_kenmerk_lengte > 20
    THEN
       :new.faq_kenmerk_lengte := 20;
    END IF;
-   IF :new.faq_kenmerk_kenmerktype IN ('N', 'B') AND :old.faq_kenmerk_key IS NOT NULL
+   IF :new.faq_kenmerk_kenmerktype = 'N' 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
@@ -959,12 +1000,12 @@ BEGIN
                 WHERE faq_kenmerk_key = :old.faq_kenmerk_key
                   AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) < :new.faq_kenmerk_nmin
                   AND rownum=1);
-               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
+               raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
        EXCEPTION
          WHEN NO_DATA_FOUND
            THEN NULL;
          WHEN TOO_MANY_ROWS THEN
-               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
+               raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MIN');
        END;
      END IF;
      IF :old.faq_kenmerk_nmax <> :new.faq_kenmerk_nmax OR
@@ -982,13 +1023,13 @@ BEGIN
                 WHERE faq_kenmerk_key = :old.faq_kenmerk_key
                   AND FAC.SAFE_TO_NUMBER(faq_kenmerkwaarde_waarde) > :new.faq_kenmerk_nmax
                   AND rownum=1);
-               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
+               raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
        EXCEPTION
          WHEN NO_DATA_FOUND
            THEN NULL;
          WHEN TOO_MANY_ROWS THEN
            BEGIN
-               APPLICATION_ERROR(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
+               raise_application_error(-20000, 'FAQ_C_FAQ_KENMERK_MAX');
            END;
        END;
      END IF;
@@ -1040,4 +1081,52 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(fac_t_fac_layout_B_I)
+BEFORE INSERT ON fac_layout
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_layout_key, fac_s_fac_layout_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_cust_B_I)
+BEFORE INSERT ON fac_cust
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_cust_key, fac_s_fac_cust_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_cust_B_IU)
+BEFORE INSERT OR UPDATE ON fac_cust
+FOR EACH ROW
+BEGIN
+    :new.fac_cust_customerid := UPPER(:new.fac_cust_customerid);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_task_B_I)
+BEFORE INSERT ON fac_task
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(fac_task_key, fac_s_fac_task_key);
+END;
+/
+
+CREATE_TRIGGER(fac_t_fac_task_B_IU)
+BEFORE INSERT OR UPDATE ON fac_task
+FOR EACH ROW
+BEGIN
+    :new.fac_task_code := UPPER(:new.fac_task_code);
+END;
+/
+
+-- CREATE_TRIGGER(fac_t_fac_queue_B_I)
+-- BEFORE INSERT ON fac_queue
+-- FOR EACH ROW
+-- BEGIN
+--     UPDATE_PRIMARY_KEY(fac_queue_key, fac_s_fac_queue_key);
+-- END;
+-- /
+
 REGISTERRUN('$Id$')

FAC/FAC_VIEEXP.SRC

@@ -0,0 +1,607 @@
+/* FAC_VIEEXP.SRC
+ * $Revision$
+ * $Id$
+ *
+ * Views die niet in de andere *_VIE.SRC kunnen omdat deze views gebruiken die dan nog niet gedefinieerd zijn.
+ */
+
+-- import:      FIP: Aanvullen technische bedrijfsadressen
+-- importsheet: Inventarisatie Externe bedrijven, tabblad Technische adressen
+-- importtabel: fac_imp_bedrijfadres
+CREATE OR REPLACE VIEW fac_v_exp_bedrijfadres
+AS
+SELECT b.prs_bedrijf_naam               Bedrijfsnaam
+     , b.prs_leverancier_nr             Leveranciernummer
+     , a.prs_bedrijfadres_type          Kanaal
+     , (SELECT m.mld_typeopdr_omschrijving
+          FROM mld_typeopdr m
+         WHERE m.mld_typeopdr_key = a.mld_typeopdr_key) Opdrachttype
+     , a.prs_bedrijfadres_url           Adres
+     , a.prs_bedrijfadres_ordermode     Ordermode
+     , a.prs_bedrijfadres_certificate   Certificaat
+     , a.prs_bedrijfadres_xsl           Xsl_template
+     , a.prs_bedrijfadres_ext           Extensie
+     , a.prs_bedrijfadres_attachfile    Vaste_bijlage
+     , a.prs_bedrijfadres_username      Login
+     , a.prs_bedrijfadres_password      Wachtwoord
+     , a.prs_bedrijfadres_sender        Afzender
+     , a.prs_bedrijfadres_replyaddress  Reply_adres
+     , (SELECT p.prs_perslid_oslogin
+          FROM prs_perslid p
+         WHERE p.prs_perslid_key = a.prs_bedrijfadres_lockuser_key) Vaste_gebruiker
+     , a.prs_bedrijfadres_lockexpire    Expire_days
+  FROM prs_bedrijfadres a
+     , prs_v_aanwezigbedrijf b
+ WHERE a.prs_bedrijf_key = b.prs_bedrijf_key
+;
+
+-- import:      FIP: Aanvullen contactpersonen
+-- importsheet: Inventarisatie Externe bedrijven, tabblad Contactpersonen
+-- importtabel: fac_v_exp_contactpersoon
+CREATE OR REPLACE VIEW fac_v_exp_contactpersoon
+AS
+SELECT b.prs_bedrijf_naam                Bedrijfsnaam
+     , b.prs_leverancier_nr              Leveranciernummer
+     , DECODE (u.prs_perslid_email, NULL
+              , DECODE (u.prs_perslid_oslogin, NULL, NULL, 2), 1)  Persoonmatchcode
+     , DECODE (u.prs_perslid_email, NULL
+              , DECODE (u.prs_perslid_oslogin, NULL, NULL, u.prs_perslid_oslogin), u.prs_perslid_email) Persoonmatchwaarde
+     , c.prs_contactpersoon_naam         ContactPersoonAchternaam
+     , c.prs_contactpersoon_tussenv      Tussenvoegsel
+     , c.prs_contactpersoon_voorletters  Voorletters
+     , c.prs_contactpersoon_voornaam     Voornaam
+     , c.prs_contactpersoon_aanhef       Titel
+     , c.prs_contactpersoon_titel        Aanhef
+     , c.prs_contactpersoon_telefoon_1   Telefoonnummer
+     , c.prs_contactpersoon_telefoon_2   Mobiel
+     , c.prs_contactpersoon_email        Email
+     , c.prs_contactpersoon_functie      Functie
+     , REPLACE (c.prs_contactpersoon_opmerking, CHR(13))  Opmerking
+     , l.alg_locatie_code                Locatiecode
+  FROM prs_contactpersoon c
+     , prs_contactpersoon_locatie p
+     , prs_v_aanwezigperslid u
+     , prs_v_aanwezigbedrijf b
+     , alg_v_aanweziglocatie l
+ WHERE c.prs_bedrijf_key = b.prs_bedrijf_key
+   AND c.prs_perslid_key = u.prs_perslid_key(+)
+   AND c.prs_contactpersoon_key = p.prs_contactpersoon_key(+)
+   AND p.alg_locatie_key = l.alg_locatie_key(+)
+   AND c.prs_contactpersoon_verwijder IS NULL
+;
+
+-- import:      FIP: Aanvullen externe bedrijven
+-- importsheet: Inventarisatie Externe bedrijven, tabblad Externe Bedrijven
+-- importtabel: fac_imp_ext_bedrijf
+-- NB: Overeenkomstdatum als varchar2 ophalen omdat alleen de datum (dd-mm-yyyy) ingelezen wordt.
+--     Met trunc() blijft het een timestamp!
+CREATE OR REPLACE VIEW fac_v_exp_ext_bedrijf
+AS
+SELECT b.prs_bedrijf_naam              Bedrijfsnaam
+     , b.prs_leverancier_nr            Leveranciernummer
+     , b.prs_bedrijf_bezoek_adres      Bezoek_adres
+     , b.prs_bedrijf_bezoek_postcode   Bezoek_postcode
+     , b.prs_bedrijf_bezoek_plaats     Bezoek_plaats
+     , b.prs_bedrijf_bezoek_land       Bezoek_land
+     , b.prs_bedrijf_post_adres        Post_adres
+     , b.prs_bedrijf_post_postcode     Post_postcode
+     , b.prs_bedrijf_post_plaats       Post_plaats
+     , b.prs_bedrijf_post_land         Post_land
+     , b.prs_bedrijf_telefoon          Bedrijf_telefoon
+     , b.prs_bedrijf_fax               Bedrijf_fax
+     , b.prs_bedrijf_email             Bedrijf_email
+     , b.prs_bedrijf_contact_persoon   Contact_persoon
+     , b.prs_bedrijf_contact_telefoon  Contact_telefoon
+     , b.prs_bedrijf_contact_fax       Contact_fax
+     , NULL                            Bedrijf_xsl
+     , NULL                            Bedrijf_orderadres
+     , CASE WHEN b.prs_bedrijf_leverancier = 1 THEN 'J' ELSE '' END Leverancier
+     , CASE WHEN b.prs_bedrijf_uitvoerende = 1 THEN 'J' ELSE '' END Uitvoerende
+     , CASE WHEN b.prs_bedrijf_contract    = 1 THEN 'J' ELSE '' END Contractant
+     , CASE WHEN b.prs_bedrijf_huurder     = 1 THEN 'J' ELSE '' END Huurder
+     , CASE WHEN b.prs_bedrijf_ingids      = 1 THEN 'J' ELSE '' END Tooningids
+     , b.prs_bedrijf_uurloon           Uurloon
+     , b.prs_overeenkomst_nr           Overeenkomstnummer
+     , TO_CHAR(b.prs_overeenkomst_datum,'dd-mm-yyyy') Overeenkomstdatum
+     , REPLACE (b.prs_bedrijf_opmerking, CHR(13))  Opmerking
+     , d.prs_dienst_omschrijving       Dienst
+     , CASE WHEN l.alg_locatie_key IS NULL
+            THEN (SELECT MAX(v.alg_locatie_code) FROM alg_v_gebouw_gegevens v WHERE v.alg_gebouw_key  = l.alg_gebouw_key)
+            ELSE (SELECT MAX(v.alg_locatie_code) FROM alg_v_gebouw_gegevens v WHERE v.alg_locatie_key = l.alg_locatie_key)
+       END                             Locatiecode
+     , (SELECT alg_gebouw_code
+          FROM alg_v_gebouw_gegevens
+         WHERE alg_gebouw_key = l.alg_gebouw_key
+       )                               Gebouwcode
+     , r.prs_relatietype_omschrijving  Relatietype
+     , NULL                            Overig1  -- kenmerk1
+     , NULL                            Overig2  -- kenmerk2
+     , NULL                            Overig3  -- kenmerk3
+  FROM prs_bedrijf b
+     , prs_relatietype r
+     , prs_bedrijfdienstlocatie l
+     , prs_dienst d
+ WHERE b.prs_relatietype_key = r.prs_relatietype_key(+)
+   AND b.prs_bedrijf_key = l.prs_bedrijf_key(+)
+   AND l.prs_dienst_key = d.prs_dienst_key(+)
+   AND b.prs_bedrijf_verwijder IS NULL
+   AND r.prs_relatietype_verwijder IS NULL
+   AND b.prs_bedrijf_intern IS NULL
+;
+
+-- import:      FIP: 9-Aanvullen van inspectiedefinities
+-- importsheet: Inventarisatie Inspecties
+-- importtabel: fac_imp_inspectie
+CREATE OR REPLACE VIEW fac_v_exp_inspectie
+AS
+SELECT d.ins_discipline_omschrijving   Disciplineomschrijving
+     , g.ins_srtgroep_omschrijving     Groepsoortomschrijving
+     , s.ins_srtdeel_code              Objectsoortcode
+     , c.ins_srtcontrole_omschrijving  Controle_omschrijving
+     , c.ins_srtcontrole_info          Controle_informatie
+     , c.ins_srtcontrole_periode       Controle_periode
+     , c.ins_srtcontrole_eenheid       Eenheid
+     , c.ins_srtcontrole_mode          Controle_mode
+     , c.ins_srtcontrole_bits          Bits
+  FROM ins_srtcontrole c
+     , ins_srtdeel s
+     , ins_srtgroep g
+     , ins_discipline d
+ WHERE c.ins_srtinstallatie_key = s.ins_srtdeel_key
+   AND s.ins_srtgroep_key = g.ins_srtgroep_key
+   AND g.ins_discipline_key = d.ins_discipline_key
+;
+
+-- import:      FIP: 6-Aanvullen objecten
+-- importsheet: Inventarisatie Objecten-56894
+-- importtabel: fac_imp_ins
+-- NB: Ingangsdatum en vervaldatum als varchar2 ophalen omdat alleen de datum (dd-mm-yyyy) ingelezen wordt.
+--     Met trunc() blijft het een timestamp!
+CREATE OR REPLACE VIEW fac_v_exp_ins
+AS
+   SELECT DISTINCT d.ins_discipline_omschrijving  Disciplineomschrijving
+        , k.prs_kostensoort_oms                   Disciplinekostensoort
+        , d.ins_srtgroep_omschrijving             Groepsoortomschrijving
+        , sd.ins_srtdeel_code                     Objectsoortcode
+        , sd.ins_srtdeel_omschrijving             Objectsoortomschrijving
+        , id.ins_deel_omschrijving                Objectidentificatie
+        , REPLACE (id.ins_deel_opmerking, CHR(13))  Objectopmerking
+        , sd.ins_srtdeel_uitleenbaar              Reserveerbaar
+        , sd.ins_srtdeel_eenheid                  Eenheid
+        , sd.ins_srtdeel_prijs                    Prijs
+        , l.alg_locatie_code                      Locatiecode
+        , d.alg_gebouw_code                       Gebouwcode
+        , d.alg_verdieping_code                   Bouwlaagvolgnummer
+        , d.alg_ruimte_nr                         Ruimtenummer
+        , DECODE(rd.res_deel_alg_level, -1,'', 0,'E', 1,'D', 2,'L', 3,'G', 4,'V', 5,'R')  Reserveringscope
+        , DECODE(r.ins_discipline_min_level, 1,'O', 2,'V', 3,'R', 4,'P', 5,'W', '')       Catalogustype
+        , r.ins_discipline_omschrijving           Catalogusnaam
+        , c.prs_kostensoort_oms                   Cataloguskostensoort
+        , NULL                                    Persoonmatchcode
+        , NULL                                    Persoonmatchwaarde
+        , TO_CHAR(id.ins_deel_aanmaak,'dd-mm-yyyy')      Ingangsdatum
+        , TO_CHAR(id.ins_deel_vervaldatum,'dd-mm-yyyy')  Vervaldatum
+        , id.ins_deel_aantal                      Aantal
+        , id.ins_deel_externnr                    Externnr
+        , NULL                                    Parentobjectsoortomschr
+        , NULL                                    Parentobjectidentificatie
+        , NULL                                    Kenmerk1
+        , NULL                                    Kenmerk2
+        , NULL                                    Kenmerk3
+        , NULL                                    Kenmerk4
+        , NULL                                    Kenmerk5
+        , NULL                                    Kenmerk6
+        , NULL                                    Kenmerk7
+        , NULL                                    Kenmerk8
+        , NULL                                    Kenmerk9
+        , NULL                                    Kenmerk10
+        , NULL                                    Kenmerk11
+        , NULL                                    Kenmerk12
+        , NULL                                    Kenmerk13
+        , NULL                                    Kenmerk14
+        , NULL                                    Kenmerk15
+        , NULL                                    Kenmerk16
+        , NULL                                    Kenmerk17
+        , NULL                                    Kenmerk18
+        , NULL                                    Kenmerk19
+        , NULL                                    Kenmerk20
+     FROM ins_v_deel_gegevens d
+        , ins_discipline i
+        , ins_srtdeel sd
+        , alg_locatie l
+        , alg_gebouw g
+        , ins_deel id
+        , prs_kostensoort k
+        , prs_kostensoort c
+        , res_deel rd
+        , res_discipline r
+    WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key
+      AND d.alg_locatie_key = l.alg_locatie_key(+)
+      AND d.alg_gebouw_key = g.alg_gebouw_key(+)
+      AND d.ins_deel_key = id.ins_deel_key
+      AND d.ins_discipline_key = i.ins_discipline_key
+      AND id.ins_deel_key = rd.res_ins_deel_key(+)
+      AND rd.res_discipline_key = r.ins_discipline_key(+)
+      AND i.prs_kostensoort_key = k.prs_kostensoort_key(+)
+      AND r.prs_kostensoort_key = c.prs_kostensoort_key(+)
+      AND id.ins_deel_verwijder IS NULL
+;
+
+-- import:      FIP: 5-Aanvullen servicedesk
+-- importsheet: Inventarisatie Meldingen
+-- importtabel: fac_imp_mld
+CREATE OR REPLACE FORCE VIEW fac_v_exp_mld
+AS
+SELECT sd.ins_srtdiscipline_omschrijving        vakgroeptype
+     , sd.ins_srtdiscipline_prefix              prefix
+     , COALESCE(sd.ins_srtdiscipline_alg, 0)    plaatsgegevens
+     , COALESCE(sd.ins_srtdiscipline_ins, 0)    objectgegevens
+     , COALESCE(sd.ins_srtdiscipline_bes, 0)    bestelgegevens
+     , md.ins_discipline_omschrijving           vakgroep
+     , sm.mld_stdmelding_omschrijving           standaardmelding
+     , mg.mld_stdmeldinggroep_naam              groep
+     , ks.prs_kostensoort_oms                   kostensoort
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_accepttijd,   'U'), ',', '.') acceptatietijd
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_accept_pr1,   'U'), ',', '.') acceptatietijd_kritiek
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_accept_pr2,   'U'), ',', '.') acceptatietijd_hoog
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_accept_pr4,   'U'), ',', '.') acceptatietijd_laag
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_uitvoertijd,  'D'), ',', '.') uitvoertijd
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_uitvtijd_pr1, 'D'), ',', '.') uitvoertijd_kritiek
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_uitvtijd_pr2, 'D'), ',', '.') uitvoertijd_hoog
+     , REPLACE(mld.uitvoertijd_to_unit(sm.mld_stdmelding_t_uitvtijd_pr4, 'D'), ',', '.') uitvoertijd_laag
+     , mp.mld_disc_params_directklaar           directklaar
+     , pd.prs_dienst_omschrijving               dienst
+     , sm.mld_stdmelding_notfrontend            notfrontend
+     , sm.alg_onrgoed_niveau                    alg_niveau
+     , mt.mld_typeopdr_omschrijving             opdrachttype
+     , sm.mld_stdmelding_hint                   hint
+     , sm.mld_stdmelding_kopieerbaar            kopieerbaar
+     , sm.mld_stdmelding_afmeldtext             tekst_bij_afmelden
+     , DECODE(sm.mld_stdmelding_doublecheck, 1, 'i', 2, 'a', 3, 'b', 'n') dubbele_meldingen
+     , mld_stdmelding_slabewaken                sla_bewaken
+     , md.ins_discipline_image                  disc_image
+     , sm.mld_stdmelding_image                  stdm_image
+     , sm.mld_stdmelding_externnr               externnr
+  FROM mld_stdmelding       sm
+     , mld_discipline       md
+     , ins_srtdiscipline    sd
+     , mld_disc_params      mp
+     , prs_dienst           pd
+     , mld_stdmeldinggroep  mg
+     , prs_kostensoort      ks
+     , mld_typeopdr         mt
+ WHERE sm.mld_ins_discipline_key = md.ins_discipline_key
+   AND sm.mld_ins_discipline_key = mp.mld_disc_params_key(+)
+   AND md.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+   AND sm.mld_stdmeldinggroep_key = mg.mld_stdmeldinggroep_key(+)
+   AND sm.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+   AND sm.mld_typeopdr_key = mt.mld_typeopdr_key(+)
+   AND sm.prs_dienst_key = pd.prs_dienst_key(+)
+   AND sm.mld_stdmelding_verwijder IS NULL
+   AND (    sm.mld_stdmelding_vervaldatum IS NULL
+         OR sm.mld_stdmelding_vervaldatum > SYSDATE)
+   AND md.ins_discipline_verwijder IS NULL
+   AND sd.ins_srtdiscipline_verwijder IS NULL
+;
+
+-- import:      FIP: 1-Aanvullen districten t/m gebouwen
+-- importsheet: Inventarisatie Vastgoed, tabblad Locaties
+-- importtabel: fac_imp_onrgoed1
+CREATE OR REPLACE VIEW fac_v_exp_onrgoed1
+AS
+SELECT r.alg_regio_omschrijving      Regio,
+       d.alg_district_omschrijving   District,
+       l.alg_locatie_code            Locatiecode,
+       l.alg_locatie_omschrijving    Locatieomschrijving,
+       g.alg_gebouw_code             Gebouwcode,
+       g.alg_gebouw_naam             Gebouwomschrijving,
+       sg.alg_srtgebouw_omschrijving Gebouwfunctie,
+       l.alg_locatie_verantw         Contactpersoon,
+       l.alg_locatie_verantw_tel     Telefoonnummer,
+       l.alg_locatie_adres           Bezoekadres,
+       l.alg_locatie_postcode        Postcode,
+       l.alg_locatie_plaats          Plaats,
+       l.alg_locatie_land            Locatieland,
+       l.alg_locatie_post_adres      Postadres,
+       l.alg_locatie_post_postcode   postPostcode,
+       l.alg_locatie_post_plaats     postPlaats,
+       l.alg_locatie_post_land       Land,
+       NULL                          kenmerk1,
+       NULL                          kenmerk2,
+       NULL                          kenmerk3,
+       NULL                          kenmerk4,
+       NULL                          kenmerk5,
+       NULL                          kenmerk6,
+       NULL                          kenmerk7,
+       NULL                          kenmerk8,
+       NULL                          kenmerk9,
+       NULL                          kenmerk10
+  FROM alg_gebouw     g,
+       alg_srtgebouw  sg,
+       alg_locatie    l,
+       alg_district   d,
+       alg_regio      r
+ WHERE     g.alg_locatie_key = l.alg_locatie_key
+       AND l.alg_district_key = d.alg_district_key
+       AND d.alg_regio_key = r.alg_regio_key
+       AND g.alg_srtgebouw_key = sg.alg_srtgebouw_key
+       AND g.alg_gebouw_verwijder IS NULL
+       AND l.alg_locatie_verwijder IS NULL
+       AND (   l.alg_locatie_vervaldatum IS NULL
+            OR l.alg_locatie_vervaldatum > TRUNC (SYSDATE))
+       AND (   g.alg_gebouw_vervaldatum IS NULL
+            OR TRUNC (g.alg_gebouw_vervaldatum) > TRUNC (SYSDATE))
+;
+
+-- import:      FIP: 2-Aanvullen bouwlagen en ruimten
+-- importsheet: Inventarisatie Vastgoed, tabblad Ruimten
+-- importtabel: fac_imp_onrgoed2
+CREATE OR REPLACE VIEW fac_v_exp_onrgoed2
+AS
+SELECT l.alg_locatie_code               Locatiecode
+     , g.alg_gebouw_code                Gebouwcode
+     , v.alg_verdieping_volgnr          Bouwlaagvolgnummer
+     , s.alg_srtruimte_omschrijving     Ruimtefunctie
+     , r.alg_ruimte_nr                  Ruimtenummer
+     , r.alg_ruimte_omschrijving        Ruimteomschrijving
+     , r.alg_ruimte_bruto_vloeropp      Vloeroppervlak
+     , pa.prs_afdeling_naam             Afdelingscode
+     , ra.prs_ruimteafdeling_bezetting  Bezetting
+     , CASE WHEN rb.aantal IS NULL
+            THEN 0
+            ELSE 1
+        END                             ReserveerbareRuimte
+     , rd.ins_discipline_omschrijving   Categorie
+     , rp.res_disc_params_expire_dagen  Expiredagen
+     , rr.res_ruimte_prijs              Prijs
+     , ro.res_opstelling_omschrijving   Opstelling
+     , rro.res_ruimte_opstel_bezoekers  AantalBezoekers
+     , rr.res_ruimte_nr                 Naam
+     , rr.res_ruimte_omschrijving       Omschrijving
+     , NULL                             Kenmerk1
+     , NULL                             Kenmerk2
+     , NULL                             Kenmerk3
+     , NULL                             Kenmerk4
+     , NULL                             Kenmerk5
+  FROM alg_v_aanweziglocatie l
+     , alg_v_aanweziggebouw g
+     , alg_v_aanwezigverdieping v
+     , alg_v_aanwezigruimte r
+     , alg_v_aanwezigsrtruimte s
+     , prs_v_aanwezigruimteafdeling ra
+     , prs_v_aanwezigafdeling pa
+     , res_v_aanwezigalg_ruimte rar
+     , res_v_aanwezigruimte rr
+     , res_v_aanwezigdiscipline rd
+     , res_disc_params rp
+     , res_ruimte_opstelling rro
+     , res_v_aanwezigopstelling ro
+     , (SELECT rar.alg_ruimte_key
+             , COUNT(*) aantal
+          FROM res_v_aanwezigalg_ruimte rar
+             , res_ruimte rr
+         WHERE rar.res_ruimte_key = rr.res_ruimte_key
+           AND rr.res_ruimte_verwijder IS NULL
+           AND (  rr.res_ruimte_vervaldatum IS NULL
+               OR rr.res_ruimte_vervaldatum > SYSDATE
+               )
+           AND rr.res_ruimte_cv = 0
+         GROUP BY rar.alg_ruimte_key
+       ) rb
+ WHERE l.alg_locatie_key = g.alg_locatie_key
+   AND g.alg_gebouw_key = v.alg_gebouw_key
+   AND v.alg_verdieping_key = r.alg_verdieping_key
+   AND r.alg_srtruimte_key = s.alg_srtruimte_key(+)
+   AND r.alg_ruimte_key = ra.alg_ruimte_key(+)
+   AND ra.prs_afdeling_key = pa.prs_afdeling_key(+)
+   AND r.alg_ruimte_key = rar.alg_ruimte_key(+)
+   AND rar.res_ruimte_key = rr.res_ruimte_key(+)
+   AND rr.res_discipline_key = rd.ins_discipline_key(+)
+   AND rd.ins_discipline_key = rp.res_ins_discipline_key(+)
+   AND rr.res_ruimte_key = rro.res_ruimte_key(+)
+   AND rro.res_opstelling_key = ro.res_opstelling_key(+)
+   AND r.alg_ruimte_key = rb.alg_ruimte_key(+)
+   AND rro.res_ruimte_opstel_verwijder IS NULL
+   AND (g.alg_gebouw_vervaldatum IS NULL OR g.alg_gebouw_vervaldatum > TRUNC(SYSDATE))
+   AND (rr.res_ruimte_vervaldatum IS NULL OR rr.res_ruimte_vervaldatum > TRUNC(SYSDATE));
+;
+
+-- import:      FIP: 3-Aanvullen organisatiestructuur
+-- importsheet: Inventarisatie Organisatiestructuur
+-- importtabel: fac_imp_organisatie
+CREATE OR REPLACE VIEW fac_v_exp_organisatie
+AS     -- import: FIP: 3-Aanvullen organisatiestructuur
+       -- importsheet: ?
+SELECT b.prs_bedrijf_naam           Bedrijfsnaam
+     , ap.prs_afdeling_naam         Afdelingscodeparent
+     , a.prs_afdeling_naam          Afdelingscode
+     , a.prs_afdeling_omschrijving  Afdelingsomschrijving
+     , k.prs_kostenplaats_nr        Kostenplaats
+     , a.prs_afdeling_externid      Externid
+  FROM prs_afdeling a
+     , prs_afdeling ap
+     , prs_kostenplaats k
+     , prs_v_aanwezigbedrijf b
+ WHERE a.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+   AND a.prs_bedrijf_key = b.prs_bedrijf_key(+)
+   AND a.prs_afdeling_parentkey = ap.prs_afdeling_key(+)
+   AND a.prs_afdeling_verwijder IS NULL
+   AND ap.prs_afdeling_verwijder IS NULL
+   AND k.prs_kostenplaats_verwijder IS NULL
+;
+
+-- import:      FIP: 4-Aanvullen personen
+-- importsheet: Inventarisatie Personen, tabblad Personen
+-- importtabel: fac_imp_perslid
+CREATE OR REPLACE VIEW fac_v_exp_perslid
+AS
+SELECT l.alg_locatie_code             Locatiecode
+     , o.alg_gebouw_code              Gebouwcode
+     , v.alg_verdieping_volgnr        Bouwlaagvolgnummer
+     , o.alg_ruimte_nr                Ruimtenummer
+     , b.prs_perslidwerkplek_volgnr   Werkplekvolgnummer
+     , w.prs_werkplek_omschrijving    Omschrijving
+     , a.prs_afdeling_naam            Afdelingscode
+     , p.prs_perslid_naam             PersoonAchternaam
+     , p.prs_perslid_tussenvoegsel    Tussenvoegsel
+     , p.prs_perslid_voorletters      Voorletters
+     , p.prs_perslid_voornaam         Voornaam
+     , p.prs_perslid_titel            TitelAanhef
+     , p.prs_perslid_telefoonnr       Telefoonnummer
+     , p.prs_perslid_mobiel           Mobiel
+     , p.prs_perslid_email            Email
+     , s.prs_srtperslid_omschrijving  Functie
+     , p.prs_perslid_nr               Personeelsnummer
+     , p.prs_perslid_oslogin          Loginnaam
+     , null                           Password
+     , k.prs_kostenplaats_nr          Kostenplaatsnr
+     , null  NVT2
+     , null  NVT3
+     , null  NVT4
+     , null  NVT5
+     , null  NVT6
+     , null  NVT7
+     , null  Kenmerk1
+     , null  Kenmerk2
+     , null  Kenmerk3
+     , null  Kenmerk4
+     , null  Kenmerk5
+     , null  Kenmerk6
+     , null  Kenmerk7
+     , null  Kenmerk8
+     , null  Kenmerk9
+     , null  Kenmerk10
+     , null  Kenmerk11
+     , null  Kenmerk12
+     , null  Kenmerk13
+     , null  Kenmerk14
+     , null  Kenmerk15
+     , null  Kenmerk16
+     , null  Kenmerk17
+     , null  Kenmerk18
+     , null  Kenmerk19
+     , null  Kenmerk20
+  FROM prs_perslid p
+     , prs_srtperslid s
+     , prs_afdeling a
+     , alg_v_onroerendgoed_gegevens o
+     , alg_locatie l
+     , alg_verdieping v
+     , prs_perslidwerkplek b
+     , prs_werkplek w
+     , prs_kostenplaats k
+ WHERE p.prs_srtperslid_key = s.prs_srtperslid_key(+)
+   AND p.prs_afdeling_key = a.prs_afdeling_key(+)
+   AND w.prs_alg_ruimte_key = o.alg_onroerendgoed_keys(+)
+   AND o.alg_locatie_key = l.alg_locatie_key(+)
+   AND o.alg_verdieping_key = v.alg_verdieping_key(+)
+   AND p.prs_perslid_key = b.prs_perslid_key(+)
+   AND b.prs_werkplek_key = w.prs_werkplek_key(+)
+   AND p.prs_kostenplaats_key = k.prs_kostenplaats_key(+)
+   AND p.prs_perslid_verwijder IS NULL
+   AND p.prs_perslid_inactief IS NULL
+   AND p.prs_perslid_flags = 0
+   AND p.prs_perslid_apikey IS NULL
+;
+
+CREATE OR REPLACE FORCE VIEW fac_v_exp_contract
+AS
+SELECT c.cnt_contract_nummer_intern                                   ContractNr             --A_nummer_intern
+     , c.cnt_contract_versie                                          Versie                 --B_versie
+     , c.cnt_contract_nummer                                          ExternNr               --C_nummer_extern
+     , (SELECT ins_discipline_omschrijving
+          FROM cnt_discipline
+         WHERE ins_discipline_key = c.ins_discipline_key)             ContractSoort          --D_contractsoort
+     , c.cnt_contract_omschrijving                                    Beschrijving           --E_beschrijving
+     , m.cnt_contract_nummer_intern                                   MantelNr               --F_mantel_nummer
+     , m.cnt_contract_versie                                          MantelNr_versie        --G_mantel_versie
+     , TRANSLATE(c.cnt_contract_document, chr(10)||chr(13), '\n')     Omschrijving           --H_omschrijving
+     , (SELECT prs_dienst_omschrijving
+          FROM prs_dienst
+         WHERE prs_dienst_key = c.prs_dienst_key)                     Dienst                 --I_dienst
+     , a.prs_afdeling_naam                                            Eigenaar_afd           --J_afdeling
+     , e.prs_perslid_email                                            Eigenaar_email         --K_eigenaar
+     , b.prs_perslid_email                                            Beheerder_email        --L_beheerder
+     , TRANSLATE(c.cnt_contract_opmerking, chr(10)||chr(13), '\n')    Opmerking              --M_opmerking
+     , TO_CHAR(c.cnt_contract_looptijd_van, 'dd-mm-yyyy')             Ingangsdatum           --N_ingangsdatum
+     , TO_CHAR(cnt.cnt_getTermijndatum( cnt.cnt_getTermijndatum( c.cnt_contract_looptijd_tot
+                                                               , c.cnt_contract_opzegtermijn
+                                                               , -1)
+                                      , c.cnt_contract_rappeltermijn
+                                      , -1), 'dd-mm-yyyy')            Rappeldatum            --O_rappeldatum
+     , TO_CHAR(cnt.cnt_getTermijndatum( c.cnt_contract_looptijd_tot
+                                      , c.cnt_contract_opzegtermijn
+                                      , -1), 'dd-mm-yyyy')            Opzegdatum             --P_opzegdatum
+     , TO_CHAR(c.cnt_contract_looptijd_tot, 'dd-mm-yyyy')             Einddatum              --Q_einddatum
+     , CASE WHEN c.cnt_prs_perslid_key IS NOT NULL
+            THEN 'P'
+            ELSE 'B'
+       END                                                            Soort_contactpartij    --R_soortcontact
+     , CASE WHEN c.cnt_prs_perslid_key IS NOT NULL
+            THEN (SELECT prs_perslid_email
+                    FROM prs_perslid
+                   WHERE prs_perslid_key = c.cnt_prs_perslid_key)
+            ELSE (SELECT prs_bedrijf_naam
+                    FROM prs_bedrijf
+                   WHERE prs_bedrijf_key = c.cnt_prs_bedrijf_key)
+       END                                                            Bedrijfsnaam           --S_bedrijfnaam
+     , (SELECT prs_contactpersoon_email
+          FROM prs_contactpersoon
+         WHERE prs_contactpersoon_key = c.prs_contactpersoon_key)     ContactNaam            --T_contactpersoon
+     , (SELECT prs_kostenplaats_nr
+          FROM prs_kostenplaats
+         WHERE prs_kostenplaats_key = c.prs_kostenplaats_key)         KostenplaatsCode       --U_kostenplaatscode
+     , (SELECT prs_kostensoort_oms
+          FROM prs_kostensoort
+         WHERE prs_kostensoort_key = c.prs_kostensoort_key)           KostensoortCode        --V_kostensoortcode
+     , TO_CHAR(c.cnt_contract_kosten)                                 Contractbedrag         --W_contractbedrag
+     , TO_CHAR(c.cnt_contract_termijnkosten)                          Termijnbedrag	         --X_termijnbedrag
+     , TO_CHAR(c.cnt_contract_uurloon)                                Uurtarief              --Y_uurtarief
+     , TO_CHAR(c.cnt_contract_korting)                                Korting                --Z_korting
+     , p.cnt_alg_plaats_code                                          ScopeType              --AA_scope
+     , (SELECT MIN(CASE WHEN p.cnt_alg_plaats_code = 'L' THEN alg_locatie_code
+                        WHEN p.cnt_alg_plaats_code = 'G' THEN alg_gebouw_code
+                        ELSE ''
+                   END)
+          FROM alg_v_gebouw_gegevens
+         WHERE CASE WHEN p.cnt_alg_plaats_code = 'L' THEN alg_locatie_key
+                    WHEN p.cnt_alg_plaats_code = 'G' THEN alg_gebouw_key
+               END = p.cnt_alg_plaats_key
+       )                                                              LocatieGebouw_code     --AB_locatiegebouw
+     , c.cnt_contract_verlenging                                      Verlengen              --AC_verlengen
+     --, CASE WHEN c.cnt_contract_verlenging = 5
+     --       THEN cnt.cnt_getTermijndatum( c.cnt_contract_looptijd_tot
+     --                         , c.cnt_contract_verleng_termijn
+     --                         , 1)
+     --       ELSE NULL
+     --  END                                                            Verlengdatum
+  FROM cnt_contract c
+     , (SELECT mm.cnt_contract_key
+             , mm.cnt_contract_nummer_intern
+             , mm.cnt_contract_versie
+          FROM cnt_contract mm
+             , cnt_disc_params md
+         WHERE mm.ins_discipline_key = md.cnt_ins_discipline_key
+           AND md.cnt_srtcontract_type = 6
+           AND mm.cnt_contract_status != 1
+       ) m
+     , cnt_contract_plaats p
+     , prs_afdeling a
+     , prs_v_aanwezigperslid b
+     , prs_v_aanwezigperslid e
+     , prs_kostenplaats k
+ WHERE c.cnt_contract_mantel_key = m.cnt_contract_key(+)
+   AND c.cnt_contract_key = p.cnt_contract_key(+)
+   AND c.prs_afdeling_key_eig = a.prs_afdeling_key
+   AND c.prs_perslid_key_beh = b.prs_perslid_key
+   AND c.prs_perslid_key_eig = e.prs_perslid_key
+   AND c.prs_kostenplaats_key = k.prs_kostenplaats_key
+   AND c.cnt_contract_verwijder IS NULL
+   AND a.prs_afdeling_verwijder IS NULL
+   AND b.prs_perslid_email IS NOT NULL
+   AND k.prs_kostenplaats_verwijder IS NULL
+ ORDER BY c.cnt_contract_nummer_intern
+        , c.cnt_contract_versie
+;
+
+REGISTERRUN('$Id$')

FAC/Languages/FACILITOR_DE.csv

@@ -3118,11 +3118,6 @@ lcl_menu_fac_notificaties;ASP;DE;Notifikationen;
 lcl_menu_fac_portalmenu0;ASP;DE;SB-Portal;
 lcl_menu_fac_portalmenu1;ASP;DE;Service-Portal;
 lcl_menu_fac_portalmenu2;ASP;DE;Einrichtung-Portal;
-lcl_menu_fac_qlikview;ASP;DE;Facilitor<6F> Analyzer;
-lcl_menu_fac_qlikview_alg;ASP;DE;Immobilien;
-lcl_menu_fac_qlikview_bes;ASP;DE;Bestellungen;
-lcl_menu_fac_qlikview_mld;ASP;DE;Meldungen;
-lcl_menu_fac_qlikview_res;ASP;DE;Reservierungen;
 lcl_menu_fac_rapportages;ASP;DE;Reporte;
 lcl_menu_fac_reports;ASP;DE;Report;
 lcl_menu_fac_rw;ASP;DE;Lesen/Schreiben;
@@ -5040,53 +5035,6 @@ lcl_qrc_auth_mail_subject;ASP;DE;Facilitor Anmeldung;
 lcl_qrc_authenticatie;ASP;DE;Registriere mein Smartphone;
 lcl_qrc_bookmark;ASP;DE;Lesemarke;
 lcl_qrc_url;ASP;DE;Facilitor-URL;
-lcl_qvw_aantal;ASP;DE;Anzahl;
-lcl_qvw_algemeen;ASP;DE;Allgemein;
-lcl_qvw_at_days;ASP;DE;bei Arbeitstage;
-lcl_qvw_at_hours;ASP;DE;bei Arbeitsstunden;
-lcl_qvw_bes_aant_art;ASP;DE;Anzahl bestellten Artikel;
-lcl_qvw_bes_artikelprijs;ASP;DE;Artikelpreis;
-lcl_qvw_bes_gem_kosten;ASP;DE;Kostendurchschnitt pro Bestellung (in Euro);
-lcl_qvw_bes_winst;ASP;DE;Gewinn;
-lcl_qvw_doorlooptijd;ASP;DE;Laufzeit;
-lcl_qvw_doorlooptijd_saldo;ASP;DE;Ausgleich Laufzeit;
-lcl_qvw_favour_list;ASP;DE;Favoriten;
-lcl_qvw_geen_expressies;ASP;DE;Keine Ausdr<64>cke gew<65>hlt;
-lcl_qvw_indicator;ASP;DE;Indikator;
-lcl_qvw_ingevoerd_door;ASP;DE;Durch Eingabe von;
-lcl_qvw_interval;ASP;DE;Intervall;
-lcl_qvw_invoer;ASP;DE;Eingabe;
-lcl_qvw_kosten;ASP;DE;Kosten;
-lcl_qvw_kwartaal;ASP;DE;Quartal;
-lcl_qvw_lock;ASP;DE;Sperren;
-lcl_qvw_mld_gem_doorlooptijd;ASP;DE;Laufzeitdurchschnitt pro Meldung;
-lcl_qvw_mld_totale_kosten;ASP;DE;Gesamte Kosten (in Euro);
-lcl_qvw_op_tijd;ASP;DE;Zeitlich;
-lcl_qvw_per;ASP;DE;pro;
-lcl_qvw_percentage;ASP;DE;Prozentsatz;
-lcl_qvw_personeel;ASP;DE;Personal;
-lcl_qvw_res_beschikbaar;ASP;DE;verf<72>gbare R<>ume;
-lcl_qvw_res_duur_in_uren;ASP;DE;Dauer (in Stunden);
-lcl_qvw_res_gem_duur;ASP;DE;Durchschnittliche Dauer pro Reservierung (in Stunden);
-lcl_qvw_res_gem_kosten;ASP;DE;Kostendurchschnitt pro Reservierung (in Euro);
-lcl_qvw_res_max_bezetting;ASP;DE;Maximale Besetzung;
-lcl_qvw_res_tijdsinterval;ASP;DE;Zeitintervall;
-lcl_qvw_res_zaalreservering;ASP;DE;Raumreservierung;
-lcl_qvw_select_view;ASP;DE;Nehmen Sie eine Auswahl vor;
-lcl_qvw_selectie;ASP;DE;Auswahl;
-lcl_qvw_sla;ASP;DE;Service Kategorie;
-lcl_qvw_sorteren;ASP;DE;Sortieren;
-lcl_qvw_toevoegen;ASP;DE;Hinzuf<75>gen;
-lcl_qvw_unlock;ASP;DE;<3B>ffnen;
-lcl_qvw_van_invoer;ASP;DE;von Eingabe;
-lcl_qvw_veld;ASP;DE;Feld;
-lcl_qvw_verwijderen;ASP;DE;Entfernen;
-lcl_qvw_verwissel;ASP;DE;Wechseln;
-lcl_qvw_waarde;ASP;DE;Wert;
-lcl_qvw_werkdagen;ASP;DE;Arbeitstage;
-lcl_qvw_werkuren;ASP;DE;Arbeitsstunden;
-lcl_qvw_x_as;ASP;DE;X-Achse;
-lcl_qvw_y_as;ASP;DE;Y-Achse;
 lcl_r_clean;ASP;DE;Reinigung;
 lcl_r_price5;ASP;DE;Preis;
 lcl_r_price7;ASP;DE;Verrechnungssumme;

FAC/Languages/FACILITOR_FR.csv

@@ -793,7 +793,7 @@ label;module;language;translation;undefined
 "lcl_bes_compleetonly";"ASP";"FR";"Ne remplissez / A ";""
 "lcl_bes_complete";"ASP";"FR";"Complet / remplir?";""
 "lcl_bes_confirm_accept";"ASP";"FR";"L'ordre {0} a-t-il <20>t<EFBFBD> accept<70> par le fournisseur?";""
-"lcl_bes_confirm_embargo";"ASP";"FR";"Il'y a d<>j<EFBFBD> cr<63><72> un ordre pour cette commande.
+"lcl_bes_confirm_embargo";"ASP";"FR";"Il'y a d<>j<EFBFBD> cr<63><72> un ordre pour cette commande.
 Modifier sous r<>serve de confirmation par le fournisseur?";""
 "lcl_bes_confirm_order";"ASP";"FR";"Voulez-vous ex<65>cuter la demande d'ordre?";""
 "lcl_bes_confirm_sent";"ASP";"FR";"Marquer l'ordre {0} comme envoy<6F>?";""
@@ -957,9 +957,9 @@ Modifier sous r
 "lcl_bes_producer";"ASP";"FR";"Producteur";""
 "lcl_bes_prsflex";"ASP";"FR";"Personnalisable";""
 "lcl_bes_punchout";"ASP";"FR";"(externe)";""
-"lcl_bes_punchout_active";"ASP";"FR";"Pour commander de ce catalogue, vous serez dirig<69> vers un autre <20>cran <20> la boutique du fournisseur.
-Remplissez votre panier et finalisez votre commande.
-
+"lcl_bes_punchout_active";"ASP";"FR";"Pour commander de ce catalogue, vous serez dirig<69> vers un autre <20>cran <20> la boutique du fournisseur.
+Remplissez votre panier et finalisez votre commande.
+
 Vous pouvez fermer cet onglet.";""
 "lcl_bes_reduced_to_max";"ASP";"FR";"Il y a seulement {0} pi<70>ces sur stock, le nombre demand<6E> sera r<>duits <20> {1}.";""
 "lcl_bes_registered_nr";"ASP";"FR";"Enregistr<74> sous le num<75>ro";""
@@ -1324,7 +1324,7 @@ Vous pouvez fermer cet onglet.";""
 "lcl_correct";"ASP";"FR";"Correction";""
 "lcl_count";"ASP";"FR";"Nombre";""
 "lcl_current_fav";"ASP";"FR";"Favoris";""
-"lcl_current_fav_saved";"ASP";"FR";"Onglet actuel est enregistr<74> a menu favoris.
+"lcl_current_fav_saved";"ASP";"FR";"Onglet actuel est enregistr<74> a menu favoris.
 Veuillez actualiser l'<27>cran";""
 "lcl_current_fav_unsave";"ASP";"FR";"Lib<69>r<EFBFBD> cette favoris";""
 "lcl_current_fav_unsaved";"ASP";"FR";"Favoris lib<69>r<EFBFBD>";""
@@ -1505,7 +1505,7 @@ Veuillez actualiser l'
 "lcl_fac_gefiatteerd";"ASP";"FR";"Autoris<69> / approuv<75>";""
 "lcl_fac_graph_others";"ASP";"FR";"D'autres";""
 "lcl_fac_help_improve";"ASP";"FR";"Merci pour votre avis!";""
-"lcl_fac_hmail_empty_body";"ASP";"FR";"corps Mail est vide. contenu HTML:
+"lcl_fac_hmail_empty_body";"ASP";"FR";"corps Mail est vide. contenu HTML:
 ";""
 "lcl_fac_hmail_expired";"ASP";"FR";"Trop tard";""
 "lcl_fac_hmail_no_subject";"ASP";"FR";"<Pas de Sujet>";""
@@ -1659,7 +1659,7 @@ Veuillez actualiser l'
 "lcl_fg_obj_filter";"ASP";"FR";"Objects";""
 "lcl_fg_obj_firstnew";"ASP";"FR";"Nouvaux symboles doit <20>tre plac<61> dans un espace.";""
 "lcl_fg_obj_legend";"ASP";"FR";"L<>gende d'objects";""
-"lcl_fg_obj_noedit";"ASP";"FR";"Pas d'autorisation pour
+"lcl_fg_obj_noedit";"ASP";"FR";"Pas d'autorisation pour
 modifier des objets.";""
 "lcl_fg_papier";"ASP";"FR";"papier";""
 "lcl_fg_papierformaat";"ASP";"FR";"Taille du papier";""
@@ -1690,7 +1690,7 @@ modifier des objets.";""
 "lcl_fg_tek_room_opp_g_alt2";"ASP";"FR";"Dessin<69> Alt2";""
 "lcl_fg_tek_scan";"ASP";"FR";"Scanner";""
 "lcl_fg_tek_scandbl";"ASP";"FR";"Attention: certains <20>tiques/contours sont double dans le dessin. Voyez contours pour vue d'ensemble.";""
-"lcl_fg_tek_scannen";"ASP";"FR";"Fini avec scanner le dessin {0}.dwf
+"lcl_fg_tek_scannen";"ASP";"FR";"Fini avec scanner le dessin {0}.dwf
 ({1} contours, {2} <20>tiquettes, {3} m<>)";""
 "lcl_fg_tek_verschil";"ASP";"FR";"Diff<66>rences";""
 "lcl_fg_thema";"ASP";"FR";"Th<54>me";""
@@ -1863,7 +1863,7 @@ modifier des objets.";""
 "lcl_firstlogin_url";"ASP";"FR";"Bienvenue <20> FACILITOR";""
 "lcl_fixmelding";"ASP";"FR";"Corriger cat<61>gorie";""
 "lcl_flex_autocopy";"ASP";"FR";"Fichiers sont copi<70>s (apr<70>s sauvegarder)";""
-"lcl_flex_filenotfound";"ASP";"FR";"Fichier pas trouv<75>.
+"lcl_flex_filenotfound";"ASP";"FR";"Fichier pas trouv<75>.
 Contr<EFBFBD>lez le dossier et sauvegardez des modifications avec Ok.";""
 "lcl_flex_filenotfoundRO";"ASP";"FR";"Fichier pas trouv<75>.";""
 "lcl_flexible_properties";"ASP";"FR";"Caract<63>restiques sp<73>cifiques";""
@@ -1952,7 +1952,7 @@ Contr
 "lcl_impersonate";"ASP";"FR";"Imiter";""
 "lcl_impersonate_active";"ASP";"FR";"Vous <20>tes r<>ellement {0}";""
 "lcl_impersonate_return";"ASP";"FR";"Vous allez continuer comme {0}";""
-"lcl_impersonate_start";"ASP";"FR";"Voulez-vous connecter en tant que {0}?
+"lcl_impersonate_start";"ASP";"FR";"Voulez-vous connecter en tant que {0}?
 Ce sera suivi.";""
 "lcl_impersonated";"ASP";"FR";"Connexion en tant que";""
 "lcl_impersonated_end";"ASP";"FR";"D<>connexion session de {0}";""
@@ -2029,7 +2029,7 @@ Ce sera suivi.";""
 "lcl_ins_controle_plan";"ASP";"FR";"Pr<50>vu ";""
 "lcl_ins_controle_plandate";"ASP";"FR";"Date planifi<66>e";""
 "lcl_ins_controle_previous";"ASP";"FR";"contr<74>les pr<70>c<EFBFBD>dente";""
-"lcl_ins_controle_respijt_is_next";"ASP";"FR";"La date de la r<>pit est la m<>me que la prochaine date d'inspection.
+"lcl_ins_controle_respijt_is_next";"ASP";"FR";"La date de la r<>pit est la m<>me que la prochaine date d'inspection.
 Choisir une date diff<66>rente p<>riode de r<>pit.";""
 "lcl_ins_controle_soon";"ASP";"FR";"Bient<6E>t";""
 "lcl_ins_controle_srt";"ASP";"FR";"T<>che";""
@@ -2370,11 +2370,6 @@ Choisir une date diff
 "lcl_menu_fac_portalmenu0";"ASP";"FR";"Portail de Libre-Service";""
 "lcl_menu_fac_portalmenu1";"ASP";"FR";"Portail de Service";""
 "lcl_menu_fac_portalmenu2";"ASP";"FR";"Portal d'Administration";""
-"lcl_menu_fac_qlikview";"ASP";"FR";"Analyseur FACILITOR<4F> ";""
-"lcl_menu_fac_qlikview_alg";"ASP";"FR";" Biens immobiliers ";""
-"lcl_menu_fac_qlikview_bes";"ASP";"FR";"Commandes / Demandes d'ordre d'achat?";""
-"lcl_menu_fac_qlikview_mld";"ASP";"FR";"Notifiations";""
-"lcl_menu_fac_qlikview_res";"ASP";"FR";"R<>servations";""
 "lcl_menu_fac_rapportages";"ASP";"FR";"Rapports";""
 "lcl_menu_fac_reports";"ASP";"FR";"Rapports";""
 "lcl_menu_fac_rw";"ASP";"FR";"Lecture/<2F>criture";""
@@ -2718,10 +2713,10 @@ Choisir une date diff
 "lcl_mld_desirable_enddate";"ASP";"FR";"Date souhait<69>e";""
 "lcl_mld_dienst";"ASP";"FR";"Service";""
 "lcl_mld_dienst_niveau";"ASP";"FR";"Niveau de service";""
-"lcl_mld_dienst_not_for_org";"ASP";"FR";"Service pas disponible pour cet espace.
+"lcl_mld_dienst_not_for_org";"ASP";"FR";"Service pas disponible pour cet espace.
 Cet espace n'est pas lou<6F> par votre organisation.";""
 "lcl_mld_dienst_not_for_room";"ASP";"FR";"Service non disponible pour cet zone";""
-"lcl_mld_dienstunavailablehere";"ASP";"FR";"Le service n'est pas disponible pour cet emplacement/immeuble:
+"lcl_mld_dienstunavailablehere";"ASP";"FR";"Le service n'est pas disponible pour cet emplacement/immeuble:
 ";""
 "lcl_mld_directklaar";"ASP";"FR";"@Peut <20>tre trait<69> par le front-office";""
 "lcl_mld_doorgezet";"ASP";"FR";"Appel est transmis";""
@@ -2867,7 +2862,7 @@ Cet espace n'est pas lou
 "lcl_mld_meldbron_nr";"ASP";"FR";"Numero d'origine";""
 "lcl_mld_melding_locked";"ASP";"FR";"Attention: cette app<70>l est d<>j<EFBFBD> ({1}) manipul<75> par {0}";""
 "lcl_mld_melding_lopende";"ASP";"FR";"Mes appels";""
-"lcl_mld_meldingbuitenopdracht";"ASP";"FR";"Il y'a d<>j<EFBFBD> des ordres en attente o<> le d<>lai d'exc<78>cution est a l'ext<78>rieur du d<>lai de l'appel.
+"lcl_mld_meldingbuitenopdracht";"ASP";"FR";"Il y'a d<>j<EFBFBD> des ordres en attente o<> le d<>lai d'exc<78>cution est a l'ext<78>rieur du d<>lai de l'appel.
 Modifiez les ordres.";""
 "lcl_mld_meldinggroep";"ASP";"FR";"Groupe d'appel";""
 "lcl_mld_meldingsoort";"ASP";"FR";"Sorte d'appel";""
@@ -3260,10 +3255,10 @@ Modifiez les ordres.";""
 "lcl_niveau";"ASP";"FR";"Niveau";""
 "lcl_no";"ASP";"FR";"non";""
 "lcl_no_artikels";"ASP";"FR";"";""
-"lcl_no_auth";"ASP";"FR";"En vertu des droits accord<72>s vous n'avez pas d'autorisation pour cette action.
-
-Normalement, cela est cens<6E>.
-
+"lcl_no_auth";"ASP";"FR";"En vertu des droits accord<72>s vous n'avez pas d'autorisation pour cette action.
+
+Normalement, cela est cens<6E>.
+
 Si vous croyez que ce n'est pas, s'il vous pla<6C>t contactez votre contact de FACILITOR.";""
 "lcl_no_multi_actions";"ASP";"FR";"Aucune action en masse";""
 "lcl_no_noti_prsvoorkeur";"ASP";"FR";"Configuration standard - pas de changements";""
@@ -3548,7 +3543,7 @@ Si vous croyez que ce n'est pas, s'il vous pla
 "lcl_print_properties";"ASP";"FR";"Souhaitez-vous <20>galement afficher les attributs?";""
 "lcl_print_table";"ASP";"FR";"Imprimer";""
 "lcl_prj_add_scenario_note";"ASP";"FR";"Ajouter";""
-"lcl_prj_addfloor";"ASP";"FR";"Cet <20>tage n'est pas encore inclus dans le sc<73>nario.
+"lcl_prj_addfloor";"ASP";"FR";"Cet <20>tage n'est pas encore inclus dans le sc<73>nario.
 Voulez-vous ajouter cet <20>tage <20> ce sc<73>nario maintenant?";""
 "lcl_prj_behandelaar";"ASP";"FR";"Praticien";""
 "lcl_prj_bezettingpct";"ASP";"FR";"%";""
@@ -3902,7 +3897,7 @@ Voulez-vous ajouter cet
 "lcl_prs_wp_bad_occupation";"ASP";"FR";"Occupation invalide";""
 "lcl_prs_wp_fgraph";"ASP";"FR";"Plan";""
 "lcl_prs_year";"ASP";"FR";"Aucune";""
-"lcl_puo_order_failfirst";"ASP";"FR";"@Order has not been sent.
+"lcl_puo_order_failfirst";"ASP";"FR";"@Order has not been sent.
 The system will automatically try to send the order again.";""
 "lcl_puo_order_flexfiles";"ASP";"FR";"@Envoyer des pi<70>ces jointes";""
 "lcl_pwd_failed";"ASP";"FR";"Le mot de passe n'est pas chang<6E>, essayez <20> nouveau.";""
@@ -3922,53 +3917,6 @@ The system will automatically try to send the order again.";""
 "lcl_qrc_authenticatie";"ASP";"FR";"S'enregistrer mon portable";""
 "lcl_qrc_bookmark";"ASP";"FR";"Signet";""
 "lcl_qrc_url";"ASP";"FR";"FACILITOR-URL";""
-"lcl_qvw_aantal";"ASP";"FR";"Nombre des";""
-"lcl_qvw_algemeen";"ASP";"FR";"G<>n<EFBFBD>ral";""
-"lcl_qvw_at_days";"ASP";"FR";"<22> jours de travail";""
-"lcl_qvw_at_hours";"ASP";"FR";"<22> heures de travail";""
-"lcl_qvw_bes_aant_art";"ASP";"FR";"Nombre d'articles command<6E>s";""
-"lcl_qvw_bes_artikelprijs";"ASP";"FR";"Prix d'article";""
-"lcl_qvw_bes_gem_kosten";"ASP";"FR";"Co<43>ts moyenne par ordre (en Euro)";""
-"lcl_qvw_bes_winst";"ASP";"FR";"B<>n<EFBFBD>fice";""
-"lcl_qvw_doorlooptijd";"ASP";"FR";"D'ex<65>cution";""
-"lcl_qvw_doorlooptijd_saldo";"ASP";"FR";"<22>quilibre d'ex<65>cution";""
-"lcl_qvw_favour_list";"ASP";"FR";"Liste des favoris";""
-"lcl_qvw_geen_expressies";"ASP";"FR";"Aucun d'expressions s<>lectionn<6E>e";""
-"lcl_qvw_indicator";"ASP";"FR";"Indicateur";""
-"lcl_qvw_ingevoerd_door";"ASP";"FR";"Entr<74>e par";""
-"lcl_qvw_interval";"ASP";"FR";"Intervalle";""
-"lcl_qvw_invoer";"ASP";"FR";"Entr<74>es";""
-"lcl_qvw_kosten";"ASP";"FR";"Co<43>ts";""
-"lcl_qvw_kwartaal";"ASP";"FR";"Trimestre";""
-"lcl_qvw_lock";"ASP";"FR";"Bloquer";""
-"lcl_qvw_mld_gem_doorlooptijd";"ASP";"FR";"Dur<75>e d'ex<65>cution moyenne";""
-"lcl_qvw_mld_totale_kosten";"ASP";"FR";"Total co<63>ts (en Euro)";""
-"lcl_qvw_op_tijd";"ASP";"FR";"Dans le temps";""
-"lcl_qvw_per";"ASP";"FR";"par";""
-"lcl_qvw_percentage";"ASP";"FR";"Pourcentage";""
-"lcl_qvw_personeel";"ASP";"FR";"Personnel";""
-"lcl_qvw_res_beschikbaar";"ASP";"FR";"espaces disponibles";""
-"lcl_qvw_res_duur_in_uren";"ASP";"FR";"Dur<75>e (en heures)";""
-"lcl_qvw_res_gem_duur";"ASP";"FR";"Dur<75>e moyenne par r<>servation (en heures)";""
-"lcl_qvw_res_gem_kosten";"ASP";"FR";"Co<43>ts moyenne par r<>servation (en Euro)";""
-"lcl_qvw_res_max_bezetting";"ASP";"FR";"Occupation maximale";""
-"lcl_qvw_res_tijdsinterval";"ASP";"FR";"Intervalle de temps";""
-"lcl_qvw_res_zaalreservering";"ASP";"FR";"R<>servation d'un espace";""
-"lcl_qvw_select_view";"ASP";"FR";"Choisissez";""
-"lcl_qvw_selectie";"ASP";"FR";"S<>lection";""
-"lcl_qvw_sla";"ASP";"FR";"Niveau de service";""
-"lcl_qvw_sorteren";"ASP";"FR";"Trier";""
-"lcl_qvw_toevoegen";"ASP";"FR";"Ajouter";""
-"lcl_qvw_unlock";"ASP";"FR";"Ouvrir";""
-"lcl_qvw_van_invoer";"ASP";"FR";"d'entr<74>e";""
-"lcl_qvw_veld";"ASP";"FR";"Domain";""
-"lcl_qvw_verwijderen";"ASP";"FR";"Enlever";""
-"lcl_qvw_verwissel";"ASP";"FR";"Changer";""
-"lcl_qvw_waarde";"ASP";"FR";"Valeur";""
-"lcl_qvw_werkdagen";"ASP";"FR";"Jours de travail";""
-"lcl_qvw_werkuren";"ASP";"FR";"Heures de travail";""
-"lcl_qvw_x_as";"ASP";"FR";"axe X";""
-"lcl_qvw_y_as";"ASP";"FR";"axe Y";""
 "lcl_r_clean";"ASP";"FR";"nettoyage";""
 "lcl_r_price5";"ASP";"FR";"Prix";""
 "lcl_r_price7";"ASP";"FR";"prix total";""
@@ -4011,9 +3959,9 @@ The system will automatically try to send the order again.";""
 "lcl_res_add_catering";"ASP";"FR";"+";""
 "lcl_res_add_catering_remark";"ASP";"FR";"Ajouter cet article un autre temps";""
 "lcl_res_add_deelres";"ASP";"FR";"R<>p<EFBFBD>ter";""
-"lcl_res_add_deelresreservering";"ASP";"FR";"R<>servation de plus
+"lcl_res_add_deelresreservering";"ASP";"FR";"R<>servation de plus
 (m<>me jour)";""
-"lcl_res_add_deelresruimte";"ASP";"FR";"Espace de plus
+"lcl_res_add_deelresruimte";"ASP";"FR";"Espace de plus
 (m<>me jour)";""
 "lcl_res_afhalen";"ASP";"FR";"R<>cup<75>rer";""
 "lcl_res_afhalen_fixed";"ASP";"FR";"A r<>cup<75>rer <20>";""
@@ -4044,8 +3992,8 @@ The system will automatically try to send the order again.";""
 "lcl_res_between_startend";"ASP";"FR";"@D<>lai de livraison doit <20>tre comprise entre l'heure de d<>but et heure de la fin de l'article ({0} - {1})";""
 "lcl_res_bez_badgenr";"ASP";"FR";"@No. de suite";""
 "lcl_res_bez_called";"ASP";"FR";"@Invoqu<71>e";""
-"lcl_res_bez_coming";"ASP";"FR";"Client {0} {1} has been called to {2}
-
+"lcl_res_bez_coming";"ASP";"FR";"Client {0} {1} has been called to {2}
+
 The wait time was {4} minutes.";""
 "lcl_res_bez_hasleft";"ASP";"FR";"@Client a d<>j<EFBFBD> quitt<74> <20> {0}";""
 "lcl_res_bez_inside";"ASP";"FR";"@Inside";""
@@ -4072,7 +4020,7 @@ The wait time was {4} minutes.";""
 "lcl_res_catgoedkeur";"ASP";"FR";"Approuver";""
 "lcl_res_charge";"ASP";"FR";"Imputer";""
 "lcl_res_charge_total";"ASP";"FR";"Total convenu";""
-"lcl_res_cleanup_invalid_objcat";"ASP";"FR";"Attention: il y a des <20>quipements invalides dans cette r<>servation.
+"lcl_res_cleanup_invalid_objcat";"ASP";"FR";"Attention: il y a des <20>quipements invalides dans cette r<>servation.
 Voulez-vous les supprimer automatiquement?";""
 "lcl_res_confirm_delete_afspraak";"ASP";"FR";"Voulez-vous supprimer cette sous r<>servation?";""
 "lcl_res_cons_time";"ASP";"FR";"Equipement n'est pas disponible <20> cette heure.";""
@@ -4083,7 +4031,7 @@ Voulez-vous les supprimer automatiquement?";""
 "lcl_res_copytodates";"ASP";"FR";"A ces r<>servations:";""
 "lcl_res_costs_negative";"ASP";"FR";"Les co<63>ts totaux sont n<>gatifs. Choisissez une remise inf<6E>rieure.";""
 "lcl_res_date_limit_reached";"ASP";"FR";"Date maximal pass<73>. Arr<72>t<EFBFBD> <20>: ";""
-"lcl_res_date_room_closed";"ASP";"FR";"P<>riode s<>lectionn<6E>e est hors des heurs ouvrable.
+"lcl_res_date_room_closed";"ASP";"FR";"P<>riode s<>lectionn<6E>e est hors des heurs ouvrable.
 Choisissez un autre espace ou une autre heure.";""
 "lcl_res_day";"ASP";"FR";"Jour";""
 "lcl_res_dayschedule";"ASP";"FR";"Division de la journ<72>e";""
@@ -4108,12 +4056,12 @@ Choisissez un autre espace ou une autre heure.";""
 "lcl_res_extern_close";"ASP";"FR";"@Vous pouvez maintenant fermer cette fen<65>tre";""
 "lcl_res_extern_prefix";"ASP";"FR";"Extern: ";""
 "lcl_res_facility_bound";"ASP";"FR";"Remarque: Vous avez indiqu<71> des installations en dehors du temps de r<>servation!";""
-"lcl_res_fail_invalid_objcat";"ASP";"FR";"Attention: il y a des <20>quipements invalides dans cette r<>servation.
+"lcl_res_fail_invalid_objcat";"ASP";"FR";"Attention: il y a des <20>quipements invalides dans cette r<>servation.
 V<EFBFBD>rifiez ces desous.";""
 "lcl_res_fail_multi1";"ASP";"FR";"Attention: il y a ";""
-"lcl_res_fail_multi1s";"ASP";"FR";"Attention: il y a une sous-r<>servations invalide dans cette s<>rie.
+"lcl_res_fail_multi1s";"ASP";"FR";"Attention: il y a une sous-r<>servations invalide dans cette s<>rie.
 V<EFBFBD>rifiez cette, utilisant la liste <20> gauche";""
-"lcl_res_fail_multi2";"ASP";"FR";" sous-r<>servations invalides dans cette s<>rie.
+"lcl_res_fail_multi2";"ASP";"FR";" sous-r<>servations invalides dans cette s<>rie.
 V<EFBFBD>rifiez ces, utilisant la liste <20> gauche";""
 "lcl_res_fe_edit_option_only";"ASP";"FR";"la r<>servation est d<>j<EFBFBD> d<>finitive. Contactez le front office pour en cas de modifications.";""
 "lcl_res_fe_no_dirty";"ASP";"FR";"Cet espace ou cet equipement n'est pas disponible. Choisissez un autre espace ou une autre heure!";""
@@ -4194,7 +4142,7 @@ V
 "lcl_res_objects";"ASP";"FR";"Objets r<>servables";""
 "lcl_res_objmove";"ASP";"FR";"Attention: r<>servation sera compl<70>tement d<>plac<61>e, d'autres <20>quipements sont acoompagn<67>s.";""
 "lcl_res_objplantime";"ASP";"FR";"Modifier l'heure seulement possible via r<>servation ou calendrier";""
-"lcl_res_only_chance_after";"ASP";"FR";"
+"lcl_res_only_chance_after";"ASP";"FR";"
 Modification est seulement possible pour r<>servations apr<70>s ";""
 "lcl_res_oordeel";"ASP";"FR";"Avis";""
 "lcl_res_opstelling";"ASP";"FR";"Agencement";""
@@ -4378,7 +4326,7 @@ Modification est seulement possible pour r
 "lcl_self_register_body";"ASP";"FR";"Ce message est envoy<6F> <20> cause d'une inscription <20> facilitor a <20>t<EFBFBD> demand<6E>. <p> Ce message peut <20>tre ignor<6F> si vous n'avez pas fait cette demande. Si ce message est pour vous, utilisez le lien suivant<br>&nbsp;&nbsp;&nbsp;&nbsp;<a href='{0}'>{0}</a><br> pour terminer votre inscription.";""
 "lcl_self_register_confirmed";"ASP";"FR";"Votre inscription est termin<69>e. Utilisez <a href='{0}'>link</a> pour vous connecter avec votre adresse e-mail et mot de passe.";""
 "lcl_self_register_duplicate";"ASP";"FR";"Cette adresse e-Amail est d<>j<EFBFBD> enregistr<74>.";""
-"lcl_self_register_email_sent";"ASP";"FR";"Un e-mail a <20>t<EFBFBD> envoy<6F> <20> {0}.
+"lcl_self_register_email_sent";"ASP";"FR";"Un e-mail a <20>t<EFBFBD> envoy<6F> <20> {0}.
 Utilisez le lien dans l'e-mail pour finaliser votre inscription.";""
 "lcl_self_register_email_wrong";"ASP";"FR";"Votre adresse e-mail n'a pas <20>t<EFBFBD> accept<70>e";""
 "lcl_self_register_footer";"ASP";"FR";"Vous allez maintenant recevoir un e-mail que vous devez confirmer pour continuer.";""
@@ -4414,34 +4362,34 @@ Utilisez le lien dans l'e-mail pour finaliser votre inscription.";""
 "lcl_shared_loading";"ASP";"FR";"Chargement...";""
 "lcl_shared_more";"ASP";"FR";"Plus >";""
 "lcl_shared_needed_info";"ASP";"FR";"Donn<6E>es n<>cessaires";""
-"lcl_shared_no_action";"ASP";"FR";"L'action que vous sp<73>cifiez ne peut pas (ou plus) est effectu<74>.
-Habituellement c'est parce que l'action a d<>j<EFBFBD> <20>t<EFBFBD> ex<65>cut<75>e.
+"lcl_shared_no_action";"ASP";"FR";"L'action que vous sp<73>cifiez ne peut pas (ou plus) est effectu<74>.
+Habituellement c'est parce que l'action a d<>j<EFBFBD> <20>t<EFBFBD> ex<65>cut<75>e.
 Parfois, c'est parce que vous n'avez pas les droits suffisants.";""
-"lcl_shared_no_auth";"ASP";"FR";"En vertu des droits accord<72>s vous n'avez pas d'autorisation pour cette action.
-
-Normalement, cela est cens<6E>.
-
+"lcl_shared_no_auth";"ASP";"FR";"En vertu des droits accord<72>s vous n'avez pas d'autorisation pour cette action.
+
+Normalement, cela est cens<6E>.
+
 Si vous croyez que ce n'est pas, s'il vous pla<6C>t contactez votre contact de FACILITOR.";""
 "lcl_shared_no_photos_present";"ASP";"FR";"Il n'y a pas de photos disponibles";""
 "lcl_shared_object";"ASP";"FR";"Objet";""
 "lcl_shared_order";"ASP";"FR";"Bon de commande";""
 "lcl_shared_other";"ASP";"FR";"D'autres";""
 "lcl_shared_othertabactive";"ASP";"FR";"Sauvegardez (ou annulez) les modifications";""
-"lcl_shared_photo_small";"ASP";"FR";"@Les photos doivent <20>tre au moins {0} pixels de haut et {1} pixels de large.
+"lcl_shared_photo_small";"ASP";"FR";"@Les photos doivent <20>tre au moins {0} pixels de haut et {1} pixels de large.
 Il est de {2} <20> {3}";""
 "lcl_shared_reservation";"ASP";"FR";"R<>servation";""
 "lcl_shared_row_delete_confirm";"ASP";"FR";"Voulez-vous vraiment supprimer cet/ces article(s) s<>lectionn<6E>(es)?";""
 "lcl_shared_send_email";"ASP";"FR";"Envoyer par e-mail";""
-"lcl_shared_suggest_hint";"ASP";"FR";"Vous pouvez taper ici ou cliquer sur l'ic<69>n.
+"lcl_shared_suggest_hint";"ASP";"FR";"Vous pouvez taper ici ou cliquer sur l'ic<69>n.
 Commencez avec '*' pour un debut al<61>atoire.";""
 "lcl_shared_suggest_huidig";"ASP";"FR";"(valeur actuel)";""
 "lcl_shared_suggest_more";"ASP";"FR";"Plus>>";""
 "lcl_shared_suggest_toomany";"ASP";"FR";"Trop beaucoup de r<>sultats. Entrez plusieurs caract<63>res.";""
-"lcl_shared_thumbnail_error";"ASP";"FR";"Fichier graphique invalide.
+"lcl_shared_thumbnail_error";"ASP";"FR";"Fichier graphique invalide.
 ";""
 "lcl_shared_upload_error_end";"ASP";"FR";")";""
-"lcl_shared_upload_error_start";"ASP";"FR";"T<>l<EFBFBD>chargement de fichiers a <20>chou<6F>.
-Cause possible est que le fichier est trop volumineux.
+"lcl_shared_upload_error_start";"ASP";"FR";"T<>l<EFBFBD>chargement de fichiers a <20>chou<6F>.
+Cause possible est que le fichier est trop volumineux.
 (";""
 "lcl_shared_upload_toomany";"ASP";"FR";"T<>l<EFBFBD>charg<72>es trop de fichiers";""
 "lcl_shared_use_caller_werkplek";"ASP";"FR";"Remplir les donn<6E>es du lieu de travail de l'appelant?";""
@@ -4591,7 +4539,7 @@ Cause possible est que le fichier est trop volumineux.
 "lcl_verkoopfactuurregels";"ASP";"FR";"Lignes de facture";""
 "lcl_vertalingen";"ASP";"FR";"Traductions";""
 "lcl_vervallen";"ASP";"FR";"Retir<69>e";""
-"lcl_viewimagealert";"ASP";"FR";"Le graphique est une image maintenant
+"lcl_viewimagealert";"ASP";"FR";"Le graphique est une image maintenant
 Clic droit pour sauver";""
 "lcl_vis_appointment";"ASP";"FR";"Rendez-vous";""
 "lcl_vis_appointment_no";"ASP";"FR";"No. de rendez-vous";""

FAC/facilitor-165209-firebase-adminsdk-xts0z-042cb975b9.json

@@ -0,0 +1,13 @@
+{
+  "type": "service_account",
+  "project_id": "facilitor-165209",
+  "private_key_id": "042cb975b9b456956773da035272efce0cf00285",
+  "private_key": "-----BEGIN PRIVATE KEY-----\nMIIEvQIBADANBgkqhkiG9w0BAQEFAASCBKcwggSjAgEAAoIBAQCQQJNL05OmzmCp\nu5yFfOdH21TkMGFYDvAUYqlvGu3waIEbnYU4Gu2FEj2rGRgcnrgOKWYxp+b58BkM\nWxBZ61wgpRIvvFUTHSmR3pLU3eRaxTlqJPFYHAQavi28a38nlM5EMXWGmLOKI25j\nUe4vbU3+WnP0kTTjLnSK0Pcm/bSp/b/zuERi1WcDtFLvVP/ZdwnAy/CzILbkC8Wm\nCckVYgFmcxK91mZ755mafn5Pn4zt8HkA4NzZivqhM4vOn7zXaJnwON2sQNxUTyJv\n+q8Pa4FRHHBPVO86uKWEUlciRDoVokZyon7a0QeVJv5otuLJF1p15+jUNN5eMGgV\nUOBkfzBnAgMBAAECggEAOVUpFfCcFSaeXaee8KExjSo75cvizKx3OCr0e5/A5RWs\nBs1HFwMA1yxmTTwWjL16mspSfzbkAv+t/O6uo4Z7YdAp18YrLAMhtAO56Rfd/EO5\n65mOQL411Wkz5Vj2O0WV652av+muJh+p7piwKbJwVsEdqB0UX5zlngyqxpj8drk2\niIEwz6diyRWv3dczZfhbbZLfVuRDLicfcyLK566OIg1a2WhniZbntksrwFLC5lkq\n8nRepvgTeIGg9b5Q+zP74iENU/onfyLSZ82KB+SVgC68D5wBjAVcoVk1MCD7SpSE\nkze4Dbo+rdOVFb/vB7g80pT8EagFZ8jpvzWQyE6HaQKBgQDEWhYHkXVffwEle9lo\nmanlFAkR/OYw99oglWhkAUWsBonegxccdDkprpnoaeQxzFhr5vwdd/Bt4J1y5W48\nhJUF61AN7FJ1+3DfBZ7Lg9i/HmtoaQUebTFjJOU6V4FIP/LkWke4xKinmg2sr875\nL9aTkMyFEPLL4vXYp/AJxIaUjwKBgQC8EsxphJ6vSnkX5wrFRKEfrswwHb9+N9kx\n5UVeO8SRyt3PJ1lJqpqgIHcQh18HFtdbSwgLZOYZilkyfDIoVNx7UJyb59vFTKdO\n/epGyT583MQk8Yoy0bdQEPgkTWk2yKjhW7CJcTLDpd2/GNf7r5mHsk1Qwi5XaxKu\nmeHX6KICqQKBgDVFC3z6JZHG7xSwSQdryP/xM5TBu+HFHFSCtFONVM2a6ISJpBeA\nIJICYJcBQ3uPKN39SKDmDUCCE7U8MXARuCxm7s0YNDb2BGU9LRuhpYgURKeK9myO\nyztOozH004o6bzcslxC1qdvum48iE1DffaODQTlIo9ZUuMYSqbi8rJZZAoGALwpk\npl/NcPqnnxrizsSDqHEIEWDfbKp7YMd/ujooyG59XDrzUkGhuztjjHbPhe5onyT9\nNhxekTTRapc11HClVRKsmTI8/fRWRKOt3VaokoKFbNgdQOjDePtFlY7nKhS2aOeO\nGFJ/5/+snwePvhwFwrMOM4zeGm9llNZYbrB5FUECgYEAo/VqIOKag9wwMhw7CiYv\nSx2xtRf4KJT9cEtNYm3DBLZrJsUNKdIH8MujHTZ83ISybN0j9OkcA+5jEsFGGcnt\niKQ2wVPcSEm74ujx+RjOtElrTfYaUf1da/eqIH+cCrLfGA4qdglt7jGDKYSJ/nlC\n3hqreqJE75MQnvGOOr3Eoh4=\n-----END PRIVATE KEY-----\n",
+  "client_email": "firebase-adminsdk-xts0z@facilitor-165209.iam.gserviceaccount.com",
+  "client_id": "106239533568553355908",
+  "auth_uri": "https://accounts.google.com/o/oauth2/auth",
+  "token_uri": "https://oauth2.googleapis.com/token",
+  "auth_provider_x509_cert_url": "https://www.googleapis.com/oauth2/v1/certs",
+  "client_x509_cert_url": "https://www.googleapis.com/robot/v1/metadata/x509/firebase-adminsdk-xts0z%40facilitor-165209.iam.gserviceaccount.com",
+  "universe_domain": "googleapis.com"
+}

FCLT.NMK

@@ -3,49 +3,49 @@
 ##
 ##    Project: FACILITOR
 ##
-##             (c) 1996-2019 Aareon Nederland B.V.
+##             (c) 1996-2022 Aareon Nederland B.V.
 ##
 ##   Auteur:    Ir. P.G. Feij
 ##   $Revision$
 ##   $Id$
 ##
-##    Beschrijving:
-##
-##      Makefile for SQL-DDL scripts for Oracle
+##      Makefile for SQL-DDL scripts for Oracle/Facilitor
 ##          Generates some scripts like FILE.SQL and FILE_.SQL
 ##          where FILE is the (wrapped) runtime version
 ##          and FILE_ is the unwrapped version to be archived
 ##
+##          Create intial scripts as well as the latest upgrade
 ##
 ###############################################################################
-##    REQUIRES: (in searchpath)
+##    REQUIRES:
 ##
 ##        NMAKE.EXE (requires NMAKE.EXE)
 ##             Microsoft (R) Program Maintainance Utility Version 1.11
 ##        CL.EXE
 ##             Microsoft (R) C Optimizing Compiler Version 6.00A
 ##             -for precompiling only-
-##        WRAP.EXE (from 10.2.x or better) for Oracle
+##        WRAP.EXE (12.1.0.2.0 or better) from Oracle
+##             needs to be available in searchpath (by Oracle Client Installer)
 ##
 ##        SED.EXE
 ##             GNU sed version 4.2
 ##             Copyright (C) 2003 Free Software Foundation, Inc.
 ##
-##        All to be found in ..\MAKTOOLS
+##        Some of these to be found in ..\MAKTOOLS
 ##
 ##    Uses (external) defines: None
 ##
 ##    Note: If new modules are added, all source have to be mentioned separately,
-##          which is quite obvious from the current state of this file..
+##          which is quite obvious from the existing usage in this file..
 ##
-##    Note: For each new schema version the from and to version must be
+##    Note: For each new schema version (release) the from and to version must be
 ##          mentioned explicitly, which is a pity but it makes sense too
 ##
 ###############################################################################
 ##
 ##    Steps performed are:
 ##          All files are preprocessed using intermediate temp files
-
+##          and then combined into final scripts.
 
 #############
 ##
@@ -60,17 +60,15 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 ## New style using schemanumbers
 ##
-CURRENTVERSION=39
-NEXTVERSION=40g
-FILEVERSION=
-NEXTCAREVERSION=37
+CURRENTVERSION=49
+NEXTVERSION=50
+FILEVERSION=a
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)
 
 UPROOT=$(PROJSRC)\_UP
 SRCUPDATE=$(UPROOT)\$(CURRENTUPDATE)
 SRCRECREA=$(UPROOT)\recreate
-CARERECREA=$(UPROOT)\recare
 ##
 ## PATH DEFINES
 ##
@@ -86,7 +84,8 @@ EXE=$(PROJEXE)
 ### TOOL DEFINES (gets info from OS-environment)  ###
 
 PRECOMP=$(MAKTOOLS)\CL
-WRAP1=$(MAKTOOLS)\WRAP.EXE
+## WRAP1=$(MAKTOOLS)\WRAP.EXE
+WRAP1=WRAP.EXE
 PRECOMP_OPTIONS=/EP /D_VER=$(CURRENTUPDATE)$(FILEVERSION) /D_DBV=$(NEXTVERSION)$(FILEVERSION)
 CLEANUP1=$(MAKTOOLS)\sedclean.bat
 
@@ -99,11 +98,9 @@ CLEANUP1=$(MAKTOOLS)\sedclean.bat
 ##
 ## RESULTS
 ##
-all:    $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL \
+all:    $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL \
         $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL \
-        $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL \
-        $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL \
-        $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL
+        $(EXE)\$(NEXTROOT)\$(CURRENTUPDATE)$(FILEVERSION).SQL
 
 ##
 ## DEPENDENCIES AND ACTIONS
@@ -128,6 +125,7 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\aut\aut_seq.src   \
       $(MSRC)\aut\aut_tab.src   \
       $(MSRC)\aut\aut_tri.src   \
+      $(MSRC)\aut\aut_ini.src   \
       $(MSRC)\bes\bes_ind.src   \
       $(MSRC)\bes\bes_ini.src   \
       $(MSRC)\bes\bes_pac.src   \
@@ -174,6 +172,14 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\ctr\ctr_tab.src   \
       $(MSRC)\ctr\ctr_tri.src   \
       $(MSRC)\ctr\ctr_vie.src   \
+      $(MSRC)\ctr\ctr_lcl.src   \
+      $(MSRC)\exc\exc_ind.src   \
+      $(MSRC)\exc\exc_seq.src   \
+      $(MSRC)\exc\exc_tri.src   \
+      $(MSRC)\exc\exc_tab.src   \
+      $(MSRC)\exc\exc_seq.src   \
+      $(MSRC)\exc\exc_pac.src   \
+      $(MSRC)\exc\exc_ini.src   \
       $(MSRC)\fac\fac_ind.src   \
       $(MSRC)\fac\fac_ini.src   \
       $(MSRC)\fac\fac_lcl.src   \
@@ -186,10 +192,22 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
       $(MSRC)\fac\fac_pacf.src  \
       $(MSRC)\fac\fac_pacl.src  \
       $(MSRC)\fac\fac_pacflex.src  \
+      $(MSRC)\fac\fac_pacdel.src  \
+      $(MSRC)\fac\fac_pactsk.src  \
       $(MSRC)\fac\fac_seq.src   \
       $(MSRC)\fac\fac_tab.src   \
       $(MSRC)\fac\fac_tri.src   \
       $(MSRC)\fac\fac_vie.src   \
+      $(MSRC)\fac\fac_vieexp.src \
+      $(MSRC)\ini\ini_ind.src   \
+      $(MSRC)\ini\ini_ini.src   \
+      $(MSRC)\ini\ini_pac.src   \
+      $(MSRC)\ini\ini_seq.src   \
+      $(MSRC)\ini\ini_tab.src   \
+      $(MSRC)\ini\ini_tri.src   \
+      $(MSRC)\ini\fmis\fmis_ini.sql   \
+      $(MSRC)\ini\itsm\itsm_ini.sql   \
+      $(MSRC)\ini\plat\plat_ini.sql   \
       $(MSRC)\ins\ins_ind.src   \
       $(MSRC)\ins\ins_ini.src   \
       $(MSRC)\ins\ins_lcl.src   \
@@ -268,8 +286,8 @@ $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL:   \
  $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\fclt.src>$(TEMP)\$(*B)_.sql
  $(CLEANUP1) $(TEMP)\$(*B)_.sql
  COPY $(TEMP)\$(*B)_.sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION)_.SQL
-## $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
-## COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL
+ $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
+ COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).SQL
 
 $(MSRC)\fac\_fac_lclmdl.src: \
     $(MSRC)\fac\fac_lclmdl.csv
@@ -299,6 +317,8 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
       $(MAK)\fclt.nmk    \
       $(MSRC)\fclt.src   \
       $(MSRC)\comsql.h   \
+      $(MSRC)\fac\fac_lcl.src   \
+      $(MSRC)\fac\fac_lclhints.src \
       $(EXE)\$(NEXTROOT)\FCLT$(NEXTVERSION)$(FILEVERSION).sql
  @IF NOT EXIST $(EXE)\$(NEXTROOT)\NUL mkdir $(EXE)\$(NEXTROOT)
  $(PRECOMP) $(PRECOMP_OPTIONS) $(SRCRECREA).src>$(TEMP)\$(*B)_.sql
@@ -307,39 +327,4 @@ $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL: \
  $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
  COPY $(TEMP)\$(*B).sql $(EXE)\$(NEXTROOT)\RECRE$(NEXTVERSION)$(FILEVERSION).SQL
 
-
-##########################################################################
-####
-####    FACILITOR CARE-WEBB EXTENSION
-####
-##########################################################################
-$(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL:   \
-      $(MAK)\fclt.nmk            \
-      $(MSRC)\modules.h          \
-      $(MSRC)\care.src           \
-      $(MSRC)\care\care_tab.src  \
-      $(MSRC)\care\care_ind.src  \
-      $(MSRC)\care\care_vie.src  \
-      $(MSRC)\care\care_pac.src  \
-      $(MSRC)\care\care_ini.src
- @IF NOT EXIST $(EXE)\CARE\NUL mkdir $(EXE)\CARE
- $(PRECOMP) $(PRECOMP_OPTIONS) $(MSRC)\care.src>$(TEMP)\$(*B)_.sql
- $(CLEANUP1) $(TEMP)\$(*B)_.sql
- COPY $(TEMP)\$(*B)_.sql $(EXE)\CARE\CARE$(NEXTCAREVERSION)_.SQL
- $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
- COPY $(TEMP)\$(*B).sql $(EXE)\CARE\CARE$(NEXTCAREVERSION).SQL
-
-$(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL: \
-      $(CARERECREA).src  \
-      $(MAK)\fclt.nmk    \
-      $(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>$(TEMP)\$(*B)_.sql
- $(CLEANUP1) $(TEMP)\$(*B)_.sql
- COPY $(TEMP)\$(*B)_.sql $(EXE)\CARE\RECAR$(NEXTCAREVERSION)_.SQL
- $(WRAP1) iname=$(TEMP)\$(*B)_.sql oname=$(TEMP)\$(*B).sql
- COPY $(TEMP)\$(*B).sql $(EXE)\CARE\RECAR$(NEXTCAREVERSION).SQL
-
 ## END-OF-FILE

FCLT.SRC

@@ -22,6 +22,7 @@ spool &fcltlogfile
 WHENEVER SQLERROR EXIT;
 DECLARE
     tekst VARCHAR2 (1000);
+    n_object   NUMBER (10);
 BEGIN
     CASE ASCII('<27>')
         WHEN 191 THEN tekst :='WE8ISO8859P1';
@@ -30,14 +31,25 @@ BEGIN
     END CASE;
     IF tekst <> 'WE8MSWIN1252' THEN
         tekst := '=================================================================' || CHR(10)
-              || 'Foute clientside NLS_LANG ['|| TO_CHAR(ASCII('<27>')) ||'] voor deze Facilitor upgrade.' || CHR(10)
+              || 'Foute clientside NLS_LANG ['|| TO_CHAR(ASCII('<27>')) ||'] voor dit Facilitor script.' || CHR(10)
               || 'WE8MSWIN1252 is nodig, ik vermoed '|| tekst || CHR(10)
               || 'Geef bijvoorbeeld in Windows voordat SQL*Plus opstart:' || CHR(10)
               || 'SET NLS_LANG=.WE8MSWIN1252' || CHR(10)
-              || 'Het upgrade script wordt nu afgebroken!' || CHR(10)
+              || 'Het script wordt nu afgebroken!' || CHR(10)
               || '=================================================================' || CHR(10);
         RAISE_APPLICATION_ERROR(-20000, 'OR'||'A-' || CHR(10) || tekst);
     END IF;
+
+    -- Negeer MLD_T_UITVOERTIJD die we nogal eens 'precreated' hebben
+    SELECT COUNT (*)
+      INTO n_object
+      FROM USER_OBJECTS
+     WHERE object_type <> 'TYPE';
+    IF (n_object > 0)
+    THEN
+        RAISE_APPLICATION_ERROR (-20000, 'OR' || 'A-' || 'Schema ' || USER || ' must be empty before creating database');
+    END IF;
+
     IF USER = 'SYS' OR USER = 'SYSTEM' THEN
         RAISE_APPLICATION_ERROR(-20000, 'Cannot create Facilitor database on user ' || USER);
     END IF;
@@ -47,10 +59,10 @@ WHENEVER SQLERROR CONTINUE;
 
 PROMPT [&fcltlogfile]
 PROMPT
-PROMPT Copyright 1996-2021 Aareon Nederland B.V. ALL RIGHTS RESERVED.
+PROMPT Copyright 1996-2025 Aareon Nederland B.V. All rights reserved.
 PROMPT
 PROMPT This is the generated list-file of EVALCONCAT(FCLT,_DBV).sql which was used
-PROMPT to create the FACILITOR(r) EVALCONCAT(DB,_DBV) schema in Oracle
+PROMPT to create the Facilitor(r) EVALCONCAT(DB,_DBV) schema in Oracle
 PROMPT
 SELECT 'Current os_user: ' || SYS_CONTEXT( 'userenv', 'os_user' ) FROM DUAL;
 PROMPT
@@ -87,6 +99,8 @@ SET ECHO ON
 #include "ctr\ctr_tab.src"
 #include "aut\aut_tab.src"
 #include "cnd\cnd_tab.src"
+#include "exc\exc_tab.src"
+#include "ini\ini_tab.src"
 
 /* SEQUENCES */
 #include "fac\fac_seq.src"
@@ -108,6 +122,8 @@ SET ECHO ON
 #include "kpi\kpi_seq.src"
 #include "ctr\ctr_seq.src"
 #include "aut\aut_seq.src"
+#include "exc\exc_seq.src"
+#include "ini\ini_seq.src"
 
 /* INDICES */
 #include "fac\fac_ind.src"
@@ -129,6 +145,8 @@ SET ECHO ON
 #include "kpi\kpi_ind.src"
 #include "ctr\ctr_ind.src"
 #include "aut\aut_ind.src"
+#include "exc\exc_ind.src"
+#include "ini\ini_ind.src"
 
 /* VIEWS, PACKAGES, TRIGGERS and LOCALES */
 #include "_up/recreate.inc"
@@ -152,6 +170,9 @@ SET ECHO ON
 #include "msg\msg_ini.src"
 #include "kpi\kpi_ini.src"
 #include "ctr\ctr_ini.src"
+#include "aut\aut_ini.src"
+#include "exc\exc_ini.src"
+#include "ini\ini_ini.src"
 
 COMMIT;
 
@@ -183,5 +204,5 @@ SELECT 'Schema FACILITOR@' || USER || ' is now ' || fac.getdbversion() FROM DUAL
 PROMPT
 PROMPT Your schema initialisation is ready. Please check the logfile for errors.
 PROMPT If in doubt please contact: FACILITOR Helpdesk +31 53 4800 710
-PROMPT Copyright (c) 1996-2021 Aareon Nederland B.V. All rights reserved.
+PROMPT Copyright (c) 1996-2025 Aareon Nederland B.V. All rights reserved.
 SPOOL OFF

FIN/FIN_IND.SRC

@@ -8,10 +8,13 @@ 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_factuur5 ON fin_factuur(prs_perslid_key_user);
+CREATE INDEX fin_i_fin_factuur6 ON fin_factuur(prs_perslid_key_goedkeur);
 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);
+CREATE INDEX fin_i_fin_kenmerk1 ON fin_kenmerk(fin_kenmerk_code);
 
 REGISTERONCE('$Id$')
 

FIN/FIN_PAC.SRC

@@ -544,12 +544,13 @@ AS
                DBMS_OUTPUT.put_line ('Totaal gefactureerd periode: ' || totaaltermijngefactureerd);
             END IF;
 
-            IF totaalgefactureerd <=
-                  contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
-               AND fin.tolerantiematch (discipline,
-                                        ftype,
-                                        totaaltermijngefactureerd,
-                                        COALESCE (factuurschemabedrag, contracttermijnkosten)) = 1
+            IF     (   totaalgefactureerd <=
+                        contractkosten + fac.safe_to_number (fac.getsetting ('cnt_factuur_totaalmarge'))
+                     OR contractkosten IS NULL)
+                  AND fin.tolerantiematch (discipline,
+                                           ftype,
+                                           totaaltermijngefactureerd,
+                                           COALESCE (factuurschemabedrag, contracttermijnkosten)) = 1
             THEN
                retval := 1;
             ELSE
@@ -563,7 +564,7 @@ AS
             -- controleer op basis van mld_typeopdr_factuur
             BEGIN
                SELECT o.mld_opdr_kosten,
-                      sm.mld_ins_discipline_key,
+                      o.mld_opdr_discipline_key,
                       top.mld_typeopdr_factuur,
                       o.mld_statusopdr_key
                  INTO opdrachtkosten,
@@ -572,10 +573,8 @@ AS
                       opdrstatus
                  FROM mld_opdr o,
                       mld_melding m,
-                      mld_typeopdr top,
-                      mld_stdmelding sm
+                      mld_typeopdr top
                 WHERE     o.mld_melding_key = m.mld_melding_key
-                      AND m.mld_stdmelding_key = sm.mld_stdmelding_key
                       AND o.mld_typeopdr_key = top.mld_typeopdr_key
                       --AND top.mld_typeopdr_uren NOT IN (3, 4, 5)     -- bij interne uren geen facturen
                       AND top.mld_typeopdr_factuur <> 0                -- dan willen we ook geen factuur
@@ -605,7 +604,7 @@ AS
                    mld_opdr o,
                    mld_stdmelding stdm,
                    mld_melding m
-             WHERE     md.ins_discipline_key = stdm.mld_ins_discipline_key
+             WHERE     md.ins_discipline_key = o.mld_opdr_discipline_key
                    AND o.mld_melding_key = m.mld_melding_key
                    AND m.mld_stdmelding_key = stdm.mld_stdmelding_key
                    AND mld_opdr_key = o_key;
@@ -746,12 +745,9 @@ AS
               INTO   factuurappr
               FROM   mld_disc_params p
              WHERE   p.mld_ins_discipline_key =
-                        (SELECT   sm.mld_ins_discipline_key
-                           FROM   mld_opdr o, mld_melding m, mld_typeopdr top, mld_stdmelding sm
-                          WHERE       o.mld_melding_key = m.mld_melding_key
-                                  AND m.mld_stdmelding_key = sm.mld_stdmelding_key
-                                  AND o.mld_typeopdr_key = top.mld_typeopdr_key
-                                  AND mld_opdr_key = o_key);
+                        (SELECT   o.mld_opdr_discipline_key
+                           FROM   mld_opdr o
+                          WHERE   mld_opdr_key = o_key);
          ELSE
             factuurappr := 0;
       END CASE;

FIN/FIN_TAB.SRC

@@ -96,6 +96,9 @@ CREATE_TABLE(fin_factuur,0)
 , bes_bestelopdr_key
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur3 REFERENCES bes_bestelopdr(bes_bestelopdr_key)
+, bes_bestellevr_key
+    NUMBER(10)
+    CONSTRAINT fin_r_fin_factuur9 REFERENCES bes_bestellevr(bes_bestellevr_key)
 , prs_perslid_key_user
     NUMBER(10)
     CONSTRAINT fin_r_fin_factuur4 REFERENCES prs_perslid(prs_perslid_key)
@@ -116,6 +119,8 @@ CREATE_TABLE(fin_factuur,0)
     CONSTRAINT fin_r_fin_factuur7 REFERENCES prs_kostensoort(prs_kostensoort_key)
 , fin_factuur_opmerking
     VARCHAR2(250)
+, fin_factuur_opmerking_afw
+    VARCHAR2(4000)
 , fin_factuur_statuses_key
     NUMBER(10)
     CONSTRAINT fin_c_fin_status1 CHECK(fin_factuur_statuses_key IN (1,2,3,5,6,7))
@@ -189,6 +194,8 @@ CREATE_TABLE(fin_kenmerk,0)
         VARCHAR2(50)
     ,fin_kenmerk_upper
         VARCHAR2(50)
+    ,fin_kenmerk_code
+        VARCHAR2(60)
     ,fin_kenmerk_type  -- Factuur of factuurRegel
       VARCHAR2(1)
       CONSTRAINT fin_c_fin_kenmerk_type CHECK (fin_kenmerk_type is not null and (fin_kenmerk_type IN( 'F', 'R')))
@@ -202,11 +209,13 @@ 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','T','R','X','L','Q','F','M','E','S','l','B','V'))
     ,fin_kenmerk_systeem
         NUMBER(2)
     ,fin_kenmerk_toonbaar
         NUMBER(1)
+    ,fin_kenmerk_inlijst
+        NUMBER(1)
+        DEFAULT 0 NOT NULL
     ,fin_kenmerk_uniek
         NUMBER(1)
     ,fin_kenmerk_regexp
@@ -234,6 +243,9 @@ CREATE_TABLE(fin_kenmerk,0)
     ,fin_kenmerk_verwijder
         DATE
         DEFAULT NULLDATUM
+    ,fac_functie_key
+        NUMBER(10)
+        CONSTRAINT fac_r_fin_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
 );
 
 CREATE_TABLE(fin_kenmerkfactuur,0)

FIN/FIN_TRI.SRC

@@ -3,8 +3,8 @@
  * $Id$
  */
 
-CREATE_TRIGGER(fin_t_fin_factuur_b_iu)
-BEFORE INSERT OR UPDATE ON fin_factuur
+CREATE_TRIGGER(fin_t_fin_factuur_b_i)
+BEFORE INSERT ON fin_factuur
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fin_factuur_key, fin_s_fin_factuur_key);
@@ -13,8 +13,8 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(fin_t_fin_factuurregel_b_iu)
-BEFORE INSERT OR UPDATE ON fin_factuurregel
+CREATE_TRIGGER(fin_t_fin_factuurregel_b_i)
+BEFORE INSERT ON fin_factuurregel
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fin_factuurregel_key, fin_s_fin_factuurregel_key);
@@ -65,7 +65,7 @@ BEGIN
             WHERE  fin_kenmerk_key = :new.fin_kenmerk_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
-            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+            THEN raise_application_error(-20000, 'INS_R_INS_KENMERK_KEY1');
          END;
 
          /* Kijk welk KenmerkType gebruikt wordt.
@@ -81,10 +81,10 @@ BEGIN
             */
             IF LENGTH(KenmerkWaarde) > KenmerkLengte
             THEN
-               APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
+               APPLICATION_ERROR_GOTO(-20004, 'fin_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
-         ELSIF KenmerkType IN ('N', 'B')
+         ELSIF KenmerkType = 'N'
          /*
          ** Number
          */
@@ -109,7 +109,7 @@ BEGIN
                THEN FormatMask := REPLACE(FormatMask, '9', '#');
                     FormatMask := REPLACE(FormatMask, '0', '#');
                     FormatMask := REPLACE(FormatMask, 'D', '.');
-                    RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                    APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||','
                                                               || FormatMask);
             END;
             /*
@@ -131,7 +131,7 @@ BEGIN
                   FormatMask := REPLACE(FormatMask, '9', '#');
                   FormatMask := REPLACE(FormatMask, '0', '#');
                   FormatMask := REPLACE(FormatMask, 'D', '.');
-                  APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                  APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||','
                                                       || FormatMask);
                END IF;
             END IF;
@@ -200,7 +200,7 @@ BEGIN
             WHERE  fin_kenmerk_key = :new.fin_kenmerk_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
-            THEN APPLICATION_ERROR_GOTO(-20000,'INS_R_INS_KENMERK_KEY1');
+            THEN raise_application_error(-20000, 'INS_R_INS_KENMERK_KEY1');
          END;
 
          /* Kijk welk KenmerkType gebruikt wordt.
@@ -216,7 +216,7 @@ BEGIN
             */
             IF LENGTH(KenmerkWaarde) > KenmerkLengte
             THEN
-               APPLICATION_ERROR(-20004, 'fin_M232,'|| KenmerkOmschr ||','
+               APPLICATION_ERROR_GOTO(-20004, 'fin_M232,'|| KenmerkOmschr ||','
                                                     || TO_CHAR(KenmerkLengte));
             END IF;
          ELSIF KenmerkType = 'N'
@@ -244,7 +244,7 @@ BEGIN
                THEN FormatMask := REPLACE(FormatMask, '9', '#');
                     FormatMask := REPLACE(FormatMask, '0', '#');
                     FormatMask := REPLACE(FormatMask, 'D', '.');
-                    RAISE_APPLICATION_ERROR(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                    APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||','
                                                               || FormatMask);
             END;
             /*
@@ -266,7 +266,7 @@ BEGIN
                   FormatMask := REPLACE(FormatMask, '9', '#');
                   FormatMask := REPLACE(FormatMask, '0', '#');
                   FormatMask := REPLACE(FormatMask, 'D', '.');
-                  APPLICATION_ERROR_GOTO(-20004,'fin_M233,'|| KenmerkOmschr ||','
+                  APPLICATION_ERROR_GOTO(-20004, 'fin_M233,'|| KenmerkOmschr ||','
                                                       || FormatMask);
                END IF;
             END IF;
@@ -296,18 +296,20 @@ BEFORE INSERT OR UPDATE ON fin_kenmerk
 FOR EACH ROW
 BEGIN
    UPDATE_PRIMARY_KEY(fin_kenmerk_key, fin_s_fin_kenmerk_key);
-   UPDATE_UPPER(fin_kenmerk_omschrijving, fin_kenmerk_upper,fin_kenmerk);
+   UPDATE_UPPER(fin_kenmerk_omschrijving, fin_kenmerk_upper, fin_kenmerk);
+   UPDATE_UPPER(fin_kenmerk_code, fin_kenmerk_code, fin_kenmerk);
+
    IF (:new.fin_kenmerk_verwijder IS NOT NULL AND :old.fin_kenmerk_verwijder IS NULL AND
        :new.fin_kenmerk_systeem = 1)
    THEN
-      APPLICATION_ERROR(-20003, 'fin_M238');
+      raise_application_error(-20000, 'fin_M238');
    END IF;
-   IF :new.fin_kenmerk_kenmerktype IN ('C','N', 'B') AND :new.fin_kenmerk_lengte IS NULL
+   IF :new.fin_kenmerk_kenmerktype IN ('C','N') AND :new.fin_kenmerk_lengte IS NULL
    THEN
-      APPLICATION_ERROR(-20000, 'fin_C_fin_KENMERK_LENGTE');
+      raise_application_error(-20000, 'fin_C_fin_KENMERK_LENGTE');
    END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-   IF :new.fin_kenmerk_kenmerktype IN ('N', 'B') AND :new.fin_kenmerk_lengte > 20
+   IF :new.fin_kenmerk_kenmerktype = 'N' AND :new.fin_kenmerk_lengte > 20
    THEN
       :new.fin_kenmerk_lengte := 20;
    END IF;
@@ -328,12 +330,12 @@ BEGIN
                 WHERE fin_kenmerk_key = :old.fin_kenmerk_key
                   AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) < :new.fin_kenmerk_nmin
                   AND rownum=1);
-               APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN');
+               raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MIN');
        EXCEPTION
          WHEN NO_DATA_FOUND
            THEN NULL;
          WHEN TOO_MANY_ROWS THEN
-               APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MIN');
+               raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MIN');
        END;
      END IF;
      IF :old.fin_kenmerk_nmax <> :new.fin_kenmerk_nmax OR
@@ -351,13 +353,13 @@ BEGIN
                 WHERE fin_kenmerk_key = :old.fin_kenmerk_key
                   AND FAC.SAFE_TO_NUMBER(fin_kenmerkfactuur_waarde) > :new.fin_kenmerk_nmax
                   AND rownum=1);
-               APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX');
+               raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MAX');
        EXCEPTION
          WHEN NO_DATA_FOUND
            THEN NULL;
          WHEN TOO_MANY_ROWS THEN
            BEGIN
-               APPLICATION_ERROR(-20000, 'FIN_C_FIN_KENMERK_MAX');
+               raise_application_error(-20000, 'FIN_C_FIN_KENMERK_MAX');
            END;
        END;
      END IF;

FIN/FIN_VIE.SRC

@@ -50,9 +50,6 @@ AS
         AND   f.fin_factuur_verwijder IS NULL
    GROUP BY   fin.getfiatteur(f.fin_factuur_key);
 
--- 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)
 (
@@ -80,108 +77,101 @@ CREATE_VIEW(fin_v_udr_factuur, 1)
    bedrag_excl_btw,
    status,
    opmerking,
-   budgethouder
+   budgethouder,
+   budgethouder_key
 )
 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 = fin.getfiatteur(f.fin_factuur_key))
-             budgethouder
-     FROM fin_factuur 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     fin.getfactuurkostenplaats(f.fin_factuur_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;
+WITH
+    fiatteur_data
+    AS
+        (SELECT f.fin_factuur_key, fin.getfiatteur (f.fin_factuur_key) AS budgethouder_key
+           FROM fin_factuur f)
+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 p.prs_perslid_key = fd.budgethouder_key)
+           AS budgethouder
+     , fd.budgethouder_key
+  FROM fin_factuur           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
+     , fiatteur_data         fd
+ WHERE     fin.getfactuurkostenplaats (f.fin_factuur_key) = k.prs_kostenplaats_key(+)
+       AND f.prs_kostensoort_key = ks.prs_kostensoort_key(+)
+       AND f.fin_factuur_key = fd.fin_factuur_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.

INI/FMIS/fmis_ini.sql

@@ -0,0 +1,752 @@
+--
+-- $Id$
+--
+-- Script bevat initiele configuratie voor een standaard FM inrichting van Facilitor
+-- Voor FM-implementaties zal dit Het Startpunt zijn.
+--
+--
+-- Verwachting is dat dit zo ongeveer het eerste is wat je altijd zult doen bij een FM-implementatie,
+-- niettemin doen we ons best -en zullen we dat moeten verifieren- om het zodanig opgezet te hebben
+-- dat het ook later nog kan worden uitgevoerd. Niet omdat dat waarschijnlijk is, maar omdat zo
+-- de meest robuuste code wordt gemaakt, die bestand is tegen een onverwachte situatie.
+--
+-- Het kan [alleen] uitgaan van alles wat standaard aanwezig is (uit fac_ini).
+--
+-- Moet in sync worden gehouden met de DB-versies, is daarom technisch onderdeel van de Facilitor-core
+-- Inhoudelijk zou er een Implementatie-CAB mogen zijn (vertegenwoordigers van consultancy, support en evt core-CAB)
+-- die de verantwoordelijkheid over de content heeft.
+--
+-- Ook goed om te weten: dit is een eenmalig (once) script dat een momentopname genereert als startpunt van
+-- een verdere implementatie. Er komen GEEN upgrades voor deze initialisatie met nieuwere versies of
+-- aanvullingen. Na deze aftrap mag je het verder helemaal zelf doen.
+--
+-- De basisinrichting wordt per module van onder naar boven opgebouwd, en eindigt met een zeer bescheiden
+-- aantal appetizers: fictieve gegevens die e.e.a. voor de eerste confrontatie minder abstract maken.
+--
+--
+-- Let op: deze code wordt letterlijk geinclude als body van procedure ini.fmis_ini, het is geen SQL*Plus!
+--
+-- Er wordt gebruik gemaakt van importfuncties, die COMMIT's doen. Deze hele procedure moet dus foutloos
+-- lopen want het is alles of niks.
+--
+
+-- BASISCONFIG PER MODULE
+
+-- 1. ALG
+-- Gebouwfuncties en ruimtefuncties (afgeleid uit XD; denk dat het beter kan maar elke indeling kent zijn POV)
+-- Bv Bouwbesluit, NEN. De Facilitaire NEN lijkt (!) dat niet te bieden.
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Fietsenstalling', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Gemeenschapshuis', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Kantoorgebouw', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Kinderopvang', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Loods', 1);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Opslag/Magazijn', 1);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Parkeergebouw', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Portocabin', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Projectlocatie', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Schoolgebouw', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Sportcentrum', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Stationsgebouw', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Winkel', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Wijkcentrum', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Werkplaats', NULL);
+INSERT INTO alg_srtgebouw(alg_srtgebouw_omschrijving, alg_srtgebouw_passief) VALUES ('Woning', NULL);
+
+INSERT INTO alg_srtterreinsector(alg_srtterreinsec_omschrijving) VALUES ('Parkeerterrein');
+INSERT INTO alg_srtterreinsector(alg_srtterreinsec_omschrijving) VALUES ('Groenvoorziening');
+-- NEN2580
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Bijeenkomstruimte', NULL, 1);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Garage', NULL, 1);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Kantoorruimte', 1, 1);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Technische ruimte', NULL, NULL);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Opslag/Magazijn', NULL, 1);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Horizontale verkeersruimte', NULL, NULL);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Verticale verkeersruimte', NULL, NULL);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Sanitairruimte', NULL, NULL);
+INSERT INTO alg_srtruimte(alg_srtruimte_omschrijving, prs_bevat_werkplek, prs_verhuurbaar) VALUES ('Woonruimte', 1, 1);
+
+-- Het ligt voor de hand hier een bak flexkenmerken aan te maken die je voor FM nodig hebt
+-- Vloerafwerking: een eigen tabel met gangbare Vloerafwerkingen en een referentiekenmerk
+-- Glasoppervlak: een number, wellicht per type (separatieglas, buiten)
+
+fac.writelog ('INI.FMIS_INI','I', 'ALG completed', '');
+
+-- 2. INS
+-- Vakgroepen. Meervoud
+-- Leidraad voor onderscheid is: is het aannemelijk dat daar andere personen (backoffice, autorisaties) over gaan. Ook NLSfb.
+INSERT INTO ins_tab_discipline (ins_discipline_module, ins_discipline_code, ins_discipline_omschrijving, ins_discipline_min_level, ins_discipline_image)
+   SELECT 'INS', 'NLSFB00', 'FMIS-Bouwkundig Algemeen', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB04', 'FMIS-Bouwkundig Afwerkingen', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB05', 'FMIS-Bouwkundig Mechanische installaties', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB06', 'FMIS-Bouwkundig Elektrische installaties', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB07', 'FMIS-Bouwkundig Vaste inrichtingen', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB08', 'FMIS-Bouwkundig Losse inventaris', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'NLSFB09', 'FMIS-Bouwkundig Terrein', 1, '' FROM DUAL UNION ALL
+   SELECT 'INS', 'F020', 'FMIS-Automaten', 1, 'fa-slot-machine' FROM DUAL UNION ALL
+   SELECT 'INS', 'F030', 'FMIS-Werkplekken', 1, 'fa-chair-office' FROM DUAL UNION ALL
+   SELECT 'INS', 'F040', 'FMIS-Toegang/Beveiliging', 1, 'fa-universal-access' FROM DUAL UNION ALL
+   SELECT 'INS', 'F050', 'FMIS-Presentatiemiddelen', 1, 'fa-projector' FROM DUAL UNION ALL
+   SELECT 'INS', 'F060', 'FMIS-Vervoer', 1, 'fa-car-side' FROM DUAL UNION ALL
+   SELECT 'INS', 'I010', 'FMIS-Computers', 1, 'fa-computer' FROM DUAL UNION ALL
+   SELECT 'INS', 'I020', 'FMIS-Smartphones', 1, 'fa-mobile-android' FROM DUAL UNION ALL
+   SELECT 'INS', 'I030', 'FMIS-Sensoren', 1, 'fa-sensor-on' FROM DUAL UNION ALL
+   SELECT 'INS', 'P010', 'FMIS-Parkeren', 1, 'fa-parking' FROM DUAL;
+INSERT INTO ins_disc_params (ins_discipline_key) SELECT ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_module='INS' AND ins_discipline_key NOT IN (SELECT ins_discipline_key FROM ins_disc_params);
+
+-- Groepen TODO AANVULLEN of verbeteren. Meervoud.
+INSERT INTO ins_srtgroep (ins_srtgroep_omschrijving, ins_discipline_key)
+   SELECT 'Koffieautomaten', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F020' UNION ALL
+   SELECT 'Snoepautomaten', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F020' UNION ALL
+   SELECT 'Frisdrankautomaten', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F020' UNION ALL
+   SELECT 'Waterkoelers', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F020' UNION ALL
+   SELECT 'Bureau''s', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F030' UNION ALL
+   SELECT 'Tafels', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F030' UNION ALL
+   SELECT 'Stoelen', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F030' UNION ALL
+   SELECT 'Werkplekken', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'F030' UNION ALL
+   SELECT 'Desktops', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'I010' UNION ALL
+   SELECT 'Laptops', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'I010' UNION ALL
+   SELECT 'Tablets', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'I010' UNION ALL
+   SELECT 'Sensoren', ins_discipline_key FROM ins_tab_discipline WHERE ins_discipline_code = 'I030';
+
+-- Objectsoorten TODO AANVULLEN. Enkelvoud.
+INSERT INTO ins_srtdeel (ins_srtgroep_key, ins_srtdeel_code, ins_srtdeel_omschrijving, ins_srtdeel_image, ins_srtdeel_sensortype)
+   SELECT ins_srtgroep_key, 'KOF','Koffieautomaat', 'fa-mug-hot', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Koffieautomaten' UNION ALL
+   SELECT ins_srtgroep_key, 'SNP','Snoepautomaat', 'fa-lollipop', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Snoepautomaten' UNION ALL
+   SELECT ins_srtgroep_key, 'FRS','Frisdrankautomaat', 'fa-cup-straw-swoosh', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Frisdrankautomaten' UNION ALL
+   SELECT ins_srtgroep_key, 'WTK','Waterkoeler', 'fa-glass-water', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Waterkoelers' UNION ALL
+   SELECT ins_srtgroep_key, 'DSK','Desktop type 1', 'fa-desktop', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Desktops' UNION ALL
+   SELECT ins_srtgroep_key, 'BUR','Bureau 160x80', 'fa-lamp-desk', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Bureau''s' UNION ALL
+   SELECT ins_srtgroep_key, 'TAF','Vergadertafel', 'fa-users-line', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Tafels' UNION ALL
+   SELECT ins_srtgroep_key, 'BST','Bureaustoel', 'fa-chair-office ', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Stoelen' UNION ALL
+   SELECT ins_srtgroep_key, 'LPT','Laptop type 1', 'fa-laptop', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Laptops' UNION ALL
+   SELECT ins_srtgroep_key, 'LPT','Laptop type 2', 'fa-laptop', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Laptops' UNION ALL
+   SELECT ins_srtgroep_key, 'TAB','Tablet', 'fa-tablet', 0 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Tablets' UNION ALL
+   SELECT ins_srtgroep_key, 'SB','Bezettingssensor', 'fa-sensor', 1 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Sensoren' UNION ALL
+   SELECT ins_srtgroep_key, 'ST','Temperatuursensor', 'fa-temperature-half', 2 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Sensoren' UNION ALL
+   SELECT ins_srtgroep_key, 'SC','CO2-sensor', 'fa-sensor-cloud', 2 FROM ins_srtgroep WHERE ins_srtgroep_omschrijving = 'Sensoren';
+
+fac.writelog ('INI.FMIS_INI','I', 'INS completed', '');
+
+-- 3. MLD
+-- Importeren van een standaard meldingenstructuur (MLD), maakt alle bovenliggende niveaus zelf aan
+-- Dit mag inhoudelijk beter
+-- TODO minder exotische meldingen
+-- TODO meer variatie in de plaatjes
+-- TODO betere suggesties voor parameters als Behandelteam, planbaarheid
+INSERT INTO fac_imp_mld (ins_srtdiscipline_omschrijving, ins_srtdiscipline_prefix, ins_srtdiscipline_alg, ins_discipline_omschrijving, mld_stdmelding_hint, mld_stdmelding_omschrijving, mld_stdmelding_uitvoertijd)
+   SELECT 'FMIS-Aanvraag','A',1,'Afval','fa-recycle','Ophalen/verzamelen afval', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Afval','fa-recycle','Extra container', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Afval','fa-bin-recycle','Zwerfafval (verzamelen)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Automaten','fa-candy','Fris-/versnapering-automaat', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Automaten','fa-coffee-beans','Ingredi<EFBFBD>nten t.b.v. koffieautomaat', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Automaten','fa-jug-bottle','Waterflessen t.b.v. waterkoeler', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-medkit','BHV Herhalingstrainingen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-medkit','BHV middelen (AED/BHV rugzak-/hesje/megafoon) leveren', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-jug-bottle','Blusmiddelen (brandblusser/brandslanghaspel)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-medkit','EHBO-middelen bestellen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-medkit','Ontruimingsplan & -plattegrond (nieuw/wijzigen)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'BHV & Veiligheid','fa-bandage','Pleisterautomaten plaatsen/aanvullen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Bedrijfskeuken apparatuur','fa-cutlery','Bedrijfskeuken apparatuur', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Bedrijfskleding','fa-shirt','Bedrijfskleding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-flower-tulip','Bloemen bestellen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-eur','Huurauto', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-eur','Kantoorbenodigheden', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-eur','Onderhoud overige bedrijfsmiddelen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-eur','Repro en documentbeheer', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Benodigdheden & bedrijfsmiddelen','fa-eur','Vloeistoffen/gassen bestellen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Catering','fa-coffee','Catering', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Automatische deuren(dock-/rol-/schuif-/overhead)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Bouwkundig', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Brandblusser/brandhaspel', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Brandmeld- & ontruimingsinstallatie(BMC)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Inbraak-/alarminstallatie', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Keuring elektrische (hand) apparatuur (NEN3140)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Klimaatinstallatie (airco/koelunit)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Lift', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Schade Gebouwonderhoud', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Schilderwerkzaamheden', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Technische installaties', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gebouw- & installatieonderhoud','fa-cubes','Verlichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gereedschap, PBM en trappen','fa-wrench','Defect elektrische (hand) apparatuur (NEN3140)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gereedschap, PBM en trappen','fa-wrench','Desinfectiemiddel + handschoenen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gereedschap, PBM en trappen','fa-wrench','Keuring elektrische (hand) apparatuur (NEN3140)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Gereedschap, PBM en trappen','fa-wrench','Persoonlijke beschermingsmiddelen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Hijs- & hef-installaties','fa-industry','Keuring hijs- en hefmiddelen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Hijs- & hef-installaties','fa-industry','Keuring kleine hijsmiddelen, klimmateriaal en stellingen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Hijs- & hef-installaties','fa-industry','Kleine hijsmiddelen, klimmateriaal en stellingen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Audio visuele middelen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Bewegwijzering', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Binnenbeplanting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Meubilair & inrichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Meubilair leveren', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Sleutel leveren t.b.v. meubilair', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Meubilair & inrichting','fa-home','Vloerbedekking (nieuw/vervangen)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Ongedierte bestrijding','fa-bug','Ongediertebestrijding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Ongedierte bestrijding','fa-bug','Pest Control producten(lokaasbakjes, UV lamp, overige)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Ongedierte bestrijding','fa-bug','Verdelging en preventieve controle', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Post- & koeriersdiensten','fa-envelopes-bulk','Benodigheden & middelen dienstverlening post', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Post- & koeriersdiensten','fa-person-dolly','Koerierzendingen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Receptie & beveiliging','fa-user-police-tie','Extra inzet receptie', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Receptie & beveiliging','fa-address-card','Extra openings-/sluitronde', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Receptie & beveiliging','fa-address-card','Inzet Verkeersregelaar(s)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Receptie & beveiliging','fa-user-police','Inzet extra beveiliging', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Receptie & beveiliging','fa-shield-keyhole','Plaatsen/vervangen (elektronisch) slot/sleutel', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Schoonmaak','fa-eraser','Extra schoonmaak (verzoek)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Schoonmaak','fa-eraser','Gevelreiniging (extra)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Schoonmaak','fa-eraser','Glasbewassing (binnen/buiten)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Schoonmaak','fa-eraser','Sanitaire middelen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Elektrische oplaadpunten', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Gladheidsbestrijding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Groenonderhoud', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Hekwerken (onderhoud)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Overige aanvragen (toegangscontrole/hekwerken)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Terrein- & groenvoorziening', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Terreinverlichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Terrein- & groenvoorziening','fa-tree','Toegangspoorten & slagbomen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Verhuizing','fa-truck','Verhuismiddelen leveren', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Verhuizing','fa-truck','Verhuizing extern', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Aanvraag','A',1,'Verhuizing','fa-truck','Verhuizing intern', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Afval','fa-recycle','Klacht mbt Afval', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Automaten','fa-server','Klacht mbt automaten', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'BHV & Veiligheid','fa-medkit','Klacht mbt BHV & Veiligheid', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Bedrijfskeuken apparatuur','fa-cutlery','Bedrijfskeuken apparatuur', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Bedrijfskleding','fa-vest-patches','Klacht mbt Bedrijfskleding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Facilitaire dienstverlening','fa-id-badge','Klacht mbt facilitaire dienstverlening', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Gebouw- & installatieonderhoud','fa-cubes','Klacht mbt onderhoud', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Meubilair & inrichting','fa-home','Klacht mbt Meubilair & inrichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Ongedierte bestrijding','fa-bug','Klacht mbt Ongediertebestrijding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Koeriersdiensten','fa-truck-fast','Klacht mbt koeriersdiensten', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Receptie & beveiliging','fa-shield-check','Klacht mbt Receptie & beveiliging', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Schoonmaak','fa-eraser','Klacht mbt Schoonmaak', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Klacht','K',0,'Terrein- & groenvoorziening','fa-tree','Klacht mbt terrein- & groenvoorziening', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Afval','fa-recycle','Container is niet geleegd', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Automaten','fa-server','Fris-/versnapering-automaat', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Automaten','fa-server','Koffieautomaat', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Automaten','fa-server','Waterkoeler', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','AED werkt niet/rood lampje', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','Blusmiddelen (brandblusser/brandslanghaspel)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','Brandslaghaspel (kast)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','Keuring blusapparatuur', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','Legionellabeheer en bemonstering', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'BHV & Veiligheid','fa-medkit','Verzegeling blusapparatuur', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Bedrijfskeuken apparatuur','fa-cutlery','Bedrijfskeuken apparatuur', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Automatische deuren(dock-/rol-/schuif-/overhead)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Bouwkundig', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Bouwkundig (dak, kozijnen, wanden, glas, ruitbreuk, lekkage)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Brandblusser/brandhaspel', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Brandmeld- & ontruimingsinstallatie(BMC)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Dak- en gevelinstallaties', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Eigenaarsinstallaties (Eigenaar pand)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Elektrische installatie', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Hang- & sluitwerk(sloten, deurdranger, deurklink etc)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Inbraak-/alarminstallatie', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Klimaatinstallatie (airco/koelunit)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Liften', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Noodverlichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Riolering, leidingen & kanalen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Sanitair (toilet/urinoir, kraan, wasbak, spoelknop)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Schade Gebouwonderhoud', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Sprinkler installatie', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Technische installaties', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Verlichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Witgoed (wasmachines, koelkasten, drogers etc.)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Gebouw- & installatieonderhoud','fa-cubes','Zonwering (binnen/buiten)', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Hijs- & hef-installaties','fa-industry','Calamiteit Hijs- & hef-installaties', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Hijs- & hef-installaties','fa-industry','Hijs- & hef-installaties', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Hijs- & hef-installaties','fa-industry','Kleine hijsmiddelen, klimmateriaal en stellingen', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Ongedierte bestrijding','fa-bug','Ongediertebestrijding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Receptie & beveiliging','fa-address-card','Plaatsen/vervangen (electronisch) slot/sleutel', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Schoonmaak','fa-eraser','Sanitaire accessoires', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Schoonmaak','fa-eraser','Schoonmaak', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Bestrating', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Elektrische oplaadpunten', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Gladheidbestrijding', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Groenonderhoud', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Terreinverlichting', 5 FROM DUAL UNION ALL
+   SELECT 'FMIS-Storing','S',1,'Terrein- & groenvoorziening','fa-tree','Toegangscontrole/inbraakalarm systeem', 5 FROM DUAL;
+
+-- beetje lomp, wat vinden we?
+UPDATE fac_imp_mld SET mld_stdmelding_slabewaken = 0, mld_stdmelding_notfrontend = 0
+ WHERE ins_srtdiscipline_omschrijving <> 'FMIS-Melding';
+UPDATE fac_imp_mld SET mld_stdmelding_slabewaken = 1, mld_stdmelding_notfrontend = 1
+ WHERE ins_srtdiscipline_omschrijving = 'FMIS-Melding';
+UPDATE fac_imp_mld SET mld_stdmelding_groep = SUBSTR(ins_discipline_omschrijving, 1, 30)
+ WHERE ins_srtdiscipline_omschrijving like 'FMIS-%';
+
+BEGIN fac_update_mld(ini.getImportKey('MLD')); END;
+
+DELETE FROM fac_imp_mld;
+
+--UPDATE ins_srtdiscipline SET ins_srtdiscipline_kostenklant = 8 WHERE ins_srtdiscipline_omschrijving = 'FMIS-Klacht';
+--UPDATE fac_setting
+--   SET fac_setting_pvalue =
+--           (SELECT mld_stdmelding_key
+--              FROM mld_stdmelding
+--             WHERE mld_stdmelding_omschrijving = 'Ontvangen mail bericht')
+-- WHERE fac_setting_name = 'defaultstdmelding';
+--INSERT INTO fac_email_setting (fac_email_setting_user, fac_email_setting_frommode, fac_email_setting_action, fac_email_setting_attachpath)
+--   VALUES ('servicedesk', 0, 'FAC.processemail', '*flexfilespath');
+
+-- huh? O, de import ondersteunde de image niet, dus die ging via de hint
+UPDATE mld_stdmelding
+   SET mld_stdmelding_image = mld_stdmelding_hint,
+         mld_stdmelding_hint = NULL
+ WHERE mld_stdmelding_hint IS NOT NULL AND mld_stdmelding_image IS NULL;
+
+
+-- Voeg bijlage toe aan alle vakgroeptypen
+-- Als die als
+INSERT INTO mld_srtkenmerk (mld_srtkenmerk_omschrijving, mld_srtkenmerk_kenmerktype) VALUES ('Bijlagen', 'M');
+INSERT INTO mld_kenmerk (mld_srtkenmerk_key, mld_kenmerk_niveau, mld_kenmerk_volgnummer, mld_kenmerk_groep) SELECT mld_srtkenmerk_key, 'A', 100, 0
+       FROM mld_srtkenmerk
+      WHERE mld_srtkenmerk_omschrijving = 'Bijlagen' and mld_srtkenmerk_kenmerktype = 'M';
+
+fac.writelog ('INI.FMIS_INI','I', 'MLD completed', '');
+
+-- 4. RES
+
+-- Vraag is of we dit niet UIT de RES_INI moeten halen en hier moeten definieren.
+-- Antwoord is: Waarom?
+-- Daarom hier ter referentie, mogelijk wel aanvullen?
+--INSERT INTO RES_OPSTELLING (res_opstelling_key,res_opstelling_omschrijving) VALUES (1,'Standaard');
+--INSERT INTO res_srtactiviteit (res_srtactiviteit_key, res_srtactiviteit_omschrijving, res_srtactiviteit_soort) VALUES (1, 'Ruimte', 0);
+--INSERT INTO res_srtactiviteit (res_srtactiviteit_key, res_srtactiviteit_omschrijving, res_srtactiviteit_soort) VALUES (2, 'Voorzieningen', 1);
+--INSERT INTO res_activiteit (res_activiteit_omschrijving, res_srtactiviteit_key) VALUES ('Vergadering', 1);
+--INSERT INTO res_activiteit (res_activiteit_omschrijving, res_srtactiviteit_key) VALUES ('N.v.t.', 2);
+
+-- en dan nog wat meer, want we hoeven minder neutraal te zijn: Evenement, Hybride vergadering, ..
+INSERT INTO res_srtactiviteit (res_srtactiviteit_omschrijving, res_srtactiviteit_soort, res_srtactiviteit_prefix,
+            res_srtactiviteit_kpnverplicht, res_srtactiviteit_metomschr, res_srtactiviteit_metopmerk, res_srtactiviteit_metaantal)
+     VALUES ('Flexwerken', 1, 'WP', 2, 0, 0, 0);
+
+-- Activiteiten zijn er default al, catalogi dan, plus de combinaties
+INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module, ins_discipline_min_level) VALUES ('Vergaderruimte', 'RES', 3);
+INSERT INTO res_disc_params (res_ins_discipline_key) SELECT MAX (ins_discipline_key) FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Vergaderruimte';
+INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module, ins_discipline_min_level) VALUES ('Flexplekken', 'RES', 5);
+INSERT INTO res_disc_params (res_ins_discipline_key, res_disc_params_expire_dagen, res_disc_params_cancel_dagen)
+     SELECT MAX (ins_discipline_key), 0, 0 FROM ins_tab_discipline WHERE ins_discipline_omschrijving = 'Flexplekken';
+
+INSERT INTO res_activiteit (res_activiteit_omschrijving, res_srtactiviteit_key, res_activiteit_intervals)
+      SELECT 'Werkplekreservering', res_srtactiviteit_key,
+               '[{ "name": "Hele dag", "begin": "08:00", "end": "17:00"}, { "name": "Ochtend", "begin": "08:00", "end": "12:00"}, { "name": "Middag", "begin": "13:00", "end": "17:00"}]'
+         FROM res_srtactiviteit
+         WHERE res_srtactiviteit_omschrijving = 'Flexwerken';
+
+-- De catalogus om ruimten te reserveren moet nog wel aan de activiteit gekoppeld worden.
+INSERT INTO res_activiteitdiscipline (res_discipline_key, res_activiteit_key)
+     SELECT ins_discipline_key, res_activiteit_key
+       FROM res_activiteit ra, ins_tab_discipline id
+      WHERE res_activiteit_omschrijving = 'Vergadering' -- van de core
+        AND id.ins_discipline_omschrijving = 'Vergaderruimte';
+
+INSERT INTO res_activiteitdiscipline (res_discipline_key, res_activiteit_key)
+     SELECT ins_discipline_key, res_activiteit_key
+       FROM res_activiteit ra, ins_tab_discipline id
+      WHERE ra.res_activiteit_omschrijving = 'Werkplekreservering'
+        AND id.ins_discipline_omschrijving = 'Flexplekken';
+
+-- Voeg de artikelscope voor alle catering catalogi (min_level=2) toe voor alle locaties
+-- Als ik onbeperkt wil, is dit dan nodig?
+INSERT INTO res_srtartikel_onrgoed (alg_onrgoed_key, alg_onrgoed_niveau, res_discipline_key)
+     SELECT alg_locatie_key, 'L', ins_discipline_key
+       FROM res_discipline rd, alg_locatie l
+      WHERE ins_discipline_min_level = 2;
+
+fac.writelog ('INI.FMIS_INI','I', 'RES completed', '');
+
+-- 5. BEZ
+-- Zaken uit BEZ_INI hier overgenomen
+INSERT INTO bez_actie_groep (bez_actie_groep_omschrijving, bez_actie_groep_default) VALUES ('FMIS-Standaard', 1);
+INSERT INTO bez_actie (bez_actie_omschrijving, bez_actie_groep_key) (SELECT 'Onbekend'                 , bez_actie_groep_key FROM bez_actie_groep WHERE bez_actie_groep_omschrijving = 'FMIS-Standaard');
+INSERT INTO bez_actie (bez_actie_omschrijving, bez_actie_groep_key) (SELECT 'Ontvanger bellen'         , bez_actie_groep_key FROM bez_actie_groep WHERE bez_actie_groep_omschrijving = 'FMIS-Standaard');
+INSERT INTO bez_actie (bez_actie_omschrijving, bez_actie_groep_key) (SELECT 'Begeleiden naar ontvanger', bez_actie_groep_key FROM bez_actie_groep WHERE bez_actie_groep_omschrijving = 'FMIS-Standaard');
+INSERT INTO bez_actie (bez_actie_omschrijving, bez_actie_groep_key) (SELECT 'Verwijzen naar ontvanger' , bez_actie_groep_key FROM bez_actie_groep WHERE bez_actie_groep_omschrijving = 'FMIS-Standaard');
+INSERT INTO bez_actie (bez_actie_omschrijving, bez_actie_groep_key) (SELECT 'Op laten halen (bellen)'  , bez_actie_groep_key FROM bez_actie_groep WHERE bez_actie_groep_omschrijving = 'FMIS-Standaard');
+
+fac.writelog ('INI.FMIS_INI','I', 'BEZ completed', '');
+
+-- 6. CNT
+DECLARE
+   v_discipline_key ins_tab_discipline.ins_discipline_key%TYPE;
+   v_key cnt_srtkenmerk.cnt_srtkenmerk_key%TYPE;
+BEGIN
+   INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Onderhoudscontract', 'CNT')
+      RETURNING ins_discipline_key INTO v_discipline_key;
+   INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type) VALUES (v_discipline_key, 1);
+   INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Servicecontract', 'CNT')
+      RETURNING ins_discipline_key INTO v_discipline_key;
+   INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type) VALUES (v_discipline_key, 3);
+   INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Algemeen contract', 'CNT')
+      RETURNING ins_discipline_key INTO v_discipline_key;
+   INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type) VALUES (v_discipline_key, 4);
+   INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Leverancierscontract', 'CNT')
+      RETURNING ins_discipline_key INTO v_discipline_key;
+   INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type) VALUES (v_discipline_key, 5);
+   INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Mantelcontract', 'CNT')
+      RETURNING ins_discipline_key INTO v_discipline_key;
+   INSERT INTO cnt_disc_params (cnt_ins_discipline_key, cnt_srtcontract_type) VALUES (v_discipline_key, 6);
+
+   -- Alle contracten hebben bijlagen
+   INSERT INTO cnt_srtkenmerk (cnt_srtkenmerk_omschrijving, cnt_srtkenmerk_kenmerktype) VALUES ('Bijlagen', 'M')
+      RETURNING cnt_srtkenmerk_key INTO v_key;
+   INSERT INTO cnt_kenmerk (cnt_srtkenmerk_key,
+                              cnt_srtcontract_key,
+                              cnt_kenmerk_niveau,
+                              cnt_kenmerk_volgnummer,
+                              cnt_kenmerk_groep)
+         SELECT v_key, ins_discipline_key, 'S', 100, 0 FROM cnt_discipline;
+END;
+
+fac.writelog ('INI.FMIS_INI','I', 'CNT completed', '');
+
+-- 7. FAQ
+INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Facilitaire Kennisbank', 'FAQ');
+
+fac.writelog ('INI.FMIS_INI','I', 'FAQ completed', '');
+-- 8. MSG
+-- Misschien ook hier nog een berichtje, anders iig de catalogi
+INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Algemene berichten', 'MSG');
+INSERT INTO ins_tab_discipline (ins_discipline_omschrijving, ins_discipline_module) VALUES ('Huishoudelijke mededelingen', 'MSG');
+fac.writelog ('INI.FMIS_INI','I', 'MSG completed', '');
+
+-- 9. CAD
+-- De standaardthema's uit CAD-INI van vroeger heb je niet met ITSM nodig, dus horen bij FMIS
+-- De kunt makkelijk beargumenteren dat PRJ-thema's er dan ook bij zouden horen.
+INSERT INTO cad_legenda (cad_legenda_omschrijving, cad_legenda_discreet) VALUES ('FMIS-Bezetting', 1);  -- naam mag je later wel aanpassen, nu handig uniek
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) SELECT MAX(cad_legenda_key),'0','33CC33','hele dag beschikbaar' FROM cad_legenda WHERE cad_legenda_omschrijving='FMIS-Bezetting';
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) SELECT MAX(cad_legenda_key),'1','FF9900','''s middags beschikbaar' FROM cad_legenda WHERE cad_legenda_omschrijving='FMIS-Bezetting';
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) SELECT MAX(cad_legenda_key),'2','FFFF00','''s ochtends beschikbaar' FROM cad_legenda WHERE cad_legenda_omschrijving='FMIS-Bezetting';
+INSERT INTO cad_legendawaarde (cad_legenda_key, cad_legendawaarde_value, cad_legendawaarde_rgb, cad_legendawaarde_omschr) SELECT MAX(cad_legenda_key),'3','FF0000','hele dag bezet' FROM cad_legenda WHERE cad_legenda_omschrijving='FMIS-Bezetting';
+
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT 'Ruimtefunctie', 1, 'cad_v_thema_srtruimte', 1, fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_ALGUSE';
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT 'Open meldingen', 2, 'cad_v_thema_openmeldingen', 1, fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_MLDBAC';
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT 'Bezetting: aantal werkplekken', 1, 'cad_v_thema_aantalwp', 1, fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSBOF';
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT  'Oppervlakte: Gemiddeld/werkplek', 1, 'cad_v_thema_wpopp', 1, fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSBOF';
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT 'Actuele bezetting', 1, 'cad_v_thema_srtruimtesensor', 1, fac_functie_key
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_RESFOF';
+INSERT INTO cad_thema (cad_thema_omschrijving, cad_legenda_key, cad_thema_view, cad_thema_type, fac_functie_key)
+     SELECT 'Werkplekbezetting', cad_legenda_key, 'cad_v_thema_deel_res_datum', 17, fac_functie_key
+       FROM fac_functie, cad_legenda
+      WHERE fac_functie_code = 'WEB_RESUSE'
+        AND cad_legenda_omschrijving = 'FMIS-Bezetting';
+
+-- CAD labels
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
+     SELECT 'Ruimtefunctie/opp', 'cad_v_label_srtruimteopp', '1', fac_functie_key, 360
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_ALGUSE';
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
+     SELECT 'Bewoners', 'cad_v_label_bewoner', '1', fac_functie_key, 300
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSUSE';
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
+     SELECT  'Werkplekken', 'cad_v_label_werkplekken', '1', fac_functie_key, 800
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSBOF';
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size)
+     SELECT  'Bewoners/werkplekken', 'cad_v_label_bewonerwp', '1', fac_functie_key, 800
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_PRSUSE';
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size, cad_label_visible)
+     SELECT 'Flexibele ruimtes', 'cad_v_label_bezetbareruimtes', '1', fac_functie_key, 500, 0
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_RESFOF';
+INSERT INTO cad_label (cad_label_omschrijving, cad_label_view, cad_label_type, fac_functie_key, cad_label_size, cad_label_visible)
+     SELECT 'Werkplekbezetting', 'cad_v_label_deel_res_datum', '17', fac_functie_key, 700, 0
+       FROM fac_functie
+      WHERE fac_functie_code = 'WEB_RESUSE';
+
+--- INFOBOARD rapportage
+INSERT INTO fac_usrrap (fac_usrrap_omschrijving, fac_usrrap_view_name, fac_usrrap_info, fac_functie_key, fac_usrrap_groep)
+      SELECT  'FMIS: Actuele reserveringen'
+            , 'res_v_rap_infobordframe'
+            , 'Reserveringsoverzicht tbv informatieschermen'
+            , fac_functie_key
+            , 'RESERVERINGEN'
+         FROM fac_functie
+      WHERE fac_functie_code='WEB_RESFOF';
+-- Dit is netjes de Engelse vertaling, was eerder voorhanden in fac_ini. Zou striktgenomen voor alle teksten moeten, tzt.
+INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst)
+     SELECT 'EN', MAX(fac_usrrap_key), 'FAC_USRRAP_OMSCHRIJVING', 'INFOBOARD: Actual reservations' FROM fac_usrrap WHERE fac_usrrap_view_name = 'res_v_rap_infobordframe';
+INSERT INTO fac_locale (fac_locale_lang, fac_locale_kolomkeyval, fac_locale_kolomnaam, fac_locale_tekst)
+     SELECT 'EN', MAX(fac_usrrap_key), 'FAC_USRRAP_INFO', 'Reservation overview for information screens' FROM fac_usrrap WHERE fac_usrrap_view_name = 'res_v_rap_infobordframe';
+
+UPDATE fac_setting SET fac_setting_pvalue = (SELECT MAX(cad_thema_key) FROM cad_thema WHERE cad_thema_view = 'cad_v_thema_srtruimtesensor') WHERE fac_setting_name = 'fg_infobordthema_key' AND fac_setting_pvalue IS NULL;
+UPDATE fac_setting SET fac_setting_pvalue = (SELECT MAX(cad_thema_key) FROM cad_thema WHERE cad_thema_view = 'cad_v_label_bezetbareruimtes') WHERE fac_setting_name = 'fg_infobordlabel_key' AND fac_setting_pvalue IS NULL;
+UPDATE fac_setting SET fac_setting_pvalue = (SELECT MAX(fac_usrrap_key) FROM fac_usrrap WHERE fac_usrrap_view_name = 'res_v_rap_infobordframe') WHERE fac_setting_name = 'fg_infobordreport_key' AND fac_setting_pvalue IS NULL;
+
+fac.writelog ('INI.FMIS_INI','I', 'CAD completed', '');
+
+-- 10. UDR
+-- Kunnen we een paar FMIS-rapporten verzinnen? Neu.
+
+
+-- Settings: Alleen settings die specifiek voor FM zijn en intrinsiek afwijken van de standaardinstellingen(!)
+-- Algemeen UPDATE fac_setting SET fac_setting_pvalue = 'no_reply@' || user || '.facilitor.nl' WHERE fac_setting_name = 'puo_fromaddress';
+-- FMIS impliceert het een en ander
+UPDATE fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'faq_enabled';
+UPDATE fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'mobile_enabled';
+UPDATE fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'qrc_enabled';
+UPDATE fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'vis_afspraak_host_uses_keys';  -- vind ik beter, terug kan altijd nog
+UPDATE fac_setting SET fac_setting_pvalue = '1' WHERE fac_setting_name = 'vis_afspraak_onrgoed_uses_keys';  -- vind ik beter, terug kan altijd nog
+fac.writelog ('INI.FMIS_INI','I', 'Settings completed', '');
+
+
+-- Autorisatiegroepen
+-- We definieren deze groepen: Medewerker (_DEFAULT), Frontoffice, Backoffice, Beheerder (_ADMIN)
+INSERT INTO fac_groep (fac_groep_omschrijving, fac_groep_opmerking) VALUES ('FMIS-Frontoffice', 'FMIS-autorisatiegroep voor frontoffice users');
+INSERT INTO fac_groep (fac_groep_omschrijving, fac_groep_opmerking) VALUES ('FMIS-Backoffice',  'FMIS-autorisatiegroep voor backoffice users');
+
+-- Toekennen van de rechten om aan het werk te kunnen
+-- We proberen ons zo goed mogelijk te beperken tot de functionaliteit die we hier zelf net hebben gedefinieerd.
+-- In het bijzonder willen we geen bij-effecten als MLDUSE voor andere disciplines die toevallig al bestaan (bv uit ITSM_INI)
+-- gaan toekennen. Voor Admin-groepen is dat wat minder strikt en doen we wel ons best.
+-- Vooralsnog supporten we niet compleet dat je achteraf nog kunt initialiseren he.
+
+-- Medewerker rechten
+INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
+                              fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write)
+      SELECT g.fac_groep_key, f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
+      FROM fac_functie f, ins_tab_discipline d, fac_groep g, ins_srtdiscipline sd
+      WHERE f.fac_functie_code IN ('WEB_RESUSE', 'WEB_MLDUSE', 'WEB_BESUSE','WEB_BEZUSE','WEB_FAQUSE','WEB_PROFIL')
+         AND f.fac_functie_module = d.ins_discipline_module
+         AND g.fac_groep_upper = '_DEFAULT'
+         AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+         AND (sd.ins_srtdiscipline_omschrijving LIKE 'FMIS-%' OR sd.ins_srtdiscipline_omschrijving IS NULL)
+         AND NOT EXISTS
+               (SELECT gr.fac_groeprechten_key
+                  FROM fac_groeprechten gr
+               WHERE     gr.fac_functie_key = f.fac_functie_key
+                     AND gr.ins_discipline_key = d.ins_discipline_key
+                     AND gr.fac_groep_key = g.fac_groep_key);
+
+-- Frontoffice rechten
+INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
+                              fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write)
+      SELECT g.fac_groep_key, f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
+      FROM fac_functie f, ins_tab_discipline d, fac_groep g, ins_srtdiscipline sd
+      WHERE f.fac_functie_code IN ('WEB_RESFOF', 'WEB_MLDFOF', 'WEB_BESFOF', 'WEB_BEZFOF', 'WEB_FAQFOF', 'WEB_INSFOF')
+         AND f.fac_functie_module = d.ins_discipline_module
+         AND g.fac_groep_upper = 'FMIS-FRONTOFFICE'
+         AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+         AND (sd.ins_srtdiscipline_omschrijving LIKE 'FMIS-%' OR sd.ins_srtdiscipline_omschrijving IS NULL)
+         AND NOT EXISTS
+               (SELECT gr.fac_groeprechten_key
+                  FROM fac_groeprechten gr
+               WHERE     gr.fac_functie_key = f.fac_functie_key
+                     AND gr.ins_discipline_key = d.ins_discipline_key
+                     AND gr.fac_groep_key = g.fac_groep_key);
+
+-- Backoffice rechten
+INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
+                              fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write)
+      SELECT g.fac_groep_key, f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
+      FROM fac_functie f, ins_tab_discipline d, fac_groep g, ins_srtdiscipline sd
+      WHERE f.fac_functie_code IN ('WEB_RESBOF', 'WEB_MLDBOF', 'WEB_ORDBOF', 'WEB_BESBOF', 'WEB_BEZBOF', 'WEB_FAQBOF', 'WEB_INSUSE', 'WEB_INSMAN', 'WEB_CNTMAN', 'WEB_CNTUSE')
+         AND f.fac_functie_module = d.ins_discipline_module
+         AND g.fac_groep_upper = 'FMIS-BACKOFFICE'
+         AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+         AND (sd.ins_srtdiscipline_omschrijving LIKE 'FMIS-%' OR sd.ins_srtdiscipline_omschrijving IS NULL)
+         AND NOT EXISTS
+               (SELECT gr.fac_groeprechten_key
+                  FROM fac_groeprechten gr
+               WHERE     gr.fac_functie_key = f.fac_functie_key
+                     AND gr.ins_discipline_key = d.ins_discipline_key
+                     AND gr.fac_groep_key = g.fac_groep_key);
+
+-- Beheerder rechten
+INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
+                              fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write)
+      SELECT g.fac_groep_key, f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
+      FROM fac_functie f, ins_tab_discipline d, fac_groep g, ins_srtdiscipline sd
+         WHERE f.fac_functie_code IN ('WEB_RESMSU', 'WEB_MLDMSU', 'WEB_BESMSU', 'WEB_BEZMSU', 'WEB_FAQMSU', 'WEB_INSMSU',
+                                    'WEB_RESMGT', 'WEB_MLDMGT', 'WEB_BESMGT', 'WEB_BEZMGT', 'WEB_FAQMGT', 'WEB_INSMGT',
+                                    'WEB_RESBAC', 'WEB_MLDBAC', 'WEB_BESBAC', 'WEB_BEZBAC')
+         AND f.fac_functie_module = d.ins_discipline_module
+         AND g.fac_groep_upper = '_ADMIN'
+         AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+         AND (sd.ins_srtdiscipline_omschrijving LIKE 'FMIS-%' OR sd.ins_srtdiscipline_omschrijving IS NULL)
+         AND NOT EXISTS
+               (SELECT gr.fac_groeprechten_key
+                  FROM fac_groeprechten gr
+               WHERE     gr.fac_functie_key = f.fac_functie_key
+                     AND gr.ins_discipline_key = d.ins_discipline_key
+                     AND gr.fac_groep_key = g.fac_groep_key);
+
+-- _FACILITOR-rechten
+-- We willen tbv Support dat _FACILITOR alles kan, dus ook rechten krijgt op de zaken
+-- die hier zijn aangemaakt. De rest had-ie standaard al.
+-- Dit zijn dus autorisaties als ORDAFR,ORDBO2, ORDGO5, UURBOF, CNTGO1 en MLDREO, to name a few.
+INSERT INTO fac_groeprechten (fac_groep_key, fac_functie_key, ins_discipline_key,
+                              fac_gebruiker_alg_level_read, fac_gebruiker_alg_level_write,
+                              fac_gebruiker_prs_level_read, fac_gebruiker_prs_level_write)
+      SELECT g.fac_groep_key, f.fac_functie_key, d.ins_discipline_key, -1, -1, -1, -1
+        FROM fac_functie f, ins_tab_discipline d, fac_groep g, ins_srtdiscipline sd
+       WHERE f.fac_functie_module = d.ins_discipline_module
+         AND g.fac_groep_upper = '_FACILITOR'
+         AND f.fac_functie_discipline = 1
+         AND d.ins_srtdiscipline_key = sd.ins_srtdiscipline_key(+)
+         AND (sd.ins_srtdiscipline_omschrijving LIKE 'FMIS-%' OR sd.ins_srtdiscipline_omschrijving IS NULL)
+         AND NOT EXISTS
+               (SELECT gr.fac_groeprechten_key
+                  FROM fac_groeprechten gr
+               WHERE     gr.fac_functie_key = f.fac_functie_key
+                     AND gr.ins_discipline_key = d.ins_discipline_key
+                     AND gr.fac_groep_key = g.fac_groep_key);
+
+fac.writelog ('INI.FMIS_INI','I', 'AUT completed', '');
+
+
+
+
+
+--
+--
+-- Een heel klein beetje voorbeeldvulling als appetizer
+--
+--
+-- Importeren van locatie en gebouwen (ONRGOED1)
+INSERT INTO fac_imp_onrgoed1 (alg_regio_omschrijving, alg_district_omschrijving,
+                           alg_locatie_code, alg_locatie_omschrijving, alg_gebouw_code, alg_gebouw_naam, alg_srtgebouw_omschrijving,
+                           alg_locatie_adres, alg_locatie_postcode, alg_locatie_plaats)
+   VALUES ('Nederland', 'Midden',
+            'UTR','Hoofdkantoor','HQ','Hoofdgebouw','Kantoor',
+            'Grotestraat 123','1234 AB','Utrecht');
+BEGIN fac_update_onrgoed1(ini.getImportKey('ONRGOED1')); END;
+DELETE FROM fac_imp_onrgoed1;
+
+
+-- Importeren van vergaderzalen (ONRGOED2)
+INSERT INTO fac_imp_onrgoed2 (alg_locatie_code, alg_gebouw_code, alg_verdieping_volgnr, alg_srtruimte_omschrijving,
+                        alg_ruimte_nr, alg_ruimte_omschrijving, reserveerbaar,
+                        res_discipline_omschrijving, res_opstelling_omschrijving, res_ruimte_opstel_bezoekers, res_ruimte_nr)
+   SELECT 'UTR',   'HQ',  0,  'Vergaderruimte',  '0.12',   'Vergaderruimte 1',   'J',   'Vergaderruimte',  'Standaard', 10, 'Dahlia'  FROM DUAL UNION ALL
+   SELECT 'UTR',   'HQ',  0,  'Vergaderruimte',  '0.13',   'Vergaderruimte 2',   'J',   'Vergaderruimte',  'Standaard',  8, 'Rozentuin' FROM DUAL;
+
+-- Importeren van losse ruimten
+INSERT INTO fac_imp_onrgoed2( alg_locatie_code, alg_gebouw_code, alg_verdieping_volgnr, alg_srtruimte_omschrijving, alg_ruimte_nr, alg_ruimte_omschrijving)
+   SELECT 'UTR',   'HQ',   0,    'Verkeersruimte',    '0.01',     'Gang'         FROM DUAL UNION ALL
+   SELECT 'UTR',   'HQ',   0,    'Kantoor',           '0.02',     'Kantoor 0.02' FROM DUAL UNION ALL
+   SELECT 'UTR',   'HQ',   0,    'Kantoor',           '0.03',     'Kantoor 0.03' FROM DUAL UNION ALL
+   SELECT 'UTR',   'HQ',   0,    'Kantoor',           '0.04',     'Kantoor 0.04' FROM DUAL;
+BEGIN fac_update_onrgoed2(ini.getImportKey('ONRGOED2')); END;
+DELETE FROM fac_imp_onrgoed2;
+-- Mooier:
+UPDATE alg_verdieping SET alg_verdieping_omschrijving = 'Begane grond' WHERE alg_verdieping_upper = 'VERDIEPING 0';
+
+-- Importeren van flexplekken (INS)
+INSERT INTO fac_imp_ins (ins_discipline_omschrijving, ins_srtgroep_omschrijving,ins_srtdeel_code,ins_srtdeel_omschrijving,ins_deel_omschrijving,
+                         alg_locatie_code,alg_gebouw_code,alg_verdieping_volgnr,alg_ruimte_nr,ins_deel_aantal,reserveerbaar,res_deel_alg_level,res_discipline_omschrijving)
+      SELECT 'Werkplekken', 'Werkplekken',  'FLEXDS', 'Flexplek met dockingstation', 'FLEXDS003.1',  'UTR', 'HQ',  0,  '0.03',   1,  1,  4, 'Werkplekreservering'  FROM DUAL UNION ALL
+      SELECT 'Werkplekken', 'Werkplekken',  'FLEXDS', 'Flexplek met dockingstation', 'FLEXDS004.1',  'UTR', 'HQ',  0,  '0.04',   1,  1,  4, 'Werkplekreservering'  FROM DUAL UNION ALL
+      SELECT 'Werkplekken', 'Werkplekken',  'FLEX',   'Flexplek',                    'FLEX004.2',    'UTR', 'HQ',  0,  '0.04',   1,  1,  4, 'Werkplekreservering'  FROM DUAL;
+BEGIN fac_update_ins(ini.getImportKey('INS')); END;
+DELETE FROM fac_imp_ins;
+
+
+-- Wil ik dit, en zo, en specifiek? Core!
+INSERT INTO fac_menu (fac_menu_altlabel,
+                      fac_menu_altgroep,
+                      fac_menu_volgnr,
+                      fac_menu_alturl,
+                      fac_functie_key,
+                      fac_menu_level,
+                      ins_discipline_key)
+    SELECT 'Reserveer werkplek**',
+           0,
+           650,
+              'appl/res/res_rsv_deel_by_placetime.asp?selectmode=1&res_disc='
+           || rd.ins_discipline_key
+           || '&limit=15',
+           f.fac_functie_key,
+           0,
+           rd.ins_discipline_key
+      FROM fac_functie f, res_discipline rd
+     WHERE rd.ins_discipline_omschrijving = 'Flexplekken' AND f.fac_functie_code = 'WEB_RESUSE';
+
+-- Reserveerbare artikelen
+INSERT INTO fac_imp_res_artikel_sync (res_discipline_oms, res_artikel_nr, res_artikel_omschrijving, res_artikel_eenheid, res_artikel_prijs, res_artikel_prijs_vast)
+ SELECT 'Dranken',   'D002',     'Thee',        'Kan',      '5.50',     1     FROM DUAL UNION ALL
+ SELECT 'Dranken',   'D003',     'Frisdrank',   'Flesje',   '2.50',     1     FROM DUAL UNION ALL
+ SELECT 'Dranken',   'D004',     'Water',       'Kan',      '2.00',     1     FROM DUAL UNION ALL
+ SELECT 'Dranken',   'D001',     'Koffie',      'Kan',      '7.50',     1     FROM DUAL;
+BEGIN fac_update_res_artikel_sync(ini.getImportKey('RES_ARTIKEL_SYNC')); END;
+DELETE FROM fac_imp_res_artikel_sync;
+
+
+-- Interne organisatiestructuur (ORGANISATIE), is die kostenplaats nodig?
+INSERT INTO fac_imp_organisatie (prs_bedrijf_naam, prs_afdeling_naam, prs_afdeling_omschrijving, prs_kostenplaats_nr)
+   SELECT 'Onze organisatie',    'SALES',    'Sales & Marketing',       'S'   FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'DIR',      'Directie',                'D'   FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'HR',       'Personeel & Organisatie', 'P'   FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'ICT',      'ICT',                     'I'   FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'FIN',      'Finance',                 'FIN' FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'MW',       'Overig',                  'MW'  FROM DUAL UNION ALL
+   SELECT 'Onze organisatie',    'FM',       'Facility Management',     'FM'  FROM DUAL;
+BEGIN fac_update_organisatie(ini.getImportKey('ORGANISATIE')); END;
+DELETE FROM fac_imp_organisatie;
+
+
+-- Minimale gebruikers, moet gedocumenteerd worden, wachtwoorden via wachtwoord-vergeten oid
+-- nummers/mail hebben bewust ongeldig format om gegarandeerd ongeldig te zijn
+INSERT INTO fac_imp_perslid (prs_afdeling_naam, prs_perslid_naam, prs_perslid_voornaam, prs_perslid_telefoonnr, prs_perslid_mobiel, prs_perslid_email, prs_srtperslid_omschrijving, prs_perslid_nr, prs_perslid_oslogin, prs_perslid_wachtwoord)
+   SELECT 'MW' a, 'Medewerker' b,   'Marco' c,  '022-398345' d,  '06-2978529' e, 'marco.medewerker@wxyz' f, 'Medewerker' g,   '001' h, 'Marco' i,  'Medewerker21#' j FROM DUAL UNION ALL
+   SELECT 'FM',   'Backoffice',     'Bas',      '022-398346',    '06-2978630',   'bas.backoffice@wxyz',     'Medewerker',     '002',   'Bas',      'Backoffice21#'   FROM DUAL UNION ALL
+   SELECT 'FM',   'Frontoffice',    'Furkan',   '022-398248',    '06-2935632',   'furkan.frontoffice@wxyz', 'Medewerker',     '003',   'Furkan',   'Frontoffice21#'  FROM DUAL UNION ALL
+   SELECT 'ICT',  'Beheerder',      'Barbara',  '022-398247',    '06-2937631',   'barbara.beheerder@wxyz',  'Medewerker',     '004',   'Barbara',  'Beheerder21#'    FROM DUAL;
+BEGIN fac_update_perslid(ini.getImportKey('PERSLID')); END;
+DELETE FROM fac_imp_perslid;
+
+-- Rechten toekennen aan de personen
+-- Iedereen zit standaard al in de _default groep
+-- De beheerder zetten we in de beheerdersgroep en de ook in de backoffice groep? Nou, ik vind toch eigenlijk van niet.
+-- INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep, prs_perslid p WHERE g.fac_groep_upper = '_DEFAULT' AND p.prs_perslid_naam = 'Medewerker'
+INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = 'FMIS-BACKOFFICE' AND p.prs_perslid_naam = 'Backoffice';
+INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = 'FMIS-FRONTOFFICE' AND p.prs_perslid_naam = 'Backoffice';
+INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = 'FMIS-FRONTOFFICE' AND p.prs_perslid_naam = 'Frontoffice';
+INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = '_ADMIN' AND  p.prs_perslid_naam = 'Beheerder';
+--INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = 'FMIS-BACKOFFICE' AND p.prs_perslid_naam = 'Beheerder';
+--INSERT INTO fac_gebruikersgroep (fac_groep_key, prs_perslid_key) SELECT g.fac_groep_key, p.prs_perslid_key FROM fac_groep g, prs_perslid p WHERE g.fac_groep_upper = 'FMIS-FRONTOFFICE' AND p.prs_perslid_naam = 'Beheerder';
+
+-- INS
+INSERT INTO fac_imp_ins (ins_discipline_omschrijving, ins_srtgroep_omschrijving,ins_srtdeel_code,ins_srtdeel_omschrijving,ins_deel_omschrijving,
+                         alg_locatie_code,alg_gebouw_code,alg_verdieping_volgnr,alg_ruimte_nr,ins_deel_aantal)
+   SELECT 'Automaten', 'Koffieautomaten', 'KOF', 'Koffieautomaat', 'KOF001', 'UTR', 'HQ',  0, '0.01', 1  FROM DUAL UNION ALL
+   SELECT 'Automaten', 'Koffieautomaten', 'KOF', 'Koffieautomaat', 'KOF002', 'UTR', 'HQ',  0, '0.01', 1  FROM DUAL;
+BEGIN fac_update_ins(ini.getImportKey('INS')); END;
+DELETE FROM fac_imp_ins;
+
+fac.writelog ('INI.FMIS_INI','I', 'Sample content completed', '');
+
+
+INSERT INTO fac_nieuws (fac_nieuws_titel, fac_nieuws_omschrijving, fac_nieuws_image,
+            prs_perslid_key)
+    SELECT 'Facilitor voor al je facilitaire zaken', 'Gefeliciteerd met de keuze voor Facilitor/FMIS! Dit is een eerste stap naar totale controle over je dienstverlenende processen.', 'fa-person-through-window',
+           prs_perslid_key
+      FROM prs_perslid
+     WHERE prs_perslid_oslogin = '_FACILITOR';
+
+fac.writelog ('INI.FMIS_INI','I', 'All completed', '');
+
+------ payload end   ------
+
+BEGIN adm.systrackscriptId ('$Id$', 1); END;
+

INI/INI_IND.SRC

@@ -0,0 +1,7 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+CREATE UNIQUE INDEX ini_i_ini_setup_name1 ON ini_setup(UPPER(ini_setup_name));
+
+REGISTERONCE('$Id$')

INI/INI_INI.SRC

@@ -0,0 +1,11 @@
+/*  $Revision$
+ *  $Id$
+ */
+
+// Basis setup raamwerken
+DEF_SETUP('FMIS', 'Facility Management');
+DEF_SETUP('ITSM', 'IT Service Management (ITIL v4)');
+//DEF_SETUP('P2P',  'Inkoop en bestellen (P2P)*');
+//DEF_SETUP('REMS', 'Vastgoedbeheer*');
+
+REGISTERONCE('$Id$')

INI/INI_PAC.SRC

@@ -0,0 +1,69 @@
+      /*  $Revision$
+ *  $Id$
+ */
+
+/*
+ * Dit is een frame, de echte functionaliteit zit in de verschillende includes
+ *
+ * Ambitie is om deze includes zodanig te definieren dat ze tbv development als los script gedraaid kunnen worden
+ * en ze hier pas in de proc komen, maar dat is nog maar de vraag of dat lukt. JE mag dan iig geen SQLPlus gebruiken.
+ */
+
+#include "comsql.h"
+
+CREATE OR REPLACE PACKAGE ini
+AS
+   FUNCTION getImportKey (p_import_app_code VARCHAR2) RETURN NUMBER;
+   PROCEDURE fmis_ini;
+   PROCEDURE itsm_ini;
+   PROCEDURE init (modulenaam IN VARCHAR2);
+END ini;
+/
+
+CREATE OR REPLACE PACKAGE BODY ini AS
+
+   -- Local tooling for INI
+   FUNCTION getImportKey (p_import_app_code VARCHAR2)
+   RETURN NUMBER
+   AS
+      v_import_key     NUMBER;
+      v_import_app_key NUMBER;
+
+   BEGIN
+      SELECT fac_import_app_key
+        INTO v_import_app_key
+        FROM fac_import_app
+       WHERE fac_import_app_code = UPPER(p_import_app_code);
+
+      INSERT INTO fac_import (fac_import_app_key, fac_import_datum_gelezen)
+         VALUES (v_import_app_key, SYSDATE)
+         RETURNING fac_import_key INTO v_import_key;
+
+      RETURN v_import_key;
+   END;
+   -- End of local tooling
+
+
+   PROCEDURE fmis_ini
+   AS
+   BEGIN
+#include "fmis/fmis_ini.sql"
+   END;
+
+   PROCEDURE itsm_ini
+   AS
+   BEGIN
+#include "itsm/itsm_ini.sql"
+   END;
+
+   PROCEDURE init (modulenaam IN VARCHAR2)
+   AS
+   BEGIN
+      -- not yet supported
+      NULL;
+   END;
+
+END ini;
+/
+
+REGISTERRUN('$Id$')

INI/INI_SEQ.SRC

@@ -0,0 +1,8 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+CREATE SEQUENCE ini_s_ini_setup_key             MINVALUE 1;
+
+REGISTERONCE('$Id$')

INI/INI_TAB.SRC

@@ -0,0 +1,20 @@
+/*
+ * $Revision$
+ * $Id$
+ */
+
+/* Initial(/basis) setup framework */
+CREATE_TABLE (ini_setup, 0)
+(
+    ini_setup_key
+        VARCHAR2(30)
+        CONSTRAINT ini_k_ini_setup_key PRIMARY KEY,
+    ini_setup_name      /* Afkorting, bijv. FMIS */
+        VARCHAR2(60),
+    ini_setup_name_full /* Voluit, bijv. Facility Management Information System */
+        VARCHAR2(255),
+    ini_setup_date
+        DATE
+);
+
+REGISTERONCE('$Id$')

INI/INI_TRI.SRC

@@ -0,0 +1,15 @@
+/*
+ *  $Revision$
+ *  $Id$
+ *
+ */
+
+CREATE_TRIGGER(ini_t_ini_setup_B_I)
+BEFORE INSERT ON ini_setup
+FOR EACH ROW
+BEGIN
+    UPDATE_PRIMARY_KEY(ini_setup_key, ini_s_ini_setup_key);
+END;
+/
+
+REGISTERRUN('$Id$')

INI/PLAT/plat_ini.sql

@@ -0,0 +1,14 @@
+--
+-- $Id$
+--
+-- Script bevat initiele configuratie voor een standaard Plato inrichting van Facilitor
+-- Plato is de MJOB-tool voor woco's, dat zou samenwerken met Tobias
+--
+--
+
+
+fac.writelog ('INI.PLAT_INI','I', 'All completed', '');
+
+------ payload end   ------
+
+BEGIN adm.systrackscriptId ('$Id$', 1); END;

INS/INS_IND.SRC

@@ -24,11 +24,15 @@ create index ins_i_ins_deel4 on ins_deel(ins_discipline_key);
 create index ins_i_ins_deel5 on ins_deel(ins_alg_locatie_key);
 create index ins_i_ins_deel6 on ins_deel(ins_alg_locatie_key, ins_srtdeel_key, ins_deel_upper);
 CREATE INDEX ins_i_ins_deel7 ON ins_deel(ins_deel_parent_key);
+CREATE INDEX ins_i_ins_deel8 ON ins_deel(prs_perslid_key_beh);
+CREATE INDEX ins_i_ins_deel9 ON ins_deel(res_rsv_deel_key);
 
 create index ins_i_ins_deel_note1 on ins_deel_note(ins_deel_key);
 
 /* Indices voor INS_KENMERK-zaken */
 CREATE INDEX ins_i_ins_srtkenmerk1 ON ins_kenmerk(ins_srtkenmerk_key);
+CREATE INDEX ins_i_ins_srtkenmerk2 ON ins_srtkenmerk(ins_srtkenmerk_code);
+CREATE INDEX ins_i_ins_kenmerk1 ON ins_kenmerk(ins_kenmerk_code);
 CREATE INDEX ins_i_ins_srtinstallatie1 ON ins_kenmerk(ins_srtinstallatie_key);
 CREATE INDEX ins_i_ins_kenmerk_deel1 ON ins_kenmerkdeel(ins_deel_key);
 CREATE INDEX ins_i_ins_kenmerk_kenmerk1 ON ins_kenmerkdeel(ins_kenmerk_key);
@@ -44,6 +48,9 @@ CREATE UNIQUE INDEX ins_i_ins_deel_state_hist1 ON ins_deel_state_history(ins_dee
 
 CREATE INDEX ins_i_ins_deelsrtcontrole1 ON ins_deelsrtcontrole(ins_deelsrtcontrole_status, ins_deel_key);
 
+CREATE INDEX ins_i_ins_deel_uitgifte1 ON ins_deel_uitgifte(prs_perslid_key);
+CREATE INDEX ins_i_ins_deel_uitgifte2 ON ins_deel_uitgifte(prs_contactpersoon_key);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_INI.SRC

@@ -28,6 +28,7 @@ INSERT INTO fac_usrrap
 
 DEF_STATUS('controle', 0, 'lcl_ins_controle_pending');
 DEF_STATUS('controle', 2, 'lcl_ins_controle_gestart');
+DEF_STATUS('controle', 3, 'lcl_ins_controle_ter_uitvoer');
 DEF_STATUS('controle', 5, 'lcl_ins_controle_afgemeld');
 DEF_STATUS('controle', 6, 'lcl_ins_controle_verwerkt');
 

INS/INS_LCL.SRC

@@ -4,118 +4,47 @@
  *  $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)
+START_LOCALEITEMS('INS_DISCIPLINE_KEY')
 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_deel_state)
 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)
+DEFINE_LOCALEITEM(lcl_estate_locatie_man_descr)
+DEFINE_LOCALEITEM(lcl_fg_gotofgheader)
+DEFINE_LOCALEITEM(lcl_floor)
+DEFINE_LOCALEITEM(lcl_general_properties)
+DEFINE_LOCALEITEM(lcl_ins_active)
+DEFINE_LOCALEITEM(lcl_ins_additional_details)
+DEFINE_LOCALEITEM(lcl_ins_behandeling)
+DEFINE_LOCALEITEM(lcl_ins_deel_image)
+DEFINE_LOCALEITEM(lcl_ins_manager)
+DEFINE_LOCALEITEM(lcl_ins_meta_data)
+DEFINE_LOCALEITEM(lcl_ins_opmerking)
+DEFINE_LOCALEITEM(lcl_ins_parentobject)
+DEFINE_LOCALEITEM(lcl_ins_uitvoertijd)
+DEFINE_LOCALEITEM(lcl_ins_vervaldatum)
+DEFINE_LOCALEITEM(lcl_last_action)
+DEFINE_LOCALEITEM(lcl_location)
+DEFINE_LOCALEITEM(lcl_name)
+DEFINE_LOCALEITEM(lcl_obj_bind_r)
+DEFINE_LOCALEITEM(lcl_obj_geoxcoord)
+DEFINE_LOCALEITEM(lcl_obj_geoycoord)
+DEFINE_LOCALEITEM(lcl_obj_group)
+DEFINE_LOCALEITEM(lcl_select_srtgroep)
+DEFINE_LOCALEITEM(lcl_obj_identification)
+DEFINE_LOCALEITEM(lcl_obj_owner)
+DEFINE_LOCALEITEM(lcl_obj_photo)
+DEFINE_LOCALEITEM(lcl_obj_position)
+DEFINE_LOCALEITEM(lcl_obj_reserveerbaar)
+DEFINE_LOCALEITEM(lcl_obj_sort)
+DEFINE_LOCALEITEM(lcl_select_srtdeel)
+DEFINE_LOCALEITEM(lcl_obj_uitleensrtdeel)
+DEFINE_LOCALEITEM(lcl_owner_info)
+DEFINE_LOCALEITEM(lcl_prs_address_bezoek_adres)
+DEFINE_LOCALEITEM(lcl_prs_address_bezoek_plaats)
+DEFINE_LOCALEITEM(lcl_prs_organisatie)
+DEFINE_LOCALEITEM(lcl_room)
+DEFINE_LOCALEITEM(lcl_workplace)
 END_LOCALEITEMS()
 
 REGISTERONCE('$Id$')

INS/INS_PAC.SRC

@@ -6,13 +6,19 @@
 
 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) RETURN VARCHAR2;
+    FUNCTION get_description(pentityname IN VARCHAR2, pparentkey IN NUMBER, pprefix IN VARCHAR2) RETURN VARCHAR2;
+    FUNCTION nextdescription(pprefix IN VARCHAR2, pparentkey IN NUMBER, pseparator IN VARCHAR2 DEFAULT 'default') RETURN VARCHAR2;
+    PROCEDURE copyInsKenmerken(pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER);
+    PROCEDURE altersrtdeel(pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER);
     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_scenario IN NUMBER, p_steps IN NUMBER DEFAULT 0) RETURN DATE;
     FUNCTION nextcyclusdatesteps (p_insdeel IN NUMBER, p_srtcontrole IN NUMBER, p_steps IN NUMBER DEFAULT 1) RETURN NUMBER;
     PROCEDURE setinspectstatus (pdlsrtcontrkey IN NUMBER, pstatus IN NUMBER, puserkey IN NUMBER);
-    PROCEDURE ins_daily(today IN DATE DEFAULT SYSDATE);
+    FUNCTION state_compare (str1 IN VARCHAR, str2 IN VARCHAR) RETURN NUMBER;
+    FUNCTION state_diff (str1 IN VARCHAR, str2 IN VARCHAR) RETURN NUMBER;
+    FUNCTION state_thresholdcompare (pdeel_key IN NUMBER, pdays NUMBER DEFAULT NULL) RETURN NUMBER;
+    PROCEDURE compress_states (pdodelete IN NUMBER DEFAULT 1);
 END ins;
 /
 
@@ -30,158 +36,230 @@ CREATE OR REPLACE PACKAGE BODY ins AS
        WHEN OTHERS THEN RETURN FALSE;
     END;
 
-    -- Was: FAC_F_FAC_GET_DESCRIPTION
-    FUNCTION get_description(LPNName   IN VARCHAR2
-                            ,CondKey   IN NUMBER
-                            ,Prefix    IN VARCHAR2) RETURN VARCHAR2 IS
-      NextVolgNr    VARCHAR2(30);
-      DeelUpper     ins_deel.ins_deel_omschrijving%TYPE;
-      ReturnString  VARCHAR2(30);
+    -- For backwards compatibility only (used in some CUST procedures) DEPRECATED!
+    FUNCTION get_description( pentityname  IN VARCHAR2
+                            , pparentkey   IN NUMBER
+                            , pprefix      IN VARCHAR2) RETURN VARCHAR2 IS
     BEGIN
-      -- 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'
+      IF pentityname = '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
+          RETURN ins.nextdescription(pprefix, NULL, '');
+      END IF;
+
+      IF pentityname = 'LPN_INS_ONDERDEEL'
+      THEN
+          RETURN ins.nextdescription(pprefix, pparentkey, '');
+      END IF;
+      RETURN 'unsupported use of ins.get_description';
+    END;
+
+    -- Determine max+1 volgnr for an object (deel or onderdeel) op basis van het format prefix+volgnummer
+    -- De laagste is 001 maar vervolgens wordt het gevonden aantal cijfers aangehouden, dus prefix0001+1 = prefix0002
+    -- Zo nodig wordt er een cijfer bij gedaan. De prefix wordt case-insensitive beschouwd.
+    FUNCTION nextdescription( pprefix      IN VARCHAR2
+                            , pparentkey   IN NUMBER
+                            , pseparator   IN VARCHAR2 DEFAULT 'default') RETURN VARCHAR2 IS
+      nextvolgnr       VARCHAR2(30);  -- overdreven
+      returnstring     ins_deel.ins_deel_omschrijving%TYPE;
+      lprefix          VARCHAR2(30);  -- overdreven, inclusief evt separator
+      lseparator       VARCHAR2(30);   -- ook overdreven
+    BEGIN
+      IF pseparator = 'default'
+      THEN
+        lseparator := fac.getsetting('ins_nr_separator');
+      ELSE
+        lseparator := pseparator;
+      END IF;
+      lprefix := pprefix || lseparator;
+      -- uniqueness is assumed over the entire database
+      IF pparentkey IS NULL
+      THEN
+        SELECT CASE
+               WHEN COALESCE(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1, 1) < 1000
+               THEN COALESCE(LPAD(TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1), MAX(LENGTH(ins_deel_upper) - LENGTH(lprefix)), '0'), '001')
+               ELSE TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1)
+               END nextvolgnr
+          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))))
+         WHERE ins_deel_upper LIKE UPPER(lprefix) || '%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1)) IS NOT NULL
+           AND LTRIM(SUBSTR (ins_deel_upper, LENGTH (lprefix) + 1), '0') = TO_CHAR(fac.safe_to_integer ((SUBSTR (ins_deel_upper, LENGTH (lprefix) + 1))))
            AND ins_deel_parent_key IS NULL
            AND ins_deel_verwijder IS NULL;
-      ELSIF LPNName = 'LPN_INS_ONDERDEEL'
+      ELSIF pparentkey IS NOT NULL
       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
+        SELECT CASE
+               WHEN COALESCE(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1, 1) < 1000
+               THEN COALESCE(LPAD(TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1), MAX(LENGTH(ins_deel_upper) - LENGTH(lprefix)), '0'), '001')
+               ELSE TO_CHAR(MAX(TO_NUMBER(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1))) + 1)
+               END nextvolgnr
+          INTO nextvolgnr
+          FROM ins_deel
+         WHERE ins_deel_upper LIKE UPPER(lprefix) || '%'
+           AND fac.safe_to_integer(SUBSTR(ins_deel_upper, LENGTH(lprefix) + 1)) IS NOT NULL
+           AND ins_deel_parent_key = pparentkey
            AND ins_deel_verwijder IS NULL;
-      ELSIF LPNName = 'LPN_ALG_TERREINSECTOR'
-      THEN
-        FOR i IN 3..10
-        LOOP
-          SELECT NVL(TO_CHAR(MAX(TO_NUMBER(SUBSTR(alg_terreinsector_code,LENGTH(alg_terreinsector_code)-(i-1),LENGTH(alg_terreinsector_code)))+1)), '***')
-            INTO NextVolgNr
-            FROM alg_v_aanwezigterreinsector
-           WHERE LTRIM(SUBSTR(alg_terreinsector_code, LENGTH(alg_terreinsector_code)-(i-1), LENGTH(alg_terreinsector_code))) BETWEEN '0' AND LPAD('9',i,'9')
-             AND alg_locatie_key = CondKey
-             AND LENGTH(alg_terreinsector_code) <= i;
-          IF  NextVolgNr = '***'
-          THEN
-            IF i = 3
-            THEN
-              NextVolgNr := '001';
-            ELSE
-              NextVolgNr := POWER(10, (i-1));
-            END IF;
-            EXIT;
-          ELSE
-            IF LENGTH(NextVolgNr) <= i
-            THEN
-              NextVolgNr:= LPAD(NextVolgNr,i,'0');
-              EXIT;
-            END IF;
-          END IF;
-        END LOOP;
-      ELSIF LPNName = 'LPN_ALG_GEBOUW'
-      THEN
-        FOR i IN 3..10
-        LOOP
-          SELECT NVL(TO_CHAR(MAX(TO_NUMBER(SUBSTR(alg_gebouw_code, LENGTH(alg_gebouw_code)-(i-1), LENGTH(alg_gebouw_code)))+1)), '***')
-            INTO NextVolgNr
-            FROM alg_v_aanweziggebouw
-           WHERE LTRIM(SUBSTR(alg_gebouw_code, LENGTH(alg_gebouw_code)-(i-1), LENGTH(alg_gebouw_code))) BETWEEN '0' AND LPAD('9',i,'9')
-             AND alg_locatie_key = CondKey
-             AND LENGTH(alg_gebouw_code) <= i;
-          IF  NextVolgNr = '***'
-          THEN
-            IF i = 3
-            THEN
-              NextVolgNr := '001';
-            ELSE
-              NextVolgNr := POWER(10, (i-1));
-            END IF;
-            EXIT;
-          ELSE
-            IF LENGTH(NextVolgNr) <= i
-            THEN
-              NextVolgNr:= LPAD(NextVolgNr,i,'0');
-              EXIT;
-            END IF;
-          END IF;
-        END LOOP;
-      ELSIF LPNName = 'LPN_ALG_RUIMTE'
-      THEN
-        FOR i IN 3..10
-        LOOP
-          SELECT NVL(TO_CHAR(MAX(TO_NUMBER(SUBSTR(alg_ruimte_nr, LENGTH(alg_ruimte_nr)-(i-1), LENGTH(alg_ruimte_nr)))+1)), '***')
-            INTO NextVolgNr
-            FROM alg_v_aanwezigruimte
-           WHERE LTRIM(SUBSTR(alg_ruimte_nr, LENGTH(alg_ruimte_nr)-(i-1), LENGTH(alg_ruimte_nr))) BETWEEN '0' AND LPAD('9',i,'9')
-             AND alg_verdieping_key = CondKey
-             AND LENGTH(alg_ruimte_nr) <= i;
-          IF  NextVolgNr = '***'
-          THEN
-            IF i = 3
-            THEN
-              NextVolgNr := '001';
-            ELSE
-              NextVolgNr := POWER(10, (i-1));
-            END IF;
-            EXIT;
-          ELSE
-            IF LENGTH(NextVolgNr) <= i
-            THEN
-              NextVolgNr:= LPAD(NextVolgNr,i,'0');
-              EXIT;
-            END IF;
-          END IF;
-        END LOOP;
-      ELSIF LPNName = 'LPN_PRS_WERKPLEK'
-      THEN
-        BEGIN
-          SELECT TO_CHAR(NVL(MAX(prs_werkplek_volgnr),0) +1)
-          INTO   NextVolgNr
-          FROM   prs_werkplek
-          WHERE  prs_alg_ruimte_key = CondKey;
-        EXCEPTION
-          WHEN NO_DATA_FOUND
-          THEN NextVolgNr := '1';
-        END;
-        /* Omschrijving */
-        BEGIN
-          SELECT alg_ruimte_nr ||' - '|| NextVolgNr
-          INTO   NextVolgNr
-          FROM   alg_ruimte
-          WHERE  alg_ruimte_key  = CondKey;
-        EXCEPTION
-          WHEN OTHERS
-          THEN NULL;
-        END;
       END IF;
-      ReturnString := Prefix||NextVolgNr;
-      RETURN ReturnString;
+      returnstring := pprefix || lseparator || nextvolgnr;
+      RETURN returnstring;
+    END;
+
+    PROCEDURE copyInsKenmerken(pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER)
+    AS
+        CURSOR c_kenmerkdeel (pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER)
+        IS
+        SELECT kd1.ins_kenmerkdeel_key, k2.ins_kenmerk_key
+          FROM ins_kenmerk      k1,
+               ins_kenmerk      k2,
+               ins_kenmerkdeel  kd1,
+               ins_srtdeel      sd2,
+               ins_srtgroep     sg2,
+               ins_srtkenmerk   sk
+         WHERE     k1.ins_srtkenmerk_key = k2.ins_srtkenmerk_key
+               AND k1.ins_kenmerk_key <> k2.ins_kenmerk_key
+               AND sk.ins_srtkenmerk_key = k1.ins_srtkenmerk_key
+               AND COALESCE (k1.ins_kenmerk_omschrijving,
+                             sk.ins_srtkenmerk_omschrijving) =
+                   COALESCE (k2.ins_kenmerk_omschrijving,
+                             sk.ins_srtkenmerk_omschrijving)
+               AND sd2.ins_srtgroep_key = sg2.ins_srtgroep_key
+               AND k1.ins_kenmerk_niveau = k2.ins_kenmerk_niveau
+               AND k1.ins_kenmerk_niveau <> 'C'
+               AND kd1.ins_kenmerk_key = k1.ins_kenmerk_key
+               AND k2.ins_srtinstallatie_key =
+                   (CASE
+                        WHEN k2.ins_kenmerk_niveau = 'D' THEN sg2.ins_discipline_key
+                        WHEN k2.ins_kenmerk_niveau = 'G' THEN sg2.ins_srtgroep_key
+                        WHEN k2.ins_kenmerk_niveau = 'S' THEN sd2.ins_srtdeel_key
+                    END)
+               AND kd1.ins_deel_key = pdeel_key
+               AND sd2.ins_srtdeel_key = ptosrtdeel_key;
+
+        CURSOR c_facbijlagen (pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER)
+        IS
+        SELECT fb1.fac_bijlagen_key, k2.ins_kenmerk_key
+          FROM ins_kenmerk     k1,
+              ins_kenmerk     k2,
+              fac_bijlagen    fb1,
+              ins_srtdeel     sd2,
+              ins_srtgroep    sg2,
+              ins_srtkenmerk  sk
+        WHERE     k1.ins_srtkenmerk_key = k2.ins_srtkenmerk_key
+              AND k1.ins_kenmerk_key <> k2.ins_kenmerk_key
+              AND sk.ins_srtkenmerk_key = k1.ins_srtkenmerk_key
+              AND COALESCE (k1.ins_kenmerk_omschrijving,
+                            sk.ins_srtkenmerk_omschrijving) =
+                  COALESCE (k2.ins_kenmerk_omschrijving,
+                            sk.ins_srtkenmerk_omschrijving)
+              AND sd2.ins_srtgroep_key = sg2.ins_srtgroep_key
+              AND k1.ins_kenmerk_niveau = k2.ins_kenmerk_niveau
+              AND k1.ins_kenmerk_niveau <> 'C'
+              AND fb1.fac_bijlagen_kenmerk_key = k1.ins_kenmerk_key
+              AND k2.ins_srtinstallatie_key =
+                  (CASE
+                        WHEN k2.ins_kenmerk_niveau = 'D' THEN sg2.ins_discipline_key
+                        WHEN k2.ins_kenmerk_niveau = 'G' THEN sg2.ins_srtgroep_key
+                        WHEN k2.ins_kenmerk_niveau = 'S' THEN sd2.ins_srtdeel_key
+                    END)
+              AND fb1.fac_bijlagen_refkey = pdeel_key
+              AND sd2.ins_srtdeel_key = ptosrtdeel_key;
+    BEGIN
+        FOR kd_upd IN c_kenmerkdeel (pdeel_key, ptosrtdeel_key)
+        LOOP
+            UPDATE ins_kenmerkdeel
+               SET ins_kenmerk_key = kd_upd.ins_kenmerk_key
+             WHERE ins_kenmerkdeel_key = kd_upd.ins_kenmerkdeel_key;
+        END LOOP;
+
+        FOR fb_upd IN c_facbijlagen (pdeel_key, ptosrtdeel_key)
+        LOOP
+            UPDATE fac_bijlagen
+               SET fac_bijlagen_kenmerk_key = fb_upd.ins_kenmerk_key
+             WHERE fac_bijlagen_key = fb_upd.fac_bijlagen_key;
+        END LOOP;
+    END;
+
+    -- omkatten van het objectsoort van een object. Controleert wat technische voorwaarden qua binding
+    -- maar kijkt niet naar bv autorisaties. Trackt alleen als er ook echt iets verandert
+    PROCEDURE altersrtdeel(pdeel_key IN NUMBER, ptosrtdeel_key IN NUMBER)
+    AS
+        fromsrtdeel_key           ins_deel.ins_srtdeel_key%TYPE;
+        fromsrtdeelomschrijving   ins_srtdeel.ins_srtdeel_omschrijving%TYPE;
+        frombinding               ins_deel.ins_alg_ruimte_type%TYPE;
+        frombindingval            NUMBER;
+        tobinding                 ins_srtdeel.ins_srtdeel_binding%TYPE;
+        tosrtdeelomschrijving     ins_srtdeel.ins_srtdeel_omschrijving%TYPE;
+    BEGIN
+        SELECT d.ins_srtdeel_key,
+              d.ins_alg_ruimte_type,
+              lcl.x ('ins_srtdeel_omschrijving', sd.ins_srtdeel_key, sd.ins_srtdeel_omschrijving)
+          INTO fromsrtdeel_key, frombinding, fromsrtdeelomschrijving
+          FROM ins_deel d, ins_srtdeel sd
+        WHERE d.ins_srtdeel_key = sd.ins_srtdeel_key AND ins_deel_key = pdeel_key;
+
+        -- frombinding is one of A(8),P(16),R(1),T(4),W(2)
+        SELECT DECODE (frombinding,  'R', 1,  'W', 2,  'T', 4,  'A', 8,  'P', 16,  32)
+          INTO frombindingval
+          FROM DUAL;
+
+        BEGIN
+            SELECT ins_srtdeel_binding,
+                  lcl.x ('ins_srtdeel_omschrijving', ins_srtdeel_key, ins_srtdeel_omschrijving)
+              INTO tobinding, tosrtdeelomschrijving
+              FROM ins_srtdeel
+            WHERE     ins_srtdeel_key = ptosrtdeel_key
+                  AND BITAND (ins_srtdeel_binding, frombindingval) = frombindingval;
+
+            IF fromsrtdeel_key <> ptosrtdeel_key
+            THEN
+                UPDATE ins_deel
+                  SET ins_srtdeel_key = ptosrtdeel_key
+                WHERE ins_deel_key = pdeel_key;
+
+                -- de redundante ins_deel.ins_discipline_key wordt door de trigger bijgewerkt
+
+                copyInsKenmerken(pdeel_key, ptosrtdeel_key);
+
+                -- het is nu mogelijk dat er kenmerken (ins_kenmerkdeel) zijn die qua definitie niet horen
+                -- tot de kenmerken van de nieuwe soort. Ik vind dat niet erg.
+
+                -- de tracking zou discipline/srtgroep/srtdeel -> discipline/srtgroep/srtdeel kunnen zijn
+                -- voor de volledigheid, maar daar mag iemand om gaan vragen, zo essentieel is dat niet
+                fac.trackaction (
+                    'INSUPD',
+                    pdeel_key,
+                    TO_NUMBER (SYS_CONTEXT ('USERENV', 'CLIENT_IDENTIFIER')),
+                    NULL,
+                    fromsrtdeelomschrijving || lcl.l ('lcl_trackto') || tosrtdeelomschrijving);
+            END IF;
+        EXCEPTION
+            WHEN NO_DATA_FOUND
+            THEN
+                DBMS_OUTPUT.put_line ('Cannot alter srtdeel: bindings do not match');
+        END;
     END;
 
     FUNCTION sprintf (ps IN varchar2, pins_deel_key IN number)
        RETURN varchar2
     IS
        lins_deel_omschrijving ins_deel.ins_deel_omschrijving%TYPE;
+       lins_deel_opmerking ins_deel.ins_deel_opmerking%TYPE;
+       lins_srtdeel_omschrijving ins_srtdeel.ins_srtdeel_omschrijving%TYPE;
        s varchar2 (2048 CHAR);
     BEGIN
        s := ps;
          -- We support substitution of placeholders in the messages
-         -- ##DESC##   = ins_deel_omschrijving
+         -- ##DESC##   = ins_deel_omschrijving (eigenlijk de ID, maar te laat om aan te passen)
+         -- ##REMARK## = ins_deel_opmerking
+         -- ##TYPE##   = ins_srtdeel_omschrijving
          IF INSTR2 (s, '#') > 0
          THEN
-           SELECT   ins_deel_omschrijving
-             INTO   lins_deel_omschrijving
-             FROM   ins_deel
-            WHERE   ins_deel_key = pins_deel_key;
-           s :=  REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key));
+           SELECT ins_deel_omschrijving, ins_deel_opmerking, ins_srtdeel_omschrijving
+             INTO lins_deel_omschrijving, lins_deel_opmerking, lins_srtdeel_omschrijving
+             FROM ins_deel id, ins_srtdeel isd
+            WHERE id.ins_srtdeel_key = isd.ins_srtdeel_key
+              AND ins_deel_key = pins_deel_key;
+           s :=  REPLACE (REPLACE (REPLACE (REPLACE (s, '##DESC##', lins_deel_omschrijving), '##KEY##', TO_CHAR (pins_deel_key)), '##REMARK##', lins_deel_opmerking), '##TYPE##', lins_srtdeel_omschrijving) ;
          END IF;
 
        RETURN s;
@@ -317,19 +395,23 @@ CREATE OR REPLACE PACKAGE BODY ins AS
          INTO   currentstatus
          FROM   ins_deelsrtcontrole
         WHERE   ins_deelsrtcontrole_key = pdlsrtcontrkey;
-       CASE pstatus
-          WHEN 0  -- Gepland
+       CASE
+          WHEN pstatus = 0  -- Gepland
           THEN
              newstatus :=  pstatus;
-          WHEN 2  -- In behandeling
+          WHEN pstatus = 2  -- In behandeling
           THEN
              newstatus :=  pstatus;
              eventcode :=  'INSCBE';
-          WHEN 5  -- Afgemeld
+          WHEN pstatus = 3 AND currentstatus = 2 -- Ter uitvoering
+          THEN
+             newstatus :=  pstatus;
+             eventcode :=  'INSCTU';
+          WHEN pstatus = 5  -- Afgemeld
           THEN
              newstatus :=  pstatus;
              eventcode :=  'INSCAF';
-          WHEN 6  -- Verwerkt
+          WHEN pstatus = 6  -- Verwerkt
           THEN
              newstatus :=  pstatus;
              eventcode :=  'INSCVE';
@@ -349,142 +431,194 @@ CREATE OR REPLACE PACKAGE BODY ins AS
        END IF;
     END;
 
-    PROCEDURE ins_daily(today IN DATE DEFAULT SYSDATE)
+    -- Return the numeric difference between the values of str1 and str2 (first minus second)
+    -- Rerturn NULL if undecided for whatever reason
+    FUNCTION state_diff (str1 IN VARCHAR, str2 IN VARCHAR)
+        RETURN NUMBER
     AS
-        CURSOR c_days(eerste_dag IN DATE, laatste_dag IN DATE)
-        IS
-            SELECT DISTINCT TRUNC(h.ins_deel_statedate) uitvoer_dag
-              FROM ins_deel_state_history h
-                 , ins_deel d
-                 , ins_srtdeel s
-             WHERE h.ins_deel_key = d.ins_deel_key
-               AND d.ins_srtdeel_key = s.ins_srtdeel_key
-               AND BITAND(s.ins_srtdeel_sensortype, 1) = 1
-               AND h.ins_deel_statedate BETWEEN eerste_dag AND (laatste_dag + 1)
-             ORDER BY 1;
+        nrval1   NUMBER (12, 5);
+        nrval2   NUMBER (12, 5);
+        retval   NUMBER;
+    BEGIN
+        nrval1 := fac.safe_to_number (REPLACE (str1, ',', '.'));
+        nrval2 := fac.safe_to_number (REPLACE (str2, ',', '.'));
 
-        CURSOR c_sensors(dag IN DATE)
-        IS
-            SELECT DISTINCT h.ins_deel_key
-              FROM ins_deel_state_history h
-                 , ins_deel d
-                 , ins_srtdeel s
-             WHERE h.ins_deel_key = d.ins_deel_key
-               AND d.ins_srtdeel_key = s.ins_srtdeel_key
-               AND BITAND(s.ins_srtdeel_sensortype, 1) = 1
-               AND h.ins_deel_statedate BETWEEN (dag) AND (dag + 1);
+        IF nrval1 IS NOT NULL AND nrval2 IS NOT NULL
+        THEN
+            retval := (nrval1 - nrval2);
+        END IF;
 
-        -- Haal de statuswijzigingen van een dag op.
-        -- De laatste status loopt tot middernacht.
-        -- Ook de status van middernacht tot de eerste statuswijziging deze dag moet worden opgehaald.
-        -- Deze kan meerdere dagen voor deze dag voor het laatst gezet zijn!
-        CURSOR c_states ( deel_key IN NUMBER
-                        , dag IN DATE)
-        IS
-            SELECT x.status
-                 , SUM(x.eindtijd - x.starttijd) totaaltijd
-              FROM (
-                        (   SELECT a.ins_deel_state  status
-                                 , dag starttijd
-                                 , min(c.ins_deel_statedate)  eindtijd
-                                 , a.ins_deel_key
-                              FROM ins_deel_state_history a
-                                 , ins_deel_state_history c
-                             WHERE a.ins_deel_key = c.ins_deel_key
-                               AND c.ins_deel_statedate BETWEEN dag AND dag+1
-                               AND a.ins_deel_statedate = (SELECT MAX(b.ins_deel_statedate)
-                                                             FROM ins_deel_state_history b
-                                                            WHERE b.ins_deel_key = a.ins_deel_key
-                                                              AND b.ins_deel_statedate < dag
-                                                          )
-                             GROUP BY a.ins_deel_key
-                                    , a.ins_deel_state
-                        )
-                        UNION
-                        (   SELECT a.ins_deel_state     status
-                                 , a.ins_deel_statedate starttijd
-                                 , least(MIN(b.ins_deel_statedate), dag+1) eindtijd
-                                 , a.ins_deel_key
-                              FROM ins_deel_state_history a
-                                 , ins_deel_state_history b
-                             WHERE a.ins_deel_key = deel_key
-                               AND a.ins_deel_statedate BETWEEN dag AND dag+1
-                               AND a.ins_deel_key = b.ins_deel_key
-                               AND a.ins_deel_state <> b.ins_deel_state
-                               AND a.ins_deel_statedate < b.ins_deel_statedate
-                             GROUP BY a.ins_deel_statedate
-                                    , a.ins_deel_state
-                                    , a.ins_deel_key
-                        )
-                   ) x
-             WHERE x.ins_deel_key = deel_key
-             GROUP BY x.status;
+        RETURN retval;
+    END;
 
-        keep_days             NUMBER(3);
+    -- The return value from state_compare is 0 if the two strings are equal,
+    -- less than 0 if str1 compares less than str2 , and greater than 0
+    -- if str1 compares greater than str2 (within the first maxlen characters).
+    FUNCTION state_compare (str1 IN VARCHAR, str2 IN VARCHAR)
+        RETURN NUMBER
+    AS
+    BEGIN
+        RETURN SIGN (state_diff (str1, str2));
+    END;
+
+    -- Return >0 if the current state of a sensorvalue exceeds the threshold
+    -- Return NULL if undecided for whatever reason (no value, no threshold, no sensor
+    -- If pdays is given, the sensorstate must be set within the last pdays days
+    -- This provides the option of neglecting an irrelevant too old value
+    FUNCTION state_thresholdcompare (pdeel_key IN NUMBER, pdays NUMBER DEFAULT NULL)
+        RETURN NUMBER
+    AS
+        lstate            ins_deel.ins_deel_state%TYPE;
+        lstatethreshold   ins_srtdeel.ins_srtdeel_statethreshold%TYPE;
+        retval            NUMBER;
+    BEGIN
+        IF pdeel_key IS NOT NULL
+        THEN
+            BEGIN
+                IF pdays IS NULL
+                THEN
+                    SELECT ins_deel_state, ins_srtdeel_statethreshold
+                      INTO lstate, lstatethreshold
+                      FROM ins_deel d, ins_srtdeel sd
+                     WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
+                           AND ins_deel_verwijder IS NULL
+                           AND d.ins_deel_key = pdeel_key;
+                ELSE
+                    SELECT ins_deel_state, ins_srtdeel_statethreshold
+                      INTO lstate, lstatethreshold
+                      FROM ins_deel d, ins_srtdeel sd
+                     WHERE     d.ins_srtdeel_key = sd.ins_srtdeel_key
+                           AND ins_deel_verwijder IS NULL
+                           AND ins_deel_statedate > SYSDATE - pdays
+                           AND d.ins_deel_key = pdeel_key;
+                END IF;
+
+                retval := state_compare (lstate, lstatethreshold);
+            EXCEPTION
+                WHEN NO_DATA_FOUND
+                THEN
+                    retval := NULL;                   -- dat wassieal maar dan is het maar duidelijk
+            END;
+        END IF;
+
+        RETURN retval;
+    END;
+
+    -- Archiveer de meetwaarde van discrete sensoren ouder danins_state_history dagen
+    -- naar een dag-histogram zodat je er nog wel daggemiddelden van hebt maar
+    -- niet meer de granulaire ballast.
+    -- parameter pdontdelete is alleen voor testers
+    PROCEDURE compress_states (pdodelete IN NUMBER DEFAULT 1)
+    AS
+        CURSOR c_days (eerste_dag IN DATE, laatste_dag IN DATE)
+        IS
+              SELECT DISTINCT TRUNC (h.ins_deel_statedate) uitvoer_dag
+                FROM ins_deel_state_history h
+                   , ins_deel d
+                   , ins_srtdeel s
+               WHERE     h.ins_deel_key = d.ins_deel_key
+                     AND d.ins_srtdeel_key = s.ins_srtdeel_key
+                     AND BITAND (s.ins_srtdeel_sensortype, 1) = 1
+                     AND h.ins_deel_statedate BETWEEN eerste_dag AND (laatste_dag + 1)
+            ORDER BY 1;
+
+        keep_days             NUMBER (3);
         first_day_available   DATE;
         last_day_compressed   DATE;
         start_day_compress    DATE;
         end_day_compress      DATE;
     BEGIN
-        -- Setting aantal dagen history ophalen.
-        SELECT COALESCE(fac_setting_default, fac_setting_pvalue)
-          INTO keep_days
-          FROM fac_setting
-         WHERE fac_setting_name = 'ins_state_history';
-
+        -- Tot hoeveel dagen terug houden we de ruwe data?
+        keep_days := TO_NUMBER (fac.getsetting ('ins_state_history'));
         -- dbms_output.put_line('today: '||to_char(today,'dd-mm-yyyy'));
         -- Vandaag comprimeren mag niet want je weet niet of je alle meetwaarden al hebt.
-        end_day_compress := TRUNC(today);
-        IF (end_day_compress = TRUNC(sysdate))
+        end_day_compress := TRUNC (SYSDATE) - keep_days;
+
+        IF (end_day_compress = TRUNC (SYSDATE))
         THEN
-            end_day_compress := end_day_compress -1;
+            end_day_compress := end_day_compress - 1;
         END IF;
 
         -- Voor welke dagen moet ins_deel_state_history gecomprimeerd worden?
-        -- (voor het geval ins_daily een aantal dagen niet heeft gewerkt.)
-        SELECT TRUNC(COALESCE(MIN(ins_deel_statedate), end_day_compress))
+        -- (voor het geval compress_states een aantal dagen niet heeft gewerkt.)
+        SELECT TRUNC (COALESCE (MIN (ins_deel_statedate), end_day_compress))
           INTO first_day_available
           FROM ins_deel_state_history;
-        -- dbms_output.put_line('first_day_available: ' ||to_char(first_day_available,'dd-mm-yyyy'));
 
-        SELECT COALESCE(TRUNC(MAX(ins_deel_statedate)), first_day_available)
+        -- dbms_output.put_line('first_day_available: ' ||to_char(first_day_available,'dd-mm-yyyy'));
+        SELECT COALESCE (TRUNC (MAX (ins_deel_statedate)), first_day_available)
           INTO last_day_compressed
           FROM ins_deel_state_history_all;
-        -- dbms_output.put_line('last_day_compressed: ' ||to_char(last_day_compressed,'dd-mm-yyyy'));
 
-        SELECT GREATEST(first_day_available, (last_day_compressed + 1))
+        -- dbms_output.put_line('last_day_compressed: ' ||to_char(last_day_compressed,'dd-mm-yyyy'));
+        SELECT GREATEST (first_day_available, (last_day_compressed + 1))
           INTO start_day_compress
           FROM DUAL;
-        -- dbms_output.put_line('Compress from '||to_char(start_day_compress,'dd-mm-yyyy')||' to '||to_char(end_day_compress,'dd-mm-yyyy'));
 
-        FOR r_day IN c_days(start_day_compress, end_day_compress)
+        --DBMS_OUTPUT.put_line ('Compress from '|| TO_CHAR (start_day_compress, 'dd-mm-yyyy')||' to '|| TO_CHAR (end_day_compress, 'dd-mm-yyyy'));
+
+        FOR r_day IN c_days (start_day_compress, end_day_compress)
         LOOP
-            -- dbms_output.put_line('Compress '||to_char(r_day.uitvoer_dag,'dd-mm-yyyy'));
-            FOR r_sensor IN c_sensors(r_day.uitvoer_dag)
-            LOOP
-                -- dbms_output.put_line('sensor: '||r_sensor.ins_deel_key);
-                FOR r_state IN c_states(r_sensor.ins_deel_key, r_day.uitvoer_dag)
-                LOOP
-                     -- dbms_output.put_line('-  '||to_char(r_sensor.ins_deel_key)||' '||r_state.status||' '||to_char(r_state.totaaltijd));
-                     INSERT INTO ins_deel_state_history_all
-                     ( ins_deel_key
-                     , ins_deel_statedate
-                     , ins_deel_state
-                     , ins_deel_statetime
-                     ) VALUES
-                     ( r_sensor.ins_deel_key
-                     , r_day.uitvoer_dag
-                     , r_state.status
-                     , r_state.totaaltijd
-                     );
-                END LOOP;
-            END LOOP;
+            --DBMS_OUTPUT.put_line ('Compress ' || TO_CHAR (r_day.uitvoer_dag, 'dd-mm-yyyy'));
+            --
+            -- Haal de statuswijzigingen per dag. De laatste status loopt tot middernacht.
+            -- Ook de status van middernacht tot de eerste statuswijziging deze dag moet worden opgehaald.
+            -- Deze kan meerdere dagen voor deze dag voor het laatst gezet zijn!
+
+            INSERT INTO ins_deel_state_history_all (ins_deel_key,
+                                                    ins_deel_statedate,
+                                                    ins_deel_state,
+                                                    ins_deel_statetime)
+                  SELECT x.ins_deel_key,
+                         r_day.uitvoer_dag,
+                         x.status,
+                         ROUND (SUM (x.eindtijd - x.starttijd), 3) totaaltijd
+                    FROM ((  SELECT a.ins_deel_state       status,
+                                    r_day.uitvoer_dag      starttijd,
+                                    MIN (c.ins_deel_statedate) eindtijd,
+                                    a.ins_deel_key
+                               FROM ins_deel_state_history a, ins_deel_state_history c
+                              WHERE     a.ins_deel_key = c.ins_deel_key
+                                    AND c.ins_deel_statedate BETWEEN r_day.uitvoer_dag
+                                                                 AND r_day.uitvoer_dag + 1
+                                    AND a.ins_deel_statedate =
+                                        (SELECT MAX (b.ins_deel_statedate)
+                                           FROM ins_deel_state_history b
+                                          WHERE     b.ins_deel_key = a.ins_deel_key
+                                                AND b.ins_deel_statedate < r_day.uitvoer_dag)
+                           GROUP BY a.ins_deel_key, a.ins_deel_state)
+                          UNION
+                          (  SELECT a.ins_deel_state                                      status,
+                                    a.ins_deel_statedate                                  starttijd,
+                                    LEAST (MIN (b.ins_deel_statedate), r_day.uitvoer_dag + 1) eindtijd,
+                                    a.ins_deel_key
+                               FROM ins_deel_state_history a, ins_deel_state_history b
+                              WHERE     a.ins_deel_statedate BETWEEN r_day.uitvoer_dag
+                                                                 AND r_day.uitvoer_dag + 1
+                                    AND a.ins_deel_key = b.ins_deel_key
+                                    AND a.ins_deel_state <> b.ins_deel_state
+                                    AND a.ins_deel_statedate < b.ins_deel_statedate
+                           GROUP BY a.ins_deel_statedate, a.ins_deel_state, a.ins_deel_key)) x
+                GROUP BY x.ins_deel_key, x.status
+                ORDER BY 1, 2;
+
             COMMIT;
         END LOOP;
-        --
-        -- Verwijder alle records uit ins_deel_state_history ouder dan x dagen.
-        DELETE FROM ins_deel_state_history
-         WHERE TRUNC(ins_deel_statedate) <= TRUNC(SYSDATE - keep_days);
+
+        IF pdodelete = 1
+        THEN
+            -- Verwijder alle records uit ins_deel_state_history ouder dan keep_days dagen.
+            -- dat is van de discrete sensoren die zojuist gearchiveer zijn,
+            -- maar dus ook de van de meetwaardesensoren, die willen we niet behouden
+            -- besloten we vooralsnog. Mocht er data van niet-sensoren staan (illegaal)
+            -- dan gooien we die niet weg.
+            DELETE FROM ins_deel_state_history
+                  WHERE ins_deel_statedate <= TRUNC (SYSDATE - keep_days)
+                    AND ins_deel_key IN
+                    (SELECT ins_deel_key
+                       FROM ins_deel d, ins_srtdeel s
+                      WHERE d.ins_srtdeel_key = s.ins_srtdeel_key AND s.ins_srtdeel_sensortype <> 0);
+        END IF;
     END;
 
 END ins;

INS/INS_SEQ.SRC

@@ -32,12 +32,9 @@ 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;
-
 CREATE SEQUENCE ins_s_ins_disc_params_key START WITH 1 NOCACHE;
-
 CREATE SEQUENCE ins_s_ins_deel_note_key MINVALUE 1;
-
-
+CREATE SEQUENCE ins_s_ins_deel_uitgifte_key MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

INS/INS_TAB.SRC

@@ -31,13 +31,13 @@ CREATE_TABLE(ins_srtdiscipline,0)
     ins_srtdiscipline_mld
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_mld CHECK(ins_srtdiscipline_mld IN (0,1)),
-    ins_srtdiscipline_bes  /* reserved for future use */
+    ins_srtdiscipline_bes
         NUMBER(1) DEFAULT (0)
-        CONSTRAINT ins_c_ins_srtdiscipline_bes CHECK(ins_srtdiscipline_bes IN (0,1)),
+        CONSTRAINT ins_c_ins_srtdiscipline_bes CHECK(ins_srtdiscipline_bes IN (0,1,2)),
     ins_srtdiscipline_prs  /* reserved for future use */
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_prs CHECK(ins_srtdiscipline_prs IN (0,1)),
-    ins_srtdiscipline_res  /* reserved for future use */
+    ins_srtdiscipline_res
         NUMBER(1) DEFAULT (0)
         CONSTRAINT ins_c_ins_srtdiscipline_res CHECK(ins_srtdiscipline_res IN (0,1)),
     ins_srtdiscipline_cnt  /* reserved for future use */
@@ -162,6 +162,16 @@ ALTER TABLE fac_import_app ADD
         REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
 );
 
+ALTER TABLE fac_faq ADD
+    faq_ins_discipline_key
+        NUMBER(10)
+        NOT_NULL(faq_ins_discipline_key, faq_c_ins_discipline_key)
+        CONSTRAINT faq_r_ins_discipine_key REFERENCES ins_tab_discipline(ins_discipline_key);
+
+ALTER TABLE faq_kenmerk
+     ADD CONSTRAINT faq_c_faq_kenmerk_discipline FOREIGN KEY(faq_discipline_key)
+     REFERENCES ins_tab_discipline(ins_discipline_key);
+
 CREATE_TABLE(ins_srtgroep,0)
 (
     ins_srtgroep_key
@@ -247,6 +257,10 @@ CREATE_TABLE(ins_srtdeel,0)
         NUMBER(16,3),
     ins_srtdeel_acadsymbol_dwgy
         NUMBER(16,3),
+    ins_srtdeel_acadlabelsize
+        NUMBER(5),
+    ins_srtdeel_acadlabelpos
+        NUMBER(1),
     ins_srtdeel_acad_tagvalue /* TAGVALUE vanuit ACAD */
         VARCHAR2(30),
     ins_srtdeel_cadlayer
@@ -296,6 +310,13 @@ CREATE_TABLE(ins_srtdeel,0)
         NUMBER(3)
         DEFAULT 0
         NOT NULL,
+    ins_srtdeel_statethreshold /* drempelwaarde waarboven een melding type mld_stdmelding_key aangemaakt moet worden */
+        VARCHAR2(128),
+/* in mld_tab.src:
+  mld_stdmelding_key
+       NUMBER(10)
+       CONSTRAINT mld_r_mld_stdmelding_key12 REFERENCES mld_stdmelding
+*/
      CONSTRAINT ins_c_ins_srtdeel_binding CHECK ((ins_srtdeel_module ='INS' AND ins_srtdeel_binding > 0) OR ins_srtdeel_module <> 'INS')
 );
 
@@ -416,6 +437,8 @@ CREATE_TABLE(ins_deel,0)
         VARCHAR2(256),
     ins_deel_externsyncdate
         DATE,
+    ins_deel_flag
+        NUMBER(1),
 -- In: PRS_TAB.SRC
 --    prs_perslid_key_beh
 --        NUMBER(10)
@@ -540,6 +563,9 @@ CREATE_TABLE(ins_srtcontrole, 0)
         CONSTRAINT ins_c_srtcontrole_percentage CHECK(ins_srtcontrole_percentage BETWEEN 0 AND 100),
     ins_srtcontrole_opmerking
         VARCHAR2(320),
+    ins_srtcontrole_opmerking_text
+        NUMBER(1)
+        DEFAULT(0) NOT NULL,
     ins_srtcontrole_eind  // hier eindigt deze
         DATE,
     ins_srtcontrole_options   /* bitwise: 1=(kan)inplannen, 2=(kan)starten, 4=(kan)afmelden, 8=(kan)voltooien */
@@ -656,6 +682,11 @@ CREATE_TABLE(ins_srtcontroledl_xcp, 0)
          CONSTRAINT ins_r_ins_scenario_key2 REFERENCES ins_scenario(ins_scenario_key)  ON DELETE CASCADE,
 		ins_srtcontroledl_xcp_opmerk
         VARCHAR2(320),
+/* in prs_tab.src:
+    prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT ins_r_prs_kostenplaats_key2 REFERENCES prs_kostenplaats(prs_kostenplaats_key),
+*/
     CONSTRAINT ins_u_ins_srtcontroledl_xcp UNIQUE (ins_deel_key, ins_srtcontrole_key, ins_scenario_key)
 );
 
@@ -670,7 +701,8 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
        NOT NULL REFERENCES ins_deel ON DELETE CASCADE,
     ins_srtcontrole_key
        NUMBER(10)
-       NOT NULL REFERENCES ins_srtcontrole ON DELETE CASCADE,
+       NOT NULL
+       CONSTRAINT ins_r_ins_srtcontrole_key1 REFERENCES ins_srtcontrole(ins_srtcontrole_key),
     ins_deelsrtcontrole_datum
        DATE,
     ins_deelsrtcontrole_datum_org
@@ -684,7 +716,7 @@ CREATE_TABLE(ins_deelsrtcontrole, 0)
         VARCHAR(4000 CHAR),
     ins_deelsrtcontrole_plandatum
        DATE,
-    ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 5;Afgemeld/Gereed gemeld; 6;Afgerond)
+    ins_deelsrtcontrole_status // (vooralsnog 0;Ingepland 2;Gestart/In behandeling 3;Ter uitvoering 5;Afgemeld/Gereed gemeld; 6;Afgerond)
        NUMBER(1)
        DEFAULT (6)
        CONSTRAINT ins_c_deelsrtcontrole_status NOT NULL,
@@ -736,11 +768,12 @@ CREATE_TABLE(ins_srtkenmerk, 0)
    ins_srtkenmerk_upper
       VARCHAR2(50)
       NOT_NULL(ins_srtkenmerk_upper, ins_c_ins_srtkenmerk_upper),
+   ins_srtkenmerk_code
+      VARCHAR2(60),
    ins_srtkenmerk_dimensie
       VARCHAR2(10),
    ins_srtkenmerk_kenmerktype
-      VARCHAR2(1)
-      CONSTRAINT ins_c_ins_srtkenmerk_kenmtype CHECK(ins_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V')),
+      VARCHAR2(1),
    ins_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list
       NUMBER(2)
       DEFAULT 0 NOT NULL,
@@ -784,14 +817,18 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_niveau
       VARCHAR2(1)
       CONSTRAINT ins_c_ins_kenmerk_niveau2 CHECK
-            (ins_kenmerk_niveau IS NOT NULL AND (ins_kenmerk_niveau IN('D', 'G', 'S', 'C'))),  /* C=srtcontrole */
+            (ins_kenmerk_niveau IS NOT NULL AND (ins_kenmerk_niveau IN ('D', 'G', 'S', 'T', 'C', 'E'))),  /* D=Discipline, G=Objectgroep, S=Objectsoort, T=Alle taken, C=Periodiek taken, E=Taakcategorie */
    ins_kenmerk_bewerkniveau /* Kenmerk behoort bij individueel Deel of algemeen Srtdeel */
         VARCHAR2(1) DEFAULT 'D' NOT NULL
         CONSTRAINT ins_c_ins_kenmerk_bewerk CHECK(ins_kenmerk_bewerkniveau IN ('D', 'S')),
    ins_kenmerk_omschrijving
       VARCHAR2(50), /* optionele overrule van srtkenmerk_omschrijving */
+   ins_kenmerk_code
+      VARCHAR2(60),
    ins_kenmerk_verplicht
       NUMBER(1),
+   ins_kenmerk_verplicht_status
+      NUMBER(1),
    ins_kenmerk_groep
       NUMBER(1)
       DEFAULT 0 NOT NULL,
@@ -799,6 +836,9 @@ CREATE_TABLE(ins_kenmerk, 0)
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_toonbaar CHECK(ins_kenmerk_toonbaar IS NULL
                                                OR ins_kenmerk_toonbaar = 1),
+   ins_kenmerk_inlijst
+      NUMBER(1)
+      DEFAULT 0 NOT NULL,
    ins_kenmerk_meetwaarde
       NUMBER(1)
       CONSTRAINT ins_c_ins_kenmerk_meetwaarde CHECK(ins_kenmerk_meetwaarde IS NULL
@@ -829,7 +869,10 @@ CREATE_TABLE(ins_kenmerk, 0)
    ins_kenmerk_verwijder
       DATE
       DEFAULT NULLDATUM,
-   CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL OR ins_kenmerk_niveau = 'D'),
+   fac_functie_key
+      NUMBER(10)
+      CONSTRAINT fac_r_ins_kenmerk_functie REFERENCES fac_functie (fac_functie_key),
+   CONSTRAINT ins_r_ins_srtinstallatie_key1 CHECK(ins_srtinstallatie_key IS NOT NULL OR ins_kenmerk_niveau IN ('D', 'T')),
    CONSTRAINT ins_u_ins_kenmerk UNIQUE(ins_srtkenmerk_key, ins_srtinstallatie_key, ins_kenmerk_niveau, ins_kenmerk_omschrijving, ins_kenmerk_groep, ins_kenmerk_verwijder)
 );
 
@@ -989,7 +1032,7 @@ CREATE_TABLE(ins_disc_params,0)
   ins_disc_params_key          NUMBER(10),
   ins_discipline_key           NUMBER(10),
   ins_disc_params_cadlayers    VARCHAR2(500),
-  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten */
+  ins_disc_params_type         NUMBER(2) DEFAULT 0,   /* bitwise: 1=binnen, 2=buiten 1+2=binnen en buiten, 4=?, 8=?, 16=hide label? */
   ins_disc_params_autonum      NUMBER(2) DEFAULT 3,   /* bitwise: 0=niet automatisch, +1=automatisch, +2=wijzigbaar  (1,2,3 zijn zinvol)*/
   CONSTRAINT ins_c_ins_discipline_key CHECK (ins_discipline_key IS NOT NULL),
   CONSTRAINT ins_k_res_disc_params_key PRIMARY KEY (ins_disc_params_key),
@@ -1013,12 +1056,37 @@ CREATE_TABLE(ins_deel_note,0)
 // Note: this column is defined in PRS_TAB.SRC
 //    prs_perslid_key
 //        NUMBER(10)
-//        REFERENCES prs_perslid (prs_perslid_key)
-//        ON DELETE SET NULL,
+//        REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
     ins_deel_note_omschrijving
         VARCHAR2(4000)
 );
 
+CREATE_TABLE(ins_deel_uitgifte, 0)
+(
+    ins_deel_uitgifte_key
+        NUMBER(10)
+        PRIMARY KEY,
+    ins_deel_key
+        NUMBER (10)
+        NOT NULL
+        CONSTRAINT ins_r_ins_deel_key4 REFERENCES ins_deel(ins_deel_key) ON DELETE CASCADE,
+    ins_deel_uitgifte_begin
+        DATE,
+    ins_deel_uitgifte_eind_plan
+        DATE,
+    ins_deel_uitgifte_ingeleverd
+        DATE,
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_perslid_key
+//        NUMBER (10)
+//        CONSTRAINT ins_r_prs_perslid_key1 REFERENCES prs_perslid (prs_perslid_key) ON DELETE CASCADE,
+// Note: this column is defined in PRS_TAB.SRC
+//    prs_contactpersoon_key
+//        NUMBER (10)
+//        CONSTRAINT ins_r_prs_contactpersoon_key REFERENCES prs_contactpersoon(prs_contactpersoon_key) ON DELETE CASCADE,
+    CONSTRAINT ins_u_ins_deel_ingeleverd UNIQUE (ins_deel_key, ins_deel_uitgifte_ingeleverd)  -- Er mag geen dubbele uitgifte (ins_deel_ingeleverd IS NULL) zijn.
+);
+
 REGISTERONCE('$Id$')
 
 #endif  // INS

INS/INS_TRI.SRC

@@ -46,14 +46,14 @@ BEGIN
                    OR m.mld_ins_discipline_key = :new.ins_discipline_key)
             AND   m.mld_stdmelding_key = stdm.mld_stdmelding_key
             AND   m.mld_melding_status IN (0,2,3,4,7);
-         raise_application_error (-20000, 'ins_m999 Vakgroep heeft nog open meldingen');
+         raise_application_error(-20001, 'ins_m999 Vakgroep heeft nog open meldingen');
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             NULL;
          WHEN TOO_MANY_ROWS
          THEN
-            raise_application_error (-20000, 'ins_m999 Vakgroep heeft nog open meldingen');
+            raise_application_error(-20001, 'ins_m999 Vakgroep heeft nog open meldingen');
       END;
    END IF;
 
@@ -78,14 +78,14 @@ BEGIN
                   AND isg.ins_discipline_key = :new.ins_discipline_key
                   AND bo.bes_bestelopdr_status IN (2, 3, 4, 5);
 
-         raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
+         raise_application_error(-20001, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             NULL;
          WHEN TOO_MANY_ROWS
          THEN
-            raise_application_error (-20000, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
+            raise_application_error(-20001, 'ins_m999 Catalogus heeft nog open bestelopdrachten');
       END;
    END IF;
 
@@ -103,14 +103,14 @@ BEGIN
             AND   c.cnt_contract_status = 0
             AND   c.cnt_contract_verwijder IS NULL
             AND   c.cnt_contract_looptijd_tot >= SYSDATE;
-         raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+         raise_application_error(-20001, 'ins_m999 Contractsoort heeft nog actieve contracten');
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN
             NULL;
          WHEN TOO_MANY_ROWS
          THEN
-            raise_application_error (-20000, 'ins_m999 Contractsoort heeft nog actieve contracten');
+            raise_application_error(-20001, 'ins_m999 Contractsoort heeft nog actieve contracten');
       END;
    END IF;
 
@@ -170,10 +170,10 @@ BEGIN
         INTO   dummy
         FROM   cnt_v_aanwezigcontract_object
         WHERE  cnt_v_aanwezigcontract_object.cnt_ins_srtdeel_key = :old.ins_srtdeel_key;
-        APPLICATION_ERROR_GOTO(-20000,'cnt_m029');
+        raise_application_error(-20000, 'cnt_m029');
       EXCEPTION
         WHEN NO_DATA_FOUND THEN NULL;
-        WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000,'cnt_m029');
+        WHEN TOO_MANY_ROWS THEN raise_application_error(-20000, 'cnt_m029');
       END;
     END IF;
 //</CNT>
@@ -207,7 +207,8 @@ BEGIN
        FROM   cnt_v_aanwezigcontract_object, cnt_v_aanwezigcontract
        WHERE  cnt_v_aanwezigcontract_object.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
           AND cnt_v_aanwezigcontract_object.cnt_ins_deel_key = :old.ins_deel_key
-          AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate;
+          AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
+          AND cnt_v_aanwezigcontract.cnt_contract_status <> 1;
        raise_application_error(-20000, 'cnt_m030');
      EXCEPTION
        WHEN NO_DATA_FOUND THEN NULL;
@@ -235,7 +236,7 @@ BEGIN
          AND O.mld_melding_key = M.mld_melding_key
          AND M.mld_melding_status IN (0,2,3,4,7);
  	  IF lCount > 0 THEN
-          APPLICATION_ERROR_GOTO(-20000,'ins_m202');
+          raise_application_error(-20000, 'ins_m202');
       ELSE
         Dummy1 := fac.remember_SavePrimaryKey('INS_DEEL_ONTKOPPEL', :new.ins_deel_key);
       END IF;
@@ -319,8 +320,11 @@ BEGIN
       ELSIF :new.ins_alg_ruimte_type = 'P'
       THEN
          CHECK_KEY_REFERENCE(prs_v_aanwezigperslid      , prs_perslid_key      , :new.ins_alg_ruimte_key, 'ins_m195');
+      ELSIF :new.ins_alg_ruimte_type IS NULL
+      THEN
+         CHECK_KEY_REFERENCE(ins_v_aanwezigdeel      , ins_deel_key      , :new.ins_alg_ruimte_key, 'ins_m205');
       ELSE
-         APPLICATION_ERROR_GOTO(-20000, 'ins_m84');
+         raise_application_error(-20000, 'ins_m84');
       END IF;
       DECLARE
          Dummy BOOLEAN;
@@ -337,49 +341,261 @@ BEGIN
 END;
 /
 
-CREATE_TRIGGER(ins_t_ins_deel_A_U)
+-- vul de sensorwaarde datumtijd (alleen) als die met een mutatie van de waarde niet werd meegegeven
+CREATE_TRIGGER(ins_t_ins_deel_b_u)
+    BEFORE UPDATE
+    ON ins_deel
+    FOR EACH ROW
+BEGIN
+    IF UPDATING ('ins_deel_state') AND NOT UPDATING ('ins_deel_statedate')
+    THEN
+        :new.ins_deel_statedate := SYSDATE;
+    END IF;
+END;
+/
+
+CREATE OR REPLACE 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;
+    lmelder_oslogin     CONSTANT VARCHAR2 (10) := '_SYSTEEM';
+    new_date                     DATE;
+    prev_state                   ins_deel_state_history.ins_deel_state%TYPE;
+    lstate_history_key           ins_deel_state_history.ins_deel_state_history_key%TYPE;
+    ins_srtdeel_statethreshold   ins_srtdeel.ins_srtdeel_statethreshold%TYPE;
+    ldubbelcheck_key             mld_melding.mld_melding_key%TYPE;
+    lstdmelding_key              ins_srtdeel.mld_stdmelding_key%TYPE;
+    ldiscipline_key              mld_stdmelding.mld_ins_discipline_key%TYPE;
+    lstatethreshold              ins_srtdeel.ins_srtdeel_statethreshold%TYPE;
+    lmelding_key                 mld_melding.mld_melding_key%TYPE;
+    lmelder_key                  mld_melding.prs_perslid_key%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
-     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
-            BEGIN
-               SELECT ins_deel_state
-                 INTO prev_state
-                 FROM ins_deel_state_history
-                WHERE ins_deel_state_history_key =
-                         (SELECT MAX (ins_deel_state_history_key)
-                            FROM ins_deel_state_history
-                           WHERE ins_deel_key = :new.ins_deel_key
-                             AND ins_deel_statedate < new_date);
-            EXCEPTION
-               WHEN NO_DATA_FOUND THEN NULL;
-            END;
+    -- archiving chances in state_history
+    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
+        BEGIN
+            new_date := COALESCE (:new.ins_deel_statedate, SYSDATE); -- voorkom dat de update *net* een seconde later kan zijn
 
-            IF (prev_state = :new.ins_deel_state)
+            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))
+              RETURNING ins_deel_state_history_key
+                   INTO lstate_history_key;
+        EXCEPTION
+            WHEN DUP_VAL_ON_INDEX
             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;
+                BEGIN
+                    SELECT ins_deel_state
+                      INTO prev_state
+                      FROM ins_deel_state_history
+                     WHERE ins_deel_state_history_key =
+                           (SELECT MAX (ins_deel_state_history_key)
+                              FROM ins_deel_state_history
+                             WHERE     ins_deel_key = :new.ins_deel_key
+                                   AND ins_deel_statedate < new_date);
+                EXCEPTION
+                    WHEN NO_DATA_FOUND
+                    THEN
+                        NULL;
+                END;
+
+                IF (prev_state = :new.ins_deel_state)
+                THEN
+                    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;
+
+    -- potentially trigger dependent actions
+    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
+        BEGIN
+            SELECT ins_srtdeel_statethreshold, mld_stdmelding_key
+              INTO lstatethreshold, lstdmelding_key
+              FROM ins_srtdeel
+             WHERE ins_srtdeel_key = :new.ins_srtdeel_key;
+
+            IF     lstatethreshold IS NOT NULL
+               AND lstdmelding_key IS NOT NULL
+               AND ins.state_compare (:new.ins_deel_state, lstatethreshold) > 0
+               AND ins.state_compare (:old.ins_deel_state, lstatethreshold) <= 0
+            THEN
+                -- Eerst controleren of er niet al een "heel recente" melding bestaat
+                -- waarmee deze zou kunnen gaan overlappen. We hebben geen behoefte aan veel meer
+                -- meldingen over hetzelfde, wellicht zou het iets over de urgentie zeggen..
+                --
+                BEGIN
+                    SELECT prs_perslid_key
+                      INTO lmelder_key
+                      FROM prs_perslid
+                     WHERE prs_perslid_oslogin = lmelder_oslogin AND prs_perslid_verwijder IS NULL;
+                EXCEPTION
+                    WHEN NO_DATA_FOUND
+                    THEN
+                        fac.putsystemnotification ('Invalid configuration: missing _SYSTEEM user',
+                                                   1);
+                END;
+
+                IF lmelder_key IS NOT NULL
+                THEN
+                    -- Ik denk dat het voorlopig voldoende is om te checken dat *wij* hier niet al eerder
+                    -- een automatische melding hebben gegenereerd. Handmatige parallelle meldingen
+                    -- beschouwen we niet. We willen primair voorkomen dat er in een paar minuten tientallen
+                    -- meldingen ontstaan omdat de waarde rond de limiet flippert. Een daalmarge zou
+                    -- een ander mechanisme hiertegen kunnen zijn, maar dit is intrinsieker.
+                    -- Ik zoek de goedkoopst mogelijk check, ik weet hier al zeker dat we (weer)
+                    -- de limiet overschrijden. We nemen de tijd niet in beschouwing, omdat voor de ene
+                    -- toepassing 1 minuut recent is, en voor een andere misschien een maand.
+                    BEGIN
+                        SELECT m.mld_melding_key
+                          INTO ldubbelcheck_key
+                          FROM mld_melding m, mld_melding_object mo
+                         WHERE     m.mld_melding_key = mo.mld_melding_key
+                               AND mo.ins_deel_key = :new.ins_deel_key
+                               AND m.mld_stdmelding_key = lstdmelding_key
+                               AND m.prs_perslid_key = lmelder_key
+                               AND m.mld_melding_status IN (2,
+                                                            0,
+                                                            4,
+                                                            7);                            -- lopend
+
+                        IF ldubbelcheck_key IS NOT NULL -- puur voor de leesbaarheid, als er geen is gaan we nl in de exception verder
+                        THEN
+                            -- track this. This seems like an appropriate place.
+                            UPDATE ins_deel_state_history
+                               SET ins_deel_state_history_opmerk =
+                                       REPLACE (
+                                           REPLACE (lcl.l ('lcl_ins_sensorstate_already_mld'),
+                                                    '{0}',
+                                                    lmelding_key),
+                                           '{1}',
+                                           lstatethreshold)
+                             WHERE ins_deel_state_history_key = lstate_history_key;
+                        END IF;
+                    EXCEPTION
+                        WHEN NO_DATA_FOUND
+                        THEN
+                            BEGIN
+                                -- dit zou de trigger van mld_melding wel mogen doen..
+                                SELECT msm.mld_ins_discipline_key
+                                  INTO ldiscipline_key
+                                  FROM mld_stdmelding msm
+                                 WHERE msm.mld_stdmelding_key = lstdmelding_key;
+
+                                INSERT INTO mld_melding (mld_melding_module,
+                                                         mld_meldbron_key,
+                                                         mld_alg_locatie_key,
+                                                         mld_alg_onroerendgoed_keys,
+                                                         mld_melding_datum,
+                                                         mld_melding_onderwerp,
+                                                         mld_melding_omschrijving,
+                                                         mld_stdmelding_key,
+                                                         mld_melding_status,
+                                                         mld_kosten_klant,
+                                                         prs_perslid_key,
+                                                         mld_melding_spoed,
+                                                         mld_ins_discipline_key)
+                                     VALUES (
+                                                'MLD',
+                                                11,                                        -- sensor
+                                                :new.ins_alg_locatie_key,
+                                                :new.ins_alg_ruimte_key,
+                                                SYSDATE,
+                                                lcl.l ('lcl_mld_state_generated_onderwerp'),
+                                                REPLACE (
+                                                    REPLACE (
+                                                        lcl.l (
+                                                            'lcl_mld_state_generated_omschrijving'),
+                                                        '{0}',
+                                                        :new.ins_deel_state),
+                                                    '{1}',
+                                                    lstatethreshold),
+                                                lstdmelding_key,
+                                                2,                         -- of afh mld_directklaar
+                                                NULL,
+                                                lmelder_key,          --TODO!!!!!!! prs_perslid_key,
+                                                3,
+                                                ldiscipline_key)
+                                  RETURNING mld_melding_key
+                                       INTO lmelding_key;
+
+                                --en het sensorobject erbij registreren
+                                INSERT INTO mld_melding_object (ins_deel_key, mld_melding_key)
+                                     VALUES (:new.ins_deel_key, lmelding_key);
+
+                                -- track this. This seems like an appropriate place.
+                                UPDATE ins_deel_state_history
+                                   SET ins_deel_state_history_opmerk =
+                                           REPLACE (
+                                               REPLACE (lcl.l ('lcl_ins_sensorstate_caused_mld'),
+                                                        '{0}',
+                                                        lmelding_key),
+                                               '{1}',
+                                               lstatethreshold)
+                                 WHERE ins_deel_state_history_key = lstate_history_key;
+
+                                -- If defined kick off the workflow
+                                mld.mld_nextworkflowstep (lmelding_key, -1);
+                            END;
+                    END;
+                END IF;
             END IF;
-      END;
-   END IF;
+        END;
+    END IF;
+
+    -- Uitlenen object: Uitgifte object toevoegen aan de uitgifte tabel.
+    IF    (:old.ins_alg_ruimte_key_org IS NULL AND :new.ins_alg_ruimte_key_org IS NOT NULL)
+      AND (:old.ins_alg_ruimte_type_org IS NULL AND :new.ins_alg_ruimte_type_org IS NOT NULL)
+      AND (:new.ins_alg_ruimte_type = 'C' OR :new.ins_alg_ruimte_type = 'P')
+    THEN
+        BEGIN
+            INSERT INTO ins_deel_uitgifte (ins_deel_key
+                                        ,  ins_deel_uitgifte_begin
+                                        ,  ins_deel_uitgifte_eind_plan
+                                        ,  prs_perslid_key
+                                        ,  prs_contactpersoon_key)
+                                   VALUES (:new.ins_deel_key
+                                        ,  SYSDATE
+                                        ,  CASE
+                                           WHEN :new.res_rsv_deel_key IS NOT NULL
+                                           THEN (SELECT rrd.res_rsv_deel_tot
+                                                   FROM res_rsv_deel rrd
+                                                  WHERE res_rsv_deel_key = :new.res_rsv_deel_key)
+                                           ELSE NULL
+                                           END
+                                        ,  CASE
+                                           WHEN :new.ins_alg_ruimte_type = 'P'
+                                           THEN :new.ins_alg_ruimte_key
+                                           ELSE NULL
+                                           END
+                                        ,  CASE
+                                           WHEN :new.ins_alg_ruimte_type = 'C'
+                                           THEN :new.ins_alg_ruimte_key
+                                           ELSE NULL
+                                           END);
+        END;
+    END IF;
+
+    -- Innemen object: Inname object aanpassen in de uitgifte tabel.
+    IF    (:old.ins_alg_ruimte_key_org IS NOT NULL AND :new.ins_alg_ruimte_key_org IS NULL)
+      AND (:old.ins_alg_ruimte_type_org IS NOT NULL AND :new.ins_alg_ruimte_type_org IS NULL)
+      AND (:old.ins_alg_ruimte_type = 'C' OR :old.ins_alg_ruimte_type = 'P')
+    THEN
+        BEGIN
+            UPDATE ins_deel_uitgifte
+               SET ins_deel_uitgifte_ingeleverd = SYSDATE
+             WHERE ins_deel_key = :new.ins_deel_key
+               AND ins_deel_uitgifte_ingeleverd IS NULL;
+        END;
+    END IF;
 END;
 /
 
@@ -467,7 +683,7 @@ BEGIN
                     UPDATE ins_deel
                     SET    ins_deel_verwijder = null
                     WHERE  ins_deel_key = PrimaryKey;
-                    APPLICATION_ERROR_GOTO(-20000,'ins_m202');
+                    raise_application_error(-20000, 'ins_m202');
                   ELSE
                     -- Dit object of een van zijn onderdelen wordt niet als referentie naar een ander object gebruikt.
                     -- De onderdelen mogen nu ook verwijderd worden.
@@ -581,24 +797,26 @@ FOR EACH ROW
 BEGIN
     UPDATE_PRIMARY_KEY(ins_srtkenmerk_key, ins_s_ins_srtkenmerk_key);
     UPDATE_UPPER(ins_srtkenmerk_omschrijving, ins_srtkenmerk_upper,ins_srtkenmerk);
+    UPDATE_UPPER(ins_srtkenmerk_code, ins_srtkenmerk_code, ins_srtkenmerk);
+
     UPDATE_AANMAAKDATUM(ins_srtkenmerk, ins_srtkenmerk_aanmaak);
     IF (:new.ins_srtkenmerk_verwijder IS NOT NULL AND :old.ins_srtkenmerk_verwijder IS NULL AND
       :new.ins_srtkenmerk_systeem = 1)
     THEN
-      APPLICATION_ERROR(-20003, 'INS_M156');
+      raise_application_error(-20000, 'INS_M156');
     END IF;
 
-    IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N', 'B') AND :new.ins_srtkenmerk_lengte IS NULL
+    IF :new.ins_srtkenmerk_kenmerktype IN ('C', 'N') AND :new.ins_srtkenmerk_lengte IS NULL
     THEN
-       APPLICATION_ERROR(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
+       raise_application_error(-20000, 'INS_C_INS_SRTKENMERK_LENGTE');
     END IF;
     -- Numeriek mag niet te lang zijn (numeric overflow)
-    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :new.ins_srtkenmerk_lengte > 20
+    IF :new.ins_srtkenmerk_kenmerktype = 'N' AND :new.ins_srtkenmerk_lengte > 20
     THEN
        :new.ins_srtkenmerk_lengte := 20;
     END IF;
 
-    IF :new.ins_srtkenmerk_kenmerktype IN ('N', 'B') AND :old.ins_srtkenmerk_key IS NOT NULL
+    IF :new.ins_srtkenmerk_kenmerktype = 'N' 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)
@@ -655,6 +873,7 @@ BEGIN
      -- FSN#13902: we tolereren het achteraf verplicht maken
     UPDATE_PRIMARY_KEY(ins_kenmerk_key, ins_s_ins_kenmerk_key);
     UPDATE_AANMAAKDATUM(ins_kenmerk, ins_kenmerk_aanmaak);
+    UPDATE_UPPER(ins_kenmerk_code, ins_kenmerk_code, ins_kenmerk);
 END;
 /
 
@@ -713,7 +932,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
+   ELSIF SrtKenmerkType = 'N' /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -822,7 +1041,7 @@ BEGIN
       THEN
          APPLICATION_ERROR_GOTO(-20004, 'ins_m143,'||SrtKenmerkOmschr||','||TO_CHAR(SrtKenmerkLengte));
       END IF;
-   ELSIF SrtKenmerkType IN ('N', 'B') /* Number */
+   ELSIF SrtKenmerkType = 'N' /* Number */
    THEN
      /* Controleer of er een numerieke waarde ingevuld is */
      IF SrtKenmerkDec IS NULL OR SrtKenmerkDec = 0
@@ -908,7 +1127,7 @@ END;
 /
 
 CREATE_TRIGGER(ins_srtdeel_srtdeel_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_srtdeel_srtdeel
+BEFORE INSERT OR UPDATE ON ins_srtdeel_srtdeel
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_srtdeel_srtdeel_key, ins_s_ins_srtdeel_srtdeel_key);
@@ -916,7 +1135,7 @@ END;
 /
 
 CREATE_TRIGGER(ins_t_scenario_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_scenario
+BEFORE INSERT OR UPDATE ON ins_scenario
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_scenario_key, ins_s_ins_scenario_key);
@@ -928,13 +1147,13 @@ BEFORE DELETE ON ins_scenario
 FOR EACH ROW
 BEGIN
   IF :old.ins_scenario_key = 1 THEN
-    raise_application_error (-20000, 'Cannot delete actual scenario');
+    raise_application_error(-20001, 'Cannot delete actual scenario');
   END IF;
 END;
 /
 
 CREATE_TRIGGER(ins_t_srtcontrole_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_srtcontrole
+BEFORE INSERT OR UPDATE ON ins_srtcontrole
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_srtcontrole_key, ins_s_ins_srtcontrole_key);
@@ -942,7 +1161,7 @@ END;
 /
 
 CREATE_TRIGGER(ins_t_controlemode_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_controlemode
+BEFORE INSERT OR UPDATE ON ins_controlemode
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_controlemode_key, ins_s_ins_controlemode_key);
@@ -950,7 +1169,7 @@ END;
 /
 
 CREATE_TRIGGER(ins_t_srtcontroledl_xcp_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_srtcontroledl_xcp
+BEFORE INSERT OR UPDATE ON ins_srtcontroledl_xcp
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_srtcontroledl_xcp_key, ins_s_srtcontroledl_xcp_key);
@@ -958,7 +1177,7 @@ END;
 /
 
 CREATE_TRIGGER(ins_t_deelsrtcontrole_B_IU)
-BEFORE INSERT  OR UPDATE ON ins_deelsrtcontrole
+BEFORE INSERT OR UPDATE ON ins_deelsrtcontrole
 FOR EACH ROW
 BEGIN
   UPDATE_PRIMARY_KEY(ins_deelsrtcontrole_key, ins_s_ins_deelsrtcontrole_key);
@@ -987,6 +1206,14 @@ BEGIN
 END;
 /
 
+CREATE_TRIGGER(ins_t_deel_uitgifte_B_I)
+BEFORE INSERT ON ins_deel_uitgifte
+FOR EACH ROW
+BEGIN
+  UPDATE_PRIMARY_KEY(ins_deel_uitgifte_key, ins_s_ins_deel_uitgifte_key);
+END;
+/
+
 REGISTERRUN('$Id$')
 
 #endif

MLD/MLD_IND.SRC

@@ -24,6 +24,8 @@ CREATE INDEX mld_i_mld_melding20 ON mld_melding(mld_melding_datum);
 CREATE INDEX mld_i_mld_melding21 ON mld_melding(mld_melding_externnr);
 CREATE INDEX mld_i_mld_melding22 ON mld_melding(mld_alg_locatie_key);
 CREATE INDEX mld_i_mld_melding23 ON mld_melding(mld_melding_mldgroup_key);
+CREATE INDEX mld_i_mld_melding24 ON mld_melding(mld_ins_discipline_key,mld_melding_behandelaar2_key);
+CREATE INDEX mld_i_mld_melding25 ON mld_melding(mld_melding_behandelaar2_key);
 
 create index mld_i_mld_opdr1 on mld_opdr(mld_opdr_module);
 create index mld_i_mld_opdr2 on mld_opdr(mld_melding_key);
@@ -39,11 +41,16 @@ create index mld_i_mld_opdr14 on mld_opdr(mld_opdr_ordernr);
 create index mld_i_mld_opdr15 on mld_opdr(fac_activiteit_key);
 create index mld_i_mld_opdr16 on mld_opdr(cnt_contract_key);
 create index mld_i_mld_opdr17 on mld_opdr(mld_opdr_teverzenden);
+CREATE INDEX mld_i_mld_opdr18 on mld_opdr(mld_opdr_parent_key);
+CREATE INDEX mld_i_mld_opdr19 on mld_opdr(mld_opdr_discipline_key);
+
 
 create index mld_i_mld_typeopdr1 on mld_typeopdr(mld_typeopdr_module);
 
 create index mld_i_mld_kenmerk1 on mld_kenmerk(mld_srtkenmerk_key);
 create index mld_i_mld_kenmerk2 on mld_kenmerk(mld_stdmelding_key);
+create index mld_i_mld_kenmerk3 on mld_kenmerk(mld_kenmerk_code);
+create index mld_i_mld_srtkenmerk1 on mld_srtkenmerk(mld_srtkenmerk_code);
 
 create index mld_i_mld_kenmerkmelding1 on mld_kenmerkmelding(mld_melding_key);
 
@@ -52,9 +59,15 @@ create index mld_i_mld_kenmerkopdr1 on mld_kenmerkopdr(mld_opdr_key);
 CREATE UNIQUE INDEX mld_i_mld_disc_params1 ON mld_disc_params(mld_ins_discipline_key);
 
 CREATE INDEX mld_i_mld_melding_note1 ON mld_melding_note(mld_melding_key);
+CREATE INDEX mld_i_mld_melding_note2 ON mld_melding_note(fac_tracking_key);
+CREATE INDEX mld_i_mld_melding_note3 ON mld_melding_note(mld_melding_note_parent_key);
+CREATE INDEX mld_i_mld_melding_note4 ON mld_melding_note(prs_perslid_key);
 CREATE INDEX mld_i_mld_melding_object1 ON mld_melding_object(mld_melding_key);
 CREATE INDEX mld_i_mld_melding_object2 ON mld_melding_object(ins_deel_key, mld_melding_key);
 CREATE INDEX mld_i_mld_opdr_note1 ON mld_opdr_note(mld_opdr_key);
+CREATE INDEX mld_i_mld_opdr_note2 ON mld_opdr_note(fac_tracking_key);
+CREATE INDEX mld_i_mld_opdr_note3 ON mld_opdr_note(mld_opdr_note_parent_key);
+CREATE INDEX mld_i_mld_opdr_note4 ON mld_opdr_note(prs_perslid_key);
 
 CREATE UNIQUE INDEX mld_i_mld_opdruren_kosten1 ON mld_opdruren_kosten(mld_opdr_uren_key, mld_kosten_key);
 CREATE UNIQUE INDEX mld_i_mld_opdr_uren1 ON mld_opdr_uren(mld_opdr_uren_datum, mld_opdr_key, mld_impropdr_key, prs_perslid_key);
@@ -68,6 +81,16 @@ CREATE INDEX mld_i_mld_opdr_materiaal1 ON mld_opdr_materiaal(mld_opdr_key, fac_u
 
 CREATE UNIQUE INDEX mld_i_mld_stdmeldingfaq1 ON mld_stdmeldingfaq(mld_stdmelding_key, ins_discipline_key, fac_faq_key);
 CREATE INDEX mld_i_mld_stdmeldingfaq2 ON mld_stdmeldingfaq(ins_discipline_key, fac_faq_key);
+CREATE UNIQUE INDEX mld_i_mld_disc_disc1 ON mld_discipline_discipline(mld_discipline_key1, mld_discipline_key2);
+
+CREATE UNIQUE INDEX mld_i_mld_typeopdrfaq1 ON mld_typeopdrfaq(mld_typeopdr_key, fac_faq_key);
+CREATE INDEX mld_i_mld_typeopdrfaq2 ON mld_typeopdrfaq(fac_faq_key);
+
+CREATE INDEX mld_i_mld_kenmerkblokmelding ON mld_kenmerkblokmelding(prs_perslid_key);
+
+CREATE INDEX mld_i_mld_vrije_dagen_id ON mld_vrije_dagen(mld_vrije_dagen_id);
+
+CREATE UNIQUE INDEX mld_i_mld_melding_tag1 ON mld_melding_tag(ins_srtdiscipline_key, UPPER(mld_melding_tag_naam), mld_melding_tag_verwijder);
 
 REGISTERONCE('$Id$')
 

MLD/MLD_INI.SRC

@@ -32,6 +32,7 @@ INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (7,
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (8, 'Chat');
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (9, 'Social media');
 INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (10, 'Inspectie');
+INSERT INTO mld_meldbron(mld_meldbron_key, mld_meldbron_omschrijving) VALUES (11, 'Sensor');
 
 DEF_STATUS('melding', 0, 'lcl_mld_pending');
 DEF_STATUS('melding', 1, 'lcl_mld_afgewezen');

MLD/MLD_LCL.SRC

@@ -58,6 +58,7 @@ DEFINE_LOCALEITEM(lcl_mld_aanvragergegevens)
 DEFINE_LOCALEITEM(lcl_mld_accept)
 DEFINE_LOCALEITEM(lcl_mld_afgemeld)
 DEFINE_LOCALEITEM(lcl_mld_afgewezen)
+DEFINE_LOCALEITEM(lcl_mld_afrond)
 DEFINE_LOCALEITEM(lcl_mld_appr_req)
 DEFINE_LOCALEITEM(lcl_mld_behandelaar)
 DEFINE_LOCALEITEM(lcl_mld_can_not_be_closed)
@@ -81,10 +82,13 @@ DEFINE_LOCALEITEM(lcl_mld_chk_fo_mldVer)
 DEFINE_LOCALEITEM(lcl_mld_choose_na)
 DEFINE_LOCALEITEM(lcl_mld_choose_srt)
 DEFINE_LOCALEITEM(lcl_mld_complain)
+DEFINE_LOCALEITEM(lcl_mld_complain_subject)
 DEFINE_LOCALEITEM(lcl_mld_continuation)
 DEFINE_LOCALEITEM(lcl_mld_continue_of)
 DEFINE_LOCALEITEM(lcl_mld_continueblok)
 DEFINE_LOCALEITEM(lcl_mld_date)
+DEFINE_LOCALEITEM(lcl_mld_final_close)
+DEFINE_LOCALEITEM(lcl_mld_finish_close)
 DEFINE_LOCALEITEM(lcl_mld_flexblok)
 DEFINE_LOCALEITEM(lcl_mld_frame_algemeen)
 DEFINE_LOCALEITEM(lcl_mld_frame_algemeen_actie)
@@ -107,6 +111,7 @@ DEFINE_LOCALEITEM(lcl_mld_kenmerken)
 DEFINE_LOCALEITEM(lcl_mld_kosten)
 DEFINE_LOCALEITEM(lcl_mld_name)
 DEFINE_LOCALEITEM(lcl_mld_call_for)
+DEFINE_LOCALEITEM(lcl_mld_new)
 DEFINE_LOCALEITEM(lcl_mld_not_solved)
 DEFINE_LOCALEITEM(lcl_mld_note)
 DEFINE_LOCALEITEM(lcl_mld_note_emptyset)
@@ -187,10 +192,7 @@ DEFINE_LOCALEITEM(lcl_select_stdmelding)
 DEFINE_LOCALEITEM(lcl_select_mld_process_grp)
 DEFINE_LOCALEITEM(lcl_mld_processor)
 DEFINE_LOCALEITEM(lcl_mld_processing_details)
-DEFINE_LOCALEITEM(mld_discipline_srtgroepLOV)
-DEFINE_LOCALEITEM(lcl_default_processing_group)
 DEFINE_LOCALEITEM(mld_processing_group)
-DEFINE_LOCALEITEM(mld_discipline_bhgnotify)
 DEFINE_LOCALEITEM(lcl_mld_is_mldnew)
 DEFINE_LOCALEITEM(lcl_mld_is_mldupd)
 DEFINE_LOCALEITEM(lcl_mld_is_mldafm)
@@ -205,6 +207,29 @@ DEFINE_LOCALEITEM(lcl_mld_opdr_closed_3)
 DEFINE_LOCALEITEM(lcl_mld_person_prefix)
 DEFINE_LOCALEITEM(lcl_mld_vakgroep)
 DEFINE_LOCALEITEM(lcl_mld_subject)
+DEFINE_LOCALEITEM(lcl_mld_fe_newmelding_confirm)
+DEFINE_LOCALEITEM(lcl_menu_mld_fe_3)
+DEFINE_LOCALEITEM(frm_mldframe)
+DEFINE_LOCALEITEM(frm_mldworkflowframe)
+DEFINE_LOCALEITEM(frm_mldmldlistframe)
+DEFINE_LOCALEITEM(frm_opdrlistframe)
+DEFINE_LOCALEITEM(frm_mldbeslistframe)
+DEFINE_LOCALEITEM(frm_resframe)
+
+DEFINE_LOCALEITEM(lcl_mld_urgentie)
+DEFINE_LOCALEITEM(lcl_mld_impact)
+DEFINE_LOCALEITEM(lcl_mld_urgentie1)
+DEFINE_LOCALEITEM(lcl_mld_urgentie2)
+DEFINE_LOCALEITEM(lcl_mld_urgentie3)
+DEFINE_LOCALEITEM(lcl_mld_impact1)
+DEFINE_LOCALEITEM(lcl_mld_impact2)
+DEFINE_LOCALEITEM(lcl_mld_impact3)
+DEFINE_LOCALEITEM(lcl_mld_urgentie1_info)
+DEFINE_LOCALEITEM(lcl_mld_urgentie2_info)
+DEFINE_LOCALEITEM(lcl_mld_urgentie3_info)
+DEFINE_LOCALEITEM(lcl_mld_impact1_info)
+DEFINE_LOCALEITEM(lcl_mld_impact2_info)
+DEFINE_LOCALEITEM(lcl_mld_impact3_info)
 END_LOCALEITEMS()
 
 START_LOCALEITEMS('MLD_TYPEOPDR_KEY')

MLD/MLD_SEQ.SRC

@@ -4,6 +4,7 @@
  */
 
 CREATE SEQUENCE mld_s_mld_disc_params_key MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_vervolg_beperking_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_oorzaak_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_meldbron_key MINVALUE 50;
 CREATE SEQUENCE mld_s_mld_standaardopdr_key MINVALUE 1;
@@ -18,6 +19,7 @@ CREATE SEQUENCE mld_s_mld_vrije_dagen_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmelding_key MINVALUE 1;  /* also used for mld_typeopdr */
 CREATE SEQUENCE mld_s_mld_stdmeldinggroep_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_behandelgroep_key MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_melding_tag_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdm_srtinst_key MINVALUE 1;
 
 CREATE SEQUENCE mld_s_mld_object_key MINVALUE 1;
@@ -38,14 +40,20 @@ CREATE SEQUENCE mld_s_mld_impropdr_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_opdruren_kosten_key MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_kosten_key MINVALUE 10;
 CREATE SEQUENCE mld_s_mld_opdruren_dagk_key MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_kenmerkblokmelding_key MINVALUE 1;
 
 CREATE SEQUENCE mld_s_dienstniveau_key         MINVALUE 1;
 CREATE SEQUENCE mld_s_dienstpakket_key         MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdm_srtruimte_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_opdr_uitvoeren_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_opdr_materiaal_key   MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_afmeldtekst_key      MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmeldingfaq_key    MINVALUE 1;
 CREATE SEQUENCE mld_s_mld_stdmsrtruimte_key    MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdmsrtgebouw_key    MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_stdmsrtterrein_key   MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_disc_disc_key        MINVALUE 1;
+CREATE SEQUENCE mld_s_mld_typeopdrfaq_key      MINVALUE 1;
 
 REGISTERONCE('$Id$')
 

MLD/MLD_TAB.SRC

@@ -64,7 +64,7 @@ CREATE_TABLE(mld_disc_params, 0)
         NUMBER(2)       -- BO notificatie accept 0=niet, 1=bof, 2=bo3, 3=bo3 (aanmaak nieuwe melding) en dan bof (accepteren melding)
         DEFAULT 0,
     mld_disc_params_bhgnotify
-        NUMBER(1)       -- valid are 0, 1
+        NUMBER(1)       -- valid are 0, 1, 2, 3
         DEFAULT 1
         NOT NULL,
     mld_disc_params_benotify
@@ -120,20 +120,41 @@ CREATE_TABLE(mld_disc_params, 0)
     mld_disc_params_emailnw4
         VARCHAR2(200),
     mld_disc_params_smsnw1
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_disc_params_smsnw2
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_disc_params_smsnw3
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_disc_params_smsnw4
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_disc_params_pgb /* 0=Geen van beiden, 1=Alleen pgb, 2=Alleen agb, 3=Beiden, pgb en agb */
         NUMBER(1),
     mld_disc_params_srtgroep /* &1=Primaire vakgroep, &2=Behandelteam, &4=Primair heeft behandelteams (0, 4 en 6 zijn hiermee dus ongeldige/onlogische waarden) */
         NUMBER(1) DEFAULT(1) NOT NULL
         CONSTRAINT mld_c_mld_disc_params_srtgroep CHECK(mld_disc_params_srtgroep IN (1,5,2,3,7)),
     mld_disc_params_primairbeh
-        NUMBER(1) DEFAULT(1) NOT NULL
+        NUMBER(1) DEFAULT(1) NOT NULL,
+    mld_disc_params_mldgroup
+        NUMBER(3) DEFAULT(0) NOT NULL
+);
+
+
+/* GUI-directives, used to restrict the vervolgmelding of a melding of ins_srtdiscipline_key_1 to ins_srtdiscipline_key_2
+ * Optional, no record for ins_srtdiscipline_key_1 = no restrictions for ins_srtdiscipline_key_1
+ */
+CREATE_TABLE(mld_vervolg_beperking, 0)
+(
+    mld_vervolg_beperking_key
+        NUMBER(10)
+        PRIMARY KEY,
+    ins_srtdiscipline_key_1
+        NUMBER(10) NOT NULL
+        CONSTRAINT mld_r_ins_srtdiscipline_key1 REFERENCES ins_srtdiscipline(ins_srtdiscipline_key) ON DELETE CASCADE,
+    ins_srtdiscipline_key_2
+        NUMBER(10) NOT NULL
+        CONSTRAINT mld_r_ins_srtdiscipline_key3 REFERENCES ins_srtdiscipline(ins_srtdiscipline_key) ON DELETE CASCADE,
+    mld_vervolg_beperking_aanmaak
+        DATE DEFAULT SYSDATE NOT NULL
 );
 
 CREATE_TABLE(mld_oorzaak,0)
@@ -168,6 +189,10 @@ CREATE_TABLE(mld_meldbron,0)
     mld_meldbron_upper
         VARCHAR2(30)
         NOT_NULL(mld_meldbron_upper, mld_c_mld_meldbron_upper),
+    mld_meldbron_kiesbaar
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     mld_meldbron_default
         NUMBER(1),
     mld_meldbron_aanmaak
@@ -197,7 +222,7 @@ CREATE_TABLE(mld_standaardopdr,0)
     mld_standaardopdr_uren
         NUMBER(8,2),
     mld_standaardopdr_materiaal
-        NUMBER(9,2),
+        NUMBER(10,2),
     mld_standaardopdr_aanmaak
         DATE
         DEFAULT SYSDATE
@@ -249,7 +274,7 @@ CREATE_TABLE(mld_typeopdr,0)
         NUMBER(1)
         DEFAULT 1
         NOT NULL
-        CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2)),
+        CONSTRAINT ins_c_mld_typeopdr_materiaal CHECK(mld_typeopdr_materiaal IN (0, 1, 2, 3)), /* 0=Geen materiaal, 1=Optioneel totaalbedrag, 2=Materialenlijst, 3=Verplichte materialenlijst */
     mld_typeopdr_totaal
         NUMBER(1)
         DEFAULT 1
@@ -280,9 +305,16 @@ CREATE_TABLE(mld_typeopdr,0)
         NUMBER(1)
         DEFAULT (2)
         CONSTRAINT mld_c_mld_typeopdr_contract CHECK(mld_typeopdr_contract IN (0,2,3)),
+    mld_typeopdr_bez
+        NUMBER(1)
+        DEFAULT(0)
+        CONSTRAINT mld_c_mld_typeopdr_bez CHECK(mld_typeopdr_bez IN (0,1)),
     mld_typeopdr_afhandeling  /* Afhandeling verplicht bij afmelden opdracht van dit opdrachttype (0=Nee/1=Ja) */
         NUMBER(1)
         DEFAULT 0,
+    mld_typeopdr_confirm_for_send /* Hoe moet de opdrachten verstuurd worden (&1=Vraag opwerpen voor verzending, &2=Markeren voor verzending => 0=Direct versturen (Default), 1=Eerst Vragen, 2=Markeren) */
+        NUMBER(1)
+        DEFAULT 0,
     mld_typeopdr_gvs
         NUMBER(11,2)
         DEFAULT 1000000,
@@ -298,6 +330,11 @@ CREATE_TABLE(mld_typeopdr,0)
     mld_typeopdr_sequential  /* Strikte sequentiele opdracht afhandeling en/of Hold (BITAND1 is (kan pauzeren en hervatten) en BITAND2 is strikt sequentieel) */
         NUMBER(1)
         DEFAULT 0 NOT NULL,
+    mld_typeopdr_image
+        VARCHAR2(255 CHAR),
+    mld_typeopdr_code
+        VARCHAR2(60)
+        CONSTRAINT mld_u_mld_typeopdr_code UNIQUE,
     CONSTRAINT mld_u_mld_typeopdr_upper UNIQUE(mld_typeopdr_upper, mld_typeopdr_module)
 );
 
@@ -325,9 +362,44 @@ CREATE_TABLE(mld_stdmeldinggroep,0)
         NOT_NULL(mld_stdmeldinggroep_naam, mld_c_mld_stdmeldinggroep_naam),
     mld_stdmeldinggroep_oms
         VARCHAR2(1000),
+    mld_stdmeldinggroep_image
+        VARCHAR2(255),
+    mld_stdmeldinggroep_color
+        VARCHAR2 (60),
   CONSTRAINT mld_u_stdmeldinggroep_naam UNIQUE (mld_stdmeldinggroep_naam)
 );
 
+
+CREATE_TABLE(mld_melding_tag,0)  /* generieke opzet voor mld_releases of mld_releasekalender: mijlpalen */
+(
+    mld_melding_tag_key
+        NUMBER(10)
+        CONSTRAINT mld_k_melding_tag_key PRIMARY KEY,
+    ins_srtdiscipline_key
+        NUMBER(10) NOT NULL
+        CONSTRAINT mld_r_ins_srtdiscipline_key4 REFERENCES ins_srtdiscipline(ins_srtdiscipline_key) ON DELETE CASCADE,
+    mld_melding_tag_naam
+        VARCHAR2(30)
+        NOT NULL,
+    mld_melding_tag_oms                 /* korte omschrijving */
+        VARCHAR2(1000),
+    mld_stdmeldinggroep_key             /* optional reference to mld_stdmeldinggroep */
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmeldinggroep_key2 REFERENCES mld_stdmeldinggroep(mld_stdmeldinggroep_key),
+    mld_melding_tag_datum_van           /* lijkt logisch, maar definieren waarom */
+        DATE,
+    mld_melding_tag_datum_tot           /* de releasedatum */
+        DATE NOT NULL,
+    prs_perslid_key                     /* aanmaker of verantwoordelijke */
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_perslid_key15 REFERENCES prs_perslid(prs_perslid_key),
+    mld_melding_tag_aanmaak
+        DATE DEFAULT SYSDATE NOT NULL,
+    mld_melding_tag_verwijder
+        DATE
+    /* UNIQUE via index mld_i_mld_melding_tag1 */
+);
+
 CREATE_TABLE(mld_stdmelding,0)
 (
     mld_stdmelding_key
@@ -372,7 +444,7 @@ CREATE_TABLE(mld_stdmelding,0)
     mld_stdmelding_t_uitvtijd_pr4
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmeld_t_uitvtijd4 CHECK(mld_stdmelding_t_uitvtijd_pr4.tijdsduur >= 0),
-    mld_stdmelding_planbaar            -- 0: einddatum wordt berekend, 1: de einddatum van de melding is default leeg, 2: veld is verborgen
+    mld_stdmelding_planbaar    -- 0: einddatum wordt berekend, 1: de einddatum van de melding is default leeg, 2: veld is verborgen, +4: toon actiedatum
         NUMBER(1)
         DEFAULT 0 NOT NULL,
     mld_stdmelding_planbaarfe          -- 0: niet in te vullen door FE
@@ -402,7 +474,7 @@ CREATE_TABLE(mld_stdmelding,0)
         NUMBER(2),
     alg_onrgoed_niveau    -- level of onrgoed of objects to display with new melding and/or required level
         VARCHAR2(1)
-        CONSTRAINT mld_c_alg_onrgoed_niveau CHECK (alg_onrgoed_niveau IN ('L','G','V','R')),
+        CONSTRAINT mld_c_alg_onrgoed_niveau CHECK (alg_onrgoed_niveau IN ('L','G','V','R','H')),
     alg_onrgoed_obj_niveau    -- level of onrgoed which should be selected before chosing objects
         VARCHAR2(1)
         CONSTRAINT mld_c_alg_onrgoed_obj_niveau CHECK (alg_onrgoed_obj_niveau IN ('A','L','G','V','R')),
@@ -425,6 +497,9 @@ CREATE_TABLE(mld_stdmelding,0)
     prs_kostensoort_key
         NUMBER(10)
         CONSTRAINT ins_r_prs_kostensoort_key2 REFERENCES prs_kostensoort(prs_kostensoort_key),
+    prs_kostenplaats_key
+        NUMBER(10)
+        CONSTRAINT mld_r_prs_kostenplaats_key3 REFERENCES prs_kostenplaats (prs_kostenplaats_key),
     mld_stdmelding_autoorder -- (1: probeer automatisch opdracht te maken)
         NUMBER(1),
     mld_stdmelding_autoorderamount -- Opdrachtbedrag voor automatisch aangemaakte opdrachten (default 0).
@@ -442,6 +517,8 @@ CREATE_TABLE(mld_stdmelding,0)
         NUMBER(8,2),
     mld_stdmelding_malus -- boete/korting bij overschrijding [per periode]
         NUMBER(8,2),
+    mld_stdmelding_malusmax
+        NUMBER(8,2),
     mld_stdmelding_afhankelijk  -- is de uitvoertijd afhankelijk van de ins_deel/alg_srtruimte (1) of niet (0)
         NUMBER(1)
         DEFAULT 0
@@ -493,10 +570,26 @@ CREATE_TABLE(mld_stdmelding,0)
         VARCHAR2(256),
     mld_stdmelding_externsyncdate
         DATE,
+    mld_stdmelding_notes  // 0:geen notities, &1=FE, &2=FOBO, &4=UITV
+        NUMBER(1)
+        DEFAULT 7
+        NOT_NULL(mld_stdmelding_notes, mld_c_mld_stdmelding_notes),
+    mld_stdmelding_conceptstatus  // standaard conceptstatus, 0:geen concept, &1, &2, &4 see documentation
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL,
 -- in CAD_TAB.SRC:
 --    cad_thema_key
 --        NUMBER(10)
 --        CONSTRAINT mld_r_cad_thema_key1 REFERENCES cad_thema(cad_thema_key),
+    mld_stdmelding_priomatrix  // bepaal meldingprioriteit (mld_melding_spoed) via urgentie x impact
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
+    mld_stdmelding_taggable  // mld_melding_tag (mijlpaal) voor indirecte einddatum 0=geen, 1=intern zichtbaar, +2=3=extern zichtbaar
+        NUMBER(1)
+        DEFAULT 0
+        NOT NULL,
     CONSTRAINT mld_u_mld_stdmelding UNIQUE(mld_ins_discipline_key, mld_stdmelding_omschrijving, mld_stdmelding_verwijder)
 );
 
@@ -510,6 +603,12 @@ ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvoertijd NOT_NULL(mld_stdm
 ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 ALTER TABLE mld_stdmelding MODIFY mld_stdmelding_t_uitvtijd_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE ins_srtdeel ADD
+(
+    mld_stdmelding_key
+        NUMBER(10) REFERENCES mld_stdmelding(mld_stdmelding_key)
+);
+
 ALTER TABLE ins_srtcontrole ADD
 (
     mld_stdmelding_key
@@ -556,19 +655,163 @@ CREATE_TABLE(mld_stdmsrtruimte, 0)
         NUMBER(8,2),
     mld_stdmsrtruimte_malus -- boete/korting bij overschrijding [per periode]
         NUMBER(8,2),
-    mld_stdmsrtruimte_t_accepttijd
+    mld_stdmsrtruimte_malusmax
+        NUMBER(8,2),
+    mld_stdmsrtruimte_t_accepttijd /* pr3 */
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc CHECK(mld_stdmsrtruimte_t_accepttijd.tijdsduur >= 0),
-    mld_stdmsrtruimte_t_uitvtijd
+    mld_stdmsrtruimte_t_accept_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc1 CHECK(mld_stdmsrtruimte_t_accept_pr1.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_accept_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc2 CHECK(mld_stdmsrtruimte_t_accept_pr2.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_accept_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_acc4 CHECK(mld_stdmsrtruimte_t_accept_pr4.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitvtijd /* pr3 */
         MLD_T_UITVOERTIJD
         CONSTRAINT mld_c_mld_stdmsrtruimte_t_uitv CHECK(mld_stdmsrtruimte_t_uitvtijd.tijdsduur >= 0),
-        CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key),
+    mld_stdmsrtruimte_t_uitv_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uit1 CHECK(mld_stdmsrtruimte_t_uitv_pr1.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitv_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uit2 CHECK(mld_stdmsrtruimte_t_uitv_pr2.tijdsduur >= 0),
+    mld_stdmsrtruimte_t_uitv_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtruimte_t_uit4 CHECK(mld_stdmsrtruimte_t_uitv_pr4.tijdsduur >= 0),
     mld_stdmsrtruimte_regime -- optioneel afwijkend afhandelingsregime (may be null)
         NUMBER(2)
-        CONSTRAINT mld_c_stdmsrtruimte_regime CHECK (mld_stdmsrtruimte_regime IN (1,2,3)) -- 1=kantoortijden, 2=openingstijden, 3=24x7
+        CONSTRAINT mld_c_stdmsrtruimte_regime CHECK (mld_stdmsrtruimte_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
+    CONSTRAINT mld_u_mld_stdmsrtruimte UNIQUE(alg_srtruimte_key, mld_stdmelding_key)
 );
 ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accepttijd  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accept_pr1  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accept_pr2  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_accept_pr4  DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitv_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitv_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtruimte MODIFY mld_stdmsrtruimte_t_uitv_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+// Eventuele afwijkingen per srtgebouw van SLA tijden.
+// Fungeert als COALESCE met alg_srtgebouw.
+CREATE_TABLE(mld_stdmsrtgebouw, 0)
+(
+    mld_stdmsrtgebouw_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtgebouw_key PRIMARY KEY,
+    alg_srtgebouw_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtgebouw_key2 REFERENCES alg_srtgebouw(alg_srtgebouw_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtgebouw_key, alg_c_srtgebouw_key2),
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key9 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key2),
+    mld_stdmsrtgebouw_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmsrtgebouw_malus -- boete/korting bij overschrijding [per dag]
+        NUMBER(8,2),
+    mld_stdmsrtgebouw_malusmax
+        NUMBER(8,2),
+    mld_stdmsrtgebouw_t_accepttijd /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_acc CHECK(mld_stdmsrtgebouw_t_accepttijd.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_accept_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_acc1 CHECK(mld_stdmsrtgebouw_t_accept_pr1.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_accept_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_acc2 CHECK(mld_stdmsrtgebouw_t_accept_pr2.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_accept_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_acc4 CHECK(mld_stdmsrtgebouw_t_accept_pr4.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_uitvtijd  /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_uitv CHECK(mld_stdmsrtgebouw_t_uitvtijd.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_uitv_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_uitv1 CHECK(mld_stdmsrtgebouw_t_uitv_pr1.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_uitv_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_uitv2 CHECK(mld_stdmsrtgebouw_t_uitv_pr2.tijdsduur >= 0),
+    mld_stdmsrtgebouw_t_uitv_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtgebouw_t_uitv4 CHECK(mld_stdmsrtgebouw_t_uitv_pr4.tijdsduur >= 0),
+    mld_stdmsrtgebouw_regime -- optioneel afwijkend afhandelingsregime (may be null)
+        NUMBER(2)
+        CONSTRAINT mld_c_stdmsrtgebouw_regime CHECK (mld_stdmsrtgebouw_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
+    CONSTRAINT mld_u_mld_stdmsrtgebouw UNIQUE(alg_srtgebouw_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_accepttijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_accept_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_accept_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_accept_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_uitv_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_uitv_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtgebouw MODIFY mld_stdmsrtgebouw_t_uitv_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+
+-- Eventuele afwijkingen per srtterreinsector van SLA tijden.
+-- Fungeert als COALESCE met alg_srtterreinsector.
+CREATE_TABLE(mld_stdmsrtterrein, 0)
+(
+    mld_stdmsrtterrein_key
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_stdmsrtterrein_key PRIMARY KEY,
+    alg_srtterreinsector_key
+        NUMBER(10)
+        CONSTRAINT alg_r_alg_srtterreinsec_key REFERENCES alg_srtterreinsector(alg_srtterreinsector_key) ON DELETE CASCADE
+        NOT_NULL(alg_srtterreinsector_key, alg_c_srtterreinsector_key2),
+    mld_stdmelding_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_stdmelding_key10 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE
+        NOT_NULL(mld_stdmelding_key, mld_c_stdmelding_key3),
+    mld_stdmsrtterrein_malusbasis -- eenmalige boete/korting bij overschrijding
+        NUMBER(8,2),
+    mld_stdmsrtterrein_malus -- boete/korting bij overschrijding [per dag]
+        NUMBER(8,2),
+    mld_stdmsrtterrein_malusmax
+        NUMBER(8,2),
+    mld_stdmsrtterrein_t_acctijd /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_acc CHECK(mld_stdmsrtterrein_t_acctijd.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_acc_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ac1 CHECK(mld_stdmsrtterrein_t_acc_pr1.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_acc_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ac2 CHECK(mld_stdmsrtterrein_t_acc_pr2.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_acc_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ac4 CHECK(mld_stdmsrtterrein_t_acc_pr4.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_uitvtijd /* pr3 */
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_uit CHECK(mld_stdmsrtterrein_t_uitvtijd.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_uitv_pr1
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ui1 CHECK(mld_stdmsrtterrein_t_uitv_pr1.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_uitv_pr2
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ui2 CHECK(mld_stdmsrtterrein_t_uitv_pr2.tijdsduur >= 0),
+    mld_stdmsrtterrein_t_uitv_pr4
+        MLD_T_UITVOERTIJD
+        CONSTRAINT mld_c_mld_stdmsrtterrein_t_ui4 CHECK(mld_stdmsrtterrein_t_uitv_pr4.tijdsduur >= 0),
+    mld_stdmsrtterrein_regime -- optioneel afwijkend afhandelingsregime (may be null)
+        NUMBER(2)
+        CONSTRAINT mld_c_stdmsrtterrein_regime CHECK (mld_stdmsrtterrein_regime IN (1,2,3)), -- 1=kantoortijden, 2=openingstijden, 3=24x7
+    CONSTRAINT mld_u_mld_stdmsrtterrein UNIQUE(alg_srtterreinsector_key, mld_stdmelding_key)
+);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_acctijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_acc_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_acc_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_acc_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_uitvtijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_uitv_pr1 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_uitv_pr2 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
+ALTER TABLE mld_stdmsrtterrein MODIFY mld_stdmsrtterrein_t_uitv_pr4 DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
 
 -- Kruistabel tussen KB(faq) en standaardmeldingen
 CREATE_TABLE(mld_stdmeldingfaq, 0)
@@ -589,6 +832,35 @@ CREATE_TABLE(mld_stdmeldingfaq, 0)
         CONSTRAINT mld_r_fac_faq_key1 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
 );
 
+-- Kruistabel tussen KB(faq) en opdrachttypen.
+CREATE_TABLE(mld_typeopdrfaq, 0)
+(
+    mld_typeopdrfaq_key
+        NUMBER(10)
+        CONSTRAINT mld_k_typeopdrfaq_key PRIMARY KEY,
+    mld_typeopdr_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_typeopdr_key4 REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
+    fac_faq_key
+        NUMBER(10)
+        NOT_NULL(fac_faq_key, mld_c_fac_faq_key2)
+        CONSTRAINT mld_r_fac_faq_key2 REFERENCES fac_faq(fac_faq_key) ON DELETE CASCADE
+);
+
+CREATE_TABLE(mld_discipline_discipline, 0)                        -- Kruistabel voor ins_tab_discipline
+(
+    mld_discipline_discipline_key
+        NUMBER (10) PRIMARY KEY NOT NULL,
+    mld_discipline_key1
+        NUMBER(10)
+        CONSTRAINT mld_k_mld_disc_disc_key1
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL,
+    mld_discipline_key2
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_disc_disc_key2
+        REFERENCES ins_tab_discipline(ins_discipline_key) NOT NULL
+);
+
 CREATE_TABLE(mld_adres, 0)
 (
     mld_adres_key
@@ -621,13 +893,13 @@ CREATE_TABLE(mld_adres, 0)
     mld_adres_contactpersoon
         VARCHAR2(30),
     mld_adres_contactpers_telefoon
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_adres_contactpers_email
         VARCHAR2(200),
     mld_adres_contactpers_bureau
         VARCHAR2(20),
     mld_adres_telefoon
-        VARCHAR2(15),
+        VARCHAR2(20),
     mld_adres_email
         VARCHAR2(200),
     alg_locatie_key
@@ -765,9 +1037,11 @@ CREATE_TABLE(mld_melding,0)
         DATE
         NOT_NULL(mld_melding_datum, mld_c_mld_melding_datum),
     mld_melding_onderwerp /* optionele korte omschrijving */
-        VARCHAR2(80),
+        VARCHAR2(200),
+    mld_melding_onderwerp_ai /* AI generated onderwerp */
+        VARCHAR2(200),
     mld_melding_omschrijving
-        VARCHAR2(4000),
+        CLOB,
     mld_melding_opmerking
         VARCHAR2(4000),
     mld_melding_behandelaar_key
@@ -808,6 +1082,9 @@ CREATE_TABLE(mld_melding,0)
         DATE,
     mld_melding_acceptdatum_std  -- sla freeze acceptatie
         DATE,
+    mld_melding_tag_key
+        NUMBER(10)
+        CONSTRAINT mld_r_mld_melding_tag REFERENCES mld_melding_tag(mld_melding_tag_key),
     mld_melding_geprint
         NUMBER(1)
         CONSTRAINT mld_c_mld_melding_geprint CHECK(mld_melding_geprint IS NULL
@@ -839,8 +1116,12 @@ CREATE_TABLE(mld_melding,0)
     mld_adres_key
         NUMBER(10)
         CONSTRAINT mld_r_mld_adres_key1 REFERENCES mld_adres(mld_adres_key),
-    mld_melding_spoed   /* urgentie: 1 = kritiek, 2=hoog, 3=normaal, 4=laag, 5=hold(?), matcht mld_stdmelding_uitvoertijd_prX */
+    mld_melding_spoed   /* prioriteit: 1 = kritiek, 2=hoog, 3=normaal, 4=laag, 5=hold(?), matcht mld_stdmelding_uitvoertijd_prX */
         NUMBER(1),
+    mld_melding_impact   /* optionele onderbouwing van de prioriteit dimensie 1 */
+        NUMBER(2),
+    mld_melding_urgentie /* optionele onderbouwing van de prioriteit dimensie 2 */
+        NUMBER(2),
     fac_activiteit_key
         NUMBER(10)
         CONSTRAINT fac_r_fac_activiteit1 REFERENCES fac_activiteit(fac_activiteit_key) ON DELETE CASCADE,
@@ -870,7 +1151,7 @@ CREATE_TABLE(mld_melding,0)
         NOT NULL,
     mld_melding_actiecode
         NUMBER(3)
-        DEFAULT 1 /* actie bij +1=behandelaar, +2=melder, +128 attentie */
+        DEFAULT 1 /* actie bij +1=behandelaar, +2=melder, +128=attentie behandelaar, +256=attentie melder */
         NOT NULL,
     mld_melding_satisfaction
         NUMBER(2),
@@ -892,7 +1173,7 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_email_ext
       VARCHAR2(100),
     mld_melding_tel_ext
-      VARCHAR2(15),
+      VARCHAR2(20),
     mld_melding_dwgx
         NUMBER(16,3),
     mld_melding_dwgy
@@ -904,7 +1185,11 @@ CREATE_TABLE(mld_melding,0)
     mld_melding_y
         NUMBER(16,6),
     mld_melding_z
-        NUMBER(16,6)
+        NUMBER(16,6),
+    mld_melding_conceptstatus  // instemmingstatus, 0:geen concept=ingestemd, &1, &2, &4 see documentation
+        NUMBER(3)
+        DEFAULT 0
+        NOT NULL
 );
 
 ALTER TABLE mld_melding MODIFY mld_melding_t_uitvoertijd DEFAULT MLD_T_UITVOERTIJD(NULL, NULL);
@@ -961,6 +1246,10 @@ CREATE_TABLE(mld_opdr,0)
         DATE,
     mld_opdr_plandatum2   /* (beoogd) tijdstip van einddatum uitvoering */
         DATE,
+    mld_opdr_discipline_key
+        NUMBER(10)
+        NOT_NULL(mld_opdr_discipline_key, mld_c_mld_opdr_discipline_key1)
+        CONSTRAINT mld_r_opdr_discipline_key1 REFERENCES ins_tab_discipline(ins_discipline_key),
     mld_opdr_werkzaamheden
         VARCHAR2(80),
     mld_opdr_uren
@@ -968,7 +1257,7 @@ CREATE_TABLE(mld_opdr,0)
         DEFAULT 0
         CONSTRAINT mld_c_mld_opdr_uren CHECK(mld_opdr_uren >= 0),
     mld_opdr_materiaal
-        NUMBER(8,2)
+        NUMBER(10,2)
         DEFAULT 0,
     mld_opdr_kosten       /* excl BTW */
         NUMBER(12,2)
@@ -996,7 +1285,7 @@ CREATE_TABLE(mld_opdr,0)
         NUMBER(1)
         CONSTRAINT mld_c_mld_opdr_teverz CHECK(mld_opdr_teverzenden IS NULL
                                              OR mld_opdr_teverzenden = 1
-                                             OR mld_opdr_teverzenden = 2),  /* NULL=niet verzenden, 1=verzende bij status 4 en 5, 2=altijd verzenden */
+                                             OR mld_opdr_teverzenden = 2),  /* NULL=niet verzenden, 1=verzenden bij status 4 en 5, 2=altijd verzenden */
     mld_opdr_teverzenden_datum
         DATE
         DEFAULT NULLDATUM,
@@ -1062,7 +1351,11 @@ CREATE_TABLE(mld_opdr,0)
         NOT NULL,
     mld_opdr_parent_key
         NUMBER(10)
-        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key)
+        CONSTRAINT mld_r_mld_opdr_key4 REFERENCES mld_opdr(mld_opdr_key),
+    mld_opdr_actiecode
+        NUMBER(3)
+        DEFAULT 1 /* actie bij +1=FOBO behandelaar, +2=melder, +4=uitvoerende, +128=attentie FOBO, +512=attentie uitvoerende */
+        NOT NULL
 );
 
 CREATE_TABLE(mld_vrije_dagen, 0)
@@ -1072,8 +1365,11 @@ CREATE_TABLE(mld_vrije_dagen, 0)
         CONSTRAINT mld_k_mld_vrije_dagen_key PRIMARY KEY,
    mld_vrije_dagen_datum
         DATE
-        NOT_NULL(mld_vrije_dagen_datum, mld_c_mld_vrije_dagen_datum)
-        CONSTRAINT mld_u_mld_vrije_dagen_datum UNIQUE
+        NOT_NULL(mld_vrije_dagen_datum, mld_c_mld_vrije_dagen_datum),
+   mld_vrije_dagen_id VARCHAR2(50)
+        DEFAULT ('Default') NOT NULL,
+
+   CONSTRAINT mld_u_mld_vrije_dagen_datum UNIQUE(mld_vrije_dagen_datum, mld_vrije_dagen_id)
 );
 
 CREATE_TABLE(mld_melding_object, 0)
@@ -1094,7 +1390,10 @@ CREATE_TABLE(mld_melding_object, 0)
         NOT_NULL(mld_melding_object_aanmaak, mld_c_mld_object_aanmaak),
     mld_melding_object_verwijder
         DATE
-        DEFAULT NULLDATUM
+        DEFAULT NULLDATUM,
+    ins_deelsrtcontrole_key
+        NUMBER(10)
+        CONSTRAINT mld_r_ins_deelsrtcontrole_key REFERENCES ins_deelsrtcontrole(ins_deelsrtcontrole_key)
 );
 
 
@@ -1110,7 +1409,7 @@ CREATE_TABLE(mld_srtkenmerk, 0)
       VARCHAR2(10)
 ,  mld_srtkenmerk_kenmerktype
       VARCHAR2(1)
-,  mld_srtkenmerk_systeem -- &1 = systeemkm, &2 = primary, show in list, &4 = confidential, &8 = anonimiseren
+,  mld_srtkenmerk_systeem -- &1 = systeemkm, &4 = confidential, &8 = anonimiseren
       NUMBER(2)
       DEFAULT 0
       NOT NULL
@@ -1133,11 +1432,9 @@ CREATE_TABLE(mld_srtkenmerk, 0)
       DEFAULT NULLDATUM
 ,  mld_srtkenmerk_code
       VARCHAR2(60)
-      CONSTRAINT mld_u_mld_srtkenmerk_code UNIQUE
 ,  CONSTRAINT mld_c_mld_srtkenmerk_omschr    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_srtkenmerk_omschrijving    CHECK(mld_srtkenmerk_omschrijving IS NOT NULL)
 ,  CONSTRAINT mld_u_mld_srtkenmerk_upper    UNIQUE(mld_srtkenmerk_upper, mld_srtkenmerk_verwijder)
-,  CONSTRAINT mld_c_mld_srtkenmerk_kenmtype  CHECK(mld_srtkenmerk_kenmerktype IN ('C','N','D','T','R','X','L','Q','F','M','E','S','l','B','V'))
 ,  CONSTRAINT mld_c_mld_srtkenmerk_lengte    CHECK(mld_srtkenmerk_lengte >= 1
                                                AND mld_srtkenmerk_lengte <= 4000)
 ,  CONSTRAINT mld_c_mld_srtkenmerk_max_min   CHECK(mld_srtkenmerk_nmax >= mld_srtkenmerk_nmin)
@@ -1160,6 +1457,8 @@ CREATE_TABLE(mld_kenmerk, 0)
       VARCHAR2(1)
 ,  mld_kenmerk_omschrijving
       VARCHAR2(50)  /* optionele overrule van srtkenmerk_omschrijving */
+,  mld_kenmerk_code
+      VARCHAR2(60)
 ,  mld_kenmerk_verplicht
       NUMBER(1)
 ,  mld_kenmerk_groep
@@ -1167,6 +1466,9 @@ CREATE_TABLE(mld_kenmerk, 0)
       DEFAULT 0 NOT NULL
 ,  mld_kenmerk_toonbaar
       NUMBER(1)
+,  mld_kenmerk_inlijst
+      NUMBER(1)
+      DEFAULT 0 NOT NULL
 ,  mld_kenmerk_volgnummer
       NUMBER(3)
       NOT NULL
@@ -1196,13 +1498,16 @@ CREATE_TABLE(mld_kenmerk, 0)
       NUMBER(1)
       DEFAULT 0
       NOT NULL
-,  mld_kenmerk_code
-      VARCHAR2(60)
-      CONSTRAINT mld_u_mld_kenmerk_code UNIQUE
 ,  mld_kenmerk_wissen
       NUMBER(1)
       DEFAULT 0
       NOT NULL
+,  fac_functie_key
+      NUMBER(10)
+      CONSTRAINT fac_r_mld_kenmerk_functie REFERENCES fac_functie (fac_functie_key)
+,  ins_discipline_key
+      NUMBER (10)
+      CONSTRAINT mld_r_ins_discipline_key7 REFERENCES ins_tab_discipline(ins_discipline_key) -- default blokbehandelteam
 //,  CONSTRAINT mld_r_mld_srtkenmerk_keys       CHECK((mld_typeopdr_key IS NULL AND mld_stdmelding_key IS NOT NULL)
 //                                                 OR (mld_typeopdr_key IS NOT NULL AND mld_stdmelding_key IS NULL))
 ,  CONSTRAINT mld_r_mld_srtkenmerk_key2 FOREIGN KEY(mld_srtkenmerk_key) REFERENCES mld_srtkenmerk(mld_srtkenmerk_key)
@@ -1263,6 +1568,29 @@ CREATE_TABLE(mld_kenmerkopdr, 0)
    CONSTRAINT mld_r_kenmerk_opdr       FOREIGN KEY (mld_opdr_key) REFERENCES mld_opdr(mld_opdr_key) ON DELETE CASCADE
 );
 
+CREATE TABLE mld_kenmerkblokmelding
+(  mld_kenmerkblokmelding_key
+      NUMBER(10)
+      CONSTRAINT mld_k_mld_kenmerkblokmelding_key PRIMARY KEY,
+   mld_melding_key
+      NUMBER(10)
+      CONSTRAINT mld_r_mld_melding_key7 REFERENCES mld_melding(mld_melding_key) ON DELETE CASCADE,
+   mld_kenmerk_key -- verwijzing naar het labelkenmerk
+      NUMBER(10)
+      CONSTRAINT mld_r_mld_kenmerk_key5 REFERENCES mld_kenmerk(mld_kenmerk_key) ON DELETE CASCADE,
+   ins_discipline_key
+      NUMBER (10)
+      CONSTRAINT mld_r_ins_discipline_key6 REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE, -- blokbehandelteam
+   prs_perslid_key
+      NUMBER (10)
+      CONSTRAINT mld_r_prs_perslid_key14 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL, -- blokbehandelteambehandelaar
+   mld_kenmerkblokmelding_afmelddatum
+      DATE,
+   mld_kenmerkblokmelding_aanmaak
+      DATE
+      DEFAULT SYSDATE,
+   CONSTRAINT mld_u_mld_kenmerkblokmelding UNIQUE(mld_melding_key, mld_kenmerk_key)
+);
 
 
 /* Used to restrict the mld_typeopdr values for a ins_srtdiscipline or even ins_discipline
@@ -1270,22 +1598,22 @@ CREATE_TABLE(mld_kenmerkopdr, 0)
  * Voor CNT moet srtdiscipline leeg kunnen zijn. Ik wil er dus naartoe dat de specifiekste
  * geldt en de globalere dan dummy is (dont care)
  */
-CREATE_TABLE(mld_typeopdr_srtdiscipline, 0)
-(
-    mld_typeopdr_srtdisc_key
-        NUMBER(10)
-        PRIMARY KEY,
-    mld_typeopdr_key
-        NUMBER(10)
-        NOT_NULL(mld_typeopdr_key, mld_c_mld_typeopdr_key1)
-        CONSTRAINT mld_r_mld_typeopdr_key3 REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
-    ins_srtdiscipline_key
-        NUMBER(10)
-        CONSTRAINT mld_r_ins_srtdiscipline_key2 REFERENCES ins_srtdiscipline(ins_srtdiscipline_key) ON DELETE CASCADE,
-    ins_discipline_key
-        NUMBER(10)
-        CONSTRAINT mld_r_ins_discipline_key3 REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
-);
+    CREATE_TABLE(mld_typeopdr_srtdiscipline, 0)
+    (
+        mld_typeopdr_srtdisc_key
+            NUMBER(10)
+            PRIMARY KEY,
+        mld_typeopdr_key
+            NUMBER(10)
+            NOT_NULL(mld_typeopdr_key, mld_c_mld_typeopdr_key1)
+            CONSTRAINT mld_r_mld_typeopdr_key3 REFERENCES mld_typeopdr(mld_typeopdr_key) ON DELETE CASCADE,
+        ins_srtdiscipline_key
+            NUMBER(10)
+            CONSTRAINT mld_r_ins_srtdiscipline_key2 REFERENCES ins_srtdiscipline(ins_srtdiscipline_key) ON DELETE CASCADE,
+        ins_discipline_key
+            NUMBER(10)
+            CONSTRAINT mld_r_ins_discipline_key3 REFERENCES ins_tab_discipline(ins_discipline_key) ON DELETE CASCADE
+    );
 
 CREATE_TABLE(mld_deelwerk, 0)
 (
@@ -1318,7 +1646,9 @@ CREATE_TABLE(mld_melding_note, 0)
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
    fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
    mld_melding_note_omschrijving    VARCHAR2 (4000 CHAR),
-   mld_melding_note_flag            NUMBER (2) DEFAULT 0
+   mld_melding_note_flag            NUMBER (2) DEFAULT 0, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO) +64=gemailde notitie
+   mld_melding_note_parent_key      NUMBER (10) DEFAULT NULL REFERENCES mld_melding_note (mld_melding_note_key) ON DELETE CASCADE,
+   fac_tracking_key                 NUMBER (10) REFERENCES fac_tracking (fac_tracking_key) ON DELETE SET NULL /* optionally related to a specific event */
 );
 
 CREATE_TABLE(mld_opdr_note, 0)
@@ -1329,7 +1659,10 @@ CREATE_TABLE(mld_opdr_note, 0)
    mld_opdr_note_wijzigdatum        DATE,
    prs_perslid_key                  NUMBER (10) REFERENCES prs_perslid (prs_perslid_key) ON DELETE SET NULL,
    fac_note_group_key               NUMBER (10) REFERENCES fac_note_group(fac_note_group_key) ON DELETE SET NULL,
-   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR)
+   mld_opdr_note_omschrijving       VARCHAR2 (4000 CHAR),
+   mld_opdr_note_flag               NUMBER (2) DEFAULT 4, // &1=FE, &2= unused (Altijd zichtbaar voor FOBO), +4=UITV, +32=onbeantwoorde vraag aan FE, +64=gemailde notitie
+   mld_opdr_note_parent_key         NUMBER (10) DEFAULT NULL REFERENCES mld_opdr_note (mld_opdr_note_key) ON DELETE CASCADE,
+   fac_tracking_key                 NUMBER (10) REFERENCES fac_tracking (fac_tracking_key) ON DELETE SET NULL /* optionally related to a specific event */
 );
 
 -- Improductieve opdrachten, alternatief van mld_opdr om uren op te registreren
@@ -1365,9 +1698,14 @@ CREATE_TABLE(mld_opdr_uren, 0)
     mld_opdr_uren_besteed
         NUMBER(7,4) NOT NULL,
     mld_opdr_uren_status
-        NUMBER(1) NOT NULL, --2=ingevoerd, 3=terfiat, 4=gefiatteerd, 1=afgekeurd, 6=verwerkt(=gefactureerd)
+        NUMBER(1) NOT NULL, --1=Ingevoerd 2=Ter goedkeuring 3=Goedgekeurd 4=Verwerkt
      mld_opdr_uren_opmerking
         VARCHAR2(100),
+    mld_opdr_uren_wijzigdatum
+        DATE
+        DEFAULT SYSDATE,
+    mld_opdr_uren_wijziguser_key
+        NUMBER(10) CONSTRAINT mld_r_prs_perslid_key13 REFERENCES prs_perslid(prs_perslid_key) ON DELETE SET NULL,
     CONSTRAINT mld_c_mld_opdr_uren1 CHECK ((mld_opdr_key IS NULL AND mld_impropdr_key IS NOT NULL) OR (mld_opdr_key IS NOT NULL AND mld_impropdr_key IS NULL))
 );
 
@@ -1453,6 +1791,22 @@ CREATE_TABLE(mld_dienstpakket, 0)
     NUMBER(10) REFERENCES  mld_stdmelding(mld_stdmelding_key)
 );
 
+CREATE_TABLE(mld_stdmelding_srtruimte, 0)
+(
+    mld_stdmelding_srtruimte_key
+        NUMBER(10)
+        PRIMARY KEY,
+    mld_stdmelding_key
+        NUMBER(10)
+        NOT_NULL(mld_stdmelding_key, mld_c_mld_stdmelding_key3)
+        CONSTRAINT mld_r_mld_stdmelding_key11 REFERENCES mld_stdmelding(mld_stdmelding_key) ON DELETE CASCADE,
+    alg_srtruimte_key
+        NUMBER(10)
+        NOT_NULL(alg_srtruimte_key, ins_c_ins_srtruimte_key)
+        CONSTRAINT mld_r_ins_srtruimte_key REFERENCES alg_srtruimte(alg_srtruimte_key) ON DELETE CASCADE,
+    CONSTRAINT mld_u_mld_stdmelding_srtruimte UNIQUE(mld_stdmelding_key, alg_srtruimte_key)
+);
+
 CREATE_TABLE(mld_opdr_uitvoeren, 0)
 (
     mld_opdr_uitvoeren_key