Bugfixes 2.4.0.9

Global_Indexer/frmIndex.vb

@@ -1656,7 +1656,15 @@ Public Class frmIndex
             Dim oNewDestination = Path.Combine(WINDREAM.ClientBasePath, oNormalized)
 
             If Directory.Exists(oDestination) = False Then
-                MsgBox($"Profile Path [{oNewDestination}] is not available. Please select another profile.", MsgBoxStyle.Exclamation, Text)
+                Dim oMessage = ""
+
+                If USER_LANGUAGE = "de-DE" Then
+                    oMessage = $"Der Pfad für das ausgewählte Profil ist nicht erreichbar:{vbNewLine}[{oNewDestination}].{vbNewLine}{vbNewLine}Bitte wählen Sie ein anderes Profil."
+                Else
+                    oMessage = $"Profile Path is not available:{vbNewLine}[{oNewDestination}].{vbNewLine}{vbNewLine}Please select another profile."
+                End If
+
+                MsgBox(oMessage, MsgBoxStyle.Information, Text)
                 ComboboxDoctype.SelectedIndex = -1
             Else
                 WDDirect = oDocType.Item("WINDREAM_DIRECT")
@@ -1666,30 +1674,6 @@ Public Class frmIndex
         End If
     End Sub
 
-    'Private Sub cmbDokumentart_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
-    '    If cmbDokumentart.SelectedIndex <> -1 And FormLoaded = True Then
-    '        If cmbDokumentart.SelectedValue.GetType.ToString = "System.Int32" Then
-    '            CURRENT_DOKART_ID = cmbDokumentart.SelectedValue
-
-    '            'lblhinweis.Visible = False
-    '            ClearNotice()
-
-    '            'lblerror.Visible = False
-    '            ClearError()
-
-
-    '            Me.pnlIndex.Controls.Clear()
-    '            Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
-    '            Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
-
-    '            WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
-    '            CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
-    '            Refresh_IndexeMan(cmbDokumentart.SelectedValue)
-    '        End If
-
-    '    End If
-    'End Sub
-    '    <STAThread()> _
     Private Sub Refresh_IndexeMan(dokartid As Integer)
         Dim sql
         Try