10.01.2016
This commit is contained in:
SchreiberM
@@ -332,7 +332,6 @@ Public Class ClassControlCommandsUI
|
||||
Dim ADDED_WHO As String = USER_USERNAME
|
||||
If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RecordID, False)
|
||||
UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls)
|
||||
ClassProxy.Refresh_Control_Data()
|
||||
Return "Datensatz aktualisiert - " & Now
|
||||
'End If
|
||||
Catch ex As Exception
|
||||
@@ -429,7 +428,6 @@ Public Class ClassControlCommandsUI
|
||||
Else
|
||||
SQL = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (RECORD_ID, CONTROL_ID, VALUE, ADDED_WHO) VALUES ({0}, {1}, '{2}', '{3}')", RecordID, ControlID, VALUE, USER_USERNAME)
|
||||
End If
|
||||
ClassProxy.Refresh_Control_Data()
|
||||
ClassDatabase.Execute_non_Query(SQL)
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in LinkImage: " & vbNewLine & ex.Message)
|
||||
@@ -538,7 +536,9 @@ Public Class ClassControlCommandsUI
|
||||
'Exit Sub - Zuviel des guten
|
||||
Continue For
|
||||
End If
|
||||
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
|
||||
If CONTROL_VALUE <> "" Then
|
||||
InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE)
|
||||
End If
|
||||
End If
|
||||
Else ' Update Control
|
||||
If Not IsNothing(CONTROL_VALUE) Then
|
||||
@@ -580,24 +580,21 @@ Public Class ClassControlCommandsUI
|
||||
'Dim values As New List(Of String)(value.Split(";"))
|
||||
Dim AddValues = values.Except(oldValues)
|
||||
Dim RemoveValues = oldValues.Except(values)
|
||||
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlId, True)
|
||||
|
||||
For Each _addValue As String In AddValues
|
||||
If Not _addValue = "" Then
|
||||
Select Case FORMAT_TYPE
|
||||
Case "Currency"
|
||||
_addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Currency).ToString
|
||||
Case "Decimal"
|
||||
_addValue = Decimal.Parse(_addValue, Globalization.NumberStyles.Integer)
|
||||
End Select
|
||||
Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE,ADDED_WHO) VALUES({0}, {1}, '{2}','{3}')", ControlId, RecordId, _addValue, USER_USERNAME)
|
||||
ClassDatabase.Execute_non_Query(ins)
|
||||
Dim converted_value = Check_and_Format_Value(ControlId, RecordId, _addValue)
|
||||
If Not IsNothing(converted_value) Then
|
||||
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)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
For Each v As String In RemoveValues
|
||||
ClassDatabase.Execute_non_Query(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.Refresh_Control_Data()
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Error in UpdateMultipleValues:" & vbNewLine & ex.Message)
|
||||
End Try
|
||||
@@ -781,11 +778,19 @@ Public Class ClassControlCommandsUI
|
||||
Return Nothing
|
||||
End Select
|
||||
End Function
|
||||
|
||||
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
|
||||
Public Shared Function Check_and_Format_Value(ControlID As Integer, RecordID As Integer, Value As String)
|
||||
Try
|
||||
Dim AddedWho = USER_USERNAME
|
||||
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
|
||||
Dim expression As String
|
||||
expression = "GUID = " & ControlID
|
||||
Dim CONTROL_ROW() As DataRow
|
||||
' Use the Select method to find all rows matching the filter.
|
||||
CONTROL_ROW = CURRENT_TBPMO_CONTROL.Select(expression)
|
||||
Dim i As Integer
|
||||
Dim FORMAT_TYPE As String, CONTROL_TYPE As Integer
|
||||
For i = 0 To CONTROL_ROW.GetUpperBound(0)
|
||||
FORMAT_TYPE = CONTROL_ROW(i)("FORMAT_TYPE")
|
||||
CONTROL_TYPE = CONTROL_ROW(i)("CONTROL_TYPE_ID")
|
||||
Next
|
||||
|
||||
Select Case FORMAT_TYPE
|
||||
Case "Currency"
|
||||
@@ -799,11 +804,32 @@ Public Class ClassControlCommandsUI
|
||||
End If
|
||||
|
||||
End Select
|
||||
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, Value, AddedWho)
|
||||
ClassProxy.Refresh_Control_Data()
|
||||
Return ClassDatabase.Execute_non_Query(ins)
|
||||
Select Case CONTROL_TYPE
|
||||
Case 4
|
||||
Dim oDate = ClassHelper.Convert_to_Database_Date(Value)
|
||||
Value = oDate.ToString()
|
||||
End Select
|
||||
Return Value
|
||||
Catch ex As Exception
|
||||
ClassLogger.Add("Unerwarteter Fehler in InsertControlValue: " & ex.Message, True)
|
||||
MsgBox("Unexpected Error in Check_and_Format_Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in Check_and_Format_Value: " & ex.Message, True)
|
||||
Return Nothing
|
||||
End Try
|
||||
End Function
|
||||
Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String)
|
||||
Try
|
||||
Dim AddedWho = USER_USERNAME
|
||||
Dim converted_value = Check_and_Format_Value(ControlID, RecordID, Value)
|
||||
If Not IsNothing(converted_value) Then
|
||||
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)
|
||||
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlID, RecordID, converted_value)
|
||||
Return ClassDatabase.Execute_non_Query(ins)
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox("Unexpected Error in inserting Control-Value: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
|
||||
ClassLogger.Add("Unexpected Error in inserting Control-Value: " & ex.Message, True)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
@@ -811,27 +837,13 @@ Public Class ClassControlCommandsUI
|
||||
Public Shared Function UpdateControlValue(ControlID As Integer, RecordID As Integer, Value As String)
|
||||
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 DT_FORMAT_TYPE As DataTable = ClassDatabase.Return_Datatable(def, True)
|
||||
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE,CONTROL_TYPE_ID FROM TBPMO_CONTROL WHERE GUID = " & ControlID, True)
|
||||
|
||||
If Not Value = String.Empty Then
|
||||
Select Case DT_FORMAT_TYPE.Rows(0).Item(0).ToString ' FORMAT_TYPE
|
||||
Case "Currency"
|
||||
Value = Decimal.Parse(Value, Globalization.NumberStyles.Currency).ToString
|
||||
Case "Decimal"
|
||||
Value = Decimal.Parse(Value, Globalization.NumberStyles.Integer)
|
||||
End Select
|
||||
Select Case DT_FORMAT_TYPE.Rows(0).Item(1)
|
||||
Case 4 'DateEdit
|
||||
Value = ClassHelper.Convert_Date(Value, "yyyy-MM-dd")
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
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}", _
|
||||
Value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
|
||||
ClassProxy.Refresh_Control_Data()
|
||||
converted_value, CHANGED_WHO, CURRENT_CHANGE_STEP, ControlID, RecordID)
|
||||
ClassProxy.PRPROXY_CONTROL_VALUE_UPD_INS(CURRENT_ENTITY_ID, ControlID, RecordID, converted_value)
|
||||
Return ClassDatabase.Execute_non_Query(upd)
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
Reference in New Issue
Block a user