Ustv

SDL/USTV/usrCntlUSTV.vb

@@ -28,8 +28,16 @@ Public Class usrCntlUSTV
         With dgvUSTV
             .ClearSelection()
 
+            Dim topMax = ""
+            If cbxTopMax.Checked Then
+                If IsNumeric(txtMaxSrch.Text) Then
+                    topMax = " TOP (" & txtMaxSrch.Text.Trim & ")"
+                Else
+                    topMax = " TOP (200)"
+                End If
+            End If
 
-            .SET_SQL("SELECT TOP (200) [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter]
+            .SET_SQL("SELECT " & topMax & " [UStVAn_ID],[UStVAn_KuNr],[UStVAn_Name],LandKz,[UStVAn_ReDatVon],[UStVAn_ReDatBis] ,UStVAn_AntragEingereichtAm,[UStVAn_3470] ,[UStVAn_Währungscode],[UStVAn_USteuerbetrag],[UStVAn_Erstattungsbetrag],[UStVAn_USteuerbetragEUR],[UStVAn_ErstattungsbetragEUR],[UStVAn_Sachbearbeiter]
                   FROM [tblUStVAntrag] inner join [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr
                   where 1=1 " & getWhere() & "
                   order by UStVAn_KuNr,UStVAn_Name,datepart(year,[UStVAn_ReDatVon] ) desc,LandKz,[UStVAn_ReDatVon] desc", "FMZOLL")
@@ -116,6 +124,14 @@ Public Class usrCntlUSTV
             End If
         End If
 
+        Select Case cbxEingereicht.CheckState
+            Case CheckState.Checked
+                whereStr &= " AND UStVAn_AntragEingereichtAm is not null "
+            Case CheckState.Unchecked
+                whereStr &= " AND UStVAn_AntragEingereichtAm is null "
+            Case CheckState.Indeterminate
+        End Select
+
         If KdSearchBox1.KdNr > 0 Then whereStr &= " AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " "
         Return whereStr
     End Function
@@ -333,4 +349,15 @@ Public Class usrCntlUSTV
 
     End Sub
 
+    Private Sub cbxTopMax_CheckedChanged(sender As Object, e As EventArgs) Handles cbxTopMax.CheckedChanged
+        init()
+    End Sub
+
+    Private Sub txtMaxSrch_TextChanged(sender As Object, e As EventArgs) Handles txtMaxSrch.Leave
+        init()
+    End Sub
+
+    Private Sub cbxEingereicht_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEingereicht.CheckStateChanged
+        init()
+    End Sub
 End Class