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"> <script type="text/javascript">
function TableRow_Click(Nat, Kennzeichen) { function TableRow_Click(Nat, Kennzeichen) {
buildtableajax()
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>") let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>") let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
let table = document.getElementById("<%=tbl_mainpage.ClientID%>") let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
@@ -154,10 +155,10 @@
for (let i = rowCount - 1; i > 0; i--) { for (let i = rowCount - 1; i > 0; i--) {
table.deleteRow(i); table.deleteRow(i);
} }
buildtableajax()
} }
function TableRow_Click_M(Nat, Kennzeichen) { function TableRow_Click_M(Nat, Kennzeichen) {
buildtableajax_M()
let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>"); let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>");
let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>"); let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>");
let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>") let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>")
@@ -168,42 +169,47 @@
for (let i = rowCount - 1; i > 0; i--) { for (let i = rowCount - 1; i > 0; i--) {
table_M.deleteRow(i); table_M.deleteRow(i);
} }
buildtableajax_M()
} }
function buildtableajax() { function buildtableajax() {
var address = new Array(); var LKW = new Array();
var convertAddress; var convertLKWs;
address.push(BuildTable(SDL,Bez,gueltigbis,KartNr)); LKW.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
convertedAddress = JSON.stringfy(address); LKW = JSON.stringfy(LKW);
$.ajax({ $.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>', url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress }, data: { LKW: convertedLKWs },
type: 'POST', type: 'POST',
success: function (address) { success: function (LKW) {
var result = JSON.parse(address); var result = JSON.parse(LKW);
// Do something with result, example: result[0].City
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() { function buildtableajax_M() {
var address = new Array(); var LKW_M = new Array();
var convertAddress; var convertLKW;
address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr)); address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
convertedAddress = JSON.stringfy(address); convertedAddress = JSON.stringfy(LKW_M);
$.ajax({ $.ajax({
url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>', url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
data: { Address: convertedAddress }, data: { Address: convertedLKWs },
type: 'POST', type: 'POST',
success: function (address) { success: function (LKW_M) {
var result = JSON.parse(address); var result_M = JSON.parse(LKW_M);
// Do something with result, example: result[0].City 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) throw2.Cells.Add(tblhc_KarteNr)
TableRows.Add(throw2) TableRows.Add(throw2)
tbl_mainpage.Rows.Add(throw2) tbl_mainpage.Rows.Add(throw2)
Dim strlongarr As String
Dim strtemparr As String = String.Empty Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty Dim strarrtemp = String.Empty
@@ -144,16 +144,16 @@ Partial Class LKWS
tc_Bez.Text = Stringtemp tc_Bez.Text = Stringtemp
tc_gueltigbis.Text = l2.GültigBis.ToString tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString tc_Karten_Nr.Text = l2.KartenNr.ToString
If String.Equals(l2.KfzKennzeichen, l1.KfzKennzeichen) = True Then If String.Equals(l2.KfzKennzeichen, l1.KfzKennzeichen) = True Then
tr.Cells.Add(tc_SDL) tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez) tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_gueltigbis) tr.Cells.Add(tc_gueltigbis)
tr.Cells.Add(tc_Karten_Nr) 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) 'tbl_mainpage.Rows.Add(tr)
TableRows.Add(tr) TableRows.Add(tr)
End If End If
strlongarr = String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
'MsgBox(TableRows.Count.ToString) 'MsgBox(TableRows.Count.ToString)
Next Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then If String.IsNullOrEmpty(l1.Nationalität) = True Then
@@ -162,7 +162,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität strtemp2 = l1.Nationalität
End If End If
ConvertToJSON(list3) 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 cnt += 1
tbl_sidemenue.Rows.Add(tr1) tbl_sidemenue.Rows.Add(tr1)
Next Next
@@ -172,8 +172,8 @@ Partial Class LKWS
Public Sub ConvertToJSON(lst As List(Of String)) Public Sub ConvertToJSON(lst As List(Of String))
Dim jss1 As New JavaScriptSerializer() Dim jss1 As New JavaScriptSerializer()
Dim _myJSONstring As String = jss1.Serialize(lst) Dim _myJSONstring As String = jss1.Serialize(lst)
Dim player As String = (Convert.ToString("var player=") & _myJSONstring) + ";" Dim LKW As String = (Convert.ToString("var LKW=") & _myJSONstring) + ";"
Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", player, True) Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", LKW, True)
End Sub End Sub