Como imprimir Ticket de Venta con Imagen

[mescud...@gmail.com]

Buenos dias.

Actualmente imprimo facturas y boletas en TXT lo cual me impide colocar imágenes.

Cómo podría para generar e imprimir un ticket de venta de largo ilimitado con contenga una o más imágenes (Ej: QR)?

Gracias de antemano

Saludos

PD:

Mi prg de impresión es:

SELECT ventas

* RUTINA PARA IMPRESORA DE SOLO TEXTO

SET LIBRARY TO "rawprint5.fll" ADDITIVE 

* 

rutaarchivo = SYS(5) + SYS(2003) + "\factura.txt"

SET PRINTER TO FILE factura.txt

SET CONSOLE OFF

SET DEVICE TO PRINT

@0,1 say CHR(27)+CHR(15)

* @0,1 say chr(27)+chr(67)+chr(n) && n = #lineas de la pagina (6 por pulgada)

*

* Abrir Gaveta  27,112,48,25,250  o  27,112,0,25,250

lin = 0

        @lin,0 Say Chr(27)+Chr(112)+Chr(48)+Chr(25)+Chr(250)

lin = lin + 1

        *

xdesc = IIF(ventas.cancelada,"        *** A N U L A D A ***","")

@lin,(40-LEN(xdesc))/2 Say xdesc

lin = lin + 1

xdesc = "EMPRESA S.A."

@lin,(40-LEN(xdesc))/2 Say xdesc

lin = lin + 1

xdesc = "Dirección: Av...."

@lin,(40-LEN(xdesc))/2 Say xdesc

lin = lin + 1

xdesc = "Telef: 123456789"

@lin,(40-LEN(xdesc))/2 Say xdesc

lin = lin + 1

        .......................

        .......................

        .......................

lin = lin + 2

xdesc = IIF(ventas.tipo=3,"GRACIAS !!!","GRACIAS POR SU VISITA !!!")

@lin,(40-LEN(xdesc))/2 Say xdesc

lin = lin + 2

@lin,0 say "Hash: " + codigohash

lin = lin + 2

@lin,0 say "Consulte su documento en el portal web:"

lin = lin + 1

@lin,0 say "https:/................."

*

lin = lin + 10

@lin,0 Say Chr(13)

lin = lin + 1

@lin,0 Say Chr(27)+Chr(105) && Corte de pagina EPSON

lin = lin + 1

@lin,0 Say Chr(27)+Chr(100)+chr(0) && Corte de pagina STAR

*

SET PRINTER TO NAME &xmaq_caja

SET DEVICE TO SCREEN

SET CONSOLE ON

*

IF !ratios.sel_caja && Pregunta por Impresora

cPrinter = GETPRINTER()

IF !empty(cPrinter)

=RAWPRINT(cPrinter,rutaARCHIVO)

ENDIF

ELSE && Imprime directamente sin preguntar

=RAWPRINT(xmaq_caja,rutaARCHIVO)

ENDIF 

SET LIBRARY TO 

[Mario Escudero]

Lo que estoy pensando hacer es lo sgte:

Al final, antes del salto y  corte de pagina, en el mismo prg, llamar a un report form  para que imprima el QR y luego con el mismo rawprint, darle el salto de pagina y corte....

Sería una salida idónea?

Gracias

----

Mario Escudero

995817087 

www.cheff2000.com

     

[elconsultor...@gmail.com]

te recomiendo hacerlo en un reporte normal, y puedes agregar las imagenes sin problemass. hoy en dia todas las impresoras termicas permiten imprimir graficos sin perder la calidad.

[Mario Escudero]

Hola, pero cómo configuro el largo ilimitado ????

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Mario Escudero]

Te refieres hacerlo con un report form? 

Cómo configuro el largo ilimitado del ticket y el envio de caracteres ESC (corte de pagina, abrir gaveta, etc)?

Gracias

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Víctor Hugo Espínola Domínguez]

@ lnLin, 0 say "Hola Mario"

lnLin = lnLin + 2

@ lnLin, 5 say lcImagen biTmap ;

ISOMETRIC ;

SIZE 300, 55

Probado con SET DEVICE TO PRINTER, no sé si funcione con Rawprint

Saludos,

Víctor.

Lambaré - Paraguay.

[Mario Escudero]

Buen dato Victor.

Voy a probar y te aviso....

Gracias !

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Mario Escudero]

Victor, qué extensión debe tener la imagen   lcImagen   ?

Gracias 

----

Mario Escudero

995817087 

www.cheff2000.com

     

El vie., 3 de may. de 2019 a la(s) 16:17, Víctor Hugo Espínola Domínguez (vich...@gmail.com) escribió:

[Víctor Hugo Espínola Domínguez]

Con bmp y jpeg fue probado, otras extensiones no las probé.

 

Saludos,

Víctor.

Lambaré - Paraguay.

[Mario Escudero]

Seria algo asì?

@lin,0 say  d:\temp\qr.jpeg  biTmap   ISOMETRIC SIZE 300, 55  

Gracias

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Mario Escudero]

Me sale este mensaje de error a pesar de que sì existe el archivo....

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Oscar Bonet]

no hay reportes ilimitados y creo que tampoco impresora que resita,si no se queman.  

Has un reporte como te indican los demás. 

El largo de la hoja ya vienen pre configurados en las impresoras con sus formatos.

REPORT FORM  ...etc.

_________________
Oscar Bonet
   

De conformidad con el decreto 2242 de Noviembre de 2015, nuestra Compañía está implementando la Facturación Electrónica y según comunicado  100202211-410 del 29 de Junio de 2018 emitido por la DIAN, se nos fijó el 1 de diciembre de 2018 para la emisión de la factura electrónica.

En consecuencia, hemos destinado la cuenta de correo electrónico: 

e-fac...@cialta.com      para recepción y emisión de facturas electrónicas.

Habeas Data: La Compañía Internacional de Alimentos Agropecuarios CIALTA S.A.S. cumple con los requerimientos de la Superintendencia de Industria y Comercio de Colombia sobre el manejo de información de datos personales, lo cual implica tener políticas claras de tratamiento de Base de Datos que usted puede consultar: Politicas Habeas Data 

Si desea tener más información sobre el particular, puede escribirnos al correo habea...@cialta.com 

[Dsan]

Hola Mario el ejemplo de Victor hugo funciona bien pero necesitas la ruta completa de la imagen en que carpeta esta

Lo probe y sale bien.

lcImagen= GETPICT("bmp","Localizar a Mario")
@ 11,10 say "Hola Mario"
@ 10,30 say lcImagen biTmap    ISOMETRIC SIZE 4,4

[mescudero0302]

Ah ok 

Voy a probar. 

Mil gracias! 

Mario Escudero

995-817087

www.cheff2000.com 

-------- Mensaje original --------

De: Dsan <douglas....@gmail.com>

Fecha: 3/5/19 19:31 (GMT-05:00)

A: publice...@googlegroups.com

Asunto: Re: [vfp] Como imprimir Ticket de Venta con Imagen

[Mario Escudero]

Hola Douglas:

Me sale error....

Parece que no funciona con Rawprint.dll

Sigo estos pasos:

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Marcelo Barberis]

Hola yo hace un tiempo atras tambien pregunte este tema y me dieron exactamente lo que te respondieron a ti, mi tema era incluir un codigo QR al fina de la factura, y por ej yo genero la ruta de acceso a la img qr mediante una variable

*!* codigo_qr, es el nombre de la img qr -->> 12_26042019.jpg

lcRutaQR = TraerImagenQr(codigo_qr)

FUNCTION TraerImagenQr

LPARAMETERS lnRuta

LOCAL lcFile,RutaArchivo

RutaArchivo = SYS(5) + CURDIR() + "CodQr\"

lcFile = RutaArchivo + ALLTRIM(lnRuta)

RETURN(lcFile)

ENDFUNC

y tal cual como tu lo pones yo igual lo ponia y me saltaba error en ese lugar donde yo ponia la linea para mostrar el qr, y pasaba el error y me imprimia la factura tipo matricial pero sin la img del qr, y probe con jpg, img, png mira hasta le puse de la forma &VarRutaQR y de igual no funciono hasta que me canse y segui con la forma frx per restringuiendo la cantidad de item porque mi frx maximo me imprime hasta tamaño oficio aunque estoy en una tiquetera a cinta o matricial, bueno hasta ahora no puedo usar el sistema matricial con la incluision de qr usar @say

--

Marcelo Barberis Gutierrez
Sistemas Informaticos
Villa Montes - Bolivia
Telef.: +591-76830544

[Víctor Hugo Espínola Domínguez]

Yo lo hice especificando la ruta completa, no sé si se pueda de otra forma.

lcImagen = "C:\Users\hugo\Pictures\DC_BarCode.jpeg"

lnLin = lnLin + 2

@ lnLin, 5 say lcImagen bitmap ;

ISOMETRIC ;

SIZE 300, 55

Saludos,

Víctor.

Lambaré - Paraguay.

[Marcelo Barberis]

Estimado y sera que puedes mostrar una pantalla donde se vea el resultado, sigo con el tema de no poder algo debe estar mal en mi codigo

[Carlos G. G. Camacho López]

Si quieres ayuda envía tu .fll para hacer pruebas

 

 

Enviado desde Correo para Windows 10

 

---

De: publice...@googlegroups.com <publice...@googlegroups.com> en nombre de Marcelo Barberis <alexm...@gmail.com>
Enviado: Saturday, May 4, 2019 1:51:41 AM
Para: publicesvfoxpro

Asunto: Re: [vfp] Como imprimir Ticket de Venta con Imagen

[Víctor Hugo Espínola Domínguez]

Ahí va . . .

Saludos,

Víctor.

Lambaré - Paraguay.

[Mario Escudero]

Hola Victor:

Lo he hecho así pero parece que no funcion con Rawprint

Gracias

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Mario Escudero]

Hola Marcelo:

Si pues, al parecer no queda otra que hacer un frx.

En cuanto a eso, me indicaron que sí se pueden enviar un número ilimitado de ítems.

Esto se logra una vez que configuras el reporte con la impresora térmica y, al reconocerla, imprime todos los ítems del Detalle sin problema.

Bueno, esto recién me lo recomendaron ayer por lo que recién lo probaré entre hoy y mañana.

Lo cierto es que me han asegurado que sí funciona.

De todos modos contaré por acá cómo me fue.

Gracias

Saludos

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Víctor Hugo Espínola Domínguez]

Porqué debes imprimir con rawprint?

Saludos,

Víctor.

Lambaré - Paraguay.

[ZeRoberto]

Yo no entiendo para que sirve ese codigo qr aca en Perú he visto facturas de plazavea o promart que no llevan ese codigo

Saludos

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ

[Marcelo Barberis]

es una consulta a nivel general, no solo es para peru, quizas en tu pais no sirve para nada lo cual no quiere decir que si en tu pais no sirve para nada en otros paises sea igual, poraqui en las facturas la inclusion del qr es obligatorio

[Luis suescún]

Esa no es la respuesta, Víctor te está mostrando que si se puede con prg, lo que quiere decir que te va a funcionar independiente de en qué legislación de país se haga, si te das cuenta que el problema es el rawprint, deberías hacerte a un nuevo programa omitiendolo el rawprint y adaptar lo que te envía Víctor

[elconsultor...@gmail.com]

Ya he mencionado varias veces que la mejor forma de surgir es evolucionar, pero ya depende de cada uo en su idea.

todo ese proceso para que me salga el codigo QR o logotipos en los comprobantes mas rapido lo desarrollo en reporte FRX y configuro bien la impresora para que realice el corte automatico sin problemas.

pero para evitar muchos problemas que si acepta o no ciertas cosas, mas aun el problema que si es 32bits o 64bits, si es XP o Win10 mas rapido lo trabajo desrrollandolo en PHP y mediante un API le digo que realice todo el proceso y me evito el problema, mas aun me da mas ventajas por que puedo interactuar con multiples plataformas o equipos a la vez.

[Mario Escudero]

No sirve para nada...

La Sunat ha pateado la obligación que aparezca en los tickets de venta hasta enero del proximo año y supongo que en ese entonces reevaluarán la norma.

Peeeeeeeeeeeeeeeeeerooooooooooooo.................no faltan algunos "marcianos" que quieren que sí o sí aparezca impreso y ni siquiera saben para qué.

Eso me está pasando en estos momentos donde la dueña de un negocio ya quiere adquirir mi sistema hace mas de 10 días pero el marciano de su Contador está que pone mil peros incluído el hecho que tiene que aparecer el famoso QR...

En fin, espero que hoy se concrete la compra.

Gracias

Saludos 

----

Mario Escudero

995817087 

www.cheff2000.com

     

[Mario Escudero]

Buenos días:

Esto le respondí a un colega ahora temprano. 

Lo copio por si le interese a alguien más. 

Saludos 

-------------------

Hola Marcelo. 

Hasta comienzos de año todos mis clientes imprimían sus tickets de venta en ticketeras matriciales. 

Esta impresión la hice con rawprint.dll, o sea, creando un txt y enviandolo a la ticketera. 

Ahora lo único que hago es seguir imprimiendo el ticket de la misma manera solo que le he quitado el corte de papel. 

En mi prg de impresión del txt, después de imprimir el txt (ej: factura.txt) pongo repo form QR to print no console. 

El QR.frx solo contiene una imagen con QR.png (podría ser jpg, etc) que va cambiando cada vez que genero un nuevo QR.png con cada nueva factura. 

Finalmente, cuando la ticketera térmica imprime la imagen QR corta el papel automáticamente y listo. 

Pero tiene que ser térmica que imprime modo gráfico nítido. No sé si con una matricial cortará el papel automáticamente. En todo caso simplemente habría que empalmar otro rawprint con el comando para el corte de papel. 

Otro dato imperante: la térmica debes instalarla con su propio Driver ya que si la instalas como Genérica no imprime el gráfico QR. 

Eso lo experimenté ayer mismo. 

Saludos 

----------------------------------------
Mario Escudero
995-817087
www.cheff2000.com

[Angel Pérez]

Buenas. pero ¿ es posible hacerlo todo desde report form? Incluído que la impresión termine cuando no haya más que impirmir. Gracias.

[Mario Escudero]

Hola:

En mi caso y opinión personal, diría que no porque si son más items de lo que soporta un A4 por ejemplo, habria problema.

Finalmente lo que hice fue imprimir con el texto plano como siempre (con Rawprint) donde se imprimen N items.

Luego llamo al Report para imprimir el QR.

Hay que configurar la ticketera termica para que corte el papel al final y listo.

La termica debes instalarla con su propio driver ya que como Generica no imprime graficos (el QR en este caso).

Este cliente me pidio el logo al inicio !!!!

Entonces que hice:

1) Report form para el Logo

2) Texto plano para el detalle (el de siempre. Pero aqui le quité los comandos de CORTE de pagina)

3) Report form para el QR (aqui configuré la ticketera para que NO CORTE al final)

4) Texto plano sólo con los comandos de CORTE y listo.

Saludos

----

Mario Escudero

995817087 

www.cheff2000.com

     

El mié., 5 de jun. de 2019 a la(s) 14:55, Angel Pérez (pegoter...@gmail.com) escribió:

