Hi,

habe nen Agenten der ein neues doc erzeugen soll:
set ddoc = new notesdocument(db)
ddoc.form="TEST"
call ddco.save(TRUE,TRUE)
call ws.EditDocuemtn

aber bekomme obigen fehler... ?

Danke für Hilfe..

Tippfehler jetzt mal c&p:

      Set DDoc = New NotesDocument( Db )
      DDoc.Form = "FU001_DbLink"
      Call ddoc.ComputeWithForm(True,True)
      Call ddoc.Save(False,True)
   Call ws.EditDocument(True, DDoc)

so ist es...

Der Fehler liegt darin, das man das erzeugte Dokument noch nicht mal aus der View heraus öffnen kann. Dann bekommt man nämlich die obige Fehlermledung ebenfalls. Das Doc lässt sich nicht öffnen... aber was läuft da falsch bei der erstellung???

   Dim session    As New    notessession
   Dim ws          As New    notesuiworkspace   
   Dim Db       As       notesdatabase
   Dim DefView As         notesView   
   Dim DDoc    As       notesdocument
   
   Set Db          =       session.currentdatabase
   Set DefView   =      Db.GetView("VU000_Ws3Con")
   Call Defview.Refresh()
   Set DDoc       =       DefView.GetFirstDocument
   ' Erster Aufruf => dann anlegen   
   
   If DDoc Is Nothing Then
      Set DDoc = New NotesDocument( Db )
      DDoc.Form = "FU001_DbLink"
      Call ddoc.ComputeWithForm(True,True)
      Call ddoc.Save(False,True)
   End If
   Call ws.EditDocument(True, DDoc)
   

Aufruf erfolgt über ne Outline.

Mal ne andere Frage :

Wenn Du das Dokument neu erzeugen und dann quasi leer öffnen willst, warum benutzt Du dann nicht einfach ComposeDocument ?

Set DDoc = ws.ComposeDocument("", "", Form)

Das
Set DDoc = ws.ComposeDocument("", "", Form)
erzeugt ein NotesUIDocument, kein NotesDocument!
Ausserdem hast Du dann ein leeres Dokument, Du müsstest erst über das Backend die Felder setzen.

Dann noch was: Du solltest bei der Programmierung darauf achten, alles case sensitive zu programmieren. D.h. entweder DDoc oder ddoc.

Versuche das mal:
Dim session    As New    notessession
   Dim ws          As New    notesuiworkspace  
   Dim Db       As       notesdatabase
   Dim DefView As         notesView  
   Dim DDoc    As       notesdocument
   
   Set Db          =       session.currentdatabase
   Set DefView   =      Db.GetView("VU000_Ws3Con")
   Call Defview.Refresh()
   Set DDoc       =       DefView.GetFirstDocument
   ' Erster Aufruf => dann anlegen  
   
   If DDoc Is Nothing Then
      Set DDoc = Db.CreateDocument
      DDoc.Form = "FU001_DbLink"
      Call DDoc.Save(True,True)
      Call DDoc.ComputeWithForm(True,True)
      Call DDoc.Save(True,True)
   End If
   Call ws.EditDocument(True, DDoc)


Mit New hat man ab und zu Problemchen...

Andreas

Das
Set DDoc = ws.ComposeDocument("", "", Form)
erzeugt ein NotesUIDocument, kein NotesDocument!

Ist klar, aber so wie das oben im Beispielcode aussieht, soll das Dokument ja eh im UI geöffnet werden, dann kann ich auch gleich ein UIDocument erzeugen und damit dann weiterarbeiten.