Autor: jose felix

Desarrollador de módulos para el software MyBusiness POS
Publicado el por

DESCONECTA001 Actualiza los catálogos para la venta desconectada

'----**** 
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----**** 
Public Sub Main()

    ' Importamos precios especiales
    ImportaArticlien    

    ' Importamos clientes
    ImportaClientes

    ' Importa conceptos de cuentas por cobrar
    ImportaConcxc

    ' Importando definición de formatos de impresión
    ImportaDefform

    ' Borramos el flujo que tenga la caja en este momento
    BorraFlujo

    ' Importamos los impuestos
    ImportaImpuestos

    ' Importamos los articulos
    ImportaBitacoras

    ' Importando las estaciones de trabajo
    ImportaEstaciones
    

End Sub


Public Sub ImportaArticlien()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM articlien", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM articlien"

    Set Progress = NewProgress()    

    if r.RecordCount > 0 Then
       Progress.Anim r.RecordCount, "Importando precios especiales", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & r("articulo")          

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "articlien","Cliente" , r("cliente")
          Query.AddField "articlien","Articulo", r("articulo")
          Query.AddField "articlien","Precio"  , r("precio")
          Query.AddField "articlien","usuFecha", r("usufecha")
          Query.AddField "articlien","usuHora" , r("usuhora")
          Query.AddField "articlien","usuario" , r("usuario")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub ImportaClavesAdd( cArticulo )

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM clavesadd WHERE articulo = '" & cArticulo & "'", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM clavesadd WHERE articulo = '" & cArticulo & "'"

    While Not r.EOF
      
          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "clavesadd","Clave"     , r("clave")
          Query.AddField "clavesadd","Dato1"     , r("dato1")
          Query.AddField "clavesadd","Usuario"   , r("usuario")
          Query.AddField "clavesadd","usuFecha"  , r("usufecha")
          Query.AddField "clavesadd","usuHora"   , r("usuhora")
          Query.AddField "clavesadd","Dato2"     , r("dato2")
          Query.AddField "clavesadd","Articulo"  , r("articulo")
          Query.AddField "clavesadd","Cantidad"  , r("cantidad")
          Query.AddField "clavesadd","Unidad"    , r("unidad")
          Query.AddField "clavesadd","Existencia", r("existencia")
          Query.AddField "clavesadd","Libre"     , r("libre")
          Query.AddField "clavesadd","Exportado" , r("exportado")
          Query.AddField "clavesadd","Precio"    , r("precio")
          Query.AddField "clavesadd","ALM1"      , r("alm1")
          Query.AddField "clavesadd","ALM2"      , r("alm2")
          Query.AddField "clavesadd","ALM3"      , r("alm3")
          Query.AddField "clavesadd","ALM4"      , r("alm4")
          Query.AddField "clavesadd","ALM5"      , r("alm5")
          Query.AddField "clavesadd","ALM6"      , r("alm6")
          Query.AddField "clavesadd","ALM7"      , r("alm7")
          Query.AddField "clavesadd","ALM8"      , r("alm8")
          Query.AddField "clavesadd","ALM9"      , r("alm9")
          Query.AddField "clavesadd","ALM10"     , r("alm10")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

End Sub


