edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
ja
2022-01-14 11:27:29 +01:00
parent 3e17f7a48a
commit 14bf8a50ae
4 changed files with 1354 additions and 1326 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Customers/LKWs.aspx.vb
View File

@@ -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)
For Each l2 In list2
Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
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 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

2602
VERAG_Homepage/{11EF0CDA-BC19-40FB-91C4-25C81F3A27AC}/CodeAnalysisLog.xml
View File

File diff suppressed because it is too large Load Diff

4
login/login_FLEX.aspx
View File

@@ -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>

8
login/login_FLEX.aspx.vb
View File

@@ -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