LOGI#17136

svn path=/Database/trunk/; revision=10267
This commit is contained in:
Peter Feij
2010-03-23 09:33:42 +00:00
parent 838378e2d1
commit d5f33d68c6

View File

@@ -1,6 +1,6 @@
#ifdef FAC
/* $Revision: 178 $
* $Modtime: 10-03-10 13:15 $
/* $Revision: 179 $
* $Modtime: 22-03-10 15:49 $
*/
/*
@@ -2549,20 +2549,22 @@ CREATE OR REPLACE PACKAGE BODY fac AS
BEGIN
SELECT ins_discipline_email
INTO lsender
FROM ins_tab_discipline d, mld_stdmelding sm, mld_melding m
FROM ins_tab_discipline d, mld_stdmelding sm, mld_melding m, mld_opdr o
WHERE d.ins_discipline_key = sm.mld_ins_discipline_key
AND sm.mld_stdmelding_key = m.mld_stdmelding_key
AND m.mld_melding_key = prefkey;
AND o.mld_melding_key = m.mld_melding_key
AND o.mld_opdr_key = prefkey;
IF lsender IS NULL
THEN
SELECT COALESCE (l1.alg_locatie_email, l2.alg_locatie_email)
INTO lsender
FROM mld_melding m, mld_adres ma, alg_locatie l1, alg_locatie l2
FROM mld_melding m, mld_adres ma, alg_locatie l1, alg_locatie l2, mld_opdr o
WHERE m.mld_adres_key = ma.mld_adres_key(+)
AND ma.alg_locatie_key = l1.alg_locatie_key(+)
AND m.mld_alg_locatie_key = l2.alg_locatie_key(+)
AND m.mld_melding_key = prefkey;
AND o.mld_melding_key = m.mld_melding_key
AND o.mld_opdr_key = prefkey;
END IF;
EXCEPTION
WHEN NO_DATA_FOUND