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

Datenblatt Fehler aktualisiert mit korrekten Zahlen und Änderungen am Code

Browse Source
This commit is contained in:
ja
2021-11-04 16:36:25 +01:00
parent d4d2648273
commit 6051bedb12
6 changed files with 106 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Customers/CustomsAviso.aspx
View File

@@ -127,6 +127,7 @@
</h2>
</div>
<asp:HiddenField ID="hfAccordionIndex" runat="server" />
<asp:HiddenField ID="HIDf2" runat="server" value="1"/>
<div id="collapseOne" class="accordion-collapse collapse hide" aria-labelledby="headingOne" data-bs-parent="#accordionExample">
<div class="card card-body">
<div class="col-12" id="cont3">
@@ -233,24 +234,43 @@
<script>
function changeval(value) {
if (value == "Alle") {
var hidden = $('#HIDf2').val()
if (value == "Alle"){
date1.required = true;
date2.required = true;
$("#container2").show();
date2.required = true;
$("#container2").show();
$('#HIDf2').val('0')
} else if (value == "Freigabe") {
date1.required = true;
date2.required = true;
$("#container2").show();
$('#HIDf2').val('0')
} else {
date1.required = false;
date2.required = false;
date1.text() = null;
date2.text() = null;
$("#container2").hide();
$('#HIDf2').val('1')
}
}
</script>
<script>
$(function () {
Sys.WebForms.PageRequestManager.getInstance().add_endRequest(PostBack);
PostBack();
});
function PostBack() {
var hidden = document.getElementById(<%=HIDf2.ClientID%>).value;
if (hidden == '1') {
setTimeout(function () { $('.a').hide(); document.getElementById('<%=HIDf2.ClientID%>').value = 0 }, 10);
}
}
</script>
<script type="text/javascript">
$(document).ready(function () {
Sys.WebForms.PageRequestManager.getInstance().add_endRequest(EndRequestHandler);

105
Customers/CustomsAviso.aspx.vb
View File

@@ -27,9 +27,40 @@ Partial Class CustomsAviso
tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
Select Case Session.Item("IDOFCKBOX")
Case 1
rbt_Alle.Checked = True
Case 2
rbt_Erf.Checked = True
Case 3
rbt_Freig.Checked = True
Case 4
rbt_Ankunft.Checked = True
Case 5
rbt_Vorb.Checked = True
Case 6
rbt_Vorg.Checked = True
Case 7
rbt_Alle_M.Checked = True
Case 8
rbt_Erf_M.Checked = True
Case 9
rbt_Freig_M.Checked = True
Case 10
rbt_Ankunft_M.Checked = True
Case 11
rbt_Vorb_M.Checked = True
Case 12
rbt_Vorg_M.Checked = True
Case Nothing
rbt_Alle.Checked = True
End Select
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -41,6 +72,13 @@ Partial Class CustomsAviso
valreqpickdate2.Validate()
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
ElseIf rbt_Freig.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -52,6 +90,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
Else
lbl_von.Visible = False
lbl_bis.Visible = False
@@ -61,6 +106,8 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
End If
'Mobil
If rbt_Alle_M.Checked = True Then
@@ -74,6 +121,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
ElseIf rbt_Freig_M.Checked = True Then
lbl_von.Visible = True
lbl_bis.Visible = True
@@ -85,6 +139,13 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
Else
lbl_von.Visible = False
lbl_bis.Visible = False
@@ -94,11 +155,6 @@ Partial Class CustomsAviso
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
End If
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then
datevon = Nothing
datebis = Nothing
End If
@@ -162,33 +218,6 @@ Partial Class CustomsAviso
regval_txt_Absender_M.Enabled = True
End If
End If
Select Case ckd
Case 1
rbt_Alle.Checked = True
Case 2
rbt_Erf.Checked = True
Case 3
rbt_Vorb.Checked = True
Case 4
rbt_Ankunft.Checked = True
Case 5
rbt_Vorg.Checked = True
Case 6
rbt_Vorb.Checked = True
Case 7
rbt_Alle_M.Checked = True
Case 8
rbt_Erf_M.Checked = True
Case 9
rbt_Freig_M.Checked = True
Case 10
rbt_Ankunft_M.Checked = True
Case 11
rbt_Vorb_M.Checked = True
Case 12
rbt_Vorg_M.Checked = True
End Select
Else
FormsAuthentication.RedirectToLoginPage()
End If
@@ -366,6 +395,7 @@ Partial Class CustomsAviso
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
ckd = 1
Session.Add("IDOFCKBOX", ckd.ToString)
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -391,10 +421,12 @@ 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)
ElseIf rbt_Freig.Checked = True Then
ckd = 3
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -419,18 +451,22 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Ankunft.Checked = True Then
ckd = 4
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb.Checked = True Then
ckd = 5
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg.Checked = True Then
ckd = 6
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
If rbt_Alle_M.Checked = True Then
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
ckd = 7
Session.Add("IDOFCKBOX", ckd.ToString)
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
Try
Dim erster = New Date(Now().Year, Now().Month, 1)
@@ -455,9 +491,11 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Erf_M.Checked = True Then
ckd = 8
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {0}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Freig_M.Checked = True Then
ckd = 9
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.ValidateRequestMode = UI.ValidateRequestMode.Enabled
pickdate2.ValidateRequestMode = UI.ValidateRequestMode.Enabled
If pickdate1.Text = Nothing Or pickdate2.Text = Nothing Then
@@ -482,14 +520,17 @@ Partial Class CustomsAviso
End If
ElseIf rbt_Ankunft_M.Checked = True Then
ckd = 10
Session.Add("IDOFCKBOX", ckd.ToString)
pickdate1.Visible = False
pickdate2.Visible = False
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {3}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorb_M.Checked = True Then
ckd = 11
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {4}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
ElseIf rbt_Vorg_M.Checked = True Then
ckd = 12
Session.Add("IDOFCKBOX", ckd.ToString)
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Kdnrtext, {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If

2
Customers/Default2.aspx
View File

@@ -38,7 +38,7 @@
</tr>
<tr>
<td>
<asp:Label ID="Label1" runat="server" Text="Gib eibe Zahl ein in Dezimal"></asp:Label>
<asp:Label ID="Label1" runat="server" Text="Gib eine Zahl ein in Dezimal"></asp:Label>
</td>
<td>
<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>

9
Customers/Default2.aspx.vb
View File

@@ -1,7 +1,13 @@

Partial Class Customers_Default2
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, e As EventArgs)
If Page.IsPostBack Then
VERAG_VARIABLES.initerrorcount()
Else
VERAG_VARIABLES.initerrorcount()
End If
End Sub
Protected Sub Button1_Click(sender As Object, e As EventArgs)
If String.IsNullOrEmpty(TextBox1.Text) = False Then
Dim vals As New List(Of String)
@@ -11,7 +17,6 @@ Partial Class Customers_Default2
Dim strtemp As String = ""
VERAG_VARIABLES.seterrorcount(Integer.Parse(i))
vals.Add(i.ToString + Space(3) + ":" + Space(3) + VERAG_VARIABLES.geterrornumb)
Next
For Each val As String In vals
finalstr = finalstr + Environment.NewLine + val + Environment.NewLine