Domino 9 und frühere Versionen > Entwicklung

Folder References bei Antwortdokumenten

(1/2) > >>

pl001:
Hallo,

mit Interesse habe ich das Posting "[Views&Folder] Folder References - In welchem Ordner ist das jeweilige Dokument?" gelesen und umgesetzt.

Doch leider habe ich das Problem, dass folgendes Script nur bei Hauptdokumenten funktioniert. Gibt es eventuell auch eine Möglichkeit das Script entprechend abzuändern, dass bei Antwortdokumenten der Ordner des Hauptdokuments angezeigt wird?

Hier das Script:

--- Code: ---Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim szReference As String
 
  Set db = session.CurrentDatabase
 
  Set collection = db.UnprocessedDocuments
 
  Set doc = collection.GetFirstDocument
 
  Forall r In doc.FolderReferences
     If r = "" Then Goto Empty
     szReference = r & Chr(10) & szReference
  End Forall     
 
  While Not (doc Is Nothing)
     Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
     Set doc = collection.GetNextDocument(doc)  'Nächstes Dokument
  Wend
 
  Exit Sub
 
Empty:
  Msgbox "No References in this document....", 64, db.title
 
End Sub
--- Ende Code ---

Viele Grüsse
Peter

Axel:
Hi,

bei Antwortdokumenten kannst du mit der Eigenschaft ParentDocumentUNID die ID des Hauptdokumentes auslesen und anhand dieser ID das Dokument suchen.


Axel

pl001:
@Axel

Danke, nur leider kenne ich mich mit LotusScript nicht aus. Daher wäre ich für einen entsprechenden Lösungsansatz dankbar.

Viele Grüsse
Peter

Axel:
Hi,

ich hab mal auf die Schnelle was zusammengebastelt. Ich hoffe es funktioniert.

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim collection As NotesDocumentCollection
  Dim doc As NotesDocument
  Dim szReference As String
  Dim szDocID As String
  Dim parent As NotesDocument

  Set db = session.CurrentDatabase
 
  Set collection = db.UnprocessedDocuments
 
  Set doc = collection.GetFirstDocument
 
  While Not (doc Is Nothing)

     Forall r In doc.FolderReferences
        If r = "" Then Goto Empty
        szReference = r & Chr(10) & szReference
     End Forall     

     If doc.IsResponse Then
        szDocId = doc.ParentDocumentUNID
        Set parent = db.GetDocumentByUNID(szDocID )
          Forall r In parent.FolderReferences
               If r = "" Then Goto Empty
               szReference = r & Chr(10) & szReference
          End Forall     
     End If
     Msgbox "Folder References: " & Chr(10) & Chr(10) &szReference, 64, db.title
     Set doc = collection.GetNextDocument(doc)  'Nächstes Dokument
  Wend
 
  Exit Sub
 
Empty:
  Msgbox "No References in this document....", 64, db.title
 
End Sub


Axel

pl001:
Vielen Dank! Funktioniert aber leider auch nur bei den Hauptdokumenten. Bei Antowrtdokumenten meldet das Script immer noch "No References in this document....".

Gruß
Peter

Navigation

[0] Themen-Index

[#] Nächste Seite