José Félix 2

Publicado el 9 noviembre, 20119 octubre, 2012 por José Félix 2 — 6 comentarios

Formato de Tickets

' Mybusiness POS v. 2011 Sub Main() Dim rstSeries


    'Ambiente.Torreta.PortOpen = False

    'Ambiente.Torreta.Settings = "9600,N,8,1"

    'Ambiente.Torreta.RTSEnable = True

    'Ambiente.Torreta.PortOpen = True

    'Ambiente.Torreta.CommPort = 1

    'Ambiente.Torreta.OutPut = "ABC"

    'Eventos

    'Ambiente.Torreta.PortOpen = False
    'cLineaNueva = Chr(13)

    cLineaNueva = Chr(13) & Chr(10)                 
    'If MsgBox( "Desea imprimir el ticket", vbQuestion + vbYesNo + vbDefaultButton2 ) = vbNo Then   '  en caso de que la impresión sea opcional, descomentamos las Tres líneas, quitando el apostrofe.

    '   Exit Sub

    'End If
    ' Creamos el recordSet del encabezado de la venta

    Set rstEncabezado = Rst("SELECT * FROM ventas WHERE venta = " & prn.Documento, Ambiente.Connection )
    ' Verificamos que la venta que se desea imprimir exista

    if rstEncabezado.EOF Then

       MsgBox "No existe la venta seleccionada",vbInformation

       Exit Sub

    end if 
    ' Creamos el recordSet de las partidas que componen la venta

    Set rstPartidas = Rst("SELECT partvta.prcantidad, partvta.iespecial, partvta.id_salida, partvta.kit, partvta.articulo, prods.precio1,prods.descrip, partvta.precio, partvta.cantidad, partvta.descuento, partvta.impuesto, partvta.preciobase, partvta.prdescrip, prods.serie FROM partvta INNER JOIN prods ON prods.articulo = partvta.articulo WHERE venta =" & rstEncabezado.fields("Venta"), Ambiente.Connection )
    ' Traemos todos los datos del cliente

    Set rstCliente = Rst("SELECT * FROM clients WHERE cliente = '" & rstEncabezado.fields("Cliente") & "'", Ambiente.Connection )
    ' Traemos los datos de cobranza si es que existe

    Set rstCobranza = Rst( "SELECT * FROM cobranza WHERE venta = " & rstEncabezado("venta"), Ambiente.Connection )
    cSalida = ""
    'Esto abre el cajon de dinero

    if Ambiente.rstEstacion("Cajon") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(20) & Chr(20)

       cSalida = cSalida & Chr(7)

       ' Sansung de inyección

       ' cSalida = cSalida & Chr(27) & Chr(112) & Chr(48) & Chr(49)

    end if
    Set rstTextTicket = CreaRecordSet( "SELECT * FROM tickettext", Ambiente.Connection )
    If rstTextTicket.EOF Then

       cSalida = cSalida & "" & Ambiente.Empresa & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Direccion1 ) & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Direccion2 ) & cLineaNueva

       cSalida = cSalida & "" & Trim( Ambiente.Telefonos ) & cLineaNueva

    Else

       'cSalida = cSalida & Replace(rstTextTicket("textheader"), Chr(10), "" )

       cSalida = cSalida & rstTextTicket("textheader")

    End If
    'cSalida = cSalida & "" & Trim( rstEncabezado("Usuario") ) & " " & Trim( Ambiente.Estacion ) & " Ticket: " & rstEncabezado("No_referen") & cLineaNueva

    cSalida = cSalida & Trim( rstEncabezado("caja") ) & " " & Trim( rstEncabezado("Usuario") ) & " Ticket: " & rstEncabezado("No_referen") & cLineaNueva
    cSalida = cSalida & Formato( rstEncabezado("f_emision"),"dd-MM-yyyy" ) & " Hora: " & rstEncabezado("usuHora") & cLineaNueva
    cDatos = "" & rstEncabezado("datos")
    If clAt( ":", Trim(cDatos) ) = 1 Then

      cSalida = cDatos & cLineaNueva

    Else

      cSalida = cSalida & Trim( rstCliente("cliente") ) & " " & Trim( rstCliente("Nombre") ) & cLineaNueva

      cSalida = cSalida & Trim( rstCliente("calle") ) & " " & Trim( rstCliente("colonia") ) & Chr(13) & Chr(10)

   End If
    cSalida = cSalida & Ambiente.rstEstacion("leyendacomodin") & " " & rstEncabezado("comodin") & cLineaNueva

    'cSalida = cSalida & "Vendedor: " & rstEncabezado("Vend") & cLineaNueva

    'msgbox Ambiente.Var9

    'cSalida = cSalida & Ambiente.Var9 & vbCrLf

    'Ambiente.Var9 = ""
    cSalida = cSalida & "CANT. DESCRIPCION   CODIGO    SUBTOTAL" & cLineaNueva
    nImporteTotal = 0

    nImpuesto = 0

    nCantidadTotal = 0

    nDescuentoTotal = 0

    nImporteOrigen = 0
    'PrintText cSalida
    While Not rstPartidas.EOF 
          nPrecio = rstPartidas("Precio") * ( 1 - (rstPartidas("Descuento")/100) ) * (1 + ( rstPartidas("impuesto") / 100 ) )

          nPrecioBase = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 ) ), 2)

          nDescuento = (nPrecioBase - nPrecio) * rstPartidas("Cantidad")
          If nPrecioBase > 0 Then

             nDescPor = ( nPrecio / nPrecioBase ) * 100

          Else

             nDescPor = 0

          End If 
          nDescuentoTotal = nDescuentoTotal + nDescuento

          nImporte = nPrecio * rstPartidas("Cantidad")
          nCantidad = PadL(Formato( rstPartidas("cantidad") / rstPartidas("prCantidad"), "##,##0" ),3)
          cDescrip  = PadR( Mid( rstPartidas("Descrip"), 1, 30 ), 30 )

          nCantidadTotal = nCantidadTotal + ( rstPartidas("cantidad") / rstPartidas("prcantidad") )
          nImporteTotal = nImporteTotal + nImporte

          nImpuesto = nImpuesto + ( nImporteTotal * ( rstPartidas("impuesto") / 100 ) )          
          nPrecio = 0

          nIEspecial = rstPartidas("Precio") * (Val2(rstPartidas("iespecial")) / 100)

          nIVa = rstPartidas("Precio") * (rstPartidas("impuesto") / 100)

          nPrecio = rstPartidas("Precio") + nIEspecial + nIVa
          cPrecio = PadL(Trim(Formato( nPrecio,  Ambiente.FDinero )),8)

          cImporte = PadL(Trim(Formato( Round( nPrecio, 2) * rstPartidas("cantidad") * (1 - (rstPartidas("descuento") / 100)), Ambiente.FDinero )),8)

          nPrecioOrigen = Round( rstPartidas("PrecioBase") * (1 + ( rstPartidas("impuesto") / 100 )),2) * rstPartidas("cantidad")

          nImporteOrigen = nImporteOrigen + nPrecioOrigen
          strSalida = PadL(Formato( nCantidad, "##,##0" ),2) & " " & Trim( rstPartidas("prdescrip") ) & " " & cDescrip & vbCrLf & " P/Pza. " & cPrecio & "    " & rstPartidas("articulo") & "  " & cImporte 
          'If rstPartidas("Precio1") > rstPartidas("Precio") Then

          '   nDescuentoPartida = ( rstPartidas("Precio1") - rstPartidas("Precio") ) * nCantidad

          '   strSalida = strSalida & " Descuento: " & Formato( nDescuentoPartida, "##,##0.00" ) & vbCrLf

          'End If
          cSalida = cSalida & strSalida & cLineaNueva
          'If Not clEmpty( cNull( rstPartidas("prdescrip") ) ) Then

          '   cSalida = cSalida & Trim( rstPartidas("prdescrip") ) & vbCrLf

          'End If            
          If rstPartidas("Kit") <> 0 Then

             Set rstOpciones = CreaRecordSet( "SELECT partvtaopciones.articulo, prods.descrip FROM partvtaopciones INNER JOIN prods ON partvtaopciones.articulo = prods.articulo WHERE id_salida = " & rstPartidas("id_salida"), Ambiente.Connection )
             While Not rstOpciones.EOF

                   cSalida = cSalida & "Opcion:" & rstOpciones("descrip") & Chr(13) & Chr(10)

                  rstOpciones.MoveNext

             Wend

          End If
          If rstPartidas("serie") <> 0 Then                                                      
             If rstEncabezado("ticket") <> 0 Then

                Set rstSeries = CreaRecordSet( _

                "SELECT * FROM series WHERE documento = 'TICKET' AND numeroDocumento = " & rstEncabezado( "no_referen" ) & " AND articulo = '" & rstPartidas("articulo") & "'", _

                Ambiente.Connection )

             Else

                Set rstSeries = CreaRecordSet( _

                "SELECT * FROM series WHERE documento = 'REMISION' AND numeroDocumento = " & rstEncabezado( "no_referen" ) & " AND articulo = '" & rstPartidas("articulo") & "'", _

                Ambiente.Connection )

             End If
             While Not rstSeries.EOF 
                   Serie = Trim( rstSeries("serie") )

                   Serie = PadL( Serie, 11 )

                   Serie = Mid( Serie, Len( Serie ) - 10 )
                   cSalida = cSalida & "SERIE: " & Serie & vbCrLf

                   rstSeries.MoveNext

             Wend
          End If       
          rstPartidas.MoveNext
    Wend
    'PrintText cSalida
    cSalida = cSalida & cLineaNueva

    cSalida = cSalida & cLineaNueva    
    'cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("importe")), Ambiente.FDinero ),10) & cLineaNueva

    'cSalida = cSalida & "        Impuesto:            " & PadL(Formato( Val2(rstEncabezado("impuesto")), Ambiente.FDinero ),10) & cLineaNueva
    'if Val2(rstEncabezado("iespecial")) > 0 Then

    '   cSalida = cSalida & "     Impuesto 2%:            " & PadL(Formato( Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & cLineaNueva

    'end if
    if nDescuentoTotal > 0 Then

       'cSalida = cSalida & "         Importe:            " & PadL(Formato( nImporteOrigen, Ambiente.FDinero ),10) & cLineaNueva

       'cSalida = cSalida & "       Descuento:            " & PadL(Formato( nDescuentoTotal, Ambiente.FDinero ),10) & cLineaNueva

    end if
    'cSalida = cSalida & "         Importe:            " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), Ambiente.FDinero ),10) & cLineaNueva

    'cSalida = cSalida & "        Redondeo:            " & PadL(Formato( Val2(rstEncabezado("Redondeo")), Ambiente.FDinero ),10) & cLineaNueva

    cSalida = cSalida & cLineaNueva

    cSalida = cSalida & PadL(Formato( nCantidadTotal, "###,###" ),4) & "  ----- TOTALES ----     " & PadL(Formato( (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))), "$" & Ambiente.FDinero ),10) & cLineaNueva     
    nPagoTotal = Val2(rstEncabezado("Pago1")) + Val2(rstEncabezado("Pago2")) + Val2(rstEncabezado("Pago3"))
    if rstEncabezado("Pago1") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto1") & " " & PadL(Formato( Val2(rstEncabezado("Pago1")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if 
    if rstEncabezado("Pago2") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto2") & " " & PadL(Formato( Val2(rstEncabezado("Pago2")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if
    if rstEncabezado("Pago3") > 0 Then

       cSalida = cSalida & "                  Pago en " & rstEncabezado("Concepto3") & " " & PadL(Formato( Val2(rstEncabezado("Pago3")), "$" & Ambiente.FDinero ),9) & cLineaNueva

    end if
    Eventos
    If rstEncabezado("Comision") > 0 Then

       cSalida = cSalida & "        Comisión:            " & PadL(Formato( Val2(rstEncabezado("comision")), "$" & Ambiente.FDinero ),10) & cLineaNueva

    End If
    nComision = rstEncabezado("comision")
    if nPagoTotal < (Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("redondeo"))) Then
       cSalida = cSalida & "                     Credito: " & PadL(Formato( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("iespecial")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("redondeo")) - nPagoTotal, "$" & Ambiente.FDinero ),9) & cLineaNueva     
    else
       cSalida = cSalida & "                      Cambio: " & PadL(Formato( nPagoTotal - nComision - Val2(rstEncabezado("impuesto")) - Val2(rstEncabezado("iespecial")) - Val2(rstEncabezado("importe")) - Val2(rstEncabezado("redondeo")), "$" & Ambiente.FDinero ),9) & cLineaNueva     
    end if

    Set rstMoneda = CreaRecordSet( "SELECT * FROM monedas WHERE moneda = '" & Ucase(Trim(rstEncabezado("moneda"))) & "'", Ambiente.Connection )


    cSalida = cSalida & cLineaNueva
    cSalida = cSalida & cLineaNueva
    cSalida = cSalida & Letra( Round( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), 2 ), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & cLineaNueva

    If rstTextTicket.EOF Then
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
  
       cSalida = cSalida & "***** GRACIAS POR SU COMPRA *****" & cLineaNueva
       cSalida = cSalida &  cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva
       cSalida = cSalida & cLineaNueva    
       cSalida = cSalida & cLineaNueva    

    Else
       cSalida = cSalida & rstTextTicket("textend")
    End If
    
    ' Esto manda un corte de papel
                                          
    if Ambiente.rstEstacion("ticketcorte") <> 0 Then

       cSalida = cSalida & Chr(27) & Chr(105)

    end if
    'EstableceImpresora "EPSON TM-U220D Receipt"

    'IniciaDocumento

    'EstableceFuente "Courier New",7.5

    'Say 0,0, cSalida

    'FinDocumento

    'Exit Sub
    If Ambiente.Tag = "HTML" Then
       Ambiente.Tag = ""
       cSalida = Replace( cSalida, cLineaNueva, "
" )

       cSalida = "
" & cSalida & ""

       CreaHtml "", (cSalida)
    Else

       'MsgBox cSalida

       Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla

'       Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla   '  si queremos que se imprima dos veces, descomentamos esta linea, solo quitamos el apostrofe al inicio

    End If            
End Sub

Publicado el 1 noviembre, 20111 noviembre, 2012 por José Félix 2 — Dejar un comentario

Código Zebra 2844 y MyBusiness POS 2011

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

' El siguiente procedimiento imprime las etiquetas de cada uno de los articulos Public Sub Main ()


    Set rstPartidas = CreaRecordSet( "SELECT articulo, descrip, etiquetas, precio1, precio2, precio10 FROM prods WHERE etiquetas > 0", Ambiente.Connection )
    While Not rstPartidas.EOF
          For i = 1 to rstPartidas("etiquetas")

              ImprimeEtiqueta "LPT1", rstPartidas("articulo"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )

          Next
          rstPartidas.MoveNext 
    Wend
    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 )
    While Not rstPartidas.EOF
          For i = 1 to rstPartidas("etiquetas")

              ImprimeEtiqueta "LPT1", rstPartidas("clave"), "",rstPartidas("descrip") , Formato(rstPartidas("precio1"), "##,##0.00" ), Formato(rstPartidas("precio2"), "##,##0.00" ), Formato(rstPartidas("precio10"), "##,##0.00" )

          Next
          rstPartidas.MoveNext 
    Wend
End sub
Public Sub ImprimeEtiqueta( cPuerto, cArticulo, cDato1, cDescrip, cPrecioDeLista, cMayoreo, cSugerido )
cPuerto = Trim( cPuerto )

cArticulo = Trim( cArticulo )

cDescrip = Trim( cDescrip )

cDato1 = Trim( cDato1 )
cSalida = ""
' Aqui se puede modificar la etiqueta utiliza un lenguaje llamado EPL2 le adjunto manual del

' lenguaje, tambien si tienen la información del formato de la etiqueta y quieren que la

' diseñe por favor mandemelo

' Aqui se muestran los comandos basicos

' El comando N inicia la etiqueta

' El comando A muestra un dato de texto en donde el 250 es la posición en el eje de las X

' y el 15 la posición en el eje de las Y

' El comando B muestra el código de barras donde 250 es la posición en el eje de las X y 45

' Es la posición de inicio del eje de las Y

' El comando P Finaliza la etiqueta y el nunero 1 indica cuantas etiquetas se van a imprimir
cSalida = cSalida & "N" & Chr(13) & Chr(10)

cSalida = cSalida & "A250,15,0,1,1,1,N," & Chr(34) & Formato( Date, "dd-MM-yyyy" ) & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "A250,30,0,2,1,1,N," & Chr(34) & Mid( cDescrip,1, 30)& Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "B250,70,0,1,2,6,80,B," & Chr(34) & cArticulo & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "A380,155,0,4,1,1,N," & Chr(34) & "PRECIO $" & cPrecioDeLista & Chr(34) & Chr(13) & Chr(10)

'cSalida = cSalida & "A250,95,0,2,1,1,N," & Chr(34) & cMayoreo & Chr(34) & Chr(13) & Chr(10)

cSalida = cSalida & "P1" & Chr(13) & Chr(10)
if Ambiente.rstEstacion("ietiquetas") <> 0 Then

   if clAt( "LPT", Ambiente.rstEstacion("ietiquetaspuerto") ) > 0 Then

      Out Trim(Ambiente.rstEstacion("ietiquetaspuerto")), cSalida

   else

      if Ambiente.ImpresoraDeEtiquetas.PortOpen Then

         Ambiente.ImpresoraDeEtiquetas.Output = cSalida

      end if

   end if

end if                                     
Dormir 100

Eventos

End Sub

Publicado el 25 agosto, 201113 septiembre, 2011 por José Félix 2 — 6 comentarios

Double Entry v2012 | MyBusiness POS 2012

Desde hace dos meses, aproximadamente. se ha estado promocionando el nuevo software Contable Double Entry V2012 de MyBusiness POS. Realmente solo conozco lo básico de contabilidad, sin embargo vamos a evaluar este software para conocer la bondades (o dificultades) que se presentan.

Simplemente recordemos que no ha sido muy bien recibido el módulo de MyMoney, esperemos que este producto que ofrece MyBusiness POS sea una solución real y rentable para los negocios.

