AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add logging

Browse Source
This commit is contained in:
Jonathan Jenne 2023-11-24 12:53:31 +01:00
parent 9909131b73
commit c4229df1a7
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
app/TaskFlow/frmMain.vb
View File

@ -1516,6 +1516,8 @@ Public Class frmMain
Private Sub Item_Scope(startedFrom As String) Private Sub Item_Scope(startedFrom As String)
Try Try
LOGGER.Info("Starting Profile Loading")
If Application.OpenForms().OfType(Of frmValidator).Any Then If Application.OpenForms().OfType(Of frmValidator).Any Then
bsiMessage.Caption = S.Es_existiert_bereits_ein_aktiver_Workflow_ bsiMessage.Caption = S.Es_existiert_bereits_ein_aktiver_Workflow_
LOGGER.Info("Item Scope - Workflow open! - Exit") LOGGER.Info("Item Scope - Workflow open! - Exit")
@ -1529,8 +1531,10 @@ Public Class frmMain
Dim OItemScopeInfo = "No Item so far" Dim OItemScopeInfo = "No Item so far"
If startedFrom = "DOUBLECLICK" Then If startedFrom = "DOUBLECLICK" Then
If hitInfo.InGroupRow Then If hitInfo.InGroupRow Then
LOGGER.Debug("User clicked group row.")
startedFrom = "CMGROUP" startedFrom = "CMGROUP"
Else Else
LOGGER.Debug("User clicked normal row.")
startedFrom = "CMROW" startedFrom = "CMROW"
End If End If
End If End If
@ -1540,6 +1544,10 @@ Public Class frmMain
ElseIf hitInfo.InDataRow Then ElseIf hitInfo.InDataRow Then
oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID")) oHitProfilID = GridView_Docs.GetRowCellValue(GridView_Docs.GetDataRowHandleByGroupRowHandle(GridView_Docs.GetParentRowHandle(hitInfo.RowHandle)), GridView_Docs.Columns("PROFILE_ID"))
End If End If
LOGGER.Debug("Clicked ProfileId: [{0}]", oHitProfilID)
LOGGER.Debug("Started From: [{0}]", startedFrom)
If Len(oHitProfilID) > 0 Then If Len(oHitProfilID) > 0 Then
If oHitProfilID > 0 Then If oHitProfilID > 0 Then
If oHitProfilID <> CURRENT_CLICKED_PROFILE_ID Then If oHitProfilID <> CURRENT_CLICKED_PROFILE_ID Then
@ -1549,9 +1557,10 @@ Public Class frmMain
End If End If
End If End If
If startedFrom = "CMGROUP" Then If startedFrom = "CMGROUP" Then
LOGGER.Debug($"Item Scope - startedFrom: [{startedFrom}]") LOGGER.Debug("Loading Child DocIds..")
Dim oIds As New List(Of Integer) Dim oIds As New List(Of Integer)
Dim oGroupRowHandle = hitInfo.RowHandle Dim oGroupRowHandle = hitInfo.RowHandle
@ -1564,6 +1573,7 @@ Public Class frmMain
oIds.Add(oDocId) oIds.Add(oDocId)
Next Next
LOGGER.Debug("[{0}] DocIds loaded", oIds.Count)
If oIds.Count = 0 Then If oIds.Count = 0 Then
For index = 0 To GridView_Docs.RowCount 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) '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 Exit Sub
End If End If
LOGGER.Debug("Cleaning up queued DocIds..")
Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}" Dim oDelete = $"DELETE FROM TBPM_VALIDATION_PROFILE_GROUP_USER WHERE UserID = {USER_ID}"
If DatabaseFallback.ExecuteNonQueryECM(oDelete) = True Then If DatabaseFallback.ExecuteNonQueryECM(oDelete) = True Then
LOGGER.Debug("Adding [{0}] queued DocIds..", oIds.Count)
For Each oID As Integer In oIds For Each oID As Integer In oIds
Dim oInsert = $"INSERT INTO TBPM_VALIDATION_PROFILE_GROUP_USER ([PROFIL_ID] ,[DocID] 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}')" ,[UserID] ,[ADDED_WHO]) VALUES ({CURRENT_CLICKED_PROFILE_ID},{oID},{USER_ID},'{USER_USERNAME}')"
DatabaseFallback.ExecuteNonQueryECM(oInsert) DatabaseFallback.ExecuteNonQueryECM(oInsert)
Next Next
End If End If
End If End If
'GridView_Docs.EndSelection() 'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0 CURRENT_JUMP_DOC_GUID = 0