diff --git a/SDL/Fakturierung/cFakturierung.vb b/SDL/Fakturierung/cFakturierung.vb index 050eb9ec..a12ff276 100644 --- 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