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

Beschriftungen

Browse Source
This commit is contained in:
ja
2021-12-13 08:44:25 +01:00
parent 30cd1c6078
commit 83d5c8d5ff
2 changed files with 112 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Customers/LKWs.aspx
View File

@@ -68,9 +68,6 @@
<asp:Button ID="btn_Suchen" OnClick="btn_Suchen_Click" runat="server" Text="Suchen" style="margin-left:5px"/> </div> <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">
<div class="col-9"style="height:10px;"></div> <div class="col-9"style="height:10px;"></div>
<div class="col-9">
<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"> <div class="flex-col-9">
<asp:Table ID="Table1" runat="server"></asp:Table> <asp:Table ID="Table1" runat="server"></asp:Table>
<asp:Table ID="tbl_sidemenue" runat="server" CssClass="table table-striped" style="width:310px;margin-left:-32px;"> <asp:Table ID="tbl_sidemenue" runat="server" CssClass="table table-striped" style="width:310px;margin-left:-32px;">
@@ -82,7 +79,7 @@
<div class="col-9"> <div class="col-9">
<div class="col-12"> <div class="col-12">
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1" ImageUrl="~/images/Icons/Aviso.png" style="width:96px;height:96px" /> <asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1" ImageUrl="~/images/Icons/Aviso.png" style="width:96px;height:96px" />
<asp:Label runat="server" Font-Size="20px" Font-Bold="true">Bitte Spedition wählen</asp:Label> <asp:Label ID="lbl_sped_Placeholder" runat="server" Font-Size="20px" Font-Bold="true">Bitte Spedition wählen</asp:Label>
</div> </div>
<div class="col-12"> <div class="col-12">
<asp:Label ID="lbl_natLKW" runat="server" Font-Size="1em" style="color:#043381">Nationalität:</asp:Label><asp:Label runat="server" ID="lbl_Placeholder">Placeholder</asp:Label> <asp:Label ID="lbl_natLKW" runat="server" Font-Size="1em" style="color:#043381">Nationalität:</asp:Label><asp:Label runat="server" ID="lbl_Placeholder">Placeholder</asp:Label>
@@ -91,8 +88,8 @@
<asp:Label ID="lbl_SDL" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen:</asp:Label> <asp:Label ID="lbl_SDL" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen:</asp:Label>
</div> </div>
<div class="col-12"style="height:10px;"></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;overflow-y:auto;max-height:312px;"> <div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-y:auto;height:fit-content">
<asp:Table ID="tbl_mainpage" runat="server" Width="100%" CssClass="table table-striped col-12"> <asp:Table ID="tbl_mainpage" runat="server" Width="100%" style="overflow-y:auto;height:312px;" CssClass="table table-striped col-12">
<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: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> </asp:Table>
</div> </div>
@@ -112,9 +109,7 @@
<asp:Button ID="btn_Suchen_M" OnClick="btn_Suchen_M_Click" runat="server" CssClass="btn btn-primary" Text="Suchen" style="margin-left:0px" /></div> <asp:Button ID="btn_Suchen_M" OnClick="btn_Suchen_M_Click" runat="server" CssClass="btn btn-primary" Text="Suchen" style="margin-left:0px" /></div>
</div> </div>
<div style="height:12px"></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-Z1-9]" ForeColor="Red" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
</div>
<div style="height:17px"></div> <div style="height:17px"></div>
<div class="col-12-flex"> <div class="col-12-flex">
<asp:Table ID="tbl_2" runat="server"> <asp:Table ID="tbl_2" runat="server">
@@ -126,7 +121,7 @@
<div class="col-12"> <div class="col-12">
<div class="col-12"> <div class="col-12">
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/Icons/Aviso.png" style="width:56px;height:56px" /> <asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/Icons/Aviso.png" style="width:56px;height:56px" />
<asp:Label runat="server" Font-Size="22px" Font-Bold="true">Bitte Spedition wählen...!</asp:Label> <asp:Label ID="lbl_sped_Placeholder_M" runat="server" Font-Size="22px" Font-Bold="true">Bitte Spedition wählen...!</asp:Label>
</div> </div>
<div class="col-12"> <div class="col-12">
<asp:Label ID="lbl_natLKW_M" runat="server" Font-Size="1em" Style="color:#043381"></asp:Label><asp:Label ID="lbl_Placeholder_M" runat="server">Placeholder</asp:Label> <asp:Label ID="lbl_natLKW_M" runat="server" Font-Size="1em" Style="color:#043381"></asp:Label><asp:Label ID="lbl_Placeholder_M" runat="server">Placeholder</asp:Label>
@@ -144,10 +139,58 @@
</div> </div>
</div> </div>
</div> </div>
<asp:Button ID="Button_hid" runat="server" OnClick="TableRowClick" Style="display: none" />
</ContentTemplate></asp:UpdatePanel> </ContentTemplate></asp:UpdatePanel>
<!-- jQuery CDN - Slim version (=without AJAX) --> <!-- jQuery CDN - Slim version (=without AJAX) -->
<script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script> <script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>
<!-- Popper.JS --> <!-- 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> <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>
<script>
function TableRowClick(list,Kennzeichen,Nat) {
var arrayObject = [];
var table = document.getElementById("<%=tbl_mainpage.ClientID%>");
var Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
var natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
Speditionslabel.textContent = Kennzeichen
natplaceholder.textContent = Nat
for (let i = 0; i < list.length; i++) {
var Arr = list(i).split(";");
for (let arrint = 0; arrint < 5;arrint++)
var SDLNr = Arr[arrint];
arrint++;
var Bez = Arr[arrint];
arrint++;
var Gueltigbis = Arr[arrint];
arrint++;
var KartenNr = Arr[arrint];
arrint++;
var Placeholder = Arr[arrint];
arrint++;
var Nat = Arr[arrint];
alert(SDLNr)
alert(Bez)
alert(Gueltigbis)
alert(KartenNr)
addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr)
arrint;
}
}
function addRow(tableID,par1,par2,par3,par4) {
let tableRef = document.getElementById(tableID);
let newRow = tableRef.insertRow(-1);
let newCell = newRow.insertCell(0);
let newCell1 = newRow.insertCell(1)
let newCell2 = newRow.insertCell(2)
let newCell3 = newRow.insertCell(3)
newCell.innerHTML = par1
newCell1.innerHTML = par2
newCell2.innerHTML = par3
newCell3.innerHTML = par4
}
</script>
</asp:Content> </asp:Content>

101
Customers/LKWs.aspx.vb
View File

@@ -1,12 +1,13 @@
 
Imports System Imports System
Imports System.Web.Script.Serialization
Imports System.Web.Security Imports System.Web.Security
Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls
Partial Class LKWS Partial Class LKWS
Inherits System.Web.UI.Page Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty Dim Kdnrtext As String = String.Empty
Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL) = Nothing Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount() VERAG_VARIABLES.initerrorcount()
@@ -36,8 +37,7 @@ Partial Class LKWS
Dim cnt As Integer = 0 Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940) list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tblhrow As TableHeaderRow = New TableHeaderRow Dim tblhrow As TableHeaderRow = New TableHeaderRow
tblhrow.Cells.Add(tbhc_KFZKennz) tblhrow.Cells.Add(tbhc_KFZKennz)
@@ -55,19 +55,38 @@ Partial Class LKWS
Dim tc_KfzKennz As TableCell = New TableCell() Dim tc_KfzKennz As TableCell = New TableCell()
Dim tc_Nationalitaet As TableCell = New TableCell() Dim tc_Nationalitaet As TableCell = New TableCell()
Dim tc_Verk As TableCell = New TableCell() Dim tc_Verk As TableCell = New TableCell()
Dim tc_KZ_An As TableCell = New TableCell() Dim tc_KZ_Ab As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell() Dim tc_Vermerk As TableCell = New TableCell()
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
Dim list3 As List(Of String) = New List(Of String)
tc_KfzKennz.Text = l1.KfzKennzeichen tc_KfzKennz.Text = l1.KfzKennzeichen
tr1.Cells.Add(tc_KfzKennz) tr1.Cells.Add(tc_KfzKennz)
If IsNothing(l1.Nationalität) = True Then
tc_Nationalitaet.Text = String.Empty tc_Nationalitaet.Text = String.Empty
ElseIf String.IsNullOrEmpty(l1.Nationalität.ToString) = True Then
tc_Nationalitaet.Text = String.Empty
Else
tc_Nationalitaet.Text = l1.Nationalität.ToString
End If
tr1.Cells.Add(tc_Nationalitaet) tr1.Cells.Add(tc_Nationalitaet)
Dim cbverk As CheckBox = New CheckBox() Dim cbverk As CheckBox = New CheckBox()
tc_Verk.Controls.Add(cbverk) tc_Verk.Controls.Add(cbverk)
cbverk.Enabled = False
tr1.Cells.Add(tc_Verk) tr1.Cells.Add(tc_Verk)
Dim chbx2_Kz_an As CheckBox = New CheckBox() If l1.Verkauft = True Then
tc_KZ_An.Controls.Add(chbx2_Kz_an) cbverk.Checked = True
tr1.Cells.Add(tc_KZ_An) Else
cbverk.Checked = False
End If
Dim chbx2_Kz_ab As CheckBox = New CheckBox()
chbx2_Kz_ab.Enabled = False
If (l1.Abgemeldet = True) Then
chbx2_Kz_ab.Checked = True
Else
chbx2_Kz_ab.Checked = False
End If
tc_KZ_Ab.Controls.Add(chbx2_Kz_ab)
tr1.Cells.Add(tc_KZ_Ab)
If IsNothing(l1.Vermerk) = True Then If IsNothing(l1.Vermerk) = True Then
tc_Vermerk.Text = String.Empty tc_Vermerk.Text = String.Empty
ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then
@@ -76,15 +95,30 @@ Partial Class LKWS
tc_Vermerk.Text = l1.Vermerk.ToString tc_Vermerk.Text = l1.Vermerk.ToString
End If End If
tr1.Cells.Add(tc_Vermerk) tr1.Cells.Add(tc_Vermerk)
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
Dim Stringtemp As String = String.Empty
Dim Spedlabel As String = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
If IsNothing(l2.Schadstoffklasse) = False Then
Stringtemp = l2.Kategorie.ToString
Else
Stringtemp = String.Empty
End If
For Each l3 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text)
Next
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToArray.ToString & """,""" & l1.KfzKennzeichen & """,""" & l1.Nationalität & """)")
cnt += 1 cnt += 1
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) tbl_sidemenue.Rows.Add(tr1)
Next Next
'MsgBox("Test3") 'MsgBox("Test3")
End Sub End Sub
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer) Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
Dim res As Integer 'Dim res As Integer
thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129) th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
@@ -97,39 +131,14 @@ Partial Class LKWS
th4.ForeColor = Drawing.Color.White th4.ForeColor = Drawing.Color.White
th5.ForeColor = Drawing.Color.White th5.ForeColor = Drawing.Color.White
If Math.DivRem(countrows, 2, res) = 0 Then
tr1.BackColor = Drawing.Color.LightBlue
tc_KfzKennz.BackColor = Drawing.Color.LightBlue
tc_KZ_An.BackColor = Drawing.Color.LightBlue
tc_Nationalitaet.BackColor = Drawing.Color.LightBlue
tc_Verk.BackColor = Drawing.Color.LightBlue
tc_Vermerk.BackColor = Drawing.Color.LightBlue
tr1.ForeColor = Drawing.Color.Black
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
Else
tr1.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.BackColor = Drawing.Color.WhiteSmoke
tc_KZ_An.BackColor = Drawing.Color.WhiteSmoke
tc_Nationalitaet.BackColor = Drawing.Color.WhiteSmoke
tc_Verk.BackColor = Drawing.Color.WhiteSmoke
tc_Vermerk.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
End If
End Sub End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs) Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
'MsgBox("Test0") 'MsgBox("Test0")
Dim txt_LkwNr As TextBox = txt_lkw 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, "COOPER8")
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LkwNr.Text)) list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue") Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow() Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz") Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
@@ -143,9 +152,9 @@ Partial Class LKWS
tblhrow.Cells.Add(tblheader_cell_KZ) tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm) tblhrow.Cells.Add(tblheader_cell_Verm)
Dim cnt As Integer = 0 Dim cnt As Integer = 0
tbl_sidemenue2.Rows.Clear() tbl_sidemenue2.Rows.Clear()
tbl_sidemenue2.Height = Unit.Pixel(150)
tbl_sidemenue2.Rows.Add(tblhrow) tbl_sidemenue2.Rows.Add(tblhrow)
'MsgBox("Test1") 'MsgBox("Test1")
For Each l2 In list For Each l2 In list
@@ -166,16 +175,16 @@ Partial Class LKWS
tc_KZ_An.Controls.Add(cb_Kz_An) tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk) 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) 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) tbl_sidemenue2.Rows.Add(tr2)
cnt += 1 cnt += 1
Next Next
'MsgBox("Test2") 'MsgBox("Test2")
End Sub End Sub
Protected Sub getinfos(varz As Integer) Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
MsgBox("varz")
End Sub End Sub
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs) Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
@@ -184,7 +193,7 @@ Partial Class LKWS
Else Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If End If
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LKWNr_M.Text)) list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim cnt As Integer = 0 Dim cnt As Integer = 0
headrow_M.Cells.Add(tbhc_KFZKennz_M) headrow_M.Cells.Add(tbhc_KFZKennz_M)
@@ -224,7 +233,9 @@ Partial Class LKWS
cnt += 1 cnt += 1
Next Next
End Sub End Sub
Protected Sub Button_hid_Click(sender As Object, e As EventArgs)
MsgBox("Test erfolgreich!")
End Sub
Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs) Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs)
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
@@ -233,7 +244,7 @@ Partial Class LKWS
End If End If
Dim cnt As Integer = 0 Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940) list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
@@ -274,4 +285,6 @@ Partial Class LKWS
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) 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 Next
End Sub End Sub
End Class End Class