MyBusiness POS 2006: Etiquetas de Código de Barras en Hoja Tamaño Carta

El generador de etiquetas de MyBusiness POS 2006 es una herramienta muy útil para la empresa. Sin embargo, en ocasiones es necesario hacer las adaptaciones necesarias para que se adapte la “caída” sobre hojas tamaño carta con etiquetas.
El código más común es el CODE39.   Este va a ser creado dentro de la siguiente ruta del Business Manager: personalización…formatos del sistema….(aquí creamos un nuevo archivo, llamado CODE39_AJUSTADO,  escribimos en el grupo ETIQUETAS, para que pueda ser utilizado desde la ventana etiquetas)
A continuación se muestra el código:

 Visual Basic |  copy code |? 
01
Public Sub Main()
02
 
03
        'TIPO DE PAPEL: 6287 T. CARTA
04
        'MARCA DE PAPEL: BIC PIMACO
05
        'ETIQUETAS/HOJA: 80
06
        'CONSEGUIRLO EN OFFICE DEPOT
07
        'IMPRESORA LÁSER
08
        'cada milimetro es equivalente a 57.1428571428571 pixels
09
 
10
    IniciaDocumento   
11
 
12
        'DEBIDO A QUE NUESTRA HOJA TIENE VARIAS FILAS Y COLUMNAS, SOLICITAMOS A PARTIR DE QUÉ FILA Y COLUMNA SE DEBE EMPEZAR A IMPRIMIR, POR SI EN ALGUN MOMENTO ESTÁ CASI COMPLETA LA HOJA
13
 
14
    nColumna = InputBox( “Comenzar con la columna no.:”, 0 )
15
    nFila = InputBox( “Comenzar con la fila no.:”, 0 )
16
 
17
        'EN CASO DE QUE SE CONTESTE 0 EN ALGUNO DE LOS CASOS, NO SE IMPRIMIRÁ NADA
18
    if Val2( nColumna ) <= 0 Then
19
       Exit Sub
20
    end if
21
 
22
    if Val2( nFila ) <= 0 Then
23
       Exit Sub
24
    end if
25
 
26
        'REALIZAMOS LA CONSULTA
27
    Set rstProds = CreaRecordSet( “SELECT * FROM prods WHERE etiquetas > 0 ORDER BY articulo”, Ambiente.Connection )
28
 
29
        'ESPECIFICAMOS EL LA SEPARACIÓN ENTRE CADA ETIQUETA, EN PIXELES, TANTO EN X(HORIZONTAL) COMO Y(VERTICAL)
30
    nX = 2714.28571428571
31
    nY = 725.714285714286
32
 
33
        'DEFINIMOS LOS MÁRGENES DE LA HOJA, EL SUPERIOR Y EL IZQUIERDO
34
    nMargensuperior = 400
35
    nMargenIzquierda = 828.57
36
 
37
    While Not rstProds.EOF          
38
 
39
          cArticulo = Trim( rstProds(“articulo”) )
