Das Feld ist ein Notes-Item, mit einem Value - vom Typ Variant - String. Weiß nicht, ob ich das wirklich gut beschrieben habe, hoffe aber das es eingermaßen verständlich ist.
Der andere Code mit uidoc.Document.GetItemValue klappt leider nicht :-(
Aber hier nochmal das Script:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As Notesview
Dim collection As NotesDocumentCollection
Dim dateTime As New NotesDateTime( "03/14/95" )
Dim aenderungsbrief As String
Dim bereich As String
Dim form As String
Dim user As String
Dim hilf As String
'Dim uidoc As NotesUIDocument
Set db = session.CurrentDatabase
'Set uidoc = workspace.CurrentDocument
'Werte aus aktuellem Dok auslesen
Dim ab As String
'Call source.FieldSetText ( "ab", "Änderungsbrief" )
'ab =source.FieldGetText("ab")
aenderungsbrief =source.FieldGetText("Änderungsbrief")
aenderungsbrief1 = Mid(aenderungsbrief,4,4) '12 1239-99 009
bereich =source.FieldGetText("Bereich")
user =source.FieldGetText("aktueller_Benutzer")
abversion =source.FieldGetText("ABVersion")
user1 = Strright(user,"ABC")
Call Source.Refresh
'Zugriff auf's Profildokument
Dim pdoc As NotesDocument
Set pdoc = db.GetProfileDocument("DBProfile")
settest = pdoc.GetItemValue( "SetupTestversion" )
Call Source.Refresh
'searchFormula$ = "Bereich = ""Beanstandungen"" & @left(LfdNummer;2) = """ & user1 & """ & @middle(LfdNummer;3;4) = """& settest(0) &""""
searchFormula$ = "Bereich = ""Beanstandungen"" & @left(LfdNummer;2) = """ & user1 & """ & @middle(LfdNummer;3;4) = """& aenderungsbrief1 &""""
Call Source.Refresh
If source.IsNewDoc Then
Set collection = db.Search(searchFormula$, dateTime,0)
hilf = ""
If collection.Count < 9 Then
hilf = "00"
End If
If collection.Count > 8 Then
If collection.Count < 99 Then
hilf = "0"
End If
End If
'Call source.FieldSetText ( "LfdNummer", user1 & " " & settest(0) & " " & hilf & Cstr(collection.Count + 1))
Call source.FieldSetText ( "LfdNummer", user1 & " " & aenderungsbrief1 & "-" & abversion & " " & hilf & Cstr(collection.Count + 1))
End If
End Sub
aenderungsbrief = Trim(Source.Document.GetItemValue("Änderungsbrief")(0))
Genauso wie bei FieldGetText...
eine Fehlermeldung bekomme ich nicht. Vielleicht habe ich noch einen anderen Fehler drinnen?
Aber das Feld Änderungsbrief ist gefüllt in der Souce.Document!