diff --git a/app/TaskFlow/ClassAllgemeineFunktionen.vb b/app/TaskFlow/ClassAllgemeineFunktionen.vb index 9bb6fd2..a38170d 100644 --- a/app/TaskFlow/ClassAllgemeineFunktionen.vb +++ b/app/TaskFlow/ClassAllgemeineFunktionen.vb @@ -91,19 +91,6 @@ Public Class ClassAllgemeineFunktionen End Try End Function - Public Function Insert_LogEntry(ERR_MSG As String) - Try - ERR_MSG = ERR_MSG.Replace("'", "''") - Dim insert As String = $"INSERT INTO TBPM_LOG_DEBUG (USERID, LOGMSG) VALUES ({USER_ID},'{ERR_MSG}')" - If ExecuteonMSSQL(insert, CONNECTION_STRING_ECM) <> "" Then - LOGGER.Warn("...Eintrag in Log-Tabelle konnte nicht erstellt werden!!", True) - End If - Catch ex As Exception - LOGGER.Error(ex) - LOGGER.Info("Error in Insert_LogEntry: " & ex.Message) - End Try - End Function - Public Function ExecuteonMSSQL(ByVal sqlcommand As String, ConString As String) Try ' die nötigen Variablen definieren @@ -208,7 +195,6 @@ Public Class ClassAllgemeineFunktionen LOGGER.Info("Fehler bei Move2Folder", True) LOGGER.Info("Fehlermeldung") LOGGER.Info(ex.Message) - Insert_LogEntry($"ERROR {ex.Message}") Return ex.Message End Try End Function @@ -294,7 +280,6 @@ Public Class ClassAllgemeineFunktionen Catch ex As Exception LOGGER.Error(ex) MsgBox("Unexpected error Execute_Scalar_SQLServer" & vbNewLine & "Automatic Index (j/n): " & check.ToString & vbNewLine & "ERROR:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_SQL sql:") - Insert_LogEntry($"ERROR Execute_Scalar_SQLServer{ex.Message}") LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_SQLServer" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - SQL: " & vsql_statement) LOGGER.Info(" - Connection: " & vconnectionString) @@ -328,7 +313,6 @@ Public Class ClassAllgemeineFunktionen Catch ex As Exception LOGGER.Error(ex) MsgBox("Unexpected error Execute_Scalar_Oracle" & vbNewLine & "Automatic Index (y/n): " & check.ToString & vbNewLine & "Error:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Unexpected error Execute_Scalar_oracle sql:") - Insert_LogEntry($"ERROR Execute_Scalar_Oracle{ex.Message}") LOGGER.Info(" - Unvorhergesehener Fehler bei Execute_Scalar_Oracle" & vbNewLine & "Automatischer Index (j/n): " & check.ToString & vbNewLine & "Fehler: " & vbNewLine & ex.Message) LOGGER.Info(" - SQL: " & vsql_statement) LOGGER.Info(" - Connection: " & vconnectionString) diff --git a/app/TaskFlow/ClassPMWindream.vb b/app/TaskFlow/ClassPMWindream.vb index a084053..02bd2b6 100644 --- a/app/TaskFlow/ClassPMWindream.vb +++ b/app/TaskFlow/ClassPMWindream.vb @@ -440,7 +440,6 @@ Public Class ClassPMWindream LOGGER.Error(ex) LOGGER.Info("ClassSearchResult.RunIndexing - " & ex.Message, True) frmValidator.idxerr_message = "Unvorhergesehener Fehler in Indexing: " & ex.Message & vbNewLine & "vType: " & vType.ToString - allgFunk.Insert_LogEntry($"ERROR RunIndexing>> {ex.Message}") oDocument.Save() oDocument.unlock() Return False diff --git a/app/TaskFlow/ClassParamRefresh.vb b/app/TaskFlow/ClassParamRefresh.vb index 58f5323..a636237 100644 --- a/app/TaskFlow/ClassParamRefresh.vb +++ b/app/TaskFlow/ClassParamRefresh.vb @@ -20,6 +20,9 @@ Public Class ClassParamRefresh ElseIf oRow.Item("TITLE") = "PM_VALIDATOR_SEARCH_DEF" Then SQL_VALIDATOR_SEARCHES = oRow.Item("SQL_COMMAND") LOGGER.Debug($"VALIDATOR-SQL FROM SQLCommands DD: {SQL_VALIDATOR_SEARCHES}") + ElseIf oRow.Item("TITLE") = "TF_WORKFLOW_MESSAGE" Then + SQL_WF_MESSAGES = oRow.Item("SQL_COMMAND") + LOGGER.Debug($"WF_MESSAGES-SQL FROM SQLCommands DD: {SQL_WF_MESSAGES}") End If Next End If @@ -98,16 +101,6 @@ Public Class ClassParamRefresh IDB_ACTIVE = False End If End If - - - - 'ElseIf oMode.StartsWith("PM.IDB_APP_SERV_CONID!") Then - ' Dim CON_ID = oMode.Replace("PM.IDB_APP_SERV_CONID!", "") - ' Dim oConString = ClassDatabase.Get_ConnectionString(CON_ID) - ' CONNECTION_STRING_IDB_APP_SERVER = oConString - ' If ClassDatabase.Init(CONNECTION_STRING_IDB_APP_SERVER) = True Then - ' LOGGER.Info($"Got an IDB APP-Server-Connection [{CON_ID}]!") - ' End If ElseIf oMode = "PM.EXCEL_OVERVIEW" Then EXCEL_OVERVIEW = True LOGGER.Debug($"EXCEL_OVERVIEW [{EXCEL_OVERVIEW}]") diff --git a/app/TaskFlow/ModuleRuntimeVariables.vb b/app/TaskFlow/ModuleRuntimeVariables.vb index 7247a8d..c03758c 100644 --- a/app/TaskFlow/ModuleRuntimeVariables.vb +++ b/app/TaskFlow/ModuleRuntimeVariables.vb @@ -176,6 +176,7 @@ Module ModuleRuntimeVariables Public Property SQL_PROFILES_USER As String = "" Public Property SQL_VALIDATOR_SEARCHES As String = "" + Public Property SQL_WF_MESSAGES As String = "" Public WM_AHWF_docPath As String Public LIC_MODULES As String = "NONE" diff --git a/app/TaskFlow/My Project/AssemblyInfo.vb b/app/TaskFlow/My Project/AssemblyInfo.vb index 3c6d6ae..26a5da3 100644 --- a/app/TaskFlow/My Project/AssemblyInfo.vb +++ b/app/TaskFlow/My Project/AssemblyInfo.vb @@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + diff --git a/app/TaskFlow/TaskFlow.vbproj b/app/TaskFlow/TaskFlow.vbproj index 3ccacef..c7aadb3 100644 --- a/app/TaskFlow/TaskFlow.vbproj +++ b/app/TaskFlow/TaskFlow.vbproj @@ -517,6 +517,12 @@ Form + + frmValidator_Messages.vb + + + Form + frmWorkflow.vb @@ -733,6 +739,9 @@ frmValidatorSearch.vb Designer + + frmValidator_Messages.vb + frmWorkflow.vb diff --git a/app/TaskFlow/frmFormDesigner.vb b/app/TaskFlow/frmFormDesigner.vb index 3bf7557..ff756e2 100644 --- a/app/TaskFlow/frmFormDesigner.vb +++ b/app/TaskFlow/frmFormDesigner.vb @@ -90,14 +90,13 @@ Public Class frmFormDesigner Dim sortedIndicies As List(Of String) If IDB_ACTIVE = False Then unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList() - sortedIndicies = unsortedIndicies '.OrderBy(Function(index As String) index).ToList() sortedIndicies = sortedIndicies.OrderBy(Function(index As String) index).ToList Else sortedIndicies = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE).ToList() End If - + sortedIndicies.Add("@@DISPLAY_ONLY") Source_AllIndicies = sortedIndicies Source_VectorIndicies = Source_AllIndicies.FindAll(AddressOf IsVectorIndex) Source_SimpleIndicies = Source_AllIndicies.Except(Source_VectorIndicies).ToList() diff --git a/app/TaskFlow/frmKonfig.Designer.vb b/app/TaskFlow/frmKonfig.Designer.vb index 5608646..ca72481 100644 --- a/app/TaskFlow/frmKonfig.Designer.vb +++ b/app/TaskFlow/frmKonfig.Designer.vb @@ -46,12 +46,11 @@ Partial Class frmKonfig Me.Label7 = New System.Windows.Forms.Label() Me.txtIntervall = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() - Me.btnopenlog = New System.Windows.Forms.Button() + Me.btnOpenLogFolder = New System.Windows.Forms.Button() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() - Me.Button3 = New System.Windows.Forms.Button() + Me.btnOpenAppDataFolder = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.Button1 = New System.Windows.Forms.Button() - Me.btnLogMail = New System.Windows.Forms.Button() Me.TabPage4 = New System.Windows.Forms.TabPage() Me.GridControlLogs = New DevExpress.XtraGrid.GridControl() Me.ContextMenuInternalLog = New System.Windows.Forms.ContextMenuStrip(Me.components) @@ -63,6 +62,7 @@ Partial Class frmKonfig Me.TBPM_KONFIGURATIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() + Me.BtnCreateLogfiles = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() @@ -193,16 +193,16 @@ Partial Class frmKonfig ' 'TabPage3 ' + Me.TabPage3.Controls.Add(Me.BtnCreateLogfiles) Me.TabPage3.Controls.Add(Me.Button4) Me.TabPage3.Controls.Add(Me.Label7) Me.TabPage3.Controls.Add(Me.txtIntervall) Me.TabPage3.Controls.Add(Me.Label6) - Me.TabPage3.Controls.Add(Me.btnopenlog) + Me.TabPage3.Controls.Add(Me.btnOpenLogFolder) Me.TabPage3.Controls.Add(Me.chkLogErrorsOnly) - Me.TabPage3.Controls.Add(Me.Button3) + Me.TabPage3.Controls.Add(Me.btnOpenAppDataFolder) Me.TabPage3.Controls.Add(Me.LinkLabel1) Me.TabPage3.Controls.Add(Me.Button1) - Me.TabPage3.Controls.Add(Me.btnLogMail) resources.ApplyResources(Me.TabPage3, "TabPage3") Me.TabPage3.Name = "TabPage3" Me.TabPage3.UseVisualStyleBackColor = True @@ -230,11 +230,11 @@ Partial Class frmKonfig resources.ApplyResources(Me.Label6, "Label6") Me.Label6.Name = "Label6" ' - 'btnopenlog + 'btnOpenLogFolder ' - resources.ApplyResources(Me.btnopenlog, "btnopenlog") - Me.btnopenlog.Name = "btnopenlog" - Me.btnopenlog.UseVisualStyleBackColor = True + resources.ApplyResources(Me.btnOpenLogFolder, "btnOpenLogFolder") + Me.btnOpenLogFolder.Name = "btnOpenLogFolder" + Me.btnOpenLogFolder.UseVisualStyleBackColor = True ' 'chkLogErrorsOnly ' @@ -242,11 +242,11 @@ Partial Class frmKonfig Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly" Me.chkLogErrorsOnly.UseVisualStyleBackColor = True ' - 'Button3 + 'btnOpenAppDataFolder ' - resources.ApplyResources(Me.Button3, "Button3") - Me.Button3.Name = "Button3" - Me.Button3.UseVisualStyleBackColor = True + resources.ApplyResources(Me.btnOpenAppDataFolder, "btnOpenAppDataFolder") + Me.btnOpenAppDataFolder.Name = "btnOpenAppDataFolder" + Me.btnOpenAppDataFolder.UseVisualStyleBackColor = True ' 'LinkLabel1 ' @@ -260,13 +260,6 @@ Partial Class frmKonfig Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' - 'btnLogMail - ' - Me.btnLogMail.Image = Global.DD_ProcessManager.My.Resources.Resources.email_go - resources.ApplyResources(Me.btnLogMail, "btnLogMail") - Me.btnLogMail.Name = "btnLogMail" - Me.btnLogMail.UseVisualStyleBackColor = True - ' 'TabPage4 ' Me.TabPage4.Controls.Add(Me.GridControlLogs) @@ -339,6 +332,12 @@ Partial Class frmKonfig Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' + 'BtnCreateLogfiles + ' + resources.ApplyResources(Me.BtnCreateLogfiles, "BtnCreateLogfiles") + Me.BtnCreateLogfiles.Name = "BtnCreateLogfiles" + Me.BtnCreateLogfiles.UseVisualStyleBackColor = True + ' 'frmKonfig ' resources.ApplyResources(Me, "$this") @@ -377,16 +376,15 @@ Partial Class frmKonfig Friend WithEvents txtActualConnection As System.Windows.Forms.TextBox Friend WithEvents chkbxUserAut As System.Windows.Forms.CheckBox Friend WithEvents TabPage3 As System.Windows.Forms.TabPage - Friend WithEvents btnLogMail As System.Windows.Forms.Button Friend WithEvents DD_DMSLiteDataSet As DD_ProcessManager.DD_DMSLiteDataSet Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents Button1 As System.Windows.Forms.Button Friend WithEvents LinkLabel1 As System.Windows.Forms.LinkLabel - Friend WithEvents Button3 As System.Windows.Forms.Button + Friend WithEvents btnOpenAppDataFolder As System.Windows.Forms.Button Friend WithEvents chkLogErrorsOnly As System.Windows.Forms.CheckBox - Friend WithEvents btnopenlog As System.Windows.Forms.Button + Friend WithEvents btnOpenLogFolder As System.Windows.Forms.Button Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents txtIntervall As System.Windows.Forms.TextBox Friend WithEvents Label6 As System.Windows.Forms.Label @@ -400,4 +398,5 @@ Partial Class frmKonfig Friend WithEvents LogNachrichtenLeerenToolStripMenuItem As ToolStripMenuItem Friend WithEvents SpeichereLogAlsToolStripMenuItem As ToolStripMenuItem Friend WithEvents SaveFileDialog1 As SaveFileDialog + Friend WithEvents BtnCreateLogfiles As Button End Class diff --git a/app/TaskFlow/frmKonfig.resx b/app/TaskFlow/frmKonfig.resx index 53b1eb8..ff40563 100644 --- a/app/TaskFlow/frmKonfig.resx +++ b/app/TaskFlow/frmKonfig.resx @@ -120,15 +120,561 @@ 17, 17 + + RadioAlternativeConnection + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 0 + + + RadioDefaultConnection + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 1 + + + chkbxUserAut + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 2 + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 3 + + + cmbDatenbank + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 4 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 5 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 6 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 7 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 8 + + + txtUser + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 9 + + + txtPasswort + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 10 + + + BtnConnect + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 11 + + + txtActualConnection + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 12 + + + txtServer + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 13 + + + + 4, 26 + + + + 3, 3, 3, 3 + + + 832, 318 + + + 1 + + + Datenbankverbindung: + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + NoControl + + + 8, 93 + + + 219, 27 + + + 47 + + + Log Dateien erzeugen + + + BtnCreateLogfiles + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 0 + + + NoControl + + + 236, 24 + + + 163, 63 + + + 46 + + + User-Konfiguration zurücksetzen + + + Button4 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 + + + True + + + 52, 165 + + + 55, 17 + + + 45 + + + Minuten + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 2 + + + 8, 162 + + + 38, 25 + + + 44 + + + Center + + + txtIntervall + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 3 + + + True + + + 5, 142 + + + 159, 17 + + + 43 + + + Intervall Popup-Reminder: + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 4 + + + MiddleLeft + + + 8, 59 + + + 219, 28 + + + 42 + + + Öffne Log-Verzeichnis + + + btnOpenLogFolder + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 5 + + + True + + + 438, 29 + + + 68, 21 + + + 41 + + + DEBUG + + + chkLogErrorsOnly + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 6 + + + 8, 24 + + + 219, 29 + + + 40 + + + Open Appdata-Folder + + + btnOpenAppDataFolder + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 7 + + + True + + + 435, 99 + + + 166, 17 + + + 39 + + + Support-Portal Digital Data + + + LinkLabel1 + + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 8 + + + 438, 59 + + + 124, 29 + + + 37 + + + Get Culture Info + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 9 + + + 4, 26 + + + 3, 3, 3, 3 + + + 832, 318 + + + 2 + + + Weiteres + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + + + GridControlLogs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage4 + + + 0 + + + 4, 26 + + + 3, 3, 3, 3 + + + 832, 318 + + + 3 + + + Log + + + TabPage4 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + Fill + + + 0, 0 + + + 840, 348 + + + 21 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + True - NoControl - 173, 6 @@ -480,339 +1026,9 @@ 13 - - 4, 26 - - - 3, 3, 3, 3 - - - 832, 318 - - - 1 - - - Datenbankverbindung: - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - NoControl - - - 236, 64 - - - 163, 63 - - - 46 - - - User-Konfiguration zurücksetzen - - - Button4 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - True - - - 52, 165 - - - 55, 17 - - - 45 - - - Minuten - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - 8, 162 - - - 38, 25 - - - 44 - - - Center - - - txtIntervall - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 2 - - - True - - - 5, 142 - - - 159, 17 - - - 43 - - - Intervall Popup-Reminder: - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 3 - - - MiddleLeft - - - 8, 99 - - - 219, 28 - - - 42 - - - Öffne Log-Verzeichnis - - - btnopenlog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 4 - - - True - - - 438, 29 - - - 68, 21 - - - 41 - - - DEBUG - - - chkLogErrorsOnly - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 5 - - - 8, 64 - - - 219, 29 - - - 40 - - - Open Appdata-Folder - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 6 - - - True - - - 233, 29 - - - 166, 17 - - - 39 - - - Support-Portal Digital Data - - - LinkLabel1 - - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 7 - - - 438, 64 - - - 219, 29 - - - 37 - - - Get Culture Info - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 8 - - - MiddleLeft - - - 8, 17 - - - 219, 41 - - - 0 - - - Log/Support Mail erzeugen - - - MiddleRight - - - btnLogMail - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 9 - - - 4, 26 - - - 3, 3, 3, 3 - - - 832, 318 - - - 2 - - - Weiteres - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - 1014, 17 - - 197, 22 - - - Log Nachrichten leeren - - - 197, 22 - - - Speichere Log als... - 198, 48 @@ -849,56 +1065,17 @@ 0 - - 4, 26 + + 197, 22 - - 3, 3, 3, 3 + + Log Nachrichten leeren - - 832, 318 + + 197, 22 - - 3 - - - Log - - - TabPage4 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - Fill - - - 0, 0 - - - 840, 348 - - - 21 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 1 + + Speichere Log als... 159, 17 diff --git a/app/TaskFlow/frmKonfig.vb b/app/TaskFlow/frmKonfig.vb index 83fd0aa..53cfe0f 100644 --- a/app/TaskFlow/frmKonfig.vb +++ b/app/TaskFlow/frmKonfig.vb @@ -1,4 +1,5 @@ Imports System.Globalization +Imports System.IO Imports DigitalData.Modules.Database Public Class frmKonfig @@ -136,10 +137,7 @@ Public Class frmKonfig End If End Sub - Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles btnLogMail.Click - email.Send_Log_Mail(" Log-/SupportMail von Process-Manager DD.

", - "Support-Mail Process-Manager", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de", False, True) - End Sub + Private Sub TBPM_KONFIGURATIONBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Me.Validate() @@ -176,13 +174,17 @@ Public Class frmKonfig System.Diagnostics.Process.Start("http://www.didalog.de/Support") End Sub - Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click + Private Sub Button3_Click(sender As Object, e As EventArgs) Handles btnOpenAppDataFolder.Click Process.Start(USER_CONFIG_DIRECTORY) End Sub - Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnopenlog.Click - 'Process.Start(ClassLogger.DateiSpeicherort) - Process.Start(LOGCONFIG.LogDirectory) + Private Sub btnopenlog_Click(sender As Object, e As EventArgs) Handles btnOpenLogFolder.Click + Try + Process.Start(LOGCONFIG.LogDirectory) + Catch ex As Exception + + End Try + End Sub Private Sub txtIntervall_TextChanged(sender As Object, e As EventArgs) Handles txtIntervall.TextChanged @@ -251,4 +253,85 @@ Public Class frmKonfig End Try End Sub + Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged + Try + If TabControl1.SelectedIndex = 1 Then + If IsDirectoryAccessible(LOGCONFIG.LogDirectory) Then + btnOpenLogFolder.Enabled = True + Else + LOGGER.Info("Logpath is not accessible") + btnOpenLogFolder.Enabled = False + End If + If IsDirectoryAccessible(USER_CONFIG_DIRECTORY) Then + btnOpenAppDataFolder.Enabled = True + Else + LOGGER.Info("Appdata-Path is not accessible") + btnOpenAppDataFolder.Enabled = False + End If + + + End If + Catch ex As Exception + + End Try + End Sub + Function IsDirectoryAccessible(pDirectoryPath As String) As Boolean + Try + ' Prüfen, ob das Verzeichnis existiert + If Not Directory.Exists(pDirectoryPath) Then + Return False + End If + + ' Versuch, das Verzeichnis zu öffnen und seine Dateien aufzulisten + Dim files As String() = Directory.GetFiles(pDirectoryPath) + Return True + Catch ex As UnauthorizedAccessException + ' Zugriff verweigert + Return False + Catch ex As IOException + ' Ein allgemeiner E/A-Fehler + Return False + Catch ex As Exception + ' Ein anderer Fehler + Return False + End Try + End Function + + Private Sub BtnCreateLogfiles_Click(sender As Object, e As EventArgs) Handles BtnCreateLogfiles.Click + Try + If File.Exists(LOGCONFIG.LogFile) Then + SaveFileDialog1.Filter = "log file|*.log" + SaveFileDialog1.FileName = Path.GetFileName(LOGCONFIG.LogFile) + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + If File.Exists(SaveFileDialog1.FileName) Then + File.Delete(SaveFileDialog1.FileName) + End If + File.Copy(LOGCONFIG.LogFile, SaveFileDialog1.FileName) + End If + End If + If DEBUG = True Then + Dim oDebuglogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Debug.log" + Dim oDebuglogFilename = LOGCONFIG.LogDirectory + "\" + oDebuglogFilename_only + If File.Exists(oDebuglogFilename) Then + SaveFileDialog1.Filter = "log file|*.log" + SaveFileDialog1.FileName = oDebuglogFilename_only + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + If File.Exists(SaveFileDialog1.FileName) Then + File.Delete(SaveFileDialog1.FileName) + End If + File.Copy(oDebuglogFilename, SaveFileDialog1.FileName) + End If + End If + End If + Dim oTitle = "Logfiles erfolgreich gespeichert! Bitte senden Sie diese nun als Anhang an support-flow@digitaldata.works" + If USER_LANGUAGE <> "de-DE" Then + oTitle = "Logfiles exported successfully. Please send them as attachments to support-flow@digitaldata.works" + End If + MsgBox(oTitle, MsgBoxStyle.Information, ADDITIONAL_TITLE) + Catch ex As Exception + MsgBox(ex.Message, "Error saving log file") + End Try + + + End Sub End Class \ No newline at end of file diff --git a/app/TaskFlow/frmMain.Designer.vb b/app/TaskFlow/frmMain.Designer.vb index 88067f4..1f2f7d6 100644 --- a/app/TaskFlow/frmMain.Designer.vb +++ b/app/TaskFlow/frmMain.Designer.vb @@ -82,6 +82,7 @@ Partial Class frmMain Me.BarButtonItem10 = New DevExpress.XtraBars.BarButtonItem() Me.BBtnItmNotfications = New DevExpress.XtraBars.BarButtonItem() Me.BSIVERSION1 = New DevExpress.XtraBars.BarStaticItem() + Me.barbtnitmsaveLogfiles = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPageStart = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -288,9 +289,9 @@ Partial Class frmMain 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItemResetLayout, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3, Me.BbtnitmAHWF4, Me.bbtnitmLanguage, Me.BarButtonItem10, Me.BBtnItmNotfications, Me.BSIVERSION1}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bbtniRefresh, Me.bbtniMonitor, Me.bbiProfilverwaltung, Me.bbiKonfiguration, Me.bbtniGrundeinstellung, Me.bbtnitemInfo, Me.BarButtonItem1, Me.bsiUser, Me.bsiLicenses, Me.bsiUserLoggedIn, Me.bsiVersion, Me.bsilastsync, Me.bsiDebug, Me.bsiMessage, Me.bbtniMetadataFile, Me.BarEditItem1, Me.bbtnitDashboardInv, Me.bsiGeneralInfo, Me.bbtnitmGhostMode, Me.bsi_GhostMode, Me.BarButtonItemGhostMode, Me.SearchItem1, Me.SearchItem2, Me.BarStaticItemAppServer, Me.bbtniCW, Me.bsiInactivityCheck, Me.BarButtonItem2, Me.BarCheckItemAutofilter, Me.BarCheckItem2, Me.BarButtonItemResetLayout, Me.BarButtonItem4, Me.BarButtonItemExportExcel, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItemWFSingle, Me.BarButtonItemWFGroup, Me.BarButtonItemFileLink, Me.BarButtonItemMassValidation, Me.BarCheckItemShowSearch, Me.barItemGridFontSize, Me.BarButtonItem8, Me.BbtnitmAHWF1, Me.BbtnitmAHWF2, Me.BbtnitmAHWF3, Me.BbtnitmAHWF4, Me.bbtnitmLanguage, Me.BarButtonItem10, Me.BBtnItmNotfications, Me.BSIVERSION1, Me.barbtnitmsaveLogfiles}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 55 + Me.RibbonControl1.MaxItemId = 56 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPageStart, Me.RibbonPageTabelle, Me.RibbonPageAktionen}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1, Me.RepositoryItemTrackBar1, Me.cmbGridFontSize}) @@ -712,6 +713,14 @@ Partial Class frmMain Me.BSIVERSION1.Name = "BSIVERSION1" Me.BSIVERSION1.PaintStyle = DevExpress.XtraBars.BarItemPaintStyle.CaptionGlyph ' + 'barbtnitmsaveLogfiles + ' + resources.ApplyResources(Me.barbtnitmsaveLogfiles, "barbtnitmsaveLogfiles") + Me.barbtnitmsaveLogfiles.Id = 55 + Me.barbtnitmsaveLogfiles.ImageOptions.SvgImage = CType(resources.GetObject("barbtnitmsaveLogfiles.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.barbtnitmsaveLogfiles.Name = "barbtnitmsaveLogfiles" + Me.barbtnitmsaveLogfiles.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' 'RibbonPageStart ' Me.RibbonPageStart.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3, Me.RibbonPageGroupBasicConf, Me.RibbonPageGroup7, Me.RibbonPageGroup4, Me.RibbonPageGroupAHW}) @@ -815,6 +824,7 @@ Partial Class frmMain Me.RibbonPageGroup8.ItemLinks.Add(Me.bbtnitmLanguage) Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItemFileLink) Me.RibbonPageGroup8.ItemLinks.Add(Me.BarButtonItemMassValidation) + Me.RibbonPageGroup8.ItemLinks.Add(Me.barbtnitmsaveLogfiles) Me.RibbonPageGroup8.Name = "RibbonPageGroup8" ' 'RepositoryItemTrackBar1 @@ -1788,4 +1798,5 @@ Partial Class frmMain Friend WithEvents GridControlWorkflows As DevExpress.XtraGrid.GridControl Friend WithEvents GridViewWorkflows As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents BSIVERSION1 As DevExpress.XtraBars.BarStaticItem + Friend WithEvents barbtnitmsaveLogfiles As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/TaskFlow/frmMain.resx b/app/TaskFlow/frmMain.resx index 5c9922b..78cc353 100644 --- a/app/TaskFlow/frmMain.resx +++ b/app/TaskFlow/frmMain.resx @@ -125,7 +125,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw - CAAAAk1TRnQBSQFMAgEBAgEAAdABCgHQAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CAAAAk1TRnQBSQFMAgEBAgEAAeABCgHgAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -1467,6 +1467,26 @@ ZIKOBP0dw19GozF+ioGR0Qpb12LThfbp0wzn2ViudSqIOp2OL8LPw2yhfeFLfzaznW32TqqJ2brySZOn zWS/eXLGa2tGNTAcZOS3QmYniEycb7lx91IrFyxd4wzj11fRCUdvxHwbg+4zY43mjmDg9zJKkCH6LqSH DkE1/yB5PNR9tJv+78GYfwPiYK7C4w/SeAAAAABJRU5ErkJggg== + + + + Log-Dateien erzeugen + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAFMCAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + R3JlZW57ZmlsbDojMDM5QzIzO30KPC9zdHlsZT4NCiAgPGcgaWQ9IkV4cG9ydCI+DQogICAgPHBhdGgg + ZD0iTTEwLDEySDZWNmg0VjEyeiBNMjIsMTJ2NnY5YzAsMC42LTAuNCwxLTEsMUgxYy0wLjYsMC0xLTAu + NC0xLTFWN2MwLTAuNiwwLjQtMSwxLTFoM3Y4aDE0di0ySDIyeiBNMTgsMThINCAgIHY2aDE0VjE4eiIg + Y2xhc3M9IkJsYWNrIiAvPg0KICAgIDxwb2x5Z29uIHBvaW50cz0iMTYsMTAgMjQsMTAgMjQsMTQgMzIs + OCAyNCwyIDI0LDYgMTYsNiAgIiBjbGFzcz0iR3JlZW4iIC8+DQogIDwvZz4NCjwvc3ZnPgs= @@ -2595,6 +2615,12 @@ DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + barbtnitmsaveLogfiles + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPageStart diff --git a/app/TaskFlow/frmMain.vb b/app/TaskFlow/frmMain.vb index 9326515..ae6e5f2 100644 --- a/app/TaskFlow/frmMain.vb +++ b/app/TaskFlow/frmMain.vb @@ -113,7 +113,6 @@ Public Class frmMain Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}" Return DatabaseFallback.ExecuteNonQueryECM(sql) Catch ex As Exception - allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}") LOGGER.Error(ex) Return False End Try @@ -463,6 +462,7 @@ Public Class frmMain End If If BASIC_CONF_VISIBLE = False Then RibbonPageGroupBasicConf.Visible = False + barbtnitmsaveLogfiles.Visibility = DevExpress.XtraBars.BarItemVisibility.Always Else RibbonPageGroupBasicConf.Visible = True End If @@ -1790,7 +1790,6 @@ Public Class frmMain End If Catch ex As Exception LOGGER.Error(ex) - allgFunk.Insert_LogEntry($"{ex.Message} - Stack: [{ex.StackTrace}]") bsiMessage.Caption = "Warning in Item_Scope: " & ex.Message bsiMessage.ItemAppearance.Normal.BackColor = Color.Red bsiMessage.ItemAppearance.Normal.ForeColor = Color.Black @@ -3278,4 +3277,52 @@ FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ LOGGER.Info("User clicked reset layout") Await GridLayout_Reset() End Sub + + Private Sub barbtnitmsaveLogfiles_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles barbtnitmsaveLogfiles.ItemClick + Try + If File.Exists(LOGCONFIG.LogFile) Then + SaveFileDialog1.Filter = "log file|*.log" + SaveFileDialog1.FileName = Path.GetFileName(LOGCONFIG.LogFile) + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + If File.Exists(SaveFileDialog1.FileName) Then + File.Delete(SaveFileDialog1.FileName) + End If + File.Copy(LOGCONFIG.LogFile, SaveFileDialog1.FileName) + End If + End If + If DEBUG = True Then + Dim oDebuglogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Debug.log" + Dim oDebuglogFilename = LOGCONFIG.LogDirectory + "\" + oDebuglogFilename_only + If File.Exists(oDebuglogFilename) Then + SaveFileDialog1.Filter = "log file|*.log" + SaveFileDialog1.FileName = oDebuglogFilename_only + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + If File.Exists(SaveFileDialog1.FileName) Then + File.Delete(SaveFileDialog1.FileName) + End If + File.Copy(oDebuglogFilename, SaveFileDialog1.FileName) + End If + End If + End If + Dim oErrorlogFilename_only = Path.GetFileNameWithoutExtension(LOGCONFIG.LogFile) + "-Error.log" + Dim oErrorlogFilename = LOGCONFIG.LogDirectory + "\" + oErrorlogFilename_only + If File.Exists(oErrorlogFilename) Then + SaveFileDialog1.Filter = "log file|*.log" + SaveFileDialog1.FileName = oErrorlogFilename_only + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + If File.Exists(SaveFileDialog1.FileName) Then + File.Delete(SaveFileDialog1.FileName) + End If + File.Copy(oErrorlogFilename, SaveFileDialog1.FileName) + End If + End If + Dim oTitle = "Logfiles erfolgreich gespeichert! Bitte senden Sie diese nun als Anhang an support-flow@digitaldata.works" + If USER_LANGUAGE <> "de-DE" Then + oTitle = "Logfiles exported successfully. Please send them as attachments to support-flow@digitaldata.works" + End If + MsgBox(oTitle, MsgBoxStyle.Information, ADDITIONAL_TITLE) + Catch ex As Exception + MsgBox(ex.Message, "Error saving log file") + End Try + End Sub End Class \ No newline at end of file diff --git a/app/TaskFlow/frmValidator.Designer.vb b/app/TaskFlow/frmValidator.Designer.vb index 7585648..135abc8 100644 --- a/app/TaskFlow/frmValidator.Designer.vb +++ b/app/TaskFlow/frmValidator.Designer.vb @@ -86,19 +86,20 @@ Partial Class frmValidator Me.bsiInfo1 = New DevExpress.XtraBars.BarStaticItem() Me.bsiInfo2 = New DevExpress.XtraBars.BarStaticItem() Me.BbtnitmSave = New DevExpress.XtraBars.BarButtonItem() - Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() - Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.BarButtonItem5 = New DevExpress.XtraBars.BarButtonItem() Me.Attmt_bbtnitmShow = New DevExpress.XtraBars.BarButtonItem() Me.barbtnitmExport = New DevExpress.XtraBars.BarButtonItem() Me.ToggleSwitchItemLoadonClick = New DevExpress.XtraBars.BarToggleSwitchItem() Me.Attmnt_bbtnitm_LoadonClick = New DevExpress.XtraBars.BarCheckItem() Me.BarButtonItem6 = New DevExpress.XtraBars.BarButtonItem() + Me.bbtnitmInfoWorkflow = New DevExpress.XtraBars.BarButtonItem() Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageFile = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroupCustom = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.RepositoryItemComboBox1 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() + Me.RepositoryItemComboBox2 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RepositoryItemComboBox3 = New DevExpress.XtraEditors.Repository.RepositoryItemComboBox() Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar() Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage() @@ -521,9 +522,9 @@ Partial Class frmValidator 'RibbonControl1 ' Me.RibbonControl1.ExpandCollapseItem.Id = 0 - Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6}) + Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.bsiError, Me.bsiInformation, Me.bsiDocID, Me.BarButtonItemFileView, Me.BarButtonItem3, Me.BarButtonItem4, Me.bbtniRefresh, Me.bbtniRefreshSearches, Me.bbtniNext, Me.bbtniDelete, Me.bbtniAnnotation, Me.bsiInfo1, Me.bsiInfo2, Me.BbtnitmSave, Me.BarButtonItem5, Me.Attmt_bbtnitmShow, Me.barbtnitmExport, Me.ToggleSwitchItemLoadonClick, Me.Attmnt_bbtnitm_LoadonClick, Me.BarButtonItem6, Me.bbtnitmInfoWorkflow}) resources.ApplyResources(Me.RibbonControl1, "RibbonControl1") - Me.RibbonControl1.MaxItemId = 34 + Me.RibbonControl1.MaxItemId = 35 Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemComboBox1, Me.RepositoryItemComboBox2, Me.RepositoryItemComboBox3}) @@ -655,18 +656,6 @@ Partial Class frmValidator Me.BbtnitmSave.ImageOptions.LargeImage = CType(resources.GetObject("BbtnitmSave.ImageOptions.LargeImage"), System.Drawing.Image) Me.BbtnitmSave.Name = "BbtnitmSave" ' - 'RepositoryItemComboBox1 - ' - resources.ApplyResources(Me.RepositoryItemComboBox1, "RepositoryItemComboBox1") - Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox1.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" - ' - 'RepositoryItemComboBox2 - ' - resources.ApplyResources(Me.RepositoryItemComboBox2, "RepositoryItemComboBox2") - Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox2.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) - Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2" - ' 'BarButtonItem5 ' Me.BarButtonItem5.Id = 26 @@ -721,6 +710,14 @@ Partial Class frmValidator Me.BarButtonItem6.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large Me.BarButtonItem6.Visibility = DevExpress.XtraBars.BarItemVisibility.Never ' + 'bbtnitmInfoWorkflow + ' + resources.ApplyResources(Me.bbtnitmInfoWorkflow, "bbtnitmInfoWorkflow") + Me.bbtnitmInfoWorkflow.Id = 34 + Me.bbtnitmInfoWorkflow.ImageOptions.SvgImage = CType(resources.GetObject("bbtnitmInfoWorkflow.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.bbtnitmInfoWorkflow.Name = "bbtnitmInfoWorkflow" + Me.bbtnitmInfoWorkflow.Visibility = DevExpress.XtraBars.BarItemVisibility.Never + ' 'RibbonPage1 ' Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageFile, Me.RibbonPageGroup3, Me.RibbonPageGroupCustom, Me.RibbonPageGroup2}) @@ -745,6 +742,7 @@ Partial Class frmValidator Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniDelete) Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtniAnnotation) Me.RibbonPageGroup3.ItemLinks.Add(Me.BarButtonItem6) + Me.RibbonPageGroup3.ItemLinks.Add(Me.bbtnitmInfoWorkflow) Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") ' @@ -768,6 +766,18 @@ Partial Class frmValidator resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2") Me.RibbonPageGroup2.Visible = False ' + 'RepositoryItemComboBox1 + ' + resources.ApplyResources(Me.RepositoryItemComboBox1, "RepositoryItemComboBox1") + Me.RepositoryItemComboBox1.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox1.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.RepositoryItemComboBox1.Name = "RepositoryItemComboBox1" + ' + 'RepositoryItemComboBox2 + ' + resources.ApplyResources(Me.RepositoryItemComboBox2, "RepositoryItemComboBox2") + Me.RepositoryItemComboBox2.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(CType(resources.GetObject("RepositoryItemComboBox2.Buttons"), DevExpress.XtraEditors.Controls.ButtonPredefines))}) + Me.RepositoryItemComboBox2.Name = "RepositoryItemComboBox2" + ' 'RepositoryItemComboBox3 ' resources.ApplyResources(Me.RepositoryItemComboBox3, "RepositoryItemComboBox3") @@ -919,4 +929,5 @@ Partial Class frmValidator Friend WithEvents SplitContainerButtons As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents SplitContainerReject_NotResp As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents btnNotResponsible As DevExpress.XtraEditors.SimpleButton + Friend WithEvents bbtnitmInfoWorkflow As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/TaskFlow/frmValidator.resx b/app/TaskFlow/frmValidator.resx index cbc29b7..f5fded6 100644 --- a/app/TaskFlow/frmValidator.resx +++ b/app/TaskFlow/frmValidator.resx @@ -126,7 +126,7 @@ - 5, 1032 + 5, 283 Fill @@ -467,141 +467,21 @@ 0, 158 - - PanelValidatorControlBorder - - - DevExpress.XtraEditors.PanelControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - PanelControl1 - - - 1 - - - DESCRIPTIONLabel - - - DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - PanelControl1 - - - 2 - - - TITLELabel1 - - - DevExpress.XtraEditors.LabelControl, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - PanelControl1 - - - 3 - - - Fill - - - 0, 0 - - - 1017, 1093 - - - 25 - - - PanelControl1 - - - DevExpress.XtraEditors.PanelControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SplitContainer1.Panel1 - - - 0 - - - SplitContainer1.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 0 - - - Fill - - - 0, 0 - - - 3, 4, 3, 4 - - - 803, 1093 - - - 0 - - - DocumentViewerValidator - - - DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, PublicKeyToken=null - - - SplitContainer1.Panel2 - - - 0 - - - SplitContainer1.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 1 - - - 1824, 1093 - - - 1017 - - - 37 - - - SplitContainer1 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - Top, Bottom, Left, Right + + Fill + + + 2, 2 + + + 1003, 190 + + + 3 + PanelValidatorControl @@ -618,7 +498,7 @@ 5, 85 - 1007, 943 + 1007, 194 44 @@ -635,30 +515,6 @@ 1 - - Fill - - - 2, 2 - - - 1003, 939 - - - 3 - - - PanelValidatorControl - - - DevExpress.XtraEditors.XtraScrollableControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - PanelValidatorControlBorder - - - 0 - Top, Left, Right @@ -726,6 +582,102 @@ 3 + + Fill + + + 0, 0 + + + 1017, 344 + + + 25 + + + PanelControl1 + + + DevExpress.XtraEditors.PanelControl, DevExpress.Utils.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + SplitContainer1.Panel1 + + + 0 + + + SplitContainer1.Panel1 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + + 0 + + + Fill + + + 0, 0 + + + 3, 4, 3, 4 + + + 803, 344 + + + 0 + + + DocumentViewerValidator + + + DigitalData.Controls.DocumentViewer.DocumentViewer, DigitalData.Controls.DocumentViewer, Version=1.9.4.0, Culture=neutral, PublicKeyToken=null + + + SplitContainer1.Panel2 + + + 0 + + + SplitContainer1.Panel2 + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SplitContainer1 + + + 1 + + + 1824, 344 + + + 1017 + + + 37 + + + SplitContainer1 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + 756, 17 @@ -757,7 +709,7 @@ Bottom - 0, 1273 + 0, 524 1824, 0 @@ -781,7 +733,7 @@ 0, 0 - 0, 1273 + 0, 524 barDockControlLeft @@ -802,7 +754,7 @@ 1824, 0 - 0, 1273 + 0, 524 barDockControlRight @@ -826,7 +778,7 @@ 7, 17 - 1824, 1273 + 1824, 524 Tahoma, 8.25pt, style=Bold @@ -1279,11 +1231,64 @@ 0NTpdNxms5H8q8pfxcBjtPwzp4fekEOm5GhWJATUwM9p9p6o1+tuOBxK3q/w0uMHk0GWOccUA2q6LV6L LIzQfr9f+XPMXW4w0EsGWeYMU8yjRn4deXNeinz478BLD73ZcLDyTbEKhdwVj0XVv2Tc4dkOzWNlmmJK TDElppgSU0yJKabEFNPhDn4CUL0KSeYATWkAAAAASUVORK5CYII= + + + + Info Workflow + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K + ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj + MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41 + eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w + LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L 0, 0 + + Datei + + + Aktionen + + + Anhänge zu Beleg + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF + l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw + DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ + k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 + XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR + Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng + kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg + gg== + + + + Information + Start @@ -1310,7 +1315,7 @@ 1824, 158 - 0, 1251 + 0, 502 1824, 22 @@ -1816,18 +1821,6 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RepositoryItemComboBox1 - - - DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RepositoryItemComboBox2 - - - DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - BarButtonItem5 @@ -1864,6 +1857,12 @@ DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + bbtnitmInfoWorkflow + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RibbonPage1 @@ -1894,6 +1893,18 @@ DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RepositoryItemComboBox1 + + + DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + RepositoryItemComboBox2 + + + DevExpress.XtraEditors.Repository.RepositoryItemComboBox, DevExpress.XtraEditors.v21.2, Version=21.2.4.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + RepositoryItemComboBox3 @@ -2143,39 +2154,6 @@ Zoom - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu - NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE - ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi - bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s - VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw - BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh - bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl - bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF - eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA - Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs - dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz - cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z - CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl - c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA - AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN - QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs - b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT - eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp - b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg - Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ - dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k - ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl - c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E - cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz - LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO - AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL - - 10 % @@ -2218,6 +2196,39 @@ sichtbare einpassen + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYyMS4yLCBWZXJzaW9uPTIxLjIu + NC4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFlE + ZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVi + bGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29s + VGlwBwAAAA1BbGxvd0h0bWxUZXh0EUZpeGVkVG9vbFRpcFdpZHRoCkl0ZW1zQ291bnQJaXRlbVR5cGUw + BWl0ZW0wCWl0ZW1UeXBlMQVpdGVtMQQAAAQEBAQfRGV2RXhwcmVzcy5VdGlscy5EZWZhdWx0Qm9vbGVh + bgMAAAABCCVEZXZFeHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAgAAACFEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBUaXRsZUl0ZW0CAAAAJURldkV4cHJlc3MuVXRpbHMuU3VwZXJUb29sVGlwSXRl + bVR5cGUCAAAAHERldkV4cHJlc3MuVXRpbHMuVG9vbFRpcEl0ZW0CAAAAAgAAAAX8////H0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4BAAAAB3ZhbHVlX18ACAMAAAACAAAAAAIAAAAF+////yVEZXZF + eHByZXNzLlV0aWxzLlN1cGVyVG9vbFRpcEl0ZW1UeXBlAQAAAAd2YWx1ZV9fAAgCAAAAAQAAAAkGAAAA + Afn////7////AAAAAAkIAAAADAkAAABRU3lzdGVtLkRyYXdpbmcsIFZlcnNpb249NC4wLjAuMCwgQ3Vs + dHVyZT1uZXV0cmFsLCBQdWJsaWNLZXlUb2tlbj1iMDNmNWY3ZjExZDUwYTNhBQYAAAAhRGV2RXhwcmVz + cy5VdGlscy5Ub29sVGlwVGl0bGVJdGVtBwAAAA1BbGxvd0h0bWxUZXh0BEljb24MSW1hZ2VPcHRpb25z + CkxlZnRJbmRlbnQITWF4V2lkdGgST3duZXJBbGxvd0h0bWxUZXh0BFRleHQEBAQAAAABH0RldkV4cHJl + c3MuVXRpbHMuRGVmYXVsdEJvb2xlYW4DAAAAE1N5c3RlbS5EcmF3aW5nLkljb24JAAAAKERldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEl0ZW1JbWFnZU9wdGlvbnMCAAAACAgBAgAAAAH2/////P///wIAAAAKCQsA + AAAAAAAAPAEAAAAGDAAAAARab29tBQgAAAAcRGV2RXhwcmVzcy5VdGlscy5Ub29sVGlwSXRlbQcAAAAN + QWxsb3dIdG1sVGV4dARJY29uDEltYWdlT3B0aW9ucwpMZWZ0SW5kZW50CE1heFdpZHRoEk93bmVyQWxs + b3dIdG1sVGV4dARUZXh0BAQEAAAAAR9EZXZFeHByZXNzLlV0aWxzLkRlZmF1bHRCb29sZWFuAwAAABNT + eXN0ZW0uRHJhd2luZy5JY29uCQAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJdGVtSW1hZ2VPcHRp + b25zAgAAAAgIAQIAAAAB8/////z///8CAAAACgkOAAAAAAAAADwBAAAABg8AAAApw4RuZGVybiBkZXIg + Wm9vbS1TdHVmZSBkZXMgUERGLURva3VtZW50cy4FCwAAAChEZXZFeHByZXNzLlV0aWxzLlRvb2xUaXBJ + dGVtSW1hZ2VPcHRpb25zBQAAAAhJbWFnZVVyaQxTdmdJbWFnZVNpemUJQWxpZ25tZW50CkltYWdlSW5k + ZXgTSW1hZ2VUb1RleHREaXN0YW5jZQEEBAAAE1N5c3RlbS5EcmF3aW5nLlNpemUJAAAAJkRldkV4cHJl + c3MuVXRpbHMuVG9vbFRpcEltYWdlQWxpZ25tZW50AgAAAAgIAgAAAAYQAAAAAAXv////E1N5c3RlbS5E + cmF3aW5nLlNpemUCAAAABXdpZHRoBmhlaWdodAAACAgJAAAAAAAAAAAAAAAF7v///yZEZXZFeHByZXNz + LlV0aWxzLlRvb2xUaXBJbWFnZUFsaWdubWVudAEAAAAHdmFsdWVfXwAIAgAAAAAAAAD/////DgAAAAEO + AAAACwAAAAkQAAAAAe3////v////AAAAAAAAAAAB7P///+7///8AAAAA/////w4AAAAL + + BarButtonItem1 @@ -2236,31 +2247,6 @@ 1029, 17 - - Datei - - - Aktionen - - - Anhänge zu Beleg - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAEluZm87bRIthgAAAVxJREFUWEfF - l7FxwzAMRT2Bq4yjPp1nyAAZxNu4dZkt0rnLCm4ZPF+gg5LPCLJko3h3Ovn/T5gCSWnXWitF3nwm48Uw - DHPsjYNxNM7Gxbj+wDX3+A0NWpUxsqSAF+Pd+DBaErR48KrMdAGvxslQg2TAS8af7EwBb8anoYKXQAZZ - k/y5AjB8GSrwHsiaFPFfAUzZFv/8N2SOj6NXAE2z5pnPQfatMXsF0LnKuCWMIQtg7aaXmvuCX+oEjLF3 - XwxgA1EGifuCX+o6HNwXA9jFlFjivuCXug5H98UAtlIllrgv+KWuw9l9MYD9XIkl7gt+qetwcV8M4FBR - Yon7gl/qOlzdFwPKCyh/BOVNWL4MF21EK5EbUflWDOnDyH3BL3WC7mEE5ccxlL6QOKWvZA6GLWaCjMng - kCkAmLI1PYF3nPZItgCgaejc9BI10OK5NZxiSQHOYz/NqpA3n0fbfQM/tJcKTygMggAAAABJRU5ErkJg - gg== - - - - Information - RibbonPage2 diff --git a/app/TaskFlow/frmValidator.vb b/app/TaskFlow/frmValidator.vb index a5a5774..da19dcd 100644 --- a/app/TaskFlow/frmValidator.vb +++ b/app/TaskFlow/frmValidator.vb @@ -53,7 +53,7 @@ Public Class frmValidator ''' Private Property DT_COLUMNS_GRID_WITH_SQL_WITH_CTRL_PLACEHOLDER As DataTable - + Private Property DTInfoDoc As DataTable Private Property PROFIL_sortbynewest As Boolean Private Property PROFIL_VEKTORINDEX Private Property PROFIL_FINISH_SQL @@ -243,7 +243,6 @@ Public Class frmValidator Catch ex As Exception Logger.Error(ex) MsgBox("Error LOADING profile-data(" & _step.ToString & "):" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry($"ERROR frmValidatorLoad>> {ex.Message}") Logger.Info(">> Error in LOADING profile-data: " & ex.Message, True) Me.Close() End Try @@ -461,7 +460,6 @@ Public Class frmValidator Catch ex As Exception Logger.Error(ex) MsgBox("Error LOADING Profile-Data1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry($"ERROR LOADING Profile-Data1 >> {ex.Message}") Logger.Info(">> error in LOADING(2) Profile-Data: " & ex.Message, True) End Try @@ -1142,7 +1140,6 @@ Public Class frmValidator Catch ex As Exception Logger.Error(ex) If DEBUG = False Then MsgBox("Error CreateControls: " & ex.Message, MsgBoxStyle.Critical, "Attention:") - allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}") End Try End Sub Private Sub GridControlColumnWidthChanged(sender As System.Object, e As System.EventArgs) @@ -2418,7 +2415,6 @@ Public Class frmValidator Catch ex As Exception Dim _err1 As Boolean = False Logger.Error(ex) - allgFunk.Insert_LogEntry($"ERROR CreateWMObject >> {ex.Message}") Logger.Info("Unexpected error creating WMObject(1) in GetWMDocFileString: " & ex.Message) Logger.Info("Error Number: " & Err.Number.ToString) errormessage = $"Could not create a WMObject(1) for [{oWMOwnPath}]!" @@ -2695,17 +2691,56 @@ Public Class frmValidator Catch ex As Exception Logger.Warn($"Unexpected error in display format Currency: " & ex.Message) End Try + Try + + Show_WF_Messages() + Catch ex As Exception + Logger.Error(ex) + End Try + Logger.Debug("frmValidator: LoadNextDocument finished!") Catch ex As Exception Logger.Error(ex) - allgFunk.Insert_LogEntry($"ERROR LoadNextDocument >> {ex.Message}") errormessage = "unexpected error in Load_Next_Document:" & ex.Message My.Settings.Save() Logger.Info("unexpected error in Load_Next_Document: " & ex.Message) frmError.ShowDialog() End Try End Sub + Sub Show_WF_Messages() + Try + If Not Application.OpenForms().OfType(Of frmValidator_Messages).Any Then + Dim oSQLMessage = $"SELECT + CONVERT(VARCHAR(30), A.ADDED_WHEN,20) + ' - ' + B.STRING1 as MSG,A.ImageIndex + FROM + TBTFVALIDATOR_MESSAGE A INNER JOIN + (SELECT * FROM TBDD_GUI_LANGUAGE_PHRASE + WHERE MODULE = 'PM' AND OBJ_NAME = 'frmValidator' AND CAPT_TYPE = 'WF_MESSAGE') B ON A.GUI_LANG_TITLE = B.TITLE + WHERE + A.Active = 1 and (A.DocID = {CURRENT_DOC_ID}) AND B.LANGUAGE = '{USER_LANGUAGE}' ORDER BY A.ADDED_WHEN DESC" + If SQL_WF_MESSAGES <> String.Empty Then + oSQLMessage = SQL_WF_MESSAGES + oSQLMessage = oSQLMessage.Replace("@DocID", CURRENT_DOC_ID) + oSQLMessage = oSQLMessage.Replace("@LANGUAGE", USER_LANGUAGE) + oSQLMessage = oSQLMessage.Replace("@UserID", USER_ID) + oSQLMessage = oSQLMessage.Replace("@UserName", USER_USERNAME) + End If + DTInfoDoc = DatabaseFallback.GetDatatableECM(oSQLMessage) + If DTInfoDoc.Rows.Count > 0 Then + bbtnitmInfoWorkflow.Visibility = BarItemVisibility.Always + Dim ofrmMessage As New frmValidator_Messages(DTInfoDoc) + ofrmMessage.Show() + ofrmMessage.BringToFront() + Else + bbtnitmInfoWorkflow.Visibility = BarItemVisibility.Never + End If + End If + + Catch ex As Exception + Logger.Error(ex) + End Try + End Sub Sub load_viewer() Try @@ -4528,12 +4563,17 @@ Public Class frmValidator 'Jedes Control in Konfig Tab durchlaufn For Each oControlRow As DataRow In DTVWCONTROL_INDEX.Rows Dim oCtrlType = oControlRow.Item("CTRL_TYPE").ToString + 'Den Indexnamen auslesen + Dim oIndexName As String = oControlRow.Item("INDEX_NAME") If oCtrlType = "LBL" Or oCtrlType = "LINE" Or oCtrlType = "BUTTON" Then Continue For End If + If oIndexName = "@@DISPLAY_ONLY" Then + 'Logger.Debug($"Index [{oIndexName}] will be skipped") + Continue For + End If + - 'Den Indexnamen auslesen - Dim oIndexName As String = oControlRow.Item("INDEX_NAME") Dim oDBControlName = oControlRow.Item("CTRL_NAME").ToString Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION")) Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG")) @@ -4564,7 +4604,7 @@ Public Class frmValidator Dim oOVERWRITE_DATA = oControlRow.Item("OVERWRITE_DATA") 'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist - If oDBControlName = oControl.Name And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then ' oSQLCheckCommand <> "") And + If oDBControlName = oControl.Name And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then Logger.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'") If oIndexName = "" Then Logger.Info(" >> Indexname is unexpected empty.") @@ -5526,7 +5566,6 @@ Public Class frmValidator Catch ex As Exception Logger.Error(ex) - allgFunk.Insert_LogEntry($"ERROR Indexiere_File Validator >> {ex.Message}") idxerr_message = "Unexpected error in Indexiere_File: " & ex.Message.ToString Logger.Info("Unexpected error in Indexiere_File: " & ex.Message.ToString, True) Return False @@ -5556,7 +5595,6 @@ Public Class frmValidator Dim sql = $"UPDATE TBPM_PROFILE_FILES SET EDIT = 0, IN_WORK = 0, IN_WORK_WHEN = NULL, WORK_USER = NULL WHERE GUID = {CURRENT_DOC_GUID}" Return DatabaseFallback.ExecuteNonQueryECM(sql) Catch ex As Exception - allgFunk.Insert_LogEntry($"ERROR Free_File >> {ex.Message}") Logger.Error(ex) Return False End Try @@ -6066,4 +6104,8 @@ Public Class frmValidator Finish_WFStep() End If End Sub + + Private Sub bbtnitmInfoWorkflow_ItemClick(sender As Object, e As ItemClickEventArgs) Handles bbtnitmInfoWorkflow.ItemClick + Show_WF_Messages() + End Sub End Class \ No newline at end of file diff --git a/app/TaskFlow/frmValidator_Messages.Designer.vb b/app/TaskFlow/frmValidator_Messages.Designer.vb new file mode 100644 index 0000000..d898129 --- /dev/null +++ b/app/TaskFlow/frmValidator_Messages.Designer.vb @@ -0,0 +1,98 @@ + +Partial Class frmValidator_Messages + Inherits DevExpress.XtraEditors.XtraForm + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator_Messages)) + Me.ImageListBoxControl1 = New DevExpress.XtraEditors.ImageListBoxControl() + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) + Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() + Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel() + CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.StatusStrip1.SuspendLayout() + Me.SuspendLayout() + ' + 'ImageListBoxControl1 + ' + Me.ImageListBoxControl1.Appearance.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ImageListBoxControl1.Appearance.Options.UseFont = True + Me.ImageListBoxControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.ImageListBoxControl1.ImageList = Me.ImageList1 + Me.ImageListBoxControl1.Location = New System.Drawing.Point(0, 0) + Me.ImageListBoxControl1.Margin = New System.Windows.Forms.Padding(4) + Me.ImageListBoxControl1.Name = "ImageListBoxControl1" + Me.ImageListBoxControl1.Size = New System.Drawing.Size(645, 256) + Me.ImageListBoxControl1.TabIndex = 0 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "Info") + Me.ImageList1.Images.SetKeyName(1, "None_6128.png") + Me.ImageList1.Images.SetKeyName(2, "error_red_32x32_cyan.png") + ' + 'StatusStrip1 + ' + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1}) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 234) + Me.StatusStrip1.Name = "StatusStrip1" + Me.StatusStrip1.Padding = New System.Windows.Forms.Padding(1, 0, 18, 0) + Me.StatusStrip1.Size = New System.Drawing.Size(645, 22) + Me.StatusStrip1.TabIndex = 1 + Me.StatusStrip1.Text = "StatusStrip1" + ' + 'ToolStripStatusLabel1 + ' + Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1" + Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(119, 17) + Me.ToolStripStatusLabel1.Text = "ToolStripStatusLabel1" + ' + 'frmValidator_Messages + ' + Me.Appearance.Options.UseFont = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(9.0!, 19.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(645, 256) + Me.Controls.Add(Me.StatusStrip1) + Me.Controls.Add(Me.ImageListBoxControl1) + Me.Font = New System.Drawing.Font("Tahoma", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmValidator_Messages.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Margin = New System.Windows.Forms.Padding(5) + Me.MaximizeBox = False + Me.MinimizeBox = False + Me.Name = "frmValidator_Messages" + Me.Text = "Info zu Workflow" + CType(Me.ImageListBoxControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.StatusStrip1.ResumeLayout(False) + Me.StatusStrip1.PerformLayout() + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + + Friend WithEvents ImageListBoxControl1 As DevExpress.XtraEditors.ImageListBoxControl + Friend WithEvents ImageList1 As ImageList + Friend WithEvents StatusStrip1 As StatusStrip + Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel +End Class diff --git a/app/TaskFlow/frmValidator_Messages.resx b/app/TaskFlow/frmValidator_Messages.resx new file mode 100644 index 0000000..6c0aa44 --- /dev/null +++ b/app/TaskFlow/frmValidator_Messages.resx @@ -0,0 +1,201 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACq + CQAAAk1TRnQBSQFMAgEBAwEAASABAAEgAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUACPQIAAj0CAAI9BYA + Af8B9AG8AewEFAHsAbwB9AH/BAAB/wH0AbwB7AQUAewBvAH0Af8FAAL0BiUBFgL0EwAB/wH0Ae0IFAHt + AfQB/wIAAf8B9AHtCBQB7QH0Af8DAAH0ARYJJQL0EgAB9AHsBBQC9AQUAe0B9AIAAfQB7AoUAe0B9AIA + AfQBtwIlARYIJQH0EQAB9AG8BRQC9AUUAbwC9AG8DBQBvAH0AQAB9AIlAbcB/wG3AyUC/wIlARYB9BAA + AfQB7AUUAvQFFAHsAvQB7AwUAewC9AGUAiUBtwL/AbcBJQP/AyUB9BAAAfQGFAL0BhQC9A4UAvQBJgMl + AbcF/wQlAfQQAAH0BhQC9AYUAvQCFAr0AhQC9AUlAbcD/wUlAfQQAAH0BhQC9AYUAvQCFAr0AhQC9AUl + BP8BtwQlAfQQAAH0BhQC9AYUAvQOFAL0AU0DJQP/AbcC/wG3AyUB9BAAAfQB7AwUAewC9AHsDBQB7AH0 + Af8B9AIlA/8CJQG3Av8BFgIlAfQQAAH0AbwFFAL0BRQBvAL0AbwMFAG8AfQBAAH0ASYCJQH/BCUCtwIl + AvQRAAH0Ae0EFAL0BBQB7QH0AgAB9AHtChQB7QH0AgAB/wH0CiUBFgH0EgAB/wH0AewIFAHtAfQB/wIA + Af8B9AHsCBQB7QH0Af8DAAL0ASYHJQG3AfQUAAH/AfQBvAHsBBQB7AG8AfQB/wQAAf8B9AG8AewEFAHs + AbwB9AH/BQAB/wL0AU0CJQEmAZQC9BcACPQIAAj0CQAB/wX0FQABQgFNAT4HAAE+AwABKAMAAUADAAEQ + AwABAQEAAQEFAAGAFwAD/wEAAfABDwHwAQ8B8AEPAgABwAEDAcABAwHgAQMCAAGAAQEBgAEBAcABAQIA + AYABAQGAAQEBgAEBBgABgDcAAYADAAGAAQEBgAEBAYABAQIAAYABAQGAAQEBwAEDAgABwAEDAcABAwHg + AQcCAAHwAQ8B8AEPAfgBHwIACw== + + + + 128, 17 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjIxLjIsIFZlcnNpb249MjEuMi40 + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAABkEAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsdWV7ZmlsbDojMTE3N0Q3O30KCS5Z + ZWxsb3d7ZmlsbDojRkZCMTE1O30KCS5SZWR7ZmlsbDojRDExQzFDO30KCS5HcmVlbntmaWxsOiMwMzlD + MjM7fQoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjU7fQoJLnN0MXtvcGFjaXR5OjAuNzU7fQoJLnN0MntkaXNwbGF5Om5vbmU7fQoJLnN0M3tk + aXNwbGF5OmlubGluZTtmaWxsOiNGRkIxMTU7fQoJLnN0NHtkaXNwbGF5OmlubGluZTt9Cgkuc3Q1e2Rp + c3BsYXk6aW5saW5lO29wYWNpdHk6MC43NTt9Cgkuc3Q2e2Rpc3BsYXk6aW5saW5lO29wYWNpdHk6MC41 + O30KCS5zdDd7ZGlzcGxheTppbmxpbmU7ZmlsbDojMDM5QzIzO30KCS5zdDh7ZGlzcGxheTppbmxpbmU7 + ZmlsbDojRDExQzFDO30KCS5zdDl7ZGlzcGxheTppbmxpbmU7ZmlsbDojMTE3N0Q3O30KCS5zdDEwe2Rp + c3BsYXk6aW5saW5lO2ZpbGw6I0ZGRkZGRjt9Cjwvc3R5bGU+DQogIDxnIGlkPSJBdHRlbnRpb24iPg0K + ICAgIDxwYXRoIGQ9Ik0xNS4xLDIuNUwyLjEsMjYuNUMxLjgsMjcuMiwyLjMsMjgsMy4xLDI4aDI1Ljlj + MC44LDAsMS4zLTAuOCwwLjktMS41TDE2LjksMi41ICAgQzE2LjUsMS44LDE1LjUsMS44LDE1LjEsMi41 + eiIgY2xhc3M9IlllbGxvdyIgLz4NCiAgICA8cGF0aCBkPSJNMTYsMjBjMS4xLDAsMiwwLjksMiwycy0w + LjksMi0yLDJzLTItMC45LTItMlMxNC45LDIwLDE2LDIweiBNMTQsMTBoNHY4aC00VjEweiIgY2xhc3M9 + IkJsYWNrIiAvPg0KICA8L2c+DQo8L3N2Zz4L + + + \ No newline at end of file diff --git a/app/TaskFlow/frmValidator_Messages.vb b/app/TaskFlow/frmValidator_Messages.vb new file mode 100644 index 0000000..80d4680 --- /dev/null +++ b/app/TaskFlow/frmValidator_Messages.vb @@ -0,0 +1,33 @@ +Imports DevExpress.Pdf.Native.BouncyCastle.Asn1.X509 + +Public Class frmValidator_Messages + Public Sub New(pDT As DataTable) + MyBase.New() + InitializeComponent() + ' Add any initialization after the InitializeComponent() call. + ImageListBoxControl1.DataSource = pDT + ImageListBoxControl1.DisplayMember = pDT.Columns(0).ColumnName + ImageListBoxControl1.ImageIndexMember = pDT.Columns(1).ColumnName + Dim oString = " Meldung" + If pDT.Rows.Count > 1 Then + oString = " Meldungen" + End If + If USER_LANGUAGE <> "de-DE" Then + If pDT.Rows.Count > 1 Then + oString = " messages" + Else + oString = " message" + End If + + End If + ToolStripStatusLabel1.Text = $"({pDT.Rows.Count.ToString}] {oString}" + End Sub + + Private Sub frmValidator_Messages_Shown(sender As Object, e As EventArgs) Handles Me.Shown + Me.BringToFront() + End Sub + + Private Sub frmValidator_Messages_Load(sender As Object, e As EventArgs) Handles Me.Load + + End Sub +End Class \ No newline at end of file