BVB1#87767 Implementatie koppeling Rentman

svn path=/Customer/trunk/; revision=70170

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;