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

Bezeichnungen gändert

Browse Source
This commit is contained in:
ja
2021-12-20 12:00:54 +01:00
parent 5fac93554f
commit 74099fbb2b
2 changed files with 49 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
Customers/LKWs.aspx
View File

@@ -143,6 +143,7 @@
<script type="text/javascript">
function TableRow_Click(Nat, Kennzeichen) {
buildtableajax()
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
@@ -154,10 +155,10 @@
for (let i = rowCount - 1; i > 0; i--) {
table.deleteRow(i);
}
buildtableajax()
}
function TableRow_Click_M(Nat, Kennzeichen) {
buildtableajax_M()
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>");
let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>");
let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>")
@@ -168,42 +169,47 @@
for (let i = rowCount - 1; i > 0; i--) {
table_M.deleteRow(i);
}
buildtableajax_M()
}
function buildtableajax() {
var address = new Array();
var convertAddress;
var LKW = new Array();
var convertLKWs;
address.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
convertedAddress = JSON.stringfy(address);
LKW.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
LKW = JSON.stringfy(LKW);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress },
data: { LKW: convertedLKWs },
type: 'POST',
success: function (address) {
var result = JSON.parse(address);
// Do something with result, example: result[0].City
success: function (LKW) {
var result = JSON.parse(LKW);
alert(result[0].SDLNr)
for (let i = 0; i < result.length; i++) {
buildtable(result.length, result[i].SDL, result[i].Bezeichnung, result[i].DateGueltig, result[i].CardNr)
}
}
});
}
function buildtableajax_M() {
var address = new Array();
var convertAddress;
var LKW_M = new Array();
var convertLKW;
address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
convertedAddress = JSON.stringfy(address);
convertedAddress = JSON.stringfy(LKW_M);
$.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress },
data: { Address: convertedLKWs },
type: 'POST',
success: function (address) {
var result = JSON.parse(address);
// Do something with result, example: result[0].City
success: function (LKW_M) {
var result_M = JSON.parse(LKW_M);
for (let i = 0; i < result_M.length; i++) {
buildtable(result_M.length, result_M[i].SDL, result_M[i].Bezeichnung, result_M[i].DateGueltig, result_M[i].CardNr)
}
}
});
}

12
Customers/LKWs.aspx.vb
View File

@@ -119,7 +119,7 @@ Partial Class LKWS
throw2.Cells.Add(tblhc_KarteNr)
TableRows.Add(throw2)
tbl_mainpage.Rows.Add(throw2)
Dim strlongarr As String
Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty
@@ -144,16 +144,16 @@ Partial Class LKWS
tc_Bez.Text = Stringtemp
tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString
If String.Equals(l2.KfzKennzeichen, l1.KfzKennzeichen) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_gueltigbis)
tr.Cells.Add(tc_Karten_Nr)
list3.Add(tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
'tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr)
End If
strlongarr = String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
'MsgBox(TableRows.Count.ToString)
Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then
@@ -162,7 +162,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
ConvertToJSON(list3)
tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """)")
tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """,""" & strlongarr & """)")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -172,8 +172,8 @@ Partial Class LKWS
Public Sub ConvertToJSON(lst As List(Of String))
Dim jss1 As New JavaScriptSerializer()
Dim _myJSONstring As String = jss1.Serialize(lst)
Dim player As String = (Convert.ToString("var player=") & _myJSONstring) + ";"
Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", player, True)
Dim LKW As String = (Convert.ToString("var LKW=") & _myJSONstring) + ";"
Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", LKW, True)
End Sub