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

Änderung dass nach Kartennummern sortiert wird und die Dropdown-Detail-Panels sich dementsprechend aufbauen.

Browse Source
This commit is contained in:
ja
2022-01-28 14:26:29 +01:00
parent 7b6c2a2ce1
commit da01fd2e8b
34 changed files with 4962 additions and 4879 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Customers/SDL/Formtemplate EcoTAX.aspx
View File

@@ -152,16 +152,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
@@ -179,7 +181,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 (id == result[i]["8"]) {
if (CardNumber == result[i]["8"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

122
Customers/SDL/Formtemplate EcoTAX.aspx.vb
View File

@@ -72,72 +72,74 @@ 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, cardNumber 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 strtempPanNr As String = String.Empty
Dim strtempSerieNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If l2.KartenNr = cardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempPanNr As String = String.Empty
Dim strtempSerieNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.PAN_Nr) = False Then
strtempPanNr = l2.PAN_Nr.ToString
End If
If IsNothing(l2.SERIE_Nr) = False Then
strtempSerieNr = l2.SERIE_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempretourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.PAN_Nr) = False Then
strtempPanNr = l2.PAN_Nr.ToString
End If
If IsNothing(l2.SERIE_Nr) = False Then
strtempSerieNr = l2.SERIE_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempretourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' List_m.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(strtempPanNr)
list.Add(strtempSerieNr)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
' List_m.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(strtempPanNr)
list.Add(strtempSerieNr)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
End If
End If
Next

8
Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx
View File

@@ -132,16 +132,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
detailtabelle(param1,param2);
alert(param1)
function detailtabelle(id) {
function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
@@ -159,7 +161,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 (id == result[i]["6"]) {
if (CardNumber == result[i]["6"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_LieferDatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_FresjusNr.ClientID%>').setAttribute('value', result[i]["2"]);

112
Customers/SDL/Formtemplate FRESJUS_Tunnelkarte.aspx.vb
View File

@@ -73,67 +73,69 @@ 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, CardNumber 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 strtempFREJUSCrdNr As String = String.Empty
Dim strtempEcoClass As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzKarte 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
If l2.KartenNr = CardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempFREJUSCrdNr As String = String.Empty
Dim strtempEcoClass As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzKarte 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString
End If
If IsNothing(l2.ECO) = False Then
strtempEcoClass = l2.ECO.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString
End If
If IsNothing(l2.ECO) = False Then
strtempEcoClass = l2.ECO.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' List_m.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(strtempFREJUSCrdNr)
list.Add(strtempEcoClass)
list.Add(strtempVermerk)
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
listdetails.Add(list)
' List_m.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(strtempFREJUSCrdNr)
list.Add(strtempEcoClass)
list.Add(strtempVermerk)
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
listdetails.Add(list)
End If
End If
Next

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

@@ -126,16 +126,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber
$.ajax({
type: "POST",
@@ -153,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 (id == result[i]["7"]) {
if (CardNumber == result[i]["7"]) {
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"]);

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

@@ -73,72 +73,74 @@ 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, CardNumber 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 strtempKartenNr As String = String.Empty
Dim strtempPin As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis As String = String.Empty
Dim strtempErsatzKarte 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
If l2.KartenNr = CardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPin As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis As String = String.Empty
Dim strtempErsatzKarte 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPin = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPin = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzKarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' List_m.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(strtempKartenNr)
list.Add(strtempPin)
list.Add(strtempVermerk)
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
listdetails.Add(list)
' List_m.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(strtempKartenNr)
list.Add(strtempPin)
list.Add(strtempVermerk)
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
listdetails.Add(list)
End If
End If
Next

12
Customers/SDL/Formtemplate MAN Abgaspalette.aspx
View File

@@ -106,16 +106,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNo) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['Kennzeichen'] = id;
data['CardNo'] = CardNo;
$.ajax({
type: "POST",
@@ -133,7 +135,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 (id == result[i]["7"]) {
if (CardNo == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Vermerk.ClientID%>').setAttribute('value', result[i]["2"]);

51
Customers/SDL/Formtemplate MAN Abgaspalette.aspx.vb
View File

@@ -71,40 +71,41 @@ 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, 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
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempArchivt As String = String.Empty
Dim strtempArchivt As String = String.Empty
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.ToString
End If
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Archiviert) = False Then
strtempArchivt = l2.Archiviert.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(strtempVermerk)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list)
' 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(strtempVermerk)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails.Add(list)
End If
End If
Next
HttpContext.Current.Response.ContentType = "application/json"
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
End Function

9
Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx
View File

@@ -152,12 +152,13 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1, CardNumber)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id)
let data = {};
@@ -179,7 +180,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 (id == result[i]["7"]) {
if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_PANNr.ClientID%>').setAttribute('value', result[i]["2"]);

122
Customers/SDL/Formtemplate MultiBox_EcoTAX.aspx.vb
View File

@@ -74,72 +74,74 @@ 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, KartenNummer 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 strtempPAN_Nr As String = String.Empty
Dim strtempSERIE_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If l2.CARD_Nr.ToString = KartenNummer Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempPAN_Nr As String = String.Empty
Dim strtempSERIE_Nr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.PAN_Nr) = False Then
strtempPAN_Nr = l2.PAN_Nr.ToString
End If
If IsNothing(l2.SERIE_Nr) = False Then
strtempSERIE_Nr = l2.SERIE_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.PAN_Nr) = False Then
strtempPAN_Nr = l2.PAN_Nr.ToString
End If
If IsNothing(l2.SERIE_Nr) = False Then
strtempSERIE_Nr = l2.SERIE_Nr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(strtempPAN_Nr)
list.Add(strtempSERIE_Nr)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
' 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(strtempPAN_Nr)
list.Add(strtempSERIE_Nr)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
End If
End If
Next

10
Customers/SDL/Formtemplate Plose.aspx
View File

@@ -143,16 +143,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1, param2)
// alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
@@ -170,7 +172,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 (id == result[i]["6"]) {
if (CardNumber == result[i]["6"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txtOBU_Id.ClientID%>').setAttribute('value', result[i]["2"]);

122
Customers/SDL/Formtemplate Plose.aspx.vb
View File

@@ -73,72 +73,74 @@ 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, 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
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzTelePass 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
If l2.KartenNr = Cardno Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzTelePass 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.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.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.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.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(strtempOBUID)
list.Add(strtempPIN)
list.Add(strtempVermerk)
list.Add(strtempErsatzTelePass)
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
listdetails.Add(list)
' 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(strtempOBUID)
list.Add(strtempPIN)
list.Add(strtempVermerk)
list.Add(strtempErsatzTelePass)
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
listdetails.Add(list)
End If
End If
Next

8
Customers/SDL/Formtemplate VERAG_Card.aspx
View File

@@ -155,16 +155,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('Kennzeichen');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
@@ -182,7 +184,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 (id == result[i]["8"]) {
if (CardNumber == result[i]["8"]) {
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"]);

132
Customers/SDL/Formtemplate VERAG_Card.aspx.vb
View File

@@ -73,77 +73,79 @@ 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, CardNummer 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 strtempKartenNr As String = String.Empty
Dim strtempFahrer As String = String.Empty
Dim strtempKaut As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzkarte 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
If l2.KartenNr = CardNummer Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempFahrer As String = String.Empty
Dim strtempKaut As String = String.Empty
Dim strtempBelegNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzkarte 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Fahrer) = False Then
strtempFahrer = l2.Fahrer.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Fahrer) = False Then
strtempFahrer = l2.Fahrer.ToString
End If
If IsNothing(l2.Kaution) = False Then
strtempKaut = l2.Kaution.ToString
End If
If IsNothing(l2.BelegNr) = False Then
strtempBelegNr = l2.BelegNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(strtempKartenNr)
list.Add(strtempFahrer)
list.Add(strtempKaut)
list.Add(strtempBelegNr)
list.Add(strtempVermerk)
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
listdetails.Add(list)
' 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(strtempKartenNr)
list.Add(strtempFahrer)
list.Add(strtempKaut)
list.Add(strtempBelegNr)
list.Add(strtempVermerk)
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
listdetails.Add(list)
End If
End If
Next

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

@@ -144,12 +144,14 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNr');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
alert(param2)
function detailtabelle(id) {
function detailtabelle(id,kennzeichen) {
// alert("Testdata:" + id)
let data = {};
@@ -171,7 +173,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 (id == result[i]["11"]) {
if (kennzeichen == result[i]["6"]) {
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"]);

224
Customers/SDL/MAUT/Formtemplate HU_HUGO.aspx.vb
View File

@@ -73,69 +73,71 @@ 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, 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
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID 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
If l2.KartenNr.ToString = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(strtempKartenNr)
list.Add(strtempPIN)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") AndAlso l2.KartenNr = CardNr Then
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempKartenNr)
list.Add(strtempPIN)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempRetourniert)
list.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") Then
listdetails.Add(list)
End If
End If
Next
@@ -145,70 +147,72 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
Public Shared Function filltabledetails_M(Kennzeichen As String, CardNo As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID 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
If l2.CARD_Nr = CardNo Then
Dim strtempbestelltam As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempPIN As String = String.Empty
Dim strtempOBUID 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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_M.Add(strtempbestelltam)
list_M.Add(strtempKartenNr)
list_M.Add(strtempPIN)
list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
listdetails_M.Add(list_M)
list_M.Add(strtempbestelltam)
list_M.Add(strtempKartenNr)
list_M.Add(strtempPIN)
list_M.Add(strtempOBUID)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.Add(l2.KfzKennzeichen)
If String.Equals(strtempVerloren, "False") And String.Equals(strtempGestohlen, "False") And String.Equals(strtempGesperrt, "False") And String.Equals(strtempDefekt, "False") And String.Equals(strtempArchivt, "False") And l2.KartenNr.ToString = CardNr Then
listdetails_M.Add(list_M)
End If
End If
Next

11
Customers/SDL/MAUT/Formtemplate IT_Plose.aspx
View File

@@ -149,17 +149,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNr');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
url: "Formtemplate IT_Plose.aspx/filltabledetails",
@@ -176,7 +177,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 (id == result[i]["7"]) {
if (CardNumber == result[i]["7"]) {
document.getElementById('<%=txt_BestDatum.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_VIA_CARD.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -150,12 +150,13 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, Cardnumber) {
// alert("Testdata:" + id)
let data = {};
@@ -177,7 +178,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 (id == result[i]["7"]) {
if (Cardnumber == result[i]["7"]) {
document.getElementById('<%=txt_Bestdat.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_VIACard.ClientID%>').setAttribute('value', result[i]["2"]);

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

@@ -74,68 +74,70 @@ 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, CardNumber 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 strtempVIACARD 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
If l2.KartenNr = CardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempVIACARD 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.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.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.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.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(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
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempVIACARD)
list.Add(strtempTELEPASS_Nr)
list.Add(strtempVermerk)
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
listdetails.Add(list)
End If
End If
Next

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

@@ -133,16 +133,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
detailtabelle(param1,param2)
alert(param1)
function detailtabelle(id) {
function detailtabelle(id, Cardnummer) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = Cardnummer;
$.ajax({
type: "POST",
@@ -160,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 (id == result[i]["5"]) {
if (Cardnummer == result[i]["5"]) {
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"]);

102
Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb
View File

@@ -73,63 +73,65 @@ 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, Cardnumber 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 strtempKartenNr 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
If l2.KartenNr = Cardnumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(strtempKartenNr)
list.Add(strtempVermerk)
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
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempKartenNr)
list.Add(strtempVermerk)
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
listdetails.Add(list)
End If
End If
Next

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

@@ -137,16 +137,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,CardNumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNumber;
$.ajax({
type: "POST",
@@ -164,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 (id == result[i]["7"]) {
if (CardNumber == result[i]["7"]) {
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"]);

102
Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb
View File

@@ -73,63 +73,65 @@ 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, CardNumber 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 strtempKartNr 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
If l2.KartenNr = CardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartNr 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(strtempKartNr)
list.Add(strtempVermerk)
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") Then
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempKartNr)
list.Add(strtempVermerk)
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") Then
listdetails.Add(list)
End If
End If
Next

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

@@ -56,7 +56,7 @@
</div>
</div>
</div>
<div class="card" style="width: 855px; height: 250px">l
<div class="card" style="width: 855px; height: 250px">
<div class="card-body">
<div class="container">
<div class="row">
@@ -131,16 +131,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,Cardnummer) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = Cardnummer;
$.ajax({
type: "POST",
@@ -158,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 (id == result[i]["7"]) {
if (Cardnummer == result[i]["7"]) {
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"]);

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

@@ -73,74 +73,75 @@ 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, 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
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempcardnr As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempPIN 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
If String.Equals(CardNo, l2.KartenNr.ToString) = True Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempcardnr As String = String.Empty
Dim strtempPIN 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(strtempKartenNr)
list.Add(strtempcardnr)
list.Add(strtempPIN)
list.Add(strtempVermerk)
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
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempLieferdatum)
list.Add(strtempKartenNr)
list.Add(strtempcardnr)
list.Add(strtempPIN)
list.Add(strtempVermerk)
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") Then
listdetails.Add(list)
End If
End If
Next
@@ -150,76 +151,78 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
Public Shared Function filltabledetails_M(Kennzeichen As String, CardNo As String) As FormattedList
Dim list_M As List(Of String) = New List(Of String)
Dim strtemp As String = Kennzeichen.Remove(0, 1)
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempcardnr As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempPIN 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
If String.Equals(CardNo, l2.KartenNr.ToString) = True Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempcardnr As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempPIN 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.CARD_Nr) = False Then
strtempcardnr = l2.CARD_Nr.ToString
End If
If IsNothing(l2.PIN) = False Then
strtempPIN = l2.PIN.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Retourniert) = False Then
strtempRetourniert = l2.Retourniert.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr)
list_M.Add(strtempcardnr)
list_M.Add(strtempPIN)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.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
listdetails_M.Add(list_M)
list_M.Add(strtempbestelltam)
list_M.Add(strtempLieferdatum)
list_M.Add(strtempKartenNr)
list_M.Add(strtempcardnr)
list_M.Add(strtempPIN)
list_M.Add(strtempVermerk)
list_M.Add(strtempRetourniert)
list_M.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_M.Add(list_M)
End If
End If
Next

10
Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx
View File

@@ -141,16 +141,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1, param2);
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id, CardNo) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = CardNo;
$.ajax({
type: "POST",
@@ -168,7 +170,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 (id == result[i]["7"]) {
if (CardNo == result[i]["7"]) {
document.getElementById('<%=txt_Bestelldat.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_lieferdat.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kartennummer.ClientID%>').setAttribute('value', result[i]["2"]);

112
Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb
View File

@@ -73,67 +73,69 @@ 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, CardNumber 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 strtempKartenNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempabgemeldet 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
If l2.KartenNr = CardNumber Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempErsatzkarte As String = String.Empty
Dim strtempabgemeldet 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.LKWAbgemeldet) = False Then
strtempabgemeldet = l2.LKWAbgemeldet.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Lieferdatum) = False Then
strtempLieferdatum = l2.Lieferdatum.ToString
End If
If IsNothing(l2.KartenNr) = False Then
strtempKartenNr = l2.KartenNr.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Ersatzkarte) = False Then
strtempErsatzkarte = l2.Ersatzkarte.ToString
End If
If IsNothing(l2.LKWAbgemeldet) = False Then
strtempabgemeldet = l2.LKWAbgemeldet.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(strtempKartenNr)
list.Add(strtempVermerk)
list.Add(strtempErsatzkarte)
list.Add(strtempabgemeldet)
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)
' 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(strtempKartenNr)
list.Add(strtempVermerk)
list.Add(strtempErsatzkarte)
list.Add(strtempabgemeldet)
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
End If
Next

10
Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx
View File

@@ -145,16 +145,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,param2)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,cardno) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = cardno;
$.ajax({
type: "POST",
@@ -172,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 (id == result[i]["7"]) {
if (cardno == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

127
Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
View File

@@ -73,76 +73,77 @@ 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, CardNom 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 strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempStatus As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If l2.KartenNr = CardNom Then
Dim strtempbestelltam As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempStatus As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(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(strtempUmstellungsdatum)
list.Add(strtempKat)
list.Add(strtempVertragsabschlussdatum)
list.Add(strtempStatus)
list.Add(strtempSchadstoffklasse)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
list.Add(strtempbestelltam)
list.Add(strtempUmstellungsdatum)
list.Add(strtempKat)
list.Add(strtempVertragsabschlussdatum)
list.Add(strtempStatus)
list.Add(strtempSchadstoffklasse)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
End If
End If
Next

11
Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx
View File

@@ -158,17 +158,18 @@
}
}
var param1 = getParamValue('Kennzeichen');
var param2 = getParamValue('CardNo');
$('txt_ClientNr').val(param1);
detailtabelle(param1)
alert(param1)
detailtabelle(param1,Cardnummer)
//alert(param1)
function detailtabelle(id) {
function detailtabelle(id,Cardnumber) {
// alert("Testdata:" + id)
let data = {};
data['Kennzeichen'] = id;
data['CardNo'] = Cardnumber;
$.ajax({
type: "POST",
url: "Formtemplate_MAUT_AT GoBox.aspx/filltabledetails",
@@ -185,7 +186,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 (id == result[i]["7"]) {
if (Cardnumber == result[i]["7"]) {
document.getElementById('<%=txt_BestNr.ClientID%>').setAttribute('value', result[i]["0"]);
document.getElementById('<%=txt_Umstellungsdatum.ClientID%>').setAttribute('value', result[i]["1"]);
document.getElementById('<%=txt_Kategorie.ClientID%>').setAttribute('value', result[i]["2"]);

144
Customers/SDL/MAUT/Formtemplate_MAUT_AT GoBox.aspx.vb
View File

@@ -73,83 +73,85 @@ 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, CardNumber 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 strtempbestellNr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempStatus As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If l2.KartenNr = CardNumber Then
Dim strtempbestellNr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
Dim strtempKat As String = String.Empty
Dim strtempStatus As String = String.Empty
Dim strtempSchadstoffklasse As String = String.Empty
Dim strtempOBUID As String = String.Empty
Dim strtempVermerk As String = String.Empty
Dim strtempGueltigBis 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
If IsNothing(l2.BestellNr) = False Then
strtempbestellNr = l2.BestellNr.ToString
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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.BestellNr) = False Then
strtempbestellNr = l2.BestellNr.ToString
End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
If IsNothing(l2.Vertragsabschlussdatum) = False Then
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
End If
If IsNothing(l2.Kategorie) = False Then
strtempKat = l2.Kategorie.ToString
End If
If IsNothing(l2.Status) = False Then
strtempStatus = l2.Status.ToString
End If
If IsNothing(l2.Schadstoffklasse) = False Then
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
If IsNothing(l2.OBUID) = False Then
strtempOBUID = l2.OBUID.ToString
End If
If IsNothing(l2.Vermerk) = False Then
strtempVermerk = l2.Vermerk.ToString
End If
If IsNothing(l2.GültigBis) = False Then
strtempGueltigBis = l2.GültigBis.ToString
End If
If IsNothing(l2.Verloren) = False Then
strtempVerloren = l2.Verloren.ToString
End If
If IsNothing(l2.Gestohlen) = False Then
strtempGestohlen = l2.Gestohlen.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
' 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(strtempbestellNr)
list.Add(strtempUmstellungsdatum)
list.Add(strtempVertragsabschlussdatum)
list.Add(strtempGueltigBis)
list.Add(strtempKat)
list.Add(strtempStatus)
list.Add(strtempSchadstoffklasse)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
' 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(strtempbestellNr)
list.Add(strtempUmstellungsdatum)
list.Add(strtempVertragsabschlussdatum)
list.Add(strtempGueltigBis)
list.Add(strtempKat)
list.Add(strtempStatus)
list.Add(strtempSchadstoffklasse)
list.Add(strtempOBUID)
list.Add(strtempVermerk)
list.Add(strtempGueltigBis)
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
listdetails.Add(list)
End If
End If
Next