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

jj 20_01_16

Browse Source
This commit is contained in:
JenneJ
2016-01-20 15:33:28 +01:00
parent fb5990948e
commit c0cc37e627
1 changed files with 29 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
app/DD-Record-Organiser/ClassControlCommandsUI.vb
View File

@@ -337,9 +337,9 @@ Public Class ClassControlCommandsUI
If CONTROL_ID <> -1 Then If CONTROL_ID <> -1 Then
CONTROL_VALUE = GetControlValue(ctrl) CONTROL_VALUE = GetControlValue(ctrl)
End If End If
If TypeName(ctrl).ToString = "DateEdit" Then 'If TypeName(ctrl).ToString = "DateEdit" Then
CONTROL_VALUE = CDate(CONTROL_VALUE) ' CONTROL_VALUE = CDate(CONTROL_VALUE)
End If 'End If
'If CONTROL_ID = 489 Then 'If CONTROL_ID = 489 Then
' Console.WriteLine(TypeName(ctrl)) ' Console.WriteLine(TypeName(ctrl))
'End If 'End If
@@ -514,7 +514,13 @@ Public Class ClassControlCommandsUI
Case "RadioButton" Case "RadioButton"
Return DirectCast(ctrl, RadioButton).Checked.ToString() Return DirectCast(ctrl, RadioButton).Checked.ToString()
Case "DateEdit" Case "DateEdit"
Dim Value = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).EditValue
If IsDBNull(Value) Then
Return ""
Else
Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd") Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd")
End If
Case "PictureBox" Case "PictureBox"
'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing
Case "CheckedListBoxControl" Case "CheckedListBoxControl"
@@ -607,7 +613,7 @@ Public Class ClassControlCommandsUI
Try Try
Dim AddedWho = Environment.UserName Dim AddedWho = Environment.UserName
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID)
Try
Select Case FORMAT_TYPE Select Case FORMAT_TYPE
Case "Currency" Case "Currency"
If Not Value = String.Empty Then If Not Value = String.Empty Then
@@ -620,9 +626,6 @@ Public Class ClassControlCommandsUI
End If End If
End Select End Select
Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in Insert ConvertValue to Format'" & FORMAT_TYPE & "': " & ex.Message, True)
End Try
Using conn As New SqlClient.SqlConnection(MyConnectionString) Using conn As New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As New SqlClient.SqlCommand("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @VALUE, @ADDED_WHO)", conn) Dim cmd As New SqlClient.SqlCommand("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID, RECORD_ID, VALUE, ADDED_WHO) VALUES (@CONTROL_ID, @RECORD_ID, @VALUE, @ADDED_WHO)", conn)
@@ -648,7 +651,7 @@ Public Class ClassControlCommandsUI
Try Try
Dim CHANGED_WHO = Environment.UserName Dim CHANGED_WHO = Environment.UserName
Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID) Dim FORMAT_TYPE As String = ClassDatabase.Execute_Scalar("SELECT FORMAT_TYPE FROM TBPMO_CONTROL WHERE GUID = " & ControlID)
Try
If Not Value = String.Empty Then If Not Value = String.Empty Then
Select Case FORMAT_TYPE Select Case FORMAT_TYPE
Case "Currency" Case "Currency"
@@ -658,10 +661,6 @@ Public Class ClassControlCommandsUI
End Select End Select
End If End If
Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in Update ConvertValue to Format'" & FORMAT_TYPE & "': " & ex.Message, True)
End Try
Using conn As New SqlClient.SqlConnection(MyConnectionString) Using conn As New SqlClient.SqlConnection(MyConnectionString)
Dim cmd As New SqlClient.SqlCommand("UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, CHANGED_WHO = @CHANGED_WHO WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID", conn) Dim cmd As New SqlClient.SqlCommand("UPDATE TBPMO_CONTROL_VALUE SET VALUE = @VALUE, CHANGED_WHO = @CHANGED_WHO WHERE CONTROL_ID = @CONTROL_ID AND RECORD_ID = @RECORD_ID", conn)
cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value cmd.Parameters.Add("@VALUE", SqlDbType.NVarChar).Value = Value
@@ -674,9 +673,6 @@ Public Class ClassControlCommandsUI
Return True Return True
End Using End Using
'Dim SQL As String = "UPDATE TBPMO_CONTROL_VALUE SET VALUE = '" & Value & "', CHANGED_WHO = '" & CHANGED_WHO & "' WHERE CONTROL_ID = " & ControlID & " AND RECORD_ID = " & RecordID
'Return ClassDatabase.Execute_non_Query(Sql, True)
Catch ex As Exception Catch ex As Exception
ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True) ClassLogger.Add("Unerwarteter Fehler in UpdateControlValue: " & ex.Message, True)
Return False Return False