'------------------------------------------------------------------------------ ' ' This code was generated by a tool. ' Runtime Version: 1.0.3705.288 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Imports System.ComponentModel Imports System.Diagnostics Imports System.Web.Services Imports System.Web.Services.Protocols Imports System.Xml.Serialization ' 'Saturn Web Development Tool ' Namespace ect ' _ Public Class recordIdDetailClass Inherits System.Web.Services.Protocols.SoapHttpClientProtocol ' Public Sub New() MyBase.New Me.Url = "http://128.248.192.168/AGSM/detail/detail.asmx" End Sub ' _ Public Function getRecordIdDetailMethod(ByVal recordID As String) As System.Data.DataSet Dim results() As Object = Me.Invoke("getRecordIdDetailMethod", New Object() {recordID}) Return CType(results(0),System.Data.DataSet) End Function ' Public Function BegingetRecordIdDetailMethod(ByVal recordID As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult Return Me.BeginInvoke("getRecordIdDetailMethod", New Object() {recordID}, callback, asyncState) End Function ' Public Function EndgetRecordIdDetailMethod(ByVal asyncResult As System.IAsyncResult) As System.Data.DataSet Dim results() As Object = Me.EndInvoke(asyncResult) Return CType(results(0),System.Data.DataSet) End Function End Class End Namespace