Has anyone an example of using the opos drivers for cash drawers, mage strip readers, printers etc.

Thanks In advance Mike

Regards,
Otto

func ladeauf

LOCAL oPrn
LOCAL cPrnName   :=   GetPvProfString(  "LadeDruck", "DruckerName", "Generic / Text Only", ".\INI\TOUCH.INI" )
LOCAL oPrnDos
LOCAL oFntNormal
*----------------------------------------------------------------
if GetPvProfString( "Kassenlade", "INSTALLIERT" , "N", ".\INI\TOUCH.INI" ) = "J"
  msginfo(GetPvProfString( "Kassenlade", "UEBERDRUCKER" , "N", ".\INI\TOUCH.INI" ))
    if GetPvProfString( "Kassenlade", "UEBERDRUCKER" , "N", ".\INI\TOUCH.INI" ) ="J"
        oPrnDOS := TDosPrn():New("LPT1")
        *Print #1, Chr$(27); Chr$(112); Chr$(0); Chr$(15); Chr$(15);
            *oPrnDOS:write(chr(27)+chr(112)+chr(15)+chr(15))
        oPrnDOS:write(chr(27)+chr(112)+chr(0)+chr(10)+chr(100))
        oPrnDOS:cFormFeed:="0"
        oPrnDOS:EndPage()                   // optional
        oPrnDOS:End()
    else
        oPrn := PrintBegin("DRUCKER", .f., .f.,cPrnName )
        PAGE
        DEFINE FONT oFntNormal NAME "ARIAL" SIZE 16,40
        oPrn:Say( 0,5 , (chr(27)+chr(112)+chr(0)+chr(10)+chr(100))  , oFntNormal  )
        ENDPAGE
        ENDPRINT
        RELEASE FONT oFntNormal
    ENDIF
ENDIF

RETURN nil

This is for DOS if you use windows then I does not matter which printer you address.
oPrnDOS := TDosPrn():New("LPT1")

                        oPrnDOS:Newline()
                        oPrnDOS:write(chr(27)+chr(33)+chr(32))
                        oPrnDOS:write(cFirma )
                        oPrnDOS:Newline()
                        oPrnDOS:write(chr(27)+chr(64))
                        oPrnDOS:Newline()

                        oPrnDOS:write(space((42 - len(cCompany)) /2) + cCompany )

                        oPrnDOS:Newline()
                        oPrnDOS:write(space((42 - len(cAddr1)) /2) +cAddr1     )
                        oPrnDOS:Newline()
                        oPrnDOS:write(space((42 - len(cAddr2)) /2) +cAddr2     )
                        oPrnDOS:Newline()
                        oPrnDOS:write(space((42 - len(cATU)) /2) +cATU       )
                        oPrnDOS:Newline()
                        oPrnDOS:write("------------------------------------------")
                        oPrnDOS:Newline()

                        oPrnDOS:Newline()
                        oPrnDOS:write(chr(27)+chr(33)+chr(32))
                        oPrnDOS:write("RECHNUNG")
                        oPrnDOS:Newline()
                        oPrnDOS:write(chr(27)+chr(64))

oPrnDOS:cFormFeed := "0"
oPrnDOS:EndPage() // optional
oPrnDOS:End()

This is code I use for the display.

func f_KUNDENDISPLAY
#ifdef KUNDENDISPLAY
LOCAL lReady
LOCAL nDelTime := 1
*--------------------------------------------

if aSetup[4]="J" //GetPvProfString( "SETUPDATEN","DSO800", "N", ".\INI\TOUCH.INI" )

  WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(67) + Chr(49) + Chr(88) )
  WriteComm(  DSP_COM, Chr(23) )
  WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(80) + "1" )
  WriteComm(  DSP_COM, Chr(23) )
  WriteComm(  DSP_COM, DISPLINE1  )

  WriteComm(  DSP_COM, Chr(4) + Chr(1) + Chr(80) + CHR(70) )
  WriteComm(  DSP_COM, Chr(23) )
  WriteComm(  DSP_COM, DISPLINE2  )

ELSE

  lReady  := SetCommState( cDcb )

  WriteComm(  DSP_COM, Chr(27) + Chr(64) )

  WriteComm(  DSP_COM, Chr(12) )
  WriteComm(  DSP_COM, Chr(11) )
  WriteComm(  DSP_COM, DISPLINE1  )
  WriteComm(  DSP_COM, Chr(31) + Chr(36) + chr(1) + chr(2)    )
  WriteComm(  DSP_COM, DISPLINE2  )

ENDIF

#ENDIF

RETURN nil

