diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx
index 064ed4b..8a742df 100644
--- a/Customers/LKWs.aspx
+++ b/Customers/LKWs.aspx
@@ -41,7 +41,7 @@
#tableSearch {
width: 53%;
border: 1px solid grey;
- }
+ }
}
@@ -69,7 +69,7 @@
-
@@ -145,31 +145,32 @@
diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index e9823fd..3870757 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -109,16 +109,17 @@ Partial Class LKWS
For Each l3 In list3
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
Next
+ Dim strtemp2 As String = String.Empty
+ If String.IsNullOrEmpty(l1.Nationalität) = True Then
+ strtemp2 = "Keine Angabe"
+ Else
+ strtemp2 = l1.Nationalität
+ End If
+ tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
Next
- Dim strtemp2 As String = String.Empty
- If String.IsNullOrEmpty(l1.Nationalität) Then
- strtemp2 = "Keine Angabe"
- Else
- strtemp2 = l1.Nationalität
- End If
- tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToString & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
+
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -138,16 +139,12 @@ Partial Class LKWS
th3.ForeColor = Drawing.Color.White
th4.ForeColor = Drawing.Color.White
th5.ForeColor = Drawing.Color.White
-
-
End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
- 'MsgBox("Test0")
Dim txt_LkwNr As TextBox = txt_lkw
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
-
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim cnt As Integer = 0
@@ -157,10 +154,10 @@ Partial Class LKWS
tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblhc_Verm)
- tbl_sidemenue.Rows.Clear()
tbl_sidemenue.Height = Unit.Pixel(150)
+ tbl_sidemenue.Rows.Clear()
tbl_sidemenue.Rows.Add(tblhrow)
- 'MsgBox("Test1")
+
For Each l2 In list
Dim tr2 As TableRow = New TableRow()
Dim tc_KfzKennz As TableCell = New TableCell()
@@ -201,7 +198,6 @@ Partial Class LKWS
tbl_sidemenue.Rows.Add(tr2)
cnt += 1
Next
- 'MsgBox("Test2")
End Sub
Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
@@ -213,7 +209,7 @@ Partial Class LKWS
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
-
+ tbl_2.Rows.Clear()
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim cnt As Integer = 0
@@ -273,7 +269,7 @@ Partial Class LKWS
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
-
+ tbl_2.Rows.Clear()
Dim cnt As Integer = 0
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
@@ -285,8 +281,6 @@ Partial Class LKWS
tblhrow_M.Cells.Add(tbhc_Verm_M)
tbl_2.Rows.Add(tblhrow_M)
- 'tbl_sidemenue.Rows.Clear()
- 'MsgBox("Test2")
For Each l3 In list_M
Dim tr1_M As TableRow = New TableRow()
Dim tc_KfzKennz_M As TableCell = New TableCell()
@@ -355,6 +349,5 @@ Partial Class LKWS
tbl_2.Rows.Add(tr1_M)
cnt += 1
Next
- 'MsgBox("Test3")
End Sub
End Class