diff --git a/PRJ/PRJ_TRI.SRC b/PRJ/PRJ_TRI.SRC
index 4dbd41c0..0c84ddcf 100644
--- a/PRJ/PRJ_TRI.SRC
+++ b/PRJ/PRJ_TRI.SRC
@@ -4,6 +4,7 @@
 
 /*  Revisie:
 **
+** 28-09-1999 EGR  prj_t_prj_ruimte_b_iu moet gebruik maken van alg_srtruimte_key bij controle van werkplekken.
 ** 27-08-1999 EGR  prj_t_prj_ruimte_b_iu werkend gemaakt voor gecascadeerd verwijderen van ruimte, werkplek, object.
 ** 25-08-1999 RD   Trigger <prj_t_prj_verwerk_log_B_IU> toegevoegd.
 ** 23-07-1999 EGR  LOG verwijderd en ins_deel. gewijzigd in prj_deel. .
@@ -45,16 +46,23 @@ BEGIN
                   ,'alg_m245');
   IF :old.alg_ruimte_key IS NOT NULL
   AND :new.alg_ruimte_verwijder IS NULL
+  AND :old.alg_srtruimte_key <> :new.alg_srtruimte_key
   THEN
     DECLARE
       dummy CHAR;
     BEGIN
       SELECT 'x'
       INTO   dummy
-      FROM   prj_werkplek
-      WHERE  prs_alg_ruimte_key  = :new.alg_ruimte_key
+      FROM   prj_werkplek PRS_W
+      ,      alg_srtruimte SR_1
+      ,      alg_srtruimte SR_2
+      WHERE  SR_1.alg_srtruimte_key   = :old.alg_srtruimte_key
+      AND    SR_2.alg_srtruimte_key   = :new.alg_srtruimte_key
+      AND    SR_1.prs_bevat_werkplek  = 1
+      AND    SR_2.prs_bevat_werkplek IS NULL
+      AND    prs_werkplek_verwijder  IS NULL
+      AND    prs_alg_ruimte_key  = :new.alg_ruimte_key
       AND    prj_project_key     = :new.prj_project_key
-      AND    prs_werkplek_verwijder IS NULL;
       APPLICATION_ERROR(-20000, 'prs_m034');
     EXCEPTION
       WHEN NO_DATA_FOUND