Autor Thema: neu erstellten Items werden in einer Ansicht nicht angezeigt  (Gelesen 1329 mal)

Offline sja

  • Senior Mitglied
  • ****
  • Beiträge: 328
  • Geschlecht: Weiblich
  • Ich liebe dieses Forum!
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)
« Letzte Änderung: 30.03.09 - 11:42:14 von sja »

Glombi

  • Gast
Re: neu erstellten Items werden in einer Ansicht nicht angezeigt
« Antwort #1 am: 20.03.09 - 16:08:38 »
Haben die Items das Summary Flag?

Falls nicht, können die Werte nicht in Ansichten angezeigt werden. In diesem Fall musst Du das IsSummary noch explizit setzen.

Andreas

Offline sja

  • Senior Mitglied
  • ****
  • Beiträge: 328
  • Geschlecht: Weiblich
  • Ich liebe dieses Forum!
Re: neu erstellten Items werden in einer Ansicht nicht angezeigt
« Antwort #2 am: 20.03.09 - 16:17:22 »
hallo Glombi,

es funktioniert!

herzlichen Dank!

Sofia


 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz