developer:soap-1.4:methods:runquickcredit

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.4:methods:runquickcredit [2010/08/30 11:36]
tem
developer:soap-1.4:methods:runquickcredit [2010/08/30 15:29] (current)
epouchak
Line 98: Line 98:
 } }
 </​code>​ </​code>​
- 
 ==== VB ==== ==== VB ====
 For directions on how to set up the WSDL link and create the "​token"​ and "​client"​ variables, go to the [[..:​howto:​vb|Visual Basic .Net Soap How-to]]. For directions on how to set up the WSDL link and create the "​token"​ and "​client"​ variables, go to the [[..:​howto:​vb|Visual Basic .Net Soap How-to]].
 <code vb> <code vb>
     Dim client As usaepay.usaepayService = New usaepay.usaepayService     Dim client As usaepay.usaepayService = New usaepay.usaepayService
-    ​Dim token As usaepay.ueSecurityToken+        ​Dim token As usaepay.ueSecurityToken 
 + 
 +        token = Me.CreateToken("​714SSUxv1uohng2XkMJ7kLpETsu58G66",​ "​1234"​)
  
-    token Me.CreateToken("​982lz9VsLm87MA54Sv8E582h8OZMArL6",​ "​443311"​)+        Dim refnum As Integer 
 +        Dim details As usaepay.TransactionDetail ​New usaepay.TransactionDetail
  
-    Dim refnum ​As Integer +        ​refnum ​= "​46990787"​ 
-    ​Dim ​details ​As usaepay.TransactionDetail ​New usaepay.TransactionDetail+        details.Amount ​"1.00" 
 +        details.AmountSpecified = True 
 +        details.Description = "​Example QuickCredit"​ 
 +        details.Invoice = "​123456"​
  
-    refnum = "​46352757"​ +        Dim response As usaepay.TransactionResponse
-    details.Amount = "​34.50"​ +
-    details.AmountSpecified = True +
-    details.Description = "​Example QuickCredit"​ +
-    details.Invoice = "​123456"​+
  
-    Dim response ​As usaepay.TransactionResponse+        ​response ​= client.runQuickCredit(token,​ refnum, details)
  
-    ​response = client.runQuickCredit(tokenrefnumdetails)+        If response.ResultCode ​"​A"​ Then 
 +            MsgBox("​Transaction Approved, Reference Number: " & response.RefNum) 
 +        ElseIf response.ResultCode = "​D"​ Then 
 +            MsgBox("​Transaction DeclinedReason: " & response.Error) 
 +        Else 
 +            MsgBox("​Transaction ErrorReason: " & 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.4/methods/runquickcredit.txt · Last modified: 2010/08/30 15:29 by epouchak

Page Tools