Autor Thema: Folder References bei Antwortdokumenten  (Gelesen 1470 mal)

Offline pl001

  • Aktives Mitglied
  • ***
  • Beiträge: 170
Folder References bei Antwortdokumenten
« am: 18.04.05 - 10:17:57 »
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

Viele Grüsse
Peter
« Letzte Änderung: 18.04.05 - 10:44:15 von pl001 »

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Folder References bei Antwortdokumenten
« Antwort #1 am: 18.04.05 - 11:01:30 »
Hi,

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


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline pl001

  • Aktives Mitglied
  • ***
  • Beiträge: 170
Re: Folder References bei Antwortdokumenten
« Antwort #2 am: 18.04.05 - 11:03:35 »
@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

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Folder References bei Antwortdokumenten
« Antwort #3 am: 18.04.05 - 11:42:14 »
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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline pl001

  • Aktives Mitglied
  • ***
  • Beiträge: 170
Re: Folder References bei Antwortdokumenten
« Antwort #4 am: 18.04.05 - 11:56:02 »
Vielen Dank! Funktioniert aber leider auch nur bei den Hauptdokumenten. Bei Antowrtdokumenten meldet das Script immer noch "No References in this document....".

Gruß
Peter

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Folder References bei Antwortdokumenten
« Antwort #5 am: 18.04.05 - 12:26:33 »
Hi,

wird den die Variable parent sauber gesetzt? Überprüf' das doch mal mit dem Debugger.


Axel
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline pl001

  • Aktives Mitglied
  • ***
  • Beiträge: 170
Re: Folder References bei Antwortdokumenten
« Antwort #6 am: 18.04.05 - 12:27:35 »
Ich denke es liegt wohl eher an dem "Then Goto Empty".

Peter

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re: Folder References bei Antwortdokumenten
« Antwort #7 am: 18.04.05 - 13:20:18 »
Hi,

ja schon, aber Goto Empty wird nur ausgeführt wenn r leer ist.

Ändere doch mal die ForAll - Schleife ab und füge nur mal eine Messagebox ein.


          Forall r In parent.FolderReferences
              MsgBox r
          End Forall     

Axel
 
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline pl001

  • Aktives Mitglied
  • ***
  • Beiträge: 170
Re: Folder References bei Antwortdokumenten
« Antwort #8 am: 18.04.05 - 13:51:01 »
Habe es wie folgt gelöst:

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
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)
If Not doc.IsResponse Then
Forall r In doc.FolderReferences
If r = "" Then Goto Empty
szReference = r & Chr(10) & szReference
End Forall
End If
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

Gruß
Peter

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz