FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour caj贸n portamonedas con tprint
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
caj贸n portamonedas con tprint
Posted: Mon Aug 12, 2013 11:31 PM
Compa帽eros, buenas tardes:

驴Como abrir el caj贸n portamonedas a trav茅s de la clase tprint?

Yo utilizo:
Code (fw): Select all Collapse
聽 聽 PRINT oPrn NAME "abrir cajon" to cprint2
聽 聽 聽page
聽 聽 聽endpage
聽 聽endprint


... as铆 lo abre... pero al impresora antes me imprime una linea en blanco y corta el papel.

Gracias. Un saludo a todos.
Desde C谩diz, Espa帽a.
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: caj贸n portamonedas con tprint
Posted: Tue Aug 13, 2013 02:56 AM

Podrias mostrar el c贸digo completo...
Salu2

Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Re: caj贸n portamonedas con tprint
Posted: Tue Aug 13, 2013 08:08 AM
Normalmente una de las propiedades que incorporan las impresoras de tickes, es que al realizar un listado abran el caj贸n, que es lo que estas haciendo tu ahora, eso conlleva la impresi贸n de un trocito de ticket.

Otra alternativa, es enviar directamente la secuencia de escape para abrir el cajon, sin realizar ning煤n listado. Para ello necesitas conocer cual es la secuencia de escape.

Te adjunto ejemplo de como lo hago con una impresora de tickets bixolon:
Code (fw): Select all Collapse
STATIC FUNCTION AbriRCajon()
聽 聽LOCAL cPrinter,hFile
聽 聽cPrinter:=WIN_PrinterPortToName( "USB001" )
聽 聽IF !File('opn.esc')
聽 聽 聽 hFile:=FCreate('opn.esc')
聽 聽 聽 FWrite(hFile,Chr(27)+Chr(112)+Chr(48)+Chr(55)+Chr(121)) //Abrir caj贸n
聽 聽 聽 FClose(hFile)
聽 聽ENDIF
聽 聽WIN_PrintFileRaw(cPrinter,'opn.esc','')
RETURN NIL
Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
csincuir
Posts: 476
Joined: Sat Feb 03, 2007 06:36 AM
Re: caj贸n portamonedas con tprint
Posted: Tue Aug 13, 2013 03:37 PM
Biel,
Con unas preguntas: ??

Donde se consigue esta funci贸n:
Code (fw): Select all Collapse
WIN_PrinterPortToName()


Y para que sirve?

Saludos.

Carlos.
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Re: caj贸n portamonedas con tprint
Posted: Tue Aug 13, 2013 05:05 PM

Son funciones propias de harbour (hbWin.lib)
Win_PrinterPortToName(cPortName) Retrieves the name of the printer connected to a printer port.
Win_PintFileRaw(cPrinterName,cFileName) Prints a file to a Windows printer in RAW mode.

Antes ya existian, pero sin el prefijo WIN_

Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
leandro
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: caj贸n portamonedas con tprint
Posted: Tue Aug 13, 2013 10:45 PM

Gracias Biel, me fue muy 煤til esa forma de abrir el caj贸n.

Saludos
LEANDRO AREVALO
Bogot谩 (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
csincuir
Posts: 476
Joined: Sat Feb 03, 2007 06:36 AM
Re: caj贸n portamonedas con tprint
Posted: Wed Aug 14, 2013 12:47 AM

Gracias Biel, por la informaci贸n.

Saludos cordiales.

Carlos.

devtuxtla
Posts: 392
Joined: Tue Jul 29, 2008 01:55 PM
Re: caj贸n portamonedas con tprint
Posted: Wed Aug 14, 2013 03:00 AM

Hola Biel.

Hay un equivalente de estas funciones WIN_PrinterPortToName y WIN_PrintFileRaw para xharbour?

Saludos

Visite Chiapas, el paraiso de M茅xico.
Biel EA6DD
Posts: 682
Joined: Tue Feb 14, 2006 09:48 AM
Re: caj贸n portamonedas con tprint
Posted: Wed Aug 14, 2013 07:30 AM

Me alegra que os sea de utilidad, con referencia a si existen estas funciones para xHarbour, creo que si, pero hace a帽os que no uso xHarbour y no he seguido su evoluci贸n, prueba sin el prefijo WIN_
PrinterPortToName()
PrintFileRaw()

Saludos desde Mallorca
Biel Maim贸
http://bielsys.blogspot.com/
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Re: caj贸n portamonedas con tprint
Posted: Thu Aug 15, 2013 05:07 PM
Willi, cuando la impresora est谩 en puerto paralelo o en serie yo utilizo el siguiente c贸digo haciendo uso de TDOSPRN:

Code (fw): Select all Collapse
funct abrir_cajon
聽 聽oPrn:=TDosPrn():New(alltrim(configu->puerto))
聽 聽oPrn:say(0,0,&(configu->cajon))
聽 聽oPrn:End()
return nil


... como ver谩s, los par谩metros los guardo en una DBF (configu) y el usuario puede cambiarlos desde la opci贸n de utilidades de la aplicaci贸n.

Biel, me funcion贸 perfecto tu c贸digo. Al yo utilizar xHarbour simplemente le quit茅 el prefijo Win_ a algunas funciones y funcion贸 perfecto. Es lo que quer铆a (que el usuario desde un butt贸n contenido en un Dialog pudiese abrir el caj贸n portamonedas sin necesidad de imprimir nada).

Mil gracias.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions