SecurePayTech.com logo

'------------------------------------------------------------------------------
' <autogenerated>
' This code was generated by a tool.
' Runtime Version: 1.1.4322.2032
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </autogenerated>
'------------------------------------------------------------------------------

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

'
'This source code was auto-generated by Microsoft.VSDesigner, Version 1.1.4322.2032.
'
Namespace com.securepaytech.tx

'<remarks/>
<System.Diagnostics.DebuggerStepThroughAttribute(), _
System.ComponentModel.DesignerCategoryAttribute("code"), _
System.Web.Services.WebServiceBindingAttribute(Name:="SoapPurchaseBinding", [Namespace]:="http://tx.securepaytech.com")> _
Public Class SoapPurchaseService
Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

'<remarks/>
Public Sub New()
MyBase.New
Me.Url = "https://tx.securepaytech.com:443/web/SoapPurchase"
End Sub

'<remarks/>
<System.Web.Services.Protocols.SoapRpcMethodAttribute("", RequestNamespace:="http://tx.securepaytech.com", ResponseNamespace:="http://tx.securepaytech.com")> _
Public Function purchase(ByVal merchantID As String, ByVal merchantKey As String, ByVal orderReference As String, ByVal amount As Single, ByVal currency As String, ByVal cardType As Integer, ByVal cardNumber As String, ByVal cardExpiry As String, ByVal cardHolderName As String) As <System.Xml.Serialization.SoapElementAttribute("result")> TransactionResult
Dim results() As Object = Me.Invoke("purchase", New Object() {merchantID, merchantKey, orderReference, amount, currency, cardType, cardNumber, cardExpiry, cardHolderName})
Return CType(results(0),TransactionResult)
End Function

'<remarks/>
Public Function Beginpurchase(ByVal merchantID As String, ByVal merchantKey As String, ByVal orderReference As String, ByVal amount As Single, ByVal currency As String, ByVal cardType As Integer, ByVal cardNumber As String, ByVal cardExpiry As String, ByVal cardHolderName As String, ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult
Return Me.BeginInvoke("purchase", New Object() {merchantID, merchantKey, orderReference, amount, currency, cardType, cardNumber, cardExpiry, cardHolderName}, callback, asyncState)
End Function

'<remarks/>
Public Function Endpurchase(ByVal asyncResult As System.IAsyncResult) As TransactionResult
Dim results() As Object = Me.EndInvoke(asyncResult)
Return CType(results(0),TransactionResult)
End Function
End Class

'<remarks/>
<System.Xml.Serialization.SoapTypeAttribute("TransactionResult", "http://tx.securepaytech.com/types")> _
Public Class TransactionResult

'<remarks/>
Public dateTime As Date

'<remarks/>
Public authorizationID As String

'<remarks/>
Public batchNo As String

'<remarks/>
Public failReason As String

'<remarks/>
Public merchTxnRef As String

'<remarks/>
Public receiptNo As String

'<remarks/>
Public resultCode As Integer

'<remarks/>
Public transactionNo As String
End Class
End Namespace