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

Änderungen JSON NewtonSoft Paet wurde eingebunden.

Browse Source
This commit is contained in:
ja
2021-12-09 08:45:24 +01:00
parent 0078866ea5
commit 47e99a6e7d
3 changed files with 28 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Customers/LKWs.aspx.vb
View File

@@ -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)