From 3539e937b3c1c2f6825e96ff65cabc4394bc668e Mon Sep 17 00:00:00 2001
From: Marcel Bourseau <marcel.bourseau@aareon.nl>
Date: Fri, 12 Oct 2012 09:57:17 +0000
Subject: [PATCH] SUTF#24543 - koppeling naar Exact

svn path=/Customer/trunk/; revision=15656
---
 SUTF/sutf.sql | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/SUTF/sutf.sql b/SUTF/sutf.sql
index 5c0cdcdd2..d7ae15992 100644
--- a/SUTF/sutf.sql
+++ b/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;
 /