Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Christopher am 23.08.06 - 12:17:53

Titel: Document command is not available bei Link auf das Doument!
Beitrag von: Christopher am 23.08.06 - 12:17:53
Hallo Leute,

ich habe ein DB entwickelt wo ein gewisse Personen eine Email mit Text und Dokumentenlink erhalten.

Wenn, die Personen auf den Link klicken öffnet sich ein Dokument.

Im Dokument gibt es eine Schaltfläche wo man eine Bemerkung zum Antrag hinzufügen kann. Das Dokument befindet sich im Lesemodus.

Per Script öffnet sich ein Dialog wo der Nutzer seinen Text eingeben kann, anschießend übernehme ich den Text per Script im Backend versetze das Dokument in Bearbeitungsmodus aktualisiere und möchte in den Lesemodus zurückgehen aber genau da schein Notes Probleme zu haben.

Ich bekomme die Fehlermeldung "Document command is not available". Wenn ich das ganze direkt in der DB ausführe funktioniert es.

Es geht nur nicht wenn man das Dokument per Email mit Link öffnet.

Wie kann ich das abfangen?
 

Titel: Re: Document command is not available bei Link auf das Doument!
Beitrag von: Driri am 23.08.06 - 12:44:15
Mach doch einfach ein Reopen, nachdem Du das Dokument im Background umgeschossen hast. Von Ata gibts dazu hier im Forum einen Code.
Titel: Re: Document command is not available bei Link auf das Doument!
Beitrag von: Christopher am 23.08.06 - 13:35:42
Danke Driri, für den Super Tipp.

ich habe es jetzt so gelöst.

Call uidoc.Close
Call ReOpen(doc)
Call uidoc.Close


Function ReOpen(docThis As NotesDocument) As Integer
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim dbThis As NotesDatabase
   Dim unid As String
   
   ReOpen = 0
   Set dbThis = docThis.ParentDatabase
   Call docThis.Save(True , True)
   unid = docThis.UniversalID
   docThis.SaveOptions = "0"
   Set uidoc = ws.CurrentDocument
   Call uidoc.Close
   Set docThis = dbThis.GetDocumentByUNID(unid)
   Set uidoc = ws.EditDocument(False, docThis)
'   Set docThis = uidoc.Document
   Set uidoc = ws.EditDocument(False, docThis)   
   ReOpen = 1
   Call uidoc.Close
End Function