developer:soap-1.3:methods:runchecksale

Differences

This shows you the differences between two versions of the page.

Link to this comparison view

Both sides previous revision Previous revision
developer:soap-1.3:methods:runchecksale [2010/08/06 11:53]
epouchak
developer:soap-1.3:methods:runchecksale [2010/08/25 15:47] (current)
epouchak
Line 123: Line 123:
 } }
 </​code>​ </​code>​
- 
 ==== VB ==== ==== VB ====
 <code vb> <code vb>
 +Dim client As usaepay.usaepayService = New usaepay.usaepayService
 +        Dim token As usaepay.ueSecurityToken
  
-    Dim client As usaepay.usaepayService ​New usaepay.usaepayService +        token Me.CreateToken("​rGzC0rJ8B9RDj8Wm96GrYokgZIRe4eWF",​ "​1234"​)
-    Dim token As usaepay.ueSecurityToken+
  
-    token = Me.CreateToken("​982lz9VsLm87MA54Sv8E582h8OZMArL6",​ "​443311"​) +        ​Dim transaction As usaepay.TransactionRequestObject = New usaepay.TransactionRequestObject
- +
-    ​Dim transaction As usaepay.TransactionRequestObject = New usaepay.TransactionRequestObject +
- +
-      transaction.CheckData = New usaepay.CheckData+
  
 +        transaction.CheckData = New usaepay.CheckData
         transaction.CheckData.Account = "​1112223333"​         transaction.CheckData.Account = "​1112223333"​
         transaction.CheckData.Routing = "​123456789"​         transaction.CheckData.Routing = "​123456789"​
Line 141: Line 138:
         transaction.CheckData.DriversLicenseState = "​CA"​         transaction.CheckData.DriversLicenseState = "​CA"​
  
-      ​transaction.Details = New usaepay.TransactionDetail +        ​transaction.Details = New usaepay.TransactionDetail
         transaction.Details.Amount = "​1.00"​         transaction.Details.Amount = "​1.00"​
         transaction.Details.AmountSpecified = True         transaction.Details.AmountSpecified = True
Line 148: Line 144:
         transaction.Details.Description = "Test Check Sale"         transaction.Details.Description = "Test Check Sale"
  
-      ​transaction.AccountHolder = "Test Guy" +        ​transaction.AccountHolder = "Test Guy"
- +
-    Dim response As usaepay.TransactionResponse = New usaepay.TransactionResponse+
  
-    ​response = client.runCheckSale(token,​ transaction)+        Dim response ​As usaepay.TransactionResponse ​New usaepay.TransactionResponse
  
-    If response.ResultCode ​"​A"​ Then +        ​response = client.runCheckSale(tokentransaction)
-      MsgBox("​Transaction Approved, Reference Number: " & response.RefNum) +
-    ElseIf response.ResultCode = "​D"​ Then +
-      MsgBox("​Transaction DeclinedReason: " & response.Error) +
-    Else +
-      MsgBox("​Transaction Error, Reason: " & response.Error) +
-    End If+
  
 +        If response.ResultCode = "​A"​ Then
 +            MsgBox("​Transaction Approved, Reference Number: " & response.RefNum)
 +        ElseIf response.ResultCode = "​D"​ Then
 +            MsgBox("​Transaction Declined, Reason: " & response.Error)
 +        Else
 +            MsgBox("​Transaction Error, Reason: " & response.Error)
 +        End If
 </​code>​ </​code>​
  
developer/soap-1.3/methods/runchecksale.txt · Last modified: 2010/08/25 15:47 by epouchak

Page Tools