CSUN#61646 Locaties met bijlagen niet verwijderen.

svn path=/Customer/trunk/; revision=46108
This commit is contained in:
Sander Schepers
2020-03-05 10:36:00 +00:00
parent c516fdc893
commit 992cd436ff

View File

@@ -2485,17 +2485,22 @@ IS
CURSOR c_del
IS
SELECT alg_locatie_key, alg_locatie_code
FROM alg_locatie l, alg_onrgoedkenmerk aogk
WHERE alg_locatie_verwijder IS NULL
AND aogk.alg_kenmerk_key = 1160 -- vervaldatum
AND l.alg_locatie_key = aogk.alg_onrgoed_key
AND fac.safe_to_date(aogk.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') < SYSDATE - 10
AND l.alg_locatie_key NOT IN
(SELECT b.fac_bijlagen_refkey
FROM fac_bijlagen b
WHERE b.fac_bijlagen_refkey = l.alg_locatie_key
AND b.fac_bijlagen_verwijder IS NULL);
SELECT alg_locatie_key, alg_locatie_code
FROM alg_locatie l, alg_onrgoedkenmerk aogk
WHERE alg_locatie_verwijder IS NULL
AND aogk.alg_kenmerk_key = 1160 -- vervaldatum
AND l.alg_locatie_key = aogk.alg_onrgoed_key
AND fac.safe_to_date (aogk.alg_onrgoedkenmerk_waarde, 'dd-mm-yyyy') <
SYSDATE - 10
AND l.alg_locatie_key NOT IN
(SELECT b.fac_bijlagen_refkey
FROM fac_bijlagen b, alg_kenmerk bkm
WHERE b.fac_bijlagen_refkey = l.alg_locatie_key
AND bkm.alg_kenmerk_key = b.fac_bijlagen_kenmerk_key
AND bkm.alg_kenmerk_niveau = 'L' --Enkel wanneer er op locatieniveau kenmerken zijn toegevoegd.
AND b.fac_bijlagen_module = 'ALG' -- Enkel bijlagen komend uit deze module (geen res/mld/etc).
AND bkm.alg_kenmerk_kenmerktype IN ('M', 'F') -- Enkel kenmerksoorten obv map met bijlage of enkele bijlage
AND b.fac_bijlagen_verwijder IS NULL);
CURSOR c_rayonl
IS