En este video se muestra cómo usar el módulo para farmacias.
https://youtu.be/dEziT83IoM
Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Detener el servicio SQL Server
a) Verificar que se tenga cerrado Mybusiness.
b) Dirigirse al Icono de Inicio de Windows y seleccionar en la Carpeta de Microsoft SQL Server 2005/Herramientas de Configuración/Administrador de Configuración
c) Le aparecerá una pantalla donde debe seleccionar Servicios de Sql Server 20xx
Los servicios de SQLSERVER 20xx se encuentran con un triangulo verde y están activados, debe seleccionar cada uno y dar un click con el botón derecho del mouse y elegir la opción de Detener. Se va a dar cuenta de que están detenidos cuando se encuentren en color rojo
Lo anterior muestra que los servicios están detenidos, y ahora es posible realizar una copia de sus respaldos de su Base de Datos.
Generar un respaldo de su Base de Datos.
Elija la carpeta “MyBusinessDatabase” ubicada en la unidad C. Esta capeta contiene la base de datos de MyBusiness POS.
Posteriormente debe copiar los dos archivos que tienen el nombre de: MyBusinessPos20xx.mdf MyBusinessPos20xx_log.ldf
O bien el nombre que usted le asignó a su base de datos. Y pegarlos en una memoria USB.
No olvide inicializar los servicios de SQLServer nuevamente en ese equipo.
Se dirige al equipo donde va a cargar ese respaldo, y realiza lo siguiente:
1.- Detener los servicios de SQLSERVER.
2.- Abrir la carpeta de MyBusiness, que se encuentra en C:/MyBusinessDataBase
3.- Pegar su base de datos en la carpeta anterior
4.- Inicializar los servicios de SQLSERVER 20xx
.
Debido a la necesidad de respaldar y a la flexibilidad para la creación de múltiples empresas, les dejo este formulario. Espero sea de utilidad.
La impresora Zebra que se conecta por cable USB se comporta de forma similar a cualquier otra impresora de tickets y puede programarse como tal; por ejemplo, vemos que tiene las funciones IniciaDocumento y FinDocumento.
Sub Main()
Dim rstProds
Dim n
Set rstProds = CreaRecordSet( _
“SELECT * FROM prods WHERE etiquetas > 0”,_
Ambiente.Connection )
While Not rstProds.EOF
For n = 1 To rstProds(“etiquetas”)
ImprimeEtiqueta rstProds
Next
rstProds.MoveNext
Wend
End Sub
Sub ImprimeEtiqueta( rstProds )
‘EstableceImpresora “ZDesigner LP 2844”
IniciaDocumento
EstableceFuente “C39HrP24DhTt”,35
Say 5.25, 3.53, “*” & Trim(rstProds(“articulo”)) & “*”
EstableceFuente “Times New Roman”, 9
Say 5.1, 3.53, “$ ” & PadL(Formato( rstProds(“precio1”), Ambiente.FDinero ),6)
‘Trim(rstProds(“Descrip”))
FinDocumento
End Sub