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

61
Customers/CustomsAviso.aspx
View File

@@ -123,7 +123,7 @@
<button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#collapseOne" aria-expanded="false" aria-controls="collapseOne">Erweiterte Suche</button> <button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#collapseOne" aria-expanded="false" aria-controls="collapseOne">Erweiterte Suche</button>
</h2> </h2>
</div> </div>
<asp:HiddenField ID="hfAccordionIndex" runat="server" />
<div id="collapseOne" class="accordion-collapse collapse hide" aria-labelledby="headingOne" data-bs-parent="#accordionExample"> <div id="collapseOne" class="accordion-collapse collapse hide" aria-labelledby="headingOne" data-bs-parent="#accordionExample">
<div class="card card-body"> <div class="card card-body">
<div class="col-12" id="cont3"> <div class="col-12" id="cont3">
@@ -216,15 +216,15 @@
<script src="https://cdn.jsdelivr.net/jquery.validation/1.16.0/jquery.validate.min.js"></script> <script src="https://cdn.jsdelivr.net/jquery.validation/1.16.0/jquery.validate.min.js"></script>
<script src="https://cdn.jsdelivr.net/jquery.validation/1.16.0/additional-methods.min.js"></script> <script src="https://cdn.jsdelivr.net/jquery.validation/1.16.0/additional-methods.min.js"></script>
<script> <script>
function GetSelectedVal(ele) {
$("#container2").hide(); function GetSelectedVal(ele) {
var el = $(ele).closest('label').text(); var el = $(ele).closest('label').text();
var date1 = document.getElementById('<%=pickdate1.ClientID%>'); var date1 = document.getElementById('<%=pickdate1.ClientID%>');
var date2 = document.getElementById('<%=pickdate2.ClientID%>'); var date2 = document.getElementById('<%=pickdate2.ClientID%>');
$("#container2").hide();
if (el == "Alle") { if (el == "Alle") {
$("#container2").show();
date1.required = true;
date2.required = true;
} else if (el == "Alle_M") { } else if (el == "Alle_M") {
$("#container2").show(); $("#container2").show();
date1.required = true; date1.required = true;
@@ -232,12 +232,12 @@
} else if (el == "Freigabe") { } else if (el == "Freigabe") {
$("#container2").show(); $("#container2").show();
date1.required = true; date1.required = true;
date2.required = true; date2.required = true;
dat dat
} else if (el == "Freigabe_M") { } else if (el == "Freigabe_M") {
$("#container2").show(); $("#container2").show();
date1.required = true; date1.required = true;
date2.required = true; date2.required = true;
} else { } else {
$("#container2").hide(); $("#container2").hide();
date1.required = false; date1.required = false;
@@ -246,6 +246,7 @@
date2.text = ""; date2.text = "";
} }
} }
</script> </script>
<script type="text/javascript"> <script type="text/javascript">
@@ -269,20 +270,24 @@
} }
}; };
</script> </script>
<script type="text/javascript"> <script >
$(document).ready(function () { $(document).ready(function () {
// Get saved data from sessionStorage //when a group is shown, save it as the active accordion group
let selectedCollapse = sessionStorage.getItem('selectedCollapse'); $("#accordionExample").on('shown.bs.collapse', function () {
if (selectedCollapse != null) { var active = $("#accordion .in").attr('id');
$('accordion-button collapsed').removeClass('show'); $.cookie('activeAccordionGroup', active);
$(selectedCollapse).addClass('show'); // alert(active);
} });
//To set, which one will be opened $("#accordionExample").on('hidden.bs.collapse', function () {
$('accordion-button collapsed').on('click', function () { $.removeCookie('activeAccordionGroup');
let target = $(this).data('target'); });
//Save data to sessionStorage var last = $.cookie('activeAccordionGroup');
sessionStorage.setItem('selectedCollapse', target); if (last != null) {
}); //remove default collapse settings
} $("#accordionExample .panel-collapse").removeClass('in');
</script> //show the account_last visible group
$("#" + last).addClass("in");
}
});
</script>
</asp:Content> </asp:Content>

36
Customers/CustomsAviso.aspx.vb
View File

@@ -165,56 +165,56 @@ Partial Class Kundenbereich_Default
If txt_Absender.Text IsNot "" Then If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Absender = Server.HtmlEncode(txt_Absender.Text) Absender = txt_Absender.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_Empfaenger.Text IsNot "" Then ElseIf txt_Empfaenger.Text IsNot "" Then
txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Empfaenger = Server.HtmlEncode(txt_Empfaenger.Text) Empfaenger = txt_Empfaenger.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_KdNrAuftrag.Text IsNot "" Then ElseIf txt_KdNrAuftrag.Text IsNot "" Then
txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag.Text) KDNAFNR = txt_KdNrAuftrag.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_LKWNr.Text IsNot "" Then ElseIf txt_LKWNr.Text IsNot "" Then
txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
LKWNR = Server.HtmlEncode(txt_LKWNr.Text) LKWNR = txt_LKWNr.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_Absender_M.Text IsNot "" Then ElseIf txt_Absender_M.Text IsNot "" Then
txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Absender_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Absender = Server.HtmlEncode(txt_Absender_M.Text) Absender = txt_Absender_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_Empfaenger_M.Text IsNot "" Then ElseIf txt_Empfaenger_M.Text IsNot "" Then
txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_Empfaenger_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
Empfaenger = Server.HtmlEncode(txt_Empfaenger_M.Text) Empfaenger = txt_Empfaenger_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then ElseIf txt_KdNrAuftrag_M.Text IsNot "" Then
txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_KdNrAuftrag_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
KDNAFNR = Server.HtmlEncode(txt_KdNrAuftrag_M.Text) KDNAFNR = txt_KdNrAuftrag_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
ElseIf txt_LKWNr_M.Text IsNot "" Then ElseIf txt_LKWNr_M.Text IsNot "" Then
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
Try Try
LKWNR = Server.HtmlEncode(txt_LKWNr_M.Text) LKWNR = txt_LKWNr_M.Text
Catch ex As FormatException Catch ex As FormatException
MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical) MsgBox("Diese Daten sind nicht gültig!", MsgBoxStyle.Critical)
End Try End Try
@@ -223,7 +223,7 @@ Partial Class Kundenbereich_Default
If rbt_Alle.Checked = True Or rbt_Alle_M.Checked = True Then If rbt_Alle.Checked = True Or rbt_Alle_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.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 If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try Try
Dim erster = New Date(Now().Year, Now().Month, 1) Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -245,7 +245,7 @@ Partial Class Kundenbereich_Default
End Try End Try
End If End If
ElseIf rbt_Erf.Checked = True Or rbt_Erf_M.Checked = True Then 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 ElseIf rbt_Freig.Checked = True Or rbt_Freig_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -257,23 +257,24 @@ Partial Class Kundenbereich_Default
datevon = ersterdat datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString 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 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 Else
Try Try
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
'MsgBox(pickdate1.Text) 'MsgBox(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
' MsgBox(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 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) MsgBox("Die Zeitzonen sind nicht gültig!", MsgBoxStyle.Exclamation)
End Try End Try
End If End If
ElseIf rbt_Ankunft.Checked = True Or rbt_Ankunft_M.Checked = True Then 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 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 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 End If
If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then 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 pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
datevon = Nothing datevon = Nothing
datebis = 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 dt = Nothing
'txt_KdNr.Focus() 'txt_KdNr.Focus()
End Sub End Sub