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

Speichern Prüfen - 3164 - CheckUpdateIndices - Error BtnClick

Browse Source
This commit is contained in:
SchreiberM 2021-01-26 16:01:13 +01:00
parent 2b1ec0f68a
commit a7061968a1
7 changed files with 237 additions and 180 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.1.6.3")> <Assembly: AssemblyVersion("2.1.6.4")>
<Assembly: AssemblyFileVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

5
app/DD_PM_WINDREAM/frmAdministration.vb
View File

@ -18,7 +18,7 @@ Public Class frmAdministration
Dim DT2Compare As DataTable Dim DT2Compare As DataTable
Dim PROF_ORIGIN As DataTable Dim PROF_ORIGIN As DataTable
Private CURR_TEXT_CONTROL_CONTENT As String 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 CURR_COMBOBOX_CONTROL_CONTENT As String
Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load 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}" tsbStaticInfo.Caption = $"ProfileData saved - {Now.ToLongTimeString}"
CHANGES_FORM_DESIGN = True CHANGES_FORM_DESIGN = True
UNSAVED_CHANGES_PROFILE = False UNSAVED_CHANGES_PROFILE = False
CURR_TEXT_CONTROL_CONTENT = String.Empty
DD_DMSLiteDataSet.AcceptChanges() DD_DMSLiteDataSet.AcceptChanges()
Else Else
tsbStaticInfo.Caption = "" tsbStaticInfo.Caption = ""
@ -1451,7 +1452,7 @@ Public Class frmAdministration
End Sub End Sub
Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged 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 Exit Sub
End If End If
Dim ochk As CheckBox = sender Dim ochk As CheckBox = sender

4
app/DD_PM_WINDREAM/frmControl_Detail.vb
View File

@ -84,8 +84,12 @@ Public Class frmControl_Detail
Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click Private Sub btnSQLEdit_Click(sender As Object, e As EventArgs) Handles btnSQLEdit.Click
Dim oldSQL = SQL_COMMANDTextBox.Text 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} Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = oldSQL}
oForm.TopMost = True
Dim oResult = oForm.ShowDialog() Dim oResult = oForm.ShowDialog()
oForm.BringToFront()
If oResult = DialogResult.OK Then If oResult = DialogResult.OK Then
If oldSQL <> oForm.SQLCommand Then If oldSQL <> oForm.SQLCommand Then

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

@ -468,11 +468,12 @@ Partial Class frmMain
Me.RibbonControl1.MaxItemId = 26 Me.RibbonControl1.MaxItemId = 26
Me.RibbonControl1.Name = "RibbonControl1" Me.RibbonControl1.Name = "RibbonControl1"
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1}) 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.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemProgressBar1})
Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 Me.RibbonControl1.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False] Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowToolbarCustomizeItem = False
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1 Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
Me.RibbonControl1.Toolbar.ShowCustomizeItem = False
' '
'bbtniRefresh 'bbtniRefresh
' '
@ -523,6 +524,7 @@ Partial Class frmMain
Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image) Me.bbtnitemInfo.ImageOptions.LargeImage = CType(resources.GetObject("bbtnitemInfo.ImageOptions.LargeImage"), System.Drawing.Image)
Me.bbtnitemInfo.Name = "bbtnitemInfo" Me.bbtnitemInfo.Name = "bbtnitemInfo"
Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText Me.bbtnitemInfo.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.SmallWithText
Me.bbtnitemInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never
' '
'BarButtonItem1 'BarButtonItem1
' '

271
app/DD_PM_WINDREAM/frmMain.resx
View File

