Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Una fuente apropiada para alinear números en el ticket es la Courier New
Para alinear a la derecha un texto o un número existe la función PadL con esta sintaxis:
PadL (número, cantidad_espacios, relleno)
cDescrip = PadL( Mid( rstPartidas(“Descrip”), 1, 15 ), 15 )
Puede descargar de helpmybusinesspos.info el formato “ticket reducido” y por lo que identifico solo sería necesario quitar a algunas partes el texto que hace los saltos de línea :
& cLineaNueva
Para colocar la línea punteada, identifique la línea sonde dice
cSalida = cSalida & "CANT. DESCRIP. P.U. TOTAL" & cLineaNueva
Y le colocamos este código
cSalida = cSalida & "---------------------------" & cLineaNueva
cSalida = cSalida & "CANT. DESCRIP. P.U. TOTAL" & cLineaNueva
cSalida = cSalida & "---------------------------" & cLineaNueva
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
'
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á
'
Con conocimientos básicos de programación podemos colocar el texto que necesitemos en el encabezado del ticket, todo directo desde la edición del código de Ticket.
