title image


Smiley Re: laufende Nummer
Hi!Ich hab's mal wie folgt in einer DB gelöst (nicht geeignet für sich replizierende DBs)!!!!1. Dokument anlegen, welches die letzte Nummer speichert.2. Nachstehendes Script in dem eigentlichen Dokument im Event QuerySave einfügen Sub Querysave(Source As Notesuidocument, Continue As Variant)'Dokument vor absenden neu berechnen Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Set uidoc = workspace.CurrentDocument Call uidoc.Refresh'lfd Nummernvergabe Dim doc As NotesDocument Set doc = source.document Dim s As New NotesSession'Prüfen, ob eine Nummer schon vergeben wurde: tmp = doc.FehlerNr(0) If tmp > "" Then Exit Sub'Falls ok, dann weiter ... If doc.IsNewNote() Then Dim db As NotesDatabase Set db = s.CurrentDatabase'Die Ansicht, die das CounterDoc enthält Dim viewConfig As NotesView Set viewConfig = db.GetView ("CounterView")'Das Document, welches den Counter enthält Dim docCounter As NotesDocument'Die erste Spalte enthält den Document-Namen Set docCounter = viewConfig.GetDocumentByKey("Counter",True)'Lesen des Counters Dim Counter_tmp As Integer Counter_tmp = Cint(docCounter.Counter(0)) + 1 docCounter.Counter = Counter_tmp Call docCounter.Save (True,True)'Neue Nummer ins eigentliche Doc stellen Dim NewNumber As String NewNumber = Cstr(Counter_tmp) Jahr = Year(Date) NewNumber = NewNumber + "/" + Jahr doc.FehlerNr = NewNumber End IfEnd Sub3. Hoffe, dass es bei dir funzt...Grussy20frakn:-)
Besten Gruß
Frank :-)

(G6 auf Gruppenfoto 2006)


[ Wissend ist, wer weiß, wo er findet, was er noch nicht weiß. (Georg Simmel) ]


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: