AW: AW: [Allegro] Exemplare anlegen

[Panski, Regine]

Hallo Herr Eversberg, 
meine Version funktioniert korrekt (auch ohne find). Ihre Version funktioniert gar nicht. Habe ich an Demo getestet.

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 Bernhard Eversberg
> Gesendet: Montag, 22. Juni 2009 13:43
> An: Allegro-C Diskussionsliste
> Betreff: Re: AW: [Allegro] Exemplare anlegen
> 
> Panski, Regine schrieb:
> >
> > Hallo, jetzt habe ich mal selbst etwas versucht, das scheint so zu
> > klappen, bitte aber noch einmal überprüfen. In o-invent.flx habe ich
> > folgendes eingefügt:
> >
> > dis
> > var "Es wurde ein Exemplarsatz erstellt. Ebenfalls speichern?"
> > yesno
> > if not yes erase;jump abschluss
> >
> > form Exemp
> >   /// ab hier Versuch
> >
> > var #uoB
> > ins $a-#9DG
> >
> >   im Reg. 10 den Eintrag d. Ex. suchen
> > var "|: E" #uoB
> >
> > if not empty mes "Diesen Barcode gibt es schon, bitte einen anderen
> 
> Dazwischen fehlt aber der Suchbefehl "find"!
> Es könnte so lauten:
> 
> var "|: E" #uoB
> find
> if not empty mes "Diesen Barcode gibt es schon, bitte einen anderen
> close res   // Erg.Menge wieder weg
> last off    // letzter Offline-Satz = Exemplarsatz zurueckholen
> show rec    // anzeigen
> disp
> 
> 
> 
> B.Eversberg
> _______________________________________________
> Allegro mailing list
> Allegro at biblio.tu-bs.de
> http://sun250.biblio.etc.tu-bs.de/mailman/listinfo/allegro