From 83d5c8d5ff664eccd522f4bf530cd80c0b08a4c1 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 13 Dec 2021 08:44:25 +0100
Subject: [PATCH] Beschriftungen

---
 Customers/LKWs.aspx    |  65 +++++++++++++++++++++-----
 Customers/LKWs.aspx.vb | 103 +++++++++++++++++++++++------------------
 2 files changed, 112 insertions(+), 56 deletions(-)

diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx
index 88f0a07..953ffd3 100644
--- a/Customers/LKWs.aspx
+++ b/Customers/LKWs.aspx
@@ -67,10 +67,7 @@
                                  <asp:TextBox ID ="txt_lkw" runat="server" Width="110px" style="margin-left:25px"></asp:TextBox>                                
                                  <asp:Button ID="btn_Suchen" OnClick="btn_Suchen_Click" runat="server" Text="Suchen" style="margin-left:5px"/> </div>
                             <div class="col-9">       
-                                <div class="col-9"style="height:10px;"></div>     
-                                <div class="col-9">
-                                     <asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="valregex_txt_knz" ControlToValidate="txt_lkw" ForeColor="Red" ValidationExpression="^[A-Z1-9]" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
-                                </div>
+                                <div class="col-9"style="height:10px;"></div>                               
                               <div class="flex-col-9">
                                   <asp:Table ID="Table1" runat="server"></asp:Table>
                                   <asp:Table ID="tbl_sidemenue" runat="server" CssClass="table table-striped" style="width:310px;margin-left:-32px;">
@@ -82,7 +79,7 @@
                         <div class="col-9">
                             <div class="col-12"> 
                                 <asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1" ImageUrl="~/images/Icons/Aviso.png" style="width:96px;height:96px" />
-                                <asp:Label runat="server" Font-Size="20px" Font-Bold="true">Bitte Spedition wählen</asp:Label>
+                                <asp:Label ID="lbl_sped_Placeholder" runat="server" Font-Size="20px" Font-Bold="true">Bitte Spedition wählen</asp:Label>
                             </div> 
                             <div class="col-12">
                                 <asp:Label ID="lbl_natLKW" runat="server" Font-Size="1em" style="color:#043381">Nationalität:</asp:Label><asp:Label runat="server" ID="lbl_Placeholder">Placeholder</asp:Label>                               
@@ -91,8 +88,8 @@
                                  <asp:Label ID="lbl_SDL" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen:</asp:Label>
                             </div>
                               <div class="col-12"style="height:10px;"></div>
-                            <div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto;overflow-y:auto;max-height:312px;">
-                                <asp:Table ID="tbl_mainpage" runat="server" Width="100%" CssClass="table table-striped col-12">
+                            <div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-y:auto;height:fit-content">
+                                <asp:Table ID="tbl_mainpage" runat="server" Width="100%" style="overflow-y:auto;height:312px;" CssClass="table table-striped col-12">
                                     <asp:TableHeaderRow ID="headrow1" runat="server" style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr">SDL-Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
                                </asp:Table>
                             </div>
@@ -112,9 +109,7 @@
                                                     <asp:Button ID="btn_Suchen_M" OnClick="btn_Suchen_M_Click" runat="server" CssClass="btn btn-primary" Text="Suchen" style="margin-left:0px" /></div>
                                             </div>             
                                              <div style="height:12px"></div>
-                                        <div class="col-12">
-                                            <asp:RegularExpressionValidator Display="Dynamic" Enabled="true" ID="regex_val_txtLKW_M" ControlToValidate="txt_LKWNr_M" ValidationExpression="^[A-Z1-9]" ForeColor="Red" runat="server">Please valid Truck license Plate!</asp:RegularExpressionValidator>
-                                        </div>
+                                        
                                             <div style="height:17px"></div>
                                             <div class="col-12-flex">
                                                 <asp:Table ID="tbl_2" runat="server">
@@ -126,7 +121,7 @@
                                     <div class="col-12">
                                         <div class="col-12">
                                             <asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/Icons/Aviso.png" style="width:56px;height:56px" />
-                                            <asp:Label runat="server" Font-Size="22px" Font-Bold="true">Bitte Spedition wählen...!</asp:Label>
+                                            <asp:Label ID="lbl_sped_Placeholder_M" runat="server" Font-Size="22px" Font-Bold="true">Bitte Spedition wählen...!</asp:Label>
                                         </div>
                                         <div class="col-12">
                                             <asp:Label ID="lbl_natLKW_M" runat="server" Font-Size="1em" Style="color:#043381"></asp:Label><asp:Label ID="lbl_Placeholder_M" runat="server">Placeholder</asp:Label>
@@ -144,10 +139,58 @@
                                     </div>
          </div>
                 </div>
+         <asp:Button ID="Button_hid" runat="server" OnClick="TableRowClick" Style="display: none" />
          </ContentTemplate></asp:UpdatePanel>       
      <!-- jQuery CDN - Slim version (=without AJAX) -->
         <script src="https://code.jquery.com/jquery-3.3.1.slim.min.js" integrity="sha384-q8i/X+965DzO0rT7abK41JStQIAqVgRVzpbzo5smXKp4YfRvH+8abtTE1Pi6jizo" crossorigin="anonymous"></script>
      <!-- Popper.JS -->
     <script src="https://cdnjs.cloudflare.com/ajax/libs/popper.js/1.14.0/umd/popper.min.js" integrity="sha384-cs/chFZiN24E4KMATLdqdvsezGxaGsi4hLGOzlXwp5UZB1LY//20VyM2taTB4QvJ" crossorigin="anonymous"></script>  
+    <script>
+        function TableRowClick(list,Kennzeichen,Nat) {
+            var arrayObject = [];
+            var table = document.getElementById("<%=tbl_mainpage.ClientID%>");
+            var Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
+            var natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")            
+            
+        Speditionslabel.textContent = Kennzeichen
+        natplaceholder.textContent = Nat
+            for (let i = 0; i < list.length; i++) {
+                var Arr = list(i).split(";");
+                for (let arrint = 0; arrint < 5;arrint++)
+                    var SDLNr = Arr[arrint];
+                arrint++;
+                var Bez = Arr[arrint];
+                arrint++;
+                var Gueltigbis = Arr[arrint];
+                arrint++;
+                var KartenNr = Arr[arrint];
+                arrint++;
+                var Placeholder = Arr[arrint];
+                arrint++;
+            var Nat = Arr[arrint];
+            alert(SDLNr)
+            alert(Bez)
+            alert(Gueltigbis)
+            alert(KartenNr)
+                addRow(table.id, SDLNr, Bez, Gueltigbis, KartenNr)
+                arrint;
+            }
+        }
+        function addRow(tableID,par1,par2,par3,par4) {            
+            let tableRef = document.getElementById(tableID);
+                        
+            let newRow = tableRef.insertRow(-1);
+
+            let newCell = newRow.insertCell(0);
+            let newCell1 = newRow.insertCell(1)
+            let newCell2 = newRow.insertCell(2)
+            let newCell3 = newRow.insertCell(3)
+
+            newCell.innerHTML = par1
+            newCell1.innerHTML = par2
+            newCell2.innerHTML = par3
+            newCell3.innerHTML = par4
+        }
+    </script>
 </asp:Content>
 
diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 23eaf15..60fa1e7 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -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