Imports DevExpress.XtraLayout
Imports DigitalData.GUIs.ClientSuite

Public Class frmWorkflowStep
    Private _ControlLoader As ClassControlLoader
    Private _ControlData As ClassControlData

    Private _FormId As Int64
    Private _RequestId As Int64
    Private _ProcessName As String
    Private _RequestName As String

    Private _HeaderGroup As LayoutControlGroup
    Private _BodyGroup As LayoutControlGroup

    Public Sub New(RequestId As Int64)
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()

        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        _RequestId = RequestId
    End Sub

    Private Async Function GetRequestData(RequestId) As Task
        Await My.Channel.CreateDatabaseRequestAsync("Get Request Data", True)

        Dim oResult = Await My.Channel.ReturnDatatableAsync($"SELECT PROCESS_NAME, TITLE, FORM_ID FROM VWICM_WF_REQUEST WHERE RECORD_ID = {RequestId}")

        If Not oResult.OK Then
            Throw New ApplicationException("Request data could not be fetched!")
            ShowErrorMessage(oResult.ErrorMessage)
        End If

        My.Channel.CloseDatabaseRequest()

        Dim oRows = oResult.Table.Rows

        If oRows.Count = 1 Then
            _FormId = oRows.Item(0).Item("FORM_ID")
            _ProcessName = oRows.Item(0).Item("PROCESS_NAME")
            _RequestName = oRows.Item(0).Item("TITLE")
        Else
            Throw New ApplicationException("Request data could not be fetched!")
        End If
    End Function


    Private Async Sub frmWorkflowStep_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Await GetRequestData(_RequestId)

        Dim oControlTable = Await My.Common.Views.VWICM_FORM_CONTROL(_FormId)
        Dim oControlData = Await My.Common.Views.VWICM_WF_REQUESTCONTROLDATA(_FormId, _RequestId)

        _HeaderGroup = LayoutControlGroupMain.AddGroup("Request Header")
        _BodyGroup = LayoutControlGroupMain.AddGroup("Control Body")

        _ControlLoader = New ClassControlLoader(My.LogConfig, _BodyGroup)
        _ControlData = New ClassControlData(My.LogConfig)

        _ControlLoader.LoadControls(oControlTable)
        _ControlData.LoadControlData(_ControlLoader.LayoutControls, oControlData)

        _ControlLoader.AddControl("Process Name", _ProcessName, _HeaderGroup)
        _ControlLoader.AddControl("Request Name", _RequestName, _HeaderGroup)
    End Sub
End Class