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

Änderungen

Browse Source
This commit is contained in:
ja
2022-01-14 08:16:15 +01:00
parent f716cfbc4e
commit 94dc89aa04
5 changed files with 1331 additions and 1546 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/WebService.vb
View File

@@ -1,5 +1,6 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports System.Web Imports System.Web
Imports System.Web.Script.Services
Imports System.Web.Services Imports System.Web.Services
Imports System.Web.Services.Protocols Imports System.Web.Services.Protocols
@@ -11,6 +12,8 @@ Imports System.Web.Services.Protocols
Public Class WebService Public Class WebService
Inherits System.Web.Services.WebService Inherits System.Web.Services.WebService
'################################################Autocompleter Aufträge.aspx#################################################################################################################################################################
<WebMethod()> <WebMethod()>
Public Function ShowLKWs(ByVal sLookUP As String) As List(Of String) Public Function ShowLKWs(ByVal sLookUP As String) As List(Of String)
Dim lstCountries As New List(Of String)() Dim lstCountries As New List(Of String)()
@@ -123,6 +126,7 @@ Public Class WebService
myConn.Close() : Return lstCountries myConn.Close() : Return lstCountries
End Function End Function
<WebMethod()> <WebMethod()>
Public Function ShowRENr(ByVal sLookUP As String) As List(Of String) Public Function ShowRENr(ByVal sLookUP As String) As List(Of String)
Dim lstCountries As New List(Of String)() Dim lstCountries As New List(Of String)()
@@ -151,4 +155,5 @@ Public Class WebService
myConn.Close() : Return lstCountries myConn.Close() : Return lstCountries
End Function End Function
End Class End Class

39
Customers/LKWs.aspx
View File

@@ -363,7 +363,7 @@
function doPostBack(id) { function doPostBack(id) {
let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>'); let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>');
let natplaceholder = document.getElementById('<%=lbl_Placeholder.ClientID%>'); let natplaceholder = document.getElementById('<%=lbl_Placeholder.ClientID%>');
alert(id) //alert(id)
let table = document.getElementById('<%=tablemain.ClientID%>'); let table = document.getElementById('<%=tablemain.ClientID%>');
var rowCount = table.rows.length; var rowCount = table.rows.length;
@@ -386,8 +386,6 @@
var data = {}; var data = {};
data['Kennzeichen'] = id.split(',')[0]; data['Kennzeichen'] = id.split(',')[0];
$.ajax({ $.ajax({
type: "POST", type: "POST",
url: "LKWs.aspx/filltable2", url: "LKWs.aspx/filltable2",
@@ -397,35 +395,32 @@
success: function (data) { success: function (data) {
result = data.d; result = data.d;
// addheader(); // 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>'; //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>';
let strHTML2 = '<tr width="140%"><td>1422151515155</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
let strHTML3 = '<tr><td>1422151515155</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
let strHTML4 = '<tr><td>1422151515155</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
alert('Horray! 200 status code!'); alert('Horray! 200 status code!');
// alert(result.rows.length) // alert(result.rows.length)
$(JSONObj).each(function () { $(result).each(function () {
let row = $(this)[0]; let row = $(this)[0];
strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>'; strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
alert(strHTML) $('#<%=tablemain.ClientID%>').append(strHTML);
}); });
$('#<%=tablemain.ClientID%>').html(strHTML); //alert(strHTML);
//$('#<%'=tablemain.ClientID%>').append(strheaderL);
$('#<%=tablemain.ClientID%>').append(strHTML4);
}, },
error: function (jqXHR, textStatus, errorThrown) { error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
} }
}); });
function OnSuccess(result) {
addheader();
alert('Horray! 200 status code!');
alert(result.rows.length)
for (let i = 0; i < result.rows.length; i++) {
let row = $('<tr><td>' + result.rows[i].SDL + '</td><td>' + result.rows[i].Bez + '</td><td>' + result.rows[i].DateGueltig + '</td><td>' + result.rows[i].KartNr + '</td></tr>');
alert(row)
}
}
//filltable2(id.split(',')[0]) //filltable2(id.split(',')[0])
} }
function doPostBack_M(id_M) { function doPostBack_M(id_M) {
let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder_M.ClientID%>'); let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder_M.ClientID%>');
let natplaceholder = document.getElementById('<%=lbl_Placeholder_M.ClientID%>'); let natplaceholder = document.getElementById('<%=lbl_Placeholder_M.ClientID%>');
alert(id_M) // alert(id_M)
let table_M = document.getElementById('<%=tbl_mainpage_M.ClientID%>'); let table_M = document.getElementById('<%=tbl_mainpage_M.ClientID%>');
let rowCount = table_M.rows.length; let rowCount = table_M.rows.length;
@@ -458,22 +453,22 @@
success: function (data_m) { success: function (data_m) {
result = data_m.d; result = data_m.d;
// addheader(); // 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>'; let strHeader_M = '<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>';
let strHTML = ''
alert('Horray! 200 status code!'); alert('Horray! 200 status code!');
$(result).each(function () { $(result).each(function () {
let row = $(this)[0]; let row = $(this)[0];
strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>'; 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); //alert(strHTML)
$('#<%=tablemain_m.ClientID%>').append(strHeader_M);
$('#<%=tablemain_m.ClientID%>').append(strHTML);
}, },
error: function (jqXHR, textStatus, errorThrown) { error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown); alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
} }
}); });
//filltable2(id.split(',')[0]) //filltable2(id.split(',')[0])
} }

