Hi
ich bin mal wieder am verzweifeln und hoffe das mir hier jemand helfen kann oder das zumindest durch die richtigen Fragen ich vielleicht mal wieder selbst meine Dummheit erkenne.
Ich hae einen Agenten der Auftragswerte pro Monat addieren soll und in ein anderes Dokument updatet.
Hier einige Ausschnitte:
Code
'Ermitteln des Auftragswertes aus den Positionen
Dim sess As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidb As NotesUIDatabase
Dim db As NotesDatabase
Dim view As NotesUIView
Dim colbud As NotesDocumentCollection
Dim docbud As NotesDocument
Dim colreq As NotesDocumentCollection
Dim docreq As NotesDocument
Dim nam As NotesName
'Holen aktuelle Ansicht und Datenbank
Set view = ws.CurrentView
Set db = sess.CurrentDatabase
'Holen alle ausgewählten Dokumente
Set colbud = view.Documents
'Erstes Dokument holen
Set docbud = colbud.GetFirstDocument
'Alle ausgewählten Dokumente durchlesen
While Not (docbud Is Nothing)
'Alle zugehörigen Aufträge holen
Set nam = sess.CreateName(docbud.NotesName(0))
Set colreq = db.Search({Form = "Request.fo" & EmployeeAccount = "} & nam.Common & {" & Trash = 0 & RequestStatus > "0" & RequestType != "3"},Nothing,0)
Alles anzeigen
Die letzte Zeile ist da wo es seltsam wird. Dieser search liefert mir Dokumente zurück die ich sonst nicht in der Datenbank finde. Ich habe eine Ansicht komplett ohne Einschränkung und auch da sind die Dokumente definitiv nicht drin.
Gibts da einen Trick wie ich diese Dokumente filtern kann oder doch angezeigt bekomme? Nein es sind keine Replizierkonflikte.