developer:soap-1.3:methods:runchecksale
Differences
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> | ||
developer/soap-1.3/methods/runchecksale.txt · Last modified: 2010/08/25 15:47 by epouchak