@ -125,7 +125,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADw
CAAAAk1TRnQBSQFMAgEBAgEAAVABBwFQAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo CAAAAk1TRnQBSQFMAgEBAgEAAVgBBwFYAQcBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -172,10 +172,114 @@
<metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="TableAdapterManager.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value> <value>179, 17</value>
</metadata> </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="&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>0</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>1</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>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="&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>
<metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="ContextMenuGrid.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>863, 17</value> <value>863, 17</value>
</metadata> </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="&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.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="&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>0</value>
</data>
<data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing"> <data name="CMGroupStart.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value> <value>269, 26</value>
</data> </data>
@ -204,7 +308,6 @@
<data name="CMFileMetadata.Text" xml:space="preserve"> <data name="CMFileMetadata.Text" xml:space="preserve">
<value>Metadaten Datei anzeigen</value> <value>Metadaten Datei anzeigen</value>
</data> </data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="CMFileMetadata.Visible" type="System.Boolean, mscorlib"> <data name="CMFileMetadata.Visible" type="System.Boolean, mscorlib">
<value>False</value> <value>False</value>
</data> </data>
@ -260,61 +363,24 @@
<data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing"> <data name="ToolStripSeparator3.Size" type="System.Drawing.Size, System.Drawing">
<value>266, 6</value> <value>266, 6</value>
</data> </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"> <data name="AktionenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value> <value>269, 26</value>
</data> </data>
<data name="AktionenToolStripMenuItem.Text" xml:space="preserve"> <data name="AktionenToolStripMenuItem.Text" xml:space="preserve">
<value>Aktionen Datei</value> <value>Aktionen Datei</value>
</data> </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"> <data name="ExportierenToolStripMenuItem.Size" type="System.Drawing.Size, System.Drawing">
<value>269, 26</value> <value>269, 26</value>
</data> </data>
<data name="ExportierenToolStripMenuItem.Text" xml:space="preserve"> <data name="ExportierenToolStripMenuItem.Text" xml:space="preserve">
<value>Exportieren</value> <value>Exportieren</value>
</data> </data>
<data name="ContextMenuGrid.Size" type="System.Drawing.Size, System.Drawing">
<value>270, 256</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>
<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="&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>0</value>
</data>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>138, 56</value> <value>138, 56</value>
</metadata> </metadata>
@ -418,12 +484,6 @@
<metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="cmsNavPane.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 56</value> <value>17, 56</value>
</metadata> </metadata>
<data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>219, 26</value>
</data>
<data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Starte Validierung für Profil</value>
</data>
<data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing"> <data name="cmsNavPane.Size" type="System.Drawing.Size, System.Drawing">
<value>220, 30</value> <value>220, 30</value>
</data> </data>
@ -577,32 +637,11 @@
<data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;NavBarControl1.ZOrder" xml:space="preserve">
<value>2</value> <value>2</value>
</data> </data>
<data name="Panel1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms"> <data name="tsmiValidationProfil.Size" type="System.Drawing.Size, System.Drawing">
<value>Fill</value> <value>219, 26</value>
</data> </data>
<data name="Panel1.Font" type="System.Drawing.Font, System.Drawing"> <data name="tsmiValidationProfil.Text" xml:space="preserve">
<value>Tahoma, 9pt</value> <value>Starte Validierung für Profil</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>
<metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"> <metadata name="NotifyIcon1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>490, 17</value> <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"> <metadata name="ContextMenuNotifyIcon.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>640, 56</value> <value>640, 56</value>
</metadata> </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"> <data name="ContextMenuNotifyIcon.Size" type="System.Drawing.Size, System.Drawing">
<value>235, 76</value> <value>235, 76</value>
</data> </data>
@ -812,6 +830,27 @@
<data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib"> <data name="NotifyIcon1.Visible" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </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"> <metadata name="TimerRefresh.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>605, 17</value> <value>605, 17</value>
</metadata> </metadata>
@ -1377,21 +1416,6 @@
<data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing"> <data name="RibbonControl1.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 0</value> <value>0, 0</value>
</data> </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"> <data name="RibbonPage1.Text" xml:space="preserve">
<value>Start</value> <value>Start</value>
</data> </data>
@ -1428,6 +1452,21 @@
<data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve"> <data name="&gt;&gt;RibbonControl1.ZOrder" xml:space="preserve">
<value>5</value> <value>5</value>
</data> </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"> <data name="barDockControlTop.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value> <value>Top</value>
</data> </data>
@ -2718,6 +2757,9 @@
<data name="miView.Caption" xml:space="preserve"> <data name="miView.Caption" xml:space="preserve">
<value>&amp;Ansicht</value> <value>&amp;Ansicht</value>
</data> </data>
<data name="miBackground.Caption" xml:space="preserve">
<value>&amp;Hintergrund</value>
</data>
<data name="miPageLayout.Caption" xml:space="preserve"> <data name="miPageLayout.Caption" xml:space="preserve">
<value>&amp;Seiten Layout</value> <value>&amp;Seiten Layout</value>
</data> </data>
@ -2730,9 +2772,6 @@
<data name="miToolbars.Caption" xml:space="preserve"> <data name="miToolbars.Caption" xml:space="preserve">
<value>Bars</value> <value>Bars</value>
</data> </data>
<data name="miBackground.Caption" xml:space="preserve">
<value>&amp;Hintergrund</value>
</data>
<data name="PrintPreviewBarCheckItem1.Caption" xml:space="preserve"> <data name="PrintPreviewBarCheckItem1.Caption" xml:space="preserve">
<value>PDF Dokument</value> <value>PDF Dokument</value>
</data> </data>