Public Sub ImportaClientes()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSet( "SELECT COUNT(*) FROM clients", Ambiente.Connection )
    nCuantos = Val2( r(0) )
    Set r = CreaRecordSet( "SELECT * FROM clients", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM clients"

    Set Progress = NewProgress()    

    if nCuantos > 0 Then
       Progress.Anim nCuantos, "Importando clientes", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & r("cliente") & " " & r("nombre")

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "clients","CLIENTE", r("cliente")
          Query.AddField "clients","NOMBRE", r("nombre")
          Query.AddField "clients","CALLE", r("calle")
          Query.AddField "clients","COLONIA", r("colonia")
          Query.AddField "clients","POBLA", r("pobla")
          Query.AddField "clients","ESTADO", r("estado")
          Query.AddField "clients","PAIS", r("pais")
          Query.AddField "clients","TELEFONO", r("telefono")
          Query.AddField "clients","DIAS", r("dias")
          Query.AddField "clients","CREDITO", r("credito")
          Query.AddField "clients","DESC1", r("desc1")
          Query.AddField "clients","DESC2", r("desc2")
          Query.AddField "clients","DESC3", r("desc3")
          Query.AddField "clients","DESC4", r("desc4")
          Query.AddField "clients","DESC5", r("desc5")
          Query.AddField "clients","RFC", r("rfc")
          Query.AddField "clients","TIPO", r("tipo")
          Query.AddField "clients","CONTACTO", r("contacto")
          Query.AddField "clients","COBRADOR", r("cobrador")
          Query.AddField "clients","VEND", r("vend")
          Query.AddField "clients","PRECIO", r("precio")
          Query.AddField "clients","CP", r("cp")
          Query.AddField "clients","PROSPECT", r("prospect")
          Query.AddField "clients","REVISION", r("revision")
          Query.AddField "clients","OBSERV", r("observ")
          Query.AddField "clients","ZONA", r("zona")
          Query.AddField "clients","CORREO", r("correo")
          Query.AddField "clients","URL", r("url")
          Query.AddField "clients","SALDO", r("saldo")
          Query.AddField "clients","USUARIO", r("usuario")
          Query.AddField "clients","USUHORA", r("usuhora")
          Query.AddField "clients","USUFECHA", r("usufecha")
          Query.AddField "clients","PROVEEDOR", r("proveedor")
          Query.AddField "clients","CURB", r("curb")
          Query.AddField "clients","CORTE", r("corte")
          Query.AddField "clients","COBRO", r("cobro")
          Query.AddField "clients","CONCEPTO", r("concepto")
          Query.AddField "clients","INGRESO", r("ingreso")
          Query.AddField "clients","bloqueado",  r("bloqueado")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub ImportaConcxc()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM concxc", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM concxc"

    Set Progress = NewProgress()    

    if r.RecordCount > 0 Then
       Progress.Anim r.RecordCount, "Importando conceptos de cuentas por cobrar", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & r("clave_con") & " " & r("descrip")

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "concxc","CLAVE_CON", r("clave_con")
          Query.AddField "concxc","DESCRIP", r("descrip")
          Query.AddField "concxc","TIPO_CXC", r("tipo_cxc")
          Query.AddField "concxc","FIJO", r("fijo")
          Query.AddField "concxc","INGRESO", r("ingreso")
          Query.AddField "concxc","FORMATO", r("formato")
          Query.AddField "concxc","USUARIO", r("usuario")
          Query.AddField "concxc","USUFECHA", r("usufecha")
          Query.AddField "concxc","USUHORA", r("usuhora")
          Query.AddField "concxc","COMISION", r("comision")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub ImportaDefform()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM defform", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM defform"

    Set Progress = NewProgress()    

    if r.RecordCount > 0 Then
       Progress.Anim r.RecordCount, "Importando definición de formatos de impresión", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & n

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "defform","FACTURAS", r("facturas") 
          Query.AddField "defform","REMISIONES", r("remisiones")
          Query.AddField "defform","VENTAS", r("ventas")
          Query.AddField "defform","DEVOLUC", r("devoluc")
          Query.AddField "defform","COMPRAS", r("compras")
          Query.AddField "defform","DEVCOMP", r("devcomp")
          Query.AddField "defform","SALIDAS", r("salidas")
          Query.AddField "defform","ENTRADAS", r("entradas")
          Query.AddField "defform","PEDIDOS", r("pedidos")
          Query.AddField "defform","COTIZA", r("cotiza")
          Query.AddField "defform","ORDEN", r("orden")
          Query.AddField "defform","TICKET", r("ticket")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub BorraFlujo()
    
    Ambiente.Connection.Execute "DELETE FROM flujo"   

End Sub



Public Sub ImportaImpuestos()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM impuestos", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM impuestos"

    Set Progress = NewProgress()    

    if r.RecordCount > 0 Then
       Progress.Anim r.RecordCount, "Importando impuestos", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & n

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "impuestos","Impuesto", r("impuesto")
          Query.AddField "impuestos","Descrip", r("Descrip")
          Query.AddField "impuestos","Valor", r("Valor")
          Query.AddField "impuestos","Usuario", r("usuario")
          Query.AddField "impuestos","usuFecha", r("usufecha")
          Query.AddField "impuestos","usuHora", r("usuhora")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub


Public Sub ImportaProds( nBitacora )

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSet( "SELECT COUNT(*) FROM histcamb WHERE bitacora = " & nBitacora & " ORDER BY sucursal", Ambiente.Connection )
    nCuantos = Val2(r(0))
    Set r = CreaRecordSet( "SELECT histcamb.*, prods.descrip, prods.granel, prods.impuesto, prods.bajocosto, prods.bloqueado FROM histcamb INNER JOIN prods USING( articulo ) WHERE histcamb.bitacora = " & nBitacora, Ambiente.Connection )

    Set Progress = NewProgress()    

    if nCuantos > 0 Then
       Progress.Anim nCuantos, "Importando bitacora " & nBitacora, Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando: " & r("articulo") & " " & r("descrip")

          Query.Reset

          Set rstProd = CreaRecordSet( "SELECT articulo FROM prods WHERE articulo = '" & r( "articulo" ) & "'", Ambiente.ConfigConnection )

          if rstProd.EOF Then
             Query.strState = "INSERT"
          else
             Query.strState = "UPDATE"
             Query.Condition = "articulo = '" & r("articulo") & "'"
          end if

          Query.AddField "prods","ARTICULO", r("articulo")
          Query.AddField "prods","DESCRIP", r("descrip")
          Query.AddField "prods","LINEA", "SYS"
          Query.AddField "prods","MARCA", "SYS"
          Query.AddField "prods","PRECIO1", r("precio1")
          Query.AddField "prods","PRECIO2", r("precio2")
          Query.AddField "prods","PRECIO3", r("precio3")
          Query.AddField "prods","PRECIO4", r("precio4")
          Query.AddField "prods","PRECIO5", r("precio5")
          Query.AddField "prods","PRECIO6", r("precio6")
          Query.AddField "prods","PRECIO7", r("precio7")
          Query.AddField "prods","PRECIO8", r("precio8")
          Query.AddField "prods","PRECIO9", r("precio9")
          Query.AddField "prods","PRECIO10", r("precio10")
          Query.AddField "prods","EXISTENCIA", 0
          Query.AddField "prods","COSTO_U", 0
          Query.AddField "prods","COSTO", 0
          Query.AddField "prods","UNIDAD", "SYS"
          Query.AddField "prods","POR_RECIB", 0
          Query.AddField "prods","POR_SURT", 0
          Query.AddField "prods","IMPUESTO", r("impuesto")
          Query.AddField "prods","MINIMO", 0
          Query.AddField "prods","MAXIMO", 0
          Query.AddField "prods","OBSERV", ""
          Query.AddField "prods","COSTO_STD", 0
          Query.AddField "prods","KIT", 0
          Query.AddField "prods","SERIE", 0
          Query.AddField "prods","LOTE", 0
          Query.AddField "prods","INVENT", 0
          Query.AddField "prods","ALM1", 0
          Query.AddField "prods","ALM2", 0
          Query.AddField "prods","ALM3", 0
          Query.AddField "prods","ALM4", 0
          Query.AddField "prods","ALM5", 0
          Query.AddField "prods","ALM6", 0
          Query.AddField "prods","ALM7", 0
          Query.AddField "prods","ALM8", 0
          Query.AddField "prods","ALM9", 0
          Query.AddField "prods","ALM10", 0
          Query.AddField "prods","IMAGEN", ""
          Query.AddField "prods","PARAVENTA", 1
          Query.AddField "prods","URL", ""
          Query.AddField "prods","Curso", 0
          Query.AddField "prods","USUARIO", ""
          Query.AddField "prods","USUHORA", ""
          Query.AddField "prods","USUFECHA", Date
          Query.AddField "prods","Exportado", 0
          Query.AddField "prods","EN_VENTA", 0
          Query.AddField "prods","Recalcular", 0
          Query.AddField "prods","Granel", r("granel")
          Query.AddField "prods","Peso", 0
          Query.AddField "prods","BajoCosto", r("bajocosto")
          Query.AddField "prods","Bloqueado", r("bloqueado")
          Query.AddField "prods","U1", 0
          Query.AddField "prods","U2", 0
          Query.AddField "prods","U3", 0
          Query.AddField "prods","U4", 0
          Query.AddField "prods","U5", 0
          Query.AddField "prods","U6", 0
          Query.AddField "prods","U7", 0
          Query.AddField "prods","U8", 0
          Query.AddField "prods","U9", 0
          Query.AddField "prods","U10", 0
          Query.AddField "prods","Acaja", 0
          Query.AddField "prods","MODIFICAPRECIO", 0
          Query.AddField "prods","Fraccionario", 0
          Query.AddField "prods","IESPECIAL", 0
          Query.AddField "prods","UBICACION", "SYS"
          Query.AddField "prods","C2", r("c2")
          Query.AddField "prods","C3", r("c3")
          Query.AddField "prods","C4", r("c4")
          Query.AddField "prods","C5", r("c5")
          Query.AddField "prods","C6", r("c6")
          Query.AddField "prods","C7", r("c7")
          Query.AddField "prods","C8", r("c8")
          Query.AddField "prods","C9", r("c9")
          Query.AddField "prods","C10", r("c10")
          Query.AddField "prods","Movimientos", 0
          Query.AddField "prods","Clasificacion", ""
          Query.AddField "prods","ROP", 0
          Query.AddField "prods","rotacion", 0
          Query.AddField "prods","clasifant", ""
          Query.AddField "prods","eoq", 0
          Query.AddField "prods","etiquetas", 0
          Query.AddField "prods","modelo", ""
          Query.AddField "prods","color", ""
          Query.AddField "prods","talla", ""
          Query.CreateQuery
          Query.Execute

          ImportaClavesAdd r("articulo")

          r.MoveNext
    Wend    

    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub ImportaEstaciones()

    Set Query = NewQuery
    Set Query.Connection = Ambiente.ConfigConnection 

    Set r = CreaRecordSetEnCliente( "SELECT * FROM estaciones WHERE estacion = '" & Ambiente.Estacion & "'", Ambiente.Connection )
    Ambiente.ConfigConnection.Execute "DELETE FROM estaciones"

    Set Progress = NewProgress()    

    if r.RecordCount > 0 Then
       Progress.Anim r.RecordCount, "Importando estaciones", Ambiente.Path & "\Images\Gears.Avi"    
    end if 
    
    n = 0

    While Not r.EOF
      
          n = n + 1
          Progress.Valor n, "Procesando estacion: " & Ambiente.Estacion

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "estaciones","Estacion", r("estacion")
          Query.AddField "estaciones","Moneda", r("moneda")
          Query.AddField "estaciones","Almacen", r("almacen")
          Query.AddField "estaciones","Venta", r("venta")
          Query.AddField "estaciones","Lector", r("lector")
          Query.AddField "estaciones","ImpFact", r("impfact")
          Query.AddField "estaciones","TantosFac", r("tantosfac")
          Query.AddField "estaciones","ImpRem", r("ImpRem")
          Query.AddField "estaciones","TantosRem", r("TantosRem")
          Query.AddField "estaciones","TantosDev", r("TantosDev")
          Query.AddField "estaciones","ImpDev", r("ImpDev")
          Query.AddField "estaciones","CobroFac", r("CobroFac")
          Query.AddField "estaciones","CobroRem", r("CobroRem")
          Query.AddField "estaciones","CommPort", r("CommPort")
          Query.AddField "estaciones","DigitoComm", r("DigitoComm")
          Query.AddField "estaciones","VentaRapida", r("VentaRapida")
          Query.AddField "estaciones","Velocidad", r("Velocidad")
          Query.AddField "estaciones","AGENTE", r("agente")
          Query.AddField "estaciones","RPRODS", r("rprods")
          Query.AddField "estaciones","RCLIENTES", r("rclientes")
          Query.AddField "estaciones","MUSICA", r("musica")
          Query.AddField "estaciones","Cajon", r("cajon")
          Query.AddField "estaciones","CambiarDoc", r("cambiardoc")
          Query.AddField "estaciones","COMPRARAPIDA", r("comprarapida")
          Query.AddField "estaciones","PAGACOMPRA", r("pagacompra")
          Query.AddField "estaciones","PartFac", r("partfac")
          Query.AddField "estaciones","MONITOR", r("monitor")
          Query.AddField "estaciones","SerieLote", r("SerieLote")
          Query.AddField "estaciones","Pagos", r("pagos")
          Query.AddField "estaciones","Precant", r("precant")
          Query.AddField "estaciones","ConcentraVentas", r("ConcentraVentas")
          Query.AddField "estaciones","Servidor", r("Servidor")
          Query.AddField "estaciones","Bitacora", r("Bitacora")
          Query.AddField "estaciones","Gastos", r("Gastos")
          Query.AddField "estaciones","Viaje", r("Viaje")
          Query.AddField "estaciones","cobroencaja", r("cobroencaja")
          Query.AddField "estaciones","vencomp", r("vencomp")
          Query.AddField "estaciones","Incrementos", r("Incrementos")
          Query.AddField "estaciones","CallerId", r("CallerId")
          Query.AddField "estaciones","unidadespunto", r("unidadespunto")
          Query.AddField "estaciones","recestaciones", r("recestaciones")
          Query.AddField "estaciones","existenciapunto", r("existenciapunto")
          Query.AddField "estaciones","enventa", r("enventa")
          Query.AddField "estaciones","porsurt", r("porsurt")
          Query.AddField "estaciones","autorizapedido", r("autorizapedido")
          Query.AddField "estaciones","intereses", r("intereses")
          Query.AddField "estaciones","decimales", r("decimales")
          Query.AddField "estaciones","ndecimales", r("ndecimales")
          Query.AddField "estaciones","scajon", r("scajon")
          Query.AddField "estaciones","pcajon", r("pcajon")
          Query.AddField "estaciones","bascula", r("bascula")
          Query.AddField "estaciones","basculalector", r("basculalector")
          Query.AddField "estaciones","procbascula", r("procbascula")
          Query.AddField "estaciones","pbascula", r("pbascula")
          Query.AddField "estaciones","vbascula", r("vbascula")
          Query.AddField "estaciones","bitbascula", r("bitbascula")
          Query.AddField "estaciones","paridadbascula", r("paridadbascula")
          Query.AddField "estaciones","torreta", r("torreta")
          Query.AddField "estaciones","proctorreta", r("proctorreta")
          Query.AddField "estaciones","ptorreta", r("ptorreta")
          Query.AddField "estaciones","vtorreta", r("vtorreta")
          Query.AddField "estaciones","bittorreta", r("bittorreta")
          Query.AddField "estaciones","paridadtorreta", r("paridadtorreta")
          Query.AddField "estaciones","inventario", r("inventario")
          Query.AddField "estaciones","precios", r("precios")
          Query.AddField "estaciones","lectorserial", r("lectorserial")
          Query.AddField "estaciones","proclector", r("proclector")
          Query.AddField "estaciones","plector", r("plector")
          Query.AddField "estaciones","Desconectado", r("Desconectado")
          Query.CreateQuery
          Query.Execute
          r.MoveNext
    Wend    



    if n > 0 Then
       Progress.Destroy
    end if

End Sub



Public Sub ImportaBitacoras

    Set Query = NewQuery()
    Set Query.Connection = Ambiente.configConnection
    
    Set rstMaxBitacora = CreaRecordSet( "SELECT MAX( bitacora ) FROM bitproc", Ambiente.configConnection )
    nSiguiente = Val2(rstMaxBitacora(0)) + 1
    
    Set rstBitacoras = CreaRecordSet( "SELECT * FROM bitacora WHERE id >= " & nSiguiente, Ambiente.Connection ) 

    While Not rstBitacoras.EOF 

          ImportaProds rstBitacoras("id")

          Query.Reset
          Query.strState = "INSERT"
          Query.AddField "Bitproc", "bitacora", rstBitacoras("id")
          Query.AddField "Bitproc", "fecha", Date
          Query.AddField "Bitproc", "hora", Libreria.Formato( Time, "hh:mm:ss" )
          Query.CreateQuery
          Query.Execute

          rstBitacoras.MoveNext
    Wend

End Sub
Publicado el por — Dejar un comentario

El Club Jose Felix

Únete al club de distribuidores y aprovecha los beneficios exclusivos para que ofrezcas valor agregado a tus clientes.

Whatsapp El Club HelpMBP Distribuidores

Unirte al Club Help MBP Distribuidores

Canal oficial de Video Tutoriales

Gracias por formar parte del Club Help MBP Distribuidores.

El principal objetivo del club es apoyarnos mutuamente y formar una comunidad que aporta dudas y experiencias. Comprendemos que las respuestas son voluntarias y cada persona responde de acuerdo a sus circunstancias, por lo cual puede o no funcionar en otros usuarios.

Políticas de venta de Módulos

• Se les invita a los desarrolladores a ponerse en contacto con nosotros, José Félix, Néstor Guzmán.

• El Vendedor dará conocimiento al Moderador de la venta del Módulo/Procedimiento/Forma
• El Vendedor deberá aportar el 20% de la venta a (Jose Félix Sanchez )
• El comprador deberá de dar conocimiento al Moderador de conformidad de recibido.

Nota :
En caso de que el vendedor no cumpla con las políticas se dará de baja del Club.

En el apoyo se conforma un grupo fuerte y sólido.

Gracias por tu confianza
Help MBP

Unirte al Club HelpMBP Ahora

Whatsapp El Club HelpMBP Distribuidores

Contáctanos si tienes alguna duda adicional.

Metadatos:

  • my business pos 2017,
  • my business pos 2017 manual,
  • my business pos 2017,
  • my business pos distribuidores
  • my business pos 2017 precio,
  • descargar my business pos 2017,
  • licencia my business pos 2017,
  • my business pos 2017,
  • licencia my business pos 2017,
  • pos business,
  • my business pos 2017 precio,
  • mybusinesspos desarrollos,
  • my business pos cursos,
  • distribuidor my business,
  • costo licencia my business pos,
  • my business pos restaurant,
  • my business pos restaurant
  • my business pos gratis
  • my business pos distribuidores
  • help my business pos
  • my business pos 2017 manual
  • licencia my business pos 2017
  • my business pos 2017
Publicado el por — Dejar un comentario

Cómo echar a andar VidIQ en opera en 2024

Esta es la solución definitiva para instalar VidIQ en opera y opera GX

https://chrome.google.com/webstore/old

Publicado el por — Dejar un comentario

Cómo Automatizar de Ventas Periódicas en MyBusiness POS

¡Nueva herramienta de ventas periódicas ya disponible en MyBusiness POS!

Nos complace anunciar que hemos desarrollado una funcionalidad revolucionaria para realizar ventas periódicas, que incluyen opciones diarias, semanales, mensuales y anuales. Esta emocionante herramienta incorporada en MyBusiness POS permite la generación automática de facturas, ahorrando tiempo y esfuerzo para nuestros usuarios.

Icono

Automatización de ventas periódicas

1 archivo(s) 10.99 KB
Descarga

El proceso es sencillo y eficiente: la venta periódica se crea a partir de una venta anterior, que actúa como un patrón a seguir. De esta manera, nuestros clientes pueden establecer patrones de ventas recurrentes y dejar que el sistema se encargue del resto.

Una vez que la venta periódica ha sido generada automáticamente, el importe correspondiente se agrega automáticamente a las cuentas por cobrar. Esto facilita la gestión de cobranzas y asegura un flujo de ingresos más organizado y controlado.

Nuestra solución ha sido diseñada para adaptarse a diversas industrias y negocios. Es ideal para arrendadoras, empresas de servicios de renta, gimnasios, estacionamientos y pensiones, entre otros. No importa cuál sea el giro de tu negocio, nuestra herramienta de ventas periódicas puede mejorar significativamente tu eficiencia operativa y simplificar tu proceso de facturación.

No pierdas la oportunidad de optimizar tus ventas y aumentar la productividad de tu negocio. ¡Implementa ya la funcionalidad de ventas periódicas en MyBusiness POS y experimenta la comodidad de la automatización en tus operaciones diarias!

Automatización de Ventas Periódicas en MyBusiness POS,
Automatiza tus ventas con la nueva funcionalidad de MyBusiness POS,
Optimiza tus ingresos con ventas periódicas en MyBusiness POS,
Facilita tu facturación con ventas periódicas en MyBusiness POS,
Genera facturas automáticamente con nuestra herramienta de ventas periódicas,
Ahorra tiempo y esfuerzo con ventas periódicas en MyBusiness POS,
Incrementa tu productividad con ventas recurrentes en MyBusiness POS,
Gestiona tus cobros fácilmente con ventas periódicas en MyBusiness POS,
Ventas periódicas: la solución para tu negocio en MyBusiness POS,
MyBusiness POS: Tu aliado para ventas periódicas eficientes,
Descubre la comodidad de la automatización con ventas periódicas en MyBusiness POS,

 

Publicado el por — 2 comentarios

Cómo ofrecer flexibilidad a tus clientes con Pagos Parciales y Apartados

Hoy les voy a hacer una demostración en tiempo presente de cómo manejamos el apartado y el saldo a favor para nuestros clientes.

Icono

Recarga de SALDO A FAVOR del Cliente

1 archivo(s) 56.66 KB
Descarga

  • 1. Presionar la tecla F4 para mostrar el texto sobre el saldo a favor.
  • 2. Agregar saldo a favor para el cliente Juan Pérez, quien tiene 3,114.91 pesos a favor y una deuda de 6 pesos en cobranza.
  • 3. Depositar 300 pesos al cliente, convirtiendo el saldo a favor en un depósito del cliente, quedando un total de 3,314.91 pesos a su favor.
  • 4. Realizar una venta para aplicar el saldo a favor a la compra de Juan Pérez. Presionar F5 e ingresar 90 por 510 pesos.
  • 5. Verificar el saldo a favor de 3,314.91 pesos y asignar 43 pesos como pago parcial.
  • 6. Aplicar un pago parcial adicional si es necesario para liquidar la deuda. Calcular 410 pesos para pagar el importe restante.
  • 7. Realizar el proceso de abonar más saldo desde la ventana de clientes. Agregar 100 pesos a Juan Pérez.
  • 8. Acceder al reporte “saldo a favor de los clientes detallado” en el business manager para tener un informe de los movimientos y aplicaciones del saldo a favor.
  • 9. Aplicar la cobranza al cliente Juan Pérez, pagando los 5 pesos con saldo a favor y dejando su saldo en cero pesos.
  • 10. Habilitar la opción “aceptar pagos parciales en ventas pendientes” en el manejo de apartados.
  • 11. Al hacer una venta, presionar F5 para acceder a los pagos parciales. Permitir que el cliente pague una parte de su deuda y generar una venta pendiente.
  • 12. Retomar la venta pendiente y aplicar más pagos parciales hasta liquidar la deuda. El sistema actualizará el saldo pendiente automáticamente.
  • 13. Finalizar la demostración sobre cómo se maneja el apartado, el saldo a favor y los pagos parciales en el sistema.

Algunos clientes suelen dejar un saldo a favor después de realizar una compra, y luego van consumiéndolo en futuras adquisiciones. Tenemos varios archivos, informes y ventanas relacionados con el manejo de este saldo a favor.

Comencemos presionando la tecla F4, lo que nos mostrará el texto sobre el saldo a favor. En este caso, vamos a agregar saldo a favor para nuestro cliente Juan Pérez, quien actualmente tiene 3,114.91 pesos a favor y una deuda de 6 pesos en cobranza. Podemos ver cuánto tiene a favor y cuánto está en cobranza, y es posible utilizar ese saldo a favor para pagar la deuda.

Vamos a depositar 300 pesos a este cliente, y una vez que se imprima el saldo a favor, se convertirá en un depósito del cliente, dejando un total de 3,314.91 pesos a su favor. Aceptamos y obtenemos el ticket con el saldo a favor, que es solo de prueba.

Ahora vamos a realizar una venta para aplicar ese saldo a favor a la compra de Juan Pérez. Presionamos F5, ingresamos 90 por 510 pesos, y nuevamente vemos el saldo a favor de 3,314.91 pesos. En el pago 2, aparece un concepto que dice “saldo a favor”, y le asignamos 43 pesos, que es la cantidad que pagaría en esta ocasión.

Incluso, si ya existe un pago parcial, podemos aplicarlo en esta misma venta. En este caso, calculamos que necesitamos 410 pesos para liquidar la deuda y aceptamos para que se muestre el importe. El ticket muestra cuánto le queda de saldo a favor.

Además, podemos hacer este proceso desde la ventana de clientes, donde también podemos abonar más saldo. Agregamos 100 pesos a Juan Pérez, y una vez impreso el ticket, podemos ver el nuevo saldo.

Para tener un informe de los movimientos y aplicaciones del saldo a favor de un cliente, accedemos al reporte de “saldo a favor de los clientes detallado” en el business manager.

Ahora, pasemos a ver cómo podemos aplicar la cobranza a un cliente, como en el caso de Juan Pérez, que debe 6 pesos con un centavo. Le damos clic en “Nuevo abono” y seleccionamos que pague los 5 pesos con saldo a favor, dejándolo en cero pesos. Esto también se refleja en nuestro informe.

Por último, hablemos del manejo de los apartados, que es una opción predeterminada en My Business. Para activar los pagos parciales en ventas pendientes, vamos a estaciones de trabajo, estación 01, punto de venta, y habilitamos la casilla “aceptar pagos parciales en ventas pendientes”.

Una vez habilitado, al hacer una venta, presionamos F5 para acceder a los pagos parciales. Aquí, el cliente puede pagar una parte de su deuda, y el sistema generará una venta pendiente. Podemos retomar esa venta, aplicar más pagos parciales hasta liquidar la deuda y el sistema irá actualizando el saldo pendiente.

Y eso es todo sobre cómo manejamos el apartado, el saldo a favor y los pagos parciales en nuestro sistema. Espero que esta demostración les haya sido útil. ¡Gracias por ver y nos vemos en el próximo video!

 

Recarga de saldo a favor del cliente

Sistema de apartado y recargas de SALDO A FAVOR del Cliente

1. “Gestión de Saldo a Favor: ¡Aprende cómo aplicarlo en tus ventas!”
2. “Pagos Parciales y Apartados: Cómo ofrecer flexibilidad a tus clientes”
3. “Mi Sistema de Apartados: Cómo mantener un saldo a favor para tus clientes”
4. “Reportes y Ventanas: Herramientas clave para administrar el saldo a favor”
5. “Cobranza Eficiente: Cómo aplicar pagos parciales y mantener clientes satisfechos”
6. “Optimiza tu Negocio: Descubre cómo manejar el saldo a favor y pagos parciales”
7. “¡Nuevo en My Business! Aprende a activar pagos parciales en tus ventas”
8. “Saldo a Favor: Un beneficio para tus clientes y tu negocio”
9. “Pagos Parciales: La solución para liquidar deudas gradualmente”
10. “Ventanas de Clientes: Simplifica el proceso de abono al saldo a favor”

Títulos:
1. “Cómo Manejamos el Saldo a Favor y Pagos Parciales para Clientes | Demostración en Tiempo Presente”
2. “Demostración: Apartado y Saldo a Favor en Nuestro Sistema | ¡Bienvenidos a Mi Canal!”
3. “Gestión de Saldo a Favor y Pagos Parciales para Clientes | Tutorial en Tiempo Real”
4. “Descubre Nuestra Forma de Manejar el Saldo a Favor y Pagos Parciales | Demostración en Vivo”
5. “Demostración Práctica: Apartado y Saldo a Favor para Clientes | ¡Suscríbete a Mi Canal!”

Etiquetas y palabras clave:
Demostración, Saldo a Favor, Pagos Parciales, Clientes, Apartado, Manejo, Tutorial, Ventas, Business Manager, Sistema, Tecla F4, Depósito del Cliente, Ticket, Ventana de Clientes, Reporte, Cobranza, Informes, My Business, Estación de Trabajo, Punto de Venta, Ventas Pendientes, Actualización de Saldo, Movimientos Financieros, Compras, Deuda, Sistema de Crédito, Finanzas.