CONTACTO ***** jofelchez@gmail.com *****




Soporte Remoto, helpmybusinesspos.info , TeamViewer, Hamachi, Descarga My Business pos 2012 Gratis, crack activar, keygen activador , FACTURACIÓN ELECTRÓNICA, my business pos 2012, MyCBB, Codigo de Barras BiDimensional, configurar facturas, Migración de la Versión 2006 a la Versión 2011, Delta, Configurar 2011, Manuales de Instalación, Errores, Modificar, Respaldos, Nuevo IVA, Red MyBusiness, Problema, Ambiente path, Migración, Impresora, Descarga 2011, Reportes, Presentaciones, Win7, SQL, Manager, Ticket, Etiquetas, Generador, Corte X Z, Restaurar, Zebra, Logo, recomendaciones, Remisiones, Barras, Inventario, hamachi, Delta y LINUX, code39, como cambiar el iva en my business pos, my business pos blogspot, como instalar my busuness delta, TPV, MyMoney, Concentrador POS, Zebra, Datamax, Mobile Business, Commander, Restaurante, MyBusiness POS 2012, Kardex
Mostrando entradas con la etiqueta Ajustes. Mostrar todas las entradas
Mostrando entradas con la etiqueta Ajustes. Mostrar todas las entradas

martes, 20 de febrero de 2018

Factura CFDI 3.3 | Módulo para Facturador ERP

Te podemos asesorar lo más pronto posible desde WhatsApp 7222816462


Regístrate para adquirir los primeros timbres, con la tranquilidad de que son gratis:


[wpdm_package id='15022']
[wpdm_package id='14960']
[wpdm_package id='15023']
[products ids='18217,19645']
[youtube Bz2t24Tks0A]

Si deseas ofrecer esta opción de facturación a tus clientes, puedes ser distribuidor:


Lamentablemente desde hace tiempo se ha perdido totalmente la confianza en el soporte de MyBusiness POS.  Por supuesto que muchos clientes requieren que su factura electrónica este resguardada por una empresa que ellos consideren de confianza y que responderá en caso de alguna anomalía.

Por tal razón he desarrollado este módulo, que permite timbrar con otro proveedor de factura electrónica.

El precio de este módulo es de 1,000 pesos por la primera implementación, es decir, el primer RFC.
Para beneficiar a nuestros nuestros compañeros distribuidores, a partir de la segunda implementación tiene un precio es de de 800 pesos

Ventajas:

  • No se aferra al servicio de Mybusiness ni al servicio del cual muchos se quejan

  • Puede adquirir el servicio con el PAC de su preferencia, siempre y cuando acepten archivos de texto plano.

  • A comparación de la herramienta de MyCFDI, Se puede depurar cualquier Error de manera más fácil, por el mismo usuario; siempre y cuando tenga un poco de conocimiento del sistema y de programación.

  • Se puede utilizar en red, a través de una carpeta compartida (\\equipo_compartido\facturadorelectronico\)


Desventajas:

  • Manejo de archivos en texto plano.

  • Se recomienda para RFC que tenga tiempo de espera al timbrar la factura de aproximadamente 60 segundos.


Saludos cordiales.

.

domingo, 26 de noviembre de 2017

Registrar un archivo OCX o DLL en Windows 7 / 8 / 8.1 – x86 (32 bits) y x64 (64 bits).

Primeramente explicar que es un OCX o DLL, son librerías internas que usan los programas para poder funcionar correctamente, hay veces que por fallo de instalación o Desinstalando un Software que este ligado a esta librería .

Registrar un OCX o DLL en un sistema de 32 bits

Este es el método más extendido pero claro solamente funciona con sistemas operativos de 32 bits

1º- Tenemos que copiar el archivo de la librería en la ruta C:\WINDOWS\System32\

2º- Abrimos la consola de Windows (CMD) como administrador (botón derecho, ejecutar como administrador) y escribimos:

C:\WINDOWS\System32\

3º- Una vez copiado la librería en la Carpeta System32 podremos registrar la librería y seguimos el siguiente paso:

regsvr32 nombre de la Libreria.ocx

Y listo ya está la librería registrada en el sistema.

 

Registrar un OCX o DLL de 32 bits o 64 bits en un sistema de 64 bits

Es un poco diferente del modo de registrarlo en 32 bits, aunque sólo son las carpetas las que cambian (no válido para sistemas operativos de 32 bits)

1º- Tenemos que copiar el archivo de la librería en la ruta C:\WINDOWS\SysWOW64\

2º- Abrimos la consola de Windows (CMD) como administrador (botón derecho, ejecutar como administrador) y escribimos:

C:\WINDOWS\SysWOW64\

3º- Una vez copiado la librería en la Carpeta SysWOW64 podremos registrar la librería y seguimos el siguiente paso:

regsvr32 nombre de la Libreria.ocx

Y listo ya está la librería registrada en el sistema.

 

Nota:Las Librerias las puedes descargar de la Web.

 

Nestor Octavio Guzman Bernal


