Saludos Eduardo, en primer lugar de donde eres?
Luego te explico , mira yo tengo un POs aki en Santo Domingo, que maneja todo eso, al principio el pos display, (visor) lo utilizaba con el MS COMM, pero luego lo estoy utilizando como una impresora.
Como asi, mira es facil,
Create una impresora local para cada maquina el la que estes , pero el puerto de salida de la maquina en vez de ser LPT1, le pones com1, com2, etc.
El asunto es que esa impresora le pones eso y ya,
Ej:
La impresora que yo agrego es la Epson L-300 y el pongo el nombre de puerto
al momento de quiera imprimir algo por la otra impresora no mas ago lo siguiente:
Antes con el MSCOmm
&& Post Dysplay
* ThisForm.ole1.CommPort = 1 && Use Comm2, The second Serial Port.
* ThisForm.ole1.Settings = "9600,N,8,1"
tt = total de la factura & esto es para que cada vez que pase algo por el scanner *el cliente vea cuanto lleva en la cuenta
pp = precio del producto
dd = descripcion del producto, recuerda descripcion tiene que ser <= 20 Caracter
ThisForm.ole1.PortOpen = .T.
tt =AllTrim(str(_totalgral,9,2))
tt = val(tt)
store Alltrim(Transform(tt, '$$,$$$,$$$.99')) to tt1
pp = val(pp)
store Alltrim(transform(pp, '$,$$$,$$$.99')) to ppp
ThisForm.ole1.Output = chr(027)+chr(081)+chr(065)+dd+chr(13)
ThisForm.ole1.Output = chr(027)+chr(081)+chr(066)+ppp+" "+tt1+chr(13)
ThisForm.ole1.PortOpen = .F.
Thisform.refresh()
*&& End Post Display
Ahora con lo de la impresora lo hago asi fijate
*puerto = nombre de la impresora que esta por el Com1
set printer to name puerto
tt =AllTrim(str(_totalgral,9,2))
tt = val(tt)
store Alltrim(Transform(tt, '$$,$$$,$$$.99')) to tt1
pp = val(pp)
store Alltrim(transform(pp, '$,$$$,$$$.99')) to ppp
???chr(027)+chr(081)+chr(065)+dd+chr(13)
???chr(027)+chr(081)+chr(066)+ppp+" "+tt1+chr(13)
set printer to
* Cuanto quiero imprimir por la impresora entonces del POs seraia asi
*puntov = nombre impresora POS
*??? chr(27)+chr(112)+chr(0)+chr(25)+chr(250) && esto lo preguntaste antes creo
** es como se abre un cash drow, mira esto me costo mucho timepo de *investigacion, pero ahi esta, utilizalo no importa para esos somo programadores
* conesa intruccion se abre el cash drow
Set printer to name puntov
* ??? chr(27)+chr(112)+chr(0)+chr(25)+chr(250)
* ??? chr(27)+chr(112)+chr(0)+chr(25)+chr(250)
* ??? chr(27)+chr(112)+chr(0)+chr(25)+chr(250)
??? chr(27)+chr(112)+chr(0)+chr(25)+chr(250)
set print to kk.txt
report form fac_tikaki.frx to PRINTER
Si no entiendes, mira te jo...
PD:
Y por favor de contestar este mensaje que tiene la cachaza de no contestar la posible ayuda, eso lo digo por varios ya del grupo
att.
Antonio R. Moquete Mejia
Santo Domingo Rep. Dom.
