Vor Logging erweiterung in Tabelle Row Add

app/TaskFlow/ClassInit.vb

@@ -380,6 +380,7 @@ Public Class ClassInit
                 LOGGER.Debug("User Info:")
                 LOGGER.Debug("Language: [{0}]", USER_LANGUAGE)
                 LOGGER.Debug("Username: [{0}]", USER_USERNAME)
+                LOGGER.Debug("Environment.MachineName: [{0}]", Environment.MachineName)
 
                 Try
                     USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL"))

app/TaskFlow/ControlCreator/GridControl.vb

@@ -343,6 +343,10 @@ Namespace ControlCreator
         Private Sub View_PopupMenuShowing(sender As Object, e As PopupMenuShowingEventArgs)
             Dim view As GridView = TryCast(sender, GridView)
             Dim oFocusedColumn As GridColumn = view.FocusedColumn
+            If IsNothing(oFocusedColumn) Then
+                MsgBox("Please focus a column first.", MsgBoxStyle.Information, "No Column focused")
+                Exit Sub
+            End If
             Dim oColumnType As Type = oFocusedColumn.ColumnType
             Dim oColumnName As String = oFocusedColumn.FieldName
 

app/TaskFlow/frmValidator.vb

@@ -3585,11 +3585,16 @@ Public Class frmValidator
                                                             For Each Zeile As Object In oValueFromSource
                                                                 MyValidationLogger.Debug($"vektorrow Value {Zeile.ToString}...")
                                                                 oColValuesfromSource = Split(Zeile, PMDelimiter)
-
+                                                                'If oColValuesfromSource.Length >= 1 Then
+                                                                '    Continue For
+                                                                'End If
                                                                 Dim oNewRow = oDataSource.NewRow()
                                                                 MyValidationLogger.Debug("Creating new row..")
 
                                                                 For index = 0 To oDTColumnsPerDevExGrid.Rows.Count - 1
+                                                                    Dim rawValue As String = If(index < oColValuesfromSource.Length, oColValuesfromSource(index), String.Empty)
+                                                                    Dim targetColumn As DataColumn = oDataSource.Columns(index)
+
                                                                     MyValidationLogger.Debug("Column Index {0}", index)
                                                                     If oColValuesfromSource.Length > index Then
                                                                         MyValidationLogger.Debug("Value: {0}", oColValuesfromSource(index))