MS PM mit WM
This commit is contained in:
parent
eea8241375
commit
f150f3d897
@ -130,7 +130,8 @@ Public Class ClassInit
|
||||
Try
|
||||
USER_USERNAME = Environment.UserName
|
||||
Try
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(String.Format("SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{0}')", USER_USERNAME), False)
|
||||
Dim oSQL = $"SELECT * FROM VWDD_USER_CLIENT WHERE UPPER(USERNAME) = UPPER('{USER_USERNAME}')"
|
||||
DT_CLIENT_USER = ClassDatabase.Return_Datatable(oSQL, False)
|
||||
If DT_CLIENT_USER.Rows.Count > 1 Then
|
||||
frmClientLogin.ShowDialog()
|
||||
ElseIf DT_CLIENT_USER.Rows.Count = 1 Then
|
||||
@ -138,8 +139,9 @@ Public Class ClassInit
|
||||
Else
|
||||
ERROR_STATE = "NO CLIENT"
|
||||
Dim oDT As DataTable = ClassAllgemeineFunktionen.GUI_LANGUAGE_INFO("No Client relation")
|
||||
'Related to a client
|
||||
' Throw New Exception("You are not configured in the Useradministration." & vbNewLine & "Please contact the system administrator!")
|
||||
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2"), MsgBoxStyle.Exclamation)
|
||||
MsgBox(oDT.Rows(0).Item("STRING1") & vbNewLine & oDT.Rows(0).Item("STRING2") & vbNewLine & vbNewLine & oSQL, MsgBoxStyle.Exclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
Catch ex As Exception
|
||||
|
||||
73
app/DD_PM_WINDREAM/frmAdmin2.Designer.vb
generated
73
app/DD_PM_WINDREAM/frmAdmin2.Designer.vb
generated
@ -92,7 +92,6 @@ Partial Class frmAdmin2
|
||||
Me.TextEdit2 = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.LANGUAGEComboBoxEdit = New DevExpress.XtraEditors.ComboBoxEdit()
|
||||
Me.CAPT_TYPETextEdit = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.STRING1TextEdit = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.STRING2TextEdit = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.STRING3TextEdit = New DevExpress.XtraEditors.TextEdit()
|
||||
Me.STRING4TextEdit = New DevExpress.XtraEditors.TextEdit()
|
||||
@ -143,6 +142,7 @@ Partial Class frmAdmin2
|
||||
Me.TableAdapterManager = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
|
||||
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter = New DD_ProcessManager.DD_DMSLiteDataSetTableAdapters.TBDD_GUI_LANGUAGE_PHRASETableAdapter()
|
||||
Me.LayoutConverter1 = New DevExpress.XtraLayout.Converter.LayoutConverter(Me.components)
|
||||
Me.STRING1TextEdit = New DevExpress.XtraEditors.MemoEdit()
|
||||
CType(Me.RibbonControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.XtraTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.XtraTabControl1.SuspendLayout()
|
||||
@ -186,7 +186,6 @@ Partial Class frmAdmin2
|
||||
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@ -221,6 +220,7 @@ Partial Class frmAdmin2
|
||||
Me.BindingNavigator2.SuspendLayout()
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'RibbonControl1
|
||||
@ -600,7 +600,7 @@ Partial Class frmAdmin2
|
||||
Me.Root.GroupBordersVisible = False
|
||||
Me.Root.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup1})
|
||||
Me.Root.Name = "Root"
|
||||
Me.Root.Size = New System.Drawing.Size(698, 476)
|
||||
Me.Root.Size = New System.Drawing.Size(698, 491)
|
||||
Me.Root.TextVisible = False
|
||||
'
|
||||
'LayoutControlGroup1
|
||||
@ -610,7 +610,7 @@ Partial Class frmAdmin2
|
||||
Me.LayoutControlGroup1.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.ItemForGUID, Me.ItemForTITLE, Me.ItemForEMAIL_SUBJECT, Me.ItemForEMAIL_BODY1, Me.ItemForEMAIL_BODY2, Me.ItemForEMAIL_BODY3, Me.ItemForADDED_WHO, Me.ItemForCHANGED_WHO, Me.ItemForADDED_WHEN, Me.ItemForCHANGED_WHEN})
|
||||
Me.LayoutControlGroup1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.LayoutControlGroup1.Name = "autoGeneratedGroup0"
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 456)
|
||||
Me.LayoutControlGroup1.Size = New System.Drawing.Size(678, 471)
|
||||
'
|
||||
'ItemForGUID
|
||||
'
|
||||
@ -644,23 +644,23 @@ Partial Class frmAdmin2
|
||||
Me.ItemForEMAIL_BODY1.Control = Me.EMAIL_BODY1TextEdit
|
||||
Me.ItemForEMAIL_BODY1.Location = New System.Drawing.Point(0, 72)
|
||||
Me.ItemForEMAIL_BODY1.Name = "ItemForEMAIL_BODY1"
|
||||
Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 137)
|
||||
Me.ItemForEMAIL_BODY1.Size = New System.Drawing.Size(678, 142)
|
||||
resources.ApplyResources(Me.ItemForEMAIL_BODY1, "ItemForEMAIL_BODY1")
|
||||
Me.ItemForEMAIL_BODY1.TextSize = New System.Drawing.Size(74, 13)
|
||||
'
|
||||
'ItemForEMAIL_BODY2
|
||||
'
|
||||
Me.ItemForEMAIL_BODY2.Control = Me.EMAIL_BODY2TextEdit
|
||||
Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 209)
|
||||
Me.ItemForEMAIL_BODY2.Location = New System.Drawing.Point(0, 214)
|
||||
Me.ItemForEMAIL_BODY2.Name = "ItemForEMAIL_BODY2"
|
||||
Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 175)
|
||||
Me.ItemForEMAIL_BODY2.Size = New System.Drawing.Size(678, 185)
|
||||
resources.ApplyResources(Me.ItemForEMAIL_BODY2, "ItemForEMAIL_BODY2")
|
||||
Me.ItemForEMAIL_BODY2.TextSize = New System.Drawing.Size(74, 13)
|
||||
'
|
||||
'ItemForEMAIL_BODY3
|
||||
'
|
||||
Me.ItemForEMAIL_BODY3.Control = Me.EMAIL_BODY3TextEdit
|
||||
Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 384)
|
||||
Me.ItemForEMAIL_BODY3.Location = New System.Drawing.Point(0, 399)
|
||||
Me.ItemForEMAIL_BODY3.Name = "ItemForEMAIL_BODY3"
|
||||
Me.ItemForEMAIL_BODY3.Size = New System.Drawing.Size(678, 24)
|
||||
resources.ApplyResources(Me.ItemForEMAIL_BODY3, "ItemForEMAIL_BODY3")
|
||||
@ -669,7 +669,7 @@ Partial Class frmAdmin2
|
||||
'ItemForADDED_WHO
|
||||
'
|
||||
Me.ItemForADDED_WHO.Control = Me.ADDED_WHOTextEdit
|
||||
Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 408)
|
||||
Me.ItemForADDED_WHO.Location = New System.Drawing.Point(0, 423)
|
||||
Me.ItemForADDED_WHO.Name = "ItemForADDED_WHO"
|
||||
Me.ItemForADDED_WHO.Size = New System.Drawing.Size(339, 24)
|
||||
resources.ApplyResources(Me.ItemForADDED_WHO, "ItemForADDED_WHO")
|
||||
@ -678,7 +678,7 @@ Partial Class frmAdmin2
|
||||
'ItemForCHANGED_WHO
|
||||
'
|
||||
Me.ItemForCHANGED_WHO.Control = Me.CHANGED_WHOTextEdit
|
||||
Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 432)
|
||||
Me.ItemForCHANGED_WHO.Location = New System.Drawing.Point(0, 447)
|
||||
Me.ItemForCHANGED_WHO.Name = "ItemForCHANGED_WHO"
|
||||
Me.ItemForCHANGED_WHO.Size = New System.Drawing.Size(339, 24)
|
||||
resources.ApplyResources(Me.ItemForCHANGED_WHO, "ItemForCHANGED_WHO")
|
||||
@ -687,7 +687,7 @@ Partial Class frmAdmin2
|
||||
'ItemForADDED_WHEN
|
||||
'
|
||||
Me.ItemForADDED_WHEN.Control = Me.ADDED_WHENDateEdit
|
||||
Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 408)
|
||||
Me.ItemForADDED_WHEN.Location = New System.Drawing.Point(339, 423)
|
||||
Me.ItemForADDED_WHEN.Name = "ItemForADDED_WHEN"
|
||||
Me.ItemForADDED_WHEN.Size = New System.Drawing.Size(339, 24)
|
||||
resources.ApplyResources(Me.ItemForADDED_WHEN, "ItemForADDED_WHEN")
|
||||
@ -696,7 +696,7 @@ Partial Class frmAdmin2
|
||||
'ItemForCHANGED_WHEN
|
||||
'
|
||||
Me.ItemForCHANGED_WHEN.Control = Me.CHANGED_WHENDateEdit
|
||||
Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 432)
|
||||
Me.ItemForCHANGED_WHEN.Location = New System.Drawing.Point(339, 447)
|
||||
Me.ItemForCHANGED_WHEN.Name = "ItemForCHANGED_WHEN"
|
||||
Me.ItemForCHANGED_WHEN.Size = New System.Drawing.Size(339, 24)
|
||||
resources.ApplyResources(Me.ItemForCHANGED_WHEN, "ItemForCHANGED_WHEN")
|
||||
@ -752,7 +752,6 @@ Partial Class frmAdmin2
|
||||
Me.DataLayoutControl2.Controls.Add(Me.TextEdit2)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.LANGUAGEComboBoxEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.CAPT_TYPETextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.STRING2TextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.STRING3TextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.STRING4TextEdit)
|
||||
@ -764,9 +763,11 @@ Partial Class frmAdmin2
|
||||
Me.DataLayoutControl2.Controls.Add(Me.CHANGED_WHENTextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.OBJ_NAMETextEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.INTERNALCheckEdit)
|
||||
Me.DataLayoutControl2.Controls.Add(Me.STRING1TextEdit)
|
||||
Me.DataLayoutControl2.DataSource = Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource
|
||||
resources.ApplyResources(Me.DataLayoutControl2, "DataLayoutControl2")
|
||||
Me.DataLayoutControl2.Name = "DataLayoutControl2"
|
||||
Me.DataLayoutControl2.OptionsCustomizationForm.DesignTimeCustomizationFormPositionAndSize = New System.Drawing.Rectangle(1102, 272, 650, 400)
|
||||
Me.DataLayoutControl2.Root = Me.LayoutControlGroup2
|
||||
'
|
||||
'TextEdit1
|
||||
@ -821,14 +822,6 @@ Partial Class frmAdmin2
|
||||
Me.CAPT_TYPETextEdit.Name = "CAPT_TYPETextEdit"
|
||||
Me.CAPT_TYPETextEdit.StyleController = Me.DataLayoutControl2
|
||||
'
|
||||
'STRING1TextEdit
|
||||
'
|
||||
Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
|
||||
resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit")
|
||||
Me.STRING1TextEdit.MenuManager = Me.RibbonControl1
|
||||
Me.STRING1TextEdit.Name = "STRING1TextEdit"
|
||||
Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2
|
||||
'
|
||||
'STRING2TextEdit
|
||||
'
|
||||
Me.STRING2TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING2", True))
|
||||
@ -940,7 +933,7 @@ Partial Class frmAdmin2
|
||||
Me.LayoutControlGroup2.EnableIndentsWithoutBorders = DevExpress.Utils.DefaultBoolean.[True]
|
||||
Me.LayoutControlGroup2.GroupBordersVisible = False
|
||||
Me.LayoutControlGroup2.Items.AddRange(New DevExpress.XtraLayout.BaseLayoutItem() {Me.LayoutControlGroup3})
|
||||
Me.LayoutControlGroup2.Name = "LayoutControlGroup2"
|
||||
Me.LayoutControlGroup2.Name = "Root"
|
||||
Me.LayoutControlGroup2.Size = New System.Drawing.Size(544, 479)
|
||||
Me.LayoutControlGroup2.TextVisible = False
|
||||
'
|
||||
@ -967,14 +960,14 @@ Partial Class frmAdmin2
|
||||
Me.ItemForSTRING1.Control = Me.STRING1TextEdit
|
||||
Me.ItemForSTRING1.Location = New System.Drawing.Point(0, 120)
|
||||
Me.ItemForSTRING1.Name = "ItemForSTRING1"
|
||||
Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 24)
|
||||
Me.ItemForSTRING1.Size = New System.Drawing.Size(524, 171)
|
||||
resources.ApplyResources(Me.ItemForSTRING1, "ItemForSTRING1")
|
||||
Me.ItemForSTRING1.TextSize = New System.Drawing.Size(74, 13)
|
||||
'
|
||||
'ItemForSTRING2
|
||||
'
|
||||
Me.ItemForSTRING2.Control = Me.STRING2TextEdit
|
||||
Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 144)
|
||||
Me.ItemForSTRING2.Location = New System.Drawing.Point(0, 291)
|
||||
Me.ItemForSTRING2.Name = "ItemForSTRING2"
|
||||
Me.ItemForSTRING2.Size = New System.Drawing.Size(524, 24)
|
||||
resources.ApplyResources(Me.ItemForSTRING2, "ItemForSTRING2")
|
||||
@ -983,7 +976,7 @@ Partial Class frmAdmin2
|
||||
'ItemForSTRING3
|
||||
'
|
||||
Me.ItemForSTRING3.Control = Me.STRING3TextEdit
|
||||
Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 168)
|
||||
Me.ItemForSTRING3.Location = New System.Drawing.Point(0, 315)
|
||||
Me.ItemForSTRING3.Name = "ItemForSTRING3"
|
||||
Me.ItemForSTRING3.Size = New System.Drawing.Size(524, 24)
|
||||
resources.ApplyResources(Me.ItemForSTRING3, "ItemForSTRING3")
|
||||
@ -992,7 +985,7 @@ Partial Class frmAdmin2
|
||||
'ItemForSTRING4
|
||||
'
|
||||
Me.ItemForSTRING4.Control = Me.STRING4TextEdit
|
||||
Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 192)
|
||||
Me.ItemForSTRING4.Location = New System.Drawing.Point(0, 339)
|
||||
Me.ItemForSTRING4.Name = "ItemForSTRING4"
|
||||
Me.ItemForSTRING4.Size = New System.Drawing.Size(524, 24)
|
||||
resources.ApplyResources(Me.ItemForSTRING4, "ItemForSTRING4")
|
||||
@ -1001,7 +994,7 @@ Partial Class frmAdmin2
|
||||
'ItemForSTRING5
|
||||
'
|
||||
Me.ItemForSTRING5.Control = Me.STRING5TextEdit
|
||||
Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 216)
|
||||
Me.ItemForSTRING5.Location = New System.Drawing.Point(0, 363)
|
||||
Me.ItemForSTRING5.Name = "ItemForSTRING5"
|
||||
Me.ItemForSTRING5.Size = New System.Drawing.Size(524, 24)
|
||||
resources.ApplyResources(Me.ItemForSTRING5, "ItemForSTRING5")
|
||||
@ -1010,7 +1003,7 @@ Partial Class frmAdmin2
|
||||
'ItemForSTRING6
|
||||
'
|
||||
Me.ItemForSTRING6.Control = Me.STRING6TextEdit
|
||||
Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 240)
|
||||
Me.ItemForSTRING6.Location = New System.Drawing.Point(0, 387)
|
||||
Me.ItemForSTRING6.Name = "ItemForSTRING6"
|
||||
Me.ItemForSTRING6.Size = New System.Drawing.Size(524, 24)
|
||||
resources.ApplyResources(Me.ItemForSTRING6, "ItemForSTRING6")
|
||||
@ -1019,7 +1012,7 @@ Partial Class frmAdmin2
|
||||
'LayoutControlItem3
|
||||
'
|
||||
Me.LayoutControlItem3.Control = Me.TextEdit3
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 264)
|
||||
Me.LayoutControlItem3.Location = New System.Drawing.Point(0, 411)
|
||||
Me.LayoutControlItem3.Name = "ItemForADDED_WHO"
|
||||
Me.LayoutControlItem3.Size = New System.Drawing.Size(262, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem3, "LayoutControlItem3")
|
||||
@ -1028,16 +1021,16 @@ Partial Class frmAdmin2
|
||||
'LayoutControlItem5
|
||||
'
|
||||
Me.LayoutControlItem5.Control = Me.TextEdit4
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 288)
|
||||
Me.LayoutControlItem5.Location = New System.Drawing.Point(0, 435)
|
||||
Me.LayoutControlItem5.Name = "ItemForCHANGED_WHO"
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 171)
|
||||
Me.LayoutControlItem5.Size = New System.Drawing.Size(262, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem5, "LayoutControlItem5")
|
||||
Me.LayoutControlItem5.TextSize = New System.Drawing.Size(74, 13)
|
||||
'
|
||||
'LayoutControlItem4
|
||||
'
|
||||
Me.LayoutControlItem4.Control = Me.ADDED_WHENTextEdit
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 264)
|
||||
Me.LayoutControlItem4.Location = New System.Drawing.Point(262, 411)
|
||||
Me.LayoutControlItem4.Name = "ItemForADDED_WHEN"
|
||||
Me.LayoutControlItem4.Size = New System.Drawing.Size(262, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem4, "LayoutControlItem4")
|
||||
@ -1046,9 +1039,9 @@ Partial Class frmAdmin2
|
||||
'LayoutControlItem6
|
||||
'
|
||||
Me.LayoutControlItem6.Control = Me.CHANGED_WHENTextEdit
|
||||
Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 288)
|
||||
Me.LayoutControlItem6.Location = New System.Drawing.Point(262, 435)
|
||||
Me.LayoutControlItem6.Name = "ItemForCHANGED_WHEN"
|
||||
Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 171)
|
||||
Me.LayoutControlItem6.Size = New System.Drawing.Size(262, 24)
|
||||
resources.ApplyResources(Me.LayoutControlItem6, "LayoutControlItem6")
|
||||
Me.LayoutControlItem6.TextSize = New System.Drawing.Size(74, 13)
|
||||
'
|
||||
@ -1244,6 +1237,14 @@ Partial Class frmAdmin2
|
||||
'
|
||||
Me.TBDD_GUI_LANGUAGE_PHRASETableAdapter.ClearBeforeFill = True
|
||||
'
|
||||
'STRING1TextEdit
|
||||
'
|
||||
Me.STRING1TextEdit.DataBindings.Add(New System.Windows.Forms.Binding("EditValue", Me.TBDD_GUI_LANGUAGE_PHRASEBindingSource, "STRING1", True))
|
||||
resources.ApplyResources(Me.STRING1TextEdit, "STRING1TextEdit")
|
||||
Me.STRING1TextEdit.MenuManager = Me.RibbonControl1
|
||||
Me.STRING1TextEdit.Name = "STRING1TextEdit"
|
||||
Me.STRING1TextEdit.StyleController = Me.DataLayoutControl2
|
||||
'
|
||||
'frmAdmin2
|
||||
'
|
||||
resources.ApplyResources(Me, "$this")
|
||||
@ -1301,7 +1302,6 @@ Partial Class frmAdmin2
|
||||
CType(Me.TextEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.LANGUAGEComboBoxEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.CAPT_TYPETextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.STRING2TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.STRING3TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.STRING4TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
@ -1337,6 +1337,7 @@ Partial Class frmAdmin2
|
||||
Me.BindingNavigator2.PerformLayout()
|
||||
CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
CType(Me.STRING1TextEdit.Properties, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@ -1430,7 +1431,6 @@ Partial Class frmAdmin2
|
||||
Friend WithEvents TextEdit2 As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents LANGUAGEComboBoxEdit As DevExpress.XtraEditors.ComboBoxEdit
|
||||
Friend WithEvents CAPT_TYPETextEdit As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents STRING2TextEdit As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents STRING3TextEdit As DevExpress.XtraEditors.TextEdit
|
||||
Friend WithEvents STRING4TextEdit As DevExpress.XtraEditors.TextEdit
|
||||
@ -1461,4 +1461,5 @@ Partial Class frmAdmin2
|
||||
Friend WithEvents ItemForMODULE As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents LayoutControlItem2 As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents ItemForOBJ_NAME As DevExpress.XtraLayout.LayoutControlItem
|
||||
Friend WithEvents STRING1TextEdit As DevExpress.XtraEditors.MemoEdit
|
||||
End Class
|
||||
|
||||
@ -547,13 +547,13 @@
|
||||
<value>Aktionen</value>
|
||||
</data>
|
||||
<data name="RibbonControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1059, 158</value>
|
||||
<value>1059, 146</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 691</value>
|
||||
<value>0, 694</value>
|
||||
</data>
|
||||
<data name="RibbonStatusBar1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1059, 24</value>
|
||||
<value>1059, 21</value>
|
||||
</data>
|
||||
<data name=">>RibbonStatusBar1.Name" xml:space="preserve">
|
||||
<value>RibbonStatusBar1</value>
|
||||
@ -587,7 +587,7 @@
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="XtraTabControl1.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>0, 158</value>
|
||||
<value>0, 146</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="XtraTabPage1.AutoScroll" type="System.Boolean, mscorlib">
|
||||
@ -658,6 +658,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>
|
||||
@ -791,7 +794,7 @@
|
||||
<value>5</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY3TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 396</value>
|
||||
<value>89, 411</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY3TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>597, 20</value>
|
||||
@ -812,7 +815,7 @@
|
||||
<value>6</value>
|
||||
</data>
|
||||
<data name="ADDED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 420</value>
|
||||
<value>89, 435</value>
|
||||
</data>
|
||||
<data name="ADDED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>258, 20</value>
|
||||
@ -833,7 +836,7 @@
|
||||
<value>7</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHOTextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 444</value>
|
||||
<value>89, 459</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHOTextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>258, 20</value>
|
||||
@ -857,7 +860,7 @@
|
||||
<value>89, 84</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>597, 133</value>
|
||||
<value>597, 138</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY1TextEdit.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>7</value>
|
||||
@ -875,10 +878,10 @@
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY2TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 221</value>
|
||||
<value>89, 226</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY2TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>597, 171</value>
|
||||
<value>597, 181</value>
|
||||
</data>
|
||||
<data name="EMAIL_BODY2TextEdit.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>8</value>
|
||||
@ -917,7 +920,7 @@
|
||||
<value>11</value>
|
||||
</data>
|
||||
<data name="ADDED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>428, 420</value>
|
||||
<value>428, 435</value>
|
||||
</data>
|
||||
<data name="ADDED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve">
|
||||
<value>G</value>
|
||||
@ -944,7 +947,7 @@
|
||||
<value>12</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHENDateEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>428, 444</value>
|
||||
<value>428, 459</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHENDateEdit.Properties.Mask.EditMask" xml:space="preserve">
|
||||
<value>d</value>
|
||||
@ -1004,7 +1007,7 @@
|
||||
<value>Geändert wann</value>
|
||||
</data>
|
||||
<data name="DataLayoutControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>698, 476</value>
|
||||
<value>698, 491</value>
|
||||
</data>
|
||||
<data name="DataLayoutControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>22</value>
|
||||
@ -1055,7 +1058,7 @@
|
||||
<value>128</value>
|
||||
</data>
|
||||
<data name="GridControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>353, 508</value>
|
||||
<value>353, 523</value>
|
||||
</data>
|
||||
<data name="GridControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>20</value>
|
||||
@ -1073,7 +1076,7 @@
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="XtraTabPage1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1057, 508</value>
|
||||
<value>1057, 523</value>
|
||||
</data>
|
||||
<data name="XtraTabPage1.Text" xml:space="preserve">
|
||||
<value>Email Phrasen</value>
|
||||
@ -1091,7 +1094,7 @@
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="XtraTabControl1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1059, 533</value>
|
||||
<value>1059, 548</value>
|
||||
</data>
|
||||
<data name="XtraTabControl1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>2</value>
|
||||
@ -1220,29 +1223,8 @@
|
||||
<data name=">>CAPT_TYPETextEdit.ZOrder" xml:space="preserve">
|
||||
<value>8</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 132</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Name" xml:space="preserve">
|
||||
<value>STRING1TextEdit</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraEditors.TextEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Parent" xml:space="preserve">
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name="STRING2TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 156</value>
|
||||
<value>89, 303</value>
|
||||
</data>
|
||||
<data name="STRING2TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
@ -1260,10 +1242,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING2TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>10</value>
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name="STRING3TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 180</value>
|
||||
<value>89, 327</value>
|
||||
</data>
|
||||
<data name="STRING3TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
@ -1281,10 +1263,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING3TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>11</value>
|
||||
<value>10</value>
|
||||
</data>
|
||||
<data name="STRING4TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 204</value>
|
||||
<value>89, 351</value>
|
||||
</data>
|
||||
<data name="STRING4TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
@ -1302,10 +1284,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING4TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>12</value>
|
||||
<value>11</value>
|
||||
</data>
|
||||
<data name="STRING5TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 228</value>
|
||||
<value>89, 375</value>
|
||||
</data>
|
||||
<data name="STRING5TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
@ -1323,10 +1305,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING5TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>13</value>
|
||||
<value>12</value>
|
||||
</data>
|
||||
<data name="STRING6TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 252</value>
|
||||
<value>89, 399</value>
|
||||
</data>
|
||||
<data name="STRING6TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 20</value>
|
||||
@ -1344,10 +1326,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING6TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>14</value>
|
||||
<value>13</value>
|
||||
</data>
|
||||
<data name="TextEdit3.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 276</value>
|
||||
<value>89, 423</value>
|
||||
</data>
|
||||
<data name="TextEdit3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>181, 20</value>
|
||||
@ -1365,10 +1347,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>TextEdit3.ZOrder" xml:space="preserve">
|
||||
<value>15</value>
|
||||
<value>14</value>
|
||||
</data>
|
||||
<data name="ADDED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>351, 276</value>
|
||||
<value>351, 423</value>
|
||||
</data>
|
||||
<data name="ADDED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve">
|
||||
<value>d</value>
|
||||
@ -1392,10 +1374,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>ADDED_WHENTextEdit.ZOrder" xml:space="preserve">
|
||||
<value>16</value>
|
||||
<value>15</value>
|
||||
</data>
|
||||
<data name="TextEdit4.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 300</value>
|
||||
<value>89, 447</value>
|
||||
</data>
|
||||
<data name="TextEdit4.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>181, 20</value>
|
||||
@ -1413,10 +1395,10 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>TextEdit4.ZOrder" xml:space="preserve">
|
||||
<value>17</value>
|
||||
<value>16</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHENTextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>351, 300</value>
|
||||
<value>351, 447</value>
|
||||
</data>
|
||||
<data name="CHANGED_WHENTextEdit.Properties.Mask.EditMask" xml:space="preserve">
|
||||
<value>d</value>
|
||||
@ -1440,7 +1422,7 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>CHANGED_WHENTextEdit.ZOrder" xml:space="preserve">
|
||||
<value>18</value>
|
||||
<value>17</value>
|
||||
</data>
|
||||
<data name="OBJ_NAMETextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 60</value>
|
||||
@ -1461,7 +1443,7 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>OBJ_NAMETextEdit.ZOrder" xml:space="preserve">
|
||||
<value>19</value>
|
||||
<value>18</value>
|
||||
</data>
|
||||
<data name="INTERNALCheckEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>274, 12</value>
|
||||
@ -1474,7 +1456,7 @@
|
||||
<value>Default</value>
|
||||
</data>
|
||||
<data name="INTERNALCheckEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>108, 20</value>
|
||||
<value>108, 19</value>
|
||||
</data>
|
||||
<data name="INTERNALCheckEdit.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>20</value>
|
||||
@ -1489,6 +1471,27 @@
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>INTERNALCheckEdit.ZOrder" xml:space="preserve">
|
||||
<value>19</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>89, 132</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>443, 167</value>
|
||||
</data>
|
||||
<data name="STRING1TextEdit.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>9</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Name" xml:space="preserve">
|
||||
<value>STRING1TextEdit</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Type" xml:space="preserve">
|
||||
<value>DevExpress.XtraEditors.MemoEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.Parent" xml:space="preserve">
|
||||
<value>DataLayoutControl2</value>
|
||||
</data>
|
||||
<data name=">>STRING1TextEdit.ZOrder" xml:space="preserve">
|
||||
<value>20</value>
|
||||
</data>
|
||||
<data name="DataLayoutControl2.Location" type="System.Drawing.Point, System.Drawing">
|
||||
@ -1625,6 +1628,9 @@
|
||||
<data name="ToolStripTextBox1.AutoSize" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox1.Font" type="System.Drawing.Font, System.Drawing">
|
||||
<value>Segoe UI, 9pt</value>
|
||||
</data>
|
||||
<data name="ToolStripTextBox1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>50, 23</value>
|
||||
</data>
|
||||
@ -1748,7 +1754,7 @@
|
||||
<value>3</value>
|
||||
</data>
|
||||
<data name="GridControl2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>509, 508</value>
|
||||
<value>509, 523</value>
|
||||
</data>
|
||||
<data name="GridControl2.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>21</value>
|
||||
@ -1766,7 +1772,7 @@
|
||||
<value>2</value>
|
||||
</data>
|
||||
<data name="XtraTabPage2.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1057, 508</value>
|
||||
<value>1057, 523</value>
|
||||
</data>
|
||||
<data name="XtraTabPage2.Text" xml:space="preserve">
|
||||
<value>GUI Phrasen</value>
|
||||
|
||||
@ -666,6 +666,7 @@ Public Class frmValidator
|
||||
|
||||
For Each oControlRow As DataRow In DTCONTROLS.Rows
|
||||
Dim oMyControl As Control
|
||||
Dim oControlID = oControlRow.Item("GUID")
|
||||
oControlInfo = $"CtrlName: {oControlRow.Item("NAME")} - CtrlIndex: {oControlRow.Item("INDEX_NAME")}"
|
||||
Try
|
||||
Select Case oControlRow.Item("CTRL_TYPE").ToString.ToUpper
|
||||
@ -948,6 +949,10 @@ Public Class frmValidator
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
oMyControl = oGrid
|
||||
Case "LINE"
|
||||
|
||||
@ -996,7 +1001,16 @@ Public Class frmValidator
|
||||
allgFunk.Insert_LogEntry($"ERROR CreateControls >> {ex.Message}")
|
||||
End Try
|
||||
End Sub
|
||||
Private Sub GridControlColumnWidthChanged(sender As System.Object, e As System.EventArgs)
|
||||
Try
|
||||
Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = sender
|
||||
Dim oControlID = DirectCast(oMyGridView.GridControl.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
SaveDevExpressGridControl_Layout(CURRENT_ProfilGUID, oControlID, oMyGridView)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub Clear_all_Input()
|
||||
For Each inctrl As Control In Me.pnldesigner.Controls
|
||||
Dim Type As String = inctrl.GetType.ToString
|
||||
@ -2414,7 +2428,11 @@ Public Class frmValidator
|
||||
|
||||
Dim oType As String = oControl.GetType.ToString
|
||||
Dim oTyp As String = oControlRow.Item("CTRL_TYPE")
|
||||
Dim oIDBTyp As String = oControlRow.Item("IDB_TYP")
|
||||
Dim oIDBTyp As String
|
||||
If IDB_ACTIVE Then
|
||||
oIDBTyp = oControlRow.Item("IDB_TYP")
|
||||
End If
|
||||
|
||||
Dim oSourceIndexName As String = oControlRow.Item("INDEX_NAME")
|
||||
' Wenn kein defaultValue existiert, leeren String setzen
|
||||
Dim oDefaultValue As String = NotNull(oControlRow.Item("DEFAULT_VALUE"), String.Empty)
|
||||
@ -2582,6 +2600,7 @@ Public Class frmValidator
|
||||
Case "DevExpress.XtraGrid.GridControl"
|
||||
oControlType = "DevExpress.XtraGrid.GridControl"
|
||||
Dim oMyGridControl As GridControl = oControl
|
||||
Dim oDTColumnsPerDevExGrid As DataTable = DTGRID_COLUMNS.Clone()
|
||||
If oSourceIndexName = "" Then
|
||||
MsgBox("Attention wrong configuration:" & vbNewLine & "for control " & oControl.Name & " no INDEX configured!" & vbNewLine & "Bitte prüfen Sie den Formulardesigner!", MsgBoxStyle.Critical, ADDITIONAL_TITLE)
|
||||
Exit For
|
||||
@ -2603,11 +2622,14 @@ Public Class frmValidator
|
||||
Select Case oTyp
|
||||
'Tabellendarstellung
|
||||
Case "TABLE"
|
||||
Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
|
||||
Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count
|
||||
Dim oExpression = $"CONTROL_ID = {oControlId}"
|
||||
DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oDTColumnsPerDevExGrid, LoadOption.PreserveChanges)
|
||||
|
||||
'Dim oDTColumnsPerDevExGrid As DataTable = ClassDatabase.Return_Datatable($"SELECT * FROM TBPM_CONTROL_TABLE WHERE CONTROL_ID = {oControlId} ORDER BY [SEQUENCE]")
|
||||
'Dim oColCount = oDTColumnsPerDevExGrid.Rows.Count
|
||||
Dim oColValuesfromSource As String()
|
||||
LOGGER.Debug($"DevExpressGrid: {oColCount} Columns configured for control {oControlId}.")
|
||||
If oColCount >= 1 Then
|
||||
LOGGER.Debug($"DevExpressGrid: {oDTColumnsPerDevExGrid.Rows.Count} Columns configured for control {oControlId}.")
|
||||
If oDTColumnsPerDevExGrid.Rows.Count >= 1 Then
|
||||
Dim oDataSource As DataTable = oMyGridControl.DataSource
|
||||
oDataSource.Rows.Clear()
|
||||
If IDB_ACTIVE = False Then
|
||||
@ -2615,7 +2637,7 @@ Public Class frmValidator
|
||||
LOGGER.Debug($"vektorrow Value {Zeile.ToString}...")
|
||||
oColValuesfromSource = Split(Zeile, Delimiter)
|
||||
|
||||
Select Case oColCount
|
||||
Select Case oDTColumnsPerDevExGrid.Rows.Count
|
||||
Case 1
|
||||
oDataSource.Rows.Add(New String() {Zeile.ToString})
|
||||
|
||||
@ -2683,45 +2705,7 @@ Public Class frmValidator
|
||||
Case 4
|
||||
oDataSource.Rows.Add(New String() {oColValuesfromSource(0), oColValuesfromSource(1), oColValuesfromSource(2), oColValuesfromSource(3)})
|
||||
End Select
|
||||
'Select Case oMyDatatable.Rows.Count
|
||||
' Case 1
|
||||
' oDataSource.Rows.Add(New String() {oRow.Item(0).ToString})
|
||||
' 'dgv.Rows.Add(New String() {Zeile.ToString})
|
||||
' Case 2
|
||||
' If SpaltenWerte.Length = 2 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1)})
|
||||
' Else
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), ""})
|
||||
' End If
|
||||
' Case 3
|
||||
' If SpaltenWerte.Length = 3 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2)})
|
||||
' ElseIf SpaltenWerte.Length = 2 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), ""})
|
||||
' Else
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", ""})
|
||||
' End If
|
||||
' Case 4
|
||||
' If SpaltenWerte.Length = 4 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), SpaltenWerte(3)})
|
||||
' ElseIf SpaltenWerte.Length = 3 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), SpaltenWerte(2), ""})
|
||||
' ElseIf SpaltenWerte.Length = 2 Then
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), SpaltenWerte(1), "", ""})
|
||||
' Else
|
||||
' oDataSource.Rows.Add(New String() {SpaltenWerte(0), "", "", ""})
|
||||
' 'dgv.Rows.Add(New String() {SpaltenWerte(0), "", "", ""})
|
||||
' End If
|
||||
|
||||
'End Select
|
||||
Next
|
||||
End If
|
||||
|
||||
@ -2756,6 +2740,30 @@ Public Class frmValidator
|
||||
|
||||
End If
|
||||
End If
|
||||
Try
|
||||
'Dim oFilteredDatatable As DataTable = DTGRID_COLUMNS.Clone()
|
||||
'Dim oExpression = $"CONTROL_ID = {oControlRow.Item("GUID")}"
|
||||
'DTGRID_COLUMNS.Select(oExpression, "SEQUENCE").CopyToDataTable(oFilteredDatatable, LoadOption.PreserveChanges)
|
||||
Dim oMyGridView As DevExpress.XtraGrid.Views.Grid.GridView = oMyGridControl.MainView
|
||||
oMyGridView.OptionsView.ColumnAutoWidth = False
|
||||
'AddHandler oMyGridView.ColumnWidthChanged, AddressOf GridControlColumnWidthChanged
|
||||
For Each oRow As DataRow In oDTColumnsPerDevExGrid.Rows
|
||||
For Each oActGridColumn As DevExpress.XtraGrid.Columns.GridColumn In oMyGridView.Columns
|
||||
Dim oGridDXFieldName = oActGridColumn.FieldName
|
||||
Dim GridDXColumnEditName = oActGridColumn.ColumnEditName
|
||||
If oRow.Item("SPALTENNAME") = oGridDXFieldName Then
|
||||
oActGridColumn.Width = oRow.Item("SPALTENBREITE")
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
Next
|
||||
Dim i = 0
|
||||
|
||||
' RestoreDevExpressGridControl_Layout(CURRENT_CLICKED_PROFILE_ID, oControlId, oMyGridView)
|
||||
Catch ex As Exception
|
||||
|
||||
End Try
|
||||
End If
|
||||
Case "System.Windows.Forms.CheckBox"
|
||||
LOGGER.Debug("Loading checkbox.")
|
||||
@ -3600,7 +3608,11 @@ Public Class frmValidator
|
||||
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 oIDBTyp As Integer = dr.Item("IDB_TYP")
|
||||
Dim oIDBTyp As Integer
|
||||
If IDB_ACTIVE Then
|
||||
oIDBTyp = dr.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)
|
||||
@ -4732,4 +4744,31 @@ Public Class frmValidator
|
||||
SetStatusLabel($"Error while saving data!", "Red")
|
||||
End If
|
||||
End Sub
|
||||
Private Sub SaveDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView)
|
||||
Try
|
||||
Dim xml As String = GetXML_OverviewLayoutName(pProfilID, pControlID)
|
||||
pGridView.SaveLayoutToXml(xml)
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Error while saving GridLayout: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub RestoreDevExpressGridControl_Layout(pProfilID As Integer, pControlID As Integer, pGridView As DevExpress.XtraGrid.Views.Grid.GridView)
|
||||
|
||||
Try
|
||||
Dim oXml As String = GetXML_OverviewLayoutName(pProfilID, pControlID)
|
||||
If File.Exists(oXml) Then
|
||||
pGridView.RestoreLayoutFromXml(oXml)
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Error(ex)
|
||||
LOGGER.Info("Error while restoring layout: " & ex.Message)
|
||||
End Try
|
||||
End Sub
|
||||
Private Function GetXML_OverviewLayoutName(pProfilID As Integer, pControlID As Integer)
|
||||
Dim Filename As String = String.Format($"DevExpressValidatorGridControl_{pProfilID}-{pControlID}.xml")
|
||||
Return System.IO.Path.Combine(Application.UserAppDataPath(), Filename)
|
||||
End Function
|
||||
End Class
|
||||
Loading…
x
Reference in New Issue
Block a user