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

MS Englisch TimerStop

Browse Source
This commit is contained in:
SchreiberM 2020-11-04 15:06:56 +01:00
parent 2022949a36
commit dde7d70750
7 changed files with 2500 additions and 2484 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
app/DD_PM_WINDREAM/ClassDatabase.vb
View File

@ -70,6 +70,7 @@ Public Class ClassDatabase
SQLconnect.ConnectionString = SQLSERVERConnectionString
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandTimeout = 120
SQLcommand.CommandText = pSQLCommand
LOGGER.Debug("Execute ReturnDatatable: " & pSQLCommand)
Dim adapter1 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(SQLcommand)

74
app/DD_PM_WINDREAM/frmMain.Designer.vb generated
View File

@ -102,13 +102,8 @@ Partial Class frmMain
Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroupBasicConf = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
Me.bwSync = New System.ComponentModel.BackgroundWorker()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
Me.DocumentViewerBarManager1 = New DevExpress.XtraPrinting.Preview.DocumentViewerBarManager(Me.components)
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlRight = New DevExpress.XtraBars.BarDockControl()
@ -174,6 +169,11 @@ Partial Class frmMain
Me.PrintPreviewBarCheckItem17 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
Me.PrintPreviewBarCheckItem18 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
Me.PrintPreviewBarCheckItem19 = New DevExpress.XtraPrinting.Preview.PrintPreviewBarCheckItem()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
Me.bwSync = New System.ComponentModel.BackgroundWorker()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
Me.XtraSaveFileDialog1 = New DevExpress.XtraEditors.XtraSaveFileDialog(Me.components)
Me.TimerInactivity = New System.Windows.Forms.Timer(Me.components)
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
@ -194,11 +194,11 @@ Partial Class frmMain
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'ImageListProfile
@ -842,29 +842,12 @@ Partial Class frmMain
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.ToolTip1.SetToolTip(Me.RibbonStatusBar1, resources.GetString("RibbonStatusBar1.ToolTip"))
'
'RibbonPage2
'barDockControlTop
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'ApplicationMenu1
'
Me.ApplicationMenu1.Name = "ApplicationMenu1"
Me.ApplicationMenu1.Ribbon = Me.RibbonControl1
'
'bwSync
'
Me.bwSync.WorkerReportsProgress = True
Me.bwSync.WorkerSupportsCancellation = True
'
'SaveFileDialog1
'
resources.ApplyResources(Me.SaveFileDialog1, "SaveFileDialog1")
'
'bwBasicData
'
Me.bwBasicData.WorkerReportsProgress = True
Me.bwBasicData.WorkerSupportsCancellation = True
resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
Me.barDockControlTop.CausesValidation = False
Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip"))
'
'DocumentViewerBarManager1
'
@ -879,13 +862,6 @@ Partial Class frmMain
Me.DocumentViewerBarManager1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar2, Me.RepositoryItemZoomTrackBar1, Me.PrintPreviewRepositoryItemComboBox1})
Me.DocumentViewerBarManager1.TransparentEditorsMode = DevExpress.Utils.DefaultBoolean.[True]
'
'barDockControlTop
'
resources.ApplyResources(Me.barDockControlTop, "barDockControlTop")
Me.barDockControlTop.CausesValidation = False
Me.barDockControlTop.Manager = Me.DocumentViewerBarManager1
Me.ToolTip1.SetToolTip(Me.barDockControlTop, resources.GetString("barDockControlTop.ToolTip"))
'
'barDockControlBottom
'
resources.ApplyResources(Me.barDockControlBottom, "barDockControlBottom")
@ -1624,6 +1600,30 @@ Partial Class frmMain
Me.PrintPreviewBarCheckItem19.ImageOptions.SvgImage = CType(resources.GetObject("PrintPreviewBarCheckItem19.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage)
Me.PrintPreviewBarCheckItem19.Name = "PrintPreviewBarCheckItem19"
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
resources.ApplyResources(Me.RibbonPage2, "RibbonPage2")
'
'ApplicationMenu1
'
Me.ApplicationMenu1.Name = "ApplicationMenu1"
Me.ApplicationMenu1.Ribbon = Me.RibbonControl1
'
'bwSync
'
Me.bwSync.WorkerReportsProgress = True
Me.bwSync.WorkerSupportsCancellation = True
'
'SaveFileDialog1
'
resources.ApplyResources(Me.SaveFileDialog1, "SaveFileDialog1")
'
'bwBasicData
'
Me.bwBasicData.WorkerReportsProgress = True
Me.bwBasicData.WorkerSupportsCancellation = True
'
'XtraSaveFileDialog1
'
resources.ApplyResources(Me.XtraSaveFileDialog1, "XtraSaveFileDialog1")
@ -1669,11 +1669,11 @@ Partial Class frmMain
CType(Me.TBPM_PROFILE_FILESBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DocumentViewerBarManager1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemProgressBar2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemZoomTrackBar1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PrintPreviewRepositoryItemComboBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ApplicationMenu1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()

5
app/DD_PM_WINDREAM/frmMain.en-US.resx
View File

@ -122,7 +122,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAdQBBAHUAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAdwBBAHcAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -193,6 +193,9 @@
AARAHGyK8GEMA8jBUO1UMgCbM/Fh6htAOv72HwANMrXhfARkwAAAAABJRU5ErkJggg==
</value>
</data>
<data name="tslblObjectCount.Size" type="System.Drawing.Size, System.Drawing">
<value>87, 22</value>
</data>
<data name="NavBarGroupProfiles.Caption" xml:space="preserve">
<value>more profiles</value>
</data>

1110
app/DD_PM_WINDREAM/frmMain.resx
View File

File diff suppressed because it is too large Load Diff

39
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -566,11 +566,11 @@ Public Class frmMain
CURRENT_CLICKED_PROFILE_ID = _tag
CURRENT_CLICKED_PROFILE_TITLE = e.Link.Item.Caption
GRID_LOAD_TYPE = "PROFILE#" & CURRENT_CLICKED_PROFILE_ID.ToString
TimerRefresh.Stop()
GridView_Docs.ShowLoadingPanel()
Await Load_single_Profile()
GridView_Docs.HideLoadingPanel()
TimerRefresh.Start()
End If
End If
End If
@ -949,6 +949,7 @@ Public Class frmMain
End If
GridView_Docs.ShowLoadingPanel()
TimerRefresh.Stop()
If GRID_LOAD_TYPE = "OVERVIEW" Then
Await Load_Grid_Overview(FormLoad)
@ -957,6 +958,7 @@ Public Class frmMain
End If
GridView_Docs.HideLoadingPanel()
TimerRefresh.Start()
If SHOW_MASS_VALIDATOR = False Then
GridView_Docs.OptionsSelection.MultiSelect = False
@ -1166,7 +1168,12 @@ Public Class frmMain
'GridView_Docs.EndSelection()
CURRENT_JUMP_DOC_GUID = 0
Dim hitInfo As GridHitInfo = GridView_Docs.CalcHitInfo(GridCursorLocation)
If IsNothing(hitInfo) Then
bsiMessage.Caption = "Could not specify hitinfo via click event (CalcHitInfo)"
LOGGER.Info("Could not specify hitinfo via click event (CalcHitInfo)")
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
Exit Sub
End If
Dim groupRowText
Dim oHitProfilID
If hitInfo.InGroupRow Then
@ -1300,7 +1307,9 @@ Public Class frmMain
Catch ex As Exception
LOGGER.Error(ex)
allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]")
MsgBox("Unexpected error in Item_Scope: " & ex.Message & vbNewLine & "Choose file again!", MsgBoxStyle.Information, ADDITIONAL_TITLE)
bsiMessage.Caption = "Warning in Item_Scope: " & ex.Message
bsiMessage.ItemAppearance.Normal.BackColor = Color.Red
End Try
End Sub
Private Function Init_IDB()
@ -1428,9 +1437,10 @@ Public Class frmMain
SaveGridLayout()
GridView_Docs.ShowLoadingPanel()
TimerRefresh.Stop()
Await Load_Grid_Overview(False)
GridView_Docs.HideLoadingPanel()
TimerRefresh.Start()
RefreshHelper.LoadViewInfo()
End Sub
Async Function Load_Grid_Overview(FormLoad As Boolean) As Tasks.Task
@ -2057,6 +2067,7 @@ 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"
@ -2244,19 +2255,21 @@ Public Class frmMain
End Sub
Private Sub TimerInactivity_Tick(sender As Object, e As EventArgs) Handles TimerInactivity.Tick
If Application.OpenForms().OfType(Of frmValidator).Any Then
Check_Timer_Inactivity()
Exit Sub
End If
If Application.OpenForms().OfType(Of frmAdministration).Any Then
Check_Timer_Inactivity()
Exit Sub
End If
Try
If Application.OpenForms().OfType(Of frmValidator).Any Then
Check_Timer_Inactivity()
Exit Sub
End If
If Application.OpenForms().OfType(Of frmAdministration).Any Then
Check_Timer_Inactivity()
Exit Sub
End If
INACTIVITYRecognized = True
Application.Exit()
Catch ex As Exception
LOGGER.Error(ex.Message)
End Try
End Sub
End Class

1
app/DD_PM_WINDREAM/frmValidator.Designer.vb generated
View File

@ -877,7 +877,6 @@ Partial Class frmValidator
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniNext)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete)
Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation)
Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem5)
Me.RibbonPageGroup3.Name = "RibbonPageGroup3"
resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3")
'

3754
app/DD_PM_WINDREAM/frmValidator.resx
View File

File diff suppressed because it is too large Load Diff