No se puede completar la operación ( código error 0×00000709). Compruebe el nombre de la impresora y asegúrese de que la impresora está conectada a la red

Parece una tontería pero a veces pasa mas con el Windows 8 y con el Windows 7.

Este error está generado por el perfil del usuario. En algunos casos cuando no podemos seleccionar ninguna impresora para imprimir.

¿Como solucionar el problema de establecer como impresora predeterminada una de las impresoras que tenemos sin crear un nuevo perfil de usuario?

En Inicio – Ejecutar escribimos Regedit y pulsamos Intro

Entramos en :

HKEY_CURRENT_USER / SOFTWARE / MICROSOFT / WINDOWS NT / CURRENT VERSION / WINDOWS

Nos posicionamos encima de WINDOWS y pulsamos boton derecho del ratón seleccionando con boton izquierdo Permisos

Los permisos deben ser :

Grupo Administradores (<nombre maquina>Administradores> – permiso de permitir Control Total + Leer

Usuario <nombre de usuario> (nombre usuario) – permiso de permitir Control Total + Leer

Grupo Restringido – Permiso de permitir Leer

Grupo SYSTEM – Permiso de permitir Control Total + Leer

Una vez establecidos los permisos Pulsamos Aceptar

El siguiente paso será la creación de esta entrada. Pulsamos en la parte derecha en la zona blanca y seleccionamos Nuevo -> Valor Alfanumérico. Cambiamos el nombre que aparece como Nuevo valor #1 en DEVICE

Seleccionamos DEVICE y pulsamos dos veces boton izquierdo o la tecla INTRO

Coloque el Nombre de la Impresora y de Aceptar

 

Nestor Octavio Guzman Bernal

Desarrollador de Soluciones

Cel.: (722) 7 70 16 56

WhatsApp: (722) 7 70 16 56

 

 

¿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

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

 

Aviso Importante

[products ids="18178, 15042, 15006, 15005" orderby="id" order="desc"]

Estimados usuarios:

---

Hemos implementado una medida de seguridad que podrán conocer

inmediatamente soliciten un nuevo  servicio.                       

Con la finalidad de certificar que están siendo atendidos por nuestro

grupo de Colaboradores.

De antemano Muchas Gracias!!

---

Atentamente

Colaboradores HelpMybusinessPos.Info

Colocar logo en ticket USB

[youtube UPYM_iRZbmg]
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
'

[youtube SzTYpXT_Gdg]

Existe un error al intentar hacer la conexión -2147467259 Proveedor de canalizaciones con nombre: No se pudo abrir una conexión con SQL Server [2]. código duro: 58

Existe un error al intentar hacer la conexión -2147467259 Proveedor de canalizaciones con nombre: No se pudo abrir una conexión con SQL Server [2].  código duro: 58

Causa: El servicio de SQL SERVER no esta habilitado

1. Verifique, primero, que se haya instalado correctamente el servicio de SQL Server.


2. Revise que esté en estado Running: Entrar a inicio/todos los programas/Microsoft SQL server management studio/herramientas de configuración (configuration tools) /Administrador de configuración de SQL server/services: Aquí mostrará los servicios de SQL, seleccionaremos el servicio SQL Server (SQLExpress), clic derecho iniciar. Otra alternativa es ejecutar esta herramienta que les dejo de forma gratuita para que la prueben. La desarrollé y es funcional:

[wpdm_package id='14991']

[wpdm_package id='14953']

¿Cómo reiniciar una contraseña de MyBusiness POS?

Para reiniciar su contraseña, es necesario que conozca un poquito de
SQL, solo para conectarse a la base de datos, con el programa
"Microsoft SQL Management studio" o con la aplicación "Navicat
Enterprise Edition", cualquiera de estas las puede descargar de esta
página de Soporte My Business POS.

[wpdm_package id='15037']

Bueno, una vez instalado, configure su conexión al servidor SQL server

Conéctese a la base de datos y busque la tabla "usuarios".

En la tabla, ubique la columna clave y coloque estas tres letras:
_a\ (guión bajo, a y diagonal invertida, es SUP con un tipo de encriptación)

Guarde y con esto ya podrá acceder con los datos por default del usuario SUP

Inventario en MyBusiness POS con un SmartPhone Android

[wpdm_package id='15130']
[wpdm_package id='15370']

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.

[youtube kbCuM63wncc]

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.

Al dar un clic en un módulo adicional de la barra de tareas

Este es el código fuente del Procedimiento RUNBARRA
RUNBARRA almacena todas las acciones que realizan los iconos de la ventana principal del sistema.
Aqui podemos hacer algunos ajustes para ejecutar nuestras Formas desarrolladas con el Editor de "Ambiente de desarrollo"
' Mybusiness POS v. 2011
Sub Main()
Dim Ventas

Select Case Ambiente.Tag
Case "Series"
Script.RunForm "SERIES", Parent, Ambiente,, False
Case "Verificador"

If Question( "Desea activar el verificador de precios (recuerde desactiva la ventana con ...1 y enter)", 1 ) Then
MuestraVerificador
End If

Case "Reconectar"
CreaConexiones
Case "AltaRapida"
Script.RunForm "ALTARAPIDA", Parent, Ambiente,, False
Case "AltaHotel"
Script.RunForm "ALTASERVICIOS", Parent, Ambiente,, False
Case "MySQLPass"
Script.RunForm "PASSMYSQL", Parent, Ambiente,, False
Case "HotSync"
Script.RunProcess "HOTSYNC", Parent, Ambiente
Case "Ofertas"
Script.RunForm "OFERTAS", Parent, Ambiente,, False
Case "CambioPrecio"
Script.RunForm "CAMBIOPRECIO", Parent, Ambiente,, False
Case "Procedimientos"
MuestraNodo "Procedimientos"
Case "Formatos"
MuestraNodo "formatos"
Case "Reportes"
MuestraNodo "Reportes"
Case "Hermes"
Script.RunForm "OFERTAS2", Parent, Ambiente,, False
Case "Etiquetas2"
Script.RunForm "ETIQUETA2", Parent, Ambiente,, False
Case "InvExcel"
Script.RunForm "PRODSEXCEL", Parent, Ambiente,, False
Case "estados"
Script.RunForm "ESTADOS", Parent, Ambiente,, False
Case "EditarCB"
MuestraDEtiquetas
Case "EditarTicket"
Script.RunForm "EDITORTICKET", Me, Ambiente,, False
Case "EditarGuion"
Script.RunForm "EDITORMENSAJE", Me, Ambiente,, False
Case "Pls2001"
Script.RunForm "EPLS2000", Me, Ambiente,, False
Case "Repartidor"
Script.RunForm "ALTAREPARTIDOR", Me, Ambiente,, False
Case "ImpVentas"
Script.RunForm "IMPVENTAS2", Me, Ambiente,, False
Case "Pacientes"
Script.RunForm "PACIENTES", Me, Ambiente,, False
Case "Bitacoras"
Script.RunForm "BITACORAS", Me, Ambiente,, False
Case "SubirBitacora"
Script.RunForm "SUBIRBITACORAS", Me, Ambiente,, False
Case "prospectos"
' Script puede ejecutar un proceso, una forma de captura, un reporte
' o un formato impreso
Script.RunForm "PROSPECTOS", Me, Ambiente,, False
Case "PreciosEspeciales"
Script.RunForm "PRECIOSESPECIALES", Me, Ambiente,, False

Case "Recostear"
Script.RunForm "COSTEO", Me, Ambiente,, False

Case "Touch"

Set Ventas = CreateObject("MyBVentas.ventas")
Set Ventas.Ambiente = Ambiente
Ventas.ActivaTouch

Case "PuntoVenta2"

Set Ventas = CreateObject("MyBVentas.ventas")
Set Ventas.Ambiente = Ambiente
Ventas.ActivaPuntoDeVenta2

Case "Recalcular"
If Question( "Desea recalcular el inventario", 1 ) Then
Call RecDelta()
End If

Case "Servicios"

ejecuta "CD010"

Case "DatosGenerales"

Me.DatosEmpresa

Case "Mantenimiento"

RepararBaseDedatos

Case "FormatosImpresion"

Formatos

Case "Consecutivos"

'Consecutivos
SetSessionValue Ambiente, "FORMPADRECONSEC", "BUSINESSMANAGER"
Script.RunForm "CONSECUTIVOS", Me, Ambiente,, True

Case "GeneralConsecutivos"

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

Case "BorrarBase"

EliminaDatos

Case "AltaEmpresa"

Script.RunForm "DATOSEMPRESA", Me, Ambiente,, False

Case "CambiarEmpresa"

CambiaEmpresa

Case "RegistroDeLicencia"

AcercaDe

Case "ConfigGeneral"

ConfigGeneral

Case "SincronizarProcedimientos"

SincronizarProcedimientos

Case "Rangos"

establecerPeriodosDeCarpetas

Case "configpocket"
Script.RunForm "CONFIGPOCKETPC", Me, Ambiente,, True
Case "inventariopocket"
Script.RunForm "ENTRADAPOCKET", Me, Ambiente,, True
Case "pocket"
Script.RunForm "EXPORTAIMPORTAPOCKET", Me, Ambiente,, True
'Script.RunProcess "EXPORTAINFOTOPOCKET", Parent, Ambiente
Case "confirmaventas"
Script.RunForm "CONFIRMAVENTAS", Me, Ambiente,, True
Case "creanotas"
Script.RunForm "AsistenteNotasPocket", Me, Ambiente,, True
'Case "creainventariofisico"
'Script.RunForm "INVFISICOPOCKET", Me, Ambiente,, True
Case "reportepedidospk"
EjecutaReporte "PEDIDOSMOBILE"
Case "cargainicial"
EjecutaReporte "PRODSPOCKET"
Case "ventaspendientes"
EjecutaReporte "VENTASMOBILE"
Case "articulosvendidos"
EjecutaReporte "VENTAPRODSMOBILE"

Case "HojaInventario"

Script.RunForm "HOJACOSTOS", Me, Ambiente,, False
'muestraHojaDeInventario

Case "CobroCaja"

Set ventas = CreateObject( "MyBVentas.ventas" )
Set ventas.Ambiente = Me.Ambiente
Ventas.MuestraCobroEncaja

Case "Consulta"

Script.RunForm "CONSULTA", Me, Ambiente,, False

Case "etenvio"

Script.RunForm "ETENVIO", Me, Ambiente,, False

Case "FacturaCierre"

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

Case "series"

activaSeriesSalida

Case "lotes"

activaFormaDeLotes

Case "CambioCosto"

activaFormaDeCambiosDeCosto

Case "ReportesFinancieros"

ShellRun Me.hWnd, "Open", "http://localhost:4410/index.myweb?newsession"

Case "seriesseguimiento"

Script.RunForm "RASTREOSERIE", Me, Ambiente,, False

Case "MBInventario"

Set MBInventario = CreateObject( "MyBArticulos.Articulos" )
Set MBInventario.Ambiente = Ambiente
MBInventario.muestraMBInventario

Case "ordenproduccion"

Set p = CreateObject( "MyBProduccion.produccion" )
Set p.Ambiente = Ambiente
p.NuevaOp

Case "capturaetiquetas"

Set p = CreateObject( "MyBProduccion.produccion" )
Set p.Ambiente = Ambiente
p.MuestraCapturaDeFracciones

Case "seguimiento"

Set p = CreateObject( "MyBProduccion.produccion" )
Set p.Ambiente = Ambiente
p.muestraSeguimiento

Case "destajo"

Script.RunForm "DESTAJO", Me, Ambiente,, False

Case "ordenservicio"

Script.RunForm "ORDENES", Me, Ambiente,, False

Case "BuscarTicket"

Script.RunForm "BUSCATICKET", Me, Ambiente,, False

Case "existenciaremota"

Script.RunForm "EXISTENCIAREMOTA", Me, _
Ambiente, , False

Case "Abonos"

Set Cobranza = CreateObject( "MyBCobranza.Cobranza" )
Set Cobranza.Ambiente = Ambiente
Cobranza.NuevoAbono


Case "ImportarMySQL"

Script.RunForm "IMPORTAMYSQL", Me, Ambiente,, False

Case "Analisis"

Script.RunForm "PRODUCTOSSUGERIDO", Me, Ambiente,, False

Case "UEPS"

Script.RunForm "COSTEOUEPS", Me, Ambiente,, False

Case "PEPS"

Script.RunForm "COSTEOPEPS", Me, Ambiente,, False

Case "Secciones"

Script.RunForm "BUSQUEDASECCIONES", Me, Ambiente,, False

Case "Comandas"

Script.RunProcess "AAMESAS", Me, Ambiente

Case "Reservaciones"

Script.RunProcess "AARESERVACIONES", Me, Ambiente

Case "Backup"

Script.RunForm "RESPALDOBASEDEDATOS", Me, Ambiente,, False

Case "Menu"

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

Case "r_impresoras"

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

Case "CierreTienda"

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

Case "Huella"

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

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


Case "Clientes2"

Script.RunForm "CLIENTES", Me, Ambiente,, False

Case "Proveedores2"

Script.RunForm "PROVEEDORES", Me, Ambiente,, False

Case "FPersonalizados"

Script.RunForm "GENERADORDOCUMENTOS", Me, Ambiente,, False

Case "materiales"

Script.RunForm "HOJADEMATERIALES", Me, Ambiente,, False

Case "imc"

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

Case "RemisionFactura"

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

Case "ImpClientes"

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

Case "ImpProveedores"

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

Case "CambioPrecio"

Script.RunForm "CAMBIOPRECIO", Me, Ambiente,, True
case "ConfigSucursal"

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

Case "FacturaElectronica"
ConfigFile = Ambiente.Path + "\econfig.txt"
BatchFile = Ambiente.Path + "\FElectronica.bat"

Set rstConfiguracion = CreaRecordSet("select * from FEConfig ", Ambiente.Connection)
if not rstConfiguracion.EOF then
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.FileExists(ConfigFile) Then
fso.DeleteFile ConfigFile
End if
If fso.FileExists(BatchFile) Then
fso.DeleteFile BatchFile
End if
If not fso.FolderExists(rstConfiguracion("FileLocation")) Then
fso.CreateFolder(rstConfiguracion("FileLocation"))
End if

outline BatchFile,"@echo off" + vbCrLf
outline BatchFile,"cd " + Ambiente.Path + vbCrLf
outline BatchFile,"start /wait FElectronica.exe" + vbCrLf
outline BatchFile,"exit" + vbCrLf

'ambiente.connection.execute "exec FEInicializaSerie '"+ trim(ambiente.estacion) + "'"
outline ConfigFile,ambiente.connection + vbCrLf
ShellRun Me.hWnd, "Open",Ambiente.Path + "\FElectronica.bat"
end if

Case "Tallas"

Script.RunForm "TallaColModelos", Me, Ambiente,, True
End Select

End Sub

Sub ejecuta( nombreProcedimiento )
Dim rstFormato

Set rstFormato = CreaRecordSet( _
"SELECT * FROM formatos WHERE formato = '" & nombreProcedimiento & "'",_
Ambiente.Connection )

If rstFormato.EOF Then
Exit Sub
End If

' 1.- Tipo de programa
' 2.- Codigo de programacion
' 3.- El objeto Ambiente
' 4.- El objeto padre
Script.Preview rstFormato("tipo"), rstFormato("codigo"), Ambiente, Me

End Sub


Sub EjecutaReporte(reporte)

Dim rstReporte

Set rstReporte = Rst("SELECT * FROM formatosdelta WHERE formato = '" & reporte & "'", Ambiente.Connection )

If rstReporte.EOF Then
Exit Sub
End If

Script.Preview rstReporte("tipo"), rstReporte("codigo"), Ambiente, Me, rstReporte("formato"), ""


End Sub








Al iniciar el sistema

Este es el código fuente del Procedimiento INICIO001
INICIO001 almacena todos los iconos y procedimientos necesarios en la ventana principal del sistema.
Aqui podemos hacer algunos ajustes para agregar iconos de nuestras Formas desarrolladas con el Editor de "Ambiente de desarrollo"
' Mybusiness POS v. 2011
Sub Main()
Dim adXactReadSerializable
Dim adXactReadUncommitted
Dim adXactReadCommitted
Dim adXactRepeatableRead

adXactReadSerializable = 1048576
adXactReadUncommitted = 256
adXactReadCommitted = 4096
adXactRepeatableRead = 65536

' Establecemos el modo de Aislamiento
'Ambiente.Connection.Execute "SET TRANSACTION ISOLATION LEVEL SERIALIZABLE"
Ambiente.Connection.IsolationLevel = adXactReadSerializable

Parent.Timer.Enabled = True
Ambiente.eventRowReports = true
Ambiente.ModoDeDepuracion = True


' Cargamos el listado de Iconos
ModoAvanzado

' Vemos si el usuario tiene pendientes
'Call buscaPendientes


'Set NodX = bmForm.tvTreeView.Nodes.Add("Business", 4, "CarpetaDeUsuario1", "Carpeta Personalizada", 1, 2)

End Sub


Sub ModoAvanzado()

Dim rstUsuario

On Error Resume Next
vbalListBar1.Width = Me.Width / 4
On Error Goto 0

' Vemos si el usuario es supervisor
Set rstUsuario = CreaRecordSet( "SELECT supervisor FROM usuarios WHERE usuario = '" & Ambiente.Uid & "'", Ambiente.Connection )

'Me.vbalImageList1.AddFromFile Ambiente.Path & "\images\recostear.ico", 1, "recostear"
'Eventos

vbalListBar1.Bars.Clear


With vbalListBar1

If parent.bIconosNuevos = True Then
.ImageList = imgBarra
Else
.ImageList = vbalImageList1
End If

.Bars.Add ,"Ventas", "Ventas"
.Bars.Add ,"Restaurante", "Restaurante"

.Bars.Add ,"Compras", "Compras"
.Bars.Add ,"Inventario", "Inventario"
.Bars.Add ,"Utilerias", "Utilerias"
.Bars.Add ,"TiempoAire", "Tiempo Aire"
.Bars.Add ,"FacElectronica", "Factura Electrónica"
.Bars.Add ,"Mobile Business", "Mobile Business"

'.Bars.Add ,"Produccion", "Producción"


' Bars.Add agrega una pestaña a la barra de tareas
' Opcional 1.- El indice de la barra, 2.- La llave
' de la barra, 3.- El titulo de la barra
'.Bars.Add ,"cursoveracruz", "Curso Veracruz"

' Items.Add agrega un icono a la pestaña indicada
' Opcional 1.- El indice, 2.- La llave del icono,
' 3.- Titulo del icono, 4.- Un indice que representa
' un icono entre 1 y 140
'.Bars("cursoveracruz").Items.Add ,"existenciaremota", _
'"Existencias en sucursales", 110


' Le damos acceso a la parte de programación solo si es supervisor
If rstUsuario("supervisor") <> 0 Then
.Bars.Add ,"Configuracion", "Configuración"
.Bars.Add ,"Programacion", "Programación"
End If

For n = 1 To .Bars.Count
.Bars(n).State = 0
Next

.Bars("ventas").State = 1

.Bars("Inventario").Items.Add ,"Articulos", "Artículos", 2
.Bars("Inventario").Items.Add ,"AltaRapida", "Alta Rápida (Artículos)", 45
.Bars("Inventario").Items.Add ,"Tallas", "Tallas y Colores por Modelo", 19
.Bars("Inventario").Items.Add ,"InvExcel", "Importar artículos y existencia desde excel(tm)", 98
.Bars("Inventario").Items.Add ,"Entradas", "Entradas al Inventario", 25
.Bars("Inventario").Items.Add ,"Salidas", "Salidas al Inventario", 26
.Bars("Inventario").Items.Add ,"Fisico", "Inventario físico", 27
.Bars("Inventario").Items.Add ,"Recalcular", "Recalcular Inventario (Promedio)", 29

.Bars("Inventario").Items.Add ,"UEPS", "Recalcular Costeo (UEPS)", 130
.Bars("Inventario").Items.Add ,"PEPS", "Recalcular Costeo (PEPS)", 128

.Bars("Inventario").Items.Add ,"HojaInventario", "Resumen de operaciones", 65

'.Bars("Inventario").Items.Add ,"Recostear", "Recostear Inventario", 99

'.Bars("Inventario").Items.Add ,"PedidosOrdenes", "Recalcular por surtir y por recibir", 35
'.Bars("Inventario").Items.Add ,"Cerrar", "Cerrar inventario", 30

'Rosy 08-Noviembre-2006
'If clAt("MySQL",Ambiente.Connection.ConnectionString) Then
.Bars("Inventario").Items.Add ,"CalidadInventario", "Informe de Calidad de Inventario", 34
'.Bars("Inventario").Items.Add ,"CalidadInventario2", "Informe de Calidad de Inventario (Solo nuevos)", 62
'End If
'Rosy

.Bars("Inventario").Items.Add ,"series", "Números de serie", 101
.Bars("Inventario").Items.Add ,"lotes", "Lotes", 51
.Bars("Inventario").Items.Add ,"Analisis", "Analisis de Inventario", 121

.Bars("Ventas").Items.Add ,"PuntoVenta", "Punto de venta", 7
.Bars("Ventas").Items.Add ,"CierreTienda", "Resumen general de operaciones", 136
.Bars("Ventas").Items.Add ,"RemisionFactura", "Convertir remisiones a factura", 137

.Bars("Ventas").Items.Add ,"Pedidos", "Pedidos de clientes", 4
.Bars("Ventas").Items.Add ,"Facturas", "Facturas", 5
.Bars("Ventas").Items.Add ,"Remisiones", "Remisiones", 6
.Bars("Ventas").Items.Add ,"Clientes2", "Clientes", 16
.Bars("Ventas").Items.Add ,"ImpClientes", "Importar catálogo de clientes desde Excel(tm)", 130
.Bars("Ventas").Items.Add ,"Cobranza", "Cobranza", 10
.Bars("Ventas").Items.Add ,"Devoluciones", "Devoluciones / Notas de crédito", 22

.Bars("Compras").Items.Add ,"OrdenesDeCompra", "Ordenes de Compra", 8
.Bars("Compras").Items.Add ,"Compras", "Compra", 9
.Bars("Compras").Items.Add ,"DevComp", "Devolución de compra", 24
.Bars("Compras").Items.Add ,"Proveedores2", "Proveedores", 17
.Bars("Compras").Items.Add ,"ImpProveedores", "Importar catálogo de proveedores desde Excel(tm)", 130
.Bars("Compras").Items.Add ,"Cxp", "Cuentas por pagar", 11

.Bars("Utilerias").Items.Add ,"EditarTicket", "Editar texto del ticket", 96

.Bars("Utilerias").Items.Add ,"Etiquetas", "Etiquetas de código de barras", 39
.Bars("Utilerias").Items.Add ,"FPersonalizados", "Formatos personalizados (Requiere Microsoft Word)", 139

.Bars("Utilerias").Items.Add ,"Ofertas", "Ofertas", 134
.Bars("Utilerias").Items.Add ,"CambioPrecio", "Cambios de precios", 65
.Bars("Utilerias").Items.Add ,"Bitacoras", "Bitacoras", 41
.Bars("Utilerias").Items.Add ,"SubirBitacora", "Subir Bitacoras", 98
'.Bars("Utilerias").Items.Add ,"Telemercadeo", "Telemercadeo", 13
'.Bars("Utilerias").Items.Add ,"Pendientes", "Pendientes", 14
.Bars("Utilerias").Items.Add ,"EditarFacturas", "Editar formato de factura", 7
.Bars("Utilerias").Items.Add ,"EditarRemisiones", "Editar formato de remisiones", 7
.Bars("Utilerias").Items.Add ,"EditarNc", "Editar formato de Notas de Crédito", 7
'.Bars("Utilerias").Items.Add ,"EditarClientes", "Cartas personalizadas", 7
'.Bars("Utilerias").Items.Add ,"Pls2001", "Generar PLU Para Torrey PLS 2001", 94
.Bars("Utilerias").Items.Add ,"Verificador", "Verificador", 36
.Bars("Utilerias").Items.Add ,"Backup", "Respaldo", 142
.Bars("Utilerias").Items.Add ,"Huella", "Registro de entradas/Salidas de personal", 144
.Bars("Utilerias").Items.Add ,"PruebaHuella", "Prueba Huella", 144
.Bars("Utilerias").Items.Add ,"MBInventario", "MyBusiness Inventario", 129

'.Bars("Produccion").Items.Add ,"ordenproduccion", "Orden de producción", 119
'.Bars("Produccion").Items.Add ,"capturaetiquetas", "Captura de etiquetas", 120
'.Bars("Produccion").Items.Add ,"seguimiento", "Seguimiento del proceso", 121
'.Bars("Produccion").Items.Add ,"destajo", "Pago del destajo", 122

.Bars("TiempoAire").Items.Add ,"ActualizarMontos", "Actualizar montos para venta de tiempo aire", 69

.Bars("FacElectronica").Items.Add ,"ConfigSucursal", "Configuración de Sucursales", 102
.Bars("FacElectronica").Items.Add ,"FacturaElectronica", "Emisión de Facturas Electrónicas", 102

.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 ,"reportepedidospk", "Reporte de Pedidos de la Pocket PC", 121
.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 generadas por la Pocket PC", 4
.Bars("Mobile Business").Items.Add ,"articulosvendidos", "Reporte de artículos vendidos desde la Pocket PC", 108

If rstUsuario("supervisor") <> 0 Then

'.Bars("Configuracion").Items.Add ,"DatosGenerales", "Conexión a la base de datos", 100
.Bars("Configuracion").Items.Add ,"ConfigGeneral", "Datos generales de la empresa", 109

If clAt( "MySQL", Ambiente.Connection ) Then
.Bars("Configuracion").Items.Add ,"Mantenimiento", "Mantenimiento a la base de datos", 101
End If

.Bars("Configuracion").Items.Add ,"FormatosImpresion", "Establecer Formatos de Impresión", 102
.Bars("Configuracion").Items.Add ,"Consecutivos", "Consecutivos de impresión", 103
.Bars("Configuracion").Items.Add ,"GeneralConsecutivos", "General de consecutivos de impresión", 117
.Bars("Configuracion").Items.Add ,"BorrarBase", "Borrar Base de Datos", 104
.Bars("Configuracion").Items.Add ,"AltaEmpresa", "Manejo de conexiones a base de datos", 105
.Bars("Configuracion").Items.Add ,"CambiarEmpresa", "Cambiar de conexión", 106
.Bars("Configuracion").Items.Add ,"SincronizarProcedimientos", "Sincronizar Procedimientos", 110
.Bars("Configuracion").Items.Add ,"Rangos", "Rangos de vista del Business Manager", 111
.Bars("Configuracion").Items.Add ,"RegistroDeLicencia", "Acerca de...", 107
.Bars("Programacion").Items.Add ,"EditorFormas", "Ambiente de desarrollo", 42
.Bars("Programacion").Items.Add ,"Busquedas", "Editor de busquedas", 18
.Bars("Programacion").Items.Add ,"EditorSQL", "Editor de SQL", 19
.Bars("Programacion").Items.Add ,"ImportarMySQL", "Importar de MySQL", 101
End If

.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


If rstUsuario("supervisor") <> 0 Then
If clAt( "MySQL", Ambiente.Connection ) > 0 Then
.Bars("Utilerias").Items.Add ,"MySQLPass", "Establecer password de MySQL", 46
End If
End If

End With

End Sub


Sub buscaPendientes()

Set rstPendientes = CreaRecordSet( "SELECT * FROM pendient WHERE para = '" & Ambiente.Uid & "' AND estado = 'PE' AND fecha = " & fechaSQL( fecha ), _
Ambiente.Connection )

If Not rstPendientes.EOF Then
Set Clientes = CreateObject( "MyBClientes.Clientes" )
Set Clientes.Ambiente = Me.Ambiente
Clientes.MuestraPendientes
End If

End Sub



También podemos solucionar este error, desde whatsapp 7222816462:
Error Número 429

Module: frminicio
Function: vbalListBar1_ItemClick
Description: ActiveX Component can´t create object
Código duro 24
Error Número 429


Cómo solucionar el Error de Reportes en Blanco?

A varios usuarios les ha sucedido que no pueden visualizar los reportes de manera correcta; solo se alcanza a visualizar un poco que se está cargando el reporte, pero al momento de mostrarlo se queda casi en blanco toda la ventana.

La solución que les comparto en esta ocasión tal vez suena muy simple,  sin embargo, estoy seguro que a más de uno le va a ser útil.

Debe configurar su equipo al idioma Español (México).

Esto se logra siguiendo la ruta INICIO -- PANEL DE CONTROL -- CONFIGURACION REGIONAL Y DE IDIOMA.

Ahi Seleccionamos el idioma Español de México  y también se recomienda la ubicación México.

Esto además soluciona el problema de que los aprecios de los artículos se ven en miles o millones de pesos (cuando en realidad su valor es unos pesos y algunos centavos).

Espero haber aportado algo para todos los visitantes del blog. cualquier duda contactarme a jofelchez@gmail.com

Implementar una Solución de Punto de Venta

En este Post vamos ah hacer un poco referencia al proceso de implementación de la Solución de Punto de Venta,  la cual considero que es importante tener en cuenta al momento de ofrecer la propuesta al cliente. Con ello, evitamos malos entendidos con este último y a la vez como Distribuidores tendremos un plan mejor definido.

A continuación te dejo un pequeño diagrama que podría ser muy útil.

[gview file="http://helpmybusinesspos.info/wp-content/Descargas/Esquema_Trabajo_MyBusinessPOS.pdf" authonly="1"]

Como nos damos cuenta, como distribuidores debemos ser lso facilitadores para que el usuario haga buen uso del software, que explote las herramientas disponibles de manera apropiada. Además el hecho si el usuario considera que su Distribuidor le va a dar de alta todo su catálogo de productos y su inventario, se debe realizar una cotización adicional; ya que es una carga de trabajo más que no se considera en la Solución Inicial.

Bueno, esa ha sido mi experiencia en el Mercado de Punto de Venta. Si algún compañero tiene algunos tips adicionales al respecto, serán bien recibidos.

Saludos Cordiales.

Cómo cambiar letra en ticket MyBusiness y el Logo en un Ticket (Solucionado)

.
Información más reciente en http://helpmybusinesspos.info
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 (la de enmedio, para ser claros) 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.