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

Änderungen 2

Browse Source
This commit is contained in:
ja
2021-12-15 11:55:46 +01:00
parent bf0fa83e39
commit 70f98269be
1 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Customers/LKWs.aspx.vb
View File

@@ -106,9 +106,9 @@ Partial Class LKWS
Else Else
Stringtemp = String.Empty Stringtemp = String.Empty
End If End If
For Each l3 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString) list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty
If String.IsNullOrEmpty(l1.Nationalität) = True Then If String.IsNullOrEmpty(l1.Nationalität) = True Then
strtemp2 = "Keine Angabe" strtemp2 = "Keine Angabe"
@@ -119,7 +119,7 @@ Partial Class LKWS
For Each l4 In list3 For Each l4 In list3
strarrtemp = String.Join("-", l4) strarrtemp = String.Join("-", l4)
Next Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)") tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
Next Next
cnt += 1 cnt += 1
tbl_sidemenue.Rows.Add(tr1) tbl_sidemenue.Rows.Add(tr1)
@@ -336,10 +336,8 @@ Partial Class LKWS
Else Else
Stringtemp_M = String.Empty Stringtemp_M = String.Empty
End If End If
For Each l4 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString) list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next Next
Next
Dim strtemp2 As String = String.Empty Dim strtemp2 As String = String.Empty
If String.IsNullOrEmpty(l3.Nationalität) Then If String.IsNullOrEmpty(l3.Nationalität) Then
strtemp2 = "Keine Angabe" strtemp2 = "Keine Angabe"
@@ -347,7 +345,7 @@ Partial Class LKWS
strtemp2 = l3.Nationalität strtemp2 = l3.Nationalität
End If End If
Dim str2temptemp = String.Empty Dim str2temptemp = String.Empty
For Each Ltenp In list3 For Each Ltenp In list2
str2temptemp = String.Join("-", Ltenp) str2temptemp = String.Join("-", Ltenp)
Next Next
tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)") tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")