Änderungen an der JSON Objektgenerierung

This commit is contained in:
ja
2022-02-04 13:58:56 +01:00
parent 18f140be29
commit eeddf3566f
7 changed files with 236 additions and 160 deletions

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, SDLNr As String, History As String) As FormattedList
Public Shared Function filltabledetails(Kennzeichen As String, KundenNr As String, Cardno As String, CustomerNo 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.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.SDLNr = SDLNr And l2.History = History Then
If l2.KfzKennzeichen = Kennzeichen And l2.KundenNr = KundenNr And l2.KartenNr = Cardno And l2.SDLNr = SDLNr And l2.History = History Then
Dim strtempbestelltam As String = String.Empty
Dim strtempLieferdatum As String = String.Empty
Dim strtempKartenNr As String = String.Empty