diff --git a/App_Code/VERAG_VARIABLES.vb b/App_Code/VERAG_VARIABLES.vb
new file mode 100644
index 0000000..11b339d
--- /dev/null
+++ b/App_Code/VERAG_VARIABLES.vb
@@ -0,0 +1,14 @@
+Imports Microsoft.VisualBasic
+
+Public Class VERAG_VARIABLES
+ Public Shared errornumb As Integer = 0
+ Shared Sub initerrorcount()
+ errornumb = 0
+ End Sub
+ Shared Sub seterrorcount(var As Integer)
+ errornumb += 1
+ End Sub
+ Shared Function geterrornumb() As String
+ Return "Error:" + Space(1) + VERAG_PROG_ALLGEMEIN.cCryptography3.Encrypt(errornumb.ToString)
+ End Function
+End Class
diff --git a/Customers/Invoices.aspx.vb b/Customers/Invoices.aspx.vb
index 7f32c4d..b07a782 100644
--- a/Customers/Invoices.aspx.vb
+++ b/Customers/Invoices.aspx.vb
@@ -137,7 +137,26 @@ Partial Class Customers_Default3
Protected Sub btn_b_Click(sender As Object, e As EventArgs)
dt = Nothing
If valdaterage_1.IsValid And valdaterange_2.IsValid Then
-
+ If String.IsNullOrEmpty(Kdnrtext) = False Then
+ If Not String.IsNullOrEmpty(txt_Absender.Text) Then
+ txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
+ regex_txt_Absender.Enabled = True
+ regex_txt_Absender.Validate()
+ Try
+ If regex_txt_Absender.IsValid = True Then
+ Absender = txt_Absender.Text
+ Else
+ VERAG_VARIABLES.seterrorcount()
+ lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": Fehler bei der Zuweisung"
+ End If
+ Catch ex As Exception
+ VERAG_VARIABLES.seterrorcount()
+ lbl_status.Text = VERAG_VARIABLES.geterrornumb + ": "
+ End Try
+ End If
+ End If
+ Else
+ lbl_status.Text = "The time chosen is newer then today or older than april 2001. Please correct."
End If
MsgBox("Test")
End Sub
@@ -168,14 +187,14 @@ Partial Class Customers_Default3
End Sub
Protected Sub valdaterage_1_ServerValidate(source As Object, args As ServerValidateEventArgs)
- If Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", provider) < Date.ParseExact("01.04.2001", "dd.MM.yyyy", provider) Then
+ If Date.Parse(pickdate1.Text) < Date.ParseExact("01.04.2001", "dd.MM.yyyy", provider) Then
lbl_status.Text = "Der zeitpunkt " + pickdate1.Text + "zu weit zurückliegend."
End If
End Sub
Protected Sub valdaterange_2_ServerValidate(source As Object, args As ServerValidateEventArgs)
- If Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", provider) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then
+ If Date.Parse(pickdate2.Text) > Date.ParseExact(Date.Now.ToShortDateString, "dd.MM.yyyy", provider) Then
lbl_status.Text = "Der Zeitpunkt " + pickdate2.Text + " ist zu weit in der Zukunft."
End If
End Sub
diff --git a/Fehlermeldungen_Auflistung.xlsx b/Fehlermeldungen_Auflistung.xlsx
new file mode 100644
index 0000000..7d9a93c
Binary files /dev/null and b/Fehlermeldungen_Auflistung.xlsx differ
diff --git a/Global.asax b/Global.asax
index ec61e4e..51da6f3 100644
--- a/Global.asax
+++ b/Global.asax
@@ -30,7 +30,7 @@
void Session_Start(object sender, EventArgs e)
{
// Code, der ausgeführt wird, wenn eine neue Sitzung gestartet wird
-
+ VERAG_VARIABLES.initerrorcount()
}
void Session_End(object sender, EventArgs e)
diff --git a/Web.config b/Web.config
index 5d810fe..d5e9e5b 100644
--- a/Web.config
+++ b/Web.config
@@ -27,7 +27,7 @@
-
+
-
+
+
+
+
+
+
+
+
diff --git a/login/login_FLEX.aspx.vb b/login/login_FLEX.aspx.vb
index dbd92e0..cb54da1 100644
--- a/login/login_FLEX.aspx.vb
+++ b/login/login_FLEX.aspx.vb
@@ -60,7 +60,8 @@ Partial Class login_FLEX
If regexuserID.IsValid Then
Customer_ID = tb.Text
Else
- regexuserID.ErrorMessage = "Customer-ID has to be a number."
+ VERAG_VARIABLES.seterrorcount(1)
+ regexuserID.ErrorMessage = VERAG_VARIABLES.geterrornumb + ": Customer-ID has to be a number."
End If
End If
End If
@@ -72,7 +73,8 @@ Partial Class login_FLEX
If regexusername_M.IsValid Then
Customer_ID = tb_M.Text
Else
- regexusername_M.ErrorMessage = "Username doeas not have any special chaaracters in it."
+ VERAG_VARIABLES.seterrorcount(2)
+ regexusername_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username does not have any special characters in it."
End If
End If
End If
@@ -84,10 +86,12 @@ Partial Class login_FLEX
If regexusername.IsValid Then
UserNaMe = tb2.Text
Else
- regexusername_M.ErrorMessage = "Username does not have any special chaaracters in it."
+ VERAG_VARIABLES.seterrorcount(2)
+ regexusername_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username does not have any special characters in it."
End If
Else
- reqfieldvaluserName.ErrorMessage = "Username has to be given."
+ VERAG_VARIABLES.seterrorcount(2)
+ reqfieldvaluserName.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Username has to be given."
End If
End If
If String.IsNullOrEmpty(tb2_M.Text) = False AndAlso String.IsNullOrEmpty(tb2.Text) = True Then
@@ -99,7 +103,8 @@ Partial Class login_FLEX
If regexusername.IsValid Then
UserNaMe = tb2_M.Text
Else
- regexusername.ErrorMessage = "Password has to match the criterias of tge info button."
+ VERAG_VARIABLES.seterrorcount(3)
+ regexusername.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Password has to match the criterias of tge info button."
End If
End If
End If
@@ -119,7 +124,8 @@ Partial Class login_FLEX
If reqfieldvalpassw_M.IsValid = True Then
passw = tb3_M.Text
Else
- reqfieldvalpassw_M.ErrorMessage = "Please insert your personal passowrd."
+ VERAG_VARIABLES.seterrorcount(4)
+ reqfieldvalpassw_M.ErrorMessage = VERAG_VARIABLES.geterrornumb + "Please insert your personal passowrd."
End If
End If
' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString
@@ -139,16 +145,19 @@ Partial Class login_FLEX
'MsgBox(dr.Item(0).ToString())
Select Case dr.Item(0)
Case 0
- Login1.FailureText = "Benuzername und/oder das Passwort stimmen nicht überein."
+ VERAG_VARIABLES.seterrorcount(5)
+ Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Username and/or Password do not match."
Exit Select
Case -2
- Login1.FailureText = "Account ist nicht freigeschaltet."
+ VERAG_VARIABLES.seterrorcount(6)
+ Login1.FailureText = VERAG_VARIABLES.geterrornumb + "Account is not activated."
Exit Select
Case Else
If tb.Text = dr("KundenNr") Then
Customer_ID = dr("KundenNr").ToString
Else
- Login1.FailureText = "ID cannot be found in the database!"
+ VERAG_VARIABLES.seterrorcount(7)
+ Login1.FailureText = VERAG_VARIABLES.geterrornumb + "ID cannot be found in the database!"
End If
If tb2.Text = dr("Username") Then
UserNaMe = dr("Username").ToString