How To: Credit Card/ACH Integration with ASP.NET / VB.NET

By -
This is the third in a series of postings on how to integrate credit card and ACH/E-check transactions into various systems. This installment demonstrates code used for processing payments (credit card and/or ACH) within a VB.NET application.

This was taken from the NELiX TransaX FleXport toolkit documentation. Credit card integration examples can be downloaded on the NELiX TransaX FleXport page.

Assumptions:
- Using NELiX TransaX Payment Gateway
- Communicating using NELiX TransaX Webservice
Partial Public Class GatewayAPI_Demo
    Inherits System.Web.UI.Page

    Public connStr, vSQL, vID, vMode, vMSG

    Protected Sub ContinueButton_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) _
   Handles ContinueButton.Click

        Dim ws As New RoXAPI.RoXAPI
        Dim wsParams As New RoXAPI.Params
        Dim wsResponse As New RoXAPI.Responses

        wsParams.TransactionType = Me.TransactionType.SelectedValue
        wsParams.GatewayUserName = Me.GatewayUserName.Text
        wsParams.GatewayPassword = Me.GatewayPassword.Text
        wsParams.IPAddress = HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")

        wsParams.Merchant_Defined_Field_1 = Merchant_Defined_Field_1.Text
        wsParams.Merchant_Defined_Field_2 = Merchant_Defined_Field_2.Text

        If Me.TransactionType.SelectedValue = "void" Then
            wsParams.TransactionID = Me.TransactionID.Text
            wsParams.PaymentType = Me.PaymentType.SelectedValue
        End If

        If Me.TransactionType.SelectedValue = "refund" Then
            wsParams.Amount = Me.Amount.Text
            wsParams.TransactionID = Me.TransactionID.Text
            wsParams.PaymentType = Me.PaymentType.SelectedValue
        End If

        If Me.TransactionType.SelectedValue = "capture" Then
            wsParams.Amount = Me.Amount.Text
            wsParams.TransactionID = Me.TransactionID.Text
            wsParams.OrderID = Me.OrderID.Text
            wsParams.Tracking_Number = Me.Tracking_Number.Text
            wsParams.Shipping_Carrier = Me.Shipping_Carrier.Text
            wsParams.PaymentType = Me.PaymentType.SelectedValue
        End If

        If Me.TransactionType.SelectedValue = "update" Then
            wsParams.TransactionID = Me.TransactionID.Text
            wsParams.Tracking_Number = Me.Tracking_Number.Text
            wsParams.Shipping_Carrier = Me.Shipping_Carrier.Text
            wsParams.PaymentType = Me.PaymentType.SelectedValue
        End If

        If Me.Customer_Vault_Action.SelectedValue = "delete_customer" Then
            wsParams.Customer_Vault_Action = Me.Customer_Vault_Action.SelectedValue
            wsParams.Customer_Vault_ID = Me.Customer_Vault_ID.Text
        End If

        If Me.TransactionType.SelectedValue = "sale" Or Me.TransactionType.SelectedValue = "auth" Or _
   Me.Customer_Vault_Action.SelectedValue = "add_customer" Or _
   Me.Customer_Vault_Action.SelectedValue = "update_customer" Then
            wsParams.PaymentType = Me.PaymentType.SelectedValue

            If Me.Customer_Vault_Action.SelectedValue = "add_customer" Or _
   Me.Customer_Vault_Action.SelectedValue = "update_customer" Then
                wsParams.Customer_Vault_Action = Me.Customer_Vault_Action.SelectedValue
            End If
            wsParams.Customer_Vault_ID = Me.Customer_Vault_ID.Text

            If wsParams.PaymentType = "creditcard" Then
                wsParams.CCNumber = Me.CCNumber.Text
                wsParams.CCExpDate = Me.CCExpDate.Text
                wsParams.CVV = Me.CVV.Text
            End If
            If wsParams.PaymentType = "check" Then
                wsParams.CheckName = Me.CheckName.Text
                wsParams.CheckABA = Me.CheckABA.Text
                wsParams.CheckAccount = Me.CheckAccount.Text
                wsParams.AccountHolderType = Me.AccountHolderType.SelectedValue
                wsParams.AccountType = Me.AccountType.SelectedValue
                wsParams.SecCode = Me.SecCode.SelectedValue
            End If

            wsParams.Payment_Plan_SKU = Me.Payment_Plan_SKU.Text

            wsParams.Amount = Me.Amount.Text
            wsParams.Tax = Me.Tax.Text
            wsParams.Shipping = Me.Shipping.Text
            wsParams.OrderDescription = Me.OrderDescription.Text
            wsParams.OrderID = Me.OrderID.Text
            wsParams.PONumber = Me.PONumber.Text

            wsParams.FirstName = Me.FirstName.Text
            wsParams.LastName = Me.LastName.Text
            wsParams.Company = Me.Company.Text
            wsParams.Address1 = Me.Address1.Text
            wsParams.Address2 = Me.Address2.Text
            wsParams.City = Me.City.Text
            wsParams.State = Me.State.Text
            wsParams.Zip = Me.Zip.Text
            wsParams.Country = Me.Country.Text
            wsParams.Phone = Me.Phone.Text
            wsParams.Fax = Me.Fax.Text
            wsParams.EMail = Me.EMail.Text
            wsParams.Website = Me.Website.Text

            wsParams.ShippingFirstName = Me.ShippingFirstName.Text
            wsParams.ShippingLastName = Me.ShippingLastName.Text
            wsParams.ShippingCompany = Me.ShippingCompany.Text
            wsParams.ShippingAddress1 = Me.ShippingAddress1.Text
            wsParams.ShippingAddress2 = Me.ShippingAddress2.Text
            wsParams.ShippingCity = Me.ShippingCity.Text
            wsParams.ShippingState = Me.ShippingState.Text
            wsParams.ShippingZip = Me.ShippingZip.Text
            wsParams.ShippingCountry = Me.ShippingCountry.Text
            wsParams.ShippingEmail = Me.ShippingEmail.Text

            wsParams.ProcessorID = Me.ProcessorID.Text
            wsParams.Descriptor = Me.Descriptor.Text
            wsParams.DescriptorPhone = Me.DescriptorPhone.Text
        End If


        wsResponse = ws.ProcessTransaction(wsParams)

        MSG.Text = "STATUS_CODE: " & wsResponse.STATUS_CODE & "
"
        MSG.Text += "STATUS_MSG: " & wsResponse.STATUS_MSG & "
"
        MSG.Text += "TRANS_ID: " & wsResponse.TRANS_ID & "
"
        MSG.Text += "AUTH_CODE: " & wsResponse.AUTH_CODE & "
"
        MSG.Text += "AVS_CODE: " & wsResponse.AVS_CODE & "
"
        MSG.Text += "AVS_MSG: " & wsResponse.AVS_MSG & "
"
        MSG.Text += "CVV2_CODE: " & wsResponse.CVV2_CODE & "
"
        MSG.Text += "CVV2_MSG: " & wsResponse.CVV2_MSG & "
"
        MSG.Text += "ORDERID: " & wsResponse.ORDERID & "
"
        MSG.Text += "CUSTOMER_VAULT_ID: " & wsResponse.CUSTOMER_VAULT_ID & "
"
        MSG.Text += "FULLRESPONSE: " & wsResponse.FULLRESPONSE & "
"
        MSG.Text += "POSTSTRING: " & wsResponse.POSTSTRING & "
"

        If wsResponse.STATUS_CODE = "1" Then
            MSG.Text = "SUCCESS!
" & MSG.Text
        Else
            If wsResponse.STATUS_CODE = "2" Then
                MSG.Text = "DECLINE
" & MSG.Text
            Else
                MSG.Text = "ERROR
" & MSG.Text
            End If
        End If



    End Sub
End Class

If you need any assistance with payment processing integration with your .NET system, we are here to help!

Download ASP.NET / VB.NET credit card and ACH (e-check) integration examples.

Comments

Post a Comment

Popular posts from this blog

Merchant Account Cancellation Fees

By -
It is a standard practice in the industry to charge an early termination fee. This is understandable - considerable time and effort goes into underwriting and boarding a new account, time is spent on customer service, etc. An early termination fee is a way for a merchant account provider to make sure they will recoup their initial investment into a new merchant account. These fees are usually range from $200 - $500 depending on the provider. However, some entities enact extremely unethical early termination fees. For example, some merchant account providers will charge a mutliple on the earnings from the largest volume month over the past 12 months. Some providers will go so far as charge a multiple on their profit + interchange + dues and assessments! Two examples that I have encountered: 1) Big Bank - I had a merchant processing with this bank. They wanted to cancel, and were prepared to pay what they thought was a $295 early termination fee. They receive a communication from the ban...
Read more

Flexible Pricing Controls

By -
At one time we were resellers of all the top gateways. Like our agents, we would cherry pick which gateway to use based on the needs of the merchant. That was until we built our own gateway from the ground up in an effort to eliminate a fragmented portfolio. Part of our inspiration for the rebuild was flexible pricing. We have all lost prospects to unavoidable fee structures. Most of the time there is nothing an agent can do about it. Or is there? With our gateway agents can do three things other gateways usually won't allow: Sell Below Buy Rate - Sell lower than your own costs or waive fees entirely. You have the power to create and market any pricing package you want. Feature by Feature Pricing - Virtually every feature can be sold with additional fees including Setup, Monthly, or Transaction basis. Charge by Basis Points - Charge merchants using basis points instead of a flat monthly or transaction fee. Flexible Pricing Controls
Read more