Feldwert über Postopen festlegen

[Sonnenaufgang]

Liebe Noteskolleginnen und -kollegen,

in einer Datenbank habe ich eine Maske erstellt in der ein Feld neu berechnet werden soll, sobald man die Maske öffnet.

Wenn ich die Datenbank öffne und über Erstellen-Dokument-'Maskenname' die Maske aufrufe funktioniert dies auch.

Öffne ich die Maske aber von einer Seite im Rahmen, so läuft das Lotus Script Postopen auch, aber das Feld in der Maske wird ohne Inhalt angezeigt.

Weiß jemand woran das liegt?

Irgendwie wird das uidoc nicht gesetzt.

Vielen Dank im voraus,

Daniel

Anbei noch das LS:

Sub Postopen(Source As Notesuidocument)
' Höchste Beleg-Nr. ermitteln
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   Dim entry As NotesViewEntry
   Dim vc As NotesViewEntryCollection
   Dim doc As NotesDocument
   Dim ws As New  NotesUIWorkspace
   Dim uidoc As NotesDocument
   Set db = session.CurrentDatabase
   Set view = db.getView("Belegnr")
   Set vc = view.AllEntries
   Set entry = vc.GetFirstEntry()
   Set doc = entry.Document
' Feld in der Eingabemaske füllen
   Set uidoc = ws.currentDocument.Document
   uidoc.belnr = doc.belnr(0) + 1
   Call uidoc.Save(True, False)
   
End Sub

 

[Glombi]

Das Du mit "uidoc" ein Notes-Backend Document bezeichnest, finde ich ehrlich gesagt fahrlässig.

Das Problem wird sein, dass Du das Dokument nicht im Bearbeitenmodus hast.


Andreas

[Sonnenaufgang]

Liebe Kollegen,

ich habe das Problem damit gelöst, dass ich die Maske nicht in einem Rahmen öffne, sondern in einem separatem Fenster.

Trotzdem vielen Dank für die Hilfe.

Daniel