54 lines
1.8 KiB
VB.net
54 lines
1.8 KiB
VB.net
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 |