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

Änderung Implementierung async hasratetestfunktion

Browse Source
This commit is contained in:
ja
2021-12-15 13:37:55 +01:00
parent 70f98269be
commit dab0621a8e
3 changed files with 150 additions and 113 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Customers/LKWs.aspx.vb
View File

@@ -98,6 +98,8 @@ Partial Class LKWS
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
Dim Stringtemp As String = String.Empty
Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty
For Each l2 In list2
Dim String2 As String = String.Empty
@@ -108,19 +110,17 @@ Partial Class LKWS
End If
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Dim strtemp2 As String = String.Empty
If String.IsNullOrEmpty(l1.Nationalität) = True Then
strtemp2 = "Keine Angabe"
Else
strtemp2 = l1.Nationalität
End If
Dim strarrtemp = String.Empty
For Each l4 In list3
strarrtemp = String.Join("-", l4)
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then
strtemp2 = "Keine Angabe"
Else
strtemp2 = l1.Nationalität
End If
For Each l4 In list3
strarrtemp = String.Join("-", l4.ToString)
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next