66
app/DD_PM_WINDREAM/frmSQL_DESIGNER.vb
View File

@ -36,8 +36,10 @@ Public Class frmSQL_DESIGNER
TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION) TBDD_CONNECTIONTableAdapter.Fill(DD_DMSLiteDataSet.TBDD_CONNECTION)
If CURRENT_DESIGN_TYPE = "INPUT_INDEX" Then 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") 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") 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 End If
If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then If CURRENT_DESIGN_TYPE = "SQL_OVERVIEW" Then
cmbConnection.Enabled = False cmbConnection.Enabled = False
@ -47,45 +49,47 @@ Public Class frmSQL_DESIGNER
btnShowConnections.Enabled = True btnShowConnections.Enabled = True
End If 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 If CURRENT_DT_SQL_CONFIG_TABLE.Rows.Count = 1 Then
cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID") cmbConnection.SelectedValue = CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CONNECTION_ID")
cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING")) cmbConnection.FindStringExact(CURRENT_DT_SQL_CONFIG_TABLE.Rows(0).Item("CON_STRING"))
End If 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) cmbIndexe.Items.Clear()
Dim oDatatable As DataTable = ClassDatabase.Return_Datatable(oSQL, "frmSQL_FINAL_INDICES_Load3") If IDB_ACTIVE = False Then
cmbControls.DataSource = oDatatable If MyIndicies IsNot Nothing Then
cmbControls.DisplayMember = oDatatable.Columns(0).ColumnName For Each index As String In MyIndicies
cmbControls.Visible = True cmbIndexe.Items.Add(index)
lblControls.Visible = True Next
btnAddControl.Visible = True 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() 'cmbIndexe.Enabled = False
If IDB_ACTIVE = False Then 'lbIndexe.Enabled = False
If MyIndicies IsNot Nothing Then 'btnAddIndex.Enabled = False
For Each index As String In MyIndicies
cmbIndexe.Items.Add(index)
Next
cmbIndexe.SelectedIndex = -1
End If 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 End If
Else Else
cmbControls.Visible = False cmbControls.Visible = False
lblControls.Visible = False lblControls.Visible = False

65
app/DD_PM_WINDREAM/frmValidator.vb
View File

@ -1295,11 +1295,12 @@ Public Class frmValidator
Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid Dim oControlID = DirectCast(oButton.Tag, ClassControlCreator.ControlMetadata).Guid
Dim oSQL = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL_UEBERPRUEFUNG") Dim oSQL = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL_UEBERPRUEFUNG")
If IsNothing(oSQL) Then If IsNothing(oSQL) Then
LOGGER.Warn("onCustomButtonClick - SQL_UEBERPRUEFUNG IS NOTHING")
Exit Sub Exit Sub
End If End If
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = False Then
LOGGER.Warn("onCustomButtonClick - Check_UpdateIndexe = False >> Exit Click")
Exit Sub Exit Sub
End If End If
Override_SQLCommand = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2") Override_SQLCommand = ClassControlCreator.GET_CONTROL_PROPERTY(DTCONTROLS, oControlID, "SQL2")
@ -1417,12 +1418,12 @@ Public Class frmValidator
End If End If
Case "Override_Direct".ToUpper Case "Override_Direct".ToUpper
Override = True Override = True
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = True Then
Finish_WFStep(False) Finish_WFStep(False)
End If End If
Case "Override incFinal".ToUpper Case "Override incFinal".ToUpper
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = True Then
Finish_WFStep(False) Finish_WFStep(False)
End If End If
Case Else Case Else
@ -3863,7 +3864,7 @@ Public Class frmValidator
Dim oErrorOcurred As Boolean = False Dim oErrorOcurred As Boolean = False
If OverrideAll = False Then If OverrideAll = False Then
'Eingaben auf Form überprüfen 'Eingaben auf Form überprüfen
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = True Then
If PROFIL_FINISH_SQL <> String.Empty Then If PROFIL_FINISH_SQL <> String.Empty Then
If btnFinish_continue() = False Then If btnFinish_continue() = False Then
Exit Sub Exit Sub
@ -4287,7 +4288,7 @@ Public Class frmValidator
Next Next
Return odt Return odt
End Function End Function
Function Check_UpdateIndexe() Function Check_UpdateIndexe() As Boolean
Dim oControlName Dim oControlName
Dim oControlId As String Dim oControlId As String
Try Try
@ -4298,7 +4299,8 @@ Public Class frmValidator
Dim oMyInput As String = "" Dim oMyInput As String = ""
'Jedes Control in Konfig Tab durchlaufn 'Jedes Control in Konfig Tab durchlaufn
For Each oControlRow As DataRow In DTVWCONTROL_INDEX.Rows 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 Continue For
End If End If
@ -4622,7 +4624,7 @@ Public Class frmValidator
Dim st As New StackTrace(True) Dim st As New StackTrace(True)
st = New StackTrace(ex, True) st = New StackTrace(ex, True)
LOGGER.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True) LOGGER.Warn("Unexpected error in Check_UpdateIndexe TextBox :" & ex.Message, True)
Return True Return False
End Try End Try
Case "System.Windows.Forms.ComboBox" 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 Else 'Änderung 28.08.2018: Ein leerer Wert in der Combobox wird in den Index geschrieben
oMyInput = cmb.Text oMyInput = cmb.Text
LOGGER.Debug($"inputvalue Combobox: {cmb.Text}") LOGGER.Debug($"inputvalue Combobox: {cmb.Text}")
Dim oWMValue Dim oValue
'den aktuellen Wert in windream auslesen 'den aktuellen Wert in windream auslesen
If oIndexName.StartsWith("[%VKT") Then If oIndexName.StartsWith("[%VKT") Then
oWMValue = ReturnVektor_IndexValue(oIndexName) oValue = ReturnVektor_IndexValue(oIndexName)
Else Else
oWMValue = GetVariableValuefromSource(oIndexName, oIDBTyp) oValue = GetVariableValuefromSource(oIndexName, oIDBTyp)
End If End If
LOGGER.Debug($"Got a WMValue...") If IsNothing(oValue) Then
If IsNothing(oWMValue) Then LOGGER.Debug($"oValue is nothing...Value EmptyString will be used")
LOGGER.Debug($"WMValue is nothing...Value EmptyString will be used") oValue = String.Empty
oWMValue = String.Empty
End If End If
Dim oIndexType As String = "Index" Dim oIndexType As String = "Index"
Try Try
If oWMValue.ToString = "System.Object[]" Then If oValue.ToString = "System.Object[]" Then
oIndexType = "Vector" oIndexType = "Vector"
End If End If
Catch ex As Exception Catch ex As Exception
LOGGER.Debug($"Exception while oWMValue.ToString = System.Object[]...") LOGGER.Debug($"Exception while oValue.ToString = System.Object[]...")
End Try End Try
If oIndexType = "Vector" Then If oIndexType = "Vector" Then
LOGGER.Debug($"Control with ID{oControlId} is a vectorfield...") LOGGER.Debug($"Control with ID{oControlId} is a vectorfield...")
If oWMValue.Length = 1 Then If oValue.Length = 1 Then
oWMValue = oWMValue(0).ToString oValue = oValue(0).ToString
Else ' Else '
LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used") LOGGER.Info(" >> Vectorfield " & oIndexName & "' contains more then one value - First value will be used")
oWMValue = oWMValue(0).ToString oValue = oValue(0).ToString
End If End If
Else Else
LOGGER.Debug($"WMValue is a regular item...") LOGGER.Debug($"oValue is a regular item...")
Dim oitsadifference As Boolean = False Dim oitsadifference As Boolean = False
Try Try
If oWMValue.ToString <> oMyInput.ToString Then If oValue.ToString <> oMyInput.ToString Then
oitsadifference = True oitsadifference = True
End If End If
Catch ex As Exception 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) LOGGER.Error(ex.Message)
oitsadifference = True oitsadifference = True
End Try End Try
@ -4711,7 +4712,7 @@ Public Class frmValidator
End If End If
If IDB_ACTIVE = False Then If IDB_ACTIVE = False Then
If PROFIL_LOGINDEX <> "" Then If PROFIL_LOGINDEX <> "" Then
Dim ologStr = Return_LOGString(oMyInput, oWMValue, oIndexName) Dim ologStr = Return_LOGString(oMyInput, oValue, oIndexName)
WMIndexVectofield(ologStr, PROFIL_LOGINDEX) WMIndexVectofield(ologStr, PROFIL_LOGINDEX)
'Else 'Else
'IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr) 'IDBData.SetVariableValue(PROFIL_LOGINDEX, ologStr)
@ -4722,7 +4723,7 @@ Public Class frmValidator
End If End If
Else 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 'Wenn der Wert in ein Vektorfeld geschrieben wird
End If End If
End If End If
@ -4736,7 +4737,7 @@ Public Class frmValidator
st = New StackTrace(ex, True) st = New StackTrace(ex, True)
MsgBox($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId} " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Error:") 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) LOGGER.Info($"Unexpected error in Check_UpdateIndexe Combobox : ID{oControlId}" & ex.Message)
Return True Return False
End Try End Try
Case "System.Windows.Forms.DateTimePicker" Case "System.Windows.Forms.DateTimePicker"
@ -5081,11 +5082,17 @@ Public Class frmValidator
' If Error happened in inner For, exit the outer as well ' If Error happened in inner For, exit the outer as well
If oMissing = True Then If oMissing = True Then
LOGGER.Warn("Error in Inner Check_updateIndexe - Exiting...")
Exit For Exit For
End If End If
Next Next
If oMissing = True Then
Return oMissing 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 Catch ex As Exception
LOGGER.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}") LOGGER.Warn($"Unexpected error in Check_UpdateIndexe - ControlID: {oControlId},{oControlName}")
@ -5094,7 +5101,7 @@ Public Class frmValidator
st = New StackTrace(ex, True) 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:") 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) LOGGER.Info("Unexpected error in Check_UpdateIndexe:" & ex.Message & " - Line: " & st.GetFrame(0).GetFileLineNumber().ToString, True)
Return True Return False
End Try End Try
End Function End Function
@ -5462,7 +5469,7 @@ Public Class frmValidator
Else Else
oRESULT = "Eingaben gespeichert" oRESULT = "Eingaben gespeichert"
End If End If
If Check_UpdateIndexe() = False Then If Check_UpdateIndexe() = True Then
SetStatusLabel($"Data saved", "LimeGreen") SetStatusLabel($"Data saved", "LimeGreen")
Else Else
SetStatusLabel($"Error while saving data!", "Red") SetStatusLabel($"Error while saving data!", "Red")