cad_SLNKSTRUCTshift aangepast zodat PROJECTKEY met seqnr=1 tijdens shift niet wordt verwijderd.

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

CAD/CAD_PAC.SRC

@@ -2,6 +2,7 @@
 
 /*  REVISIONS:  
  *
+ * 27-08-1999 EGR cad_SLNKSTRUCTshift aangepast zodat PROJECTKEY met seqnr=1 tijdens shift niet wordt verwijderd.
  * 25-08-1999 EGR Functies Bepaal_locatiecode,cad_getLayerColor,cad_getLayerLinetype,cad_getLayerName,cad_SLNKSTRUCTreadVALSTR2
  *                ,cad_SLNKSTRUCTreadVALINT2 en pragma voor Bepaal_locatiecode toegevoegd zodat deze functies ook in de PRJ_PAC
  *                gebruikt kunnen worden.
@@ -590,6 +591,7 @@ CREATE OR REPLACE PACKAGE BODY cad AS
         UPDATE cad_slnkstruct
         SET    cad_slnkstruct_seqnr = cad_slnkstruct_seqnr - 1
         WHERE  cad_slnkstruct_sessionid = Session_Id
+        AND    cad_slnkstruct_seqnr  > 1
         AND    cad_slnkstruct_entry <> 'FAC_MODULE'
         AND    cad_slnkstruct_entry <> 'SYNC';
         COMMIT;