Änderungen
This commit is contained in:
ja
@@ -158,7 +158,7 @@ Partial Class Kundenbereich_Default
|
||||
'MsgBox(Session.Item("CustomerID").ToString)
|
||||
'MsgBox(Session.Item("PW").ToString)
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID").ToString
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When Kdnrtext = Nothing
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
End Try
|
||||
@@ -166,56 +166,56 @@ Partial Class Kundenbereich_Default
|
||||
If txt_Absender.Text IsNot "" Then
|
||||
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Absender = txt_Absender.Text
|
||||
Absender = Server.HtmlEncode(txt_Absender.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_Empfaenger.Text IsNot "" Then
|
||||
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger.Text
|
||||
Empfaenger = Server.HtmlEncode(txt_Empfaenger.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_KdNrAuftrag.Text IsNot "" Then
|
||||
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag.Text
|
||||
KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_LKWNr.Text IsNot "" Then
|
||||
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
LKWNR = txt_LKWNr.Text
|
||||
LKWNR = Server.HtmlEncode(txt_LKWNr.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_Absender_M.Text IsNot "" Then
|
||||
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Absender = txt_Absender_M.Text
|
||||
Absender = Server.HtmlEncode(txt_Absender_M.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_Empfaenger_M.Text IsNot "" Then
|
||||
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
Empfaenger = txt_Empfaenger_M.Text
|
||||
Empfaenger = Server.HtmlEncode(txt_Empfaenger_M.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
|
||||
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
KDNAFNR = txt_KdNrAuftrag_M.Text
|
||||
KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag_M.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
ElseIf txt_LKWNr_M.Text IsNot "" Then
|
||||
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
Try
|
||||
LKWNR = txt_LKWNr_M.Text
|
||||
LKWNR = Server.HtmlEncode(txt_LKWNr_M.Text)
|
||||
Catch ex As FormatException
|
||||
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
|
||||
End Try
|
||||
@@ -224,7 +224,7 @@ Partial Class Kundenbereich_Default
|
||||
If rbt_Alle.Checked = True Or rbt_Alle_M.Checked = True Then
|
||||
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {0, 1, 2, 3, 4, 5}, datevon, datebis, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
|
||||
Try
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
@@ -246,7 +246,7 @@ Partial Class Kundenbereich_Default
|
||||
End Try
|
||||
End If
|
||||
ElseIf rbt_Erf.Checked = True Or rbt_Erf_M.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {0}, Nothing, Nothing, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {0}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
ElseIf rbt_Freig.Checked = True Or rbt_Freig_M.Checked = True Then
|
||||
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
@@ -264,17 +264,17 @@ Partial Class Kundenbereich_Default
|
||||
'MsgBox(pickdate1.Text)
|
||||
datebis = Date.Parse(pickdate2.Text)
|
||||
' MsgBox(pickdate2.Text)
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {1}, datevon, datebis, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {1}, datevon, datebis, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
Catch ex As ValidationException When Date.ParseExact(pickdate1.Text, "dd.MM.yyyy", Nothing).Year < Date.ParseExact("2001", "yyyy", Nothing).Year And Date.ParseExact(pickdate2.Text, "dd.MM.yyyy", Nothing).Year > Date.ParseExact(Today, "dd.MM.yyyy", Nothing).Year
|
||||
MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
|
||||
End Try
|
||||
End If
|
||||
ElseIf rbt_Ankunft.Checked = True Or rbt_Ankunft_M.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {3}, Nothing, Nothing, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {3}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
ElseIf rbt_Vorb.Checked = True Or rbt_Vorb_M.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {4}, Nothing, Nothing, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {4}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
ElseIf rbt_Vorg.Checked = True Or rbt_Vorg_M.Checked = True Then
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlEncode(Art), Server.HtmlEncode(Kdnrtext), {5}, Nothing, Nothing, Server.HtmlEncode(Absender), Server.HtmlEncode(Empfaenger), Server.HtmlEncode(LKWNR), Server.HtmlEncode(KDNAFNR))
|
||||
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Server.HtmlDecode(Art), Kdnrtext, {5}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
|
||||
End If
|
||||
|
||||
If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
|
||||
@@ -418,17 +418,19 @@ Partial Class Kundenbereich_Default
|
||||
pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
datevon = Nothing
|
||||
datebis = Nothing
|
||||
If pickdate1.Attributes.Item("required") = True Then
|
||||
pickdate1.Attributes.Item("required") = False
|
||||
End If
|
||||
If pickdate2.Attributes.Item("required") = True Then
|
||||
pickdate2.Attributes.Item("required") = False
|
||||
End If
|
||||
dt = Nothing
|
||||
'txt_KdNr.Focus()
|
||||
End Sub
|
||||
|
||||
Protected Sub Dropdownlst_Selection_Change(sender As Object, e As EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
|
||||
Dim TB As TextBox = pickdate1
|
||||
If TB.Text = "" Then
|
||||
|
||||
If pickdate1.Text = "" Then
|
||||
pickdate1.BorderColor = Drawing.Color.Red
|
||||
Else
|
||||
pickdate1.BorderStyle = 1
|
||||
@@ -436,11 +438,12 @@ Partial Class Kundenbereich_Default
|
||||
End Sub
|
||||
|
||||
Protected Sub pickdate2_TextChanged(sender As Object, e As EventArgs)
|
||||
Dim TB As TextBox = pickdate2
|
||||
If TB.Text = "" Then
|
||||
TB.Attributes.Add("Border", "2px solid red")
|
||||
|
||||
If pickdate2.Text = "" Then
|
||||
pickdate2.Attributes.Add("Border", "2px solid red")
|
||||
Else
|
||||
TB.Attributes.Add("Border", "None")
|
||||
pickdate2.Attributes.Add("Border", "None")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user