Änderungen GUI

Customers/SDL/MAUT/Formtemplate MAUT IT.aspx.vb

@@ -74,7 +74,7 @@ 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, SDLNr As String, History As String, GueltigBis As String, Pin 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))

Customers/SDL/MAUT/Formtemplate MAUT_CZ_Plose.aspx.vb

@@ -73,7 +73,7 @@ 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, SDLNr As String, History As String, GueltigBis As String, Pin 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))

Customers/SDL/MAUT/Formtemplate Maut_PL.aspx.vb

@@ -73,7 +73,7 @@ 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, SDLNr As String, History As String, GueltigBis As String, Pin 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))

Customers/SDL/MAUT/FormtemplateMAUT_DE_Toll Collect.aspx.vb

@@ -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, CardNo As String, SDLNr As String, History As String, GueltigBis As String, Pin 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.ToString = SDLNr And l2.KartenNr.ToString = CardNo Then
+            If l2.KundenNr.ToString = Kundennr AndAlso l2.SDLNr.ToString = SDLNr And l2.KartenNr.ToString = CardNo AndAlso l2.History = History Then
                 Dim strtempbestelltam As String = String.Empty
                 Dim strtempLieferdatum As String = String.Empty
                 Dim strtempKartenNr As String = String.Empty
@@ -97,9 +97,9 @@ Partial Class Customers_Default3
                 If IsNothing(l2.Lieferdatum) = False Then
                     strtempLieferdatum = l2.Lieferdatum.ToString.Substring(0, 10)
                 End If
-                If IsNothing(l2.KartenNr) = False Then
-                    strtempKartenNr = l2.KartenNr.ToString
-                End If
+
+                strtempKartenNr = CardNo
+
                 If IsNothing(l2.Vermerk) = False Then
                     strtempVermerk = l2.Vermerk.ToString
                 End If