Änderungen

Customers/LKWs.aspx.vb

@@ -412,6 +412,53 @@ Partial Class LKWS
         Next
     End Sub
 
+    <Serializable>
+    Public Class Entry
+        Private SDLNr As String
+        Private Bez As String
+        Private GueltigBis As String
+        Private Kartnr As String
+
+        Public Property _SDLNr() As String
+            Get
+                Return SDLNr
+            End Get
+            Set(ByVal value As String)
+                SDLNr = value
+            End Set
+        End Property
+        Public Property _Bez As String
+            Get
+                Return Bez
+            End Get
+            Set(ByVal value As String)
+                Bez = value
+            End Set
+        End Property
+        Public Property _GueltigBis As String
+            Get
+                Return GueltigBis
+            End Get
+            Set(ByVal value As String)
+                GueltigBis = value
+            End Set
+        End Property
+        Public Property _KartenNr As String
+            Get
+                Return Kartnr
+            End Get
+            Set(ByVal value As String)
+                Kartnr = value
+            End Set
+        End Property
+        Public Sub New(ByVal SDL As String, Bez As String, ByVal GueltigBis As String, ByVal KartNr As String)
+            Me._SDLNr = SDL
+            Me._Bez = Bez
+            Me._GueltigBis = GueltigBis
+            Me._KartenNr = KartNr
+        End Sub
+    End Class
+
     <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
     Public Shared Function filltable2(Kennzeichen As String) As List(Of Entry)
@@ -419,34 +466,18 @@ Partial Class LKWS
         Dim strtemp3 As String = strtemp2.Remove(0, 1)
         MsgBox(Kdnrtext + vbCr + strtemp3)
         Dim list As List(Of Entry) = New List(Of Entry)
-
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
         If list2.Count > 0 Then
             For Each l2 In list2
-                Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
-
-                list.Add(Entrytemp)
+                Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
+                list.Add(entr)
             Next
         ElseIf list2.Count = 0 Then
-            Dim Entrytemp As New Entry("Keine", "Daten", "gefunden", "!")
-
-            list.Add(Entrytemp)
+            Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
+            list.Add(container)
         End If
         Return list
     End Function
-    <Serializable>
-    Public Class Entry
-        Public SDL As String = String.Empty
-        Public Bez As String = String.Empty
-        Public Gueltigbis As String = String.Empty
-        Public KartNr As String = String.Empty
-        Public Sub New(ByVal SDL As String, ByVal Bez As String, ByVal Gueltigbis As String, ByVal KartNr As String)
-            Me.SDL = SDL
-            Me.Bez = Bez
-            Me.Gueltigbis = Gueltigbis
-            Me.KartNr = KartNr
-        End Sub
-    End Class
 
     <WebMethod(BufferResponse:=False, CacheDuration:=120, Description:="Funktion zum zurückgeben einer Tabelle", EnableSession:=False, TransactionOption:=EnterpriseServices.TransactionOption.NotSupported)>
     <ScriptMethod(ResponseFormat:=ResponseFormat.Json, UseHttpGet:=False)>
@@ -455,17 +486,15 @@ Partial Class LKWS
         Dim strtemp3 As String = strtemp2.Remove(0, 1)
         MsgBox(Kdnrtext + vbCr + strtemp3)
         Dim list As List(Of Entry) = New List(Of Entry)
-
         Dim list2 As List(Of VERAG_PROG_ALLGEMEIN.cSDL) = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(Integer.Parse(Kdnrtext), Kennzeichen)
         If list2.Count > 0 Then
             For Each l2 In list2
-                Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
-                list.Add(Entrytemp)
+                Dim entr As Entry = New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
+                list.Add(entr)
             Next
         ElseIf list2.Count = 0 Then
-            Dim Entrytempempty As New Entry("Keine", "Daten", "gefunden!", String.Empty)
-
-            list.Add(Entrytempempty)
+            Dim container As New Entry("Keine", "gültigen", "Daten", "gefunden!")
+            list.Add(container)
         End If
         Return list
     End Function