desde el 2007 yo tengo un sistema que imprime los codigos de barra y
me ha funcionado muy bien
*********************************************************************************************************************************************************
********cargo a una tabla temporal los datos que quiero impirimir en
mi caso
REPLACE itemprod WITH xinmvd.itemprod,;
dscr WITH xinmvd.ditem,;
valo WITH xinmvd.valo,;
bode WITH kNbode
*************************est por cada codig de barra a veces imprimen
hasta 3000 codigos (viene del proces de compra o de ingreso a
inventario
COPY FILE c:\tmp\barradatcero.xls TO c:\tmp\xbarradat.xls
objXL = CreateObject("Excel.Application")
objxl.workbooks.Open('C:\TMP\xbarradat.xls', , , ,,)
objxl.DisplayAlerts = .F.
kfil=2
kcol=0
*******solo por efectos de estructura en el archvio de etiquetas de la
impresora zebra
*******cambio los titulos de la primera fila del archivo de excel
=qcelda('objxl',1, 1,'codi1')
=qcelda('objxl',1, 2,'dscr1')
=qcelda('objxl',1, 3,'valo1')
=qcelda('objxl',1, 4,'local1')
=qcelda('objxl',1, 5,'codi2')
=qcelda('objxl',1, 6,'dscr2')
=qcelda('objxl',1, 7,'valo2')
=qcelda('objxl',1, 8,'local2')
=qcelda('objxl',1, 9,'codi3')
=qcelda('objxl',1,10,'dscr3')
=qcelda('objxl',1,11,'valo3')
=qcelda('objxl',1,12,'local3')
=qcelda('objxl',1,13,'codi4')
=qcelda('objxl',1,14,'dscr4')
=qcelda('objxl',1,15,'valo4')
=qcelda('objxl',1,16,'local4')
endif
objxl.save
*Objxl.Visible=.T.
*Objxl.Activesheet.PrintPreview(.F.)
*Objxl.objxl.Visible=.F.
Objxl.Quit
Objxl=.Null.
Release Objxl
USE
SELECT xinmvd
GO top
=impbarra()
**** impbarra.prg
************
PROCEDURE cgprintbarra
DECLARE Integer WinExec IN WIN32API String cCmdLine, Integer nCmdShow
kcomando='"C:\Archivos de programa\ZebraDesigner Pro\Bin\Design.exe" c:
\tmp\dplata5'
=WinExec( kcomando,3 )
*******************************
**siendo dplata5 un archvio generado en el programa disenador que te
vino en el cd de la impresora donde le dices que tome los datos del
archvio de excel
On Apr 26, 8:24 am, Luis Maria Guayan <
luismar...@gmail.com> wrote:
> Lo mas rápido (en impresión)es lo que te indica Extremo: tomar el código de algún generador de etiquetas en el lenguaje de la impresora y luego combinarlo desde VFP a un archivo de texto y enviarlo a la impresora.
> La otra opción es utilizar el generador de informes de VFP y utilizar FoxBarcode para los códigos de barras. En la descarga de FoxBarcode hay un ejemplo de un informe similar al que necesitas.
> -- FoxBarcode --
http://sites.google.com/site/foxbarcode/
> Te pego una imagen de una aplicación de Punto de Venta con informes de VFP y FoxBarcode (La aplicación es LeKens TPVhttp://
www.oktpv.com/lekenstpv.htmly puedes descargar una Demo)
> Ambas aplicaciones son de 2 conocidos y activos participantes de este gran Foro
>
> Luis María Guayán
> Tucumán, Argentina
> _________________________
http://www.PortalFox.com
> Nada corre como un zorro
> _________________________
> El 26/04/2012 01:16, Roy Francisco Salas Benavides escribió:Hola amigos del Foro. Un saludo a la distancia. Un par de clientes me están pidiendo que incluye en la aplicación de punto de venta para supermercado la generación de etiquetas para "Habladores" (así les llamamos aquí, son las etiquetas que indican el nombre del producto, el precio, el peso, el código de barras, etc.) en las góndolas, que puedan indicar el código de artículo y que el sistema me genere la cantidad de etiquetas que yo le indique en el formulario. También para marcar los productos, en este caso que se pueda imprimir 3 etiquetas por línea,... espero haberme explicado bien mi requerimiento. Espero sus aportes, gracias mil de antemano. Muchos Saludos. Roy Salas. Costa Rica.
>
> cgicbhie.png
> 34KViewDownload
>
> etiquetas1.png
> 149KViewDownload