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

MS Version .8 UserInit, AdminsitrationForm etc

Browse Source
This commit is contained in:
SchreiberM 2019-10-18 10:10:44 +02:00
parent ee57348a50
commit 721f628919
11 changed files with 1906 additions and 1849 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
app/DD_PM_WINDREAM/ClassInit.vb
View File

@ -182,43 +182,68 @@ Public Class ClassInit
USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")) USER_RIGHT_FILE_DELETE = IIf(IsDBNull(DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL")), False, DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT_FILE_DEL"))
USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT") USER_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN")
Try
FORCE_LAYOUT_OVERVIEW = DT_CHECKUSER_MODULE.Rows(0).Item("PM_FORCE_LAYOUT_OVERVIEW")
Catch ex As Exception
FORCE_LAYOUT_OVERVIEW = False
End Try
Try Try
WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE") WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
Catch ex As Exception Catch ex As Exception
WORKING_MODE = "" WORKING_MODE = ""
End Try End Try
LOGGER.Debug("User exists....") If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
'Am System anmelden FORCE_LAYOUT_OVERVIEW = True
Refresh_Licence() End If
'Check_User_Exists_in_PMGroups() If WORKING_MODE.Contains("PM#NO_CHARTS") Then
SHOW_CHARTS = False
If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then Else
USERCOUNT_LOGGED_IN += 1 SHOW_CHARTS = True
End If End If
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) Try
'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'" USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1")
'ClassDatabase.Execute_non_Query(sql, True) Catch ex As Exception
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString) USER_RIGHT1 = False
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then End Try
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") Try
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!") USER_RIGHT2 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2")
If USER_IS_ADMIN = False Then Catch ex As Exception
ClassAllgemeineFunktionen.LoginOut("LOGOUT") USER_RIGHT2 = False
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE") End Try
ERROR_STATE = "START INCOMPLETE" Try
USER_RIGHT3 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT3")
Catch ex As Exception
USER_RIGHT3 = False
End Try
Try
USER_RIGHT4 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT4")
Catch ex As Exception
USER_RIGHT4 = False
End Try
LOGGER.Debug("User exists....")
'Am System anmelden
Refresh_Licence()
'Check_User_Exists_in_PMGroups()
If ClassAllgemeineFunktionen.LoginOut("LOGIN") = True Then
USERCOUNT_LOGGED_IN += 1
End If End If
'sql = String.Format("SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('Process-Manager') AND CLIENT_ID = {0}", 1)
' USERCOUNT_LOGGED_IN = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True)
'sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND MODULE = 'Process-Manager'"
'ClassDatabase.Execute_non_Query(sql, True)
LOGGER.Debug("Count Users logged in: " & USERCOUNT_LOGGED_IN.ToString)
If LICENSE_COUNT < USERCOUNT_LOGGED_IN And LICENSE_EXPIRED = False Then
MsgBox("Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
LOGGER.Info(" >> Die Anzahl der aktuell angemeldeten User (" & USERCOUNT_LOGGED_IN.ToString & ") überschreitet die Anzahl der Lizenzen (" & LICENSE_COUNT & ") für Process Manager!")
If USER_IS_ADMIN = False Then
ClassAllgemeineFunktionen.LoginOut("LOGOUT")
LOGGER.Info(" - Wieder abgemeldet - START INCOMPLETE")
ERROR_STATE = "START INCOMPLETE"
End If
End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug("Init Userlogin successfull completed....")
End If End If
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
LOGGER.Debug("Init Userlogin successfull completed....")
End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True) LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)

6
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -35,8 +35,14 @@ Module ModuleRuntimeVariables
Public USER_EXISTS = False Public USER_EXISTS = False
Public USER_IN_MODULE = False Public USER_IN_MODULE = False
Public USER_RIGHT_FILE_DELETE As Boolean = False Public USER_RIGHT_FILE_DELETE As Boolean = False
Public USER_RIGHT1 As Boolean = False
Public USER_RIGHT2 As Boolean = False
Public USER_RIGHT3 As Boolean = False
Public USER_RIGHT4 As Boolean = False
Public FORCE_LAYOUT_OVERVIEW As Boolean = False Public FORCE_LAYOUT_OVERVIEW As Boolean = False
Public SHOW_CHARTS As Boolean = False
Public WORKING_MODE As String = "" Public WORKING_MODE As String = ""
Public LICENSE_COUNT As Integer = 0 Public LICENSE_COUNT As Integer = 0

269
app/DD_PM_WINDREAM/frmAdministration.Designer.vb generated
View File

