seriendruck, etc.

SDL/seriendruck/usrCntlSeriendruck.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class usrCntlSeriendruck
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrCntlSeriendruck
     'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
     'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
-    <System.Diagnostics.DebuggerStepThrough()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -37,12 +37,8 @@ Partial Class usrCntlSeriendruck
         Me.cbxErstSprache = New System.Windows.Forms.ComboBox()
         Me.btnWord = New System.Windows.Forms.Button()
         Me.GroupBox2 = New System.Windows.Forms.GroupBox()
-        Me.txtErstattungsUnterNr_Mail = New System.Windows.Forms.TextBox()
         Me.cboErstattungsart = New System.Windows.Forms.ComboBox()
-        Me.txtErstattungsNr_Mail = New System.Windows.Forms.TextBox()
         Me.Label6 = New System.Windows.Forms.Label()
-        Me.Label5 = New System.Windows.Forms.Label()
-        Me.txtFiliale_Mail = New VERAG_PROG_ALLGEMEIN.MyTextBox()
         Me.Button1 = New System.Windows.Forms.Button()
         Me.btnMail_Intern = New System.Windows.Forms.Button()
         Me.Label9 = New System.Windows.Forms.Label()
@@ -251,12 +247,8 @@ Partial Class usrCntlSeriendruck
         '
         'GroupBox2
         '
-        Me.GroupBox2.Controls.Add(Me.txtErstattungsUnterNr_Mail)
         Me.GroupBox2.Controls.Add(Me.cboErstattungsart)
-        Me.GroupBox2.Controls.Add(Me.txtErstattungsNr_Mail)
         Me.GroupBox2.Controls.Add(Me.Label6)
-        Me.GroupBox2.Controls.Add(Me.Label5)
-        Me.GroupBox2.Controls.Add(Me.txtFiliale_Mail)
         Me.GroupBox2.Controls.Add(Me.Button1)
         Me.GroupBox2.Controls.Add(Me.btnMail_Intern)
         Me.GroupBox2.Controls.Add(Me.Label9)
@@ -269,75 +261,25 @@ Partial Class usrCntlSeriendruck
         Me.GroupBox2.TabIndex = 1
         Me.GroupBox2.TabStop = False
         '
-        'txtErstattungsUnterNr_Mail
-        '
-        Me.txtErstattungsUnterNr_Mail.Location = New System.Drawing.Point(221, 17)
-        Me.txtErstattungsUnterNr_Mail.MaxLength = 2
-        Me.txtErstattungsUnterNr_Mail.Name = "txtErstattungsUnterNr_Mail"
-        Me.txtErstattungsUnterNr_Mail.Size = New System.Drawing.Size(22, 20)
-        Me.txtErstattungsUnterNr_Mail.TabIndex = 12
-        Me.txtErstattungsUnterNr_Mail.Text = "00"
-        '
         'cboErstattungsart
         '
         Me.cboErstattungsart.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
         Me.cboErstattungsart.FlatStyle = System.Windows.Forms.FlatStyle.System
         Me.cboErstattungsart.FormattingEnabled = True
-        Me.cboErstattungsart.Location = New System.Drawing.Point(130, 43)
+        Me.cboErstattungsart.Location = New System.Drawing.Point(91, 40)
         Me.cboErstattungsart.Name = "cboErstattungsart"
-        Me.cboErstattungsart.Size = New System.Drawing.Size(113, 21)
+        Me.cboErstattungsart.Size = New System.Drawing.Size(93, 21)
         Me.cboErstattungsart.TabIndex = 11
         '
-        'txtErstattungsNr_Mail
-        '
-        Me.txtErstattungsNr_Mail.Location = New System.Drawing.Point(130, 17)
-        Me.txtErstattungsNr_Mail.MaxLength = 20
-        Me.txtErstattungsNr_Mail.Name = "txtErstattungsNr_Mail"
-        Me.txtErstattungsNr_Mail.Size = New System.Drawing.Size(85, 20)
-        Me.txtErstattungsNr_Mail.TabIndex = 11
-        '
         'Label6
         '
         Me.Label6.AutoSize = True
-        Me.Label6.Location = New System.Drawing.Point(16, 46)
+        Me.Label6.Location = New System.Drawing.Point(6, 43)
         Me.Label6.Name = "Label6"
         Me.Label6.Size = New System.Drawing.Size(75, 13)
         Me.Label6.TabIndex = 51
         Me.Label6.Text = "Erstattungsart:"
         '
-        'Label5
-        '
-        Me.Label5.AutoSize = True
-        Me.Label5.Location = New System.Drawing.Point(16, 17)
-        Me.Label5.Name = "Label5"
-        Me.Label5.Size = New System.Drawing.Size(36, 13)
-        Me.Label5.TabIndex = 50
-        Me.Label5.Text = "Filiale:"
-        '
-        'txtFiliale_Mail
-        '
-        Me.txtFiliale_Mail._DateTimeOnly = False
-        Me.txtFiliale_Mail._numbersOnly = True
-        Me.txtFiliale_Mail._numbersOnlyKommastellen = ""
-        Me.txtFiliale_Mail._numbersOnlyTrennzeichen = False
-        Me.txtFiliale_Mail._Prozent = False
-        Me.txtFiliale_Mail._ShortDateNew = False
-        Me.txtFiliale_Mail._ShortDateOnly = False
-        Me.txtFiliale_Mail._TimeOnly = False
-        Me.txtFiliale_Mail._TimeOnly_Seconds = False
-        Me.txtFiliale_Mail._value = ""
-        Me.txtFiliale_Mail._Waehrung = False
-        Me.txtFiliale_Mail._WaehrungZeichen = True
-        Me.txtFiliale_Mail.ForeColor = System.Drawing.Color.Black
-        Me.txtFiliale_Mail.Location = New System.Drawing.Point(91, 14)
-        Me.txtFiliale_Mail.MaxLineLength = -1
-        Me.txtFiliale_Mail.MaxLines_Warning = ""
-        Me.txtFiliale_Mail.MaxLines_Warning_Label = Nothing
-        Me.txtFiliale_Mail.Name = "txtFiliale_Mail"
-        Me.txtFiliale_Mail.Size = New System.Drawing.Size(33, 20)
-        Me.txtFiliale_Mail.TabIndex = 11
-        Me.txtFiliale_Mail.Text = "4817"
-        '
         'Button1
         '
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -360,44 +302,41 @@ Partial Class usrCntlSeriendruck
         Me.btnMail_Intern.Size = New System.Drawing.Size(41, 34)
         Me.btnMail_Intern.TabIndex = 49
         Me.btnMail_Intern.UseVisualStyleBackColor = True
+        Me.btnMail_Intern.Visible = False
         '
         'Label9
         '
         Me.Label9.AutoSize = True
-        Me.Label9.Location = New System.Drawing.Point(190, 78)
+        Me.Label9.Location = New System.Drawing.Point(190, 20)
         Me.Label9.Name = "Label9"
         Me.Label9.Size = New System.Drawing.Size(23, 13)
         Me.Label9.TabIndex = 14
         Me.Label9.Text = "bis:"
-        Me.Label9.Visible = False
         '
         'datBis
         '
         Me.datBis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.datBis.Location = New System.Drawing.Point(219, 75)
+        Me.datBis.Location = New System.Drawing.Point(219, 17)
         Me.datBis.Name = "datBis"
         Me.datBis.Size = New System.Drawing.Size(93, 20)
         Me.datBis.TabIndex = 13
-        Me.datBis.Visible = False
         '
         'Label10
         '
         Me.Label10.AutoSize = True
-        Me.Label10.Location = New System.Drawing.Point(13, 78)
+        Me.Label10.Location = New System.Drawing.Point(6, 17)
         Me.Label10.Name = "Label10"
         Me.Label10.Size = New System.Drawing.Size(72, 13)
         Me.Label10.TabIndex = 12
         Me.Label10.Text = "Zeitraum von:"
-        Me.Label10.Visible = False
         '
         'datVon
         '
         Me.datVon.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
-        Me.datVon.Location = New System.Drawing.Point(91, 75)
+        Me.datVon.Location = New System.Drawing.Point(91, 17)
         Me.datVon.Name = "datVon"
         Me.datVon.Size = New System.Drawing.Size(93, 20)
         Me.datVon.TabIndex = 11
-        Me.datVon.Visible = False
         '
         'Label3
         '
@@ -465,8 +404,4 @@ Partial Class usrCntlSeriendruck
     Friend WithEvents btnMail_Intern As Button
     Friend WithEvents cboErstattungsart As ComboBox
     Friend WithEvents Label6 As Label
-    Friend WithEvents Label5 As Label
-    Friend WithEvents txtFiliale_Mail As VERAG_PROG_ALLGEMEIN.MyTextBox
-    Friend WithEvents txtErstattungsUnterNr_Mail As TextBox
-    Friend WithEvents txtErstattungsNr_Mail As TextBox
 End Class

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
+        'If cboErstattungsart.SelectedIndex <> 4 Then
-            txtErstattungsUnterNr_Mail.Focus()
+        '    MsgBox("Die Erstattungsschreiben sind aktuell nur für den Typ 4 - Auf Sicherheit verfügbar!")
-            Exit Sub
+        '    Exit Sub
-        End If
+        '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")