MS_KW8

Global_Indexer/ClassControls.vb

@@ -0,0 +1,29 @@
+Public Class ClassControls
+    Public Shared Function AddCheckBox(indexname As String, y As Integer, vorbelegung As String, caption As String)
+        Try
+            Dim chk As New CheckBox
+            chk.Name = "chk" & indexname
+            chk.Size = New Size(100, 27)
+            chk.Location = New Point(11, y)
+
+            If caption <> "" Then
+                chk.Text = caption
+                chk.Size = New Size(CInt(caption.Length * 15), 27)
+            End If
+            If vorbelegung <> "" Then
+                If vorbelegung = "1" Or vorbelegung = "0" Then
+                    chk.Checked = CBool(vorbelegung)
+                Else
+                    chk.Checked = False
+                End If
+            Else
+                chk.Checked = False
+            End If
+            Return chk
+        Catch ex As Exception
+            ClassLogger.Add("Unhandled Exception in AddCheckBox: " & ex.Message, True)
+            Return Nothing
+        End Try
+
+    End Function
+End Class

Global_Indexer/ClassFormFunctions.vb

@@ -6,10 +6,15 @@ Public Class ClassFormFunctions
             'Me.TBCONNECTIONTableAdapter.FillByID(Me.DD_DMSLiteDataSet.TBCONNECTION, id)
             Dim DTConnection As DataTable = ClassDatabase.Return_Datatable("SELECT * FROM TBDD_CONNECTION WHERE GUID = " & id)
             If DTConnection.Rows.Count = 1 Then
-                Select Case DTConnection.Rows(0).Item("SQL_PROVIDER")
+                Select Case DTConnection.Rows(0).Item("SQL_PROVIDER").ToString.ToUpper
-                    Case "MS-SQLServer"
+                    Case "MS-SQLServer".ToUpper
-                        connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        If DTConnection.Rows(0).Item("USERNAME").ToString.ToLower = "winauth" Then
-                    Case "Oracle"
+                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";Trusted_Connection=True;"
+                        Else
+                            connectionString = "Data Source=" & DTConnection.Rows(0).Item("SERVER") & ";Initial Catalog= " & DTConnection.Rows(0).Item("DATENBANK") & ";User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
+                        End If
+
+                    Case "Oracle".ToUpper
                         If DTConnection.Rows(0).Item("BEMERKUNG").ToString.Contains("without tnsnames") Then
                             connectionString = "Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=" & DTConnection.Rows(0).Item("SERVER") & ")(PORT=1521)))(CONNECT_DATA=(SERVER=DEDICATED)(SERVICE_NAME=" & _
                                DTConnection.Rows(0).Item("DATENBANK") & ")));User Id=" & DTConnection.Rows(0).Item("USERNAME") & ";Password=" & DTConnection.Rows(0).Item("PASSWORD") & ";"
@@ -35,14 +40,14 @@ Public Class ClassFormFunctions
                         'Data Source=MyOracleDB;User Id=myUsername;Password=myPassword;Integrated Security=no;
 
                     Case Else
-                        ClassLogger.Add(" - ConnectionType nicht integriert", False)
+                        ClassLogger.Add(" - ConnectionType not integrated", False)
-                        MsgBox("ConnectionType nicht integriert", MsgBoxStyle.Critical, "Bitte Konfiguration Connection überprüfen!")
+                        MsgBox("ConnectionType not integrated", MsgBoxStyle.Critical, "Please check connection:")
                 End Select
             End If
 
         Catch ex As Exception
-            ClassLogger.Add(" - Unvorhergesehener Fehler bei GetConnectionString - Fehler: " & vbNewLine & ex.Message)
+            ClassLogger.Add(" - Unexpected Error in GetConnectionString:" & vbNewLine & ex.Message)
-            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei GetConnectionString:")
+            MsgBox(ex.Message, MsgBoxStyle.Critical, "Error in GetConnectionString:")
 
         End Try
         Return connectionString

Global_Indexer/Global_Indexer.vbproj

@@ -137,6 +137,7 @@
     <Compile Include="AboutBox1.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="ClassControls.vb" />
     <Compile Include="ClassDatabase.vb" />
     <Compile Include="ClassDragDrop.vb" />
     <Compile Include="ClassEmail.vb" />

Global_Indexer/My Project/AssemblyInfo.vb

@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.9.8.0")> 
+<Assembly: AssemblyVersion("1.9.8.1")> 
 <Assembly: AssemblyFileVersion("1.0.0.0")> 
 
 <Assembly: NeutralResourcesLanguageAttribute("")> 

Global_Indexer/frmAdministration.Designer.vb

@@ -279,6 +279,9 @@ Partial Class frmAdministration
         Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
         Me.OBJEKTTYPComboBox = New System.Windows.Forms.ComboBox()
         Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage()
+        Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox()
+        Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
+        Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox()
         Me.lblsaveUSer = New System.Windows.Forms.Label()
         Me.XtraTabControl3 = New DevExpress.XtraTab.XtraTabControl()
         Me.XtraTabPage7 = New DevExpress.XtraTab.XtraTabPage()
@@ -315,7 +318,6 @@ Partial Class frmAdministration
         Me.ToolStripButton38 = New System.Windows.Forms.ToolStripButton()
         Me.ToolStripButton39 = New System.Windows.Forms.ToolStripButton()
         Me.ListBox3 = New System.Windows.Forms.ListBox()
-        Me.TBDD_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.USER_GUIDTextBox = New System.Windows.Forms.TextBox()
         Me.PRENAMETextBox = New System.Windows.Forms.TextBox()
         Me.NAMETextBox1 = New System.Windows.Forms.TextBox()
@@ -388,8 +390,6 @@ Partial Class frmAdministration
         Me.TBDD_GROUPS_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
         Me.TBDD_GROUPS_USERTableAdapter = New Global_Indexer.MyDatasetTableAdapters.TBDD_GROUPS_USERTableAdapter()
         Me.VWGI_DOCTYPE_GROUPTableAdapter = New Global_Indexer.MyDatasetTableAdapters.VWGI_DOCTYPE_GROUPTableAdapter()
-        Me.LANGUAGEComboBox = New System.Windows.Forms.ComboBox()
-        Me.SHORTNAMETextBox = New System.Windows.Forms.TextBox()
         GUIDLabel = New System.Windows.Forms.Label()
         BEZEICHNUNGLabel = New System.Windows.Forms.Label()
         EINGANGSART_IDLabel = New System.Windows.Forms.Label()
@@ -496,6 +496,7 @@ Partial Class frmAdministration
         CType(Me.TBDD_DOKUMENTARTBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TBDD_DOKUMENTARTBindingNavigator.SuspendLayout()
         Me.XtraTabPage2.SuspendLayout()
+        CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.XtraTabControl3.SuspendLayout()
         Me.XtraTabPage7.SuspendLayout()
@@ -504,7 +505,6 @@ Partial Class frmAdministration
         Me.XtraTabPage8.SuspendLayout()
         CType(Me.TBDD_USER_GROUPSBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.TBDD_USER_GROUPSBindingNavigator.SuspendLayout()
-        CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.BindingNavigator1.SuspendLayout()
         Me.XtraTabPage5.SuspendLayout()
@@ -865,6 +865,16 @@ Partial Class frmAdministration
         resources.ApplyResources(Label9, "Label9")
         Label9.Name = "Label9"
         '
+        'LANGUAGELabel
+        '
+        resources.ApplyResources(LANGUAGELabel, "LANGUAGELabel")
+        LANGUAGELabel.Name = "LANGUAGELabel"
+        '
+        'SHORTNAMELabel
+        '
+        resources.ApplyResources(SHORTNAMELabel, "SHORTNAMELabel")
+        SHORTNAMELabel.Name = "SHORTNAMELabel"
+        '
         'StatusStrip1
         '
         resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
@@ -1103,7 +1113,7 @@ Partial Class frmAdministration
         Me.DATATYPEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_INDEX_MANBindingSource, "DATATYPE", True))
         resources.ApplyResources(Me.DATATYPEComboBox, "DATATYPEComboBox")
         Me.DATATYPEComboBox.FormattingEnabled = True
-        Me.DATATYPEComboBox.Items.AddRange(New Object() {resources.GetString("DATATYPEComboBox.Items"), resources.GetString("DATATYPEComboBox.Items1"), resources.GetString("DATATYPEComboBox.Items2")})
+        Me.DATATYPEComboBox.Items.AddRange(New Object() {resources.GetString("DATATYPEComboBox.Items"), resources.GetString("DATATYPEComboBox.Items1"), resources.GetString("DATATYPEComboBox.Items2"), resources.GetString("DATATYPEComboBox.Items3")})
         Me.DATATYPEComboBox.Name = "DATATYPEComboBox"
         '
         'COMMENTTextBox
@@ -2218,6 +2228,25 @@ Partial Class frmAdministration
         Me.XtraTabPage2.Controls.Add(Me.BindingNavigator1)
         Me.XtraTabPage2.Name = "XtraTabPage2"
         '
+        'SHORTNAMETextBox
+        '
+        Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "SHORTNAME", True))
+        resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox")
+        Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox"
+        '
+        'TBDD_USERBindingSource
+        '
+        Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
+        Me.TBDD_USERBindingSource.DataSource = Me.MyDataset
+        '
+        'LANGUAGEComboBox
+        '
+        Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True))
+        Me.LANGUAGEComboBox.FormattingEnabled = True
+        Me.LANGUAGEComboBox.Items.AddRange(New Object() {resources.GetString("LANGUAGEComboBox.Items"), resources.GetString("LANGUAGEComboBox.Items1")})
+        resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox")
+        Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox"
+        '
         'lblsaveUSer
         '
         resources.ApplyResources(Me.lblsaveUSer, "lblsaveUSer")
@@ -2479,11 +2508,6 @@ Partial Class frmAdministration
         Me.ListBox3.Name = "ListBox3"
         Me.ListBox3.ValueMember = "GUID"
         '
-        'TBDD_USERBindingSource
-        '
-        Me.TBDD_USERBindingSource.DataMember = "TBDD_USER"
-        Me.TBDD_USERBindingSource.DataSource = Me.MyDataset
-        '
         'USER_GUIDTextBox
         '
         Me.USER_GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "GUID", True))
@@ -2964,30 +2988,6 @@ Partial Class frmAdministration
         '
         Me.VWGI_DOCTYPE_GROUPTableAdapter.ClearBeforeFill = True
         '
-        'LANGUAGELabel
-        '
-        resources.ApplyResources(LANGUAGELabel, "LANGUAGELabel")
-        LANGUAGELabel.Name = "LANGUAGELabel"
-        '
-        'LANGUAGEComboBox
-        '
-        Me.LANGUAGEComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "LANGUAGE", True))
-        Me.LANGUAGEComboBox.FormattingEnabled = True
-        Me.LANGUAGEComboBox.Items.AddRange(New Object() {resources.GetString("LANGUAGEComboBox.Items"), resources.GetString("LANGUAGEComboBox.Items1")})
-        resources.ApplyResources(Me.LANGUAGEComboBox, "LANGUAGEComboBox")
-        Me.LANGUAGEComboBox.Name = "LANGUAGEComboBox"
-        '
-        'SHORTNAMELabel
-        '
-        resources.ApplyResources(SHORTNAMELabel, "SHORTNAMELabel")
-        SHORTNAMELabel.Name = "SHORTNAMELabel"
-        '
-        'SHORTNAMETextBox
-        '
-        Me.SHORTNAMETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USERBindingSource, "SHORTNAME", True))
-        resources.ApplyResources(Me.SHORTNAMETextBox, "SHORTNAMETextBox")
-        Me.SHORTNAMETextBox.Name = "SHORTNAMETextBox"
-        '
         'frmAdministration
         '
         resources.ApplyResources(Me, "$this")
@@ -3042,6 +3042,7 @@ Partial Class frmAdministration
         Me.TBDD_DOKUMENTARTBindingNavigator.PerformLayout()
         Me.XtraTabPage2.ResumeLayout(False)
         Me.XtraTabPage2.PerformLayout()
+        CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.XtraTabControl3, System.ComponentModel.ISupportInitialize).EndInit()
         Me.XtraTabControl3.ResumeLayout(False)
         Me.XtraTabPage7.ResumeLayout(False)
@@ -3054,7 +3055,6 @@ Partial Class frmAdministration
         CType(Me.TBDD_USER_GROUPSBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
         Me.TBDD_USER_GROUPSBindingNavigator.ResumeLayout(False)
         Me.TBDD_USER_GROUPSBindingNavigator.PerformLayout()
-        CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
         CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
         Me.BindingNavigator1.ResumeLayout(False)
         Me.BindingNavigator1.PerformLayout()

Global_Indexer/frmIndex.vb

@@ -820,6 +820,11 @@ Public Class frmIndex
                     Indexwert_Postprocessing(Replace(dtp.Name, "dtp", ""), dtp.Text)
                     result = True
                 End If
+                If ctrl.Name.StartsWith("chk") Then
+                    Dim chk As CheckBox = ctrl
+                    Indexwert_Postprocessing(Replace(chk.Name, "chk", ""), chk.Checked)
+                    result = True
+                End If
                 If ctrl.Name.StartsWith("lbl") = False And result = False Then
                     ClassLogger.Add("Die Überprüfung der manuellen Indices ist fehlerhaft. Bitte informieren Sie den Systembetreuer", True)
                     Return False
@@ -1163,7 +1168,7 @@ Public Class frmIndex
                     End If
                 Next
             End If
-            If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Then
+            If DropType = "@OUTLOOK_MESSAGE@" Or DropType = "@FW_MSGONLY@" Or DropType = "@MSGONLY@" Or CURRENT_NEWFILENAME.EndsWith(".msg") Then
                 indexierung_erfolgreich = SetEmailIndices()
                 If indexierung_erfolgreich = False Then
                     MsgBox("Error in SetEmailIndices - See log", MsgBoxStyle.Critical)
@@ -1621,12 +1626,23 @@ Public Class frmIndex
                 ClassLogger.Add(" - Keine Manuellen Indizes für die " & vbNewLine & "Dokumentart " & cmbDokumentart.Text & " definiert")
             End If
             For Each DR In DT_INDEXEMAN.Rows
-                addLabel(DR.Item("NAME"), DR.Item("COMMENT").ToString, ylbl, anz)
+                Dim type = DR.Item("DATATYPE")
+                If type <> "BOOLEAN" Then
+                    addLabel(DR.Item("NAME"), DR.Item("COMMENT").ToString, ylbl, anz)
+                End If
+
                 Dim DefaultValue = Check_HistoryValues(DR.Item("NAME"), DR.Item("DOKUMENTART"))
                 If DefaultValue Is Nothing Then
                     DefaultValue = DR.Item("DEFAULT_VALUE")
                 End If
-                Select Case DR.Item("DATATYPE")
+                Select Case type
+                    Case "BOOLEAN"
+                        Dim VORBELGUNG As Integer = DefaultValue
+                        'nur eine Textbox
+                        Dim chk As CheckBox = ClassControls.AddCheckBox(DR.Item("NAME"), y, VORBELGUNG, DR.Item("COMMENT").ToString)
+                        If Not IsNothing(chk) Then
+                            pnlIndex.Controls.Add(chk)
+                        End If
                     Case "INTEGER"
                         If DR.Item("SUGGESTION") = True And DR.Item("SQL_RESULT").ToString.Length > 0 Then
                             AddVorschlag_ComboBox(DR.Item("NAME"), y, DR.Item("CONNECTION_ID"), DR.Item("SQL_RESULT"), DefaultValue)

SetupWix/Product.wxs

@@ -116,6 +116,44 @@
               <File Id="DevExpress.XtraSpreadsheet.v15.1" Name="DevExpress.XtraSpreadsheet.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.1.dll" KeyPath="no" />
               <File Id="DevExpress.XtraTreeList.v15.1" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" KeyPath="no" />
             </Component>
+            <!-- Lokalisierung für DEVEXPRESS Bibliotheken-->
+            <Directory Id="LOCALE_EN_US" Name="en-US">
+              <Component Id="GlobalIndexer.Locales.en_us" Guid="6FC6DC57-6D61-49EE-B490-CEE054BE911A">
+                <File Id="Global_Indexer.resources.en_us" Name="Global_Indexer.resources.dll" Source="en-US\Global_Indexer.resources.dll"></File>
+              </Component>
+            </Directory>
+            
+            <Directory Id="LOCALE_DE" Name="de">
+              <Component Id="GlobalIndexer.Locales.de" Guid="9E7F8C29-44DF-4D38-AD7B-D64B74990CDB">
+                <File Id="Global_Indexer.resources.de" Name="Global_Indexer.resources.dll" Source="de-DE\Global_Indexer.resources.dll"></File>
+              </Component>
+
+              <Component Id="Scheduler.Locales" Guid="84335DB2-F5D2-496B-9318-2BD1B1ACA391">
+                <File Id="DevExpress.Charts.v15.1.Core.resources" Name="DevExpress.Charts.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Charts.v15.1.Core.dll" KeyPath="yes" />
+                <File Id="DevExpress.Data.v15.1.resources" Name="DevExpress.Data.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Data.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.DataAccess.v15.1.resources" Name="DevExpress.DataAccess.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.DataAccess.v15.1..resources" Name="DevExpress.DataAccess.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.DataAccess.v15.1.UI.dll" KeyPath="no" />
+                <File Id="DevExpress.Office.v15.1.Core.resources" Name="DevExpress.Office.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Office.v15.1.Core.dll" KeyPath="no"/>
+                <File Id="DevExpress.Pdf.v15.1.Core.resources" Name="DevExpress.Pdf.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Core.dll" KeyPath="no"/>
+                <File Id="DevExpress.Pdf.v15.1.Drawing.resources" Name="DevExpress.Pdf.v15.1.Drawing.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Pdf.v15.1.Drawing.dll" KeyPath="no" />
+                <File Id="DevExpress.Printing.v15.1.Core.resources" Name="DevExpress.Printing.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Printing.v15.1.Core.dll" KeyPath="no" />
+                <File Id="DevExpress.RichEdit.v15.1.Core.resources" Name="DevExpress.RichEdit.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.RichEdit.v15.1.Core.dll" KeyPath="no" />
+                <File Id="DevExpress.Sparkline.v15.1.Core.resources" Name="DevExpress.Sparkline.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Sparkline.v15.1.Core.dll" KeyPath="no" />
+                <File Id="DevExpress.Spreadsheet.v15.1.Core.resources" Name="DevExpress.Spreadsheet.v15.1.Core.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Spreadsheet.v15.1.Core.dll" KeyPath="no" />
+                <File Id="DevExpress.Utils.v15.1.resources" Name="DevExpress.Utils.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.Utils.v15.1.UI.resources" Name="DevExpress.Utils.v15.1.UI.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.Utils.v15.1.UI.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraCharts.v15.1.resources" Name="DevExpress.XtraCharts.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraCharts.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraBars.v15.1.resources" Name="DevExpress.XtraBars.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraBars.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraEditors.v15.1.resources" Name="DevExpress.XtraEditors.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraEditors.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraGrid.v15.1.resources" Name="DevExpress.XtraGrid.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraGrid.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraNavBar.v15.1.resources" Name="DevExpress.XtraNavBar.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraNavBar.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraPdfViewer.v15.1.resources" Name="DevExpress.XtraPdfViewer.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPdfViewer.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraPrinting.v15.1.resources" Name="DevExpress.XtraPrinting.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraPrinting.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraRichEdit.v15.1.resources" Name="DevExpress.XtraRichEdit.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraRichEdit.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraSpreadsheet.v15.1.resources" Name="DevExpress.XtraSpreadsheet.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraSpreadsheet.v15.1.dll" KeyPath="no" />
+                <File Id="DevExpress.XtraTreeList.v15.1.resources" Name="DevExpress.XtraTreeList.v15.1.dll" Source="D:\Programme\Sprachen\DevExpress 15.1\Components\Bin\Framework\DevExpress.XtraTreeList.v15.1.dll" KeyPath="no" />
+              </Component>
+            </Directory>
             
              <!-- Digital-Data DLLS -->
             <Component Id="DDLibs" Guid="BA2979E3-3778-48B8-B0D8-4B77825B9293">