From b268a5f472470b0022d8282da7112fb42e994b87 Mon Sep 17 00:00:00 2001
From: Arthur Egberink <arthur.egberink@aareon.nl>
Date: Mon, 1 Sep 2025 17:24:48 +0000
Subject: [PATCH]  BVB1#87767 Implementatie koppeling Rentman

svn path=/Customer/trunk/; revision=70170
---
 BVB1/bvb1.sql | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/BVB1/bvb1.sql b/BVB1/bvb1.sql
index ae2da6e4f..161f07246 100644
--- a/BVB1/bvb1.sql
+++ b/BVB1/bvb1.sql
@@ -222,10 +222,16 @@ AS
 
    PROCEDURE RM_update_folders
    AS
-      CURSOR c_srtgroep IS
+      -- We nemen alleen groepen over die ook objectsoorten bevatten.
+      CURSOR c_srtgroep
+      IS 
          SELECT *
-           FROM bvb1_v_folder_structuur
-          WHERE parent1 IS NULL;
+           FROM bvb1_v_folder_structuur fs
+          WHERE     fs.niveau = 1
+                AND EXISTS
+                       (SELECT 1
+                          FROM bvb1_v_folder_structuur fs2
+                         WHERE fs2.niveau = 2 AND fs2.parent1 = fs.id);
 
       CURSOR c_srtdeel (c_srtgroep_id VARCHAR2)
       IS
@@ -252,13 +258,13 @@ AS
              WHERE ins_srtgroep_verwijder IS NULL AND ins_srtgroep_externnr = rec.id;
 
             UPDATE ins_srtgroep
-               SET ins_srtgroep_omschrijving = rec.name
+               SET ins_srtgroep_omschrijving = rec.name || ' (' || rec.id || ')'
              WHERE ins_srtgroep_key = v_srtgroep_key;
          EXCEPTION
             WHEN NO_DATA_FOUND
             THEN
                INSERT INTO ins_srtgroep (ins_discipline_key, ins_srtgroep_omschrijving, ins_srtgroep_externnr)
-                    VALUES (v_discipline_key, rec.name, rec.id)
+                    VALUES (v_discipline_key, rec.name || ' (' || rec.id || ')', rec.id)
                  RETURNING ins_srtgroep_key
                       INTO v_srtgroep_key;
          END;