69
Customers/LKWs.aspx.vb
View File

@@ -27,10 +27,10 @@ Partial Class LKWS
End If End If
End Sub End Sub
Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, ByVal e As System.EventArgs) Handles Me.Load
VERAG_VARIABLES.initerrorcount()
If Me.Page.User.Identity.IsAuthenticated Then If Me.Page.User.Identity.IsAuthenticated Then
Try Try
If String.Equals(Session.Item("CustomerID"), String.Empty) Then If String.Equals(Session.Item("CustomerID"), String.Empty) Then
Kdnrtext = Request.QueryString("P1") Kdnrtext = Request.QueryString("P1")
Else Else
@@ -76,7 +76,7 @@ Partial Class LKWS
tblhrow.Cells.Add(tblhc_Kz) tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblhc_Verm) tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Rows.Add(tblhrow) tbl_sidemenue.Rows.Add(tblhrow)
Dim strstrstrstretemparr As String = String.Empty 'Dim strstrstrstretemparr As String = String.Empty
'tbl_sidemenue.Rows.Clear() 'tbl_sidemenue.Rows.Clear()
'MsgBox("Test2") 'MsgBox("Test2")
For Each l1 In list For Each l1 In list
@@ -419,80 +419,39 @@ Partial Class LKWS
Private GueltigBis As String Private GueltigBis As String
Private Kartnr As String Private Kartnr As String
Public Property _SDLNr() As String
Get
Return SDLNr
End Get
Set(ByVal value As String)
SDLNr = value
End Set
End Property
Public Property _Bez As String
Get
Return Bez
End Get
Set(ByVal value As String)
Bez = value
End Set
End Property
Public Property _GueltigBis As String
Get
Return GueltigBis
End Get
Set(ByVal value As String)
GueltigBis = value
End Set
End Property
Public Property _KartenNr As String
Get
Return Kartnr
End Get
Set(ByVal value As String)
Kartnr = value
End Set
End Property
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String) Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
Me._SDLNr = SDL Me.SDLNr = SDL
Me._Bez = Bez Me.Bez = Bez
Me._GueltigBis = GueltigBis Me.GueltigBis = GueltigBis
Me._KartenNr = KartNr Me.Kartnr = KartNr
End Sub End Sub
End Class End Class
<WebMethod> <WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry) Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
Dim list As List(Of Entry) = New 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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
For Each l2 In list2 For Each l2 In list2
Dim Entrytemp As New Entry Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.GueltigBis = l2.GültigBis.ToString
Entrytemp.Kartnr = l2.KartenNr.ToString
list.Add(Entrytemp) list.Add(Entrytemp)
Next Next
Return list Return list
End Function End Function
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>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)> <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry) Public Shared Function filltable2_M(Kennzeichen As String) As List(Of Entry)
Dim list As List(Of Entry) = New 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 list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, Kennzeichen)
For Each l2 In list2 For Each l2 In list2
Dim Entrytemp As New Entry Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.Gueltigbis = l2.GültigBis.ToString
Entrytemp.KartNr = l2.KartenNr.ToString
list.Add(Entrytemp) list.Add(Entrytemp)
Next Next
Return list Return list
End Function End Function
End Class End Class

2752
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.vb
View File

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