Antworten zählen.... in der Ansicht

[CLI_Andreas_Schmidt]

Hi an alle,

ich finde keine Möglichkeit um von einem Hauptdokument die Antworten zu zählen. Ich habe keine Kategorien, somit fällt die Geschichte mit Entry weg.

Hilfe.

Gruss

Andreas

[Axel]

Hi,

versuch's mal damit:

füge vor deiner Antwortspalte eine neue Spalte ein und trage diese Formel ein:

@If(!@IsResponseDoc;@DocDescendants(""; "%"; "%");"")


Axel

[Lossa]

Hallo Andreas,

ich vermute du willst die Antworten eines Dokumentes mittels eines Script zählen.
Mach doch einfach das.
1. Hol dir das Dokument
2. Set vnav = view.CreateViewNavFromDescendants(doc)
3. vnav.count

Fertig!

[CLI_Andreas_Schmidt]

Danke Ulli,

die Lösung wars. perfekt.

Deine Lösung Axel kann ich für was anderes brauchen. Also wie immer perfekt.

Danke

Gruss

Andreas

[koehlerbv]

Wenn LotusScript, dann geht es doch noch einfacher mit NotesDocument.Responses.

Bernhard

[Lossa]

@Bernhard

im Prinzip schon, aber

das liefert nur die unmittelbaren Antworten, nicht aber die Antworten mit Antworten.
Gibt es bei den Navigatorobjekten auch:
CreateViewNavFromDescendants(doc) => Alle Antworten
CreateViewNavFromChildren(doc) => Nur unmittelbare Antworten

[koehlerbv]

Jo, Du hast natürlich vollkommen recht ... Und dann noch durch die Antworten gehen und auf Antwort auf Antwort oder noch tiefer zu prüfen, macht meinen Vorschlag natürlich dann zur "etwas" komplizierteren Methode  

Bernhard (denkt das nächste Mal vorher nach)

[CLI_Andreas_Schmidt]

Die Lösung von Ullrich läuft perfekt:

Hier damit alles was davon haben.

Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim v As NotesView
   Dim doc As NotesDocument
   Dim collection As NotesDocumentCollection   
   Dim var As Integer
   Dim vnav As NotesViewNavigator
   
   Set db = s.CurrentDatabase
   Set v = db.GetView("Notes-Bearbeiter / Ausgeliefert")
   Set doc = v.GetFirstDocument
   While Not(doc Is Nothing)
      If doc.IsResponse Then
         Goto ende
      Else
         Set vnav = v.CreateViewNavFromDescendants(doc)
         var =    vnav.count
         Call doc.replaceitemvalue("Flag",var)
         Call doc.Save(True, True)
         
      End If
ende:
      Set doc = v.GetNextDocument(doc)
   Wend   


Super

Gruss

Andreas

[Semeaphoros]

Dann tust Du uns noch einen Gefallen und setzest den Thread auf erledigt?