FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Caja Registradora
Posts: 199
Joined: Fri Apr 18, 2008 04:21 PM
Caja Registradora
Posted: Mon Sep 28, 2009 07:36 PM

Buen dia a todos

Estoy desarrollando un pequeño punto de venta, quisiera saber si existe alguna clase para imprimir en tmus (tickets), y que cuando facture habra la caja registradora, pero adicional a eso que detecte si la caja registradora este abierta o no y que cuando se cierre la caja se active nuevamente el boton de guardar.

Atentamente
Julio Ponce
Suproye

Posts: 243
Joined: Wed Sep 19, 2007 04:32 PM
Re: Caja Registradora
Posted: Mon Sep 28, 2009 09:20 PM
Hola, Julio

Mira este post, espero te sirva.

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=7842&p=36103&hilit=%3C1b%3Ep%3C70003CF0%3E#p36103

por otro lado alguien me compartio esto otro, bien puedes intentar:

Code (fw): Select all Collapse
Local cDcb, nBytes
Local nComm := OpenComm( "COM1", 1024, 128 )
Local nError

if ! BuildCommDcb( "COM1:3000,n,8,1", @cDcb )
nError = GetCommError( nComm )
endif

if ! SetCommState( cDcb )
nError = GetCommError( nComm )
endif

if ( nBytes := WriteComm( nComm, "ATZ0" + Chr( 13 ) ) ) < 0
nError = GetCommError( nComm )
else
endif

if FlushComm( nComm, 0 ) != 0
nError = GetCommError( nComm )
endif

if ! CloseComm( nComm )
nError = GetCommError( nComm )
endif
Oscar A. Martinez
http://www.multisofthn.com
Honduras, Centro America
xHarbour Enterprise 1.2.2, Fivewin 13.06
Posts: 199
Joined: Fri Apr 18, 2008 04:21 PM
Re: Caja Registradora
Posted: Mon Sep 28, 2009 10:36 PM

Gracias voy a probar y te cuento.

Atentamente,
Julio Ponce

Continue the discussion