AW: AW: [Allegro] Exemplare anlegen

[Bernhard Eversberg]

Panski, Regine schrieb:
> Entschuldigung, da hatte ich einen Denkfehler. Aber Ihre Version hat trotzdem nicht funktioniert.
> 
Inzwischen wurde getestet und funktionsfähig befunden folgender Einbau 
in o-invent.flx:

...
if not yes erase;jump abschluss
:formex
form Exemp
   Ist $a besetzt?
if not #9DG$a jump exspeich

   Pruefen, ob Barcode schon existiert (1 Zeile aus Reg. 10 holen)
var "1 |: E" #9DG$a
qrix
var (B"E")
ins #uOE
   Registerzeile jetzt in #uOE, pruefen ob identisch mit $a
var #9DG$a
if not =#uOE jump exspeich

var "Den Barcode " #9DG$a " gibt es schon!"
mes
jump formex

:exspeich
put
...


B.E.