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
'----****
'----**** 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