First Pass of new control loader add BaseClass that provides Logger

EDMI_ClientSuite/_TEST/frmDocTest.vb

@@ -1,8 +1,6 @@
 Imports DevExpress.XtraGrid
 
 Public Class frmDocTest
-    Private _CommonCommands As ClassCommonCommands
-
     Private Sub DocTest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Try
             Dim oControlPatcher = New ClassControlPatcher(Of GridControl)(Me)
@@ -10,8 +8,6 @@ Public Class frmDocTest
                 ProcessContainer(AddressOf GridControlDefaults.DefaultGridSettings).
                 ProcessContainer(AddressOf GridControlDefaults.ReadOnlyGridSettings)
 
-            _CommonCommands = New ClassCommonCommands(My.LogConfig)
-
             Dim oSQL = "SELECT * FROM VWICM_DOC_METADATA_DE"
             My.Channel.CreateDatabaseRequest("Load Doc Values", True)
 
@@ -26,7 +22,6 @@ Public Class frmDocTest
 
             Dim oDatatable As DataTable = oResult.Table
 
-
             txtDoctype.DataBindings.Add(New Binding("Text", oDatatable, "DOCTYPE"))
             txtDocId.DataBindings.Add(New Binding("Text", oDatatable, "DOC_ID"))
 
@@ -40,7 +35,7 @@ Public Class frmDocTest
         Dim oDocId As Int64 = Int64.Parse(txtDocId.Text)
         Dim oValue As String = txtDoctype.Text
         Dim oSyskey As String = "001-DOCTYPE"
-        Dim oResult = Await _CommonCommands.FNICM_NEW_DOC_VALUE(oDocId, oSyskey, My.Application.User.Language, oValue)
+        Dim oResult = Await My.Common.Commands.FNICM_NEW_DOC_VALUE(oDocId, oSyskey, My.Application.User.Language, oValue)
 
         If Not oResult.OK Then
             MsgBox(oResult.ErrorMessage)