The startDate field is missing the summary flag. &nbsp;The ComputeWithForm method is fixing the problem, however that code only runs at&nbsp;the end.&nbsp;</div>

Flow Document (Script Library)

Before:

Private Sub StartHeader()

On Error Goto ErrHandler</div>

Dim dat As New NotesDateTime(Today)</div>

Call dat.SetNow</div>

Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************</div>

&nbsp;</div>

<strong>After:</strong></div>

Private Sub StartHeader()</div>

On Error Goto ErrHandler</div>

Dim dat As New NotesDateTime(Today)</div>

Dim startDateField As NotesItem</div>

&nbsp;</div>

Call dat.SetNow</div>

&#39;Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************</div>

Set startDateField = New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat)&nbsp;</div>

startDateField.IsSummary = True </div>

&nbsp;</div>

Private Sub StartHeader()

On Error Goto ErrHandler

Dim dat As New NotesDateTime(Today)

Call dat.SetNow

Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************

&nbsp;

&nbsp;

&nbsp;

Private Sub StartHeader()

On Error Goto ErrHandler

Dim dat As New NotesDateTime(Today)

Dim startDateField As NotesItem

&nbsp;

Call dat.SetNow

&#39;Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************

Set startDateField = New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat)&nbsp;

startDateField.IsSummary = True 

&nbsp;

Private Sub StartHeader()

On Error Goto ErrHandler

Dim dat As New NotesDateTime(Today)

Call dat.SetNow

Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************

&nbsp;

&nbsp;

&nbsp;

Private Sub StartHeader()

On Error Goto ErrHandler

Dim dat As New NotesDateTime(Today)

Dim startDateField As NotesItem

&nbsp;

Call dat.SetNow

&#39;Dim docDate As New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat) &#39;************* Suggested by Chris Hudson ************* ************** Added in Beta 4 **************

Set startDateField = New NotesItem(Me.m_doc, &quot;StartDate&quot;, dat)&nbsp;

startDateField.IsSummary = True