This commit is contained in:
SchreiberM 2016-06-03 12:14:55 +02:00
parent 9d03e60f4c
commit 71fdef8192
5 changed files with 187 additions and 165 deletions

View File

@ -2625,9 +2625,6 @@ Public Class frmConstructor_Main
grvwGrid.Columns.Item("Record-ID").Visible = False grvwGrid.Columns.Item("Record-ID").Visible = False
grvwGrid.Columns.Item("Form-ID").Visible = False grvwGrid.Columns.Item("Form-ID").Visible = False
grvwGrid.Columns.Item("ROW_COLOR").Visible = False grvwGrid.Columns.Item("ROW_COLOR").Visible = False
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in HideColumns:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -4921,9 +4918,7 @@ Public Class frmConstructor_Main
End Sub End Sub
Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click Private Sub DatenNeuLadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DatenNeuLadenToolStripMenuItem.Click
DisableEditMode() Load_Tree_View_Data()
Load_Entity_Data(ACT_EBENE)
RECORD_CHANGED = False
End Sub End Sub
Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click
@ -5300,8 +5295,11 @@ Public Class frmConstructor_Main
Next Next
MASS_COLUMN_LIST = collist MASS_COLUMN_LIST = collist
MASS_RECORD_CHANGE = list MASS_RECORD_CHANGE = list
CURRENT_FORM_ID = Save_Grid_Layout()
frmMass_Change.ShowDialog() frmMass_Change.ShowDialog()
If SUCCESSFULL = True Then
Load_Tree_View_Data()
End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try

View File

@ -96,7 +96,7 @@ Partial Class frmMass_Change
'btncancel 'btncancel
' '
resources.ApplyResources(Me.btncancel, "btncancel") resources.ApplyResources(Me.btncancel, "btncancel")
Me.btncancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 Me.btncancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.Close_16xLG
Me.btncancel.Name = "btncancel" Me.btncancel.Name = "btncancel"
Me.btncancel.UseVisualStyleBackColor = True Me.btncancel.UseVisualStyleBackColor = True
' '
@ -104,12 +104,13 @@ Partial Class frmMass_Change
' '
resources.ApplyResources(Me, "$this") resources.ApplyResources(Me, "$this")
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ControlBox = False
Me.Controls.Add(Me.btncancel) Me.Controls.Add(Me.btncancel)
Me.Controls.Add(Me.btnRefresh) Me.Controls.Add(Me.btnRefresh)
Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.GroupBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmMass_Change" Me.Name = "frmMass_Change"
Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout() Me.GroupBox1.PerformLayout()

View File

@ -133,20 +133,20 @@
<data name="GroupBox1.Text" xml:space="preserve"> <data name="GroupBox1.Text" xml:space="preserve">
<value>1. Choose Column:</value> <value>1. Choose Column:</value>
</data> </data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Value Input:</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing"> <data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>71, 17</value> <value>71, 17</value>
</data> </data>
<data name="Label5.Text" xml:space="preserve"> <data name="Label5.Text" xml:space="preserve">
<value>New value:</value> <value>New value:</value>
</data> </data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Value Input:</value>
</data>
<data name="btnRefresh.Text" xml:space="preserve"> <data name="btnRefresh.Text" xml:space="preserve">
<value>Change values</value> <value>Change values</value>
</data> </data>
<data name="btncancel.Text" xml:space="preserve"> <data name="btncancel.Text" xml:space="preserve">
<value>Cancel</value> <value>Close</value>
</data> </data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

View File

