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

MS clswindream entfernt Umstieg auf Modulwindream

Browse Source
This commit is contained in:
Developer01
2024-11-21 18:02:41 +01:00
parent b5ab9c5e1f
commit f05f6d46f8
85 changed files with 416997 additions and 1790 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
app/DD-Record-Organizer/Classes/Controls/ClassControlCommandsUI.vb
View File

@@ -1,6 +1,6 @@
Imports DD_Record_Organizer.ClassControlBuilder
Imports DD_LIB_Standards
'Imports DD_LIB_Standards
Imports System.Data.SqlClient
Public Class ClassControlCommandsUI
@@ -578,9 +578,7 @@ Public Class ClassControlCommandsUI
Dim sql As String = $"DELETE FROM TBPMO_CONTROL_VALUE WHERE RECORD_ID = {RecordID} AND CONTROL_ID = {CONTROL_ID}"
If MYDB_ECM.ExecuteNonQuery(sql) = True Then
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
MYDB_ECM.ExecuteNonQuery(sql, True)
End If
End If
Else
@@ -647,7 +645,7 @@ Public Class ClassControlCommandsUI
MYDB_ECM.ExecuteNonQuery(String.Format("DELETE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1} AND VALUE = '{2}'", ControlId, RecordId, v))
' ClassProxy.PRPROXY_CONTROL_DEL(RecordId, CURRENT_ENTITY_ID, ControlId)
Next
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, "")
Catch ex As Exception
MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
End Try
@@ -904,9 +902,6 @@ Public Class ClassControlCommandsUI
cmd.ExecuteNonQuery()
connection.Close()
_result = cmd.Parameters("@pRESULT").Value
If _result = 1 And clsDatabase.DB_PROXY_INITIALIZED = True Then
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
End If
Return _result
End Using
Else
@@ -926,15 +921,15 @@ Public Class ClassControlCommandsUI
If Not IsNothing(converted_value) Then
converted_value = converted_value.Replace("'", "´")
Dim ins As String = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", ControlID, RecordID, converted_value, AddedWho)
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If MYDB_ECM.ExecuteNonQuery(ins) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return MYDB_ECM.ExecuteNonQuery(ins)
End If
'If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
' If MYDB_ECM.ExecuteNonQuery(ins) = True Then
' Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
' Else
' Return False
' End If
'Else
Return MYDB_ECM.ExecuteNonQuery(ins)
'End If
Else
Return False
End If
@@ -956,15 +951,8 @@ Public Class ClassControlCommandsUI
If ControlID = 279 Or ControlID = 745 Then
LOGGER.Warn(upd)
End If
If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
If MYDB_ECM.ExecuteNonQuery(upd) = True Then
Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)
Else
Return False
End If
Else
Return MYDB_ECM.ExecuteNonQuery(upd)
End If
Return MYDB_ECM.ExecuteNonQuery(upd)
Catch ex As Exception
LOGGER.Warn("Unerwarteter Fehler in UpdateControlValue: " & ex.Message)
Return False