diff --git a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb index 7705a1af..cf6ae736 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb +++ b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class usrCntlSeriendruck Inherits System.Windows.Forms.UserControl 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + 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. - _ + 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 diff --git a/SDL/seriendruck/usrCntlSeriendruck.vb b/SDL/seriendruck/usrCntlSeriendruck.vb index 923cfbab..13aada80 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.vb +++ b/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")