Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Para averiguar la compilación de MyBusiness POS 2012 es necesario ir al menú Configuración–Acerca de
Ahí aparecerá la versión y compilación:
Una vez que sabemos este dato, ya podremos solicitar la licencia genuina.
Error al generar la factura: Error: Error: System.lo.l0Exception: El parámetro no es correcto.
en System.IO._Error.Win|OError(Int32 errorCode, String maybeFuIlPath)
en System.l0.FileStream.lnit(String path, FileMode mode. FiIeAccess access, lnt32 rights, Boolean useRights, FileShare share, lnt32 bufferSize. FileOptions options, SECURITY_ATTRIBUTES secAttrs, String msgPath, Boolean bFromProxy, Boolean useLongPath,
La causa puede ser el antivirus por algún bloqueo de puerto.
El timbrado de la factura Electrónica es un proceso que conlleva algunos segundos extra al momento de hacer las ventas; sin embargo, existen herramientas que pueden apoyarnos a conectar MYBusiness POS con el PAC.
MyBusiness POS y FacturadorElectrónico
He desarrollado la herramienta que permite realizar la conexión de MyBusinessPOS 2012 con FacturadorElectrónico. Con este método, cada factura tarda menos de 10 segundos en ser timbrada.
Además, te puedo apoyar en el registro con el PAC, solo solicítalo al correo jofelchez@gmail.com
El funcionamiento del PAC se explica en este video:
Descarga la nueva versión de MyBusiness POS ahora!!!
https://youtu.be/sF3rZa9Mb8A
Bueno pues mucha suerte y éxito a todos.
Información obtenida de www.mybusinesspos.com
Congregar a la comunidad de distribuidores de MyBusiness POS de todo el país, con los más importantes fabricantes y mayoristas de equipo POS, en un evento para la capacitación y potenciación de su capacidad de ventas.
17 al 20 de mayo de 2012
Hotel Great Parnassus. Cancún, Q. Roo.
Conocerás las novedades de los productos de los principales fabricantes de hardware POS.
Convivirás durante tres días con dichos fabricantes para abordar negocios potenciales.
Convivirás con los más importantes mayoristas de POS.
Hasta el 20 de febrero: $2,500.00*
Hasta el 20 de marzo: $2,750.00 *
Hasta el 20 de abril: $3,000.00 *
Hasta el 30 de abril: $3,500.00 *
* Precios netos por persona con base en ocupacion doble.
– Una cama en habitación doble por cuatro días y tres noches en el Hotel Great Parnassus en Cancún, Quintana Roo.
– Conferencias de fabricantes y mayoristas.
– Una licencia de MyBusiness POS para reventa para los que asistan a todas las conferencias y mesas demostrativas.
– 3 desayunos para una persona.
– 3 comidas para una persona.
– 3 cenas para una persona.
El número máximo de asistentes por empresa es de 2. En el caso de que asistan cónyuges tienen que comprobar que laboran en la misma empresa.
EL CUPO ES LIMITADO y está diseñado para distribuidores realmente interesados en generar negocio y asistir a todas las pláticas y talleres.
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
