Hallo Zusammen,
gibt es eine Möglichkeit in Lotus Script einen Agenten (Gemeinsamer Code\Agenten\agtCompose bestehend nur aus @Formeln) aufzurufen?
Ich erhalte folgende Fehlermeldung: NotesError: @Funktion ist in diesem Kontext ungültig.
Abhängig vom einem Feldwert und der Antwort des Benutzers soll ein Dokument erzeugt werden:
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim currentdoc As NotesDocument
Dim agent As NotesAgent
Set uidoc = workspace.CurrentDocument
Set currentdoc = uidoc.Document
Set db = session.CurrentDatabase
Set agent = db.GetAgent("agtCompose")
If currentdoc.gbInvest(0) >= 50000 Then
boxType& = MB_YESNO + MB_ICONQUESTION
If Messagebox ("Möchten Sie den Projektauftrag jetzt
erstellen?",boxType&,"Auftrag")=6 Then
'Anlegen eines Projektauftrages --> Aufruf des Agent agtCompose
Call agent.Run
End If
End If
End Sub
Agent (Der Agent ist ca. 3 Seiten vollgefüllt mit @Formulas - wenn er über Button aufgerufen wird, dann funktioniert er - nur soll er jetzt eingebunden werden. Die ganzen REMs definieren das anzulegende Dokument)
REM {CONSTANTS };
REM {WHAT TO COMPOSE - GET FLAGS };
REM {VARIABLES };
REM {---UI STRINGS---};
REM {CHECK MULTI / SHARED TASK};
REM {GET SELECTED DOCUMENT};
REM {SAVE CURRENT NEW DOC WHEN STARTED FROM UI};
REM {CREATE TYPE LIST};
REM {GET DEFAULT TYPE};
REM {FIND THE SUBFORM TO LOAD};
REM {SET FLAGS IN USERPROFILE};
REM {SET FLAG TO BLOCK THE CLICK EVENTS OF THE UNDERLAYING VIEW};
@PostedCommand( [Compose]; tForm )
Merci für jede Hilfe!!!
Ciao, Nick