Domino 9 und frühere Versionen > Entwicklung

Antwortdokumentenfelder in Hauptdokument anzeigen

(1/2) > >>

Wirsing:
Hallo zusammen,

ich habe ein Hauptdokument mit verschieden vielen Antworten.
Nun möchte ich im Hauptdokument die Antworten untereinander anzeigen lassen.
Allerdings nicht die komplette Maske, sondern nur eine Art tabellarische Zusammenfassung (z.B. Zwei Felder).

Ist soetwas möglich? Und geht es auch, dass diese Zeilen dann beim Anklicken auf das Antwortdokument verlinken?

Vielen Dank

Gruss

Wirsing

Centaury:
Zur ersten Frage: Ich würde das wahrscheinlich mit einer eingebetteten Ansicht machen. Eine Verlinkung hat man dann allerdings nicht. Das ist die simpelste Lösung, denke ich.

Wirsing:
Hab ich auch schon probiert, aber ich bekomme die Auswahlformel nicht gebacken.
Wie kann ich der Ansicht mitteilen, das ich nur die Antowrten des angezeigten Hauptdokumentes haben möchte?

Performance:
Beispiel für die erste Antwortebene:
mach dir ein RTF Feld z.B. plink
schreibe oberhalb des Feldes als Info:
Das hauptdokument hat <Computed Value1> <Computed Value2>
<Computed Value1> ==> @DocChildren("no";"1";"%")
<Computed Value2> ==> @DocChildren("Antworten";"Antwort";"Antworten")

in der Queryopen:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   
   If Not IsNewDoc Then   
      
      Dim session As New NotesSession   
      Dim workspace As New NotesUIWorkspace
      Dim docsCollChild As NotesDocumentCollection
      Dim doc As NotesDocument
      Dim docChild As NotesDocument
      Dim rtitem As NotesRichTextItem
      Dim i As Integer
      
      Set doc = Source.Document
      Set docsCollChild = doc.Responses
      
      If doc.HasItem( "plink" ) Then   
         Call doc.RemoveItem( "plink" )
      End If
      
      Set rtitem = doc.CreateRichTextItem( "plink" )
      
      For i =1 To docsCollChild.Count
         
         Set docChild = docsCollChild.GetNthDocument(i)
         
            Call rtitem.AppendDocLink( docChild , Cstr(docChild.viewTaskNr(0)) + " : " + docChild.tname( 0 ))
            Call rtitem.AppendText( " "  + docChild.tname( 0 ) )
            Call rtitem.AddNewLine( 1 )

      Next i      
      
   
   End If
   
End Sub


cu

Centaury:
Stimmt, das ist ein Problem, dass ich eben nicht bedacht habe...

Navigation

[0] Themen-Index

[#] Nächste Seite