Domino 9 und frühere Versionen > Entwicklung

Antwortdokument mit Script erstellen

<< < (11/12) > >>

OCS:
nicht ganz richtig,
aus uidoc heraus bearbeite ich das backenddokument "DOC".
nachdem ich es bearbeitet und gespeichert habe, öffne ich "DOC" unter dem name "aktivdoc" also uidokument und speichere es dann um es in der ansicht anzuzeigen ohne einen refresh machen zu müssen.....


hintergrund:
ich kann keinen refresh machen, da die db 25.000 dokumente umfasst und das einfach zu lange dauern würde!

Glombi:
Hier mein Code:

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 currentdoc 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
 
set currentdoc = uidoc.Document 

schnellstart = uidoc.fieldgettext("schnellstart")
  aktivid = uidoc.fieldgettext("aktiv_id")
  problem = uidoc.fieldgettext("DocTitel")
  Call uidoc.save
Call uidoc.close

  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( currentdoc, "Dokumentenlink")
      Call rtitem.AppendText("          " )
      Call rtitem.AppendText(Problem)
     
      Call doc.Save( False, False )           

      Set aktivdoc = workspace.EditDocument (True, doc)
      Call aktivdoc.save
      Call aktivdoc.close                
     
  End If     
End Sub

Andreas

OCS:
hi andreas,
das macht leider keinen unterschied, gleiche meldung!

danke trotzdem!  :'(

Glombi:
Es kann sein, dass Notes ein Problem damit hat, ein anderes UI Dokument zu öffnen oder dass das aktuelle UI Dokument, in dem sich auch der Script Code befindet, geschlossen wird.
Dann kannst Du evtl. den Code in einen Agenten auslagern. Dazu müsstest Du bspw. die UNID in die NOTES.INI schreiben und dann den Agenten aufrufen.

Andreas

Semeaphoros:
Lieber in ein Profildokument und nicht in die Notes.Ini, da liegt eh schon genug ungelöschter Schrott rum ...

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete