Cómo importar una ventana o formulario (.bfr) a MyBusiness POS

Los archivos .BFR se actualizan de la siguiente manera:

1. Entramos a MyBusiness POS con una clave de “Supervisor”

2. Nos dirigimos a la barra de tareas_ Programación _Ambiente de desarrollo y damos un clic en ese icono

3. Vamos al menú Archivo, seleccionamos Abrir

4. Seleccionamos el archivo con extensión BFR y aceptamos la actualización

5. Con este proceso ya tenemos actualizado el formulario, solo damos un clic en el icono “guardar” y lo ejecutamos en MyBusiness POS en la operación normal del sistema. Para algunos formatos podemos ejecutar la prueba desde el mismo editor, solo damos clic en el ultimo icono que tiene forma de triángulo (Run)

Disponibilidad del servicio SQL y puerto 1400

1.-Dirigirse al icono de inicio de windows y seleccionar en la carpeta de Microsoft SQL Server 2005/Herramientas de Configuración/Administrador de Configuración

2.-Le aparecerá una pantalla como la siguiente en donde se muestra que los servicios de SQL SERVER 2005 (se encuentran en el rectángulo rojo) están activados.  Si alguno esta en color rojo, lo debe seleccionar, dando un clic con el botón derecho y elegir Propiedades

3.-Le aparecerá una ventana, seleccione la pestaña Servicio, posteriormente Automático en el Modo de inicio. Dar un clic en Aplicar y en Aceptar.

4.- Verifique que el Puerto 1400 este liberado, siga las instrucciones:

4.1.-En el icono Protocolos for SQLEXPRESS, verifique si los protocolos de SQL Server están habilitados

5.- Seleccione el Protocolo TCP/IP, Clic con el botón derecho y elegir propiedades

6.- Debe seleccionar la pestaña IP Addresses, verifique que en la parte inferior tenga el Puerto Dinámico 1400

+ IP All

TCP Dynamic Ports      1400

En caso de que no esté o aparezca en blanco, colocar el número de puerto 1400.

Cómo hacer un Corte Z más pequeño?

Si deseamos un Corte Z que consuma menos papel, podemos hacer el siguiente ajuste en la ruta del business manager (Configuración–Personalización–Formatos del sistema–CorteZ). Nos colocamos aproximadamente en la linea 70 e identificamos la linea:




 Visual Basic |  copy code |? 
1
2
    detallado = True
3

Modificamos esta linea a False y quedará así:
 Visual Basic |  copy code |? 
1
2
    detallado = False
3

Guardamos y hacemos la prueba

En caso de que necesitemos el corte completo con impuestos, lo podemos hacer el cambio a true y ya aparecerá la información detallada del corte.

Ejemplo de DBMultiCombo.MultiCombo

Cuando  echamos un vistazo al código de algunas formas, vemos que aparece en varios casos esto “DBMultiCombo.MultiCombo” .  Se trata de una clase que hace una consulta a la tabla llamada “QUERY”. Ahí podemos encontrar muchas consultas predefinidas; y si no existe, la podemos crear a nuestra medida o simplemente ampliar la búsqueda a otros campos que por default no considera el sistema.

A continuación se muestra la lista de consultas que trae el sistema, tal vez alguna te interesa:

Fabricantes

Modelos

CostosAdicionales

Comisionistas

Colonia

Repartidores

Tutor

Familias

Ofertas

Tallas

Colores

Reportes

Etapas

Lotes

Clasificación de inventario

Estados

Contactos por cliente

Clientes por descripcion

Articulos por descripción

Remisiones para devolución

Estaciones

Ubicación en almacen

Marcas por clave

Zonas de clientes

Ventas sin cancelar

Ventas pendientes

Ventas

Vendedores

Usuarios

Tipos de teléfono

Tipos de proveedores

Tipos de Polizas

Tipos de póliza

Tipos de pendientes

Tipos de clientes

Sucursales

Series disponibles

Remisiones

Proveedores por clave

Proveedores

Procedimientos y rutinas de usuario

Pendientes

Partidas de venta

Partidas de compra

Monedas

Marcas de Artículos

Líneas de Artículos

Inventarios físicos

Inventarios

Impuestos por porcentaje

Impuestos

Grupos de cuentas

Formatos

Facturas

Devoluciones

Contactos

Conceptos de salidas de inventario

Conceptos de ingreso

Conceptos de gastos

Conceptos de entrada al inventario

Conceptos de egresos

Conceptos de cuentas por pagar

Conceptos de cobranza

Conceptos de Cargos

Conceptos de abonos a proveedores

Conceptos de Abonos

Compras confirmadas

Código de formatos

Cobradores

Clientes por clave

Clientes

Claves adicionales de articulos

Centros de costo

Artículos por clave

Articulos para venta

Articulos

Almacenes

Direcciones de embarque

Subfamilia1

Subfamilia2

Subfamilia3

ClientesNC

Tickets

SeriesTickets

UsuariosGB

Si tienes alguna duda al respecto, puedes escribir tu comentario y podemos aclararla

Cómo hacer una consulta a la tabla de clientes

En esta ocasión mostramos un ejemplo de una ventana que consulta a la tabla de clientes y permite hacer el filtro por nombre.


Este es el código fuente

 

 Visual Basic |  copy code |? 
001
002
Sub Form_load()
003
 
004
'José Félix 20140812
005
 
006
'jofelchez@gmail.com
007
 
008
'Ejemplo de cómo hacer una consulta a la tabla de clientes
009
 
010
TxtCliente.TabIndex = 0
011
 
012
aceptar.Default = True
013
 
014
'TxtCliente.PasswordChar = "*"
015
 
016
'TxtCliente.BackColor = 0
017
 
018
'TxtCliente.ForeColor = vbGreen
019
 
020
'TxtCliente.font.size = 14
021
 
022
Me.Caption = "Ejemplo de consulta a cliente"
023
 
024
Set mc1 = Me.Controls.Add("DBMultiCombo.MultiCombo","mc1", Me)
025
 
026
With mc1
027
 
028
.Left = TxtCliente.Left
029
 
030
.Top = TxtCliente.Top
031
 
032
.Width = TxtCliente.Width + 450
033
 
034
.Height = TxtCliente.Height
035
 
036
Set .Connection = Ambiente.Connection
037
 
038
Set .txtObject = TxtCliente
039
 
040
.Buscar = "Clientes"
041
 
042
.Visible = True
043
 
044
Set TxtCliente.Container = mc1
045
 
046
End With
047
 
048
End Sub
049
 
050
Sub Button_Click()
051
 
052
Dim cUsuario
053
 
054
Dim cPassword
055
 
056
Dim nPos
057
 
058
Dim s
059
 
060
If ControlEvento.Tag = "cancelar" Then
061
 
062
bolAceptar = False
063
 
064
DescargaForma
065
 
066
Exit Sub
067
 
068
End If
069
 
070
'consulta a la base de datos
071
 
072
Set rstCliente = CreaRecordSet( _
073
 
074
"SELECT * FROM clients WHERE cliente = '" & TxtCliente & "'", _
075
 
076
Ambiente.Connection )
077
 
078
'En caso de que no se encuentre el usuario envía mensaje de error
079
 
080
If rstCliente.EOF Then
081
 
082
'Progress.Destroy
083
 
084
MyMessage "Error:" & vbCrLf & "No existe el cliente indicado"
085
 
086
EstableceFoco
087
 
088
Exit Sub
089
 
090
End If
091
 
092
mymessage " Cliente: " & rstCliente("cliente") & vbCrLf & " Nombre: " & rstCliente("nombre")
093
 
094
End Sub
095
 
096
Sub EstableceFoco()
097
 
098
TxtCliente.Setfocus
099
 
