Änderunge LKW

Customers/LKWs.aspx.vb

@@ -423,20 +423,13 @@ Partial Class LKWS
         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
-                Entrytemp.SDL = l2.SDLNr.ToString
-                Entrytemp.Bez = l2.Kategorie.ToString
-                Entrytemp.Gueltigbis = l2.GültigBis.ToString
-                Entrytemp.KartNr = l2.KartenNr.ToString
+                Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
+
                 list.Add(Entrytemp)
             Next
         ElseIf list2.Count = 0 Then
-             Dim Entrytemp As New Entry
+            Dim Entrytemp As New Entry("Keine", "Daten", "gefunden", "!")
 
-            Entrytemp.SDL = "Keine"
-            Entrytemp.Bez = "Daten"
-            Entrytemp.Gueltigbis = "gefunden!"
-            Entrytemp.KartNr = String.Empty
             list.Add(Entrytemp)
         End If
         Return list
@@ -447,6 +440,12 @@ Partial Class LKWS
         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)>
@@ -460,19 +459,12 @@ Partial Class LKWS
         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
-                Entrytemp.SDL = l2.SDLNr.ToString
-                Entrytemp.Bez = l2.Kategorie.ToString
-                Entrytemp.Gueltigbis = l2.GültigBis.ToString
-                Entrytemp.KartNr = l2.KartenNr.ToString
+                Dim Entrytemp As New Entry(l2.SDLNr.ToString, l2.Kategorie.ToString, l2.GültigBis.ToString, l2.KartenNr.ToString)
                 list.Add(Entrytemp)
             Next
         ElseIf list2.Count = 0 Then
-            Dim Entrytempempty As New Entry
-            Entrytempempty.SDL = "Keine"
-            Entrytempempty.Bez = "Daten"
-            Entrytempempty.Gueltigbis = "gefunden!"
-            Entrytempempty.KartNr = String.Empty
+            Dim Entrytempempty As New Entry("Keine", "Daten", "gefunden!", String.Empty)
+
             list.Add(Entrytempempty)
         End If
         Return list