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

MS Structure Nodes

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-10-02 17:15:26 +02:00
parent 04ffe61b4d
commit 609df5b5c5
39 changed files with 2504 additions and 2023 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -2,6 +2,7 @@
Public Class frmMass_Change
Dim SQL As String
Dim _CONTROLID As Integer
Private Sub frmMass_Change_Load(sender As Object, e As EventArgs) Handles Me.Load
Try
SUCCESSFULL = False
@@ -30,6 +31,7 @@ Public Class frmMass_Change
End Sub
Private Sub btnRefresh_Click(sender As Object, e As EventArgs) Handles btnRefresh.Click
Try
_CONTROLID = 0
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
@@ -44,6 +46,11 @@ Public Class frmMass_Change
ClassHelper.InsertEssential_Log(USER_GUID, "User-ID", 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)
Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(control_Id) Then
_CONTROLID = control_Id
End If
ProgressBar1.Visible = True
lblStateBW.Text = "Preparing BackgroundWorker..."
lblStateBW.Visible = True
@@ -66,11 +73,10 @@ Public Class frmMass_Change
Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
Dim val = txtNewValue.Text
Dim control_Id = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(control_Id) Then
If control_Id > 0 Then
SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", control_Id)
Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
If _CONTROLID <> 0 Then
SQL = String.Format("SELECT CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = {0}", _CONTROLID)
Dim control_type_ID = ClassDatabase.Execute_Scalar(SQL, True)
If control_type_ID = 4 Then
Try
val = CDate(val)
@@ -90,10 +96,10 @@ Public Class frmMass_Change
'Dim result1 As MsgBoxResult
'result1 = MessageBox.Show(msg, "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}", control_Id, CInt(Record))
ClassDatabase.Execute_non_Query(del, False)
ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, control_Id)
Next
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)
ClassProxy.PRPROXY_CONTROL_DEL(CInt(Record), CURRENT_ENTITY_ID, _CONTROLID)
Next
End If
Try
Dim RIGHT_ONLY_READ_RECORD_FILE = False
@@ -104,8 +110,8 @@ Public Class frmMass_Change
RIGHT_ONLY_READ_RECORD_FILE = ClassHelper.Check_Record_Read_only(CInt(Record), CURRENT_ENTITY_ID)
End If
If RIGHT_ONLY_READ_RECORD_FILE = False Then
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, True)
SQL = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", _CONTROLID, CInt(Record))
Dim ex_GUID = ClassDatabase.Execute_Scalar(SQL, True)
If Not IsNothing(ex_GUID) Then
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE GUID = {2}", val, USER_USERNAME, ex_GUID)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
@@ -113,16 +119,16 @@ Public Class frmMass_Change
ClassLogger.Add(">> Error in updating the value for Record: " & Record, False)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
End If
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
Else
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", control_Id, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", _CONTROLID, CInt(Record), val, USER_USERNAME)
If ClassDatabase.Execute_non_Query(SQL, False) = False Then
_Error = True
ClassLogger.Add(">> Error in inserting the value for Record: " & Record, False)
Else
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, control_Id, CInt(Record), val)
End If
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, _CONTROLID, CInt(Record), val)
End If
End If
End If
BackgroundWorker.ReportProgress(i)
@@ -135,11 +141,7 @@ Public Class frmMass_Change
_Error = True
End Try
Else
ClassLogger.Add("No defined column found! (1)")
_Error = True
End If
Else
ClassLogger.Add("No defined column found! (2) - SQL: " & SQL)
ClassLogger.Add("No defined Control found!")
_Error = True
End If