Estaremos en contacto.

Publicado el 1 junio, 201123 mayo, 2018 por José Félix 2 — Dejar un comentario

Resultados de MyBusiness POS 2012: Román Rosales

Factura Electrónica CFDI 3.3 2012 Facturador

1 archivo(s) 13.16 MB

Descarga

Factura Electrónica CFDI 3.3 2011 Facturador

20.29 MB 1339 descargas

Factura Electrónica CFDI 2010

20.28 MB 478 descargas

La siguiente entrevista está tomada de la publicación del Boletín de la Computación, la cual me he tomado el atrevimiento de postearla porque considero que es importante conocer y saber cómo es que el equipo de desarrolladores de MyBusiness POS visualizan el éxito o fracaso de el software; el cual tiene repercusiones directas en todos los Distribuidores que hemos batallado bastante para hacer frente a los retos que tenemos con el usuario final, que es el cliente.
La entrevista fue tomada de este link
www.boletin.com.mx, consultado el día 2011-05-01.

“Distribuidores cristalizan oportunidades durante Congreso MyBusiness POS 2011 en Cancún”
Fecha de publicación 24/05/2011
Por Erik Sierrra

En el marco de la cuarta edición del Congreso MyBusiness POS llevado a cabo en Cancún del 19 al 22 de Mayo de 2011, Román Rosales, Director Comercial de la marca compartió en entrevista exclusiva con Boletín de la Computación los alcances que el evento tuvo en comparación con las ediciones anteriores y el impacto generado en los distribuidores asistentes.

“Este año -comentó el ejecutivo- superamos nuestras expectativas pues pudimos compartir con los distribuidores un balance renovado en cuanto a generación de negocios y entretenimiento. Los canales pudieron establecer un contacto directo con algunos de los fabricantes más importantes de la Industria TI en el segmento de Código de Barras y Punto de Venta y disfrutar con sus familias de actividades recreativas como espectáculos de música y teatro. Los resultados del Congreso MyBusiness POS 2011 en Cancún han sido muy satisfactorios pues nuestros socios han establecido muchos vínculos nuevos de negocio al tiempo que disfrutan de su estancia en las playas del Caribe.”

Por otro lado, Rosales comentó que el Congreso es un parteaguas en el mercado de Punto de Venta pues al término del mismo las ventas de los canales incrementan de manera considerable: “Durante el evento los distribuidores captan nuevas oportunidades de negocios que se cristalizan de manera efectiva debido a que las conferencias les brindan las herramientas que requieren para cerrar sus proyectos pendientes y generar otros nuevos.”

En cuanto a las innovaciones que la marca lanza al mercado, el ejecutivo comentó que el evento es la plataforma ideal para presentar productos de vanguardia como el nuevo MyBusiness POS Double Entry y el nuevo MyBusiness POS 2012: “Con estos lanzamientos, los distribuidores podrán llevar una oferta de valor para las empresas, pues el nuevo sistema contable Double Entry hace interfaz con cualquier sistema de administración empresarial, además de que podrán ofrecer un nuevo sistema de facturación electrónica que emite tickets con código bidimensional, puede generar comprobantes fiscales digitales y convierte a MyBusiness en un mayorista de timbrado a través de MyBusiness Online, un sistema efectivo de prepago para que los distribuidores puedan obtener ganancias en la oferta de timbres fiscales digitales”.

