diff --git a/app/DD_PM_WINDREAM/frmMain.resx b/app/DD_PM_WINDREAM/frmMain.resx index 775a78b..2512905 100644 --- a/app/DD_PM_WINDREAM/frmMain.resx +++ b/app/DD_PM_WINDREAM/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAVwBBgFcAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAWQBBgFkAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -179,9 +179,90 @@ 597, 17 - 392, 95 + 637, 95 + + 269, 26 + + + Validierung für Gruppe/Profil starten + + + 269, 26 + + + Validierung für Datei starten + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y + 7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb + mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N + CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO + RK5CYII= + + + + 269, 26 + + + Metadaten Datei anzeigen + + + + False + + + 266, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA + qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg + 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY + AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC + + + + 269, 26 + + + Massenabschluss markierte Dateien + + + 266, 6 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF + RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF + ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d + C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 + AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== + + + + 269, 26 + + + Lösche alle Filter + + + 269, 26 + + + Layout zurücksetzen + + + 269, 26 + + + Layout speichern + 270, 198 @@ -201,7 +282,6 @@ 1114, 333 - 8 @@ -221,10 +301,10 @@ 0 - 17, 134 + 907, 95 - 171, 134 + 17, 134 104, 24 @@ -294,6 +374,9 @@ False + + Segoe UI, 9pt + 50, 23 @@ -421,8 +504,14 @@ - 541, 95 + 786, 95 + + 219, 26 + + + Starte Validierung für Profil + 220, 30 @@ -603,98 +692,33 @@ 3 - - 269, 26 - - - Validierung für Gruppe/Profil starten - - - 269, 26 - - - Validierung für Datei starten - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAANNJREFUOE+1k80NgzAMRhmlI3QGZuGeLdiBXjoEU2QaCk3gSPssjJIQBXpopE9y - 7M/PCT9VuuZ5XgsanHP3zZpfGOu6zqpt23NICYBOISHgNYyRipBlWW7e+ycAa63Ivd06jdMBEEKkGRIb - mpExRqR7QLmTUJPJ32Bomkaa+r7fDcTkqIWQCKDHxqiFVHoavY7mBcB0Ap3cdY99EjE5anj0FCkgmq6N - CtI8Hu/8fwCXr6CeCPDLQ0w9Arj6GjHndOlDolb8gVjBp7yDiMlR22zJqqoPDtN4ChAfojUAAAAASUVO - RK5CYII= - - - - 269, 26 - - - Metadaten Datei anzeigen - - - False - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA - qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg - 2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY - AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC - - - - 269, 26 - - - Massenabschluss markierte Dateien - - - 266, 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAP9JREFUOE9jAIHv3787fHz5/P/DQ3v+f/v2jSQMNuDr168NZ/qa/i9U4/1/sCQF - RcGRPbvAYk/v3fkfGRn538nJCY7hBgBdkPDs/Kn/y4xlwIYcaywGS17YueX/Gget/6fnTv6fkpKCohnF - ABAAcV7fufl/o68l3BCQgddWzIe7BhuGaocYAMKgsIC5ZFuUO4YGdAzVjukCkNNBNC7no3gBGIj7b29d - C7cZFpAg54PEbh/Zjz8MQM4GaUTWDMOgwAW5CkQji8Mw2AAg4z1IIygq0RUQwmADvnz5YgDi4PIrLgw3 - AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg== - - - - 269, 26 - - - Lösche alle Filter - - - 269, 26 - - - Layout zurücksetzen - - - 269, 26 - - - Layout speichern - - - 219, 26 - - - Starte Validierung für Profil - 908, 17 - 519, 134 + 365, 134 + + 234, 22 + + + Popup Erinnerung inaktivieren + + + 231, 6 + + + 234, 22 + + + Bring to Front + + + 234, 22 + + + Out of Range - PM fixieren + 235, 76 @@ -876,27 +900,6 @@ True - - 234, 22 - - - Popup Erinnerung inaktivieren - - - 231, 6 - - - 234, 22 - - - Bring to Front - - - 234, 22 - - - Out of Range - PM fixieren - 1023, 17 @@ -913,19 +916,19 @@ 666, 56 - 923, 56 - - 17, 95 + + 262, 95 + - 257, 95 + 502, 95 - 305, 134 + 151, 134 - 420, 134 + 266, 134 Aktualisieren @@ -1267,6 +1270,18 @@ 0, 0 + + Allgemein + + + Funktionen + + + Verwaltung + + + Grundeinstellungen + Start @@ -1303,38 +1318,26 @@ 5 - - Allgemein - - - Funktionen - - - Verwaltung - - - Grundeinstellungen - RibbonPage2 - 701, 134 + 547, 134 - 853, 134 + 699, 134 - 946, 134 + 792, 134 PDF Files (*.pdf*)|*.pdf - 1083, 134 + 929, 134 - 1203, 134 + 17, 173 Top @@ -2644,9 +2647,6 @@ &Ansicht - - &Hintergrund - &Seiten Layout @@ -2659,6 +2659,9 @@ Bars + + &Hintergrund + PDF Dokument diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index e1a5da6..86731aa 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -723,57 +723,63 @@ Public Class frmMain Visible = True End Sub Private Sub Timer_Tick(sender As System.Object, e As EventArgs) Handles TimerRefresh.Tick - If TimerRefresh.Enabled = False Then - Exit Sub - End If - If bwBasicData.IsBusy Then - LOGGER.Info("bwBasicData is busy - no Refreshing") - Exit Sub - End If - If Application.OpenForms().OfType(Of frmValidator).Any Then - Exit Sub - End If - If Application.OpenForms().OfType(Of frmAdministration).Any Then - Exit Sub - End If - If Application.OpenForms().OfType(Of frmAdmin2).Any Then - Exit Sub - End If - If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() - 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then - ' Dim oUpdate = "Not Defined" - ' Try - ' oUpdate = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = NULL, IN_WORK_WHEN = NULL where UPPER(WORK_USER) = UPPER('{USER_USERNAME}')" - ' ClassDatabase.Execute_non_Query(oUpdate) - ' Catch ex As Exception - ' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}") - ' End Try - - 'End If - - If bwSync.IsBusy Then - Exit Sub - End If Try - SaveGridLayout() - 'bwSync.ReportProgress(10) - LoadNavBar() - 'bwSync.ReportProgress(60) - Dim oStopWatch As New RefreshHelper.SW("Decide_Load") - Decide_Load() - oStopWatch.Done() - 'bwSync.ReportProgress(95) - If USER_LANGUAGE <> "de-DE" Then - bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString - Else - bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString + If TimerRefresh.Enabled = False Then + Exit Sub + End If + If bwBasicData.IsBusy Then + LOGGER.Info("bwBasicData is busy - no Refreshing") + Exit Sub + End If + If Application.OpenForms().OfType(Of frmValidator).Any Then + Exit Sub + End If + If Application.OpenForms().OfType(Of frmAdministration).Any Then + Exit Sub + End If + If Application.OpenForms().OfType(Of frmAdmin2).Any Then + Exit Sub End If - If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() - Handling_DEBUG_USER() + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo() + 'If Not Application.OpenForms().OfType(Of frmValidator).Any Then + ' Dim oUpdate = "Not Defined" + ' Try + ' oUpdate = $"UPDATE TBPM_PROFILE_FILES SET IN_WORK = 0, WORK_USER = NULL, IN_WORK_WHEN = NULL where UPPER(WORK_USER) = UPPER('{USER_USERNAME}')" + ' ClassDatabase.Execute_non_Query(oUpdate) + ' Catch ex As Exception + ' LOGGER.Warn($"Unexpected Error in freefileforUser [{oUpdate}] - {ex.Message}") + ' End Try + + 'End If + + If bwSync.IsBusy Then + Exit Sub + End If + Try + SaveGridLayout() + 'bwSync.ReportProgress(10) + LoadNavBar() + 'bwSync.ReportProgress(60) + Dim oStopWatch As New RefreshHelper.SW("Decide_Load") + Decide_Load() + oStopWatch.Done() + 'bwSync.ReportProgress(95) + If USER_LANGUAGE <> "de-DE" Then + bsilastsync.Caption = "Last Client-Sync: " & Now.ToLongTimeString + Else + bsilastsync.Caption = "Letzte Synchronisation: " & Now.ToLongTimeString + End If + If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() + + Handling_DEBUG_USER() + Catch ex As Exception + LOGGER.Error(ex) + End Try Catch ex As Exception LOGGER.Error(ex) End Try + 'BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always '' call this method to start your asynchronous Task. 'bwSync.RunWorkerAsync() @@ -853,14 +859,20 @@ Public Class frmMain End Sub Private Sub TimerReminder_Tick(sender As Object, e As EventArgs) Handles TimerReminder.Tick - If Application.OpenForms().OfType(Of frmValidator).Any Then - Exit Sub - End If + Try + + If Application.OpenForms().OfType(Of frmValidator).Any Then + Exit Sub + End If + + If CURR_DT_OVERVIEW.Rows.Count > 0 Then + Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") + NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) + End If + Catch ex As Exception + LOGGER.Warn($"Error TimerReminder: {ex.Message}") + End Try - If CURR_DT_OVERVIEW.Rows.Count > 0 Then - Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline") - NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info) - End If End Sub @@ -1837,27 +1849,31 @@ Public Class frmMain Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick + Try + If Not bwBasicData.IsBusy Then + BarEditItem1.Caption = "Get BasicData" + BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always + bwBasicData.RunWorkerAsync() + End If - If Not bwBasicData.IsBusy Then - BarEditItem1.Caption = "Get BasicData" - BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always - bwBasicData.RunWorkerAsync() - End If + If USER_DEBUG_LOG = True Then + ' 'Jetzt de rinsert der Inhalte + If Not IsNothing(LOGCONFIG.Logs) Then + If LOGCONFIG.Logs.Count > 0 Then + ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" + ' ClassDatabase.Execute_non_Query(odel) - If USER_DEBUG_LOG = True Then - ' 'Jetzt de rinsert der Inhalte - If Not IsNothing(LOGCONFIG.Logs) Then - If LOGCONFIG.Logs.Count > 0 Then - ' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}" - ' ClassDatabase.Execute_non_Query(odel) + Dim thread As New Thread(AddressOf DebuglogBackgroundthread) + thread.Start() - Dim thread As New Thread(AddressOf DebuglogBackgroundthread) - thread.Start() + End If End If - End If - End If + Catch ex As Exception + LOGGER.Warn($"Timer5Mins Error: {ex.Message}") + End Try + End Sub Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork