jj 20.06 recordView

app/DD-Record-Organiser/ClassJumpRecord.vb

@@ -45,15 +45,21 @@ Public Class ClassJumpRecord
 
     Private Shared Sub JumpToRecord(constructorId As Integer, recordId As Integer)
         Try
-            Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId))
+            'Dim constructorIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT CONSTRUCT_ID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0}", constructorId))
             Dim recordIdExists As Boolean = ClassDatabase.Execute_Scalar(String.Format("SELECT GUID FROM TBPMO_RECORD WHERE GUID = {0}", recordId))
 
-            If constructorIdExists = False Or recordIdExists = False Then
+            'If constructorIdExists = False Or recordIdExists = False Then
-                MsgBox("Das angegebene Formular konnte nicht geöffnet werden. Grund: Die ConstructorID oder die RecordID wurde nicht gefunden." & vbNewLine & "constructorId: " & constructorId & ", recordId: " & recordId, MsgBoxStyle.Exclamation, "URL Handler")
+            '    MsgBox("Das angegebene Formular konnte nicht geöffnet werden. Grund: Die ConstructorID oder die RecordID wurde nicht gefunden." & vbNewLine & "constructorId: " & constructorId & ", recordId: " & recordId, MsgBoxStyle.Exclamation, "URL Handler")
+            '    Exit Sub
+            'End If
+
+            If Not recordIdExists Then
+                MsgBox(String.Format("RecordId {0} could not be found. Record will not be loaded.", recordId))
                 Exit Sub
             End If
 
-            OpenFormConstructor(constructorId, recordId)
+            'OpenFormConstructor(constructorId, recordId)
+            OpenRecordView(recordId)
         Catch ex As Exception
             MsgBox("Error in JumpToRecord:" & vbNewLine & ex.Message)
             Exit Sub

app/DD-Record-Organiser/ClassRecordView.vb

@@ -0,0 +1,425 @@
+Imports DevExpress.XtraEditors
+Imports System.Text.RegularExpressions
+
+Public Class ClassRecordView
+    Private DTControls As DataTable
+    Private DTValues As DataTable
+    Private RecordId As Integer
+    Private FormId As Integer
+    Private Panel As Panel
+
+    Private Const CONTROL_ID_PATTERN = "@\d{1,}@"
+    Private Const STATIC_PATTERN = "@\w{1,}"
+
+    ''' <summary>
+    ''' Initialisiert die RecordView Klasse
+    ''' </summary>
+    Public Sub New(panel As Panel)
+        Me.Panel = panel
+    End Sub
+
+    ''' <summary>
+    ''' Lädt die Controls und Werte für die angegebene RecordId
+    ''' </summary>
+    Public Sub LoadRecord(recordId As Integer)
+        Me.RecordId = recordId
+        Me.LoadControls(Me.Panel)
+        Me.LoadValues(Me.Panel.Controls)
+    End Sub
+
+#Region "Helper Functions"
+    Private Sub Noop()
+        ' Verhindert Bestimmte Events
+    End Sub
+
+    Private Function GetFormId() As Integer
+        Dim SQL = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", Me.RecordId)
+        Me.FormId = ClassDatabase.Execute_Scalar(SQL)
+        Return Me.FormId
+    End Function
+
+    Private Function MapRowToProps(r As DataRow) As ControlProps
+        Dim props As New ControlProps
+
+        props.Id = r.Item("CONTROL_ID")
+        props.Name = r.Item("CONTROL_NAME").ToString
+        props.Type = r.Item("CTRLTYPE_NAME").ToString
+        props.Caption = r.Item("CTRLSCR_CAPTION").ToString
+        props.X = r.Item("CTRLSCR_X_LOC")
+        props.Y = r.Item("CTRLSCR_Y_LOC")
+        props.Height = r.Item("CTRLSCR_HEIGHT")
+        props.Width = r.Item("CTRLSCR_WIDTH")
+        props.FontFamily = r.Item("CTRLSCR_FONT_FAMILY")
+        props.FontSize = r.Item("CTRLSCR_FONT_SIZE")
+        props.FontStyle = CType(r.Item("CTRLSCR_FONT_STYLE"), FontStyle)
+        props.FontColor = IntToColor(r.Item("CTRLSCR_FONT_COLOR"))
+        props.BackColor = IntToColor(r.Item("CTRLSCR_BACK_COLOR"))
+        props.Font = New Font(props.FontFamily, props.FontSize, props.FontStyle)
+        props.SqlCommand1 = r.Item("CONTROL_SQLCOMMAND_1").ToString()
+        props.SqlCommand2 = r.Item("CONTROL_SQLCOMMAND_2").ToString()
+        props.StaticList = r.Item("CONTROL_STATIC_LIST").ToString()
+
+        Return props
+    End Function
+
+    ''' <summary>
+    ''' Hilfsfunktion, die allgemeine Eigenschaften für alle Controls setzt
+    ''' </summary>
+    ''' <param name="c">Das zu initialisierende Control</param>
+    ''' <param name="props">Das Eigenschaften Objekt</param>
+    ''' <returns>Das Control mit den allgemeinen Eigenschaften</returns>
+    Private Function SetBaseProps(c As Control, props As ControlProps)
+        c.Location = New Point(props.X, props.Y)
+        c.Width = props.Width
+        c.Height = props.Height
+        c.Tag = props
+        Return c
+    End Function
+#End Region
+
+#Region "Data Loading Functions"
+
+
+    Private Function LoadStaticList(props As ControlProps) As List(Of String)
+        Dim staticlist As String = props.StaticList
+        Dim list As List(Of String) = Nothing
+
+        ' Wenn StaticList Elemente enthält, werden diese
+        ' als DataSource aufbnereitet
+        If (staticlist.Length > 0) Then
+            list = staticlist.Split(";").ToList()
+        End If
+
+        Return list
+    End Function
+
+    Private Function ReplaceStaticPlaceholders(sqlcommand As String) As String
+        If (New Regex(STATIC_PATTERN).IsMatch(sqlcommand)) Then
+
+            sqlcommand = sqlcommand _
+                .Replace("@RECORD_ID", Me.RecordId) _
+                .Replace("@RECORDID", Me.RecordId)
+            ' TODO: Add more placeholders
+
+        End If
+
+        Return sqlcommand
+    End Function
+
+    Private Function LoadSQLList(props As ControlProps) As DataTable
+        Dim sqllist As DataTable = Nothing
+        Dim sqlcommand = props.SqlCommand1
+        Dim ControlIdRegex As New Regex(CONTROL_ID_PATTERN)
+
+        If sqlcommand.Length = 0 Then
+            Return sqllist
+        End If
+
+        ' Replace Dynamic Placeholders like @993@
+        If ControlIdRegex.IsMatch(sqlcommand) Then
+            Dim match As String = ControlIdRegex.Match(sqlcommand).Value 'Get Full Match to replace later
+            Dim controlId As Integer = Integer.Parse(match.Replace("@", "")) 'Get Value after removing @-chars
+            Dim controlSQL = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", controlId, Me.RecordId)
+            Dim controlValue = ClassDatabase.Execute_Scalar(controlSQL) 'Get the actual value
+            sqlcommand = sqlcommand.Replace(match, controlValue.ToString()) 'Replace the actual value with the placeholder string/match
+        End If
+
+        ' Replace Static Placeholders like @RECORD_ID@
+        sqlcommand = ReplaceStaticPlaceholders(sqlcommand)
+
+        sqllist = ClassDatabase.Return_Datatable(sqlcommand)
+
+        Return sqllist
+    End Function
+
+    Private Function TransformSQLCommand(props As ControlProps) As ControlProps
+
+        Return props
+    End Function
+
+    Private Function LoadDataSource(props As ControlProps) As ControlProps
+        Dim datasource As Object = Nothing
+        Dim staticList = LoadStaticList(props)
+        Dim dynamicList = LoadSQLList(props)
+
+        If staticList IsNot Nothing Then
+            datasource = staticList
+        End If
+
+        If dynamicList IsNot Nothing Then
+            datasource = dynamicList
+        End If
+
+        props.DataSource = datasource
+        Return props
+    End Function
+
+#End Region
+
+    Private Sub LoadControls(panel As Panel)
+        Dim controls As New List(Of Control)
+        DTControls = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0}", GetFormId()))
+
+        For Each row As DataRow In DTControls.Rows
+            Dim props As ControlProps = MapRowToProps(row)
+            Dim control As Control = Nothing
+
+            Select Case props.Type
+                Case "Label"
+                    control = LoadLabel(props)
+                Case "Textbox"
+                    control = LoadTextBox(props)
+                Case "Combobox"
+                    control = LoadCombobox(props)
+                Case "Datepicker"
+                    control = LoadDatePicker(props)
+                Case "Datagridview"
+                    control = LoadDataGridView(props)
+                Case "ListBox"
+                    control = LoadListBox(props)
+                Case "CheckedListBox"
+                    control = LoadCheckedListBox(props)
+                Case "Checkbox"
+                    control = LoadCheckBox(props)
+                Case "Radiobutton"
+                    control = LoadRadioButton(props)
+            End Select
+
+            If control IsNot Nothing Then
+                controls.Add(control)
+            End If
+        Next
+
+        panel.Controls.Clear()
+        panel.Controls.AddRange(controls.ToArray())
+    End Sub
+
+    Private Sub LoadValues(controlCollection As Control.ControlCollection)
+        Dim controls As New List(Of Control)
+        DTValues = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM  VWPMO_VALUES WHERE RECORD_ID = {0}", Me.RecordId))
+
+        ' ControlCollection in eine List<Of Control> konvertieren
+        controls = controlCollection.Cast(Of Control)().ToList()
+
+        For Each control As Control In controls
+            Dim controlId As Integer = DirectCast(control.Tag, ControlProps).Id
+
+            Dim values As List(Of Object) = (From row In DTValues.AsEnumerable()
+                            Where row.Item("CONTROL_ID") = controlId
+                            Select row.Item("VALUE")).ToList()
+
+            ' Wenn kein Wert existiert, keinen Wert laden
+            If values.Count = 0 Then
+                Continue For
+            Else
+                LoadValue(control, values)
+            End If
+        Next
+    End Sub
+
+    Public Sub LoadValue(control As Control, values As List(Of Object))
+        Dim controlType As String = DirectCast(control.Tag, ControlProps).Type
+        Dim value = Nothing
+        If values.Count > 0 Then
+            value = values(0)
+        Else
+            Exit Sub
+        End If
+
+        Select Case controlType
+            Case "Label"
+                ' Hier muss kein Wert geladen werden
+                Exit Select
+            Case "Textbox"
+                DirectCast(control, TextBox).Text = value.ToString()
+            Case "Combobox"
+                DirectCast(control, TextBox).Text = value.ToString()
+            Case "Datepicker"
+                DirectCast(control, TextBox).Text = DateTime.Parse(value).ToShortDateString()
+            Case "Checkbox"
+                DirectCast(control, CheckBox).Checked = Boolean.Parse(value)
+            Case "RadioButton"
+                DirectCast(control, RadioButton).Checked = Boolean.Parse(value)
+            Case "Datagridview"
+                Dim datagridview As ListBoxControl = DirectCast(control, ListBoxControl)
+                datagridview.Items.AddRange(values.ToArray())
+            Case "ListBox"
+                Dim listbox As ListBoxControl = DirectCast(control, ListBoxControl)
+                listbox.Items.AddRange(values.ToArray())
+            Case "CheckedListBox"
+                Dim checkedlist As CheckedListBoxControl = DirectCast(control, CheckedListBoxControl)
+                For Each v As String In values
+                    Dim posBefore As Integer = 0
+                    While (checkedlist.FindStringExact(v, posBefore) > -1)
+                        Dim pos = checkedlist.FindStringExact(v, posBefore)
+                        ' Wenn v gefunden wurde, anhaken
+                        If pos >= 0 Then
+                            checkedlist.SetItemCheckState(pos, CheckState.Checked)
+                            posBefore = pos + 1
+                        End If
+                        ' Verhindere Endlosschleife
+                        If pos = 100 Then
+                            Exit While
+                        End If
+                    End While
+                Next
+        End Select
+
+    End Sub
+
+    Class ControlProps
+        ' Base Props
+        Public Id As Integer
+        Public Name As String
+        Public Type As String
+        Public Caption As String
+        ' Position/Size Props
+        Public X As Integer
+        Public Y As Integer
+        Public Height As Integer
+        Public Width As Integer
+        ' Font/Color Props
+        Public FontColor As Color
+        Public FontSize As Integer
+        Public FontStyle As FontStyle
+        Public FontFamily As String
+        Public Font As Font
+
+        Public BackColor As Color
+
+        ' Flag Props
+        Public IsRequired As Boolean
+        Public IsReadOnly As Boolean
+        Public IsMultiline As Boolean
+        ' Data Props
+        Public SqlCommand1 As String
+        Public SqlCommand2 As String
+        Public StaticList As String
+        Public DataSource As Object
+
+        ' Misc Props
+        Public FormatType As String
+    End Class
+
+#Region "Control Builder Simple"
+
+    Private Function LoadLabel(props As ControlProps) As Label
+        Dim label As Label = SetBaseProps(New Label, props)
+
+        label.Text = props.Caption
+        label.Font = props.Font
+        label.ForeColor = props.FontColor
+        label.BackColor = props.BackColor
+        label.AutoSize = True
+
+        props = LoadDataSource(props)
+
+        If (Not IsNothing(props.DataSource)) Then
+            If props.DataSource.GetType() Is GetType(DataTable) Then
+                Dim row0 As DataRow = DirectCast(props.DataSource, DataTable).Rows(0)
+                Dim value = row0.Item(0)
+                label.Text = value
+            Else
+                label.Text = props.DataSource.ToString()
+            End If
+
+        End If
+
+        Return label
+    End Function
+
+    Private Function LoadTextBox(props As ControlProps) As TextBox
+        Dim textbox As TextBox = SetBaseProps(New TextBox, props)
+
+        textbox.BorderStyle = BorderStyle.FixedSingle
+        textbox.Font = props.Font
+        textbox.ForeColor = props.FontColor
+        textbox.BackColor = props.BackColor
+        textbox.ReadOnly = True
+
+        Return textbox
+    End Function
+
+    ' Die Combobox wird als Textbox dargestellt
+    Private Function LoadCombobox(props As ControlProps) As TextBox
+        Dim combo As TextBox = SetBaseProps(New TextBox, props)
+
+        combo.BorderStyle = BorderStyle.FixedSingle
+        combo.Font = props.Font
+        combo.ForeColor = props.FontColor
+        combo.BackColor = props.BackColor
+        combo.ReadOnly = True
+
+        Return combo
+    End Function
+
+    ' Der Datepicker wird als Textbox dargestellt
+    Private Function LoadDatePicker(props As ControlProps) As TextBox
+        Dim dtp As TextBox = SetBaseProps(New TextBox, props)
+
+        dtp.BorderStyle = BorderStyle.FixedSingle
+        dtp.Font = props.Font
+        dtp.ForeColor = props.FontColor
+        dtp.BackColor = props.BackColor
+        dtp.ReadOnly = True
+
+        Return dtp
+    End Function
+
+    Private Function LoadCheckBox(props As ControlProps) As CheckBox
+        Dim check As CheckBox = SetBaseProps(New CheckBox, props)
+
+        check.Text = props.Caption
+        check.Enabled = False
+
+        Return check
+    End Function
+
+    Private Function LoadRadioButton(props As ControlProps) As RadioButton
+        Dim radio As RadioButton = SetBaseProps(New RadioButton, props)
+
+        radio.Text = props.Caption
+        radio.Enabled = False
+
+        Return radio
+    End Function
+
+    Private Function LoadListBox(props As ControlProps) As ListBoxControl
+        Dim listbox As ListBoxControl = SetBaseProps(New ListBoxControl, props)
+
+        Return listbox
+    End Function
+
+    Private Function LoadDataGridView(props As ControlProps) As ListBoxControl
+        Dim datagridview As ListBoxControl = SetBaseProps(New ListBoxControl, props)
+
+        Return datagridview
+    End Function
+
+    Private Function LoadCheckedListBox(props As ControlProps) As CheckedListBoxControl
+        Dim checklistbox As CheckedListBoxControl = SetBaseProps(New CheckedListBoxControl, props)
+
+        props = LoadDataSource(props)
+
+        If Not IsNothing(props.DataSource) Then
+            If props.DataSource.GetType() Is GetType(DataTable) Then
+                Dim dt As DataTable = props.DataSource
+
+                If dt.Columns.Count = 1 Then
+                    checklistbox.DisplayMember = dt.Columns(0).ColumnName
+                    checklistbox.ValueMember = dt.Columns(0).ColumnName
+                ElseIf dt.Columns.Count = 2 Then
+                    checklistbox.DisplayMember = dt.Columns(1).ColumnName
+                    checklistbox.ValueMember = dt.Columns(0).ColumnName
+                End If
+
+            End If
+
+            checklistbox.DataSource = props.DataSource
+        End If
+
+        Return checklistbox
+    End Function
+
+#End Region
+End Class

app/DD-Record-Organiser/DD-Record-Organiser.vbproj

@@ -245,6 +245,7 @@
     <Compile Include="ClassJumpRecord.vb" />
     <Compile Include="ClassLicence.vb" />
     <Compile Include="ClassRecordState.vb" />
+    <Compile Include="ClassRecordView.vb" />
     <Compile Include="ClassSAP.vb" />
     <Compile Include="frmChooseParentRecord.Designer.vb">
       <DependentUpon>frmChooseParentRecord.vb</DependentUpon>

app/DD-Record-Organiser/ModuleHelperMethods.vb

@@ -242,6 +242,14 @@
 
     End Sub
 
+    Public Sub OpenRecordView(recordId)
+        JUMP_RECORD_ID = recordId
+
+        Dim frm As New frmRecordView()
+        frm.MdiParent = MAIN_FORM
+        frm.Show()
+    End Sub
+
     Public Sub OpenFormConstructor(id As Integer, Optional recordId As Integer = -1)
         Try
             CURRENT_CONSTRUCTOR_ID = id

app/DD-Record-Organiser/frmRecordView.Designer.vb

@@ -140,7 +140,7 @@ Partial Class frmRecordView
         Me.TabFollowUp.Controls.Add(Me.Label5)
         Me.TabFollowUp.Image = Global.DD_Record_Organiser.My.Resources.Resources.Task_16xMD
         Me.TabFollowUp.Name = "TabFollowUp"
