IMPU#87192 -- Uitbreiding SSP voor Beleid en Veiligheid - Registratie ouderklacht en hookfunctie voor externe gegevens - AiAi nu echt opgelost

svn path=/Customer/trunk/; revision=67920
This commit is contained in:
Jos Migo
2025-02-10 09:43:26 +00:00
parent 673d919fca
commit 76aa15bc55

View File

@@ -1132,6 +1132,7 @@ AS -- Op rappel-datum naar de Beheerder/Administrateur sturen
CREATE OR REPLACE PROCEDURE impu_mld_after_insert_klacht (p_key IN NUMBER)
AS
v_errormsg VARCHAR2 (200);
v_mld_stdmelding_key NUMBER (10) ;
v_ouder VARCHAR2 (60);
v_ouder_email VARCHAR2 (100);
v_ouder_tel VARCHAR2 (20);
@@ -1139,18 +1140,21 @@ CREATE OR REPLACE PROCEDURE impu_mld_after_insert_klacht (p_key IN NUMBER)
BEGIN
v_errormsg := 'Ophalen meldinggegevens ouder';
IF p_key IN (382)
SELECT mld_stdmelding_key
INTO v_mld_stdmelding_key
FROM mld_melding
WHERE mld_melding_key = p_key ;
IF v_mld_stdmelding_key IN (382) -- Klacht externe
THEN
SELECT flx.getflex('MLD', 621, m.mld_melding_key) ouder,
flx.getflex('MLD', 622, m.mld_melding_key) ouder_mail,
flx.getflex('MLD', 623, m.mld_melding_key) ouder_tel
SELECT flx.getflex('MLD', COALESCE((SELECT km.mld_kenmerk_key FROM mld_kenmerk km WHERE km.mld_srtkenmerk_key = 161), -1), m.mld_melding_key) ouder,
flx.getflex('MLD', COALESCE((SELECT km.mld_kenmerk_key FROM mld_kenmerk km WHERE km.mld_srtkenmerk_key = 162), -1), m.mld_melding_key) ouder_mail,
flx.getflex('MLD', COALESCE((SELECT km.mld_kenmerk_key FROM mld_kenmerk km WHERE km.mld_srtkenmerk_key = 181), -1), m.mld_melding_key) ouder_tel
INTO v_ouder, v_ouder_email, v_ouder_tel
FROM mld_melding m
WHERE mld_melding_key = p_key
AND mld_stdmelding_key IN (382) ; -- Klacht externe
WHERE mld_melding_key = p_key ;
UPDATE mld_melding
SET mld_melding_naam_ext = v_ouder,
mld_melding_email_ext = v_ouder_email,