FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Abrir cajon dinero
noe aburto
Posts: 418
Joined: Wed Nov 26, 2008 06:33 PM
Abrir cajon dinero
Posted: Sat Mar 14, 2015 07:55 PM

Saludos.

Checando en el foro, me encuentro que para abrir el cajon del dinero con la clase tprinter esta en chino.

si lo hiciera con la tdosprn, haria: oPrn:Comand(n,n,n)

pero con la tprinter, alguna sugerencia de como mandar los codigos de apertura al cajon.

la impresora que uso para los tickets es una EPSON TM-T20II, VIA USB

No茅 Aburto S谩nchez
Tec. Prog. de Sistemas. -Morelia, Mich. M茅xico.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
wmormar
Posts: 1076
Joined: Fri Oct 07, 2005 10:41 PM
Re: Abrir cajon dinero
Posted: Sat Mar 14, 2015 10:36 PM

Noe,

Abrir el cajon es de lo mas facil, debes instalar el controlador correspondiente y configurar en preferencias de la impresora abrir el cjon, antes o despues de enviar a imprimir, inclusive se puede colgar un logo o archivo de imagen de la empresa.

Pero debes instalar el controlador de la impresora, sino, nunca podras abrir el cajon.

William, Morales

Saludos



m茅xico.sureste
gabo
Posts: 128
Joined: Tue Jan 03, 2006 08:31 PM
Re: Abrir cajon dinero
Posted: Tue Mar 17, 2015 02:39 PM
Noe
Este es el codigo y me sirve hasta el momento con epson, samusung, oki y star
Saludos
Code (fw): Select all Collapse
 Chr(27)+Chr(112)+Chr(0)+Chr(60)+Chr(240)
Loren
Posts: 479
Joined: Fri Feb 16, 2007 10:29 AM
Re: Abrir cajon dinero
Posted: Sat Mar 21, 2015 12:20 PM
Noe,

1.- Partiendo de la base que tienes los drivers correctamente instalados, cuando imprimes a trav茅s de la clase Tprinter, justo cuando terminas con ENDPRINT la impresora autom谩ticamente corta el papel y abre el caj贸n, sin necesidad de insertar ning煤n c贸digo especial.

2.- Si necesitas abrir el caj贸n sin imprimir (por ejemplo asignar una tecla para simplemente abrir el caj贸n), debes colocar esta funci贸n:

Code (fw): Select all Collapse
funct abrir_cajon()
聽LOCAL cPri,hFile,opencajon:='CHR(27)+"p"+CHR(0)+CHR(25)+CHR(250)' 聽
聽cPri:=PrinterPortToName( "USB001" )
聽IF !File('opn.esc')
聽 聽 聽 hFile:=FCreate('opn.esc')
聽 聽 聽 FWrite(hFile,&opencajon) //Abrir caj贸n
聽 聽 聽 FClose(hFile)
聽ENDIF
聽PrintFileRaw(cPri,'opn.esc','')
聽release oPrn
return


Sin m谩s, un saludo.
LORENZO.

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions