Domino 9 und frühere Versionen > ND6: Entwicklung

wert aus einem Feld ziehen

<< < (2/2)

ata:
... dann brauchst du die sortierte Ansicht - per LotusScript kannst du dann je nach Sortierung auf das erste oder letzte Dokument zugreifen. Die Sortierung gewährleistet dir dann das gewünschte Dokument.

Die Berechnung führst du durch, nachdem der User seine Zweigstelle ausgewählt hat. In dieser Abhängigkeit führst du dann die Berechnung durch.

Toni

PS:
Es wäre sehr angenehm, wenn du deine Postings in Groß und Kleinschreibung verfassen könntest - es ist sehr viel besser lesbar und strengt nicht so ungemein an.
Und ab und zu ein Absatz schadet ebenfalls nicht...

Danke  ;)

desmo:
@Toni,

wie würde sich dann in meinem Fall das L-Script zusammensetzen?

Meine DB hat für jede Zweigstelle eine Ansicht die sortiert ist.
Der Gedanke war eine Aktionsschaltfläche neben dem Feld einzubauen die den Wert vom letzten Dok in das Feld schreibt.

Ich habe mich schon mit getDocumentbyKey in der Notes-Hilfe beschäftigt komme aber nicht so ganz weiter, bei LotusScript bin ich noch Anfänger.

ata:
... danke für das besser lesbare Posting...  ;D

... haben die Ansichten für die Zweigstellen berechenbare Namen? dann wäre es etwas einfacher.

1. => Als erstes ziehst du dir die aktuelle Datenbank
2. => dann die Ansicht der Abteilung
3. => dann das letzte Dokument, falls die Sortierung entsprechend auf das letzte Dokument verweist
4. => das aktuelle Dokument mit dem Button
5. => den Wert übernehmen


--- Code: ---Dim ws As New NotesUIWorkspace
Dim session as New NotesSession
Dim viewAbteilung As NotesView
Dim docThis As NotesDocument
Dim doc As NotesDocument

' # => 1. Datenbank initialisieren
Dim dbThis As NotesDatabase

' # => 2. Die Ansicht der Abteilung initialisieren
Set viewAbteilung = dbThis.GetView( "Name_der_Ansicht" )

' # => 3. Das letzte Dokument initialisieren
Set doc = viewAbteilung.GetLastDocument

' # => 4. das aktuelle Dokument initialisieren
Set docThis.ws.CurrentDocument.Document

' # => 5. den wert übernehmen
docThis.Feldname_mit_letzten_Kassenstandes = doc.FeldName_des_letzten_Kassenstandes
--- Ende Code ---

Damit wäre sehr rudimentär und ohne Fehlerhandling der grobe Ablauf.

Jetzt sollte man noch verschiedene Fehlerquellen abfangen,
- ob es die Ansicht überhaupt gibt,
- ob es in der Ansicht überhaupt ein letztes Dokument gibt,
- ob in dem Feld ein Wert drinsteht und
- ob der Wert überhaupt eine gültige Ausssage hat

das ist dann der Rest der Pflicht...

In der Reihenfolge der Initialisierung, bzw. wie man die Objekte am Besten initialisiert gibt es unterschiedliche Ansätze, das wäre erst mal ein Grobentwurf...

Toni

Navigation

[0] Themen-Index

[*] Vorherige Sete