MS

app/TaskFlow/frmValidator.vb

@@ -121,7 +121,7 @@ Public Class frmValidator
     Private oProfile_NOT_RESP_SQL As String
     Private listofControls As New List(Of String)
 
-
+    Private frmMessages As frmValidator_Messages
 
     Private Class S
         Inherits My.Resources.frmValidator_Strings
@@ -460,7 +460,7 @@ Public Class frmValidator
         Catch ex As Exception
             Logger.Error(ex)
             MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
-            Logger.Info(">> error in LOADING(2) Profile-Data: " & ex.Message, True)
+            Logger.Info("Unexpected error in LOADING Profile-Data1: " & ex.Message)
         End Try
 
     End Sub
@@ -469,6 +469,12 @@ Public Class frmValidator
     Private Sub frmValidation_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
         Try
             _FormClosing = True
+
+            If Application.OpenForms().OfType(Of frmValidator_Messages).Any Then
+                If Not IsNothing(frmMessages) Then
+                    frmMessages.Close()
+                End If
+            End If
             Try
                 ' Position und Größe speichern
                 My.Settings.frmValidatorSize = Me.Size
@@ -872,6 +878,7 @@ Public Class frmValidator
 
             For Each oControlRow As DataRow In DT_CONTROLS.Rows
                 Dim oMyControl As Control
+                Dim oIndexName = oControlRow.Item("INDEX_NAME")
                 Dim oControlID = oControlRow.Item("GUID")
                 oControlInfo = $"CtrlID: {oControlID} - CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}"
                 Try
@@ -885,6 +892,9 @@ Public Class frmValidator
                                 Logger.Debug($"[{oControlInfo}] - TXT Try to create control...")
 
                                 Dim txt As BaseEdit = ControlCreator.CreateExistingTextbox(oControlRow, False)
+                                If oIndexName = "@@DISPLAY_ONLY" Then
+                                    txt.ReadOnly = True
+                                End If
                                 AddHandler txt.GotFocus, AddressOf OnTextBoxFocus
                                 AddHandler txt.LostFocus, AddressOf OnTextBoxLostFocus
                                 AddHandler txt.KeyUp, AddressOf OnTextBoxKeyUp
@@ -2730,6 +2740,7 @@ Public Class frmValidator
                 If DTInfoDoc.Rows.Count > 0 Then
                     bbtnitmInfoWorkflow.Visibility = BarItemVisibility.Always
                     Dim ofrmMessage As New frmValidator_Messages(DTInfoDoc)
+                    frmMessages = ofrmMessage
                     ofrmMessage.Show()
                     ofrmMessage.BringToFront()
                 Else