Tenemos un desarrollo para que puedas dar de alta los artículos de forma parecida a una hoja de Excel
Alta Rápida de Artículos
Autor: jose felix
Desarrollador de módulos para el software MyBusiness POS
Corte Z por usuario
Realiza corte z por cada usuario, sin importar la estación en la que se encuentre o que estén compartendo la misma estación.
Qué báscula es mejor con Eleventa
Hoy queremos hablarles del programa Eleventa, una excelente opción para quienes buscan un sistema de punto de venta práctico, confiable y fácil de usar para su negocio.
es un sistema diseñado especialmente para tiendas, abarrotes, minisúpers, ferreterías, papelerías y muchos negocios más. Su gran ventaja es que es muy intuitivo, no necesitas ser experto en computación para utilizarlo, y te permite llevar un mejor control de tus ventas, inventarios, clientes y reportes.
Con Eleventa puedes:
✅ Registrar productos por código de barras o por nombre.
✅ Controlar inventarios en tiempo real.
✅ Llevar control de ventas por día, semana o mes.
✅ Administrar créditos a clientes.
✅ Imprimir tickets fácilmente.
✅ Conectar cajones de dinero, lectores de código y básculas.
Ahora bien, una de las preguntas más frecuentes es:
¿Qué báscula Torrey de 50 o 100 kg funciona con el sistema?
Las básculas de la marca son compatibles con Eleventa siempre que cuenten con salida serial (RS-232) o el convertidor adecuado a USB, y que estén configuradas correctamente para trabajar con el sistema. Muchos modelos de 50 kg o 100 kg funcionan sin problema, especialmente los diseñados para punto de venta o mostrador.
Sin embargo, aunque Torrey funciona bien, personalmente recomiendo la marca . ¿Por qué?
🔹 Suelen ser más accesibles en precio.
🔹 Tienen muy buena compatibilidad con sistemas de punto de venta.
🔹 Son fáciles de configurar.
🔹 Ofrecen buena durabilidad para negocios de alto movimiento.
Al final, lo más importante es verificar que la báscula tenga salida de comunicación compatible y que esté correctamente configurada dentro del sistema.
Si estás iniciando tu negocio o quieres modernizar tu tienda, Eleventa puede ser una excelente herramienta para organizarte mejor, ahorrar tiempo y tener mayor control de tus ganancias. Un buen sistema, junto con el equipo adecuado (computadora, impresora térmica, cajón y báscula compatible), puede marcar una gran diferencia en la administración diaria.
ITPW Importa datos de artículos
'----****
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----****
Public Sub Main()
ImportaProductos
End Sub
Public Sub ImportaProductos()
Ambiente.Connection.Execute "DELETE FROM prods WHERE articulo <> 'SYS'"
Ambiente.Connection.Execute "DELETE FROM clavesadd"
Set rstArticulos = CreaRecordSetEnCliente( "SELECT * FROM tpw", Ambiente.Connection )
Set Query = NewQuery()
Set Query.Connection = Ambiente.Connection
Query.ErrorOculto = True
Set Progress = NewProgress()
if rstArticulos.RecordCount > 0 Then
Progress.Anim rstArticulos.RecordCount, "Importando catálogo de artículos", Ambiente.Path & "\Images\Gears.Avi"
end if
n = 0
While Not rstArticulos.EOF
n = n + 1
Progress.Valor n, "Procesando: " & rstArticulos("articulo") & " " & rstArticulos("descrip")
Query.Reset
Query.AddField "PRODS", "articulo", rstArticulos("articulo")
Query.AddField "PRODS", "descrip", "" & rstArticulos("descrip")
Query.AddField "PRODS", "linea", rstArticulos("linea")
Query.AddField "PRODS", "costo_u", 0
Query.AddField "PRODS", "costo", 0
Query.AddField "PRODS", "precio1", 10 + ( n * 0.1 )
Query.AddField "PRODS", "precio2", 0
Query.AddField "PRODS", "marca", "SYS"
Query.AddField "PRODS", "ubicacion", "SYS"
Query.AddField "PRODS", "impuesto", "IVA"
Query.AddField "PRODS", "paraventa", 1
Query.AddField "PRODS", "invent", 1
Query.strState = "INSERT"
Query.CreateQuery
Query.Execute
rstArticulos.MoveNext
Wend
if n > 0 Then
Progress.Destroy
end if
Set Progress = NewProgress()
if rstArticulos.RecordCount > 0 Then
Progress.Anim rstArticulos.RecordCount, "Importando catálogo de artículos", Ambiente.Path & "\Images\Gears.Avi"
end if
n = 0
' Borramos las lineas existentes
Ambiente.Connection.Execute "DELETE FROM lineas WHERE linea <> 'SYS'"
Set rstLineas = CreaRecordSet( "SELECT COUNT(*) FROM lineas GROUP BY linea", Ambiente.Connection )
if rstLineas(0) > 0 Then
Progress.Anim rstLineas(0), "Importando catálogo de líneas", Ambiente.Path & "\Images\Gears.Avi"
end if
Set rstLineas = CreaRecordSet( "SELECT linea FROM prods GROUP BY linea", Ambiente.Connection )
While Not rstLineas.EOF
n = n + 1
Progress.Valor n, "Procesando: " & rstLineas("linea")
Query.Reset
Query.AddField "LINEAS", "linea", rstLineas("Linea")
Query.AddField "LINEAS", "descrip", "" & rstLineas("Linea")
Query.strState = "INSERT"
Query.CreateQuery
Query.Execute
Progress.Valor n, "Procesando: " & rstLineas("linea")
rstLineas.MoveNext
Wend
Progress.Destroy
End Sub
