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

MS .0.8

Browse Source
This commit is contained in:
SchreiberM 2020-02-14 13:50:06 +01:00
parent 73bfb00299
commit f636abc2fc
12 changed files with 2234 additions and 2440 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/ClassRefreshHelper.vb
View File

@ -248,7 +248,7 @@ Public Class RefreshHelper
timespan_ = String.Format("{0:00}.{1:00} seconds", ts.Seconds, ts.Milliseconds / 10)
End If
If timespan_ <> "00:00.00" Then
Dim message = String.Format("{0} || {1}", timespan_, label)
Dim message = String.Format("PerformanceWatch {0} || {1}", timespan_, label)
If LOGCONFIG.Debug = True Then
LOGGER.Debug(message)

7
app/DD_PM_WINDREAM/ModuleRuntimeVariables.vb
View File

@ -79,13 +79,20 @@ Module ModuleRuntimeVariables
Public CURRENT_DT_MASS_CHANGE_DOCS As DataTable
Public CURRENT_DT_FINAL_INDEXING As DataTable
Public CURRENT_DT_PROFILES As DataTable
Public CURRENT_DT_PROFILE As DataTable
Public CURRENT_DT_PROFILES_SEARCHES_DOC As DataTable
Public CURRENT_DT_PROFILE_SEARCHES_DOC As DataTable
Public CURRENT_DT_PROFILES_SEARCHES_SQL As DataTable
Public CURRENT_DT_PROFILE_SEARCHES_SQL As DataTable
Public CURRENT_INDEX_ARRAY(100, 250) As String
Public CURRENT_DT_VW_PROFILE_USER As DataTable
Public CURRENT_DT_GUI_LANGUAGE_PHRASES As DataTable
Public DTVWCONTROLS_INDEX As DataTable
Public DTVWCONTROL_INDEX As DataTable
Public CURRENT_CONTROL_ID As Integer
Public errormessage As String

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

@ -34,7 +34,6 @@ Partial Class frmAdministration
Dim CHANGED_WHENLabel As System.Windows.Forms.Label
Dim TITLELabel 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
Me.SplitContainer_Profilzuordnung2 = New System.Windows.Forms.SplitContainer()
Me.gridAssignedUsers = New DevExpress.XtraGrid.GridControl()
@ -79,21 +78,6 @@ Partial Class frmAdministration
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBPM_PROFILEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TBPM_PROFILETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter()
Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox()
Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.VWPM_PROFILE_USERBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.TBPM_PROFILEBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components)
Me.tstrpbtn_add = New System.Windows.Forms.ToolStripButton()
Me.tstrlblSave = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.Label2 = New System.Windows.Forms.Label()
Me.cmbObjekttypen = New System.Windows.Forms.ComboBox()
Me.FINAL_PROFILECheckBox = New System.Windows.Forms.CheckBox()
@ -101,9 +85,6 @@ Partial Class frmAdministration
Me.Label1 = New System.Windows.Forms.Label()
Me.cmbType = New System.Windows.Forms.ComboBox()
Me.TBPM_TYPEBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox()
Me.btnmovetoFolderDialog = New System.Windows.Forms.Button()
Me.PRIORITYNumericUpDown = New System.Windows.Forms.NumericUpDown()
Me.btnWMopenSuche = New System.Windows.Forms.Button()
Me.btnWMSuche = New System.Windows.Forms.Button()
@ -149,29 +130,16 @@ Partial Class frmAdministration
Me.colDESCRIPTION1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.colACTIVE = New DevExpress.XtraGrid.Columns.GridColumn()
Me.PropertyGrid1 = New System.Windows.Forms.PropertyGrid()
Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components)
Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorCountItem1 = New System.Windows.Forms.ToolStripLabel()
Me.BindingNavigatorMoveFirstItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMovePreviousItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorPositionItem1 = New System.Windows.Forms.ToolStripTextBox()
Me.BindingNavigatorSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.BindingNavigatorMoveNextItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem1 = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.tsBtnCancel = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton()
Me.tsBtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.TabPage12 = New System.Windows.Forms.TabPage()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.MOVE2FOLDERTextBox = New System.Windows.Forms.TextBox()
Me.btnmovetoFolderDialog = New System.Windows.Forms.Button()
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox = New System.Windows.Forms.CheckBox()
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox = New System.Windows.Forms.CheckBox()
Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox()
Me.WORK_HISTORY_ENTRYTextBox = New System.Windows.Forms.TextBox()
Me.TabPage3 = New System.Windows.Forms.TabPage()
Me.SQL_VIEWTextBox = New System.Windows.Forms.TextBox()
Me.GridControl1 = New DevExpress.XtraGrid.GridControl()
Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn()
@ -181,7 +149,6 @@ Partial Class frmAdministration
Me.gridAvailableProfiles = New DevExpress.XtraGrid.GridControl()
Me.viewAvailableProfiles = New DevExpress.XtraGrid.Views.Grid.GridView()
Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn()
Me.Label21 = New System.Windows.Forms.Label()
Me.TabControl3 = New System.Windows.Forms.TabControl()
Me.TabPage7 = New System.Windows.Forms.TabPage()
Me.TabPage8 = New System.Windows.Forms.TabPage()
@ -219,6 +186,12 @@ Partial Class frmAdministration
Me.BarButtonItem12 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem13 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem14 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem15 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem16 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem()
Me.tsbStaticInfo = New DevExpress.XtraBars.BarStaticItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
@ -235,7 +208,6 @@ Partial Class frmAdministration
CHANGED_WHENLabel = New System.Windows.Forms.Label()
TITLELabel = New System.Windows.Forms.Label()
WORK_HISTORY_ENTRYLabel = New System.Windows.Forms.Label()
SQL_VIEWLabel = New System.Windows.Forms.Label()
DISPLAY_MODELabel = New System.Windows.Forms.Label()
CType(Me.SplitContainer_Profilzuordnung2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainer_Profilzuordnung2.Panel1.SuspendLayout()
@ -264,10 +236,7 @@ Partial Class frmAdministration
Me.Panel4.SuspendLayout()
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBPM_PROFILEBindingNavigator.SuspendLayout()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox3.SuspendLayout()
CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabControl1.SuspendLayout()
Me.TabPage1.SuspendLayout()
@ -281,9 +250,9 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.BindingNavigator1.SuspendLayout()
Me.TabPage12.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.TabPage3.SuspendLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TabPage2.SuspendLayout()
@ -651,11 +620,6 @@ Partial Class frmAdministration
resources.ApplyResources(WORK_HISTORY_ENTRYLabel, "WORK_HISTORY_ENTRYLabel")
WORK_HISTORY_ENTRYLabel.Name = "WORK_HISTORY_ENTRYLabel"
'
'SQL_VIEWLabel
'
resources.ApplyResources(SQL_VIEWLabel, "SQL_VIEWLabel")
SQL_VIEWLabel.Name = "SQL_VIEWLabel"
'
'DISPLAY_MODELabel
'
resources.ApplyResources(DISPLAY_MODELabel, "DISPLAY_MODELabel")
@ -693,104 +657,6 @@ Partial Class frmAdministration
'
Me.TBPM_PROFILETableAdapter.ClearBeforeFill = True
'
'BindingNavigatorMoveFirstItem
'
Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem")
Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem"
'
'BindingNavigatorMovePreviousItem
'
Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem")
Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem"
'
'BindingNavigatorSeparator
'
Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator"
resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator")
'
'BindingNavigatorPositionItem
'
resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem")
Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem"
'
'BindingNavigatorCountItem
'
Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem"
resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem")
'
'BindingNavigatorSeparator1
'
Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1"
resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1")
'
'BindingNavigatorMoveNextItem
'
Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem")
Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem"
'
'BindingNavigatorMoveLastItem
'
Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem")
Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem"
'
'BindingNavigatorSeparator2
'
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2")
'
'VWPM_PROFILE_USERBindingNavigatorSaveItem
'
Me.VWPM_PROFILE_USERBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.VWPM_PROFILE_USERBindingNavigatorSaveItem, "VWPM_PROFILE_USERBindingNavigatorSaveItem")
Me.VWPM_PROFILE_USERBindingNavigatorSaveItem.Name = "VWPM_PROFILE_USERBindingNavigatorSaveItem"
'
'TBPM_PROFILEBindingNavigator
'
Me.TBPM_PROFILEBindingNavigator.AddNewItem = Nothing
Me.TBPM_PROFILEBindingNavigator.BindingSource = Me.TBPM_PROFILEBindingSource
Me.TBPM_PROFILEBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBPM_PROFILEBindingNavigator.CountItemFormat = "von {0} Profilen"
Me.TBPM_PROFILEBindingNavigator.DeleteItem = Nothing
Me.TBPM_PROFILEBindingNavigator.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.TBPM_PROFILEBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.VWPM_PROFILE_USERBindingNavigatorSaveItem, Me.tstrpbtn_add, Me.tstrlblSave, Me.ToolStripSeparator1, Me.ToolStripSeparator2})
resources.ApplyResources(Me.TBPM_PROFILEBindingNavigator, "TBPM_PROFILEBindingNavigator")
Me.TBPM_PROFILEBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBPM_PROFILEBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
Me.TBPM_PROFILEBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem
Me.TBPM_PROFILEBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBPM_PROFILEBindingNavigator.Name = "TBPM_PROFILEBindingNavigator"
Me.TBPM_PROFILEBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
'
'tstrpbtn_add
'
Me.tstrpbtn_add.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tstrpbtn_add.Image = Global.DD_ProcessManager.My.Resources.Resources.action_add_16xLG
resources.ApplyResources(Me.tstrpbtn_add, "tstrpbtn_add")
Me.tstrpbtn_add.Name = "tstrpbtn_add"
'
'tstrlblSave
'
Me.tstrlblSave.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tstrlblSave.BackColor = System.Drawing.Color.Lime
Me.tstrlblSave.ForeColor = System.Drawing.Color.Crimson
Me.tstrlblSave.Image = Global.DD_ProcessManager.My.Resources.Resources.asterisk_yellow
Me.tstrlblSave.Name = "tstrlblSave"
resources.ApplyResources(Me.tstrlblSave, "tstrlblSave")
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
resources.ApplyResources(Me.ToolStripSeparator1, "ToolStripSeparator1")
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
resources.ApplyResources(Me.ToolStripSeparator2, "ToolStripSeparator2")
'
'Label2
'
resources.ApplyResources(Me.Label2, "Label2")
@ -836,26 +702,6 @@ Partial Class frmAdministration
Me.TBPM_TYPEBindingSource.DataMember = "TBPM_TYPE"
Me.TBPM_TYPEBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.MOVE2FOLDERTextBox)
Me.GroupBox3.Controls.Add(Me.btnmovetoFolderDialog)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
'MOVE2FOLDERTextBox
'
Me.MOVE2FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "MOVE2FOLDER", True))
resources.ApplyResources(Me.MOVE2FOLDERTextBox, "MOVE2FOLDERTextBox")
Me.MOVE2FOLDERTextBox.Name = "MOVE2FOLDERTextBox"
'
'btnmovetoFolderDialog
'
resources.ApplyResources(Me.btnmovetoFolderDialog, "btnmovetoFolderDialog")
Me.btnmovetoFolderDialog.Name = "btnmovetoFolderDialog"
Me.btnmovetoFolderDialog.UseVisualStyleBackColor = True
'
'PRIORITYNumericUpDown
'
Me.PRIORITYNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPM_PROFILEBindingSource, "PRIORITY", True))
@ -963,7 +809,6 @@ Partial Class frmAdministration
'TabPage1
'
Me.TabPage1.Controls.Add(Me.tabctrl_Profilkonfig)
Me.TabPage1.Controls.Add(Me.TBPM_PROFILEBindingNavigator)
Me.TabPage1.Controls.Add(GUIDLabel)
Me.TabPage1.Controls.Add(TITLELabel)
Me.TabPage1.Controls.Add(Me.TITLETextBox)
@ -1067,6 +912,7 @@ Partial Class frmAdministration
'
Me.TabControl2.Controls.Add(Me.TabPage11)
Me.TabControl2.Controls.Add(Me.TabPage12)
Me.TabControl2.Controls.Add(Me.TabPage3)
resources.ApplyResources(Me.TabControl2, "TabControl2")
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
@ -1074,10 +920,6 @@ Partial Class frmAdministration
'TabPage11
'
Me.TabPage11.Controls.Add(Me.Panel5)
Me.TabPage11.Controls.Add(Me.BindingNavigator1)
Me.TabPage11.Controls.Add(Me.Label13)
Me.TabPage11.Controls.Add(Me.GroupBox3)
Me.TabPage11.Controls.Add(Me.Label5)
Me.TabPage11.Controls.Add(Me.Label6)
resources.ApplyResources(Me.TabPage11, "TabPage11")
Me.TabPage11.Name = "TabPage11"
@ -1178,111 +1020,6 @@ Partial Class frmAdministration
resources.ApplyResources(Me.PropertyGrid1, "PropertyGrid1")
Me.PropertyGrid1.Name = "PropertyGrid1"
'
'BindingNavigator1
'
Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem
Me.BindingNavigator1.BindingSource = Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource
Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem1
Me.BindingNavigator1.CountItemFormat = "von {0} finalen Indexen"
Me.BindingNavigator1.DeleteItem = Nothing
resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1")
Me.BindingNavigator1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem1, Me.BindingNavigatorMovePreviousItem1, Me.BindingNavigatorSeparator3, Me.BindingNavigatorPositionItem1, Me.BindingNavigatorCountItem1, Me.BindingNavigatorSeparator4, Me.BindingNavigatorMoveNextItem1, Me.BindingNavigatorMoveLastItem1, Me.BindingNavigatorSeparator5, Me.BindingNavigatorAddNewItem, Me.tsBtnCancel, Me.BindingNavigatorDeleteItem, Me.tsBtnSave, Me.ToolStripButton5})
Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem1
Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem1
Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem1
Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem1
Me.BindingNavigator1.Name = "BindingNavigator1"
Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem1
'
'BindingNavigatorAddNewItem
'
Me.BindingNavigatorAddNewItem.Image = Global.DD_ProcessManager.My.Resources.Resources.add
Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem"
resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem")
'
'BindingNavigatorCountItem1
'
Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1"
resources.ApplyResources(Me.BindingNavigatorCountItem1, "BindingNavigatorCountItem1")
'
'BindingNavigatorMoveFirstItem1
'
Me.BindingNavigatorMoveFirstItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveFirstItem1, "BindingNavigatorMoveFirstItem1")
Me.BindingNavigatorMoveFirstItem1.Name = "BindingNavigatorMoveFirstItem1"
'
'BindingNavigatorMovePreviousItem1
'
Me.BindingNavigatorMovePreviousItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMovePreviousItem1, "BindingNavigatorMovePreviousItem1")
Me.BindingNavigatorMovePreviousItem1.Name = "BindingNavigatorMovePreviousItem1"
'
'BindingNavigatorSeparator3
'
Me.BindingNavigatorSeparator3.Name = "BindingNavigatorSeparator3"
resources.ApplyResources(Me.BindingNavigatorSeparator3, "BindingNavigatorSeparator3")
'
'BindingNavigatorPositionItem1
'
resources.ApplyResources(Me.BindingNavigatorPositionItem1, "BindingNavigatorPositionItem1")
Me.BindingNavigatorPositionItem1.Name = "BindingNavigatorPositionItem1"
'
'BindingNavigatorSeparator4
'
Me.BindingNavigatorSeparator4.Name = "BindingNavigatorSeparator4"
resources.ApplyResources(Me.BindingNavigatorSeparator4, "BindingNavigatorSeparator4")
'
'BindingNavigatorMoveNextItem1
'
Me.BindingNavigatorMoveNextItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveNextItem1, "BindingNavigatorMoveNextItem1")
Me.BindingNavigatorMoveNextItem1.Name = "BindingNavigatorMoveNextItem1"
'
'BindingNavigatorMoveLastItem1
'
Me.BindingNavigatorMoveLastItem1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
resources.ApplyResources(Me.BindingNavigatorMoveLastItem1, "BindingNavigatorMoveLastItem1")
Me.BindingNavigatorMoveLastItem1.Name = "BindingNavigatorMoveLastItem1"
'
'BindingNavigatorSeparator5
'
Me.BindingNavigatorSeparator5.Name = "BindingNavigatorSeparator5"
resources.ApplyResources(Me.BindingNavigatorSeparator5, "BindingNavigatorSeparator5")
'
'tsBtnCancel
'
Me.tsBtnCancel.Image = Global.DD_ProcessManager.My.Resources.Resources.cancel
resources.ApplyResources(Me.tsBtnCancel, "tsBtnCancel")
Me.tsBtnCancel.Name = "tsBtnCancel"
'
'BindingNavigatorDeleteItem
'
resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem")
Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem"
'
'tsBtnSave
'
Me.tsBtnSave.Image = Global.DD_ProcessManager.My.Resources.Resources.save
resources.ApplyResources(Me.tsBtnSave, "tsBtnSave")
Me.tsBtnSave.Name = "tsBtnSave"
'
'ToolStripButton5
'
Me.ToolStripButton5.Image = Global.DD_ProcessManager.My.Resources.Resources.refresh_16xMD
resources.ApplyResources(Me.ToolStripButton5, "ToolStripButton5")
Me.ToolStripButton5.Name = "ToolStripButton5"
'
'Label13
'
resources.ApplyResources(Me.Label13, "Label13")
Me.Label13.Name = "Label13"
'
'Label5
'
resources.ApplyResources(Me.Label5, "Label5")
Me.Label5.Name = "Label5"
'
'Label6
'
resources.ApplyResources(Me.Label6, "Label6")
@ -1291,15 +1028,34 @@ Partial Class frmAdministration
'TabPage12
'
resources.ApplyResources(Me.TabPage12, "TabPage12")
Me.TabPage12.Controls.Add(Me.GroupBox3)
Me.TabPage12.Controls.Add(Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox)
Me.TabPage12.Controls.Add(Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox)
Me.TabPage12.Controls.Add(SQL_VIEWLabel)
Me.TabPage12.Controls.Add(Me.SQL_VIEWTextBox)
Me.TabPage12.Controls.Add(WORK_HISTORY_ENTRYLabel)
Me.TabPage12.Controls.Add(Me.WORK_HISTORY_ENTRYTextBox)
Me.TabPage12.Name = "TabPage12"
Me.TabPage12.UseVisualStyleBackColor = True
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.MOVE2FOLDERTextBox)
Me.GroupBox3.Controls.Add(Me.btnmovetoFolderDialog)
resources.ApplyResources(Me.GroupBox3, "GroupBox3")
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.TabStop = False
'
'MOVE2FOLDERTextBox
'
Me.MOVE2FOLDERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "MOVE2FOLDER", True))
resources.ApplyResources(Me.MOVE2FOLDERTextBox, "MOVE2FOLDERTextBox")
Me.MOVE2FOLDERTextBox.Name = "MOVE2FOLDERTextBox"
'
'btnmovetoFolderDialog
'
resources.ApplyResources(Me.btnmovetoFolderDialog, "btnmovetoFolderDialog")
Me.btnmovetoFolderDialog.Name = "btnmovetoFolderDialog"
Me.btnmovetoFolderDialog.UseVisualStyleBackColor = True
'
'ANNOTATE_WORK_HISTORY_ENTRYCheckBox
'
Me.ANNOTATE_WORK_HISTORY_ENTRYCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPM_PROFILEBindingSource, "ANNOTATE_WORK_HISTORY_ENTRY", True))
@ -1314,18 +1070,25 @@ Partial Class frmAdministration
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.Name = "ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox"
Me.ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox.UseVisualStyleBackColor = True
'
'SQL_VIEWTextBox
'
Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True))
resources.ApplyResources(Me.SQL_VIEWTextBox, "SQL_VIEWTextBox")
Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox"
'
'WORK_HISTORY_ENTRYTextBox
'
Me.WORK_HISTORY_ENTRYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "WORK_HISTORY_ENTRY", True))
resources.ApplyResources(Me.WORK_HISTORY_ENTRYTextBox, "WORK_HISTORY_ENTRYTextBox")
Me.WORK_HISTORY_ENTRYTextBox.Name = "WORK_HISTORY_ENTRYTextBox"
'
'TabPage3
'
Me.TabPage3.Controls.Add(Me.SQL_VIEWTextBox)
resources.ApplyResources(Me.TabPage3, "TabPage3")
Me.TabPage3.Name = "TabPage3"
Me.TabPage3.UseVisualStyleBackColor = True
'
'SQL_VIEWTextBox
'
resources.ApplyResources(Me.SQL_VIEWTextBox, "SQL_VIEWTextBox")
Me.SQL_VIEWTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_PROFILEBindingSource, "SQL_VIEW", True))
Me.SQL_VIEWTextBox.Name = "SQL_VIEWTextBox"
'
'GridControl1
'
Me.GridControl1.DataSource = Me.TBPM_PROFILEBindingSource
@ -1383,7 +1146,6 @@ Partial Class frmAdministration
'SplitContainerProfilzuordnung.Panel1
'
Me.SplitContainerProfilzuordnung.Panel1.Controls.Add(Me.gridAvailableProfiles)
Me.SplitContainerProfilzuordnung.Panel1.Controls.Add(Me.Label21)
'
'SplitContainerProfilzuordnung.Panel2
'
@ -1419,11 +1181,6 @@ Partial Class frmAdministration
Me.colNAME1.MinWidth = 16
Me.colNAME1.Name = "colNAME1"
'
'Label21
'
resources.ApplyResources(Me.Label21, "Label21")
Me.Label21.Name = "Label21"
'
'TabControl3
'
Me.TabControl3.Controls.Add(Me.TabPage7)
@ -1532,9 +1289,9 @@ Partial Class frmAdministration
'RibbonControl1
'
Me.RibbonControl1.ExpandCollapseItem.Id = 0
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14})
Me.RibbonControl1.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.RibbonControl1.ExpandCollapseItem, Me.RibbonControl1.SearchEditItem, Me.BarButtonItem1, Me.BarButtonItem2, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.BarButtonItem10, Me.BarButtonItem11, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.tsbStaticInfo})
resources.ApplyResources(Me.RibbonControl1, "RibbonControl1")
Me.RibbonControl1.MaxItemId = 15
Me.RibbonControl1.MaxItemId = 21
Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
@ -1655,6 +1412,54 @@ Partial Class frmAdministration
Me.BarButtonItem14.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem14.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem14.Name = "BarButtonItem14"
'
'BarButtonItem15
'
resources.ApplyResources(Me.BarButtonItem15, "BarButtonItem15")
Me.BarButtonItem15.Id = 15
Me.BarButtonItem15.ImageOptions.Image = CType(resources.GetObject("BarButtonItem15.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem15.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem15.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem15.Name = "BarButtonItem15"
'
'BarButtonItem16
'
resources.ApplyResources(Me.BarButtonItem16, "BarButtonItem16")
Me.BarButtonItem16.Id = 16
Me.BarButtonItem16.ImageOptions.Image = CType(resources.GetObject("BarButtonItem16.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem16.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem16.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem16.Name = "BarButtonItem16"
'
'BarButtonItem17
'
resources.ApplyResources(Me.BarButtonItem17, "BarButtonItem17")
Me.BarButtonItem17.Id = 17
Me.BarButtonItem17.ImageOptions.Image = CType(resources.GetObject("BarButtonItem17.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem17.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem17.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem17.Name = "BarButtonItem17"
'
'BarButtonItem18
'
resources.ApplyResources(Me.BarButtonItem18, "BarButtonItem18")
Me.BarButtonItem18.Id = 18
Me.BarButtonItem18.ImageOptions.Image = CType(resources.GetObject("BarButtonItem18.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem18.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem18.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem18.Name = "BarButtonItem18"
'
'BarButtonItem19
'
resources.ApplyResources(Me.BarButtonItem19, "BarButtonItem19")
Me.BarButtonItem19.Id = 19
Me.BarButtonItem19.ImageOptions.Image = CType(resources.GetObject("BarButtonItem19.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem19.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem19.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem19.Name = "BarButtonItem19"
Me.BarButtonItem19.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
'
'tsbStaticInfo
'
Me.tsbStaticInfo.Id = 20
Me.tsbStaticInfo.ItemAppearance.Normal.BackColor = System.Drawing.Color.Yellow
Me.tsbStaticInfo.ItemAppearance.Normal.Options.UseBackColor = True
Me.tsbStaticInfo.Name = "tsbStaticInfo"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1, Me.RibbonPageGroup2, Me.RibbonPageGroup3})
@ -1675,6 +1480,11 @@ Partial Class frmAdministration
'
'RibbonPageGroup2
'
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem15)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem18)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem16)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem17)
Me.RibbonPageGroup2.ItemLinks.Add(Me.BarButtonItem19)
Me.RibbonPageGroup2.Name = "RibbonPageGroup2"
resources.ApplyResources(Me.RibbonPageGroup2, "RibbonPageGroup2")
'
@ -1689,6 +1499,7 @@ Partial Class frmAdministration
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.ItemLinks.Add(Me.tsbStaticInfo)
resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1")
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
@ -1738,12 +1549,7 @@ Partial Class frmAdministration
Me.Panel4.ResumeLayout(False)
CType(Me.TBDD_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBPM_PROFILEBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBPM_PROFILEBindingNavigator.ResumeLayout(False)
Me.TBPM_PROFILEBindingNavigator.PerformLayout()
CType(Me.TBPM_TYPEBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
CType(Me.PRIORITYNumericUpDown, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabControl1.ResumeLayout(False)
Me.TabPage1.ResumeLayout(False)
@ -1760,11 +1566,12 @@ Partial Class frmAdministration
CType(Me.TBPM_PROFILE_FINAL_INDEXINGBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.FinalIndexDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.viewFinalIndex, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit()
Me.BindingNavigator1.ResumeLayout(False)
Me.BindingNavigator1.PerformLayout()
Me.TabPage12.ResumeLayout(False)
Me.TabPage12.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.TabPage3.ResumeLayout(False)
Me.TabPage3.PerformLayout()
CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TabPage2.ResumeLayout(False)
@ -1793,17 +1600,6 @@ Partial Class frmAdministration
Friend WithEvents TableAdapterManager As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager
Friend WithEvents TBPM_PROFILEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILETableAdapter
Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox
Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel
Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton
Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents VWPM_PROFILE_USERBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton
Friend WithEvents TBPM_PROFILEBindingNavigator As System.Windows.Forms.BindingNavigator
Friend WithEvents btnWMSuche As System.Windows.Forms.Button
Friend WithEvents TITLETextBox As System.Windows.Forms.TextBox
Friend WithEvents PROFILGUIDTextBox As System.Windows.Forms.TextBox
@ -1819,17 +1615,11 @@ Partial Class frmAdministration
Friend WithEvents FINAL_TEXTTextBox As System.Windows.Forms.TextBox
Friend WithEvents dlgWindreamsuche As System.Windows.Forms.OpenFileDialog
Friend WithEvents btnWMopenSuche As System.Windows.Forms.Button
Friend WithEvents tstrpbtn_add As System.Windows.Forms.ToolStripButton
Friend WithEvents PRIORITYNumericUpDown As System.Windows.Forms.NumericUpDown
Friend WithEvents tstrlblSave As System.Windows.Forms.ToolStripLabel
Friend WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_TYPEBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_TYPETableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_TYPETableAdapter
Friend WithEvents cmbType As System.Windows.Forms.ComboBox
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
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 Label1 As System.Windows.Forms.Label
Friend WithEvents cmbObjekttypen As System.Windows.Forms.ComboBox
Friend WithEvents Label2 As System.Windows.Forms.Label
@ -1852,15 +1642,12 @@ Partial Class frmAdministration
Friend WithEvents TabPage5 As System.Windows.Forms.TabPage
Friend WithEvents TabPage6 As System.Windows.Forms.TabPage
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Friend WithEvents TBPM_PROFILE_CONTROLSBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILE_CONTROLSTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_CONTROLSTableAdapter
Friend WithEvents PM_VEKTOR_INDEXComboBox As System.Windows.Forms.ComboBox
Friend WithEvents TBPM_PROFILE_FILESBindingSource As System.Windows.Forms.BindingSource
Friend WithEvents TBPM_PROFILE_FILESTableAdapter As DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBPM_PROFILE_FILESTableAdapter
Friend WithEvents cmbLOGIndex As System.Windows.Forms.ComboBox
Friend WithEvents Label13 As System.Windows.Forms.Label
Friend WithEvents DataGridViewCheckBoxColumn2 As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl
Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView
@ -1872,7 +1659,6 @@ Partial Class frmAdministration
Friend WithEvents TabPage12 As TabPage
Friend WithEvents ANNOTATE_WORK_HISTORY_ENTRYCheckBox As CheckBox
Friend WithEvents ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox As CheckBox
Friend WithEvents SQL_VIEWTextBox As TextBox
Friend WithEvents WORK_HISTORY_ENTRYTextBox As TextBox
Friend WithEvents gridAvailableProfiles As DevExpress.XtraGrid.GridControl
Friend WithEvents viewAvailableProfiles As DevExpress.XtraGrid.Views.Grid.GridView
@ -1892,7 +1678,6 @@ Partial Class frmAdministration
Friend WithEvents Label20 As Label
Friend WithEvents Panel2 As Panel
Friend WithEvents Label19 As Label
Friend WithEvents Label21 As Label
Friend WithEvents TabControl3 As TabControl
Friend WithEvents TabPage7 As TabPage
Friend WithEvents TabPage8 As TabPage
@ -1921,23 +1706,8 @@ Partial Class frmAdministration
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents gridFinalIndex As DevExpress.XtraGrid.GridControl
Friend WithEvents viewFinalIndex As DevExpress.XtraGrid.Views.Grid.GridView
Friend WithEvents BindingNavigator1 As BindingNavigator
Friend WithEvents BindingNavigatorAddNewItem As ToolStripButton
Friend WithEvents BindingNavigatorCountItem1 As ToolStripLabel
Friend WithEvents BindingNavigatorDeleteItem As ToolStripButton
Friend WithEvents BindingNavigatorMoveFirstItem1 As ToolStripButton
Friend WithEvents BindingNavigatorMovePreviousItem1 As ToolStripButton
Friend WithEvents BindingNavigatorSeparator3 As ToolStripSeparator
Friend WithEvents BindingNavigatorPositionItem1 As ToolStripTextBox
Friend WithEvents BindingNavigatorSeparator4 As ToolStripSeparator
Friend WithEvents BindingNavigatorMoveNextItem1 As ToolStripButton
Friend WithEvents BindingNavigatorMoveLastItem1 As ToolStripButton
Friend WithEvents BindingNavigatorSeparator5 As ToolStripSeparator
Friend WithEvents PropertyGrid1 As PropertyGrid
Friend WithEvents tsBtnSave As ToolStripButton
Friend WithEvents Panel5 As Panel
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents tsBtnCancel As ToolStripButton
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILEBindingSource As BindingSource
Friend WithEvents FNPM_GET_FREE_USER_FOR_PROFILETableAdapter As DD_DMSLiteDataSetTableAdapters.FNPM_GET_FREE_USER_FOR_PROFILETableAdapter
Friend WithEvents FinalIndexDataSet As FinalIndexDataSet
@ -1961,7 +1731,6 @@ Partial Class frmAdministration
Friend WithEvents RibbonControl1 As DevExpress.XtraBars.Ribbon.RibbonControl
Friend WithEvents RibbonPage1 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents RibbonPageGroup1 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar
Friend WithEvents RibbonPage2 As DevExpress.XtraBars.Ribbon.RibbonPage
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
@ -1979,4 +1748,16 @@ Partial Class frmAdministration
Friend WithEvents BarButtonItem12 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem13 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem14 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents TabPage3 As TabPage
Friend WithEvents SQL_VIEWTextBox As TextBox
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents MOVE2FOLDERTextBox As TextBox
Friend WithEvents btnmovetoFolderDialog As Button
Friend WithEvents BarButtonItem15 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem16 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem17 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents RibbonPageGroup2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup
Friend WithEvents BarButtonItem18 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents tsbStaticInfo As DevExpress.XtraBars.BarStaticItem
End Class

2799
app/DD_PM_WINDREAM/frmAdministration.resx
View File

File diff suppressed because it is too large Load Diff

252
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -238,7 +238,7 @@ Public Class frmAdministration
End Sub
Private Sub TBPM_PROFILEBindingSource_PositionChanged(sender As System.Object, e As System.EventArgs) Handles TBPM_PROFILEBindingSource.PositionChanged
tstrlblSave.Visible = False
tsbStaticInfo.Caption = ""
Indexe_eintragen()
If tabctrl_Profilkonfig.SelectedIndex = 1 And TBPM_PROFILEBindingSource.Position <> -1 Then
Refresh_Final_indexe()
@ -249,7 +249,7 @@ Public Class frmAdministration
Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs) Handles btnmovetoFolderDialog.Click
Private Sub btnmovetoFolderDialog_Click(sender As System.Object, e As System.EventArgs)
' wenn im Formular der OK-Button geklickt wurde
If Me.FolderBrowserDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
' den Speicherort der windream-Suche in die TextBox eintragen
@ -393,6 +393,7 @@ Public Class frmAdministration
Private Sub frmProfileDesigner_Shown(sender As Object, e As System.EventArgs) Handles Me.Shown
TabControl1.SelectedIndex = 0
formloaded = True
RibbonPageGroup2.Enabled = False
End Sub
@ -410,21 +411,23 @@ Public Class frmAdministration
End Sub
Private Sub TabControl2_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles tabctrl_Profilkonfig.SelectedIndexChanged
If tabctrl_Profilkonfig.SelectedIndex = 1 Then
CURRENT_OBJECTTYPE = cmbObjekttypen.Text
Refresh_Final_indexe()
CancelFinalIndexInsert()
End If
Select Case tabctrl_Profilkonfig.SelectedIndex
Case 0
RibbonPageGroup2.Enabled = False
Case 1
CURRENT_OBJECTTYPE = cmbObjekttypen.Text
Refresh_Final_indexe()
CancelFinalIndexInsert()
End Select
End Sub
Private Sub TabControl1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
Select Case TabControl1.SelectedIndex
Case 0
RibbonPageGroup1.Enabled = True
RibbonPageGroup2.Enabled = False
Case 1
RibbonPageGroup2.Enabled = True
RibbonPageGroup1.Enabled = False
If PROFILGUIDTextBox.Text = String.Empty Then
@ -612,8 +615,9 @@ Public Class frmAdministration
Private Sub CancelFinalIndexInsert()
INSERT_ACTIVE = False
tsBtnCancel.Visible = False
BindingNavigatorAddNewItem.Visible = True
BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
TBPM_PROFILE_FINAL_INDEXINGBindingSource.CancelEdit()
@ -816,15 +820,17 @@ Public Class frmAdministration
' End Try
'End Sub
Private Sub tsBtnCancel_Click(sender As Object, e As EventArgs) Handles tsBtnCancel.Click
CancelFinalIndexInsert()
End Sub
Private Sub frmProfileDesigner_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
CancelFinalIndexInsert()
End Sub
Private Sub TabControl2_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles TabControl2.SelectedIndexChanged
Select Case TabControl2.SelectedIndex
Case 0
RibbonPageGroup2.Enabled = True
Case Else
RibbonPageGroup2.Enabled = False
End Select
CancelFinalIndexInsert()
End Sub
@ -869,6 +875,8 @@ Public Class frmAdministration
End If
If IDB_ACTIVE Then
obj.Indicies = MyIndicies.Except(IDBData.IDBSystemIndices).ToList
Else
obj.Indicies = MyIndicies
End If
@ -893,87 +901,6 @@ Public Class frmAdministration
End Try
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
INSERT_ACTIVE = True
tsBtnCancel.Visible = True
BindingNavigatorAddNewItem.Visible = False
End Sub
Private Sub ToolStripButton4_Click_1(sender As Object, e As EventArgs) Handles tsBtnSave.Click
Try
Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
If Not IsNothing(obj) Then
Dim value
If obj.SQLCommand.Value <> String.Empty Then
value = "SQL-Command"
Else
value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex)
End If
value = NotNull(value, String.Empty)
Dim guid = obj.GUID
Dim profileId As Integer = PROFILGUIDTextBox.Text
Dim connectionId As Integer = obj.ConnectionId
Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
Dim indexName As String = NotNull(obj.IndexName, String.Empty)
Dim isVectorIndex As Boolean = obj.VectorIndex
Dim addedWho As String = USER_USERNAME
Dim description As String = obj.Description
Dim active As Integer = IIf(obj.Active, 1, 0)
Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0)
Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty)
If indexName = String.Empty Then
MsgBox("Das Feld IndexName muss ausgefüllt sein!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If sqlCommand = String.Empty And value = String.Empty Then
MsgBox("Entweder SQLCommand oder StaticValue müssen ausgefüllt sein!", MsgBoxStyle.Exclamation)
Exit Sub
End If
' Add the vector prefix to the value if index is a vector index
' and value is NOT an SQL-Command
If obj.VectorIndex And value <> "SQL-Command" Then
value = $"{FINALINDICES.PREFIX_VECTOR}{value}"
End If
If INSERT_ACTIVE = True Then
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR)
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}')"
If ClassDatabase.Execute_non_Query(sql, True) Then
INSERT_ACTIVE = False
End If
Else
Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING
SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}',
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}'
WHERE GUID = {guid}"
If ClassDatabase.Execute_non_Query(sql, True) Then
End If
End If
Refresh_Final_indexe()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical)
LOGGER.Info("Error while Saving Final Index: " & ex.Message)
Finally
tsBtnCancel.Visible = False
BindingNavigatorAddNewItem.Visible = True
INSERT_ACTIVE = False
End Try
End Sub
Private Sub PropertyGrid1_PropertyValueChanged(s As Object, e As PropertyValueChangedEventArgs) Handles PropertyGrid1.PropertyValueChanged
Dim propertyGrid As PropertyGrid = s
@ -996,25 +923,8 @@ Public Class frmAdministration
End If
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First()
Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle)
If Not IsNothing(row) Then
If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID"))
Refresh_Final_indexe()
MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
End If
End If
End Sub
Private Sub ToolStripButton5_Click(sender As Object, e As EventArgs) Handles ToolStripButton5.Click
Refresh_Final_indexe()
End Sub
Private Sub tsBtnCancel_Click_1(sender As Object, e As EventArgs) Handles tsBtnCancel.Click
Private Sub tsBtnCancel_Click_1(sender As Object, e As EventArgs)
CancelFinalIndexInsert()
End Sub
@ -1125,9 +1035,10 @@ Public Class frmAdministration
Me.TBPM_PROFILEBindingSource.EndEdit()
If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Then
Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE)
tstrlblSave.Visible = True
tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
Else
tstrlblSave.Visible = False
tsbStaticInfo.Caption = ""
End If
Catch ex As Exception
LOGGER.Error(ex)
@ -1180,4 +1091,113 @@ Public Class frmAdministration
LOGGER.Error(ex)
End Try
End Sub
Private Sub BarButtonItem15_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem15.ItemClick
Refresh_Final_indexe()
End Sub
Private Sub BarButtonItem16_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem16.ItemClick
INSERT_ACTIVE = True
BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
TBPM_PROFILE_FINAL_INDEXINGBindingSource.AddNew()
End Sub
Private Sub BarButtonItem17_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem17.ItemClick
Dim selectedRowHandle = viewFinalIndex.GetSelectedRows().First()
Dim row As DataRow = viewFinalIndex.GetDataRow(selectedRowHandle)
If Not IsNothing(row) Then
If MsgBox("Wollen Sie den Index wirklich löschen?", MsgBoxStyle.YesNo Or MsgBoxStyle.Question) = MsgBoxResult.Yes Then
TBPM_PROFILE_FINAL_INDEXINGTableAdapter.DeleteFinalIndex(row.Item("GUID"))
Refresh_Final_indexe()
MsgBox("Index erfolgreich gelöscht!", MsgBoxStyle.Information, "Hinweis:")
End If
End If
End Sub
Private Sub BarButtonItem18_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem18.ItemClick
Try
Dim obj As FinalIndexProperties = PropertyGrid1.SelectedObject
If Not IsNothing(obj) Then
Dim value
If obj.SQLCommand.Value <> String.Empty Then
value = "SQL-Command"
Else
value = FINALINDICES.GetValue(obj, obj.IndexName, MyIndicies, MyIndicies_Types, obj.VectorIndex)
End If
value = NotNull(value, String.Empty)
Dim guid = obj.GUID
Dim profileId As Integer = PROFILGUIDTextBox.Text
Dim connectionId As Integer = obj.ConnectionId
Dim sqlCommand As String = NotNull(obj.SQLCommand.Value, String.Empty).Replace("'", "''")
Dim indexName As String = NotNull(obj.IndexName, String.Empty)
Dim isVectorIndex As Boolean = obj.VectorIndex
Dim addedWho As String = USER_USERNAME
Dim description As String = obj.Description
Dim active As Integer = IIf(obj.Active, 1, 0)
Dim preventDuplicates As Integer = IIf(obj.PreventDuplicates, 1, 0)
Dim AllowAddNewValues As Integer = IIf(obj.AllowAddNewValues, 1, 0)
Dim IF_VEKTOR_BEHAVIOUR As String = NotNull(obj.VectorBehaviour, String.Empty)
If indexName = String.Empty Then
MsgBox("We need an index!", MsgBoxStyle.Exclamation)
Exit Sub
End If
If sqlCommand = String.Empty And value = String.Empty Then
MsgBox("SQLCommand or StaticValue need to be filled!", MsgBoxStyle.Exclamation)
Exit Sub
End If
' Add the vector prefix to the value if index is a vector index
' and value is NOT an SQL-Command
If obj.VectorIndex And value <> "SQL-Command" Then
value = $"{FINALINDICES.PREFIX_VECTOR}{value}"
End If
If INSERT_ACTIVE = True Then
Dim sql As String = $"INSERT INTO TBPM_PROFILE_FINAL_INDEXING (PROFIL_ID, CONNECTION_ID, SQL_COMMAND, INDEXNAME, VALUE, ACTIVE, PREVENT_DUPLICATES, ALLOW_NEW_VALUES, ADDED_WHO,IF_VEKTOR_BEHAVIOUR)
VALUES ({profileId}, {connectionId}, '{sqlCommand}', '{indexName}', '{value}', {active}, {preventDuplicates}, {AllowAddNewValues}, '{addedWho}','{IF_VEKTOR_BEHAVIOUR}')"
If ClassDatabase.Execute_non_Query(sql, True) Then
tsbStaticInfo.Caption = $"Final index added - {Now.ToLongTimeString}"
INSERT_ACTIVE = False
End If
Else
Dim sql As String = $"UPDATE TBPM_PROFILE_FINAL_INDEXING
SET CONNECTION_ID = {connectionId}, SQL_COMMAND = '{sqlCommand}', INDEXNAME = '{indexName}', CHANGED_WHO = '{addedWho}',
VALUE = '{value}', ACTIVE = {active}, ALLOW_NEW_VALUES = {AllowAddNewValues}, PREVENT_DUPLICATES = {preventDuplicates},IF_VEKTOR_BEHAVIOUR = '{IF_VEKTOR_BEHAVIOUR}'
WHERE GUID = {guid}"
If ClassDatabase.Execute_non_Query(sql, True) Then
tsbStaticInfo.Caption = $"Final index saved - {Now.ToLongTimeString}"
End If
End If
Refresh_Final_indexe()
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox("Error while Saving Final Index: " & ex.Message, MsgBoxStyle.Critical)
LOGGER.Info("Error while Saving Final Index: " & ex.Message)
Finally
BarButtonItem19.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
BarButtonItem16.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
INSERT_ACTIVE = False
End Try
End Sub
Private Sub BarButtonItem19_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem19.ItemClick
CancelFinalIndexInsert()
End Sub
Private Sub gridFinalIndex_MouseHover(sender As Object, e As EventArgs) Handles gridFinalIndex.MouseHover
RibbonPageGroup2.Enabled = True
End Sub
End Class