@ -33,7 +33,6 @@ Partial Class frmAdministration
Dim ADDED_WHENLabel As System.Windows.Forms.Label Dim ADDED_WHENLabel As System.Windows.Forms.Label
Dim CHANGED_WHOLabel As System.Windows.Forms.Label Dim CHANGED_WHOLabel As System.Windows.Forms.Label
Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim FINAL_TEXTLabel As System.Windows.Forms.Label
Dim TITLELabel As System.Windows.Forms.Label Dim TITLELabel As System.Windows.Forms.Label
Dim INTERVALL_CKECK_NO_OF_FILESLabel As System.Windows.Forms.Label Dim INTERVALL_CKECK_NO_OF_FILESLabel As System.Windows.Forms.Label
Dim GEAENDERTWERLabel As System.Windows.Forms.Label Dim GEAENDERTWERLabel As System.Windows.Forms.Label
@ -44,13 +43,10 @@ Partial Class frmAdministration
Dim EMAIL_PWLabel As System.Windows.Forms.Label Dim EMAIL_PWLabel As System.Windows.Forms.Label
Dim EMAIL_REMINDER_HEADERLabel As System.Windows.Forms.Label Dim EMAIL_REMINDER_HEADERLabel As System.Windows.Forms.Label
Dim EMAIL_REMINDER_FOOTERLabel As System.Windows.Forms.Label Dim EMAIL_REMINDER_FOOTERLabel As System.Windows.Forms.Label
Dim Label12 As System.Windows.Forms.Label
Dim Label7 As System.Windows.Forms.Label
Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label Dim VEKTOR_DELIMITERLabel As System.Windows.Forms.Label
Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label Dim WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label
Dim SQL_VIEWLabel As System.Windows.Forms.Label Dim SQL_VIEWLabel As System.Windows.Forms.Label
Dim DISPLAY_MODELabel As System.Windows.Forms.Label Dim DISPLAY_MODELabel As System.Windows.Forms.Label
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer() Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer()
Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl() Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPROFILE_USERBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -117,10 +113,8 @@ Partial Class frmAdministration
Me.tsbtndeleteProfil = New System.Windows.Forms.ToolStripButton() Me.tsbtndeleteProfil = New System.Windows.Forms.ToolStripButton()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.cmbObjekttypen = New System.Windows.Forms.ComboBox() Me.cmbObjekttypen = New System.Windows.Forms.ComboBox()
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox() Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox()
Me.FINAL_TEXTTextBox = New System.Windows.Forms.TextBox() Me.FINAL_TEXTTextBox = New System.Windows.Forms.TextBox()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.cmbType = New System.Windows.Forms.ComboBox() Me.cmbType = New System.Windows.Forms.ComboBox()
Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
@ -236,25 +230,6 @@ Partial Class frmAdministration
Me.GEAENDERTWERTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox() Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.btnSaveKonfig = New System.Windows.Forms.Button() Me.btnSaveKonfig = New System.Windows.Forms.Button()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.TBPM_ERROR_LOGDataGridView = New System.Windows.Forms.DataGridView()
Me.DataGridViewTextBoxColumn17 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn22 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn23 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn24 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn25 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.TBPM_ERROR_LOGBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_ERROR_LOGBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorCountItem3 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorDeleteItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveFirstItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorPositionItem3 = New System.Windows.Forms.ToolStripTextBox()
Me.BindingNavigatorSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorMoveNextItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem3 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
@ -263,7 +238,6 @@ Partial Class frmAdministration
Me.TBDD_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter() Me.TBDD_USERTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter()
Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
Me.pnlMain = New System.Windows.Forms.Panel() Me.pnlMain = New System.Windows.Forms.Panel()
Me.TBPM_ERROR_LOGTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter()
Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
@ -273,6 +247,9 @@ Partial Class frmAdministration
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog() Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter() Me.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.ToolTip1 = New System.Windows.Forms.ToolTip(Me.components)
GUIDLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label()
NAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label()
DESCRIPTIONLabel = New System.Windows.Forms.Label() DESCRIPTIONLabel = New System.Windows.Forms.Label()
@ -282,7 +259,6 @@ Partial Class frmAdministration
ADDED_WHENLabel = New System.Windows.Forms.Label() ADDED_WHENLabel = New System.Windows.Forms.Label()
CHANGED_WHOLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label()
CHANGED_WHENLabel = New System.Windows.Forms.Label() CHANGED_WHENLabel = New System.Windows.Forms.Label()
FINAL_TEXTLabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label() TITLELabel = New System.Windows.Forms.Label()
INTERVALL_CKECK_NO_OF_FILESLabel = New System.Windows.Forms.Label() INTERVALL_CKECK_NO_OF_FILESLabel = New System.Windows.Forms.Label()
GEAENDERTWERLabel = New System.Windows.Forms.Label() GEAENDERTWERLabel = New System.Windows.Forms.Label()
@ -293,8 +269,6 @@ Partial Class frmAdministration
EMAIL_PWLabel = New System.Windows.Forms.Label() EMAIL_PWLabel = New System.Windows.Forms.Label()
EMAIL_REMINDER_HEADERLabel = New System.Windows.Forms.Label() EMAIL_REMINDER_HEADERLabel = New System.Windows.Forms.Label()
EMAIL_REMINDER_FOOTERLabel = New System.Windows.Forms.Label() EMAIL_REMINDER_FOOTERLabel = New System.Windows.Forms.Label()
Label12 = New System.Windows.Forms.Label()
Label7 = New System.Windows.Forms.Label()
VEKTOR_DELIMITERLabel = New System.Windows.Forms.Label() VEKTOR_DELIMITERLabel = New System.Windows.Forms.Label()
WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label() WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label()
SQL_VIEWLabel = New System.Windows.Forms.Label() SQL_VIEWLabel = New System.Windows.Forms.Label()
@ -328,8 +302,6 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPM_PROFILEBindingNavigator.SuspendLayout() Me.TBPM_PROFILEBindingNavigator.SuspendLayout()
Me.GroupBox4.SuspendLayout()
Me.GroupBox2.SuspendLayout()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout() Me.GroupBox3.SuspendLayout()
CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
@ -365,11 +337,6 @@ Partial Class frmAdministration
Me.grpbxEmail.SuspendLayout() Me.grpbxEmail.SuspendLayout()
Me.GroupBox5.SuspendLayout() Me.GroupBox5.SuspendLayout()
CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage4.SuspendLayout()
CType(Me.TBPM_ERROR_LOGDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_ERROR_LOGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_ERROR_LOGBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPM_ERROR_LOGBindingNavigator.SuspendLayout()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.StatusStrip1.SuspendLayout() Me.StatusStrip1.SuspendLayout()
@ -718,11 +685,6 @@ Partial Class frmAdministration
resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel") resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel" CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
' '
'FINAL_TEXTLabel
'
resources.ApplyResources(FINAL_TEXTLabel, "FINAL_TEXTLabel")
FINAL_TEXTLabel.Name = "FINAL_TEXTLabel"
'
'TITLELabel 'TITLELabel
' '
resources.ApplyResources(TITLELabel, "TITLELabel") resources.ApplyResources(TITLELabel, "TITLELabel")
@ -773,16 +735,6 @@ Partial Class frmAdministration
resources.ApplyResources(EMAIL_REMINDER_FOOTERLabel, "EMAIL_REMINDER_FOOTERLabel") resources.ApplyResources(EMAIL_REMINDER_FOOTERLabel, "EMAIL_REMINDER_FOOTERLabel")
EMAIL_REMINDER_FOOTERLabel.Name = "EMAIL_REMINDER_FOOTERLabel" EMAIL_REMINDER_FOOTERLabel.Name = "EMAIL_REMINDER_FOOTERLabel"
' '
'Label12
'
resources.ApplyResources(Label12, "Label12")
Label12.Name = "Label12"
'
'Label7
'
resources.ApplyResources(Label7, "Label7")
Label7.Name = "Label7"
'
'VEKTOR_DELIMITERLabel 'VEKTOR_DELIMITERLabel
' '
resources.ApplyResources(VEKTOR_DELIMITERLabel, "VEKTOR_DELIMITERLabel") resources.ApplyResources(VEKTOR_DELIMITERLabel, "VEKTOR_DELIMITERLabel")
@ -977,16 +929,6 @@ Partial Class frmAdministration
Me.cmbObjekttypen.FormattingEnabled = True Me.cmbObjekttypen.FormattingEnabled = True
Me.cmbObjekttypen.Name = "cmbObjekttypen" Me.cmbObjekttypen.Name = "cmbObjekttypen"
' '
'GroupBox4
'
Me.GroupBox4.Controls.Add(Me.FINAL_PROFILECheckBox)
Me.GroupBox4.Controls.Add(FINAL_TEXTLabel)
Me.GroupBox4.Controls.Add(Me.FINAL_TEXTTextBox)
resources.ApplyResources(Me.GroupBox4, "GroupBox4")
Me.GroupBox4.ForeColor = System.Drawing.Color.DarkRed
Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.TabStop = False
'
'FINAL_PROFILECheckBox 'FINAL_PROFILECheckBox
' '
Me.FINAL_PROFILECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "FINAL_PROFILE", True)) Me.FINAL_PROFILECheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "FINAL_PROFILE", True))
@ -1000,14 +942,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.FINAL_TEXTTextBox, "FINAL_TEXTTextBox") resources.ApplyResources(Me.FINAL_TEXTTextBox, "FINAL_TEXTTextBox")
Me.FINAL_TEXTTextBox.Name = "FINAL_TEXTTextBox" Me.FINAL_TEXTTextBox.Name = "FINAL_TEXTTextBox"
' '
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Label1)
Me.GroupBox2.Controls.Add(Me.cmbType)
resources.ApplyResources(Me.GroupBox2, "GroupBox2")
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.TabStop = False
'
'Label1 'Label1
' '
resources.ApplyResources(Me.Label1, "Label1") resources.ApplyResources(Me.Label1, "Label1")
@ -1148,7 +1082,6 @@ Partial Class frmAdministration
Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage1)
Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage2)
Me.TabControl1.Controls.Add(Me.TabPage3) Me.TabControl1.Controls.Add(Me.TabPage3)
Me.TabControl1.Controls.Add(Me.TabPage4)
resources.ApplyResources(Me.TabControl1, "TabControl1") resources.ApplyResources(Me.TabControl1, "TabControl1")
Me.TabControl1.Name = "TabControl1" Me.TabControl1.Name = "TabControl1"
Me.TabControl1.SelectedIndex = 0 Me.TabControl1.SelectedIndex = 0
@ -1162,7 +1095,9 @@ Partial Class frmAdministration
Me.TabPage1.Controls.Add(Me.TITLETextBox) Me.TabPage1.Controls.Add(Me.TITLETextBox)
Me.TabPage1.Controls.Add(Me.PROFILGUIDTextBox) Me.TabPage1.Controls.Add(Me.PROFILGUIDTextBox)
Me.TabPage1.Controls.Add(Me.ACTIVECheckBox) Me.TabPage1.Controls.Add(Me.ACTIVECheckBox)
Me.TabPage1.Controls.Add(Me.GridControl1)
Me.TabPage1.Controls.Add(NAMELabel) Me.TabPage1.Controls.Add(NAMELabel)
Me.TabPage1.Controls.Add(Me.SORT_BY_LATESTCheckBox)
Me.TabPage1.Controls.Add(Me.NAMETextBox) Me.TabPage1.Controls.Add(Me.NAMETextBox)
resources.ApplyResources(Me.TabPage1, "TabPage1") resources.ApplyResources(Me.TabPage1, "TabPage1")
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
@ -1179,26 +1114,26 @@ Partial Class frmAdministration
'TabPage5 'TabPage5
' '
resources.ApplyResources(Me.TabPage5, "TabPage5") resources.ApplyResources(Me.TabPage5, "TabPage5")
Me.TabPage5.Controls.Add(Me.Label1)
Me.TabPage5.Controls.Add(Me.Label9)
Me.TabPage5.Controls.Add(Me.cmbType)
Me.TabPage5.Controls.Add(Me.Label4)
Me.TabPage5.Controls.Add(Me.FINAL_TEXTTextBox)
Me.TabPage5.Controls.Add(Me.FINAL_PROFILECheckBox)
Me.TabPage5.Controls.Add(DISPLAY_MODELabel) Me.TabPage5.Controls.Add(DISPLAY_MODELabel)
Me.TabPage5.Controls.Add(Me.DISPLAY_MODEComboBox) Me.TabPage5.Controls.Add(Me.DISPLAY_MODEComboBox)
Me.TabPage5.Controls.Add(Me.GridControl1)
Me.TabPage5.Controls.Add(Me.cmbLOGIndex) Me.TabPage5.Controls.Add(Me.cmbLOGIndex)
Me.TabPage5.Controls.Add(Label7)
Me.TabPage5.Controls.Add(Me.PM_VEKTOR_INDEXComboBox) Me.TabPage5.Controls.Add(Me.PM_VEKTOR_INDEXComboBox)
Me.TabPage5.Controls.Add(Label12)
Me.TabPage5.Controls.Add(Me.Label2) Me.TabPage5.Controls.Add(Me.Label2)
Me.TabPage5.Controls.Add(Me.SORT_BY_LATESTCheckBox)
Me.TabPage5.Controls.Add(Me.DESCRIPTIONTextBox) Me.TabPage5.Controls.Add(Me.DESCRIPTIONTextBox)
Me.TabPage5.Controls.Add(DESCRIPTIONLabel) Me.TabPage5.Controls.Add(DESCRIPTIONLabel)
Me.TabPage5.Controls.Add(WD_SEARCHLabel) Me.TabPage5.Controls.Add(WD_SEARCHLabel)
Me.TabPage5.Controls.Add(Me.cmbObjekttypen) Me.TabPage5.Controls.Add(Me.cmbObjekttypen)
Me.TabPage5.Controls.Add(Me.WD_SEARCHTextBox) Me.TabPage5.Controls.Add(Me.WD_SEARCHTextBox)
Me.TabPage5.Controls.Add(PRIORITYLabel) Me.TabPage5.Controls.Add(PRIORITYLabel)
Me.TabPage5.Controls.Add(Me.GroupBox4)
Me.TabPage5.Controls.Add(ADDED_WHOLabel) Me.TabPage5.Controls.Add(ADDED_WHOLabel)
Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox) Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox)
Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox) Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox)
Me.TabPage5.Controls.Add(Me.GroupBox2)
Me.TabPage5.Controls.Add(ADDED_WHENLabel) Me.TabPage5.Controls.Add(ADDED_WHENLabel)
Me.TabPage5.Controls.Add(CHANGED_WHENLabel) Me.TabPage5.Controls.Add(CHANGED_WHENLabel)
Me.TabPage5.Controls.Add(Me.btnWDSuche) Me.TabPage5.Controls.Add(Me.btnWDSuche)
@ -1852,138 +1787,6 @@ Partial Class frmAdministration
Me.btnSaveKonfig.Name = "btnSaveKonfig" Me.btnSaveKonfig.Name = "btnSaveKonfig"
Me.btnSaveKonfig.UseVisualStyleBackColor = True Me.btnSaveKonfig.UseVisualStyleBackColor = True
' '
'TabPage4
'
Me.TabPage4.Controls.Add(Me.TBPM_ERROR_LOGDataGridView)
Me.TabPage4.Controls.Add(Me.TBPM_ERROR_LOGBindingNavigator)
resources.ApplyResources(Me.TabPage4, "TabPage4")
Me.TabPage4.Name = "TabPage4"
Me.TabPage4.UseVisualStyleBackColor = True
'
'TBPM_ERROR_LOGDataGridView
'
Me.TBPM_ERROR_LOGDataGridView.AllowUserToAddRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan
Me.TBPM_ERROR_LOGDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
Me.TBPM_ERROR_LOGDataGridView.AutoGenerateColumns = False
Me.TBPM_ERROR_LOGDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.TBPM_ERROR_LOGDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn17, Me.DataGridViewTextBoxColumn22, Me.DataGridViewTextBoxColumn23, Me.DataGridViewTextBoxColumn24, Me.DataGridViewTextBoxColumn25})
Me.TBPM_ERROR_LOGDataGridView.DataSource = Me.TBPM_ERROR_LOGBindingSource
resources.ApplyResources(Me.TBPM_ERROR_LOGDataGridView, "TBPM_ERROR_LOGDataGridView")
Me.TBPM_ERROR_LOGDataGridView.Name = "TBPM_ERROR_LOGDataGridView"
Me.TBPM_ERROR_LOGDataGridView.ReadOnly = True
'
'DataGridViewTextBoxColumn17
'
Me.DataGridViewTextBoxColumn17.DataPropertyName = "GUID"
resources.ApplyResources(Me.DataGridViewTextBoxColumn17, "DataGridViewTextBoxColumn17")
Me.DataGridViewTextBoxColumn17.Name = "DataGridViewTextBoxColumn17"
Me.DataGridViewTextBoxColumn17.ReadOnly = True
'
'DataGridViewTextBoxColumn22
'
Me.DataGridViewTextBoxColumn22.DataPropertyName = "PROFIL_ID"
resources.ApplyResources(Me.DataGridViewTextBoxColumn22, "DataGridViewTextBoxColumn22")
Me.DataGridViewTextBoxColumn22.Name = "DataGridViewTextBoxColumn22"
Me.DataGridViewTextBoxColumn22.ReadOnly = True
'
'DataGridViewTextBoxColumn23
'
Me.DataGridViewTextBoxColumn23.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
Me.DataGridViewTextBoxColumn23.DataPropertyName = "ERROR_MSG"
resources.ApplyResources(Me.DataGridViewTextBoxColumn23, "DataGridViewTextBoxColumn23")
Me.DataGridViewTextBoxColumn23.Name = "DataGridViewTextBoxColumn23"
Me.DataGridViewTextBoxColumn23.ReadOnly = True
'
'DataGridViewTextBoxColumn24
'
Me.DataGridViewTextBoxColumn24.DataPropertyName = "ADDED_WHO"
resources.ApplyResources(Me.DataGridViewTextBoxColumn24, "DataGridViewTextBoxColumn24")
Me.DataGridViewTextBoxColumn24.Name = "DataGridViewTextBoxColumn24"
Me.DataGridViewTextBoxColumn24.ReadOnly = True
'
'DataGridViewTextBoxColumn25
'
Me.DataGridViewTextBoxColumn25.DataPropertyName = "ADDED_WHEN"
resources.ApplyResources(Me.DataGridViewTextBoxColumn25, "DataGridViewTextBoxColumn25")
Me.DataGridViewTextBoxColumn25.Name = "DataGridViewTextBoxColumn25"
Me.DataGridViewTextBoxColumn25.ReadOnly = True
'
'TBPM_ERROR_LOGBindingSource
'
Me.TBPM_ERROR_LOGBindingSource.DataMember = "TBPM_ERROR_LOG"
Me.TBPM_ERROR_LOGBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'TBPM_ERROR_LOGBindingNavigator
'
Me.TBPM_ERROR_LOGBindingNavigator.AddNewItem = Nothing
Me.TBPM_ERROR_LOGBindingNavigator.BindingSource = Me.TBPM_ERROR_LOGBindingSource
Me.TBPM_ERROR_LOGBindingNavigator.CountItem = Me.BindingNavigatorCountItem3
Me.TBPM_ERROR_LOGBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem1
Me.TBPM_ERROR_LOGBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBPM_ERROR_LOGBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem3, Me.BindingNavigatorMovePreviousItem3, Me.BindingNavigatorSeparator9, Me.BindingNavigatorPositionItem3, Me.BindingNavigatorCountItem3, Me.BindingNavigatorSeparator10, Me.BindingNavigatorMoveNextItem3, Me.BindingNavigatorMoveLastItem3, Me.BindingNavigatorSeparator11, Me.BindingNavigatorDeleteItem1})
resources.ApplyResources(Me.TBPM_ERROR_LOGBindingNavigator, "TBPM_ERROR_LOGBindingNavigator")
Me.TBPM_ERROR_LOGBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem3
Me.TBPM_ERROR_LOGBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem3
Me.TBPM_ERROR_LOGBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem3
Me.TBPM_ERROR_LOGBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem3
Me.TBPM_ERROR_LOGBindingNavigator.Name = "TBPM_ERROR_LOGBindingNavigator"
Me.TBPM_ERROR_LOGBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem3
'
'BindingNavigatorCountItem3
'
Me.BindingNavigatorCountItem3.Name = "BindingNavigatorCountItem3"
resources.ApplyResources(Me.BindingNavigatorCountItem3, "BindingNavigatorCountItem3")
'
'BindingNavigatorDeleteItem1
'
resources.ApplyResources(Me.BindingNavigatorDeleteItem1, "BindingNavigatorDeleteItem1")
Me.BindingNavigatorDeleteItem1.Name = "BindingNavigatorDeleteItem1"
'
'BindingNavigatorMoveFirstItem3
'
Me.BindingNavigatorMoveFirstItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem3, "BindingNavigatorMoveFirstItem3")
Me.BindingNavigatorMoveFirstItem3.Name = "BindingNavigatorMoveFirstItem3"
'
'BindingNavigatorMovePreviousItem3
'
Me.BindingNavigatorMovePreviousItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem3, "BindingNavigatorMovePreviousItem3")
Me.BindingNavigatorMovePreviousItem3.Name = "BindingNavigatorMovePreviousItem3"
'
'BindingNavigatorSeparator9
'
Me.BindingNavigatorSeparator9.Name = "BindingNavigatorSeparator9"
resources.ApplyResources(Me.BindingNavigatorSeparator9, "BindingNavigatorSeparator9")
'
'BindingNavigatorPositionItem3
'
resources.ApplyResources(Me.BindingNavigatorPositionItem3, "BindingNavigatorPositionItem3")
Me.BindingNavigatorPositionItem3.Name = "BindingNavigatorPositionItem3"
'
'BindingNavigatorSeparator10
'
Me.BindingNavigatorSeparator10.Name = "BindingNavigatorSeparator10"
resources.ApplyResources(Me.BindingNavigatorSeparator10, "BindingNavigatorSeparator10")
'
'BindingNavigatorMoveNextItem3
'
Me.BindingNavigatorMoveNextItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem3, "BindingNavigatorMoveNextItem3")
Me.BindingNavigatorMoveNextItem3.Name = "BindingNavigatorMoveNextItem3"
'
'BindingNavigatorMoveLastItem3
'
Me.BindingNavigatorMoveLastItem3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem3, "BindingNavigatorMoveLastItem3")
Me.BindingNavigatorMoveLastItem3.Name = "BindingNavigatorMoveLastItem3"
'
'BindingNavigatorSeparator11
'
Me.BindingNavigatorSeparator11.Name = "BindingNavigatorSeparator11"
resources.ApplyResources(Me.BindingNavigatorSeparator11, "BindingNavigatorSeparator11")
'
'TBDD_CONNECTIONBindingSource 'TBDD_CONNECTIONBindingSource
' '
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION" Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
@ -2025,10 +1828,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.pnlMain, "pnlMain") resources.ApplyResources(Me.pnlMain, "pnlMain")
Me.pnlMain.Name = "pnlMain" Me.pnlMain.Name = "pnlMain"
' '
'TBPM_ERROR_LOGTableAdapter
'
Me.TBPM_ERROR_LOGTableAdapter.ClearBeforeFill = True
'
'TBPM_PROFILE_CONTROLSTableAdapter 'TBPM_PROFILE_CONTROLSTableAdapter
' '
Me.TBPM_PROFILE_CONTROLSTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_CONTROLSTableAdapter.ClearBeforeFill = True
@ -2066,6 +1865,16 @@ Partial Class frmAdministration
' '
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter.ClearBeforeFill = True
' '
'Label4
'
resources.ApplyResources(Me.Label4, "Label4")
Me.Label4.Name = "Label4"
'
'Label9
'
resources.ApplyResources(Me.Label9, "Label9")
Me.Label9.Name = "Label9"
'
'frmAdministration 'frmAdministration
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -2103,10 +1912,6 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False) Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False)
Me.TBPM_PROFILEBindingNavigator.PerformLayout() Me.TBPM_PROFILEBindingNavigator.PerformLayout()
Me.GroupBox4.ResumeLayout(False)
Me.GroupBox4.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout() Me.GroupBox3.PerformLayout()
@ -2151,13 +1956,6 @@ Partial Class frmAdministration
Me.GroupBox5.ResumeLayout(False) Me.GroupBox5.ResumeLayout(False)
Me.GroupBox5.PerformLayout() Me.GroupBox5.PerformLayout()
CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.INTERVALL_CKECK_NO_OF_FILESNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage4.ResumeLayout(False)
Me.TabPage4.PerformLayout()
CType(Me.TBPM_ERROR_LOGDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_ERROR_LOGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_ERROR_LOGBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBPM_ERROR_LOGBindingNavigator.ResumeLayout(False)
Me.TBPM_ERROR_LOGBindingNavigator.PerformLayout()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.ResumeLayout(False)
@ -2210,9 +2008,7 @@ Partial Class frmAdministration
Friend WithEvents btnmovetoFolderDialog As System.Windows.Forms.Button Friend WithEvents btnmovetoFolderDialog As System.Windows.Forms.Button
Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
Friend WithEvents MOVE2FOLDERTextBox As System.Windows.Forms.TextBox Friend WithEvents MOVE2FOLDERTextBox As System.Windows.Forms.TextBox
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
@ -2238,21 +2034,6 @@ Partial Class frmAdministration
Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents pnlMain As System.Windows.Forms.Panel Friend WithEvents pnlMain As System.Windows.Forms.Panel
Friend WithEvents SORT_BY_LATESTCheckBox As System.Windows.Forms.CheckBox Friend WithEvents SORT_BY_LATESTCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
Friend WithEvents TBPM_ERROR_LOGBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents BindingNavigatorCountItem3 As System.Windows.Forms.ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem1 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem3 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem3 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator9 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem3 As System.Windows.Forms.ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator10 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem3 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem3 As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator11 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_ERROR_LOGBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_ERROR_LOGTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_ERROR_LOGTableAdapter
Friend WithEvents TBPM_ERROR_LOGDataGridView As System.Windows.Forms.DataGridView
Friend WithEvents tabctrl_Profilkonfig As System.Windows.Forms.TabControl Friend WithEvents tabctrl_Profilkonfig As System.Windows.Forms.TabControl
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
@ -2283,11 +2064,6 @@ Partial Class frmAdministration
Friend WithEvents btnConnections As System.Windows.Forms.Button Friend WithEvents btnConnections As System.Windows.Forms.Button
Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox
Friend WithEvents VEKTOR_DELIMITERTextBox As System.Windows.Forms.TextBox Friend WithEvents VEKTOR_DELIMITERTextBox As System.Windows.Forms.TextBox
Friend WithEvents DataGridViewTextBoxColumn17 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn22 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn23 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn24 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewTextBoxColumn25 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents Button2 As System.Windows.Forms.Button Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label13 As System.Windows.Forms.Label Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn
@ -2391,4 +2167,7 @@ Partial Class frmAdministration
Friend WithEvents colALLOW_NEW_VALUES As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colALLOW_NEW_VALUES As DevExpress.XtraGrid.Columns.GridColumn
Friend WithEvents btnSQLProfilehome As Button Friend WithEvents btnSQLProfilehome As Button
Friend WithEvents DISPLAY_MODEComboBox As ComboBox Friend WithEvents DISPLAY_MODEComboBox As ComboBox
Friend WithEvents Label9 As Label
Friend WithEvents Label4 As Label
Friend WithEvents ToolTip1 As ToolTip
End Class End Class

1972
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

30
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -28,7 +28,7 @@ Public Class frmAdministration
TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPROFILE_GROUPTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_FINAL_INDEXINGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_ERROR_LOGTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_CONTROLSTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILE_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
@ -432,28 +432,8 @@ Public Class frmAdministration
Else Else
FillProfile_User(PROFILGUIDTextBox.Text) FillProfile_User(PROFILGUIDTextBox.Text)
End If End If
Case 3
Refresh_log()
End Select End Select
End Sub End Sub
Private Sub BindingNavigatorDeleteItem1_Click(sender As System.Object, e As System.EventArgs) Handles BindingNavigatorDeleteItem1.Click
Try
TBPM_ERROR_LOGTableAdapter.CmdDelete()
Refresh_log()
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Delete Log:")
End Try
End Sub
Sub Refresh_log()
Try
Me.TBPM_ERROR_LOGTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBPM_ERROR_LOG)
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler bei Refresh Error:")
End Try
End Sub
'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) 'Private Sub cmbIndexe_SelectedIndexChanged(sender As System.Object, e As System.EventArgs)
' If cmbIndexe.SelectedIndex <> -1 Then ' If cmbIndexe.SelectedIndex <> -1 Then
' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text)) ' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
@ -1172,4 +1152,12 @@ Public Class frmAdministration
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
End Sub End Sub
Private Sub PM_VEKTOR_INDEXComboBox_MouseHover(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.MouseHover
ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für die Kennzeichnung der PM-Indizes verwenden wollen:", PM_VEKTOR_INDEXComboBox)
End Sub
Private Sub cmbLOGIndex_MouseHover(sender As Object, e As EventArgs) Handles cmbLOGIndex.MouseHover
ToolTip1.Show("Bitte wählen Sie hier den Vektor-Index den Sie für das Loggen der Wertänderungen nutzen wollen:", cmbLOGIndex)
End Sub
End Class End Class

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

@ -41,8 +41,6 @@ Partial Class frmMain
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton() Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator() Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
@ -94,6 +92,7 @@ Partial Class frmMain
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TimerReminder = New System.Windows.Forms.Timer(Me.components) Me.TimerReminder = New System.Windows.Forms.Timer(Me.components)
Me.Timer5Mins = New System.Windows.Forms.Timer(Me.components)
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout() Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout() Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -268,19 +267,9 @@ Partial Class frmMain
' '
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20) Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.ToolStripSeparator2, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator1, Me.tstrpbtn_Config, Me.tsbtnrefresh})
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
' '
'ToolStripLabel1
'
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
Me.ToolStripLabel1.Name = "ToolStripLabel1"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
'
'ToolStripButton2 'ToolStripButton2
' '
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
@ -617,6 +606,11 @@ Partial Class frmMain
'TimerReminder 'TimerReminder
' '
' '
'Timer5Mins
'
Me.Timer5Mins.Enabled = True
Me.Timer5Mins.Interval = 350000
'
'frmMain 'frmMain
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
@ -673,7 +667,6 @@ Partial Class frmMain
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip
Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel
Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip Friend WithEvents StatusStrip1 As System.Windows.Forms.StatusStrip
Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
@ -685,7 +678,6 @@ Partial Class frmMain
Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter Friend WithEvents TBPM_USERTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_USERTableAdapter
Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter Friend WithEvents TBPM_KONFIGURATIONTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel
@ -737,4 +729,5 @@ Partial Class frmMain
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem
Friend WithEvents Timer5Mins As Timer
End Class End Class

237
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -488,7 +488,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAATwBBAE8AQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAUwBBAFMAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -547,42 +547,6 @@
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing"> <data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value> <value>Tahoma, 9pt</value>
</data> </data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 27</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="ToolStrip1.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="ToolStripLabel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt, style=Bold, Italic</value>
</data>
<data name="ToolStripLabel1.Size" type="System.Drawing.Size, System.Drawing">
<value>105, 24</value>
</data>
<data name="ToolStripLabel1.Text" xml:space="preserve">
<value>Übersicht-Profile</value>
</data>
<data name="ToolStripSeparator2.Size" type="System.Drawing.Size, System.Drawing">
<value>6, 27</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing"> <data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value> <value>Magenta</value>
</data> </data>
@ -628,36 +592,36 @@
<data name="tsbtnrefresh.Text" xml:space="preserve"> <data name="tsbtnrefresh.Text" xml:space="preserve">
<value>Aktualisieren</value> <value>Aktualisieren</value>
</data> </data>
<data name="ToolStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="ToolStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 27</value>
</data>
<data name="ToolStrip1.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="ToolStrip1.Text" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Name" xml:space="preserve">
<value>ToolStrip1</value>
</data>
<data name="&gt;&gt;ToolStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;ToolStrip1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1015, 17</value> <value>1015, 17</value>
</metadata> </metadata>
<data name="StatusStrip1.Font" type="System.Drawing.Font, System.Drawing"> <data name="StatusStrip1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value> <value>Tahoma, 9pt</value>
</data> </data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 498</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 29</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="StatusStrip1.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<data name="tsstlblUser.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsstlblUser.Size" type="System.Drawing.Size, System.Drawing">
<value>150, 24</value> <value>150, 24</value>
</data> </data>
@ -695,17 +659,86 @@
<value>No</value> <value>No</value>
</data> </data>
<data name="tsslblLastSysnc.Size" type="System.Drawing.Size, System.Drawing"> <data name="tsslblLastSysnc.Size" type="System.Drawing.Size, System.Drawing">
<value>127, 24</value> <value>43, 24</value>
</data> </data>
<data name="tsslblLastSysnc.Text" xml:space="preserve"> <data name="tsslblLastSysnc.Text" xml:space="preserve">
<value>Last Sync: NONE </value> <value>...</value>
</data> </data>
<data name="tslblmessage.Size" type="System.Drawing.Size, System.Drawing"> <data name="tslblmessage.Size" type="System.Drawing.Size, System.Drawing">
<value>0, 24</value> <value>0, 24</value>
</data> </data>
<data name="StatusStrip1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 498</value>
</data>
<data name="StatusStrip1.Size" type="System.Drawing.Size, System.Drawing">
<value>1023, 29</value>
</data>
<data name="StatusStrip1.TabIndex" type="System.Int32, mscorlib">
<value>3</value>
</data>
<data name="StatusStrip1.Text" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Name" xml:space="preserve">
<value>StatusStrip1</value>
</data>
<data name="&gt;&gt;StatusStrip1.Type" xml:space="preserve">
<value>System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;StatusStrip1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;StatusStrip1.ZOrder" xml:space="preserve">
<value>4</value>
</data>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>152, 95</value> <value>152, 95</value>
</metadata> </metadata>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="CMGroupStart.Text" xml:space="preserve">
<value>Validierung für Gruppe/Profil starten</value>
</data>
<data name="CMFileStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="CMFileStart.Text" xml:space="preserve">
<value>Validierung für Datei starten</value>
</data>
<data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value>
</data>
<data name="tsmiMarkedFilesFinish.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA
qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg
2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY
AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiMarkedFilesFinish.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="tsmiMarkedFilesFinish.Text" xml:space="preserve">
<value>Massenabschluss markierte Dateien</value>
</data>
<data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Layout zurücksetzen</value>
</data>
<data name="LayoutSpeichernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
<value>Layout speichern</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing"> <data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 146</value> <value>270, 146</value>
</data> </data>
@ -942,6 +975,12 @@
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>301, 95</value> <value>301, 95</value>
</metadata> </metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 30</value> <value>220, 30</value>
</data> </data>
@ -1166,57 +1205,6 @@
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="CMGroupStart.Text" xml:space="preserve">
<value>Validierung für Gruppe/Profil starten</value>
</data>
<data name="CMFileStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="CMFileStart.Text" xml:space="preserve">
<value>Validierung für Datei starten</value>
</data>
<data name="ToolStripSeparator4.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value>
</data>
<data name="tsmiMarkedFilesFinish.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAAM5JREFUOE9jwAa+fv3a8O3bt/9I+D0QCECl8QOQQpAG+fTl/xmC5/yvXnryP8hA
qDRhALJx1s4rYM38sYv+P3/zAcUlX758MYAqhQAkSbACEI1se2Rk5H8nJycwTklJ+f/8+XNUQ0CakDUg
2754xVq4ZpyGgPyHrAnZsI8fPv3/8P4jHOfl5mEagh5oyLYja0Y2AGYISB+GK2C2g/yObgAMwwwBhRfY
AJgrQAIgvHnzZrACbJpBGMMAZAAShCnAphmER5IBhDDtDCAef/sPAEGjQ6y45GCmAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsmiMarkedFilesFinish.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="tsmiMarkedFilesFinish.Text" xml:space="preserve">
<value>Massenabschluss markierte Dateien</value>
</data>
<data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="TabellenlayoutZurücksetzenToolStripMenuItem.Text" xml:space="preserve">
<value>Layout zurücksetzen</value>
</data>
<data name="LayoutSpeichernToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
<data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
<value>Layout speichern</value>
</data>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1132, 17</value> <value>1132, 17</value>
</metadata> </metadata>
@ -1416,6 +1404,9 @@
<metadata name="TimerReminder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TimerReminder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 95</value> <value>17, 95</value>
</metadata> </metadata>
<metadata name="Timer5Mins.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1335, 95</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value> <value>True</value>
</metadata> </metadata>
@ -1633,18 +1624,6 @@
<data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve"> <data name="&gt;&gt;TableAdapterManager.Type" xml:space="preserve">
<value>DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value> <value>DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null</value>
</data> </data>
<data name="&gt;&gt;ToolStripLabel1.Name" xml:space="preserve">
<value>ToolStripLabel1</value>
</data>
<data name="&gt;&gt;ToolStripLabel1.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripSeparator2.Name" xml:space="preserve">
<value>ToolStripSeparator2</value>
</data>
<data name="&gt;&gt;ToolStripSeparator2.Type" xml:space="preserve">
<value>System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve"> <data name="&gt;&gt;ToolStripButton2.Name" xml:space="preserve">
<value>ToolStripButton2</value> <value>ToolStripButton2</value>
</data> </data>
@ -1909,6 +1888,12 @@
<data name="&gt;&gt;TimerReminder.Type" xml:space="preserve"> <data name="&gt;&gt;TimerReminder.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Timer5Mins.Name" xml:space="preserve">
<value>Timer5Mins</value>
</data>
<data name="&gt;&gt;Timer5Mins.Type" xml:space="preserve">
<value>System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value> <value>frmMain</value>
</data> </data>

171
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -8,6 +8,7 @@ Imports DevExpress.XtraNavBar
Imports DevExpress.XtraGrid.Columns Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraCharts Imports DevExpress.XtraCharts
Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraEditors.Controls
Public Class frmMain Public Class frmMain
'Private _windreamPM As ClassPMWindream 'Private _windreamPM As ClassPMWindream
@ -123,8 +124,14 @@ Public Class frmMain
tstrpbtn_Config.Visible = False tstrpbtn_Config.Visible = False
End If End If
'Anzahl der eingeloggten User 'Anzahl der eingeloggten User
If USER_LANGUAGE <> "de-DE" Then
tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN
Else
tslblUserLoggedin.Text = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
tslblUserLoggedin.Text = "Anzahl User eingeloggt: " & USERCOUNT_LOGGED_IN
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -141,20 +148,25 @@ Public Class frmMain
If TimerRefresh.Enabled = False Then If TimerRefresh.Enabled = False Then
TimerRefresh.Start() TimerRefresh.Start()
End If End If
Timer5Mins.Start()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:") MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try End Try
Load_Profile_items() Load_Profile_items()
Try Try
If SHOW_CHARTS = True Then
Dim sql = "SELECT * FROM TBPM_CHART" Dim sql = "SELECT * FROM TBPM_CHART"
DT_CHARTS = ClassDatabase.Return_Datatable(sql) DT_CHARTS = ClassDatabase.Return_Datatable(sql)
If DT_CHARTS.Rows.Count = 0 Then If DT_CHARTS.Rows.Count = 0 Then
NavBarItemDashboard.Visible = False NavBarItemDashboard.Visible = False
Else
NavBarItemDashboard.Visible = True
End If
Else Else
NavBarItemDashboard.Visible = True NavBarItemDashboard.Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Warn($"Could not load Charts: {ex.Message}") LOGGER.Warn($"Could not load Charts: {ex.Message}")
End Try End Try
@ -320,9 +332,11 @@ Public Class frmMain
Throw New Exception("Could not load Profiles. Datatable is empty") Throw New Exception("Could not load Profiles. Datatable is empty")
Exit Sub Exit Sub
End If End If
Dim oCountItems As Integer = 0
For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows For Each oProfileRow As DataRow In CURR_DT_VWPM_PROFILE_ACTIVE.Rows
If CInt(oProfileRow.Item("FILE_COUNT")) > 0 And (oProfileRow.Item("DISPLAY_MODE") = "Overview and Detail" Or oProfileRow.Item("DISPLAY_MODE") = "Detail") Then If CInt(oProfileRow.Item("FILE_COUNT")) > 0 And (oProfileRow.Item("DISPLAY_MODE") = "Overview and Detail" Or oProfileRow.Item("DISPLAY_MODE") = "Detail") Then
oCountItems += 1
Dim item1 As NavBarItem = NavBarControl1.Items.Add() Dim item1 As NavBarItem = NavBarControl1.Items.Add()
item1.Caption = oProfileRow.Item("TITLE") item1.Caption = oProfileRow.Item("TITLE")
item1.Hint = oProfileRow.Item("TITLE") item1.Hint = oProfileRow.Item("TITLE")
@ -338,9 +352,17 @@ Public Class frmMain
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
End If End If
Next Next
If oCountItems > 0 Then
If NavBarControl1.Groups(1).Visible = False Then
NavBarControl1.Groups(1).Visible = True
End If
Else
If NavBarControl1.Groups(1).Visible = True Then
NavBarControl1.Groups(1).Visible = False
End If
End If
CurrGroup.Expanded = profileGroupOpen CurrGroup.Expanded = profileGroupOpen
@ -608,13 +630,10 @@ Public Class frmMain
NO_WORKFLOWITEMS = False NO_WORKFLOWITEMS = False
End If End If
Create_Basic_View() Create_Basic_View()
If InResetlayout = False Then
Dim Columns_Removed = GridView_CheckInvalidColumns()
End If
RestoreLayout() RestoreLayout()
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
@ -685,47 +704,58 @@ Public Class frmMain
End Sub End Sub
Private Function GridView_CheckInvalidColumns() As Boolean Private Function GridLayoutChanged() As Boolean
'If FORCE_LAYOUT_OVERVIEW = True Then
' Return False
'End If
Dim Columns_Removed = False
GRID_INV_COL_REMOVED = False
Try Try
For Each grid_column As GridColumn In GridView_Docs.Columns For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns
Dim GridDXCaption = grid_column.Caption If oViewColumn.Caption = "" Then
Dim GridDXTextCaption = grid_column.GetTextCaption Continue For
Dim GridDXColumnEditName = grid_column.ColumnEditName End If
Dim GridDXFieldName = grid_column.FieldName Dim oViewColumn_exists As Boolean = False
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
Dim exists As Boolean = False Dim oGridDXFieldName = oActGridColumn.FieldName
For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
Dim GridDXFieldName = oActGridColumn.FieldName
If col.Caption = GridDXTextCaption Then If oViewColumn.Caption = oGridDXFieldName Then
exists = True If oActGridColumn.Visible = False Then
Exit For If oViewColumn.Caption <> "GUID" And oViewColumn.Caption <> "TL_STATE" And oViewColumn.Caption <> "PROFILE_ID" And oViewColumn.Caption <> "DOC_ID" And
oViewColumn.Caption <> "FULL_FILE_PATH" And oViewColumn.Caption <> "GROUP_COLOR" And oViewColumn.Caption <> "GROUP_TEXT" Then
Console.WriteLine($"ViewColumn [{oViewColumn.Caption}] is invisible")
Else
oViewColumn_exists = True
End If
Else
oViewColumn_exists = True
End If
End If End If
Next Next
If exists = False Then If oViewColumn_exists = False Then
If grid_column.Visible = True Then LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
Try Return True
grid_column.Dispose() End If
Columns_Removed = True Next
GRID_INV_COL_REMOVED = True For Each oActGridColumn As GridColumn In GridView_Docs.Columns
Catch ex As Exception If oActGridColumn.Caption = "" Then
LOGGER.Error(ex) Continue For
End If
End Try Dim oGridColumn_exists As Boolean = False
Dim oGridDXFieldName = oActGridColumn.FieldName
End If For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns
If oViewColumn.Caption = oGridDXFieldName Then
oGridColumn_exists = True
End If
Next
If oGridColumn_exists = False Then
LOGGER.Info($"Following GridColumn no longer exists in the View: [{oGridDXFieldName}]")
Return True
End If End If
Next Next
Return Columns_Removed
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
LOGGER.Info("Unexpected Error in GridView_CheckInvalidColumns: " & ex.Message) LOGGER.Info("Unexpected Error in GridLayoutChanged: " & ex.Message)
Return False
End Try End Try
End Function End Function
'Sub LoadProfile_PM() 'Sub LoadProfile_PM()
' Try ' Try
' If Me.Visible = True And frmAdministration.Visible = False Then ' If Me.Visible = True And frmAdministration.Visible = False Then
@ -831,19 +861,15 @@ Public Class frmMain
SaveGridLayout() SaveGridLayout()
Load_Profile_items() Load_Profile_items()
Decide_Load() Decide_Load()
tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString If USER_LANGUAGE <> "de-DE" Then
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo() tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED) Else
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql) tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") + 1
If USER_LANGUAGE = "de-DE" Then
tslblUserLoggedin.Text = "User eingeloggt: " & USERCOUNT_LOGGED_IN
Else
tslblUserLoggedin.Text = "User logged in: " & USERCOUNT_LOGGED_IN
End If
End If End If
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
@ -867,7 +893,7 @@ Public Class frmMain
Load_single_Profile() Load_single_Profile()
End If End If
If WORKING_MODE <> "" Then If WORKING_MODE <> "" Then
If WORKING_MODE.Contains("PM NO MASS_VALIDATOR") Then If WORKING_MODE.Contains("PM#NO_MASS_VALIDATOR") Then
GridView_Docs.OptionsSelection.MultiSelect = False GridView_Docs.OptionsSelection.MultiSelect = False
tsmiMarkedFilesFinish.Visible = False tsmiMarkedFilesFinish.Visible = False
ToolStripSeparator4.Visible = False ToolStripSeparator4.Visible = False
@ -1185,6 +1211,11 @@ Public Class frmMain
Load_Grid_Overview() Load_Grid_Overview()
RefreshHelper.LoadViewInfo() RefreshHelper.LoadViewInfo()
End Sub End Sub
Private Sub GridView1_PopupMenuShowing(ByVal sender As Object, ByVal e As DevExpress.XtraGrid.Views.Grid.PopupMenuShowingEventArgs)
Dim view As GridView = TryCast(sender, GridView)
MsgBox(e.MenuType.ToString)
End Sub
Sub Load_Grid_Overview() Sub Load_Grid_Overview()
SplitContainerDashboard.Visible = False SplitContainerDashboard.Visible = False
Layout_Single_Profile() Layout_Single_Profile()
@ -1293,13 +1324,16 @@ Public Class frmMain
GridControl_Docs.DataSource = bindsourcegrid GridControl_Docs.DataSource = bindsourcegrid
ToolStripLabelViewTape.Text = "Gesamtübersicht" ToolStripLabelViewTape.Text = "Gesamtübersicht"
'GridControlDocRow.ForceInitialize() 'GridControlDocRow.ForceInitialize()
' GridControl1.DataSource = CURR_DT_PROFILEGRID ' GridControl1.DataSource = CURR_DT_PROFILEGRID
If InResetlayout = False Then If FORCE_LAYOUT_OVERVIEW = True And GridLayoutChanged() = True Then
Dim Columns_Removed = GridView_CheckInvalidColumns() ResetLayout()
SaveGridLayout()
Else
RestoreLayout()
End If End If
RestoreLayout()
Try Try
'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False 'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
@ -1558,4 +1592,17 @@ Public Class frmMain
Decide_Load() Decide_Load()
End Sub End Sub
Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
Dim sql = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", Environment.UserName, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
If DT_CHECKUSER_MODULE.Rows.Count = 1 Then
USERCOUNT_LOGGED_IN = DT_CHECKUSER_MODULE.Rows(0).Item("USERCOUNT_LOGGED_IN") + 1
If USER_LANGUAGE = "de-DE" Then
tslblUserLoggedin.Text = "License Count: " & USERCOUNT_LOGGED_IN
Else
tslblUserLoggedin.Text = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
End If
End Sub
End Class End Class

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

@ -22,11 +22,10 @@ Partial Class frmValidator
'Das Bearbeiten mit dem Code-Editor ist nicht möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator)) Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator))
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController()
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController()
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components) Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel() Me.tstrplblError = New System.Windows.Forms.ToolStripStatusLabel()
Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel() Me.tstrlbl_Info = New System.Windows.Forms.ToolStripStatusLabel()
@ -44,17 +43,17 @@ Partial Class frmValidator
Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter() Me.TBPM_PROFILE_CONTROLSTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter()
Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter() Me.TBPM_PROFILE_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter() Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.VWPM_CONTROL_INDEXBindingSource = New System.Windows.Forms.BindingSource()
Me.VWPM_CONTROL_INDEXTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter() Me.VWPM_CONTROL_INDEXTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.VWPM_CONTROL_INDEXTableAdapter()
Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource()
Me.pnlpdf = New System.Windows.Forms.Panel() Me.pnlpdf = New System.Windows.Forms.Panel()
Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer() Me.PdfViewer1 = New DevExpress.XtraPdfViewer.PdfViewer()
Me.BarManager1 = New DevExpress.XtraBars.BarManager(Me.components) Me.BarManager1 = New DevExpress.XtraBars.BarManager()
Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl() Me.barDockControlTop = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl() Me.barDockControlBottom = New DevExpress.XtraBars.BarDockControl()
Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl() Me.barDockControlLeft = New DevExpress.XtraBars.BarDockControl()
@ -131,8 +130,9 @@ Partial Class frmValidator
Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonDeleteFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton() Me.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton()
Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet() Me.FinalIndexDataSet = New DD_PM_WINDREAM.FinalIndexDataSet()
Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource = New System.Windows.Forms.BindingSource()
Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter() Me.TBPM_PROFILE_FINAL_INDEXINGTableAdapter = New DD_PM_WINDREAM.FinalIndexDataSetTableAdapters.TBPM_PROFILE_FINAL_INDEXINGTableAdapter()
Me.ToolTip1 = New System.Windows.Forms.ToolTip()
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.BarAndDockingController1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -992,4 +992,5 @@ Partial Class frmValidator
Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem Friend WithEvents InfoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem Friend WithEvents EigenschaftenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton
Friend WithEvents ToolTip1 As ToolTip
End Class End Class

917
app/DD_PM_WINDREAM/frmValidator.resx
View File

File diff suppressed because it is too large Load Diff

24
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -383,12 +383,12 @@ Public Class frmValidator
Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT")) Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT"))
If text <> "" Then If text <> "" Then
btnSave.Text = text & " (F1)" btnSave.Text = text
Else Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" btnSave.Text = "Validierung speichern - Nächstes Dokument"
End If End If
Else Else
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)" btnSave.Text = "Validierung speichern - Nächstes Dokument"
End If End If
LOGGER.Debug("Final profile Text geladen") LOGGER.Debug("Final profile Text geladen")
Catch ex As Exception Catch ex As Exception
@ -3040,13 +3040,14 @@ Public Class frmValidator
Return PM_String Return PM_String
End Function End Function
Private Function Indexiere_VektorfeldPM(input As String, NameVKTIndex As String, Optional PreventDuplicates As Boolean = False, Optional AllowAddNewValues As Boolean = True) Private Function Indexiere_VektorfeldPM(input As String, NameVKTIndex As String, Optional PreventDuplicates As Boolean = False, Optional AllowAddNewValues As Boolean = True, Optional IndexBehaviour As String = "Add")
Dim oOldValue As Object = CURRENT_WMFILE.GetVariableValue(NameVKTIndex) Dim oOldValue As Object = CURRENT_WMFILE.GetVariableValue(NameVKTIndex)
Dim oValueList As New List(Of Object) Dim oValueList As New List(Of Object)
Dim oNewValue As Object() Dim oNewValue As Object()
Dim oMissing As Boolean = False Dim oMissing As Boolean = False
If oOldValue IsNot Nothing AndAlso TypeOf oOldValue Is Object Then If oOldValue IsNot Nothing AndAlso TypeOf oOldValue Is Object Then
' If new values are allowed, add the old values first ' If new values are allowed, add the old values first
If AllowAddNewValues Then If AllowAddNewValues Then
oValueList = DirectCast(oOldValue, Object()).ToList() oValueList = DirectCast(oOldValue, Object()).ToList()
@ -3977,13 +3978,14 @@ Public Class frmValidator
End Sub End Sub
Private Sub frmValidator_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp Private Sub frmValidator_KeyUp(sender As Object, e As KeyEventArgs) Handles MyBase.KeyUp
If e.KeyCode = Keys.F1 Then If (e.Control AndAlso e.KeyCode = Keys.S) Then
btnSave.Enabled = False btnSave.Enabled = False
Abschluss() Abschluss()
btnSave.Enabled = True btnSave.Enabled = True
ElseIf e.KeyCode = Keys.F4 Then ElseIf e.KeyCode = Keys.F4 Then
Datei_ueberspringen() Datei_ueberspringen()
End If End If
End Sub End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButtonJumpFile.Click
@ -4052,4 +4054,16 @@ Public Class frmValidator
Private Sub ToolStripButtonSearchesReload_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSearchesReload.Click Private Sub ToolStripButtonSearchesReload_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSearchesReload.Click
Load_Additional_Searches() Load_Additional_Searches()
End Sub End Sub
Private Sub btnSave_MouseHover(sender As Object, e As EventArgs) Handles btnSave.MouseHover
Dim msg = "strg & s für speichern"
If USER_LANGUAGE <> "de-DE" Then
msg = "ctrl & s for saving"
End If
ToolTip1.Show(msg, btnSave)
End Sub
Private Sub frmValidator_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
End Sub
End Class End Class