AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
SchreiberM
2023-04-13 17:11:20 +02:00
parent aa7c68a4ce
commit 2db575d944
20 changed files with 584 additions and 4214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organizer/frmMass_Change.vb
View File

@@ -39,7 +39,7 @@ Public Class frmMass_Change
End If
Dim result As MsgBoxResult
result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
result = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If result = MsgBoxResult.Yes Then
Cursor = Cursors.WaitCursor
LOGGER.Info(String.Format("### Starting MassChange of column '{0}' with value '{1}'....###", cmbColumn.Text, txtNewValue.Text))
@@ -94,7 +94,7 @@ Public Class frmMass_Change
' msg = "Attention: there are multiple values for this column. These values will be deleted." & vbNewLine & "Would You like to continue?"
'End If
'Dim result1 As MsgBoxResult
'result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
'result1 = MessageBox.Show(msg, CAPTION_CONFIRMATION, MessageBoxButtons.YesNo, MessageBoxIcon.Question)
For Each Record As String In MASS_RECORD_IDs2CHANGE
Dim del = String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
ClassDatabase.Execute_non_Query(del, False)