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

Änderungen Tabellenbefüllung LKWs und implementierung Mobilbefüllung seitentabelle

Browse Source
This commit is contained in:
ja
2021-12-13 16:46:20 +01:00
parent 4a294f79ce
commit dfe98f28dd
1 changed files with 15 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Customers/LKWs.aspx.vb
View File

@@ -147,20 +147,15 @@ Partial Class LKWS
Dim txt_LkwNr As TextBox = txt_lkw 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, "COOPER8")
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940) list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow() 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")
Dim cnt As Integer = 0 Dim cnt As Integer = 0
tblhrow.Cells.Add(tblheader_Cell1) tblhrow.Cells.Add(tbhc_KFZKennz)
tblhrow.Cells.Add(tblheader_Cellnat) tblhrow.Cells.Add(tbhc_Nat)
tblhrow.Cells.Add(tblheader_Cellverk) tblhrow.Cells.Add(tblhc_Verk)
tblhrow.Cells.Add(tblheader_cell_KZ) tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblheader_cell_Verm) tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Rows.Clear() tbl_sidemenue.Rows.Clear()
tbl_sidemenue.Height = Unit.Pixel(150) tbl_sidemenue.Height = Unit.Pixel(150)
@@ -192,9 +187,16 @@ Partial Class LKWS
cb_Kz_An.Checked = False cb_Kz_An.Checked = False
End If End If
tc_KZ_An.Controls.Add(cb_Kz_An) tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString tr2.Cells.Add(tc_KZ_An)
If IsNothing(l2.Vermerk.ToString) = False Then
tc_Vermerk.Text = String.Empty
ElseIf l2.Vermerk.ToString = String.Empty Then
tc_Vermerk.Text = String.Empty
Else
tc_Vermerk.Text = l2.Vermerk.ToString
End If
tr2.Cells.Add(tc_Vermerk) tr2.Cells.Add(tc_Vermerk)
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) 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)
tbl_sidemenue.Rows.Add(tr2) tbl_sidemenue.Rows.Add(tr2)
cnt += 1 cnt += 1