Zooflow: Massive Clean up

GUIs.ZooFlow/Administration/frmAdmin_GlobixRelations.vb

@@ -1,5 +1,10 @@
-Public Class frmAdmin_GlobixRelations
+Imports DigitalData.Modules.Logging
+
+Public Class frmAdmin_GlobixRelations
+
     Private SELECTED_DTID As Integer
+    Private Logger As Logger
+
     Private Function GetAvailableUsers(doctypeid As Integer) As DataTable
         Try
             Dim dt As DataTable
@@ -33,6 +38,8 @@ INNER JOIN TBDD_USER B ON A.USER_ID = B.GUID WHERE A.DOCTYPE_ID = {doctypeid}"
         Try
             Dim oSQL = "SELECT DOCTYPE_ID As ID, DOCTYPE as Doctype FROM VWGI_DOCTYPE_IDB ORDER BY DOCTYPE"
             Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL)
+            Logger = My.LogConfig.GetLogger()
+
             GridControlDoctypesUsers.DataSource = oDT
         Catch ex As Exception
             ShowErrorMessage($"Error in FormLoad", ex)
@@ -76,7 +83,7 @@ INNER JOIN TBDD_USER B ON A.USER_ID = B.GUID WHERE A.DOCTYPE_ID = {doctypeid}"
                 VALUES ({SELECTED_DTID},{UsrID},'{My.Application.User.UserName}')"
             Return My.DatabaseECM.ExecuteNonQuery(oSQL)
         Catch ex As Exception
-            LOGGER.Error(ex)
+            Logger.Error(ex)
             Return False
         End Try
     End Function
@@ -91,12 +98,12 @@ INNER JOIN TBDD_USER B ON A.USER_ID = B.GUID WHERE A.DOCTYPE_ID = {doctypeid}"
         LoadFreeUsers()
         LoadRelatedAttributes()
     End Sub
-    Public Shared Function DeleteUserRelation(ID As Integer) As Boolean
+    Public Function DeleteUserRelation(ID As Integer) As Boolean
         Try
             Dim oSQL = $"DELETE FROM TBDD_USER_DOKTYPE WHERE GUID = {ID}"
             Return My.DatabaseECM.ExecuteNonQuery(oSQL)
         Catch ex As Exception
-            LOGGER.Error(ex)
+            Logger.Error(ex)
             Return False
         End Try
     End Function