Publicado el Dejar un comentario

PUNTOV001

En ocasiones necesitamos ajustar las columnas del punto de venta o hacer algunas modificaciones que nos permitan utilizar de manera más cómoda el punto de venta.
A continuación explico un poco sobre un procedimiento que viene en MyBusiness Pos, llamado PUNTOV001. Este se encuentra dentro del business manager, en la ruta configuracion–personalizacion–procedimientos y rutinas de usuario


'Este procedimiento se ejecuta al abrir el punto de venta

Sub Main()

' Si la ventana va a aparecer maximizada
'Me.windowsMode = 0
'Titulo que aparece en la parte superior izquierda
Me.Caption = Ambiente.Empresa
'Formato con decimales
Me.formatoDeDinero = "##,##0.00"
Me.formatoDeDineroTotales = "##,##0.00"
Me.formatoDeDescuento = "##,##0"

Version2005 'llama a la función que tiene las dimensiones de algunas columnas
Me.MaxPartidas = 8 ' máximo registros que aparecen en el PV

' Limpiamos los mensajes
txtFields(3) = "" 'Libera el campo inferior izquierdo

' La variable reload si es falsa indica que la ventana del punto de venta
' todavia no realiza una venta
if Reload = False Then
Ambiente.Tag = 2
Script.RunProcess "PUNTOV053", Parent, Ambiente
end if ' invoca un procedimiento llamado puntov053

'txtFields(1) = Ambiente.Uid
fg2.Redraw = False 'desactiva el ajuste de malla
AjustaFlexGrid fg2 ' Toma las dimensiones de la malla a la pantalla
fg2.Redraw = True 'ejecuta el ajuste

' Coloca o quita la columna del impuesto
'fg2.ColWidth(5) = 1000

If Trim("" & Ambiente.rstEstacion("serieRemision")) = "" Then
Me.consecutivoRemisiones = Ambiente.Estacion & "Remision"
Else
Me.consecutivoRemisiones = Trim( "" & Ambiente.rstEstacion("serieRemision") ) & "Remision"
End If

If Trim("" & Ambiente.rstEstacion("serieTicket")) = "" Then
Me.consecutivoTickets = Ambiente.Estacion & "Ticket"
Else
Me.consecutivoTickets = Trim("" & Ambiente.rstEstacion("serieTicket")) & "Ticket"
End If
'Tpma los consecutivos de facruración
Me.serieFactura = Trim("" & Ambiente.rstEstacion("serieFactura"))
Me.serieTicket = Trim("" & Ambiente.rstEstacion("serieTicket"))
Me.serieRemision = Trim("" & Ambiente.rstEstacion("serieRemision"))

If Trim(Me.serieTicket) = "" Then
Me.serieTicket = Ambiente.Estacion
End If

If Trim(Me.serieRemision) = "" Then
Me.serieRemision = Ambiente.Estacion
End If
'Me.modeloScanner = "Scanner"
'Me.ActivaScannerOPOS

Me.usuarioRequerido = 0
fg2.ColWidth(18) = 0 'oculta la columna al dejarla en 0px de ancho

End Sub

Sub Version2005()

'Este bloque de código es el que
'permite ajustar las columnas en el punto de venta

'Me.DevolverEfectivo = True
Me.DevolverEfectivo = False

FormatoCantidad = "##,##0.000"
TimerComodin.Enabled = False
TimerComodin.Interval = 4000
TimerComodin.Enabled = True

fg2.ColWidth(6) = 5000 ' columna de descripción
fg2.ColWidth(9) = 1200 'columna de Precio de Lista (1, 2, 3, 4)

'fg2.ColWidth(1) = 1200 'Columna de Cantidad (QTY)
'fg2.ColWidth(2) = 1200 'Columna de Precio Unitario, sin incluir impuestos

'fg2.ColWidth(3) = 1200 'Columna de Descuento en Porcentaje (%)
'fg2.ColWidth(4) = 1200 'Columna de Importe

'fg2.ColWidth(5) = 1200 'Columna de Impuesto en Porcentaje (%)
'fg2.ColWidth(6) = 1200 'Columna de Descripción de Artículo

'fg2.ColWidth(7) = 1200 'Columna de Número de salida en el Kárdex
'fg2.ColWidth(8) = 1200 'Columna de Almacén del que se toma la mercancía

'columnas de presentaciones
'fg2.ColWidth(11) = 1200 'cantidad por presentación
'fg2.ColWidth(10) = 1200 'descripción de presentación

'fg2.ColWidth(12) = 1200 'Costo de producto
'fg2.ColWidth(13) = 1200 'Columna especial para viaje
'fg2.ColWidth(14) = 1200 'Columna de Impuesto especial
'fg2.ColWidth(15) = 1200 'Columna Precio Unitario, con impuesto

'fg2.ColWidth(16) = 1200 'Columna Importe total, con impuesto
'fg2.ColWidth(17) = 1200 'Columna Donativo
'fg2.ColWidth(18) = 1200 'columna para Incluir en el próximo CorteZ

End Sub
'

Publicado el 1 comentario

MyBusiness POS Gimnasio

Este módulo es desarrollado a la medida.
Si consideras adquirirlo, envía un whatsapp
mybusinesspos_gimnasio

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 Dejar un comentario

Recuperar respaldo de base de datos (.back)

SQL Management Studio 2005 (64 Bits)

37.12 MB 720 descargas

Este método solo funciona para restaurar con los archivos .back que genera MyBusiness POS de forma periódica.

Para recuperar un respaldo de MyBusiness POS 2008-2012 debemos de tener instalada la utilería SQL Management Studio, que se incluye en su disco de instalación.

Si usted ya tiene instalada esta utilería accederemos a ella asegurándonos antes de que MyBusiness POS está cerrado. Dando clic al menú “Inicio”, “Todos los Programas”, “Microsoft SQL Server 2005” y dando clic en el icono “SQL Server Management Studio”.

En la ventana de acceso, en el dato “Autenticación” seleccionaremos la opción “Autenticación de Windows” y daremos clic en el botón [Conectar].

Entramos a la pantalla principal de “SQL Server Management Studio” y de nuestro lado izquierdo veremos un árbol de directorios, uno de ellos llamado “Bases de datos”, sobre el cual daremos un clic derecho y seleccionaremos la opción “Restaurar base de datos”.

Ahora veremos una nueva ventana en la cual deberemos hacer lo siguiente:

1. En el dato “A una base de datos” (to database) seleccionaremos la base de datos de MyBusiness POS .mdf

2. Para el origen de la restauración seleccionaremos la opción “Desde dispositivo” y daremos clic en el botón con tres puntos. En la ventana que se nos muestra enseguida daremos clic en el botón [Agregar] y nos aparecerá un nueva ventana en la que seleccionaremos el archivo de respaldo que queremos restaurar.

Los respaldos se encuentran en una carpeta llamada “Respaldo”. Podemos seleccionar nuestro archivo de respaldo de esa ubicación o bien de una memoria USB o un CD si es que decidimos guardar ahí nuestros respaldos.

Para seleccionar nuestro archivo de respaldo, primero seleccionaremos la opción “Todos los archivos (*)” de la lista marcada como “Archivos de tipo”, posteriormente en el árbol de directorios de la parte superior seleccionaremos nuestro archivo dependiendo en donde lo tengamos guardado y daremos un clic en [Aceptar].

Cabe mencionar que los archivos de respaldo de MyBusiness POS se llaman MyBusiness POS 2008, 2010, 2011, 2012, y tienen una extensión “ .back” seguida de la fecha en que se realizaron.

De nuevo daremos clic en el botón [Aceptar] en la ventana donde ya agregamos el archivo, y ahora observaremos que en la ventana de “Restaurar Base de Datos” ya nos aparece nuestro respaldo listo para ser cargado, tan solo activaremos la casilla “Restaurar” y daremos un clic en el botón [Aceptar].

Observaremos de nuestro lado izquierdo un indicador verde que nos muestra el progreso en la carga de nuestro respaldo.

Una vez finalizada la carga de el respaldo nos aparecerá un mensaje indicándonos que el proceso finalizó correctamente. Ahora daremos clic en el botón [Ok], cerramos la aplicación SQL Management Studio e ingresamos a MyBusiness POS para revisar que nuestra información se haya restaurado correctamente.

Publicado el Dejar un comentario

Cómo importar una ventana o formulario (.bfr) a MyBusiness POS

Los archivos .BFR se actualizan de la siguiente manera:

1. Entramos a MyBusiness POS con una clave de “Supervisor”

2. Nos dirigimos a la barra de tareas_ Programación _Ambiente de desarrollo y damos un clic en ese icono

3. Vamos al menú Archivo, seleccionamos Abrir

4. Seleccionamos el archivo con extensión BFR y aceptamos la actualización

5. Con este proceso ya tenemos actualizado el formulario, solo damos un clic en el icono “guardar” y lo ejecutamos en MyBusiness POS en la operación normal del sistema. Para algunos formatos podemos ejecutar la prueba desde el mismo editor, solo damos clic en el ultimo icono que tiene forma de triángulo (Run)