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

MS22062016_2

Browse Source
This commit is contained in:
SchreiberM
2016-06-22 16:06:34 +02:00
parent b85ed334e4
commit 3df7d269e9
9 changed files with 122 additions and 320 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
app/DD-Record-Organiser/frmMass_Change.vb
View File

@@ -5,9 +5,9 @@
SUCCESSFULL = False
Dim msg = "Anzahl zu ändernde Datensätze: "
If USER_LANGUAGE <> "de-DE" Then
msg = "Record Count to be changed:"
msg = "Count of records to be changed:"
End If
lblCount.Text = msg & MASS_RECORD_CHANGE.Count
lblCount.Text = msg & MASS_RECORD_IDs2CHANGE.Count
cmbColumn.Items.Clear()
For Each Str As String In MASS_COLUMN_LIST
If Str.ToLower = "addedwho" Or Str.ToLower = "changedwho" Or Str.ToLower = "addedwhen" Or Str.ToLower = "changedwhen" Then
@@ -28,9 +28,9 @@
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
Dim msg = "Sind Sie sicher, dass Sie diese Massenändeurng durchführen wollen?"
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?"
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
@@ -63,7 +63,7 @@
If result1 = MsgBoxResult.No Then
Exit Sub
Else
For Each Record As String In MASS_RECORD_CHANGE
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}", control_Id, CInt(Record))
ClassDatabase.Execute_non_Query(del)
Next
@@ -72,7 +72,7 @@
End If
Try
Dim err As Boolean = False
For Each Record As String In MASS_RECORD_CHANGE
For Each Record As String In MASS_RECORD_IDs2CHANGE
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)