Re: AW: [Allegro] win-alf: rückbuchung verspäteter exemplare -> es erfolgt kein hinweis, daß gebühr aussteht

Klaus Lehmann lehmann_klaus at t-online.de
Mi Okt 28 11:59:23 CET 2009


[Nachtrag]


in der a-chkin.flx steht drin: als kommentar:
   Test:
 var "!Verzug: " Z " Tage!"
 if Z>0 mes

wenn man dieses aktiviert, 
hat man den beweis, 
daß mit vorliegendem(!) datenbankmaterial es NICHT zu dieser meldung
kommt, wenn verpätetes zurückgegeben wird.


dieser ganze block (=:gebhr )wird m.E. NICHT angesprungen!
wo liegt der fehler? evtl in der datenbank? (weil aus dos-alf kommend?)


:gebhr
var #uAG(b"/" e"/")

if "0" jump vorm  // Keine Gebuehr (Intervall=0)
  Z ist immer noch die Anzahl Verzugstage
var #uAG(e"/")  // Kulanztage abziehen
Z-
var #uAG(b"/" e"/")   // teilen durch Intervall
if >0 Z/
var #uAG(T"/")   // mal Verz.geb.
Z*
  Jetzt haben wir die Gebuehr in Z

var Z
  Evtl. ist Verzugsgeb. 0 - dann kein Geb.Satz
if not >0 jump belast
  GebSatz anlegen, GebTyp 1 = versp.Rueckg.
new 0
#00 -
var "0G0B" #uAU "K" #uAE "D" #dts(0,8) "O" #op
ins #9GF

Z*100
  Gebuehr muss in Cent angegeben werden
var "S" Z0 "E" #uAA "T" #uAF "d" $days
ins #9GG
  Gebuehrensatz speichern
put
if no mes
sho rec
dis
var "Gebühren sind angefallen"
ansi
mes
jump vorm



danke und gruß k.l.





Mehr Informationen über die Mailingliste Allegro