Domino 9 und frühere Versionen > ND7: Entwicklung

Dokumente Öffnen und Richt text Felder

<< < (6/9) > >>

DerAndre:
Der war heute noch garnicht da...  ;)

Axel:

--- Zitat von: DerAndre am 16.08.07 - 09:50:41 ---Hm weiß ich jetzt nicht, es wird ja docb.form = "mProtokoll" zugewiesen. Wann zieht das?

--- Ende Zitat ---

Nach dem Anlegen des neuen Dokumentes.



--- Zitat von: DerAndre am 16.08.07 - 09:50:41 ---Mein Fisch sagt, das es eine Backend, Frontend Geschichte ist.

--- Ende Zitat ---

Schwer zu sagen. Glaube ich fast nicht. Bei mir funktioniert das Ganze ja so wie es beschrieben wurde. Ich habe den Code allerdings um die Deklarationen der fehlenden Variablen ergänzt.


Axel

DerAndre:
Also:

Option Declare einfügen.

Und

Wenn ich das Richtig verstanden habe: Wenn es in der Maske mProtokoll ein SaveOptions := 0 gibt zeigt es auch seine Wirkung.

Ich muß zu meiner Schande gestehen, daß ich mir um diesen Punkt noch nie Gedanken gemacht habe.

C_T:
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:

--- Code: ---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

--- Ende Code ---


Button DOKA:

--- Code: ---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
--- Ende Code ---

Driri:
Ich habe jetzt nicht alles gelesen, aber hier dürfte doch wohl ein Denk- oder Tippfehler sein :


--- Zitat ---Set doc3 = db.GetDocumentByUNID(doc.mutter(0))
Call workspace.EditDocument(True,doc)

--- Ende Zitat ---

Du holst das ParentDocument, öffnest dann aber das gleiche Dokument noch einmal. D.h. Du hast ein und das selbe Dokument (doc) zweimal im Frontend offen.


Edit :

Nach meinem Posting wurde der Code oben korrigiert.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete