MS Version .8 UserInit, AdminsitrationForm etc
This commit is contained in:
parent
ee57348a50
commit
721f628919
@ -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_DATE_FORMAT = DT_CHECKUSER_MODULE.Rows(0).Item("USER_DATE_FORMAT")
|
||||
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
|
||||
WORKING_MODE = DT_CHECKUSER_MODULE.Rows(0).Item("WORKING_MODE")
|
||||
Catch ex As Exception
|
||||
WORKING_MODE = ""
|
||||
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
|
||||
If WORKING_MODE.Contains("PM#FORCE_LAYOUT_OVERVIEW") Then
|
||||
FORCE_LAYOUT_OVERVIEW = True
|
||||
End If
|
||||
If WORKING_MODE.Contains("PM#NO_CHARTS") Then
|
||||
SHOW_CHARTS = False
|
||||
Else
|
||||
SHOW_CHARTS = True
|
||||
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"
|
||||
|
||||
Try
|
||||
USER_RIGHT1 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT1")
|
||||
Catch ex As Exception
|
||||
USER_RIGHT1 = False
|
||||
End Try
|
||||
Try
|
||||
USER_RIGHT2 = DT_CHECKUSER_MODULE.Rows(0).Item("USER_RIGHT2")
|
||||
Catch ex As Exception
|
||||
USER_RIGHT2 = False
|
||||
End Try
|
||||
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
|
||||
|
||||
'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
|
||||
'Alles OK bis hierhin...nun die FolderwatchKonfig laden
|
||||
LOGGER.Debug("Init Userlogin successfull completed....")
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Unexpected Error in InitUserLogin: " & ex.Message, True)
|
||||
|
||||
@ -35,8 +35,14 @@ Module ModuleRuntimeVariables
|
||||
Public USER_EXISTS = False
|
||||
Public USER_IN_MODULE = 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 SHOW_CHARTS As Boolean = False
|
||||
Public WORKING_MODE As String = ""
|
||||
|
||||
Public LICENSE_COUNT As Integer = 0
|
||||
|
||||
269
app/DD_PM_WINDREAM/frmAdministration.Designer.vb
generated
269
app/DD_PM_WINDREAM/frmAdministration.Designer.vb
generated
@ -33,7 +33,6 @@ Partial Class frmAdministration
|
||||
Dim ADDED_WHENLabel As System.Windows.Forms.Label
|
||||
Dim CHANGED_WHOLabel 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 INTERVALL_CKECK_NO_OF_FILESLabel 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_REMINDER_HEADERLabel 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 WORK_HISTORY_ENTRYLabel As System.Windows.Forms.Label
|
||||
Dim SQL_VIEWLabel 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.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
|
||||
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.Label2 = New System.Windows.Forms.Label()
|
||||
Me.cmbObjekttypen = New System.Windows.Forms.ComboBox()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox()
|
||||
Me.FINAL_TEXTTextBox = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.cmbType = New System.Windows.Forms.ComboBox()
|
||||
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.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
|
||||
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.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
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.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter()
|
||||
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_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
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.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.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()
|
||||
NAMELabel = 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()
|
||||
CHANGED_WHOLabel = 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()
|
||||
INTERVALL_CKECK_NO_OF_FILESLabel = 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_REMINDER_HEADERLabel = 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()
|
||||
WORK_HISTORY_ENTRYLabel = 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_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.TBPM_PROFILEBindingNavigator.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -365,11 +337,6 @@ Partial Class frmAdministration
|
||||
Me.grpbxEmail.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
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.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.StatusStrip1.SuspendLayout()
|
||||
@ -718,11 +685,6 @@ Partial Class frmAdministration
|
||||
resources.ApplyResources(CHANGED_WHENLabel, "CHANGED_WHENLabel")
|
||||
CHANGED_WHENLabel.Name = "CHANGED_WHENLabel"
|
||||
'
|
||||
'FINAL_TEXTLabel
|
||||
'
|
||||
resources.ApplyResources(FINAL_TEXTLabel, "FINAL_TEXTLabel")
|
||||
FINAL_TEXTLabel.Name = "FINAL_TEXTLabel"
|
||||
'
|
||||
'TITLELabel
|
||||
'
|
||||
resources.ApplyResources(TITLELabel, "TITLELabel")
|
||||
@ -773,16 +735,6 @@ Partial Class frmAdministration
|
||||
resources.ApplyResources(EMAIL_REMINDER_FOOTERLabel, "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
|
||||
'
|
||||
resources.ApplyResources(VEKTOR_DELIMITERLabel, "VEKTOR_DELIMITERLabel")
|
||||
@ -977,16 +929,6 @@ Partial Class frmAdministration
|
||||
Me.cmbObjekttypen.FormattingEnabled = True
|
||||
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
|
||||
'
|
||||
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")
|
||||
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
|
||||
'
|
||||
resources.ApplyResources(Me.Label1, "Label1")
|
||||
@ -1148,7 +1082,6 @@ Partial Class frmAdministration
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage4)
|
||||
resources.ApplyResources(Me.TabControl1, "TabControl1")
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
@ -1162,7 +1095,9 @@ Partial Class frmAdministration
|
||||
Me.TabPage1.Controls.Add(Me.TITLETextBox)
|
||||
Me.TabPage1.Controls.Add(Me.PROFILGUIDTextBox)
|
||||
Me.TabPage1.Controls.Add(Me.ACTIVECheckBox)
|
||||
Me.TabPage1.Controls.Add(Me.GridControl1)
|
||||
Me.TabPage1.Controls.Add(NAMELabel)
|
||||
Me.TabPage1.Controls.Add(Me.SORT_BY_LATESTCheckBox)
|
||||
Me.TabPage1.Controls.Add(Me.NAMETextBox)
|
||||
resources.ApplyResources(Me.TabPage1, "TabPage1")
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
@ -1179,26 +1114,26 @@ Partial Class frmAdministration
|
||||
'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(Me.DISPLAY_MODEComboBox)
|
||||
Me.TabPage5.Controls.Add(Me.GridControl1)
|
||||
Me.TabPage5.Controls.Add(Me.cmbLOGIndex)
|
||||
Me.TabPage5.Controls.Add(Label7)
|
||||
Me.TabPage5.Controls.Add(Me.PM_VEKTOR_INDEXComboBox)
|
||||
Me.TabPage5.Controls.Add(Label12)
|
||||
Me.TabPage5.Controls.Add(Me.Label2)
|
||||
Me.TabPage5.Controls.Add(Me.SORT_BY_LATESTCheckBox)
|
||||
Me.TabPage5.Controls.Add(Me.DESCRIPTIONTextBox)
|
||||
Me.TabPage5.Controls.Add(DESCRIPTIONLabel)
|
||||
Me.TabPage5.Controls.Add(WD_SEARCHLabel)
|
||||
Me.TabPage5.Controls.Add(Me.cmbObjekttypen)
|
||||
Me.TabPage5.Controls.Add(Me.WD_SEARCHTextBox)
|
||||
Me.TabPage5.Controls.Add(PRIORITYLabel)
|
||||
Me.TabPage5.Controls.Add(Me.GroupBox4)
|
||||
Me.TabPage5.Controls.Add(ADDED_WHOLabel)
|
||||
Me.TabPage5.Controls.Add(Me.CHANGED_WHENTextBox)
|
||||
Me.TabPage5.Controls.Add(Me.ADDED_WHOTextBox)
|
||||
Me.TabPage5.Controls.Add(Me.GroupBox2)
|
||||
Me.TabPage5.Controls.Add(ADDED_WHENLabel)
|
||||
Me.TabPage5.Controls.Add(CHANGED_WHENLabel)
|
||||
Me.TabPage5.Controls.Add(Me.btnWDSuche)
|
||||
@ -1852,138 +1787,6 @@ Partial Class frmAdministration
|
||||
Me.btnSaveKonfig.Name = "btnSaveKonfig"
|
||||
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
|
||||
'
|
||||
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
|
||||
@ -2025,10 +1828,6 @@ Partial Class frmAdministration
|
||||
resources.ApplyResources(Me.pnlMain, "pnlMain")
|
||||
Me.pnlMain.Name = "pnlMain"
|
||||
'
|
||||
'TBPM_ERROR_LOGTableAdapter
|
||||
'
|
||||
Me.TBPM_ERROR_LOGTableAdapter.ClearBeforeFill = True
|
||||
'
|
||||
'TBPM_PROFILE_CONTROLSTableAdapter
|
||||
'
|
||||
Me.TBPM_PROFILE_CONTROLSTableAdapter.ClearBeforeFill = True
|
||||
@ -2066,6 +1865,16 @@ Partial Class frmAdministration
|
||||
'
|
||||
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
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
@ -2103,10 +1912,6 @@ Partial Class frmAdministration
|
||||
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False)
|
||||
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()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
@ -2151,13 +1956,6 @@ Partial Class frmAdministration
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
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.TBPM_PROFILE_CONTROLSBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.StatusStrip1.ResumeLayout(False)
|
||||
@ -2210,9 +2008,7 @@ Partial Class frmAdministration
|
||||
Friend WithEvents btnmovetoFolderDialog As System.Windows.Forms.Button
|
||||
Friend WithEvents FolderBrowserDialog1 As System.Windows.Forms.FolderBrowserDialog
|
||||
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 GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
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 pnlMain As System.Windows.Forms.Panel
|
||||
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 TabPage5 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 cmbLOGIndex As System.Windows.Forms.ComboBox
|
||||
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 Label13 As System.Windows.Forms.Label
|
||||
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 btnSQLProfilehome As Button
|
||||
Friend WithEvents DISPLAY_MODEComboBox As ComboBox
|
||||
Friend WithEvents Label9 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -28,7 +28,7 @@ Public Class frmAdministration
|
||||
TBPROFILE_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
TBPROFILE_GROUPTableAdapter.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_FILESTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
TBDD_CONNECTIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
|
||||
@ -432,28 +432,8 @@ Public Class frmAdministration
|
||||
Else
|
||||
FillProfile_User(PROFILGUIDTextBox.Text)
|
||||
End If
|
||||
Case 3
|
||||
Refresh_log()
|
||||
End Select
|
||||
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)
|
||||
' If cmbIndexe.SelectedIndex <> -1 Then
|
||||
' 'MsgBox(_windreamPM.GetTypeOfIndex(cmbIndexe.Text))
|
||||
@ -1172,4 +1152,12 @@ Public Class frmAdministration
|
||||
LOGGER.Error(ex)
|
||||
End Try
|
||||
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
|
||||
23
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
23
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
@ -41,8 +41,6 @@ Partial Class frmMain
|
||||
Me.TBPM_PROFILETableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
|
||||
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
|
||||
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.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
|
||||
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_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
|
||||
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()
|
||||
Me.SplitContainerDashboard.Panel1.SuspendLayout()
|
||||
Me.SplitContainerDashboard.Panel2.SuspendLayout()
|
||||
@ -268,19 +267,9 @@ Partial Class frmMain
|
||||
'
|
||||
resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
|
||||
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"
|
||||
'
|
||||
'ToolStripLabel1
|
||||
'
|
||||
resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1")
|
||||
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||
'
|
||||
'ToolStripSeparator2
|
||||
'
|
||||
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
||||
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
|
||||
'
|
||||
'ToolStripButton2
|
||||
'
|
||||
Me.ToolStripButton2.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||
@ -617,6 +606,11 @@ Partial Class frmMain
|
||||
'TimerReminder
|
||||
'
|
||||
'
|
||||
'Timer5Mins
|
||||
'
|
||||
Me.Timer5Mins.Enabled = True
|
||||
Me.Timer5Mins.Interval = 350000
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
@ -673,7 +667,6 @@ Partial Class frmMain
|
||||
Friend WithEvents TableAdapterManager As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
|
||||
Friend WithEvents ImageListProfile As System.Windows.Forms.ImageList
|
||||
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 tsstlblUser As System.Windows.Forms.ToolStripStatusLabel
|
||||
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_KONFIGURATIONBindingSource As System.Windows.Forms.BindingSource
|
||||
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_FILESTableAdapter As DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
|
||||
Friend WithEvents tslblLicenses As System.Windows.Forms.ToolStripStatusLabel
|
||||
@ -737,4 +729,5 @@ Partial Class frmMain
|
||||
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
|
||||
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
|
||||
Friend WithEvents LayoutSpeichernToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents Timer5Mins As Timer
|
||||
End Class
|
||||
|
||||
@ -488,7 +488,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAATwBBAE8AQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAAUwBBAFMAQQBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@ -547,42 +547,6 @@
|
||||
<data name="ToolStrip1.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Tahoma, 9pt</value>
|
||||
</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=">>ToolStrip1.Name" xml:space="preserve">
|
||||
<value>ToolStrip1</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStrip1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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">
|
||||
<value>Magenta</value>
|
||||
</data>
|
||||
@ -628,36 +592,36 @@
|
||||
<data name="tsbtnrefresh.Text" xml:space="preserve">
|
||||
<value>Aktualisieren</value>
|
||||
</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=">>ToolStrip1.Name" xml:space="preserve">
|
||||
<value>ToolStrip1</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStrip1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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">
|
||||
<value>1015, 17</value>
|
||||
</metadata>
|
||||
<data name="StatusStrip1.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Tahoma, 9pt</value>
|
||||
</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=">>StatusStrip1.Name" xml:space="preserve">
|
||||
<value>StatusStrip1</value>
|
||||
</data>
|
||||
<data name=">>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=">>StatusStrip1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>StatusStrip1.ZOrder" xml:space="preserve">
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name="tsstlblUser.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>150, 24</value>
|
||||
</data>
|
||||
@ -695,17 +659,86 @@
|
||||
<value>No</value>
|
||||
</data>
|
||||
<data name="tsslblLastSysnc.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>127, 24</value>
|
||||
<value>43, 24</value>
|
||||
</data>
|
||||
<data name="tsslblLastSysnc.Text" xml:space="preserve">
|
||||
<value>Last Sync: NONE </value>
|
||||
<value>...</value>
|
||||
</data>
|
||||
<data name="tslblmessage.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>0, 24</value>
|
||||
</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=">>StatusStrip1.Name" xml:space="preserve">
|
||||
<value>StatusStrip1</value>
|
||||
</data>
|
||||
<data name=">>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=">>StatusStrip1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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">
|
||||
<value>152, 95</value>
|
||||
</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">
|
||||
<value>270, 146</value>
|
||||
</data>
|
||||
@ -942,6 +975,12 @@
|
||||
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>301, 95</value>
|
||||
</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">
|
||||
<value>220, 30</value>
|
||||
</data>
|
||||
@ -1166,57 +1205,6 @@
|
||||
<data name=">>Panel1.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</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">
|
||||
<value>1132, 17</value>
|
||||
</metadata>
|
||||
@ -1416,6 +1404,9 @@
|
||||
<metadata name="TimerReminder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 95</value>
|
||||
</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">
|
||||
<value>True</value>
|
||||
</metadata>
|
||||
@ -1633,18 +1624,6 @@
|
||||
<data name=">>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>
|
||||
</data>
|
||||
<data name=">>ToolStripLabel1.Name" xml:space="preserve">
|
||||
<value>ToolStripLabel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStripSeparator2.Name" xml:space="preserve">
|
||||
<value>ToolStripSeparator2</value>
|
||||
</data>
|
||||
<data name=">>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=">>ToolStripButton2.Name" xml:space="preserve">
|
||||
<value>ToolStripButton2</value>
|
||||
</data>
|
||||
@ -1909,6 +1888,12 @@
|
||||
<data name=">>TimerReminder.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=">>Timer5Mins.Name" xml:space="preserve">
|
||||
<value>Timer5Mins</value>
|
||||
</data>
|
||||
<data name=">>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=">>$this.Name" xml:space="preserve">
|
||||
<value>frmMain</value>
|
||||
</data>
|
||||
|
||||
@ -8,6 +8,7 @@ Imports DevExpress.XtraNavBar
|
||||
Imports DevExpress.XtraGrid.Columns
|
||||
Imports DevExpress.XtraCharts
|
||||
Imports DevExpress.XtraGrid.Views.Base
|
||||
Imports DevExpress.XtraEditors.Controls
|
||||
|
||||
Public Class frmMain
|
||||
'Private _windreamPM As ClassPMWindream
|
||||
@ -123,8 +124,14 @@ Public Class frmMain
|
||||
tstrpbtn_Config.Visible = False
|
||||
End If
|
||||
'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
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -141,20 +148,25 @@ Public Class frmMain
|
||||
If TimerRefresh.Enabled = False Then
|
||||
TimerRefresh.Start()
|
||||
End If
|
||||
Timer5Mins.Start()
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
|
||||
End Try
|
||||
Load_Profile_items()
|
||||
Try
|
||||
|
||||
Dim sql = "SELECT * FROM TBPM_CHART"
|
||||
DT_CHARTS = ClassDatabase.Return_Datatable(sql)
|
||||
If DT_CHARTS.Rows.Count = 0 Then
|
||||
NavBarItemDashboard.Visible = False
|
||||
If SHOW_CHARTS = True Then
|
||||
Dim sql = "SELECT * FROM TBPM_CHART"
|
||||
DT_CHARTS = ClassDatabase.Return_Datatable(sql)
|
||||
If DT_CHARTS.Rows.Count = 0 Then
|
||||
NavBarItemDashboard.Visible = False
|
||||
Else
|
||||
NavBarItemDashboard.Visible = True
|
||||
End If
|
||||
Else
|
||||
NavBarItemDashboard.Visible = True
|
||||
NavBarItemDashboard.Visible = False
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Could not load Charts: {ex.Message}")
|
||||
End Try
|
||||
@ -320,9 +332,11 @@ Public Class frmMain
|
||||
Throw New Exception("Could not load Profiles. Datatable is empty")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
Dim oCountItems As Integer = 0
|
||||
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
|
||||
|
||||
oCountItems += 1
|
||||
Dim item1 As NavBarItem = NavBarControl1.Items.Add()
|
||||
item1.Caption = oProfileRow.Item("TITLE")
|
||||
item1.Hint = oProfileRow.Item("TITLE")
|
||||
@ -338,9 +352,17 @@ Public Class frmMain
|
||||
|
||||
AddHandler NavBarControl1.LinkClicked, AddressOf navBar_LinkClicked
|
||||
End If
|
||||
|
||||
|
||||
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
|
||||
|
||||
@ -608,13 +630,10 @@ Public Class frmMain
|
||||
NO_WORKFLOWITEMS = False
|
||||
End If
|
||||
Create_Basic_View()
|
||||
If InResetlayout = False Then
|
||||
Dim Columns_Removed = GridView_CheckInvalidColumns()
|
||||
End If
|
||||
|
||||
RestoreLayout()
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
End If
|
||||
ToolStripLabelViewTape.Text = "Detailansicht Profil: " & CURRENT_CLICKED_PROFILE_TITLE
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
@ -685,47 +704,58 @@ Public Class frmMain
|
||||
|
||||
|
||||
End Sub
|
||||
Private Function GridView_CheckInvalidColumns() As Boolean
|
||||
'If FORCE_LAYOUT_OVERVIEW = True Then
|
||||
' Return False
|
||||
'End If
|
||||
Dim Columns_Removed = False
|
||||
GRID_INV_COL_REMOVED = False
|
||||
Private Function GridLayoutChanged() As Boolean
|
||||
Try
|
||||
For Each grid_column As GridColumn In GridView_Docs.Columns
|
||||
Dim GridDXCaption = grid_column.Caption
|
||||
Dim GridDXTextCaption = grid_column.GetTextCaption
|
||||
Dim GridDXColumnEditName = grid_column.ColumnEditName
|
||||
Dim GridDXFieldName = grid_column.FieldName
|
||||
|
||||
Dim exists As Boolean = False
|
||||
For Each col As DataColumn In CURR_DT_PROFILEGRID.Columns
|
||||
|
||||
If col.Caption = GridDXTextCaption Then
|
||||
exists = True
|
||||
Exit For
|
||||
For Each oViewColumn As DataColumn In CURR_DT_PROFILEGRID.Columns
|
||||
If oViewColumn.Caption = "" Then
|
||||
Continue For
|
||||
End If
|
||||
Dim oViewColumn_exists As Boolean = False
|
||||
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
|
||||
Dim oGridDXFieldName = oActGridColumn.FieldName
|
||||
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
|
||||
Dim GridDXFieldName = oActGridColumn.FieldName
|
||||
If oViewColumn.Caption = oGridDXFieldName Then
|
||||
If oActGridColumn.Visible = False Then
|
||||
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
|
||||
Next
|
||||
If exists = False Then
|
||||
If grid_column.Visible = True Then
|
||||
Try
|
||||
grid_column.Dispose()
|
||||
Columns_Removed = True
|
||||
GRID_INV_COL_REMOVED = True
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
|
||||
End Try
|
||||
|
||||
End If
|
||||
If oViewColumn_exists = False Then
|
||||
LOGGER.Info($"Following ViewColumn no longer exists in the view: [{oViewColumn.Caption}]")
|
||||
Return True
|
||||
End If
|
||||
Next
|
||||
For Each oActGridColumn As GridColumn In GridView_Docs.Columns
|
||||
If oActGridColumn.Caption = "" Then
|
||||
Continue For
|
||||
End If
|
||||
Dim oGridColumn_exists As Boolean = False
|
||||
Dim oGridDXFieldName = oActGridColumn.FieldName
|
||||
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
|
||||
Next
|
||||
Return Columns_Removed
|
||||
Catch ex As Exception
|
||||
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 Function
|
||||
|
||||
'Sub LoadProfile_PM()
|
||||
' Try
|
||||
' If Me.Visible = True And frmAdministration.Visible = False Then
|
||||
@ -831,19 +861,15 @@ Public Class frmMain
|
||||
SaveGridLayout()
|
||||
Load_Profile_items()
|
||||
Decide_Load()
|
||||
tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString
|
||||
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
|
||||
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 = "User eingeloggt: " & USERCOUNT_LOGGED_IN
|
||||
Else
|
||||
tslblUserLoggedin.Text = "User logged in: " & USERCOUNT_LOGGED_IN
|
||||
End If
|
||||
If USER_LANGUAGE <> "de-DE" Then
|
||||
tsslblLastSysnc.Text = "Last Client-Sync: " & Now.ToLongTimeString
|
||||
Else
|
||||
tsslblLastSysnc.Text = "Letzte Synchronisation: " & Now.ToLongTimeString
|
||||
End If
|
||||
|
||||
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
@ -867,7 +893,7 @@ Public Class frmMain
|
||||
Load_single_Profile()
|
||||
End If
|
||||
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
|
||||
tsmiMarkedFilesFinish.Visible = False
|
||||
ToolStripSeparator4.Visible = False
|
||||
@ -1185,6 +1211,11 @@ Public Class frmMain
|
||||
Load_Grid_Overview()
|
||||
RefreshHelper.LoadViewInfo()
|
||||
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()
|
||||
SplitContainerDashboard.Visible = False
|
||||
Layout_Single_Profile()
|
||||
@ -1293,13 +1324,16 @@ Public Class frmMain
|
||||
GridControl_Docs.DataSource = bindsourcegrid
|
||||
|
||||
ToolStripLabelViewTape.Text = "Gesamtübersicht"
|
||||
|
||||
'GridControlDocRow.ForceInitialize()
|
||||
' GridControl1.DataSource = CURR_DT_PROFILEGRID
|
||||
If InResetlayout = False Then
|
||||
Dim Columns_Removed = GridView_CheckInvalidColumns()
|
||||
If FORCE_LAYOUT_OVERVIEW = True And GridLayoutChanged() = True Then
|
||||
ResetLayout()
|
||||
SaveGridLayout()
|
||||
Else
|
||||
RestoreLayout()
|
||||
End If
|
||||
|
||||
RestoreLayout()
|
||||
|
||||
Try
|
||||
'GridView_Docs.OptionsBehavior.AutoExpandAllGroups = False
|
||||
@ -1558,4 +1592,17 @@ Public Class frmMain
|
||||
Decide_Load()
|
||||
|
||||
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
|
||||
27
app/DD_PM_WINDREAM/frmValidator.Designer.vb
generated
27
app/DD_PM_WINDREAM/frmValidator.Designer.vb
generated
@ -22,11 +22,10 @@ Partial Class frmValidator
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmValidator))
|
||||
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
|
||||
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
|
||||
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController(Me.components)
|
||||
Me.BarAndDockingController3 = New DevExpress.XtraBars.BarAndDockingController()
|
||||
Me.BarAndDockingController2 = New DevExpress.XtraBars.BarAndDockingController()
|
||||
Me.BarAndDockingController1 = New DevExpress.XtraBars.BarAndDockingController()
|
||||
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
|
||||
Me.tstrplblError = 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_FILESTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter()
|
||||
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.TBPM_PROFILE_CONTROLSBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
|
||||
Me.TBPM_CONTROL_TABLEBindingSource = 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.TBPM_PROFILE_FILESBindingSource = New System.Windows.Forms.BindingSource()
|
||||
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource()
|
||||
Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource()
|
||||
Me.TBPM_CONTROL_TABLEBindingSource = New System.Windows.Forms.BindingSource()
|
||||
Me.pnlpdf = New System.Windows.Forms.Panel()
|
||||
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.barDockControlBottom = 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.ToolStripButtonAnnotation = New System.Windows.Forms.ToolStripButton()
|
||||
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.ToolTip1 = New System.Windows.Forms.ToolTip()
|
||||
CType(Me.BarAndDockingController3, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.BarAndDockingController2, 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 EigenschaftenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripButtonSearchesReload As ToolStripButton
|
||||
Friend WithEvents ToolTip1 As ToolTip
|
||||
End Class
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
@ -383,12 +383,12 @@ Public Class frmValidator
|
||||
|
||||
Dim text As String = IIf(IsDBNull(dr.Item("FINAL_TEXT")), "", dr.Item("FINAL_TEXT"))
|
||||
If text <> "" Then
|
||||
btnSave.Text = text & " (F1)"
|
||||
btnSave.Text = text
|
||||
Else
|
||||
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)"
|
||||
btnSave.Text = "Validierung speichern - Nächstes Dokument"
|
||||
End If
|
||||
Else
|
||||
btnSave.Text = "Validierung speichern - Nächstes Dokument" & " (F1)"
|
||||
btnSave.Text = "Validierung speichern - Nächstes Dokument"
|
||||
End If
|
||||
LOGGER.Debug("Final profile Text geladen")
|
||||
Catch ex As Exception
|
||||
@ -3040,13 +3040,14 @@ Public Class frmValidator
|
||||
Return PM_String
|
||||
|
||||
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 oValueList As New List(Of Object)
|
||||
Dim oNewValue As Object()
|
||||
Dim oMissing As Boolean = False
|
||||
|
||||
If oOldValue IsNot Nothing AndAlso TypeOf oOldValue Is Object Then
|
||||
|
||||
' If new values are allowed, add the old values first
|
||||
If AllowAddNewValues Then
|
||||
oValueList = DirectCast(oOldValue, Object()).ToList()
|
||||
@ -3977,13 +3978,14 @@ Public Class frmValidator
|
||||
End Sub
|
||||
|
||||
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
|
||||
Abschluss()
|
||||
btnSave.Enabled = True
|
||||
ElseIf e.KeyCode = Keys.F4 Then
|
||||
Datei_ueberspringen()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
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
|
||||
Load_Additional_Searches()
|
||||
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
|
||||
Loading…
x
Reference in New Issue
Block a user