LS-Probleme mit UIDocument

[SL]

Hallo,

ich versuche mit einem Agenten Bilder in eine Datenbank mit uidoc.import zu importieren. Funktioniert soweit auch ganz gut, nur der uidoc.close Befehl wird nicht sofort sondern erst nach Ende des Agenten ausgeführt. Dieses hat dann den Effekt, dass alle Fenster offen bleiben und der Notes-Client irgendwann abstürzt. Unten der prinzipielle Aufbau des Agenten:

Dim s As New notessession
Dim ws As New notesuiworkspace
Set db=s.currentdatabase
Set coll=db.unprocesseddocuments
Set doc=coll.getfirstdocument
Do While Not doc Is Nothing
     Set uidoc=ws.editdocument(True,doc)
           '
     Call uidoc.gotofield("Titel")
     '.... hier der Import      
     Call uidoc.save
     Call uidoc.close
     Set doc=coll.getnextdocument(doc)
Loop
Messagebox "Weiter" 'nur für Test

Hat irgendjemand eine Idee, wie man die sofortige Ausführung erzwingen kann ?

Gruß
Andreas

[doliman]

Hi,

hatte so ein ähnliches Problem beim Drucken mehrer gleicher Dokumente. Mein Workaround war, daß ich die Schleife auf 20 Dokumente begrenzt habe und der Client dann nicht abschmiert.
Wenn aber eine besser Möglichkeit gefunden wird würde die mich auch interessieren.

[rar]

Ich hatte das Problem auch! Aber unter 4.6. ich wollte mehrere Dokumente aufmachen, bearbeiten und wieder schließen aber bei 7 (glaub ich) war Schluß.

Ich habe mein Problem so gelöst:
Als erstes habe ich die Maske, mit der das Dokument geöffnet werden soll kopiert, sie umbenannt (z.B: EditForm) und ins Queryopen '@Command(FileCloseWindow)' geschrtieben.
Dann habe ich das Dokument so geöffnet:

doc.Form = "EditForm"
Set uidoc = ws.EditDocument(False, doc)
.....
doc.form = "Form"
Call doc.save (True,True)
Call uidoc.Close()

Es ist zwar nich schön, aber mir hats geholfen. Vielleicht klappts bei Dir auch.
lg
-rar