procedure ZaehlerRabattTotalOnCalc(var Value: Variant);

begin
{SC Rabatt-Total berechnen wenn individualfeld20=leer}
{wenn listenpreis höher als einzelpreis dann ++ ansonsten wnn liste negativ dann ++ ansonsten ausblenden}
if (AVX['M_INDIVIDUAL20'] = '') then begin
if AVX['P_POSKIND'] <> 1 then begin
if AVX['P_PRICE'] <> AVX['P_PRICE_WOD'] then begin
ZaehlerRabattTotal.value := ZaehlerRabattTotal.value + (AVX['P_AMOUNT']*(AVX['P_PRICE_WOD'] - (AVX['P_PRICE'])));
end else if AVX['P_PRICE'] < 0 then begin
ZaehlerRabattTotal.value := ZaehlerRabattTotal.value - (AVX['P_PRICE']);
end;
end;
if (ZaehlerRabattTotal.value > 0) AND (AVX['M_ID'] < 20000) then begin {rabatt vorhanden UND Typ Angebot}
Region_FussnotenRabatte.visible := true;
Rabatt_Gesamt.value := ZaehlerRabattTotal.value;
Rabatt_Gesamt.displayFormat := 'Dieses Angebot enthält Rabatte und Nachlässe von insgesamt netto #,##0.00 €';
if VorgangAusgabeBruttowerte then begin
Rabatt_Gesamt.displayFormat := 'Dieses Angebot enthält Rabatte und Nachlässe von insgesamt brutto #,##0.00 €';
end;
end else
Region_FussnotenRabatte.visible := false;
end;
end;