@Function ist in diesem Kontext ungültig

[skywook]

Habe bei einem Optionsfeld im Bereich Exiting einer Maske folgende Script hinterlegt:

Sub Exiting(Source As Field)
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   
   Set uidoc = ws.CurrentDocument
   If uidoc.fieldgettext("Kredit") = "Konsumentenkredit" Then
      Dim s As New NotesSession
      Dim db As NotesDatabase
      Dim agent As NotesAgent
      Set db = s.CurrentDatabase
      Set agent = db.GetAgent("KDL")
      Call agent.Run
   End If
End Sub

Dies ruft diesen Agent auf (hier kleiner Ausschnitt):

@SetField("GDatum";@Today);
@Command([ToolsRunMacro];"(ZBerechnung)")

Es kommt dann immer der Fehler '@Function ist in diesem Kontext ungültig'

Finde den Fehler nicht. Könnt Ihr mir einen Tipp geben?

[koehlerbv]

Du müsstest das Problem versuchen einzugrenzen - es spielen hier ja drei Routinen eine Rolle.
Sind denn im Agent "KDL" @Commands zugelassen ?

Bernhard

[Semeaphoros]

Hab grad keine Ahnung, ob das hier zutrifft, aber gibt es nicht eine Beschränkung beim Nesting von Agenten? Könnte das hier das Problem sein?

[skywook]

Der Agent "KDL" funktioniert manuell (d.h. Aufruf über Menü - Aktionen). Wird dieser aber über das Script aufgerufen - erhalte ich die Fehlermeldung.

[klaussal]

vor den @setfield müsste noch ein "Field GDatum := GDatum"

aber warum setzt du das datum nicht im script