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

jj 27.09 fix todate missing

Browse Source
This commit is contained in:
JenneJ 2016-09-27 13:26:04 +02:00
parent 506694b78b
commit 241518ae01
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
app/DD-Record-Organiser/ClassFunctionCommandsUI.vb
View File

@ -100,6 +100,8 @@ Public Class ClassFunctionCommandsUI
Dim PlaceString As Object = dr.Item("STRING3") Dim PlaceString As Object = dr.Item("STRING3")
Dim DescString As Object = dr.Item("STRING4") Dim DescString As Object = dr.Item("STRING4")
' Setzt das Start-Datum des Termins fest.
' Wenn kein Start-Datum gefunden wurde, wird das aktuelle Datum benutzt.
If Not IsDBNull(FromDateID) Then If Not IsDBNull(FromDateID) Then
If FromDateID <> 0 Then If FromDateID <> 0 Then
FromDateName = Get_Name_for_ControlID(FromDateID, FormID) FromDateName = Get_Name_for_ControlID(FromDateID, FormID)
@ -112,16 +114,23 @@ Public Class ClassFunctionCommandsUI
apt.Start = Date.Now apt.Start = Date.Now
End If End If
' Setzt das End-Datum des Termins fest.
' Wenn kein End-Datum gefunden wurde, wird das Start-Datum benutzt.
If Not IsDBNull(ToDateID) Then If Not IsDBNull(ToDateID) Then
If ToDateID <> 0 Then If ToDateID <> 0 Then
ToDateName = Get_Name_for_ControlID(ToDateID, FormID) ToDateName = Get_Name_for_ControlID(ToDateID, FormID)
ToDateValue = Date.Parse(FindControlValue(ToDateName, PanelControls))
apt.End = ToDateValue If (Date.TryParse(FindControlValue(ToDateName, PanelControls), ToDateValue) = True) Then
apt.End = ToDateValue
Else
apt.End = apt.Start
End If
Else Else
apt.End = Date.Now apt.End = apt.Start
End If End If
Else Else
apt.End = Date.Now apt.End = apt.Start
End If End If
If Not IsDBNull(SubjectString) OrElse Not String.IsNullOrWhiteSpace(SubjectString) Then If Not IsDBNull(SubjectString) OrElse Not String.IsNullOrWhiteSpace(SubjectString) Then