Hi,
in einer unserer Anwendungen werden Bugs eingestellt. Jeder Bug soll eine Nummer bekommen. Dazu hab ich ein Profil-Dok erstellt, in dem ein bearbeitbares Nummern-Feld drin steht.
Wenn der User ein *neues* Dok speichert, wird der aktuelle Wert ausgelesen, um eins erhöht und wieder zurückgeschrieben:
Dim profil As NotesDocument
Set profil = db.GetProfileDocument("Profil")
'übergreifende Bugnummer (BugID) ermitteln
Dim lfdNrGesamt As String
lfdNrGesamt = Cstr(profil.lfdNrGesamt(0))
profil.lfdNrGesamt = profil.lfdNrGesamt(0) + 1
Call profil.save(True, False)
Der ausgelesene Wert wird in das neue Dok geschrieben. So weit, wo gut!
Nun kommt es allerdings vor, dass zwei oder drei Doks die gleiche Nummer haben...und nix hier mit: "naja, vielleicht gleiczeitig erstellt"!!! Da liegen teilweise 10 Minuten dazwischen
Hat jemand nen Plan, woran das liegen könnte, bzw. die man eine alternative Nummernvergabe realisieren könnte? Ich habs halt deshalb mit dem Profil-Dok gemacht, weil da halt bis zu 50 Leuten gleichzeitig Bugs erfassen können...
Danke & Gruß,
Buzzy