Publicado el Dejar un comentario

Inventario en MyBusiness POS con un SmartPhone Android

Envíanos un Whats al 7222816462 y te asesoraremos a la brevedad en este tema.



En estos días es importante la movilidad al hacer inventarios. Para eso existen herramientas a un costo muy bajo y algunas gratuitas que nos pueden apoyar en esta hardua batalla del Inventario.

Para eso, en esta ocasión estoy probando la herramienta PetScan (https://play.google.com/store/apps/details?id=com.maiko.scanpet&hl=es) en un dispositivo Sony Xperia U.

Se puede hacer una revisión de los beneficios de esta aplicación y hasta el momento es la más completa y sobre todo porque permite almacenar la información en Excel, la cual se puede exportar al sistema MyBusiness POS en algún inventario Inicial. Además es posible utilizar la plantilla que tiene por default el sistema MyBusiness POS para cargar el inventario inicial.

Los resultados son buenos, aunque si es importante destacar la calidad de la cámara para hacer el enfoque apropiado y la cantidad de iluminación ambiental, ya que si se utiliza solo el flash del smartphone puede afectar en la duración de la batería.

Publicado el Dejar un comentario

Colocar el texto en varias líneas

En algunas ocasiones necesitamos que se coloque el texto impreso en dos líneas; tal es el caso de las descripciones de artículos el IMPORTE CON LETRA, en los que aparece cortada la información.
En esta ocasión, nos enfocaremos en el Importe con Letra como ejemplo. vamos a colocar las primeras 15 letras en una línea y el resto en la línea siguiente.

Por default, el importe con letra se encuentra en una línea como esta (En CONFIGURACIÓN–PERSONALIZACIÓN–FORMATOS DEL SISTEMA–TICKET).
cSalida = cSalida & Letra( Round( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), 2 ), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & cLineaNueva

Lo que vamos a hacer es guardar el importe con letra en una variable llamada “ImporteLetra” y después dividir el texto en dos partes a través de la función Mid(texto, inicio, largo)
ImporteLetra = cSalida & Letra( Round( Val2(rstEncabezado("impuesto")) + Val2(rstEncabezado("importe")) + Val2(rstEncabezado("iespecial")), 2 ), Trim(rstMoneda("Descrip")), True,rstMoneda("Nombre") ) & cLineaNueva
cSalida = Mid(ImporteLetra, 1, 15)
cSalida = Mid(ImporteLetra, 16, 20)

Guarda y hace la prueba

En el caso de la remisión es algo parecido

FontBold Falso
FontItalic Falso
ColorDeFuente 0
Say 2.78125 + Row( Incremento ), 1.041667, rstArticulo("Descrip")

Lo que se hará es agregar una condición IF, la función Mid(texto, Inicio, Largo) y colocar todo este bloque de código cerca de la línea “Incremento = Incremento + 1” . El resultado quedará así:

EstableceFuente "Verdana",9.75
FontBold Falso
FontItalic Falso
ColorDeFuente 0
Say 2.78125 + Row( Incremento ), 1.041667, Mid(rstArticulo("Descrip"),1,50)
if Len( rstArticulo("Descrip") ) > 50 Then
Incremento = Incremento + 1
Say 2.78125 + Row( Incremento ), 1.041667, Mid(rstArticulo("Descrip"),41,50)
end if

Incremento = Incremento + 1
rstPartidas.MoveNext
Wend

Guardamos y hacemos la prueba