Hallo und einen Guten Morgen,
Ich habe da ein Problem und hoffe ich kann mich klar genug ausdrücken.
Ich habe eine Maske (Maske A) indem in einem Richtextfeld eine Tabelle mit Inhalt aufgebaut wird beim öffnen. Dieser Inhalt zieht die Maske sich aus anderen Dokumenten (Maske B).
Soweit so gut.
Jetzt habe ich in Maske A einen Button um ein neues Dokument (Maske B) zu erstellen und möchte das beim drücken die Maske A sich schließt. Läuft auch noch.
Nun wollte ich das wenn man Maske B schließt wieder zurück in das alte Dokument kommt. Dies habe ich mit folgendem Code realisiert.
Dim doc3 As NotesDocument
Set doc3 = db.GetDocumentByUNID(doc.mutter(0))
Call workspace.EditDocument(True,doc3)
Nun das Problem ich komme zwar in die Maske A wieder zurück, jedoch wird mein Richtextfeld nicht aktualisiert und eer speichert die Maske B in jedem Fall. auch wenn man die Maske nur schließt.
Wie gesagt in erster Linie frage ich mich warum der oben genannte Code die Maske B in jedem Fall speichert....
Ich hoffe auf hilfe
VIELEN DANK
CU
C_T
Dies ist der Code aus dem Button aus Dokument A um ein Dokument B zu erstellen.
Dim doc2 As NotesDocument
Set doc2 = db.CreateDocument
doc2.form = "mProtokoll"
doc2.mutter = doc.UniversalID
doc2.Projektnummer = doc.Projektnummer
doc2.Art = "Entwicklungsprozess"
Call uidoc.Save
Call uidoc.Close
Call workspace.EditDocument(True,doc2)
habe nun auch nochmal nachgeschaut ob ich was im Dokument B übersehen habe, jedoch sind die 3 zeilen die ich oben gepostet habe die einzigen Zeilen Code in dem Dokument.
Nochmal
Ich habe Doc A dort drücke ich auf einen Button um ein Antwortdokument Doc B zu erstellen.
Button:
Dim docB As NotesDocument
Set docB = db.CreateDocument
docB.form = "mProtokoll"
docB.mutter = doc.UniversalID
docB.Projektnummer = doc.Projektnummer
docB.Art = "Entwicklungsprozess"
Call uidoc.Save
Call uidoc.Close
Call workspace.EditDocument(True,docB)
Schließe ich nun Doc B kommt man wieder auf Doc A
Query Close:
Dim docA As NotesDocument
Set docA = db.GetDocumentByUNID(docB.mutter(0))
Call workspace.EditDocument(True,docA)
Das Problem ist das immer wenn ich Doc B schließe wird dieses gespeichert auch wenn ich einfach mit dem x oder mit nem Button (@Command([FileCloseWindow])) schließe.
Ist damit klar was ich mit Doc A und B meinte?
Was brauch Ihr noch an Infos?
P.S.
@DAU-in: Ja sind von mir erstellt.
@Axel: die Bezeichnungen sollten nun eindeutig sein
Dein Code ist unvollständig!
docB.mutter = doc.UniversalID
Eventuell möchtest Du im DocB das Feld SaveOptions auf "0" setzten.
Sry dass es so auf die Vermutung gekommen ist das der Code unvollständig ist.
Die Deklarationen sind natürlich vorhanden nur dachte ich das es nicht nötig ist diese zu posten.
Also DOK B:
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
Button DOKA:
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