DocA = Doc?DocB = Doc2?DocA = Doc3?
docB.mutter = doc.UniversalID
Hm weiß ich jetzt nicht, es wird ja docb.form = "mProtokoll" zugewiesen. Wann zieht das?
Mein Fisch sagt, das es eine Backend, Frontend Geschichte ist.
Sub Queryclose(Source As Notesuidocument, Continue As Variant) Dim workspace As New NotesUIWorkspace Dim session As New NotesSession Dim uidoc As NotesUIDocument Dim docB As NotesDocument Dim db As NotesDatabase Set uidoc = workspace.CurrentDocument Set db = session.CurrentDatabase Set docB = uidoc.Document Dim docA As NotesDocument Set docA = db.GetDocumentByUNID(docB.mutter(0)) Call workspace.EditDocument(True,doA) End Sub
Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim session As New NotesSession Dim uidoc As NotesUIDocument Dim docA As NotesDocument Dim db As NotesDatabase Set uidoc = workspace.CurrentDocument Set db = session.CurrentDatabase Set docA = uidoc.Document Dim docB As NotesDocument Set docB = db.CreateDocument docB.form = "mProtokoll" docB.mutter = docA.UniversalID docB.Projektnummer = docA.Projektnummer docB.Art = "Entwicklungsprozess" Call uidoc.Save Call uidoc.Close Call workspace.EditDocument(True,docB) End Sub
Set doc3 = db.GetDocumentByUNID(doc.mutter(0))Call workspace.EditDocument(True,doc)
... der sucht den "save"....
Wie so absetzen nach Südamerika?Mit viel Geld kann man auch in der Schweiz "Asysl" erhalten (=eingebürgert werden) und gut leben.
Mal sehen, ob die DB noch kommt ......