WZUV#73971 Gegevens OCI

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

WZUV/WZUV.SQL

@@ -84,6 +84,8 @@ AS
     PROCEDURE noti_vertrek_mdw;
 
     PROCEDURE bes_artikelgroep_hb (p_bestelling_key IN NUMBER);
+    
+    PROCEDURE bes_uuid_topgeschenken (p_bestelling_key IN NUMBER);
 END;
 /
 
@@ -257,6 +259,46 @@ AS
             COMMIT;
         END LOOP;
     END;
+    
+    PROCEDURE bes_uuid_topgeschenken (p_bestelling_key IN NUMBER)
+    AS
+        oracle_err_num   NUMBER;
+        oracle_err_mes   VARCHAR2 (200);
+        v_errormsg       VARCHAR2 (200);
+        v_kenmerk_key    NUMBER (10);
+
+        CURSOR bestelitem IS
+            SELECT sd.bes_srtdeel_opmerking     uuid,
+                   bi.bes_bestelling_item_key
+              FROM bes_srtdeel sd, bes_bestelling_item bi, bes_bestelling b
+             WHERE     b.bes_bestelling_key = p_bestelling_key
+                   AND sd.bes_srtdeel_opmerking IS NOT NULL
+                   AND bi.bes_srtdeel_key = sd.bes_srtdeel_key
+                   AND b.bes_bestelling_key = bi.bes_bestelling_key
+                   AND sd.prs_bedrijf_key = 41681    --- alleen voor Topgeschenken
+                   AND TRUNC (sd.bes_srtdeel_aanmaak) =
+                       TRUNC (b.bes_bestelling_datum);
+                       
+    BEGIN
+        SELECT k.bes_kenmerk_key
+          INTO v_kenmerk_key
+          FROM bes_kenmerk k
+         WHERE k.BES_KENMERK_OMSCHRIJVING = 'UUID';
+         
+        FOR rec IN bestelitem
+        LOOP
+            -- we kunnen rustig een insert doen, het is nooit een update
+            INSERT INTO bes_kenmerkbesteli (bes_bestelling_item_key,
+                                            bes_kenmerk_key,
+                                            bes_kenmerkbesteli_waarde)
+                     VALUES (rec.bes_bestelling_item_key,
+                             v_kenmerk_key,
+                             rec.uuid);
+
+            COMMIT;
+        END LOOP;
+    END;
+
 END;
 /