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

TWYN#76488 TWYN heeft geen opdracht disciplines

Browse Source 
svn path=/Database/trunk/; revision=59226
This commit is contained in:
Jos Groot Lipman
2023-02-20 11:25:32 +00:00
parent 3cb2449000
commit 1ad6181156
1 changed files with 20 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
MLD/MLD_TRI.SRC
View File

@@ -292,20 +292,26 @@ FOR EACH ROW
BEGIN
UPDATE_PRIMARY_KEY(mld_opdr_key, mld_s_mld_opdr_key);
IF fac.getSetting ('mld_opdr_discipline_mode') = 1
THEN -- altijd vakgroep discipline
SELECT msm.mld_ins_discipline_key
INTO :NEW.mld_opdr_discipline_key
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_key = :NEW.mld_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
ELSE -- voorkeur voor behandelteam discipline
SELECT COALESCE(m.mld_ins_discipline_key, msm.mld_ins_discipline_key)
INTO :NEW.mld_opdr_discipline_key
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_key = :NEW.mld_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
END IF;
BEGIN
IF fac.getSetting ('mld_opdr_discipline_mode') = 1
THEN -- altijd vakgroep discipline
SELECT msm.mld_ins_discipline_key
INTO :NEW.mld_opdr_discipline_key
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_key = :NEW.mld_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
ELSE -- voorkeur voor behandelteam discipline
SELECT COALESCE(m.mld_ins_discipline_key, msm.mld_ins_discipline_key)
INTO :NEW.mld_opdr_discipline_key
FROM mld_melding m, mld_stdmelding msm
WHERE m.mld_melding_key = :NEW.mld_melding_key
AND msm.mld_stdmelding_key = m.mld_stdmelding_key;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND
THEN
NULL; /* TWYN heeft geen meldingen boven de opdracht */
END;
END;
/