100
TxtCliente.SelStart = 0
101
 
102
TxtCliente.SelLength = Len( TxtCliente )
103
 
104
End Sub
105
 
106
Sub Text_KeyUp()
107
 
108
'Este bloque permite responder a una tecla
109
 
110
'En caso de <flecha abajo="">
111
 
112
If KeyCode = 40 Then
113
 
114
Select Case ControlEvento.Tag</flecha>
115
 
116
Case "TxtCliente"
117
 
118
TxtCliente.Container.ShowData
119
 
120
End Select
121
 
122
End If
123
 
124
'en caso de <esc>
125
 
126
If KeyCode = 27 Then
127
 
128
DescargaForma
129
 
130
'Exit Sub
131
 
132
End If</esc>
133
 
134
End Sub
135

Recuperar contraseña MyBusiness POS

En Mybusiness POS es posible desencriptar la clave de cualquier usuario de una forma sencilla.

Opción 1:
Si tenemos privilegios de supervisor, podemos hacerlo importando un formulario, lo ejecutamos y obtendermos la clave de acceso.

Opción 2:
Podemos acceder a la base de datos, veremos la contraseña encriptada. Con el apoyo de un archivo de excel, podemos descifrar el contenido de la clave.

Ojalá sea de utilidad esta información proporcionada y sobre todo que le demos buen uso al parche.

Abrir cajón de dinero con impresora USB


Para abrir el cajón de dinero, es necesario enviar la instrucción desde el controlador (driver) de la impresora, en la pestaña Comandos Adicionales aparece una opción para abrir cajón de dinero cada vez que se envía una impresión.

Obtener rendimientos de dinero?

Pre-Registro:


Sabías que puedes adquirir pequeñas cantidades de oro desde tres mil pesos y obtener rendimientos muy buenos en poco tiempo, mientras que esta inversión sigue creciendo día con día…
Como bien sabemos y escuchamos a diario, este es uno de los metales que tienen mayor estabilidad en términos de valor y a la vez nos permite no solo un crecimiento personal, sino también patrimonial.

Cómo importar un formato (.paq) a MyBusiness POS

1. Primero entramos a MyBusinessPOS y damos un clic en la carpeta configuración del Business manager, buscamos la carpeta personalización, y posteriormente el icono “formatos del sistema”.

2. Se abrirá la herramienta Business Manager con la lista de todos los formatos, reportes y o procedimientos, según la carpeta que elijamos. Si da clic en ‘procedimientos’ (por ejemplo) podrá importar reportes o formatos ya que todas las carpetas reciben archivos .paq y tanto formatos como reportes y procedimientos tienen la misma extensión.

3. Clic derecho sobre cualquiera de los formatos y aparecerá una lista de opciones de la cual debe elegir la opción: Importar paquete de procedimientos.

4. Busca el directorio donde esta guardado el archivo y selecciónalo.

5. Aparecerá una mensaje que te dice: ”Paquete importado”. Oprime un clic en Aceptar.

BARTICULOS001

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

 Visual Basic |  copy code |? 
01
02
Public Sub Main()
03
    Dim strSQL   'Definición de variables   
04
    Set rstProds = SQLProdsSQLServer() ' invocamos al procedimiento SQLProdsSQLServer y asignamos el resultado a rstProds
05
    SetSessionValue Ambiente, "CONDICIONDEBUSQUEDA", ""   
06
End Sub
07
 
08
'Funcion SQLProdsSQLServer
09
Function SQLProdsSQLServer()
10
     Dim s     
11
     'evaluamos la variable Var1 
12
     If clEmpty( Ambiente.Var1 ) Then
13
        Ambiente.Var1 = " prods.descrip "
14
     End If 
15
     'Iniciamos con la consulta, aquí mismo definimos también el nombre de los encabezados de cada columna.
16
     s = ""
17
     s = s & "SELECT "
18
     s = s & "prods.articulo As 'Clave', "
