Hotspots

app/TaskFlow/frmValidator.vb

@@ -4279,8 +4279,19 @@ Public Class frmValidator
     End Sub
 
     Private Sub frmValidation_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
+        Dim perfStart As DateTime = DateTime.MinValue
+        Dim perfLastCheck As DateTime = DateTime.MinValue
+        If LOG_HOTSPOTS Then
+            perfStart = DateTime.Now
+            perfLastCheck = perfStart
+            MyValidationLogger.Info("[PERF] frmValidation_Shown START")
+        End If
         '  Refresh_FileList()
         Load_Next_Document(True)
+        If LOG_HOTSPOTS Then
+            MyValidationLogger.Info($"[PERF] frmValidation_Shown nach Load_Next_Document: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+            perfLastCheck = DateTime.Now
+        End If
 
         _DependingControl_In_Action = False
         _DependingColumn_In_Action = False
@@ -4355,8 +4366,15 @@ Public Class frmValidator
         Catch ex As Exception
             MyValidationLogger.Error(ex)
         End Try
+        If LOG_HOTSPOTS Then
+            MyValidationLogger.Info($"[PERF] frmValidation_Shown nach Ribbon/Export Setup: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+            perfLastCheck = DateTime.Now
+        End If
 
         MyValidationLogger.Debug("frmValidation_Shown finished!")
+        If LOG_HOTSPOTS Then
+            MyValidationLogger.Info($"[PERF] frmValidation_Shown GESAMT: {(DateTime.Now - perfStart).TotalMilliseconds}ms")
+        End If
     End Sub
     Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
         btnSave.Enabled = False
@@ -4513,18 +4531,34 @@ Public Class frmValidator
     End Function
 
     Sub Finish_WFStep(Optional includeFI As Boolean = True)
+        Dim perfStart As DateTime = DateTime.MinValue
+        Dim perfLastCheck As DateTime = DateTime.MinValue
+        If LOG_HOTSPOTS Then
+            perfStart = DateTime.Now
+            perfLastCheck = perfStart
+            MyValidationLogger.Info("[PERF] Finish_WFStep START")
+        End If
         btnSave.Enabled = False
         MyValidationLogger.Debug("Abschluss für DocID " & CURRENT_DOC_ID & " wird gestartet ...")
         Dim oErrorOcurred As Boolean = False
         If OverrideAll = False Then
             'Eingaben auf Form überprüfen
             If Check_UpdateIndexe() = True Then
+                If LOG_HOTSPOTS Then
+                    MyValidationLogger.Info($"[PERF] Finish_WFStep nach Check_UpdateIndexe: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                    perfLastCheck = DateTime.Now
+                End If
                 If PROFIL_FINISH_SQL <> String.Empty Then
                     If btnFinish_continue() = False Then
                         Exit Sub
                     End If
                 End If
 
+                If LOG_HOTSPOTS Then
+                    MyValidationLogger.Info($"[PERF] Finish_WFStep nach btnFinish_continue: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                    perfLastCheck = DateTime.Now
+                End If
+
                 If includeFI = True Then
                     Try
                         Dim oSQL = $"SELECT * FROM TBPM_PROFILE_FINAL_INDEXING WHERE PROFIL_ID = {CURRENT_ProfilGUID} AND ACTIVE = 1 ORDER BY SEQUENCE"
@@ -4697,11 +4731,19 @@ Public Class frmValidator
                         oErrorOcurred = True
                     End Try
                 End If
+                If LOG_HOTSPOTS AndAlso includeFI Then
+                    MyValidationLogger.Info($"[PERF] Finish_WFStep nach FinalIndexing: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                    perfLastCheck = DateTime.Now
+                End If
                 Try
                     ''Wenn kein Fehler nach der finalen Indexierung gesetzt wurde
                     If Override = True And Override_SQLCommand <> "" Then
                         DatabaseFallback.ExecuteNonQueryECM(Override_SQLCommand)
                     End If
+                    If LOG_HOTSPOTS Then
+                        MyValidationLogger.Info($"[PERF] Finish_WFStep nach Override-SQL: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                        perfLastCheck = DateTime.Now
+                    End If
                     If oErrorOcurred = False Then
 
                         Dim WORK_HISTORY_ENTRY = Nothing
@@ -4803,6 +4845,12 @@ Public Class frmValidator
                                 WORK_HISTORY_ENTRY = ""
                             End If
                         End If
+
+                        If LOG_HOTSPOTS Then
+                            MyValidationLogger.Info($"[PERF] Finish_WFStep nach WORK_HISTORY: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                            perfLastCheck = DateTime.Now
+                        End If
+
                         Dim ins = String.Format("INSERT INTO TBPM_FILES_WORK_HISTORY (PROFIL_ID, DOC_ID,WORKED_BY,WORKED_WHERE,STATUS_COMMENT) VALUES ({0},{1},'{2}','{3}','{4}')", CURRENT_ProfilGUID, CURRENT_DOC_ID, USER_USERNAME, System.Environment.MachineName, WORK_HISTORY_ENTRY)
                         DatabaseFallback.ExecuteNonQueryECM(ins)
                         Dim oFIsql As String
@@ -4838,6 +4886,11 @@ Public Class frmValidator
                             End If
                         End If
 
+                        If LOG_HOTSPOTS Then
+                            MyValidationLogger.Info($"[PERF] Finish_WFStep nach Annotation: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                            perfLastCheck = DateTime.Now
+                        End If
+
 
                         'wenn Move2Folder aktiviert wurde
                         If Move2Folder <> "" And (OPERATION_MODE_FS = ClassConstants.OpModeFS_PWM Or OPERATION_MODE_FS = ClassConstants.OpModeFS_IDBWM) Then
@@ -4848,6 +4901,10 @@ Public Class frmValidator
                                 frmError.ShowDialog()
                                 oErrorOcurred = True
                             End If
+                            If LOG_HOTSPOTS Then
+                                MyValidationLogger.Info($"[PERF] Finish_WFStep nach Move2Folder: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                                perfLastCheck = DateTime.Now
+                            End If
                         End If
 
 
@@ -4878,6 +4935,10 @@ Public Class frmValidator
                     oErrorOcurred = True
                 End If
             End If
+            If LOG_HOTSPOTS Then
+                MyValidationLogger.Info($"[PERF] Finish_WFStep nach OverrideAll-SQL: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                perfLastCheck = DateTime.Now
+            End If
             ' Wert muss für den nächsten Beleg wieder zurückgesetzt werden.
             OverrideAll = False
         End If
@@ -4890,6 +4951,10 @@ Public Class frmValidator
             If DatabaseFallback.ExecuteNonQueryECM(oPROCSQL) = False Then
                 MyValidationLogger.Warn($"Attention: Error executing proc [{oPROCSQL}]")
             End If
+            If LOG_HOTSPOTS Then
+                MyValidationLogger.Info($"[PERF] Finish_WFStep nach PRPM_CHECK_NEXT_WF: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                perfLastCheck = DateTime.Now
+            End If
         End If
 
         If CURRENT_JUMP_DOC_GUID <> 0 Then
@@ -4898,12 +4963,19 @@ Public Class frmValidator
         Else
             'Das nächste Dokument laden
             Load_Next_Document(False)
+            If LOG_HOTSPOTS Then
+                MyValidationLogger.Info($"[PERF] Finish_WFStep nach Load_Next_Document: {(DateTime.Now - perfLastCheck).TotalMilliseconds}ms")
+                perfLastCheck = DateTime.Now
+            End If
 
             Focus_FirstControl()
 
         End If
 
         btnSave.Enabled = True
+        If LOG_HOTSPOTS Then
+            MyValidationLogger.Info($"[PERF] Finish_WFStep GESAMT: {(DateTime.Now - perfStart).TotalMilliseconds}ms")
+        End If
     End Sub
     Sub Focus_FirstControl()
         If first_control Is Nothing = False Then