Listen werden korrekt aufgebaut die Klicks werden morgen eingearbeitet.
This commit is contained in:
ja
@@ -27,32 +27,24 @@ Partial Class LKWS
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
|
||||
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
|
||||
'MsgBox("Test1")
|
||||
|
||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956"
|
||||
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
|
||||
'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;"
|
||||
End If
|
||||
|
||||
Dim cnt As Integer = 0
|
||||
|
||||
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
|
||||
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
|
||||
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
|
||||
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
|
||||
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
|
||||
Dim tblheader_Cellverk As TableHeaderCell = FindControl("tbhc_Verk")
|
||||
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
|
||||
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
|
||||
tblhrow.Cells.Add(tblheader_Cell1)
|
||||
tblhrow.Cells.Add(tblheader_Cellnat)
|
||||
tblhrow.Cells.Add(tblheader_Cellverk)
|
||||
tblhrow.Cells.Add(tblheader_cell_KZ)
|
||||
tblhrow.Cells.Add(tblheader_cell_Verm)
|
||||
|
||||
Dim tblhrow As TableHeaderRow = New TableHeaderRow
|
||||
|
||||
tblhrow.Cells.Add(tbhc_KFZKennz)
|
||||
tblhrow.Cells.Add(tbhc_Nat)
|
||||
tblhrow.Cells.Add(tblhc_Verk)
|
||||
tblhrow.Cells.Add(tblhc_Kz)
|
||||
tblhrow.Cells.Add(tblhc_Verm)
|
||||
|
||||
tbl_sidemenue.Rows.Add(tblhrow)
|
||||
|
||||
@@ -76,10 +68,16 @@ Partial Class LKWS
|
||||
Dim chbx2_Kz_an As CheckBox = New CheckBox()
|
||||
tc_KZ_An.Controls.Add(chbx2_Kz_an)
|
||||
tr1.Cells.Add(tc_KZ_An)
|
||||
tc_Vermerk.Text = l1.Vermerk.ToString
|
||||
If IsNothing(l1.Vermerk) = True Then
|
||||
tc_Vermerk.Text = String.Empty
|
||||
ElseIf String.IsNullOrEmpty(l1.Vermerk.ToString) = True Then
|
||||
tc_Vermerk.Text = String.Empty
|
||||
Else
|
||||
tc_Vermerk.Text = l1.Vermerk.ToString
|
||||
End If
|
||||
tr1.Cells.Add(tc_Vermerk)
|
||||
cnt += 1
|
||||
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)
|
||||
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
|
||||
tbl_sidemenue.Rows.Add(tr1)
|
||||
Next
|
||||
'MsgBox("Test3")
|
||||
@@ -129,9 +127,9 @@ Partial Class LKWS
|
||||
|
||||
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
|
||||
'MsgBox("Test0")
|
||||
Dim txt_LkwNr As TextBox = Page.FindControl("txt_LkwNr")
|
||||
Dim txt_LkwNr As TextBox = txt_lkw
|
||||
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, "COOPER8")
|
||||
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, txt_LkwNr.Text)
|
||||
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LkwNr.Text))
|
||||
Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
|
||||
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
|
||||
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
|
||||
@@ -145,11 +143,12 @@ Partial Class LKWS
|
||||
tblhrow.Cells.Add(tblheader_cell_KZ)
|
||||
tblhrow.Cells.Add(tblheader_cell_Verm)
|
||||
|
||||
|
||||
Dim cnt As Integer = 0
|
||||
tbl_sidemenue2.Rows.Clear()
|
||||
tbl_sidemenue2.Rows.Add(tblhrow)
|
||||
'tbl_sidemenue2.Rows.Clear()
|
||||
'MsgBox("Test1")
|
||||
For Each l2 In list
|
||||
Dim cnt As Integer = 0
|
||||
Dim tr2 As TableRow = New TableRow()
|
||||
Dim tc_KfzKennz As TableCell = New TableCell()
|
||||
Dim tc_Nationalitaet As TableCell = New TableCell()
|
||||
@@ -167,7 +166,6 @@ Partial Class LKWS
|
||||
tc_KZ_An.Controls.Add(cb_Kz_An)
|
||||
tc_Vermerk.Text = l2.Vermerk.ToString
|
||||
tr2.Cells.Add(tc_Vermerk)
|
||||
|
||||
'tr2.Attributes.Add("command", "getinfos")
|
||||
initcells(tblhrow, tblheader_Cell1, tblheader_Cellnat, tblheader_Cellverk, tblheader_cell_KZ, tblheader_cell_Verm, tr2, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk, cnt)
|
||||
tbl_sidemenue2.Rows.Add(tr2)
|
||||
@@ -181,6 +179,99 @@ Partial Class LKWS
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
|
||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End If
|
||||
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LKWNr_M.Text))
|
||||
Dim cnt As Integer = 0
|
||||
|
||||
headrow_M.Cells.Add(tbhc_KFZKennz_M)
|
||||
headrow_M.Cells.Add(tbhc_Nat_M)
|
||||
headrow_M.Cells.Add(tbhc_Verk_M)
|
||||
headrow_M.Cells.Add(tbhc_KZ_An_M)
|
||||
headrow_M.Cells.Add(tbhc_Verm_M)
|
||||
tbl_2.Rows.Add(headrow_M)
|
||||
|
||||
For Each li_M In list
|
||||
Dim tr2 As TableRow = New TableRow()
|
||||
Dim tc_KfZKennz_M As TableCell = New TableCell()
|
||||
Dim tc_Nationalitaet_M As TableCell = New TableCell()
|
||||
Dim tc_Verk_M As TableCell = New TableCell()
|
||||
Dim tc_KzAn_M As TableCell = New TableCell()
|
||||
Dim tc_Vermerk_M As TableCell = New TableCell()
|
||||
tc_KfZKennz_M.Text = li_M.KfzKennzeichen.ToString
|
||||
tr2.Cells.Add(tc_KfZKennz_M)
|
||||
tc_Nationalitaet_M.Text = String.Empty
|
||||
tr2.Cells.Add(tc_Nationalitaet_M)
|
||||
Dim cb_Vers_M As CheckBox = New CheckBox()
|
||||
tc_Verk_M.Controls.Add(cb_Vers_M)
|
||||
tr2.Cells.Add(tc_Verk_M)
|
||||
Dim cb_M_2 As CheckBox = New CheckBox()
|
||||
tc_KzAn_M.Controls.Add(cb_M_2)
|
||||
tr2.Cells.Add(tc_KzAn_M)
|
||||
If IsNothing(li_M.Vermerk) = True Then
|
||||
tc_Vermerk_M.Text = String.Empty
|
||||
ElseIf String.IsNullOrEmpty(li_M.Vermerk.ToString) = True Then
|
||||
tc_Vermerk_M.Text = String.Empty
|
||||
Else
|
||||
tc_Vermerk_M.Text = li_M.Vermerk.ToString
|
||||
End If
|
||||
|
||||
initcells(headrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr2, tc_KfZKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KzAn_M, tc_Vermerk_M, cnt)
|
||||
tbl_2.Rows.Add(tr2)
|
||||
cnt += 1
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Protected Sub btn_alle_M_Click(sender As Object, e As EventArgs)
|
||||
If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
|
||||
Else
|
||||
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
|
||||
End If
|
||||
|
||||
Dim cnt As Integer = 0
|
||||
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
|
||||
|
||||
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
|
||||
|
||||
tblhrow_M.Cells.Add(tbhc_KFZKennz_M)
|
||||
tblhrow_M.Cells.Add(tbhc_Nat_M)
|
||||
tblhrow_M.Cells.Add(tbhc_Verk_M)
|
||||
tblhrow_M.Cells.Add(tbhc_KZ_An_M)
|
||||
tblhrow_M.Cells.Add(tbhc_Verm_M)
|
||||
tbl_2.Rows.Add(tblhrow_M)
|
||||
|
||||
For Each l3 In list
|
||||
Dim tr3 As New TableRow
|
||||
Dim tc_M_KZFZkennz As TableCell = New TableCell
|
||||
Dim tc_M_Nat As TableCell = New TableCell
|
||||
Dim tc_M_Verk As TableCell = New TableCell
|
||||
Dim tc_M_KZ_AN As TableCell = New TableCell
|
||||
Dim tc_M_Vermerk As TableCell = New TableCell
|
||||
|
||||
tc_M_KZFZkennz.Text = l3.KfzKennzeichen
|
||||
tr3.Cells.Add(tc_M_KZFZkennz)
|
||||
tc_M_Nat.Text = String.Empty
|
||||
tr3.Cells.Add(tc_M_Nat)
|
||||
Dim cb_Verk_M As CheckBox = New CheckBox
|
||||
tc_M_Verk.Controls.Add(cb_Verk_M)
|
||||
tr3.Cells.Add(tc_M_Verk)
|
||||
Dim cb2_M As CheckBox = New CheckBox
|
||||
tc_M_KZ_AN.Controls.Add(cb2_M)
|
||||
tr3.Cells.Add(tc_M_KZ_AN)
|
||||
If IsNothing(l3.Vermerk) = True Then
|
||||
tc_M_Vermerk.Text = String.Empty
|
||||
ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
|
||||
tc_M_Vermerk.Text = String.Empty
|
||||
Else
|
||||
tc_M_Vermerk.Text = l3.Vermerk
|
||||
End If
|
||||
tr3.Cells.Add(tc_M_Vermerk)
|
||||
cnt += 1
|
||||
initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr3, tc_M_KZFZkennz, tc_M_Nat, tc_M_Verk, tc_M_KZ_AN, tc_M_Vermerk, cnt)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user