VGLD#55300 Aanpassing import externe bedrijven (kenmerk 'Bankrekening' vullen) tbv zoeken op IBAN

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

VGLD/vgld.sql

@@ -2314,14 +2314,57 @@ END vgld_import_extern_bedrijf;
 /
 
 
-CREATE OR REPLACE PROCEDURE vgld_update_extern_bedrijf (p_import_key IN NUMBER)
+CREATE OR REPLACE PROCEDURE vgld_update_extern_bedrijf (
+   p_import_key IN NUMBER)
 AS
+   CURSOR ciban
+   IS
+      SELECT b.prs_bedrijf_key,
+             i.prs_leverancier_nr,
+             SUBSTR (i.prs_bedrijf_opmerking,
+                     7,
+                     INSTR (i.prs_bedrijf_opmerking, CHR (10)) - 7)
+                AS importiban,
+             (SELECT prs_kenmerklink_waarde
+                FROM prs_kenmerklink
+               WHERE prs_kenmerk_key = 1080             --Kenmerk Bankrekening
+                     AND prs_link_key = b.prs_bedrijf_key)
+                AS iban
+        FROM fac_imp_ext_bedrijf i, prs_bedrijf b
+       WHERE b.prs_leverancier_nr = i.prs_leverancier_nr
+             AND b.prs_bedrijf_verwijder IS NULL;
 BEGIN
-	-- Parameter p_sync = 0 of 1:
-	-- 0 = er wordt niet gesynchroniseerd (op leveranciersnummer), maar gewoon (ala FIP) aangevuld. Elke leverancier wordt toegevoegd.
-	-- 1 = er wel wel gesynchroniseerd (op leveranciernummer), dus add + update + delete
-	fac_update_bedrijf_body(p_import_key, 1);
-END ;
+   -- Parameter p_sync = 0 of 1:
+   -- 0 = er wordt niet gesynchroniseerd (op leveranciersnummer), maar gewoon (ala FIP) aangevuld. Elke leverancier wordt toegevoegd.
+   -- 1 = er wel wel gesynchroniseerd (op leveranciernummer), dus add + update + delete
+   fac_update_bedrijf_body (p_import_key, 1);
+
+   --VGLD#55300: Ook kenmerk 'Bankrekening' vullen met IBAN nummer
+   FOR reciban IN ciban
+   LOOP
+      BEGIN
+         IF (reciban.iban IS NULL)
+         THEN
+            INSERT INTO prs_kenmerklink (prs_link_key,
+                                         prs_kenmerklink_niveau,
+                                         prs_kenmerk_key,
+                                         prs_kenmerklink_waarde)
+                VALUES (reciban.prs_bedrijf_key,
+                        'B',
+                        1080,
+                        reciban.importiban);
+         ELSE
+            IF (reciban.iban <> reciban.importiban)
+            THEN
+               UPDATE prs_kenmerklink km1
+                  SET km1.prs_kenmerklink_waarde = reciban.importiban
+                WHERE km1.prs_link_key = reciban.prs_bedrijf_key
+                      AND km1.prs_kenmerk_key = 1080;   --Kenmerk Bankrekening
+            END IF;
+         END IF;
+      END;
+   END LOOP;
+END;
 /
 
 ------ payload end   ------