Seriendruck, Mahnlauf, etc.

SDL/seriendruck/usrCntlSeriendruck.vb

@@ -237,13 +237,24 @@ 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
 
         Dim dt As New DataTable
-        dt = generateDTErstattungen()
+        dt =
+            generateDTErstattungen()
 
         If dt.Rows.Count > 0 Then
 
@@ -339,7 +350,7 @@ Public Class usrCntlSeriendruck
 
         Dim dt As New DataTable
 
-        If txtFiliale.Text = "" Then Return Nothing
+        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), 
@@ -351,9 +362,8 @@ Public Class usrCntlSeriendruck
                       FROM dbo.Rechnungsausgang 
                     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 
-                    INNER JOIN dbo.tblKundenErweitert ON dbo.tblUStVAntrag.UStVAn_KuNr = tblKundenErweitert.kde_KundenNr and ISNULL(tblKundenErweitert.kde_Erstattungsart, 0) = " & cboErstattungsart.SelectedIndex &
-                    " WHERE dbo.Rechnungsausgang.Rechnungsdatum between '" & datVon.Value.ToShortDateString & "' and '" & datBis.Value.ToShortDateString & "' AND dbo.Rechnungsausgang.FilialenNr = " & txtFiliale.Text & " AND Rechnungsausgang.RechnungsNr is not null"
+                    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
 
 
         dt = (New SQL).loadDgvBySql(SQLString, "FMZOLL")