Version 2.3.2.0

Global_Indexer/My Project/AssemblyInfo.vb

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

Global_Indexer/frmIndex.vb

@@ -13,7 +13,6 @@ Public Class frmIndex
     Private MULTIFILES As Integer
     Private akttxtbox As TextBox
     Dim DT_INDEXEMAN As DataTable
-    Dim DT_DOKART As DataTable
     Public FormLoaded As Boolean = False
     Private Shared _Instance As frmIndex = Nothing
     Dim DropType As String
@@ -1546,12 +1545,12 @@ Public Class frmIndex
     End Sub
     Sub Refresh_Dokart()
         Try
-            Dim sql = String.Format("SELECT DISTINCT * FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
+            Dim sql = String.Format("SELECT DISTINCT DOCTYPE_ID, DOCTYPE, SEQUENCE FROM VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", Environment.UserName)
             _Logger.Info("SQL DoctypeList: " & sql)
-            DT_DOKART = ClassDatabase.Return_Datatable(sql)
-            cmbDokumentart.DataSource = DT_DOKART
-            cmbDokumentart.ValueMember = DT_DOKART.Columns("DOCTYPE_ID").ColumnName
-            cmbDokumentart.DisplayMember = DT_DOKART.Columns("DOCTYPE").ColumnName
+            Dim oDoctypes = ClassDatabase.Return_Datatable(sql)
+            cmbDokumentart.DataSource = oDoctypes
+            cmbDokumentart.ValueMember = oDoctypes.Columns("DOCTYPE_ID").ColumnName
+            cmbDokumentart.DisplayMember = oDoctypes.Columns("DOCTYPE").ColumnName
             cmbDokumentart.AutoCompleteMode = AutoCompleteMode.Suggest
             cmbDokumentart.AutoCompleteSource = AutoCompleteSource.ListItems
             cmbDokumentart.SelectedIndex = -1
@@ -1575,10 +1574,10 @@ Public Class frmIndex
 
                 Me.pnlIndex.Controls.Clear()
                 Dim sql As String = "Select WINDREAM_DIRECT, DUPLICATE_HANDLING from TBDD_DOKUMENTART WHERE GUID = " & cmbDokumentart.SelectedValue
-                Dim DT_DOKART As DataTable = ClassDatabase.Return_Datatable(sql)
+                Dim oDoctypes As DataTable = ClassDatabase.Return_Datatable(sql)
 
-                WDDirect = DT_DOKART.Rows(0).Item("WINDREAM_DIRECT")
-                CURRENT_DOKART_DUPLICATE_HANDLING = DT_DOKART.Rows(0).Item("DUPLICATE_HANDLING")
+                WDDirect = oDoctypes.Rows(0).Item("WINDREAM_DIRECT")
+                CURRENT_DOKART_DUPLICATE_HANDLING = oDoctypes.Rows(0).Item("DUPLICATE_HANDLING")
                 Refresh_IndexeMan(cmbDokumentart.SelectedValue)
             End If