From 0de6b5df5e7683e440bceadbd764509dbfabf3de Mon Sep 17 00:00:00 2001
From: Suzan Wiegerinck <suzan.wiegerinck@aareon.nl>
Date: Tue, 8 Mar 2022 13:51:21 +0000
Subject: [PATCH] FBEA#68658 Implementatie Facilitair Bedrijf Eemland

svn path=/Customer/trunk/; revision=55235
---
 FBEA/FBEA.sql | 35 ++++++++++++++++++++++-------------
 1 file changed, 22 insertions(+), 13 deletions(-)

diff --git a/FBEA/FBEA.sql b/FBEA/FBEA.sql
index a24f60cac..8a899a676 100644
--- a/FBEA/FBEA.sql
+++ b/FBEA/FBEA.sql
@@ -60,6 +60,7 @@ BEGIN
           INTO sender
           FROM prs_perslid p
          WHERE UPPER (prs_perslid_email) = UPPER (pfrom);
+    
     -- Geen bekende afzender --> _FACILITOR
     ELSE
         SELECT prs_perslid_key
@@ -69,22 +70,28 @@ BEGIN
     END IF;
 
     CASE
-        -- Op basis van het mailadres bepalen we de locatie waar de melding voor bedoeld is
-        -- 1 Eemhuis
-        -- 2 Bibliotheek Bunschoten
-        -- 3 Bibliotheek Hoogland
-        -- 4 ICOON
-        -- 5 Bibliotheek Baarn
-        -- 6 SIDK
-        -- 7 Bibliotheek Leusden
-        -- 8 Bibliotheek Woudenberg
+        -- Op basis van het mailadres bepalen we het gebouw waar de melding voor bedoeld is
+        -- Voorlopig doen we dat alleen voor Het Eemhuis en ICOON
+        -- 11   Eemhuis
+        -- 2    ICOON
+        -- 3    Bibliotheek Baarn
+        -- 4	Bibliotheek Bunschoten
+        -- 5	Bibliotheek Hoogland
+        -- 6	Scholen in de Kunst Hoogland
+        -- 7	Bibliotheek Leusden Aanbouw
+        -- 8	Scholen in de Kunst Leusden
+        -- 9	Scholen in de Kunst Soest
+        -- 10	Bibliotheek Woudenberg
+        -- 901	Bibliotheek Woudenberg - Boerderij
+        -- 921	Bibliotheek Leusden Boerderij
+
 
         WHEN UPPER (pto) LIKE 'HETEEMHUIS@%'
         THEN
             v_gebouwkey := '1';
-        WHEN UPPER (pto) LIKE 'HETICOON@%'
+        WHEN UPPER (pto) LIKE 'ICOON@%'
         THEN
-            v_gebouwkey := '4';
+            v_gebouwkey := '4';         
         ELSE
             NULL;
     END CASE;
@@ -111,6 +118,7 @@ BEGIN
                                      mld_alg_onroerendgoed_keys,
                                      prs_perslid_key,
                                      prs_perslid_key_voor,
+                                     mld_melding_email_ext,
                                      mld_melding_spoed)
                  VALUES (
                      'MLD',
@@ -124,12 +132,13 @@ BEGIN
                              CHR (13) || CHR (10)),
                          1,
                          4000),                -- verwijder onnodige witregels
-                     NULL,
-                     101,
+                     2,
+                     61,
                      v_locatiekey,
                      v_gebouwkey,
                      sender,
                      sender,
+                     pfrom,
                      3)
               RETURNING mld_melding_key
                    INTO v_newkey;