MS_03062016

app/DD-Record-Organiser/frmConstructor_Main.vb

@@ -845,6 +845,7 @@ Public Class frmConstructor_Main
             RIGHT_ONLY_READ = False
             RIGHT_WINDREAM_FORBIDDEN = False
             tsmi_RecordDelete.Enabled = True
+            MassenänderungToolStripMenuItem.Enabled = True
             DeleteToolStripMenuItem.Enabled = True
             CopyToolStripMenuItem.Enabled = True
             RecordKopierenToolStripMenuItem.Enabled = True
@@ -896,6 +897,7 @@ Public Class frmConstructor_Main
                         tsButtonSave.Enabled = False
                         tsButtonDelete.Enabled = False
                         tsmi_RecordDelete.Enabled = False
+                        MassenänderungToolStripMenuItem.Enabled = False
                         PropertiesToolStripMenuItem.Enabled = False
                         CopyToolStripMenuItem.Enabled = False
                         DeleteToolStripMenuItem.Enabled = False
@@ -1674,6 +1676,7 @@ Public Class frmConstructor_Main
         ClassDatabase.Execute_non_Query(del)
         Lock_RecordControls(False)
         tsmi_RecordDelete.Enabled = True
+        MassenänderungToolStripMenuItem.Enabled = True
         Me.tsButtonAdd.Enabled = True
         Me.tsButtonSave.Enabled = True
         tsbtnRedo.Visible = True
@@ -1815,12 +1818,14 @@ Public Class frmConstructor_Main
             tsButtonEdit.Visible = True
             tsButtonDelete.Visible = True
             tsmi_RecordDelete.Enabled = True
+            MassenänderungToolStripMenuItem.Enabled = True
 
             If RIGHT_ADD_R = False Then
                 tsButtonAdd.Visible = False
             End If
             If RIGHT_EDIT_R = False Then
                 tsButtonEdit.Visible = False
+                MassenänderungToolStripMenuItem.Enabled = False
                 If RIGHT_ADD_R = False Then
                     tsButtonSave.Visible = False
                 End If
@@ -5275,4 +5280,30 @@ Public Class frmConstructor_Main
     Private Sub SucheAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SucheAnzeigenToolStripMenuItem.Click
         grvwGrid.ShowFindPanel()
     End Sub
+
+    Private Sub MassenänderungToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles MassenänderungToolStripMenuItem.Click
+        Try
+            Dim list As New ArrayList
+            Dim collist As New ArrayList
+            For i = 0 To grvwGrid.RowCount
+                Dim recid = grvwGrid.GetRowCellValue(i, "Record-ID")
+                If Not IsNothing(recid) Then
+                    list.Add(recid)
+                End If
+            Next
+            For Each col As DevExpress.XtraGrid.Columns.GridColumn In grvwGrid.VisibleColumns
+                Dim name = col.Name
+                If name.StartsWith("col") Then
+                    name = name.Substring(3)
+                End If
+                collist.Add(name)
+            Next
+            MASS_COLUMN_LIST = collist
+            MASS_RECORD_CHANGE = list
+            CURRENT_FORM_ID =
+            frmMass_Change.ShowDialog()
+        Catch ex As Exception
+            MsgBox("Unexpected Error in MassChange Collector:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+        End Try
+    End Sub
 End Class