Hi,
ich versuche ein Dokument mit laufender Nr. zu erstellen. Dazu habe ich mir eine Ansicht gebastellt auf der die Zahlen Dokumente nacheinander sortiert sind und ich wähle das Letzte Dokument aus, dessen Nr. ich um einen erhöhe.
Das klappt alles auch ganz gut, nur das er mir die Zahl nicht als Zahl sondern nur als String speicht.
Alle vorherigen Zahlen sind Zahlen. Öffne ich nun das Dokument wird folgender Code im Postopen ausgeführt.
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("(laufendeNr)")
Set doc = view.GetLastDocument
[i]If Source.IsNewDoc Then
Forall x In doc.HM_DokNr
x = x + 1
If Typename ( x ) <> "STRING" Then
Call Source.FieldSetText( "HM_DokNr",Str( x ) )
Else
Call Source.FieldSetText( "HM_DokNr", x )
End If
End Forall
End If
End Sub[\i]
vorher habe ich es mit einem
[i]Forall x In doc.HM_DokNr
x = x + 1
Call Source.FieldSetText( "HM_DokNr", x )
End Forall[\]
versucht und er bringt mir den Fehler: "String expected"
Das Feld selber ist ein Zahlenfeld!!
Kann mir dieses Phänomen jemand erklären? oder noch besser, mir eine Lösung geben?
Gruß und Dank
Christian