-- FSN#672 Unieke prs_oslogin

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

PRS/PRS_TRI.SRC

@@ -1,7 +1,7 @@
 /* CREA_TRI.SRC maakt de triggers aan voor PRS */
 
-/*  $Revision: 40 $
- *  $Modtime: 9-01-04 16:33 $
+/*  $Revision: 41 $
+ *  $Modtime: 15-03-04 10:17 $
  */
 
 #include    "comsql.h"
@@ -182,6 +182,25 @@ BEGIN
          AND    (DI.ins_discipline_min_level = 3 OR ins_deel_verwijder IS NOT NULL));
       END IF;
     END;
+    -- FSN#672 Unieke prs_oslogin
+    BEGIN
+      IF :new.prs_perslid_verwijder IS NOT NULL THEN
+        :new.prs_oslogin := '';
+      END IF;
+      DECLARE
+          dummy   VARCHAR2(1);
+      BEGIN
+          SELECT 'X'
+          INTO   dummy
+          FROM   prs_v_aanwezigperslid AP
+          WHERE  AP.prs_perslid_key <> :new.prs_perslid_key
+          AND    AP.prs_oslogin = :new.prs_oslogin;
+          APPLICATION_ERROR_GOTO(-20000, 'prs_u_prs_oslogin');
+      EXCEPTION
+          WHEN NO_DATA_FOUND THEN NULL;
+          WHEN TOO_MANY_ROWS THEN APPLICATION_ERROR_GOTO(-20000, 'prs_u_prs_oslogin');
+      END;
+    END;
 END;
 /