Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: rasacani am 14.12.05 - 10:10:50
-
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, 8)
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
-
Was sagt denn das "IsReaders" Property vom DocReaders Feld? True oder False?
-
Versuch's mal so
Dim item As NotesItem
...
Set item = New NotesItem( note, "DocReader", "[Prog]", READERS )
item.IsReaders= True
...
Axel
-
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