ORDER : Erwerbungsfunktionen 
%=x #ua!`if not #uOR #ua! Initialisierung%`%#ua!`  %=x var #20(e':' 0,50 t' ' F' ') '...'`if not #20 var #9DA$T`ins #uV1%`Einstieg`   `HILFE..HILFE..HILFE` 
`Neue Bestellung` / `Exemplar` 	`Währungskurse` 
 (zu %1) 	 (Umrechnungskurse)  / `aktualisieren` 
`Zugang` -- `Status ändern` 	`Neuer Lieferant` / `Vorhandene Lief.` 
 (Inventarisierung) 	 (Stammsatz eingeben)
`Alle Bestellungen`  	`Neuer Auftraggeber` / `Vorhand. Auftr.` 
 (sortiert n. Datum) `abgeschlossene`	 (Stammsatz eingeben)
`Bestellungen von heute`	`Neues Kontingent` 
 (als Erg.menge anzeigen) 	 (Mittelverteilung) 
`Bestellungen vom ...`	`Kontingente sichten/berechnen` 
 (Datum wird abgefragt)	 (Beträge neu berechnen)
`Bestellungen eines Lieferanten`  	`Textbausteine bearbeiten` 
(Einschr. nach Typ und Datum möglich)	 (für die Bestellzettel)
`Bestellnummer suchen` 	`Engl. Textbausteine bearbeiten` 

`Hilfslisten anlegen/erneuern`  	`Bestelldruck` 
`Lieferanten`, `Auftraggeber`	  (einzeln oder Ergebnismenge)
`Kontingente`	`Neuer Zeitschr.Band` 
 	 (vorher die Zeitschrift aufblättern) 
`Euro<->DM<->Dollar`  	`Feiertagskalender` 
 (Sonderservice)	  (Datum und Wochentag der Feiertage)
`Erg.Menge durchrechnen` / `Statistik`	`Exemplar suchen` %=x var $Sgen`ins #uoG% 
 (Summe der Bestellungen) 	 
`Nummerngeneratoren`	`Zeitschriftenverwaltung`	 
Aktiver Generator: %#uoG
`Neuen Signaturgenerator`  	`Jahresübergang` (Neues Haushaltsjahr)
  	 
`Titeldaten zu den Bestellungen`                `Bestellungen zu den Titeldaten`   [Neu 2018]
 (d.h. zu der aktuellen Bestell-Ergebnismenge)        (d.h. zu der aktuellen Titel-Ergebnismenge)
 `Dasselbe als Kurzliste` -- `Dasselbe als XML-Datei`

`Grundeinstellungen`	`Nummernvergabe - Wie geht das?`	 
 	` 

?Neue Bestellung=X o-bestel.flx 
?Zugang=X o-invent.flx 
?Kontingente sichten/berechnen=X o-kontue.flx 
?Hilfslisten anlegen/erneuern=X o-mkview.flx 
?Neuer Lieferant=x new\show rec\:form\form Liefe\$p-#9A DEU\yesno Speichern?\if no jump form\if cancel jump er\if yes put`var '2'`ins #uoV`exec o-mkview`:er`erase 
?Neues Kontingent=x new`#9A Kcode`$B-#9A 0.00`$E-#9A 0.00`$R-#9A 0.00`$A-#9A 0.00`$c-#9A EUR`show rec\:form\form Konti\yesno Speichern?\if no jump form\if cancel jump er\if yes put`var '3'`ins #uoV`exec o-mkview`:er`erase 
?Neuer Zeitschr.Band=x Date 4\ins #udt\var #00 "+" #udt\new\ins #00\show rec\:band\form Zeitschriftenb\yesno Speichern?\if yes put\if no jump band\if cancel erase 
?Neuer Auftraggeber=x new\show rec\help auftr.txt\:form\form Auftragg\yesno Speichern?\if no jump form\if cancel jump er`put`var '1'`ins #uoV`exec o-mkview`end`:er`erase 
?Alle Bestellungen=x set od0\fin |; s 3? or |; s 4?\order d0\var "RAlle Bestellungen " #dts\set\show list 
?abgeschlossene=x set od0\fin |; s 7?\order d0\show list 
?Bestellungen von heute=X o-heute.flx 
?Bestellungen vom ...=X o-zeit.flx 
?Bestellungen eines Lieferanten=X o-lief.flx 
?HILFE..HILFE..HILFE=h orderh 
?Bestellnummer suchen=x var "|: o "`ask +|:Bestellnummer?`if can end`var +"?"`Find 
?Textbausteine bearbeiten=x find |; SYSXDEU.BESTEL\:edit\form Textb\yesno Speichern? (Nein: noch korrigieren)\if no jump edit\if yes put 
?Engl. Textbausteine bearbeiten=x find |; SYSXENG.BESTEL\:edit\form Textb\yesno Speichern? (Nein: noch korrigieren)\if no jump edit\if yes put 
?Währungskurse=X o-whrg 
?Euro<->DM<->Dollar=X euro 
?Auftraggeber=x var "1"`ins #uoV`exec o-mkview 
?Lieferanten=x var "2"`ins #uoV`exec o-mkview 
?Kontingente=x var "3"`ins #uoV`exec o-mkview 
?Bestelldruck=x var ""\ins #ual\exec o-bdruck 
?Euro-Umstellung=X eu-whrg 
?Vorhandene Lief.=x Find |; SYSL? 
?Vorhand. Auftr.=x Find |; SYSA? 
?Exemplar=X a-exemp 
?Status ändern=X o-status 
?Initialisierung=X o-init 
?Neuen Signaturgenerator=X o-nsigg 
?Feiertagskalender=X holidays 0 
?Nummerngeneratoren=X o-numgen 
?Nummernvergabe - Wie geht das?=h nummer 
?Exemplar suchen=x var "|: E"`ask +Barcode?`find`if empty end`sho rec`disp`exec o-func 
?Titeldaten zu den Bestellungen=X o-titel 
?Bestellungen zu den Titeldaten=X o-orders 
?Dasselbe als Kurzliste=X o-tliste 
?Dasselbe als XML-Datei=X o-xmlist 
?Zeitschriftenverwaltung=x help zaba`if not #uOZ exec z-init 
?Grundeinstellungen=h order.inc 
?Einstieg=h order-e 
?Erg.Menge durchrechnen=X o-ergrec 
?Jahresübergang=h o-jue 
?Statistik=X o-besta 
?aktualisieren=X o-whrg ???