Desarrollador de Soluciones


Cel.: (722) 7 70 16 56


WhatsApp: (722) 7 70 16 56

miércoles, 22 de noviembre de 2017

Solucion para Carniceria y/o Polleria

1.-Da de alta tu Producto.

2.-Da de alta tus Derivados de ese Producto.

3.-Entra a Nuestra Forma y coloca los Kg de tus derivados.

4.-Cada Producto que Derives se hara una Entrada al Inventario.

5.-Envia tus ventas a tu Correo.

6.-Envia tus Cortez Finales del Dia a tu correo

7.-Asigna Precio Especial a tus Clientes.

domingo, 12 de noviembre de 2017

¿Sabias que?

Puedes Cambiar la imagen de intro de MybusinessPOS ,Asi como la imagen de barra de detalle.

Contactanos y Personaliza tu Punto de Venta MybusinessPOS

Nestor Octavio Guzman Bernal


Desarrollador de Soluciones


Cel.: (722) 7 70 16 56


WhatsApp: (722) 7 70 16 56

jueves, 8 de junio de 2017

Uso y Manejo de Productos Compuestos

Existen múltiples negocios que pudieran explotar está alternativa.
Un producto compuesto nos permite:

  • Armar un paquete, combo o Pak

  • Definir cada insumo o articulo que lo integre

  • Al realizar el cobro del paquete descuento las cantidades definidas

  • para cada componente.


Aplica para negocios como restaurantes, bares, Empresas que ofrezcan ofertas que contengan diversos productos y infinidad de combinaciones.



 

 

 

 

 

 

Hemos aplicado estas herramientas y han permitido tener un control mas adecuado sobre sus mercancías.

Colaborador Pablo Olvera

 

martes, 6 de junio de 2017

Lista de correciones a MyBusiness POS 2017


1.- La instalación de fabrica no viene para conexión en red


2.- No aparece a la vista la opción para registrar el nombre del propietario del Software


3.- Dirije las operaciones de cobro a un sitio AZURE


4.- El Business Manager Solo lo encontraras en la parte superior de la ventana inicial



 

 

viernes, 8 de abril de 2016

Corregir la ventana de Cobranza

image [wpdm_package id='17280']

En el módulo de cobranza pueden suceder accidentes, al dar clic de manera inesperada a un botón. Así que nos dimos a la tarea de investigar y desarrollamos un parche para corregirlo.

Este video puede ser de utilidad.

[youtube Vpb7wMzrI-c]

viernes, 5 de junio de 2015

Editor de ticket

ticket_mybusinessposEl editor de tickets es una herramienta que permite crear formatos de impresión para ticket para cualquier giro. Lo mejor de todo es que no se necesita programación, solo debe dar clic en algunas opciones y especificar el tamaño de letra, tamaño de ticket, fuente, tipo de impresora y hasta colocar logo a nuestro ticket.

[wpdm_package id='15747']

Comparto un vídeo que explica a detalle cómo funciona el editor de ticket.

[youtube R58hsDc0lBc]

 

Si llega  aparecer el mensaje:
1025: se esperaba un final de instrucción in line 43.
Sistema: 1025 se esperaba un final de instrucción

Tal vez el encabezado y pie tiene comillas:

Abarrotes "La esperanza"

"Gracias por su compra"

Recomiendo quitar las comillas en texto del encabezado o pie de Ticket y quedaría similares a estos:

Abarrotes La esperanza

Gracias por su compra

 

Si, al seleccionar el formato de impresión, aparece este mensaje:

Run-time error '-2147217833 (80040e57)':
String or binary data would be truncated.

La causa es que el nombre del nuevo ticket es demasiado largo. En este caso, recomiendo crear nuevamente el ticket con nombre de formato corto, entre diez y quince letras.

 

miércoles, 8 de abril de 2015

Alta Rápida de Artículos

Articulos_AltaRapida_MybusinessPOSTenemos un desarrollo para que puedas dar de alta los artículos de forma parecida a una hoja de Excel

[wpdm_package id='15635']

[youtube kdaA1unzJFA]

 

 

sábado, 7 de febrero de 2015

Restringir permisos a usuarios

Usuario-permisos_mybusinessposCONFIGURACIÓN DE LOS DERECHOS EN EL BUSINESS MANAGER.

Vamos a ingresar a MyBusiness POS con una clave de Supervisor, por ejemplo, “SUP SUP” (separado por un espacio). Ahora diríjase a Business Manager, carpeta Configuración, opción Usuarios.

Seleccionamos al usuario que vamos a configurar, damos un clic derecho sobre él y escogemos la opción Derechos del Business Manager

Esta acción mostrará una ventana con una imagen similar al Business Manager que permitirá seleccionar una a una las carpetas a las que le daremos derecho de uso al usuario en cuestión; A su vez estas carpetas contienen menús que detallan acciones tales como “Nuevo”, “Modificar”, “Eliminar”, mismas que también son configurables.

