FSN#34951 flexplekken niet verwijderen bij inactiveren van persoon igv impliciete werkplekken

svn path=/Database/trunk/; revision=28788

PRS/PRS_TRI.SRC

@@ -177,13 +177,16 @@ BEGIN
         BEGIN
             -- Ja, je zou zeggen dat dit een zaak is van prs_perslidwerkplek, maar
             -- dat is toch niet zo. Bovendien krijg je dan nare mutating trigger errors.
+            -- Alleen vaste werkplekken, geen flexplekken
             IF fac.getsetting ('prs_werkplek_implicit') = 1
             THEN
                 DELETE FROM prs_werkplek
                       WHERE prs_werkplek_key IN (SELECT prs_werkplek_key
                                                    FROM prs_perslidwerkplek
-                                                  WHERE prs_perslid_key = :old.prs_perslid_key);
+                                                  WHERE prs_perslid_key = :old.prs_perslid_key)
+                        AND prs_werkplek_type = 0;
                 -- Deze delete cascadeert naar de werkplekbezetting door, gooit die dus ook weg
+                -- Let wel: de werkplekken blijven helaas wel bestaan
             ELSE
                 -- Bij expliciet gooien wij de bezetting weg en blijft de werkplek leeg achter
                 DELETE FROM prs_perslidwerkplek