Hallo,
ich möchte aus einer Maske heraus ein Antwort Dokument erstellen(Web).
Dieses Dokument soll nach click sich in einem neuen Fenster öffnen, User füllt aus und speichert es als antwort zum QuellDokument.
Ich habe schon
@If(@IsNewDoc;@Do(@Command([FileSave]); "");
@Command([ComposeWithReference];"";"Subform")
ausprobiert, aber das funktioniert anscheinend nur mit Forms.
Im Notes habe ich dass so gelöst:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim uidocA As NotesUIDocument
Dim uidocB As NotesUIDocument
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Set uidocA = workspace.CurrentDocument
Set docA = uidocA.Document
Set docB = db.CreateDocument
Call docB.MakeResponse( docA )
docB.Form = "FormXYZ"
docB.aTyp = "SubformXYZ"
docB.AdrName = docA.AdrName(0)
docB.aStatus = "Aktiv"
Set uidocB = workspace.EditDocument(True,docB)
End Sub
das funktioniert auch prima.
Gibt es eine Möglichkeit fürs Web.
Gruß
Hitcher