Änderungen AJAX Calls sowie Loginladezeit durcj Erhöhung der Iterationen erhöht sowie dadurch die Sicherheit

This commit is contained in:
ja
2022-01-12 15:26:39 +01:00
parent 04378bf7cc
commit f9ecb1602a
5 changed files with 1669 additions and 1616 deletions

View File

@@ -518,7 +518,7 @@
<%If Me.Page.User.Identity.Name = "test" Then %>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>
<%ElseIf Me.Page.User.Identity.Name = "test2" Then%>
<a type="button" class="btn btn-primary" href="LKWs.aspx">LKWs</a>
<a type="button" class="btn btn-primary" href="LKWs.aspx?P1=<%Response.Write(CustomerID) %>">LKWs</a>
<%ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>
<%ElseIf Me.Page.User.Identity.Name = "Userwithlongername" Then%>
@@ -577,6 +577,28 @@
<a class="dropdown-item" href="#">Separated link</a>
</div>-->
</div>
<div class="btn-group">
<!-- <%'If Me.Page.User.Identity.Name = "test" Then %>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>
<%'ElseIf Me.Page.User.Identity.Name = "test2" Then%>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>-->
<!-- <%'ElseIf Me.Page.User.Identity.Name = "userwithlongername" Then%>
<a type="button" class="btn btn-primary" href="Welcome.aspx">Startseite</a>-->
<%If Me.Page.User.Identity.Name = "Userwithlongername" Then%>
<a type="button" class="btn btn-primary" href="LKWs.aspx?P1=<%Response.Write(CustomerID) %>">LKWs</a>
<% End If %>
<!-- <button type="button" class="btn btn-danger dropdown-toggle dropdown-toggle-split" data-toggle="dropdown" aria-haspopup="true" aria-expanded="false" style="background-color:#fff; color:#043381;border:hidden;">
<span class="visually-hidden">Toggle Dropdown</span>
</button>-->
<!-- <div class="dropdown-menu">
<a class="dropdown-item" href="#">Action</a>
<a class="dropdown-item" href="#">Another action</a>
<a class="dropdown-item" href="#">Something else here</a>
<div class="dropdown-divider"></div>
<a class="dropdown-item" href="#">Separated link</a>
</div>-->
</div>
</div>
<div class="dropdown" id="dropdownbtnmain" style="background-color:#fff; color:#043381;position:absolute;top:14%;right:70px;z-index:1032;width:155px">

View File

@@ -58,13 +58,13 @@
<div class="col-2">
<asp:Button runat="server" Text="Alle" ClientIDMode="Predictable" ID="btn_alle" OnClick="btn_alle_Click" style="margin-left:-30px;width:56px"/></div>
</div>
<div style="height:5px"></div>
<div style="height: 0.313em/*5px*/"></div>
<div class="row">
<div class="col-12">Kennzeichen:
<asp:TextBox ID ="txt_lkw" runat="server" Width="110px" style="margin-left:25px"></asp:TextBox>
<asp:Button ID="btn_Suchen" ClientIDMode="Static" OnClick="btn_Suchen_Click" runat="server" Text="Suchen" style="margin-left:5px"/> </div>
<div class="col-9">
<div class="col-9"style="height:10px;"></div>
<div class="col-9" style="height: 0.625em/*10px*/;"></div>
<div class="flex-col-9">
<asp:Table ID="tbl_sidemenue" ClientIDMode="Static" runat="server" CssClass="table table-striped" style="width:310px;margin-left:-32px;cursor:default">
<asp:TableHeaderRow style="background-color:#043381;color:#fff;font-size:0.86em"><asp:TableHeaderCell ID="tbhc_KFZKennz">KFZ-Kennzeichen</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Nat">Nat.</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Verk">Verk</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Kz">KZ-An</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Verm">Vermerk</asp:TableHeaderCell></asp:TableHeaderRow>
@@ -83,26 +83,33 @@
<div class="col-12">
<asp:Label ID="lbl_SDL" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen:</asp:Label>
</div>
<div class="col-12"style="height:10px;"></div>
<div class="col-12" style="height: 0.625em;"></div>
<div id="conovertab" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-y:auto;">
<!-- <asp:Table ID="tbl_mainpage" ClientIDMode="Static" runat="server" Width="100%" style="background-color:#fff;overflow-y:auto;" CssClass="table table-striped col-12">
<asp:TableHeaderRow ID="headrow1" runat="server" style="background-color:#043381;color:#fff;height:10px"><asp:TableHeaderCell ID="tblhc_SDLNr">SDL-Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>-->
<table id="tablemain" runat="server" class="col-12">
<tr style="background-color: #043381; color: #fff">
<th style="text-align: center">
<td style="font-weight: 600; color: white; text-align: center">SDL</td>
<thead>
<tr style="background-color: #043381; color: #fff;height:23px">
<th style="text-align: center; height: 23px">
<td style="font-weight: 600; color: white">SDL</td>
</th>
<th style="text-align: center">
<td style="font-weight: 600; color: white; text-align: center">Bezeichnung</td>
<th style="text-align: center; height: 23px">
<td style="font-weight: 600; color: white; text-align: center;">Bezeichnung</td>
</th>
<th style="text-align: center">
<th style="text-align: center; height: 23px">
<td style="font-weight: 600; color: white; text-align: center">Gültig bis</td>
</th>
<th style="text-align: center">
<th style="text-align: center; height: 23px">
<td style="font-weight: 600; color: white; text-align: center">Kartennummer</td>
</th>
</tr>
</thead>
<tbody>
<tr>
<td colspan="5" class="dataTables_empty">Lade Daten mittels Klicken</td>
</tr>
</tbody>
</table>
</div>
</div>
@@ -115,21 +122,20 @@
<div class="col-12">
<asp:Button ID="btn_alle_M" runat="server" CssClass="btn btn-primary" ClientIDMode="Predictable" OnClick="btn_alle_M_Click" style="margin-left:-24px; width:76px" Text="Alle" />
</div>
<div style="height:20px"></div>
<div style="height: 1.25em/*20px*/"></div>
<div class="row" style="margin-left:-30px">
<div class="col-12">Kennzeichen:<asp:TextBox runat="server" ID="txt_LKWNr_M" Width="120px" style="margin-left:4px"></asp:TextBox>
<asp:Button ID="btn_Suchen_M" OnClick="btn_Suchen_M_Click" runat="server" CssClass="btn btn-primary" Text="Suchen" style="margin-left:0px" /></div>
</div>
<div style="height:12px"></div>
<div style="height:17px"></div>
<div style="height: 0.75em /*12px*/"></div>
<div style="height: 1.063em/*17px*/"></div>
<div class="col-12-flex">
<asp:Table ID="tbl_2" runat="server" ClientIDMode="Static">
<asp:TableHeaderRow style="background-color:#043381;color:#fff" runat="server"><asp:TableHeaderCell ID="tbhc_KFZKennz_M">KFZ_Kennzeichen</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Nat_M">Nat.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Verk_M">Verk.</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_KZ_An_M">KZ-An</asp:TableHeaderCell><asp:TableHeaderCell ID="tbhc_Verm_M">Vermerke</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>
</div>
</div>
<div style="height:22px"></div>
<div style="height: 1.375em/*22px*/"></div>
<div class="col-12">
<div class="col-12">
<asp:Image runat="server" ClientIDMode="AutoID" ID="Img_Text1_M" ImageUrl="~/images/Icons/Aviso.png" style="width:56px;height:56px" />
@@ -141,26 +147,33 @@
<div class="col-12">
<asp:Label ID="lbl_SDL_M" runat="server" Font-Size="1.331em" style="color:#043381;font-weight:500">SDL-Leistungen</asp:Label>
</div>
<div class="col-12" style="height:15px"></div>
<div class="col-12" style="height: 0.938em"></div>
<div id="conovertab_M" class="col-12" style="margin-left:-10px;background-color:#fff;overflow-x:auto">
<!-- <asp:Table ID="tbl_mainpage_M" ClientIDMode="Static" runat="server" Width="100%" CssClass="table table-striped col-12">
<asp:TableHeaderRow runat="server" ID="headrow_M" style="background-color:#043381;color:#fff"><asp:TableHeaderCell ID="tblhc_SDLNr_M">SDL_Nr</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_Bez_M">Bezeichnung</asp:TableHeaderCell><asp:TableHeaderCell ID="tbl_gueltig_M">Gültig Bis</asp:TableHeaderCell><asp:TableHeaderCell ID="tblhc_KarteNr_M">Karten-Nummer</asp:TableHeaderCell></asp:TableHeaderRow>
</asp:Table>-->
<table id="tablemain_m" runat="server" class="col-12">
<tr style="background-color:#043381;color:#fff">
<th style="text-align:center">
<td style="font-weight: 600;color:white">SDL</td>
<thead>
<tr style="background-color: #043381; color: #fff; height: 1.375em/*22.4px*/">
<th style="text-align: center; height: 1.375em/*22.4px*/">
<td style="font-weight: 500;color:white">SDL</td>
</th>
<th style="text-align: center">
<td style="font-weight: 600; color: white; text-align: center">Bezeichnung</td>
<th style="text-align: center; height: 1.375em/*22.4px*/">
<td style="font-weight: 500; color: white; text-align: center">Bezeichnung</td>
</th>
<th style="text-align: center">
<td style="font-weight: 600; color: white; text-align: center">Gültig bis</td>
<th style="text-align: center; height: 1.375em/*22.4px*/">
<td style="font-weight: 500; color: white; text-align: center">Gültig bis</td>
</th>
<th style="text-align: center">
<td style="font-weight: 600; color: white; text-align: center">Kartennummer</td>
<th style="text-align: center; height: 1.375em/*22.4px*/">
<td style="font-weight: 500; color: white; text-align: center">Kartennummer</td>
</th>
</tr>
</thead>
<tbody>
<tr>
<td colspan="12" class="dataTables_empty">Lade Daten mittels Klicken</td>
</tr>
</tbody>
</table>
</div>
</div>
@@ -230,7 +243,6 @@
}
addNewRow_M();
}
function buildtable_M(n, SDL,Bez, Dtguelt, KartNr) {
let table_M = document.getElementById("<%=tbl_mainpage_M.ClientID%>");
addheader_M();
@@ -238,7 +250,6 @@
addNewRow_M(SDL, Bez, Dtguelt, KartNr);
}
}
function addheader() {
let table = document.getElementById("<%=tbl_mainpage.ClientID%>");
let tr = table.insertRow(-1);
@@ -248,21 +259,26 @@
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Bezeichnung";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Gültig Bis";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Karten-Nummer";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
tr.style.height = "16px";
}
function addheader_M() {
let table = document.getElementById("<%=tbl_mainpage_M.ClientID%>");
@@ -272,21 +288,26 @@
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Bezeichnung";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Gültig Bis";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
td = tr.insertCell();
td.innerHTML = "Karten-Nummer";
td.style.backgroundColor = "#043381";
td.style.color = "#fff";
td.style.fontWeight = 'bold';
td.style.height = "16px";
tr.style.height = "16px";
}
function addNewRow(SDL, Bez, gueltigbs,Kartnr) {
let table = document.getElementById("<%=tbl_mainpage.ClientID%>");
@@ -342,7 +363,7 @@
<script type="text/javascript">
function renderTable(result) {
var dtData = [];
let dtData = [];
// Data tables requires all data to be stuffed into a generic jagged array, so loop through our
// typed object and create one.
$.each(result, function () {
@@ -354,17 +375,17 @@
]);
});
$('#<%=tablemain.ClientID%>').dataTable({
$('<%=tablemain.ClientID%>').dataTable({
'aaData': dtData,
"bJQueryUI": true
});
}
function renderTable_M(result_M) {
var dtData = [];
let dtData_M = [];
// Data tables requires all data to be stuffed into a generic jagged array, so loop through our
// typed object and create one.
$.each(result_M, function () {
dtData.push([
dtData_M.push([
this.SDLNr,
this.Bez,
this.Gueltigbis,
@@ -372,11 +393,12 @@
]);
});
$('#<%=tablemain_m.ClientID%>').dataTable({
'aaData': dtData,
"bJQueryUI": true
$("<%=tablemain_m.ClientID%>").dataTable({
'aaData': dtData
});
}
function doPostBack(id) {
let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>');
let natplaceholder = document.getElementById('<%=lbl_Placeholder.ClientID%>');
@@ -409,19 +431,13 @@
url: "LKWs.aspx/filltable2",
contentType: "application/json; charset=utf-8",
dataType: "json",
async: "false",
data: JSON.stringify(data),
success: function (data) {
success: function (response) {
let JSONObj = data.d;
// addheader();
//let strHTML = '<tr style="background-color:#043381;color:#fff"><th><td style="font-weight:600; color:white">SDL-Nr</td></th><th><td style="font-weight:600; color:white">Bezeichnung</td></th><th><td style="font-weight:600; color:white">Gueltig bis</td></th><th><td style="font-weight:600; color:white">Karten-Nummer</td></th></tr>';
alert('Horray! 200 status code!');
// alert(result.rows.length)
//$(JSONObj).each(function () {
// let row = $(this)[0];
// strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
// alert(strHTML)
// });
// $('#<%'=tablemain.ClientID%>').html(strHTML);
renderTable(JSONObj)
},
error: function (jqXHR, textStatus, errorThrown) {
@@ -459,20 +475,14 @@
url: "LKWs.aspx/filltable2_M",
contentType: "application/json; charset=utf-8",
dataType: "json",
async: "false",
data: JSON.stringify(data),
success: function (data) {
result = data.d;
// addheader();
//let strHTML = '<tr style="background-color:#043381;color:#fff"><th><td style="font-weight:600; color:white">SDL-Nr</td></th><th><td style="font-weight:600; color:white">Bezeichnung</td></th><th><td style="font-weight:600; color:white">Gueltig bis</td></th><th><td style="font-weight:600; color:white">Karten-Nummer</td></th></tr>';
result_M = data.d;
alert('Horray! 200 status code!');
//$(result).each(function () {
// let row = $(this)[0];
// strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
// alert(strHTML)
//});
//$('#<%'=tablemain_m.ClientID%>').html(strHTML);
renderTable_M(result);
renderTable_M(result_M);
},
error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
@@ -480,5 +490,6 @@
});
//filltable2(id.split(',')[0])
}
</script>
</asp:Content>

View File

@@ -9,7 +9,7 @@ Imports System.Web.UI.WebControls
Partial Class LKWS
Inherits System.Web.UI.Page
Dim Kdnrtext As String = String.Empty
Shared Kdnrtext As String = String.Empty
Dim list As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
Dim list_M As Collections.Generic.List(Of VERAG_PROG_ALLGEMEIN.cSDL_LKW) = Nothing
Dim tbl2mainpagetemp As Table
@@ -31,7 +31,12 @@ Partial Class LKWS
If Me.Page.User.Identity.IsAuthenticated Then
Try
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
Kdnrtext = Request.QueryString("P1")
Else
Kdnrtext = Session.Item("CustomerID")
End If
Catch A As UnauthorizedAccessException When String.IsNullOrEmpty(Session.Item("CustomerID"))
FormsAuthentication.RedirectToLoginPage()
'MsgBox("Dieser Bereich ist nicht gestattet! Ein Fehler ist bei der Validierung der ID aufgetreten! Bitte erneut versuchen!", MsgBoxStyle.Information, "Error in User Area!")
@@ -45,6 +50,13 @@ Partial Class LKWS
Page.MaintainScrollPositionOnPostBack = False
End If
End Sub
Public Function getkdnr() As String
If String.Equals(HttpContext.Current.Session.Item("CustomerID").ToString, "") = False Then
Return HttpContext.Current.Session.Item("CustomerID").ToString
Else
Return Kdnrtext
End If
End Function
Protected Sub btn_alle_Click(sender As Object, e As EventArgs)
@@ -56,7 +68,7 @@ Partial Class LKWS
Dim cnt As Integer = 0
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")))
list = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(Kdnrtext))
Dim tblhrow As TableHeaderRow = New TableHeaderRow
tblhrow.Cells.Add(tbhc_KFZKennz)
tblhrow.Cells.Add(tbhc_Nat)
@@ -126,7 +138,7 @@ Partial Class LKWS
Dim strtemparr As String = String.Empty
Dim strtemp2 As String = String.Empty
Dim strarrtemp = String.Empty
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")), l1.KfzKennzeichen)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), l1.KfzKennzeichen)
Dim stringtemtr As String = String.Empty
Dim tr As TableRow = New TableRow
Dim list3 As List(Of String) = New List(Of String)
@@ -168,7 +180,7 @@ Partial Class LKWS
strtemp2 = l1.Nationalität
End If
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """')")
tr1.Attributes.Add("onclick", "Javascript:doPostBack('""" + tr1.Cells.Item(0).Text + """,""" + strtemp2 + """,""" + Kdnrtext + """')")
cnt += 1
tbl_sidemenue.Rows.Add(tr1)
Next
@@ -268,7 +280,7 @@ Partial Class LKWS
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
End If
tbl_2.Rows.Clear()
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")))
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(getkdnr))
Dim cnt As Integer = 0
headrow_M.Cells.Add(tbhc_KFZKennz_M)
@@ -329,7 +341,7 @@ Partial Class LKWS
tbl_mainpage_M.Rows.Clear()
Dim cnt As Integer = 0
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")))
list_M = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(Integer.Parse(Kdnrtext))
Dim tblhrow_M As TableHeaderRow = New TableHeaderRow
tblhrow_M.Cells.Add(tbhc_KFZKennz_M)
@@ -394,18 +406,22 @@ Partial Class LKWS
strtemp2 = l3.Nationalität
End If
tbl_mainpage_M.Rows.Clear()
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """')")
tr1_M.Attributes.Add("onclick", "Javascript:doPostBack_M('""" & tr1_M.Cells.Item(0).Text & """,""" & strtemp2 & """,""" & Kdnrtext & """')")
cnt += 1
tbl_2.Rows.Add(tr1_M)
Next
End Sub
<WebMethod>
<WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
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)
MsgBox(Kdnrtext + vbCr + strtemp3)
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(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")), Kennzeichen)
If list2.Count >= 1 Then
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
If list2.Count > 0 Then
For Each l2 In list2
Dim Entrytemp As New Entry
Entrytemp.SDL = l2.SDLNr.ToString
@@ -424,18 +440,24 @@ Partial Class LKWS
End If
Return list
End Function
<Serializable>
Public Class Entry
Public SDL As String = String.Empty
Public Bez As String = String.Empty
Public Gueltigbis As String = String.Empty
Public KartNr As String = String.Empty
End Class
<WebMethod>
<WebMethod(BufferResponse:=True, CacheDuration:=2400, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.Supported)>
<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)
Dim strtemp3 As String = strtemp2.Remove(0, 1)
MsgBox(Kdnrtext + vbCr + strtemp3)
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(Integer.Parse(HttpContext.Current.Session.Item("CustomerID")), Kennzeichen)
If list2.Count >= 1 Then
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
If list2.Count > 0 Then
For Each l2 In list2
Dim Entrytemp As New Entry
Entrytemp.SDL = l2.SDLNr.ToString

View File

@@ -19,8 +19,8 @@ Partial Class login_FLEX
Else
Try
Dim teststr = String.Empty
intzahliterats = VERAG_VARIABLES.RandomInteger(2, Math.Pow(2, 7))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(2, Math.Pow(2, 7)))
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 2), Math.Pow(2, 7))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 2), Math.Pow(2, 7)))
If String.Equals(teststr, String.Empty) = False Then
intzahliterats = VERAG_VARIABLES.getiterationnumber
End If