From d053a7cd25ee9c148e7ceb287bcb0bdfeb65f3c6 Mon Sep 17 00:00:00 2001
From: Jos Groot Lipman <jos.grootlipman@aareon.nl>
Date: Thu, 16 Oct 2014 13:09:53 +0000
Subject: [PATCH] UWVA#30622 Kopie pool res volgnummer altijd vanaf 1

svn path=/Database/trunk/; revision=22976
---
 RES/RES_PAC.SRC | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/RES/RES_PAC.SRC b/RES/RES_PAC.SRC
index 64ec6589..58b3a121 100644
--- a/RES/RES_PAC.SRC
+++ b/RES/RES_PAC.SRC
@@ -11,7 +11,8 @@ CREATE OR REPLACE PACKAGE res AS
                               newdate IN DATE,
                               puserkey NUMBER,
                               pmetbez NUMBER DEFAULT 1,
-                              newreskey NUMBER DEFAULT NULL) RETURN NUMBER;
+                              newreskey NUMBER DEFAULT NULL,
+                              newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER;
    PROCEDURE res_sync_deelres (prsv_ruimte_key_from IN NUMBER, prsv_ruimte_key_to IN NUMBER, flags IN NUMBER, pres_copy_to_bez IN NUMBER);
    PROCEDURE set_ruimte_dirty (prsv_ruimte_key IN NUMBER);
    PROCEDURE set_ruimtes_clean (checkdate IN DATE);
@@ -41,6 +42,7 @@ AS
    AS
       nextkey res_reservering.res_reservering_key%TYPE;
       rsv_key res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
+      newvolgnr res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
    BEGIN
       SELECT   res_s_res_reservering_key.NEXTVAL INTO nextkey FROM DUAL;
       INSERT INTO res_reservering (res_reservering_key, res_reservering_ispool)
@@ -48,12 +50,14 @@ AS
               FROM res_reservering
              WHERE res_reservering_key = pres_key;
 
+      newvolgnr := 1;
       FOR prsv_ruimte
       IN (SELECT   res_rsv_ruimte_key
             FROM   res_v_aanwezigrsv_ruimte
            WHERE   res_reservering_key = pres_key)
       LOOP
-         rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey);
+         rsv_key := res.res_copy_deelres (prsv_ruimte.res_rsv_ruimte_key, newdate, puserkey, pmetbez, nextkey, newvolgnr);
+         newvolgnr := newvolgnr + 1;
       END LOOP;
      RETURN nextkey;
    END;
@@ -62,7 +66,8 @@ AS
                               newdate IN DATE,
                               puserkey NUMBER,
                               pmetbez NUMBER DEFAULT 1,
-                              newreskey NUMBER DEFAULT NULL) RETURN NUMBER
+                              newreskey NUMBER DEFAULT NULL,
+                              newvolgnr NUMBER DEFAULT NULL) RETURN NUMBER
    AS
       nextvolg res_rsv_ruimte.res_rsv_ruimte_volgnr%TYPE;
       nextkey res_rsv_ruimte.res_rsv_ruimte_key%TYPE;
@@ -85,7 +90,7 @@ AS
                                  )
          SELECT   nextkey,
                   COALESCE(newreskey, res_reservering_key),
-                  nextvolg,
+                  COALESCE(newvolgnr, nextvolg),
                   res_rsv_ruimte_omschrijving,
                   res_rsv_ruimte_opmerking,
                   alg_ruimte_key,