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

BLCC#55899 ADDD-export/Corrigeren factuurnummering

Browse Source 
svn path=/Customer/trunk/; revision=40344
This commit is contained in:
Maarten van der Heide
2018-12-21 15:32:29 +00:00
parent cd455ba52f
commit d8c57605fa
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
BLCC/blcc.sql
View File

@@ -2967,6 +2967,7 @@ AS
v_fact_count NUMBER;
v_amount_sum NUMBER (10, 2);
v_old_bedrijf_key NUMBER (10);
v_old_po_nr VARCHAR2 (30);
v_c2019 NUMBER (10); -- Speciale correctie in/over 2019!
v_year_offset NUMBER (10);
v_factuur_id VARCHAR2 (30);
@@ -3005,20 +3006,30 @@ BEGIN
LOOP
BEGIN
IF rec.mndnet != 0 AND (rec.prs_bedrijf_key != v_old_bedrijf_key OR rec.po_nr != v_old_po_nr)
THEN
-- Van dec. 2018 t/m dec. 2019 doornummeren reeks zoals in 2018
-- bij 1 gestart alleen met 20192-prefix; per 2020 elk jaar pas
-- in jan. (over dec.) reeks bij 1 starten (dus 20xx20001)!
IF TO_CHAR (SYSDATE, 'yyyy') = '2019'
THEN
v_c2019 := 12; -- In 2019 doornummeren reeks zoals in 2018!
ELSE
v_c2019 := 0;
END IF;
-- Bepaal max. sequence t/m voorgaande jaar (= aantal entries in
-- fin_verkoopfactuurkop-tabel).
SELECT COUNT ( * )
INTO v_year_offset
FROM fin_verkoopfactuurkop vfk
WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '2' -- Boekstuknummers in formaat <yyyy>2!
FROM fin_verkoopfactuurkop vfk
WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '2' -- Boekstuknummers in formaat <yyyy>2!
AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, v_c2019), 'yyyy');
-- Bepaal fin_verkoopfactuur_id=boekstuknr. tbv. BCC-verkoopboek
-- obv. sequence '01' en begin elk nieuw jaar weer bij 1 door te
-- corrigeren met de hierboven bepaalde offset.
SELECT fac_s_user02.NEXTVAL - v_year_offset INTO v_count FROM DUAL;
v_factuur_id := TO_CHAR (SYSDATE, 'YYYY') || '2' || SUBSTR ('0000' || TO_CHAR (v_count), -4);
v_factkop_id := v_factuur_id || '_' || SUBSTR (rec.maand, 1, 4) || '-' || SUBSTR (rec.maand, -2) || '_' || rec.debiteur_nr;
@@ -6998,7 +7009,7 @@ BEGIN
-- fin_verkoopfactuurkop-tabel).
SELECT COUNT ( * )
INTO v_year_offset
FROM fin_verkoopfactuurkop vfk
FROM fin_verkoopfactuurkop vfk
WHERE SUBSTR (vfk.fin_verkoopfactuurkop_id, 5, 1) = '1' -- Boekstuknummers in formaat <yyyy>1!
AND SUBSTR (vfk.fin_verkoopfactuurkop_id, 1, 4) < TO_CHAR (ADD_MONTHS (SYSDATE, 1), 'yyyy');