alle werte werden übergeben aber erstes ergebnis wird nur angezeigt
This commit is contained in:
@@ -78,7 +78,7 @@ 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 listdetails As New List(Of List(Of String))
|
||||
For Each l2 In list2
|
||||
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr = SDLNr And l2.KartenNr = CardNo Then
|
||||
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.KartenNr.ToString = CardNo Then
|
||||
Dim strtempbestelltam As String = String.Empty
|
||||
Dim strtempLieferdatum As String = String.Empty
|
||||
Dim strtempKartenNr As String = String.Empty
|
||||
@@ -91,6 +91,7 @@ Partial Class Customers_Default3
|
||||
Dim strtempGesperrt As String = String.Empty
|
||||
Dim strtempDefekt As String = String.Empty
|
||||
Dim strtempArchivt As String = String.Empty
|
||||
Dim strtempGueltigbis As String = String.Empty
|
||||
|
||||
If IsNothing(l2.Bestelldatum) = False Then
|
||||
strtempbestelltam = l2.Bestelldatum.ToString
|
||||
@@ -128,6 +129,9 @@ Partial Class Customers_Default3
|
||||
If IsNothing(l2.Archiviert) = False Then
|
||||
strtempArchivt = l2.Archiviert.ToString
|
||||
End If
|
||||
If IsNothing(l2.GültigBis) = False Then
|
||||
strtempGueltigbis = l2.GültigBis.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))
|
||||
|
||||
@@ -139,6 +143,7 @@ Partial Class Customers_Default3
|
||||
list.Add(strtempVermerk)
|
||||
list.Add(strtempRetourniert)
|
||||
list.Add(l2.KfzKennzeichen)
|
||||
list.Add(strtempGueltigbis)
|
||||
If String.Equals(strtempVerloren, "False") Or String.Equals(strtempGestohlen, "False") Or String.Equals(strtempGesperrt, "False") Or String.Equals(strtempDefekt, "False") Or String.Equals(strtempArchivt, "False") Then
|
||||
listdetails.Add(list)
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user