diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb
index abda963..8573f84 100644
--- a/App_Code/VERAG_VARIABLES.vb
+++ b/App_Code/VERAG_VARIABLES.vb
@@ -11,5 +11,7 @@ Public Class VERAG_VARIABLES
Shared Function geterrornumb() As String
Return Environment.NewLine + "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString) + Space(1)
End Function
-
+ Shared Function getErrorcodeindez(Errorcode As String) As String
+ Return VERAG_PROG_ALLGEMEIN.cCryptography3.Decrypt(Errorcode)
+ End Function
End Class
diff --git a/Customers/Default2.aspx b/Customers/Default2.aspx
index 6179150..9126842 100644
--- a/Customers/Default2.aspx
+++ b/Customers/Default2.aspx
@@ -52,12 +52,28 @@
+
+ |
+
+ |
+
+
+ |
+
|
|
|
|
+
+ |
+
+ |
+
+
+ |
+
|
|
|
diff --git a/Customers/Default2.aspx.vb b/Customers/Default2.aspx.vb
index dd6f44d..990ecc3 100644
--- a/Customers/Default2.aspx.vb
+++ b/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
diff --git a/Fehlermeldungen_Auflistung.xlsx b/Fehlermeldungen_Auflistung.xlsx
index 7dc34be..a269849 100644
Binary files a/Fehlermeldungen_Auflistung.xlsx and b/Fehlermeldungen_Auflistung.xlsx differ