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

PCHX#75973 -- Herimplementatie PCH

Browse Source 
svn path=/Customer/trunk/; revision=63081
This commit is contained in:
Arthur Egberink
2024-01-02 20:22:34 +00:00
parent 5f3abab62d
commit d67d5c3389
1 changed files with 30 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
PCHX/pchx.sql
View File

@@ -401,6 +401,7 @@ AS
FROM mld_opdr o, mld_melding m, alg_ruimte r
WHERE o.mld_opdr_key = v_opdr_key
AND o.mld_melding_key = m.mld_melding_key
AND r.alg_srtruimte_key = 241 -- projectlocatie
AND m.mld_alg_onroerendgoed_keys = r.alg_ruimte_key;
RETURN v_ruimte_nr;
@@ -4832,34 +4833,37 @@ BEGIN
v_errorhint := 'Geen kostensoort factuurregel';
--Kostensoort (factuurregel)
IF rec.kenmerk2 IS NULL
IF SUBSTR(rec.kenmerk1,3,2) <> '71' -- boekstuknummer / dagboek
THEN
v_errorhint := 'Kostensoort opzoeken in de verplichting';
SELECT prs_kostensoort_key
INTO v_kostensoort_key
FROM fin_factuur
WHERE fin_factuur_key = rec.fin_factuur_key;
IF rec.kenmerk2 IS NULL
THEN
v_errorhint := 'Kostensoort opzoeken in de verplichting';
SELECT prs_kostensoort_key
INTO v_kostensoort_key
FROM fin_factuur
WHERE fin_factuur_key = rec.fin_factuur_key;
IF v_kostensoort_key IS NOT NULL
THEN
UPDATE fin_factuurregel
SET prs_kostensoort_key = v_kostensoort_key
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
ELSE
-- zet de factuur op incompeet als de kostensoort niet gevonden kan worden.
UPDATE fin_factuur
SET fin_factuur_statuses_key = 3,
fin_factuur_opmerking = 'Kostensoort niet gevonden' || CHR(10) || fin_factuur_opmerking
WHERE fin_factuur_key = rec.fin_factuur_key;
END IF;
ELSE
UPDATE fin_factuurregel
SET prs_kostensoort_key =
(SELECT MAX (ks.prs_kostensoort_key)
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_upper =
UPPER (rec.kenmerk2))
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
IF v_kostensoort_key IS NOT NULL
THEN
UPDATE fin_factuurregel
SET prs_kostensoort_key = v_kostensoort_key
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
ELSE
-- zet de factuur op incompeet als de kostensoort niet gevonden kan worden.
UPDATE fin_factuur
SET fin_factuur_statuses_key = 3,
fin_factuur_opmerking = 'Kostensoort niet gevonden' || CHR(10) || fin_factuur_opmerking
WHERE fin_factuur_key = rec.fin_factuur_key;
END IF;
ELSE
UPDATE fin_factuurregel
SET prs_kostensoort_key =
(SELECT MAX (ks.prs_kostensoort_key)
FROM prs_kostensoort ks
WHERE ks.prs_kostensoort_upper =
UPPER (rec.kenmerk2))
WHERE fin_factuurregel_key = rec.fin_factuurregel_key;
END IF;
END IF;