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

Änderungen Testperformance script

Browse Source
This commit is contained in:
ja
2021-12-22 14:34:01 +01:00
parent 1f4b9a7029
commit c6ea8cbf9b
6 changed files with 47 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Customers/LKWs.aspx.vb
View File

@@ -147,7 +147,7 @@ Partial Class LKWS
tc_gueltigbis.Text = l2.GültigBis.ToString
tc_Karten_Nr.Text = l2.KartenNr.ToString
If String.Equals(l2.KfzKennzeichen, l1.KfzKennzeichen) = True Then
If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
tr.Cells.Add(tc_SDL)
tr.Cells.Add(tc_Bez)
tr.Cells.Add(tc_gueltigbis)
@@ -160,13 +160,13 @@ Partial Class LKWS
'MsgBox(TableRows.Count.ToString)
Next
If String.IsNullOrEmpty(l1.Nationalität) = True Then
If IsNothing(l1.Nationalität) = True Then
strtemp2 = "Keine Angabe"
Else
strtemp2 = l1.Nationalität
End If
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" & tr1.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + ConvertToJSON(list3) + """')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -203,6 +203,7 @@ Partial Class LKWS
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim cnt As Integer = 0
Dim list3 As List(Of String) = New List(Of String)
tblhrow.Cells.Add(tbhc_KFZKennz)
tblhrow.Cells.Add(tbhc_Nat)
tblhrow.Cells.Add(tblhc_Verk)
@@ -221,6 +222,12 @@ Partial Class LKWS
tc_KfzKennz.Text = l2.KfzKennzeichen.ToString
tr2.Cells.Add(tc_KfzKennz)
Dim list5 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l2.KfzKennzeichen)
Dim strtempnat As String = String.Empty
If IsNothing(l2.Nationalität) = True Then
strtempnat = "Keine Angabe!"
Else
strtempnat = l2.Nationalität.ToString
End If
tc_Nationalitaet.Text = String.Empty
tr2.Cells.Add(tc_Nationalitaet)
Dim cbVerk_Such As CheckBox = New CheckBox()
@@ -242,7 +249,7 @@ Partial Class LKWS
If IsNothing(l2.Vermerk) = True Then
tc_Vermerk.Text = String.Empty
ElseIf l2.Vermerk.ToString = String.Empty Then
tc_Vermerk.Text = String.Empty
tc_Vermerk.Text = "Keine Anagben!"
Else
tc_Vermerk.Text = l2.Vermerk.ToString
End If
@@ -258,8 +265,8 @@ Partial Class LKWS
list3.Add(l5.SDLNr.ToString + "," + strstrtemp + "," + l5.GültigBis.ToString + "," + l5.KartenNr)
Next
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tr2.Attributes.Add("onclick", "Javascript:doPostBack('""" & tr2.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
tbl_sidemenue.Rows.Add(tr2)
tr2.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr2.Cells.Item(0).Text + """,""" + strtempnat + """,""" + ConvertToJSON(list3) + """')")
tbl_sidemenue.Rows.Add(tr2)
cnt += 1
Next
End Sub