edv/VERAG_Homepage
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Änderung funktionerende 2 karten 202 sowie SDLNr 100

Browse Source
This commit is contained in:
ja
2022-02-07 14:39:28 +01:00
parent 842f72eb64
commit c87708eea9
15 changed files with 65 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Customers/SDL/Formtemplate IDS Tankkarte.aspx.vb
View File

@@ -73,12 +73,12 @@ Partial Class Customers_Default3
<WebMethod>
<ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, Cardno As String, SDLNr As String, History 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.KundenNr.ToString = KundenNr AndAlso l2.SDLNr = SDLNr Then
If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.History.ToString = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty
@@ -138,7 +138,6 @@ Partial Class Customers_Default3
list.Add(strtempGueltigBis)
list.Add(strtempErsatzKarte)
list.Add(l2.KfzKennzeichen)
list.Add(l2.SDLNr.ToString)
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