Hallo,

ich habe wieder mal ein Problemchen,

ich (mein Chef) möchte das beim Anlegen eines HAuptdokumentes Automatisch ein Satz Antwortdokumente als eine Art Rubriken Angelegt werden.

ich habe für beides auch die Masken erstellt, wie könnte man soetwas realisieren. In dem Antwortdokument stehen immer nur 2 Felder wo 1 berechnet ist un das Zweit mit zwei Wörter gefüllte werden.

Hat jemand eine Idee.

Hier ein Beispiel:

Hauptdokument:
Newsletter 02/2004

Antwortdokumente
News aus der IT-Abteilung
News aus der Betriebsleitung
News aus der Personalabteilung

Hier noch weitere Infos
http://www.atnotes.de/index.php?board=7;action=display;threadid=14209

TSchau Ingo

Aha, Du bist also Dein eigener Chef  

Schön wärs  

Das Hauptdokument wird richtig manuel angelegt mit einigen Feldern, und beim betätigen des Buttons Speichern soll das Hauptdokument gespeichert werden und dann die ca. 10 Antortdokumente Automatisch erstellt werden.

MAn könnte ja ein Script bauen das nach dem Speichern aufgerufen wird, dem Script wird dann die Docid übergeben und das Scirpt in form eines Agenten legt dann die Antwortdokumenta an. Soweit so gut das ganze haz nur einen Hagen   *schäm* ich kann kein LN Script und mein LN Script Lehrgang ist mangels Finanzen ausgefallen, darum bitte ich euch um Hilfestellung.

TSchau Ingo

   Set docResponse = New NotesDatabase(db)

sollte heissen:

Set docResponse = New NotesDocument(db)

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 .....

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

docResponse.rub_rubrik

und natürlich die Schleife anpassen

Hi,

genau richtig.


Axel

Hi,

poste bitte mal den gesamten Code


Axel

Hi,

irgendwie scheint es Probleme mit der Abfrage der Anzahl der Antwortdoks zu geben wenn das Dok noch nicht gespeichert wurde.

Versuch's mal so:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   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) = "Amtliche Mitteilungen / Hauptamt"
   arrTitel(1) = "Kämmerei"
   arrTitel(2) = "Ordnungsamt"
   
   Set db = session.CurrentDatabase
   Set docCurrent = Source.Document
   
 If Source.IsNewDoc Then
      For idx = 0 To 2
         Set docResponse = New NotesDocument(db)
         docResponse.Form = "rubrik"
         docResponse.rub_rubrik = arrTitel(idx)
         Call docResponse.MakeResponse(docCurrent)
         Call docResponse.Save(True,False)
      Next
   End If
End Sub


Axel

Hi,

setzt du den Thread bitte noch auf "erledigt".

Danke.


Axel