Merge branch 'master' of http://172.24.11.74:90/scm/git/DDMonorepo

GUIs.ClientSuite/Common/ClassCommonViews.vb

@@ -31,11 +31,10 @@ Public Class ClassCommonViews
         End Try
     End Function
 
-    Public Async Function VWIDB_WF_REQUESTCONTROLDATA(FormId As Int64, RequestId As Int64) As Task(Of DataTable)
+    Public Async Function VWIDB_CONTROL_DATA(ProcessRequestID As Int64) As Task(Of DataTable)
         Try
             My.Channel.CreateDatabaseRequest("Load Control Data", True)
-
+            Dim oSQL As String = $"SELECT * FROM VWIDB_CONTROL_DATA WHERE PROCESS_REQUESTID = {ProcessRequestID}"
-            Dim oSQL As String = $"SELECT * FROM VWIDB_WF_REQU_CTRL_DATA WHERE FORMID = {FormId} AND REQUESTID = {RequestId}"
             Dim oResult = Await My.Channel.ReturnDatatableAsync(oSQL)
             Dim oTable = oResult.Table
 

GUIs.ClientSuite/ModuleWorkflow/frmWorkflowStep.Designer.vb

@@ -28,9 +28,15 @@ Partial Class frmWorkflowStep
         Me.RibbonStatusBar = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
         Me.LayoutControl1 = New DevExpress.XtraLayout.LayoutControl()
         Me.LayoutControlGroupMain = New DevExpress.XtraLayout.LayoutControlGroup()
+        Me.GroupBox1 = New System.Windows.Forms.GroupBox()
+        Me.Button1 = New System.Windows.Forms.Button()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.cmbJobState = New DevExpress.XtraEditors.ComboBoxEdit()
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.GroupBox1.SuspendLayout()
+        CType(Me.cmbJobState.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'RibbonControl
@@ -64,12 +70,12 @@ Partial Class frmWorkflowStep
         '
         'LayoutControl1
         '
-        Me.LayoutControl1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.LayoutControl1.BackColor = System.Drawing.Color.Gray
         Me.LayoutControl1.Location = New System.Drawing.Point(0, 146)
         Me.LayoutControl1.Name = "LayoutControl1"
         Me.LayoutControl1.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1039, 241, 650, 400)
         Me.LayoutControl1.Root = Me.LayoutControlGroupMain
-        Me.LayoutControl1.Size = New System.Drawing.Size(991, 348)
+        Me.LayoutControl1.Size = New System.Drawing.Size(991, 251)
         Me.LayoutControl1.TabIndex = 2
         Me.LayoutControl1.Text = "LayoutControl1"
         '
@@ -78,14 +84,60 @@ Partial Class frmWorkflowStep
         Me.LayoutControlGroupMain.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
         Me.LayoutControlGroupMain.GroupBordersVisible = False
         Me.LayoutControlGroupMain.Name = "Root"
-        Me.LayoutControlGroupMain.Size = New System.Drawing.Size(991, 348)
+        Me.LayoutControlGroupMain.Size = New System.Drawing.Size(991, 251)
         Me.LayoutControlGroupMain.TextVisible = False
         '
+        'GroupBox1
+        '
+        Me.GroupBox1.Controls.Add(Me.Button1)
+        Me.GroupBox1.Controls.Add(Me.Label1)
+        Me.GroupBox1.Controls.Add(Me.cmbJobState)
+        Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Bottom
+        Me.GroupBox1.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.GroupBox1.Location = New System.Drawing.Point(0, 403)
+        Me.GroupBox1.Name = "GroupBox1"
+        Me.GroupBox1.Size = New System.Drawing.Size(991, 91)
+        Me.GroupBox1.TabIndex = 5
+        Me.GroupBox1.TabStop = False
+        Me.GroupBox1.Text = "Job - Aktualisierung"
+        '
+        'Button1
+        '
+        Me.Button1.Dock = System.Windows.Forms.DockStyle.Right
+        Me.Button1.Image = Global.DigitalData.GUIs.ClientSuite.My.Resources.Resources.StatusAnnotations_Complete_and_ok_32xLG
+        Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
+        Me.Button1.Location = New System.Drawing.Point(830, 19)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(158, 69)
+        Me.Button1.TabIndex = 2
+        Me.Button1.Text = "Job abschliessen"
+        Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
+        Me.Button1.UseVisualStyleBackColor = True
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(12, 28)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(43, 16)
+        Me.Label1.TabIndex = 1
+        Me.Label1.Text = "State:"
+        '
+        'cmbJobState
+        '
+        Me.cmbJobState.Location = New System.Drawing.Point(15, 47)
+        Me.cmbJobState.MenuManager = Me.RibbonControl
+        Me.cmbJobState.Name = "cmbJobState"
+        Me.cmbJobState.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)})
+        Me.cmbJobState.Size = New System.Drawing.Size(210, 20)
+        Me.cmbJobState.TabIndex = 0
+        '
         'frmWorkflowStep
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(991, 515)
+        Me.Controls.Add(Me.GroupBox1)
         Me.Controls.Add(Me.LayoutControl1)
         Me.Controls.Add(Me.RibbonStatusBar)
         Me.Controls.Add(Me.RibbonControl)
@@ -96,6 +148,9 @@ Partial Class frmWorkflowStep
         CType(Me.RibbonControl, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControl1, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.LayoutControlGroupMain, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.GroupBox1.ResumeLayout(False)
+        Me.GroupBox1.PerformLayout()
+        CType(Me.cmbJobState.Properties, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -107,4 +162,8 @@ Partial Class frmWorkflowStep
     Friend WithEvents RibbonStatusBar As DevExpress.XtraBars.Ribbon.RibbonStatusBar
     Friend WithEvents LayoutControl1 As DevExpress.XtraLayout.LayoutControl
     Friend WithEvents LayoutControlGroupMain As DevExpress.XtraLayout.LayoutControlGroup
+    Friend WithEvents GroupBox1 As GroupBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cmbJobState As DevExpress.XtraEditors.ComboBoxEdit
+    Friend WithEvents Button1 As Button
 End Class

GUIs.ClientSuite/ModuleWorkflow/frmWorkflowStep.vb

@@ -6,24 +6,24 @@ Public Class frmWorkflowStep
     Private _ControlData As ControlData
 
     Private _FormId As Int64
-    Private _RequestId As Int64
+    Private _ProcessRequestId As Int64
     Private _ProcessName As String
     Private _RequestName As String
 
     Private _HeaderGroup As LayoutControlGroup
     Private _BodyGroup As LayoutControlGroup
 
-    Public Sub New(RequestId As Int64)
+    Public Sub New(ProcessRequestId As Int64)
         ' Dieser Aufruf ist für den Designer erforderlich.
         InitializeComponent()
 
         ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
-        _RequestId = RequestId
+        _ProcessRequestId = ProcessRequestId
     End Sub
 
     Private Async Function GetRequestData(RequestId) As Task
         Await My.Channel.CreateDatabaseRequestAsync("Get Request Data", True)
-        Dim oSQL = $"SELECT RECORD_ID,PROCESS_NAME, REQUESTTITLE, FORM_ID FROM VWIDB_PROCESS_REQUEST WHERE REQUESTID = {RequestId}"
+        Dim oSQL = $"SELECT RECORD_ID,PROCESS_NAME, REQUEST_TITLE, FORMID FROM VWIDB_PROCESS_REQUEST WHERE RECORD_ID = {RequestId}"
         If My.Application.Service.Online = False Then
 
         End If
@@ -39,9 +39,9 @@ Public Class frmWorkflowStep
         Dim oRows = oResult.Table.Rows
 
         If oRows.Count = 1 Then
-            _FormId = oRows.Item(0).Item("FORM_ID")
+            _FormId = oRows.Item(0).Item("FORMID")
             _ProcessName = oRows.Item(0).Item("PROCESS_NAME")
-            _RequestName = oRows.Item(0).Item("TITLE")
+            _RequestName = oRows.Item(0).Item("REQUEST_TITLE")
         Else
             Throw New ApplicationException("Request data could not be fetched!")
         End If
@@ -49,10 +49,10 @@ Public Class frmWorkflowStep
 
 
     Private Async Sub frmWorkflowStep_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        Await GetRequestData(_RequestId)
+        Await GetRequestData(_ProcessRequestId)
 
         Dim oControlTable = Await My.Common.Views.VWIDB_FORM_CONTROL(_FormId)
-        Dim oControlData = Await My.Common.Views.VWIDB_WF_REQUESTCONTROLDATA(_FormId, _RequestId)
+        Dim oControlData = Await My.Common.Views.VWIDB_CONTROL_DATA(_ProcessRequestId)
 
         _HeaderGroup = LayoutControlGroupMain.AddGroup("Request Header")
         _BodyGroup = LayoutControlGroupMain.AddGroup("Control Body")
@@ -70,4 +70,8 @@ Public Class frmWorkflowStep
         _ControlLoader.AddControl("Process Name", _ProcessName, _HeaderGroup)
         _ControlLoader.AddControl("Request Name", _RequestName, _HeaderGroup)
     End Sub
+
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+
+    End Sub
 End Class

GUIs.ClientSuite/My Project/Resources.Designer.vb

@@ -130,6 +130,16 @@ Namespace My.Resources
             End Get
         End Property
         
+        '''<summary>
+        '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
+        '''</summary>
+        Friend ReadOnly Property StatusAnnotations_Complete_and_ok_32xLG() As System.Drawing.Bitmap
+            Get
+                Dim obj As Object = ResourceManager.GetObject("StatusAnnotations_Complete_and_ok_32xLG", resourceCulture)
+                Return CType(obj,System.Drawing.Bitmap)
+            End Get
+        End Property
+        
         '''<summary>
         '''  Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
         '''</summary>

GUIs.ClientSuite/frmMain.vb

@@ -217,7 +217,7 @@ Public Class frmMain
     End Sub
 
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick
-        Dim oForm As New frmWorkflowStep(142) With {
+        Dim oForm As New frmWorkflowStep(172) With {
             .MdiParent = DocumentManager.MdiParent
         }
         oForm.Show()