From 66cb3b838822f154dfdbdccd1141e5de0dc40b92 Mon Sep 17 00:00:00 2001 From: ja Date: Fri, 28 Jan 2022 08:21:07 +0100 Subject: [PATCH] =?UTF-8?q?=C3=84nderungen?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../SDL/MAUT/FormtemplateMAUT_MSECard.aspx | 12 +- .../SDL/MAUT/FormtemplateMAUT_MSECard.aspx.vb | 475 +++--------------- 2 files changed, 90 insertions(+), 397 deletions(-) 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"