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

47
Customers/LKWs.aspx
View File

@@ -363,7 +363,7 @@
function doPostBack(id) {
let Speditionslabel = document.getElementById('<%=lbl_sped_Placeholder.ClientID%>');
let natplaceholder = document.getElementById('<%=lbl_Placeholder.ClientID%>');
alert(id)
//alert(id)
let table = document.getElementById('<%=tablemain.ClientID%>');
var rowCount = table.rows.length;
@@ -384,9 +384,7 @@
// Pagemethods.filltable2(<%' =tbl_mainpage %> , SDL, Bez, Datguenstig, KartNr)
//}
var data = {};
data['Kennzeichen'] = id.split(',')[0];
data['Kennzeichen'] = id.split(',')[0];
$.ajax({
type: "POST",
@@ -397,35 +395,32 @@
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>';
//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(result.rows.length)
$(JSONObj).each(function () {
$(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.ClientID%>').append(strHTML);
});
$('#<%=tablemain.ClientID%>').html(strHTML);
//alert(strHTML);
//$('#<%'=tablemain.ClientID%>').append(strheaderL);
$('#<%=tablemain.ClientID%>').append(strHTML4);
},
error: function (jqXHR, textStatus, 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])
}
function doPostBack_M(id_M) {
let Speditionslabel = document.getElementById('<%=lbl_sped_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 rowCount = table_M.rows.length;
@@ -458,22 +453,22 @@
success: function (data_m) {
result = data_m.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>';
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!');
$(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)
strHTML += '<tr><td>' + row["SDL"] + '</td><td>' + row["Bez"] + '</td><td>' + row["Gueltigbis"] + '</td><td>' + row["KartNr"] + '</td></tr>';
});
$('#<%=tablemain_m.ClientID%>').html(strHTML);
//alert(strHTML)
$('#<%=tablemain_m.ClientID%>').append(strHeader_M);
$('#<%=tablemain_m.ClientID%>').append(strHTML);
},
error: function (jqXHR, textStatus, errorThrown) {
alert("Status:" + jqXHR.status + "\nStatusText: " + textStatus + "\nError:" + errorThrown);
}
});
}
});
//filltable2(id.split(',')[0])
}

69
Customers/LKWs.aspx.vb
View File

@@ -27,10 +27,10 @@ Partial Class LKWS
End If
End Sub
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
Try
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
Kdnrtext = Request.QueryString("P1")
Else
@@ -76,7 +76,7 @@ Partial Class LKWS
tblhrow.Cells.Add(tblhc_Kz)
tblhrow.Cells.Add(tblhc_Verm)
tbl_sidemenue.Rows.Add(tblhrow)
Dim strstrstrstretemparr As String = String.Empty
'Dim strstrstrstretemparr As String = String.Empty
'tbl_sidemenue.Rows.Clear()
'MsgBox("Test2")
For Each l1 In list
@@ -419,80 +419,39 @@ Partial Class LKWS
Private GueltigBis 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)
Me._SDLNr = SDL
Me._Bez = Bez
Me._GueltigBis = GueltigBis
Me._KartenNr = KartNr
Me.SDLNr = SDL
Me.Bez = Bez
Me.GueltigBis = GueltigBis
Me.Kartnr = KartNr
End Sub
End Class
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json)>
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
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.GueltigBis = l2.GültigBis.ToString
Entrytemp.Kartnr = l2.KartenNr.ToString
Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(Entrytemp)
Next
Return list
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>
<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)
For Each l2 In list2
Dim Entrytemp As New Entry
Entrytemp.SDL = l2.SDLNr.ToString
Entrytemp.Bez = l2.Kategorie.ToString
Entrytemp.Gueltigbis = l2.GültigBis.ToString
Entrytemp.KartNr = l2.KartenNr.ToString
Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
list.Add(Entrytemp)
Next
Return list
End Function
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
Try
Dim teststr = String.Empty
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)))
intzahliterats = VERAG_VARIABLES.RandomInteger(Math.Pow(2, 5), Math.Pow(2, 13))
teststr = Await TestPerformance.TestHashrateServerAsync(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 3), Math.Pow(2, 7)))
If String.Equals(teststr, String.Empty) = False Then
intzahliterats = VERAG_VARIABLES.getiterationnumber
End If