If someone could compile and email to me it would be greatly
Posted: Mon Dec 31, 2007 10:08 pm
I would greatly appreciate it if someone could compile this with the latest FiveWin and Xharbour from xharbour.com and email it back to me.
I am using versions from 2005 and if I need to upgrade so be it.
I have 2 stations using the OPOS drivers for the cash drawer and Panasonic station and a Patrnertec station.
The strange thing is if I make this with vb6 it will execute on both stations without any errors.
If I make it with the versions of FWH and Xharbour from xharbour.com it will execute on the Panasonic but the Partnertec gives me an error of “Unknown error DeviceEnabled”.
Now this is really strange I downloaded the demo of visual xharbour and it executes on the Partnertec but the Panasonic gives no error and does not work.
#INCLUDE "FIVEWIN.CH"
Static drw
procedure main()
local ownd
DEFINE WINDOW oWnd TITLE "OPOS/_ Drawer Test" from 0 ,0 to 50,150 pixel //style nOr(WS_POPUP ) NOSYSMENU
ACTIVATE WINDOW oWnd on init rundr(ownd)
procedure rundr(ownd)
local drw
drw:=TActiveX():New(ownd,"OPOS.CashDrawer" )
drw:open("drawer1")
drw:ClaimDevice(1000)
drw:DeviceEnabled(.t.)
drw:OpenDrawer()
drw:Close()
ownd:end()
Thanks In Advance
Mike S. Buckler
Mikeb@trimpos.net
I am using versions from 2005 and if I need to upgrade so be it.
I have 2 stations using the OPOS drivers for the cash drawer and Panasonic station and a Patrnertec station.
The strange thing is if I make this with vb6 it will execute on both stations without any errors.
If I make it with the versions of FWH and Xharbour from xharbour.com it will execute on the Panasonic but the Partnertec gives me an error of “Unknown error DeviceEnabled”.
Now this is really strange I downloaded the demo of visual xharbour and it executes on the Partnertec but the Panasonic gives no error and does not work.
#INCLUDE "FIVEWIN.CH"
Static drw
procedure main()
local ownd
DEFINE WINDOW oWnd TITLE "OPOS/_ Drawer Test" from 0 ,0 to 50,150 pixel //style nOr(WS_POPUP ) NOSYSMENU
ACTIVATE WINDOW oWnd on init rundr(ownd)
procedure rundr(ownd)
local drw
drw:=TActiveX():New(ownd,"OPOS.CashDrawer" )
drw:open("drawer1")
drw:ClaimDevice(1000)
drw:DeviceEnabled(.t.)
drw:OpenDrawer()
drw:Close()
ownd:end()
Thanks In Advance
Mike S. Buckler
Mikeb@trimpos.net