Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: wuwu am 02.03.05 - 08:02:55

Titel: GetAllDocumentsByKey will nicht funktionieren!
Beitrag von: wuwu am 02.03.05 - 08:02:55

Hallo,

ich möchte über einen Button eine Ansicht mit Anwortdokumenten durchlaufen, der Key ist die eindeutige Dokumenten ID des Hauptdokumentes.
Er sollte nur die Dokumente bzw. Einträge der Anischt in der Messagebox anzeigen die zum Hauptdokument gehören aber er spuckt mir in der Messagebox ale Einträge der Anscht aus, warum?

Bild 1: Anischt -> Kategorisiert nach @Text($REF)
Bild2: Ergebnis -> Messagebox

Ich hoffe es kann mir wer helfen!
Mfg Horst
---------------------------------------------------
Sub Click(Source As Button)
   On Error Goto handler   
   
   Dim session As New NotesSession
   Dim db As NotesDatabase   
   Dim dc As NotesDocumentCollection   
   Set db = session.CurrentDatabase   
   
   Dim view As NotesView
   Dim doc As notesdocument
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim org_doc As NotesDocument
   Set uidoc = ws.CurrentDocument
   Set org_doc = uidoc.Document
   
   Dim key As Variant
   key = org_doc.UniversalID
   
   Set view = db.GetView("$pm1")
   Set doc = view.GetFirstDocument
   Set dc = view.GetAllDocumentsByKey(key, True)
   
   Dim var As Variant
   
   Do Until doc Is Nothing
      var = var & doc.special_cost(0) & Chr(10)
      Set doc = view.GetNextDocument(doc)
   Loop
   Messagebox (var)
   Exit Sub
   
handler:
   Msgbox Error() & " / Zeile: " & Erl() & " (Modul:QuerySave)"
   Exit Sub
End Sub

Titel: Re: GetAllDocumentsByKey will nicht funktionieren!
Beitrag von: animate am 02.03.05 - 08:08:06

Sag mir mal bitte schnell, an welcher Stelle du ein Dokument aus der Collection holst und den gewünschten Wert ausliest...

Titel: Re: GetAllDocumentsByKey will nicht funktionieren!
Beitrag von: dirk_2909 am 02.03.05 - 08:16:34

@wuwu

Du musst in deiner Schleife über die Collection gehen und nicht über die view!


Set doc = dc.getFirstDocument
While Not( doc is Nothing )

'### here your code

   Set doc = dc.getNextDocument( doc )
Wend


Dirk

Titel: Re: GetAllDocumentsByKey will nicht funktionieren!
Beitrag von: wuwu am 02.03.05 - 08:42:10

Hallo Dirk,

 :D :D :D, Danke für deine Tip, es funktioniert!!!
Ich bin noch nicht so fit in Script, bin aber gerade dabei und mir machts immer mehr Spass!

Eine Frage habe ich noch, ist es möglich in der eingebetteten Ansicht die Summe anzeigen zu lassen der Spalte? Ich sehe die Summe in der Ansicht aber nicht in der eingebetteten Anischt in der Maske!

Ich bedanke mich im vorhinein bei Dir!
Horst

Titel: Re: GetAllDocumentsByKey will nicht funktionieren!
Beitrag von: dirk_2909 am 02.03.05 - 09:05:08

Meines Wissens nach geht es nicht :-(

Ich mache das so, in dem ich in der Maske ein berechnetes Feld einbaue, das den gewünschten Wert anzeigt.
Die Berechnung erfolgt mit @DBLookUp. Viewname ist der Name der eingebetteten View, Key ist die SingleCategorie

Dirk