[Allegro] o-invent.flx

[Bernhard Eversberg]

Thomas Berger schrieb:
> 
> 
> M.E. sollte daher auch a99 "traditionelle" Nummerngeneratoren
> unterstuetzen, die eine in einem separaten Datensatz gespeicherte Zahl
> simpel hochzaehlen.
> 
Ob das mehrheitsfähig ist?
Denkbar und vielleicht effizienter wäre es, eine simple kleine Datei 
bereitzulegen, in der die nächste Nummer steht, und die (innerhalb von
"set lock" ... "set free" natürlich) gelesen und upgedatet würde.

Wenn die Datei "nextnum.dat" hieße, und es stünde einfach nur die
Nummer drin und sonst nix, sähe der FLEX-Abschnitt so aus:

set tbl lock
var D "nextnum.dat"
open
get
close
   jetzt ist die Nr. in der iV
ins $n
eval $n +1
ins $n
           Zahl soll 6stellig sein mit fuehrenden Nullen:
var $n (0,r6)
ins _ _0_
ins $n
var D "nextnum.dat"
del
open x
wri $n
close x
  ....
  Aktion mit dem Datensatz und $n
put free


Das kann man sich einbinden wo immer nötig. Die Sache mit den
Generatoren ist ja eine verstaubte Erfindung der früheren DOS-Versionen
und heute entbehrlich.
Vorsicht allerdings beim Migrieren: Die Datei nextnum.dat muß dann mit!

B.E.