MS

app/DD-Record-Organizer/frmRecordView.vb

@@ -151,9 +151,8 @@ Public Class frmRecordView
     Private Sub RUN_WDSEARCH_GRID()
         Me.Cursor = Cursors.WaitCursor
         Try
-            Dim sw As New Stopwatch
-            sw.Start()
-            Dim elapsed As Double
+            Dim sw As New SW("RUN_WDSEARCH_GRID")
+
             Dim DT_RESULT As DataTable = ClassDOC_SEARCH.Get_DOC_RESULTTABLE(DT_RESULTLIST_OPTIONS, DT_RESULTLIST_VARIABLE_VALUE, DT_WINDREAM_RESULTLIST, ENTITY_ID, RECORD_ID)
             If IsNothing(DT_RESULT) Then
                 Dim msg = "wrong DocSearch-Configuration - Check logfile and contact Digital Data"
@@ -192,10 +191,7 @@ Public Class frmRecordView
                 GridControlDocSearch.DataSource = Nothing
                 'Clear_Windream_ResultList()
             End If
-            elapsed = sw.Elapsed.TotalSeconds
-            sw.Stop()
-            sw.Reset()
-            If LogErrorsOnly = False Then ClassLogger.Add(" >> Run RUN_WDSEARCH_GRID took " & Format(elapsed, "0.000000000") & " seconds", False)
+            sw.Done()
         Catch ex As Exception
             MsgBox("Unexpected Error in Run WD-Search Database: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try