diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 85e9044..89e6fe2 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -27,7 +27,7 @@ Partial Class LKWS
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
- MsgBox("Test1")
+ 'MsgBox("Test1")
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
@@ -46,7 +46,7 @@ Partial Class LKWS
tbl_sidemenue.Rows.Add(tblhrow)
'tbl_sidemenue.Rows.Clear()
- MsgBox("Test2")
+ 'MsgBox("Test2")
For Each l1 In list
Dim tr1 As TableRow = New TableRow()
Dim tc_KfzKennz As TableCell = New TableCell()
@@ -68,10 +68,10 @@ Partial Class LKWS
tc_Vermerk.Text = l1.Vermerk.ToString
tr1.Cells.Add(tc_Vermerk)
cnt += 1
- initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
+ initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
tbl_sidemenue.Rows.Add(tr1)
Next
- MsgBox("Test3")
+ 'MsgBox("Test3")
End Sub
Private Sub initcells(thr1 As TableHeaderRow, th1 As TableHeaderCell, th2 As TableHeaderCell, th3 As TableHeaderCell, th4 As TableHeaderCell, th5 As TableHeaderCell, tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell, countrows As Integer)
@@ -117,7 +117,7 @@ Partial Class LKWS
End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
- MsgBox("Test0")
+ 'MsgBox("Test0")
Dim txt_LkwNr As TextBox = Page.FindControl("txt_LkwNr")
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, txt_LkwNr.Text)
@@ -136,7 +136,7 @@ Partial Class LKWS
tbl_sidemenue2.Rows.Add(tblhrow)
'tbl_sidemenue2.Rows.Clear()
- MsgBox("Test1")
+ 'MsgBox("Test1")
For Each l2 In list
Dim cnt As Integer = 0
Dim tr2 As TableRow = New TableRow()
@@ -162,7 +162,7 @@ Partial Class LKWS
tbl_sidemenue2.Rows.Add(tr2)
cnt += 1
Next
- MsgBox("Test2")
+ 'MsgBox("Test2")
End Sub
Protected Sub getinfos(varz As Integer)
diff --git a/Web.config b/Web.config
index 934651f..f9cc400 100644
--- a/Web.config
+++ b/Web.config
@@ -129,6 +129,14 @@
+
+
+
+
+
+
+
+
diff --git a/packages.config b/packages.config
index 3d82d03..031fe4c 100644
--- a/packages.config
+++ b/packages.config
@@ -13,19 +13,20 @@
-
-
-
-
-
+
+
+
+
+
+
-
-
+
+
-
+
-
+
@@ -39,5 +40,8 @@
+
+
+
\ No newline at end of file