453 lines
19 KiB
VB.net
453 lines
19 KiB
VB.net
|
|
Imports System
|
|
Imports System.ComponentModel
|
|
Imports System.Web.Script.Serialization
|
|
Imports System.Web.Script.Services
|
|
Imports System.Web.Security
|
|
Imports System.Web.Services
|
|
Imports System.Web.UI.WebControls
|
|
|
|
Partial Class LKWS
|
|
Inherits System.Web.UI.Page
|
|
Dim Kdnrtext As String = String.Empty
|
|
Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
|
|
Dim list_M As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
|
|
Dim tbl2mainpagetemp As Table
|
|
Dim TableRows As List(Of TableRow) = New List(Of TableRow)
|
|
Dim TableRows_M As List(Of TableRow) = New List(Of TableRow)
|
|
Protected Sub Page_OnInit(sender As Object, e As EventArgs)
|
|
If TableRows.Count = 0 Then
|
|
For Each tr In TableRows
|
|
tbl_mainpage_M.Rows.Add(tr)
|
|
Next
|
|
Else
|
|
For Each tr In TableRows
|
|
tbl_mainpage.Rows.Add(tr)
|
|
Next
|
|
End If
|
|
End Sub
|
|
Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
|
|
VERAG_VARIABLES.initerrorcount()
|
|
|
|
If Me.Page.User.Identity.IsAuthenticated Then
|
|
Try
|
|
Kdnrtext = Session.Item("CustomerID")
|
|
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Kdnrtext)
|
|
'MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
|
|
End Try
|
|
Else
|
|
FormsAuthentication.RedirectToLoginPage()
|
|
End If
|
|
If Page.IsPostBack = True Then
|
|
Page.MaintainScrollPositionOnPostBack = True
|
|
Else
|
|
Page.MaintainScrollPositionOnPostBack = False
|
|
End If
|
|
End Sub
|
|
|
|
Protected Sub btn_alle_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_LKW.GET_LIST_WEB(401940)
|
|
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)
|
|
Dim strstrstrstretemparr As String = String.Empty
|
|
'tbl_sidemenue.Rows.Clear()
|
|
'MsgBox("Test2")
|
|
For Each l1 In list
|
|
Dim tr1 As TableRow = New TableRow()
|
|
Dim tc_KfzKennz As TableCell = New TableCell()
|
|
Dim tc_Nationalitaet As TableCell = New TableCell()
|
|
Dim tc_Verk As TableCell = New TableCell()
|
|
Dim tc_KZ_Ab As TableCell = New TableCell()
|
|
Dim tc_Vermerk As TableCell = New TableCell()
|
|
|
|
|
|
tc_KfzKennz.Text = l1.KfzKennzeichen
|
|
tr1.Cells.Add(tc_KfzKennz)
|
|
If IsNothing(l1.Nationalität) = True Then
|
|
tc_Nationalitaet.Text = String.Empty
|
|
ElseIf String.IsNullOrEmpty(l1.Nationalität.ToString) = True Then
|
|
tc_Nationalitaet.Text = String.Empty
|
|
Else
|
|
tc_Nationalitaet.Text = l1.Nationalität.ToString
|
|
End If
|
|
tr1.Cells.Add(tc_Nationalitaet)
|
|
Dim cbverk As CheckBox = New CheckBox()
|
|
If l1.Verkauft = True Then
|
|
cbverk.Checked = True
|
|
Else
|
|
cbverk.Checked = False
|
|
End If
|
|
tc_Verk.Controls.Add(cbverk)
|
|
cbverk.Enabled = False
|
|
tr1.Cells.Add(tc_Verk)
|
|
Dim chbx2_Kz_ab As CheckBox = New CheckBox()
|
|
If l1.Abgemeldet = True Then
|
|
chbx2_Kz_ab.Checked = True
|
|
Else
|
|
chbx2_Kz_ab.Checked = False
|
|
End If
|
|
chbx2_Kz_ab.Enabled = False
|
|
tc_KZ_Ab.Controls.Add(chbx2_Kz_ab)
|
|
tr1.Cells.Add(tc_KZ_Ab)
|
|
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)
|
|
initcells(tblhrow, tbhc_KFZKennz, tbhc_Nat, tblhc_Verk, tblhc_Kz, tblhc_Verm, tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_Ab, tc_Vermerk, cnt)
|
|
Dim Stringtemp As String = String.Empty
|
|
TableRows.Clear()
|
|
Dim throw2 As TableHeaderRow = New TableHeaderRow
|
|
throw2.Cells.Add(tblhc_SDLNr)
|
|
throw2.Cells.Add(tblhc_Bez)
|
|
throw2.Cells.Add(tbl_gueltig)
|
|
throw2.Cells.Add(tblhc_KarteNr)
|
|
TableRows.Add(throw2)
|
|
tbl_mainpage.Rows.Add(throw2)
|
|
Dim strlongarr As String
|
|
Dim strtemparr As String = String.Empty
|
|
Dim strtemp2 As String = String.Empty
|
|
Dim strarrtemp = String.Empty
|
|
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
|
|
Dim stringtemtr As String = String.Empty
|
|
Dim tr As TableRow = New TableRow
|
|
Dim list3 As List(Of String) = New List(Of String)
|
|
Dim strstrstrstrtemp As String = String.Empty
|
|
For Each l2 In list2
|
|
Dim String2 As String = String.Empty
|
|
|
|
If IsNothing(l2.Kategorie) = True Then
|
|
Stringtemp = "Keine Angabe"
|
|
Else
|
|
Stringtemp = l2.Kategorie.ToString
|
|
End If
|
|
|
|
Dim tc_SDL As TableCell = New TableCell
|
|
Dim tc_Bez As TableCell = New TableCell
|
|
Dim tc_gueltigbis As TableCell = New TableCell
|
|
Dim tc_Karten_Nr As TableCell = New TableCell
|
|
tc_SDL.Text = l2.SDLNr.ToString
|
|
tc_Bez.Text = Stringtemp
|
|
tc_gueltigbis.Text = l2.GültigBis.ToString
|
|
tc_Karten_Nr.Text = l2.KartenNr.ToString
|
|
|
|
If String.Equals(l2.KfzKennzeichen.ToString, l1.KfzKennzeichen.ToString) = True Then
|
|
tr.Cells.Add(tc_SDL)
|
|
tr.Cells.Add(tc_Bez)
|
|
tr.Cells.Add(tc_gueltigbis)
|
|
tr.Cells.Add(tc_Karten_Nr)
|
|
'tbl_mainpage.Rows.Add(tr)
|
|
TableRows.Add(tr)
|
|
strstrstrstrtemp += String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
|
|
End If
|
|
list3.Add(strstrstrstrtemp)
|
|
|
|
'MsgBox(TableRows.Count.ToString)
|
|
Next
|
|
If IsNothing(l1.Nationalität) = True Then
|
|
strtemp2 = "Keine Angabe"
|
|
Else
|
|
strtemp2 = l1.Nationalität
|
|
End If
|
|
|
|
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """')")
|
|
cnt += 1
|
|
tbl_sidemenue.Rows.Add(tr1)
|
|
Next
|
|
'MsgBox("Test3")
|
|
End Sub
|
|
|
|
Public Function ConvertToJSON(lst As List(Of String)) As String
|
|
Dim jss1 As New JavaScriptSerializer()
|
|
Dim _myJSONstring As String = jss1.Serialize(lst)
|
|
Return _myJSONstring
|
|
End Function
|
|
|
|
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)
|
|
'Dim res As Integer
|
|
thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th2.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th3.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th4.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th5.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
|
|
th1.ForeColor = Drawing.Color.White
|
|
th2.ForeColor = Drawing.Color.White
|
|
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)
|
|
Dim txt_LkwNr As TextBox = txt_lkw
|
|
|
|
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
|
|
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
|
|
Dim cnt As Integer = 0
|
|
Dim list3 As List(Of String) = New List(Of String)
|
|
|
|
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.Height = Unit.Pixel(150)
|
|
|
|
For Each l2 In list
|
|
Dim tr2 As TableRow = New TableRow()
|
|
Dim tc_KfzKennz As TableCell = New TableCell()
|
|
Dim tc_Nationalitaet As TableCell = New TableCell()
|
|
Dim tc_Verk As TableCell = New TableCell()
|
|
Dim tc_KZ_An As TableCell = New TableCell()
|
|
Dim tc_Vermerk As TableCell = New TableCell()
|
|
tc_KfzKennz.Text = l2.KfzKennzeichen.ToString
|
|
tr2.Cells.Add(tc_KfzKennz)
|
|
Dim strtempnat As String = String.Empty
|
|
If IsNothing(l2.Nationalität) = True Then
|
|
strtempnat = "Keine Angabe!"
|
|
Else
|
|
strtempnat = l2.Nationalität.ToString
|
|
End If
|
|
tc_Nationalitaet.Text = String.Empty
|
|
tr2.Cells.Add(tc_Nationalitaet)
|
|
Dim cbVerk_Such As CheckBox = New CheckBox()
|
|
If l2.Verkauft = True Then
|
|
cbVerk_Such.Checked = True
|
|
Else
|
|
cbVerk_Such.Checked = False
|
|
End If
|
|
tc_Verk.Controls.Add(cbVerk_Such)
|
|
tr2.Cells.Add(tc_Verk)
|
|
Dim cb_Kz_An As CheckBox = New CheckBox()
|
|
If l2.KZAenderung = True Then
|
|
cb_Kz_An.Checked = True
|
|
Else
|
|
cb_Kz_An.Checked = False
|
|
End If
|
|
tc_KZ_An.Controls.Add(cb_Kz_An)
|
|
tr2.Cells.Add(tc_KZ_An)
|
|
If IsNothing(l2.Vermerk) = True Then
|
|
tc_Vermerk.Text = String.Empty
|
|
ElseIf l2.Vermerk.ToString = String.Empty Then
|
|
tc_Vermerk.Text = "Keine Anagben!"
|
|
Else
|
|
tc_Vermerk.Text = l2.Vermerk.ToString
|
|
End If
|
|
tr2.Cells.Add(tc_Vermerk)
|
|
|
|
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)
|
|
tr2.Attributes.Add("OnClientClick", "Javascript:doPostBack('""" + tr2.Cells.Item(0).Text + """,""" + strtempnat + """')")
|
|
tbl_sidemenue.Rows.Add(tr2)
|
|
cnt += 1
|
|
Next
|
|
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
|
|
tbl_2.Rows.Clear()
|
|
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
|
|
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_M
|
|
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_Verk_M As CheckBox = New CheckBox()
|
|
If (li_M.Verkauft = True) Then
|
|
cb_Verk_M.Checked = True
|
|
Else
|
|
cb_Verk_M.Checked = False
|
|
End If
|
|
tc_Verk_M.Controls.Add(cb_Verk_M)
|
|
tr2.Cells.Add(tc_Verk_M)
|
|
Dim cb_M_2 As CheckBox = New CheckBox()
|
|
If (li_M.KZAenderung = True) Then
|
|
cb_M_2.Checked = True
|
|
Else
|
|
cb_M_2.Checked = False
|
|
End If
|
|
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
|
|
tr2.Cells.Add(tc_Vermerk_M)
|
|
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
|
|
|
|
tbl_mainpage_M.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
|
|
|
|
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_M
|
|
Dim tr1_M 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_KZ_Ab_M As TableCell = New TableCell()
|
|
Dim tc_Vermerk_M As TableCell = New TableCell()
|
|
|
|
Dim strstrtemp As String = String.Empty
|
|
tc_KfzKennz_M.Text = l3.KfzKennzeichen
|
|
tr1_M.Cells.Add(tc_KfzKennz_M)
|
|
If IsNothing(l3.Nationalität) = True Then
|
|
tc_Nationalitaet_M.Text = String.Empty
|
|
ElseIf String.IsNullOrEmpty(l3.Nationalität.ToString) = True Then
|
|
tc_Nationalitaet_M.Text = String.Empty
|
|
Else
|
|
tc_Nationalitaet_M.Text = l3.Nationalität.ToString
|
|
End If
|
|
tr1_M.Cells.Add(tc_Nationalitaet_M)
|
|
Dim cbverk_M As CheckBox = New CheckBox()
|
|
tc_Verk_M.Controls.Add(cbverk_M)
|
|
cbverk_M.Enabled = False
|
|
tr1_M.Cells.Add(tc_Verk_M)
|
|
If l3.Verkauft = True Then
|
|
cbverk_M.Checked = True
|
|
Else
|
|
cbverk_M.Checked = False
|
|
End If
|
|
Dim chbx2_Kz_ab_M As CheckBox = New CheckBox()
|
|
chbx2_Kz_ab_M.Enabled = False
|
|
If (l3.Abgemeldet = True) Then
|
|
chbx2_Kz_ab_M.Checked = True
|
|
Else
|
|
chbx2_Kz_ab_M.Checked = False
|
|
End If
|
|
tc_KZ_Ab_M.Controls.Add(chbx2_Kz_ab_M)
|
|
tr1_M.Cells.Add(tc_KZ_Ab_M)
|
|
If IsNothing(l3.Vermerk) = True Then
|
|
tc_Vermerk_M.Text = String.Empty
|
|
ElseIf String.IsNullOrEmpty(l3.Vermerk.ToString) = True Then
|
|
tc_Vermerk_M.Text = String.Empty
|
|
Else
|
|
tc_Vermerk_M.Text = l3.Vermerk.ToString
|
|
End If
|
|
tr1_M.Cells.Add(tc_Vermerk_M)
|
|
initcells(tblhrow_M, tbhc_KFZKennz_M, tbhc_Nat_M, tbhc_Verk_M, tbhc_KZ_An_M, tbhc_Verm_M, tr1_M, tc_KfzKennz_M, tc_Nationalitaet_M, tc_Verk_M, tc_KZ_Ab_M, tc_Vermerk_M, cnt)
|
|
Dim Stringtemp_M As String = String.Empty
|
|
|
|
Dim strtemp2 As String = String.Empty
|
|
If String.IsNullOrEmpty(l3.Nationalität) Then
|
|
strtemp2 = "Keine Angabe"
|
|
Else
|
|
strtemp2 = l3.Nationalität
|
|
End If
|
|
tbl_mainpage_M.Rows.Clear()
|
|
tr1_M.Attributes.Add("nclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """')")
|
|
cnt += 1
|
|
tbl_2.Rows.Add(tr1_M)
|
|
Next
|
|
End Sub
|
|
|
|
<WebMethod>
|
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
|
|
Public Shared Function filltable2(Kennzeichen As String) As Table
|
|
Dim tbl As Table = New Table
|
|
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
|
|
For Each l2 In list2
|
|
Dim tc_SDLNr As TableCell = New TableCell
|
|
Dim tc_Bezeichnung As TableCell = New TableCell
|
|
Dim tc_GueltigBis As TableCell = New TableCell
|
|
Dim tc_KartNr As TableCell = New TableCell
|
|
Dim tr As TableRow = New TableRow
|
|
|
|
tc_SDLNr.Text = l2.SDLNr.ToString
|
|
tc_Bezeichnung.Text = l2.Kategorie.ToString
|
|
tc_GueltigBis.Text = l2.GültigBis.ToString
|
|
tc_KartNr.Text = l2.KartenNr.ToString
|
|
tr.Cells.Add(tc_SDLNr)
|
|
tr.Cells.Add(tc_Bezeichnung)
|
|
tr.Cells.Add(tc_GueltigBis)
|
|
tr.Cells.Add(tc_KartNr)
|
|
tr.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
|
|
tbl.Rows.Add(tr)
|
|
Next
|
|
Return tbl
|
|
End Function
|
|
<WebMethod>
|
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
|
|
Public Shared Function filltable_M(Kennzeichen As String) As Table
|
|
|
|
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
|
|
Dim Tbl As New Table
|
|
For Each l2 In list2
|
|
Dim tc_SDLNr As TableCell = New TableCell
|
|
Dim tc_Bezeichnung As TableCell = New TableCell
|
|
Dim tc_GueltigBis As TableCell = New TableCell
|
|
Dim tc_KartNr As TableCell = New TableCell
|
|
Dim tr_M As TableRow = New TableRow
|
|
|
|
tc_SDLNr.Text = l2.SDLNr.ToString
|
|
tc_Bezeichnung.Text = l2.Kategorie.ToString
|
|
tc_GueltigBis.Text = l2.GültigBis.ToString
|
|
tc_KartNr.Text = l2.KartenNr.ToString
|
|
tr_M.Cells.Add(tc_SDLNr)
|
|
tr_M.Cells.Add(tc_Bezeichnung)
|
|
tr_M.Cells.Add(tc_GueltigBis)
|
|
tr_M.Cells.Add(tc_KartNr)
|
|
tr_M.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
|
|
Tbl.Rows.Add(tr_M)
|
|
Next
|
|
Return Tbl
|
|
End Function
|
|
End Class
|