Antwortdokument in einem Rahmen erzeugen

[DerAnfänger]

Hallo,

ich stricke gerade mit Rahmen/Frames eine Datenbank, die Haupt- und Antwortdokumente enthält. Ich habe an verschieden Stellen (Ansicht, Hauptdokument) die Möglichkeit ein Antwortdokument zu erstellen.

Für das Erstellen eines Hauptdokuments funktioniert dies ohne Probleme. Für den Antwort-Button der, bis auf Dokumentenart (Antwort), genauso aussieht wie der Hauptdokument-Button funktioniert dies nicht, weder Ansicht noch aus dem Hauptdokument. Es passiert einfach nichts. Es steht an allen erdenklichen Stellen, dass der Rahmen verwendet werden soll.

Der Antwort-Button hat folgende Formel:

Code

@SetTargetFrame("Datenbereich");
@Command([Compose];"Version")

Der Aufruf eines existierenden Antwortdokuments funktioniert ohne Probleme. Also muss es mit dem erstellen zusammenhängen.

Habt ihr eine Idee? Danke im voraus.

DerAnfänger

[klaussal]

Könnte es daran liegen ?

Wenn Sie ein Antwortdokument erstellen, muss eine Datenbank geöffnet und ein Dokument in der Ansichtsebene bereits ausgewählt sein.

[DerAnfänger]

Beides ist aber gegeben. Entweder ist in der Anicht ein Hauptdokument ausgewählt oder das Hauptdokument ist offen. Sollte also ausreichen.

[klaussal]

Was passiert, wenn du den settargetframe weglässt ?

Evt. mit @postedcommand arbeiten ?

[DerAnfänger]

Hi,

Danke schonmal für deine schnelle Hilfe.

@PostedCommand / @Command macht keinen Unterschied.

Wenn ich @SetTargetFrame weg lasse, dann öffnet er die Rahmengruppe mit der Ansicht in einem neuen Fenster. Das kann ich beliebig wiederholen, es werden immer mehr Fenster.

[ch]

Hallo,
bei mir lag es daran das das zu erstellende Dokument ein Antwortdokument ist.
Ich habe es über eine Aktion in der View per Script gelöst.
Hoffe das hilft.

lg claudia


Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim uiview As NotesUIView
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim docP As NotesDocument
   Dim doc As NotesDocument
   Dim uidocAW As NotesUIDocument
   Set uiview = ws.CurrentView
   Set db =  session.CurrentDatabase
   Set docP = db.GetDocumentByID(uiview.CaretNoteID)
   
   Set doc = db.CreateDocument
   doc.form= "Formular Basic"
   Call doc.MakeResponse(docP)
   Call doc.Save(True,False)
   Call ws.SetTargetFrame("rdata")
   Set uidocAW = ws.EditDocument(False, doc, False,,False)
   
End Sub