PrivateSubOpenCashdrawer()
Dimdrawer AsCashDrawerId= RetailContext.Instance.TillSession.CashDrawerId
SelectCasedrawer
CaseCashDrawerId.One
POSHardwareManager.Instance.CashDrawer1.OpenDrawer()
Exit Select
CaseCashDrawerId.Two
POSHardwareManager.Instance.CashDrawer2.OpenDrawer()
Exit Select
EndSelect
EndSub
ABS
Comments