diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx index 962cd62..3a20b65 100644 --- a/Customers/LKWs.aspx +++ b/Customers/LKWs.aspx @@ -59,7 +59,7 @@
-
+
@@ -67,8 +67,9 @@
+ - KFZ-KennzeichenNat.VerkKZ-AnVermerk + KFZ-KennzeichenNat.VerkKZ-AnVermerk
@@ -119,51 +120,6 @@ - + diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb index ef8bf75..04c2202 100644 --- a/Customers/LKWs.aspx.vb +++ b/Customers/LKWs.aspx.vb @@ -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 diff --git a/VERAG_Homepage.sln b/VERAG_Homepage.sln index 1fb3ac9..9cb7a1a 100644 --- a/VERAG_Homepage.sln +++ b/VERAG_Homepage.sln @@ -32,7 +32,7 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution Linkfactory.js = Linkfactory.js EndProjectSection EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -52,12 +52,12 @@ Global {11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}.Release|x64.Build.0 = Debug|Any CPU {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.ActiveCfg = Debug|x64 + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x64.Build.0 = Debug|x64 {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|Any CPU - {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.ActiveCfg = Release|x64 + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x64.Build.0 = Release|x64 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/Web.config b/Web.config index 749c6a4..934651f 100644 --- a/Web.config +++ b/Web.config @@ -24,15 +24,15 @@ --> - - - - - - - - - + + + + + + + + + @@ -77,7 +77,7 @@ - + @@ -134,7 +134,7 @@ - + @@ -153,10 +153,10 @@ - - + + - + \ No newline at end of file diff --git a/packages.config b/packages.config index 79816a5..3d82d03 100644 --- a/packages.config +++ b/packages.config @@ -5,6 +5,7 @@ + @@ -17,7 +18,7 @@ - +