Etiqueta: código

Publicado el por — 11 comentarios

Colocar logo en ticket USB


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
'

Publicado el por — 1 comentario

BARTICULOS001

Agregar columnas SAT ClaveProdServ, ClaveUnidad e ImpuestoSAT al buscador de artículos

Compartimos este tip para agregar columnas al buscador de artículos.Modifica el siguiente procedimiento que se encuentra dentro del Business Manager–Configuración–Procedimientos y rutinas de usuario:BArticulos001Para más información, WhatsApp 7222816462helpmybusinesspos.info

Posted by Help MBP on Tuesday, March 27, 2018

El siguiente bloque de código BARTICULOS001 es el que permite visualizar desde el punto de venta, la ventana de artículos donde se muestra la clave, descripción y precio unitario. Describiremos un poco cada línea de código.

Para abrir y modificar este bloque de código, necesitamo ir a la siguiente ruta, dentro del Business Manager:
CONFIGURACIÓN–PERSONALIZACIÓN–PROCEDIMIENTOS Y RUTINAS DE USUARIO


Public Sub Main()
Dim strSQL 'Definición de variables
Set rstProds = SQLProdsSQLServer() ' invocamos al procedimiento SQLProdsSQLServer y asignamos el resultado a rstProds
SetSessionValue Ambiente, "CONDICIONDEBUSQUEDA", ""
End Sub

'Funcion SQLProdsSQLServer
Function SQLProdsSQLServer()
Dim s
'evaluamos la variable Var1
If clEmpty( Ambiente.Var1 ) Then
Ambiente.Var1 = " prods.descrip "
End If
'Iniciamos con la consulta, aquí mismo definimos también el nombre de los encabezados de cada columna.
s = ""
s = s & "SELECT "
s = s & "prods.articulo As 'Clave', "
s = s & "prods.descrip AS 'UNIDAD DE CONSUMO', "
s = s & "prods.precio1 * ( 1 + (impuestos.valor / 100) ) As 'Precio', "
s = s & "prods.existencia, "
s = s & "existenciaalmacen.existencia As 'Almacen " & Ambiente.Almacen & "', "
s = s & "prods.articulo "
s = s & "FROM prods "
s = s & "INNER JOIN impuestos ON prods.impuesto = impuestos.impuesto "
s = s & "LEFT JOIN existenciaalmacen ON prods.articulo = existenciaalmacen.articulo AND existenciaalmacen.almacen = " & Ambiente.Almacen
s = s & "WHERE prods.bloqueado = 0 "
s = s & cNull(GetSessionValue(Ambiente, "CONDICIONDEBUSQUEDA"))
'Evaluamos filtros adicionales. aquí es donde considera la condición que aplicamos antes de presionar la flecha hacia abajo
If Not clEmpty(cFiltro) Then
If Not clEmpty(Condition) Then
s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') AND " & Condition & " ORDER BY " & Ambiente.Var1
Else
s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') ORDER BY " & Ambiente.Var1
End If
Else
If Not clEmpty(Condition) Then
s = s & " ORDER BY " & Ambiente.Var1
Else
s = s & " ORDER BY " & Ambiente.Var1
End If
End If
'Ejecutamos la consulta antes estructurada y se guarda el resultado en rstProds
Set rstProds = CreaRecordSetEnCliente( (s), Ambiente.Connection)
Set SQLProdsSQLServer = rstProds 'guardamos el arreglo de datos en la variable SQLProdsSQLServer
'Especificamos el ancho de las columnas, iniciando desde la columna 0 y considerando el orden en que estructura la consulta
Set TDBGrid1.DataSource = rstProds
AnchoColumna 0, 2000
AnchoColumna 1, 6500
AnchoColumna 2, 2000
AnchoColumna 3, 1000
AnchoColumna 4, 1000
AnchoColumna 5, 2500
'Para las columnas de tipo numérico podemos colocar el formato numérico y con la cantidad de decimales apropiada
FormatoColumna 2, 1, "##,##0.00"
FormatoColumna 3, 1, Ambiente.FDinero
FormatoColumna 4, 1, Ambiente.FDinero
'Termina la función
End Function

Publicado el por — 4 comentarios

Cómo poner imagen en ticket de MyBusiness POS

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:


Picture Ambiente.path & "\Images\logo.jpg".......

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í


'Picture Ambiente.path & "\Images\logo.jpg"

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 = "Arial" 'La recomendable es Courier New
p.Font.Size = 8

 

Guardamos los cambios y listo…Problema solucionado.

Publicado el por — 7 comentarios

Cambiar la estructura de las búsquedas

Busquedas_mybusinessposEn el sistema se puede optimizar la forma en que se consulta la base de datos, en esta ocasión me refiero a todos aquellos campos a los que le presionan [flecha hacia abajo]. En la base de datos hay una tabla llamada QUERY la cual almacena los regustros de todas las consultas posibles de estas búsquedas. Lo que debemos conocer es cuál es el parámetro de búsqueda y el campo que deseamos como resultado, el cual en muchas ocasiones es el id de un registro.

Más adelante explicaré cómo podemos utilizar esta información para hacer nuestras propias consultas y ventanas desde cero en MyBusiness Pos

Publicado el por — Dejar un comentario

Cómo modificar la malla de artículos

En MyBusinessPOS en todas sus versiones es posible personalizar la ventana del buscador para que se adapte a nuestras necesidades. Para lograr este cambio es necesario tener conocimientos básicos de programación y base de datos.
Los cambios básicos que se pueden aplicar pueden ser: cambiar el orden de las columnas, el ancho y ocultar datos innecesarios para colocar los que realmente nos importan.