C2025-027-AnnotationsTypeSelect

PROMS/VEPROMS User Interface/DlgAnnotationsSelect.cs

@@ -95,6 +95,7 @@ namespace VEPROMS
         {
             DataTable dt2 = coverToTable();
             VEPROMS.CSLA.Library.AnnotationstypeSelections.Update(dt2, UserID);
+            this.Close();
         }
         public class AnnotataionItem
         {

PROMS/VEPROMS User Interface/PROMSFixes.Sql

@@ -24075,10 +24075,6 @@ ELSE
 GO
 
 -- C2025-027 Annotation Type Filtering
-IF  EXISTS (SELECT * FROM sys.objects WHERE object_id = OBJECT_ID(N'[dbo].[AnnotationTypeSelections]') AND type in (N'U'))
-DROP TABLE [dbo].[AnnotationTypeSelections]
-GO
-
 /****** Object:  Table [dbo].[AnnotationTypeSelections]    Script Date: 7/10/2025 2:38:23 PM ******/
 SET ANSI_NULLS ON
 GO
@@ -24149,7 +24145,10 @@ AS
 		(SELECT COUNT(*) FROM [Annotations] WHERE [Annotations].[TypeID]= [TypeID]) [AnnotationCount],
 		[IsEPAnnotationType]
 	FROM [AnnotationTypes] --A
-    WHERE TypeID NOT IN (SELECT TypeID FROM  AnnotationTypeSelections ATS WHERE ATS.UserID = @UserID)  
+	LEFT OUTER JOIN AnnotationTypeSelections ON AnnotationTypeSelections.TypeID = AnnotationTypes.TypeID
+	WHERE AnnotationTypeSelections.UserID = @UserID
+	AND
+	AnnotationTypeSelections.ASTypeID IS NULL
 GO
 
 -- C2025-027 Annotation Type Filtering