erste Tests

App_Code/GetTable.vb

@@ -0,0 +1,54 @@
+Imports System.Web
+Imports System.Web.Services
+Imports System.Web.Services.Protocols
+
+' Wenn der Aufruf dieses Webdiensts aus einem Skript zulässig sein soll, heben Sie mithilfe von ASP.NET AJAX die Kommentarmarkierung für die folgende Zeile auf.
+<System.Web.Script.Services.ScriptService()>
+<WebService(Namespace:="verag.ag")>
+<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)>
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Public Class GetTable
+    Inherits System.Web.Services.WebService
+
+    <WebMethod()>
+    Private Function buildtablerow(tbl As Table, SDLNumber As String, Bezstr As String, Datgueltigbisstr As String, KartNr As String) As Table
+
+        Dim row As TableRow = New TableRow
+        Dim c1 As TableCell = New TableCell
+        Dim c2 As TableCell = New TableCell
+        Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
+
+        c1.Text = SDLNumber
+        c2.Text = Bezstr
+        c3.Text = Datgueltigbisstr
+        c4.Text = KartNr
+        row.Cells.Add(c1)
+        row.Cells.Add(c2)
+        row.Cells.Add(c3)
+        row.Cells.Add(c4)
+        tbl.Rows.Add(row)
+        Return tbl
+    End Function
+
+    <WebMethod()>
+    Private Function buildtablerow_M(tbl As Table, SDLNumber_M As String, Bezstr_M As String, Datgueltigbisstr_M As String, KartNr_M As String) As Table
+
+        Dim row As TableRow = New TableRow
+        Dim c1 As TableCell = New TableCell
+        Dim c2 As TableCell = New TableCell
+        Dim c3 As TableCell = New TableCell
+        Dim c4 As TableCell = New TableCell
+
+        c1.Text = SDLNumber_M
+        c2.Text = Bezstr_M
+        c3.Text = Datgueltigbisstr_M
+        c4.Text = KartNr_M
+        row.Cells.Add(c1)
+        row.Cells.Add(c2)
+        row.Cells.Add(c3)
+        row.Cells.Add(c4)
+        tbl.Rows.Add(row)
+        Return tbl
+    End Function
+End Class