Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: CLI_Andreas_Schmidt am 10.03.04 - 12:10:28
-
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
-
Hi,
versuch's mal damit:
füge vor deiner Antwortspalte eine neue Spalte ein und trage diese Formel ein:
@If(!@IsResponseDoc;@DocDescendants(""; "%"; "%");"")
Axel
-
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!
-
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
-
Wenn LotusScript, dann geht es doch noch einfacher mit NotesDocument.Responses.
Bernhard
-
@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
-
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 ;D
Bernhard (denkt das nächste Mal vorher nach)
-
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
-
Dann tust Du uns noch einen Gefallen und setzest den Thread auf erledigt?