AAIT#31404 DB24c Cherrypick SVN:23863 uit trunk

svn path=/Database/branches/DB24/; revision=24247

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_PAC.SRC

@@ -2661,16 +2661,10 @@ CREATE OR REPLACE PACKAGE BODY fac AS
    AS
       order_confirm prs_bedrijf.prs_bedrijf_order_confirm%TYPE;
       melding_key   mld_opdr.mld_melding_key%TYPE;
-      refiatstatus  mld_opdr.mld_statusopdr_key_refiat%TYPE;
    BEGIN
       CASE pxmlnode
          WHEN 'opdracht'
          THEN
-            SELECT mld_statusopdr_key_refiat
-              INTO refiatstatus
-              FROM mld_opdr
-             WHERE mld_opdr_key = pkey;
-
             IF presult = 0
             THEN
                UPDATE   mld_opdr
@@ -2678,22 +2672,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                 WHERE   mld_opdr_key = pkey;
 
                fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
-               IF refiatstatus > 0
-               THEN
-                  mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-
-                  -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-                  UPDATE mld_opdr
-                  SET mld_opdr_uren_refiat = NULL,
-                      mld_opdr_uurloon_refiat = NULL,
-                      mld_opdr_materiaal_refiat = NULL,
-                      mld_opdr_kosten_refiat = NULL,
-                      mld_statusopdr_key_refiat = NULL,
-                      mld_opdr_approved_refiat = NULL
-                  WHERE mld_opdr_key = pkey;
-               ELSE
-                  mld.setopdrachtstatus (pkey, 5, NULL);
-               END IF;
+               mld.setopdrachtstatus (pkey, 5, NULL);
             ELSIF presult = 1 -- (Logische) fout
             THEN
                UPDATE   mld_opdr
@@ -2702,30 +2681,7 @@ CREATE OR REPLACE PACKAGE BODY fac AS
 
                fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
                -- status van de opdracht wordt afgewezen.
-               IF refiatstatus > 0
-               THEN
-                  -- Afwijzing tracken. Dit gebeurt niet automatisch omdat niet naar de afgewezen status wordt gegaan.
-                  fac.trackaction('ORDCAN', pkey, NULL, NULL, presulttext);
-                  mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-
-                  -- De oude kosten terugzetten.
-                  -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-                  UPDATE mld_opdr
-                  SET mld_opdr_uren = mld_opdr_uren_refiat,
-                      mld_opdr_uurloon = mld_opdr_uurloon_refiat,
-                      mld_opdr_materiaal = mld_opdr_materiaal_refiat,
-                      mld_opdr_kosten = mld_opdr_kosten_refiat,
-                      mld_opdr_approved = mld_opdr_approved_refiat,
-                      mld_opdr_uren_refiat = NULL,
-                      mld_opdr_uurloon_refiat = NULL,
-                      mld_opdr_materiaal_refiat = NULL,
-                      mld_opdr_kosten_refiat = NULL,
-                      mld_statusopdr_key_refiat = NULL,
-                      mld_opdr_approved_refiat = NULL
-                  WHERE mld_opdr_key = pkey;
-               ELSE
-                  mld.setopdrachtstatus (pkey, 1, NULL);
-               END IF;
+               mld.setopdrachtstatus (pkey, 1, NULL);
             ELSIF presult = 2
             THEN
                fac.trackaction ('ORDSNT', pkey, NULL, NULL, presulttext);
@@ -2745,35 +2701,12 @@ CREATE OR REPLACE PACKAGE BODY fac AS
                   UPDATE   mld_opdr
                      SET   mld_opdr_verzonden = SYSDATE
                    WHERE   mld_opdr_key = pkey;
-                  IF refiatstatus > 0
-                  THEN
-                    mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-                  ELSE
-                    mld.setopdrachtstatus (pkey, 5, NULL);
-                  END IF;
+                  mld.setopdrachtstatus (pkey, 5, NULL);
                ELSE
                   UPDATE   mld_opdr
                      SET   mld_opdr_verzonden = SYSDATE
                    WHERE   mld_opdr_key = pkey;
-                  IF refiatstatus > 0
-                  THEN
-                    mld.setopdrachtstatus (pkey, refiatstatus, NULL);
-                  ELSE
-                    mld.setopdrachtstatus (pkey, 8, NULL);
-                  END IF;
-               END IF;
-
-               -- Refiat opdracht kosten en refiat status weer op NULL zetten.
-               IF refiatstatus > 0 AND (presult >= 0)
-               THEN
-                 UPDATE mld_opdr
-                 SET mld_opdr_uren_refiat = NULL,
-                     mld_opdr_uurloon_refiat = NULL,
-                     mld_opdr_materiaal_refiat = NULL,
-                     mld_opdr_kosten_refiat = NULL,
-                     mld_statusopdr_key_refiat = NULL,
-                     mld_opdr_approved_refiat = NULL
-                 WHERE mld_opdr_key = pkey;
+                  mld.setopdrachtstatus (pkey, 8, NULL);
                END IF;
             ELSIF presult < 0
             THEN

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;
@@ -6673,15 +6692,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
@@ -6691,7 +6710,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
@@ -7775,10 +7794,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

FCLT.NMK

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

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)