• Journal entries not saving notes field

    By Jean E Gazis 2 decades ago

    I tried to put some text into the notes field on a journal entry, but the entry was saved with a blank notes field. This happened consistently and is extremely frustrating. I am using VIC on a Mac on OS X on NOtes 6.5.5

    • Problem Repeatable and Work Around

      By Mark M Stevens 2 decades ago

      I have the same problem that when I create Journal Entries and then use the "Save and Close" action bar button the contents of the "notes" field disappears. I am running Notes 7.0.1 on Windows XP. I found that you can workaround this by opening your userprofile and turning OFF the calendar update feature (I traced the problem to somewhere in the QSave_CalendarSynch function in the Journal Form).



      Good Luck,

      Mark

    • Better workaround and fix.

      By Dave Leigh 2 decades ago

      To workaround:

      press "Ctrl-S" before clicking "Save & Exit".



      The problem is due to the failure of "Save & Close" to save the UIDoc, resulting in no change to the body field. To fix: In Shared Code -> Actions -> Save & Exit, replace the "Click" method with this:



      Sub Click(Source As Button)

      Dim ws As New NotesUIWorkspace<br/>
Dim curruidoc As NotesUIDocument<br/>
Dim currdoc As NotesDocument<br/>
<br/>
Set curruidoc = ws.CurrentDocument<br/>
Call curruidoc.Save<br/>
Set currdoc = curruidoc.Document<br/>
Call currdoc.Save(False,False)  <br/>
Call currdoc.ReplaceItemValue(&quot;DeleteFlag&quot;,&quot;0&quot;)<br/>
Call currdoc.Save(False,False)  <br/>
Call curruidoc.Close<br/>

      End Sub



      BTW, this ALSO fixes a problem with creating Follow-Up To-Dos after the fact.