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

MS 2.5.0.3 VKT ADD Items und GDPicture

Browse Source
This commit is contained in:
Developer01
2025-01-27 16:56:51 +01:00
parent 911c7f04ce
commit d3ef49ed83
26 changed files with 1046 additions and 728 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
app/TaskFlow/frmMain.vb
View File

@@ -754,24 +754,25 @@ Public Class frmMain
'End If
Dim oReducedColName As String
Try
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "")
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
If Not IsNothing(GridViewWorkflows.Columns) Then
Try
If oReducedColName <> "Zuletzt bearbeitet" Then
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
oReducedColName = LAST_EDITED_COLUMN.Replace("[", "")
oReducedColName = oReducedColName.Replace("]", "")
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns(oReducedColName).DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
Try
If oReducedColName <> "Zuletzt bearbeitet" Then
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridViewWorkflows.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
End If
Catch ex1 As Exception
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End If
Catch ex1 As Exception
LOGGER.Warn($"(ResetLayout)Column [{oReducedColName}] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End If
End Try
Try
GridViewWorkflows.Columns.Item("GROUP_TEXT").Visible = False
@@ -937,8 +938,9 @@ Public Class frmMain
End Sub
Function Load_Profiles_for_User() As Boolean
Try
LOGGER.Debug($"Load_Profiles_for_User ...")
If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
LOGGER.Info($"ATTENTION: CURR_DT_VWPM_PROFILE_ACTIVE is nothing!")
Return False
End If
@@ -1328,21 +1330,25 @@ Public Class frmMain
End Sub
Private Async Function Decide_Load(pIsFormLoad As Boolean, Optional ForceReload As Boolean = False) As Tasks.Task
Try
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If pIsFormLoad = True Then
FormShown = False
End If
GridIsLoaded = False
If USER_EXISTS = False Then
LOGGER.Warn($"USER IS NOT EXISTING - CHECK FNDD_LOGIN_USER_MODULE")
Exit Function
End If
If TimerRefresh.Enabled = True Then
LOGGER.Debug($"Decide_Load: TimerRefresh.Enabled = True")
TimerRefresh.Enabled = False
End If
GridViewWorkflows.ShowLoadingPanel()
TimerRefresh.Stop()
FRONTEND_ACTION = "DECIDE_LOAD"
LOGGER.Debug($"Decide_Load: pIsFormLoad [{pIsFormLoad}] - ForceReload [{ForceReload}] - GRID_LOAD_TYPE [{GRID_LOAD_TYPE}] ")
If GRID_LOAD_TYPE = "OVERVIEW" Then
Await Load_Grid_Overview(pIsFormLoad, ForceReload, False)
@@ -1712,7 +1718,7 @@ Public Class frmMain
End If
If Len(PROFIL_TITLE) > 0 Then
CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE
CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE.ToString.Replace("GROUP_TEXT:", "")
End If
@@ -1908,7 +1914,7 @@ Public Class frmMain
bsiMessage.Caption = ""
If BASEDATA_DT_VW_PROFILE_USER.Rows.Count = 0 Then
LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False)
LOGGER.Info("Attention: No profiles for user: '" & USER_USERNAME & "' configured!", False)
NO_WORKFLOWITEMS = True
bsiMessage.Caption = "NO PROFILES FOR USER"
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
@@ -2467,6 +2473,7 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
FormShown = True
Timer_Inactivity_Reset_Disable("Decide_Load")
LOGGER.Debug("FormShown..Now Decide_Load...")
Await Decide_Load(True)
If GridViewWorkflows.GroupCount = 0 And Not IsNothing(GridViewWorkflows.Columns("GROUP_TEXT")) Then
LOGGER.Info("NO GROUPS AFTER SHOWN_Decide Load...")
@@ -2560,9 +2567,8 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_G
Private Sub PopupErinnerungInaktivierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PopupErinnerungInaktivierenToolStripMenuItem.Click
If CONFIG.Config.ReminderTimer <> 0 Then
CONFIG.Config.ReminderTimer = 0
CONFIG.Save()
Check_Timer_Notification()
TimerReminder.Stop()
TimerReminder.Enabled = False
Else
CONFIG.Config.ReminderTimer = 5
CONFIG.Save()