SET ECHO ON
SPOOL xgvba461to470.lst
PROMPT $Revision$

--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12144
UPDATE prs_perslid p
   SET prs_perslid_mobiel =
          (SELECT SUBSTR (prs_kenmerklink_waarde, 1, 15)
             FROM prs_kenmerklink
            WHERE prs_kenmerk_key = 1000
              AND prs_link_key = p.prs_perslid_key
              AND prs_kenmerklink_verwijder IS NULL
              AND prs_kenmerklink_niveau = 'P');
DELETE FROM prs_kenmerklink
            WHERE prs_kenmerk_key = 1000
              AND prs_kenmerklink_niveau = 'P';

--///////////////////////////////////////////////////////////////////////////////////////////////// FSN#12216
UPDATE prs_kenmerk SET prs_kenmerk_systeem=NULL where prs_kenmerk_key=1000;

DELETE FROM prs_kenmerk WHERE prs_kenmerk_key=1000;

 update prs_werkplek set prs_werkplek_virtueel = 0, prs_werkplek_module = 'IMP' where prs_werkplek_virtueel = 1;


SPOOL OFF
@gvba.sql