Para definir derechos a los usuarios posiciónese sobre el icono de la “llave” que desea restringir, dé un clic derecho y elija entre “Activado” e “Inactivo”, según le convenga.

Con lo anterior evitaremos que el usuario vea y use “carpetas” en el ‘Business Manager’ a las que no tiene derecho.

Es necesario entrar a My Business POS con el nombre del usuario y la contraseña asignada para verificar los cambios realizados.

[youtube tbNCcQeJgGg]

[youtube CS7Lw8N2Z1E]

[youtube nXGYqRbct9M]

[youtube SqGkxqwHBKY]

[youtube zO5A3pUfEFk]

jueves, 29 de enero de 2015

Query para MultiCombo

Estas son las consultas que se hacen desde el objeto DB Multicombo



















































































































































































































































































































































































































































































































































































































































































































































QuerySqlColumnaRetornoLargo1Largo2Largo3
AlmacenesSELECT  almacen , descrip FROM almacen ORDER BY almacen0000
ArticulosSELECT   descrip As descripcion, articulo,

linea, existencia, kit, precio1, unidad, costo_u

FROM prods ORDER BY descrip
1350007000
Articulos para ventaSELECT descrip As 'DESCRIPCION', articulo, linea, existencia, kit, precio1 FROM prods WHERE paraventa <> 0 order BY descrip1400007500
Artículos por claveSELECT  prods.articulo, prods.descrip FROM prods ORDER BY prods.articulo0150050007000
Articulos por descripciónSELECT   descrip As descripcion, articulo, linea, existencia, kit, precio1 FROM prods ORDER BY descrip0500007000
Centros de costoSELECT  * FROM ctocto0000
Clasificación de inventarioSELECT clasificacion FROM prods GROUP BY clasificacion ORDER BY clasificacion0000
Claves adicionales de articulosSELECT  clavesadd.articulo , clavesadd.clave , clavesadd.dato1 , clavesadd.dato2  FROM clavesadd ORDER BY clavesadd.articulo1000
ClientesSELECT nombre AS 'Nombre', cliente ,telefono,

calle, colonia , pobla, estado

FROM clients ORDER BY cliente
1600008000
Clientes por claveSELECT  cliente, nombre, telefono FROM clients ORDER BY cliente0200035007500
Clientes por descripcionSELECT  nombre,cliente AS 'CLAVE' ,telefono, calle, colonia, pobla, estado  FROM clients ORDER BY nombre0350007000
ClientesNCSELECT clients.nombre, devolucionespocket.cliente FROM clients, devolucionespocket WHERE clients.cliente = devolucionespocket.cliente GROUP BY devolucionespocket.cliente, clients.nombre ORDER BY nombre135006500
CobradoresSELECT  nombre, cobrador   FROM cobrad ORDER BY nombre1000
Código de formatosSELECT  descrip , formato , tipo, codigo  FROM formatos ORDER BY descrip3000
ColoniaSELECT colonia FROM clients GROUP BY colonia ORDER BY colonia0400007000
ColoresSELECT descrip, color FROM colores ORDER BY descrip1400020007000
ComisionistasSELECT comisionista FROM auxclients GROUP BY comisionista ORDER BY comisionista0400007000
Compras confirmadasSELECT compra, proveedor, f_emision AS 'FECHA' FROM compras WHERE tipo_doc = 'COM' AND estado = 'CO' order BY compra0100020005000
Conceptos de AbonosSELECT descrip AS DESCRIPCION, clave_con AS 'CLAVE' FROM concxc WHERE

