Änderungen

Customers/LKWs.aspx

@@ -308,7 +308,7 @@
             };
         }
     </script>
-
+    
     <script type="text/javascript">       
         function doPostBack(id) {
             let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>');
@@ -349,7 +349,8 @@
             });
             function OnSuccess(success) {
                 alert('horray! 200 status code!');
-                    alert(success)                
+                //alert(success)
+                table.innerHTML = success;
             }
             function OnFailure(error) {
                 alert(error);
@@ -392,9 +393,9 @@
                 url: "LKWs.aspx/filltable2",
                 contentType: "application/json; charset=utf-8",
                 dataType: "json",
-                data: '{"' + id.split(',')[0] + '"}',
+                data: '{' + id.split(',')[0] + '}',
                 success: function (result) {
-                    OnSuccess(result.data);
+                    OnSuccess(result.d);
                 },
                 error: function (jqXHR, textStatus, errorThrown) {
                     alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
@@ -402,7 +403,8 @@
             });
             function OnSuccess(success) {
                 alert('horray! 200 status code!');
-                alert(success)
+                //alert(success)
+                table_M.innerHTML = success;
             }
             function OnFailure(error) {
                 alert(error);
@@ -416,4 +418,5 @@
             }
         }
     </script>
+
 </asp:Content>

Customers/LKWs.aspx.vb

@@ -400,7 +400,7 @@ Partial Class LKWS
 
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
-    Public Shared Sub filltable2(Kennzeichen As String)
+    Public Shared Function filltable2(Kennzeichen As String) As Table
         Dim tbl As Table = New Table
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
         For Each l2 In list2
@@ -421,10 +421,11 @@ Partial Class LKWS
             tr.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
             tbl.Rows.Add(tr)
         Next
-    End Sub
+        Return tbl
+    End Function
     <WebMethod>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
-    Public Shared Sub filltable_M(Kennzeichen As String)
+    Public Shared Function filltable_M(Kennzeichen As String) As Table
 
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
         Dim Tbl As New Table
@@ -446,5 +447,6 @@ Partial Class LKWS
             tr_M.Attributes.Add("style", "background-color:#ff2500;color:#fff;font-weight:400;")
             Tbl.Rows.Add(tr_M)
         Next
-    End Sub
+        Return Tbl
+    End Function
 End Class