Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Si necesitas contar el dinero antes de hacer el corte, dejamos este formato
La ruta donde encontramos el formato de ticket dentro del business manager es: Configuración–Presonalización–Formatos del sistema–Ticket USB
Trataremos de identificar la línea que dice IniciaDocumento y debajo de esta podemos colocar el logo
IniciaDocumento 'tratamos de identificar esta línea, indica el inicio de la impresión
'Ruta del logo: C:\archivos de programa\MyBusiness POS 2012\images\logo.jpg
'El logo debe tener extensión logo.jpg
' Los valores Col(0), Row(0), Col(3),Row(4) son las coordenadas inicio y el tamaño
Picture Ambiente.path & "\Images\logo.jpg", Col(0), Row(0), Col(3),Row(4)
'EstableceImpresora "Mi Impresora laser" 'esta linea permite elegir impresora USB destino
EstableceFuente "Courier New", 8 'Fuente que tendra el ticket USB
Say 0,0.2, cSalida 'Alineación del texto, en pulgadas. cSalida es el texto a imprimir
FinDocumento 'Termina la Impresión USB
'
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
'
Este módulo es desarrollado a la medida.
Si consideras adquirirlo, envía un whatsapp
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á
'
