From b70be50e5d5d7ccc67a9d2dbaf170c5f61e27cd9 Mon Sep 17 00:00:00 2001
From: Norbert Wassink <norbert.wassink@aareon.nl>
Date: Thu, 23 Mar 2023 11:32:23 +0000
Subject: [PATCH] PIVP#74972 -- Fase 2 implementatie

svn path=/Customer/trunk/; revision=59724
---
 PIVP/PIVP.sql | 34 ++++++++++++++++++----------------
 1 file changed, 18 insertions(+), 16 deletions(-)

diff --git a/PIVP/PIVP.sql b/PIVP/PIVP.sql
index 5c46d7555..416da6b66 100644
--- a/PIVP/PIVP.sql
+++ b/PIVP/PIVP.sql
@@ -2335,8 +2335,8 @@ BEGIN
 
    DELETE FROM fac_imp_onrgoed2;
    
-   SELECT alg_kenmerk_key INTO v_huurder_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='HUURDER';
-   SELECT alg_kenmerk_key INTO v_vvo_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VVO';
+--   SELECT alg_kenmerk_key INTO v_huurder_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='HUURDER';
+--   SELECT alg_kenmerk_key INTO v_vvo_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VVO';
    SELECT alg_kenmerk_key INTO v_hrTp_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VERHUURTYPE';
    SELECT alg_kenmerk_key INTO v_vhrbr_kenm_key FROM alg_kenmerk WHERE alg_kenmerk_upper='VERHUURBAAR';
 
@@ -2429,24 +2429,26 @@ END;
 
 CREATE OR REPLACE PROCEDURE PIVP_UPDATE_EXACT_RUIMTES(p_import_key IN NUMBER) 
 AS
+  CURSOR C
+  IS
+      SELECT a.alg_ruimte_key, fio.alg_kenmerkwaarde2 
+        FROM fac_imp_onrgoed2 fio, alg_v_allonrgoed_gegevens a 
+       WHERE a.alg_ruimte_nr=fio.alg_ruimte_nr;
+
 BEGIN
    fac_update_onrgoed2(p_import_key); 
    
-   -- Nu gaan we de VVO kolom data wegschrijvene in de alg_ruimte_opp_alt1 kolom
-   UPDATE alg_ruimte 
-      SET alg_ruimte_opp_alt1= 
-          (SELECT fac.safe_to_number(REPLACE(alg_kenmerkwaarde2,',','.')) 
-             FROM fac_imp_onrgoed2 
-            WHERE fac_imp_onrgoed2.alg_ruimte_nr = alg_ruimte.alg_ruimte_nr);
-   
-   -- we gaan gelijk de extrensync date zetten zodat we weten bij mutatie welke ruimtes er geexporteerd moeten worden naare exact toe
-   UPDATE alg_ruimte 
-      SET alg_ruimte_externsyncdate= 
-          (SELECT SYSDATE 
-             FROM fac_imp_onrgoed2 
-            WHERE fac_imp_onrgoed2.alg_ruimte_nr = alg_ruimte.alg_ruimte_nr);
+   FOR rec in c
+   LOOP        
+           -- Nu gaan we de VVO kolom data wegschrijvene in de alg_ruimte_opp_alt1 kolom
+           -- we gaan gelijk de extrensync date zetten zodat we weten bij mutatie welke ruimtes er geexporteerd moeten worden naare exact toe
+           UPDATE alg_ruimte 
+              SET alg_ruimte_opp_alt1= fac.safe_to_number(REPLACE(rec.alg_kenmerkwaarde2,',','.')), 
+                  alg_ruimte_externsyncdate=SYSDATE
+            WHERE alg_ruimte_key=rec.alg_ruimte_key
+              AND alg_ruimte_verwijder IS NULL;  
             
-   COMMIT;                 
+   END LOOP;   
 END;
 /