Lose data passed by dialogbox on uidoc.save

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

Subject: Lose data passed by dialogbox on uidoc.save

What kind of data? If it is rich text, you should know it is documented as not being passed back from a dialog box.

Subject: RE: Lose data passed by dialogbox on uidoc.save

Thanks for the reply Ben, It was a computed field that computed to “”, so of course that is what it computed back to on close ! Thanks again for trying to help those beyond it :slight_smile: