Delphi und XRechnung

[sh17]

Also wenn ich alles richtig verstanden habe, was Sie da machen, müsste es so aussehen

if cbAllowanceCharges.Checked then
begin
inv.LineAmount := inv.LineAmount;
inv.AllowanceTotalAmount := 5.00;
inv.ChargeTotalAmount := 0;
inv.TaxAmountSubtotals[1].TaxableAmount := inv.TaxAmountSubtotals[1].TaxableAmount - 5.00;
inv.TaxAmountSubtotals[1].TaxAmount := inv.TaxAmountSubtotals[1].TaxAmount - 0.95;
inv.TaxAmountTotal := inv.TaxAmountTotal - 0.95;
inv.TaxExclusiveAmount := inv.TaxExclusiveAmount - inv.AllowanceTotalAmount + inv.ChargeTotalAmount;
inv.TaxInclusiveAmount := inv.TaxInclusiveAmount - 5.00 - 0.95;
inv.PayableAmount := inv.TaxInclusiveAmount;
end;