Domino 9 und frühere Versionen > Entwicklung

Antwort-Dokumente

<< < (7/8) > >>

Rob Green:
heisst aber, daß Du das Doc doch speicherts, auch wenn DAU sich verklickt?

Da hätte ich übrigens - wenn es das ist - auch nen Ansatz...beim ersten Speichern im Backend ein Flag setzen, daß quasi auf Bestätigung wartet. Wenn das nicht durch eine zweite Speicherung im Frontend über den Userzugriff erfolgt (also UIDOC wird im Zielframe geladen, und umgehend per ESC vom User geschlossen), bleibt das Flag auf "to_delete" und ein Agent löscht ZB das Doc oder man versucht es im QueryClose dann zu removen, wenn User ESC gedrückt hat.

ah joo, als Gegenleistung für die Hilfe unsererseits: poste doch mal bitte den Codeschnippsel zur Erzeugung im Zielframe aus dem Quellframe heraus...dürfte einige evtl. interessieren, da es recht nützlich ist.

Gruenkohl:
Den Code zur erzeugung von was?  ???


Achja, hast du ne Ahnung, wie ich mir in ner Ansicht nur die Antwortdokumente anzeigen lassen kann?

Wenn ich als Formel z.B.:

Select Form = "Response" | @AllDescendants

Bekomme ich kein Dokument angezeigt!

harkpabst_meliantrop:
Mit der Spalteneigenschaft "Nur Antwortdokumente anzeigen" für alle Spalten?

Rob Green:
@gruenkohl..

mit "Code" meinte ich das Progrämmchen, was Du nun geschrieben hast, worüber mittlerweile x Postings geschrieben wurden, um Dein Response im Zielframe zu erstellen  :P

Gruenkohl:
Ah  ;),

hier der Code aus dem Button zum erstellen:

Dim w As New NotesUiWorkspace
     Dim session As New NotesSession
     Dim DB As NotesDatabase
     
     Set Db = session.currentdatabase
     Dim doc As NotesDocument
     Dim aDoc As New NotesDocument(DB)
     Dim uidoc As NotesUiDocument
     Set doc = session.DocumentContext
     If doc.Form(0) = "frmKunden" Then
           DocID = doc.fdokid(0)
           aDoc.Form = "frmAnsprechpartner"
           If aDoc.fdokid(0) = "" Then aDoc.fdokid = DocID
           aDoc.Save True, True
           Call w.SetTargetFrame("fraBody")
           Set uidoc = w.EditDocument( True, aDoc)
     Else
           Msgbox "Bitte wählen Sie einen Kunden aus!"
     End If

Und hier der Code zum Speichern:

Dim w As New NotesUiWorkspace
     Dim s As New NotesSession
     Dim Doc As NotesDocument
     Dim Doc2 As NotesDocument
     Dim uidoc As NotesUiDocument
     Dim view As NotesView
     Dim db As NotesDatabase
     
     Set db = s.CurrentDatabase
     Set view = db.GetView("vwKunden")
     Set uidoc = w.currentDocument
     docid = uidoc.fieldGettext("fdokid")
     Set doc = view.GetDocumentbyKey(docid,True)
     If doc Is Nothing Then
           Msgbox "Es wurde kein Haupt-Doc gefunden"
     Else
           Set doc2 = uidoc.document
           Call doc2.MakeResponse( doc )
           Call doc2.save (True, True)
           Call uidoc.FieldSettext("SaveOption","0")
Hier müsste man dann noch das dok schließen
     End If

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete