Änderung: Erhalten der Daten auf Clientseite
This commit is contained in:
ja
@@ -1,13 +1,10 @@
|
|||||||
|
Imports System.Web.Script.Services
|
||||||
Imports System.Web.Script.Services
|
|
||||||
Imports System.Web.Services
|
Imports System.Web.Services
|
||||||
|
|
||||||
Partial Class Customers_Default3
|
Partial Class Customers_Default3
|
||||||
Inherits System.Web.UI.Page
|
Inherits System.Web.UI.Page
|
||||||
Shared Kdnrtext As String = String.Empty
|
Shared Kdnrtext As String = String.Empty
|
||||||
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
|
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
@@ -86,224 +83,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempPanNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempSerieNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempPartner As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempPIN As String = String.Empty
|
Dim strtempretourniert 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PAN_Nr) = False Then
|
||||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
strtempPanNr = 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
|
End If
|
||||||
If IsNothing(l2.SERIE_Nr) = False Then
|
If IsNothing(l2.SERIE_Nr) = False Then
|
||||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
strtempSerieNr = 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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempretourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempPanNr)
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
list.Add(strtempSerieNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempGueltigBis)
|
||||||
|
list.Add(strtempretourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +162,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempPanNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempSerieNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempretourniert As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PAN_Nr) = False Then
|
||||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
strtempPanNr = 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
|
End If
|
||||||
If IsNothing(l2.SERIE_Nr) = False Then
|
If IsNothing(l2.SERIE_Nr) = False Then
|
||||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
strtempSerieNr = 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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempretourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
list_M.Add(l2.SDLNr.ToString)
|
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_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempPanNr)
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
list_M.Add(strtempSerieNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempGueltigBis)
|
||||||
|
list_M.Add(strtempretourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,63 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempFREJUSCrdNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempEcoClass 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempPartner As String = String.Empty
|
Dim strtempErsatzKarte 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.ECO) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempEcoClass = l2.ECO.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempFREJUSCrdNr)
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
list.Add(strtempEcoClass)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempErsatzKarte)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +160,63 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempFREJUSCrdNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempEcoClass 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempErsatzKarte As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempFREJUSCrdNr = l2.FREJUS_CARD_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.ECO) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempEcoClass = l2.ECO.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
If IsNothing(l2.Defekt) = False Then
|
||||||
list_M.Add(l2.SDLNr.ToString)
|
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_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempFREJUSCrdNr)
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
list_M.Add(strtempEcoClass)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempErsatzKarte)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempPin 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempPartner As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempPIN As String = String.Empty
|
Dim strtempErsatzKarte 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.PIN) = False Then
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartenNr)
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
list.Add(strtempPin)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempGueltigBis)
|
||||||
|
list.Add(strtempErsatzKarte)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +165,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempPin 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempErsatzKarte As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.PIN) = False Then
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempErsatzKarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
list_M.Add(l2.SDLNr.ToString)
|
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_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartenNr)
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
list_M.Add(strtempPin)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempGueltigBis)
|
||||||
|
list_M.Add(strtempErsatzKarte)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -84,224 +84,30 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 strtempVertragsabschlussdatum As String = String.Empty
|
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
|
||||||
Dim strtempVIACARD As String = String.Empty
|
|
||||||
Dim strtempAenderungsdatum As String = String.Empty
|
|
||||||
|
|
||||||
If IsNothing(l2.Kategorie) = False Then
|
Dim strtempArchivt As String = String.Empty
|
||||||
strtempKat = l2.Kategorie.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Bestelldatum) = False Then
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -319,223 +125,30 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 strtempVermerk 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
|
|
||||||
|
|
||||||
If IsNothing(l2.Kategorie) = False Then
|
Dim strtempArchivt As String = String.Empty
|
||||||
strtempKat = l2.Kategorie.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Bestelldatum) = False Then
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 strtempSERIE_Nr As String = String.Empty
|
||||||
Dim strtempStatus As String = String.Empty
|
Dim strtempVermerk As String = String.Empty
|
||||||
Dim strtempTelepassErsatzkarte As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempTelepassErsatzkarteAm As String = String.Empty
|
Dim strtempRetourniert 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PAN_Nr) = False Then
|
||||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.SERIE_Nr) = False Then
|
||||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Status) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempStatus = l2.Status.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
strtempRetourniert = l2.Retourniert.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
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
|
||||||
list.Add(strtempMSE_Kd_Nr)
|
|
||||||
list.Add(strtempOBUID)
|
|
||||||
list.Add(strtempPAN_Nr)
|
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempGueltigBis)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +165,68 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGueltigBis As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PAN_Nr) = False Then
|
||||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.SERIE_Nr) = False Then
|
||||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Status) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempStatus = l2.Status.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
strtempRetourniert = l2.Retourniert.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
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(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(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(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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempGueltigBis)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,69 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 strtempPIN As String = String.Empty
|
||||||
Dim strtempRefKundenNr As String = String.Empty
|
Dim strtempVermerk As String = String.Empty
|
||||||
|
Dim strtempErsatzTelePass As String = String.Empty
|
||||||
Dim strtempRetourniert 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.OBUID) = False Then
|
||||||
strtempOBUID = l2.OBUID.ToString
|
strtempOBUID = l2.OBUID.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
strtempPIN = l2.PIN.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.RefKundenNr) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
|
End If
|
||||||
|
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||||
|
strtempErsatzTelePass = l2.TelepassErsatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
|
||||||
list.Add(strtempMSE_Kd_Nr)
|
|
||||||
list.Add(strtempOBUID)
|
list.Add(strtempOBUID)
|
||||||
list.Add(strtempPAN_Nr)
|
|
||||||
list.Add(strtempPartner)
|
|
||||||
list.Add(strtempPIN)
|
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempErsatzTelePass)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +166,69 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempErsatzTelePass As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.OBUID) = False Then
|
||||||
strtempOBUID = l2.OBUID.ToString
|
strtempOBUID = l2.OBUID.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
strtempPIN = l2.PIN.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.RefKundenNr) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
|
End If
|
||||||
|
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||||
|
strtempErsatzTelePass = l2.TelepassErsatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
|
||||||
list_M.Add(strtempMSE_Kd_Nr)
|
|
||||||
list_M.Add(strtempOBUID)
|
list_M.Add(strtempOBUID)
|
||||||
list_M.Add(strtempPAN_Nr)
|
|
||||||
list_M.Add(strtempPartner)
|
|
||||||
list_M.Add(strtempPIN)
|
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempErsatzTelePass)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,73 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempFahrer As String = String.Empty
|
||||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
Dim strtempKaut As String = String.Empty
|
||||||
Dim strtempOBUID As String = String.Empty
|
Dim strtempBelegNr As String = String.Empty
|
||||||
Dim strtempPAN_Nr As String = String.Empty
|
|
||||||
Dim strtempVermerk 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 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.Fahrer) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempFahrer = l2.Fahrer.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
If IsNothing(l2.Kaution) = False Then
|
||||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
strtempKaut = l2.Kaution.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.OBUID) = False Then
|
If IsNothing(l2.BelegNr) = False Then
|
||||||
strtempOBUID = l2.OBUID.ToString
|
strtempBelegNr = l2.BelegNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartenNr)
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
list.Add(strtempFahrer)
|
||||||
list.Add(strtempMSE_Kd_Nr)
|
list.Add(strtempKaut)
|
||||||
list.Add(strtempOBUID)
|
list.Add(strtempBelegNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -320,224 +169,75 @@ Partial Class Customers_Default3
|
|||||||
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
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))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
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 strtempVertragsabschlussdatum As String = String.Empty
|
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
|
||||||
Dim strtempVIACARD As String = String.Empty
|
|
||||||
Dim strtempAenderungsdatum As String = String.Empty
|
|
||||||
|
|
||||||
If IsNothing(l2.Kategorie) = False Then
|
Dim strtempbestelltam As String = String.Empty
|
||||||
strtempKat = l2.Kategorie.ToString
|
Dim strtempLieferdatum As String = String.Empty
|
||||||
End If
|
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 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.Fahrer) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempFahrer = l2.Fahrer.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
If IsNothing(l2.Kaution) = False Then
|
||||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
strtempKaut = l2.Kaution.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.OBUID) = False Then
|
If IsNothing(l2.BelegNr) = False Then
|
||||||
strtempOBUID = l2.OBUID.ToString
|
strtempBelegNr = l2.BelegNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartenNr)
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
list_M.Add(strtempFahrer)
|
||||||
list_M.Add(strtempMSE_Kd_Nr)
|
list_M.Add(strtempKaut)
|
||||||
list_M.Add(strtempOBUID)
|
list_M.Add(strtempBelegNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -1,5 +1,224 @@
|
|||||||
|
|
||||||
|
Imports System.Web.Script.Services
|
||||||
|
Imports System.Web.Services
|
||||||
|
|
||||||
Partial Class Customers_Default3
|
Partial Class Customers_Default3
|
||||||
Inherits System.Web.UI.Page
|
Inherits System.Web.UI.Page
|
||||||
|
Shared Kdnrtext As String = String.Empty
|
||||||
|
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
Else
|
||||||
|
Kdnrtext = Session.Item("CustomerID").ToString
|
||||||
|
End If
|
||||||
|
If Page.IsPostBack = True Then
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
Else
|
||||||
|
Kdnrtext = Session.Item("CustomerID").ToString
|
||||||
|
End If
|
||||||
|
Page.MaintainScrollPositionOnPostBack = True
|
||||||
|
Else
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
|
Else
|
||||||
|
Kdnrtext = Session.Item("CustomerID").ToString
|
||||||
|
End If
|
||||||
|
Page.MaintainScrollPositionOnPostBack = False
|
||||||
|
End If
|
||||||
|
End Sub
|
||||||
|
<Serializable>
|
||||||
|
Public Class FormattedList
|
||||||
|
Private _sEcho As String
|
||||||
|
Private _iTotalRecords As String
|
||||||
|
Private _ivisibleRecords As String
|
||||||
|
Public Function GetivisibleRecords() As String
|
||||||
|
Return _ivisibleRecords
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub SetivisibleRecords(AutoPropertyValue As String)
|
||||||
|
_ivisibleRecords = AutoPropertyValue
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function GetiTotalRecords() As String
|
||||||
|
Return _iTotalRecords
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub SetiTotalRecords(AutoPropertyValue As String)
|
||||||
|
_iTotalRecords = AutoPropertyValue
|
||||||
|
End Sub
|
||||||
|
|
||||||
|
Public Function GetsEcho() As String
|
||||||
|
Return _sEcho
|
||||||
|
End Function
|
||||||
|
|
||||||
|
Public Sub SetsEcho(stemp As String)
|
||||||
|
_sEcho = stemp
|
||||||
|
End Sub
|
||||||
|
Private _aaData As New List(Of List(Of String))
|
||||||
|
|
||||||
|
Public Property AaData As List(Of List(Of String))
|
||||||
|
Get
|
||||||
|
Return _aaData
|
||||||
|
End Get
|
||||||
|
Set(value As List(Of List(Of String)))
|
||||||
|
_aaData = value
|
||||||
|
End Set
|
||||||
|
End Property
|
||||||
|
Public Sub New(ByVal sEcho As String, ByVal iTotalRecords As String, ByVal iTotalDisplayRecords As String, ByVal aaData As List(Of List(Of String)))
|
||||||
|
Me._sEcho = sEcho
|
||||||
|
Me._iTotalRecords = iTotalRecords
|
||||||
|
Me._ivisibleRecords = iTotalDisplayRecords
|
||||||
|
Me.AaData = aaData
|
||||||
|
End Sub
|
||||||
|
End Class
|
||||||
|
|
||||||
|
<WebMethod>
|
||||||
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||||
|
Public Shared Function filltabledetails(Kennzeichen 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 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(strtempbestelltam)
|
||||||
|
list.Add(strtempKartenNr)
|
||||||
|
list.Add(strtempPIN)
|
||||||
|
list.Add(strtempOBUID)
|
||||||
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
listdetails.Add(list)
|
||||||
|
Next
|
||||||
|
|
||||||
|
HttpContext.Current.Response.ContentType = "application/json"
|
||||||
|
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails.Count.ToString, listdetails.Count.ToString, listdetails)
|
||||||
|
End Function
|
||||||
|
|
||||||
|
<WebMethod>
|
||||||
|
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||||
|
Public Shared Function filltabledetails_M(Kennzeichen 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 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_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(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
listdetails_M.Add(list_M)
|
||||||
|
Next
|
||||||
|
|
||||||
|
HttpContext.Current.Response.ContentType = "application/json"
|
||||||
|
Return New FormattedList(HttpContext.Current.Request("sEcho"), listdetails_M.Count.ToString, listdetails_M.Count.ToString, listdetails_M)
|
||||||
|
End Function
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
@@ -86,224 +86,61 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 strtempTELEPASS_Nr As String = String.Empty
|
||||||
Dim strtempUmstellungsdatum As String = String.Empty
|
Dim strtempVermerk As String = String.Empty
|
||||||
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVerloren As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Kaution) = False Then
|
|
||||||
strtempKaut = l2.Kaution.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Archiviert) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempArchivt = l2.Archiviert.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
If IsNothing(l2.Verloren) = False Then
|
||||||
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempGestohlen = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
|
End If
|
||||||
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(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(strtempTELEPASS_Nr)
|
||||||
list.Add(strtempUmstellungsdatum)
|
|
||||||
list.Add(strtempVerloren)
|
|
||||||
list.Add(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +158,63 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Kaution) = False Then
|
|
||||||
strtempKaut = l2.Kaution.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Archiviert) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempArchivt = l2.Archiviert.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(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(strtempTELEPASS_Nr)
|
||||||
list_M.Add(strtempUmstellungsdatum)
|
|
||||||
list_M.Add(strtempVerloren)
|
|
||||||
list_M.Add(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
|
' 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))
|
||||||
|
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,65 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 strtempVertragsabschlussdatum As String = String.Empty
|
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVIACARD As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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.Kategorie) = False Then
|
|
||||||
strtempKat = l2.Kategorie.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Bestelldatum) = False Then
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.VIACARD) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempVIACARD = l2.VIACARD.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
|
End If
|
||||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
|
End If
|
||||||
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
list.Add(strtempVIACARD)
|
||||||
list.Add(strtempAenderungsdatum)
|
list.Add(strtempTELEPASS_Nr)
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,224 +162,67 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 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 strtempVertragsabschlussdatum As String = String.Empty
|
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVIACARD As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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.Kategorie) = False Then
|
|
||||||
strtempKat = l2.Kategorie.ToString
|
|
||||||
End If
|
|
||||||
If IsNothing(l2.Bestelldatum) = False Then
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.VIACARD) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempVIACARD = l2.VIACARD.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
|
End If
|
||||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
|
End If
|
||||||
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
list_M.Add(strtempVIACARD)
|
||||||
list_M.Add(strtempAenderungsdatum)
|
list_M.Add(strtempTELEPASS_Nr)
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
HttpContext.Current.Response.ContentType = "application/json"
|
HttpContext.Current.Response.ContentType = "application/json"
|
||||||
|
|||||||
@@ -86,224 +86,59 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr 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 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 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartenNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +156,59 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartenNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,61 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartNr 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 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 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
End If
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
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
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +158,62 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
End If
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
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
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
|
listdetails_M.Add(list_M)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -1,5 +1,4 @@
|
|||||||
|
Imports System.Web.Script.Services
|
||||||
Imports System.Web.Script.Services
|
|
||||||
Imports System.Web.Services
|
Imports System.Web.Services
|
||||||
|
|
||||||
Partial Class Customers_Default3
|
Partial Class Customers_Default3
|
||||||
|
|||||||
@@ -11,23 +11,17 @@ Partial Class Customers_Default3
|
|||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
Else
|
|
||||||
Kdnrtext = Session.Item("CustomerID").ToString
|
|
||||||
End If
|
End If
|
||||||
If Page.IsPostBack = True Then
|
If Page.IsPostBack = True Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
Else
|
|
||||||
Kdnrtext = Session.Item("CustomerID").ToString
|
|
||||||
End If
|
End If
|
||||||
Page.MaintainScrollPositionOnPostBack = True
|
Page.MaintainScrollPositionOnPostBack = True
|
||||||
Else
|
Else
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
Else
|
|
||||||
Kdnrtext = Session.Item("CustomerID").ToString
|
|
||||||
End If
|
End If
|
||||||
Page.MaintainScrollPositionOnPostBack = False
|
Page.MaintainScrollPositionOnPostBack = False
|
||||||
End If
|
End If
|
||||||
@@ -86,224 +80,70 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempcardnr As String = String.Empty
|
||||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
Dim strtempKat 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 strtempPIN As String = String.Empty
|
||||||
Dim strtempRefKundenNr As String = String.Empty
|
Dim strtempVermerk As String = String.Empty
|
||||||
Dim strtempRetourniert 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.CARD_Nr) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempcardnr = l2.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
|
End If
|
||||||
If IsNothing(l2.PIN) = False Then
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
strtempPIN = l2.PIN.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.RefKundenNr) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartenNr)
|
||||||
list.Add(strtempMOTORWAY_CARD_Nr)
|
list.Add(strtempcardnr)
|
||||||
list.Add(strtempMSE_Kd_Nr)
|
|
||||||
list.Add(strtempOBUID)
|
|
||||||
list.Add(strtempPAN_Nr)
|
|
||||||
list.Add(strtempPartner)
|
|
||||||
list.Add(strtempPIN)
|
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempRetourniert)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +161,70 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr As String = String.Empty
|
||||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
Dim strtempcardnr As String = String.Empty
|
||||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
Dim strtempKat 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 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempRetourniert As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
If IsNothing(l2.CARD_Nr) = False Then
|
||||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
strtempcardnr = l2.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
|
End If
|
||||||
If IsNothing(l2.PIN) = False Then
|
If IsNothing(l2.PIN) = False Then
|
||||||
strtempPIN = l2.PIN.ToString
|
strtempPIN = l2.PIN.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.RefKundenNr) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Retourniert) = False Then
|
If IsNothing(l2.Retourniert) = False Then
|
||||||
strtempRetourniert = l2.Retourniert.ToString
|
strtempRetourniert = l2.Retourniert.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Defekt) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempDefekt = l2.Defekt.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Archiviert) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempArchivt = l2.Archiviert.ToString
|
||||||
End If
|
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
|
||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartenNr)
|
||||||
list_M.Add(strtempMOTORWAY_CARD_Nr)
|
list_M.Add(strtempcardnr)
|
||||||
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(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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempRetourniert)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -86,224 +86,63 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails As New List(Of List(Of String))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempPartner As String = String.Empty
|
Dim strtempErsatzkarte As String = String.Empty
|
||||||
Dim strtempPIN As String = String.Empty
|
Dim strtempabgemeldet 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 strtempVerloren As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempGestohlen As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempGesperrt As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempDefekt As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempabgemeldet = l2.LKWAbgemeldet.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list.Add(strtempMasterPIN)
|
list.Add(strtempKartenNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list.Add(strtempVertragsNr)
|
|
||||||
list.Add(strtempVIACARD)
|
|
||||||
list.Add(strtempAenderungsdatum)
|
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempErsatzkarte)
|
||||||
|
list.Add(strtempabgemeldet)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -321,223 +160,63 @@ Partial Class Customers_Default3
|
|||||||
Dim listdetails_M As New List(Of List(Of String))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
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 strtempLieferdatum As String = String.Empty
|
||||||
Dim strtempMasterPIN As String = String.Empty
|
Dim strtempKartenNr 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 strtempVermerk As String = String.Empty
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempErsatzkarte As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempabgemeldet As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempVerloren As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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
|
If IsNothing(l2.Bestelldatum) = False Then
|
||||||
strtempbestelltam = l2.Bestelldatum.ToString
|
strtempbestelltam = l2.Bestelldatum.ToString
|
||||||
End If
|
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
|
If IsNothing(l2.Lieferdatum) = False Then
|
||||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.MasterPIN) = False Then
|
If IsNothing(l2.KartenNr) = False Then
|
||||||
strtempMasterPIN = l2.MasterPIN.ToString
|
strtempKartenNr = l2.KartenNr.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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.Ersatzkarte) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempabgemeldet = l2.LKWAbgemeldet.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
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(strtempLieferdatum)
|
||||||
list_M.Add(strtempMasterPIN)
|
list_M.Add(strtempKartenNr)
|
||||||
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(strtempVertragsabschlussdatum)
|
|
||||||
list_M.Add(strtempVertragsNr)
|
|
||||||
list_M.Add(strtempVIACARD)
|
|
||||||
list_M.Add(strtempAenderungsdatum)
|
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempErsatzkarte)
|
||||||
|
list_M.Add(strtempabgemeldet)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
@@ -260,7 +260,7 @@ Partial Class Customers_Default3
|
|||||||
End If
|
End If
|
||||||
|
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list.Add(strtempbestelltam)
|
list.Add(strtempbestelltam)
|
||||||
list.Add(strtempKat)
|
list.Add(strtempKat)
|
||||||
list.Add(strtempGueltigBis)
|
list.Add(strtempGueltigBis)
|
||||||
@@ -494,7 +494,7 @@ Partial Class Customers_Default3
|
|||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
||||||
End If
|
End If
|
||||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
' list.Add(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(l2.SDLNr.ToString)
|
|
||||||
list_M.Add(strtempbestelltam)
|
list_M.Add(strtempbestelltam)
|
||||||
list_M.Add(strtempKat)
|
list_M.Add(strtempKat)
|
||||||
list_M.Add(strtempGueltigBis)
|
list_M.Add(strtempGueltigBis)
|
||||||
|
|||||||
@@ -6,8 +6,6 @@ Partial Class Customers_Default3
|
|||||||
Inherits System.Web.UI.Page
|
Inherits System.Web.UI.Page
|
||||||
Shared Kdnrtext As String = String.Empty
|
Shared Kdnrtext As String = String.Empty
|
||||||
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
Sub Page_Load(sender As Object, Eventarg As EventArgs) Handles Me.Load
|
||||||
|
|
||||||
|
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
If String.Equals(Session.Item("CustomerID"), String.Empty) Then
|
||||||
Kdnrtext = Request.QueryString("CustomerID").ToString
|
Kdnrtext = Request.QueryString("CustomerID").ToString
|
||||||
@@ -85,225 +83,81 @@ Partial Class Customers_Default3
|
|||||||
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
|
Dim 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))
|
Dim listdetails As New List(Of List(Of String))
|
||||||
For Each l2 In list2
|
For Each l2 In list2
|
||||||
Dim strtempbestelltam As String = String.Empty
|
Dim strtempbestellNr 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 strtempUmstellungsdatum As String = String.Empty
|
||||||
Dim strtempVerloren As String = String.Empty
|
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempKat As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempStatus As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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.Kategorie) = False Then
|
If IsNothing(l2.BestellNr) = False Then
|
||||||
strtempKat = l2.Kategorie.ToString
|
strtempbestellNr = l2.BestellNr.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
|
End If
|
||||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
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
|
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(l2.SDLNr.ToString)
|
list.Add(strtempbestellNr)
|
||||||
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(strtempUmstellungsdatum)
|
||||||
list.Add(strtempVerloren)
|
|
||||||
list.Add(strtempVertragsabschlussdatum)
|
list.Add(strtempVertragsabschlussdatum)
|
||||||
list.Add(strtempVertragsNr)
|
list.Add(strtempGueltigBis)
|
||||||
list.Add(strtempVIACARD)
|
list.Add(strtempKat)
|
||||||
list.Add(strtempAenderungsdatum)
|
list.Add(strtempStatus)
|
||||||
|
list.Add(strtempSchadstoffklasse)
|
||||||
|
list.Add(strtempOBUID)
|
||||||
list.Add(strtempVermerk)
|
list.Add(strtempVermerk)
|
||||||
|
list.Add(strtempGueltigBis)
|
||||||
|
list.Add(strtempVerloren)
|
||||||
|
list.Add(strtempGestohlen)
|
||||||
|
list.Add(strtempGesperrt)
|
||||||
|
list.Add(strtempDefekt)
|
||||||
|
list.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails.Add(list)
|
listdetails.Add(list)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
@@ -320,224 +174,81 @@ Partial Class Customers_Default3
|
|||||||
Dim list2_M As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
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))
|
Dim listdetails_M As New List(Of List(Of String))
|
||||||
For Each l2 In list2_M
|
For Each l2 In list2_M
|
||||||
Dim strtempbestelltam As String = String.Empty
|
Dim strtempbestellNr 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 strtempUmstellungsdatum As String = String.Empty
|
||||||
Dim strtempVerloren As String = String.Empty
|
|
||||||
Dim strtempVermerk As String = String.Empty
|
|
||||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||||
Dim strtempVertragsNr As String = String.Empty
|
Dim strtempKat As String = String.Empty
|
||||||
Dim strtempVIACARD As String = String.Empty
|
Dim strtempStatus As String = String.Empty
|
||||||
Dim strtempAenderungsdatum 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.Kategorie) = False Then
|
If IsNothing(l2.BestellNr) = False Then
|
||||||
strtempKat = l2.Kategorie.ToString
|
strtempbestellNr = l2.BestellNr.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
|
End If
|
||||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Verloren) = False Then
|
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||||
strtempVerloren = l2.Verloren.ToString
|
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
|
End If
|
||||||
If IsNothing(l2.Vermerk) = False Then
|
If IsNothing(l2.Vermerk) = False Then
|
||||||
strtempVermerk = l2.Vermerk.ToString
|
strtempVermerk = l2.Vermerk.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
If IsNothing(l2.GültigBis) = False Then
|
||||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
strtempGueltigBis = l2.GültigBis.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VertragsNr) = False Then
|
If IsNothing(l2.Verloren) = False Then
|
||||||
strtempVertragsNr = l2.VertragsNr.ToString
|
strtempVerloren = l2.Verloren.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.VIACARD) = False Then
|
If IsNothing(l2.Gestohlen) = False Then
|
||||||
strtempVIACARD = l2.VIACARD.ToString
|
strtempGestohlen = l2.Gestohlen.ToString
|
||||||
End If
|
End If
|
||||||
If IsNothing(l2.Änderungsdatum) = False Then
|
If IsNothing(l2.Gesperrt) = False Then
|
||||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
strtempGesperrt = l2.Gesperrt.ToString
|
||||||
End If
|
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(l2.SDLNr.ToString)
|
list_M.Add(strtempbestellNr)
|
||||||
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(strtempUmstellungsdatum)
|
||||||
list_M.Add(strtempVerloren)
|
|
||||||
list_M.Add(strtempVertragsabschlussdatum)
|
list_M.Add(strtempVertragsabschlussdatum)
|
||||||
list_M.Add(strtempVertragsNr)
|
list_M.Add(strtempGueltigBis)
|
||||||
list_M.Add(strtempVIACARD)
|
list_M.Add(strtempKat)
|
||||||
list_M.Add(strtempAenderungsdatum)
|
list_M.Add(strtempStatus)
|
||||||
|
list_M.Add(strtempSchadstoffklasse)
|
||||||
|
list_M.Add(strtempOBUID)
|
||||||
list_M.Add(strtempVermerk)
|
list_M.Add(strtempVermerk)
|
||||||
|
list_M.Add(strtempGueltigBis)
|
||||||
|
list_M.Add(strtempVerloren)
|
||||||
|
list_M.Add(strtempGestohlen)
|
||||||
|
list_M.Add(strtempGesperrt)
|
||||||
|
list_M.Add(strtempDefekt)
|
||||||
|
list_M.Add(strtempArchivt)
|
||||||
|
|
||||||
listdetails_M.Add(list_M)
|
listdetails_M.Add(list_M)
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
Reference in New Issue
Block a user