 |
 |
 |
 |
 |
 |
 |
 |
|
|
|
|
|
|
|
|
This section contains example code for integrating and automating Retail @dvantage PC into your businesses own proprietary and non proprietary systems. The examples are written in 32-bit Visual Basic and Visual Basic for Applications. (VB5-6 compatible)
|
All code herein is unsupported by Encom Inc., and is provided as is, without warranty or claims of usability of any kind. This code is intended for example and reference purposes only! Its' use, as is or modified, negates any and all possible liability of Encom Inc. These terms are also stated in the Retail @dvantage PC licensing and service agreements which must be accepted prior to installation.
|
|
|
|
 |
Identify the Credit Card Issuer based on the card number:
|
|
'==========================================================
' Retrieves a Card Issuer based on Card Number
' Does not identify purchase cards. Add if desired
' This code must be maintained as Card Ranges and Issuers
' added/change every so often. The 'Global' Applications do
' not require the issuer field populated, but it does help
' when reports and searches are concerned.
'==========================================================
Public Function GetCardIssuer(CardNum$) As String
Dim CI(15, 2) As String
GetCardIssuer = ""
CI(1, 1) = "5"
CI(1, 2) = "MasterCard"
CI(2, 1) = "4"
CI(2, 2) = "Visa"
CI(3, 1) = "34"
CI(3, 2) = "Amex"
CI(4, 1) = "37"
CI(4, 2) = "Amex"
CI(5, 1) = "36"
CI(5, 2) = "Diners"
CI(6, 1) = "38"
CI(6, 2) = "Diners"
CI(7, 1) = "300"
CI(7, 2) = "Diners/CB"
CI(8, 1) = "301"
CI(8, 2) = "Diners/CB"
CI(9, 1) = "302"
CI(9, 2) = "Diners/CB"
CI(10, 1) = "303"
CI(10, 2) = "Diners/CB"
CI(11, 1) = "304"
CI(11, 2) = "Diners/CB"
CI(12, 1) = "305"
CI(12, 2) = "Diners/CB"
CI(13, 1) = "95"
CI(13, 2) = "Diners/CB"
CI(14, 1) = "6011"
CI(14, 2) = "Diners/CB"
CI(15, 1) = "3528"
CI(15, 2) = "JCB"
For x = 1 To 15
Bin$ = CI(x, 1)
L% = Len(Bin$)
If Left(CardNum$, L%) = Bin$ Then
GetCardIssuer = CI(x, 2)
Exit For
End If
Next
End Function
'==========================================================
|
|
|
|
|
|
|
|
|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
 |
|
|
 |
 |
|
|
 |
10 Jan 2009 ::: News Update
Retail @dvantage PC Versions 4.0c and 4.0e:
Global Payments Inc. is in the process of certifying versions 4.0c and 4.0e. These new versions will support Microsoft Windows VISTA and also include new features such as a SSL connectivity option, Native support for USB card readers, and maintain compliance with new Payment Card Industry Data Security Standards. (PCI/DSS,PABP/CISP).
read more...
01 Jan 2009 ::: News Header
Build 12 for Versions 3.4c & 3.4e have been Released as of January 1, 2009.
This new build adresses the New Double Receipt Truncation requirements, mandated by some states and also contains a few other minor bug fixes.
All New and Replacement orders will automaticallly receive the new build.
Existing merchants are not required to obtain the new build unless it is mandated in that merchant's state.
|
 |
 |
Need An Extra Hand? |
Rent-A-Coder
If you' have a small project that does not require vast resources or staffing. We can provide you a referral for one our expert programmers. read more...
Rent-A-Tester
Developed your own product, web site, etc.. and need an independent tester? We can provide you a referral for one our expert technicians. read more...
Rent-A-Designer
Need a Graphical or Multimedia designer for a small project? We can provide you a referral for one our creative designers. read more...
|
|
