ustva-prüfungen

SDL/My Project/AssemblyInfo.vb

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.5.3.7")>
+<Assembly: AssemblyVersion("1.5.3.8")>
-<Assembly: AssemblyFileVersion("1.5.3.7")>
+<Assembly: AssemblyFileVersion("1.5.3.8")>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -21,6 +21,7 @@ Public Class frmMDM_USTVAntrag
     Dim DiffernezbetragEUR As Double
     Dim GesamtUSteuerEUR As Double
     Dim GesamtUSteuer As Double
+    Dim looked As Boolean = False
 
     Sub New(UStVAn_ID)
 
@@ -542,12 +543,17 @@ Public Class frmMDM_USTVAntrag
                 btnRMCQuartal.Visible = False
             End If
 
-            'If USTV_ANTRAG.UStVAn_LandKz IsNot Nothing Then
+            If USTV_ANTRAG.UStVAn_AntragEingereichtAm IsNot Nothing AndAlso IsDate(USTV_ANTRAG.UStVAn_AntragEingereichtAm) Then
-            '    pbXMLExport.Visible = setXMLExportVisible(USTV_ANTRAG.UStVAn_LandKz)
+                looked = True
-            'End If
+            Else
+                looked = False
+            End If
+
+            lookFields(looked)
+
 
         Else
-            Dim sqlWhere As String = ""
+                Dim sqlWhere As String = ""
             'neuer USTVA-Antrag
             KdSearchBox1.Visible = True
             cbxWahrung.Enabled = True
@@ -1794,9 +1800,20 @@ Public Class frmMDM_USTVAntrag
 
             If USTV_ANTRAG.UStVAn_Währungscode IsNot Nothing AndAlso USTV_ANTRAG.UStVAn_Währungscode <> "EUR" AndAlso USTV_ANTRAG.UStVAn_Währungscode <> "" Then
                 Dim averageUmrechnungskurs As Double = 1
+                Dim invoicedateOK As Boolean = True
+                Dim PosNr As Integer = -1
                 If dgvUSTVPositionen.Rows.Count > 0 Then
                     For Each row In dgvUSTVPositionen.Rows
                         averageUmrechnungskurs += row.Cells("UStVPo_Umrechnungskurs").Value
+
+                        Dim reDat As Date = IIf(Not IsDBNull(row.Cells("invoice_date").Value) AndAlso IsDate(row.Cells("invoice_date").Value), row.Cells("invoice_date").Value, Nothing)
+
+                        If reDat > USTV_ANTRAG.UStVAn_ReDatBis Or reDat < USTV_ANTRAG.UStVAn_ReDatVon Then
+                            invoicedateOK = False
+                            PosNr = row.Cells("UStVPo_ID").Value
+                        End If
+
+
                     Next
                     averageUmrechnungskurs = averageUmrechnungskurs / dgvUSTVPositionen.Rows.Count
                 End If
@@ -1807,6 +1824,10 @@ Public Class frmMDM_USTVAntrag
                     MsgBox("Bitte Umrechnungskurs in den Antragspositionen kontrollieren!" & vbNewLine & "Der Steuerbetrag weicht um " & Math.Round(abw, 2) & "€ vom FW-Steuerbetrag ab! ")
                 End If
 
+                If Not invoicedateOK Then
+                    MsgBox("Rechnungsdatum der Position " & PosNr & " befindet sich außerhalb der Antragsperiode, bitte korrigieren!")
+                End If
+
             End If
 
 
@@ -4511,4 +4532,17 @@ Public Class frmMDM_USTVAntrag
 
     End Function
 
+    Private Function lookFields(look As Boolean)
+
+        For Each c As Control In Panel8.Controls
+
+            If c.Name <> "cbxWahrung" AndAlso c.Name <> "txtEingereichtAm" AndAlso c.Name <> "cbxInterneNr" Then
+                c.Enabled = Not look
+            End If
+        Next
+        btnEintragloeschen.Enabled = Not look
+        btnNeuerEintrag.Enabled = Not look
+
+    End Function
+
 End Class

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -1,6 +1,4 @@
-
+Imports VERAG_PROG_ALLGEMEIN
-Imports itextsharp.text.pdf
-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