Speichern Prüfen - 3164 - CheckUpdateIndices - Error BtnClick
This commit is contained in:
parent
2b1ec0f68a
commit
a7061968a1
@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("2.1.6.3")>
|
||||
<Assembly: AssemblyVersion("2.1.6.4")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
@ -18,7 +18,7 @@ Public Class frmAdministration
|
||||
Dim DT2Compare As DataTable
|
||||
Dim PROF_ORIGIN As DataTable
|
||||
Private CURR_TEXT_CONTROL_CONTENT As String
|
||||
Private CURR_BOOL_CONTROL_CONTENT As Boolean
|
||||
Private CURR_BOOL_CONTROL_CONTENT As CheckState = CheckState.Indeterminate
|
||||
Private CURR_COMBOBOX_CONTROL_CONTENT As String
|
||||
|
||||
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
@ -1123,6 +1123,7 @@ Public Class frmAdministration
|
||||
tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
|
||||
CHANGES_FORM_DESIGN = True
|
||||
UNSAVED_CHANGES_PROFILE = False
|
||||
CURR_TEXT_CONTROL_CONTENT = String.Empty
|
||||
DD_DMSLiteDataSet.AcceptChanges()
|
||||
Else
|
||||
tsbStaticInfo.Caption = ""
|
||||
@ -1451,7 +1452,7 @@ Public Class frmAdministration
|
||||
|
||||
End Sub
|
||||
Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged
|
||||
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then
|
||||
If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Or CURR_BOOL_CONTROL_CONTENT = CheckState.Indeterminate Then
|
||||
Exit Sub
|
||||
End If
|
||||
Dim ochk As CheckBox = sender
|
||||
|
||||
@ -84,8 +84,12 @@ Public Class frmControl_Detail
|
||||
|
||||
Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click
|
||||
Dim oldSQL = SQL_COMMANDTextBox.Text
|
||||
CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN"
|
||||
CURRENT_INDEX_ID = GUIDTextBox.Text
|
||||
Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
|
||||
oForm.TopMost = True
|
||||
Dim oResult = oForm.ShowDialog()
|
||||
oForm.BringToFront()
|
||||
|
||||
If oResult = DialogResult.OK Then
|
||||
If oldSQL <> oForm.SQLCommand Then
|
||||
|
||||
4
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
4
app/DD_PM_WINDREAM/frmMain.Designer.vb
generated
@ -468,11 +468,12 @@ Partial Class frmMain
|
||||
Me.RibbonControl1.MaxItemId = 26
|
||||
Me.RibbonControl1.Name = "RibbonControl1"
|
||||
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
|
||||
Me.RibbonControl1.QuickToolbarItemLinks.Add(Me.bbtnitemInfo)
|
||||
Me.RibbonControl1.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
|
||||
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
|
||||
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
|
||||
Me.RibbonControl1.ShowToolbarCustomizeItem = False
|
||||
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
|
||||
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
|
||||
'
|
||||
'bbtniRefresh
|
||||
'
|
||||
@ -523,6 +524,7 @@ Partial Class frmMain
|
||||
Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image)
|
||||
Me.bbtnitemInfo.Name = "bbtnitemInfo"
|
||||
Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
|
||||
Me.bbtnitemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
|
||||
'
|
||||
'BarButtonItem1
|
||||
'
|
||||
|
||||
@ -125,7 +125,7 @@
|
||||
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
|
||||
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
|
||||
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAAVABBwFQAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
CAAAAk1TRnQBSQFMAgEBAgEAAVgBBwFYAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
|
||||
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
|
||||
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
|
||||
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
|
||||
@ -172,10 +172,114 @@
|
||||
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>179, 17</value>
|
||||
</metadata>
|
||||
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>138, 56</value>
|
||||
</metadata>
|
||||
<data name=">>GridControl_Docs.Name" xml:space="preserve">
|
||||
<value>GridControl_Docs</value>
|
||||
</data>
|
||||
<data name=">>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=">>GridControl_Docs.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>GridControl_Docs.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name=">>BindingNavigator1.Name" xml:space="preserve">
|
||||
<value>BindingNavigator1</value>
|
||||
</data>
|
||||
<data name=">>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=">>BindingNavigator1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>BindingNavigator1.ZOrder" xml:space="preserve">
|
||||
<value>1</value>
|
||||
</data>
|
||||
<data name=">>NavBarControl1.Name" xml:space="preserve">
|
||||
<value>NavBarControl1</value>
|
||||
</data>
|
||||
<data name=">>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=">>NavBarControl1.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>NavBarControl1.ZOrder" xml:space="preserve">
|
||||
<value>2</value>
|
||||
</data>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<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>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Panel1.TabIndex" type="System.Int32, mscorlib">
|
||||
<value>4</value>
|
||||
</data>
|
||||
<data name=">>Panel1.Name" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>Panel1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>Panel1.ZOrder" xml:space="preserve">
|
||||
<value>3</value>
|
||||
</data>
|
||||
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>863, 17</value>
|
||||
</metadata>
|
||||
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
|
||||
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>270, 256</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuGrid.Name" xml:space="preserve">
|
||||
<value>ContextMenuGrid</value>
|
||||
</data>
|
||||
<data name=">>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.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>233, 25</value>
|
||||
</data>
|
||||
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1114, 335</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=">>GridControl_Docs.Name" xml:space="preserve">
|
||||
<value>GridControl_Docs</value>
|
||||
</data>
|
||||
<data name=">>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=">>GridControl_Docs.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>GridControl_Docs.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>269, 26</value>
|
||||
</data>
|
||||
@ -204,7 +308,6 @@
|
||||
<data name="CMFileMetadata.Text" xml:space="preserve">
|
||||
<value>Metadaten Datei anzeigen</value>
|
||||
</data>
|
||||
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="CMFileMetadata.Visible" type="System.Boolean, mscorlib">
|
||||
<value>False</value>
|
||||
</data>
|
||||
@ -260,61 +363,24 @@
|
||||
<data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>266, 6</value>
|
||||
</data>
|
||||
<data name="DateiAlsLinkVersendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>200, 22</value>
|
||||
</data>
|
||||
<data name="DateiAlsLinkVersendenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Datei als Link versenden</value>
|
||||
</data>
|
||||
<data name="AktionenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>269, 26</value>
|
||||
</data>
|
||||
<data name="AktionenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Aktionen Datei</value>
|
||||
</data>
|
||||
<data name="DateiAlsLinkVersendenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>200, 22</value>
|
||||
</data>
|
||||
<data name="DateiAlsLinkVersendenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Datei als Link versenden</value>
|
||||
</data>
|
||||
<data name="ExportierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>269, 26</value>
|
||||
</data>
|
||||
<data name="ExportierenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Exportieren</value>
|
||||
</data>
|
||||
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>270, 256</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuGrid.Name" xml:space="preserve">
|
||||
<value>ContextMenuGrid</value>
|
||||
</data>
|
||||
<data name=">>ContextMenuGrid.Type" xml:space="preserve">
|
||||
<value>System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="GridControl_Docs.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Fill</value>
|
||||
</data>
|
||||
<data name="GridControl_Docs.Location" type="System.Drawing.Point, System.Drawing">
|
||||
<value>233, 25</value>
|
||||
</data>
|
||||
<data name="GridControl_Docs.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>1114, 335</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=">>GridControl_Docs.Name" xml:space="preserve">
|
||||
<value>GridControl_Docs</value>
|
||||
</data>
|
||||
<data name=">>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=">>GridControl_Docs.Parent" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>GridControl_Docs.ZOrder" xml:space="preserve">
|
||||
<value>0</value>
|
||||
</data>
|
||||
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>138, 56</value>
|
||||
</metadata>
|
||||
@ -418,12 +484,6 @@
|
||||
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 56</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>
|
||||
@ -577,32 +637,11 @@
|
||||
<data name=">>NavBarControl1.ZOrder" xml:space="preserve">
|
||||
<value>2</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=">>Panel1.Name" xml:space="preserve">
|
||||
<value>Panel1</value>
|
||||
</data>
|
||||
<data name=">>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=">>Panel1.Parent" xml:space="preserve">
|
||||
<value>$this</value>
|
||||
</data>
|
||||
<data name=">>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>490, 17</value>
|
||||
@ -610,27 +649,6 @@
|
||||
<metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>640, 56</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="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>231, 6</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>Bring to Front</value>
|
||||
</data>
|
||||
<data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>234, 22</value>
|
||||
</data>
|
||||
<data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Out of Range - PM fixieren</value>
|
||||
</data>
|
||||
<data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>235, 76</value>
|
||||
</data>
|
||||
@ -812,6 +830,27 @@
|
||||
<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="ToolStripSeparator1.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>231, 6</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>Bring to Front</value>
|
||||
</data>
|
||||
<data name="OutOfRangePMFixierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
|
||||
<value>234, 22</value>
|
||||
</data>
|
||||
<data name="OutOfRangePMFixierenToolStripMenuItem.Text" xml:space="preserve">
|
||||
<value>Out of Range - PM fixieren</value>
|
||||
</data>
|
||||
<metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>605, 17</value>
|
||||
</metadata>
|
||||
@ -1377,21 +1416,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>Auswertungen</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup3.Text" xml:space="preserve">
|
||||
<value>Verwaltung</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroupBasicConf.Text" xml:space="preserve">
|
||||
<value>Grundeinstellungen</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup4.Text" xml:space="preserve">
|
||||
<value>Funktionen/App Start</value>
|
||||
</data>
|
||||
<data name="RibbonPage1.Text" xml:space="preserve">
|
||||
<value>Start</value>
|
||||
</data>
|
||||
@ -1428,6 +1452,21 @@
|
||||
<data name=">>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>Auswertungen</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup3.Text" xml:space="preserve">
|
||||
<value>Verwaltung</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroupBasicConf.Text" xml:space="preserve">
|
||||
<value>Grundeinstellungen</value>
|
||||
</data>
|
||||
<data name="RibbonPageGroup4.Text" xml:space="preserve">
|
||||
<value>Funktionen/App Start</value>
|
||||
</data>
|
||||
<data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
|
||||
<value>Top</value>
|
||||
</data>
|
||||
@ -2718,6 +2757,9 @@
|
||||
<data name="miView.Caption" xml:space="preserve">
|
||||
<value>&Ansicht</value>
|
||||
</data>
|
||||
<data name="miBackground.Caption" xml:space="preserve">
|
||||
<value>&Hintergrund</value>
|
||||
</data>
|
||||
<data name="miPageLayout.Caption" xml:space="preserve">
|
||||
<value>&Seiten Layout</value>
|
||||
</data>
|
||||
@ -2730,9 +2772,6 @@
|
||||
<data name="miToolbars.Caption" xml:space="preserve">
|
||||
<value>Bars</value>
|
||||
</data>
|
||||
<data name="miBackground.Caption" xml:space="preserve">
|
||||
<value>&Hintergrund</value>
|
||||
</data>
|
||||
<data name="PrintPreviewBarCheckItem1.Caption" xml:space="preserve">
|
||||
<value>PDF Dokument</value>
|
||||
</data>
|
||||
|
||||
@ -36,8 +36,10 @@ Public Class frmSQL_DESIGNER
|
||||
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
|
||||
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_UEBERPRUEFUNG,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_CONTROLS T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_CONTROL_ID), "frmSQL_FINAL_INDICES_Load1")
|
||||
Else
|
||||
ElseIf CURRENT_DESIGN_TYPE = "FINAL_INDEX" Then
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_PROFILE_FINAL_INDEXING T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
|
||||
ElseIf CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
|
||||
CURRENT_DT_SQL_CONFIG_TABLE = ClassDatabase.Return_Datatable(String.Format("SELECT T.CONNECTION_ID,T1.BEZEICHNUNG AS 'CON_STRING',ISNULL(T.SQL_COMMAND,'') AS 'SQL_COMMAND' FROM TBPM_CONTROL_TABLE T, TBDD_CONNECTION T1 WHERE T.CONNECTION_ID = T1.GUID AND T.GUID = {0}", CURRENT_INDEX_ID), "frmSQL_FINAL_INDICES_Load2")
|
||||
End If
|
||||
If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
|
||||
cmbConnection.Enabled = False
|
||||
@ -47,45 +49,47 @@ Public Class frmSQL_DESIGNER
|
||||
btnShowConnections.Enabled = True
|
||||
End If
|
||||
|
||||
If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Then
|
||||
If (CURRENT_DESIGN_TYPE = "INPUT_INDEX") Or CURRENT_DESIGN_TYPE = "FINAL_INDEX" Or CURRENT_DESIGN_TYPE = "SQL_BTNFINISH" Or CURRENT_DESIGN_TYPE = "SQL_SOURCE_TABLE_COLUMN" Then
|
||||
If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
|
||||
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
|
||||
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
|
||||
End If
|
||||
If CURRENT_DESIGN_TYPE <> "SQL_SOURCE_TABLE_COLUMN" Then
|
||||
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3")
|
||||
cmbControls.DataSource = oDatatable
|
||||
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
|
||||
cmbControls.Visible = True
|
||||
lblControls.Visible = True
|
||||
btnAddControl.Visible = True
|
||||
|
||||
Dim oSQL = String.Format("SELECT NAME FROM TBPM_PROFILE_CONTROLS WHERE PROFIL_ID = {0} AND CTRL_TYPE <> 'LBL' ORDER BY NAME", CURRENT_ProfilGUID)
|
||||
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3")
|
||||
cmbControls.DataSource = oDatatable
|
||||
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName
|
||||
cmbControls.Visible = True
|
||||
lblControls.Visible = True
|
||||
btnAddControl.Visible = True
|
||||
cmbIndexe.Items.Clear()
|
||||
If IDB_ACTIVE = False Then
|
||||
If MyIndicies IsNot Nothing Then
|
||||
For Each index As String In MyIndicies
|
||||
cmbIndexe.Items.Add(index)
|
||||
Next
|
||||
cmbIndexe.SelectedIndex = -1
|
||||
End If
|
||||
'cmbIndexe.Enabled = True
|
||||
'lbIndexe.Enabled = True
|
||||
'btnAddIndex.Enabled = True
|
||||
Else
|
||||
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
|
||||
If oAttributes IsNot Nothing Then
|
||||
For Each oAttribute As String In oAttributes
|
||||
cmbIndexe.Items.Add(oAttribute)
|
||||
Next
|
||||
cmbIndexe.SelectedIndex = -1
|
||||
End If
|
||||
|
||||
cmbIndexe.Items.Clear()
|
||||
If IDB_ACTIVE = False Then
|
||||
If MyIndicies IsNot Nothing Then
|
||||
For Each index As String In MyIndicies
|
||||
cmbIndexe.Items.Add(index)
|
||||
Next
|
||||
cmbIndexe.SelectedIndex = -1
|
||||
'cmbIndexe.Enabled = False
|
||||
'lbIndexe.Enabled = False
|
||||
'btnAddIndex.Enabled = False
|
||||
End If
|
||||
'cmbIndexe.Enabled = True
|
||||
'lbIndexe.Enabled = True
|
||||
'btnAddIndex.Enabled = True
|
||||
Else
|
||||
Dim oAttributes = IDBData.GetIndicesByBE(CURRENT_OBJECTTYPE)
|
||||
If oAttributes IsNot Nothing Then
|
||||
For Each oAttribute As String In oAttributes
|
||||
cmbIndexe.Items.Add(oAttribute)
|
||||
Next
|
||||
cmbIndexe.SelectedIndex = -1
|
||||
End If
|
||||
|
||||
'cmbIndexe.Enabled = False
|
||||
'lbIndexe.Enabled = False
|
||||
'btnAddIndex.Enabled = False
|
||||
End If
|
||||
|
||||
|
||||
Else
|
||||
cmbControls.Visible = False
|
||||
lblControls.Visible = False
|
||||
|
||||
@ -1295,11 +1295,12 @@ Public Class frmValidator
|
||||
Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid
|
||||
Dim oSQL = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL_UEBERPRUEFUNG")
|
||||
If IsNothing(oSQL) Then
|
||||
LOGGER.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
If Check_UpdateIndexe() = False Then
|
||||
|
||||
LOGGER.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click")
|
||||
Exit Sub
|
||||
End If
|
||||
Override_SQLCommand = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2")
|
||||
@ -1417,12 +1418,12 @@ Public Class frmValidator
|
||||
End If
|
||||
Case "Override_Direct".ToUpper
|
||||
Override = True
|
||||
If Check_UpdateIndexe() = False Then
|
||||
If Check_UpdateIndexe() = True Then
|
||||
Finish_WFStep(False)
|
||||
End If
|
||||
|
||||
Case "Override incFinal".ToUpper
|
||||
If Check_UpdateIndexe() = False Then
|
||||
If Check_UpdateIndexe() = True Then
|
||||
Finish_WFStep(False)
|
||||
End If
|
||||
Case Else
|
||||
@ -3863,7 +3864,7 @@ Public Class frmValidator
|
||||
Dim oErrorOcurred As Boolean = False
|
||||
If OverrideAll = False Then
|
||||
'Eingaben auf Form überprüfen
|
||||
If Check_UpdateIndexe() = False Then
|
||||
If Check_UpdateIndexe() = True Then
|
||||
If PROFIL_FINISH_SQL <> String.Empty Then
|
||||
If btnFinish_continue() = False Then
|
||||
Exit Sub
|
||||
@ -4287,7 +4288,7 @@ Public Class frmValidator
|
||||
Next
|
||||
Return odt
|
||||
End Function
|
||||
Function Check_UpdateIndexe()
|
||||
Function Check_UpdateIndexe() As Boolean
|
||||
Dim oControlName
|
||||
Dim oControlId As String
|
||||
Try
|
||||
@ -4298,7 +4299,8 @@ Public Class frmValidator
|
||||
Dim oMyInput As String = ""
|
||||
'Jedes Control in Konfig Tab durchlaufn
|
||||
For Each oControlRow As DataRow In DTVWCONTROL_INDEX.Rows
|
||||
If oControlRow.Item("CTRL_TYPE") = "LBL" Or oControlRow.Item("CTRL_TYPE") = "LINE" Then
|
||||
Dim oCtrlType = oControlRow.Item("CTRL_TYPE").ToString
|
||||
If oCtrlType = "LBL" Or oCtrlType = "LINE" Or oCtrlType = "BUTTON" Then
|
||||
Continue For
|
||||
End If
|
||||
|
||||
@ -4622,7 +4624,7 @@ Public Class frmValidator
|
||||
Dim st As New StackTrace(True)
|
||||
st = New StackTrace(ex, True)
|
||||
LOGGER.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True)
|
||||
Return True
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Case "System.Windows.Forms.ComboBox"
|
||||
@ -4638,43 +4640,42 @@ Public Class frmValidator
|
||||
Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben
|
||||
oMyInput = cmb.Text
|
||||
LOGGER.Debug($"inputvalue Combobox: {cmb.Text}")
|
||||
Dim oWMValue
|
||||
Dim oValue
|
||||
'den aktuellen Wert in windream auslesen
|
||||
If oIndexName.StartsWith("[%VKT") Then
|
||||
oWMValue = ReturnVektor_IndexValue(oIndexName)
|
||||
oValue = ReturnVektor_IndexValue(oIndexName)
|
||||
Else
|
||||
oWMValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
|
||||
oValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
|
||||
End If
|
||||
LOGGER.Debug($"Got a WMValue...")
|
||||
If IsNothing(oWMValue) Then
|
||||
LOGGER.Debug($"WMValue is nothing...Value EmptyString will be used")
|
||||
oWMValue = String.Empty
|
||||
If IsNothing(oValue) Then
|
||||
LOGGER.Debug($"oValue is nothing...Value EmptyString will be used")
|
||||
oValue = String.Empty
|
||||
End If
|
||||
Dim oIndexType As String = "Index"
|
||||
Try
|
||||
If oWMValue.ToString = "System.Object[]" Then
|
||||
If oValue.ToString = "System.Object[]" Then
|
||||
oIndexType = "Vector"
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Debug($"Exception while oWMValue.ToString = System.Object[]...")
|
||||
LOGGER.Debug($"Exception while oValue.ToString = System.Object[]...")
|
||||
End Try
|
||||
If oIndexType = "Vector" Then
|
||||
LOGGER.Debug($"Control with ID{oControlId} is a vectorfield...")
|
||||
If oWMValue.Length = 1 Then
|
||||
oWMValue = oWMValue(0).ToString
|
||||
If oValue.Length = 1 Then
|
||||
oValue = oValue(0).ToString
|
||||
Else '
|
||||
LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used")
|
||||
oWMValue = oWMValue(0).ToString
|
||||
oValue = oValue(0).ToString
|
||||
End If
|
||||
Else
|
||||
LOGGER.Debug($"WMValue is a regular item...")
|
||||
LOGGER.Debug($"oValue is a regular item...")
|
||||
Dim oitsadifference As Boolean = False
|
||||
Try
|
||||
If oWMValue.ToString <> oMyInput.ToString Then
|
||||
If oValue.ToString <> oMyInput.ToString Then
|
||||
oitsadifference = True
|
||||
End If
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Could not convert the WMValue of Control with ID{oControlId}...")
|
||||
LOGGER.Warn($"Could not convert the oValue of Control with ID{oControlId}...")
|
||||
LOGGER.Error(ex.Message)
|
||||
oitsadifference = True
|
||||
End Try
|
||||
@ -4711,7 +4712,7 @@ Public Class frmValidator
|
||||
End If
|
||||
If IDB_ACTIVE = False Then
|
||||
If PROFIL_LOGINDEX <> "" Then
|
||||
Dim ologStr = Return_LOGString(oMyInput, oWMValue, oIndexName)
|
||||
Dim ologStr = Return_LOGString(oMyInput, oValue, oIndexName)
|
||||
WMIndexVectofield(ologStr, PROFIL_LOGINDEX)
|
||||
'Else
|
||||
'IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr)
|
||||
@ -4722,7 +4723,7 @@ Public Class frmValidator
|
||||
|
||||
End If
|
||||
Else
|
||||
LOGGER.Debug($"oitsadifference = False...Index with ID{oControlId} will not be indexed...")
|
||||
LOGGER.Debug($"oitsadifference = False...Index with ID {oControlId} will not be indexed...")
|
||||
'Wenn der Wert in ein Vektorfeld geschrieben wird
|
||||
End If
|
||||
End If
|
||||
@ -4736,7 +4737,7 @@ Public Class frmValidator
|
||||
st = New StackTrace(ex, True)
|
||||
MsgBox($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId} " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:")
|
||||
LOGGER.Info($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId}" & ex.Message)
|
||||
Return True
|
||||
Return False
|
||||
End Try
|
||||
|
||||
Case "System.Windows.Forms.DateTimePicker"
|
||||
@ -5081,11 +5082,17 @@ Public Class frmValidator
|
||||
|
||||
' If Error happened in inner For, exit the outer as well
|
||||
If oMissing = True Then
|
||||
LOGGER.Warn("Error in Inner Check_updateIndexe - Exiting...")
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Return oMissing
|
||||
If oMissing = True Then
|
||||
LOGGER.Debug("Check_UpdateIndexe: ERROR or Missing Indexing - returning False")
|
||||
Return False
|
||||
Else
|
||||
LOGGER.Debug("Check_UpdateIndexe: Everything OK - returning True")
|
||||
Return True
|
||||
End If
|
||||
|
||||
Catch ex As Exception
|
||||
LOGGER.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}")
|
||||
@ -5094,7 +5101,7 @@ Public Class frmValidator
|
||||
st = New StackTrace(ex, True)
|
||||
MsgBox($"Unexpected error in Check_UpdateIndexe ControlID,Name: {oControlId},{oControlName}" & vbNewLine & ex.Message & vbNewLine & "Line: " & st.GetFrame(0).GetFileLineNumber().ToString, MsgBoxStyle.Critical, "Error:")
|
||||
LOGGER.Info("Unexpected error in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True)
|
||||
Return True
|
||||
Return False
|
||||
End Try
|
||||
|
||||
End Function
|
||||
@ -5462,7 +5469,7 @@ Public Class frmValidator
|
||||
Else
|
||||
oRESULT = "Eingaben gespeichert"
|
||||
End If
|
||||
If Check_UpdateIndexe() = False Then
|
||||
If Check_UpdateIndexe() = True Then
|
||||
SetStatusLabel($"Data saved", "LimeGreen")
|
||||
Else
|
||||
SetStatusLabel($"Error while saving data!", "Red")
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user