MergeCommit

GUIs.ClientSuite/Common/ClassCommonViews.vb

@@ -51,4 +51,26 @@ Public Class ClassCommonViews
             Throw ex
         End Try
     End Function
+
+    Public Async Function VWIDB_GUI_WF_OVERVIEW(UserId As Int64, FormId As Int64) As Task(Of DataTable)
+        Try
+            My.Channel.CreateDatabaseRequest("Load Control Data", True)
+
+            Dim oSQL As String = $"SELECT * FROM VWIDB_GUI_WF_OVERVIEW WHERE USERID  = {UserId} AND 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