Felder übernehmen Werte aus bestehende Maske

[heidiweber]

Hallo

ich habe auf einer Maske einen Button. Wird dieser Button geklickt, so soll eine neue Maske mit Feldern aus der ursprünglichen Maske generiert werden.

Das ganze soll mit LotusScript finktionieren. Ich habe auch schon die Suche hier im Forum benutzt - aber irgendwie will das nicht...

Hier das Click-Ereignis vom Button:

Set doc = ws.CurrentDocument.Document
Set db = ws.CurrentDatabase.Database
Set newDoc = db.CreateDocument()
newDoc.Form = "projekt"
newDoc.AntragID = doc.UniversalID   
ws.EditDocument True, newDoc

Die Felder haben auf beiden Masken die selben Namen, sind berechnet und haben den selben Namen als Formel. Das Häckchen auf der "neuen" Maske: "Formeln übernehmen Werte aus gewähltem Dokument" ist auch an.

Aber trotzdem funktioniert das nicht??
Was muss da noch gemacht werden?

Vielen Dank
cu
Heidi

[Lossa]

Hallo

ist das Dokument schon gespeichert oder noch nicht?

[heidiweber]

Nein (glaube ich)

ich klicke auf den Button und es wird folgender Code ausgeführt:

Set doc = ws.CurrentDocument.Document
Set db = ws.CurrentDatabase.Database
Set newDoc = db.CreateDocument()
newDoc.Form = "projekt"
newDoc.AntragID = doc.UniversalID   
ws.EditDocument True, newDoc

Vielen Dank

[boemitsu]

Wenn's nicht gespeichert ist, sind auch keine Inhalte im Backend. Schau mal in der Eigenschaftsbox die Felder in diesem Dokument nach...da wird nichts vorhanden sein.

Bin mir nicht ganz sicher ob uidoc.fieldgettext ohne Speicherung des Backenddoc. dir die Inhalte liefert. Ansonsten halt das Backendoc. zuerst speichern (call doc.save(true,true))

[mibo11]

Wenn's nicht gespeichert ist, sind auch keine Inhalte im Backend. Schau mal in der Eigenschaftsbox die Felder in diesem Dokument nach...da wird nichts vorhanden sein.

Das ist nicht ganz richtig.

Man kann schon auch ohne Speicherung auf bestimmte Backend Inhalte zugreifen. In diesem Fall hätte es ausgereicht

die Zeile

ws.EditDocument True, newDoc

zu ergänzen durch

Dim uidoc as notesUidocument
Set uidoc = ws.EditDocument(True, newDoc)
uidoc.FieldSetText "DeinFeld",doc.GetItemValue("DeinFeld")(0)

Gruß Sascha

[heidiweber]

Vielen Dank an euch

Die Idee mit dem Speichern war nicht schlecht