Zugferd

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