[Allegro] win-order

[Panski, Regine]

Liebe Liste, lieber Herr Eversberg.

 

Noch einmal meine Frage:

 

Kann man in o-invent.flx gleichzeitig zwei Nummernvergaben hinein schreiben? Und zwar nach der auf der Hilfsseite "Nummernvergabe" angegebenen "einfachen Methode"?   Ich brauche Signatur und Zugangsnummer.

 

Signaturenvergabe klappt jetzt. Wir basteln z.Zt. an der Zugangsnummernvergabe.

 

Es steht immer 2006/000000   in unserem Exemplardatensatz !

 

Die Zugangsnummern sehen so aus (Register 9):

1  Z2006/000457

   1  Z2006/000458

   1  Z2006/000459

   1  Z2006/000460

   1  Z2006/000461

   1  Z2006/000462

   1  Z2006/000463

   1  Z20160

   1  Z231

   1  Z23833

   1  Z23938

   2  Z240

   1  Z24230

   1  Z24508

   1  Z25593

 

 

Letzte Zugangsnummer ist 2006/000463

 

So sieht o-invent.flx aus:

 

 

.....

 

   Find-Befehl fuer Titelsatz basteln:

var "|9 " #9DA$T

   Titelsatz holen

find

 

 

 

 

  Signaturvergabe (Versuch bis einschl. put free)

#uoR |8          

#uoP 2006        

#uoF        

set tbl loc           // .TBL blockieren, damit keiner speichern kann 

perf nextnum          // ermittelt die Nummer, liefert sie in #uoY 

if ="-1" jump fehler  // Nummernermittlung nicht gelungen 

z=4                   // das sind die 4 Stellen hinter der Jahreszahl

var #uoY JL0

ins #uoY

var "2006" #uoY

ins #90 

ins $Signa

put free        // Satz speichern, zugl. TBL freigeben (erst ab V25.9) 

 

  Wenn Zg.Nr. auch im Titelsatz sein soll, folgende Zeilen aktivieren:

   #uzg in #91 kopieren

 var #uzg

 ins #91

 sho rec

 dis

   Titelsatz wieder speichern (mit Frage)

 var "Titelsatz mit Zug.Nummer ebenfalls wieder speichern?"

 yesno

 if yes put

 

  Zugangsnummernvergabe (Versuch bis einschl. put free)

#uoR |9          

#uoP Z2006/        

#uoF        

set tbl loc           // .TBL blockieren, damit keiner speichern kann 

perf nextnum          // ermittelt die Nummer, liefert sie in #uoY 

if ="-1" jump fehler  // Nummernermittlung nicht gelungen 

z=6                   // das sind die 4 Stellen hinter der Jahreszahl

var #uoI JL0

ins #uoI

var "2006/" #uoI

ins $Zug

put free        // Satz speichern, zugl. TBL freigeben (erst ab V25.9) 

 

 

 

 

 

var #00

ins #uNN

  Exemplarsatz erstellen

new

var #uNN

ins #9DF

  Status 0 = verfuegbar

#9DG0

var $Signa

ins $s-#9DG

var "1"

ins $e-#9DG

var $Zug

ins $z-#9DG

var #dts(0,8)

ins $d-#9DG

sho rec

dis

var "Es wurde ein Exemplarsatz erstellt. Ebenfalls speichern?"

yesno

if not yes jump exit

form Exemp

if can end

put

:exemp

 

........

 

 

 

Regine Panski

Kammergericht-Bibliothek

Elßholzstr. 30-33

10781 Berlin

(030) 90152411