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

Änderungen zum komplett dynamischen Erstellen der tabelle

Browse Source
This commit is contained in:
ja
2021-11-09 12:00:15 +01:00
parent 8f718bdeaa
commit 76d697e2a1
3 changed files with 323 additions and 298 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Customers/CustomsAviso.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="Aufträge VERAG" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="CustomsAviso.aspx.vb" Inherits="CustomsAviso" UnobtrusiveValidationMode="None"%>
<%@ Page Title="Aufträge VERAG" Language="VB" MasterPageFile="~/Customers/Customers.master" ViewStateMode="Enabled" AutoEventWireup="false" CodeFile="CustomsAviso.aspx.vb" Inherits="CustomsAviso" UnobtrusiveValidationMode="None"%>
<asp:Content ID="Content1" ContentPlaceHolderID="head" Runat="Server">
<!-- Bootstrap -->
@@ -36,7 +36,7 @@
</script>
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<asp:Content ID="Content3" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server" EnableViewState="true">
<asp:ScriptManager ID="script1" runat="server"></asp:ScriptManager>
<asp:UpdatePanel ID="panelupdate1" runat="server"><ContentTemplate>
<!-- Webiste-Content-->
@@ -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" EnableViewState="false" BorderWidth="2px">
<asp:Table class="table table-responsive table-striped table-borderless" id="normaltable" runat="server" ViewStateMode="Inherit" EnableViewState="true" 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>

138
Customers/CustomsAviso.aspx.vb
View File

@@ -42,9 +42,8 @@ Partial Class CustomsAviso
tbl_Header_row.TableSection = TableRowSection.TableHeader
' MsgBox(datebis)
If (Page.IsPostBack And normaltable.EnableViewState = False) Then
If (Page.IsPostBack) Then
Page.MaintainScrollPositionOnPostBack = True
normaltable.EnableViewState = True
If rbt_Alle.Checked = True Then
lbl_von.Visible = True
@@ -209,10 +208,15 @@ Partial Class CustomsAviso
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
@@ -272,6 +276,7 @@ Partial Class CustomsAviso
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)
@@ -384,6 +389,8 @@ Partial Class CustomsAviso
Protected Sub btn_Auftraege_Click(sender As Object, e As EventArgs)
dt = Nothing
Session.Add("mytable", Nothing)
If Session.Item("mytable") = Nothing Then
If txt_Absender.Text IsNot "" Then
txt_Absender.ValidateRequestMode = UI.ValidateRequestMode.Enabled
regexval_txt_Absender.Enabled = True
@@ -631,7 +638,79 @@ Partial Class CustomsAviso
ckd = 12
dt = VERAG_PROG_ALLGEMEIN.cAviso.GET_KDLIST_WEB(Art, Integer.Parse(Kdnrtext), {5}, Nothing, Nothing, Absender, Empfaenger, LKWNR, KDNAFNR)
End If
End If
addrows()
Session.Item("mytable") = normaltable
End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
If String.IsNullOrEmpty(txt_Absender_M.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Or String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Or rbt_Alle_M.Checked = True Or rbt_Ankunft_M.Checked = True Or rbt_Erf_M.Checked = True Or rbt_Freig_M.Checked = True Or rbt_Vorb_M.Checked = True Or rbt_Vorg_M.Checked = True Then
'Mobil
rbt_Alle_M.Checked = True
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 = ""
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
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
rbt_Alle.Checked = True
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
txt_Absender.Text = ""
txt_Empfaenger.Text = ""
txt_KdNrAuftrag.Text = ""
txt_LKWNr.Text = ""
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
Return
End If
End Sub
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)
header.Cells.Add(tbl_HeaderCell_Status)
header.Cells.Add(tbl_HeaderCell_Auftragsdatum)
header.Cells.Add(tbl_HeaderCell_Absender)
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
For Each d In dt.Rows
@@ -731,61 +810,6 @@ Partial Class CustomsAviso
normaltable.Rows.Add(tr)
End If
End Sub
Protected Sub btn_resetForm_Click(sender As Object, e As EventArgs)
If String.IsNullOrEmpty(txt_Absender_M.Text) = False Or String.IsNullOrEmpty(txt_Empfaenger_M.Text) = False Or String.IsNullOrEmpty(txt_KdNrAuftrag_M.Text) = False Or String.IsNullOrEmpty(txt_LKWNr_M.Text) = False Or rbt_Alle_M.Checked = True Or rbt_Ankunft_M.Checked = True Or rbt_Erf_M.Checked = True Or rbt_Freig_M.Checked = True Or rbt_Vorb_M.Checked = True Or rbt_Vorg_M.Checked = True Then
'Mobil
rbt_Alle_M.Checked = True
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 = ""
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
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
rbt_Alle.Checked = True
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
txt_Absender.Text = ""
txt_Empfaenger.Text = ""
txt_KdNrAuftrag.Text = ""
txt_LKWNr.Text = ""
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
Return
End If
End Sub
Protected Sub pickdate1_TextChanged(sender As Object, e As EventArgs)
valDateRange_1.Validate()
End Sub

3
Customers/Invoices.aspx.vb
View File

@@ -458,9 +458,10 @@ Partial Class Customers_Default3
tr.Cells.Add(tbl_Cell_Info)
initcells(tr, tbl_Cell_Index, tbl_Cell_ReNr, tbl_Cell_LKWs, tbl_Cell_Auftragsdat, tbl_Cell_KundAuftrNr, tbl_Cell_Absender, tbl_Cell_Empfaenger, tbl_Cell_Info,
tbl_HeaderCellIndex, tbl_HeaderCell_ReNr, tbl_HeaderCell_LKWNr, tbl_HeaderCell_Auftragsdatum, tbl_HeaderCell_KundenAuftrNummer, tbl_HeaderCell_Absender, tbl_HeaderCell_Empfaenger, tbl_HeaderCell_Info)
normaltable.ViewStateMode = ViewStateMode.Enabled
Page.ViewStateMode = ViewStateMode.Enabled
normaltable.Rows.Add(tr)
Session.Add("lastrecord", dt)
normaltable.v
i += 1
Next
Else