FoxPro/Visual FoxPro - Etiquetas de codigos de barras en vfp

 
Vista:

Etiquetas de codigos de barras en vfp

Publicado por IDELSY B. (25 intervenciones) el 23/10/2016 01:18:50
Saludo nuevamente a todos, estoy muy agradecida de ustedes ya que me han ayudado a superar muchas cosas.

Le explico:

Yo tengo un rutina de codigos en foxpro 2.6 para imprimir etiquetas, solo leo el codigo de barras luego pongo la cantidad de codigos que deseo repetir y luego imprime la cantidad indicada sin usar programas adicionales. Intente usarlo en VFP pero aqui no funciono.

Este es el procedimiento:

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
31
32
33
34
35
36
37
38
39
40
41
42
m.codigo     = UPPER(ALLTRIM(m.codigo))
  m.descrip    = UPPER(ALLTRIM(m.descrip))
  m.cantidad   = ALLTRIM(m.cantidad)
 
 
   SET PRINTER TO LPT1
   DO INITPRINT
   SET DEVICE TO PRINTER
 
   	?'q288'
	?'Q152,40'
	?'N'
	?'ZT'
	?"A25,00,0,1,1,2,N,"+'"'+" TITULO"+'"'
	*?"A80,22,0,1,1,1,N,"+'"'+"TEL.E"+'"'
	?"B60,35,0,1,2,3,35,B,"+'"'+M.CODIGO+'"'
	?"A25,98,0,1,1,1,N,"+'"'+M.DESCRIP+'"'
*	?"A25,116,0,3,1,1,N,"+'"'+M.PRECIO+'"'
	?"P"+M.CANTIDAD
    ?'FK'+'"'+"*"+'"'
 
   DO FINPRINT
   WAIT WINDOW "Proceso Exitoso, Pulse Enter"
*   SCATTER MEMVAR BLANK
*   _CUROBJ=1
*   SHOW GETS
RETURN
 
************************
PROCEDURE FINPRINT
*  Eject
  Set Print Off
  Set Device To Screen
  Release Window Imprime
RETURN
*------------------------------*
PROCEDURE INITPRINT
  Set Device To Printer
  Set Print On
  Set Console Off
RETURN
*------------------------------*

Esto me funciona pero la verdad que no entiendo como ya que forma un bucle con la cantidad de codigos que pido y lo impreme todos.

Quiero saber si es posble encontrar alguna rutina que pueda imprimi etiquetas desde vfp.

Gracias a todos
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