nachricht bei schließen des fensters oder neuladen
This commit is contained in:
ja
@@ -16,6 +16,7 @@ Partial Class CustomsAviso
|
||||
Dim ckd As Integer = -1
|
||||
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||
|
||||
If Me.Page.User.Identity.IsAuthenticated Then
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
@@ -24,173 +25,180 @@ Partial Class CustomsAviso
|
||||
End Try
|
||||
|
||||
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
|
||||
' MsgBox(datebis)
|
||||
' MsgBox(datebis)
|
||||
|
||||
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
normaltable.EnableViewState = True
|
||||
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
|
||||
Page.MaintainScrollPositionOnPostBack = True
|
||||
normaltable.EnableViewState = True
|
||||
|
||||
If rbt_Alle.Checked = True Then
|
||||
lbl_von.Visible = True
|
||||
lbl_bis.Visible = True
|
||||
valDateRange_1.Enabled = True
|
||||
valDateRange_2.Enabled = True
|
||||
valreqpickdate1.Enabled = True
|
||||
valreqpickdate2.Enabled = True
|
||||
valreqpickdate1.Validate()
|
||||
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
|
||||
If rbt_Alle.Checked = True Then
|
||||
lbl_von.Visible = True
|
||||
lbl_bis.Visible = True
|
||||
valDateRange_1.Enabled = True
|
||||
valDateRange_2.Enabled = True
|
||||
valreqpickdate1.Enabled = True
|
||||
valreqpickdate2.Enabled = True
|
||||
valreqpickdate1.Validate()
|
||||
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
|
||||
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
|
||||
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
|
||||
'Mobil
|
||||
If rbt_Alle_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
|
||||
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
|
||||
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
|
||||
datebis = Nothing
|
||||
End If
|
||||
'Mobil
|
||||
If rbt_Alle_M.Checked = True Then
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
rbt_Alle.Checked = True
|
||||
normaltable.EnableViewState = True
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
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
|
||||
Else
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
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()
|
||||
FormsAuthentication.RedirectToLoginPage()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user