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

Iframes bekommen Ladenachricht, dass User nicht versehentlich nerulädt.

Browse Source
This commit is contained in:
ja
2022-01-28 16:10:33 +01:00
parent da01fd2e8b
commit 6522bb2f40
14 changed files with 3906 additions and 3863 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Customers/SDL/Formtemplate IDS Tankkarte.aspx
View File

@@ -132,12 +132,12 @@
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id, CardNumber) {
function detailtabelle(id, CardNo) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber
data['CardNo'] = CardNo;
$.ajax({
type: "POST",
@@ -155,7 +155,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (CardNumber == result[i]["7"]) {
if (CardNo == result[i]["2"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=Txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

6
Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, CardNumber As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, CardNo As String) As FormattedList
Dim list As List(Of String) = New List(Of String)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If l2.KartenNr = CardNumber Then
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -138,7 +138,7 @@ Partial Class Customers_Default3
list.Add(strtempGueltigBis)
list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
End If

5
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx
View File

@@ -151,11 +151,12 @@
detailtabelle(param1,param2)
alert(param2)
function detailtabelle(id,kennzeichen) {
function detailtabelle(id,cardnumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = cardnumber;
$.ajax({
type: "POST",
@@ -173,7 +174,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (kennzeichen == result[i]["6"]) {
if (cardnumber == result[i]["2"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kartennr.ClientID%>').setAttribute('value', result[i]["2"]);

131
Customers/SDL/MAUT/Formtemplate IT_Plose.aspx.vb
View File

@@ -74,76 +74,83 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, kartenummer As String) As FormattedList
Dim list As List(Of String) = New List(Of String)
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempErsatztelepass As String = String.Empty
Dim strtempVIACARD As String = String.Empty
If l2.KartenNr = kartenummer Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
Dim strtempGestohlen As String = String.Empty
Dim strtempGesperrt As String = String.Empty
Dim strtempDefekt As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempErsatztelepass As String = String.Empty
Dim strtempVIACARD As String = String.Empty
Dim strtempKartenNummer As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString
End If
If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatztelepass = l2.TelepassErsatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Verloren.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.VIACARD) = False Then
strtempVIACARD = l2.VIACARD.ToString
End If
If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempErsatztelepass = l2.TelepassErsatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Verloren.ToString
End If
If IsNothing(l2.Gesperrt) = False Then
strtempGesperrt = l2.Gesperrt.ToString
End If
If IsNothing(l2.Defekt) = False Then
strtempDefekt = l2.Defekt.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNummer = l2.KartenNr.ToString
End If
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk)
list.Add(strtempErsatztelepass)
list.Add(strtempRetourniert)
list.Add(strtempVermerk)
list.Add(l2.KfzKennzeichen)
list.Add(strtempKartenNummer)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
End If
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk)
list.Add(strtempErsatztelepass)
list.Add(strtempRetourniert)
list.Add(strtempVermerk)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
Next
HttpContext.Current.Response.ContentType = "application/json"

8
Customers/SDL/MAUT/Formtemplate MAUT IT.aspx
View File

@@ -172,8 +172,7 @@
success: function (data) {
//alert(data.d.AaData)
result = data.d.AaData;
//addheader();
//addheader();
for (var i = 0; i < result.length; i++) {
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
@@ -185,9 +184,8 @@
document.getElementById('<%=txt_TelepassNr.ClientID%>').setAttribute('value', result[i]["3"]);
document.getElementById('<%=txt_Vermerk.ClientID%>').setAttribute('value', result[i]["4"]);
document.getElementById('<%=ckb_ErsatztelePass.ClientID%>').setAttribute('checked', result[i]["5"]);
document.getElementById('<%=ckb_retourniert.ClientID%>').setAttribute('checked', result[i]["6"]);
}
document.getElementById('<%=ckb_retourniert.ClientID%>').setAttribute('checked', result[i]["6"]);
}
}
//renderTable(data.d);
//alert(strHTML);

7
Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb
View File

@@ -84,6 +84,7 @@ Partial Class Customers_Default3
Dim strtempLieferdatum As String = String.Empty
Dim strtempVIACARD As String = String.Empty
Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempTELEPASSErsatz As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempRetourniert As String = String.Empty
Dim strtempVerloren As String = String.Empty
@@ -104,6 +105,9 @@ Partial Class Customers_Default3
If IsNothing(l2.TELEPASS_Nr) = False Then
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
End If
If IsNothing(l2.TelepassErsatzkarte) = False Then
strtempTELEPASSErsatz = l2.TelepassErsatzkarte.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
@@ -131,8 +135,9 @@ Partial Class Customers_Default3
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk)
list.Add(strtempTELEPASSErsatz)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then

2
Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx
View File

@@ -162,7 +162,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (Cardnummer == result[i]["5"]) {
if (Cardnummer == result[i]["2"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

2
Customers/SDL/MAUT/Formtemplate Maut_PL.aspx
View File

@@ -166,7 +166,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (CardNumber == result[i]["7"]) {
if (CardNumber == result[i]["2"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartenNr.ClientID%>').setAttribute('value', result[i]["2"]);

2
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx
View File

@@ -160,7 +160,7 @@
//let strHTML4 = '<tr><td>878465464634</td><td>DIESEL</td><td>12/05/2026</td><td>151515313521351</td></tr>'
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (Cardnummer == result[i]["7"]) {
if (Cardnummer == result[i]["2"]) {
document.getElementById('<%=txt_BestellDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_KartNr.ClientID%>').setAttribute('value', result[i]["2"]);

2
Customers/SDL/MAUT/Formtemplate UTA Karte.aspx.vb
View File

@@ -78,7 +78,7 @@ Partial Class Customers_Default3
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
If String.Equals(CardNo, l2.KartenNr.ToString) = True Then
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty