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