Delphi und XRechnung

[dpKlaus]

Danke für die schnelle Antwort. Es sind schon Rabatte vorhanden. Die sind so in der Demo.Zwei Artikel werden gebucht.

Einer ohne Rabatt

with inv.InvoiceLines.AddInvoiceLine do
begin
ID := '001'; //Positionsnummer
//Note : String; //Hinweis
Name := 'Kurzinfo Artikel 1'; //Kurztext
Description := 'Langtext Artikel'+#13#10+'Zeile 2'+#13#10+'Zeile 3'; //Laengere Beschreibung
Quantity := 2; //Menge
UnitCode := TInvoiceUnitCodeHelper.MapUnitOfMeasure('Stk',suc) ; //Mengeneinheit
//TODO Artikelnummer Kaeufer
SellersItemIdentification := 'A0815'; //Artikelnummer
TaxPercent := 7.0; //MwSt
TaxCategory := TInvoiceDutyTaxFeeCategoryCode.idtfcc_S_StandardRa te;
PriceAmount := 50; //Einzelpreis
//TODO Preiseinheiten
BaseQuantity := 0; //Preiseinheit
BaseQuantityUnitCode := TInvoiceUnitCode.iuc_None; //Preiseinheit Mengeneinheit
LineAmount := 100;
end;


Einer mit Rabatt

with inv.InvoiceLines.AddInvoiceLine do
begin
ID := '002'; //Positionsnummer
//Note : String; //Hinweis
Name := 'Kurzinfo Artikel 2'; //Kurztext
Description := 'Langtext Artikel 2'+#13#10+'Zeile 2'+#13#10+'Zeile 3'; //Laengere Beschreibung
Quantity := 1; //Menge
UnitCode := TInvoiceUnitCodeHelper.MapUnitOfMeasure('Stk',suc) ; //Mengeneinheit
//TODO Artikelnummer Kaeufer
SellersItemIdentification := 'A0816'; //Artikelnummer
TaxPercent := 19.0; //MwSt
TaxCategory := TInvoiceDutyTaxFeeCategoryCode.idtfcc_S_StandardRa te;
PriceAmount := 100; //Einzelpreis
BaseQuantity := 0; //Preiseinheit
BaseQuantityUnitCode := TInvoiceUnitCode.iuc_None; //Preiseinheit Mengeneinheit
LineAmount := 100;

//Nachlass zur Position
if cbAllowanceCharges.Checked then
with AllowanceCharges.AddAllowanceCharge do
begin
ChargeIndicator := false;
ReasonCodeAllowance := TInvoiceAllowanceOrChargeIdentCode.iacic_Discount;
BaseAmount := 50.00;
MultiplierFactorNumeric := 10; //10 Prozent auf 50 EUR
Amount := 5.00;
//Nicht erforderlich TaxPercent := 19.0;
//Nicht erforderlich TaxCategory := TInvoiceDutyTaxFeeCategoryCode.idtfcc_S_StandardRa te;
LineAmount := LineAmount - Amount;
end;
end;

Ich glaube jetzt kommt auch noch ein zweiter Rabatt

if cbAllowanceCharges.Checked then //Nachlaesse generieren
begin
with inv.AllowanceCharges.AddAllowanceCharge do
begin
//Haeufig genutzte Gruende

//41 Bonus for works ahead of schedule - Bonus fuer fruehzeitig erfuellte Aufgaben
//42 Other bonus - sonstiger Bonus
//60 Manufacturer’s consumer discount - Verbrauchernachlass des Herstellers
//62 Due to military status - Wegen militaerischem Status
//63 Due to work accident - Wegen Arbeitsunfall
//64 Special agreement - Sondervereinbarung
//65 Production error discount - Nachlass wegen Produktionsmangel
//66 New outlet discount - Nachlass fuer neue Vertriebsstelle
//67 Sample discount - Musternachlass
//68 End of range discount - Nachlass fuer Auslaufsortiment
//70 Incoterm discount - Incoterm Nachlass
//71 Point of sales threshold allowance - Freibetrag fuer Umsaetze zum Verkaufszeitpunkt
//88 Material surcharge/deduction - Materialzuschlag/-Nachlass
//95 Discount - Nachlass
//100 Special rebate - Sonderarbatt
//102 Fixed long term - Feste Laufzeit
//103 Temporary - Vorlaeufig
//104 Standard - Regulaer
ChargeIndicator := false;
ReasonCodeAllowance := TInvoiceAllowanceOrChargeIdentCode.iacic_Discount;
Reason := 'Nachlass 1';
BaseAmount := 50.00;
MultiplierFactorNumeric := 10; //10 Prozent auf 50 EUR
Amount := 5.00;
TaxPercent := 19.0;
TaxCategory := TInvoiceDutyTaxFeeCategoryCode.idtfcc_S_StandardRa te;
end;
end;

Ich sehe im Moment nur noch Buchstaben.