ms

app/DD-Record-Organizer/ClassControlCommandsUI.vb

@@ -843,11 +843,15 @@ Public Class ClassControlCommandsUI
 
     Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String, ENTITY_ID As Integer)
         Try
+
             Dim CHANGED_WHO = USER_USERNAME
             Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value)
             Dim def = "SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID
             Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}', CHANGED_WHO = '{1}', CHANGE_STEP = {2} WHERE CONTROL_ID = {3} AND RECORD_ID = {4}",
                                     converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
+            If ControlID = 279 Or ControlID = 745 Then
+                ClassLogger.Add(upd, False, False)
+            End If
             If LICENSE_PROXY = True Or clsDatabase.DB_PROXY_INITIALIZED = True Then
                 If ClassDatabase.Execute_non_Query(upd) = True Then
                     Return ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(ENTITY_ID, ControlID, RecordID, converted_value)