To avoid replication problems, the modified value in the Lotus Notes response document must be passed back to the parent document. This LotusScript code will help you successfully edit response documents in Lotus Notes without creating replication conflicts.
Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim db As NotesDatabase Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim parentDoc As NotesDocument Dim view As NotesView Set db=session.currentDatabase Set uidoc=workspace.CurrentDocument Set doc=uidoc.Document Set view = db.GetView("svLookByDoc") Set parentDoc = view.GetDocumentByKey (doc.nJobNo_D(0),True) If Not (parentDoc Is Nothing )Then parentDoc.cStatus=doc.actStatus(0) Call parentDoc.Save(True,False) parentDoc.CloseMIMEEntities(True) End If
Do you have comments on this tip? Let us know.
This tip was submitted to the SearchDomino.com tip library by member Ahmad Kamali. Please let others know how useful it is via the rating scale below. Do you have a useful Lotus Notes, Domino, Workplace or WebSphere tip or code snippet to share? Submit it to our monthly tip contest and you could win a prize.