Buenas. pero ¿ es posible hacerlo todo desde report form? Incluído que la impresión termine cuando no haya más que impirmir. Gracias.

--
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/YfWQU7z4DNw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/74ac2886-2cdd-4a63-b00e-bb84afbd12cd%40googlegroups.com.

[Angel Pérez]

Hola .Gracias por co testar Mario. Te comento mirando por varios sitios he conseguido que el ticket no imprima todo el largo. Yo no tendría problemas con el largo la ímpresora a usar es una bixolom ar350 para tickets. Lo que me ocurre ahora es q solo me imprime un registro.  Y no lo entiendo  cargo las tablas bien y la que tiene los datos de las compras tiene los datos Per o si pongo go too me imprime sólo el 1 y si pongo go bottom el.ultimo. seguiré probando me pongo a ratos y no muy continuos. Un saludo y gracias se nuevo.

[Mario Escudero]

Hola Angel:

Ahji podiran estar sucediendo varias. Pensando en voz alta:

1) Si esa unica linea imprime algo no legible quizas el carro de la ticketera no esté corriendo

2) Fijate en el salto de linea (linea = linea + 1  por ejemplo)

3) Si usas tablas con filtros para el detalle, dale go bottom y go top (a veces se queda pegado con los filtros)

4) Si es Report Form entonces fijate si estas poniendo los items en el espacio "Detalle". Tambien confirma si esta bien el Relation entre la cabecera y el Dealle)

5) Por ultimo, se recomienda usar Cursores en vez de Tablas

Suerte !

Saludos

----

Mario Escudero

995817087 

www.cheff2000.com

     

El jue., 6 de jun. de 2019 a la(s) 06:54, Angel Pérez (pegoter...@gmail.com) escribió:

Hola .Gracias por co testar Mario. Te comento mirando por varios sitios he conseguido que el ticket no imprima todo el largo. Yo no tendría problemas con el largo la ímpresora a usar es una bixolom ar350 para tickets. Lo que me ocurre ahora es q solo me imprime un registro.  Y no lo entiendo  cargo las tablas bien y la que tiene los datos de las compras tiene los datos Per o si pongo go too me imprime sólo el 1 y si pongo go bottom el.ultimo. seguiré probando me pongo a ratos y no muy continuos. Un saludo y gracias se nuevo.

--
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/YfWQU7z4DNw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/d456ca19-1b5d-469d-a1f4-b423d5fd767d%40googlegroups.com.

[Axel Diaz]

que marca y modelo estas usando

[Angel Pérez]

Hola

Y nuevamente gracias. La impresora es una bixolom sr350.

He probado a poner una sola tabla e incluso cursor. Si no hago el data grouping imprime todos pero con el largo total de la pagina. Si pongo el grouping me imprime solo el primero y el ultimo. He mirado otro informe que hice hace algun tiempo lo tengo igual y funciona perfecto pero aquí nada. En fin seguiré un poco más y si no lo haré como tu.

[Angel Pérez]

Yaaaa, mil gracias. Era lo que tú decías de la relación. Lo he vuelto a hacer desde cero y funciona. No sé donde estaba el error pero no voy a averiguarlo jeje. Muchas gracias y estoy a vuestra disposición y mis limitados conocimientos. Un abrazo.

[Mario Escudero]

Son varios modelos entre todos mis clientes...

----

Mario Escudero

995817087 

www.cheff2000.com

     

--
Has recibido este mensaje porque estás suscrito a un tema del grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este tema, visita https://groups.google.com/d/topic/publicesvfoxpro/YfWQU7z4DNw/unsubscribe.
Para cancelar la suscripción a este grupo y a todos sus temas, envía un correo electrónico a publicesvfoxp...@googlegroups.com.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/d720a2e0-b07c-45fd-b7c7-c98db8b5f85e%40googlegroups.com.