Leistungsdatum (Zugferd) für Sammelrechnung.

2025-01-24 17:28:44 +01:00
parent b361c33a2e
commit 6feb994572
1 changed files with 7 additions and 2 deletions
--- a/SDL/Fakturierung/cFakturierung.vb
+++ b/SDL/Fakturierung/cFakturierung.vb
@@ -2007,8 +2007,13 @@ Public Class cFakturierung

            desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK)

-            If ROW("Abfertigungsdatum") IsNot DBNull.Value AndAlso ROW("Abfertigungsdatum") <> "" Then
-                desc.ActualDeliveryDate = (CDate(ROW("Abfertigungsdatum")))
+            If ROW("AbfertigungsdatumVon") IsNot DBNull.Value Then
+
+                Dim dt As DateTime = CType(ROW("AbfertigungsdatumVon"), DateTime)
+
+                If IsDate(dt) Then desc.ActualDeliveryDate = (CDate(dt))
+
+
            End If