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

nachricht bei schließen des fensters oder neuladen

Browse Source
This commit is contained in:
ja
2021-11-05 16:12:19 +01:00
parent 935e21c077
commit c93022dd3c
3 changed files with 179 additions and 150 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Customers/Customers.master
View File

@@ -142,10 +142,20 @@
<meta http-equiv="Page-Exit"content="blendTrans(Duration=0)"/> <meta http-equiv="Page-Exit"content="blendTrans(Duration=0)"/>
</asp:ContentPlaceHolder> </asp:ContentPlaceHolder>
<asp:ContentPlaceHolder id="head" runat="server"> <asp:ContentPlaceHolder id="head" runat="server">
<script>
function unloadmessage() {
if (typeof contentunloadmessage == "function") {
contentunloadmessage();
}
}
</script>
</asp:ContentPlaceHolder> </asp:ContentPlaceHolder>
</head> </head>
<body data-spy="scroll" data-target=".navbar" data-offset="50" onbeforeunload=" return 'Are you really want to perform the action?'"> <body data-spy="scroll" data-target=".navbar" data-offset="50" >
<!-- <div id="nav-main"> <!-- <div id="nav-main">
<div id="art-logo"></div> <div id="art-logo"></div>
</div> </div>

11
Customers/CustomsAviso.aspx
View File

@@ -25,6 +25,15 @@
<link rel="stylesheet" type="text/css" href="../css/Customers/MasterpageCustomers.css"/> <link rel="stylesheet" type="text/css" href="../css/Customers/MasterpageCustomers.css"/>
<link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/> <link rel="stylesheet" type="text/css" href="../css/navbarsidebar2.css"/>
<link rel="stylesheet" type="text/css" href="../css/Customers/CustomsAVISO.css"/> <link rel="stylesheet" type="text/css" href="../css/Customers/CustomsAVISO.css"/>
<script language='javascript'>
window.addEventListener('beforeunload', (event) => {
// Cancel the event as stated by the standard.
event.preventDefault();
// Chrome requires returnValue to be set.
event.returnValue = '';
});
</script>
</asp:Content> </asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server"> <asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
@@ -382,4 +391,6 @@
}); });
</script> </script>
</asp:Content> </asp:Content>

302
Customers/CustomsAviso.aspx.vb
View File

