From c4229df1a7a93c01492c018e51fcfa14baf0eb7a Mon Sep 17 00:00:00 2001
From: Jonathan Jenne <j.jenne@digitaldata.works>
Date: Fri, 24 Nov 2023 12:53:31 +0100
Subject: [PATCH] add logging

---
 app/TaskFlow/frmMain.vb | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb
index 699133e..573d4cb 100644
--- a/app/TaskFlow/frmMain.vb
+++ b/app/TaskFlow/frmMain.vb
@@ -1516,6 +1516,8 @@ Public Class frmMain
     Private Sub Item_Scope(startedFrom As String)
         Try
 
+            LOGGER.Info("Starting Profile Loading")
+
             If Application.OpenForms().OfType(Of frmValidator).Any Then
                 bsiMessage.Caption = S.Es_existiert_bereits_ein_aktiver_Workflow_
                 LOGGER.Info("Item Scope - Workflow open! - Exit")
@@ -1529,8 +1531,10 @@ Public Class frmMain
             Dim OItemScopeInfo = "No Item so far"
             If startedFrom = "DOUBLECLICK" Then
                 If hitInfo.InGroupRow Then
+                    LOGGER.Debug("User clicked group row.")
                     startedFrom = "CMGROUP"
                 Else
+                    LOGGER.Debug("User clicked normal row.")
                     startedFrom = "CMROW"
                 End If
             End If
@@ -1540,6 +1544,10 @@ Public Class frmMain
             ElseIf hitInfo.InDataRow Then
                 oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
             End If
+
+            LOGGER.Debug("Clicked ProfileId: [{0}]", oHitProfilID)
+            LOGGER.Debug("Started From: [{0}]", startedFrom)
+
             If Len(oHitProfilID) > 0 Then
                 If oHitProfilID > 0 Then
                     If oHitProfilID <> CURRENT_CLICKED_PROFILE_ID Then
@@ -1549,9 +1557,10 @@ Public Class frmMain
 
                 End If
             End If
+
             If startedFrom = "CMGROUP" Then
 
-                LOGGER.Debug($"Item Scope - startedFrom: [{startedFrom}]")
+                LOGGER.Debug("Loading Child DocIds..")
 
                 Dim oIds As New List(Of Integer)
                 Dim oGroupRowHandle = hitInfo.RowHandle
@@ -1564,6 +1573,7 @@ Public Class frmMain
                     oIds.Add(oDocId)
                 Next
 
+                LOGGER.Debug("[{0}] DocIds loaded", oIds.Count)
 
                 If oIds.Count = 0 Then
                     For index = 0 To GridView_Docs.RowCount
@@ -1589,21 +1599,19 @@ Public Class frmMain
                     'MsgBox("System konnte die Profilworkflows nicht auswerten!" & vbNewLine & "Bitte wählen Sie ein Profil durch Klicken auf einen Beleg oder eine Überschrift!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
                     Exit Sub
                 End If
+                LOGGER.Debug("Cleaning up queued DocIds..")
                 Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
                 If DatabaseFallback.ExecuteNonQueryECM(oDelete) = True Then
+                    LOGGER.Debug("Adding [{0}] queued DocIds..", oIds.Count)
                     For Each oID As Integer In oIds
                         Dim oInsert = $"INSERT INTO TBPM_VALIDATION_PROFILE_GROUP_USER ([PROFIL_ID] ,[DocID]
                         ,[UserID] ,[ADDED_WHO]) VALUES ({CURRENT_CLICKED_PROFILE_ID},{oID},{USER_ID},'{USER_USERNAME}')"
                         DatabaseFallback.ExecuteNonQueryECM(oInsert)
-
                     Next
                 End If
 
             End If
 
-
-
-
             'GridView_Docs.EndSelection()
             CURRENT_JUMP_DOC_GUID = 0