Berichte/Erstattungsschreiben Fehler behoben

SDL/seriendruck/usrCntlSeriendruck.Designer.vb

@@ -23,6 +23,9 @@ Partial Class usrCntlSeriendruck
     <System.Diagnostics.DebuggerStepThrough()> _
     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!)

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_neu.Focus()
-                txtErstattungAbfNr.SelectAll()
+                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
+    Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr_neu.TextChanged
-        txtErstattungAbfNr.BackColor = Color.White
+        txtErstattungAbfNr_neu.BackColor = Color.White
-        txtErstattungAbfNr.ForeColor = Color.Red
+        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