Dokument erstellen, öffnen und beantworten

1. offizieller Beitrag

    Tach zusammen,


    bin neu hier und habe folgendes Problem:


    Ich erstelle ein Dokument aus einer Ansicht mit:
    Sub Click(Source As Button)
    Dim ws As New notesuiworkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim collection As notesdocumentcollection
    Dim newdoc As NotesDocument
    Dim uidoc As notesuidocument
    Set db = session.CurrentDatabase
    Set newdoc = db.createdocument
    With newdoc
    .form = "Ereignis"
    .Feld1 = "1"
    ......
    End With
    Set uidoc = ws.EditDocument( True, newdoc)
    End Sub


    Das Dokumet öffnet und ich kann es bearbeiten.


    Im Dokument befindet sich nun eine Schaltfläche, aus der ich ein Antwortdokument erstellen kann.


    Formel
    @If(@Command([FileSave]);@True;@Return(""));
    @Command([Compose]; "";"Maßnahme")


    Es erscheint der Fehler:
    "Kein Dokument ausgewählt. Wählen Sie ein Dokument zur Bearbeitung.".


    Was mache ich falsch? Gehe ich raus und wieder rein, funktioniert es.


    DANKE für die Hilfe


    Ein verzweifelter Fritz

    Das tue ich doch in meiner Schaltfläche.
    @If(@Command([FileSave]);@True;@Return(""));
    @Command([Compose]; "";"Maßnahme")



    Habe ich auch ins Script eingebaut, funktioniert aber nicht.

    OK, sorry. Hab ich übersehen.


    Antwortdokumente erstellt man mit @Command([ComposeWithReference]; server : database ; form ; flags)


    Aus der Online-Designer-Hilfe:

    Zitat


    This example, when triggered from an action button on a form, checks if the current document has been saved. If not, it saves it, then opens the "responseDoc" response document, including the body of the main document in a collapsible section.

    Code
    @If(@IsNewDoc;@Do(@Command([FileSave]); "");
@Command([ComposeWithReference];"";"responseDoc")

    Sorry, aber ich denke das gibt es erst ab R6.
    Bei mir sagt er, "Unbekanntes Schlüsselwort [ComposeWithReference]"


    P.S. Bin auch im falschen Forum-Bereich. Ich arbeite mit R5.

    OK, als R5. Ev. kann ein Admin ja den Fred verschieben.


    Zu Deinem Problem: Es steht aber in der R5 Admin-Hilfe explizit drinnen: "When you compose a response document, make sure a database is open and a document is already selected at the view level." Du wirst also nicht umhin kommen, einen View zu öffnen, dort das Dokument zu markieren und erst dann das Compose aufzurufen.

    • Offizieller Beitrag

    Beitrag von R4.x Entwicklung nach R5.x Entwicklung verschoben.


    Gruß
    Dirk

    Rein logisches Denken verschafft uns keine Erkenntnis über die wirkliche Welt.
    Alle Erkenntnis der Wirklichkeit beginnt mit der Erfahrung und endet mit ihr.
    Alle Aussagen, zu denen man auf rein logischen Wegen kommt, sind, was die Realität angeht, vollkommen leer.
    Albert Einstein

    OK, so funktioniert es und ich kann die Antwort direkt aus dem erstellten Dokument erstellen:


    Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument

    Set uidoc = workspace.ComposeDocument ( "", "", "Ereignis" )

    Set doc = uidoc.Document
    doc.Feld1 = "1"
    ...
    Call doc.ComputeWithForm( False, False )

    End Sub



    Gruß
    Fritz