Domino 9 und frühere Versionen > Entwicklung

Antwortdokument mit Script erstellen

<< < (10/12) > >>

Glombi:

--- Zitat von: Semeaphoros am 22.10.03 - 11:14:13 ---on error resume next
...........
on error goto 0

--- Ende Zitat ---

Für ein Error Handling in Script sollten wir mal einen separaten Thread machen. Das ist schon ein Kapitel für sich und hier laufen ja schon 2 Threads. Für Männer, die ja bekanntlich nicht multitaskingfähig sind, eine echte Herausforderung. ;D

Andreas

Glombi:

--- Zitat von: OCS am 22.10.03 - 11:35:43 ---@glombi:

aktivdoc ist ein backenddoc, das ich über workspace.EditDocument
als uidoc öffne!

--- Ende Zitat ---
und das ist der Fehler! Also versuch mal meinen Vorschlag umzusetzen.

Andreas

Semeaphoros:
Andreas: völlig richtig, das wäre ein eigener Thread wert :-)

OCS:
@glombi:

Deine Zeilen machen keinen unterschied, ist das gleiche das ich mache, nur das die variablen anders heissen!

danke trotzdem!!! ;)

hier noch mal der komplette quelltext ums klarer zu machen!


Sub Initialize
   Dim uidoc As notesuidocument
   Dim session As notessession
   Set session = New notessession
   Dim item As notesitem
   Dim workspace As notesuiworkspace
   Dim rtitem As notesrichtextitem
   Dim db As NotesDatabase
   Set workspace = New notesuiworkspace
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim problem As String
   Set uidoc = workspace.currentdocument
   Dim temp As String
   Dim view As notesview
   Dim schnellstart As String
   Dim aktivid As String
   Dim aktivdoc As notesuidocument
   
   schnellstart = uidoc.fieldgettext("schnellstart")
   aktivid = uidoc.fieldgettext("aktiv_id")
   problem = uidoc.fieldgettext("DocTitel")
   Call uidoc.save
   If schnellstart = "J" Then
      Set db = session.Getdatabase("OCS02/OCS GmbH", "aktiv\fridaakt.nsf", False)
      Set view = db.getview ("ViewActionsUNID")
      Call view.Refresh
      Set collection = view.getalldocumentsbykey(aktivid)
      Set doc = collection.GetFirstDocument()
      Print collection.count
     
      Call doc.Replaceitemvalue("CheckCall", "X")
      Call doc.Replaceitemvalue("tmp_link", "X")
      Call doc.Replaceitemvalue("CPart", Problem)
     
      Set rtitem = New NotesRichTextItem(doc, "Link")
      Call rtitem.AppendDocLink( uidoc.document, "Dokumentenlink")
      Call rtitem.AppendText("          " )
      Call rtitem.AppendText(Problem)
     
      Call doc.Save( False, False )      
      Set aktivdoc = workspace.EditDocument (True, doc, False) ' Hier öffne ich das vorher bearbeitet Backenddoc (doc)
      Call aktivdoc.save ' hier kommt der fehler!
      Call aktivdoc.close
      Call uidoc.save      
      Call uidoc.close
     
     
     
     
   End If      
End Sub

Glombi:
 ??? ??? ???
Also laut Deinem, Code ist aktivdoc KEIN Backendoc.
Dim aktivdoc As notesuidocument

Das ganze wird in einem Dokument ausgelöst, gell?

Also hast Du ein uidoc und willst ein neues Dokument öffnen.

Versuch mal die folgenden Scriptzeilen
Call doc.Save( False, False )      
      Set aktivdoc = workspace.EditDocument (True, doc, False) ' Hier öffne ich das vorher bearbeitet Backenddoc (doc)
      Call aktivdoc.save ' hier kommt der fehler!
      Call aktivdoc.close
      Call uidoc.save      
      Call uidoc.close

zu tauschen durch:
Call doc.Save( False, False )      
      Call uidoc.save      
      Call uidoc.close

      Set aktivdoc = workspace.EditDocument (True, doc, False) ' Hier öffne ich das vorher bearbeitet Backenddoc (doc)
      Call aktivdoc.save ' hier kommt der fehler!
      Call aktivdoc.close

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete