AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Developer01
2024-08-27 12:49:17 +02:00
parent 1b04665e82
commit 09b60929b3
1 changed files with 13 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
app/TaskFlow/frmValidator.vb
View File

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