[Allegro] a-mahnrg.flx

[Panski, Regine]

Liebe Liste, lieber Herr Eversberg,

jetzt habe ich endlich mal Zeit die neueste Version herunterzuladen und zu testen. Da ist mir gleich im a-mahnrg.flx ein Fehler aufgefallen. Im neuen Flex vom 19.4.2010 sind die Abschnitte Medtyp und Leserklassen vertauscht worden, dadurch kommt es zu einem falschen Ergebnis wenn man nur Leserklassen aber keine Medientypen hat. Im alten Flex vom 14.4.2008 ist es richtig.

Neuer Flex (19.4.2010):

:loop

  Ist es ein Gebuehrensatz? Dann nichts machen!

  (d.h. Gebuehrenmahnung noch nicht beruecks.)

if #9GF jump nxt

 

  Sonst #uGF und #uGG vorbereiten: f. #9GF und #9GG

  Kein passender Medientypsatz, dann Leserklassensatz nehmen

            (Klassensätze stehen alle in $Aclas)

var "C" #9DH$C

ins #uAC

var $Aclas

ins #uAY

  zugehoerigen Abschnitt in #uAY suchen, z.B. ist #uAC = C1

var #uAY(b"#uAC" e"///")  // Abschnitt mit den Bedingungen der Klasse

if "" jump deflt

  Klassensatz in #uaY

ins #uaY

  max Mahnstufe

var #uaY$S

ins #uMS

 

  Medientypsatz suchen, sie stehen schon alle in $Amtyp:

var $Amtyp

  kopieren in #uAY

ins #uAY

var #9DG$m "­B" #9DH$C   // medTypsatzcode­BLeserklasse

ins #uAS

  zugehoerigen Abschnitt in #uAY suchen

var #uAY(b"#uAS" e"///")  // Abschnitt mit den Bedingungen des Typs

if not "" ins #uAY

  wurde der Typ gefunden?

if #uAY jump gmt

 

 

:deflt

var "­m300"   // xxx DefaultGebuehr, wenn die Stammsaetze nichts hergeben

 

 

Alter Flex (14.4.08) :

:loop

  Ist es ein Gebuehrensatz? Dann nichts machen!

  (d.h. Gebuehrenmahnung noch nicht beruecks.)

if #9GF jump nxt

 

  Sonst #uGF und #uGG vorbereiten: f. #9GF und #9GG

  Medientypsatz suchen, sie stehen schon alle in $Amtyp:

var $Amtyp

  kopieren in #uAY

ins #uAY

var #9DG$m "­B" #9DH$C   // medTypsatzcode­BLeserklasse

ins #uAS

  zugehoerigen Abschnitt in #uAY suchen

var #uAY(b"#uAS" e"///")  // Abschnitt mit den Bedingungen des Typs

ins #uAY

  wurde der Typ gefunden?

if #uAY jump gmt

 

  Kein passender Medientypsatz, dann Leserklassensatz nehmen

            (Klassensätze stehen alle in $Aclas)

var "C" #9DH$C

ins #uAC

var $Aclas

ins #uAY

  zugehoerigen Abschnitt in #uAY suchen

var #uAY(b"#uAC" e"///")  // Abschnitt mit den Bedingungen der Klasse

if "" jump deflt

ins #uaY

jump gmt

 

:deflt

var "­m300"   // xxx DefaultGebuehr, wenn die Stammsaetze nichts hergeben

 

 

 

Mit freundlichen Grüßen

 

Regine Panski

Kammergericht-Bibliothek

Elßholzstr. 30-33

10781 Berlin

(030) 90152411

 

-------------- nächster Teil --------------
Ein Dateianhang mit HTML-Daten wurde abgetrennt...
URL: <http://bibservices.biblio.etc.tu-bs.de/pipermail/allegro/attachments/20100728/9a5b206d/attachment.html>