Autor Thema: Document command is not available bei Link auf das Doument!  (Gelesen 1260 mal)

Offline Christopher

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.060
  • Geschlecht: Männlich
  • Dumm ist der, der dummes tut.
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?
 

« Letzte Änderung: 23.08.06 - 13:36:00 von Christopher »
Client & Server R 5.011
Principal Certified Lotus Professional R5 System Administration
Microsoft Certified Systems Engineer 2000
Microsoft Certified Systems Administrator 2000
Microsoft Certified Systems Administrator 2003
Microsoft Certified Systems Engineer 2003

Driri

  • Gast
Re: Document command is not available bei Link auf das Doument!
« Antwort #1 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.

Offline Christopher

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.060
  • Geschlecht: Männlich
  • Dumm ist der, der dummes tut.
Re: Document command is not available bei Link auf das Doument!
« Antwort #2 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
Client & Server R 5.011
Principal Certified Lotus Professional R5 System Administration
Microsoft Certified Systems Engineer 2000
Microsoft Certified Systems Administrator 2000
Microsoft Certified Systems Administrator 2003
Microsoft Certified Systems Engineer 2003

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz