Domino 9 und frühere Versionen > Entwicklung

Antwortdokumente mit Hauptdokument anlegen

<< < (3/4) > >>

Axel:

--- Zitat von: tuxie am 01.03.04 - 12:03:08 ---da müsste dann docResponse.Titel mit dem richtigen Feld name angepasset werden richtig?

docResponse.rub_rubrik

und natürlich die Schleife anpassen


--- Ende Zitat ---

Hi,

genau richtig.


Axel

tuxie:
An der Stelle hier

If docCurrent.Responses.Count = 0 Then

bringt LN einen Fehler (Variable not set)
müßte diese noch mit DIM eingerichtet werden.

Axel:
Hi,

poste bitte mal den gesamten Code


Axel

tuxie:
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 docCurrent.Responses.Count = 0 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,

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete