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

BRCF#73270 -- Locatie en gebouw toekenning in Mail2Melding

Browse Source 
svn path=/Customer/trunk/; revision=59627
This commit is contained in:
Robin Stoker
2023-03-16 15:51:07 +00:00
parent fbbd71808b
commit a51b03d6ed
1 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
BRCF/brcf.sql
View File

@@ -524,6 +524,7 @@ AS
v_kostenplaats VARCHAR2 (4000);
v_kp_key NUMBER (10);
v_locatie_key NUMBER (10);
v_gebouw_key NUMBER (10);
v_afdeling_key NUMBER (10);
BEGIN
@@ -609,14 +610,23 @@ BEGIN
WHERE prs_kostenplaats_upper = UPPER (v_kostenplaats)
AND prs_kostenplaats_verwijder IS NULL;
IF v_kp_key IS NOT NULL
-- Hieronder gaan we voor de locatie altijd uit van het eerst aangemaakt gebouw die niet verwijderd is, magazijnen kunnen namelijk dezelfde gebouwcode hebben
IF v_kp_key IS NOT NULL
THEN
SELECT g.alg_locatie_key
SELECT MIN (g.alg_locatie_key)
INTO v_locatie_key
FROM alg_gebouw g, prs_afdeling p
WHERE p.prs_afdeling_upper = 'CC-'||g.alg_gebouw_upper
AND p.prs_kostenplaats_key = v_kp_key
AND p.prs_afdeling_verwijder IS NULL;
AND p.prs_afdeling_verwijder IS NULL
AND g.alg_gebouw_verwijder IS NULL;
IF v_locatie_key IS NOT NULL
THEN
SELECT MIN (g.alg_gebouw_key)
INTO v_gebouw_key
FROM alg_gebouw g
WHERE g.alg_locatie_key = v_locatie_key;
SELECT MAX (p.prs_afdeling_key)
INTO v_afdeling_key
@@ -768,6 +778,7 @@ END IF;
mld_meldbron_key,
mld_melding_datum,
mld_alg_locatie_key,
mld_alg_onroerendgoed_keys,
mld_melding_onderwerp,
mld_melding_omschrijving,
mld_melding_status,
@@ -779,7 +790,8 @@ END IF;
VALUES ('MLD',
4, -- email
SYSDATE,
COALESCE (v_locatie_key, 361), -- Maarssen Hoofdkantoor wanneer locatie zelf leeg is
COALESCE (v_locatie_key, 1281), -- Locatie onbekend wanneer deze leeg is
COALESCE (v_gebouw_key, 5301), -- Gebouw onbekend wanneer deze leeg is
SUBSTR (psubject, 1, 75), -- onderwerp is max 80 posities
CASE
WHEN LENGTH (psubject) > 75
@@ -824,6 +836,7 @@ END IF;
VALUES (psessionid, 'maillog', 'Geregistreerd onder melding ' || v_mldkey);
END;
END IF;
END IF; -- defaultstdmelding IS NOT NULL
END IF; -- v_flexprop_mail = v_from