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