Leserfeld setzen im Script

[rasacani]

Hallo zusammen

Ich versuche aus einer Datei Sätze in eine Datenbank einzulesen.
Nach langem hin und her klappt es auch, aber ich habe meine Probleme mit dem Leserfeld.

Nach dem Lesen hier im Forum seh ich nun den Wald vor lauter Bäumen nicht mehr.


Sub Initialize
   Dim sap_pnr As String*8
   Dim sap_name As String*40
   Dim sap_vname As String*40
   Dim sap_von As String*10
   Dim sap_bis As String*10
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   
   Set db = session.CurrentDatabase
   
   Chdrive("l:\Transferdaten")
   
   Open "zwazreiselotus.dat" For Input Access Read As #1
   
   While Not Eof(1)
      Input #1,  e_satz$
      sap_pnr = Mid$(e_satz$, 1,    
      sap_name = Mid$(e_satz$, 10, 40)
      sap_vname = Mid$(e_satz$, 51, 40)
      sap_von = Mid$(e_satz$, 92, 10)   
      sap_bis = Mid$(e_satz$, 103, 10)   
      
      Set note = db.createdocument
      Call note.replaceitemvalue("form", "TravelRequest")
      note.LastName = Rtrim(sap_name)
      note.FirstName = Rtrim(sap_vname)
      note.start = Datevalue(sap_von)
      note.end = Datevalue(sap_bis)

      note.DocReaders = "[Prog]"      
      Call note.save(True,False)
   Wend
   Close #1
End Sub


Mein Feld DocReaders wird kein Leserfeld. Ich habe es auch schon mit verschiedenen Versionen von

    Dim item as new Notesitem (...

probiert, bekomme aber immer Script-Fehler



Vieleicht erbarmt sich doch noch einer mir zu helfen.


Gruß Rainer

[m3]

Was sagt denn das "IsReaders" Property vom DocReaders Feld? True oder False?

[Axel]

Versuch's mal so   


Dim item As NotesItem
...
Set item = New NotesItem( note, "DocReader", "[Prog]", READERS )
item.IsReaders= True
...

Axel

[rasacani]

Danke

Axel's Lösung klappt super. Ich war mit meinen Versuchen doch nicht so weit weg von der Lösung, aber man sollte das Dim item.... nicht vergessen.

Rainer