MS Language und Globix

GUIs.ZooFlow/Globix/frmGlobix_Index.vb

@@ -17,7 +17,7 @@ Public Class frmGlobix_Index
     Public vPathFile As String
     Private MULTIFILES As Integer
     Private akttxtbox As TextBox
-    Dim DT_DOKART As DataTable
+    Dim DT_VWGI_DOCTYPE As DataTable
     Public FormLoaded As Boolean = False
     Dim DropType As String
     Private DT_INDEXEMAN As DataTable
@@ -303,10 +303,10 @@ Public Class frmGlobix_Index
     Sub Refresh_Dokart()
         Try
             Dim oSql = String.Format("select * from VWGI_DOCTYPE where UPPER(USERNAME) = UPPER('{0}') ORDER BY SEQUENCE", My.Application.User.UserName)
-            Dim oFilter = $"USERNAME like '%{My.Application.User.UserName}%'"
-            DT_DOKART = _DataASorDB.GetDatatable("DD_ECM", oSql, "VWGI_DOCTYPE", oFilter, "SEQUENCE")
+            Dim oFilter = $"USERNAME = '{My.Application.User.UserName}'"
+            DT_VWGI_DOCTYPE = _DataASorDB.GetDatatable("DD_ECM", oSql, "VWGI_DOCTYPE", oFilter, "SEQUENCE")
 
-            For Each oRow As DataRow In DT_DOKART.Rows
+            For Each oRow As DataRow In DT_VWGI_DOCTYPE.Rows
                 ComboBoxEdit1.Properties.Items.Add(New DocType With {
                                                        .Guid = oRow.Item("DOCTYPE_ID"),
                                                        .Name = oRow.Item("DOCTYPE")
@@ -2078,9 +2078,6 @@ Public Class frmGlobix_Index
         End Try
     End Sub
 
-    Private Sub PictureEdit1_Click(sender As Object, e As EventArgs) Handles PictureEdit1.Click
-        GlobixFlow()
-    End Sub
 
 
     Private Function SetEmailIndices()
@@ -2406,4 +2403,12 @@ Public Class frmGlobix_Index
         Return userEmail
 
     End Function
+
+    Private Sub PictureEdit1_EditValueChanged(sender As Object, e As EventArgs)
+
+    End Sub
+
+    Private Sub btnAblageFlow_Click(sender As Object, e As EventArgs) Handles btnAblageFlow.Click
+        GlobixFlow()
+    End Sub
 End Class