seriendruck, etc.

SDL/seriendruck/usrCntlSeriendruck.vb

@@ -237,20 +237,11 @@ Public Class usrCntlSeriendruck
 
     Private Sub btnMail_Intern_Click(sender As Object, e As EventArgs) Handles btnMail_Intern.Click
 
-        If txtErstattungsNr_Mail.Text = "" Then
-            txtErstattungsNr_Mail.Focus()
-            Exit Sub
-        End If
 
-        If txtErstattungsUnterNr_Mail.Text = "" Then
-            txtErstattungsUnterNr_Mail.Focus()
-            Exit Sub
-        End If
-
-        If cboErstattungsart.SelectedIndex <> 4 Then
-            MsgBox("Die Erstattungsschreiben sind aktuell nur für den Typ 4 - Auf Sicherheit verfügbar!")
-            Exit Sub
-        End If
+        'If cboErstattungsart.SelectedIndex <> 4 Then
+        '    MsgBox("Die Erstattungsschreiben sind aktuell nur für den Typ 4 - Auf Sicherheit verfügbar!")
+        '    Exit Sub
+        'End If
 
         Dim dt As New DataTable
         dt =
@@ -350,8 +341,6 @@ Public Class usrCntlSeriendruck
 
         Dim dt As New DataTable
 
-        If txtFiliale_Mail.Text = "" Then Return Nothing
-
         Dim SQLString = "SELECT   dbo.tblUStVAntrag.UStVAn_KuNr as kdNr,Rechnungsausgang.RechnungsNr as Belegnummer, cast(Rechnungsausgang.RechnungsDatum as date) as Belegdatum, CONVERT(varchar(512), dbo.tblUStVAntrag.UStVAn_Name) AS Name, CONVERT(varchar(512), ISNULL(dbo.tblUStVAntrag.UStVAn_Straße, '')) AS Straße, CONVERT(varchar(255), 
                       dbo.tblUStVAntrag.UStVAn_PLZ + ' ' + dbo.tblUStVAntrag.UStVAn_Ort) AS Ort, CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_LandKz) AS LandKz, CONVERT(varchar(255), 
                       dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandKz + ' ' + SUBSTRING(CONVERT(varchar(10), dbo.tblUStVAntrag.UStVAn_ReDatVon, 20), 6, 2) + '-' + SUBSTRING(CONVERT(varchar(10), 
@@ -363,7 +352,8 @@ Public Class usrCntlSeriendruck
                     INNER JOIN dbo.tblUStVAntrag ON dbo.Rechnungsausgang.AbfertigungsNr = dbo.tblUStVAntrag.AbfertigungsNr AND dbo.Rechnungsausgang.FilialenNr = dbo.tblUStVAntrag.FilialenNr 
                     INNER JOIN dbo.[Länderverzeichnis für die Außenhandelsstatistik] ON dbo.tblUStVAntrag.UStVAn_LandNr = dbo.[Länderverzeichnis für die Außenhandelsstatistik].LandNr 
                     INNER JOIN dbo.Kunden ON dbo.tblUStVAntrag.UStVAn_KuNr = dbo.Kunden.KundenNr
-                    WHERE dbo.Rechnungsausgang.AbfertigungsNr= " & txtErstattungsNr_Mail.Text & " AND dbo.Rechnungsausgang.FilialenNr = " & txtFiliale_Mail.Text & " AND dbo.Rechnungsausgang.UnterNr=" & txtErstattungsUnterNr_Mail.Text
+                    INNER JOIN dbo.tblKundenErweitert ON dbo.tblKundenErweitert.kde_KundenNr = dbo.Kunden.KundenNr 
+					WHERE Rechnungsausgang.Firma_ID = 19  AND Rechnungsausgang.Rechnungsdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' AND (isnull(dbo.tblUStVAntrag.UStVAn_Sicherheit,0) = " & IIf(cboErstattungsart.SelectedIndex <> 4, "0", "1") & " or ISNULL(tblKundenErweitert.kde_Erstattungsart,0) = " & cboErstattungsart.SelectedIndex & ")"
 
 
         dt = (New SQL).loadDgvBySql(SQLString, "FMZOLL")