@Statusbar("ich mach jetzt das....")print {im script mach ich jetzt das....}on error goto ErrorHandler
...
ErrorHandler:
print {error #} & cstr(err()) & { } & error() & { in line } &cstr(erl())Hier den Entwikcklungscode des Knopfes.
...
@PostedCommand([Compose];"UB")
Woran kann es liegen, dass der Fehler kommt, sobald ich in einem Dokument auf diesehe ich das richtig:
Hotspotschaltfläsche geklickt habe?
...
Mache ich das ganze nicht über den Doclink, klappt alles, sogar die Prompts werden verarbeitet.
Hier das LS beim öffnen der Maske:
...
@Command([ToolsRunMacro];"UB Dokument befüllen");
'Ist Notwendig für die Front End Klassen die sich auf die geöffneten Dokumente beziehenSet olddoc = ws.CurrentDocument bekommt nicht wirklich das "Alte Dokument" weil das ws.CurrentDocument "noch nicht sauber da ist".
Set olddoc = ws.CurrentDocument
Hier den Entwikcklungscode des Knopfes.Wenn Werte aus einer anderen Maske übernommen werden sollen, ist es immer sinnvoll für die entsprechende Maske die Option "Formeln übernehmen Werte aus gewähltem Dokument" zu aktivieren. Damit kannst du den Umweg über die Notes.ini komplett streichen.
@Environment("doc_num";"XXX");
FIELD fi_vorhanden := "Ja";
@Environment("doc_num";persnum);
FIELD pfaction := "Versendet";
@Command([FileSave]);
FIELD SaveOptions := "0";
@Command([FileCloseWindow]);
REM {Schleife nur das für die User eine optische Verarbeitung läuft};
n := 1;
@DoWhile(n := n + 1; n <= 10);
@PostedCommand([Compose];"UB")
Hier das LS beim öffnen der Maske:Mach aus "ansprech" ein Feld "Berechnet beim Anlegen" und befülle es mit der Formel "@Name([Abbreviate];@UserName);".
@If (@IsNewDoc ; @Success ; @Return(0));
FIELD ansprech := @Name([Abbreviate];@UserName);
@SetField("doc_num";@Environment("doc_num"));
REM {FIELD doc_num := Auswahl};
@Command([ToolsRunMacro];"UB Dokument befüllen");
Hier der Code vom Agent wo in der letzten Zeile der Fehler kommt.Den Aufruf des Agenten würde ich - unabhängig von den o.g. Änderungsvorschlägen - in den PostOpen Event verschieben, sofern er sich nicht ohnehin dort befindet.
Dim Session As New NotesSession
Dim db As New NotesDatabase("segds004", "Schuladr")
Dim ws As New NotesUIWorkspace
Dim view As Notesview
Dim doc As NotesDocument
Dim olddoc As NotesUIDocument
'Setzten der KonfigDB Ansicht "PersNr" in der sich alle Dokumente befinden
Set view = db.GetView( "Nach persnr" )
'Ist Notwendig für die Front End Klassen die sich auf die geöffneten Dokumente beziehen
Set olddoc = ws.CurrentDocument
'Setzen des Zeiger auf das Dokuemnte mit dem Schlüßel "key"
key = olddoc.FieldGetText("doc_num")