UID-Prüfung (Doppelklick vermeiden + verbesserte Fehlermeldung), etc.

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1834,7 +1834,9 @@ Public Class usrCntlKundenuebersicht
 
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 
+        Button1.Enabled = False
         checkUIDNr(sender)
+        Button1.Enabled = True
 
         'If ADRESSE.UstIdNr Is Nothing Then Exit Sub
         'If ADRESSE.UstIdKz Is Nothing Then Exit Sub
@@ -3082,12 +3084,14 @@ Public Class usrCntlKundenuebersicht
             ADRESSE.UstIdNr = company.vatNo.Replace(countryKz, "").Replace(" ", "")
             ADRESSE.SAVE()
             Dim validUID As Boolean = False
+            Button1.Enabled = False
             checkUIDNr(, validUID)
             If Not validUID Then
                 ADRESSE.UstIdKz = ""
                 ADRESSE.UstIdNr = ""
                 ADRESSE.SAVE()
             End If
+            Button1.Enabled = True
 
         End If
 

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -1432,6 +1432,7 @@ Public Class usrcntlKundeBearbeitenFull
         If ADRESSE.UstIdNr = "" Then Exit Sub
 
         sender.BackgroundImage = My.Resources.wait
+        btnUIDPruef.Enabled = False
 
         Dim FO As New VERAG_PROG_ALLGEMEIN.cFinanzOnlineWebService
         FO.initValues()
@@ -1442,14 +1443,18 @@ Public Class usrcntlKundeBearbeitenFull
                 If UID_TMP.uid_valid Then
                     init(ADRESSE.AdressenNr)
                     sender.BackgroundImage = My.Resources.ok
+                    btnUIDPruef.Enabled = True
                 Else
                     sender.BackgroundImage = My.Resources.del
+                    btnUIDPruef.Enabled = True
                 End If
             Else
                 sender.BackgroundImage = My.Resources.fragezeichen
+                btnUIDPruef.Enabled = True
             End If
 
             FO.Call_Web_Service_MethodUID_Logout_NEU2020()
+            btnUIDPruef.Enabled = True
 
         End If
 

SDL/seriendruck/usrCntlSeriendruck.Designer.vb

@@ -36,12 +36,18 @@ 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()
         '
         'GroupBox1
         '
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfUnterNr_neu)
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfNr_neu)
+        Me.GroupBox1.Controls.Add(Me.txtErstattungAbfNrFiliale_neu)
         Me.GroupBox1.Controls.Add(Me.cbxSofortDruck)
         Me.GroupBox1.Controls.Add(Me.txtErstattungAbfNrFiliale)
         Me.GroupBox1.Controls.Add(Me.txtErstattungAbfUnterNr)
@@ -72,21 +78,23 @@ Partial Class usrCntlSeriendruck
         '
         'txtErstattungAbfNrFiliale
         '
-        Me.txtErstattungAbfNrFiliale.Location = New System.Drawing.Point(16, 41)
+        Me.txtErstattungAbfNrFiliale.Location = New System.Drawing.Point(16, 95)
         Me.txtErstattungAbfNrFiliale.MaxLength = 4
         Me.txtErstattungAbfNrFiliale.Name = "txtErstattungAbfNrFiliale"
         Me.txtErstattungAbfNrFiliale.Size = New System.Drawing.Size(36, 20)
         Me.txtErstattungAbfNrFiliale.TabIndex = 0
         Me.txtErstattungAbfNrFiliale.Text = "4817"
+        Me.txtErstattungAbfNrFiliale.Visible = False
         '
         'txtErstattungAbfUnterNr
         '
-        Me.txtErstattungAbfUnterNr.Location = New System.Drawing.Point(135, 41)
+        Me.txtErstattungAbfUnterNr.Location = New System.Drawing.Point(149, 95)
         Me.txtErstattungAbfUnterNr.MaxLength = 2
         Me.txtErstattungAbfUnterNr.Name = "txtErstattungAbfUnterNr"
         Me.txtErstattungAbfUnterNr.Size = New System.Drawing.Size(22, 20)
         Me.txtErstattungAbfUnterNr.TabIndex = 2
         Me.txtErstattungAbfUnterNr.Text = "00"
+        Me.txtErstattungAbfUnterNr.Visible = False
         '
         'btnWordPrint
         '
@@ -101,11 +109,12 @@ Partial Class usrCntlSeriendruck
         '
         'txtErstattungAbfNr
         '
-        Me.txtErstattungAbfNr.Location = New System.Drawing.Point(51, 41)
+        Me.txtErstattungAbfNr.Location = New System.Drawing.Point(58, 95)
         Me.txtErstattungAbfNr.MaxLength = 20
         Me.txtErstattungAbfNr.Name = "txtErstattungAbfNr"
         Me.txtErstattungAbfNr.Size = New System.Drawing.Size(85, 20)
         Me.txtErstattungAbfNr.TabIndex = 1
+        Me.txtErstattungAbfNr.Visible = False
         '
         'Label2
         '
@@ -189,6 +198,77 @@ 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!)
@@ -220,5 +300,7 @@ Partial Class usrCntlSeriendruck
     Friend WithEvents txtErstattungAbfNrFiliale As System.Windows.Forms.TextBox
     Friend WithEvents Label3 As System.Windows.Forms.Label
     Friend WithEvents cbxSofortDruck As System.Windows.Forms.CheckBox
-
+    Friend WithEvents txtErstattungAbfUnterNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtErstattungAbfNr_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtErstattungAbfNrFiliale_neu As VERAG_PROG_ALLGEMEIN.MyTextBox
 End Class

SDL/seriendruck/usrCntlSeriendruck.vb

@@ -31,7 +31,7 @@ Public Class usrCntlSeriendruck
             WordDoc.Activate()
 
             Dim berichteSQL As New BerichteSQL
-            Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale.Text, txtErstattungAbfNr.Text, txtErstattungAbfUnterNr.Text)
+            Dim bericht As cErstasttungsschreiben = berichteSQL.getErstatung(txtErstattungAbfNrFiliale_neu.Text, txtErstattungAbfNr_neu.Text, txtErstattungAbfUnterNr_neu.Text)
             'Dim ADRESSE = New VERAG_PROG_ALLGEMEIN.cAdressen(bericht.)
             If bericht.KorrAdresse <> "" Then
                 bericht.KorrAdresse = bericht.KorrAdresse.Replace(Chr(13) & Chr(10), Chr(13))
@@ -82,7 +82,7 @@ Public Class usrCntlSeriendruck
         If cbxErstSprache.Text = "" Then Exit Sub
 
         frmShowData.Show()
-        frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
+        frmShowData.DataGridView1.DataSource = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale_neu.Text & ", " & txtErstattungAbfNr_neu.Text & ", " & txtErstattungAbfUnterNr_neu.Text & " ")
         frmShowData.Label2.Text = "Anzahl: " & frmShowData.DataGridView1.RowCount
     End Sub
 
@@ -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
+    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
         If e.KeyCode = Keys.Enter Then
             withPrint = cbxSofortDruck.Checked
             btnWord.PerformClick()
@@ -149,10 +149,10 @@ Public Class usrCntlSeriendruck
     Private Sub txtErstattungAbfNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfNr.TextChanged
         txtErstattungAbfNr.BackColor = Color.White
         txtErstattungAbfNr.ForeColor = Color.Red
-        If NurZahlen(txtErstattungAbfNr.Text) And NurZahlen(txtErstattungAbfNrFiliale.Text) And NurZahlen(txtErstattungAbfUnterNr.Text) Then
+        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 & " ")
 
-            Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale.Text & ", " & txtErstattungAbfNr.Text & ", " & txtErstattungAbfUnterNr.Text & " ")
+            Dim dt As DataTable = FMZOLL_SQL.loadDgvBySqlFMZOLLREAL("exec spSELECTUStVErstattungsschreiben " & txtErstattungAbfNrFiliale_neu.Text & ", " & txtErstattungAbfNr_neu.Text & ", " & txtErstattungAbfUnterNr_neu.Text & " ")
 
             If Not dt Is Nothing AndAlso dt.Rows.Count > 0 Then
                 Try
@@ -197,8 +197,8 @@ Public Class usrCntlSeriendruck
     End Function
 
     Private Sub txtErstattungAbfUnterNr_LostFocus(sender As Object, e As EventArgs) Handles txtErstattungAbfUnterNr.LostFocus
-        If NurZahlen(txtErstattungAbfUnterNr.Text) Then
+        If NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then
-            If txtErstattungAbfUnterNr.Text.Length = 1 Then txtErstattungAbfUnterNr.Text = "0" & txtErstattungAbfUnterNr.Text
+            If txtErstattungAbfUnterNr_neu.Text.Length = 1 Then txtErstattungAbfUnterNr_neu.Text = "0" & txtErstattungAbfUnterNr_neu.Text
         End If
     End Sub
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/Finanzonline/cFinanzOnlineWebService.vb

@@ -135,7 +135,7 @@ Public Class cFinanzOnlineWebService
                         errorCode = returnInt
                     Catch ex As Exception
 
-                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "Fehler im externen Webservice " & System.Reflection.MethodInfo.GetCurrentMethod.Name, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
+                        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, "Fehler im externen Webservice " & System.Reflection.MethodInfo.GetCurrentMethod.Name & vbNewLine & " Daten: TID: " & tid & vbNewLine & " BENID: " & benid & vbNewLine & " SessionID: " & SESSION_ID & vbNewLine & " UID: " & uid & vbNewLine & " COUNTRY-CODE/VAT: " & countryCode & vatNumber & vbNewLine & " Stufe: " & StufeAbf & vbNewLine & " MSG: " & msg & vbNewLine & " Name: " & name & vbNewLine & " Adr1: " & adrz1 & vbNewLine & " Adr2: " & adrz2 & vbNewLine & " Adr3: " & adrz3 & vbNewLine & " Adr4: " & adrz4 & vbNewLine & " Adr5: " & adrz5 & vbNewLine & " Adr6: " & adrz6, VERAG_PROG_ALLGEMEIN.ERROR_OP.MAIL)
                         Exit Function
                     End Try