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

YAXX#88424 Uitgelezen IBAN, KVK en BTWnr worden nu als kenmerk opgeslagen.

Browse Source 
svn path=/Customer/trunk/; revision=68913
This commit is contained in:
Arthur Egberink
2025-05-06 08:28:04 +00:00
parent 2cf50b461f
commit cb77894dfd
1 changed files with 28 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
VBXX/vbxx.sql
View File

@@ -5541,7 +5541,7 @@ IS
CURSOR cfactuur
IS
SELECT i.fin_factuur_key, factuurdatum, i.kenmerk1, i.kenmerk2, i.kenmerk3, i.kenmerk6, i.kenmerk7, i.kenmerk8, i.kenmerk9, i.factuurnr, i.fac_imp_file_index, f.fin_factuur_totaal, f.fin_factuur_totaal_btw, f.mld_opdr_key, f.cnt_contract_key, f.bes_bestelopdr_key
SELECT i.fin_factuur_key, factuurdatum, i.kenmerk1, i.kenmerk2, i.kenmerk3, i.kenmerk6, i.kenmerk7, i.kenmerk8, i.kenmerk9, i.kenmerk10, i.kenmerk11, i.kenmerk12, i.kenmerk13, i.factuurnr, i.fac_imp_file_index, f.fin_factuur_totaal, f.fin_factuur_totaal_btw, f.mld_opdr_key, f.cnt_contract_key, f.bes_bestelopdr_key
FROM fac_imp_factuur i, fin_factuur f
WHERE i.fin_factuur_key IS NOT NULL
AND i.fac_import_key = p_import_key
@@ -5567,9 +5567,6 @@ IS
c_kenmerk_key_bijlage NUMBER(10);
c_kenmerk_key_soort VARCHAR(1) := 'F'; -- fin_kenmerk_kenmerktype = M(foldermap) of F(enkelvoudig bestand)
v_contract_versies NUMBER(10);
c_kenmerk_key_controle NUMBER(10);
c_kenmerk_key_verzamel NUMBER(10);
c_kenmerk_key_mareon_bron NUMBER(10);
c_kenmerk_key_gebouw NUMBER(10);
v_opdracht_key NUMBER(10);
v_aanduiding_controle VARCHAR2 (1000); -- Voor logging op bijbehorende controle zodat men weet wat men moet controleren
@@ -5644,6 +5641,22 @@ IS
END;
PROCEDURE setkenmerkfactuur (p_factuur_key IN NUMBER, p_kenmerk_code IN VARCHAR2, p_kenmerkwaarde IN VARCHAR2)
IS
v_kenmerk_key FIN_KENMERK.FIN_KENMERK_KEY%TYPE;
BEGIN
SELECT fin_kenmerk_key
INTO v_kenmerk_key
FROM fin_kenmerk
WHERE fin_kenmerk_code = p_kenmerk_code;
INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde)
VALUES (p_factuur_key, v_kenmerk_key, p_kenmerkwaarde);
EXCEPTION WHEN OTHERS
THEN
RETURN;
END;
BEGIN
SELECT prs_perslid_key
@@ -5737,31 +5750,6 @@ BEGIN
WHERE fin_kenmerk_code = 'FACTUURBESTAND'
AND fin_kenmerk_verwijder IS NULL;
-- CUST: Voor verwerking Contracten die qua versienr nog gecontroleerd moeten worden het kenmerk_key ophalen
SELECT MIN (fin_kenmerk_key)
INTO c_kenmerk_key_controle
FROM fin_kenmerk
WHERE fin_kenmerk_type = 'F' -- niveau kenmerk op Factuurniveau en niet op R-regel
AND fin_kenmerk_code = 'EXTRACONTROLE'
AND fin_kenmerk_verwijder IS NULL;
-- CUST: Voor verwerking Verzamelfactuur-indicatie het kenmerk_key ophalen
SELECT MIN (fin_kenmerk_key)
INTO c_kenmerk_key_verzamel
FROM fin_kenmerk
WHERE fin_kenmerk_type = 'F' -- niveau kenmerk op Factuurniveau en niet op R-regel
AND fin_kenmerk_code = 'VERZAMELFACTUUR'
AND fin_kenmerk_verwijder IS NULL;
-- CUST: Voor verwerking Mareon-bron het kenmerk_key ophalen
SELECT MIN (fin_kenmerk_key)
INTO c_kenmerk_key_mareon_bron
FROM fin_kenmerk
WHERE fin_kenmerk_type = 'F' -- niveau kenmerk op Factuurniveau en niet op R-regel
AND fin_kenmerk_kenmerktype = 'C'
AND fin_kenmerk_code = 'MAREON_BRON'
AND fin_kenmerk_verwijder IS NULL;
-- CUST: Voor vullen van het gebouwkenmerk op factuurregelniveau
SELECT MIN (fin_kenmerk_key)
INTO c_kenmerk_key_gebouw
@@ -5769,7 +5757,7 @@ BEGIN
WHERE fin_kenmerk_code = 'GEBOUW'
AND fin_kenmerk_verwijder IS NULL;
-- We gaan nu beginnen met het verder verwerken van de factuur..
-- We gaan nu beginnen met het verder verwerken van de factuur..
FOR rec IN cfactuur
LOOP
BEGIN
@@ -5838,14 +5826,19 @@ BEGIN
END IF;
-- Mareon_bron tonen in Facilitor bij Factuur
IF rec.kenmerk9 IS NOT NULL AND c_kenmerk_key_mareon_bron IS NOT NULL
THEN
setkenmerkfactuur(rec.fin_factuur_key, 'MAREON_BRON', rec.kenmerk9);
INSERT INTO fin_kenmerkfactuur (fin_factuur_key, fin_kenmerk_key, fin_kenmerkfactuur_waarde)
VALUES (rec.fin_factuur_key, c_kenmerk_key_mareon_bron, rec.kenmerk9);
-- BTW nummer tonen in Facilitor bij Factuur
setkenmerkfactuur(rec.fin_factuur_key, 'BTWNR', rec.kenmerk10);
END IF;
-- KVK nummer tonen in Facilitor bij Factuur
setkenmerkfactuur(rec.fin_factuur_key, 'KVKNR', rec.kenmerk11);
-- IBAN tonen in Facilitor bij Factuur
setkenmerkfactuur(rec.fin_factuur_key, 'IBAN', rec.kenmerk12);
-- G rekening IBAN tonen in Facilitor bij Factuur
setkenmerkfactuur(rec.fin_factuur_key, 'GIBAN', rec.kenmerk13);
-- Controle of er al een factuur ontvangen is met hetzelfde factuurnummer en referentie
-- 1 Afgewezen
-- 2 Ingevoerd