@ -117,17 +117,23 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<data name="&gt;&gt;btnRefresh.Name" xml:space="preserve">
<value>btnRefresh</value>
</data>
<assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" /> <assembly alias="mscorlib" name="mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="lblCount.AutoSize" type="System.Boolean, mscorlib"> <data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
<value>625, 176</value>
</data>
<data name="lblCount.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="lblCount.Location" type="System.Drawing.Point, System.Drawing"> <data name="lblCount.Location" type="System.Drawing.Point, System.Drawing">
<value>406, 50</value> <value>406, 50</value>
</data> </data>
<data name="&gt;&gt;cmbColumn.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="Label5.Location" type="System.Drawing.Point, System.Drawing"> <data name="Label5.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 27</value> <value>12, 27</value>
</data> </data>
@ -159,14 +165,17 @@
<data name="&gt;&gt;cmbColumn.Parent" xml:space="preserve"> <data name="&gt;&gt;cmbColumn.Parent" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
<data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;GroupBox2.Name" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.Name" xml:space="preserve">
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve"> <data name="&gt;&gt;GroupBox2.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="lblHinweis.TabIndex" type="System.Int32, mscorlib"> <data name="&gt;&gt;btncancel.Type" xml:space="preserve">
<value>0</value> <value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="lblHinweis.AutoSize" type="System.Boolean, mscorlib"> <data name="lblHinweis.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
@ -192,9 +201,6 @@
<data name="lblHinweis.Text" xml:space="preserve"> <data name="lblHinweis.Text" xml:space="preserve">
<value>Bitte wählen Sie die Spalte, deren Werte Sie überschreiben wollen?</value> <value>Bitte wählen Sie die Spalte, deren Werte Sie überschreiben wollen?</value>
</data> </data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Werteingabe:</value>
</data>
<data name="&gt;&gt;GroupBox1.Name" xml:space="preserve"> <data name="&gt;&gt;GroupBox1.Name" xml:space="preserve">
<value>GroupBox1</value> <value>GroupBox1</value>
</data> </data>
@ -216,117 +222,12 @@
<data name="&gt;&gt;btnRefresh.Parent" xml:space="preserve"> <data name="&gt;&gt;btnRefresh.Parent" xml:space="preserve">
<value>$this</value> <value>$this</value>
</data> </data>
<data name="&gt;&gt;GroupBox2.Type" xml:space="preserve"> <data name="lblHinweis.TabIndex" type="System.Int32, mscorlib">
<value>System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>0</value>
</data> </data>
<data name="Label5.TabIndex" type="System.Int32, mscorlib"> <data name="Label5.TabIndex" type="System.Int32, mscorlib">
<value>1</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;txtNewValue.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnRefresh.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 136</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="txtNewValue.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 25</value>
</data>
<data name="btncancel.Text" xml:space="preserve">
<value>Abbruch</value>
</data>
<data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 136</value>
</data>
<data name="cmbColumn.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 43</value>
</data>
<data name="GroupBox2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="&gt;&gt;cmbColumn.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblCount.Name" xml:space="preserve">
<value>lblCount</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;cmbColumn.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;lblCount.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="lblHinweis.Size" type="System.Drawing.Size, System.Drawing">
<value>395, 17</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Spaltenauswahl:</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>1. Zusammenfassung und Auswahl Spalte:</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>79, 17</value>
</data>
<data name="&gt;&gt;lblHinweis.Name" xml:space="preserve">
<value>lblHinweis</value>
</data>
<data name="Label5.AutoSize" type="System.Boolean, mscorlib">
<value>True</value>
</data>
<data name="btncancel.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;cmbColumn.Name" xml:space="preserve">
<value>cmbColumn</value>
</data>
<data name="&gt;&gt;btncancel.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblCount.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 73</value>
</data>
<data name="btnRefresh.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="&gt;&gt;btnRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>12, 46</value>
</data>
<data name="&gt;&gt;txtNewValue.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>
AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA
@ -776,15 +677,129 @@
AAAAAQAAgAAAAAABAADAAAAAAAMAAP///////wAA////////AAD///////8AAP///////wAA AAAAAQAAgAAAAAABAADAAAAAAAMAAP///////wAA////////AAD///////8AAP///////wAA
</value> </value>
</data> </data>
<data name="&gt;&gt;txtNewValue.Type" xml:space="preserve">
<value>System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;Label1.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="btnRefresh.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 136</value>
</data>
<data name="cmbColumn.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="txtNewValue.Size" type="System.Drawing.Size, System.Drawing">
<value>364, 25</value>
</data>
<data name="btncancel.Text" xml:space="preserve">
<value>Schliessen</value>
</data>
<data name="txtNewValue.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="cmbColumn.Location" type="System.Drawing.Point, System.Drawing">
<value>118, 43</value>
</data>
<data name="GroupBox2.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
<value>Top</value>
</data>
<data name="&gt;&gt;cmbColumn.Type" xml:space="preserve">
<value>System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="&gt;&gt;lblCount.Name" xml:space="preserve">
<value>lblCount</value>
</data>
<data name="&gt;&gt;GroupBox1.ZOrder" xml:space="preserve">
<value>3</value>
</data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="btnRefresh.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleLeft</value>
</data>
<data name="&gt;&gt;lblCount.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label1.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="&gt;&gt;btncancel.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="$this.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 8.25pt</value>
</data>
<data name="lblHinweis.Size" type="System.Drawing.Size, System.Drawing">
<value>395, 17</value>
</data>
<data name="Label1.Text" xml:space="preserve">
<value>Spaltenauswahl:</value>
</data>
<data name="&gt;&gt;GroupBox1.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="&gt;&gt;GroupBox2.Parent" xml:space="preserve">
<value>$this</value>
</data>
<data name="GroupBox1.Text" xml:space="preserve">
<value>1. Zusammenfassung und Auswahl Spalte:</value>
</data>
<data name="Label5.Size" type="System.Drawing.Size, System.Drawing">
<value>79, 17</value>
</data>
<data name="&gt;&gt;lblHinweis.Name" xml:space="preserve">
<value>lblHinweis</value>
</data>
<data name="&gt;&gt;Label5.Name" xml:space="preserve">
<value>Label5</value>
</data>
<data name="btnRefresh.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt, style=Bold</value>
</data>
<data name="&gt;&gt;cmbColumn.Name" xml:space="preserve">
<value>cmbColumn</value>
</data>
<data name="&gt;&gt;btnRefresh.ZOrder" xml:space="preserve">
<value>1</value>
</data>
<data name="&gt;&gt;lblCount.Parent" xml:space="preserve">
<value>GroupBox1</value>
</data>
<data name="GroupBox1.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 73</value>
</data>
<data name="GroupBox1.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value>
</data>
<data name="&gt;&gt;btnRefresh.Type" xml:space="preserve">
<value>System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 73</value>
</data>
<data name="&gt;&gt;txtNewValue.ZOrder" xml:space="preserve">
<value>0</value>
</data>
<data name="&gt;&gt;Label5.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="GroupBox2.Text" xml:space="preserve">
<value>2. Werteingabe:</value>
</data>
<data name="btncancel.Location" type="System.Drawing.Point, System.Drawing">
<value>15, 136</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Label1.AutoSize" type="System.Boolean, mscorlib"> <data name="Label1.AutoSize" type="System.Boolean, mscorlib">
<value>True</value> <value>True</value>
</data> </data>
<data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="btncancel.TextAlign" type="System.Drawing.ContentAlignment, System.Drawing">
<value>MiddleRight</value> <value>MiddleRight</value>
</data> </data>
<data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>frmMass_Change</value>
</data>
<data name="&gt;&gt;lblHinweis.Type" xml:space="preserve"> <data name="&gt;&gt;lblHinweis.Type" xml:space="preserve">
<value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
@ -794,15 +809,6 @@
<data name="$this.Text" xml:space="preserve"> <data name="$this.Text" xml:space="preserve">
<value>Massen Änderung</value> <value>Massen Änderung</value>
</data> </data>
<data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>0</value>
</data>
<data name="lblCount.Size" type="System.Drawing.Size, System.Drawing">
<value>38, 13</value>
</data>
<data name="GroupBox2.Location" type="System.Drawing.Point, System.Drawing">
<value>0, 73</value>
</data>
<data name="&gt;&gt;txtNewValue.Name" xml:space="preserve"> <data name="&gt;&gt;txtNewValue.Name" xml:space="preserve">
<value>txtNewValue</value> <value>txtNewValue</value>
</data> </data>
@ -812,6 +818,9 @@
<data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing"> <data name="GroupBox2.Size" type="System.Drawing.Size, System.Drawing">
<value>625, 57</value> <value>625, 57</value>
</data> </data>
<data name="&gt;&gt;btnRefresh.Name" xml:space="preserve">
<value>btnRefresh</value>
</data>
<data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing"> <data name="GroupBox2.Font" type="System.Drawing.Font, System.Drawing">
<value>Segoe UI, 9.75pt</value> <value>Segoe UI, 9.75pt</value>
</data> </data>
@ -830,38 +839,29 @@
<data name="lblCount.TabIndex" type="System.Int32, mscorlib"> <data name="lblCount.TabIndex" type="System.Int32, mscorlib">
<value>4</value> <value>4</value>
</data> </data>
<data name="cmbColumn.TabIndex" type="System.Int32, mscorlib">
<value>2</value>
</data>
<data name="&gt;&gt;Label5.Parent" xml:space="preserve"> <data name="&gt;&gt;Label5.Parent" xml:space="preserve">
<value>GroupBox2</value> <value>GroupBox2</value>
</data> </data>
<data name="btnRefresh.TabIndex" type="System.Int32, mscorlib"> <data name="btnRefresh.TabIndex" type="System.Int32, mscorlib">
<value>6</value> <value>6</value>
</data> </data>
<data name="txtNewValue.TabIndex" type="System.Int32, mscorlib"> <data name="Label1.Location" type="System.Drawing.Point, System.Drawing">
<value>2</value> <value>12, 46</value>
</data> </data>
<data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing"> <data name="GroupBox1.TabIndex" type="System.Int32, mscorlib">
<value>625, 176</value> <value>0</value>
</data> </data>
<data name="&gt;&gt;btnRefresh.ZOrder" xml:space="preserve"> <data name="&gt;&gt;$this.Name" xml:space="preserve">
<value>1</value> <value>frmMass_Change</value>
</data>
<data name="&gt;&gt;$this.Type" xml:space="preserve">
<value>System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data> </data>
<data name="&gt;&gt;Label5.ZOrder" xml:space="preserve"> <data name="&gt;&gt;Label5.ZOrder" xml:space="preserve">
<value>1</value> <value>1</value>
</data> </data>
<data name="&gt;&gt;GroupBox2.ZOrder" xml:space="preserve">
<value>2</value>
</data>
<data name="&gt;&gt;btncancel.Name" xml:space="preserve"> <data name="&gt;&gt;btncancel.Name" xml:space="preserve">
<value>btncancel</value> <value>btncancel</value>
</data> </data>
<data name="btnRefresh.ImageAlign" type="System.Drawing.ContentAlignment, System.Drawing"> <data name="lblCount.Size" type="System.Drawing.Size, System.Drawing">
<value>MiddleLeft</value> <value>38, 13</value>
</data> </data>
<data name="btnRefresh.Text" xml:space="preserve"> <data name="btnRefresh.Text" xml:space="preserve">
<value>Werte ändern</value> <value>Werte ändern</value>

View File

@ -10,7 +10,11 @@
lblCount.Text = msg & MASS_RECORD_CHANGE.Count lblCount.Text = msg & MASS_RECORD_CHANGE.Count
cmbColumn.Items.Clear() cmbColumn.Items.Clear()
For Each Str As String In MASS_COLUMN_LIST For Each Str As String In MASS_COLUMN_LIST
cmbColumn.Items.Add(Str) If Str.ToLower = "addedwho" Or Str.ToLower = "changedwho" Or Str.ToLower = "addedwhen" Or Str.ToLower = "changedwhen" Then
Continue For
Else
cmbColumn.Items.Add(Str)
End If
Next Next
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in load form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in load form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@ -18,7 +22,6 @@
End Sub End Sub
Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
SUCCESSFULL = False
Me.Close() Me.Close()
End Sub End Sub
@ -29,15 +32,27 @@
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "Are You sure You want to execute this mass change?" msg = "Are You sure You want to execute this mass change?"
End If End If
Cursor = Cursors.WaitCursor
Dim result As MsgBoxResult Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then If result = MsgBoxResult.Yes Then
Dim val = txtNewValue.Text
Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_FORM_ID) Dim SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_FORM_ID)
Dim control_Id = ClassDatabase.Execute_Scalar(SQL) Dim control_Id = ClassDatabase.Execute_Scalar(SQL)
If Not IsNothing(control_Id) Then If Not IsNothing(control_Id) Then
If control_Id > 0 Then If control_Id > 0 Then
SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id) SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id)
Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL) Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL)
If control_type_ID = 4 Then
Try
val = CDate(val)
Catch ex As Exception
MsgBox("Error in Converting value '" & val & "' to date", MsgBoxStyle.Critical)
Cursor = Cursors.Default
Exit Sub
End Try
End If
If control_type_ID = 7 Or control_type_ID = 12 Or control_type_ID = 14 Then If control_type_ID = 7 Or control_type_ID = 12 Or control_type_ID = 14 Then
msg = "Achtung: für diese Spalte existieren mehrere Werte. Diese Werte werden gelöscht." & vbNewLine & "Wollen Sie dennoch fortfahren?" msg = "Achtung: für diese Spalte existieren mehrere Werte. Diese Werte werden gelöscht." & vbNewLine & "Wollen Sie dennoch fortfahren?"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
@ -56,21 +71,25 @@
End If End If
End If End If
Try Try
Dim err As Boolean = False
For Each Record As String In MASS_RECORD_CHANGE For Each Record As String In MASS_RECORD_CHANGE
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record)) SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", control_Id, CInt(Record))
Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL) Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL)
If Not IsNothing(ex_GUID) Then If Not IsNothing(ex_GUID) Then
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", txtNewValue.Text, Environment.UserName, ex_GUID) SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, Environment.UserName, ex_GUID)
If ClassDatabase.Execute_non_Query(SQL) = False Then If ClassDatabase.Execute_non_Query(SQL) = False Then
MsgBox("Error in updating the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) MsgBox("Error in updating the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation)
End If End If
Else Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), txtNewValue.Text, Environment.UserName) SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, Environment.UserName)
If ClassDatabase.Execute_non_Query(SQL) = False Then If ClassDatabase.Execute_non_Query(SQL) = False Then
MsgBox("Error in inserting the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation) MsgBox("Error in inserting the value for Record: " & Record & vbNewLine & "Please check the logfile.", MsgBoxStyle.Exclamation)
End If End If
End If End If
Next Next
SUCCESSFULL = True
msg = "Alle Änderungen wurden ausgeführt!" msg = "Alle Änderungen wurden ausgeführt!"
If USER_LANGUAGE <> "de-DE" Then If USER_LANGUAGE <> "de-DE" Then
msg = "All changes were executed!" msg = "All changes were executed!"
@ -79,8 +98,11 @@
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Getting record to be changed:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Getting record to be changed:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Else
MsgBox("No defined column found! (1)", MsgBoxStyle.Information)
End If End If
Else
MsgBox("No defined column found! (2)", MsgBoxStyle.Information)
End If End If
End If End If
End If End If
@ -88,5 +110,6 @@
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Execute mass change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error in Execute mass change:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try
Cursor = Cursors.Default
End Sub End Sub
End Class End Class