Beim Kopieren eines Dokumentes feldinhalt verändern

[Daniela Duplo]

Ich hab da ein Problem:
Ich möchte alle dokumente in einer View kopieren. Dabei aber den Inhalt eines Feldes anpassen über set value of doc.
Leider ensteht dadurch die Fehlermeldung Eintrag im Index nicht gefunden (Copy)
Ohne Ändern des Feldinhaltes Funktioniert alles.
Gibt es eine andere Möglichkeit den Feldinhalt zu ändern?

Mein Code
_{Dim s As New NotesSession
   Dim viewAll As NotesView
   Dim viewc As NotesView
   Dim sel As String
   Dim ws As New NotesUIWorkspace
   Dim object As String, docui As NotesUIDocument
   Dim proposal As String
   Dim version As String
   Dim db As NotesDatabase
   object=   ws.CurrentDocument.FieldGetText("object")
   proposal=   ws.CurrentDocument.FieldGetText("ProjectID")
   version = ws.CurrentDocument.FieldGetText("version")
   sel = "SELECT (((cc_Formname ='fa_QA_testcase') | (cc_Formname = 'QA_testcase')) & (object = '" + object + "') & (((version_from<='" + version +"')|(version_until>='" + version +"'))&(version_from<='" + version +"')| (version_from=''))&(Proposal='0'))"
   Set viewAll = s.CurrentDatabase.GetView("TestcasebyObjectAndVersion")
   Set viewc = _
   s.CurrentDatabase.CreateView("Copy", sel)
   
   Set db = s.CurrentDatabase
   Set view = db.GetView("Copy")
   Set doc = view.GetFirstDocument
   While Not(doc Is Nothing)
     'Use the call statement because to return
     'value is needed
      Call doc.CopyToDatabase(db)   
'...set value of doc...
      doc.Proposal= proposal
      Call doc.Save( True, True )   
      
      Set doc = view.GetNextDocument(doc)
      
   Wend
   Call view.Remove()}

Danke schonmal
LG
Daniela

[guesswho]

Hallo Daniela,

bitte bemühe doch mal den Debugger und nenne uns dann die Zeile, an der dieser Fehler auftritt. Wobei, dann siehst du das Problem eh selbst (wenn du Script sprichst).

Jo

[Daniela Duplo]

Hab die Zeile Gefunden und behoben.
Arbeite jetzt mit einer documentcollection.
Habe nur noch ein Problem die dc.count gibt immer 1
aber die view enthalt nach kategorie 0 mehr Dokumente.
Ich setzte Set dc= view.GetAllDocumentsByKey("0",True)
woran kann das liegen?

[Driri]

Machst Du das immer noch so, daß Du dafür extra eine View erzeugst ?

Wenn ja, würde ich das lieber so umbauen, daß Du dir per db.search die benötigten Dokumente direkt in eine DocumentCollection holst.