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

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