Hallo @All,
ich habe ganz einfache Agent, der folgendes macht:
• Einen Dokument (doc1) wird in der DB db1 ausgewählt
• Der Agent öffnet eine Ansicht „All“ aus der DB db2
• User auswählt einen Eintrag (doc2)
• In dem doc1 sollen zwei Felder erstellt werden "Kunde" und "KundeNr", welche die Werte von der Felder “CompanyName“ und “KundeNr“ aus doc2 übernehmen sollen.
Es funktioniert. Nach der Ausführung des Agentes zeigen die Eigenschaften von doc1 beide Felder "Kunde" und "KundeNr" mit übernommenen Werten, aber die Spalten "Kunde" und "KundeNr" in einem Ansicht in der db1, die das Dokument doc1 enthält, werden die Werte nicht angezeigt.
Was mache ich falsch? Vielen Dank für jede Hilfe im Voraus!
Code von Agent:
Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db1 As NotesDatabase
Dim db2 As NotesDatabase
Dim doc1 As NotesDocument
Dim doc2 As NotesDocument
Dim ItemKunde As NotesItem
Dim ItemKundeNr As NotesItem
Dim tmpSRV As String
Dim tmpDB As String
Dim tmpAB As String
Dim collection1 As NotesDocumentCollection
Dim collection2 As NotesDocumentCollection
Set s = New NotesSession
Set ws = New NotesUIWorkspace
Set db1 = s.CurrentDatabase
Set collection1 = db1.UnprocessedDocuments
Set doc1 = collection1.GetFirstDocument()
tmpSRV =db1.Server
tmpDB = "Test\Kontakte.nsf"
tmpView = "All"
Set db2 = New NotesDatabase( tmpSRV, tmpDB )
tmpAB =db2.Title
Set collection2 = ws.PickListCollection( 3 , False , tmpSRV , tmpDB, tmpView, tmpAB, "Wählin Sie einen Kontakt aus" )
Set doc2 = collection2.GetFirstDocument
If doc2 Is Nothing Then
Exit Sub
End If
Set ItemKunde = New NotesItem( doc1, "Kunde", doc2.CompanyName(0) )
Set ItemKundeNr = New NotesItem( doc1, "KundeNr", doc2.KundeNr(0) )
Call doc1.Save(True, False)