Add My.Common Namespace for DB Commands and Views

EDMI_ClientSuite/Common/ClassCommonViews.vb

@@ -0,0 +1,33 @@
+Imports DigitalData.Modules.Logging
+
+Public Class ClassCommonViews
+    Private _LogConfig As LogConfig
+    Private _Logger As Logger
+
+    Public Sub New(LogConfig As LogConfig)
+        _LogConfig = LogConfig
+        _Logger = LogConfig.GetLogger()
+    End Sub
+
+    Public Async Function VWICM_FORM_CONTROL(FormId As Int64) As Task(Of DataTable)
+        Try
+            My.Channel.CreateDatabaseRequest("Load Controls", True)
+
+            Dim oSQL As String = $"SELECT * FROM VWICM_FORMCONTROL WHERE FORMID = {FormId}"
+            Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
+            Dim oTable = oResult.Table
+
+            If Not oResult.OK Then
+                _Logger.Error(New ApplicationException(oResult.ErrorMessage))
+                Return Nothing
+            End If
+
+            My.Channel.CloseDatabaseRequest()
+
+            Return oResult.Table
+        Catch ex As Exception
+            _Logger.Error(ex)
+            Throw ex
+        End Try
+    End Function
+End Class