ustva-prüfungen

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,6 +1,4 @@
-
-Imports itextsharp.text.pdf
-Imports VERAG_PROG_ALLGEMEIN
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class ustCntlUSTV_AntragPosition
     Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
@@ -8,7 +6,6 @@ Public Class ustCntlUSTV_AntragPosition
     Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
     Public Antrag_LandKz = ""
     Dim kdnr = ""
-
     Public Event EV_PREV()
     Public Event EV_NEXT()
     Public Event CHANGED(UStVPo_ID)
@@ -576,10 +573,17 @@ Public Class ustCntlUSTV_AntragPosition
                     If txtRgDatum.Text <> "" Then
                         txtRgDatum.Text = txtRgDatum.Text.Replace("-", ".")
                         txtRgDatum.Text = txtRgDatum.Text.Replace(",", ".")
-                        'If IsDate(txtRgDatum.Text) Then txtChanged = True
+
+                        Dim antr As New cUSTVAntrag(UStV_POS.UStVAn_ID)
+
+                        If IsDate(txtRgDatum.Text) AndAlso ((CDate(txtRgDatum.Text) > antr.UStVAn_ReDatBis) OrElse (CDate(txtRgDatum.Text) < antr.UStVAn_ReDatVon)) Then
+                            MsgBox("Rechnungsdatum " & CDate(txtRgDatum.Text) & " darf nicht außerhalb der Antragsperiode liegen!")
+                        Else
+                            txtChanged = True
+                        End If
                     End If
 
-                ElseIf sender Is txtLeistungsbezeichnung Then
+                    ElseIf sender Is txtLeistungsbezeichnung Then
 
                     txtChanged = True