I get an error when I add Tender.Accountholder to my receipt - I need to capture the credit card holder name on the slip for the transaction. I get an unrecognized object message. Any ideas out there?
-Jerry
I don't see a field of AccountHolder in Tender There is one in TenderEntry perhaps
Nope. That doesn't work
Hi all. What we're really looking for here is what variables are available in the tender object at the tender routine. Although the customization guide says the account holder is an available object, it gives a null if you call it from the receipt. It would be great if someone from microsoft weighs in on this.
currently there is no capture of the credit card holders name from the swipe.
Hello, This was bugging me for a while so I wrote a com addin to do it in VB6, my VB is very rusty, maybe if we work together and polish this we can have a nice tool to use As you have surmised AccountHolder variable is not set.
Option Explicit
Public Function Process(Session As Object) As Boolean On Error GoTo ErrorHandler ''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'For Setup and testing only: Public Function Process(Session As QSRules.SessionClass) As Boolean 'Installation 'Increment HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Retail Management System\Store Operations\Hooks\count By 1 'Set Next Empty HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Retail Management System\Store Operations\Hooks\XXX 'To HookType = 0, Parameter = 1, ObjectName=DLLFileName.ClassName 'Uses Session.Variable1 on Receipt(This can be changed below if it conflicts with another addin) 'Register DLL With regsvr32 "C:\Path\DLLName.dll" - Must be done each time DLL is Modified 'The Function can only capture the name from the first Credit Card Ran ''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim x As Variant Dim arrCCInfo() As String
'Cycle through tenders For Each x In Session.Transaction.Tenders 'Find tender with the swiped card If x.Swiped = True Then arrCCInfo = Split(x.Track1, "^") arrCCInfo = Split(arrCCInfo(1), "/") Session.Variable(1) = arrCCInfo(1) & " " & arrCCInfo(0) 'Uncomment MsgBox to see Account Holders Name 'MsgBox (Session.Variable(1)) Exit For End If Next Process = True 'Continue Exit Function
ErrorHandler: MsgBox ("An Error has occurred, please contact IT Admin" & vbCrLf & "Please Continue") Resume Next
End Function
BeanSmart website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.