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

YASK#84042 Gesloten contracten niet laten meewegen als 'stopper' bji het verwijderen van een gebouw waar dat contract bij hoort

Browse Source 
svn path=/Database/trunk/; revision=64990
This commit is contained in:
Koen Reefman
2024-06-05 11:34:47 +00:00
parent 965d80e49e
commit fcaccd41b8
3 changed files with 15 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ALG/ALG_TRI.SRC
View File

@@ -59,7 +59,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_locatie_key
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'L';
raise_application_error(-20000,'cnt_m028');
@@ -106,7 +107,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_terreinsector_key
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'T';
raise_application_error(-20000,'cnt_m027');
@@ -161,8 +163,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_gebouw_key
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'G';
raise_application_error(-20000,'cnt_m026');
@@ -212,7 +214,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_verdieping_key
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'V';
raise_application_error(-20000,'cnt_m025');
@@ -307,7 +310,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract_plaats, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_plaats.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_key = :old.alg_ruimte_key
AND cnt_v_aanwezigcontract_plaats.cnt_alg_plaats_code = 'R';
raise_application_error(-20000,'cnt_m024');

3
INS/INS_TRI.SRC
View File

@@ -207,7 +207,8 @@ BEGIN
FROM cnt_v_aanwezigcontract_object, cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract_object.cnt_contract_key = cnt_v_aanwezigcontract.cnt_contract_key
AND cnt_v_aanwezigcontract_object.cnt_ins_deel_key = :old.ins_deel_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate;
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1;
raise_application_error(-20000, 'cnt_m030');
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;

6
PRS/PRS_TRI.SRC
View File

@@ -61,7 +61,8 @@ BEGIN
FROM cnt_v_aanwezigcontract
WHERE (cnt_v_aanwezigcontract.cnt_prs_afdeling_key = :old.prs_afdeling_key
OR cnt_v_aanwezigcontract.prs_afdeling_key_eig = :old.prs_afdeling_key)
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE;
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1;
raise_application_error(-20000, 'cnt_m022');
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;
@@ -415,7 +416,8 @@ BEGIN
INTO dummy
FROM cnt_v_aanwezigcontract
WHERE cnt_v_aanwezigcontract.cnt_prs_bedrijf_key = :old.prs_bedrijf_key
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > sysdate;
AND cnt_v_aanwezigcontract.cnt_contract_looptijd_tot > SYSDATE
AND cnt_v_aanwezigcontract.cnt_contract_status <> 1;
raise_application_error(-20000, 'cnt_m023');
EXCEPTION
WHEN NO_DATA_FOUND THEN NULL;