DmitriyTop - The Attached Code will provide the status of the WF. The code takes the parameters, and you can update it accordingly It is a Dashboard Data Set. It has to be called in Data Adapter with Method Query & Business Rule. BTW there is also out of reports from OS Solution Exchange. Application Reports.
Using dbConnApp As DBConnInfo = BRApi.Database.CreateApplicationDbConnInfo(si)
'Create Tables in Memory
Dim WFTable As DataTable = New DataTable("WFSTATUS")
WFTable.Columns.Add("ProfileName")
WFTable.Columns.Add("ScenarioName")
WFTable.Columns.Add("TimeName")
WFTable.Columns.Add("StatusText")
WFTable.Columns.Add("LastExecutedStepStatus")
WFTable.Columns.Add("LastExecutedStepTimeUTC")
WFTable.Columns.Add("LastExecutedStepTimeEST")
Dim WFTime As String = args.NameValuePairs("ParamYear")
Dim WFScenario As String = args.NameValuePairs("ParamScr")
Dim WFName As String = args.NameValuePairs("ParamName")
Dim methodTypeId As String = XFCommandMethodTypeId.WorkflowStatus
'Dim methodQuery As String = "{Total Corporate}{Actual}{" & WFTime & "}{Import Status}{Descendants}{Type ='InputImportChild'}"
Dim methodQuery As String = "{" & WFName &"}{" & WFScenario & "}{" & WFTime & "}{Import Status}{Descendants}{Type ='InputImportChild'}"
Dim resultDataTableName As String = "WFSTATUS"
Dim customSubVars As New Dictionary(Of String, String)
customSubVars.Add("Name","")
customSubVars.Add("Value","")
Dim objDataSet As DataSet = BRApi.Database.ExecuteMethodCommand(dbConnApp,methodTypeId,methodQuery, resultDataTableName,customSubVars)
For Each Row As DataRow In objDataSet.Tables("WFSTATUS").Rows
Dim easternZone = TimeZoneInfo.FindSystemTimeZoneById("Eastern Standard Time")
Dim EST = TimeZoneInfo.ConvertTimeFromUtc(Row.Item("LastExecutedStepTime"), easternZone)
WFTable.Rows.Add(Row.Item("ProfileName"),Row.Item("ScenarioName"),Row.Item("TimeName"),Row.Item("StatusText"),Row.Item("LastExecutedStepStatus"),Row.Item("LastExecutedStepTime"),EST)
Next
Return WFTable
End Using
End If
