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

SZDB#74040 -- Kan het kenmerk kamer leeg vanaf bij mutatie meldingen in de omschrijving komen?

Browse Source 
svn path=/Customer/trunk/; revision=56987
This commit is contained in:
Arthur Egberink
2022-08-24 08:26:46 +00:00
parent f754e29b0f
commit ebeb47b0e3
1 changed files with 60 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

60
SZDB/szdb.sql
View File

@@ -32,6 +32,9 @@ AS
pbody IN VARCHAR2,
psessionid IN VARCHAR2,
pemailkey IN NUMBER);
PROCEDURE setLeegVanafInOms (p_melding_key IN NUMBER);
END;
/
@@ -153,6 +156,63 @@ AS
'errormsg',
'Database fout - Neem contact op met uw systeembeheerder');
END;
PROCEDURE setLeegVanafInOms (p_melding_key IN NUMBER)
AS
c_kenmerk_key MLD_KENMERK.MLD_KENMERK_KEY%TYPE := 43; -- Datum kamer beschikbaar
v_kenmerk_oms MLD_KENMERK.MLD_KENMERK_OMSCHRIJVING%TYPE;
v_kenmerkm_waarde MLD_KENMERKMELDING.MLD_KENMERKMELDING_WAARDE%TYPE;
v_melding_oms MLD_MELDING.MLD_MELDING_OMSCHRIJVING%TYPE;
c_stdmelding_key MLD_STDMELDING.MLD_STDMELDING_KEY%TYPE := 111; -- Mutatie / Nieuwe client
v_stdmelding_key MLD_STDMELDING.MLD_STDMELDING_KEY%TYPE;
BEGIN
SELECT COALESCE (mld_kenmerk_omschrijving, mld_srtkenmerk_omschrijving)
INTO v_kenmerk_oms
FROM mld_kenmerk k, mld_srtkenmerk sk
WHERE k.mld_srtkenmerk_key = sk.mld_srtkenmerk_key
AND k.mld_kenmerk_key = c_kenmerk_key;
SELECT mld_melding_omschrijving, mld_stdmelding_key
INTO v_melding_oms, v_stdmelding_key
FROM mld_melding
WHERE mld_melding_key = p_melding_key;
IF v_stdmelding_key = c_stdmelding_key
THEN
v_kenmerkm_waarde := FLX.getflex ('MLD', c_kenmerk_key, p_melding_key);
IF v_kenmerkm_waarde IS NOT NULL
THEN
IF INSTR (v_melding_oms, v_kenmerk_oms) = 1
THEN
-- Het kenmerk staat al in de omschrijving. Dan overschrijven we die.
v_melding_oms :=
v_kenmerk_oms
|| ': '
|| v_kenmerkm_waarde
|| CHR (10)
|| SUBSTR (v_melding_oms,
LENGTH (v_kenmerk_oms) + 14,
3900);
ELSE
v_melding_oms :=
v_kenmerk_oms
|| ': '
|| v_kenmerkm_waarde
|| CHR (10)
|| SUBSTR (v_melding_oms, 1, 3900);
END IF;
UPDATE mld_melding
SET mld_melding_omschrijving = v_melding_oms
WHERE mld_melding_key = p_melding_key;
END IF;
END IF;
COMMIT;
END;
END;
/