Daar komt nooit een nieuwe versie van...

svn path=/Database/branches/DB16/; revision=16788

CAD/CAD_VIE.SRC

@@ -571,6 +571,101 @@ AS
               AND pwp.prs_werkplek_key(+) = wp.prs_werkplek_key
    GROUP BY   wp.prs_werkplek_key;
 
+-- Reserveerbare ruimtes kleurenthema (waarde = aantal minuten nog vrij)
+CREATE_VIEW(cad_v_thema_ruimte_reservering,0)
+(ALG_RUIMTE_KEY, WAARDE)
+AS
+  SELECT alg_ruimte_key alg_ruimte_key,
+         COALESCE (MIN (TRUNC ( (tijdvrij) * 24 * 60) - 1), 999999) waarde -- MIN want pessimistisch
+    FROM (SELECT rar.alg_ruimte_key, res_rsv_ruimte_van - SYSDATE tijdvrij
+            FROM res_ruimte_opstelling rro,
+                 res_ruimte rr,
+                 res_alg_ruimte rar,
+                 res_opstelling ro,
+                 (SELECT res_ruimte_opstel_key, res_rsv_ruimte_van
+                    FROM res_v_aanwezigrsv_ruimte rrr
+                   WHERE SYSDATE BETWEEN TRUNC (res_rsv_ruimte_van)
+                                     AND  res_rsv_ruimte_tot) blokkerend -- vandaag en nog niet afgelopen
+           WHERE     rro.res_ruimte_key = rr.res_ruimte_key
+                 AND rro.res_opstelling_key = ro.res_opstelling_key
+                 AND rar.res_alg_ruimte_verwijder IS NULL
+                 AND rar.res_ruimte_key = rr.res_ruimte_key
+                 AND rro.res_ruimte_opstel_key =
+                       blokkerend.res_ruimte_opstel_key(+))
+    GROUP BY alg_ruimte_key;
+
+-- Reserveerbare ruimtes label thema
+-- Let op: Toont *eerstvolgende* reservering als die binnen een uur begint
+CREATE_VIEW(cad_v_label_ruimte_reservering,0)
+(ALG_RUIMTE_KEY, WAARDE)
+AS
+     SELECT rar.alg_ruimte_key, MAX (res_ruimte_nr || res_info.tekst) waarde
+       FROM res_ruimte_opstelling rro,
+            res_ruimte rr,
+            res_alg_ruimte rar,
+            res_opstelling ro,
+            (  SELECT res_ruimte_opstel_key,
+                      MAX(   '[br]'
+                          || TO_CHAR (res_rsv_ruimte_van, 'HH24:MI')
+                          || '-'
+                          || TO_CHAR (res_rsv_ruimte_tot, 'HH24:MI')
+                          || '[br][s50]host: '
+                          || prs_perslid_naam_full
+                          || '[br][s80][b]'
+                          || res_rsv_ruimte_omschrijving)
+                         tekst
+                 FROM res_v_aanwezigrsv_ruimte rrr, prs_v_perslid_fullnames pp
+                WHERE pp.prs_perslid_key = res_rsv_ruimte_host_key
+                      AND SYSDATE BETWEEN res_rsv_ruimte_van - (1 / 24)
+                                      AND  res_rsv_ruimte_tot
+             GROUP BY res_ruimte_opstel_key) res_info
+      WHERE     res_info.res_ruimte_opstel_key(+) = rro.res_ruimte_opstel_key
+            AND rro.res_ruimte_key = rr.res_ruimte_key
+            AND rro.res_opstelling_key = ro.res_opstelling_key
+            AND rar.res_ruimte_key = rr.res_ruimte_key
+            AND rar.res_alg_ruimte_verwijder IS NULL
+   GROUP BY rar.alg_ruimte_key;
+
+-- Reserveerbare delen kleurenthema (waarde = aantal minuten nog vrij)
+CREATE_VIEW(cad_v_thema_deel_reservering,0)
+(
+   INS_DEEL_KEY,
+   WAARDE
+)
+AS
+     SELECT ins_deel_key,
+            COALESCE (MIN (TRUNC (tijdvrij * 24 * 60)-1), 999999) waarde -- MIN want perssimistisch
+       FROM (SELECT res_ins_deel_key ins_deel_key,
+                    res_rsv_deel_van - SYSDATE tijdvrij
+               FROM res_v_aanwezigdeel r,
+                    (SELECT res_deel_key, res_rsv_deel_van, res_rsv_deel_tot
+                       FROM res_v_aanwezigrsv_deel rrd
+                      WHERE SYSDATE BETWEEN TRUNC (res_rsv_deel_van)
+                                        AND  res_rsv_deel_tot) blokkerend -- vandaag en nog niet afgelopen
+              WHERE r.res_deel_key = blokkerend.res_deel_key(+))
+   GROUP BY ins_deel_key;
+
+-- Reserveerbare delen label thema
+CREATE_VIEW(cad_v_label_deel_reservering,0)
+(
+   INS_DEEL_KEY,
+   WAARDE
+)
+AS
+   SELECT ins_deel_key, prs_perslid_naam_full
+     FROM ins_v_aanwezigdeel isd,
+          (SELECT res_ins_deel_key, prs_perslid_naam_full
+             FROM res_v_aanwezigdeel r,
+                  res_v_aanwezigrsv_deel rrd,
+                  res_rsv_ruimte rrr,
+                  prs_v_perslid_fullnames p
+            WHERE     r.res_deel_key = rrd.res_deel_key
+                  AND rrd.res_rsv_ruimte_key = rrr.res_rsv_ruimte_key
+                  AND rrr.res_rsv_ruimte_host_key = p.prs_perslid_key
+                  AND SYSDATE BETWEEN res_rsv_deel_van - 1 / 24 / 60
+                                  AND  res_rsv_deel_tot - 1 / 24 / 60) res -- NU bezig
+    WHERE isd.ins_deel_key = res.res_ins_deel_key(+);
+
 REGISTERRUN('$Workfile: CAD_VIE.SRC $','$Revision$')
 
 #endif // CAD

FAC/FAC_PAC.SRC

@@ -3617,7 +3617,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                                           fac_result_waarde)
                       VALUES ('hMailServer',
                               'kenmerkpath',
-                              'MLD\M' || to_char(newkey/1000, 'FM0000') || '___\M' || newkey || '\' || kkey || '\');
+                              'MLD\M' || to_char( TRUNC(newkey/1000), 'FM0000') || '___\M' || newkey || '\' || kkey || '\');
                END IF;
 
                mld.setmeldingstatus (newkey, 2, sender);

FAC/FAC_PACF.SRC

@@ -11872,10 +11872,18 @@ AS
             BEGIN
                 -- haal prefix 'C' of 'c' eraf
                 c_contract_nr := SUBSTR (p_broc_nr, 2);
-                SELECT   cnt_contract_key
-                     INTO   p_broc_key
-                     FROM   cnt_contract
-                    WHERE   cnt_contract_key = c_contract_nr;
+                IF INSTR(p_broc_nr, '.') = 0 
+                THEN         
+                    SELECT   cnt_contract_key
+                      INTO   p_broc_key
+                      FROM   cnt_contract
+                     WHERE   cnt_contract_nummer_intern = c_contract_nr;
+                ELSE
+                    SELECT   cnt_contract_key
+                      INTO   p_broc_key
+                      FROM   cnt_contract
+                     WHERE   cnt_contract_nummer_intern || '.' || cnt_contract_versie = c_contract_nr;
+                END IF;
             EXCEPTION
                WHEN OTHERS
                THEN

FAC/FAC_PACX.SRC

@@ -984,9 +984,8 @@ AS
                   AND v.prs_kenmerk_key(+) = k.prs_kenmerk_key
          ORDER BY k.prs_kenmerk_volgnr;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       prs_kenmerklink.prs_kenmerklink_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -1805,9 +1804,8 @@ AS
                   AND v.alg_kenmerk_key(+) = k.alg_kenmerk_key
          ORDER BY k.alg_kenmerk_volgnr;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       alg_onrgoedkenmerk.alg_onrgoedkenmerk_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -2862,9 +2860,8 @@ AS
                   AND v.mld_kenmerk_key(+) = k.mld_kenmerk_key
          ORDER BY k.mld_kenmerk_volgnummer;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       mld_kenmerkmelding.mld_kenmerkmelding_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -2944,9 +2941,8 @@ AS
          ORDER BY k.mld_kenmerk_volgnummer;
 
       rec1                   c1%ROWTYPE;
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       mld_kenmerkopdr.mld_kenmerkopdr_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -4384,9 +4380,8 @@ AS
                   AND k.bes_kenmerk_type = 'I'
          ORDER BY k.bes_kenmerk_volgnummer;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       bes_kenmerkbesteli.bes_kenmerkbesteli_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -4466,9 +4461,8 @@ AS
                   AND k.bes_kenmerk_type = 'B'
          ORDER BY k.bes_kenmerk_volgnummer;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       bes_kenmerkbestell.bes_kenmerkbestell_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -5342,9 +5336,8 @@ AS
                   AND v.bez_kenmerk_key(+) = k.bez_kenmerk_key
          ORDER BY k.bez_kenmerk_volgnr;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       bez_kenmerkwaarde.bez_kenmerkwaarde_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -5627,9 +5620,8 @@ AS
                   AND v.res_kenmerk_key(+) = k.res_kenmerk_key
          ORDER BY k.res_kenmerk_volgnummer;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       res_kenmerkwaarde.res_kenmerkreservering_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP
@@ -7079,9 +7071,8 @@ AS
                   AND v.fin_kenmerk_key(+) = k.fin_kenmerk_key
          ORDER BY k.fin_kenmerk_volgnr;
 
-      v_kenmerk_waarde       VARCHAR2 (1000);
-      v_ref_kenmerk_waarde   VARCHAR2 (1000);
-      sql_stmt               VARCHAR2 (1000);
+      v_kenmerk_waarde       fin_kenmerkfactuur.fin_kenmerkfactuur_waarde%TYPE;
+
    BEGIN
       FOR rec1 IN c1
       LOOP

FCLT.NMK

@@ -62,7 +62,7 @@ PROJEXE=z:\Project\FACILITOR\BUILD
 ##
 CURRENTVERSION=15
 NEXTVERSION=16
-FILEVERSION=
+FILEVERSION=c
 NEXTCAREVERSION=19
 NEXTROOT=DB$(NEXTVERSION)$(FILEVERSION)
 CURRENTUPDATE=DB$(CURRENTVERSION)to$(NEXTVERSION)

FIN/FIN_PAC.SRC

@@ -735,15 +735,20 @@ AS
       RETURN NUMBER
    IS
       lperc fin_btwtabelwaarde.fin_btwtabelwaarde_perc%TYPE;
+      lverlegd fin_btwtabelwaarde.fin_btwtabelwaarde_verlegd%TYPE;
       lbtwbedrag NUMBER;
    BEGIN
       BEGIN
-         SELECT   fin_btwtabelwaarde_perc
-           INTO   lperc
+         SELECT   fin_btwtabelwaarde_perc, COALESCE(fin_btwtabelwaarde_verlegd, 0)
+           INTO   lperc, lverlegd
            FROM   fin_btwtabelwaarde
           WHERE   fin_btwtabelwaarde_key = pbtwtabelwaardekey;
-
-         lbtwbedrag := getbtw_bedrag_percentage (pbedragexc, lperc);
+         
+         IF lverlegd = 1 THEN
+            lbtwbedrag := 0;
+         ELSE
+            lbtwbedrag := getbtw_bedrag_percentage (pbedragexc, lperc);
+         END IF;
       EXCEPTION
          WHEN NO_DATA_FOUND
          THEN

RES/RES_PAC.SRC

@@ -381,6 +381,11 @@ AS
             THEN
                preposttime :=  0;
             END IF;
+            -- Als *nu* gereserveerd negeren we schoonmaaktijd. Handig voor pda-reserveringen met noshow
+            IF prsv_ruimte.res_rsv_ruimte_van BETWEEN SYSDATE - 5/60/24 AND SYSDATE + 5/60/24
+            THEN
+               preposttime :=  0;
+            END IF;
             -- Oke, hoeveel overlappende alg_ruimte hebben we nu
             SELECT   COUNT (DISTINCT rb.res_ruimte_key)
               INTO n_overlap