msErrorClassControlBuilder

This commit is contained in:
Digital Data - Marlon Schreiber
2017-10-05 13:59:18 +02:00
parent e8c06c46a7
commit 2bc716b601
4 changed files with 17 additions and 15 deletions

View File

@@ -587,7 +587,7 @@ Public Class ClassControlCommandsUI
Dim converted_value = Check_and_Format_Value(ControlId, RecordId, _addValue)
If Not IsNothing(converted_value) Then
ClassControlCommandsUI.InsertControlValue(ControlId, RecordId, converted_value, CURRENT_ENTITY_ID)
'Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE,ADDED_WHO) VALUES({0}, {1}, '{2}','{3}')", ControlId, RecordId, converted_value, USER_USERNAME)
'ClassDatabase.Execute_non_Query(ins)
'ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlId, RecordId, converted_value)