diff --git a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb index 073be2fb..9d279586 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb +++ b/SDL/seriendruck/usrCntlSeriendruck.Designer.vb @@ -23,6 +23,9 @@ Partial Class usrCntlSeriendruck _ Private Sub InitializeComponent() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() + Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.cbxSofortDruck = New System.Windows.Forms.CheckBox() Me.txtErstattungAbfNrFiliale = New System.Windows.Forms.TextBox() Me.txtErstattungAbfUnterNr = New System.Windows.Forms.TextBox() @@ -36,9 +39,6 @@ Partial Class usrCntlSeriendruck Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Button2 = New System.Windows.Forms.Button() Me.Label3 = New System.Windows.Forms.Label() - Me.txtErstattungAbfNrFiliale_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtErstattungAbfNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() - Me.txtErstattungAbfUnterNr_neu = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() @@ -64,6 +64,77 @@ Partial Class usrCntlSeriendruck Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' + 'txtErstattungAbfUnterNr_neu + ' + Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False + Me.txtErstattungAbfUnterNr_neu._numbersOnly = True + Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfUnterNr_neu._Prozent = False + Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False + Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False + Me.txtErstattungAbfUnterNr_neu._TimeOnly = False + Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfUnterNr_neu._value = "" + Me.txtErstattungAbfUnterNr_neu._Waehrung = False + Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True + Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42) + Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1 + Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = "" + Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu" + Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20) + Me.txtErstattungAbfUnterNr_neu.TabIndex = 10 + Me.txtErstattungAbfUnterNr_neu.Text = "00" + ' + 'txtErstattungAbfNr_neu + ' + Me.txtErstattungAbfNr_neu._DateTimeOnly = False + Me.txtErstattungAbfNr_neu._numbersOnly = True + Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfNr_neu._Prozent = False + Me.txtErstattungAbfNr_neu._ShortDateNew = False + Me.txtErstattungAbfNr_neu._ShortDateOnly = False + Me.txtErstattungAbfNr_neu._TimeOnly = False + Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfNr_neu._value = "" + Me.txtErstattungAbfNr_neu._Waehrung = False + Me.txtErstattungAbfNr_neu._WaehrungZeichen = True + Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42) + Me.txtErstattungAbfNr_neu.MaxLineLength = -1 + Me.txtErstattungAbfNr_neu.MaxLines_Warning = "" + Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu" + Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20) + Me.txtErstattungAbfNr_neu.TabIndex = 9 + ' + 'txtErstattungAbfNrFiliale_neu + ' + Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False + Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True + Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = "" + Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False + Me.txtErstattungAbfNrFiliale_neu._Prozent = False + Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False + Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False + Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False + Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False + Me.txtErstattungAbfNrFiliale_neu._value = "" + Me.txtErstattungAbfNrFiliale_neu._Waehrung = False + Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True + Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black + Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42) + Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1 + Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = "" + Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing + Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu" + Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20) + Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8 + Me.txtErstattungAbfNrFiliale_neu.Text = "4817" + ' 'cbxSofortDruck ' Me.cbxSofortDruck.AutoSize = True @@ -198,77 +269,6 @@ Partial Class usrCntlSeriendruck Me.Label3.TabIndex = 2 Me.Label3.Text = "Gutschrift - Erstattungsschreiben" ' - 'txtErstattungAbfNrFiliale_neu - ' - Me.txtErstattungAbfNrFiliale_neu._DateTimeOnly = False - Me.txtErstattungAbfNrFiliale_neu._numbersOnly = True - Me.txtErstattungAbfNrFiliale_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfNrFiliale_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfNrFiliale_neu._Prozent = False - Me.txtErstattungAbfNrFiliale_neu._ShortDateNew = False - Me.txtErstattungAbfNrFiliale_neu._ShortDateOnly = False - Me.txtErstattungAbfNrFiliale_neu._TimeOnly = False - Me.txtErstattungAbfNrFiliale_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfNrFiliale_neu._value = "" - Me.txtErstattungAbfNrFiliale_neu._Waehrung = False - Me.txtErstattungAbfNrFiliale_neu._WaehrungZeichen = True - Me.txtErstattungAbfNrFiliale_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfNrFiliale_neu.Location = New System.Drawing.Point(19, 42) - Me.txtErstattungAbfNrFiliale_neu.MaxLineLength = -1 - Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning = "" - Me.txtErstattungAbfNrFiliale_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfNrFiliale_neu.Name = "txtErstattungAbfNrFiliale_neu" - Me.txtErstattungAbfNrFiliale_neu.Size = New System.Drawing.Size(33, 20) - Me.txtErstattungAbfNrFiliale_neu.TabIndex = 8 - Me.txtErstattungAbfNrFiliale_neu.Text = "4817" - ' - 'txtErstattungAbfNr_neu - ' - Me.txtErstattungAbfNr_neu._DateTimeOnly = False - Me.txtErstattungAbfNr_neu._numbersOnly = True - Me.txtErstattungAbfNr_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfNr_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfNr_neu._Prozent = False - Me.txtErstattungAbfNr_neu._ShortDateNew = False - Me.txtErstattungAbfNr_neu._ShortDateOnly = False - Me.txtErstattungAbfNr_neu._TimeOnly = False - Me.txtErstattungAbfNr_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfNr_neu._value = "" - Me.txtErstattungAbfNr_neu._Waehrung = False - Me.txtErstattungAbfNr_neu._WaehrungZeichen = True - Me.txtErstattungAbfNr_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfNr_neu.Location = New System.Drawing.Point(58, 42) - Me.txtErstattungAbfNr_neu.MaxLineLength = -1 - Me.txtErstattungAbfNr_neu.MaxLines_Warning = "" - Me.txtErstattungAbfNr_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfNr_neu.Name = "txtErstattungAbfNr_neu" - Me.txtErstattungAbfNr_neu.Size = New System.Drawing.Size(66, 20) - Me.txtErstattungAbfNr_neu.TabIndex = 9 - ' - 'txtErstattungAbfUnterNr_neu - ' - Me.txtErstattungAbfUnterNr_neu._DateTimeOnly = False - Me.txtErstattungAbfUnterNr_neu._numbersOnly = True - Me.txtErstattungAbfUnterNr_neu._numbersOnlyKommastellen = "" - Me.txtErstattungAbfUnterNr_neu._numbersOnlyTrennzeichen = False - Me.txtErstattungAbfUnterNr_neu._Prozent = False - Me.txtErstattungAbfUnterNr_neu._ShortDateNew = False - Me.txtErstattungAbfUnterNr_neu._ShortDateOnly = False - Me.txtErstattungAbfUnterNr_neu._TimeOnly = False - Me.txtErstattungAbfUnterNr_neu._TimeOnly_Seconds = False - Me.txtErstattungAbfUnterNr_neu._value = "" - Me.txtErstattungAbfUnterNr_neu._Waehrung = False - Me.txtErstattungAbfUnterNr_neu._WaehrungZeichen = True - Me.txtErstattungAbfUnterNr_neu.ForeColor = System.Drawing.Color.Black - Me.txtErstattungAbfUnterNr_neu.Location = New System.Drawing.Point(130, 42) - Me.txtErstattungAbfUnterNr_neu.MaxLineLength = -1 - Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning = "" - Me.txtErstattungAbfUnterNr_neu.MaxLines_Warning_Label = Nothing - Me.txtErstattungAbfUnterNr_neu.Name = "txtErstattungAbfUnterNr_neu" - Me.txtErstattungAbfUnterNr_neu.Size = New System.Drawing.Size(32, 20) - Me.txtErstattungAbfUnterNr_neu.TabIndex = 10 - Me.txtErstattungAbfUnterNr_neu.Text = "00" - ' 'usrCntlSeriendruck ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) diff --git a/SDL/seriendruck/usrCntlSeriendruck.vb b/SDL/seriendruck/usrCntlSeriendruck.vb index 88fe6ce3..ebd575fb 100644 --- a/SDL/seriendruck/usrCntlSeriendruck.vb +++ b/SDL/seriendruck/usrCntlSeriendruck.vb @@ -6,7 +6,7 @@ Public Class usrCntlSeriendruck Dim FMZOLL_SQL As New FMZOLL_SQL Private Sub btnWord_Click(sender As Object, e As EventArgs) Handles btnWord.Click - If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then + If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then frmMain.setInfo("info", "Die Abfertigungsnummer ist nicht gültig!", 2) Exit Sub End If @@ -63,8 +63,8 @@ Public Class usrCntlSeriendruck WordDoc = Nothing WordApp.Quit() Me.BringToFront() - txtErstattungAbfNr.Focus() - txtErstattungAbfNr.SelectAll() + txtErstattungAbfNr_neu.Focus() + txtErstattungAbfNr_neu.SelectAll() End If 'WordDoc.PrintOut() 'WordDoc.PrintOut() @@ -78,7 +78,7 @@ Public Class usrCntlSeriendruck End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnShowData.Click - If Not txtErstattungAbfNr.ForeColor = Color.DarkGreen Then Exit Sub + If Not txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen Then Exit Sub If cbxErstSprache.Text = "" Then Exit Sub frmShowData.Show() @@ -138,7 +138,7 @@ Public Class usrCntlSeriendruck WordApp.Visible = True End Sub - Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown + Private Sub txtErstattungAbfNr_KeyDown(sender As Object, e As KeyEventArgs) Handles txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale.KeyDown, txtErstattungAbfUnterNr.KeyDown, cbxErstSprache.KeyDown, txtErstattungAbfNr_neu.KeyDown, txtErstattungAbfNrFiliale_neu.KeyDown, txtErstattungAbfUnterNr_neu.KeyDown If e.KeyCode = Keys.Enter Then withPrint = cbxSofortDruck.Checked btnWord.PerformClick() @@ -146,9 +146,10 @@ Public Class usrCntlSeriendruck End Sub - Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged - txtErstattungAbfNr.BackColor = Color.White - txtErstattungAbfNr.ForeColor = Color.Red + Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr_neu.TextChanged + txtErstattungAbfNr_neu.BackColor = Color.White + txtErstattungAbfNr_neu.ForeColor = Color.Red + If NurZahlen(txtErstattungAbfNr_neu.Text) And NurZahlen(txtErstattungAbfNrFiliale_neu.Text) And NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then 'Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("SELECT TOP 1 * FROM vwUStVErstattungsschreiben WHERE AbfertigungsNr=" & txtErstattungAbfNr.Text & " and FilialenNr =" & txtErstattungAbfNrFiliale.Text & " and UnterNr =" & txtErstattungAbfUnterNr.Text & " ") @@ -163,8 +164,9 @@ Public Class usrCntlSeriendruck Case Else : cbxErstSprache.SelectedIndex = 3 End Select Catch : End Try - txtErstattungAbfNr.BackColor = Color.White - txtErstattungAbfNr.ForeColor = Color.DarkGreen + + txtErstattungAbfNr_neu.BackColor = Color.White + txtErstattungAbfNr_neu.ForeColor = Color.DarkGreen End If End If End Sub @@ -182,7 +184,7 @@ Public Class usrCntlSeriendruck cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TÜRKISCH", "TR")) cbxErstSprache.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("YU", "YU")) cbxErstSprache.SelectedIndex = 0 - txtErstattungAbfNr.Focus() + txtErstattungAbfNr_neu.Focus() End Sub Public Function NurZahlen(ByVal Text As String) As Boolean If Text.Length = 0 Then Return False