Whats 7222816462. Mejoramos la experiencia en el Punto de Venta de tu NEGOCIO
Si tienes este error en runbarra el componente activex no puede crear el objeto MyBVemtas.dll, puede ser que el antivirus te haya rechazado la dll
La solución es
Revisa en el antivirus o en Windows defender y restaura el archivo dll.
Al llegar al mes de marzo de 2024, el canal de Alina Albarrán ha alcanzado una increíble cifra de más de 120,000 suscriptores, un logro notable que refleja el crecimiento constante y el atractivo de su contenido. Además, para conmemorar sus éxitos, el canal ha sido reconocido con la codiciada placa de YouTube, un testimonio tangible del impacto positivo que ha generado en su audiencia.
Originaria del sur del Estado de México, Alina ha construido un canal único que destaca por su autenticidad y dedicación al mundo de las aves, especialmente a las gallinas, patos, guajolotes y otros habitantes de su granja. Su estilo único y apasionado ha resonado con personas de todo el mundo, creando una comunidad diversa y comprometida que comparte su amor por la vida en el campo y la conexión con la naturaleza.
A través de videos informativos, entretenidos y llenos de carisma, Alina Albarrán comparte sus experiencias, conocimientos y consejos sobre la crianza de aves, creando un espacio donde los amantes de los animales pueden aprender, disfrutar y sentirse parte de su emocionante viaje.
El éxito del canal no solo se refleja en números, sino en la conexión genuina que Alina ha establecido con sus seguidores. La interacción constante, la respuesta a preguntas y la participación activa en la comunidad han convertido su canal en un lugar acogedor y educativo para todos aquellos que comparten su pasión por el mundo avícola.
En el sur del Estado de México, Alina Albarrán continúa construyendo un refugio digital donde la naturaleza, la vida en el campo y la convivencia armoniosa con los animales son celebradas. ¡Felicidades a Alina y su creciente comunidad por estos logros excepcionales y por seguir compartiendo el amor por las aves con el mundo! 🐔🦆🦃🌿 #AlinaAlbarran #GranjaAlbarran #Aves #VidaEnElCampo
Youtube de Alina Albarrán:
https://www.youtube.com/channel/UCuEMnaIrRAmg4paElbg265w
Página oficial:
https://alinaalbarran.helpmybusinesspos.info
.
.
.
.
'----****
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----****
Sub Main()
Set excelConnection = CreateObject("ADODB.Connection")
excelConnection.ConnectionString = "driver={Microsoft Excel Driver (*.xls)};DBQ=c:\daniel\base1.xls;"
excelConnection.Open
ImportaProductos excelConnection
End Sub
Public Sub ImportaProductos( excelConnection )
Dim Progress
Ambiente.Connection.Execute "DELETE FROM prods WHERE articulo <> 'SYS'"
Ambiente.Connection.Execute "DELETE FROM clavesadd WHERE articulo <> 'SYS'"
Set rstArticulos = CreaRecordSetEnCliente( "SELECT * FROM [RMaza-BASE$]", (excelConnection) )
Set Query = NewQuery()
Set Query.Connection = Ambiente.Connection
Query.ErrorOculto = True
Set Progress = NewProgress()
if rstArticulos.RecordCount > 0 Then
Progress.Anim rstArticulos.RecordCount, "Importando catálogo de artículos", Ambiente.Path & "\Images\Gears.Avi"
end if
n = 0
While Not rstArticulos.EOF
n = n + 1
Progress.Valor n, "Procesando: " & rstArticulos("articulo") & " " & rstArticulos("descrip")
If Not clEmpty( "" & rstArticulos("articulo") ) Then
Query.Reset
Query.AddField "PRODS", "articulo", rstArticulos("articulo")
Query.AddField "PRODS", "descrip", rstArticulos("descrip")
Query.AddField "PRODS", "linea", "SYS"
Query.AddField "PRODS", "precio1", Val2(rstArticulos("precio1"))
Query.AddField "PRODS", "marca", "SYS"
Query.AddField "PRODS", "ubicacion", "SYS"
Query.AddField "PRODS", "impuesto", "SYS"
Query.AddField "PRODS", "paraventa", 1
Query.AddField "PRODS", "invent", 1
Query.strState = "INSERT"
Query.CreateQuery
Query.Execute
End If
rstArticulos.MoveNext
Wend
if n > 0 Then
Progress.Destroy
end if
End Sub
'----****
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----****
Sub Main()
Ambiente.Connection.Execute "UPDATE ventas SET estado = 'CO'"
End Sub'----****
'----**** MyBusiness POS V20
'----**** Version del script: 1.0
'----**** 19/02/2020
'----****
Sub Main()
fg2.Rows = 3000
End Sub
Whats 7222816462
