FoxPro/Visual FoxPro - veanlo por favor

   
Vista:

veanlo por favor

Publicado por many (84 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.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
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 claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Mauricio Antonio

veanlo por favor

Publicado por Mauricio Antonio (1367 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 claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

veanlo por favor

Publicado por many (84 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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:
1
??? "^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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

veanlo por favor

Publicado por many (84 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
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar