Merge 5.4.4 patches

svn path=/Database/trunk/; revision=24233

BES/BES_PAC.SRC

@@ -1382,7 +1382,8 @@ AS
       bericht    fac_srtnotificatie.fac_srtnotificatie_oms%TYPE;
    BEGIN
       BEGIN
-         SELECT   COALESCE(ma.alg_locatie_key, -1),
+         SELECT   DISTINCT
+                  COALESCE(ma.alg_locatie_key, -1),
                   p.prs_afdeling_key,
                   bsg.ins_discipline_key,
                   bd.ins_discipline_omschrijving

FAC/FAC_PACX.SRC

@@ -594,13 +594,23 @@ AS
          addvarchartoclob (v_return); -- Tussenresultaat; nog geen waarde en sluithaakje
          -- Plak nu xmlnode-kenmerk direct in het resultaat (als side effect)
          xmlnode_depth := xmlnode_depth + 1; -- Increment depth; even van het pad af!
-         xml_node (v_xmlnode,
-                   fac.safe_to_number (p_value),
-                   NULL,
-                   NULL,
-                   NULL,
-                   NULL,
-                   TRUE);
+         IF v_xmlnode = 'reservering' THEN
+             xml_node (v_xmlnode,
+                       NULL, -- res_reservering_key mogen we leeg laten
+                       NULL,
+                       NULL,
+                       fac.safe_to_number (p_value), -- res_rsv_ruimte_key moet in p_extra
+                       NULL,
+                       TRUE);
+         ELSE
+             xml_node (v_xmlnode,
+                       fac.safe_to_number (p_value),
+                       NULL,
+                       NULL,
+                       NULL,
+                       NULL,
+                       TRUE);
+         END IF;
          xmlnode_depth := xmlnode_depth - 1; -- Decrement depth; terug naar de basis!
       ELSE
          IF p_value IS NULL
@@ -6605,23 +6615,32 @@ AS
    AS
       v_aanmaak            res_reservering.res_reservering_aanmaak%TYPE;
       v_verwijder          res_reservering.res_reservering_verwijder%TYPE;
+      v_reservering_key    res_reservering.res_reservering_key%TYPE;
       v_nrdeelres          NUMBER;
       l_status             VARCHAR2 (7);
-      CURSOR c1
+      CURSOR c1(res_key NUMBER)
       IS
            SELECT res_rsv_ruimte_key
              FROM res_rsv_ruimte
             WHERE res_rsv_ruimte_verwijder IS NULL
-              AND res_reservering_key = p_key
+              AND res_reservering_key = res_key
          ORDER BY res_rsv_ruimte_van;
-      CURSOR c2
+      CURSOR c2(res_key NUMBER)
       IS
            SELECT res_rsv_ruimte_key
              FROM res_rsv_ruimte
-            WHERE res_reservering_key = p_key
+            WHERE res_reservering_key = res_key
          ORDER BY res_rsv_ruimte_van;
    BEGIN
-      IF p_key IS NOT NULL
+      v_reservering_key := p_key;
+      IF (v_reservering_key IS NULL AND p_res_rsv_ruimte_key IS NOT NULL)
+       THEN
+          SELECT res_reservering_key
+            INTO v_reservering_key
+            FROM res_rsv_ruimte
+           WHERE res_rsv_ruimte_key = p_res_rsv_ruimte_key;
+      END IF;
+      IF v_reservering_key IS NOT NULL
       THEN
 
          IF p_res_rsv_ruimte_key IS NULL
@@ -6629,13 +6648,13 @@ AS
             SELECT COUNT ( * )
               INTO v_nrdeelres
               FROM res_rsv_ruimte
-             WHERE res_reservering_key = p_key
+             WHERE res_reservering_key = v_reservering_key
                AND res_rsv_ruimte_verwijder IS NULL;
          ELSE
             SELECT COUNT ( * )
               INTO v_nrdeelres
               FROM res_rsv_ruimte
-             WHERE res_reservering_key = p_key
+             WHERE res_reservering_key = v_reservering_key
                AND res_rsv_ruimte_key = p_res_rsv_ruimte_key
                AND res_rsv_ruimte_verwijder IS NULL;
          END IF;
@@ -6686,15 +6705,15 @@ AS
          SELECT res_reservering_aanmaak, res_reservering_verwijder
            INTO v_aanmaak, v_verwijder
            FROM res_reservering r
-          WHERE res_reservering_key = p_key;
+          WHERE res_reservering_key = v_reservering_key;
 
-         createxmltagvalue ('key', p_key);
+         createxmltagvalue ('key', v_reservering_key);
          mydatetochar ('datum', v_aanmaak);
          mydatetochar ('verwijder', v_verwijder);
 
          IF v_nrdeelres = 0 -- deleted
          THEN
-            FOR rec1 IN c2
+            FOR rec1 IN c2(v_reservering_key)
             LOOP
                IF p_res_rsv_ruimte_key IS NULL
                   OR (p_res_rsv_ruimte_key IS NOT NULL
@@ -6704,7 +6723,7 @@ AS
                END IF;
             END LOOP;
          ELSE
-            FOR rec1 IN c1
+            FOR rec1 IN c1(v_reservering_key)
             LOOP
                IF p_res_rsv_ruimte_key IS NULL
                   OR (p_res_rsv_ruimte_key IS NOT NULL
@@ -7793,10 +7812,10 @@ AS
          THEN
             create_mld_opdr_node (p_key, p_concise);
          WHEN 'reservering'
-         THEN
+         THEN -- Deelreservering
             create_res_reservering_node (p_key, p_extra);
          WHEN 'xreservering'
-         THEN
+         THEN -- Hele reservering
             create_res_reservering_node (p_key, NULL);
          WHEN 'scenario'
          THEN

RES/RES_PAC.SRC

@@ -308,7 +308,7 @@ AS
                SELECT   ra.res_artikel_key,
                         ra.res_rsv_artikel_aantal,
                         prsv_ruimte_key_to,
-                        ra.res_rsv_artikel_prijs,
+                        NULL, --ra.res_rsv_artikel_prijs,
                         TRUNC (rsv_to.res_rsv_ruimte_van)
                         + (ra.res_rsv_artikel_levering - TRUNC (ra.res_rsv_artikel_levering))
                  FROM   res_rsv_artikel ra
@@ -322,7 +322,7 @@ AS
                SELECT   ra.res_artikel_key,
                         ra.res_rsv_artikel_aantal,
                         prsv_ruimte_key_to,
-                        ra.res_rsv_artikel_prijs,
+                        NULL, --ra.res_rsv_artikel_prijs,
                         new_ruimte_van
                  FROM   res_rsv_artikel ra
                 WHERE   NOT TRUNC (rsv_to.res_rsv_ruimte_van)