erste Tests

App_Code/GetTable.vb

@@ -0,0 +1,54 @@
+Imports System.Web
+Imports System.Web.Services
+Imports System.Web.Services.Protocols
+
+' Wenn der Aufruf dieses Webdiensts aus einem Skript zulässig sein soll, heben Sie mithilfe von ASP.NET AJAX die Kommentarmarkierung für die folgende Zeile auf.
+<System.Web.Script.Services.ScriptService()>
+<WebService(Namespace:="verag.ag")>
+<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Public Class GetTable
+    Inherits System.Web.Services.WebService
+
+    <WebMethod()>
+    Private Function buildtablerow(tbl As Table, SDLNumber As String, Bezstr As String, Datgueltigbisstr As String, KartNr As String) As Table
+
+        Dim row As TableRow = New TableRow
+        Dim c1 As TableCell = New TableCell
+        Dim c2 As TableCell = New TableCell
+        Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
+
+        c1.Text = SDLNumber
+        c2.Text = Bezstr
+        c3.Text = Datgueltigbisstr
+        c4.Text = KartNr
+        row.Cells.Add(c1)
+        row.Cells.Add(c2)
+        row.Cells.Add(c3)
+        row.Cells.Add(c4)
+        tbl.Rows.Add(row)
+        Return tbl
+    End Function
+
+    <WebMethod()>
+    Private Function buildtablerow_M(tbl As Table, SDLNumber_M As String, Bezstr_M As String, Datgueltigbisstr_M As String, KartNr_M As String) As Table
+
+        Dim row As TableRow = New TableRow
+        Dim c1 As TableCell = New TableCell
+        Dim c2 As TableCell = New TableCell
+        Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
+
+        c1.Text = SDLNumber_M
+        c2.Text = Bezstr_M
+        c3.Text = Datgueltigbisstr_M
+        c4.Text = KartNr_M
+        row.Cells.Add(c1)
+        row.Cells.Add(c2)
+        row.Cells.Add(c3)
+        row.Cells.Add(c4)
+        tbl.Rows.Add(row)
+        Return tbl
+    End Function
+End Class

App_Code/WebService.vb

@@ -150,44 +150,5 @@ Public Class WebService
 
         myConn.Close() : Return lstCountries
     End Function
-    <WebMethod()>
-    Private Function buildtablerow(tbl As Table, SDLNumber As String, Bezstr As String, Datgueltigbisstr As String, KartNr As String) As Table
 
-        Dim row As TableRow = New TableRow
-        Dim c1 As TableCell = New TableCell
-        Dim c2 As TableCell = New TableCell
-        Dim c3 As TableCell = New TableCell
-        Dim c4 As TableCell = New TableCell
-
-        c1.Text = SDLNumber
-        c2.Text = Bezstr
-        c3.Text = Datgueltigbisstr
-        c4.Text = KartNr
-        row.Cells.Add(c1)
-        row.Cells.Add(c2)
-        row.Cells.Add(c3)
-        row.Cells.Add(c4)
-        tbl.Rows.Add(row)
-        Return tbl
-    End Function
-    <WebMethod()>
-    Private Function buildtablerow_M(tbl As Table, SDLNumber_M As String, Bezstr_M As String, Datgueltigbisstr_M As String, KartNr_M As String) As Table
-
-        Dim row As TableRow = New TableRow
-        Dim c1 As TableCell = New TableCell
-        Dim c2 As TableCell = New TableCell
-        Dim c3 As TableCell = New TableCell
-        Dim c4 As TableCell = New TableCell
-
-        c1.Text = SDLNumber_M
-        c2.Text = Bezstr_M
-        c3.Text = Datgueltigbisstr_M
-        c4.Text = KartNr_M
-        row.Cells.Add(c1)
-        row.Cells.Add(c2)
-        row.Cells.Add(c3)
-        row.Cells.Add(c4)
-        tbl.Rows.Add(row)
-        Return tbl
-    End Function
 End Class

Customers/LKWs.aspx

@@ -142,75 +142,68 @@
     <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) {
+        function TableRow_Click(Nat, Kennzeichen) {     
-            debugger
-            var arr = new Array();
-            var convertarr;
-
-            arr.push(buildtablerow(<%=tbl_mainpage%>,SDL, Bez, gueltigBis, KartNr));
-            convertarr = JSON.stringfy(arr);
-
-            $.ajax({
-                url: '<%= Page.ResolveUrl("~/Services/Location.aspx") %>',
-                data: { Address: convertarr },
-                type: 'POST',
-
-                success: function (arr) {
-                    var resultarr = JSON.parse(arr);
-                    // Do something with result, example: result[0].City
-
-                    for (let i = 0; i < resultarr.length; i++) {
                         let Speditionslabel = document.getElementById("<%=lbl_sped_Placeholder.ClientID%>")
                         let natplaceholder = document.getElementById("<%=lbl_Placeholder.ClientID%>")
                         let table = document.getElementById("<%=tbl_mainpage.ClientID%>")
                         Speditionslabel.textContent = Kennzeichen;
                         natplaceholder.textContent = Nat;
-                        var SDL = resultarr[i].SDLNumber<%'=VERAG_VARIABLES.RandomInteger(Math.Pow(2, 15), Math.Pow(2, 20)).ToString%>;
+                       
-                        var Bez = resultarr[i].Bezstr;
-                        var Datumgueltigbis = resultarr[i].Datgueltigbisstr;
-                        var KartenNr = resultarr[i].KartNr;
                         var rowCount = table.rows.length;
 
                         for (let i = rowCount - 1; i > 0; i--) {
                             table.deleteRow(i);
                         }
-                        buildtable(resultarr.length,SDL, Bez, Datumgueltigbis, KartenNr)
+                buildtableajax()
-                    }
+        }                
-                }
-           });
-    }
 
-        function TableRow_Click_M(Nat, Kennzeichen) {
+        function TableRow_Click_M(Nat, Kennzeichen) {           
-            var arr_M = new Array();
-            var convertArr_M;
-
-            arr_M.push(buildtablerow(<%=tbl_mainpage_M%>, SDL, Bez, gueltigBis, KartNr));
-            convertedArr_M = JSON.stringfy(arr_M);
-
-            $.ajax({
-                url: '<%= Page.ResolveUrl("~/Services/Location.aspx") %>',
-                data: { Address: convertArr_M },
-                type: 'POST',
-
-                success: function (arr_M) {
-                    var resultArr_M = JSON.parse(arr_M);
-                    // Do something with result, example: result[0].City
-                
-            
                     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%>")
                     Speditionslabel.textContent = Kennzeichen;
                     natplaceholder.textContent = Nat;
-                    var SDL_M = resultArr_M[i].SDLNumber_M;
+                    var rowCount = table.rows.length;
-                    var Bez_M = resultArr_M[i].Bezstr_M;
+
-                    var Datumgueltigbis_M = resultArr_M[i].Datgueltigbisstr_M;
+                    for (let i = rowCount - 1; i > 0; i--) {
-                    var KartenNr_M = resultArr_M[i].KartNr_M;
-                    var rowCount_M = table_M.rows.length;
-                    for (var i = rowCount_M - 1; i > 0; i--) {
                         table_M.deleteRow(i);
-                    }
+            }
-                    buildtable_M(resultArr_M.length,SDL_M, Bez_M, Datumgueltigbis_M, KartenNr_M)
+            buildtableajax_M()
+        }
+
+        function buildtableajax() {
+            var address = new Array();
+            var convertAddress;
+
+            address.push(BuildTable(SDL,Bez,gueltigbis,KartNr));
+            convertedAddress = JSON.stringfy(address);
+
+            $.ajax({
+                url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
+             data: { Address: convertedAddress },
+            type: 'POST',
+
+            success: function (address) {
+                var result = JSON.parse(address);
+                // Do something with result, example: result[0].City
+                }
+            });
+        }
+        function buildtableajax_M() {
+            var address = new Array();
+            var convertAddress;
+
+            address.push(BuildTable_M(SDL, Bez, gueltigbis, KartNr));
+            convertedAddress = JSON.stringfy(address);
+
+            $.ajax({
+                url: '<%= Page.ResolveUrl("~/Customers/LKWs.aspx") %>',
+                data: { Address: convertedAddress },
+                type: 'POST',
+
+                success: function (address) {
+                    var result = JSON.parse(address);
+                    // Do something with result, example: result[0].City
                 }
             });
         }
@@ -312,5 +305,23 @@
             td = tr.insertCell();
             td.innerHTML = Kartnr;
         }
-    </script>   
+        function BuildTable(SDL, Bez, gueltigbis, KartNr) {
+            var address = null;
+            item = {
+                SDLNr: SDL,
+                Bezeichnung: Bez,
+                DateGueltig: gueltigbis,
+                CardNr: KartNr,                
+            };
+        }
+        function BuildTable_M(SDL, Bez, gueltigbis, KartNr) {
+            var address = null;
+            item = {
+                SDLNr: SDL,
+                Bezeichnung: Bez,
+                DateGueltig: gueltigbis,
+                CardNr: KartNr,
+            };
+        }
+    </script>
 </asp:Content>

Customers/LKWs.aspx.vb

@@ -2,6 +2,7 @@
 Imports System
 Imports System.Web.Script.Serialization
 Imports System.Web.Security
+Imports System.Web.Services
 Imports System.Web.UI.WebControls
 
 Partial Class LKWS
@@ -125,6 +126,7 @@ Partial Class LKWS
             Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, l1.KfzKennzeichen)
             Dim stringtemtr As String = String.Empty
             Dim tr As TableRow = New TableRow
+            Dim list3 As List(Of String) = New List(Of String)
             For Each l2 In list2
                 Dim String2 As String = String.Empty
 
@@ -147,7 +149,8 @@ Partial Class LKWS
                     tr.Cells.Add(tc_Bez)
                     tr.Cells.Add(tc_gueltigbis)
                     tr.Cells.Add(tc_Karten_Nr)
-                    strtemparr = "<tr><td>" + tc_SDL.Text + "</td><td>" + tc_Bez.Text + "</td><td>" + tc_gueltigbis.Text + "</td><td>" + tc_Karten_Nr.Text + "</td></tr>"
+
+                    list3.Add(tc_SDL.Text + "," + tc_Bez.Text + "," + tc_gueltigbis.Text + "," + tc_Karten_Nr.Text)
                     'tbl_mainpage.Rows.Add(tr)
                     TableRows.Add(tr)
                 End If
@@ -158,7 +161,7 @@ Partial Class LKWS
             Else
                 strtemp2 = l1.Nationalität
             End If
-
+            ConvertToJSON(list3)
             tr1.Attributes.Add("onclick", "Javascript:TableRow_Click(""" & strtemp2 & """,""" & l1.KfzKennzeichen & """)")
             cnt += 1
             tbl_sidemenue.Rows.Add(tr1)
@@ -166,13 +169,14 @@ Partial Class LKWS
         'MsgBox("Test3")
     End Sub
 
-    Public Sub ConvertToJSON(lst As VERAG_PROG_ALLGEMEIN.cSDL_LKW)
+    Public Sub ConvertToJSON(lst As List(Of String))
         Dim jss1 As New JavaScriptSerializer()
         Dim _myJSONstring As String = jss1.Serialize(lst)
         Dim player As String = (Convert.ToString("var player=") & _myJSONstring) + ";"
         Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "player123", player, True)
     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
         thr1.BackColor = Drawing.Color.FromArgb(0, 4, 51, 129)
@@ -408,4 +412,5 @@ Partial Class LKWS
         Next
     End Sub
 
+
 End Class

GetTable.asmx

@@ -0,0 +1 @@
+<%@ WebService Language="VB" CodeBehind="~/App_Code/GetTable.vb" Class="GetTable" %>