func f_EIN_KUNDENDISPLAY()
#ifdef KUNDENDISPLAY
LOCAL lReady
LOCAL nDelTime := 1
*--------------------------------------------
DSP_COM := OpenCOMM( GetPvProfString( "SETUPDATEN","DISPLAY" ,"COM2" , ".\INI\TOUCH.INI" ), 1024, 128 )
if ! BuildCommDcb( GetPvProfString( "SETUPDATEN","DISPLAY" ,"COM2" , ".\INI\TOUCH.INI" )+":9600,n,8,1", @cDcb )
nError = GetCommError( DSP_COM )
MsgInfo( "BuildCommDcb Error: " + Str( nError ) )
ENDIF
lReady := SetCommState( cDcb )
WriteComm( DSP_COM, Chr(27) + Chr(64) )

IF GetPvProfString( "SETUPDATEN","DSO800", "N", ".\INI\TOUCH.INI" )="J"
WriteComm( DSP_COM, Chr(4) + Chr(1) + Chr(67) + Chr(49) + Chr(88) )
WriteComm( DSP_COM, Chr(23) )
WriteComm( DSP_COM, Chr(4) + Chr(1) + "P" + "1" )
WriteComm( DSP_COM, Chr(23) )

  WriteComm(  DSP_COM, Chr(4) + Chr(1) + "P" + chr(75) )
  WriteComm(  DSP_COM, Chr(23) )

else
WriteComm( DSP_COM, Chr(12) )
WriteComm( DSP_COM, Chr(11) )
ENDIF

#ENDIF
RETURN nil

func f_AUS_KUNDENDISPLAY()
#ifdef KUNDENDISPLAY
LOCAL lReady
LOCAL nDelTime := 1
*--------------------------------------------

DelPrnt(nDelTime)
CloseComm(DSP_COM)
#ENDIF
RETURN nil

static function DelPrnt(nDelTime)
LOCAL oTimer,lWaitIng := .F.,oDlg

nDelTime := nDelTime * 1
DEFINE DIALOG oDlg RESOURCE "TELEFON"

ACTIVATE DIALOG oDlg CENTERED ;
ON INIT(oTimer := TTimer():New( nDelTime,{||oTimer:Deactivate(),lWaiting := .T.,oDlg:End()},oDlg ),oTimer:Activate()) valid(lWaiting)

RETURN(nil)

ifdef KUNDENDISPLAY

f_EIN_KUNDENDISPLAY()
DISPLINE1:= rg_umsetz(20,left(GetPvProfString( "DISPLAY", "Display11","" ,".\INI\TOUCH.INI" ),20))
DISPLINE2:= rg_umsetz(20,left(GetPvProfString( "DISPLAY", "Display12","" ,".\INI\TOUCH.INI" ),20))
f_KUNDENDISPLAY(DISPLINE1,DISPLINE2)
f_AUS_KUNDENDISPLAY()

ENDIF

func rg_umsetz(nBezLaenge,wort)
wort := ansitooem(left(wort,nBezLaenge))
RETURN (wort)

otto which cash and touch monitor you use ?
( model and macfature)

thanks

Thanks Otto for all of your examples.

What I am actually looking for is a way to interface to OPOS and UPOS com objects.

OPOS and UPOS are Point-Of-Sale device standards this means that you can implement a function to open a cash drawer use the OPOS commands and now your application supports all cash drawers that have an OPOS or UPOS interface.

Just think of how great it would be to interface to the OPOS Printer interface and instantly support all receipt printers.

Currently the supported devices are-
POS Keyboard
POS Printer
Cash Changer
Tone Indicator
Bump Bar
Fiscal Printer
Pin Pad
Remote Order Display
Scale
Power Reporting
Credit Authorization Terminal
Point Card Reader/Writer
Line Display
Check Scanner
Smart Card Reader/Writer
Biometrics
Bill Acceptor
Bill Dispenser
Coin Acceptor
Image Scanner
You can read about OPOS at http://www.monroecs.com/oposreleases.htm
And UPOS at http://www.monroecs.com/unifiedpos.htm

Here is what I have tried for cash drawer.
Procedure Opendrawer(oWnd,dr)
hie:=TActiveX():New( oWnd,"OPOS.CashDrawer" )
if dr = 1
hie:do("Open","cdrwr1") //cdrwr1 is the name that was set for drawer 1 in the OPOS interface
else
hie:do("Open","cdrwr2") //cdrwr2 is the name that was set for drawer 2 in the OPOS interface
endif
hie:do("ClaimDevice",1000)
hie:do("DeviceEnabled",.t.)
hie:do("OpenDrawer")
hie:do("WaitForDrawerClose",10000,2000,100,1000)
hie:do("ReleaseDevice")
hie:do("Close")

Currently the above code executes properly on a Panasonic pos station and errors on a Partner Tec pos station.

Thank you for the information. Didn't knew of this driver.
Regards,
Otto

Mike,

>Currently the above code executes properly on a Panasonic pos station and errors on a Partner Tec pos station.

What statement does it error out on? What is the error?

James