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

MARX#88175 Optimalisatie nodig: onnodige web_user_messages verminderen

Browse Source 
svn path=/Mareon/trunk/; revision=69880
This commit is contained in:
Marcel Bourseau
2025-07-30 11:15:28 +00:00
parent 211785691b
commit 0a588aa569
1 changed files with 31 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
sql/mareon.sql
View File

@@ -11565,7 +11565,8 @@ SET DEFINE OFF
kenmerk3 AS iban,
fac_imp_file_index
FROM fac_imp_factuur
WHERE fac_import_key = p_import_key;
WHERE fac_import_key = p_import_key
ORDER BY ordernr, fac_imp_file_index;
v_aanduiding VARCHAR2 (200);
v_errorhint VARCHAR2 (1000);
@@ -11583,6 +11584,7 @@ SET DEFINE OFF
h_rc_ordernr VARCHAR2(100);
v_verplichtings_soort VARCHAR2(20);
v_push_err_warn VARCHAR2(1);
BEGIN
v_errorhint :=
@@ -11602,6 +11604,10 @@ SET DEFINE OFF
-- 5. het is een ongeldig MAR/BES/ION, er bestaat geen contract (tbv mareon facturen), we staan deze factuur derhalve niet toe (en verwijderen deze)!
v_verplichtings_soort := NULL;
-- MARX#88175 Optimalisatie: web_user_messages verminderen
v_push_err_warn := 'E';
h_rc_ordernr := 'MARX_dit_ordernummer_bestaat_niet_1234_MARX';
FOR rc IN lev_ordernrs
@@ -11611,6 +11617,8 @@ SET DEFINE OFF
THEN
-- Verplichtingsnummer is veranderd en moet (voor eerste keer of opnieuw) bepaald worden:
v_verplichtings_soort := NULL;
-- En ook moet deze variabele terug op default 'E' (error) worden gezet... (MARX#88175 Optimalisatie: web_user_messages verminderen)
v_push_err_warn := 'E';
END IF;
IF v_verplichtings_soort IS NULL
@@ -11751,10 +11759,28 @@ SET DEFINE OFF
-- Ongure factuur, vod d'r mee.
DELETE FROM fac_imp_factuur
WHERE fac_import_key = p_import_key AND fac_imp_file_index = rc.fac_imp_file_index;
IF v_push_err_warn = 'E'
THEN
-- MARX#88175 Optimalisatie: web_user_messages verminderen
-- Eenmalig per ordernr een Error...
fac.imp_writelog (
p_import_key,
v_push_err_warn,
'MAReon-nr '
|| rc.ordernr
|| ' van leverancier '
|| rc.leveranciernr
|| ' is ongeldig: factuur wordt niet ingelezen.',
'Factuurnummer:' || rc.factuurnr);
END IF;
-- Elke regel mag als warning...
v_push_err_warn := 'W';
fac.imp_writelog (
p_import_key,
'E',
v_push_err_warn,
'MAReon-nr '
|| rc.ordernr
|| ' van leverancier '
@@ -11763,6 +11789,8 @@ SET DEFINE OFF
|| rc.fac_imp_file_index
|| ')',
'Factuurnummer:' || rc.factuurnr);
END CASE;
END IF;
h_rc_ordernr := rc.ordernr;