diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx
index d9d854f..0a168f1 100644
--- a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx
+++ b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx
@@ -62,7 +62,7 @@
@@ -163,10 +163,12 @@
//alert('Horray! 200 status code!' + result[i]);
// alert(result.rows.length)
if (id == 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"]);
- document.getElementById('<%=txt_Vermerk.ClientID%>').setAttribute('value', result[i]["3"]);
+ 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"]);
+ document.getElementById('<%=txt_Vertrabschldat.ClientID%>').setAttribute('value', result[i]["3"]);
+ document.getElementById('<%=txt_Status.ClientID%>').setAttribute('value', result[i]["4"]);
+ document.getElementById('<%=txt_Schadstoffklasse.ClientID%>').setAttribute('value', result[i]["5"]);
document.getElementById('<%=cbx_Ersatzkarte.ClientID%>').setAttribute('checked', result[i]["4"]);
document.getElementById('<%=cbx_Abgemeldet.ClientID%>').setAttribute('checked', result[i]["5"]);
}
diff --git a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
index 4227da2..9093c44 100644
--- a/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
+++ b/Customers/SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb
@@ -80,225 +80,70 @@ Partial Class Customers_Default3
Dim listdetails As New List(Of List(Of String))
For Each l2 In list2
Dim strtempbestelltam As String = String.Empty
- Dim strtempKat As String = String.Empty
- Dim strtempKartenNr As String = String.Empty
- Dim strtempGueltigBis As String = String.Empty
- Dim strtempKaut As String = String.Empty
- Dim strtempArchivt As String = String.Empty
- Dim strtempBelegNr As String = String.Empty
- Dim strtempErsatzkarte As String = String.Empty
- Dim strtempDefektAm As String = String.Empty
- Dim strtempFahrer As String = String.Empty
- Dim strtempGesperrtAm As String = String.Empty
- Dim strtempHistory As String = String.Empty
- Dim strtempHasEntry As String = String.Empty
- Dim strtempFlottenPIN As String = String.Empty
- Dim strtempFREJUS_CARD_Nr As String = String.Empty
- Dim strtempGestohlenAm As String = String.Empty
- Dim strtempLKWAbgemeldet As String = String.Empty
- Dim strtempLKWAbgemeldetAM As String = String.Empty
- Dim strtempLieferdatum As String = String.Empty
- Dim strtempMasterPIN As String = String.Empty
- Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
- Dim strtempMSE_Kd_Nr As String = String.Empty
- Dim strtempOBUID As String = String.Empty
- Dim strtempPAN_Nr As String = String.Empty
- Dim strtempVermerk As String = String.Empty
- Dim strtempPartner As String = String.Empty
- Dim strtempPIN As String = String.Empty
- Dim strtempRefKundenNr As String = String.Empty
- Dim strtempRetourniert As String = String.Empty
- Dim strtempRetourniertAm As String = String.Empty
- Dim strtempSachbearbeiter As String = String.Empty
- Dim strtempSERIE_Nr As String = String.Empty
- Dim strtempStatus As String = String.Empty
- Dim strtempTelepassErsatzkarte As String = String.Empty
- Dim strtempTelepassErsatzkarteAm As String = String.Empty
- Dim strtempTELEPASS_Kd_Nr As String = String.Empty
- Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
- Dim strtempVerloren As String = String.Empty
+ Dim strtempKat As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
- Dim strtempVertragsNr As String = String.Empty
- Dim strtempVIACARD As String = String.Empty
- Dim strtempAenderungsdatum 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.Kategorie) = False Then
- strtempKat = l2.Kategorie.ToString
- End If
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
- If IsNothing(l2.Kaution) = False Then
- strtempKaut = l2.Kaution.ToString
- End If
- If IsNothing(l2.Archiviert) = False Then
- strtempArchivt = l2.Archiviert.ToString
- End If
- If IsNothing(l2.BelegNr) = False Then
- strtempBelegNr = l2.BelegNr.ToString
- End If
- If IsNothing(l2.Ersatzkarte) = False Then
- strtempErsatzkarte = l2.Ersatzkarte.ToString
- End If
- If IsNothing(l2.DefektAm) = False Then
- strtempDefektAm = l2.DefektAm.ToString
- End If
- If IsNothing(l2.Fahrer) = False Then
- strtempFahrer = l2.Fahrer.ToString
- End If
- If IsNothing(l2.GesperrtAm) = False Then
- strtempGesperrtAm = l2.GesperrtAm.ToString
- End If
- If IsNothing(l2.History) = False Then
- strtempHistory = l2.History.ToString
- End If
- If IsNothing(l2.hasentry) = False Then
- strtempHasEntry = l2.hasentry.ToString
- End If
- If IsNothing(l2.FlottenPIN) = False Then
- strtempFlottenPIN = l2.FlottenPIN.ToString
- End If
- If IsNothing(l2.FREJUS_CARD_Nr) = False Then
- strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
- End If
- If IsNothing(l2.GestohlenAm) = False Then
- strtempGestohlenAm = l2.GestohlenAm.ToString
- End If
- If IsNothing(l2.hasentry) = False Then
- strtempGueltigBis = l2.GültigBis.ToString
- End If
- If IsNothing(l2.KartenNr) = False Then
- strtempKartenNr = l2.KartenNr.ToString
- End If
- If IsNothing(l2.LKWAbgemeldet) = False Then
- strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
- End If
- If IsNothing(l2.LKWAbgemeldetAM) = False Then
- strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
- End If
- If IsNothing(l2.Lieferdatum) = False Then
- strtempLieferdatum = l2.Lieferdatum.ToString
- End If
- If IsNothing(l2.MasterPIN) = False Then
- strtempMasterPIN = l2.MasterPIN.ToString
- End If
- If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
- strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
- End If
- If IsNothing(l2.MSE_Kd_Nr) = False Then
- strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
- End If
- If IsNothing(l2.OBUID) = False Then
- strtempOBUID = l2.OBUID.ToString
- End If
- If IsNothing(l2.PAN_Nr) = False Then
- strtempPAN_Nr = l2.PAN_Nr.ToString
- End If
- If IsNothing(l2.Partner) = False Then
- strtempPartner = l2.Partner.ToString
- End If
- If IsNothing(l2.PIN) = False Then
- strtempPIN = l2.PIN.ToString
- End If
- If IsNothing(l2.RefKundenNr) = False Then
- strtempRefKundenNr = l2.RefKundenNr.ToString
- End If
- If IsNothing(l2.Retourniert) = False Then
- strtempRetourniert = l2.Retourniert.ToString
- End If
- If IsNothing(l2.RetourniertAm) = False Then
- strtempRetourniertAm = l2.RetourniertAm.ToString
- End If
- If IsNothing(l2.Sachbearbeiter) = False Then
- strtempSachbearbeiter = l2.Sachbearbeiter.ToString
- End If
- If IsNothing(l2.SERIE_Nr) = False Then
- strtempSERIE_Nr = l2.SERIE_Nr.ToString
- End If
- If IsNothing(l2.Status) = False Then
- strtempStatus = l2.Status.ToString
- End If
- If IsNothing(l2.TelepassErsatzkarte) = False Then
- strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
- End If
- If IsNothing(l2.TelepassErsatzkarteAm) = False Then
- strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
- End If
- If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
- strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
- End If
- If IsNothing(l2.TELEPASS_Nr) = False Then
- strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
- End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
- If IsNothing(l2.Verloren) = False Then
- strtempVerloren = l2.Verloren.ToString
- End If
- If IsNothing(l2.Vermerk) = False Then
- strtempVermerk = l2.Vermerk.ToString
+ 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.VertragsNr) = False Then
- strtempVertragsNr = l2.VertragsNr.ToString
+ If IsNothing(l2.Status) = False Then
+ strtempStatus = l2.Status.ToString
End If
- If IsNothing(l2.VIACARD) = False Then
- strtempVIACARD = l2.VIACARD.ToString
+ If IsNothing(l2.Schadstoffklasse) = False Then
+ strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
- If IsNothing(l2.Änderungsdatum) = False Then
- strtempAenderungsdatum = l2.Änderungsdatum.ToString
+ 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(strtempbestelltam)
- list.Add(strtempKat)
- list.Add(strtempGueltigBis)
- list.Add(strtempKartenNr)
- list.Add(strtempKaut)
- list.Add(strtempArchivt)
- list.Add(strtempBelegNr)
- list.Add(strtempErsatzkarte)
- list.Add(strtempDefektAm)
- list.Add(strtempFahrer)
- list.Add(strtempGesperrtAm)
- list.Add(strtempHistory)
- list.Add(strtempHasEntry)
- list.Add(strtempFlottenPIN)
- list.Add(strtempFREJUS_CARD_Nr)
- list.Add(strtempGestohlenAm)
- list.Add(strtempLKWAbgemeldet)
- list.Add(strtempLKWAbgemeldetAM)
- list.Add(strtempLieferdatum)
- list.Add(strtempMasterPIN)
- list.Add(strtempMOTORWAY_CARD_Nr)
- list.Add(strtempMSE_Kd_Nr)
- list.Add(strtempOBUID)
- list.Add(strtempPAN_Nr)
- list.Add(strtempPartner)
- list.Add(strtempPIN)
- list.Add(strtempRefKundenNr)
- list.Add(strtempRetourniert)
- list.Add(strtempRetourniertAm)
- list.Add(strtempSachbearbeiter)
- list.Add(strtempSERIE_Nr)
- list.Add(strtempStatus)
- list.Add(strtempTelepassErsatzkarte)
- list.Add(strtempTelepassErsatzkarteAm)
- list.Add(strtempTELEPASS_Kd_Nr)
- list.Add(strtempTELEPASS_Nr)
list.Add(strtempUmstellungsdatum)
- list.Add(strtempVerloren)
+ list.Add(strtempKat)
list.Add(strtempVertragsabschlussdatum)
- list.Add(strtempVertragsNr)
- list.Add(strtempVIACARD)
- list.Add(strtempAenderungsdatum)
+ list.Add(strtempStatus)
+ list.Add(strtempSchadstoffklasse)
list.Add(strtempVermerk)
- listdetails.Add(list)
+ list.Add(strtempGueltigBis)
+ If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
+ listdetails.Add(list)
+ End If
Next
HttpContext.Current.Response.ContentType = "application/json"
@@ -315,224 +160,70 @@ Partial Class Customers_Default3
Dim listdetails_M As New List(Of List(Of String))
For Each l2 In list2_M
Dim strtempbestelltam As String = String.Empty
- Dim strtempKat As String = String.Empty
- Dim strtempKartenNr As String = String.Empty
- Dim strtempGueltigBis As String = String.Empty
- Dim strtempKaut As String = String.Empty
- Dim strtempArchivt As String = String.Empty
- Dim strtempBelegNr As String = String.Empty
- Dim strtempErsatzkarte As String = String.Empty
- Dim strtempDefektAm As String = String.Empty
- Dim strtempFahrer As String = String.Empty
- Dim strtempGesperrtAm As String = String.Empty
- Dim strtempHistory As String = String.Empty
- Dim strtempHasEntry As String = String.Empty
- Dim strtempFlottenPIN As String = String.Empty
- Dim strtempFREJUS_CARD_Nr As String = String.Empty
- Dim strtempGestohlenAm As String = String.Empty
- Dim strtempLKWAbgemeldet As String = String.Empty
- Dim strtempLKWAbgemeldetAM As String = String.Empty
- Dim strtempLieferdatum As String = String.Empty
- Dim strtempMasterPIN As String = String.Empty
- Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
- Dim strtempMSE_Kd_Nr As String = String.Empty
- Dim strtempOBUID As String = String.Empty
- Dim strtempPAN_Nr As String = String.Empty
- Dim strtempPartner As String = String.Empty
- Dim strtempPIN As String = String.Empty
- Dim strtempRefKundenNr As String = String.Empty
- Dim strtempRetourniert As String = String.Empty
- Dim strtempRetourniertAm As String = String.Empty
- Dim strtempSachbearbeiter As String = String.Empty
- Dim strtempSERIE_Nr As String = String.Empty
- Dim strtempStatus As String = String.Empty
- Dim strtempTelepassErsatzkarte As String = String.Empty
- Dim strtempTelepassErsatzkarteAm As String = String.Empty
- Dim strtempTELEPASS_Kd_Nr As String = String.Empty
- Dim strtempTELEPASS_Nr As String = String.Empty
Dim strtempUmstellungsdatum As String = String.Empty
- Dim strtempVerloren As String = String.Empty
- Dim strtempVermerk As String = String.Empty
+ Dim strtempKat As String = String.Empty
Dim strtempVertragsabschlussdatum As String = String.Empty
- Dim strtempVertragsNr As String = String.Empty
- Dim strtempVIACARD As String = String.Empty
- Dim strtempAenderungsdatum 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.Kategorie) = False Then
- strtempKat = l2.Kategorie.ToString
- End If
If IsNothing(l2.Bestelldatum) = False Then
strtempbestelltam = l2.Bestelldatum.ToString
End If
- If IsNothing(l2.Kaution) = False Then
- strtempKaut = l2.Kaution.ToString
- End If
- If IsNothing(l2.Archiviert) = False Then
- strtempArchivt = l2.Archiviert.ToString
- End If
- If IsNothing(l2.BelegNr) = False Then
- strtempBelegNr = l2.BelegNr.ToString
- End If
- If IsNothing(l2.Ersatzkarte) = False Then
- strtempErsatzkarte = l2.Ersatzkarte.ToString
- End If
- If IsNothing(l2.DefektAm) = False Then
- strtempDefektAm = l2.DefektAm.ToString
- End If
- If IsNothing(l2.Fahrer) = False Then
- strtempFahrer = l2.Fahrer.ToString
- End If
- If IsNothing(l2.GesperrtAm) = False Then
- strtempGesperrtAm = l2.GesperrtAm.ToString
- End If
- If IsNothing(l2.History) = False Then
- strtempHistory = l2.History.ToString
- End If
- If IsNothing(l2.hasentry) = False Then
- strtempHasEntry = l2.hasentry.ToString
- End If
- If IsNothing(l2.FlottenPIN) = False Then
- strtempFlottenPIN = l2.FlottenPIN.ToString
- End If
- If IsNothing(l2.FREJUS_CARD_Nr) = False Then
- strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
- End If
- If IsNothing(l2.GestohlenAm) = False Then
- strtempGestohlenAm = l2.GestohlenAm.ToString
- End If
- If IsNothing(l2.hasentry) = False Then
- strtempGueltigBis = l2.GültigBis.ToString
- End If
- If IsNothing(l2.KartenNr) = False Then
- strtempKartenNr = l2.KartenNr.ToString
- End If
- If IsNothing(l2.LKWAbgemeldet) = False Then
- strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
- End If
- If IsNothing(l2.LKWAbgemeldetAM) = False Then
- strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
- End If
- If IsNothing(l2.Lieferdatum) = False Then
- strtempLieferdatum = l2.Lieferdatum.ToString
- End If
- If IsNothing(l2.MasterPIN) = False Then
- strtempMasterPIN = l2.MasterPIN.ToString
- End If
- If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
- strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
- End If
- If IsNothing(l2.MSE_Kd_Nr) = False Then
- strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
- End If
- If IsNothing(l2.OBUID) = False Then
- strtempOBUID = l2.OBUID.ToString
- End If
- If IsNothing(l2.PAN_Nr) = False Then
- strtempPAN_Nr = l2.PAN_Nr.ToString
- End If
- If IsNothing(l2.Partner) = False Then
- strtempPartner = l2.Partner.ToString
- End If
- If IsNothing(l2.PIN) = False Then
- strtempPIN = l2.PIN.ToString
- End If
- If IsNothing(l2.RefKundenNr) = False Then
- strtempRefKundenNr = l2.RefKundenNr.ToString
- End If
- If IsNothing(l2.Retourniert) = False Then
- strtempRetourniert = l2.Retourniert.ToString
- End If
- If IsNothing(l2.RetourniertAm) = False Then
- strtempRetourniertAm = l2.RetourniertAm.ToString
- End If
- If IsNothing(l2.Sachbearbeiter) = False Then
- strtempSachbearbeiter = l2.Sachbearbeiter.ToString
- End If
- If IsNothing(l2.SERIE_Nr) = False Then
- strtempSERIE_Nr = l2.SERIE_Nr.ToString
- End If
- If IsNothing(l2.Status) = False Then
- strtempStatus = l2.Status.ToString
- End If
- If IsNothing(l2.TelepassErsatzkarte) = False Then
- strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
- End If
- If IsNothing(l2.TelepassErsatzkarteAm) = False Then
- strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
- End If
- If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
- strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
- End If
- If IsNothing(l2.TELEPASS_Nr) = False Then
- strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
- End If
If IsNothing(l2.Umstellungsdatum) = False Then
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
End If
- If IsNothing(l2.Verloren) = False Then
- strtempVerloren = l2.Verloren.ToString
- End If
- If IsNothing(l2.Vermerk) = False Then
- strtempVermerk = l2.Vermerk.ToString
+ 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.VertragsNr) = False Then
- strtempVertragsNr = l2.VertragsNr.ToString
+ If IsNothing(l2.Status) = False Then
+ strtempStatus = l2.Status.ToString
End If
- If IsNothing(l2.VIACARD) = False Then
- strtempVIACARD = l2.VIACARD.ToString
+ If IsNothing(l2.Schadstoffklasse) = False Then
+ strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
End If
- If IsNothing(l2.Änderungsdatum) = False Then
- strtempAenderungsdatum = l2.Änderungsdatum.ToString
+ 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_M.Add(strtempbestelltam)
- list_M.Add(strtempKat)
- list_M.Add(strtempGueltigBis)
- list_M.Add(strtempKartenNr)
- list_M.Add(strtempKaut)
- list_M.Add(strtempArchivt)
- list_M.Add(strtempBelegNr)
- list_M.Add(strtempErsatzkarte)
- list_M.Add(strtempDefektAm)
- list_M.Add(strtempFahrer)
- list_M.Add(strtempGesperrtAm)
- list_M.Add(strtempHistory)
- list_M.Add(strtempHasEntry)
- list_M.Add(strtempFlottenPIN)
- list_M.Add(strtempFREJUS_CARD_Nr)
- list_M.Add(strtempGestohlenAm)
- list_M.Add(strtempLKWAbgemeldet)
- list_M.Add(strtempLKWAbgemeldetAM)
- list_M.Add(strtempLieferdatum)
- list_M.Add(strtempMasterPIN)
- list_M.Add(strtempMOTORWAY_CARD_Nr)
- list_M.Add(strtempMSE_Kd_Nr)
- list_M.Add(strtempOBUID)
- list_M.Add(strtempPAN_Nr)
- list_M.Add(strtempPartner)
- list_M.Add(strtempPIN)
- list_M.Add(strtempRefKundenNr)
- list_M.Add(strtempRetourniert)
- list_M.Add(strtempRetourniertAm)
- list_M.Add(strtempSachbearbeiter)
- list_M.Add(strtempSERIE_Nr)
- list_M.Add(strtempStatus)
- list_M.Add(strtempTelepassErsatzkarte)
- list_M.Add(strtempTelepassErsatzkarteAm)
- list_M.Add(strtempTELEPASS_Kd_Nr)
- list_M.Add(strtempTELEPASS_Nr)
list_M.Add(strtempUmstellungsdatum)
- list_M.Add(strtempVerloren)
+ list_M.Add(strtempKat)
list_M.Add(strtempVertragsabschlussdatum)
- list_M.Add(strtempVertragsNr)
- list_M.Add(strtempVIACARD)
- list_M.Add(strtempAenderungsdatum)
+ list_M.Add(strtempStatus)
+ list_M.Add(strtempSchadstoffklasse)
list_M.Add(strtempVermerk)
- listdetails_M.Add(list_M)
+ list_M.Add(strtempGueltigBis)
+ 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
Next
HttpContext.Current.Response.ContentType = "application/json"