IDS, USTVA

2025-01-02 15:48:41 +01:00
parent e9d0c1ae57
commit 874ca62560
6 changed files with 17 additions and 11 deletions
--- a/SDL/USTV/usrCntlUSTV.vb
+++ b/SDL/USTV/usrCntlUSTV.vb
@@ -695,7 +695,7 @@ Public Class usrCntlUSTV
            Exit Sub
        End If

-        Dim frm = New frmMDM_USTVAntrag(-1, "AT", New Date(Now.Year(), 1, 1), New Date(Now.Year(), 12, 31))
+        Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing)
        frm.ShowDialog()

    End Sub