tipo_cxc   = 'A' ORDER BY descrip
1000
Conceptos de abonos a proveedoresSELECT  descrip, clave_con AS 'CLAVE' FROM concxp WHERE tipo_cxc = 'A' ORDER BY descrip1000
Conceptos de CargosSELECT  descrip, clave_con AS 'CLAVE' FROM concxc WHERE tipo_cxc = 'C' ORDER BY descrip1000
Conceptos de cobranzaSELECT  descrip AS 'Descripción', clave_con AS 'Concepto'  , tipo_cxc AS 'Cargo/Abono' FROM concxc ORDER BY descrip1400007000
Conceptos de cuentas por pagarSELECT  descrip, clave_con  FROM concxp ORDER BY descrip1000
Conceptos de egresosSELECT descrip AS 'DESCRIPCION', concepto FROM conegre ORDER BY descrip1350007000
Conceptos de entrada al inventarioSELECT descrip, tipo_movim FROM tipominv WHERE ent_sal = 'E' ORDER BY descrip135005005000
Conceptos de gastosSELECT  descrip AS 'DESCRIPCION' , concepto FROM conpres ORDER BY descrip1300005000
Conceptos de ingresoSELECT descrip AS 'DESCRIPCION' , concepto FROM coningre ORDER BY descrip1000
Conceptos de salidas de inventarioSELECT  descrip, tipo_movim FROM tipominv WHERE ent_sal = 'S' ORDER BY descrip1350006000
ContactosSELECT clients.nombre,  contacto.contacto, contacto.apellidop, contacto.apellidom, contacto.id FROM contacto LEFT JOIN clients ON contacto.cliente = clients.cliente ORDER BY clients.nombre, contacto.contacto4000
Contactos por clienteSELECT clients.nombre As 'Nombre' ,  contacto.contacto , contacto.apellidop , contacto.apellidom, contacto.id FROM contacto LEFT JOIN clients ON contacto.cliente = clients.cliente4350007000
CostosAdicionalesSELECT costoadicional, descrip AS descripcion FROM costosadic ORDER BY descrip ASC0025005000
DevolucionesSELECT  * FROM devoluc0000
Direcciones de embarqueSELECT nombre, cliente FROM clients ORDER BY nombre1600010007000
EstacionesSELECT estacion FROM estaciones ORDER BY estacion0200005000
EstadosSELECT estado FROM clients GROUP BY estado ORDER BY estado0400005000
EtapasSELECT  etapas.Etapa , etapas.Descrip FROM etapas ORDER BY etapas.Etapa0030000
FabricantesSELECT fabricante, nombre FROM fabricantes ORDER BY fabricante0050007000
FacturasSELECT  no_referen AS 'Documento', venta, f_emision AS 'Fecha' , cliente FROM ventas WHERE tipo_doc = 'FAC' AND estado = 'CO'0000
FamiliasSELECT familia FROM prods GROUP BY familia ORDER BY familia0600006000
FormatosSELECT  formato , descrip, usufecha FROM formatosDelta ORDER BY formato0000
Grupos de cuentasSELECT  * FROM gpocta0000
ImpuestosSELECT  impuesto , descrip FROM impuestos  ORDER BY impuesto0000
Impuestos por porcentajeSELECT  descrip , valor FROM impuestos ORDER BY impuesto1000
InventariosSELECT  * FROM invfis0000
Inventarios físicosSELECT  invfis.inventario, invfis.almacen, invfis.fecha, invfis.estado FROM invfis0000
Líneas de ArtículosSELECT  descrip As 'Descripción', linea FROM lineas ORDER BY descrip1400010007000
LotesSELECT  lote, articulo, cantidads AS 'Existencia', numero as 'Pedimento' FROM lotes WHERE cantidads > 00007000
Marcas de ArtículosSELECT  descrip As 'Descripción', marca  FROM marcas ORDER BY descrip1300000
Marcas por claveSELECT  marca, descrip FROM marcas0100020005000
ModelosSELECT modelo, descrip FROM modelos ORDER BY modelo0000
MonedasSELECT moneda,descrip AS 'Descripcion' FROM monedas ORDER BY moneda0000
NotasCreditoSELECT ventas.no_referen AS 'Documento', clients.nombre AS 'Nombre' FROM ventas, clients WHERE ventas.cliente = clients.cliente AND ventas.tipo_doc = 'DV' AND ventas.estado = 'CO' ORDER BY ventas.no_referen0200050008000
OfertasSELECT  formato , descrip, usufecha FROM formatosdelta WHERE grupo = 'Oferta' ORDER BY formato0000
Partidas de compraSELECT  partcomp.articulo, partcomp.cantidad, partcomp.precio, partcomp.descuento, partcomp.observ FROM partcomp, compras WHERE compras.compra = partcomp.compra ORDER BY articulo0000
Partidas de ventaSELECT  partvta.articulo, prods.descrip,  partvta.cantidad, partvta.precio, partvta.descuento FROM partvta, prods, ventas WHERE partvta.articulo = prods.articulo AND ventas.venta = partvta.venta0000
PendientesSELECT  * FROM respues0000
Procedimientos y rutinas de usuarioSELECT  formatos.descrip , formatos.formato  FROM formatos WHERE formatos.Tipo = 'Programa'1000
ProveedoresSELECT  nombre, proveedor, telefono, calle, colonia, pobla, estado FROM proveed ORDER BY nombre1400007000
Proveedores por claveSELECT  proveed.proveedor, proveed.nombre FROM proveed ORDER BY proveed.proveedor0350035008000
RemisionesSELECT  no_referen AS 'Documento', venta, f_emision AS 'Fecha' , cliente FROM ventas WHERE tipo_doc = 'REM' AND estado = 'CO' ORDER BY no_referen0000
Remisiones para devoluciónSELECT  no_referen  AS 'Documento' , f_emision AS 'Fecha' , cliente, venta FROM ventas WHERE estado = 'CO'0150005000
RepartidoresSELECT * FROM repartidor0150025007000
ReportesSELECT  formato, descrip, grupo  FROM formatos WHERE tipo = 'Reporte'0000
Series disponiblesSELECT  * FROM series WHERE entregado = 01000
SeriesNCSELECT serieNC AS 'Serie' FROM estaciones WHERE serieNC <> '' GROUP BY serieNC0300005000
SeriesTicketsSELECT serieTicket AS 'Serie' FROM estaciones WHERE serieTicket <> '' GROUP BY serieTicket0300005000
Subfamilia1SELECT subfamilia FROM prods GROUP BY subfamilia ORDER BY subfamilia0600006000
Subfamilia2SELECT subfam1 FROM prods GROUP BY subfam1 ORDER BY subfam10600006000
Subfamilia3SELECT subfam2 FROM prods GROUP BY subfam2 ORDER BY subfam20600006000
SucursalesSELECT  sucursal.sucursal , sucursal.descrip FROM sucursal ORDER BY sucursal.sucursal0000
TallasSELECT descrip, talla FROM tallas ORDER BY descrip;1400030007000
TicketsSELECT no_referen AS 'Ticket' FROM ventas WHERE tipo_doc = 'REM' AND ticket <> 0 AND enfac = 00300005000
Tipos de clientesSELECT  descrip AS 'Descripción', tipo

FROM tipos ORDER BY tipo
1300010006000
Tipos de pendientesSELECT  tipopend.descrip, tipopend.tipopend FROM tipopend ORDER BY tipopend.descrip1350005000
Tipos de pólizaSELECT  * FROM tipopol0000
Tipos de PolizasSELECT  * FROM tipopol0000
Tipos de proveedoresSELECT tipoprov AS 'Tipo' , descrip AS 'Descripción' FROM tiposprov0200005000
Tipos de teléfonoSELECT  tipotel.descrip , tipotel.tipotel FROM tipotel ORDER BY tipotel.Descrip1350006000
TTaemontosMultiSELECT   a.articulo, a.descrip Descripción,     round(precio1 * (1+( b.valor/100)),0) Monto  FROM prods a, impuestos b        WHERE a.impuesto = b.impuesto   and CHARINDEX('Telcel', articulo)=0   and a.tiempoAire = 1    and a.bloqueado = 0      order by a.DESCRIP018003100
TTaemontosTelcelSELECT   a.articulo, a.descrip Descripción,     round(precio1 * (1+( b.valor/100)),0) Monto  FROM prods a, impuestos b        WHERE a.impuesto = b.impuesto   and CHARINDEX('Telcel', articulo)>0   and a.tiempoAire = 1   and a.bloqueado = 0       order by a.DESCRIP018003100
TutorSELECT articulo, descrip FROM prods ORDER BY descrip0000
Ubicación en almacenSELECT descrip AS 'descripción', ubicacion FROM ubicacion ORDER BY descrip1250006000
UsuariosSELECT usuario, nombre FROM usuarios0000
UsuariosGBSELECT usuariosGreenBox.idTeller AS 'Usuario', usuariosGreenBox.name AS 'Nombre' FROM usuariosGreenBox ORDER BY usuariosGreenBox.name0100050007500
VendedoresSELECT nombre,  vend AS 'Vendedor'  FROM vends ORDER BY nombre1400007500
VentasSELECT  ventas.venta, ventas.cliente FROM ventas, clients WHERE ventas.cliente = clients.cliente1000
Ventas pendientesSELECT  venta,  f_emision AS 'Fecha' , cliente FROM ventas WHERE estado = 'PE' ORDER BY no_referen0000
Ventas sin cancelarSELECT  no_referen  AS 'Documento' , f_emision AS 'Fecha' , cliente, venta FROM ventas WHERE estado = 'CO'  AND tipo_doc = 'FAC' ORDER BY venta3000
Zonas de clientesSELECT  zona , descrip FROM zonas ORDER BY zona0200035007000

martes, 20 de enero de 2015

Error de sistema: -2147217913

Error_mybusinesspos_codigo_duro_58Error de sistema: -2147217913 The conversion of a char data type to a datetime data type resulted in an out-of-range datetime value.

Este error aparece cuando intentamos dar formato (año-mes-dia) a una fecha para aplicarlo en una consulta que solo acepta la estructura (dia-mes-año). Por ejemplo:


Set rstCorte = Rst("SELECT top 1 * FROM corteszx WHERE corte = 'z' and usufecha = '" & Libreria.Formato(date, "yyyy-mm-dd") & "' " , Ambiente.Connection )


El error se soluciona al modificar el orden de dia-mes-año de esta manera: Libreria.Formato(date, "dd-mm-yyyy")

Set rstCorte = Rst("SELECT top 1 * FROM corteszx WHERE corte = 'z' and usufecha = '" & Libreria.Formato(date, "dd-mm-yyyy") & "' " , Ambiente.Connection )

jueves, 15 de enero de 2015

Teclas de Función (F1 hasta F12) y KeyCode

En MyBusiness POS se pueden especificar algunas teclas de función para necesidades específicas. Por default, las teclas que están ocupadas son

  • F1. Ayuda desde MyBusiness POS.

  • F2. Menú de Opciones que muestra los comandos a ejecutar.

  • F5. Terminar una venta y abrir la ventana de Cobro rápido.

  • F7. Dejar la venta como pendiente. Esto puede ser de utilidad cuando un cliente aun no decide terminar las compras y con ello es posible atender a un segundo cliente en ese lapso de indecisión por parte del primero.

  • F8. Recuperar una venta de un cliente en específico.

  • F9. Coloca el foco en el textbox de Cliente.

  • F11. realiza corte X

  • F12. Realiza corte Z


Después de esta lista, es posible identificar las teclas de función que se encuentran disponibles:

  • F3. Libre

  • F4. Libre

  • F6. Libre

  • F10. Libre


El procedimiento que permite aplicar la personalización se llama PUNTOV080  (Configuración--Personalización--Procedimientos y rutinas de usuario--PuntoV080).

Es posible usar el KeyCode = Valor

[wpdm_package id='15383']

Teclas de Función (F1, F2, F3, F4, F5, F6, F7, F8, F9, F10, F11, F12)


























































































ConstanteValorDescripción
vbKeyF1112Tecla F1
vbKeyF2113Tecla F2
vbKeyF3114Tecla F3
vbKeyF4115Tecla F4
vbKeyF5116Tecla F5
vbKeyF6117Tecla F6
vbKeyF7118Tecla F7
vbKeyF8119Tecla F8
vbKeyF9120Tecla F9
vbKeyF10121Tecla F10
vbKeyF11122Tecla F11
vbKeyF12123Tecla F12
vbKeyF13124Tecla F13
vbKeyF14125Tecla F14
vbKeyF15126Tecla F15
vbKeyF16127Tecla F16

Constantes de códigos de tecla





































































































































































ConstanteValorDescripción
vbKeyLButton1Botón primario del mouse
vbKeyRButton2Botón secundario del mouse
vbKeyCancel3Tecla CANCEL
vbKeyMButton4Botón central del mouse
vbKeyBack8Tecla RETROCESO
vbKeyTab9Tecla TAB
vbKeyClear12Tecla SUPR
vbKeyReturn13Tecla ENTRAR
vbKeyShift16Tecla MAYÚS
vbKeyControl17Tecla CTRL
vbKeyMenu18Tecla MENÚ
vbKeyPause19Tecla PAUSA
vbKeyCapital20Tecla BLOQ MAYÚS
vbKeyEscape27Tecla ESC
vbKeySpace32Tecla BARRA ESPACIADORA
vbKeyPageUp33Tecla RE PÁG
vbKeyPageDown34Tecla AV PÁG
vbKeyEnd35Tecla FIN
vbKeyHome36Tecla INICIO
vbKeyLeft37Tecla FLECHA IZQUIERDA
vbKeyUp38Tecla FLECHA ARRIBA
vbKeyRight39Tecla FLECHA DERECHA
vbKeyDown40Tecla FLECHA ABAJO
vbKeySelect41Tecla SELECT
vbKeyPrint42Tecla IMPRIMIR PANTALLA
vbKeyExecute43Tecla EXECUTE
vbKeySnapshot44Tecla SNAPSHOT
vbKeyInsert45Tecla INS
vbKeyDelete46Tecla SUPR
vbKeyHelp47Tecla AYUDA
vbKeyNumlock144Tecla BLOQ NUM

Desde KeyA hasta KeyZ son iguales a sus equivalentes ASCII: 'A' hasta 'Z'












































































































































ConstanteValorDescripción
vbKeyA65Tecla A
vbKeyB66Tecla B
vbKeyC67Tecla C
vbKeyD68Tecla D
vbKeyE69Tecla E
vbKeyF70Tecla F
vbKeyG71Tecla G
vbKeyH72Tecla H
vbKeyI73Tecla I
vbKeyJ74Tecla J
vbKeyK75Tecla K
vbKeyL76Tecla L
vbKeyM77Tecla M
vbKeyN78Tecla N
vbKeyO79Tecla O
vbKeyP80Tecla P
vbKeyQ81Tecla Q
vbKeyR82Tecla R
vbKeyS83Tecla S
vbKeyT84Tecla T
vbKeyU85Tecla U
vbKeyV86Tecla V
vbKeyW87Tecla W
vbKeyX88Tecla X
vbKeyY89Tecla Y
vbKeyZ90Tecla Z

Desde Key0 hasta Key9 son iguales a sus equivalentes ASCII: '0' hasta '9'




























































ConstanteValorDescripción
vbKey048Tecla 0
vbKey149Tecla 1
vbKey250Tecla 2
vbKey351Tecla 3
vbKey452Tecla 4
vbKey553Tecla 5
vbKey654Tecla 6
vbKey755Tecla 7
vbKey856Tecla 8
vbKey957Tecla 9

Teclas del teclado numérico


























































































ConstanteValorDescripción
vbKeyNumpad096Tecla 0
vbKeyNumpad197Tecla 1
vbKeyNumpad298Tecla 2
vbKeyNumpad399Tecla 3
vbKeyNumpad4100Tecla 4
vbKeyNumpad5101Tecla 5
vbKeyNumpad6102Tecla 6
vbKeyNumpad7103Tecla 7
vbKeyNumpad8104Tecla 8
vbKeyNumpad9105Tecla 9
vbKeyMultiply106Tecla SIGNO DE MULTIPLICACIÓN (*)
vbKeyAdd107Tecla SIGNO MÁS (+)
vbKeySeparator108Tecla INTRO (teclado numérico)
vbKeySubtract109Tecla SIGNO MENOS (-)
vbKeyDecimal110Tecla PUNTO DECIMAL (.)
vbKeyDivide111Tecla SIGNO DE DIVISIÓN (/)

viernes, 26 de diciembre de 2014

Quitar permiso de modificar precio

En ocasiones necesitamos bloquear permiso a usuarios limitados acerca del cambio de precios en el punto de venta.
Sin embargo, algunas versiones de mybusiness POS omite esta restricción o está incompleta. Como alternativa, quiero compartir con ustedes este bloque de código que oculta la columna de precio unitario a los usuarios que no tienen permiso de modificar el precio de venta.

Para comenzar, modificaremos el procedimiento PUNTOV001, el cual se encuentra en ConfiguraciÓn--Personalización--Procedimientos y rutinas de usuario--PUNTOV001

Nos vamos hasta el final del código e identificamos esta línea

End Sub 'Esta es la ultima línea

Antes de esta, colocaremos el bloque de código y quedaría así:

'validamos que sea un usuario con permisos para cambiar precio
Set rstUsuario = Rst( _
"SELECT * FROM usuventas WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )

If Not rstUsuario.EOF Then
If rstUsuario("Precio") = 0 Then
fg2.ColWidth(15) = 0
'Exit Sub
End If
End If
'Finaliza la validación de usuario con privilegios

End Sub 'Esta es la ultima línea
' .


Guardamos los cambios.

Ahora vamos a configurar el usuario limitado en Configuracion--Usuarios
Daremos clic derecho en el usuario y seleccionamos Derechos de Ventas. Deshabilitaremos la opción Cambiar Precio de Venta

sábado, 18 de octubre de 2014

Módulo para salón de belleza y estéticas

Si te interesa un módulo para Salones de belleza y para estéticas; sin diferenciar si eres niña o niño, puedes contactar a nuestro compañero Eduardo González al correo
cctvsolucion@gmail.com

Eso sí, ten en cuenta que un pomo es motivación para desarrollar más módulos y para dar soporte a los existentes.

Saludos
José Félix

martes, 30 de septiembre de 2014

Cómo alinear números en ticket

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 )

sábado, 27 de septiembre de 2014

Cómo quitar espacios y líneas en ticket

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

jueves, 25 de septiembre de 2014

Personalizar comandos en punto de venta

En es sistema buscamos el procedimiento PUNTOV031 (business manager--configuracion--personalizacion--procedimientos y rutinas de usuario)
Dentor de este encontramos la función ValidaComando(). Ahí podemos ver cómo se invoca a las dierentes ventanas, como el Z010, Z009, Z026 y además podemos agregar las que necesitemos personalizar.



Sub ValidaComando()

If clAt( "/", Articulo ) > 0 And clAt( "//", Articulo ) = 0 Then
Call cantidaporPrecio()
Exit Sub
End If


If Trim(UCase(Articulo)) = "COMPRAS" Then
Set Compras = CreateObject( "MyBCompras.Compras" )
Set Compras.Ambiente = Ambiente
Compras.NuevaCompra True
End If

If Len( Trim( Articulo ) ) <> 4 Then
Exit Sub
End If

If clAt( "Z", UCase(Articulo) ) <> 1 Then
Exit Sub
End If

Select Case UCase(Articulo)
Case "Z001"
Script.RunForm "ALTACLIENTE", Me, Ambiente,, True
Case "Z002"
Me.OperacionBloqueada = False
txtFields(3) = "Operación Reactivada"
Case "Z003"
Me.FinalizaOperacion
Case "Z004"
Script.RunForm "ALTARAPIDA", Me, Ambiente,, True
Case "Z005"

If Question(Mensaje(642, Ambiente)) Then
Me.BorraVenta = True
Me.FinalizaOperacion
End If

Case "Z006"

Me.RecuperaVentaDeCliente

Case "Z007"

If txtFields(0).Enabled Then
txtFields(0).SetFocus
End If

Case "Z008"

AplicaDescuento

Case "Z009"

Script.RunProcess "CORTEX", Me, Ambiente

Case "Z010"

Script.RunProcess "CORTEZ", Me, Ambiente

Case "Z011"

Script.RunForm "PAGOEFECTIVO", Me, Ambiente,, True

Case "Z012"

Script.RunForm "COBROENEFECTIVO", Me, Ambiente,, True

Case "Z013"

Set rstUsuventas = CreaRecordSet( "SELECT * FROM usuventas WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )

If rstUsuventas.EOF Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
End If

If Val2( rstUsuventas("devpunto") ) <> 0 Then
Script.RunForm "DEVOLUCIONES", Me, Ambiente, True
'Exit Sub
Else
MyMessage "No tiene derecho a hacer devoluciones, solicite el permiso con su supervisor"
'Exit Sub
End If

Case "Z014"

Script.RunForm "TICKETAFACTURA", Me, Ambiente,, True

'Case "Z016"
'
' Me.ActivaCobranza

Case "Z015"

Script.RunProcess "PUNTOV063", Me, Me.Ambiente

Case "Z016"

Script.RunForm "RETICKET", Me, Ambiente,, True

'Case "Z019"
'
' MyMessage "CONTROL + F12 Editar datos cliente" & vbCrLf & "CONTROL + F7 Editar guión" & vbCrLf & "SHIFT + F3 Colocar cursor en campo repartidor" & vbCrLf & "SHIFT + F4 Alta de repartidor"

Case "Z017"

Script.RunForm "FCAJA", Me, Ambiente,, True

Case "Z018"

Script.RunForm "CAMBIOUSUARIO", Me, Ambiente,, True

'Case "Z022"
'
' Script.RunProcess "VENTASCOLECTOR", Me, Me.Ambiente

Case "Z019"

Calculadora Ambiente

Case "Z020"

Script.RunProcess "ABRECAJON", Me, Me.Ambiente

Case "Z021"

Script.RunForm "AUXCLIENTS", Parent, Ambiente,, True

Case "Z022"

Script.RunProcess "ELIMINAVENTA", Me, Me.Ambiente

Case "Z023"

Script.RunForm "VENTASOBSERV", Me, Ambiente,, True

Case "Z024"

Script.RunForm "VENTASDESC", Me, Ambiente,, True

Case "Z025"

Script.RunForm "CAMBIOVALEEFECTIVO", Me, Me.Ambiente,, True

Case "Z026"

Script.Runform "FACTURADECIERRE", Me, Ambiente,, False

Case "Z027"

Script.RunHuellaForm "REGISTROACCESO", Me, Ambiente,, True

'Case "Z028"

'Script.Runform "LISTADEPEDIDOS", Me, Ambiente,, True


End Select

CancelaProceso = True
txtFields(4) = ""

End Sub


domingo, 14 de septiembre de 2014

Quitar Iconos de Restaurante, Tiempo Aire y Mobile Business

En el sistema existen iconos que no aplican para el negocio y podemos prescindir de ellos.
Vamos a colocar un apóstrofe al inicio de cara linea, con mucho cuidado, en el procedimiento INICIO001, el cual se encuentra en la ruta del Business Manager, Configuracion--Presonalizacion--Procedimientos y rutinas

Guardamos y cerramos MyBusiness POS para que inicie solo con los iconos que nos interesan.
'Este bloque de código se encuentra en INICIO001 (Configuracion--Presonalizacion--Procedimientos y rutinas)

'.Bars.Add ,"Mobile Business", "Mobile Business"


'.Bars("Mobile Business").Items.Add ,"configpocket", "Configurar Pocket PC", 48
'.Bars("Mobile Business").Items.Add ,"inventariopocket", "Capturar Inventario de la Pocket PC", 2
'.Bars("Mobile Business").Items.Add ,"pocket", "Exportar/Importar datos a Pocket PC", 71
'.Bars("Mobile Business").Items.Add ,"confirmaventas", "Confirmar ventas de Pocket PC", 5
'.Bars("Mobile Business").Items.Add ,"creanotas", "Asistente de devoluciones en Pocket PC", 6
'.Bars("Mobile Business").Items.Add ,"creainventariofisico", "Aplicar Inventario Físico de Pocket PC", 27
'.Bars("Mobile Business").Items.Add ,"cargainicial", "Reporte de productos cargados inicialmente a la Pocket PC", 22
'.Bars("Mobile Business").Items.Add ,"ventaspendientes", "Reporte de ventas pendientes generadas por la Pocket PC", 4
'.Bars("Mobile Business").Items.Add ,"articulosvendidos", "Reporte de artículos vendidos desde la Pocket PC", 108




'.Bars.Add ,"TiempoAireYServicios", "Tiempo Aire y Servicios"


'.Bars("TiempoAireYServicios").Items.Add ,"InicializarGreenBox", "Iniciar GreenBox", 147
'.Bars("TiempoAireYServicios").Items.Add ,"AltaGreenBox", "Alta GreenBox", 147
'.Bars("TiempoAireYServicios").Items.Add ,"CajerosGreenBox", "Alta Cajeros GreenBox", 147



'.Bars.Add ,"Restaurante", "Restaurante"


'.Bars("Restaurante").Items.Add ,"Secciones", "Secciones", 137
'.Bars("Restaurante").Items.Add ,"r_impresoras", "Impresoras", 143

'.Bars("Restaurante").Items.Add ,"Touch", "Caja", 53
'.Bars("Restaurante").Items.Add ,"Comandas", "Comandas", 136
'.Bars("Restaurante").Items.Add ,"Reservaciones", "Reservaciones", 140
'.Bars("Restaurante").Items.Add ,"Menu", "Definición de menú", 141



.