hi,
ich habe hier eine db mit mehreren dokumenten. bei dieser dokumeten handelt es sich um eine db für prüfberichte. dabei soll das ganze wie folgt abgehen:
1. es werden dokumente markiert
2. diese werden dann neu erstellt (mit compose), gespeichert und gedruckt
habe mal hier gesucht, aber das was ich zu agenten und drucken gefunden haben, funz nicht bei mir (okay ich musste das ändern 
)
thx
marc
wie sieht Dein Agent jetzt aus (code)? Welcher Fehler kommt? An welcher Stelle im Agent kommt der Fehler?
Gruß
Dirk
so schauts aus (hatte nur das drucken probiert...)
Sub Initialize
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim jview As NotesView
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set jview = db.GetView("Bestellungen")
Call uidoc.Print(1)
Call uidoc.Close
End Sub
aber, so mit wenig ahnung von script
ich hatte es als formel versucht, brachte aber einen
fehler wg der verwendung von ui-befehlen
@PostedCommand([Compose];"Prüfbericht");
@PostedCommand([FileSave]);
@PostedCommand([FilePrint]);
thx
marc
so sollte es gehen. Habs nicht getestet - also bitte erst testen!
Sub Initialize
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db as NotesDatabase
set db = ws.CurrentDatabase.Database
Set uidoc = ws.ComposeDocument(db.Server, db.filename, "MaskenName") ' Dokument im Ui erstellen
Dim doc as NotesDocument
Set doc = uidoc.Document
doc.Save true, true, true ' Dokument im Backend speichern
doc.Saveoptions = "0" ' damit bei uidoc.Save nicht nach dem speichern gefragt wird
Call uidoc.Print(1)
Call uidoc.Close
End SubFalls Du fehler bekommst schalte mal den Debugger ein und poste hier die fehlerhafte Zeile.
Gruß
Dirk
Hi,
mbender
Ich habe noch nicht so richtig verstanden, was Du machen willst. Wenn Du die neuen Dokumente erstellst, mußt Du doch irgendetwas damit anfangen / reinschreiben - sonst erzeugst Du doch nur Datenmüll.
Diali
Die doc.xxxx Sequenz zwischendurch kannst Du Dir eigentlich sparen - ein uidoc.save sollte dasselbe erledigen (auch ohne Nachfrage). Zur Not kann mann ja noch ein berechnetes "SaveOptions"-Feld in die Maske aufnehmen.
Und wo genau liegt jetzt dein Problem ?
eventuell reicht es das Feld Form in "Prüfbericht" zu ändern. Je nachdem wie Ihr Eure DatenPumpe eingerichtet habt.
Ansonsten kannst Du mit
set dc = db.UnprocessedDocumentsDir alle markierten Dokumente holen und dann mit
set doc_dc = dc.GetFirtsDocument
While not doc_dc is Nothing
doc_dc.Form = "Prüfbericht"
doc_dc.Save True, true, true
set uidoc = ws.EditDocument(True, doc_dc)
Call uidoc.Save
Call uidoc.Print(1)
Call uidoc.Close
set doc_dc = dc.GetNextDocument(doc_dc)
Wendalle Dokumente durchgehen.
Gruß
Dirk
lodsnods
mit Notes 4.5 kam immer die Abfrage nach dem Speichern bei call uidoc.Save. Habe mir dann die oben genannte Version angewöhnt und nie wieder den Uidoc.Save probiert.
Er speichert 2 mal. Welche Zeile meinst Du?
doc_dc.Save True, True, True
oder
Call uidoc.Save
Gruß
Dirk
das Dokument öffnest Du schon vor der Schleife mit der Zeile
Set uidoc = ws.ComposeDocument("worksolingen/bhnord", "\brangs\Prüfberi.nsf", "Prüfbericht")
schau mal nach der Zeile
Set dc = db.UnprocessedDocuments
im Debugger nach dem Count der dc. Die muss >0 sein, damit er Dokumente bearbeitet.
Gruß
Dirk
hast Du Dokumente markiert?
Hast Du Suchkriterien in den Agenteneigenschaften stehen?
"All selected documents" ist noch als Eigenschaft drin?
Gruß
Dirk
Was ist denn eingestellt bei dem Agenten auf welche Dokumente er laufen soll ?
Eventuell könnte es daran liegen wie du dir das db-Objekt holst. Nämlich über den UIWorkspace
Probier es mal folgendermaßen:
Set ses = New NotesSession
Set db = ses.CurrentDatabase
und hol dir dann die UnprocessedDocuments
Wär sicher einfacher dir dann zu helfen