Alle Parameter werden in der Detailansicht gesetzt
This commit is contained in:
ja
@@ -456,6 +456,7 @@ Partial Class LKWS
|
||||
Private VertragsNr As String = String.Empty
|
||||
Private VIACARD As String = String.Empty
|
||||
Private Aenderungsdatum As String = String.Empty
|
||||
Private Vermerk As String = String.Empty
|
||||
|
||||
Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
|
||||
Me.SDLNr = SDL
|
||||
@@ -467,7 +468,7 @@ Partial Class LKWS
|
||||
ByVal History As String, ByVal HasEntry As String, ByVal FlottenPIN As String, ByVal FREJUS_CARD_Nr As String, ByVal GestohlenAm As String, ByVal LKWAbgemeldet As String, ByVal LKWAbgemeldetAM As String, ByVal Lieferdatum As String, ByVal MasterPIN As String,
|
||||
ByVal MOTORWAY_CARD_Nr As String, ByVal MSE_Kd_Nr As String, ByVal OBUID As String, ByVal PAN_Nr As String, ByVal Partner As String, ByVal PIN As String, ByVal RefKundenNr As String, ByVal Retourniert As String, ByVal RetourniertAm As String, ByVal Sachbearbeiter As String,
|
||||
ByVal SERIE_Nr As String, ByVal Status As String, ByVal TelepassErsatzkarte As String, ByVal TelepassErsatzkarteAm As String, ByVal TELEPASS_Kd_Nr As String, ByVal TELEPASS_Nr As String, ByVal Umstellungsdatum As String, ByVal Verloren As String,
|
||||
ByVal Vertragsabschlussdatum As String, ByVal VertragsNr As String, ByVal VIACARD As String, ByVal Aenderungsdatum As String)
|
||||
ByVal Vertragsabschlussdatum As String, ByVal VertragsNr As String, ByVal VIACARD As String, ByVal Aenderungsdatum As String, ByVal Vermerk As String)
|
||||
Me.SDLNr = SDL
|
||||
Me.Bez = Bez
|
||||
Me.GueltigBis = GueltigBis
|
||||
@@ -510,6 +511,7 @@ Partial Class LKWS
|
||||
Me.VertragsNr = VertragsNr
|
||||
Me.VIACARD = VIACARD
|
||||
Me.Aenderungsdatum = Aenderungsdatum
|
||||
Me.Vermerk = Vermerk
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
@@ -517,6 +519,7 @@ Partial Class LKWS
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
|
||||
Dim list As List(Of Entry) = New List(Of Entry)
|
||||
Dim listdetails As List(Of Entry) = New List(Of Entry)
|
||||
Dim strtemp As String = Kennzeichen.Remove(0, 1)
|
||||
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
|
||||
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
||||
@@ -525,172 +528,17 @@ Partial Class LKWS
|
||||
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
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kaution) = False Then
|
||||
strtempKaut = l2.Kaution.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.BelegNr) = False Then
|
||||
strtempBelegNr = l2.BelegNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Ersatzkarte) = False Then
|
||||
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.DefektAm) = False Then
|
||||
strtempDefektAm = l2.DefektAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Fahrer) = False Then
|
||||
strtempFahrer = l2.Fahrer.ToString
|
||||
End If
|
||||
If IsNothing(l2.GesperrtAm) = False Then
|
||||
strtempGesperrtAm = l2.GesperrtAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.History) = False Then
|
||||
strtempHistory = l2.History.ToString
|
||||
End If
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempHasEntry = l2.hasentry.ToString
|
||||
End If
|
||||
If IsNothing(l2.FlottenPIN) = False Then
|
||||
strtempFlottenPIN = l2.FlottenPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||
strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.GestohlenAm) = False Then
|
||||
strtempGestohlenAm = l2.GestohlenAm.ToString
|
||||
End If
|
||||
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempGueltigBis = l2.GültigBis.ToString
|
||||
End If
|
||||
If IsNothing(l2.KartenNr) = False Then
|
||||
strtempKartenNr = l2.KartenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||
strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldetAM) = False Then
|
||||
strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
|
||||
End If
|
||||
If IsNothing(l2.Lieferdatum) = False Then
|
||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.MasterPIN) = False Then
|
||||
strtempMasterPIN = l2.MasterPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.OBUID) = False Then
|
||||
strtempOBUID = l2.OBUID.ToString
|
||||
End If
|
||||
If IsNothing(l2.PAN_Nr) = False Then
|
||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Partner) = False Then
|
||||
strtempPartner = l2.Partner.ToString
|
||||
End If
|
||||
If IsNothing(l2.PIN) = False Then
|
||||
strtempPIN = l2.PIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.RefKundenNr) = False Then
|
||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Retourniert) = False Then
|
||||
strtempRetourniert = l2.Retourniert.ToString
|
||||
End If
|
||||
If IsNothing(l2.RetourniertAm) = False Then
|
||||
strtempRetourniertAm = l2.RetourniertAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Sachbearbeiter) = False Then
|
||||
strtempSachbearbeiter = l2.Sachbearbeiter.ToString
|
||||
End If
|
||||
If IsNothing(l2.SERIE_Nr) = False Then
|
||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
|
||||
strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.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
|
||||
|
||||
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
|
||||
Next
|
||||
@@ -705,6 +553,222 @@ Partial Class LKWS
|
||||
Dim strtemp As String = Kennzeichen.Remove(0, 1)
|
||||
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
|
||||
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
||||
For Each l2 In list2
|
||||
Dim strtempKat As String = String.Empty
|
||||
Dim strtempKartenNr As String = String.Empty
|
||||
Dim strtempGueltigBis As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
|
||||
If IsNothing(l2.Kategorie) = False Then
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.GültigBis) = False Then
|
||||
strtempGueltigBis = l2.GültigBis.ToString
|
||||
End If
|
||||
If IsNothing(l2.KartenNr) = False Then
|
||||
strtempKartenNr = l2.KartenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
|
||||
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
|
||||
Next
|
||||
Return list
|
||||
End Function
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String) As List(Of Entry)
|
||||
Dim listdetails As List(Of Entry) = New List(Of Entry)
|
||||
Dim strtemp As String = Kennzeichen.Remove(0, 1)
|
||||
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
|
||||
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
||||
|
||||
For Each l2 In list2
|
||||
Dim strtempKat As String = String.Empty
|
||||
Dim strtempKartenNr As String = String.Empty
|
||||
Dim strtempGueltigBis As String = String.Empty
|
||||
Dim strtempKaut As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
Dim strtempBelegNr As String = String.Empty
|
||||
Dim strtempErsatzkarte As String = String.Empty
|
||||
Dim strtempDefektAm As String = String.Empty
|
||||
Dim strtempFahrer As String = String.Empty
|
||||
Dim strtempGesperrtAm As String = String.Empty
|
||||
Dim strtempHistory As String = String.Empty
|
||||
Dim strtempHasEntry As String = String.Empty
|
||||
Dim strtempFlottenPIN As String = String.Empty
|
||||
Dim strtempFREJUS_CARD_Nr As String = String.Empty
|
||||
Dim strtempGestohlenAm As String = String.Empty
|
||||
Dim strtempLKWAbgemeldet As String = String.Empty
|
||||
Dim strtempLKWAbgemeldetAM As String = String.Empty
|
||||
Dim strtempLieferdatum As String = String.Empty
|
||||
Dim strtempMasterPIN As String = String.Empty
|
||||
Dim strtempMOTORWAY_CARD_Nr As String = String.Empty
|
||||
Dim strtempMSE_Kd_Nr As String = String.Empty
|
||||
Dim strtempOBUID As String = String.Empty
|
||||
Dim strtempPAN_Nr As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
Dim strtempPartner As String = String.Empty
|
||||
Dim strtempPIN As String = String.Empty
|
||||
Dim strtempRefKundenNr As String = String.Empty
|
||||
Dim strtempRetourniert As String = String.Empty
|
||||
Dim strtempRetourniertAm As String = String.Empty
|
||||
Dim strtempSachbearbeiter As String = String.Empty
|
||||
Dim strtempSERIE_Nr As String = String.Empty
|
||||
Dim strtempStatus As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarte As String = String.Empty
|
||||
Dim strtempTelepassErsatzkarteAm As String = String.Empty
|
||||
Dim strtempTELEPASS_Kd_Nr As String = String.Empty
|
||||
Dim strtempTELEPASS_Nr As String = String.Empty
|
||||
Dim strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempVerloren As String = String.Empty
|
||||
Dim 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
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kaution) = False Then
|
||||
strtempKaut = l2.Kaution.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.BelegNr) = False Then
|
||||
strtempBelegNr = l2.BelegNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Ersatzkarte) = False Then
|
||||
strtempErsatzkarte = l2.Ersatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.DefektAm) = False Then
|
||||
strtempDefektAm = l2.DefektAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Fahrer) = False Then
|
||||
strtempFahrer = l2.Fahrer.ToString
|
||||
End If
|
||||
If IsNothing(l2.GesperrtAm) = False Then
|
||||
strtempGesperrtAm = l2.GesperrtAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.History) = False Then
|
||||
strtempHistory = l2.History.ToString
|
||||
End If
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempHasEntry = l2.hasentry.ToString
|
||||
End If
|
||||
If IsNothing(l2.FlottenPIN) = False Then
|
||||
strtempFlottenPIN = l2.FlottenPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.FREJUS_CARD_Nr) = False Then
|
||||
strtempFREJUS_CARD_Nr = l2.FREJUS_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.GestohlenAm) = False Then
|
||||
strtempGestohlenAm = l2.GestohlenAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.hasentry) = False Then
|
||||
strtempGueltigBis = l2.GültigBis.ToString
|
||||
End If
|
||||
If IsNothing(l2.KartenNr) = False Then
|
||||
strtempKartenNr = l2.KartenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldet) = False Then
|
||||
strtempLKWAbgemeldet = l2.LKWAbgemeldet.ToString
|
||||
End If
|
||||
If IsNothing(l2.LKWAbgemeldetAM) = False Then
|
||||
strtempLKWAbgemeldetAM = l2.LKWAbgemeldetAM.ToString
|
||||
End If
|
||||
If IsNothing(l2.Lieferdatum) = False Then
|
||||
strtempLieferdatum = l2.Lieferdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.MasterPIN) = False Then
|
||||
strtempMasterPIN = l2.MasterPIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.MOTORWAY_CARD_Nr) = False Then
|
||||
strtempMOTORWAY_CARD_Nr = l2.MOTORWAY_CARD_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.MSE_Kd_Nr) = False Then
|
||||
strtempMSE_Kd_Nr = l2.MSE_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.OBUID) = False Then
|
||||
strtempOBUID = l2.OBUID.ToString
|
||||
End If
|
||||
If IsNothing(l2.PAN_Nr) = False Then
|
||||
strtempPAN_Nr = l2.PAN_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Partner) = False Then
|
||||
strtempPartner = l2.Partner.ToString
|
||||
End If
|
||||
If IsNothing(l2.PIN) = False Then
|
||||
strtempPIN = l2.PIN.ToString
|
||||
End If
|
||||
If IsNothing(l2.RefKundenNr) = False Then
|
||||
strtempRefKundenNr = l2.RefKundenNr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Retourniert) = False Then
|
||||
strtempRetourniert = l2.Retourniert.ToString
|
||||
End If
|
||||
If IsNothing(l2.RetourniertAm) = False Then
|
||||
strtempRetourniertAm = l2.RetourniertAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.Sachbearbeiter) = False Then
|
||||
strtempSachbearbeiter = l2.Sachbearbeiter.ToString
|
||||
End If
|
||||
If IsNothing(l2.SERIE_Nr) = False Then
|
||||
strtempSERIE_Nr = l2.SERIE_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarte) = False Then
|
||||
strtempTelepassErsatzkarte = l2.TelepassErsatzkarte.ToString
|
||||
End If
|
||||
If IsNothing(l2.TelepassErsatzkarteAm) = False Then
|
||||
strtempTelepassErsatzkarteAm = l2.TelepassErsatzkarteAm.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Kd_Nr) = False Then
|
||||
strtempTELEPASS_Kd_Nr = l2.TELEPASS_Kd_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.TELEPASS_Nr) = False Then
|
||||
strtempTELEPASS_Nr = l2.TELEPASS_Nr.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.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
|
||||
|
||||
listdetails.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))
|
||||
Next
|
||||
|
||||
Return listdetails
|
||||
End Function
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails_M(Kennzeichen As String) As List(Of Entry)
|
||||
Dim listdetails_M As List(Of Entry) = New List(Of Entry)
|
||||
Dim strtemp As String = Kennzeichen.Remove(0, 1)
|
||||
Dim finalstr As String = strtemp.Remove(strtemp.Length - 1, 1)
|
||||
Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), finalstr)
|
||||
|
||||
For Each l2 In list2
|
||||
Dim strtempKat As String = String.Empty
|
||||
Dim strtempKartenNr As String = String.Empty
|
||||
@@ -876,8 +940,9 @@ Partial Class LKWS
|
||||
strtempAenderungsdatum = l2.Änderungsdatum.ToString
|
||||
End If
|
||||
|
||||
list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr))
|
||||
listdetails_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))
|
||||
Next
|
||||
Return list
|
||||
|
||||
Return listdetails_m
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user