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

Übersetzungen und Vesuczu fixen

Browse Source
This commit is contained in:
ja
2021-11-08 11:40:14 +01:00
parent 085a880457
commit 3a51010c42
2 changed files with 101 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

147
Customers/CustomsAviso.aspx
View File

@@ -77,7 +77,7 @@
</div>
<div style="margin-left:6px">
<div class="col-12" style="text-align:end">
<asp:LinkButton ID="btn_resetForm" runat="server" onclick="btn_resetForm_Click"><%=Server.HtmlEncode("Filter zurücksetzen") %></asp:LinkButton>
<asp:LinkButton ID="btn_resetForm" runat="server" onclick="btn_resetForm_Click"><%=Server.HtmlEncode("Filter reset") %></asp:LinkButton>
</div>
<div style="height:0.936768149882904vh"></div>
<div class="col-12" style="margin-left:8px">
@@ -88,12 +88,12 @@
<div style=" width:780px; margin-left:8px">
<fieldset>
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<label style="margin-right:4px;"><input id="rbt_Alle" onchange="auswahl(this.id)" type="radio" name="art" value="Alle" checked="true" data-bs-toggle="tooltip" style="margin-right:4px" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." runat="server"/>Alle</label>
<label style="margin-right:4px;"><input id="rbt_Erf" onchange="auswahl(this.id)" type="radio" name="art" value="Erfasst" style="margin-right:4px" runat="server"/>Erfasst</label>
<label style="margin-right:4px;"><input id="rbt_Vorb" onchange="auswahl(this.id)" type="radio" name="art" value="Vorbereitet" style="margin-right:4px" runat="server"/>Vorbereitet</label>
<label style="margin-right:4px;"><input id="rbt_Vorg" onchange="auswahl(this.id)" type="radio" name="art" value="Vorgeschrieben" style="margin-right:4px" runat="server"/>Vorgeschrieben</label>
<label style="margin-right:4px;"><input id="rbt_Ankunft" onchange="auswahl(this.id)" type="radio" name="art" value="Ankunft" style="margin-right:4px" runat="server"/>Ankunft</label>
<label style="margin-right:4px;"><input id="rbt_Freig" onchange="auswahl(this.id)" type="radio" name="art" value="Freigabe" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." style="margin-right:4px" runat="server">Freigabe</label>
<label style="margin-right:4px;"><input id="rbt_Alle" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Alle" checked="true" data-bs-toggle="tooltip" style="margin-right:4px" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." runat="server"/>Alle</label>
<label style="margin-right:4px;"><input id="rbt_Erf" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Erfasst" style="margin-right:4px" runat="server"/>Erfasst</label>
<label style="margin-right:4px;"><input id="rbt_Vorb" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Vorbereitet" style="margin-right:4px" runat="server"/>Vorbereitet</label>
<label style="margin-right:4px;"><input id="rbt_Vorg" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Vorgeschrieben" style="margin-right:4px" runat="server"/>Vorgeschrieben</label>
<label style="margin-right:4px;"><input id="rbt_Ankunft" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Ankunft" style="margin-right:4px" runat="server"/>Ankunft</label>
<label style="margin-right:4px;"><input id="rbt_Freig" onclick="Javascript:auswahl(this.id);" type="radio" name="art" value="Freigabe" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." style="margin-right:4px" runat="server">Freigabe</label>
</fieldset>
</div>
</div>
@@ -101,26 +101,26 @@
<%ismobile = True %>
<div class="col-8" style="margin-left:8px">
<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script>
<label><input id="rbt_Alle_M" type="radio" name="art2" onchange="auswahl(this.id)" value="Alle" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." class="CSS_input" runat="server"/>Alle</label>
<label style="margin-right:144px;"><input id="rbt_Erf_M" onchange="auswahl(this.id)" value="Erfasst" type="radio" name="art2" style="margin-right:4px" runat="server"/>Erfasst</label>
<label><input id="rbt_Vorb_M" type="radio" name="art2" onchange="auswahl(this.id)" value="Vorbereitet" style="margin-right:4px" runat="server"/>Vorbereitet</label>
<label><input id="rbt_Vorg_M" type="radio" name="art2" onchange="auswahl(this.id)" value="Vorgeschrieben" style="margin-right:4px" runat="server"/>Vorgeschrieben</label>
<label style="margin-right:22px"><input id="rbt_Ankunft_M" onchange="auswahl(this.id)" type="radio" name="art2" value="Ankunft" style="margin-right:4px" runat="server"/>Ankunft</label>
<label style="margin-right:52px"><input id="rbt_Freig_M" onchange="auswahl(this.id)" type="radio" name="art2" value="Freigabe" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." style="margin-right:4px" runat="server">Freigabe</label>
<label><input id="rbt_Alle_M" type="radio" name="art2" onclick="Javascript:auswahl(this.id);" value="Alle" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." class="CSS_input" runat="server"/>Alle</label>
<label style="margin-right:144px;"><input id="rbt_Erf_M" onclick="Javascript:auswahl(this.id);" value="Erfasst" type="radio" name="art2" style="margin-right:4px" runat="server"/>Erfasst</label>
<label><input id="rbt_Vorb_M" type="radio" name="art2" onclick="Javascript:auswahl(this.id);" value="Vorbereitet" style="margin-right:4px" runat="server"/>Vorbereitet</label>
<label><input id="rbt_Vorg_M" type="radio" name="art2" onclick="Javascript:auswahl(this.id);" value="Vorgeschrieben" style="margin-right:4px" runat="server"/>Vorgeschrieben</label>
<label style="margin-right:22px"><input id="rbt_Ankunft_M" onclick="Javascript:auswahl(this.id);" type="radio" name="art2" value="Ankunft" style="margin-right:4px" runat="server"/>Ankunft</label>
<label style="margin-right:52px"><input id="rbt_Freig_M" onclick="Javascript:auswahl(this.id);" type="radio" name="art2" value="Freigabe" data-bs-toggle="tooltip" data-bs-placement="top" title="Wenn dieser Filter angewählt ist, bitte das Datum eingrenzen." style="margin-right:4px" runat="server">Freigabe</label>
</div>
</div>
</div>
<div style="height:0.936768149882904vh"></div>
<div class="col-12" id="cont4">
<div class="col-12" id="container2" style="margin-left:2px;">
<asp:Label ID="lbl_von" runat="server" Text="Von:"></asp:Label>
<asp:Label ID="lbl_von" runat="server" Text="From:"></asp:Label>
<%Dim erster = New Date(Now().Year, Now().Month, 1) %>
<asp:TextBox id="pickdate1" Type="Date" CssClass="classTarget" minDate="<%=erster %>" OnTextChanged="pickdate1_TextChanged" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ControlToValidate="pickdate1" ID="valreqpickdate1" Display="Dynamic" runat="server" Enabled ="true" Visible ="true"></asp:RequiredFieldValidator>
<asp:CustomValidator runat="server" ID="valDateRange_1" ControlToValidate="pickdate1" Display="Dynamic" onservervalidate="valDateRange_1_ServerValidate" ErrorMessage="" SetFocusOnError="true" ValidationGroup="DateValid" />
<!--<asp:RequiredFieldValidator ID="RequiredFieldValidatorvon" runat="server" ErrorMessage="Field required" ControlToValidate="pickdate1" Text="Required" ForeColor="White" Font-Strikeout="False" Font-Underline="False" Font-Overline="False" Font-Bold="True" BackColor="Red"></asp:RequiredFieldValidator>
<asp:CustomValidator ValidateEmptyText="false" ClientValidationFunction="instantValidation"></asp:CustomValidator> -->
<asp:Label ID="lbl_bis" runat="server" Text="Bis:"></asp:Label>
<asp:Label ID="lbl_bis" runat="server" Text="To:"></asp:Label>
<!-- <asp:RequiredFieldValidator ID="RequiredFieldValidatorbis" ClientValidationFunction="validate" runat="server" ErrorMessage="Field required" ControlToValidate="pickdate2" Text="Required" ForeColor="White" Font-Strikeout="False" Font-Underline="False" Font-Overline="False" Font-Bold="True" BackColor="Red"></asp:RequiredFieldValidator> -->
<%Dim jetzt = DateTime.Now.Date %>
<asp:TextBox id="pickdate2" Type="Date" CssClass="classTarget" minDate="<%=jetzt %>" OnTextChanged="pickdate2_TextChanged" runat="server"></asp:TextBox>
@@ -241,60 +241,20 @@
</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>
function auswahl(id) {
/* alert(id)*/
if (id == "ContentPlaceHolder1_rbt_Alle_M") {
/*alert("testalle")*/
var myVal1 = document.getElementById("ContentPlaceHolder1_valreqpickdate1");
ValidatorEnable(myVal1, true);
var myVal2 = document.getElementById("ContentPlaceHolder1_valreqpickdate2");
ValidatorEnable(myVal2, true);
$("#container2").show();
} else if (id == "ContentPlaceHolder1_rbt_Freig_M") {
/*alert("testfreig")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, true);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, true);
$("#container2").show();
} else if (id == "ContentPlaceHolder1_rbt_Ankunft_M") {
/*alert("testAnk")*/
var myVal1 = document.getElementById("ContentPlaceHolder1_valreqpickdate1");
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById("ContentPlaceHolder1_valreqpickdate2");
ValidatorEnable(myVal2, false);
ValidatorEnable(myVal2, false);
$("#container2").hide();
} else if (id == "ContentPlaceHolder1_rbt_Vorb_M") {
/*alert("tesvorb")*/
var myVal1 = document.getElementById("ContentPlaceHolder1_valreqpickdate1");
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById("ContentPlaceHolder1_valreqpickdate2");
ValidatorEnable(myVal2, false);
$("#container2").hide();
} else if (id == "ContentPlaceHolder1_rbt_Vorg_M") {
/*alert("testvorg")*/
var myVal1 = document.getElementById("ContentPlaceHolder1_valreqpickdate1");
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById("ContentPlaceHolder1_valreqpickdate2");
ValidatorEnable(myVal2, false);
$("#container2").hide();
} else if (id == "ContentPlaceHolder1_rbt_Erf_M") {
/*alert("testerf")*/
var myVal1 = document.getElementById("ContentPlaceHolder1_valreqpickdate1");
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById("ContentPlaceHolder1_valreqpickdate2");
ValidatorEnable(myVal2, false);
$("#container2").hide();
} else if (id == "ContentPlaceHolder1_rbt_Alle") {
if (id == "ContentPlaceHolder1_rbt_Alle") {
/*alert("testalle")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, true);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, true);
ValidatorEnable(myVal2, true);
$("#container2").show();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 1
} else if (id == "ContentPlaceHolder1_rbt_Freig") {
/*alert("testfreig")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
@@ -302,13 +262,16 @@
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, true);
$("#container2").show();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 1
} else if (id == "ContentPlaceHolder1_rbt_Ankunft") {
/*alert("testAnk")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
/*alert("hide")*/
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Vorb") {
/*alert("tesvorb")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
@@ -316,6 +279,7 @@
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Vorg") {
/*alert("tesvorg")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
@@ -323,6 +287,7 @@
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Erf") {
/*alert("testerf")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
@@ -330,9 +295,58 @@
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
}
}
</script>
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Alle_M") {
/* alert("testalle") */
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, true);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, true);
$("#container2").show();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 1
} else if (id == "ContentPlaceHolder1_rbt_Freig_M") {
/*alert("testfreig")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, true);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, true);
$("#container2").show();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 1
} else if (id == "ContentPlaceHolder1_rbt_Ankunft_M") {
/*alert("testAnk")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Vorb_M") {
/*alert("tesvorb")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Vorg_M") {
/*alert("tesvorg")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
} else if (id == "ContentPlaceHolder1_rbt_Erf_M") {
/*alert("testerf")*/
var myVal1 = document.getElementById('ContentPlaceHolder1_valreqpickdate1');
ValidatorEnable(myVal1, false);
var myVal2 = document.getElementById('ContentPlaceHolder1_valreqpickdate2');
ValidatorEnable(myVal2, false);
$("#container2").hide();
document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value = 0
}
}
</script>
<script>
$(function () {
Sys.WebForms.PageRequestManager.getInstance().add_endRequest(PostBack);
@@ -340,9 +354,8 @@
});
function PostBack() {
var hidden = document.getElementById(<%=HIDf2.ClientID%>).value;
var hidden = document.getElementById('ContentPlaceHolder1_.HIDf2'.ClientID).value;
if (hidden == '1') {
setTimeout(function () { $("#container2").hide(); document.getElementById('<%=HIDf2.ClientID%>').value = 0 }, 10);
} else {

43
Customers/CustomsAviso.aspx.vb
View File

@@ -390,7 +390,7 @@ Partial Class CustomsAviso
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.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
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, 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
@@ -398,7 +398,7 @@ Partial Class CustomsAviso
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, 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
@@ -407,7 +407,7 @@ Partial Class CustomsAviso
ElseIf rbt_Erf.Checked = True Then
ckd = 2
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig.Checked = True Then
ckd = 3
@@ -417,32 +417,32 @@ Partial Class CustomsAviso
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat)
'MsgBox(ersterdat)
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)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
'MsgBox(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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 Then
ckd = 4
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb.Checked = True Then
ckd = 5
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg.Checked = True Then
ckd = 6
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
If rbt_Alle_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
@@ -452,7 +452,7 @@ Partial Class CustomsAviso
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat)
'MsgBox(ersterdat)
datevon = ersterdat
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
@@ -465,14 +465,14 @@ Partial Class CustomsAviso
Try
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0, 1, 2, 3, 4, 5}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0, 1, 2, 3, 4, 5}, 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("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
End Try
End If
ElseIf rbt_Erf_M.Checked = True Then
ckd = 8
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig_M.Checked = True Then
ckd = 9
Session.Add("IDOFCKBOX", ckd.ToString)
@@ -482,18 +482,18 @@ Partial Class CustomsAviso
Dim erster = New Date(Now().Year, Now().Month, 1)
Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
' MsgBox(ersterdat)
'MsgBox(ersterdat)
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)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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(Art, Kdnrtext, {1}, datevon, datebis, Absender, Empfaenger, LKWNR, KDNAFNR)
'MsgBox(pickdate2.Text)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(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("The time ranges given are not valid!", MsgBoxStyle.Exclamation)
End Try
@@ -502,13 +502,13 @@ Partial Class CustomsAviso
ckd = 10
pickdate1.Visible = False
pickdate2.Visible = False
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb_M.Checked = True Then
ckd = 11
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg_M.Checked = True Then
ckd = 12
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
@@ -712,5 +712,4 @@ Partial Class CustomsAviso
Protected Sub txt_KdNrAuftrag_M_TextChanged(sender As Object, e As EventArgs)
regval_txt_KdNrAuftrag_M.Validate()
End Sub
End Class
End Class