Hi
I am using the coding below to open a cash drawer in one of my applications. In "rsPosDefaults.Fields("CashDrawerCommands").Value" I enter the string to open the drawer, which in my case is a posifles, the code for this drawer is 7.
'Com 1
If rsPosDefaults.Fields("CashDrawer") = "COM 1" Then
MSComm1.CommPort = 1
MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
On Error Resume Next
MSComm1.PortOpen = True
MSComm1.Output = rsPosDefaults.Fields("CashDrawerCommands").Value
MSComm1.PortOpen = False
End If
'Com2
If rsPosDefaults.Fields("CashDrawer") = "COM 2" Then
MSComm1.CommPort = 2
MSComm1.CommPort = 2
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
On Error Resume Next
MSComm1.PortOpen = True
MSComm1.Output = rsPosDefaults.Fields("CashDrawerCommands").Value
MSComm1.PortOpen = False
End If
'Com3
If rsPosDefaults.Fields("CashDrawer") = "COM 3" Then
MSComm1.CommPort = 3
MSComm1.CommPort = 3
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
On Error Resume Next
MSComm1.PortOpen = True
MSComm1.Output = rsPosDefaults.Fields("CashDrawerCommands").Value
MSComm1.PortOpen = False
End If
'Com4
If rsPosDefaults.Fields("CashDrawer") = "COM 4" Then
MSComm1.CommPort = 4
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
On Error Resume Next
MSComm1.PortOpen = True
MSComm1.Output = rsPosDefaults.Fields("CashDrawerCommands").Value
MSComm1.PortOpen = False
End If
If you need further help let me know.
Regards
Enter your message below
Sign in or Join us (it's free).