This shows you the differences between two versions of the page.
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(token, transaction) |
- | 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 | + | |
+ | 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> | ||