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

Änderungen

Browse Source
This commit is contained in:
ja
2021-12-13 10:40:59 +01:00
parent ef30d5d4d1
commit 351c452515
2 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Customers/LKWs.aspx
View File

@@ -146,14 +146,14 @@
<!-- 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>
function TableRowClick(list,Kennzeichen,Nat) {
var arrayObject = [];
function TableRowClick(list, Kennzeichen, Nat) {
debugger
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
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++)
@@ -172,7 +172,7 @@
alert(Bez)
alert(Gueltigbis)
alert(KartenNr)
addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr)
addRow(<%=tbl_2.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
arrint;
}
}
@@ -216,7 +216,7 @@
alert(Bez)
alert(Gueltigbis)
alert(KartenNr)
addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr)
addRow(<%=tbl_2.ClientID%>, SDLNr, Bez, Gueltigbis, KartenNr)
arrint;
}
}

4
Customers/LKWs.aspx.vb
View File

@@ -106,7 +106,7 @@ Partial Class LKWS
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)
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Next
Dim strtemp2 As String = String.Empty
@@ -319,7 +319,7 @@ Partial Class LKWS
Stringtemp_M = String.Empty
End If
For Each l4 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString + ";" + l3.KfzKennzeichen + ";" + tc_Nationalitaet_M.Text)
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Next
Dim strtemp2 As String = String.Empty