Resultados de la búsqueda para: letra para tiket de farmacia del ahorro

Publicado el por — Dejar un comentario

Servicio de Soporte, el punto de vista del fabricante MyBusiness POS

image

tenemos la homologación para báscula metrology bpp40

Icono

Homologación báscula Metrology BPP40

1 archivo(s) 88.00 KB
♞Registro
♞Entrar_D
Olvidé_P

Calibracion metrology mod bpp 30

Instrucciones de calibración y programación
Bascula Modelo BPP-30
I. instrucción de calibración:
1. Abra la cubierta superior de la báscula, ubique los dos postes del conector de calibración y
coloque un puente (JUMPER) uniendo estos postes (JP1, JP2). Están ubicados en la parte frontal
al centro de la tarjeta maestra (El conector es de 3 terminales pero una es utilizada por un cable
que va al display).
2. Después de colocar el JUMPER encienda la Báscula y espere a que el conteo inicial (autodiagnóstico)
termine, entonces el display del peso mostrará “00000”, el de precio también mostrará
“00000”, mientras que en la pantalla de total se mostrara el código interno de la báscula.
3. En este punto se confirmar la capacidad máxima de la báscula a calibrar en este caso 30kg,
para hacerlo: Oprima el numero “4” y la tecla?Cambio?, entonces la capacidad de 30.000Kg.
Aparecerá en el display.
4. Coloque el los 30kg sobre el plato de la báscula, y espere a que en la pantalla de peso este
estable la lectura; En caso que el peso mostrado no coincida con el peso colocado, es necesario
ajustar la lectura para hacerlo, oprima la tecla de?Tara? si desea incrementar el valor de la
lectura y/o ?Borrar? para disminuir el valor del peso, con estos ajustes en la pantalla se debe
mostrar la capacidad exacta a la que se esta calibrando el equipo.
Después de ajustar la lectura entonces presione?Cambio? y después el numero “6”, El display de
peso mostrará “La capacidad máxima calibrada”.
5. Oprima la tecla?Cambio?y después el número “9” para salir modo de calibración, retire el
JUMPER de los postes JP1, JP2, cierre la cubierta y coloque el sello de plomo.
II Selección de la división mínima:
La báscula modelo BPP-30 puede operar con tres opciones de división mínima::
30kg ——— 5g
30kg ———-10g
30kg ———- 5g/10g,
Pasos para programar la división mínima:
Encienda la báscula y oprima al mismo tiempo las teclas ?Acum? y “8” durante el conteo inicial
(auto-evaluación), suelta las teclas al escuchar el timbre. Después de terminar el conteo inicial en las pantallas de peso y precio por unidad mostraran los valores de la división programada:
En la pantalla de precio aparecerá “d = 510”, “d = 05”, “D = 10”, cada una de ellas aparecerá
durante 3 segundos.
“d = 510”:Si selecciona esta opción la división mínima es multi-rango, es decir que en cualquier
peso por debajo de los 15 kg, la división mínima será de 5g; y para pesos superiores a 15 kg, la
división mínima será de 10g “.
“d” = 10”: La división de la báscula sin importar su capacidad será de 10g
“d” = 05”: La división de la báscula sin importar su capacidad será de 5g
Para seleccionar la división mínima oprima la tecla ?Borrar?Cuando la división que desea
aparezca en pantalla, Posteriormente el proceso de selección de división termina y podrá operarla

Fuente: https://www.yoreparo.com/es/balanzas/preguntas/1000012/calibracion-metrology-mod-bpp-30

.

Publicado el por — 4 comentarios

Alinear y Centrar el texto del ticket con PadC, PadL y PadR

Alinear_centrar_texto_mybusinessposEn este ejemplo veremos cómo alinear el texto de un ticket con las funciones

  • PadL(cadenaTexto,Longitud). Rellena de espacios a la izquierda; Alineación a la Derecha
  • PadR(cadenaTexto,Longitud). Rellena de espacios a la derecha; Alineación a la Izquierda
  • PadC(cadenaTexto,Longitud). Rellena de espacios al centro; Alineación Centrado

Icono

Alinear Texto con PadL, PadR y PadC

1 archivo(s) 88.00 KB
♞Registro
♞Entrar_D
Olvidé_P

Para lograrlo, crearemos tres funciones, aunque PadL ya viene por default, aquí la colocaremos.

Sub Main()
'La letra posterior a PAD es el lado que se rellenará de espacios
a = padL ("Frase de prueba",40) 'Relleno IZQUIERDO. Alinea a la derecha
b = PadC ("Frase de prueba",40) 'Ambos lados. Alinear al centro
c = PadR ("Frase de prueba",40) 'Relleno DERECHO. Alineación a la izquierda

mymessage "PadL: '" & a & "'" & vbcrlf & _
"PadC: '" & b & "'" & vbcrlf &_
"PadR: '" & c & "'"

End Sub

'PADL() Alineación a la DERECHA inserta los caracteres de relleno a la Izquierda
Function PadL(cadena,nLongitud)
dim clen
dim temp
dim char
char = " " 'espacio en blanco
on error resume next
'Tomamos la cadena enviada en el parámetro
'eliminando los chares vacios izq-dch
temp = trim(cadena)
clen = len(temp)
for n=1 to nLongitud
char = char & " "
Next

'Analizamos si la nLongitud justificada es menos
'que la propia cadena enviada en parámetro.
if clen < nLongitud then temp = mid(char,1,nLongitud - clen) & temp 'Alineación a la Derecha end if PadL = temp end function 'PADR() Alineación a la IZQUIERDA inserta los caracteres de relleno a la derecha Function PadR(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n=1 to nLongitud char = char & " " Next 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = temp & mid(char,1,nLongitud - clen) 'Alineación a la Izquierda end if PadR = temp end function 'PADC() Alineación al CENTRO inserta los caracteres de relleno a ambos lados Function PadC(cadena,nLongitud) dim clen dim temp char = " " 'espacio en blanco 'on error resume next 'Tomamos la cadena enviada en el parámetro 'eliminando los chares vacios izq-dch temp = trim(cadena) clen = len(temp) for n = 1 to nLongitud char = char & " " Next 'Espacios al lado Izquierdo nEspaciosA = formato((nLongitud - clen)/2 , "#.0") DondeEstaElPunto = clAt( ".", nEspaciosA ) - 1 'Espacios al lado derecho nEspaciosA = mid(nEspaciosA,1,DondeEstaElPunto) nEspaciosB = nLongitud -clen - nEspaciosA 'Analizamos si la nLongitud justificada es menos 'que la propia cadena enviada en parámetro. if clen < nLongitud then temp = mid(char,1,nEspaciosA) & _ temp & _ mid(char,1,nEspaciosB) 'Alineación a la Izquierda end if PadC = temp end function

Espero sea de utilidad estas funciones que dejo a su disposición en espera de que correspondan con un pomo para seguir inspirados.
Saludos
José Félix

Publicado el por — 1 comentario

Cómo cambiar la fuente del ticket

Icono

Editor de Tickets, impresión y ahorrar papel

1 archivo(s) 17.74 KB
♞Registro
♞Entrar_D
Olvidé_P


Para poder modificar el tamaño de la fuente en el ticket de My Business POS, primero es necesario conocer cómo está conectada la impresora, así como la configuración de la estación de trabajo. 

Existen dos formas de modificar el texto de un ticket:

1. Para las impresoras configuradas por puerto LPT:
Se modifica un procedimiento llamado FORMATOTEXTO (En el Business Manager—Configuración—Personalización—Procedimientos y Rutinas del Usuario)
Ahí está un código como este:

Sub Main()
Dim p, s

On error resume next

Set p = ImpresoraDefault(Ambiente.rstEstacion("pticket"))

' p.ScaleMode = 7 ' Centimetros
'p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4
p.Font.Name = "Courier New"
p.Font.Size = 9
p.FontBold True

For n = 1 To 2
s = s & vbCrLf
Next

' pt (print text) imprime el texto indicado (impresora), (texto)
pt (p),(s)

pt (p),(Script.textToFormat)
p.EndDoc

End Sub

Lo que vamos a hacer es identificar p.Font.Name y p.Font.Size. Puede cambiarlo por una fuente legible y que a la vez se ajuste en el ticket. Se recomienda que utilice los tipos de letra Tahoma o Courier New debido a que estos utilizan caracteres con ancho estándar; sin embargo puede hacer pruebas con la fuente Arial.
Para GUARDAR los cambios, presione F2 o de clic en el botón Guardar.

2. Para impresoras configuradas por puerto USB:

Para este caso, es posible modificar el ticket en la parte final del formato TICKET (En el Business Manager—Configuración—Personalización—FORMATOS) y ubicamos el código, el cual está comentado:

'IniciaDocumento
'Say 0,0, cSalida
'FinDocumento
'Exit Sub

Lo descomentamos, agregamos la fuente y debe quedar de la siguiente manera:

IniciaDocumento
EstableceFuente "Courier New", 9
'FontBold True
Say 0,0, cSalida
FinDocumento
Exit Sub

Guardamos (F2) y hacemos la prueba
Para más información por favor visite http://helpmybusinesspos.info/errores-de-mybusiness-pos/como-elegir-la-miniprinter-mas-apropiada-para-su-negocio/ 

Publicado el por — 53 comentarios

Cambiar letra en ticket MyBusiness y el Logo en un Ticket (Solucionado)

logo_ticket

Icono

Editor de Tickets, impresión y ahorrar papel

1 archivo(s) 17.74 KB
♞Registro
♞Entrar_D
Olvidé_P

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:


p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4

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í


'p.PaintPicture LoadPicture(Ambiente.Path & "\images\logo.jpg"), 0, 0, 3, 4

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 = "Courier New"
p.Font.Size = 9
p.FontBold True

 

 

Guardamos los cambios y listo…Problema solucionado.