5.3 Cash Drawer
Programming examples of how to use API function relating to a Cash Drawer are shown below.
5.3.1 Drawer Open/Close
Using the OpenDrawer method opens the cash drawer. The DrawerOpened property can be
used to check the current state of the drawer. To pause the program until the drawer is closed,
the WaitForDrawerClose method is used.
Below is as example of a program to open and close a cash drawer.
If Not OPOSCashdrawer1.DrawerOpened Then
OPOSCashdrawer1.OpenDrawer
OPOSCashdrawer1.WaitForDrawerClose 10000, 1000, 100, 100
End If
5.3.2 Checking Drawer Status
There are methods other than explained in section 5.3.1 that can be used to check drawer status.
A StatusUpdateEvent is fired whenever the drawer is opened or closed.
Below are examples of programs that use events to check if the drawer has been opened or
closed.
[Main Program]
Global DrawerFlag As Boolean
If Not OPOSCashdrawer1.DrawerOpened Then
DrawerFlag = True
OPOSCashdrawer1.OpenDrawer
While (DrawerFlag = True)
Wend
End If
[Event Management]
Private Sub OPOSCashdrawer1_StatusUpdateEvent(ByVal As Long)
If Data = False Then
End If
End Sub
5-6 Application Development Information for OPOS
'This part uses timer management to check the status of DrawerFlag.
DoEvents
DrawerFlag = False
Rev. A