Hallo,
wie bekomme ich es hin, dass mir eine laufende Nummer bei der Eingabe in eine Maske generiert wird? Ich möchte gerne in einer Maske zum Anlegen eines Kundenstammsatzes automatisch eine Kundennummer vergeben.
Vielen dank im voraus.
wie bekomme ich es hin, dass mir eine laufende Nummer bei der
Eingabe in eine Maske generiert wird?
Da sollte ein Script funktionieren (s.u.)
zum Anlegen eines Kundenstammsatzes automatisch
eine Kundennummer vergeben.
Hmm, dafür wirds wohl nicht gehen, den eine Kundennummer ist doch statisch (einmal vergeben, gilt für immer).
Für ne laufende Nummer sollte folgendes funktionieren:
- erstelle ein berechnetes Feld (hier „Nr“) in der Maske
- in einer Ansicht muß die erste Spalte dann dieses Feld „Nr“ enthalten
- dann folgendes als query-save-script in der Maske hinterlegen
Sub Querysave(Source As Notesuidocument, Continue As Variant)
If Not source.isnewdoc Then Exit Sub
Dim s As New notessession
Set db = s.currentdatabase
Set view = db.getview(" -Name der Ansicht- ")
Call view.refresh
Set doc = view.getlastdocument
If doc Is Nothing Then
number = 1
Else
number = Cint(doc.nr(0)) + 1
End If
Set doc = source.document
doc.nr = Cstr(number)
End Sub
bevor das richtig funktioniert, stellst du die Feldeigenschaften auf „bearbeitbar“ und erzeuge ein Dokument mit der Nr. 0 (damit das erste Dokument einen Verweis auf eine Nummer hat)- das kannst du anschließend wieder löschen.
Tip: Bau gleich noch irgendwo einen Agent ein, damit du bei fehlerhaften Dokumenten (nach dem Löschen), für bereits erstellte Dokumente eine Nummer ändern kannst.
Gruß
Martin