Hallo,
ich habe das Problem, daß ich von einem Antwortdokument Felder im Ursprungsdokument ändern muß. Da dies bei mir über @SetField und @SetDocField nur funktioniert, wenn das Ursprungsdokument geschlossen ist (Warum eigentlich?), habe ich in das Antwortdokument folgendes eingefügt, um zu gewährleisten, daß dieses auch wirklich geschlossen ist, wenn das Antwortdokument bearbeitet wird:
Sub Postopen(Source As Notesuidocument)
Dim db As NotesDatabase
Dim collection As NotesDocumentCollection
Dim qualitydoc As NotesDocument
Dim projectdoc As NotesDocument
Dim uiws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Dim uidoc As NotesUIDocument
Dim uidoc1 As NotesUIDocument
Dim item As NotesItem
Dim unid As String
Set uidoc = uiws.CurrentDocument
Set qualitydoc = uidoc.Document
Set uidb = uiws.CurrentDatabase
Set db = uidb.Database
unid = qualitydoc.ParentDocumentUNID
Set projectdoc = db.GetDocumentByUNID(unid)
Call uiws.EditDocument( "1", projectdoc)
Set uidoc1 = uiws.CurrentDocument
Call uidoc1.Save
Call uidoc1.Close
End Sub
Dies öffnet dann zwar das Ursprungsdokument, aber:
Für das Save bekomme ich eine Fehlermeldung (DocumentCommand not available ) und für das Close (wenn ich das Save weglasse) passiert gar nichts.
Habt Ihr dazu eine Idee?
Für Hinweise jeder Art schonmal vielen Dank, Valheru.
