From 9b001e5803103057acefcebb54c449ba84b2a2b6 Mon Sep 17 00:00:00 2001
From: Andreas Luxbauer <al@verag.ag>
Date: Mon, 6 Dec 2021 11:53:02 +0100
Subject: [PATCH] neu

---
 SDL/frmMain.vb | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/SDL/frmMain.vb b/SDL/frmMain.vb
index 6ccc789f..eea5f943 100644
--- a/SDL/frmMain.vb
+++ b/SDL/frmMain.vb
@@ -517,19 +517,19 @@ Public Class frmMain
     Private Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
         'Form1.Show()
         ' Dim l As New VERAG_PROG_ALLGEMEIN.cSDL_LKW.GET_LIST_WEB(401462)
-        Dim sdl As New VERAG_PROG_ALLGEMEIN.cSDL
+        '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
+        '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)
+        '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