[Allegro] Aenderungsvorschlag a-chkout

[Anando Eger]

Lieber Herr Eversberg,

in a-chkout.flx

steht:
---------------------------------------------------
  Medientyp entnehmen, default 0 wenn nicht gesetzt
var #9DG$m
if "" var "0"
if "BM" var "0"
if "MC-E" var "1"
if "MC-L" var "2"
if "CD-U" var "3"
if "SP-F" var "4"
ins #uaM
clo res
var #uaT
if "0" jump praes
  Medientypsatz laden  (SYSDM,L im Reg. 11)
---------------------------------------------------

Ich schlage vor, diese Stelle etwa wie folgt zu ändern:

---------------------------------------------------
clo res
var "0"\ins #uaM
  // Medientypstamm über Medientypbezeichnung laden
var "|; SYSE" #9DG$m
f1nd
if empty jump leihfrist
   // Medientypcode übernehmen
var #9A$$(1,1)\ins #uaM

:leihfrist
var #uaT
if "0" jump praes
  Medientypsatz laden  (SYSDM,L im Reg. 11)
---------------------------------------------------

So wird der Code unabhängig von den vorhandenen 
Medientypen.

Viele Grüße
Anando Eger

-----------------------------------------------------------------------------
Anando Eger Datenverarbeitung
Herr Dipl.-Ing. Anando Eger
Oppelhain, Siedlungsweg 1
03238 Rückersdorf

Tel: +49 (0)35325 16000    http://www.aneg-dv.de
Fax: +49 (0)35325 16002   mailto:a.eger at aneg-dv.de

Büro Dresden: Tel.: +49 (0)351 454 1236
-----------------------------------------------------------------------------