FMHN#72353 Aanmaken reservering n.a.v. melding 'Aanvraag Evenement'

svn path=/Customer/trunk/; revision=57676

FMHN/fmhn.sql

@@ -8601,6 +8601,36 @@ AS
                     END;
                 END IF;
             END IF;
+            -- FMHN#72353 Aanmaken reservering n.a.v. melding 'Aanvraag Evenement'
+            -- Overweging vanuit CAB is om niet vanuit een hook-functie gegevens naar de reservering door te zetten, zeker geen flexkenmerken uit meldingen.
+            -- Getracht wordt zoveel mogelijk automatisch mee te nemen uit de aanvraag (melding) naar de reservering
+            -- Aanvrager, kostenplaats en locatie wordt meegenomen door #71733 (core) 
+            -- Ook reserveringsomschrijving wordt automatisch gevuld vanuit het onderwerp van de melding door #71733. Maar dit veld gebruikt FMH niet op dit formulier en is leeg.  
+            -- Onderstaande verhelpt dat.
+            IF v_stdmelding_key IN (25) -- Standaardmelding 'Evenement aanvragen'
+            THEN
+                BEGIN
+                    SELECT SUBSTR(kmm.mld_kenmerkmelding_waarde,0,80)
+                      INTO v_melding_onderwerp
+                      FROM mld_kenmerkmelding kmm, mld_melding m
+                     WHERE kmm.mld_kenmerk_key = 235  --Kenmerksoort 'Naam evenement'
+                           AND kmm.mld_melding_key = m.mld_melding_key
+                           AND kmm.mld_kenmerkmelding_verwijder IS NULL
+                           AND m.mld_melding_key = p_key;
+                EXCEPTION
+                    WHEN NO_DATA_FOUND
+                    THEN
+                        v_melding_onderwerp := NULL;
+                END;
+                IF v_melding_onderwerp IS NOT NULL
+                    THEN
+                        BEGIN
+                            UPDATE mld_melding
+                              SET mld_melding_onderwerp = v_melding_onderwerp
+                             WHERE mld_melding_key = p_key;
+                        END;
+                    END IF;                
+            END IF;                       
         END;
     END;
 END;