Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Delphi und XRechnung (https://www.delphipraxis.net/204583-delphi-und-xrechnung.html)

harfes 25. Okt 2023 07:43

AW: Delphi und XRechnung
 
Hab gerade noch die Version 2.3.1 versucht - die funktioniert. Was fehlt bei der V. 3?

Hartmut

sh17 25. Okt 2023 08:28

AW: Delphi und XRechnung
 
Bitte nur mit dem Release arbeiten

https://github.com/LandrixSoftware/X...ses/tag/v2.3.1

harfes 25. Okt 2023 08:42

AW: Delphi und XRechnung
 
Hallo Sven,

ja, da war ich wohl zu übereifrig mit der aktuellen Version 3...aber kein Problem, zum Testen genügt ja die V. 2.3.1. Sollte es dann zur Umsetzung kommen, muss ich es ja eh bei Dir lizensieren, da gewerblich genutzt.

Hartmut

dpKlaus 11. Dez 2023 14:34

AW: Delphi und XRechnung
 
Liste der Anhänge anzeigen (Anzahl: 2)
Guten Tag!

Ich arbeite gerade mit der xRechnung Demo und habe den „Zuschlag fuer Kommuikation“ und „Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente“ deaktiviert (auskommentiert)

Dann hab ich folgende Einträge vorgenommen, bzw. angepasst:

if cbAllowanceCharges.Checked then
begin
inv.LineAmount := inv.LineAmount;
inv.AllowanceTotalAmount := 5.00 + 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;
inv.TaxInclusiveAmount := inv.TaxInclusiveAmount - 5.00 - 0.95 - 5.00 - 0.95;
inv.PayableAmount := inv.TaxInclusiveAmount;
end;

ich erhalte dann aber folgende Fehlermeldung:

Pos Code Adj. Grad Text
val-sch.1.1 BR-CO-10 error [BR-CO-10]-Sum of Invoice line net amount (BT-106) = Σ Invoice line net amount (BT-131).
Pfad: /ubl:Invoice/cac:LegalMonetaryTotal[1]
val-sch.1.2 BR-CO-11 error [BR-CO-11]-Sum of allowances on document level (BT-107) = Σ Document level allowance amount (BT-92).
Pfad: /ubl:Invoice/cac:LegalMonetaryTotal[1]

Welche Variablen müssen noch bearbeitet werden?

Zur Übersicht habe ich mir die Inhalte der Variablen vor der Änderung der Variablen bei „if cbAllowanceCharges.Checked then“ per Showmessage (siehe Anhang Summen 001) anzeigen lassen und danach (siehe Anhang Summen 002). Diese Werte stimmen soweit.

sh17 11. Dez 2023 14:56

AW: Delphi und XRechnung
 
Aus der Kalten würde ich sagen, der ganze Block muss dann auch weg, wenn keine Nachlässe drin sind

Code:
if cbAllowanceCharges.Checked then
begin
inv.LineAmount := inv.LineAmount;
inv.AllowanceTotalAmount := 5.00 + 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;
inv.TaxInclusiveAmount := inv.TaxInclusiveAmount - 5.00 - 0.95 - 5.00 - 0.95;
inv.PayableAmount := inv.TaxInclusiveAmount;
end;

dpKlaus 11. Dez 2023 15:27

AW: Delphi und XRechnung
 
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.

sh17 11. Dez 2023 15:33

AW: Delphi und XRechnung
 
wenn irgendwo etwas über AddAllowanceCharge eingetragen wird, zur Position oder generell zum Dokument, dann
muss dass in der Endsumme wieder abgezogen werden, sowohl im Netto also auch mit der MwSt. Deswegen ist in der Demo
für jeden Rabatt explizit der einzelne Betrag mit 5.00 EUR aufgeführt, ebenso wie die MWst mit 0,95. So kann man
es nachvollziehen.

dpKlaus 11. Dez 2023 15:57

AW: Delphi und XRechnung
 
So wollte/will ich es auch machen. Deshalb habe ich mir ja die Werte mit PrintScreens angezeigt. (siehe Anlagen weiter oben)

"Summen 01.jpg" die Eintraege ohne Rabatte und dann "Summen 02.jpg" die Eintrage nach Abzug von den 2 mal 5 EUR Rabatten und den 2 mal 0,95 EUR MwSt Minderung. Die Endbetraege nach der Subtraktion sind auch stimmig.

inv.PayableAmount 226 ohne Abzüge und

inv.PayableAmount 214,1 nach Abzügen (100,00 + 7 Mwst und 90 + 17,1 Mwst)

dpKlaus 12. Dez 2023 05:45

AW: Delphi und XRechnung
 
Liste der Anhänge anzeigen (Anzahl: 1)
Ich nutze die Demo XRechnung for Delphi v2.3.1
In der Demo sind die Zuschläge (1 EUR) und eine Nachlassbuchung (5,00 EUR) deaktiviert.
Es bleiben ein „Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente“ und ein „Nachlass (Rabatt) zur Position“ aktiviert. In der Demo werden als erstes die Nettobeträge der Rechnung und die MwSt-Beträge ohne Rabatte berechnet. Im weiteren verlauf werden die Nettobeträge und die MwSt-Beträge der Rabatte/Nachlässe „berechnet“. Das sind immer 5,00 EUR Rabatt und 0,95 EUR MwSt und wie unten in Variable eingetragen. Die Demo kann eine Anzeige im HTML-Format generieren und man sieht dann 200 EUR Rechnungsbetrag 10 EUR Nachlass/Rabatt und entsprechend die MwSt und den Rechnungs/Zahlbetrag.
Die Werte von denen ich glaube, dass sie zu „Nachlass (Rabatt) zur Position“ gehören habe ich rot markiert.

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;

Wenn ich den „Nachlass (Rabatt) zur Position“ deaktiviere und die Rot markierten Werte für die Korrekturbuchung lösche, also einfach einen „Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente“ verbuchen möchte, bekomme ich eine Fehlermeldung: Siehe Anhang


Die gleiche Fehlermeldung kommt, wenn ich versuche einen „Nachlass (Rabatt) zur Position“ zu buchen und nur die roten Werte stehen lasse.
Lasse ich alle werte (rot und schwarz) wie oben stehen, und buche gleichzeitig „Nachlass 2 ohne Angabe von Basisbetrag und Nachlassprozente“ und einen „Nachlass (Rabatt) zur Position“ habe ich keine Fehlermeldung.
Hat jemand eine Idee was die Fehlermeldung zu bedeuten hat und ob vielleicht meine Zuordnung der Werte falsch ist?

sh17 12. Dez 2023 07:21

AW: Delphi und XRechnung
 
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;

dpKlaus 12. Dez 2023 10:10

AW: Delphi und XRechnung
 
Guten Morgen!
Ja und ganau das ist das Problem. Hier die Kopie aus der Demo:

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; // zum Nachlass
inv.TaxInclusiveAmount := inv.TaxInclusiveAmount - 5.00 - 0.95; // - 5.00 - 0.95;
inv.PayableAmount := inv.TaxInclusiveAmount;
end;

Dann hab ich die Fehlermeldung. Wenn ich die Werte, die in die Variablen geschrieben werden mit ShowMessage ansehe stehen dort die richtigen Werte. An der Demo wurde auch so weit nichts geändert.

Hier mal die ShowMessage:


ShowMessage ('Summen 002'+ #13#13 +
'inv.LineAmount: ' + FloatToStr(inv.LineAmount, FormatSettings) + #13#13 +
'inv.AllowanceTotalAmount: ' + FloatToStr(inv.AllowanceTotalAmount, FormatSettings) + ' Abzuege' + #13#13 +
'inv.ChargeTotalAmount: ' + FloatToStr(inv.ChargeTotalAmount, FormatSettings) + ' Zuschlaege' + #13#13 +
'---------------------' + #13#13 +
'inv.TaxAmountSubtotals[0].TaxableAmount: ' + FloatToStr(inv.TaxAmountSubtotals[0].TaxableAmount, FormatSettings) + #13#13 +
'inv.TaxAmountSubtotals[0].TaxAmount: ' + FloatToStr(inv.TaxAmountSubtotals[0].TaxAmount, FormatSettings) + #13#13 +
'---------------------' + #13#13 +
'inv.TaxAmountSubtotals[1].TaxableAmount: ' + FloatToStr(inv.TaxAmountSubtotals[1].TaxableAmount, FormatSettings) + #13#13 +
'inv.TaxAmountSubtotals[1].TaxAmount: ' + FloatToStr(inv.TaxAmountSubtotals[1].TaxAmount, FormatSettings) + #13#13 +
'---------------------' + #13#13 +
'inv.TaxAmountTotal: ' + FloatToStr(inv.TaxAmountTotal, FormatSettings) + #13#13 +
'inv.TaxExclusiveAmount: ' + FloatToStr(inv.TaxExclusiveAmount, FormatSettings) + #13#13 +
'inv.TaxInclusiveAmount: ' + FloatToStr(inv.TaxInclusiveAmount, FormatSettings) + #13#13 +
'inv.PayableAmount: ' + FloatToStr(inv.PayableAmount, FormatSettings));

Ich kann gern die Demo, wie ich sie verwende zur Verfügung stellen, wenn es hilft Licht ins Dunkle zu bringen.

dpKlaus 12. Dez 2023 10:40

AW: Delphi und XRechnung
 
Ist es möglich, das das Prüfprogram das Problem ist?
Kann man die xml-Datei noch irgendwohin senden zum Prüfen?
Ich werde mal suchen.
Zunächst werde ich mal die Werte von 5 € und dazugehöriger MwSt für eine Rabattart ändern.

dpKlaus 12. Dez 2023 11:23

AW: Delphi und XRechnung
 
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 (????)

sh17 12. Dez 2023 11:28

AW: Delphi und XRechnung
 
wie gesagt, siehe PN, so kann ich hier nicht erkennen, was da wie gerechnet wird.

KlausV 24. Jul 2024 13:34

AW: Delphi und XRechnung
 
Hi Zusammen,
mal eine generelle Frage zu dem Thema XRechnung und ZUGFeRD.
Welches Forum nutzt Ihr um an Antworten bezüglich ZUGFeRD zu kommen?
Habe mir die Spezifikationen von 2.1.1 und 2.2.0 heruntergeladen, auch hier vieles unklar.
Wir sind eine kleiner Mittelständler und haben eine ERP Lösung in D7 noch am laufen. Da wir auch Rechnungen an Behörden, Schulen, etc. schreiben, dachte ich das ZUGFeRD mit dem Profil XRechnung zu nehmen, bin mir aber echt nicht sicher, ob es das dann auch ist. Ohne den B2G Sektor würde uns vermutlich das Profil Basis reichen.
In der aktuellen Spezifikation 2.2.0 gibt es nur Files über FAKTUR-X. In der Version 2.1.1 gibt es sage und schreibe 6 pdf files und keines davon hilft irgendwie weiter.
Ich muss wissen, welche Pflichtfelder es gibt, damit ich unsere Anwendung schon mal ändern kann, wie Leitweg ID, falls peppol im Spiel ist.
Wer bringt mir Licht ins Dunkel?
Danke schon mal.
Klaus

Redeemer 24. Jul 2024 15:25

AW: Delphi und XRechnung
 
Factur-X = Zugferd = PDF mit angehängter XRechnung

Alles exakt dasselbe, heißt nur anders.

sh17 25. Jul 2024 12:18

AW: Delphi und XRechnung
 
Vielleicht mal ein Link auf den anderen Artikel, bevor sich hier Fragen wiederholen

https://www.delphipraxis.net/207503-...-co-aus-3.html

Kaczmarek 5. Sep 2024 14:32

AW: Delphi und XRechnung
 
Guten Tag sh17,

ich bin Neu in diesem Forum, da ich jetzt wahrscheinlich mit
der e Rechnung konfrontierte werde und mir die Infos zusammensuchen
muss. Ich habe dein Beispiel heruntergeladen und bei Start
diese Fehlermeldung erhalten

[dcc32 Fataler Fehler] XRechnungUnit1.pas(27): F2613 Unit 'Winapi.WebView2' nicht gefunden.

Da ich hier Neuland betrete weis ich nicht was noch fehlt oder wie eingebunden werden muss.

Für eine Hilfestellung wäre ich dankbar.

Gruss

BlueStarHH 5. Sep 2024 14:36

AW: Delphi und XRechnung
 
Zitat:

Zitat von Kaczmarek (Beitrag 1540596)
[dcc32 Fataler Fehler] XRechnungUnit1.pas(27): F2613 Unit 'Winapi.WebView2' nicht gefunden.

Alte Delphi-Version installiert, die noch kein WebView2 mitliefert?

sh17 6. Sep 2024 07:36

AW: Delphi und XRechnung
 
Zitat:

Zitat von Kaczmarek (Beitrag 1540596)
Guten Tag sh17,

ich bin Neu in diesem Forum, da ich jetzt wahrscheinlich mit
der e Rechnung konfrontierte werde und mir die Infos zusammensuchen
muss. Ich habe dein Beispiel heruntergeladen und bei Start
diese Fehlermeldung erhalten

[dcc32 Fataler Fehler] XRechnungUnit1.pas(27): F2613 Unit 'Winapi.WebView2' nicht gefunden.

Da ich hier Neuland betrete weis ich nicht was noch fehlt oder wie eingebunden werden muss.

Für eine Hilfestellung wäre ich dankbar.

Gruss

in der XRechnungUnit1.pas Zeile 17 ändern in {.$DEFINE USE_EDGE_BROWSER}

Kaczmarek 7. Sep 2024 16:54

AW: Delphi und XRechnung
 
Hallo Sven
Vielen Dank -es hat jetzt geklappt.

mlc42 13. Nov 2024 15:42

AW: Delphi und XRechnung
 
Bei mir funktioniert das ohne {DEFINE USE_EDGE_BROWSER} gut.
Wenn ich das unter Delphi12 auf einem W10 Rechner einschalte wird zwar in dem
Testprogramm von Landrix weiterhin eine xml erzeugt, aber keine Validierung,
keine HMTL und auch kein PDF.
Auch wenn ich eine andere xml laden und anzeigen will passiert nichts mehr.

Das steht dann unten im Log:


C:\XRechnung-for-Delphi-master\Samples\Win32\Debug>
pushd
C:\XRechnung-for-Delphi-master\Samples\Win32\Debug\


C:\XRechnung-for-Delphi-master\Samples\Win32\Debug>C:\XRechnung-for-Delphi-master\Distribution\java\bin\java.exe
-classpath C:\XRechnung-for-Delphi-master\Distribution\validator\libs -jar C:\XRechnung-for-Delphi-master\Distribution\validator\validationtool-1.5.0-standalone.jar -s C:\XRechnung-for-Delphi-master\Distribution\validator-configuration30x\scenarios.xml -
r C:\XRechnung-for-Delphi-master\Distribution\validator-configuration30x -h C:\XRechnung-for-Delphi-master\Samples\Win32\Debug\XRechnung-UBL.xml
KoSIT Validator version 1.5.0

Loading scenarios from file:///C:/XRechnung-for-Delphi-master/Distribution/validator-configuration30x/scenarios.xml

Using repository file:///C:/XRechnung-for-Delphi-master/Distribution/validator-configuration30x/


Loaded "Validator Configuration XRechnung 3.0.2" by Coordination Office for IT Standards (KoSIT) from 2024-06-20
The following scenarios are available:
* EN16931 XRechnung (UBL Invoice)

* EN16931 XRechnung Extension (UBL Invoice)

* EN16931 XRechnung (UBL CreditNote)

* EN16931 XRechnung (CII)

* EN16931 XRechnung Extension (CII)

* EN16931 (UBL Invoice)

* EN16931 (UBL CreditNote)

* EN16931 (CII)


Processing of 1 objects started

Processing of 1 objects completed in 594ms

Results:
----------------------------------------------------------------------------------------------------------------
|File |Schema |Schematron|Acceptance|Error/Description |
|/C:/XRechnung-for-
Delphi-master/Samples/Win32/Debug/XRech...| Y | Y |ACCEPTABLE| |
|g-UBL.xml | | | | |
----------------------------------------------
------------------------------------------------------------------
Acceptable: 1 Rejected: 0
##############################

# Validation successful! #

##############################



Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz