Value Won't update....Not sure why?

Here is what I’m trying to do. I have a view which I copy the View Selection to a document for editing. The document is displayed as a Dialogbox. Here is there you can edit the view selection then save it. Once the window is closed it’s supposed to update with the new value, but it just remembers the value of when it got copied. Here is my code:

On Error Goto ErrorHandle

Set db = ws.CurrentDatabase

Set uiview = ws.CurrentView

Set view = uiview.View

Set getdb = ses.CurrentDatabase

Set getview = getdb.GetView(“(dspViewSetup)”)

Set getdoc = getview.GetFirstDocument

If getdoc Is Nothing Then

Set getdoc = New NotesDocument(getdb)

getdoc.Form = “(dspViewSetup)”

Call getdoc.Save(True, True)

End If

Call ses.SetEnvironmentVar(“ViewName”, Cstr(view.Name))

Dim v As Variant

Dim e As Variant

v = view.SelectionFormula

Call getdoc.ReplaceItemValue(“dspViewCode”, v)

Call ws.DialogBox(“(dspViewSetup_v2)”, True, True, True, True,“Update View”,getdoc,True,True,True)

Call getview.Refresh

e = getdoc.GetItemValue(“dspViewCode”)

If(Isempty(e(0))) Then

Exit Sub

End If

view.SelectionFormula = e(0)

Call ws.ViewRebuild

Call ses.SetEnvironmentVar(“ViewName”, “”)

Exit Sub

Even though the hidden doc did save, the value of the getdoc is the same. I tried dim’ing a getUpdoc and assigning it but still the same results.

Any thoughts of how I can grab the updated information?

Thanks