Änderungen LKWs

Customers/LKWs.aspx

@@ -107,7 +107,7 @@
                                     </thead>
                                     <tbody>
                                         <tr>
-                                            <td colspan="5" class="dataTables_empty">Lade Daten mittels Klicken</td>
+                                            <td colspan="5" class="dataTables_empty">Lade Daten mittels Klicken auf einen der beiden linken Knöpfe.</td>
                                         </tr>
                                     </tbody>
                                 </table>
@@ -171,7 +171,7 @@
                                                  </thead>
                                                 <tbody>
                                                     <tr>
-                                                        <td colspan="12" class="dataTables_empty">Lade Daten mittels Klicken</td>
+                                                        <td colspan="12" class="dataTables_empty">Lade Daten mittels Klicken auf einen der beiden linken Knöpfe.</td>
                                                     </tr>
                                                 </tbody>
                                             </table>
@@ -362,6 +362,42 @@
     </script>
     
     <script type="text/javascript">     
+        $("<%=tablemain.ClientID%>").dataTable({
+            "bJQueryUI": true,
+            "sPaginationType": "full_numbers",
+            "bServerSide": true,
+            "sAjaxSource": "LKWs.aspx/filltable2",
+            "fnServerData": function (sSource, aoData, fnCallback) {
+                $.ajax({
+                    "type": "POST",
+                    "dataType": 'json',
+                    "contentType": "application/json; charset=utf-8",
+                    "url": sSource,
+                    "data": "{'sEcho': '" + aoData[0].value + "'}",
+                    "success": function (msg) {
+                        fnCallback(msg.d);
+                    }
+                });
+            }
+        });
+        $("<%=tablemain_m.ClientID%>").dataTable({
+            "bJQueryUI": true,
+            "sPaginationType": "full_numbers",
+            "bServerSide": true,
+            "sAjaxSource": "LKWs.aspx/filltable2_M",
+            "fnServerData": function (sSource, aoData, fnCallback) {
+                $.ajax({
+                    "type": "POST",
+                    "dataType": 'json',
+                    "contentType": "application/json; charset=utf-8",
+                    "url": sSource,
+                    "data": "{'sEcho': '" + aoData[0].value + "'}",
+                    "success": function (msg) {
+                        fnCallback(msg.d);
+                    }
+                });
+            }
+        });
             function renderTable(result) {
                 let dtData = [];
                 // Data tables requires all data to be stuffed into a generic jagged array, so loop through our

Customers/LKWs.aspx.vb

@@ -412,8 +412,8 @@ Partial Class LKWS
         Next
     End Sub
 
-    <WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
-    <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
+    <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
+    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
         Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)
         Dim strtemp3 As String = strtemp2.Remove(0, 1)
@@ -431,12 +431,13 @@ Partial Class LKWS
                 list.Add(Entrytemp)
             Next
         ElseIf list2.Count = 0 Then
-            Dim Entrytempempty As New Entry
-            Entrytempempty.SDL = "Keine"
-            Entrytempempty.Bez = "Daten"
-            Entrytempempty.Gueltigbis = "gefunden!"
-            Entrytempempty.KartNr = String.Empty
-            list.Add(Entrytempempty)
+             Dim Entrytemp As New Entry
+
+            Entrytemp.SDL = "Keine"
+            Entrytemp.Bez = "Daten"
+            Entrytemp.Gueltigbis = "gefunden!"
+            Entrytemp.KartNr = String.Empty
+            list.Add(Entrytemp)
         End If
         Return list
     End Function
@@ -448,7 +449,7 @@ Partial Class LKWS
         Public KartNr As String = String.Empty
     End Class
 
-    <WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
+    <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
         Dim strtemp2 As String = Kennzeichen.Remove(Kennzeichen.Length - 1, 1)