edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Select radio buttons

Browse Source
This commit is contained in:
ja
2021-09-28 13:41:30 +02:00
parent b74f50adef
commit f4d5a576b9
2 changed files with 51 additions and 50 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Customers/CustomsAviso.aspx.vb
View File

@@ -165,56 +165,56 @@ Partial Class Kundenbereich_Default
If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try
Absender = Server.HtmlEncode(txt_Absender.Text)
Absender = 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 = Server.HtmlEncode(txt_Empfaenger.Text)
Empfaenger = 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 = Server.HtmlEncode(txt_KdNrAuftrag.Text)
KDNAFNR = 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 = Server.HtmlEncode(txt_LKWNr.Text)
LKWNR = 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 = Server.HtmlEncode(txt_Absender_M.Text)
Absender = 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 = Server.HtmlEncode(txt_Empfaenger_M.Text)
Empfaenger = 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 = Server.HtmlEncode(txt_KdNrAuftrag_M.Text)
KDNAFNR = 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 = Server.HtmlEncode(txt_LKWNr_M.Text)
LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try
@@ -223,7 +223,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.HtmlDecode(Art), Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -245,7 +245,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.HtmlDecode(Art), Kdnrtext, {0}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig.Checked = True Or rbt_Freig_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -257,23 +257,24 @@ Partial Class Kundenbereich_Default
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
Else
Try
datevon = Date.Parse(pickdate1.Text)
'MsgBox(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
' MsgBox(pickdate2.Text)
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))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, 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.HtmlDecode(Art), Kdnrtext, {3}, Nothing, Nothing, Server.HtmlDecode(Absender), Server.HtmlDecode(Empfaenger), Server.HtmlDecode(LKWNR), Server.HtmlDecode(KDNAFNR))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb.Checked = True Or rbt_Vorb_M.Checked = True Then
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))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg.Checked = True Or rbt_Vorg_M.Checked = True Then
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))
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
@@ -417,12 +418,7 @@ 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