Änderungen an Tabellengenerierungsableuf
This commit is contained in:
ja
@@ -53,7 +53,7 @@
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.ERR_OP_GLOBAL = VERAG_PROG_ALLGEMEIN.ERROR_OP.SHOW
|
||||
'Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(799124)
|
||||
Dim VERAGSQL = New VERAG_PROG_ALLGEMEIN.SQL
|
||||
' MsgBox(VERAGSQL.GetADMINConnectionString())
|
||||
'MsgBox(VERAGSQL.GetADMINConnectionString())
|
||||
'Response.Write(AD.Ordnungsbegriff)
|
||||
Dim STANDORT = "SUB"
|
||||
If (Request.QueryString.Count > 0) AndAlso (Request.QueryString("STANDORT") IsNot Nothing) Then
|
||||
@@ -202,7 +202,7 @@
|
||||
<div id="Abstand_lang" style="height: /*32px*/ 2.498048399687744vh;"></div>
|
||||
<div class="g-3">
|
||||
<div id="conovertab" style="overflow-x:auto;"margin-left="-2px">
|
||||
<asp:Table class="table table-responsive table-striped table-borderless" id="normaltable" runat="server" ViewStateMode="Inherit" EnableViewState="true" BorderWidth="2px">
|
||||
<asp:Table class="table table-responsive table-striped table-borderless" id="normaltable" runat="server" BorderWidth="2px">
|
||||
<asp:TableHeaderRow id="tbl_Header_row" runat="server" style="background-color:#043381;color:#fff">
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCellIndexNr" runat="server" AbbreviatedText="Index">Index-Nr</asp:TableHeaderCell>
|
||||
<asp:TableHeaderCell ID="tbl_HeaderCell_LKWs" runat="server" AbbreviatedText="LKWNr">LKW-Nr</asp:TableHeaderCell>
|
||||
|
||||
@@ -18,265 +18,271 @@ Partial Class CustomsAviso
|
||||
Page.UnobtrusiveValidationMode = UnobtrusiveValidationMode.WebForms
|
||||
|
||||
If Me.Page.User.Identity.IsAuthenticated Then
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
End Try
|
||||
If Me.Page.User.Identity.Name = "userwithlongername" Or Me.Page.User.Identity.Name = "test" Then
|
||||
Try
|
||||
Kdnrtext = Session.Item("CustomerID")
|
||||
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
||||
MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
||||
End Try
|
||||
|
||||
DataBind()
|
||||
DataBind()
|
||||
|
||||
'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
|
||||
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 += "window.addEventListener('onunload', (event) => {"
|
||||
string1 += " event.preventDefault();"
|
||||
string1 += "event.returnValue = '';"
|
||||
string1 += "script>"
|
||||
csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
|
||||
End If
|
||||
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
' MsgBox(datebis)
|
||||
|
||||
If (Page.IsPostBack) Then
|
||||
Page.MaintainScrollPositionOnPostBack = 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
|
||||
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
|
||||
ElseIf rbt_Ankunft.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Erf.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorb.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorg.Checked = True Then
|
||||
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
|
||||
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
|
||||
ElseIf rbt_Ankunft_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Erf_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorb_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorg_M.Checked = True Then
|
||||
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
|
||||
'Script für Schließen wirklich verlassen Meldung auf der Masterseite für diese Seite zu registrieren und nicht ueberall
|
||||
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 += "window.addEventListener('onunload', (event) => {"
|
||||
string1 += " event.preventDefault();"
|
||||
string1 += "event.returnValue = '';"
|
||||
string1 += "script>"
|
||||
csm1.RegisterClientScriptBlock(cstype, "Startup", string1)
|
||||
End If
|
||||
|
||||
If Not IsNothing(Session.Item("mytable")) Then
|
||||
addrows()
|
||||
tbl_Header_row.TableSection = TableRowSection.TableHeader
|
||||
' MsgBox(datebis)
|
||||
|
||||
If (Page.IsPostBack) Then
|
||||
Page.MaintainScrollPositionOnPostBack = 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
|
||||
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
|
||||
ElseIf rbt_Ankunft.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Erf.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorb.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorg.Checked = True Then
|
||||
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
|
||||
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
|
||||
ElseIf rbt_Ankunft_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Erf_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorb_M.Checked = True Then
|
||||
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
|
||||
ElseIf rbt_Vorg_M.Checked = True Then
|
||||
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
|
||||
|
||||
If Not IsNothing(Session.Item("mytable")) Then
|
||||
addrows()
|
||||
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
|
||||
Page.MaintainScrollPositionOnPostBack = False
|
||||
rbt_Alle.Checked = True
|
||||
normaltable.EnableViewState = True
|
||||
VERAG_VARIABLES.seterrorcount(20)
|
||||
Console.WriteLine(VERAG_VARIABLES.geterrornumb() + "The User is not authenticated to this page. Please login again!", vbAbort, "Error User")
|
||||
|
||||
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 Sub
|
||||
|
||||
Protected Sub initcells(tr As TableRow, t1 As TableCell, t2 As TableCell, t3 As TableCell, t4 As TableCell, t5 As TableCell, t6 As TableCell, t7 As TableCell, t8 As TableCell, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, th6 As TableHeaderCell, th7 As TableHeaderCell, th8 As TableHeaderCell)
|
||||
@@ -489,7 +495,7 @@ Partial Class CustomsAviso
|
||||
regval_txt_KdNrAuftrag_M.ForeColor = Drawing.Color.Red
|
||||
regval_txt_KdNrAuftrag_M.ErrorMessage = "Die Kundennummer ist nicht richtig formatiert."
|
||||
End If
|
||||
ElseIf txt_LKWNr_M.Text IsNot "" Then
|
||||
ElseIf String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Then
|
||||
txt_LKWNr_M.ValidateRequestMode = UI.ValidateRequestMode.Enabled
|
||||
regexval_txt_LKWNr_M.Enabled = True
|
||||
regexval_txt_LKWNr_M.Validate()
|
||||
@@ -662,12 +668,27 @@ Partial Class CustomsAviso
|
||||
txt_Empfaenger_M.Text = ""
|
||||
txt_KdNrAuftrag_M.Text = ""
|
||||
txt_LKWNr_M.Text = ""
|
||||
'Desktop
|
||||
rbt_Alle.Checked = False
|
||||
rbt_Alle.Disabled = False
|
||||
rbt_Ankunft.Checked = False
|
||||
rbt_Ankunft.Disabled = False
|
||||
rbt_Erf.Checked = False
|
||||
rbt_Erf.Disabled = False
|
||||
rbt_Freig.Checked = False
|
||||
rbt_Freig.Disabled = False
|
||||
rbt_Vorg.Checked = False
|
||||
rbt_Vorg.Disabled = False
|
||||
rbt_Vorb.Checked = False
|
||||
rbt_Vorb.Disabled = False
|
||||
Dim erster = New Date(Now().Year, Now().Month, 1)
|
||||
pickdate1.Text = erster.Day.ToString + "." + erster.Month.ToString + "." + erster.Year.ToString
|
||||
pickdate2.Text = Date.Parse(erster.Day.ToString + "." + Now().Month.ToString + "." + Now().Year.ToString).ToString
|
||||
datevon = Nothing
|
||||
datebis = Nothing
|
||||
dt = Nothing
|
||||
normaltable.Rows.Clear()
|
||||
Response.Redirect(Request.RawUrl)
|
||||
Return
|
||||
ElseIf String.IsNullOrEmpty(txt_Absender.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag.Text) = False Or String.IsNullOrEmpty(txt_LKWNr.Text) = False Or rbt_Alle.Checked = True Or rbt_Ankunft.Checked = True Or rbt_Erf.Checked = True Or rbt_Freig.Checked = True Or rbt_Vorb.Checked = True Or rbt_Vorg.Checked = True Then
|
||||
'Desktop
|
||||
@@ -683,6 +704,24 @@ Partial Class CustomsAviso
|
||||
rbt_Vorg.Disabled = False
|
||||
rbt_Vorb.Checked = False
|
||||
rbt_Vorb.Disabled = False
|
||||
|
||||
rbt_Alle_M.Checked = False
|
||||
rbt_Alle_M.Disabled = False
|
||||
rbt_Ankunft_M.Checked = False
|
||||
rbt_Ankunft_M.Disabled = False
|
||||
rbt_Erf_M.Checked = False
|
||||
rbt_Erf_M.Disabled = False
|
||||
rbt_Freig_M.Checked = False
|
||||
rbt_Freig_M.Disabled = False
|
||||
rbt_Vorg_M.Checked = False
|
||||
rbt_Vorg_M.Disabled = False
|
||||
rbt_Vorb_M.Checked = False
|
||||
rbt_Vorb_M.Disabled = False
|
||||
txt_Absender_M.Text = ""
|
||||
txt_Empfaenger_M.Text = ""
|
||||
txt_KdNrAuftrag_M.Text = ""
|
||||
txt_LKWNr_M.Text = ""
|
||||
|
||||
txt_Absender.Text = ""
|
||||
txt_Empfaenger.Text = ""
|
||||
txt_KdNrAuftrag.Text = ""
|
||||
@@ -693,6 +732,8 @@ Partial Class CustomsAviso
|
||||
datevon = Nothing
|
||||
datebis = Nothing
|
||||
dt = Nothing
|
||||
normaltable.Rows.Clear()
|
||||
Response.Redirect(Request.RawUrl)
|
||||
Return
|
||||
End If
|
||||
End Sub
|
||||
@@ -700,7 +741,6 @@ Partial Class CustomsAviso
|
||||
Protected Sub addrows()
|
||||
Session.Item("mytable") = Nothing
|
||||
normaltable.Rows.Clear()
|
||||
|
||||
Dim header As TableHeaderRow = New TableHeaderRow()
|
||||
header.Cells.Add(tbl_HeaderCellIndexNr)
|
||||
header.Cells.Add(tbl_HeaderCell_LKWs)
|
||||
@@ -710,6 +750,9 @@ Partial Class CustomsAviso
|
||||
header.Cells.Add(tbl_HeaderCell_Empfaenger)
|
||||
header.Cells.Add(tbl_HeaderCell_KundAuftNr)
|
||||
header.Cells.Add(tbl_HeaderCell_Info)
|
||||
|
||||
|
||||
|
||||
normaltable.Rows.Add(header)
|
||||
If dt IsNot Nothing AndAlso Not dt.Rows.Count = 0 Then
|
||||
Dim i As Integer = 0
|
||||
|
||||
Reference in New Issue
Block a user