Hi,
habs jezt selbst bemerkt.
Da war ein Widerspruch im Code.
Muss so sein, dann funktionierts:
Delphi-Quellcode:
if Value <> 0 then begin
if Value/100 > 0 then
Wert := 1 - Value/100
else
Wert := -1 * (1 - Value/100);
for I := 0 to Self.CountPositionen - 1 do
for J := 0 to Self.CountAuflagen - 1 do begin
Wert := EinzelRabatt[I, J] + Wert; //Wert anstatt FRabatt
EinzelRabatt[I, J] := Wert;
end; // End For
end; // End If
Dank an SirThornberry
mfg MOCI