Hallo zusammen,
stehe hier mächtig auf dem Schlauch und komme nicht weiter mit einem Script insbesondere evaluate
Const NotesMacro$ = {@DbLookup("" : "NoCache" ; "" : "" ; "(LookupArchivverwalternachArchivverwalter)"; _wert ; 2)}
Dim vEval As Variant
scode = doc.Abteilungscode(0)
searchFormula = {(Form = "Akte") & (Abteilungscode = "} & scode & {")}
Set coll = db.Search(searchFormula, Nothing, 0)
Set dcdoc = coll.GetFirstDocument ()
While Not (dcdoc Is Nothing)
vEval = Evaluate (NotesMacro$ , dcdoc)
dcdoc.abtRegistratur = vEval
Call dcdoc.Save(True,False)
Set dcdoc = coll.GetNextDocument(dcdoc)
Wend
Die Collection liefert Dokumente zurück, kann ich im Debugger nachvollziehen.
Es ist im Übrigen egal welche Fromel in der Constanten steht es wird kein Ergebnis auf die Variable vEval zurückgegeben.
Die Formel dblookup in einem berechneten Feld funktioniert ansonsten.
Es erscheint auch keinerlei Fehler bei Ausführung des Scriptes.
Vielen Dank für Eure Hilfe.
Server 8.5.2
Client 8.5.2