Autor Thema: [Dringend] Problem mit NotesDocumentCollection  (Gelesen 2481 mal)

Offline Darkface

  • Junior Mitglied
  • **
  • Beiträge: 71
  • Geschlecht: Männlich
  • I see You next life !!
[Dringend] Problem mit NotesDocumentCollection
« am: 23.09.02 - 11:37:23 »
Hallo zusammen,
wie kann ich in einer NotesDocumentCollection nur die Documente der Maske "X" einlesen.
Diese Abfrage brauche ich in einem Agenten der im hintergrund läuft.

Ich danke schonmal für jede Hilfe.

Gruß
Darkface
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Rob Green

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 2.651
  • Geschlecht: Männlich
    • Meipor
Re: [Dringend] Problem mit NotesDocumentCollection
« Antwort #1 am: 23.09.02 - 11:51:00 »
"wie kann ich in einer NotesDocumentCollection nur die Documente der Maske "X" einlesen. "

um das vorher bereits abzufangen und nicht erst nachträglich Docs zu eine Collection hinzufügen zu müssen:

This script reminds project participants of their due date by mailing them a Project document from a database. The ReminderDate item on each document is used to indicate when a reminder should be sent. The Search method gets all Project documents whose ReminderDate item is set to today, mails the document, and updates the ReminderDate field to one week later.
Sub Initialize
 Dim db As New NotesDatabase("","reminder.nsf")
 Dim collection As NotesDocumentCollection
 Dim doc As NotesDocument
 Dim dateTime As New NotesDateTime("12/01/94")
 Dim nextDateTime As NotesDateTime    
 searchFormula$ = "Form = ""Project"" _
               & ReminderDate = @Today"
 Set collection = db.Search(searchFormula$,dateTime,0)


Und wenn Du - was Du leider nicht näher erläutert hast - bereits alle Docs aus einer View ausgelesen hast, dann halt über ne

fixiertes Doc
....
form=doc.form(0)
IF form="ABC" Then
mach diese
Else
mach jenes
...
nächstes Doc
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »
Vielleicht verdirbt Geld wirklich den Charakter.
Auf keinen Fall aber macht Mangel an Geld ihn besser.
(John Steinbeck)

Meiporblog: http://www.meipor.de/blog
allg. Unternehmerblog: http://www.m-e-x.de/blog

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Re: [Dringend] Problem mit NotesDocumentCollection
« Antwort #2 am: 23.09.02 - 11:52:50 »
Mal so aus dem Kopf:

Dim s as New NotesSession
Dim db as NotesDatabase
Set db = s.CurrentDatabase
Dim dateTime As New NotesDateTime( "01/01/70" )
Dim selection As String
Dim collection As NotesDocumentCollection
selection = "@Contains( FORM; ""X"" )"
Set collection = db.Search( selection, dateTime, 0 )

eknori

uups, da war jemand schneller
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline Zimmi

  • Aktives Mitglied
  • ***
  • Beiträge: 166
  • Geschlecht: Männlich
  • I love YaBB 1G - SP1!
Re: [Dringend] Problem mit NotesDocumentCollection
« Antwort #3 am: 23.09.02 - 11:54:41 »
Hallo,

das Ganze lässt sich auch über eine versteckte View mit der entsprechenden Viewselection realisieren und läuft auch recht schnell, da hier nicht die Collection erst zusammengebaut werden - außer du versuchst verschiedene Masken per Agent abzufragen, da kann das natürlich ein wenig umfangreich werden ...

Grüße von Zimmi
« Letzte Änderung: 01.01.70 - 01:00:00 von 1034200800 »

Offline Darkface

  • Junior Mitglied
  • **
  • Beiträge: 71
  • Geschlecht: Männlich
  • I see You next life !!
Re: [Dringend] Problem mit NotesDocumentCollection
« Antwort #4 am: 23.09.02 - 12:10:29 »
Super danke es hat funktioniert.

Danke an alle.

Gruß
 Darkface

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz