[Allegro] win-alf: ergänzung: "Den LeserBarcode gibt's nicht!"

[Klaus Lehmann]

liebe kollegen


eine anregung....
in der a-chkin.flx gibts eine schöne methode, fehler zu vermeiden, die
lautet:

:nobar
var "!Den Barcode " #uaB " gibt's nicht!"
mes
  Wenn als UP aufgerufen (a-batch)
return
jump begin

da kommt's her:
  Rueckgabe. In iV steht der Barcode
  zugl. Unterprog (Aufruf aus batch.flx)
:rckg
if "" jump quitt
if "-" exec a-chkout
ins #uaB
  Exemplarsatz zu diesem Barcode suchen und laden
var "|: E" #uaB
f1nd
  Nichts gefunden - Vielleicht ist es eine Signatur?
if no var "|8 " #uaB;f1nd
if no jump nobar



nun, ich bin dabei, es für verlängerungen einzubauen....:
das könnte so aussehen 
(aber es funktioniert noch nicht sauber, mithelfer sind gesucht!)
es geht um die a-func.flx:

  Titel vormerken
:tvormerk
#uaN
  Sign. mitnehmen in den Vorm.Satz
if #9DG$s var #9DG$s
if not #9DG$s var #90
ins $sg
if #9DF var #9DF(e"")
if not #9DF var #00
new 0
ins #9DF
#00 -
var "VO" #op
ins #9DG
var $sg
ins $s-#9DG
sho rec
disp

   neue hoppsmarke (s.u.)
:fehler

ask |:Nutzerkennung? (Mit Alt+i im Register suchen!)
if "" erase;end
var (f"_")
ins $nu
ins $u-#9DH
  Leserklasse aus Lesersatz nehmen
set obj 2
var "|: B" $nu
f1nd

  neu
if no var "|: B" $nu;f1nd
if no jump nobar
 (letzten 3 zeilen sind neu!)


:nobar sieht so aus:
:nobar
var "!Den LeserBarcode " $nu " gibt's nicht!"
mes
  Wenn als UP aufgerufen (a-batch)
    close res   oder   close rc bringen nichts!
return
jump fehler


was funktioniert (nicht) bisher?
1. er fängt den falschen barcode ab, leitet ihn auf die fehlermeldung
(mes).
nur leider trägt er den falschen barcode in den
verlängerungsdatensatz....
hat jemand ein ideechen?



danke und viele grüße
Ihr Klaus Lehmann




-- 
Klaus Lehmann
eMail:  allegronet at t-online.de
phone:  03528-452 807(fax 809); mobil 0171-953 7843
adress: allegronet.de Klaus Lehmann
D-01454 Radeberg; Kleinwolmsdorfer Str. 37
http://allegronet.de

Die allegro-Werkstatt mit allegronetOA
Internetkataloge & WebHosting für AllegroC
Praesent auf allen jaehrlichen bibliothekarischen 
Fachkongressen seit 2006 
****"Our best ideas are born at home"
(Dave Lester: New Freedom Data Center,1995)
**** 2008: allegro-ivrit (hebraeisch)
**** 2009: allegro-utf8 für alle Sprachen dieser Welt