Entre otras soluciones presentadas por la marca durante el Congreso, Rosales subrayó el lanzamiento de productos como Concentrador POS 2012 compatible con sistemas MyBusiness POS 2010 y superiores, Mobile Business 2012 con software para impresoras portátiles de 2.5 y 3 pulgadas, el sistema MyMoney 2012 que cuenta con control de cuentas bancarias y conciliación, impresión de cheques, pagos programados, catálogos de movimientos y conceptos bancarios y control de acceso a usuarios.

Además de estas soluciones, el ejecutivo mencionó que la marca está formando alianzas con socios tecnológicos como Microsoft, Ycaro, Citizen, Bixolon, Honeywell, Unitech, Datalogic, Motorola, HP, BTO, Logic Controls, Star Micronics, Elo TouchSystems, EC Line y Datamax-O’Neil, por mencionar algunas: “También unimos fuerzas con empresas como CT Internacional, BlueStar, Compugolfo, Azerty, Nimax y Tec Electrónica, quienes son algunos de nuestros socios mayoristas dedicados al mercado de Punto de Venta y que están comprometidos con impulsar el desarrollo de los canales de distribución en nuestro país”.

Rosales aseguró que uno de los objetivos de MyBusiness POS es superar año con año las expectativas para el Congreso: “Para la próxima edición nos hemos fijado como meta aumentar el número de inscripciones y de marcas patrocinadoras pues nuestro compromiso es contribuir con el crecimiento y desarrollo de los distribuidores ofreciéndoles la tecnología de mayor vanguardia para que puedan aprovechar nuevas oportunidades de negocios”.

Por último, el ejecutivo invitó a los distribuidores a estar pendientes e inscribirse en la próxima edición de uno de los eventos de Punto de Venta y Código de Barras más importantes de Latinoamérica: “Es muy importante que los distribuidores que quieran aprovechar verdaderas oportunidades de negocios anticipen su participación en el Congreso MyBusiness POS, pues es la plataforma ideal para encontrarse de frente con las marcas más importantes del mercado de Punto de Venta y Código de Barras de la Industria TI en nuestro país y generar nuevas sinergias comerciales para cerrar con éxito negocios rentables y de largo plazo.”

Publicado el 23 mayo, 20119 octubre, 2012 por José Félix 2 — 2 comentarios

Facturación CBB (Código Bidimensional)

Factura BIDIMENSIONAL CBB 2011

1 archivo(s) 136.00 KB

Descarga

Durante estos días estado revisando la posibilidad de tener una factura desde MyBusiness POS (2006 o 2011) con código Bidimensional y sin necesidad de agregar librerías, debido a que estas en muchas ocasiones no son compatibles con las versiones; y en otros casos, solo consumen muchos recursos con sus Net Frameworks. es por tal razón que he desarrollado el formato para que puedan imprimir todas sus facturas desde la versión 2006 de una manera transparente y tan fácil como se ha estado llevando a cabo hasta antes de que iniciara este año.

Aqui les dejo un link que muestra cómo se vería la Factura con código Bidimensional:

MyBusinesspPOS CBB

[gview file=”http://helpmybusinesspos.info/wp-content/Imagenes/MyBusinessPOS_Factura_CBB.pdf” save=”1″]

Espero les convenza y veamos el verdadero potencial que sigue teniendo la versión 2006 de MyBusiness POS sobre cualquier otra versión.

Autor: José Félix 2

Formato de Tickets

Código Zebra 2844 y MyBusiness POS 2011

Double Entry v2012 | MyBusiness POS 2012

MyBusiness POS 2012, Gratis

Resultados de MyBusiness POS 2012: Román Rosales

Factura Electrónica CFDI 3.3 2012 Facturador

Factura Electrónica CFDI 3.3 2011 Facturador

Factura Electrónica CFDI 2010

Facturación CBB (Código Bidimensional)

Factura BIDIMENSIONAL CBB 2011

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp:

Te atendemos 24/7 vía WhatsApp: