neu

SDL/frmMain.vb

@@ -515,7 +515,21 @@ Public Class frmMain
 
 
     Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
-        Form1.Show()
+        'Form1.Show()
+        ' Dim l As New VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401462)
+        Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL
+
+        Dim list = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB(401940)
+        For Each l In list
+            l.KfzKennzeichen
+        Next
+
+        MsgBox(list.Count)
+        Dim list2 = VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401940)
+        MsgBox(list2.Count)
+        Dim list3 = VERAG_PROG_ALLGEMEIN.cSDL.GET_LIST_WEB_LKW(401940, list2(0).KfzKennzeichen)
+        MsgBox(list3.Count)
+        MsgBox(list3(0).KartenNr)
     End Sub