I am having an issue losing the data I have passed through ws.dialogbox after I try and save it. If I only save the doc and refresh and close the uidoc, without saving using SaveOptions, the document does not save. I can see the data is there in the debugger until I either close the document or at the point I save the uidoc. I have remmed and tested both options… Hopefully someone can help where I am sure it is a stupid mistake ?Sub Click(Source As Button)
Dim continue As Variant
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim currstatus As String
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
doc.Type="Reject - Request More Info"
currstatus=doc.Status(0)
doc.Status="Department Head Reject - Request More Info"
flag = ws.DialogBox( "dlgDeptHead" , True , True , True , True , False , False , "Department Head Reject - Request More Info Dialog" , ,True ,True ,False)
If flag = False Then
uidoc.FieldSetText "Status",currstatus
Continue = False
Else
doc.Save True, False
Call uidoc.Reload()
doc.Save True, False
'uidoc.FieldSetText "SaveOptions", "0"
Call uidoc.Save
'Call uidoc.SaveNewVersion
Call uidoc.Close
End If
End Sub
Thanks in advance for your help
Lisa