VGLD#31262: Nieuwe Exact import functie

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

VGLD/vgld.sql

@@ -2182,13 +2182,71 @@ BEGIN
 END;
 /
 
+----------------------------------------------------------------------------------------------------------------------------------------------------------------------
+
+-- Koppeling met Exact - CREDITEUREN
+
+
+CREATE OR REPLACE PROCEDURE vgld_post_import_bedrijf (p_import_key IN NUMBER)
+AS
+BEGIN
+		-- VGLD stuurt geen LUC mee, afgesproken dat elke leverancier LUC gaat zijn (leverancier, uitvoerende en contractant).
+		-- Daarom in deze post-import alle bedrijven in de import met p_import_key een LUC markeren.
+		
+		UPDATE fac_imp_ext_bedrijf
+		SET prs_bedrijf_leverancier = 1,
+				prs_bedrijf_uitvoerende = 1,
+				prs_bedrijf_contract = 1;
+		
+		-- Alle @@ (deze worden in de XSL geplaatst) worden door CR/LF vervangen.		
+		UPDATE fac_imp_ext_bedrijf
+		SET prs_bedrijf_opmerking = replace(prs_bedrijf_opmerking, '@@',CHR (10));
+		
+END;
+/
+
+
+CREATE OR REPLACE PROCEDURE vgld_import_bedrijf (p_import_key IN NUMBER)
+AS
+   v_errormsg       VARCHAR2 (1000);
+   oracle_err_num   NUMBER;
+   oracle_err_mes   VARCHAR2 (200);
+   v_seq_of_columns VARCHAR(255);   
+BEGIN
+		-- hulpje            1;2;3;4;5;6;7;8;9;0;1;2;3;4;5;6;7;8;9;0;1;2;3;4;5;6;7;8;9;0;1;2;3
+	 	v_seq_of_columns := '2;1;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;3;0;0;0;4;0;0';
+	 	vgld_import_bedrijf_body (p_import_key, v_seq_of_columns, 0);
+	 	vgld_post_import_bedrijf (p_import_key);
+	 	
+EXCEPTION
+   WHEN OTHERS
+   THEN
+      oracle_err_num := SQLCODE;
+      oracle_err_mes := SUBSTR (SQLERRM, 1, 200);
+      v_errormsg :=
+         'ORACLE (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
+      fac.imp_writelog (p_import_key,
+                        'E',
+                        v_errormsg,
+                        'Inleesproces relaties afgebroken!');
+END vgld_import_bedrijf;
+/
+
+
+CREATE OR REPLACE PROCEDURE vgld_update_bedrijf (p_import_key IN NUMBER)
+AS
+BEGIN
+		vgld_update_bedrijf_body(p_import_key, 1);
+END ;
+/
+
 
 
 
 BEGIN adm.systrackscriptId('$Id$', 0); END;
 /
 
-BEGIN fac.registercustversion('VGLD', 6); END;
+BEGIN fac.registercustversion('VGLD', 9); END;
 /
 
 commit;