Domino 9 und frühere Versionen > Entwicklung

Antwortdokumente mit Hauptdokument anlegen

<< < (2/4) > >>

Axel:
Hi,

das Script könnte das ungefähr so aussehen:

...
Dim ws As New NotesUIWorkspace
Dim session as New NotesSession
Dim db As NotesDatabase
Dim docCurrent As NotesDocument
Dim docResponse As NotesDocument
Dim arrTitel(2) As String
Dim idx As Integer

arrTitel(0) = "News aus der IT-Abteilung"
arrTitel(1) = "News aus der Betriebsleitung"
arrTitel(2) = "News aus der Personalabteilung"

Set db = session.CurrentDatabase
Set docCurrent = Source.Document

If docCurrent.Responses.Count = 0 Then
  For idx = 0 to 2
    Set docResponse = New NotesDatabase(db)
    docResponse.Form = "Antwortmaske"
    docResponse.Titel = arrTitel(idx)
    Call dosResponse.MakeResponse(docCurrent)
    Call docResponse.Save(True,False)
  Next
End If
...

Das Script packst du in den QuerySave-Event. Den Masken- und die Feldnamen mußt du anpassen.

Müßte so eigentlich funktionieren.


Axel

Semeaphoros:

--- Zitat von: Axel am 01.03.04 - 11:44:33 ---    Set docResponse = New NotesDatabase(db)

--- Ende Zitat ---


sollte heissen:

Set docResponse = New NotesDocument(db)

Axel:
Hi,

upps, Fehler vom Amt. Hast natürlich recht. So kommts, wenn wenn zwei Sachen auf einmal macht (tippen und telefonieren).  :-\

*In die Ecke stee und schäm*


Axel

Semeaphoros:
Das passiert auch ohne Multitasking ........ also komm mal gleich wieder aus Deiner Ecke raus und trink nen Kaffee .........

Hier die Tasse:  UP

Leider musst Du den Henkel selber ankleben ..... :)

tuxie:
Ohh Klasse, Leute ihr seit Super :D :D ;D ;D

da müsste dann docResponse.Titel mit dem richtigen Feld name angepasset werden richtig?

docResponse.rub_rubrik

und natürlich die Schleife anpassen

TSchau Ingo

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete