Delphi und XRechnung

[bcvs]

Zitat von aliB:

Darf man fragen wie genau die Lösung aussieht?

Den Code kann ich hier nicht posten. Ich habe mir hier:
https://www.beuth.de/de/technische-r...-3-2/270865232

die DIN CEN/TS 16931-3-2 gekauft. Da ist dokumentiert, welche dieser BT-IDs der XRechnungs-Spezifikation wie in der UBL-Syntax verwendet wird.

Damit habe ich mir eine Klasse gebaut, die sich über Events anhand der BT-ID die einzusetzende Information aus dem aurufenden Programm holt und damit ein TXMLDocument aufbaut.

[KlausV]

Hallo Zusammen,
ich würde gerne das Thema wieder aufleben lassen, weil ich aktuell mich auch darum kümmern darf. Ich habe eine Eigenentwicklung unter Delphi 7, in einer VM Ware Umgebung unter XP (Bin gerade dran, das ganze auf W10 zu hiefen).
Hat sich jemand schon näher mit dem Tool von Landrix Software beschäftigt oder sogar produktiv im Einsatz? Ich benötige es für die xRECHNUNG, nicht für ZUGPFERD.
Meine Fragen dazu:
- Kann man in dem tool zwischen xRECHUNG und ZUGFERD und den einzelnen Versionen unterscheiden?
- Wird die XML Datei auch gleich dabei versendet?

Danke schon mal.
Gruß Klaus

[sh17]

Ohne jetzt für mich selbst Werbung zu machen...

Meine Fragen dazu:
- Kann man in dem tool zwischen xRECHUNG und ZUGFERD und den einzelnen Versionen unterscheiden?

man kann zwischen der UBL und der CII-Variante bei der Ausgabe unterscheiden. Aktuell ist die Version 2.2.0., ältere
Versionen wurden entfernt, 1.x ist sowieso nicht mehr gültig. Ansonsten müsste man sich halt ein älteres Release auschecken.

- Wird die XML Datei auch gleich dabei versendet?

Nein, die wird nur erzeugt. Der Versand ist ja meist unterschiedlich gelöst, meist muss die XML in ein Portal hochgeladen werden.

VG, Sven

[SnergleTheDwarf]

Ich klinke mich mal ein in der Hoffnung es für mich nutzen zu können.

Kann ich die Lösung auch nutzen, um XML-Daten einzulesen bzw. auch aus PDFs zu extrahieren? Mir
geht es eher nicht um das Erstellen von E-Rechnungen sondern um das Einlesen und Verarbeiten.

[sh17]

Zitat von SnergleTheDwarf:

Ich klinke mich mal ein in der Hoffnung es für mich nutzen zu können.

Kann ich die Lösung auch nutzen, um XML-Daten einzulesen bzw. auch aus PDFs zu extrahieren? Mir
geht es eher nicht um das Erstellen von E-Rechnungen sondern um das Einlesen und Verarbeiten.

Einlesen von Daten per ZUGFeRD-Format ist vorbereitet, aber noch nicht umgesetzt.
Das extrahieren aus PDF-Dateien ist nicht enthalten. Wenn mir jemand da einen einfachen Ansatzpunkt der
Implementation liefert, kann ich das gern integrieren. Wir selbst nutzen bisher WPViewPDF von https://www.wpcubed.com/pdf/products/pdfviewer/

[SnergleTheDwarf]

Den einzigen Ansatz den ich mal verfolgt hatte, war die die PDF als TStream zu öffnen nach dem Anfang des XML-Teils der XRechnung zu suchen und dann solang einzulesen, bis ich an Ende des XML-Teils gekommen bin. Müsste schauen ob ich das noch finde. Ob dies der wirklich beste Weg ist, kann ich allerdings nicht sagen. kA ob es speziell für PDF irgendetwas gibt womit man derlei Bestandteile extrahieren kann.
Nutze ebenfalls "WPViewPDF". Habe aber noch nicht geschaut, ob es hierzu etwas gibt und ob der XML-Teil irgendwie als Bestandteil in die PDF eingebettet ist oder einfach nur an den Datei-Stream angehängt wird. Ist dies vielleicht durch die Erstellung erkennbar?

[sh17]

So sollte man alle entsprechenden Anhänge erwischen, gibt ja inzwischen mehrere Schreibweisen:

Code:

    j := WPViewPDF.Command(COMPDF_Attachment_List);
    hstrl  := TStringList.Create;
    try
      for i := 0 to j-1 do
        hstrl.Add( WPViewPDF.CommandGetStr( COMPDF_Attachment_GetProp, '', i ) );
      for i := 0 to hstrl.Count-1 do
      if (Pos('.xml',LowerCase(hstrl[i])) > 0) or (Pos('zugferd',LowerCase(hstrl[i])) = 1) then
      try
        mem := TMemoryStream.Create;
        try
          l := WPViewPDF.Command( COMPDF_Attachment_GetData, i);
          if l>=0 then
          begin
            mem.SetSize(l);
            WPViewPDF.CommandEx( COMPDF_MakeGetMEMORY, Cardinal ( mem.Memory ) );
            mem.Seek(0,soFromBeginning);
            zugferdInv := TZUGFeRDCrossIndustryDocument.Create;
            zugferdInv.LoadFromStream(mem);
          end;
        finally
          mem.Free;
        end;
      except
        on E:Exception do MessageDlg(E.Message+' '+e.ClassName, mtError, [mbOK], 0);
      end;
    finally
      hstrl.Free;
    end;

[Kaczmarek]

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]

Zitat von Kaczmarek:

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

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

[sh17]

Zitat von Kaczmarek:

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}