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

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
app/DD-Record-Organiser/ClassFunctionCommands.vb
View File

@@ -20,18 +20,6 @@
Return False
End Try
End Function
'Public Shared Function UpdateFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectId As Integer)
' Try
' Dim SQL As String = "UPDATE TBPMO_FUNCTION_ADD_APPOINTMENT SET FROM_DATE = " & FromDateId & ", TO_DATE = " & ToDateId & ", SUBJECT = " & SubjectId & " WHERE CONTROL_ID = " & ControlId
' ClassDatabase.Execute_non_Query(SQL)
' Return True
' Catch ex As Exception
' MsgBox("Fehler beim Aktalisieren der KalenderFunktion:" & vbNewLine & ex.Message)
' Return False
' End Try
'End Function
Public Shared Function UpdateAddAppointmentFunction(ControlId As Integer, FromDateId As Integer, ToDateId As Integer, SubjectString As String, Subject2String As String, PlaceString As String, DescriptionString As String)
Try
Dim SQL As String = "UPDATE TBPMO_FUNCTION_GENERAL SET INTEGER1 = " & FromDateId & ", INTEGER2 = " & ToDateId & ", STRING1 = '" & SubjectString & "', STRING2 = '" & Subject2String & "', STRING3 = '" & PlaceString & "', STRING4 = '" & DescriptionString & "' WHERE CONTROL_ID = " & ControlId
@@ -106,7 +94,7 @@
Return InsertValue(ControlID, RecordID, Value)
Else
SQL = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}',CHANGED_WHO = '{1}' WHERE CONTROL_ID = {2} AND RECORD_ID = {3}", Value, USER_USERNAME, ControlID, RecordID)
If ClassDatabase.Execute_non_Query(SQL, True) = True Then
If ClassDatabase.Execute_non_Query(SQL) = True Then
Return True
Else : Return False
End If