34 lines
999 B
VB.net
34 lines
999 B
VB.net
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
|