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

Beschriftungen

Browse Source
This commit is contained in:
ja
2021-12-13 08:44:25 +01:00
parent 30cd1c6078
commit 83d5c8d5ff
2 changed files with 112 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

103
Customers/LKWs.aspx.vb
View File

@@ -1,12 +1,13 @@

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) = Nothing
Dim list 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()
@@ -36,8 +37,7 @@ Partial Class LKWS
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tblhrow As TableHeaderRow = New TableHeaderRow
tblhrow.Cells.Add(tbhc_KFZKennz)
@@ -55,19 +55,38 @@ Partial Class LKWS
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_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)
tc_Nationalitaet.Text = String.Empty
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()
tc_Verk.Controls.Add(cbverk)
cbverk.Enabled = False
tr1.Cells.Add(tc_Verk)
Dim chbx2_Kz_an As CheckBox = New CheckBox()
tc_KZ_An.Controls.Add(chbx2_Kz_an)
tr1.Cells.Add(tc_KZ_An)
If l1.Verkauft = True Then
cbverk.Checked = True
Else
cbverk.Checked = False
End If
Dim chbx2_Kz_ab As CheckBox = New CheckBox()
chbx2_Kz_ab.Enabled = False
If (l1.Abgemeldet = True) Then
chbx2_Kz_ab.Checked = True
Else
chbx2_Kz_ab.Checked = False
End If
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
@@ -76,15 +95,30 @@ Partial Class LKWS
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 Spedlabel 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 + ";" + l1.KfzKennzeichen + ";" + tc_Nationalitaet.Text)
Next
Next
tr1.Attributes.Add("OnClick", "Javascript:TableRowClick(""" & list3.ToArray.ToString & """,""" & l1.KfzKennzeichen & """,""" & l1.Nationalität & """)")
cnt += 1
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")
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
'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)
@@ -97,39 +131,14 @@ Partial Class LKWS
th4.ForeColor = Drawing.Color.White
th5.ForeColor = Drawing.Color.White
If Math.DivRem(countrows, 2, res) = 0 Then
tr1.BackColor = Drawing.Color.LightBlue
tc_KfzKennz.BackColor = Drawing.Color.LightBlue
tc_KZ_An.BackColor = Drawing.Color.LightBlue
tc_Nationalitaet.BackColor = Drawing.Color.LightBlue
tc_Verk.BackColor = Drawing.Color.LightBlue
tc_Vermerk.BackColor = Drawing.Color.LightBlue
tr1.ForeColor = Drawing.Color.Black
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
Else
tr1.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.BackColor = Drawing.Color.WhiteSmoke
tc_KZ_An.BackColor = Drawing.Color.WhiteSmoke
tc_Nationalitaet.BackColor = Drawing.Color.WhiteSmoke
tc_Verk.BackColor = Drawing.Color.WhiteSmoke
tc_Vermerk.BackColor = Drawing.Color.WhiteSmoke
tc_KfzKennz.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_KZ_An.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Nationalitaet.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Verk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
tc_Vermerk.ForeColor = Drawing.Color.FromArgb(0, 4, 51, 129)
End If
End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
'MsgBox("Test0")
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, Integer.Parse(txt_LkwNr.Text))
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
@@ -143,9 +152,9 @@ 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.Height = Unit.Pixel(150)
tbl_sidemenue2.Rows.Add(tblhrow)
'MsgBox("Test1")
For Each l2 In list
@@ -166,16 +175,16 @@ 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)
cnt += 1
Next
'MsgBox("Test2")
End Sub
Protected Sub getinfos(varz As Integer)
Protected Sub TableRowClick(ByVal sender As TableRow, e As EventArgs)
MsgBox("varz")
End Sub
Protected Sub btn_Suchen_M_Click(sender As Object, e As EventArgs)
@@ -184,7 +193,7 @@ Partial Class LKWS
Else
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940, Integer.Parse(txt_LKWNr_M.Text))
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim cnt As Integer = 0
headrow_M.Cells.Add(tbhc_KFZKennz_M)
@@ -224,7 +233,9 @@ Partial Class LKWS
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
@@ -233,7 +244,7 @@ Partial Class LKWS
End If
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
@@ -274,4 +285,6 @@ Partial Class LKWS
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