Abfrageanpassungen der JSON abfragen und sendungen
This commit is contained in:
ja
@@ -73,12 +73,12 @@ Partial Class Customers_Default3
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails(Kennzeichen As String, CardNom As String) As FormattedList
|
||||
Public Shared Function filltabledetails(Kennzeichen As String, Kundennr As String, SDLNr As String, History 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
|
||||
If l2.KartenNr = CardNom Then
|
||||
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
|
||||
Dim strtempbestelltam As String = String.Empty
|
||||
Dim strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempKat As String = String.Empty
|
||||
@@ -153,78 +153,80 @@ Partial Class Customers_Default3
|
||||
|
||||
<WebMethod>
|
||||
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
|
||||
Public Shared Function filltabledetails_M(Kennzeichen As String) As FormattedList
|
||||
Public Shared Function filltabledetails_M(Kennzeichen As String, Kundennr As String, SDLNr As String, History 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 strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempKat As String = String.Empty
|
||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||
Dim strtempStatus As String = String.Empty
|
||||
Dim strtempSchadstoffklasse As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
Dim strtempGueltigBis As String = String.Empty
|
||||
Dim strtempVerloren As String = String.Empty
|
||||
Dim strtempGestohlen As String = String.Empty
|
||||
Dim strtempGesperrt As String = String.Empty
|
||||
Dim strtempDefekt As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr AndAlso l2.History = History Then
|
||||
Dim strtempbestelltam As String = String.Empty
|
||||
Dim strtempUmstellungsdatum As String = String.Empty
|
||||
Dim strtempKat As String = String.Empty
|
||||
Dim strtempVertragsabschlussdatum As String = String.Empty
|
||||
Dim strtempStatus As String = String.Empty
|
||||
Dim strtempSchadstoffklasse As String = String.Empty
|
||||
Dim strtempVermerk As String = String.Empty
|
||||
Dim strtempGueltigBis As String = String.Empty
|
||||
Dim strtempVerloren As String = String.Empty
|
||||
Dim strtempGestohlen As String = String.Empty
|
||||
Dim strtempGesperrt As String = String.Empty
|
||||
Dim strtempDefekt As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
|
||||
|
||||
If IsNothing(l2.Bestelldatum) = False Then
|
||||
strtempbestelltam = l2.Bestelldatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kategorie) = False Then
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.Schadstoffklasse) = False Then
|
||||
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Gestohlen) = False Then
|
||||
strtempGestohlen = l2.Gestohlen.ToString
|
||||
End If
|
||||
If IsNothing(l2.Gesperrt) = False Then
|
||||
strtempGesperrt = l2.Gesperrt.ToString
|
||||
End If
|
||||
If IsNothing(l2.Defekt) = False Then
|
||||
strtempDefekt = l2.Defekt.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.Bestelldatum) = False Then
|
||||
strtempbestelltam = l2.Bestelldatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Umstellungsdatum) = False Then
|
||||
strtempUmstellungsdatum = l2.Umstellungsdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Kategorie) = False Then
|
||||
strtempKat = l2.Kategorie.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vertragsabschlussdatum) = False Then
|
||||
strtempVertragsabschlussdatum = l2.Vertragsabschlussdatum.ToString
|
||||
End If
|
||||
If IsNothing(l2.Status) = False Then
|
||||
strtempStatus = l2.Status.ToString
|
||||
End If
|
||||
If IsNothing(l2.Schadstoffklasse) = False Then
|
||||
strtempSchadstoffklasse = l2.Schadstoffklasse.ToString
|
||||
End If
|
||||
If IsNothing(l2.Vermerk) = False Then
|
||||
strtempVermerk = l2.Vermerk.ToString
|
||||
End If
|
||||
If IsNothing(l2.Verloren) = False Then
|
||||
strtempVerloren = l2.Verloren.ToString
|
||||
End If
|
||||
If IsNothing(l2.Gestohlen) = False Then
|
||||
strtempGestohlen = l2.Gestohlen.ToString
|
||||
End If
|
||||
If IsNothing(l2.Gesperrt) = False Then
|
||||
strtempGesperrt = l2.Gesperrt.ToString
|
||||
End If
|
||||
If IsNothing(l2.Defekt) = False Then
|
||||
strtempDefekt = l2.Defekt.ToString
|
||||
End If
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
|
||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
||||
' list.Add(New Entry(l2.SDLNr.ToString, strtempKat, strtempGueltigBis, strtempKartenNr, strtempKaut, strtempArchivt, strtempBelegNr, strtempErsatzkarte, strtempDefektAm, strtempFahrer, strtempGesperrtAm, strtempHistory, strtempHasEntry, strtempFlottenPIN, strtempFREJUS_CARD_Nr, strtempGestohlenAm, strtempLKWAbgemeldet, strtempLKWAbgemeldetAM, strtempLieferdatum, strtempMasterPIN, strtempMOTORWAY_CARD_Nr, strtempMSE_Kd_Nr, strtempOBUID, strtempPAN_Nr, strtempPartner, strtempPIN, strtempRefKundenNr, strtempRetourniert, strtempRetourniertAm, strtempSachbearbeiter, strtempSERIE_Nr, strtempStatus, strtempTelepassErsatzkarte, strtempTelepassErsatzkarteAm, strtempTELEPASS_Kd_Nr, strtempTELEPASS_Nr, strtempUmstellungsdatum, strtempVerloren, strtempVertragsabschlussdatum, strtempVertragsNr, strtempVIACARD, strtempAenderungsdatum, strtempVermerk))
|
||||
|
||||
list_M.Add(strtempbestelltam)
|
||||
list_M.Add(strtempUmstellungsdatum)
|
||||
list_M.Add(strtempKat)
|
||||
list_M.Add(strtempVertragsabschlussdatum)
|
||||
list_M.Add(strtempStatus)
|
||||
list_M.Add(strtempSchadstoffklasse)
|
||||
list_M.Add(strtempVermerk)
|
||||
list_M.Add(strtempGueltigBis)
|
||||
list_M.Add(l2.KfzKennzeichen)
|
||||
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
|
||||
listdetails_M.Add(list_M)
|
||||
list_M.Add(strtempbestelltam)
|
||||
list_M.Add(strtempUmstellungsdatum)
|
||||
list_M.Add(strtempKat)
|
||||
list_M.Add(strtempVertragsabschlussdatum)
|
||||
list_M.Add(strtempStatus)
|
||||
list_M.Add(strtempSchadstoffklasse)
|
||||
list_M.Add(strtempVermerk)
|
||||
list_M.Add(strtempGueltigBis)
|
||||
list_M.Add(l2.KfzKennzeichen)
|
||||
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") And l2.KartenNr = CardNr Then
|
||||
listdetails_M.Add(list_M)
|
||||
End If
|
||||
End If
|
||||
Next
|
||||
|
||||
|
||||
Reference in New Issue
Block a user