From 7aeb9e0ab13c09f35e60d39ea5961426561d8d94 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Mon, 15 Sep 2025 09:26:35 +0200 Subject: [PATCH] Zugferd --- SDL/Fakturierung/cFakturierung.vb | 19 ++++++++++++++++++- 1 file changed, 18 insertions(+), 1 deletion(-) diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 08297513..6b3d9f92 100644 --- a/SDL/Fakturierung/cFakturierung.vb +++ b/SDL/Fakturierung/cFakturierung.vb @@ -2114,6 +2114,13 @@ Public Class cFakturierung desc.Type = InvoiceType.CreditNote End Select + + 'Die „Berechnung BT-10“ bezieht sich auf das Feld BT-10 „Buyer reference“ (Käuferreferenz) in der elektronischen Rechnung, speziell im XRechnung-Standard. Dieses Feld dient zur Angabe der Leitweg-ID + 'für öffentliche Auftraggeber oder anderer Referenzinformationen für interne Zuordnungsprozesse. + 'Die Leitweg-ID ist in Deutschland eine Pflichtangabe für elektronische Rechnungen an die Bundesverwaltung und muss vom Rechnungssteller vom Auftraggeber erhalten werden. + + desc.ReferenceOrderNo = IIf(RECHNUNG.KdAuftragsNr Is Nothing, "", RECHNUNG.KdAuftragsNr) + If RECHNUNG.Besonderheiten IsNot Nothing Then desc.AddNote(RECHNUNG.Besonderheiten.ToString, SubjectCodes.AAI) If RECHNUNG.Text IsNot Nothing Then desc.AddNote(RECHNUNG.Text.ToString, SubjectCodes.AAI) desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK) @@ -2319,6 +2326,17 @@ Public Class cFakturierung End Select + 'Die „Berechnung BT-10“ bezieht sich auf das Feld BT-10 „Buyer reference“ (Käuferreferenz) in der elektronischen Rechnung, speziell im XRechnung-Standard. Dieses Feld dient zur Angabe der Leitweg-ID + 'für öffentliche Auftraggeber oder anderer Referenzinformationen für interne Zuordnungsprozesse. + 'Die Leitweg-ID ist in Deutschland eine Pflichtangabe für elektronische Rechnungen an die Bundesverwaltung und muss vom Rechnungssteller vom Auftraggeber erhalten werden. + + Dim BestellungsRefNr As String = "" + If ROW("KdAuftragsNr") IsNot DBNull.Value AndAlso ROW("KdAuftragsNr") <> "" Then + desc.ReferenceOrderNo = ROW("KdAuftragsNr") + Else + desc.ReferenceOrderNo = " " + End If + Dim Rechnugnsname2 As String = "" If ROW("RechnungsName 2") IsNot DBNull.Value AndAlso ROW("RechnungsName 2") <> "" Then Rechnugnsname2 = ROW("RechnungsName 2") @@ -2394,7 +2412,6 @@ Public Class cFakturierung ' Optionally, to support Peppol----------------------------- - If RE_UID <> "" Then desc.AddBuyerTaxRegistration(RE_UID, TaxRegistrationSchemeID.VA) If vatBuyer Then