-        Me.TabFollowUp.Size = New System.Drawing.Size(864, 338)
+        Me.TabFollowUp.Size = New System.Drawing.Size(563, 338)
         Me.TabFollowUp.Text = "Wiedervorlage"
         '
         'ListViewFollowUps
@@ -327,7 +327,7 @@ Partial Class frmRecordView
         Me.TabPos.Image = CType(resources.GetObject("TabPos.Image"), System.Drawing.Image)
         Me.TabPos.Name = "TabPos"
         Me.TabPos.PageVisible = False
-        Me.TabPos.Size = New System.Drawing.Size(864, 338)
+        Me.TabPos.Size = New System.Drawing.Size(563, 338)
         Me.TabPos.Text = "Positionen"
         '
         'Panel1
@@ -336,7 +336,7 @@ Partial Class frmRecordView
         Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
         Me.Panel1.Location = New System.Drawing.Point(0, 25)
         Me.Panel1.Name = "Panel1"
-        Me.Panel1.Size = New System.Drawing.Size(864, 313)
+        Me.Panel1.Size = New System.Drawing.Size(563, 313)
         Me.Panel1.TabIndex = 2
         '
         'GridControlPos
@@ -345,7 +345,7 @@ Partial Class frmRecordView
         Me.GridControlPos.Location = New System.Drawing.Point(0, 0)
         Me.GridControlPos.MainView = Me.grvwGridPos
         Me.GridControlPos.Name = "GridControlPos"
-        Me.GridControlPos.Size = New System.Drawing.Size(864, 313)
+        Me.GridControlPos.Size = New System.Drawing.Size(563, 313)
         Me.GridControlPos.TabIndex = 0
         Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
         '
@@ -372,7 +372,7 @@ Partial Class frmRecordView
         Me.BindingNavigatorPOS.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
         Me.BindingNavigatorPOS.Name = "BindingNavigatorPOS"
         Me.BindingNavigatorPOS.PositionItem = Me.BindingNavigatorPositionItem
-        Me.BindingNavigatorPOS.Size = New System.Drawing.Size(864, 25)
+        Me.BindingNavigatorPOS.Size = New System.Drawing.Size(563, 25)
         Me.BindingNavigatorPOS.TabIndex = 1
         Me.BindingNavigatorPOS.Text = "BindingNavigator1"
         '
@@ -559,14 +559,14 @@ Partial Class frmRecordView
         Me.SplitContainerControl1.TabIndex = 4
         Me.SplitContainerControl1.Text = "SplitContainerControl1"
         '
-        'frMWorkflowRecord
+        'frmRecordView
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(1101, 644)
         Me.Controls.Add(Me.SplitContainerControl1)
         Me.Controls.Add(Me.ToolStrip1)
-        Me.Name = "frMWorkflowRecord"
+        Me.Name = "frmRecordView"
         Me.Text = "frMWorkflowRecord"
         CType(Me.TCDetails, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TCDetails.ResumeLayout(False)

app/DD-Record-Organiser/frmRecordView.resx

@@ -219,6 +219,9 @@
   <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>821, 134</value>
   </metadata>
+  <metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>821, 134</value>
+  </metadata>
   <data name="ToolStripDropDownButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>
         iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8

app/DD-Record-Organiser/frmRecordView.vb

@@ -1,3 +1,8 @@
 Public Class frmRecordView
+    Private recordView As ClassRecordView
 
+    Private Sub frmRecordView_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        recordView = New ClassRecordView(pnlDetails)
+        recordView.LoadRecord(JUMP_RECORD_ID)
+    End Sub
 End Class