MS Fehlerhandling FormatString

app/TaskFlow/ClassAllgemeineFunktionen.vb

@@ -181,41 +181,6 @@ Public Class ClassAllgemeineFunktionen
         End If
 
     End Sub
-    'Public Function Delete_xffres(originFile As String, clsWD As ClassWindream_allgemein)
-    '    Try
-    '        Dim Stammname As String = System.IO.Path.GetFileNameWithoutExtension(originFile)
-    '        Dim Path As String = System.IO.Path.GetDirectoryName(originFile)
-    '        Dim xffres As String = Path & "\" & Stammname & ".xffres"
-    '        If file_exists(xffres, clsWD) = True Then
-    '            System.IO.File.Delete(xffres)
-    '            LOGGER.Info("Datei " & xffres & " erfolgreich gelöscht")
-    '            Return True
-    '        Else
-    '            Return Nothing
-    '        End If
-    '    Catch ex As Exception
-    '        LOGGER.Error(ex)
-    '        LOGGER.Info(" Fehler bei Delete_xffres", True)
-    '        LOGGER.Info("Fehlermeldung: " & ex.Message)
-    '    End Try
-    'End Function
-    'Public Function Delete_File(originFile As String)
-    '    Try
-
-    '        If file_exists(originFile, False) = True Then
-    '            System.IO.File.Delete(originFile)
-    '            LOGGER.Info("Manuelles Löschen: Datei " & originFile & " erfolgreich gelöscht", False)
-    '            Return True
-    '        Else
-    '            MsgBox("Die Datei konnte nicht gelsöcht werden. File NOT EXISTS", MsgBoxStyle.Exclamation)
-    '            Return False
-    '        End If
-    '    Catch ex As Exception
-    '        LOGGER.Info(" Fehler bei Delete_File", True)
-    '        LOGGER.Info("Fehlermeldung: " & ex.Message)
-    '    End Try
-    'End Function
-
     Public Function Move2Folder(ByVal vMove_File As String, ByVal vZiel_Pfad As String, Profile_ID As Integer, clsWD As ClassWindream_allgemein)
         Try
 
@@ -296,7 +261,7 @@ Public Class ClassAllgemeineFunktionen
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei checkValue_Exists:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error checkValue_Exists:")
             LOGGER.Info(" - Unvorhergesehener Fehler bei checkValue_Exists - Fehler: " & vbNewLine & ex.Message)
             Return False
         End Try
@@ -329,7 +294,7 @@ Public Class ClassAllgemeineFunktionen
 
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
+            MsgBox("Unexpected error Execute_Scalar_SQLServer" & vbNewLine & "Automatic Index (j/n): " & check.ToString & vbNewLine & "ERROR:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_SQL sql:")
             Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}")
             LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
             LOGGER.Info(" - SQL: " & vsql_statement)
@@ -363,7 +328,7 @@ Public Class ClassAllgemeineFunktionen
             cnn.Close()
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler bei Ausführen sql:")
+            MsgBox("Unexpected error Execute_Scalar_Oracle" & vbNewLine & "Automatic Index (y/n): " & check.ToString & vbNewLine & "Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_oracle sql:")
             Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}")
             LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message)
             LOGGER.Info(" - SQL: " & vsql_statement)

app/TaskFlow/ClassEmail.vb

@@ -48,17 +48,17 @@ Public Class ClassEmail
                 '*Send the message */
                 emailClient.Send(message)
                 If test = True Then
-                    MsgBox("Die Test-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                    MsgBox("TestMail sent successfully!", MsgBoxStyle.Information, "Success:")
                 End If
                 If Log = True Then
-                    MsgBox("Die Support-Email wurde erfolgreich versendet!", MsgBoxStyle.Information, "Erfolgsmeldung:")
+                    MsgBox("The Support-Email has been sent successfully!", MsgBoxStyle.Information, "Success:")
                 End If
                 'LOGGER.Info(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False)
             Next
             Return True
         Catch ex As Exception
             LOGGER.Error(ex)
-            LOGGER.Info("### Fehler im Mailversand: " & ex.Message)
+            LOGGER.Info("### Error in Mailversand: " & ex.Message)
             Return False
         End Try
     End Function

app/TaskFlow/ClassPMWindream.vb

@@ -45,24 +45,11 @@ Public Class ClassPMWindream
     Private Function IsNotEmpty(ByVal aValue As Object)
         If aValue IsNot Nothing Then
             Return True
-
-            'If TypeOf aValue Is String Then
-            '    ' Änderung 28.08.2018: Auch ein leerer String gilt als Wert, damit indexfelder auch geleert werden können
-            '    'If Not aValue = "" Then
-            '    '    Return True
-            '    'End If
-
-            '    Return False
-            'Else
-            '    Return True
-            'End If
         Else
             Return False
         End If
     End Function
-    Private Function return_type(ByVal _wert As Object)
+
-        Return _wert.GetType
-    End Function
     Public Function GetValuesfromAuswahlliste(ByVal listname As String)
         Try
             If listname = "" Then
@@ -99,19 +86,7 @@ Public Class ClassPMWindream
             Return Nothing
         End Try
     End Function
-    Public Function Return_Type(Indexname As String)
+
-        Try
-            ' das entsprechende Attribut aus windream auslesen
-            Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
-            ' den Variablentyp (String, Integer, ...) auslesen 
-            Dim vType = oAttribute.getVariableValue("dwAttrType")
-            Return vType.ToString
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Return_Type:")
-            Return ""
-        End Try
-    End Function
 
     Public Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object)
         Dim vType
@@ -472,188 +447,8 @@ Public Class ClassPMWindream
         End Try
     End Function
 
-    Public Sub SetfinalIndex(ByVal oDocument As WMObject, ByVal Indexname As String, ByVal _state As Boolean)
-        Try
-            If Indexname IsNot Nothing Then
-                If Not oDocument.aLocked Then
-                    oDocument.LockFor(WMObjectEditModeIndexEdit)
-                    Dim i As Integer = 0
-
-                    ' das entsprechende Attribut aus windream auslesen
-                    Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indexname)
-                    ' den Variablentyp (String, Integer, ...) auslesen 
-                    Dim vType = oAttribute.getVariableValue("dwAttrType")
-                    'MsgBox("Typ: " & vType.ToString, MsgBoxStyle.Critical, "_state: " & _state.ToString)
-                    ' wenn in aValues an Position i ein Wert steht
-                    'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
-                    Dim value = _state
-                    Dim convertValue
-                    'Den Typ des Index-Feldes auslesen
-                    LOGGER.Debug(">> Typ des windream-Indexes: " & vType.ToString)
-                    Select Case (vType)
-                        Case WMObjectVariableValueTypeBoolean
-                            convertValue = CBool(value)
-                        Case Else
-                            LOGGER.Info(">> Typ des windream-Indexes ist nicht BOOLEAN also Abbruch:")
-                    End Select
-                    '############################################################################################
-                    '####################### Der eigentliche Indexierungsvorgang ################################
-
-                    oDocument.SetVariableValue(Indexname, convertValue)
-                    LOGGER.Debug(">> Index '" & Indexname & "' wurde gesetzt")
-                    oDocument.Save()
-                    oDocument.unlock()
-                    LOGGER.Info(">> DATEI wurde erfolgreich als fertig nachindexiert gekennzeichnet")
-                Else
-                    LOGGER.Info(">> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
-                End If
-            End If
-
-
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            LOGGER.Info("ClassSearchResult.SetfinalIndex - " & ex.Message, True)
-            'If My.Settings.vNIMailsenden = True Then
-            '    email.Send_EMail("Fehler bei SetfinalIndex - Datei: " & oDocument.aName.ToString & " - Fehler: " & ex.Message)
-            'End If
-            oDocument.Save()
-            oDocument.unlock()
-        End Try
-    End Sub
 #End Region
 
 
-#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
 
-    Public Function Get_No_Documents(Profil As String, WD_Search As String)
-        Try
-            Dim wmsearch_exists As Boolean
-            Try
-                wmsearch_exists = System.IO.File.Exists(WD_Search)
-            Catch ex As Exception
-                LOGGER.Error(ex)
-                wmsearch_exists = clsWM.CheckFileExists(WD_Search)
-
-            End Try
-            If wmsearch_exists = False Then
-
-                LOGGER.Info(">> Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden! Die Datei '" & WD_Search & "' existiert nicht!", False)
-                MsgBox("Windream Suche für Profil: '" & Profil & "' konnte nicht ausgeführt werden!" & vbNewLine & "Die Datei '" & WD_Search & "' existiert nicht!", MsgBoxStyle.Exclamation, "Achtung:")
-                'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
-                'If My.Settings.vNIMailsenden = True Then
-                '    email.Send_EMail("Fehler bei Nachindexierung: <br> >> Profil: " & Me.aktivesProfil.Profilname & "<br> >> die windream-Suche : " & Me.aktivesProfil.WindreamSuche & " konnte nicht gefunden werden!" & _
-                '                     "<br> >> Mögliche Fehlerursache: Das W-Laufwerk ist nicht verfügbar!")
-                'End If
-                Return 0
-            Else
-                ' windream-Suche für Profil starten
-                Dim windreamSucheErgebnisse As WMObjects = Me.GetSearchDocuments(WD_Search)
-
-                If windreamSucheErgebnisse.Count > 0 Then
-                    ' neue Anzahl von Dateien
-                    Return windreamSucheErgebnisse.Count
-                Else
-                    ' keine Dateien zum Importieren
-                    Return 0
-                End If
-            End If
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            LOGGER.Info(ex.Message)
-            Return 0
-        End Try
-
-    End Function
-
-    Public Function GetSearchDocuments(ByVal wdfLocation As String)
-
-        If clsWM.CheckFileExists(wdfLocation) = True Then
-
-            Try
-                Dim ProfileName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
-                Dim ProfilePath = wdfLocation.Substring(0, wdfLocation.Length - ProfileName.Length)
-
-                Me.oController.CheckSearchProfile(wdfLocation.ToLower)
-                Dim suchTyp = Me.oController.SearchProfileTargetProgID
-                Dim ExSettings As Object
-                Dim oSearch As Object
-                ExSettings = Me.oController.SearchProfileExSettings
-                If ExSettings = 0 Then ExSettings = 7
-
-                Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
-                Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
-                Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
-
-                Select Case suchTyp.ToString.ToUpper
-                    Case "WMOSRCH.WMQUICKSEARCH"
-                        srchQuick.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-
-                        Me.oConnect.LoginSession(srchQuick.WMSession)
-
-                        srchQuick.ClearSearch()
-                        srchQuick.SearchProfilePath = ProfilePath
-                        srchQuick.LoadSearchProfile(ProfileName)
-
-                        oSearch = srchQuick.GetSearch()
-
-                    Case "WMOSRCH.WMINDEXSEARCH"
-                        srchIndex.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-
-                        Me.oConnect.LoginSession(srchIndex.WMSession)
-
-                        srchIndex.ClearSearch()
-                        srchIndex.SearchProfilePath = ProfilePath
-                        srchIndex.LoadSearchProfile(ProfileName)
-
-                        oSearch = srchIndex.GetSearch()
-
-                    Case "WMOSRCH.WMOBJECTTYPESEARCH"
-                        srchObjectType.WMSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
-
-                        Me.oConnect.LoginSession(srchObjectType.WMSession)
-
-                        srchObjectType.ClearSearch()
-                        srchObjectType.SearchProfilePath = ProfilePath
-                        srchObjectType.LoadSearchProfile(ProfileName)
-
-                        oSearch = srchObjectType.GetSearch()
-
-                    Case Else
-                        LOGGER.Info("KEIN GÜLTIGER WINDREAM-SUCHTYP")
-                        Return Nothing
-                End Select
-                Dim WMObjects As Object
-                WMObjects = oSearch.Execute
-                Return oSearch.execute
-
-            Catch ex As Exception
-                LOGGER.Error(ex)
-                ' bei einem Fehler einen Eintrag in der Logdatei machen
-                LOGGER.Info("Fehler in GetSearchDocuments - " & ex.Message, True)
-                Return Nothing
-            End Try
-
-        End If
-
-        Return Nothing
-
-    End Function
-    ''' Liefert den Wert eines Indexes als String
-    ''' _indexname = Name des zu überprüfenden Indexfeldes
-    Public Function GetValueforIndex(ByVal _fullfilepath As String, _indexname As String)
-        Try
-            Const WMEntityDocument = 1
-            Dim IndexwertAusWindream As Object = Nothing
-            Dim _dok As WINDREAMLib.WMObject
-            _dok = Nothing
-            _dok = oSession.GetWMObjectByPath(WMEntityDocument, _fullfilepath) 'WINDREAMLib.WMEntity.WMEntityDocument
-            IndexwertAusWindream = _dok.GetVariableValue(_indexname)
-            Return IndexwertAusWindream.ToString
-        Catch ex As Exception
-            LOGGER.Error(ex)
-            'MsgBox(ex.Message)
-            Return Nothing
-        End Try
-    End Function
-#End Region
 End Class

app/TaskFlow/ClassWindream_allgemein.vb

@@ -30,14 +30,7 @@ Public Class ClassWindream_allgemein
     ''' </summary>
     ''' <remarks></remarks>
     Sub New()
-        ' wenn ein Fehler bei der Initialisierung auftrat
-        'If Not Me.Init() Then
-        '    ' Nachricht ausgeben
-        '    MsgBox("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.", MsgBoxStyle.Exclamation, "Fehler bei Initialisierung")
 
-        '    ' das Programm "abschießen"
-        '    Process.GetCurrentProcess.Kill()
-        'End If
     End Sub
 
 
@@ -121,13 +114,9 @@ Public Class ClassWindream_allgemein
             Return True
 
         Catch ex As Exception
-LOGGER.Error(ex)
+            LOGGER.Error(ex)
-            If Err.Number = -2147220985 Then
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error Login on windream")
-                MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine &
+
-                       "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Fehlernachricht:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version")
-            Else
-                MsgBox("Fehlernachricht:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream")
-            End If
             Return False
         End Try
 

app/TaskFlow/frmAdmin2.vb

@@ -228,7 +228,7 @@ Public Class frmAdmin2
             End If
         Catch ex As Exception
             MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in Saving GuiPHrase:")
-            'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
+
         End Try
     End Sub
     Private Sub BarButtonItem4_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem4.ItemClick

app/TaskFlow/frmAdministration.vb

@@ -62,7 +62,7 @@ Public Class frmAdministration
 
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox("Fehler bei Laden der Wertehilfen und Konfig-Daten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+            MsgBox("Error in loading BasicValues: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error:")
         End Try
         If IDB_ACTIVE = True Then
             IDBData.Init()
@@ -219,7 +219,7 @@ Public Class frmAdministration
                 Next
             Catch ex As Exception
                 _Logger.Error(ex)
-                MsgBox("Es konnte keine Verbindung zum windream-Server hergestellt werden.", MsgBoxStyle.Critical, "Fehler beim Zugriff auf windream-Server")
+                MsgBox("No connection to windream-server possible.", MsgBoxStyle.Critical, "Unexprected error:")
             End Try
         Else
             Dim oSQL = "SELECT GUID, TITLE FROM IDB.dbo.TBIDB_BUSINESS_ENTITY"
@@ -279,7 +279,7 @@ Public Class frmAdministration
             End If
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei öffnen der windream-Suche:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Unexpected error loading windream-search:")
         End Try
     End Sub
 
@@ -348,7 +348,7 @@ Public Class frmAdministration
             FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen eines Users:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error adding users:")
         End Try
     End Sub
 
@@ -362,7 +362,7 @@ Public Class frmAdministration
             FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen eines Users:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error deleting users:")
         End Try
     End Sub
 
@@ -378,7 +378,7 @@ Public Class frmAdministration
             FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Hinzufügen einer Gruppe:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error adding group(s):")
         End Try
     End Sub
 
@@ -394,7 +394,7 @@ Public Class frmAdministration
             FillProfile_Zuordnung(profileId)
         Catch ex As Exception
             _Logger.Error(ex)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Entfernen einer Gruppe:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error removing group(s):")
         End Try
     End Sub
 
@@ -852,7 +852,7 @@ Public Class frmAdministration
             FormDesigner.ShowDialog()
 
         Else
-            MsgBox("Eindeutiges Profil konnte nicht an den FormDesigner weitergegeben werden:", MsgBoxStyle.Exclamation)
+            MsgBox("No profile could be passed to designer:", MsgBoxStyle.Exclamation)
         End If
     End Sub
 
@@ -865,13 +865,13 @@ Public Class frmAdministration
     End Sub
 
     Private Sub BarButtonItem3_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem3.ItemClick
-        Dim result As MsgBoxResult = MsgBox("Wollen Sie das gesamte Profil kopieren?" & vbNewLine & "Alle Einstellungen werden übernommen, das Profil wird angelegt und inaktiv gesetzt!", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
+        Dim result As MsgBoxResult = MsgBox("Would You like to copy this profile?" & vbNewLine & "The profile will be added and set to inactive!", MsgBoxStyle.YesNo, "Confirmation:")
         'wenn Speichern ja
         If result = MsgBoxResult.Yes Then
             Try
                 Dim oEXECSQL As String = $"EXEC PRPM_COPY_PROFILE {PROFILGUIDTextBox.Text},'{USER_USERNAME}'"
                 If DatabaseFallback.ExecuteNonQueryECM(oEXECSQL) = True Then
-                    MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich kopiert!", MsgBoxStyle.Information, "Erfolgsmeldung")
+                    MsgBox("The profile [" & NAMETextBox.Text & "] has been added successfully!", MsgBoxStyle.Information, "Success")
                     Refresh_Profildaten()
                 Else
                     MsgBox("Error creating a profileCopy - Please check Your log!", MsgBoxStyle.Exclamation)
@@ -879,7 +879,7 @@ Public Class frmAdministration
 
             Catch ex As Exception
                 _Logger.Error(ex)
-                MsgBox("Fehler bei Anlage Profilkopie:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
+                MsgBox("Error creating a profileCopy:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:")
             End Try
 
         End If
@@ -888,20 +888,20 @@ Public Class frmAdministration
 
 
     Private Sub BarButtonItem5_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem5.ItemClick
-        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil " & NAMETextBox.Text & " löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
+        Dim result As MsgBoxResult = MsgBox("Do You really want to delete the profile " & NAMETextBox.Text & " ?", MsgBoxStyle.YesNo, "Confirmation:")
         ' wenn Speichern ja
         If result = MsgBoxResult.Yes Then
             Try
                 Dim profileID = PROFILGUIDTextBox.Text
                 Dim del As String = $"EXEC PRPM_DELETE_PROFILE {profileID}"
                 If DatabaseFallback.ExecuteNonQueryECM(del) = True Then
-                    MsgBox("Das Profil " & NAMETextBox.Text & " wurde erfolgreich gelöscht!", MsgBoxStyle.Information, "Erfolgsmeldung")
+                    MsgBox("The profile [" & NAMETextBox.Text & "] has been deleted successfully!", MsgBoxStyle.Information, "Success")
                     Refresh_Profildaten()
                 End If
 
             Catch ex As Exception
                 _Logger.Error(ex)
-                MsgBox("Fehler bei Löschen des Profils:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler:")
+                MsgBox("Error deleting a profile:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:")
             End Try
 
         End If

app/TaskFlow/frmConnection.vb

@@ -148,11 +148,11 @@ Public Class frmConnection
                 Me.GEANDERTWERTextBox.Text = USER_USERNAME
                 Me.TBDD_CONNECTIONBindingSource.EndEdit()
                 Me.TBDD_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION)
-                MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
+                MsgBox("Changes successfully saved!", MsgBoxStyle.Information)
             End If
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Fehler beim Speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
+            MsgBox("Error sving Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
 
     End Sub
@@ -163,7 +163,7 @@ Public Class frmConnection
             load_connections()
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Fehler bei Laden der Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Error loading basic data: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
     Sub load_connections()
@@ -173,7 +173,7 @@ Public Class frmConnection
             TBDD_CONNECTIONDataGridView.AutoResizeColumns()
         Catch ex As Exception
             LOGGER.Error(ex)
-            MsgBox("Fehler bei Connections laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            MsgBox("Error loading connections: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
     Private Sub Chckwin_aut_CheckedChanged(sender As Object, e As EventArgs) Handles Chckwin_aut.CheckedChanged
@@ -291,7 +291,7 @@ Public Class frmConnection
             Dim csb As New SqlClient.SqlConnectionStringBuilder
 
             If SERVERTextBox.Text = String.Empty Then
-                MsgBox("Bitte geben sie einen Server an!")
+                MsgBox("Please add a server!")
                 Exit Sub
             End If
 
@@ -300,7 +300,7 @@ Public Class frmConnection
                 csb.IntegratedSecurity = True
             Else
                 If txtUserId.Text = String.Empty Or txtPassword.Text = String.Empty Then
-                    MsgBox("Bitte geben sie Benutzer und Passwort an!")
+                    MsgBox("Please add user and password!")
                     Exit Sub
                 End If
 

app/TaskFlow/frmFormDesigner.vb

@@ -125,7 +125,7 @@ Public Class frmFormDesigner
                 TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
             Catch ex As Exception
                 _LOGGER.Error(ex)
-                MsgBox("Fehler bei Laden der Connection-Strings und Grunddaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
+                MsgBox("Error loading connection-strings and basedata: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error:")
             End Try
 
             LoadControls()
@@ -151,7 +151,7 @@ Public Class frmFormDesigner
             If missingIndexControls.Count > 0 Then
                 e.Cancel = True
                 Dim missingControls As String = String.Join(vbCrLf, missingIndexControls.ToArray())
-                MsgBox($"Für die folgenden Controls wurden noch keine Indexdefinitionen hinterlegt: {vbCrLf}{vbCrLf}{missingControls}")
+                MsgBox($"for the following controls attributes-definitions are missing: {vbCrLf}{vbCrLf}{missingControls}")
             End If
         End If
 
@@ -849,7 +849,7 @@ Public Class frmFormDesigner
             ' Control-Id wurde nicht in DataRow gefunden
             If IsNothing(oRow) Then
                 _LOGGER.Info($"Error while filtering Controls by Guid '{oControlId}' in LoadControlProperties:")
-                MsgBox($"Control mit der Id {oControlId} wurde nicht gefunden!", MsgBoxStyle.Critical, "Fehler beim Laden der Control Eigenschaften")
+                MsgBox($"Control with ID {oControlId} was not found!", MsgBoxStyle.Critical, "Error loading control-properties")
 
                 Exit Sub
             End If

app/TaskFlow/frmMassValidator.vb

@@ -75,11 +75,11 @@ Public Class frmMassValidator
 
         If CURRENT_DT_PROFILE.Rows.Count = 0 Then
             LOGGER.Info(">> Profildaten konnten nicht geladen werden - Übergebenes Profil: : " & CURRENT_ProfilName, True)
-            MsgBox("Achtung: Profildaten konnten nicht übergeben oder geladen werden.", MsgBoxStyle.Critical, "Achtung:")
+            MsgBox("Profiledata not passed.", MsgBoxStyle.Critical, "Attention:")
             Me.Close()
         End If
         If CURRENT_DT_PROFILE.Rows.Count > 1 Then
-            MsgBox("Es wurden mehr als 1 Profil zurückgegeben!!", MsgBoxStyle.Critical, "Achtung:")
+            MsgBox("More than one profile in results!", MsgBoxStyle.Critical, "Attention:")
             Me.Close()
         Else
             If CURRENT_DT_PROFILE.Rows.Count = 1 Then
@@ -477,7 +477,7 @@ Public Class frmMassValidator
                         Try
                             controltype = "Textbox"
                             If idxname = "" Then
-                                MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
+                                MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
                                 Exit For
                             End If
                             If idxname Is Nothing = False Then
@@ -511,7 +511,7 @@ Public Class frmMassValidator
                         controltype = "ComboBox"
                         Dim cmb As ComboBox = oControl
                         If idxname = "" Then
-                            MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
+                            MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
                             Exit For
                         End If
                         If idxname Is Nothing = False Then
@@ -540,7 +540,7 @@ Public Class frmMassValidator
                         controltype = "DataGridView"
                         Dim dgv As DataGridView = oControl
                         If idxname = "" Then
-                            MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
+                            MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
                             Exit For
                         End If
                         If idxname Is Nothing = False Then
@@ -610,7 +610,7 @@ Public Class frmMassValidator
                     Case "System.Windows.Forms.CheckBox"
                         controltype = "CheckBox"
                         If idxname = "" Then
-                            MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
+                            MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
                             Exit For
                         End If
                         If idxname Is Nothing = False Then
@@ -678,7 +678,7 @@ Public Class frmMassValidator
                         controltype = "DateTimePicker"
                         Dim DTP As DateTimePicker = oControl
                         If idxname = "" Then
-                            MsgBox("Achtung fehlerhafte Konfiguration:" & vbNewLine & "Für das Control " & oControl.Name & " wurde KEIN INDEX hinterlegt!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical)
+                            MsgBox("wrong config:" & vbNewLine & "there is no attribute for control: " & oControl.Name & vbNewLine & "Please check formdesigner as Admin!", MsgBoxStyle.Critical)
                             Exit For
                         End If
                     Case "DigitalData.Controls.LookupGrid.LookupControl3"
@@ -1330,13 +1330,13 @@ Public Class frmMassValidator
             If workedFiles = CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count Then
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox(String.Format("{0} Dateien wurden abgeschlossen!", workedFiles), MsgBoxStyle.Information, "Erfolgsmeldung:")
-                ElseIf USER_LANGUAGE = "en-US" Then
+                Else
                     MsgBox(String.Format("{0} files have been worked successfully!", workedFiles), MsgBoxStyle.Information, "Success:")
                 End If
             Else
                 If USER_LANGUAGE = "de-DE" Then
                     MsgBox(String.Format("{0} von {1} Dateien wurden abgeschlossen! Bitte prüfen Sie das Log und informieren Ihren Sysadmin.", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Achtung:")
-                ElseIf USER_LANGUAGE = "en-US" Then
+                Else
                     MsgBox(String.Format("{0} of {1} files have been worked successfully - Check the log And inform Your sysadmin!", workedFiles, CURRENT_DT_MASS_CHANGE_DOCS.Rows.Count), MsgBoxStyle.Information, "Attention:")
                 End If
 

app/TaskFlow/frmValidator.vb

@@ -3185,7 +3185,13 @@ Public Class frmValidator
 
                                     End If
                                     Try
-                                        Dim oFormatString As String = oControlRow.Item("CTRL_FORMAT_STRING")
+                                        Dim oFormatString As String = ""
+                                        Try
+                                            oFormatString = oControlRow.Item("CTRL_FORMAT_STRING")
+                                        Catch ex As Exception
+                                            LOGGER.Warn($"Unexpected error in getting CTRL_FORMAT_STRING [{oControl.Name}]: {ex.Message}")
+                                        End Try
+
                                         If oFormatString <> String.Empty Then
                                             Try
                                                 Dim oSPlit = Split(oFormatString, ";")
@@ -3218,7 +3224,13 @@ Public Class frmValidator
                                             oControl.Text = NotNull(oValueFromSource, oDefaultValue)
                                         End If
                                         Try
-                                            Dim oBackColor As String = oControlRow.Item("CTRL_BACKCOLOR_IF")
+                                            Dim oBackColor As String = ""
+                                            Try
+                                                oBackColor = oControlRow.Item("CTRL_BACKCOLOR_IF")
+                                            Catch ex As Exception
+                                                LOGGER.Warn($"Unexpected error in getting CTRL_BACKCOLOR_IF [{oControl.Name}]: {ex.Message}")
+                                            End Try
+
                                             If oBackColor <> String.Empty Then
                                                 Dim oSPlit = Split(oBackColor, ";")
                                                 If oSPlit.Length = 3 Then
@@ -3910,11 +3922,12 @@ Public Class frmValidator
             Else
                 RibbonPageGroupCustom.Visible = False
             End If
-            If Not IsNothing(WMDocPathWindows) And ActiveWorkflowType = ConstAHWorkflow_BlindFile Then
+            If Not IsNothing(WMDocPathWindows) And ActiveWorkflowType <> ConstAHWorkflow_BlindFile Then
                 If ButtonExport2Folder_Caption <> "" And WMDocPathWindows <> "" Then
                     If File.Exists(WMDocPathWindows) Then
                         barbtnitmExport.Caption = ButtonExport2Folder_Caption
                         barbtnitmExport.Visibility = BarItemVisibility.Always
+                        barbtnitmExport.Enabled = True
                         Try
                             If ButtonExport2Folder_RootFolder <> "" Then
                                 If Directory.Exists(ButtonExport2Folder_RootFolder) Then
@@ -3923,18 +3936,21 @@ Public Class frmValidator
                                     Else
                                         FolderBrowserDialog1.SelectedPath = ButtonExport2Folder_RootFolder
                                     End If
-
                                 Else
                                     LOGGER.Warn($"### Dis/Enabale Export2Path - RootFolder {ButtonExport2Folder_RootFolder} not existing or accessible!###")
+
                                 End If
 
                             End If
                         Catch ex As Exception
                             LOGGER.Warn($"### Error Dis/Enabale Export2Path: {ex.Message} !###")
                         End Try
-
+                    Else
+                        LOGGER.Warn($"### Dis/Enabale Export2Path - File [{WMDocPathWindows}] not existing or accessible!###")
                     End If
                 End If
+            Else
+                LOGGER.Warn($"### Dis/Enabale Export2Path - not displaying as ActiveWorkflowType =  {ConstAHWorkflow_BlindFile} !###")
             End If
         Catch ex As Exception
             LOGGER.Error(ex)