redesign wip

Global_Indexer/ClassDatatables.vb

@@ -0,0 +1,68 @@
+Public Class ClassDatatables
+
+    Public Shared Function AddGroupToProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"
+                INSERT INTO TBDD_USRGRP_DOKTYPE 
+                (DOCTYPE_ID, GROUP_ID, ADDED_WHO)
+                VALUES ({ProfileId}, {GroupId}, '{Environment.UserName}')
+            "
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function RemoveGroupFromProfile(GroupId As Integer, ProfileId As Integer) As Boolean
+        Try
+            Dim oSQL = $"DELETE FROM TBDD_USRGRP_DOKTYPE WHERE DOCTYPE_ID = {ProfileId} AND GROUP_ID = {GroupId}"
+            Return ClassDatabase.Execute_non_Query(oSQL, True)
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return False
+        End Try
+    End Function
+
+    Public Shared Function GetAssignedGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT * FROM TBDD_GROUPS
+                WHERE (GUID IN
+	                (
+		                SELECT        GROUP_ID
+		                FROM          TBDD_USRGRP_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+	                )
+                )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+
+    Public Shared Function GetAvailableGroups(ProfileId As Integer) As DataTable
+        Try
+            Dim oSQL As String = $"
+                SELECT * FROM TBDD_GROUPS
+                WHERE NOT (GUID IN
+	                (
+		                SELECT        GROUP_ID
+		                FROM          TBDD_USRGRP_DOKTYPE
+		                WHERE         DOCTYPE_ID = {ProfileId}
+	                )
+                )
+            "
+            Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL)
+
+            Return oDatatable
+        Catch ex As Exception
+            LOGGER.Error(ex)
+            Return Nothing
+        End Try
+    End Function
+End Class