Änderungen zur Rückrechnung des Fehlercodes in Dezimalzahlen

Customers/Default2.aspx.vb

@@ -9,7 +9,8 @@ Partial Class Customers_Default2
         End If
     End Sub
     Protected Sub Button1_Click(sender As Object, e As EventArgs)
-        If String.IsNullOrEmpty(TextBox1.Text) = False Then
+        If String.IsNullOrEmpty(TextBox1.Text) = False And String.IsNullOrEmpty(TextBox2.Text) = False Then
+            VERAG_VARIABLES.initerrorcount()
             Dim vals As New List(Of String)
             Dim finalstr As String = ""
             For i As Integer = Integer.Parse(TextBox1.Text) To Integer.Parse(TextBox2.Text)
@@ -23,5 +24,10 @@ Partial Class Customers_Default2
             Next
             Label2.Text = finalstr
         End If
+        If String.IsNullOrEmpty(txt_Fehlercode.Text) = False Then
+            Dim finalstr As String = String.Empty
+            finalstr = VERAG_VARIABLES.getErrorcodeindez(txt_Fehlercode.Text)
+            txt_Fehlercodezuzahl.Text = finalstr
+        End If
     End Sub
 End Class