admin/Customer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

KFST#55698 -- Verbeteren koppeling Exact

Browse Source 
svn path=/Customer/trunk/; revision=40739
This commit is contained in:
Arthur Egberink
2019-01-30 14:35:09 +00:00
parent f273a7da53
commit c41a796234
1 changed files with 28 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
KFST/kfst.sql
View File

@@ -1218,6 +1218,13 @@ AS
v_crdnr PRS_BEDRIJF.PRS_LEVERANCIER_NR%TYPE;
v_factuur_nr FIN_FACTUUR.FIN_FACTUUR_NR%TYPE;
v_log VARCHAR2(1000);
v_log_prev VARCHAR2 (1000);
v_errormsg VARCHAR (200);
v_errorhint VARCHAR (200);
oracle_err_num NUMBER;
oracle_err_mes VARCHAR2 (200);
BEGIN
v_count := 0;
v_bestand := SUBSTR(p_applname, 1, 12);
@@ -1295,6 +1302,8 @@ BEGIN
v_count := v_count + 1;
END IF;
v_log_prev := v_log;
v_log := rec.result_order || ' | ' || rec.result_order;
INSERT INTO fac_rapport (
fac_rapport_regel,
fac_rapport_volgnr,
@@ -1305,6 +1314,25 @@ BEGIN
v_bestand);
END;
END LOOP;
EXCEPTION
WHEN OTHERS
THEN
oracle_err_num := SQLCODE;
oracle_err_mes := SUBSTR (SQLERRM, 1, 100);
v_errormsg := 'OTHERS (error ' || oracle_err_num || '/' || oracle_err_mes || ')';
fac.writelog (p_applname, 'E', SUBSTR (v_errormsg, 1, 1000), '');
fac.writelog (p_applname, 'I', 'Log: ' || SUBSTR (v_log, 1, 990), '');
fac.writelog (p_applname, 'I', 'Log_prev: ' || SUBSTR (v_log_prev, 1, 990), '');
INSERT INTO fac_rapport (
fac_rapport_regel,
fac_rapport_volgnr,
fac_rapport_node)
VALUES (
'Fout: Export is afgebroken',
9999999999,
v_bestand);
-- Als er iets fout gegaan is willen we voorkomen dat de verwerk actie uitgevoerd wordt.
DELETE kfst_exp_factuur;
END;
/