MS Anpassungen Structure Nodes etc

app/DD-Record-Organizer/ClassDOC_SEARCH.vb

@@ -241,6 +241,7 @@ Public Class ClassDOC_SEARCH
         Return GET_DOCSEARCH_DATATABLE(BG)
     End Function
     Public Shared Function Get_DOC_RESULTTABLE(vDT_RESULTLIST_OPTIONS As DataTable, vDT_RESULTLIST_SELVALUES As DataTable, DT_WINDREAM_RESULTLIST As DataTable, ENT_ID As Integer, REC_ID As Integer, Optional BG As Boolean = False, Optional Preload As Boolean = False)
+        Dim _step As String
         Dim COL_ARRAY_RESULTLIST As List(Of String)
         ENTITY_ID = ENT_ID
         DT_RESULTLIST_OPTIONS = vDT_RESULTLIST_OPTIONS
@@ -256,7 +257,7 @@ Public Class ClassDOC_SEARCH
                 Return Nothing
             End If
             sw.Done()
-
+            _step = "1"
             If Preload = True Then
                 Return Nothing
             End If
@@ -271,12 +272,14 @@ Public Class ClassDOC_SEARCH
                     listcheck.Add(COLNAME)
                 End If
             Next
+            _step = "2"
             For Each col1 As String In listcheck
                 Dim collist As DataColumn = DT_FILE_RESULT.Columns(col1)
                 If Not IsNothing(collist) Then
                     collist.DataType = GetType(Boolean)
                 End If
             Next
+            _step = "3"
             Try
                 'Die Icon Colum erstellen und konfigurieren
                 Dim colIcon As New System.Data.DataColumn()
@@ -284,24 +287,25 @@ Public Class ClassDOC_SEARCH
                 colIcon.ColumnName = "ICON"
                 colIcon.Caption = ""
                 DTGrid.Columns.Add(colIcon)
-                '
+                _step = "4"
                 Dim colPath As New System.Data.DataColumn()
                 colPath.DataType = GetType(String)
                 colPath.ColumnName = "FULLPATH"
                 colPath.Caption = "Fullpath"
                 DTGrid.Columns.Add(colPath)
-
+                _step = "5"
                 Dim colOtype As New System.Data.DataColumn()
                 colOtype.DataType = GetType(String)
                 colOtype.ColumnName = "OBJECTTYPE"
                 colOtype.Caption = "Objecttype"
                 DTGrid.Columns.Add(colOtype)
+                _step = "6"
                 Dim colDocID As New System.Data.DataColumn()
                 colDocID.DataType = GetType(Int32)
                 colDocID.ColumnName = "DocID"
                 colDocID.Caption = "DocID"
                 DTGrid.Columns.Add(colDocID)
-
+                _step = "7"
 
                 If Not DT_WINDREAM_RESULTLIST Is Nothing And DT_WINDREAM_RESULTLIST.Rows.Count >= 1 Then
                     Dim ColCount As Integer = 1
@@ -319,11 +323,13 @@ Public Class ClassDOC_SEARCH
                             ClassLogger.Add(String.Format("Unexpected Error in DTGrid.Columns.Add({0}) - CONSTR_DET_ID: {1} ", ColumnName, CURRENT_CONSTRUCTOR_DETAIL_ID) & ex.Message)
                         End Try
                     Next
+                    _step = "7.1"
                     'Jetzt das Array zusammenbauen um die Spaltenwerte zu erhalten
                     For Each rw As DataRow In DT_WINDREAM_RESULTLIST.Rows
                         Dim colname = rw.Item("COLUMN_VIEW")
                         ColArrayDEFINITION.Add(rw.Item("COLUMN_VIEW"))
                     Next
+                    _step = "7.2"
                 End If
             Catch ex As Exception
                 ClassLogger.Add("Unexpected Error in Construct Datatable: " & ex.Message)
@@ -333,16 +339,18 @@ Public Class ClassDOC_SEARCH
 
             sw = New SW("Run Get_DOC_RESULTTABLE")
             COL_ARRAY_RESULTLIST = ColArrayDEFINITION
-
+            _step = "8"
             For Each col1 As String In listcheck
                 Dim collist As DataColumn = DTGrid.Columns(col1)
                 If Not IsNothing(collist) Then
                     collist.DataType = GetType(Boolean)
                 End If
             Next
-
-
+            _step = "9"
+            Dim _i As Integer
             For Each FILE_ROW As DataRow In DT_FILE_RESULT.Rows
+                _i += 1
+                _step = "9 FileCount(" & _i.ToString
                 Dim fullpath = FILE_ROW.Item("FULL_FILENAME")
                 Dim objecttype = FILE_ROW.Item("OBJECTTYPE")
                 Dim DocID = FILE_ROW.Item("DocID")
@@ -417,14 +425,14 @@ Public Class ClassDOC_SEARCH
                 '                    ClassLogger.Add("Unexpected Error in CreateRow for doc '" & filename & "- Error: " & ex.Message)
                 '                End Try
             Next
-
+            _step = "10"
 
             Return DTGrid
 
             sw.Done()
         Catch ex As Exception
-            MsgBox("Unexpected Error in Get_DOC_RESULTTABLE: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-            ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE: " & ex.Message)
+            MsgBox("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            ClassLogger.Add("Unexpected Error in Get_DOC_RESULTTABLE (Step " & _step & "): " & ex.Message)
             Return Nothing
         End Try
     End Function