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

Änderungen LKW GUi und dateien um wieder lauffähig zu sein und Compilerrelease versionswechsel von 2.0 auf 3.5

Browse Source
This commit is contained in:
ja
2021-12-07 16:20:37 +01:00
parent d2915a4c04
commit ec6339fd01
5 changed files with 118 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

96
Customers/LKWs.aspx.vb
View File

@@ -1,15 +1,19 @@

Imports System
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 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL) = 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!")
'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()
@@ -21,12 +25,98 @@ Partial Class LKWS
End If
End Sub
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
'list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(Kdnrtext)
MsgBox("Test1")
list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
Dim tbl_sidemenue As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
tblhrow.Cells.Add(tblheader_Cell1)
tblhrow.Cells.Add(tblheader_Cellnat)
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_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_An As TableCell = New TableCell()
Dim tc_Vermerk As TableCell = New TableCell()
initcells(tr1, tc_KfzKennz, tc_Nationalitaet, tc_Verk, tc_KZ_An, tc_Vermerk)
tc_KfzKennz.Text = l1.KfzKennzeichen
tr1.Cells.Add(tc_KfzKennz)
tc_Nationalitaet.Text = String.Empty
tr1.Cells.Add(tc_Nationalitaet)
Dim cbverk As CheckBox = New CheckBox()
tc_Verk.Controls.Add(cbverk)
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)
tc_Vermerk.Text = l1.Vermerk.ToString
tr1.Cells.Add(tc_Vermerk)
tbl_sidemenue.Rows.Add(tr1)
Next
MsgBox("Test3")
End Sub
Private Sub initcells(tr1 As TableRow, tc_KfzKennz As TableCell, tc_Nationalitaet As TableCell, tc_Verk As TableCell, tc_KZ_An As TableCell, tc_Vermerk As TableCell)
End Sub
Protected Sub btn_Suchen_Click(sender As Object, e As EventArgs)
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)
Dim tbl_sidemenue2 As Table = FindControl("tbl_sidemenue")
Dim tblhrow As TableHeaderRow = New TableHeaderRow()
Dim tblheader_Cell1 As TableHeaderCell = FindControl("tbhc_KFZKennz")
Dim tblheader_Cellnat As TableHeaderCell = FindControl("tbhc_Nat")
Dim tblheader_cell_KZ As TableHeaderCell = FindControl("tblhc_Kz")
Dim tblheader_cell_Verm As TableHeaderCell = FindControl("tblhc_Verm")
tblhrow.Cells.Add(tblheader_Cell1)
tblhrow.Cells.Add(tblheader_Cellnat)
tblhrow.Cells.Add(tblheader_cell_KZ)
tblhrow.Cells.Add(tblheader_cell_Verm)
tbl_sidemenue2.Rows.Add(tblhrow)
'tbl_sidemenue2.Rows.Clear()
MsgBox("Test1")
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()
tc_Verk.Controls.Add(cbVerk_Such)
tr2.Cells.Add(tc_Verk)
Dim cb_Kz_An As CheckBox = New CheckBox()
tc_KZ_An.Controls.Add(cb_Kz_An)
tc_Vermerk.Text = l2.Vermerk.ToString
tr2.Cells.Add(tc_Vermerk)
'tr2.Attributes.Add("command", "getinfos")
tbl_sidemenue2.Rows.Add(tr2)
Next
MsgBox("Test2")
End Sub
Protected Sub getinfos(varz As Integer)
End Sub
End Class