FoxPro/Visual FoxPro - veanlo por favor

veanlo por favor

Publicado por many (127 intervenciones) el 12/05/2014 19:45:08

Saludo:

en una impresora zadra lp 2824 plus usb, para etiquetas o codigo de barra mando a imprimir y no dice nada, digame alguien donde esta el error.

m.codigo     = UPPER(ALLTRIM(thisform.codigo.value))

m.descrip    = UPPER(ALLTRIM(thisform.descrip.value))

m.precio     = STR(ALLTRIM(thisform.venta.value))

m.cantidad   = ALLTRIM(STR(thisform.cantidad.value))

Set Device To Printer

Set Print On

Set Console Off

SET CONSOLE OFF

SET PRINTER TO USB001

SET DEVICE TO PRINTER

SET PRINTER ON

???'q288'

???'Q156,20'

???'D10'

???'N'

???'ZT'

???"A080,000,0,2,1,1,N,"+'"'+"FARMACIA"+'"'

???"B030,020,0,1,1,1,50,N,"+'"'+M.CODIGO+'"'

???"A030,075,0,1,1,1,N,"+'"'+M.CODIGO+'-'+subst(M.DESCRIP,1,10)+'"'

???"A030,095,0,1,1,1,N,"+'"'+subst(m.descrip,11)+'"'

*???"A100,115,0,2,1,2,N,"+'"'+M.precio+'"'

???"P"+CANTIDAD

???'FK'+'"'+"*"+'"'

SET DEVICE TO SCREEN

SET PRINTER OFF

SET PRINTER TO

este codigo lo encontre y es muy parecido al que yo estaba usando, solo que el mio lo use en foxpro 2.6 y me quiere funcionar en visual.

Esto es urgente para mi, mis hermanos del alma.

mil gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 4

Val: 471

veanlo por favor

Publicado por Mauricio Antonio (1541 intervenciones) el 13/05/2014 01:35:44

Manny, realmente no se si solo abres hilos repetidos y te olvidas de los originales, fijate que ya antes en otro hilo anterior te contesto Fidel Jose y ahora abres otro hilo, porque no contestas los anteriores y/o los cierras o esperas una respuesta diferente?

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

veanlo por favor

Publicado por many (127 intervenciones) el 13/05/2014 07:51:51

Saludo y perdon por el mal manejo del foro, fue algo de desesperacion.

Mi principal problema era que no tenia exactamente los drivers de la impresora, de todos modo los codigos que publique no funcionan pero en un reporte de fox si funciona bien.

ahora voy a buscar un tipo de letras para imprimir el codigo en barras.

Ahora quiero saber porque al terminar la impresion de etiquetas siempre sale una ultima en blanco, diganme si esto es normal.

gracias por todo.

Valora esta respuesta

Comentar

veanlo por favor

Publicado por Rodolfo (4 intervenciones) el 13/05/2014 21:04:34

many tengo un programa producción que imprime etiquetas en una zebra es el siguiente:

if zebra

    set console off

    set alternate to salida.txt

    set alternate on

    scan

        scatter memv

        ??? "^XA^LH0,0^BY2,4,80"

        ??? "^FO0,0"

        ??? "^FO00,80^ADN,40,30^fd"+m.producto+"^fs"

        ??? "^FO00,150^ADN,27,14^FD"+"Cliente: "+m.cliente+"^FS"

        ??? "^FO00,200^ADN,27,14^FD"+"Codigo Color: "+allt(m.ccolor)+"^FS"

        ??? "^FO00,250^ADN,27,14^FD"+"Cantidad: "+allt(str(m.cantid))+" "+allt(m.unidad)+"^FS"

        ??? "^FO00,300^ADN,27,14^FD"+"Placa: "+allt(m.placa)+"    Modelo: "+allt(m.modelo)+"^FS"

        ??? "^FO00,350^ADN,27,14^FD"+"Marca: "+allt(m.marca)+"    Prep: "+allt(m.prep)+"^FS"

        ??? "^PQ"+allt(str(m.cantid))

        ??? "^XZ"

    endscan

    set alternate off

    set alternate to

    set console on

    set printer to

    ! type salida.txt > prn

else

...

endif

esta linea imprime la descripción del producto en una letra mas grande:

??? "^FO00,80^ADN,40,30^fd"+m.producto+"^fs"

las etiquetas son impresas de forma horizontal con esta linea: ??? "^XA^LH0,0^BY2,4,80"

Espero que te sirva de ejemplo.

Valora esta respuesta

Comentar

veanlo por favor

Publicado por many (127 intervenciones) el 15/05/2014 07:05:04

Saludo nuevamente

Gracias a todos por ayudar a dar fin satisfactoriamente a esta parte del tema.

Ahora quiero que trabajemos algo mas:

Antes de que este coido me funcionara trabaje esto de las etiquetas de codigo de barras con el dise;ador de reporte de visual foxpro 9, llege a hacer unas etiquetas elegante pero le recuerdo que siempre que mando a imprimir con report form este va imprimiendo y saltando.

si envio 5 salen 10 5 impresa y 5 en blanco.

tambien con el reporteador el codigo de barras sale peque;o y no logre ponerlo mas grande, para el codigo de barras solo baje un tipo de letras llamado new codebar que imprime con estas caracteristicas.

Si alguien lo ha hecho con el REPORT FORM y funcional, gracias por ayudar.

Valora esta respuesta

Comentar

Formato de factura

ARCHIVO PLANO LARGO