edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Leistungsdatum (Zugferd) für Sammelrechnung.

Browse Source
This commit is contained in:
d.breimaier
2025-01-24 17:28:44 +01:00
parent b361c33a2e
commit 6feb994572
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SDL/Fakturierung/cFakturierung.vb
View File

@@ -2007,8 +2007,13 @@ Public Class cFakturierung
desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK) desc.AddNote("Es bestehen Rabatt- und Bonusvereinbarungen.", SubjectCodes.AAK)
If ROW("Abfertigungsdatum") IsNot DBNull.Value AndAlso ROW("Abfertigungsdatum") <> "" Then If ROW("AbfertigungsdatumVon") IsNot DBNull.Value Then
desc.ActualDeliveryDate = (CDate(ROW("Abfertigungsdatum")))
Dim dt As DateTime = CType(ROW("AbfertigungsdatumVon"), DateTime)
If IsDate(dt) Then desc.ActualDeliveryDate = (CDate(dt))
End If End If