Rakesh R 3.Mar.08 12:34 PM a Web browser
Notes Client 6.0.3 Windows XP
The below code is used in a button, for making a room booking. Only for a single user the document is getting saved. any ideas...?
'SaveOK' - there's nothing to do with this issue..
docBooking.SaveOK = docBooking.SaveOK(0) + 1
Set destinationDoc = database.CreateDocument
'database --> different replica
Set tempDoc = uidoc.Document
Call tempDoc.CopyAllItems(destinationDoc, True)
destinationDoc.BookingMadeOn = newServer.abbreviated
destinationDoc.Form = "Booking"
'// we had to save it in the current database as well so before closing, change the form so that it's not included in any bookings being made in this replica
'// an agent will run daily to remove these duff documents
Dim item As NotesItem
Set item = tempDoc.ReplaceItemValue( "MaterialAlias","duff" )
tempDoc.Form = "duffDoc"
tempDoc.SaveOptions = "0"
Call tempDoc.Save(True, False)