From c8f770fd192b6b39b02ffce158e257f59dfc3f60 Mon Sep 17 00:00:00 2001
From: ja <ja@verag.ag>
Date: Mon, 20 Dec 2021 16:46:13 +0100
Subject: [PATCH] =?UTF-8?q?L=C3=B6sung=20ansatz=20gefunden=20wird=20morgen?=
 =?UTF-8?q?=20implementiert.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Customers/LKWs.aspx    | 76 ++++++++++++------------------------------
 Customers/LKWs.aspx.vb | 26 +++++++++------
 2 files changed, 37 insertions(+), 65 deletions(-)

diff --git a/Customers/LKWs.aspx b/Customers/LKWs.aspx
index 020bf2d..82466a2 100644
--- a/Customers/LKWs.aspx
+++ b/Customers/LKWs.aspx
@@ -142,8 +142,8 @@
     <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 type="text/javascript">  
         
-        function TableRow_Click(Nat, Kennzeichen) {
-            buildtableajax()
+        function TableRow_Click(Nat, Kennzeichen,tempstrarr) {
+            debugger            
                 let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
                 let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
                 let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
@@ -154,11 +154,13 @@
 
                 for (let i = rowCount - 1; i > 0; i--) {
                     table.deleteRow(i);
-                }                
+            }
+            let arrtemp = tempstrarr.split(",")
+            addNewRow()
         }                
 
-        function TableRow_Click_M(Nat, Kennzeichen) {
-            buildtableajax_M()
+        function TableRow_Click_M(Nat, Kennzeichen,tempstrarr_M) {
+            debugger
                 let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder_M.ClientID%>");
                 let natplaceholder = document.getElementById("<%=lbl_Placeholder_M.ClientID%>");           
                 let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>")
@@ -169,58 +171,12 @@
                 for (let i = rowCount - 1; i > 0; i--) {
                     table_M.deleteRow(i);
                 }
-        }
-
-        function buildtableajax() {
-            var LKW = new Array();
-            var convertLKWs;
-
-            LKW.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
-            LKW = JSON.stringfy(LKW);
-
-            $.ajax({
-                url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
-             data: { LKW: convertedLKWs },
-            type: 'POST',
-
-            success: function (LKW) {
-                var result = JSON.parse(LKW);
-
-                alert(result[0].SDLNr)
-                for (let i = 0; i < result.length; i++) {
-                    buildtable(result.length, result[i].SDL, result[i].Bezeichnung, result[i].DateGueltig, result[i].CardNr)
+                let arrtemp = tempstrarr_M.split("-")
+                for (int j = 0; j < arrtemp.length; j++) {
+                    alert(arrtemp[j])
                 }
-                }
-            });
-        }
-        function buildtableajax_M() {
-            var LKW_M = new Array();
-            var convertLKW;
-
-            address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
-            convertedAddress = JSON.stringfy(LKW_M);
-
-            $.ajax({
-                url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
-                data: { LKW_M: convertedLKWs },
-                type: 'POST',
-
-                success: function (LKW_M) {
-                    var result_M = JSON.parse(LKW_M);
-                    for (let i = 0; i < result_M.length; i++) {
-                        buildtable(result_M.length, result_M[i].SDL, result_M[i].Bezeichnung, result_M[i].DateGueltig, result_M[i].CardNr)
-                    }
-                }
-            });
-        }
-        function buildtable(n, SDL,Bez,Dtguelt,KartNr) {
-            let table = document.getElementById("<%=tbl_mainpage.ClientID%>");
-            
-            addheader();
-            for (let intz = 0; intz < n; intz++) {
-                addNewRow(SDL,Bez,Dtguelt,KartNr);
-            }
         }
+        
         function buildtable_M(n, SDL,Bez, Dtguelt, KartNr) {
             let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>");
             
@@ -329,5 +285,15 @@
                 CardNr: KartNr,
             };
         }
+
     </script>
+    <script type="text/javascript">
+        function doPostBack(id, strtemp) {
+            var arr = strtemp.split(",")
+                for (let i = 0; i < arr.length; i++) {
+                    alert(id + '&' + arr[i]);
+            }
+        }
+    </script>
+
 </asp:Content>
\ No newline at end of file
diff --git a/Customers/LKWs.aspx.vb b/Customers/LKWs.aspx.vb
index 5d95ab8..7df50d4 100644
--- a/Customers/LKWs.aspx.vb
+++ b/Customers/LKWs.aspx.vb
@@ -1,5 +1,6 @@
 
 Imports System
+Imports System.ComponentModel
 Imports System.Web.Script.Serialization
 Imports System.Web.Security
 Imports System.Web.Services
@@ -61,7 +62,7 @@ Partial Class LKWS
         tblhrow.Cells.Add(tblhc_Kz)
         tblhrow.Cells.Add(tblhc_Verm)
         tbl_sidemenue.Rows.Add(tblhrow)
-
+        Dim strstrstrstretemparr As String = String.Empty
         'tbl_sidemenue.Rows.Clear()
         'MsgBox("Test2")
         For Each l1 In list
@@ -127,6 +128,7 @@ Partial Class LKWS
             Dim stringtemtr As String = String.Empty
             Dim tr As TableRow = New TableRow
             Dim list3 As List(Of String) = New List(Of String)
+            Dim strstrstrstrtemp As String = String.Empty
             For Each l2 In list2
                 Dim String2 As String = String.Empty
 
@@ -152,8 +154,10 @@ Partial Class LKWS
                     tr.Cells.Add(tc_Karten_Nr)
                     'tbl_mainpage.Rows.Add(tr)
                     TableRows.Add(tr)
+                    strstrstrstrtemp = tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text
                 End If
-                strlongarr = String.Join("-", tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
+                list3.Add(strstrstrstrtemp)
+
                 'MsgBox(TableRows.Count.ToString)
             Next
             If String.IsNullOrEmpty(l1.Nationalität) = True Then
@@ -161,20 +165,20 @@ Partial Class LKWS
             Else
                 strtemp2 = l1.Nationalität
             End If
-            ConvertToJSON(list3)
-            tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """,""" & strlongarr & """)")
+
+            tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" & tr1.Cells.Item(0).Text & """,""" & ConvertToJSON(list3) & """')")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
         Next
         'MsgBox("Test3")
     End Sub
 
-    Public Sub ConvertToJSON(lst As List(Of String))
+
+    Public Function ConvertToJSON(lst As List(Of String)) As String
         Dim jss1 As New JavaScriptSerializer()
         Dim _myJSONstring As String = jss1.Serialize(lst)
-        Dim LKW As String = (Convert.ToString("var LKW=") & _myJSONstring) + ";"
-        Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", LKW, True)
-    End Sub
+        Return _myJSONstring
+    End Function
 
 
     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)
@@ -335,6 +339,7 @@ Partial Class LKWS
             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)
+            Dim strstrtemp As String = String.Empty
             tc_KfzKennz_M.Text = l3.KfzKennzeichen
             tr1_M.Cells.Add(tc_KfzKennz_M)
             If IsNothing(l3.Nationalität) = True Then
@@ -395,7 +400,7 @@ Partial Class LKWS
                 tr.Cells.Add(tc_Bez)
                 tr.Cells.Add(tc_GueltigBis)
                 tr.Cells.Add(tc_Kartennr)
-
+                strstrtemp += String.Join("-", l2.SDLNr.ToString + "," + Stringtemp_M + "," + l2.GültigBis.ToString + "," + l2.KartenNr.ToString)
                 'tbl_mainpage_M.Rows.Add(tr)
                 TableRows_M.Add(tr)
             Next
@@ -406,7 +411,8 @@ Partial Class LKWS
                 strtemp2 = l3.Nationalität
             End If
             tbl_mainpage_M.Rows.Clear()
-            tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """)")
+            list3.Add(strstrtemp)
+            tr1_M.Attributes.Add("OnClick", "Javascript:TableRow_Click_M(""" & strtemp2 & """,""" & l3.KfzKennzeichen & """,""" & ConvertToJSON(list3) & """);")
             tbl_2.Rows.Add(tr1_M)
             cnt += 1
         Next