40
          cDescrip = Trim( Mid(rstProds(“descrip”),1,16) ) & ” ” & Trim( rstProds(“modelo”) ) & ” ” & Trim( rstProds(“talla”) ) & ” ” & Formato( rstProds(“precio1″), “$##,##0.00″ )
41
          cEmpresa = Ambiente.Empresa
42
 
43
          For i = 1 To rstProds(“Etiquetas”)
44
 
45
            'AQUÍ SE REALIZAN LAS OPERACIONES CON LAS VARIABLES QUE ANTES HABÍAMOS DEFINIDO
46
              PosicionX = ((nX * nColumna) – nX) +  nMargenIzquierda 
47
              PosicionY = ((nY * nFila) – nY) +  nMargensuperior
48
 
49
            'EN LA SIGUIENTE LÍNEA, EL 10 ES EL GROSOR DE LAS BARRITAS, EL 200 ES LA ALTURA (EN PIXELS) DEL CÓDIGO DE BARRAS
50
              Codigo39 PosicionX, PosicionY, 10, 200, cArticulo, True,, cDescrip                   
51
 
52
              nColumna = nColumna + 1
53
 
54
            'EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS COLUMNAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 4)
55
              if nColumna > 4 Then
56
                 nColumna = 1
57
                 nFila = nFila + 1 
58
              end if             
59
 
60
              if i = rstProds(“Etiquetas”) Then
61
                 Exit For
62
              end if
63
 
64
            'EN EL SIGUIENTE BLOQUE ESPECIFICAMOS CUÁNTAS FILAS VA A TENER LA HOJA TAMAÑO CARTA (EN ESTE CASO, 20)
65
              if nFila > 20 Then
66
                 nFila = 1
67
                 PaginaNueva
68
 
69
              end if
70
          Next
71
          rstProds.MoveNext
72
    Wend
73
    FinDocumento
74
End Sub
75


Y listo!!!
ya tenemos nuestro formato totalmente funcional para imprimir.
Cabe aclarar que el rendimiento de una impresora láser es menor a comparación de una impresora especial para etiquetas, ya que la primera no está totalmente diseñada para este fin.

Espero sus comentarios y dudas.

Dejar un comentario?

44 Comentarios.

  1. Me podrias decir Cuanto $eria.
    y a donde te lo deposito?

  2. Hola buenas tardes.
    Me pudieras ayudar en estre codigo pero para que la descripcion me la imprima en dos lineas y el precio me lo imprima en una fuenta mas grande.
    De antemano gracias por tu ayuda.

    • Buenas tardes.
      El ajuste que usted requiere tiene un pequeño costo. No lo puedo hacer de manera gratuita. El Blog es independiente del equipo de desarrollo. de MyBusiness POS

      Saludos Cordiales

  3. hola, estoy trabajando con my business 2011, quiero hacer etiquetas para codigos de barra.
    estoy utilizando formato code39 y mi impresora es laser como le tengo que hacer para seleccionar la etiquetas e imprimir.

  4. hola, estoy tratando de instalar el mybusiness2010 que descargue directamente de la pagina, en windows 7 de 64 bits, pero durante el proceso de instalacion de las herramientas de sql marca un error y no se instala bien el programa, como le tengo que hacer
    tsudsh@gmail.com

  5. Me podrías explicar porque en mercado libre hay una gran diferencia en el costo desde 100 pesos, hasta 1000 y fracción. Ellos dicen que por ser versión digital pero quisiera estar seguro de a quien comprar

    Gracias

    ferrerguera@gmail.com

  6. Roberto, las bases de datos de prueba que están en el sitio de MyBusiness POS son sólo para la versión delta o 2006. No son compatibles con la versión 2011 por que aquí se usa servidor SQL Server y en delta MySQL aunque existe un importador de datos.

    Carlos, en MyBusiness POS 2010 y 2011 se puede cobrar con tarjeta y hacer recargas telefonicas de las 4 compañias en México. Tienes que registrarte con el proveedor de este servicio: punto clave; en cuanto a lo del concentrador No se puede hacer transferencia de tienda a tienda. soporte@tectronic.com.mx

  7. Saludos. Existe alguna manera de cobrar con tarjeta como en los oxxo´s y vender tiempo aire?? En cuanto a lo de la bascula yo tengo mucho software desarrollado que puedo compartir.
    FINALMENTE ALGUIEN SABE COMO HACER TRANSFERENCIA DE TIENDA A TIENDA Y NO SOLO DE CONCENTRADOR A TIENDA??

    charlesmaldo@hotmail.com

  8. Que tal, instale el demo de MyB 2011 para probarlo y baje una de la base de datos de prueba que esta en la pagina y en las instrucciones dice que debo de descomprimirla en c:\mysql\data, pero no tengo esa carpeta, esta una que se llama MyBusinessDatabase y ya la descomprimi ahi y me marco error al querer enlazarme a ella, espero que me puedas ayudar con mi problema, Gracias. Mi correo es beto_xp@hotmail.com

  9. HOLA BUEN DIA,, HE LEIDO TU BLOG Y TE FELICITO SE VE QUE TIENES UN GRAN CONOCIMIENTO ES ESTE SISTEMA.

    TENGO UN PROBLEMA MI VERSION ES MY BUSINESSPOS 2010, ESTABA TRABAJANDO BIEN, PERO AHORA EN EL PUNTO DE VENTA AL SELECCIONAR UN PRODUCTO ME ARROJA UN MENSAJE DE ERROR DICE QUE NO SE PUEDE FINALIZAR LA TRANSACCION DE DATOS. VIOLATION OF PRIMARY KEY CONSTRAINT 'PK _PARTVTA'. CANNOT INSERT DUPLICATE KEY IN OBJECT 'DBO.PARTVTA'. ERROR NUMERO 2627,, ESPERO PUEDAS AYUDARME, DE ANTEMANO MUCHAS GRACIAS. mi correo es cisabel8@hotmail.com

Deje un comentario


tres × 6 =

NOTA - Puede usar estosHTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>