LKWs.aspx Daten kommen bis Tabelle aber Anzeige nicht erfolgreich.

Customers/LKWs.aspx.vb

@@ -427,14 +427,21 @@ Partial Class LKWS
             Me.Kartnr = KartNr
         End Sub
     End Class
+
     <WebMethod>
-    <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
+    <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
         Dim list As List(Of Entry) = New List(Of Entry)
-        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
+        Dim strtemp As String = Kennzeichen.Remove(0, 1)
-        For Each l2 In list2
+        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
-            Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
+        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
 
+        For Each l2 In list2
+            Dim strtemp2 As String = String.Empty
+            If IsNothing(l2.Kategorie) = False Then
+                strtemp2 = l2.Kategorie.ToString
+            End If
+            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
             list.Add(Entrytemp)
         Next
         Return list
@@ -444,14 +451,17 @@ Partial Class LKWS
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
         Dim list As List(Of Entry) = New List(Of Entry)
-        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
+        Dim strtemp As String = Kennzeichen.Remove(0, 1)
+        Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
+        Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
         For Each l2 In list2
-            Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
+            Dim strtemp2 As String = String.Empty
-
+            If IsNothing(l2.Kategorie) = False Then
+                strtemp2 = l2.Kategorie.ToString
+            End If
+            Dim Entrytemp As New Entry(l2.SDLNr.ToString, strtemp2, l2.GültigBis.ToString, l2.KartenNr.ToString)
             list.Add(Entrytemp)
         Next
         Return list
     End Function
-
-
 End Class

login/login_FLEX.aspx

@@ -441,6 +441,8 @@
                                  <tr style="color:#003680; height:16px">
                                       <td align="center" style="color:Red;width:400px" colspan="2">
                                            <asp:Literal ID="FailureText" runat="server" EnableViewState="False"></asp:Literal>
+                                          <!-- <asp:TextBox ID="txt_numbuserstest" runat="server"></asp:TextBox>-->
+                                          <asp:Button ID="btn_CreateTestusers" OnClick="CreateTestusers_Click" CausesValidation="false" runat="server" Text="Create Users"/>
                                            <asp:RegularExpressionValidator ID="check_UserName_regex" ControlToValidate="UserName" Font-Size="18px" ForeColor="Red" ValidationGroup="Login" runat="server" Display="Dynamic" SetFocusOnError="true" ErrorMessage="Username does not meet the requirements." ValidationExpression="^([a-zA-Z1-9]{4,30})$"></asp:RegularExpressionValidator>
                                            <asp:RegularExpressionValidator ID="valid_getNumberInput" ControlToValidate="txt_CustomerID" Font-Size="18px" ForeColor="Red" ValidationGroup="Login" runat="server" Display="Dynamic" SetFocusOnError="false" ErrorMessage="The Customer-ID is not valid." ValidationExpression="[0-9]{1,10}"></asp:RegularExpressionValidator>
                                       </td>
@@ -494,8 +496,6 @@
                                  </tr>
                                  <tr style="color:#003680; height:12px">
                                       <td align="center" style="width:295px" colspan="2">                                       
-                                         <!-- <asp:TextBox ID="txt_numbuserstest" runat="server"></asp:TextBox>
-                                          <asp:Button ID="CreateTestusers" OnClick="CreateTestusers_Click" CausesValidation="false" runat="server" Text="Create Users"/>-->
                                            <asp:Literal ID="FailureText_M" runat="server" EnableViewState="False"></asp:Literal>
                                            <asp:RegularExpressionValidator ID="check_UserName_M_regex" ControlToValidate="Username" ValidationGroup="Login_M" ForeColor="Red" Font-Size="18px" runat="server" style="margin-left:132px;color:red" Display="Dynamic" SetFocusOnError="true" ValidationExpression="^([a-zA-Z1-9]{4,30})$" ErrorMessage="Username does not meet the requirements." ></asp:RegularExpressionValidator>
                                            <asp:RegularExpressionValidator ID="valid_getNumber_M_Input" ControlToValidate="txt_CustomerID_M" ValidationGroup="Login_M" ForeColor="Red" Font-Size="18px" runat="server" style="margin-left:22px;" Display="Dynamic" SetFocusOnError="false" ValidationExpression="[0-9]{4,10}" ErrorMessage="The Customer-ID is not valid."></asp:RegularExpressionValidator>

login/login_FLEX.aspx.vb

@@ -10,9 +10,12 @@ Partial Class login_FLEX
     Private salt As Byte()
     Private intzahl As Integer
     Public intzahliterats As Integer = -1
-    Protected Async Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+    Protected Async Sub Page_Init(sender As Object, e As EventArgs) Handles Me.Init
         VERAG_VARIABLES.initerrorcount()
 
+    End Sub
+    Protected Async Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
         If Page.IsPostBack = True Then
             Page.MaintainScrollPositionOnPostBack = True
             intzahliterats = VERAG_VARIABLES.getiterationnumber
@@ -23,6 +26,8 @@ Partial Class login_FLEX
                 If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then
                     intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 7), Math.Pow(2, 11))
                     teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(2, Math.Pow(2, 10)))
+
+
                 Else
                     intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 10), Math.Pow(2, 17))
                     teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 5), Math.Pow(2, 10)))
@@ -39,6 +44,7 @@ Partial Class login_FLEX
                 sendmail("ja@verag.ag", Session.IsNewSession, VERAG_VARIABLES.geterrornumb)
             End Try
             Page.MaintainScrollPositionOnPostBack = False
+
         End If
     End Sub