MS

app/DD-Record-Organizer/frmMass_Change.vb

@@ -18,6 +18,8 @@ Public Class frmMass_Change
                     cmbColumn.Items.Add(Str)
                 End If
             Next
+            txtNewValue.Text = ""
+            Me.cmbColumn.SelectedIndex = -1
         Catch ex As Exception
             MsgBox("Unexpected Error in load form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -26,10 +28,9 @@ Public Class frmMass_Change
     Private Sub btncancel_Click(sender As Object, e As EventArgs) Handles btncancel.Click
         Me.Close()
     End Sub
-
     Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
         Try
-            If txtNewValue.Text <> "" And Me.cmbColumn.SelectedIndex <> -1 And cmbColumn.Text <> "" Then
+            If txtNewValue.Text <> "" And Me.cmbColumn.SelectedIndex <> -1 Then
                 Dim msg = "Sind Sie sicher, dass Sie diese Massenänderung durchführen wollen?" & vbNewLine & MASS_RECORD_IDs2CHANGE.Count.ToString & " Datensätze werden geändert!"
                 If USER_LANGUAGE <> "de-DE" Then
                     msg = "Are You sure You want to execute this mass change?" & vbNewLine & MASS_RECORD_IDs2CHANGE.Count.ToString & " records will be changed!"
@@ -38,6 +39,7 @@ Public Class frmMass_Change
                 Dim result As MsgBoxResult
                 result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
                 If result = MsgBoxResult.Yes Then
+                    ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
                     Me.Cursor = Cursors.WaitCursor
                     SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL WHERE COL_NAME = '{0}' AND FORM_ID = {1}", cmbColumn.Text, CURRENT_ENTITY_ID)
                     ProgressBar1.Visible = True
@@ -48,6 +50,8 @@ Public Class frmMass_Change
                     '.. und starten
                     BackgroundWorker.RunWorkerAsync()
                 End If
+            Else
+                MessageBox.Show("Please choose an entry from dropdown and input a new value.")
             End If
 
         Catch ex As Exception
@@ -123,7 +127,7 @@ Public Class frmMass_Change
                         i += 1
                     Next
                     SUCCESSFULL = True
-
+                    ClassLogger.Add(String.Format("### MassChange finished successfully! ###"))
                 Catch ex As Exception
                     ClassLogger.Add("Unexpected Error in Getting record to be changed:" & ex.Message)
                     _Error = True
@@ -154,6 +158,7 @@ Public Class frmMass_Change
             msg = "All changes were executed!"
         End If
         If _Error = True Then
+            ClassLogger.Add(String.Format("### MassChange finished - WITH errors!! ###"))
             If USER_LANGUAGE <> "de-DE" Then
                 msg = msg & vbNewLine & "But errors occured while updating values! Check the log"
             Else