Dokument wurde noch nicht gespeichert

[poldy06]

Moin Zusammen,
ich versuche folgendes:
Ich öffne ein neues Dokument, darin ist eine Schaltfläche, die folgenden Agenten (Angaben bereinigt) ausruft:

Sub Initialize
   Dim s         As New NotesSession
   Dim ws          As New NotesUIWorkspace
   Dim uidoc      As NotesUIDocument
   Dim picklist    As Variant
   Dim messagelist As String
   Dim adb         As NotesDatabase
   Dim bdb      As New NotesDatabase("","") 
   Dim view       As NotesView
   Dim entry       As NotesViewEntry
   
   Set adb = s.CurrentDatabase
   Set uidoc = ws.Currentdocument
      
   If bdb.OpenByReplicaID( "[Server]", "[ID]" ) Then
      Print( bdb.Title & " was successfully opened" )
   Else
      Print( "Unable to open database" )
   End If

   picklist = ws.PickListStrings( _
   PICKLIST_CUSTOM, _
   False, _
   bdb.Server, _
   bdb.Filepath , _
   "(Lookup Product)", _
   "Datenübernahme", _
   "Bitte den Artikel auswählen!", _
   1)
   
   Set view = bdb.getview("(Lookup Product)")
   Set entry = view.GetEntryByKey(picklist,True)
   
   If Not entry Is Nothing Then    'nur wenn es auch was gibt
      uidoc.EditMode = True
      Call uidoc.FieldSetText("Feld1", entry.Columnvalues(3))
      Call uidoc.FieldSetText("Feld2", entry.Columnvalues(4))
      Call uidoc.FieldSetText("Feld3", entry.Columnvalues()
      Call uidoc.FieldSetText("Feld4", entry.Columnvalues(12))
      Call uiDoc.FieldSetText("Feld5", entry.Columnvalues(5))
      Call uiDoc.FieldSetText("Feld6", entry.Columnvalues(6))
      Call uiDoc.FieldSetText("Feld7", entry.Columnvalues(9))
      Call uiDoc.FieldSetText("Feld8", entry.Columnvalues(10))
      Call uiDoc.FieldSetText("Feld9", entry.Columnvalues(11))
      Call uiDoc.FieldSetText("Feld0", entry.Columnvalues(7))
         
   Else
      MessageBox "Gibt es garnicht!" ,"16", "Übernahme "   
   End if
   Call uidoc.Refresh()
   Call uiDoc.GotoField("Feld1")
End Sub

Besser gesagt, aufrufen soll, denn es kommt immer nur die Fehlermeldung, dass das Dokument noch nicht gespeichert wurde.
Es kann aber auch nicht vorher gespeichert werden, denn es werden mit dieser Routine PFlichtfelder gesetzt.
Hat jemand ne Idee, was ich tun kann?
Danke!
Gruß
Poldy

P.S. Ich habe ein paar Einträge mit ähnlichem Problem gefunden, die Lösungen haben mir leider nicht geholfen.

[Tode]

Und in welcher ZEILE kommt die Fehlermeldung? Man schreibt keinen Script- Code ohne zumindest ein rudimentäres ErrorHandling... Dann wüsstest Du nämlich WO der Fehler passiert, dann könnte man Dir auch helfen...

[ascabg]

Hallo,

Wo wird denn der Agent aufgerufen?
Oder ist dies der Agent?

Und wenn es der Agent ist, woher weiss dieser dann in welches Dokument er schreiben soll?


Andreas

[Peter Klett]

Stell' mal Deinen Agenten von "Alle ausgewählten Dokumente" auf "Keine"

[umi]

Moin

Warum der Handstand über die PicklistStrings ?
Warum nicht gleich die PicklistCollection verwenden?

[poldy06]

Moin Zusammen,
danke für die Antworten!
Peter hat es getroffen! Genau das war das Problem.
Gute Frage umi, weil ich es nicht besser wusste   
Tode: Ich gebe Dir grundsätzlich Recht, aber hier hätte es nichts geholfen, weil der Agent garnicht gestartet wurde!
Schönes Wochenende!!

[Tode]

Juppp... die Fehlermeldung kommt bei falschem Trigger... Da war ich zu voreilig...