248
app/DD_PM_WINDREAM/frmConnection.Designer.vb generated
View File

@ -32,6 +32,8 @@ Partial Class frmConnection
Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
Me.Chckwin_aut = New System.Windows.Forms.CheckBox()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCheck_Con = New System.Windows.Forms.Button()
Me.lblDatasource2 = New System.Windows.Forms.Label()
@ -59,14 +61,6 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.TBDD_CONNECTIONDataGridView = New System.Windows.Forms.DataGridView()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.SERVERTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_ProcessManager.DD_DMSLiteDataSet()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@ -75,18 +69,26 @@ Partial Class frmConnection
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.SERVERTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.DATENBANKComboBox = New System.Windows.Forms.ComboBox()
Me.BEMERKUNGTextBox = New System.Windows.Forms.TextBox()
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.SYS_CONNECTIONCheckBox = New System.Windows.Forms.CheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
GEANDERTWERLabel = New System.Windows.Forms.Label()
GEAENDERTWANNLabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
BEMERKUNGLabel = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'GEANDERTWERLabel
@ -110,7 +112,7 @@ Partial Class frmConnection
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(529, 36)
GUIDLabel.Location = New System.Drawing.Point(523, 19)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(25, 16)
GUIDLabel.TabIndex = 64
@ -119,7 +121,7 @@ Partial Class frmConnection
'BEMERKUNGLabel
'
BEMERKUNGLabel.AutoSize = True
BEMERKUNGLabel.Location = New System.Drawing.Point(532, 83)
BEMERKUNGLabel.Location = New System.Drawing.Point(526, 66)
BEMERKUNGLabel.Name = "BEMERKUNGLabel"
BEMERKUNGLabel.Size = New System.Drawing.Size(82, 16)
BEMERKUNGLabel.TabIndex = 66
@ -129,7 +131,7 @@ Partial Class frmConnection
'
Me.chkOR_ohne_TNS.AutoSize = True
Me.chkOR_ohne_TNS.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(15, 191)
Me.chkOR_ohne_TNS.Location = New System.Drawing.Point(9, 174)
Me.chkOR_ohne_TNS.Name = "chkOR_ohne_TNS"
Me.chkOR_ohne_TNS.Size = New System.Drawing.Size(139, 20)
Me.chkOR_ohne_TNS.TabIndex = 45
@ -141,7 +143,7 @@ Partial Class frmConnection
'
Me.Chckwin_aut.AutoSize = True
Me.Chckwin_aut.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Chckwin_aut.Location = New System.Drawing.Point(12, 191)
Me.Chckwin_aut.Location = New System.Drawing.Point(6, 174)
Me.Chckwin_aut.Name = "Chckwin_aut"
Me.Chckwin_aut.Size = New System.Drawing.Size(180, 20)
Me.Chckwin_aut.TabIndex = 8
@ -153,16 +155,26 @@ Partial Class frmConnection
'
Me.txtBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEZEICHNUNG", True))
Me.txtBezeichnung.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBezeichnung.Location = New System.Drawing.Point(232, 53)
Me.txtBezeichnung.Location = New System.Drawing.Point(226, 36)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(294, 23)
Me.txtBezeichnung.TabIndex = 1
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(229, 36)
Me.Label1.Location = New System.Drawing.Point(223, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(154, 17)
Me.Label1.TabIndex = 40
@ -173,7 +185,7 @@ Partial Class frmConnection
Me.btnCheck_Con.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnCheck_Con.Image = Global.DD_ProcessManager.My.Resources.Resources.world_link
Me.btnCheck_Con.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCheck_Con.Location = New System.Drawing.Point(374, 150)
Me.btnCheck_Con.Location = New System.Drawing.Point(368, 133)
Me.btnCheck_Con.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnCheck_Con.Name = "btnCheck_Con"
Me.btnCheck_Con.Size = New System.Drawing.Size(152, 28)
@ -187,7 +199,7 @@ Partial Class frmConnection
'
Me.lblDatasource2.AutoSize = True
Me.lblDatasource2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatasource2.Location = New System.Drawing.Point(229, 82)
Me.lblDatasource2.Location = New System.Drawing.Point(223, 65)
Me.lblDatasource2.Name = "lblDatasource2"
Me.lblDatasource2.Size = New System.Drawing.Size(91, 17)
Me.lblDatasource2.TabIndex = 34
@ -199,7 +211,7 @@ Partial Class frmConnection
Me.btnMdbLöschen.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.btnMdbLöschen.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnMdbLöschen.Image = CType(resources.GetObject("btnMdbLöschen.Image"), System.Drawing.Image)
Me.btnMdbLöschen.Location = New System.Drawing.Point(532, 150)
Me.btnMdbLöschen.Location = New System.Drawing.Point(526, 133)
Me.btnMdbLöschen.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnMdbLöschen.Name = "btnMdbLöschen"
Me.btnMdbLöschen.Size = New System.Drawing.Size(29, 26)
@ -211,7 +223,7 @@ Partial Class frmConnection
'
Me.btnMdbLocation.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.btnMdbLocation.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnMdbLocation.Location = New System.Drawing.Point(497, 101)
Me.btnMdbLocation.Location = New System.Drawing.Point(491, 84)
Me.btnMdbLocation.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnMdbLocation.Name = "btnMdbLocation"
Me.btnMdbLocation.Size = New System.Drawing.Size(29, 26)
@ -224,7 +236,7 @@ Partial Class frmConnection
'
Me.txtPassword.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "PASSWORD", True))
Me.txtPassword.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPassword.Location = New System.Drawing.Point(231, 153)
Me.txtPassword.Location = New System.Drawing.Point(225, 136)
Me.txtPassword.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
@ -237,7 +249,7 @@ Partial Class frmConnection
'
Me.txtUserId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "USERNAME", True))
Me.txtUserId.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUserId.Location = New System.Drawing.Point(15, 153)
Me.txtUserId.Location = New System.Drawing.Point(9, 136)
Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtUserId.Name = "txtUserId"
Me.txtUserId.Size = New System.Drawing.Size(200, 23)
@ -248,7 +260,7 @@ Partial Class frmConnection
'
Me.lblPassword.AutoSize = True
Me.lblPassword.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblPassword.Location = New System.Drawing.Point(229, 132)
Me.lblPassword.Location = New System.Drawing.Point(223, 115)
Me.lblPassword.Name = "lblPassword"
Me.lblPassword.Size = New System.Drawing.Size(63, 17)
Me.lblPassword.TabIndex = 4
@ -259,7 +271,7 @@ Partial Class frmConnection
'
Me.lblUserId.AutoSize = True
Me.lblUserId.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblUserId.Location = New System.Drawing.Point(12, 132)
Me.lblUserId.Location = New System.Drawing.Point(6, 115)
Me.lblUserId.Name = "lblUserId"
Me.lblUserId.Size = New System.Drawing.Size(49, 17)
Me.lblUserId.TabIndex = 3
@ -270,7 +282,7 @@ Partial Class frmConnection
'
Me.lblDataSource.AutoSize = True
Me.lblDataSource.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDataSource.Location = New System.Drawing.Point(12, 82)
Me.lblDataSource.Location = New System.Drawing.Point(6, 65)
Me.lblDataSource.Name = "lblDataSource"
Me.lblDataSource.Size = New System.Drawing.Size(83, 17)
Me.lblDataSource.TabIndex = 2
@ -284,7 +296,7 @@ Partial Class frmConnection
Me.cmbDbArt.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbDbArt.FormattingEnabled = True
Me.cmbDbArt.Items.AddRange(New Object() {"MS-SQL", "ODBC", "ORACLE"})
Me.cmbDbArt.Location = New System.Drawing.Point(15, 53)
Me.cmbDbArt.Location = New System.Drawing.Point(9, 36)
Me.cmbDbArt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbDbArt.Name = "cmbDbArt"
Me.cmbDbArt.Size = New System.Drawing.Size(210, 24)
@ -294,7 +306,7 @@ Partial Class frmConnection
'
Me.lblDatenbanktyp.AutoSize = True
Me.lblDatenbanktyp.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lblDatenbanktyp.Location = New System.Drawing.Point(12, 36)
Me.lblDatenbanktyp.Location = New System.Drawing.Point(6, 19)
Me.lblDatenbanktyp.Name = "lblDatenbanktyp"
Me.lblDatenbanktyp.Size = New System.Drawing.Size(96, 17)
Me.lblDatenbanktyp.TabIndex = 0
@ -439,68 +451,6 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1166, 316)
Me.TBDD_CONNECTIONDataGridView.TabIndex = 53
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'SERVERTextBox
'
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103)
Me.SERVERTextBox.Name = "SERVERTextBox"
Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23)
Me.SERVERTextBox.TabIndex = 2
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
Me.GUIDTextBox.TabIndex = 65
'
'DATENBANKComboBox
'
Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
Me.DATENBANKComboBox.FormattingEnabled = True
Me.DATENBANKComboBox.Location = New System.Drawing.Point(232, 102)
Me.DATENBANKComboBox.Name = "DATENBANKComboBox"
Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24)
Me.DATENBANKComboBox.TabIndex = 66
'
'BEMERKUNGTextBox
'
Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True))
Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(535, 102)
Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox"
Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23)
Me.BEMERKUNGTextBox.TabIndex = 67
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID"
@ -550,11 +500,65 @@ Partial Class frmConnection
Me.DataGridViewCheckBoxColumn1.HeaderText = "Aktiv"
Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'SERVERTextBox
'
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.SERVERTextBox.Location = New System.Drawing.Point(9, 86)
Me.SERVERTextBox.Name = "SERVERTextBox"
Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23)
Me.SERVERTextBox.TabIndex = 2
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(526, 36)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
Me.GUIDTextBox.TabIndex = 65
'
'DATENBANKComboBox
'
Me.DATENBANKComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "DATENBANK", True))
Me.DATENBANKComboBox.FormattingEnabled = True
Me.DATENBANKComboBox.Location = New System.Drawing.Point(226, 85)
Me.DATENBANKComboBox.Name = "DATENBANKComboBox"
Me.DATENBANKComboBox.Size = New System.Drawing.Size(259, 24)
Me.DATENBANKComboBox.TabIndex = 66
'
'BEMERKUNGTextBox
'
Me.BEMERKUNGTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "BEMERKUNG", True))
Me.BEMERKUNGTextBox.Location = New System.Drawing.Point(529, 85)
Me.BEMERKUNGTextBox.Name = "BEMERKUNGTextBox"
Me.BEMERKUNGTextBox.Size = New System.Drawing.Size(219, 23)
Me.BEMERKUNGTextBox.TabIndex = 67
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
Me.TableAdapterManager.Connection = Nothing
Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing
Me.TableAdapterManager.TBDD_EMAIL_TEMPLATETableAdapter = Nothing
Me.TableAdapterManager.TBDD_GUI_LANGUAGE_PHRASETableAdapter = Nothing
Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing
Me.TableAdapterManager.TBPM_CONTROL_TABLETableAdapter = Nothing
Me.TableAdapterManager.TBPM_ERROR_LOGTableAdapter = Nothing
@ -573,56 +577,67 @@ Partial Class frmConnection
'SYS_CONNECTIONCheckBox
'
Me.SYS_CONNECTIONCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBDD_CONNECTIONBindingSource, "SYS_CONNECTION", True))
Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(627, 53)
Me.SYS_CONNECTIONCheckBox.Location = New System.Drawing.Point(621, 36)
Me.SYS_CONNECTIONCheckBox.Name = "SYS_CONNECTIONCheckBox"
Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(104, 24)
Me.SYS_CONNECTIONCheckBox.Size = New System.Drawing.Size(127, 24)
Me.SYS_CONNECTIONCheckBox.TabIndex = 68
Me.SYS_CONNECTIONCheckBox.Text = "CheckBox1"
Me.SYS_CONNECTIONCheckBox.Text = "SYS Connection"
Me.SYS_CONNECTIONCheckBox.UseVisualStyleBackColor = True
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.lblDatenbanktyp)
Me.GroupBox1.Controls.Add(Me.SYS_CONNECTIONCheckBox)
Me.GroupBox1.Controls.Add(Me.chkOR_ohne_TNS)
Me.GroupBox1.Controls.Add(BEMERKUNGLabel)
Me.GroupBox1.Controls.Add(Me.btnCheck_Con)
Me.GroupBox1.Controls.Add(Me.BEMERKUNGTextBox)
Me.GroupBox1.Controls.Add(Me.lblDatasource2)
Me.GroupBox1.Controls.Add(Me.DATENBANKComboBox)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Controls.Add(GUIDLabel)
Me.GroupBox1.Controls.Add(Me.cmbDbArt)
Me.GroupBox1.Controls.Add(Me.GUIDTextBox)
Me.GroupBox1.Controls.Add(Me.Chckwin_aut)
Me.GroupBox1.Controls.Add(Me.SERVERTextBox)
Me.GroupBox1.Controls.Add(Me.btnMdbLöschen)
Me.GroupBox1.Controls.Add(Me.txtBezeichnung)
Me.GroupBox1.Controls.Add(Me.lblDataSource)
Me.GroupBox1.Controls.Add(Me.txtUserId)
Me.GroupBox1.Controls.Add(Me.btnMdbLocation)
Me.GroupBox1.Controls.Add(Me.lblUserId)
Me.GroupBox1.Controls.Add(Me.txtPassword)
Me.GroupBox1.Controls.Add(Me.lblPassword)
Me.GroupBox1.Location = New System.Drawing.Point(12, 28)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(773, 196)
Me.GroupBox1.TabIndex = 69
Me.GroupBox1.TabStop = False
'
'frmConnection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1187, 619)
Me.Controls.Add(Me.SYS_CONNECTIONCheckBox)
Me.Controls.Add(BEMERKUNGLabel)
Me.Controls.Add(Me.BEMERKUNGTextBox)
Me.Controls.Add(Me.DATENBANKComboBox)
Me.Controls.Add(GUIDLabel)
Me.Controls.Add(Me.GUIDTextBox)
Me.Controls.Add(Me.SERVERTextBox)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(GEAENDERTWANNLabel)
Me.Controls.Add(Me.lblDatenbanktyp)
Me.Controls.Add(Me.txtUserId)
Me.Controls.Add(Me.GEAENDERTWANNTextBox)
Me.Controls.Add(Me.txtPassword)
Me.Controls.Add(GEANDERTWERLabel)
Me.Controls.Add(Me.lblPassword)
Me.Controls.Add(Me.GEANDERTWERTextBox)
Me.Controls.Add(Me.lblUserId)
Me.Controls.Add(Me.TBDD_CONNECTIONDataGridView)
Me.Controls.Add(Me.btnMdbLocation)
Me.Controls.Add(Me.TBDD_CONNECTIONBindingNavigator)
Me.Controls.Add(Me.lblDataSource)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.btnMdbLöschen)
Me.Controls.Add(Me.Chckwin_aut)
Me.Controls.Add(Me.cmbDbArt)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.lblDatasource2)
Me.Controls.Add(Me.btnCheck_Con)
Me.Controls.Add(Me.chkOR_ohne_TNS)
Me.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmConnection"
Me.Text = "Verwaltung der Connections"
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(False)
Me.TBDD_CONNECTIONBindingNavigator.PerformLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -676,4 +691,5 @@ Partial Class frmConnection
Friend WithEvents DATENBANKComboBox As ComboBox
Friend WithEvents BEMERKUNGTextBox As TextBox
Friend WithEvents SYS_CONNECTIONCheckBox As CheckBox
Friend WithEvents GroupBox1 As GroupBox
End Class

8
app/DD_PM_WINDREAM/frmConnection.vb
View File

@ -335,4 +335,12 @@ Public Class frmConnection
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub SYS_CONNECTIONCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles SYS_CONNECTIONCheckBox.CheckedChanged
If SYS_CONNECTIONCheckBox.Checked Then
GroupBox1.Enabled = False
Else
GroupBox1.Enabled = True
End If
End Sub
End Class

3
app/DD_PM_WINDREAM/frmFormDesigner.vb
View File

@ -44,6 +44,9 @@ Public Class frmFormDesigner
' Windream initialisieren
If IDB_ACTIVE = False Then
clsWindream.Create_Session()
btnButton.Visible = False
Else
btnButton.Visible = True
End If

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

@ -123,6 +123,7 @@ Partial Class frmMain
Me.ApplicationMenu1 = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components)
Me.bwSync = New System.ComponentModel.BackgroundWorker()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.bwBasicData = New System.ComponentModel.BackgroundWorker()
CType(Me.SplitContainerDashboard, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SplitContainerDashboard.Panel1.SuspendLayout()
Me.SplitContainerDashboard.Panel2.SuspendLayout()
@ -857,6 +858,11 @@ Partial Class frmMain
'
resources.ApplyResources(Me.SaveFileDialog1, "SaveFileDialog1")
'
'bwBasicData
'
Me.bwBasicData.WorkerReportsProgress = True
Me.bwBasicData.WorkerSupportsCancellation = True
'
'frmMain
'
Me.Appearance.Options.UseFont = True
@ -1022,4 +1028,5 @@ Partial Class frmMain
Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents bwBasicData As System.ComponentModel.BackgroundWorker
End Class

583
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -162,24 +162,6 @@
<metadata name="ToolStripTopLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 95</value>
</metadata>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton5.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton5.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton5.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripTopLeft.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -243,57 +225,6 @@
<metadata name="ToolStripTopRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>804, 95</value>
</metadata>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton6.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton6.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton6.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripTopRight.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -396,57 +327,6 @@
<metadata name="ToolStripBottomLeft.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>955, 95</value>
</metadata>
<data name="ToolStripButton3.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton3.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton7.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton7.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton7.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripBottomLeft.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -510,57 +390,6 @@
<metadata name="ToolStripBottomRight.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1117, 95</value>
</metadata>
<data name="ToolStripButton4.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton4.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton4.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton8.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton8.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton8.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripBottomRight.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
@ -651,6 +480,177 @@
<data name="&gt;&gt;SplitContainerDashboard.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="ToolStripButton1.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton1.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton1.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton5.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton5.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton5.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripButton2.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton2.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton2.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton6.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton6.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton6.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton6.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripButton3.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton3.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton3.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton7.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton7.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton7.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton7.Text" xml:space="preserve">
<value>Export png</value>
</data>
<data name="ToolStripButton4.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton4.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton4.Text" xml:space="preserve">
<value>Export to pdf</value>
</data>
<data name="ToolStripButton8.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAYwSURBVFhHxZfZU1NXHMcZXzrT9771H+tDH/rQl04XtaO0
LtWqrSguFVtBCJtAgkAgIMq+hYRFFpGt7MgSCIQAIQmQ3CTffn8n91KQq+ODpcx85iT3HvL9nN8595y5
Kdmlzfg/SElJ+YScUgIRLfFB7GvxI+wJ0RhJtrsRIq3xWaEdENa5mVkqAp8piQ8ReDtUtSo0zjBBQiXk
aKiEHQ4O7yf59vIDEficfHpEoKax+wjVxF7X+dEI7UcVX3x39d0Cbi+O0LUOdJMeH9C3AQyS135gZBMY
20zg780YJrdimNoWNNXKd7ku96Wf9C+qcScF9kwF4gcCnQx1EaN1r/0r8ZIS/RQYIsP84VEGjDNogoES
OkkBFU7kutwfZviQEnAxPILQ7jsqIPMqAs5VhhPV6iJdlBCBXgoMMPwVGfEnMOZnEMO25icQ66kBXuQj
5nZga25cXZf7w+wnwk+qXQjuRhTHBIwFJnPezmChQ0dEXHoVeskAORDgKCUck61AaBLANhBkO9qIrdkx
JSD9pH+hLrBjJqAeJy2mBFo9QOsKYdvOVknoU9FD+kSAlXi9EccoAzQZuQoP63BuAoPQnHZ1f4j9pH+h
o1OFmwvoj5MINC3jgGaRIW2GBBGJfkoMrscpoamyq5EjSDhU8B9BoeosDPs0hsdV1UQgEI4gYCZgbB4i
UL8IRcMS0EhEQmhjNWRtiESvkpCRsQLuKo54lKG8iTdkHFhqhtZepu4PsJ/0L6hyUmBfYS7AjcJBgecM
f77AgQkiQwmRadIlnKRLKuFNcDpi8E2NcZnXAutuIDoELDTS0ArfxAglY+hlP+lfUCUVoEDITEDfvRwN
XajhIIRqva2liEjV6RWRKREJ12oC3V6OzhvDOsM0Z7kqu4x8fWIYL3m9ZzUON/tJf6nANsO3QntmAskt
UwQq56CoIo75JDWUEBGpiFSjhRLtpHMlwYA4ulcZxkCRkVa+y3W5LwtZpjC/soMCewpTAdmrRcA+C1QI
M4Bd0GWqjIrItBBZpK2kgz/e4UkwjIGeOFxsnfzexutSLekn/UVARm9agZAhUO/GU4YextIfQrpjEjdK
BpDXMgWHiBjrg6iFypAWXUjaZn26Gnhf1tMzkmenQHCXArsmAjyhZI921HeheAoHZPeFcDO/HWubYcz7
w2h0zyK3ZRqVs3FUUsRYJ88YVEfu1Uzjm7RaXMoZQslYRIlWk0pOoyGwSUwEkoeEVKCIG9sTktm9g6sW
F+a8QYSiCaxwnw9EErheMozstgWUsTrl/OEKTk8tJS7ldMHSOovBxShcs1GkPu5F9lBETWE5ybW3q/DN
HTMBhstBUdk8gEKGZzj9+D3PiUVfmNOTwLwvioJmL3LqVpH3bEVJWHq3YZvmNE3HcS6jFZYXy1gOx9E/
p8HSEEB5dxhnMl3IGY7CStm8iqSA30wgyHDZp8sbXuJOvUeFT66GsR6I89lNYHuPB1VPABZuBlmsZyaH
fTG7Gw+7tnD6Wg2s/TuY47nQP63htmMb10p9+NnqxXnrBr6824c/X0VUBSTcHwibCDBcsNe58VtuBwZn
tjHt1xRrQUpQoHMiDEvtkhLI4CNxr2wC5x85UeAKYmwtBueEhqxarpkKP65Q4HKJF+dyVvBV5jy+vutC
LiuwsRPGRiB0XMA4JGzVLRia28OIR8PEUlLAs8PdLhTHzLKG4vo1PKx4g4zKGaTbxpFWPI7UvzpgZ7mz
6pLhMnoJTy1YwY+5y/g+axE/PFpGevZThr9DQA4IwVbdhL43u4qRBQ1ji/uYo8wb7nhNoyHkOzxK4H7l
LNKezuJG4Qiu5fXizP02pFrXcN3O0duSAufzPTibs4Sz2Us4/WgJ6Y/fK5A8JKxVTbiYXoTUm0/w060i
XLxTjAt3SnDhrpXYcOmeDVf+KMXlB4TtL+QKP/+aQR7aFOk5ZWq0tw9x63Ep0rJEIISNbTMB/ZRSG4UJ
8uj4OX8KGYVq+WMKGZWBce0QDPTpyHcfOS7AQ0L26LdDk8EGSYH3Bh4KUaFGa6D3OSZgHBL/uYDOMQHj
kDgscJiPNQXvFzAJPbEKyLuavC7JjZPiQIB/8pYqL4py4SRJvpzy75T+QWxOEmamnPoHWoE6fcw+Ub4A
AAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton8.ImageTransparentColor" type="System.Drawing.Color, System.Drawing">
<value>Magenta</value>
</data>
<data name="ToolStripButton8.Size" type="System.Drawing.Size, System.Drawing">
<value>24, 24</value>
</data>
<data name="ToolStripButton8.Text" xml:space="preserve">
<value>Export png</value>
</data>
<metadata name="ImageListProfile.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>770, 17</value>
</metadata>
@ -659,7 +659,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAewBBQHsAQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
CAAAAk1TRnQBSQFMAgEBAgEAAfQBBQH0AQUBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -712,6 +712,84 @@
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>597, 17</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<data name="&gt;&gt;pnlDashboard.Name" xml:space="preserve">
<value>pnlDashboard</value>
</data>
<data name="&gt;&gt;pnlDashboard.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;pnlDashboard.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;pnlDashboard.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Name" xml:space="preserve">
<value>BindingNavigator1</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Type" xml:space="preserve">
<value>System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;BindingNavigator1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;BindingNavigator1.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;NavBarControl1.Name" xml:space="preserve">
<value>NavBarControl1</value>
</data>
<data name="&gt;&gt;NavBarControl1.Type" xml:space="preserve">
<value>DevExpress.XtraNavBar.NavBarControl, DevExpress.XtraNavBar.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;NavBarControl1.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
</data>
<data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 146</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1347, 360</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="pnlDashboard.Location" type="System.Drawing.Point, System.Drawing">
<value>986, 31</value>
</data>
@ -736,6 +814,39 @@
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>392, 95</value>
</metadata>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 198</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Type" xml:space="preserve">
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>256, 30</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 241</value>
</data>
<data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="GridControl_Docs.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value>
</data>
@ -816,39 +927,6 @@
<data name="LayoutSpeichernToolStripMenuItem.Text" xml:space="preserve">
<value>Layout speichern</value>
</data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 198</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Name" xml:space="preserve">
<value>ContextMenuGrid</value>
</data>
<data name="&gt;&gt;ContextMenuGrid.Type" xml:space="preserve">
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
<value>256, 30</value>
</data>
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
<value>631, 241</value>
</data>
<data name="GridControl_Docs.TabIndex" type="System.Int32, mscorlib">
<value>8</value>
</data>
<data name="GridControl_Docs.Visible" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Name" xml:space="preserve">
<value>GridControl_Docs</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Type" xml:space="preserve">
<value>DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
</data>
<data name="&gt;&gt;GridControl_Docs.Parent" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;GridControl_Docs.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
@ -923,6 +1001,9 @@
<data name="BindingNavigatorPositionItem.AutoSize" type="System.Boolean, mscorlib">
<value>False</value>
</data>
<data name="BindingNavigatorPositionItem.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9pt</value>
</data>
<data name="BindingNavigatorPositionItem.Size" type="System.Drawing.Size, System.Drawing">
<value>50, 23</value>
</data>
@ -1052,12 +1133,6 @@
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>541, 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>
@ -1255,32 +1330,11 @@
<data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Fill</value>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="Panel1.Font" type="System.Drawing.Font, System.Drawing">
<value>Tahoma, 9pt</value>
</data>
<data name="Panel1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 146</value>
</data>
<data name="Panel1.Size" type="System.Drawing.Size, System.Drawing">
<value>1347, 360</value>
</data>
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
<value>4</value>
</data>
<data name="&gt;&gt;Panel1.Name" xml:space="preserve">
<value>Panel1</value>
</data>
<data name="&gt;&gt;Panel1.Type" xml:space="preserve">
<value>System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Panel1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Panel1.ZOrder" xml:space="preserve">
<value>3</value>
<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>908, 17</value>
@ -1288,18 +1342,6 @@
<metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>519, 134</value>
</metadata>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
<value>Popup Erinnerung inaktivieren</value>
</data>
<data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Monitor anzeigen</value>
</data>
<data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>235, 48</value>
</data>
@ -1481,6 +1523,18 @@
<data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="PopupErinnerungInaktivierenToolStripMenuItem.Text" xml:space="preserve">
<value>Popup Erinnerung inaktivieren</value>
</data>
<data name="AnzeigenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>234, 22</value>
</data>
<data name="AnzeigenToolStripMenuItem.Text" xml:space="preserve">
<value>Monitor anzeigen</value>
</data>
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1023, 17</value>
</metadata>
@ -1804,18 +1858,6 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Allgemein</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Verwaltung</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage1.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
@ -1852,6 +1894,18 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>5</value>
</data>
<data name="RibbonPageGroup1.Text" xml:space="preserve">
<value>Allgemein</value>
</data>
<data name="RibbonPageGroup2.Text" xml:space="preserve">
<value>Funktionen</value>
</data>
<data name="RibbonPageGroup3.Text" xml:space="preserve">
<value>Verwaltung</value>
</data>
<data name="RibbonPageGroup4.Text" xml:space="preserve">
<value>Grundeinstellungen</value>
</data>
<data name="RibbonPage2.Text" xml:space="preserve">
<value>RibbonPage2</value>
</data>
@ -1867,6 +1921,9 @@
<data name="SaveFileDialog1.Filter" xml:space="preserve">
<value>PDF Files (*.pdf*)|*.pdf</value>
</data>
<metadata name="bwBasicData.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1083, 134</value>
</metadata>
<metadata name="$this.Localizable" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>True</value>
</metadata>
@ -2525,6 +2582,12 @@
<data name="&gt;&gt;SaveFileDialog1.Type" xml:space="preserve">
<value>System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;bwBasicData.Name" xml:space="preserve">
<value>bwBasicData</value>
</data>
<data name="&gt;&gt;bwBasicData.Type" xml:space="preserve">
<value>System.ComponentModel.BackgroundWorker, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMain</value>
</data>

265
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -38,6 +38,9 @@ Public Class frmMain
Private CurrNavBarGroup As NavBarGroup
Private DTGRID_GROUPS As DataTable
Private DT_CHECKUSER_MODULE As DataTable
Private Sub frmMain_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
Try
formopenClose = True
@ -92,7 +95,7 @@ Public Class frmMain
bsiVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString)
If ERROR_STATE = "NO DB-CONNECTION" Or ERROR_STATE = "FAILED DBCONNECTION" Then
MsgBox("Bitte hinterlegen Sie die Datenbankverbindung in der Konfiguration!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
MsgBox("Please add a database-Connection in AppConfig!", MsgBoxStyle.Critical, "Fehlende Konfiguration:")
frmKonfig.ShowDialog()
End If
Try
@ -104,7 +107,7 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
MessageBox.Show("Fehler bei Laden der CurrentUICulture-Info!", "Achtung:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
MessageBox.Show("Error loading CurrentUICulture-Info!", "Attention:", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End Try
If Refresh_ConnectionString() = True Then
Try
@ -125,7 +128,7 @@ Public Class frmMain
'Wenn license abgelaufen und der User nicht admin ist!
If LICENSE_EXPIRED = True Then
If USER_IS_ADMIN = False Then
MsgBox("Achtung: Lizenz ist abgelaufen oder ungültig!" & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
MsgBox("License expired or invalid!" & vbNewLine & "Please contact the AdminTeam!", MsgBoxStyle.Critical, "Attention:")
Me.Close()
End If
End If
@ -154,9 +157,10 @@ Public Class frmMain
End If
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei User Check:")
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in User Check:")
End Try
bsiUser.Caption = USER_USERNAME
GetBaseData("Load")
Try
@ -168,11 +172,10 @@ Public Class frmMain
LOGGER.Error(ex)
MsgBox("Unexpected Error in LoadForm - Step 4: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Attention:")
End Try
Load_Profile_items()
LoadNavBar()
Try
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
@ -273,7 +276,7 @@ Public Class frmMain
Return True
Catch ex As Exception
LOGGER.Error(ex)
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler bei Refresh_ConnectionString:")
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in Refresh_ConnectionString:")
Return False
End Try
End Function
@ -342,8 +345,13 @@ Public Class frmMain
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
GridView_Docs.Columns("Zuletzt bearbeitetd").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception
LOGGER.Warn("(ResetLayout)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End Try
Try
@ -360,8 +368,8 @@ Public Class frmMain
End Try
End Sub
Sub Load_Profile_items()
Dim oStopWatch As New RefreshHelper.SW("Load_Profile_items")
Sub LoadNavBar()
Dim oStopWatch As New RefreshHelper.SW("LoadNavBar")
Dim profileGroupOpen As Boolean = False
If Not IsNothing(CurrNavBarGroup) Then
Try
@ -456,8 +464,6 @@ Public Class frmMain
End Sub
Function Load_Profiles_for_User() As Boolean
Try
Dim sql = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(sql)
If IsNothing(CURR_DT_VWPM_PROFILE_ACTIVE) Then
Return False
@ -756,8 +762,13 @@ Public Class frmMain
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception
LOGGER.Warn("(CreateBasicView)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End Try
LOGGER.Debug("All columns in CreateBasicView created")
@ -839,11 +850,20 @@ Public Class frmMain
If TimerRefresh.Enabled = False Then
Exit Sub
End If
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
If bwBasicData.IsBusy Then
LOGGER.Info("bwBasicData is busy - no Refreshing")
Exit Sub
End If
If Application.OpenForms().OfType(Of frmValidator).Any Then
Exit Sub
End If
If Application.OpenForms().OfType(Of frmAdministration).Any Then
Exit Sub
End If
If Application.OpenForms().OfType(Of frmAdmin2).Any Then
Exit Sub
End If
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
'If Not Application.OpenForms().OfType(Of frmValidator).Any Then
' Dim oUpdate = "Not Defined"
' Try
@ -861,7 +881,7 @@ Public Class frmMain
Try
SaveGridLayout()
'bwSync.ReportProgress(10)
Load_Profile_items()
LoadNavBar()
'bwSync.ReportProgress(60)
Dim oStopWatch As New RefreshHelper.SW("Decide_Load")
Decide_Load()
@ -962,7 +982,8 @@ Public Class frmMain
End If
If CURRENT_DT_VW_PROFILE_USER.Rows.Count > 0 Then
NotifyIcon1.ShowBalloonTip(30000, "Erinnerung", "Es bedinden sich noch unerledigte Aufgaben in Ihrem Verantwortungsbereich.", ToolTipIcon.Info)
Dim oMessage As String = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("App.ReminderPipeline")
NotifyIcon1.ShowBalloonTip(30000, $"Reminder {ADDITIONAL_TITLE}", oMessage, ToolTipIcon.Info)
End If
End Sub
@ -972,25 +993,40 @@ Public Class frmMain
'Me.Visible = False
CURRENT_ProfilGUID = pProfilID
' CURRENT_ProfilName = ClassDatabase.Execute_Scalar("SELECT NAME FROM TBPM_PROFILE WHERE GUID = " & CURRENT_ProfilGUID, CONNECTION_STRING)
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
My.Settings.Save()
'My.Settings.Save()
Dim omsg = "Es ist bereits ein Workflow geöffnet!"
Dim omsgTitle = "Achtung:"
If USER_LANGUAGE <> "de-DE" Then
omsg = "There is already a workflow active!"
omsgTitle = "Attention:"
End If
If TimerRefresh.Enabled Then
TimerRefresh.Enabled = False
End If
' Dim th As System.Threading.Thread
If Not Application.OpenForms().OfType(Of frmValidator).Any Then
If TimerRefresh.Enabled Then
TimerRefresh.Enabled = False
End If
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
CURRENT_DT_PROFILE.Clear()
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
Else
Exit Sub
End If
CURRENT_DT_PROFILE_SEARCHES_DOC.Clear()
oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}"
CURRENT_DT_PROFILES_SEARCHES_DOC.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_DOC, LoadOption.PreserveChanges)
'CURRENT_DT_PROFILE_SEARCHES_DOC = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'DOC' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE_SEARCHES_SQL.Clear()
CURRENT_DT_PROFILES_SEARCHES_SQL.Select(oExpression, "TAB_INDEX").CopyToDataTable(CURRENT_DT_PROFILE_SEARCHES_SQL, LoadOption.PreserveChanges)
'CURRENT_DT_PROFILE_SEARCHES_SQL = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_SEARCH where PROFILE_ID = {0} AND TYPE = 'SQL' AND ACTIVE = 1 ORDER BY TAB_INDEX", CURRENT_ProfilGUID))
frmValidator.Show()
Decide_Load()
'Decide_Load()
TimerRefresh.Enabled = True
Dim iterateIndex As Integer = 0
Dim oNewDataTable As DataTable = CURR_DT_OVERVIEW.Copy
@ -1258,8 +1294,16 @@ Public Class frmMain
If SOURCE_INIT = True Then
CURRENT_ProfilGUID = oProfileId
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE where GUID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_FINAL_INDEXING = ClassDatabase.Return_Datatable(String.Format("select * from TBPM_PROFILE_FINAL_INDEXING where PROFIL_ID = {0}", CURRENT_ProfilGUID))
CURRENT_DT_PROFILE.Clear()
Dim oExpression = $"GUID = {CURRENT_ProfilGUID}"
CURRENT_DT_PROFILES.Select(oExpression).CopyToDataTable(CURRENT_DT_PROFILE, LoadOption.PreserveChanges)
If CURRENT_DT_PROFILE.Rows.Count = 1 Then
CURRENT_ProfilName = CURRENT_DT_PROFILE.Rows(0).Item("NAME")
Else
Exit Sub
End If
CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("PM_VEKTOR_INDEX")
If CURRENT_PROFILE_LOG_INDEX = "" Then
CURRENT_PROFILE_LOG_INDEX = CURRENT_DT_PROFILE.Rows(0).Item("LOG_INDEX")
@ -1292,7 +1336,7 @@ Public Class frmMain
CURRENT_DT_MASS_CHANGE_DOCS = NewDatatable
TimerRefresh.Enabled = False
frmMassValidator.ShowDialog()
Load_Profile_items()
LoadNavBar()
Decide_Load()
Else
If USER_LANGUAGE = "de-DE" Then
@ -1318,6 +1362,7 @@ Public Class frmMain
RefreshHelper.LoadViewInfo()
End Sub
Sub Load_Grid_Overview()
Dim oStopWatch As New RefreshHelper.SW("Load_Grid_Overview(LGO)")
pnlDashboard.Visible = False
Layout_Single_Profile()
GRID_LOAD_TYPE = "OVERVIEW"
@ -1328,25 +1373,25 @@ Public Class frmMain
ToolStripLabelViewTape.Text = "Overview"
End If
Try
Dim sel = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID ={0}", USER_ID)
CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(sel)
bsiMessage.Caption = ""
If CURRENT_DT_VW_PROFILE_USER.Rows.Count = 0 Then
LOGGER.Info("no profiles for user: '" & USER_USERNAME & "' configured!", False)
NO_WORKFLOWITEMS = True
bsiMessage.Caption = "Keine Profile für Ihren User hinterlegt"
oStopWatch.Done()
Exit Sub
End If
Dim oStopWatch As New RefreshHelper.SW("Load_Profiles_for_User")
Dim oStopWatch1 As New RefreshHelper.SW("LGO#Load_Profiles_for_User")
Load_Profiles_for_User()
oStopWatch.Done()
oStopWatch1.Done()
'ClassInit.InitBasics()
oStopWatch = New RefreshHelper.SW("build CURR_DT_OVERVIEW")
Dim oStopWatch2 As New RefreshHelper.SW("LGO#build CURR_DT_OVERVIEW")
Dim oSQLOverview = CURRENT_DT_CONFIG.Rows(0).Item("SQL_PROFILE_MAIN_VIEW")
If IsDBNull(oSQLOverview) Then
bsiMessage.Caption = "No GROUP-CONFIG (SQL_PROFILE_MAIN_VIEW) in Baseconfig"
oStopWatch.Done()
oStopWatch2.Done()
Exit Sub
End If
@ -1363,15 +1408,8 @@ Public Class frmMain
' "WHERE T.PROFIL_ID = T1.PROFIL_ID " &
' "AND T1.ACTIVE = 1 And (UPPER(T1.USERNAME) = UPPER('{0}')) Order By T1.PRIORITY", USER_USERNAME)
CURR_DT_OVERVIEW = ClassDatabase.Return_Datatable(oSQLOverview)
oStopWatch.Done()
oStopWatch2.Done()
Dim DTGRID_GROUPS As DataTable
Try
DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info(ex.Message)
End Try
If Not IsNothing(CURR_DT_OVERVIEW) Then
@ -1486,12 +1524,18 @@ Public Class frmMain
GridView_Docs.Columns.Item("ICON").MinWidth = 24
GridView_Docs.Columns.Item("ICON").AppearanceCell.BackColor = Color.White
GridView_Docs.Columns.Item("ICON").Fixed = DevExpress.XtraGrid.Columns.FixedStyle.Left
LOGGER.Debug(" GridView_Docs.Columns loaded...")
Try
GridView_Docs.Columns("Last edited").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Last edited").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex As Exception
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Try
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatType = FormatType.DateTime
GridView_Docs.Columns("Zuletzt bearbeitet").DisplayFormat.FormatString = "dd.MM.yyyy HH:MM:ss"
Catch ex1 As Exception
LOGGER.Warn("(LoadGridOverview)Column [Last edited] or [Zuletzt bearbeitet] not part of OverviewSQL")
End Try
End Try
LOGGER.Debug("finished Formatting Grid!")
@ -1517,6 +1561,7 @@ Public Class frmMain
LOGGER.Error(ex)
End Try
End If
oStopWatch.Done()
Catch ex As Exception
LOGGER.Error(ex)
LOGGER.Info("Load_Grid_Overview - Fehler: " & ex.Message)
@ -1550,7 +1595,7 @@ Public Class frmMain
SaveGridLayout()
' Ansicht neu laden
Load_Profile_items()
LoadNavBar()
Decide_Load()
InResetlayout = False
RefreshHelper.LoadViewInfo()
@ -1669,7 +1714,49 @@ Public Class frmMain
' Save expanded GroupRows
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.SaveViewInfo()
End Sub
Sub GetBaseData(pMode As String)
Dim oStopWatch As New RefreshHelper.SW("GetBaseData")
Try
Dim oSQL = String.Format("SELECT * FROM [dbo].[FNDD_CHECK_USER_MODULE] ('{0}','PM',{1})", USER_USERNAME, CLIENT_SELECTED)
DT_CHECKUSER_MODULE = ClassDatabase.Return_Datatable(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(10)
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(20)
oSQL = String.Format("SELECT T.* FROM VWPM_PROFILE_ACTIVE T WHERE T.FILE_COUNT > 0 AND T.GUID IN (SELECT PROFILE_ID FROM [dbo].[FNPM_GET_ACTIVE_PROFILES_USER] ({0}))", USER_ID)
CURR_DT_VWPM_PROFILE_ACTIVE = ClassDatabase.Return_Datatable(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(30)
CURRENT_DT_PROFILES = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE where ACTIVE = 1")
If pMode = "Load" Then
CURRENT_DT_PROFILE = CURRENT_DT_PROFILES.Clone()
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(40)
CURRENT_DT_PROFILES_SEARCHES_DOC = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'DOC' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
If pMode = "Load" Then
CURRENT_DT_PROFILE_SEARCHES_DOC = CURRENT_DT_PROFILES_SEARCHES_DOC.Clone()
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(50)
CURRENT_DT_PROFILES_SEARCHES_SQL = ClassDatabase.Return_Datatable("select * from TBPM_PROFILE_SEARCH where TYPE = 'SQL' AND ACTIVE = 1 ORDER BY PROFILE_ID,TAB_INDEX")
If pMode = "Load" Then
CURRENT_DT_PROFILE_SEARCHES_SQL = CURRENT_DT_PROFILES_SEARCHES_SQL.Clone()
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(60)
oSQL = String.Format("SELECT * FROM VWPM_PROFILE_USER WHERE USER_ID = {0}", USER_ID)
CURRENT_DT_VW_PROFILE_USER = ClassDatabase.Return_Datatable(oSQL)
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(70)
DTGRID_GROUPS = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_MAIN_VIEW_GROUPS WHERE ACTIVE = 1")
oSQL = "SELECT * FROM TBPM_CHART"
DT_CHARTS = ClassDatabase.Return_Datatable(oSQL)
oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX ORDER BY PROFIL_ID,Y_LOC, X_LOC"
DTVWCONTROLS_INDEX = ClassDatabase.Return_Datatable("oSQL")
If pMode = "Load" Then
DTVWCONTROL_INDEX = DTVWCONTROLS_INDEX.Clone()
End If
If pMode = "bwBasicData" Then bwBasicData.ReportProgress(100)
Catch ex As Exception
LOGGER.Warn($"Error laoding basic data Error [{ex.Message}]")
End Try
oStopWatch.Done()
End Sub
Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown
Decide_Load()
@ -1708,36 +1795,7 @@ Public Class frmMain
bsiDebug.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End If
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})", USER_USERNAME, CLIENT_SELECTED)
Dim DT_CHECKUSER_MODULE As DataTable = ClassDatabase.Return_Datatable(sql)
ClassParamRefresh.Refresh_Params(DT_CHECKUSER_MODULE)
If USER_IS_ADMIN Then
If USER_LANGUAGE = "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
End If
If USER_DEBUG_LOG = True Then
' 'Jetzt de rinsert der Inhalte
If Not IsNothing(LOGCONFIG.Logs) Then
If LOGCONFIG.Logs.Count > 0 Then
' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}"
' ClassDatabase.Execute_non_Query(odel)
Dim thread As New Thread(AddressOf DebuglogBackgroundthread)
thread.Start()
End If
End If
End If
End Sub
Sub DebuglogBackgroundthread()
Dim oSQL As String = "None"
Try
@ -1841,7 +1899,7 @@ Public Class frmMain
SaveGridLayout()
End If
Load_Profile_items()
LoadNavBar()
Decide_Load()
If GridControl_Docs.Visible = True And formopenClose = False Then RefreshHelper.LoadViewInfo()
End Sub
@ -1859,9 +1917,9 @@ Public Class frmMain
If AdminSecurity = True Then
frmLoginAdmin.ShowDialog()
Else
frmAdministration.ShowDialog()
frmAdministration.Show()
End If
Decide_Load()
End Sub
Private Sub bbiKonfiguration_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbiKonfiguration.ItemClick
@ -1986,4 +2044,47 @@ Public Class frmMain
ExportCharttoimage(ChartBottomRight, SaveFileDialog1.FileName)
End If
End Sub
Private Sub Timer5Mins_Tick(sender As Object, e As EventArgs) Handles Timer5Mins.Tick
If Not bwBasicData.IsBusy Then
BarEditItem1.Caption = "Get BasicData"
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
bwBasicData.RunWorkerAsync()
End If
If USER_DEBUG_LOG = True Then
' 'Jetzt de rinsert der Inhalte
If Not IsNothing(LOGCONFIG.Logs) Then
If LOGCONFIG.Logs.Count > 0 Then
' Dim odel = $"delete from TBPM_LOG_DEBUG where userid = {USER_ID}"
' ClassDatabase.Execute_non_Query(odel)
Dim thread As New Thread(AddressOf DebuglogBackgroundthread)
thread.Start()
End If
End If
End If
End Sub
Private Sub bwBasicData_DoWork(sender As Object, e As DoWorkEventArgs) Handles bwBasicData.DoWork
GetBaseData("bwBasicData")
End Sub
Private Sub bwBasicData_RunWorkerCompleted(sender As Object, e As RunWorkerCompletedEventArgs) Handles bwBasicData.RunWorkerCompleted
If USER_IS_ADMIN Then
If USER_LANGUAGE = "de-DE" Then
bsiUserLoggedIn.Caption = "License Count: " & USERCOUNT_LOGGED_IN
Else
bsiUserLoggedIn.Caption = "Lizenz-Zähler: " & USERCOUNT_LOGGED_IN
End If
End If
BarEditItem1.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
End Sub
Private Sub bwBasicData_ProgressChanged(sender As Object, e As ProgressChangedEventArgs) Handles bwBasicData.ProgressChanged
BarEditItem1.EditValue = e.ProgressPercentage
End Sub
End Class

41
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -59,7 +59,7 @@ Public Class frmValidator
Private DTGRID_COLUMNS_WITH_SQL As DataTable
Private DTGRID_COLUMNS As DataTable
Private DTGRID_COLUMNS_TEXTBOX As DataTable
Private DTVWCONTROL_INDEX As DataTable
Public FormLoaded As Boolean = False
Private ItemWorked As Boolean = False
Private Override As Boolean = False
@ -132,8 +132,13 @@ Public Class frmValidator
TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING
_step = 2
Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL)
DTVWCONTROL_INDEX.Clear()
Dim oExpression = $"PROFILE_ID = {CURRENT_ProfilGUID}"
DTVWCONTROLS_INDEX.Select(oExpression, "Y_LOC, X_LOC").CopyToDataTable(DTVWCONTROL_INDEX, LoadOption.PreserveChanges)
'Dim oSQL = $"SELECT * FROM VWPM_CONTROL_INDEX WHERE PROFIL_ID = {CURRENT_ProfilGUID} ORDER BY Y_LOC, X_LOC"
'DTVWCONTROL_INDEX = ClassDatabase.Return_Datatable(oSQL)
'VWPM_CONTROL_INDEXTableAdapter.Fill(DD_DMSLiteDataSet.VWPM_CONTROL_INDEX, CURRENT_ProfilName)
_step = 3
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
@ -3596,31 +3601,31 @@ Public Class frmValidator
'Der input der Box,Cmb muss jedes mal geleert werden
Dim oMyInput As String = ""
'Jedes Control in Konfig Tab durchlaufn
For Each dr As DataRow In DTVWCONTROL_INDEX.Rows
If dr.Item("CTRL_TYPE") = "LBL" Or dr.Item("CTRL_TYPE") = "LINE" Then
For Each oControlRow As DataRow In DTVWCONTROL_INDEX.Rows
If oControlRow.Item("CTRL_TYPE") = "LBL" Or oControlRow.Item("CTRL_TYPE") = "LINE" Then
Continue For
End If
'Den Indexnamen auslesen
Dim oIndexName As String = dr.Item("INDEX_NAME")
Dim oIndexName As String = oControlRow.Item("INDEX_NAME")
Dim oIsRequired As Boolean = CBool(dr.Item("VALIDATION"))
Dim oSQLCheckCommand As String = IIf(IsDBNull(dr.Item("SQL_UEBERPRUEFUNG")), "", dr.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(dr.Item("READ_ONLY"))
Dim oControlType As String = dr.Item("CTRL_TYPE")
Dim oIsRequired As Boolean = CBool(oControlRow.Item("VALIDATION"))
Dim oSQLCheckCommand As String = IIf(IsDBNull(oControlRow.Item("SQL_UEBERPRUEFUNG")), "", oControlRow.Item("SQL_UEBERPRUEFUNG"))
Dim oIsReadOnly As Boolean = CBool(oControlRow.Item("READ_ONLY"))
Dim oControlType As String = oControlRow.Item("CTRL_TYPE")
Dim oIDBTyp As Integer
If IDB_ACTIVE Then
oIDBTyp = dr.Item("IDB_TYP")
oIDBTyp = oControlRow.Item("IDB_TYP")
End If
oControlId = dr.Item("GUID")
Dim oRegexMatch As String = NotNull(dr.Item("REGEX_MATCH"), String.Empty)
Dim oRegexMessage As String = NotNull(dr.Item("REGEX_MESSAGE_DE"), String.Empty)
oControlName = dr.Item("CTRL_NAME")
Dim oOVERWRITE_DATA = dr.Item("OVERWRITE_DATA")
oControlId = oControlRow.Item("GUID")
Dim oRegexMatch As String = NotNull(oControlRow.Item("REGEX_MATCH"), String.Empty)
Dim oRegexMessage As String = NotNull(oControlRow.Item("REGEX_MESSAGE_DE"), String.Empty)
oControlName = oControlRow.Item("CTRL_NAME")
Dim oOVERWRITE_DATA = oControlRow.Item("OVERWRITE_DATA")
'Nur wenn der Name der Zeile entspricht und der Index READ_ONLY FALSE ist
If dr.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then
If oControlRow.Item("CTRL_NAME") = oControl.Name And (oIsReadOnly = False Or oSQLCheckCommand <> "") And oIndexName <> "DD PM-ONLY FOR DISPLAY" Then
LOGGER.Debug("Indexierung für Control (" & oControlId & ") '" & oControlName & "' gestartet. Indexname '" & oIndexName & "'")
If oIndexName = "" Then
LOGGER.Info(" >> Indexname is unexpected empty.")
@ -4357,7 +4362,7 @@ Public Class frmValidator
End If
End If
End If
End Select
End If 'End If für Control und ReadOnly = False
Next