This commit is contained in:
Digital Data - Marlon Schreiber
2017-12-13 10:28:24 +01:00
parent 290871b3dc
commit 673895755d
23 changed files with 744 additions and 1380 deletions

View File

@@ -35,10 +35,11 @@ Public Class frmMass_Change
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!"
End If
Cursor = Cursors.WaitCursor
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Cursor = Cursors.WaitCursor
ClassLogger.Add(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text), False)
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)
@@ -137,7 +138,7 @@ Public Class frmMass_Change
_Error = True
End If
Else
ClassLogger.Add("No defined column found! (2)")
ClassLogger.Add("No defined column found! (2) - SQL: " & SQL)
_Error = True
End If