369 lines
15 KiB
VB.net
369 lines
15 KiB
VB.net
|
|
Imports System
|
|
Imports System.Web.Script.Serialization
|
|
Imports System.Web.Security
|
|
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
|
|
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)
|
|
|
|
'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()
|
|
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
|
|
Dim list3 As List(Of String) = New List(Of String)
|
|
|
|
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
|
|
Dim strtemparr As String = String.Empty
|
|
For Each l2 In list2
|
|
Dim String2 As String = String.Empty
|
|
|
|
If IsNothing(l2.Schadstoffklasse) = False Then
|
|
Stringtemp = l2.Kategorie.ToString
|
|
Else
|
|
Stringtemp = String.Empty
|
|
End If
|
|
For Each l3 In list3
|
|
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
|
|
Next
|
|
Dim strtemp2 As String = String.Empty
|
|
If String.IsNullOrEmpty(l1.Nationalität) = True Then
|
|
strtemp2 = "Keine Angabe"
|
|
Else
|
|
strtemp2 = l1.Nationalität
|
|
End If
|
|
Dim strarrtemp = String.Empty
|
|
|
|
strarrtemp = String.Join(" ", list3)
|
|
|
|
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & strarrtemp & """,""" & l1.KfzKennzeichen & """,""" & strtemp2 & """)")
|
|
|
|
Next
|
|
cnt += 1
|
|
tbl_sidemenue.Rows.Add(tr1)
|
|
Next
|
|
'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)
|
|
'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.GET_LIST_WEB(401940, "COOPER8")
|
|
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
|
|
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
|
|
Dim cnt As Integer = 0
|
|
|
|
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)
|
|
tbl_sidemenue.Rows.Clear()
|
|
tbl_sidemenue.Rows.Add(tblhrow)
|
|
|
|
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)
|
|
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 = String.Empty
|
|
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)
|
|
|
|
tbl_sidemenue.Rows.Add(tr2)
|
|
cnt += 1
|
|
Next
|
|
End Sub
|
|
|
|
Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
|
|
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 Button_hid_Click(sender As Object, e As EventArgs)
|
|
'MsgBox("Test erfolgreich!")
|
|
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_2.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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l3.KfzKennzeichen)
|
|
Dim list3 As List(Of String) = New List(Of String)
|
|
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
|
|
For Each l2 In list2
|
|
Dim String2 As String = String.Empty
|
|
If IsNothing(l2.Schadstoffklasse) = False Then
|
|
Stringtemp_M = l2.Kategorie.ToString
|
|
Else
|
|
Stringtemp_M = String.Empty
|
|
End If
|
|
For Each l4 In list2
|
|
list3.Add(l2.SDLNr.ToString + ";" + Stringtemp_M + ";" + l2.GültigBis.ToString + ";" + l2.KartenNr.ToString)
|
|
Next
|
|
Next
|
|
Dim strtemp2 As String = String.Empty
|
|
If String.IsNullOrEmpty(l3.Nationalität) Then
|
|
strtemp2 = "Keine Angabe"
|
|
Else
|
|
strtemp2 = l3.Nationalität
|
|
End If
|
|
Dim str2temptemp = String.Empty
|
|
|
|
str2temptemp = String.Join(" ", list3)
|
|
|
|
'MsgBox(str2temptemp)
|
|
tr1_M.Attributes.Add("OnClick", "Javascript:TableRowClick_M(""" & str2temptemp & """,""" & l3.KfzKennzeichen & """,""" & strtemp2 & """)")
|
|
tbl_2.Rows.Add(tr1_M)
|
|
cnt += 1
|
|
Next
|
|
End Sub
|
|
End Class
|
|
|
|
|
|
|
|
|
|
|
|
|