@@ -16,6 +16,7 @@ Partial Class CustomsAviso
Dim ckd As Integer = -1 Dim ckd As Integer = -1
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
If Me.Page.User.Identity.IsAuthenticated Then If Me.Page.User.Identity.IsAuthenticated Then
Try Try
Kdnrtext = Session.Item("CustomerID") Kdnrtext = Session.Item("CustomerID")
@@ -24,173 +25,180 @@ Partial Class CustomsAviso
End Try End Try
DataBind() DataBind()
Dim csm1 As ClientScriptManager = Page.ClientScript
Dim cstype As Type = Page.GetType
If Not csm1.IsStartupScriptRegistered(cstype, "Startup") Then
Dim string1 As String = "<script language=\""JavaScript\"">"
string1 += "</"
string1 += "script>"
csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
End If
tbl_Header_row.TableSection = TableRowSection.TableHeader tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis) ' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then If (Page.IsPostBack And normaltable.EnableViewState = False) Then
Page.MaintainScrollPositionOnPostBack = True Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True normaltable.EnableViewState = True
If rbt_Alle.Checked = True Then If rbt_Alle.Checked = True Then
lbl_von.Visible = True lbl_von.Visible = True
lbl_bis.Visible = True lbl_bis.Visible = True
valDateRange_1.Enabled = True valDateRange_1.Enabled = True
valDateRange_2.Enabled = True valDateRange_2.Enabled = True
valreqpickdate1.Enabled = True valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True valreqpickdate2.Enabled = True
valreqpickdate1.Validate() valreqpickdate1.Validate()
valreqpickdate2.Validate() valreqpickdate2.Validate()
pickdate1.Visible = True pickdate1.Visible = True
pickdate2.Visible = True pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datevon = Date.Parse(pickdate1.Text) datevon = Date.Parse(pickdate1.Text)
datebis = Date.Parse(pickdate2.Text) datebis = Date.Parse(pickdate2.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then 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
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
End If End If
ElseIf rbt_Freig.Checked = True Then 'Mobil
lbl_von.Visible = True If rbt_Alle_M.Checked = True Then
lbl_bis.Visible = True lbl_von.Visible = True
valreqpickdate1.Enabled = True lbl_bis.Visible = True
valreqpickdate2.Enabled = True valreqpickdate1.Enabled = True
valreqpickdate1.Validate() valreqpickdate2.Enabled = True
valreqpickdate2.Validate() valreqpickdate1.Validate()
valDateRange_1.Enabled = True valreqpickdate2.Validate()
valDateRange_2.Enabled = True valDateRange_1.Enabled = True
pickdate1.Visible = True valDateRange_2.Enabled = True
pickdate2.Visible = True pickdate1.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then pickdate2.Visible = True
datevon = Date.Parse(pickdate1.Text) If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then
datebis = Date.Parse(pickdate2.Text) datevon = Date.Parse(pickdate1.Text)
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then 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
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True
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
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing datevon = Nothing
datebis = Nothing datebis = Nothing
End If End If
Else Else
lbl_von.Visible = False Page.MaintainScrollPositionOnPostBack = False
lbl_bis.Visible = False rbt_Alle.Checked = True
valreqpickdate1.Enabled = False normaltable.EnableViewState = True
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
End If
'Mobil
If rbt_Alle_M.Checked = True Then
lbl_von.Visible = True lbl_von.Visible = True
lbl_bis.Visible = True lbl_bis.Visible = True
valreqpickdate1.Enabled = True
valreqpickdate2.Enabled = True
valreqpickdate1.Validate()
valreqpickdate2.Validate()
valDateRange_1.Enabled = True valDateRange_1.Enabled = True
valDateRange_2.Enabled = True valDateRange_2.Enabled = True
pickdate1.Visible = True pickdate1.Visible = True
pickdate2.Visible = True pickdate2.Visible = True
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then Dim erster = New Date(Now().Year, Now().Month, 1)
datevon = Date.Parse(pickdate1.Text) Dim ersterdat = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
datebis = Date.Parse(pickdate2.Text) pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then ' MsgBox(ersterdat)
datevon = Nothing datevon = ersterdat
datebis = Nothing datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If End If
ElseIf rbt_Freig_M.Checked = True Then If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
lbl_von.Visible = True regexval_txt_KdNrAuftrag.Enabled = False
lbl_bis.Visible = True Else
valreqpickdate1.Enabled = True regexval_txt_KdNrAuftrag.Enabled = True
valreqpickdate2.Enabled = True End If
valreqpickdate1.Validate() If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
valreqpickdate2.Validate() regexval_txt_Empfaenger.Enabled = False
valDateRange_1.Enabled = True Else
valDateRange_2.Enabled = True regexval_txt_Empfaenger.Enabled = True
pickdate1.Visible = True End If
pickdate2.Visible = True If String.IsNullOrEmpty(txt_Absender.Text) = True Then
If valreqpickdate1.IsValid = True And valreqpickdate2.IsValid = True Then regexval_txt_Absender.Enabled = False
datevon = Date.Parse(pickdate1.Text) Else
datebis = Date.Parse(pickdate2.Text) regexval_txt_Absender.Enabled = True
ElseIf pickdate1.Text = String.Empty And pickdate2.Text = String.Empty Then End If
datevon = Nothing 'Mobile
datebis = Nothing If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
regexval_txt_LKWNr_M.Enabled = False
Else
regexval_txt_LKWNr_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
regval_txt_KdNrAuftrag_M.Enabled = False
Else
regval_txt_KdNrAuftrag_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
regval_txt_Empfaenger_M.Enabled = False
Else
regval_txt_Empfaenger_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
regval_txt_Absender_M.Enabled = False
Else
regval_txt_Absender_M.Enabled = True
End If End If
Else
lbl_von.Visible = False
lbl_bis.Visible = False
valreqpickdate1.Enabled = False
valreqpickdate2.Enabled = False
valDateRange_1.Enabled = False
valDateRange_2.Enabled = False
pickdate1.Visible = False
pickdate2.Visible = False
datevon = Nothing
datebis = Nothing
End If End If
Else Else
Page.MaintainScrollPositionOnPostBack = False FormsAuthentication.RedirectToLoginPage()
rbt_Alle.Checked = True
normaltable.EnableViewState = True
lbl_von.Visible = True
lbl_bis.Visible = True
valDateRange_1.Enabled = True
valDateRange_2.Enabled = True
pickdate1.Visible = True
pickdate2.Visible = True
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)
datevon = ersterdat
datebis = Date.Parse(Now().Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
pickdate2.Text = Now().ToShortDateString()
pickdate1.Text = erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString
If String.IsNullOrEmpty(txt_LKWNr.Text) Then
regexval_txt_LKW.Enabled = False
Else
regexval_txt_LKW.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = True Then
regexval_txt_KdNrAuftrag.Enabled = False
Else
regexval_txt_KdNrAuftrag.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger.Text) = True Then
regexval_txt_Empfaenger.Enabled = False
Else
regexval_txt_Empfaenger.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender.Text) = True Then
regexval_txt_Absender.Enabled = False
Else
regexval_txt_Absender.Enabled = True
End If
'Mobile
If String.IsNullOrEmpty(txt_LKWNr_M.Text) Then
regexval_txt_LKWNr_M.Enabled = False
Else
regexval_txt_LKWNr_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = True Then
regval_txt_KdNrAuftrag_M.Enabled = False
Else
regval_txt_KdNrAuftrag_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Empfaenger_M.Text) = True Then
regval_txt_Empfaenger_M.Enabled = False
Else
regval_txt_Empfaenger_M.Enabled = True
End If
If String.IsNullOrEmpty(txt_Absender_M.Text) = True Then
regval_txt_Absender_M.Enabled = False
Else
regval_txt_Absender_M.Enabled = True
End If
End If
Else
FormsAuthentication.RedirectToLoginPage()
End If End If
End Sub End Sub