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

Listen werden korrekt aufgebaut die Klicks werden morgen eingearbeitet.

Browse Source
This commit is contained in:
ja
2021-12-09 16:50:33 +01:00
parent 4e91c99785
commit 30cd1c6078
2 changed files with 125 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Customers/LKWs.aspx
View File

@@ -64,12 +64,12 @@
<div style="height:5px"></div>
<div class="row">
<div class="col-12">Kennzeichen:
<asp:TextBox runat="server" ID="txt_LkwNr" Width="110px" style="margin-left:25px"></asp:TextBox>
<asp:TextBox ID ="txt_lkw" runat="server" Width="110px" style="margin-left:25px"></asp:TextBox>
<asp:Button ID="btn_Suchen" OnClick="btn_Suchen_Click" runat="server" Text="Suchen" style="margin-left:5px"/> </div>
<div class="col-9">
<div class="col-9"style="height:10px;"></div>
<div class="col-9">
<asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="valregex_txt_knz" ControlToValidate="txt_LkwNr" ForeColor="Red" ValidationExpression="^[A-Za-z1-9]" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
<asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="valregex_txt_knz" ControlToValidate="txt_lkw" ForeColor="Red" ValidationExpression="^[A-Z1-9]" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
</div>
<div class="flex-col-9">
<asp:Table ID="Table1" runat="server"></asp:Table>
@@ -91,9 +91,9 @@
<asp:Label ID="lbl_SDL" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen:</asp:Label>
</div>
<div class="col-12"style="height:10px;"></div>
<div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto">
<div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto;overflow-y:auto;max-height:312px;">
<asp:Table ID="tbl_mainpage" runat="server" Width="100%" CssClass="table table-striped col-12">
<asp:TableHeaderRow style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr">SDL-Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
<asp:TableHeaderRow ID="headrow1" runat="server" style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr">SDL-Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>
</div>
</div>
@@ -104,7 +104,7 @@
<div class="col-12"></div>
<div class="row">
<div class="col-12">
<asp:Button ID="btn_alle_M" runat="server" CssClass="btn btn-primary" ClientIDMode="Predictable" style="margin-left:-24px; width:76px" Text="Alle" />
<asp:Button ID="btn_alle_M" runat="server" CssClass="btn btn-primary" ClientIDMode="Predictable" OnClick="btn_alle_M_Click" style="margin-left:-24px; width:76px" Text="Alle" />
</div>
<div style="height:20px"></div>
<div class="row" style="margin-left:-30px">
@@ -113,12 +113,12 @@
</div>
<div style="height:12px"></div>
<div class="col-12">
<asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="regex_val_txtLKW_M" ControlToValidate="txt_LkwNr_M" ValidationExpression="^[A-Za-z1-9]" ForeColor="Red" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
<asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="regex_val_txtLKW_M" ControlToValidate="txt_LKWNr_M" ValidationExpression="^[A-Z1-9]" ForeColor="Red" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
</div>
<div style="height:17px"></div>
<div class="col-12-flex">
<asp:Table ID="tbl_2" runat="server">
<asp:TableHeaderRow style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tbhc_KFZKennz_M">KFZ_Kennzeichen</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Nat_M">Nat.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Verk_M">Verk.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_KZ_An_M">KZ-An</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Verm_M">Vermerke</asp:TableHeaderCell></asp:TableHeaderRow>
<asp:TableHeaderRow style="background-color:#043381;color:#fff" runat="server"><asp:TableHeaderCell ID="tbhc_KFZKennz_M">KFZ_Kennzeichen</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Nat_M">Nat.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Verk_M">Verk.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_KZ_An_M">KZ-An</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Verm_M">Vermerke</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>
</div>
</div>
@@ -137,7 +137,7 @@
<div class="col-12" style="height:15px"></div>
<div id="conovertab_M" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto">
<asp:Table ID="tbl_mainpage_M" runat="server" Width="100%" CssClass="table table-striped col-12">
<asp:TableHeaderRow style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr_M">SDL_Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez_M">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig_M">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr_M">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
<asp:TableHeaderRow runat="server" ID="headrow_M" style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr_M">SDL_Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez_M">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig_M">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr_M">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>
</div>
</div>
@@ -149,8 +149,5 @@
<script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>
<!-- Popper.JS -->
<script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js" integrity="sha384-cs/chFZiN24E4KMATLdqdvsezGxaGsi4hLGOzlXwp5UZB1LY//20VyM2taTB4QvJ" crossorigin="anonymous"></script>
</asp:Content>

139
Customers/LKWs.aspx.vb
View File

@@ -27,32 +27,24 @@ Partial Class LKWS
End Sub
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
'MsgBox("Test1")
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
End If
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
tblhrow.Cells.Add(tblheader_Cell1)
tblhrow.Cells.Add(tblheader_Cellnat)
tblhrow.Cells.Add(tblheader_Cellverk)
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm)
Dim tblhrow As TableHeaderRow = New TableHeaderRow
tblhrow.Cells.Add(tbhc_KFZKennz)
tblhrow.Cells.Add(tbhc_Nat)
tblhrow.Cells.Add(tblhc_Verk)
tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Rows.Add(tblhrow)
@@ -76,10 +68,16 @@ Partial Class LKWS
Dim chbx2_Kz_an As CheckBox = New CheckBox()
tc_KZ_An.Controls.Add(chbx2_Kz_an)
tr1.Cells.Add(tc_KZ_An)
If IsNothing(l1.Vermerk) = True Then
tc_Vermerk.Text = String.Empty
ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then
tc_Vermerk.Text = String.Empty
Else
tc_Vermerk.Text = l1.Vermerk.ToString
End If
tr1.Cells.Add(tc_Vermerk)
cnt += 1
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tbl_sidemenue.Rows.Add(tr1)
Next
'MsgBox("Test3")
@@ -129,9 +127,9 @@ Partial Class LKWS
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
'MsgBox("Test0")
Dim txt_LkwNr As TextBox = Page.FindControl("txt_LkwNr")
Dim txt_LkwNr As TextBox = txt_lkw
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, txt_LkwNr.Text)
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LkwNr.Text))
Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
@@ -145,11 +143,12 @@ Partial Class LKWS
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm)
Dim cnt As Integer = 0
tbl_sidemenue2.Rows.Clear()
tbl_sidemenue2.Rows.Add(tblhrow)
'tbl_sidemenue2.Rows.Clear()
'MsgBox("Test1")
For Each l2 In list
Dim cnt As Integer = 0
Dim tr2 As TableRow = New TableRow()
Dim tc_KfzKennz As TableCell = New TableCell()
Dim tc_Nationalitaet As TableCell = New TableCell()
@@ -167,7 +166,6 @@ Partial Class LKWS
tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk)
'tr2.Attributes.Add("command", "getinfos")
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tbl_sidemenue2.Rows.Add(tr2)
@@ -181,6 +179,99 @@ Partial Class LKWS
End Sub
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LKWNr_M.Text))
Dim cnt As Integer = 0
headrow_M.Cells.Add(tbhc_KFZKennz_M)
headrow_M.Cells.Add(tbhc_Nat_M)
headrow_M.Cells.Add(tbhc_Verk_M)
headrow_M.Cells.Add(tbhc_KZ_An_M)
headrow_M.Cells.Add(tbhc_Verm_M)
tbl_2.Rows.Add(headrow_M)
For Each li_M In list
Dim tr2 As TableRow = New TableRow()
Dim tc_KfZKennz_M As TableCell = New TableCell()
Dim tc_Nationalitaet_M As TableCell = New TableCell()
Dim tc_Verk_M As TableCell = New TableCell()
Dim tc_KzAn_M As TableCell = New TableCell()
Dim tc_Vermerk_M As TableCell = New TableCell()
tc_KfZKennz_M.Text = li_M.KfzKennzeichen.ToString
tr2.Cells.Add(tc_KfZKennz_M)
tc_Nationalitaet_M.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet_M)
Dim cb_Vers_M As CheckBox = New CheckBox()
tc_Verk_M.Controls.Add(cb_Vers_M)
tr2.Cells.Add(tc_Verk_M)
Dim cb_M_2 As CheckBox = New CheckBox()
tc_KzAn_M.Controls.Add(cb_M_2)
tr2.Cells.Add(tc_KzAn_M)
If IsNothing(li_M.Vermerk) = True Then
tc_Vermerk_M.Text = String.Empty
ElseIf String.IsNullOrEmpty(li_M.Vermerk.ToString) = True Then
tc_Vermerk_M.Text = String.Empty
Else
tc_Vermerk_M.Text = li_M.Vermerk.ToString
End If
initcells(headrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr2, tc_KfZKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KzAn_M, tc_Vermerk_M, cnt)
tbl_2.Rows.Add(tr2)
cnt += 1
Next
End Sub
Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs)
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
tblhrow_M.Cells.Add(tbhc_KFZKennz_M)
tblhrow_M.Cells.Add(tbhc_Nat_M)
tblhrow_M.Cells.Add(tbhc_Verk_M)
tblhrow_M.Cells.Add(tbhc_KZ_An_M)
tblhrow_M.Cells.Add(tbhc_Verm_M)
tbl_2.Rows.Add(tblhrow_M)
For Each l3 In list
Dim tr3 As New TableRow
Dim tc_M_KZFZkennz As TableCell = New TableCell
Dim tc_M_Nat As TableCell = New TableCell
Dim tc_M_Verk As TableCell = New TableCell
Dim tc_M_KZ_AN As TableCell = New TableCell
Dim tc_M_Vermerk As TableCell = New TableCell
tc_M_KZFZkennz.Text = l3.KfzKennzeichen
tr3.Cells.Add(tc_M_KZFZkennz)
tc_M_Nat.Text = String.Empty
tr3.Cells.Add(tc_M_Nat)
Dim cb_Verk_M As CheckBox = New CheckBox
tc_M_Verk.Controls.Add(cb_Verk_M)
tr3.Cells.Add(tc_M_Verk)
Dim cb2_M As CheckBox = New CheckBox
tc_M_KZ_AN.Controls.Add(cb2_M)
tr3.Cells.Add(tc_M_KZ_AN)
If IsNothing(l3.Vermerk) = True Then
tc_M_Vermerk.Text = String.Empty
ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
tc_M_Vermerk.Text = String.Empty
Else
tc_M_Vermerk.Text = l3.Vermerk
End If
tr3.Cells.Add(tc_M_Vermerk)
cnt += 1
initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr3, tc_M_KZFZkennz, tc_M_Nat, tc_M_Verk, tc_M_KZ_AN, tc_M_Vermerk, cnt)
Next
End Sub
End Class