Antwortdokumente per Button erstellen

[arieger]

Hallo,

wär hat mir einen Tipp ? 

Ziel wäre gewesen: Ich möchte aus einem geöffnetem Dokument(Formular1) per Button ein Antwortdokument(Formular2) erstellen, wobei das 1. Formular sowie das 2. Formular dann geöffnet bleiben soll, bis der User mit dem Ausfüllen fertig ist und es dann selbst schließt. Danach stehen die Dokumente nach Vorgangsnummer schön untereinander und eingerückt.

Mein Problem: wenn ich aus Formular 1 den mit LS-Button das 2. Formular öffnen will, die Fehlermeldung bekomme, daß ich ein Dokument zur Beantwortung wählen muß. Wie wähle ich dieses Formular1 (eigentlich current) selbst an, da ist ja auch der Button??? Gibt es womöglich noch eine ganz andere Lösung?

AUf jeden Fall vielen Dank für jeden Tipp bereits im Vorraus.

LS-Script:
   Dim ws As NotesUIWorkspace
   Set ws = New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Set uidoc=ws.CurrentDocument
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim dbz As NotesDatabase
   Dim NewDoc As NotesDocument
   
   Dim Z1 As String
   Dim Z2 As String
   Dim Z3 As String
   usw.

   Set db= session.CurrentDatabase
   Set Newdoc = db.CreateDocument   
   
   Z1 =uidoc.FieldGetText("PN")
   Z2 =uidoc.FieldGetText("Kundenname")
   usw.
   
   Let NewDoc.Form="UA"
   Let NewDoc.PN=Z1
   Let NewDoc.Kundenname=Z2
                usw.
   Call NewDoc.Save(True,True)   
   
   Set db = session.GetDatabase(Z15, Z16, False)
   Call ws.OpenDatabase( Z15, Z16, "Start",   "Current", False, False )
   'Call ws.EditDocument(True, Newdoc)
   'Call NewDoc.Save(True,True)   
   
   Call ws.ComposeDocument( "", "", "UA" )   
    usw.

[ascabg]

Hallo,

Schon mal

Code

Call doc.MakeResponse(NotesDocument)

angesehen.


Andreas

[arieger]

Hallo Andreas,

Superidee - das war die Lösung. Ich kannte diesen Befehl gar nicht.

 

Vielen Dank und viele Grüße
Anton