Implementierung FOrmbefüllung mit JSON OBjekten und getrennten Datenströmen

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

@@ -133,13 +133,9 @@ Partial Class Customers_Default3
             list.Add(strtempTELEPASS_Nr)
             list.Add(strtempVermerk)
             list.Add(strtempRetourniert)
-            list.Add(strtempVerloren)
-            list.Add(strtempGestohlen)
-            list.Add(strtempGesperrt)
-            list.Add(strtempDefekt)
-            list.Add(strtempArchivt)
-
-            listdetails.Add(list)
+            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
         Next
 
         HttpContext.Current.Response.ContentType = "application/json"
@@ -159,6 +155,7 @@ Partial Class Customers_Default3
             Dim strtempLieferdatum As String = String.Empty
             Dim strtempVIACARD As String = String.Empty
             Dim strtempTELEPASS_Nr As String = String.Empty
+            Dim strtempErsatzTelepass As String = String.Empty
             Dim strtempVermerk As String = String.Empty
             Dim strtempRetourniert As String = String.Empty
             Dim strtempVerloren As String = String.Empty
@@ -182,6 +179,9 @@ Partial Class Customers_Default3
             If IsNothing(l2.Vermerk) = False Then
                 strtempVermerk = l2.Vermerk.ToString
             End If
+            If IsNothing(l2.TelepassErsatzkarte) = False Then
+                strtempErsatzTelepass = l2.TelepassErsatzkarte.ToString
+            End If
             If IsNothing(l2.Retourniert) = False Then
                 strtempRetourniert = l2.Retourniert.ToString
             End If
@@ -208,14 +208,11 @@ Partial Class Customers_Default3
             list_M.Add(strtempVIACARD)
             list_M.Add(strtempTELEPASS_Nr)
             list_M.Add(strtempVermerk)
+            list_M.Add(strtempErsatzTelepass)
             list_M.Add(strtempRetourniert)
-            list_M.Add(strtempVerloren)
-            list_M.Add(strtempGestohlen)
-            list_M.Add(strtempGesperrt)
-            list_M.Add(strtempDefekt)
-            list_M.Add(strtempArchivt)
-
-            listdetails_M.Add(list_M)
+            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_M.Add(list_M)
+            End If
 
         Next