Einzelnen Beitrag anzeigen

dpKlaus

Registriert seit: 1. Nov 2020
14 Beiträge
 
#53

AW: Delphi und XRechnung

  Alt 12. Dez 2023, 11:23
Es wird immer verwirrender:

ich hab zwei Rabatte eingeschaltet

//Nachlass zur Position
MultiplierFactorNumeric := 10; //10 Prozent auf 50 EUR
Amount := 5.00;
// MultiplierFactorNumeric := 16; //16 Prozent auf 50 EUR
// Amount := 8.00;

'Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente.
MultiplierFactorNumeric := 0;
Amount := 5.00;
TaxPercent := 19.0;

Und im Variablenblock für beide Rabatte folgendes eingetragen

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

Keine Fehlermeldung, das Prüfprogramm akzeptiert die xml-Datei

Dann Werte bei Nachlass zur Position geändert:

//Nachlass zur Position
// MultiplierFactorNumeric := 10; //10 Prozent auf 50 EUR
// Amount := 5.00;
MultiplierFactorNumeric := 16; //16 Prozent auf 50 EUR
Amount := 8.00;

und bei

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

Fehlermeldung, das Prüfprogramm akzeptiert die xml-Datei nicht

Nochma wie gesagt, wenn ich nur eine der beiden oben im ersten Test genutzen Rabatte freischalte erhalte ich jeweils eine Fehlermeldung. Beide zusammen wie obengezeigt geht (????)
  Mit Zitat antworten Zitat