Archivos de Tags: código de barras

Formato de etiquetas para zebra 2844

 Visual Basic |  copy code |? 
01
' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos
02
Public Sub Main ()               
03
 
04
    Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )
05
 
06
    While Not rstPartidas.EOF
07
 
08
          For i = 1 to rstPartidas("etiquetas")
09
              ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
10
          Next
11
 
12
          rstPartidas.MoveNext 
13
 
14
    Wend
15
 
16
 
17
    Set rstPartidas = CreaRecordSet( "SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )
18
 
19
    While Not rstPartidas.EOF
20
 
21
          For i = 1 to rstPartidas("etiquetas")
22
              ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
23
          Next
24
 
25
          rstPartidas.MoveNext 
26
 
27
    Wend
28
 
29
 
30
End sub
31
 
32
 
33
 
34
Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )
35
 
36
cPuerto = Trim( cPuerto )
37
cArticulo = Trim( cArticulo )
38
cDescrip = Trim( cDescrip )
39
cDato1 = Trim( cDato1 )
40
 
41
cSalida = ""
42
 
43
' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
44
' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la 
45
' diseñe por favor mandemelo
46
' Aqui se muestran los comandos basicos
47
' El comando N inicia la etiqueta
48
' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
49
' y el 15 la posición en el eje de las Y
50
' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
51
' Es la posición de inicio del eje de las Y
52
' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir
53
 
54
cSalida = cSalida & "N" & Chr(13) & Chr(10)
55
cSalida = cSalida & "D14" & Chr(13) & Chr(10)
56
cSalida = cSalida & "A220,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)
57
cSalida = cSalida & "A05,11,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 12 ) & Chr(34) & Chr(13) & Chr(10)
58
cSalida = cSalida & "B05,30,0,2,1,6,25,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
59
cSalida = cSalida & "A220,55,0,4,1,1,N," & Chr(34) & "$" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
60
'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)
61
cSalida = cSalida & "P1" & Chr(13) & Chr(10)
62
 
63
if Ambiente.rstEstacion("ietiquetas") <> 0 Then
64
   if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then
65
      Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida
66
   else                                                                 
67
      if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
68
         Ambiente.ImpresoraDeEtiquetas.Output = cSalida
69
      end if 
70
   end if
71
end if                                     
72
 
73
Dormir 100
74
Eventos
75
 
76
 
77
End Sub
78
 
79
 
80
 
81
 
82

Código Zebra 2844 y MyBusiness POS 2011

Puedes copiar este código y pegarlo en tu editor de mybusinesspos

 Visual Basic |  copy code |? 
01
' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos
02
Public Sub Main ()               
03
 
04
    Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )
05
 
06
    While Not rstPartidas.EOF
07
 
08
          For i = 1 to rstPartidas("etiquetas")
09
              ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
10
          Next
11
 
12
          rstPartidas.MoveNext 
13
 
14
    Wend
15
 
16
 
17
    Set rstPartidas = CreaRecordSet( "SELECT clavesadd.clave, prods.descrip, clavesadd.etiquetas, prods.precio1, prods.precio2, prods.precio10 FROM clavesadd INNER JOIN prods ON clavesadd.articulo = prods.articulo WHERE clavesadd.etiquetas > 0", Ambiente.Connection )
18
 
19
    While Not rstPartidas.EOF
20
 
21
          For i = 1 to rstPartidas("etiquetas")
22
              ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )
23
          Next
24
 
25
          rstPartidas.MoveNext 
26
 
27
    Wend
28
 
29
 
30
End sub
31
 
32
 
33
 
34
Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )
35
 
36
cPuerto = Trim( cPuerto )
37
cArticulo = Trim( cArticulo )
38
cDescrip = Trim( cDescrip )
39
cDato1 = Trim( cDato1 )
40
 
41
cSalida = ""
42
 
43
' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del
44
' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la 
45
' diseñe por favor mandemelo
46
' Aqui se muestran los comandos basicos
47
' El comando N inicia la etiqueta
48
' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X
49
' y el 15 la posición en el eje de las Y
50
' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45
51
' Es la posición de inicio del eje de las Y
52
' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir
53
 
54
cSalida = cSalida & "N" & Chr(13) & Chr(10)
55
cSalida = cSalida & "A250,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)
56
cSalida = cSalida & "A250,30,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 30)& Chr(34) & Chr(13) & Chr(10)
57
cSalida = cSalida & "B250,70,0,1,2,6,80,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)
58
cSalida = cSalida & "A380,155,0,4,1,1,N," & Chr(34) & "PRECIO $" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)
59
'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)
60
cSalida = cSalida & "P1" & Chr(13) & Chr(10)
61
 
62
if Ambiente.rstEstacion("ietiquetas") <> 0 Then
63
   if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then
64
      Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida
65
   else                                                                 
66
      if Ambiente.ImpresoraDeEtiquetas.PortOpen Then
67
         Ambiente.ImpresoraDeEtiquetas.Output = cSalida
68
      end if 
69
   end if
70
end if                                     
71
 
72
Dormir 100
73
Eventos
74
 
75
 
76
End Sub
77