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

[Panski, Regine]

Guten Morgen Herr Lehmann,
Sie sprechen von "Verlängerung", da wo Sie es einbauen wollen geht es aber um "Titel vormerken". Wenn Sie es bei "Titel vormerken" einbauen wollen, muss die Prüfung wahrscheinlich schon etwas weiter oben erfolgen, Habe im Moment aber leider keine Zeit zum Testen.

Mit freundlichen Grüßen
 
Regine Panski
Kammergericht-Bibliothek
Elßholzstr. 30-33
10781 Berlin
(030) 90152411
 

> -----Ursprüngliche Nachricht-----
> Von: allegro-bounces at biblio.tu-bs.de [mailto:allegro-bounces at biblio.tu-
> bs.de] Im Auftrag von Klaus Lehmann
> Gesendet: Montag, 14. Dezember 2009 17:03
> An: Allegro-C Diskussionsliste
> Betreff: [Allegro] win-alf: ergänzung: "Den LeserBarcode gibt's nicht!"
> 
> 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
> _______________________________________________
> Allegro mailing list
> Allegro at biblio.tu-bs.de
> http://sun250.biblio.etc.tu-bs.de/mailman/listinfo/allegro