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

2024-08-12 16:43:33 +02:00
parent 01268469c5
commit a5366e75a1
5 changed files with 103 additions and 12 deletions
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/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

--- a/SDL/kunden/usrcntlKundeBearbeitenFull.vb
+++ b/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

--- a/SDL/seriendruck/usrCntlSeriendruck.Designer.vb
+++ b/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
--- a/SDL/seriendruck/usrCntlSeriendruck.vb
+++ b/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 txtErstattungAbfUnterNr.Text.Length = 1 Then txtErstattungAbfUnterNr.Text = "0" & txtErstattungAbfUnterNr.Text
+        If NurZahlen(txtErstattungAbfUnterNr_neu.Text) Then
+            If txtErstattungAbfUnterNr_neu.Text.Length = 1 Then txtErstattungAbfUnterNr_neu.Text = "0" & txtErstattungAbfUnterNr_neu.Text
        End If
    End Sub