Good Day All,
I am attempting to debug a chunk of code that is called as the second ui document that I am dealing with in a sequence.
The first sequence the debugger comes up and goes through all code as expected… I amend the doc and click my (Save & Exit) Action button and the debugger doesn’t load back up???
Has anyone else had an issue with this before? IS there a way to force the Debugger up? HELP?
Here is the first chunk of code before it fails out… (This section works and so does the next, but I can’t get the debugger up to figure out why the results are not as expected)
Sub Click(Source As Button)
'****************************************************************************************************************
'To Amend a Currently Approved Request
'****************************************************************************************************************
Dim db As NotesDatabase
Dim session As New NotesSession
Set db = session.CurrentDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim newuidoc As notesuidocument
Dim doc As NotesDocument
Dim newdoc As NotesDocument
Dim item As NotesItem
Dim tmpSaveOptions As String
Dim unidnew As String
Dim unidold As String
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set newdoc=doc.CopyToDatabase(db)
unidold = Cstr(doc.UniversalID)
unidnew = Cstr(newdoc.UniversalID)
Set item = newdoc.ReplaceItemValue("ParentDoc", unidold)
Set item = newdoc.ReplaceItemValue("ThisDoc",unidnew)
Set item = newdoc.ReplaceItemValue("IsChild", "True")
Set item = newdoc.ReplaceItemValue("Approved", 99)
Call newdoc.Save(True, False)
Call uidoc.Close
Set uidoc = ws.EditDocument(True, NewDoc)
End Sub