Update 20230215

2023-02-15 21:30:27 +01:00
parent 35df876d21
commit e83b2e6f35
179 changed files with 7274 additions and 7173 deletions
--- a/DPM2016/Database/clsDB.vb
+++ b/DPM2016/Database/clsDB.vb
@@ -893,7 +893,7 @@ Public Class clsDB
        Dim faelligkeit As Date
        Dim mahngebuehr As Double

-        mahndatum = daten.Rows(0).Item("Mahndatum")
+        mahndatum = Now()
        faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
        mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
        Select Case Stufe