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

YAXX#88424 Controle op IBAN toegevoegd. Loggin van de factuur-import wordt nu in de notities geplaatst.

Browse Source 
svn path=/Customer/trunk/; revision=69066
This commit is contained in:
Arthur Egberink
2025-05-20 10:49:39 +00:00
parent 93cfb41fcc
commit 3c6055bb61
1 changed files with 12 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
VBXX/vbxx.sql
View File

@@ -5669,25 +5669,20 @@ IS
FROM fin_factuur_note
WHERE fin_factuur_key = p_factuur_key;
INSERT INTO fin_factuur_note (fin_factuur_key, prs_perslid_key, fin_factuur_note_omschrijving)
VALUES ('Factuur import:' || CHR (13) || CHR (10) || v_factuur_note_omschrijving, p_perslid_key, p_error_str);
UPDATE fin_factuur_note
SET fin_factuur_key = p_factuur_key,
prs_perslid_key = p_perslid_key,
fin_factuur_note_omschrijving = fin_factuur_note_omschrijving || CHR (13) || CHR (10) || p_error_str
WHERE fin_factuur_note_key = v_factuur_note_key;
EXCEPTION WHEN NO_DATA_FOUND
THEN
INSERT INTO fin_factuur_note (fin_factuur_key, prs_perslid_key, fin_factuur_note_omschrijving)
VALUES (v_factuur_note_omschrijving || CHR (13) || CHR (10) || p_error_str, p_perslid_key, p_error_str);
IF v_factuur_opmerking IS NOT NULL
THEN
v_factuur_opmerking := SUBSTR(v_factuur_opmerking || CHR (13) || CHR (10) || p_error_str, 1, 250);
ELSE
v_factuur_opmerking := SUBSTR(p_error_str,1,250);
END IF;
INSERT INTO fin_factuur_note (fin_factuur_key, prs_perslid_key, fin_factuur_note_omschrijving)
VALUES (p_factuur_key, p_perslid_key, 'Factuur import:' || CHR (13) || CHR (10) || p_error_str);
END;
-- nog reden vullen:
UPDATE fin_factuur
SET fin_factuur_statuses_key = 3,
fin_factuur_opmerking = v_factuur_opmerking
SET fin_factuur_statuses_key = 3
WHERE fin_factuur_key = p_factuur_key;
IF p_foutcode IS NOT NULL
@@ -5917,7 +5912,7 @@ BEGIN
-- G rekening IBAN tonen in Facilitor bij Factuur
setkenmerkfactuur(rec.fin_factuur_key, 'GIBAN', rec.kenmerk13);
SELECT COALESCE(o.mld_uitvoerende_keys, bo.prs_bedrijf_key, c.cnt_prs_bedrijf_key)
SELECT COALESCE(o.mld_uitvoerende_keys, bo.prs_bedrijf_key, c.cnt_prs_bedrijf_key, -1)
INTO v_bedrijf_key
FROM fin_factuur f,
mld_opdr o,
@@ -5925,7 +5920,8 @@ BEGIN
cnt_contract c
WHERE f.mld_opdr_key = o.mld_opdr_key(+)
AND f.bes_bestelopdr_key = bo.bes_bestelopdr_key(+)
AND f.cnt_contract_key = c.cnt_contract_key(+);
AND f.cnt_contract_key = c.cnt_contract_key(+)
AND f.fin_factuur_key = rec.fin_factuur_key;
SELECT FLX.getflex('PRS', k.prs_kenmerk_key, v_bedrijf_key, 'B', 1)
INTO v_bedrijf_iban
@@ -5935,7 +5931,7 @@ BEGIN
IF v_bedrijf_iban IS NOT NULL AND COALESCE(rec.kenmerk12, 'QueQeLeQue') <> v_bedrijf_iban
THEN
-- dan gaan we ook de iban controleren
v_aanduiding_controle := 'ERROR: Dubbele facturen gevonden!' ;
v_aanduiding_controle := 'ERROR: IBAN komt niet overeen!' ;
track_error (v_aanduiding_controle, POWER(2,6), rec.fin_factuur_key, v_perslid_key);
END IF;