USTVA; MDM-Einarbeitung

2025-10-03 09:12:44 +02:00
parent 44d3949da5
commit 584c88c68e
6 changed files with 131 additions and 17 deletions
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -680,7 +680,16 @@ Public Class usrCntlUSTV


                Else
-                    Dim frm As New frmUSTVoffeneAntraege()
+
+                    Dim start_date As New Date(Today.Year, 1, 1)
+                    Dim end_date As New Date(Today.Year, 12, 31)
+
+
+
+
+                    Dim ADR As cAdressen = New cAdressen(kdNr)
+
+                    Dim frm As New frmUSTVoffeneAntraege(start_date, end_date, kdNr, ADR.Name_1)
                    frm.Show()
                End If