19
     s = s & "prods.descrip AS 'UNIDAD DE CONSUMO', " 
20
     s = s & "prods.precio1 * ( 1 + (impuestos.valor / 100) ) As 'Precio', " 
21
     s = s & "prods.existencia, "
22
     s = s & "existenciaalmacen.existencia As 'Almacen " & Ambiente.Almacen & "', "
23
     s = s & "prods.articulo " 
24
     s = s & "FROM prods " 
25
     s = s & "INNER JOIN impuestos ON prods.impuesto = impuestos.impuesto " 
26
     s = s & "LEFT JOIN existenciaalmacen ON prods.articulo = existenciaalmacen.articulo AND existenciaalmacen.almacen = " & Ambiente.Almacen
27
     s = s & "WHERE prods.bloqueado = 0  "           
28
     s = s & cNull(GetSessionValue(Ambiente, "CONDICIONDEBUSQUEDA"))
29
     'Evaluamos filtros adicionales. aquí es donde considera la condición que aplicamos antes de presionar la flecha hacia abajo
30
     If Not clEmpty(cFiltro) Then
31
        If Not clEmpty(Condition) Then
32
           s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') AND " & Condition & " ORDER BY  " & Ambiente.Var1 
33
        Else
34
           s = s & " AND (prods.descrip LIKE '%" & Cambia("%", " ", cFiltro) & "%' OR prods.articulo LIKE '%" & Cambia("%", " ", cFiltro) & "%') ORDER BY  " & Ambiente.Var1
35
        End If
36
     Else
37
        If Not clEmpty(Condition) Then
38
           s = s & " ORDER BY " & Ambiente.Var1
39
        Else
40
           s = s & " ORDER BY " & Ambiente.Var1
41
       End If          
42
    End If
43
    'Ejecutamos la consulta antes estructurada y se guarda el resultado en rstProds 
44
    Set rstProds = CreaRecordSetEnCliente( (s), Ambiente.Connection)
45
    Set SQLProdsSQLServer = rstProds   'guardamos el arreglo de datos en la variable SQLProdsSQLServer 
46
    'Especificamos el ancho de las columnas, iniciando desde la columna 0 y considerando el orden en que estructura la consulta
47
    Set TDBGrid1.DataSource = rstProds
48
    AnchoColumna 0, 2000
49
    AnchoColumna 1, 6500
50
    AnchoColumna 2, 2000 
51
    AnchoColumna 3, 1000 
52
    AnchoColumna 4, 1000 
53
    AnchoColumna 5, 2500 
54
    'Para las columnas de tipo numérico podemos colocar el formato numérico y con la cantidad de decimales apropiada
55
    FormatoColumna 2, 1, "##,##0.00"
56
    FormatoColumna 3, 1, Ambiente.FDinero
57
    FormatoColumna 4, 1, Ambiente.FDinero
58
'Termina la función
59
End Function          
60
 
61
 
62
 
63

Cómo atender a múltiples clientes a la vez

Cuando vamos de compras, muchos de nosotros estamos indecisos a la hora de pagar en la caja porque aun hay productos pendientes por incluir en el carrito.

Mybusiness Pos, desde la versión 2006, contiene la funcionalidad para que las ventas se conserven como pendientes y posteriormente permitir recuperarlas para continuar con el cobro de la misma.

Desde la ventana de punto de venta, las teclas de acceso rápido son:
F7 Es para dejar una venta pendiente
F8 Permite recuperar la venta, muestra el listado de ventas pendientes hacia un cliente específico y ahi podemos seleccionarla.

Congreso de MybusinessPos en Acapulco

En este momento se está llevando a cabo el congreso anual en el cual se presentan los nuevos productos que complementan al punto de venta MyBusiness Pos

Mybusiness pos Android

Muy pronto será el evento de Mybusiness POS, en el cual se presentará una herramienta  complementaria al punto de venta que funciona en android.

Esperamos muy buenos resultados de esta propuesta. :)