To really enable creation of JournalEntries from the calendar view, add the following code:



Form Globals-Options:

Option Public

Option Declare

Use "CratchitCommonLibrary"

Use "CratchitCalendarLibrary"



Form Globals-Declarations:

Dim ws As NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument

Dim update_calendar As Boolean

'Used if creating new entry from calendar view

Dim tmp_start_dt As NotesDateTime

'Used in determining a changed event date/time

Dim old_start_dt As NotesDateTime

Dim old_end_dt As NotesDateTime



Form QueryOpen:

Set ws = New NotesUIWorkSpace

Set tmp_start_dt = New NotesDateTime(ws.CurrentCalendarDatetime)



Form PostOpen:

Set uidoc = source

Set doc = uidoc.Document

If doc.UniqueID(0) = "" Then

doc.UniqueID = fCreateUniqueID

End If

If doc.IsNewNote And Isdate(tmp_start_dt.DateOnly) Then

doc.StartDate = tmp_start_dt.DateOnly

doc.StartTime = tmp_start_dt.TimeOnly

Call tmp_start_dt.AdjustMinute(30)

doc.EndTime = tmp_start_dt.TimeOnly

End If

<br/>

If fGetCratchitProfileValue(session.CommonUserName,"CopyJournalToCalendar") = "Yes" Then

'Only updated the users calendar if the want it…

update_calendar = True

End If

If source.IsNewDoc Or doc.NewDoc(0) = "1" Then

'Set original DT to some obscure time/date…

Set old_start_dt = New NotesDateTime("12/31/1999 23:59:59")

Set old_end_dt = New NotesDateTime("12/31/1999 23:59:59")

Else

'Set original DT info in case they reschedule…

Set old_start_dt = New NotesDateTime(doc.StartDate(0) & | | & doc.StartTime(0))

Set old_end_dt = New NotesDateTime(doc.StartDate(0) & | | & doc.EndTime(0))

End If