SUTF#24543 - koppeling naar Exact

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

SUTF/sutf.sql

@@ -1398,10 +1398,34 @@ END;
 
 CREATE OR REPLACE PROCEDURE sutf_post_processing_factuur (p_import_key IN NUMBER)
 AS
-   v_kenmerk_key NUMBER(10);
+    -- Key van het kenmerk 'betaalreferentie' bij de factuur
+    c_kenmerk_key NUMBER(10) := 21;
+    
+    CURSOR cfactuur_kenmerk
+    IS
+        SELECT DISTINCT fin_factuur_key, kenmerk1, factuurnr, fac_imp_file_index
+        FROM fac_imp_factuur
+        WHERE fin_factuur_key IS NOT NULL
+        AND kenmerk1 IS NOT NULL;
 BEGIN
-   --
-   v_kenmerk_key := 1234;
+   
+   -- De betaalreferentie wordt in kenmerk 1 van fac_imp_factuur gezet, dus alle fac_imp_factuur langsgaan en verwerken
+   
+   FOR rc IN cfactuur_kenmerk
+   LOOP
+        BEGIN
+            INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde)
+            VALUES (rc.fin_factuur_key, c_kenmerk_key, rc.kenmerk1);
+        EXCEPTION
+            WHEN OTHERS
+                THEN
+                fac.imp_writelog (p_import_key,
+                                'W',
+                                'Van factuur met key ' || rc.fin_factuur_key || ' is de betaalreferentie niet bewaard (regel ' || rc.fac_imp_file_index || ')',
+                                'Factuurnr:' || rc.factuurnr  || ' / Betalingskenmerk: ' || rc.kenmerk1
+                                );
+        END;
+   END LOOP;
 END;
 /