Dokumente mit LS oeffnen und speichern

10. Oktober 2008

Wie kann ich einen agenten schreiben der die docs die in einem View gewaehlt sind ins UI oeffnet sie dan speichert und dan schliesst.

Geht das ueberhaupt?

Danke

helmie · 10. Oktober 2008

Ich geb Dir mal ein paar Stichworte:
Mit Notesdatabase.unprocessedDocuments erhälst Du die in einer View angehakten Dokumente in eine Documentcollection.
In einer Schleife alle Dokumente abarbeiten mit
Notesuiworkspace.EditDocument(aktuelles Dok. aus Schleifenvariable = UIDok)
Uidoc.save
Uidoc.close

Aber warum machst Du nicht ein ComputewithForm? Ist m.M viel performanter...

10. Oktober 2008

Danke dir Helmie,

Weill mir computewithform nen fehler zurueck gibt, und wenn ich das doc oeffne und speicher und schliesse kommt der error nicht.

Danke

10. Oktober 2008

Code

Set uidoc = dc.GetFirstDocument

Da kommt es zum problem, weil getFirstDocument NotesDocument zurueck gibt.

Danke

helmie · 10. Oktober 2008

Ja, wenn Du musst Dir erst das Doc holen mit

Code

Set Doc = dc.GetfirstDocument
set uidoc = ws.editdocument([editMode] , [notesDocument] , [notesDocumentReadOnly] , [documentAnchor$] , [returnNotesUIDocument] , [newInstance] )

taurec · 10. Oktober 2008

Ist ja wohl klar, daß das einen Fehler liefert. Das sind aber Basics, daß du einem UI Document kein Document zuweisen kannst.

Und ein ComputeWithForm gibt es auch nur im Document

10. Oktober 2008

Danke dir Helmut, es funktioniert wunderbar! SO habe ich es gemacht

Code

Dim s As New notessession
	Dim ws As New notesuiworkspace	
	Dim db As notesdatabase
	Set db = s.CurrentDatabase
	Dim uidoc As notesuidocument
	Dim  dc As NotesDocumentCollection
	Dim doc As notesdocument
	Set dc = db.UnprocessedDocuments
	Set doc = dc.GetFirstDocument
	Set uidoc = ws.EditDocument(True,doc)	
	Do While Not doc Is Nothing
		uidoc.EditMOde = True
		uidoc.refresh
		uidoc.Save
		uidoc.Close
		Set doc = dc.GetnextDocument(doc)
		If doc Is Nothing Then
			Goto theEnd
		End If
		Set uidoc = ws.EditDocument(True,doc)	
	Loop
theEnd:
	Messagebox "Alles in ordnung"

Alles anzeigen

10. Oktober 2008

Wieso kommt mir nach dem 18ten doc die error meldung
Unable to deffer document close

Hab ein bissl gegoogelt und keine richtige loesung gefunden.

Fals einer was weiss bitet melden.

Danke

Ronka · 10. Oktober 2008

Ich bin mir nicht sicher, aber sind alle Dokumente geschlossen ? Und warum machst du das über de UI ?
Du solltest lieber rausfinden Warum der computewithform ein fehler gibt, als das du es auf diesen weg versuchst.

Wie lautet den fehler ?

Ronka

15. Oktober 2008

Ich habe ein paar felder die Computed sind. Wenn ich compute with form mache werden sie nicht computed aber wenn ich es per UI mache dan geht es. Und es kommt kein fehler beim compute with form und auch nicht beim ui. Hab @iferror eingebaut.

Der error ist

Unable to deffer document close

Irgendwie schliest lotus die docs erst nach dem der script durch ist und nicht nach meienm uidoc.close

Teilen