Publicado el 5 comentarios

Funciones para impresión de Ticket

Existen varias formas imprimir un ticket de venta tanto en pantalla como en la miniptinter.
El formato de ticket se encuentra en la ruta del business manager: configuración–personalizacion–formatos del sistema–TICKET. Abrir el código con doble clic e ir al final de este hasta identificar esta línea que se refiere a la impresión; ahí es posible aplicar diferentes opciones de impresión:

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

Si queremos imprimir en USB, colocar:

'Código para impresora conectada por cable USB
'o para la impresora predeterminada de Windows).
IniciaDocumento
' EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'Exit Sub
'Exit Sub es por si deseamos que termine el proceso y saltar las lineas de código que le preceden
'

Si deseamos imprimir en impresora conectada por cable LPT:

'Función para impresora conectada por cable LPT
'Impresión de ticket, corteX y CorteZ _
Enviamos a la impresorade tickets que está configurada en ESTACION01
Script.sendToPrinter Ambiente, (cSalida), prn.Pantalla 'cSalida es el texto que se imprimirá
'

Si deseamos ver el texto del ticket en una ventana emergente:

MsgBox ("" & cSalida) 'cSalida es el texto que se visualizará
'

Una segunda opción para visualizar el el texto del ticket en una ventana emergente.

Mymessage "" & cSalida 'cSalida es el texto que se visualizará
'

Publicado el 2 comentarios

Cómo detener SQL SERVER para hacer respaldos

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
.

Publicado el 7 comentarios

Ticket reducido con impuesto especial

Descarga el formato de ticket tanto para puerto USB (impresora predeterminada desde windows) como para puerto LPT.

Este ticket tiene la característica que cada linea utiliza 32 caracteres, las descripciones de articulos son multilínea y no se truncan.

Puedes descargarlo aquí mismo.

ticket con impuesto especial (gratis)

152.00 KB 493 descargas

Publicado el Dejar un comentario

Zebra 2844 USB

zebra2844_mybusinessposLa 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

Publicado el 4 comentarios

Cómo poner imagen en ticket de MyBusiness POS



Para todos los usuarios de MyBusiness POS que no quieren que les aparezca el logo de la empresa en el ticket (en primera, ocupa más papel; en segundo lugar, si la impresora es de matriz de puntos, también se gasta la cinta de esta y la calidad no es nada agradable). los pasos son los siguientes:

1.  Una vez abierto del sistema como Administrador, en la parte del Business Manager tenemos que encontrar la siguiente ruta:

2.  Personalización + Procedimientos del Usuario

3.  Dentro de esta carpeta buscamos el procedimiento que se llama “FORMATOTEXTO”. lo abrimos para editarlo

4. En alguna parte de este pequeño archivo nos menciona algo parecido a esto:


Picture Ambiente.path & "\Images\logo.jpg".......

lo que vamos a hacer es dejar esta linea como comentario (ponemos una apóstrofo al principio de la línea) para que no aparezca la imagen y quedaría así


'Picture Ambiente.path & "\Images\logo.jpg"

5. Hacemos una prueba. Ya no aparecerá la imagen; sin embargo, aún se desperdicia la misma cantidad de papel.

6. Para reducir la cantidad de papel, el espacio que ocupaba la imagen, vamos a poner también como comentario las líneas que están dentro de la estructura “For” (nuevamente, colocando un apóstrofo en al principio de cada línea).

También es posible cambiar el Tamaño y la Fuente de los tickets (Propiedades p.Font.Name y p.Font.Size), quedando así.


p.Font.Name = "Arial" 'La recomendable es Courier New
p.Font.Size = 8

 

Guardamos los cambios y listo…Problema solucionado.