Herausgesuchten Tabelleninhalt im Querysave neu füllen

Hallo meine Damen und Herren,

ich habe mir alles zum Thema laufende Nummern mind. in diesem Forum durchgelesen.
Meine Versorgung kann ganz rudimentär passieren(Wert soll durch Anwender auch änderbar sein) und daher möchte ich es über einen einfachen @DBLookup realisieren.

Der meinen beschränkten Mitteln entsprechende Code ist soweit ok.
Doch wie sichere ich den neuen Wert nun in dem entsprechenden Tabelleneintrag?

Select Case uidoc.FieldGetText("Erfassungsort")
Case "Augsburg", "München":
eval = Evaluate({@DbLookup("" : "NoCache" ; @DbName; "de.xxxxxx.view.nummernkreise" ; "ALL-RW-RG-N"; "AktuelleNummer" ;[FailSilent])})
number = Cint(eval(0))
If number < 1 Then
number = 1
Else
number = number + 1
End If
Call uidoc.FieldSetText("PagStempel","N-"+ Cstr(number))
...

Vielen Dank für einen kurzen Wink!

Hallo Dirk,

ich kämpfe gerade daran den Wert aus der Combobox herauszuholen(E: "Variant does not contain an object") ...

Durch einen Formeltester habe ich jedoch herausgefunden, dass die zentrale Formel korrekt ist.
Der Wert wird herausgeholt aus de.xxxxxx.view.nummernkreise und soll dort an gleicher Stelle wieder eingesetzt werden.
eval gibt den Wert in der View de.xxxxxx.view.nummernkreise aus Spalte "AktuelleNummer" zurück (in meinem Fall noch 0).

(Der PagStempel wird im Fenster noch versorgt - dort ist aber soweit alles klar.)

Viele Grüße

Marc

In Select Case uidoc.FieldGetText("Erfassungsort")
Im Erfassungsort wird in einer Combobox ein Ort ausgewählt, doch die Variable ist im Debugger im Querysave leer.

Unter SOURCE > DOCUMENT > ITEMS > [152] ist Folgendes enthalten:
NAME: "Erfassungsort"
TYPE: 1280
VALUES: ["Augsburg"] VARIANT
[0]: "Augsburg" STRING
VALUELENGTH: 10

Reicht dir das? Oder brauchst du noch etwas?

Ich hoffe nicht zu spät noch die Datendefinition:

Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim ort As Variant
Dim ort2 As String
Dim number As Double

Set uidoc = work.currentdocument

ort = uidoc.FieldGetText(Cstr("Erfassungsort"))
Select Case ort

Bei Ort kommt der Fehler! Der aber jetzt 'Object variable not set'.
uidoc ist an dieser Stelle im Debugger leer ??? Daher habe ich die SOURCE gepostet ...

Das 'Set uidoc = Source ' hat das kleine Problem gelöst, aber wie schreibe ich nun den um 1 erhöhten Wert in die View zurück?
Eval [0] VARIANT
[0] 0
NUMBER 1DOUBLE

Hallo Andreas,

es liegen durch den kleinen Zwischenfehler zu wenig Posts zu den ersten Inhaltsreichen Erläuterungen- Entschuldige!

Der Wert wird herausgeholt aus de.xxxxxx.view.nummernkreise und soll dort an gleicher Stelle erhöht wieder eingesetzt werden.
eval gibt den Wert in der View de.xxxxxx.view.nummernkreise aus Spalte "AktuelleNummer" zurück (in meinem Fall noch 0).

Code im QuerySave:
Dim session As New NotesSession
Dim uidoc As NotesUIDocument
Dim ort As String
Dim number As Double

Set uidoc = Source

ort = uidoc.FieldGetText(Cstr("Erfassungsort"))
Select Case ort
Case "Augsburg", "München", "Nürnberg", "Grafenau":
eval = Evaluate({@DbLookup("" : "NoCache" ; @DbName; "de.xxxxxx.view.nummernkreise" ; "ALL-RW-RG-N"; "AktuelleNummer" ;[FailSilent])})
number = Cint(eval(0))
If number < 1 Then
number = 1
Else
number = number + 1
End If
Call uidoc.FieldSetText("PagStempel","N-"+ Cstr(number))
...

Die eigenständige View de.xxxxxx.view.nummernkreise ist aufgebaut:

Wie mache ich dies am Geschicktesten?

Richtig es ist so simpel- wie überschreibe ich die View, die nicht angezeigt wird?
[@Dirk: die Punkte ... stehen bei mir für einen fehlenden Code. der die Anforderung erfüllen soll...]