FWH 712 Errror abrir cajón monedero.

FWH 712 Errror abrir cajón monedero.

Postby MauroArevalo » Wed Dec 26, 2007 8:10 pm

Hola foro:

Mi primera pregunta; pero antes agradecer a todos los foristas por su gran ayuda, todos los dias entro y miro las preguntas y su correspondientes respuestas de los participantes, esto a contribuido a crecer mi conocimiento; de regalo de navidad me compre FWH 712, se comio casi todo mi codigo perfecto, a excepción de abrir el cajón monedero, me arroja el error Windows ha detectado un problema y debe cerrarse.

El codigo que tengo para habrir el cajón monedero es el siguiente:

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

****

De antemano Gracias,
Last edited by MauroArevalo on Sat Dec 29, 2007 8:23 pm, edited 1 time in total.
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Postby cmsoft » Thu Dec 27, 2007 10:36 am

Hola Mauro:
Yo tube un problema similar con el uso de los puertos COM y Antonio me envio un archivo para enlazar con mi aplicacion, COMM.OBJ y esto me solucionó el problema, aunque según me dijo en esa oportunidad, con las nuevas versiones se solucionaba.
Te pregunto, con las aperturas del puerto para el uso del tickeador no tenes problemas?
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Postby Antonio Linares » Thu Dec 27, 2007 3:19 pm

Mauro,

Prueba a poner un MsgInfo() despues de cada llamada, para ver en que función te está fallando, gracias:

local cDcb, nBytes
local nComm := OpenComm( "COM1", 1024, 128 )
local nError

MsgInfo( 1 )

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

MsgInfo( 2 )

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

MsgInfo( 3 )

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

MsgInfo( 4 )

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

MsgInfo( 5 )

if ! CloseComm( nComm )
nError = GetCommError( nComm )
endif
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby MauroArevalo » Thu Dec 27, 2007 5:57 pm

Antonio:

Gracias por responder.

Hice lo que me indicaste y donde arroja error es en SetCommState, las demás pasan sin problema.


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

Cmsoft, no tengo el comm.obj, gracias por tu interes.

Saludos
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Postby Antonio Linares » Thu Dec 27, 2007 6:00 pm

Mauro,

Bien! Efectivamente ese era el fallo, gracias. Ahora se usa así:

if ! SetCommState( nComm, cDcb )

pruébalo :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42159
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby MauroArevalo » Thu Dec 27, 2007 6:07 pm

Antonio:

Perfecto.. Ya no me arroja el error. Gracias ya puedo ir donde mi cliente y hago la prueba definitiva....


Saludos :D
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 56 guests