Autorización de los Medios de Transporte y Contenedores

El artículo 6 del Real Decreto 990/2022 Normas de Sanidad y Protección Animal durante el Transporte, nos habla sobre las Autorización de los transportista, que nos dice:

1. Todos los medios de transporte, así como los contenedores utilizados para el transporte de équidos o de animales de las especies bovina, ovina, caprina o porcina deberán estar autorizados por la autoridad competente del ámbito territorial en el que se encuentre la sede social de la empresa propietaria del medio de transporte o domicilio fiscal si es una persona física. Para ello el propietario del vehículo presentará una solicitud en la forma en que dicha autoridad competente determine.

2. Lo establecido en el apartado anterior no será de aplicación a la autorización de los buques destinados al transporte de ganado, que se autorizarán de acuerdo al artículo 7.

3. Los medios de transporte y los contenedores se identificarán por medio de su número de matrícula o número de bastidor de no existir matrícula. Si el bastidor no identifica de forma única al contenedor, se identificarán con las letras CONT seguido de 11 dígitos que identifiquen al contenedor de forma única en todo el territorio nacional.

Los buques destinados al transporte de ganado se identificarán por medio de su número de identificación asignado por la Organización Marítima Internacional (IMO).

4. La autorización de los medios de transporte y contenedores podrá ser:

a) Para viajes de hasta ocho horas de duración,

b) Para más de ocho horas de duración,

c) Para viajes de hasta doce horas de duración en los supuestos regulados en el artículo 9.1 de este real decreto.

d) Autorización de acuerdo con el artículo 47 de la Ley 8/2003, de 24 de abril, para los movimientos recogidos en el artículo 5.6.c) dentro del territorio nacional, así como para el transporte en contenedores de équidos o de animales de las especies bovina, ovina, caprina o porcina por carretera y/o por vía acuática, para viajes cortos, o por avión.

5. Todos los medios de transporte por carretera y los contenedores autorizados, excepto los pertenecientes a las Fuerzas y Cuerpos de Seguridad, en el transcurso de las operaciones en que se requiera el debido sigilo y confidencialidad, deberán llevar un cartel que sea claramente visible y que indique la presencia de animales vivos, excepto en los medios de transporte autorizados según el artículo 6.4.d), que solo deberán llevarlo los contenedores.

6. Se utilizará el modelo incluido en el anexo III, capítulo IV, del Reglamento (CE) n.º 1/2005 del Consejo, de 22 de diciembre de 2004, para los medios de transporte autorizados para viajes de menos de ocho horas, hasta doce horas y para los autorizados de acuerdo con el artículo 47 de la Ley 8/2003, de 24 de abril, siempre que se especifique claramente en el documento el alcance de la autorización de acuerdo con el punto 4.

7. La autorización emitida por la autoridad competente para los medios de transporte y contenedores para más de ocho horas tendrá validez en todo el territorio de la Unión Europea, y para el resto de medios de transporte será válida para todo el territorio nacional o los Estados miembros que así lo contemplen para el caso mencionado en el apartado 4.c).

Cuadrante de Servicio Parte 15 - Preparación Segunda Diapositiva en PowerPoint

Primero vamos a crear una nueva variable a nivel de módulo que se llama X que será integer, por lo que las variables a nivel de módulo son las siguientes:

Dim AppPP As Object

Dim PresentacionPP As Object

Dim DiapoPP As Object

Dim NombrePresentador As String

Dim CM As Single

Dim X As Integer

A "X" le daremos el valor de nuestra dispositiva.

Lo Segundo que vamos a realizar, es un cambio en la primera diapositiva, y es el tema del logo, ya que el código que introduce el logo en la diapositiva 1 se va a repetir en todas las diapositivas que vayamos a crear, por lo que vamos a cortar dicho código y lo vamos a pegar en una macro llamada CrearLogo.

Quedando así:

Private Sub CrearLogo()

'Agregar un Logo guardado

    'Posición y tamaño se manejan por "puntos" (1 cm = 28.346 puntos)

     AppPP.activepresentation.slides(X).Shapes.AddPicture _

        "C:\Users\maria\OneDrive\Escritorio\CUADRANTE GUARDIA CIVIL\Logo.png", _

            LinkToFile:=msoFalse, _

                SaveWithDocument:=msoTrue, _

                    Left:=30.34 * CM, Top:=0.57 * CM, Width:=3.53 * CM, Height:=3.53 * CM

End Sub

Este código se encontraba en la Diapositiva1, por lo que lo hemos cortado y pegado aquí, y se sustituirá en la diapositiva1 por el siguiente

Private Sub Diapositiva1()    

    X = 1

    'vamos a crear una dispositiva con Titulo y Subtitulo

    Set DiapoPP = PresentacionPP.slides.Add(Index:=X, Layout:=1)    

    'Agregar un logo guardado

    CrearLogo

... aquí continuará el código que pusimos en el Cuadrante de Servicio parte 14

En esta nueva diapositiva que llamaremos la macro que la creará Diapositiva2, necesitaremos una serie de datos en la hoja de ConexionPowerPoint para que se inserten automaticamente en la nueva diapositiva, para ello;

- En la Celda I2, de la hoja ConexionPowerPoint, hemos introducido el nombre de Mes dándole un formato a nuestro gusto.

-  En la Celda J2, de la hoja ConexionPowerPoint, le hemos hecho una validación de datos, y creando una lista que la hemos igualado a meses. Y nos servirá para poder elegir el mes deseado en el informe.

- Tambien hemos creado en la hoja Config en la celda B2 la lista de años, y esto lo hemos realizado con la siguiente fórmula:

=ORDENAR(UNICOS(Servicio[Año]))

Posteriormente hemos seleccionado la primera celda del año que es B2 y la hemos nombrado AÑOS.

- La Celda K2, de la hoja ConexionPowerPoint, hermos introducido AÑO, y dandole un formato a nuestro gusto.

- La Celda L2, de la hoja ConexionPowerPoint, hemos creado una validación de datos, y creando una lista que la  hemos igualado a AÑOS#. Este signo de almohadilla, es para que no solamente nos coja la Celda B2 de la hoja Config, si no que nos coja todas las filas con datos que posea B2 y las que están por debajo.

Lo siguiente será todo en la hoja ConexionPowerPoint:

-  En la celda I4 hemos introducido el texto MAÑANAS, dandole nuestro formato.

- En la celda I5 hemos introducido la siguiente fórmula, es un poco compleja, ya que utilizamos la función Sumar.Si.Conjunto con varios criterios que serán el mes, el año y el tipo de servicio que en este caso es Mañana, resultando:

=SUMAR.SI.CONJUNTO(Servicio[CANTIDAD];Servicio[Mes];ConexionPowerPoint!$J$2;Servicio[Año];ConexionPowerPoint!$L$2;Servicio[HORARIO];"M")

- En la celda J4 hemos introducido el texto TARDES, dandole nuestro formato.

- En la celda J5 hemos introducido otra vez la anterior fórmula pero en lugar de buscar las mañanas, buscará las tardes:

=SUMAR.SI.CONJUNTO(Servicio[CANTIDAD];Servicio[Mes];ConexionPowerPoint!$J$2;Servicio[Año];ConexionPowerPoint!$L$2;Servicio[HORARIO];"T")

- En la celda K4 hemos introducido el texto NOCHES, dandole nuestro formato.

- En la celda K5 hemos introducido otra vez la anterior fórmula, pero esta vez nos buscará las noches.

=SUMAR.SI.CONJUNTO(Servicio[CANTIDAD];Servicio[Mes];ConexionPowerPoint!$J$2;Servicio[Año];ConexionPowerPoint!$L$2;Servicio[HORARIO];"N")

- En la celda I7 hemos introducido el texto TOTAL SERVICIOS, dandole nuestro formato.

- En la celda I8 hemos introducido una fórmula para que nos cuente los servicios activos, siendo la siguiente:

=SUMAR.SI.CONJUNTO(Servicio[CANTIDAD];Servicio[Mes];ConexionPowerPoint!$J$2;Servicio[Año];ConexionPowerPoint!$L$2;Servicio[ACTIVO/NO];"Activo")

Continuamos realizando los texto que posteriormente se incluirán en la segunda diapositiva, todo desde la misma hoja de ConexionPowerPoint:

- En la celda A1 tenemos la siguiente fórmula que consiste en concatenación, por supuesto le hemos dado nuestro formato, aunque da igual por que el importante será el formato que le demo a este texto en la diapositiva:

="Reporte Mensual para "&J2&" del "&L2

- En la celda A2, tenemos la siguiente fórmula:

="El Total de Servicios realizados en el mes de "&J2&" del "& L2&" han sido de: " & I8

- En la celda A3, tenemos la siguiente fórmula: 

="El Total de Servicios de Mañanas son:  " & I5

- En la celda A4, tenemos la siguiente fórmula:

="El Total de Servicios de Tardes son:  " &J5

- En la celda A5, tenemos la siguiente fórmula: 

= "El Total de Servicios de Noches son:  " & I8

Ya tenemos preparado todo para realizar nuestro informe, que será incluido en la Diapositiva 2 de nuestro archivo de Power Point.

¿Qué es Tailwind CSS?

Tailwind Css es un framework CSS, basado en utility-first o clases CSS de utilidad. Esto nos permite crear proyectos de una manera sencilla y personalizable. Y por supuesto no tenemos que escribir código CSS en nuestros proyectos web.

¿Qué son las Clases de Utilidad?

Son clases CSS con un fin único y específico, en lugar de clases con muchos estilos, son clases con un único fin.

Un ejemplo de una clase de Css es que la misma clase nos da varios estilos que le damos a un elemento Html, sin embargo cada clase en Tailwind CSS solamente nos da un estilo.

Ejemplo de clase CSS:

.parrafoPrincipal{

    color: red;

    font-size: 2rem;

    text-align: center;

}

Sin embargo en Tailwind Css cada clase de utilidad solamente nos da un estilo:

.red{

    .color:red;

}

.font-large{

    .font-size: 2rem;

}

.text-center{

    text-align: center;

}

Estas clase de utilidad predefinida la pueden utilizar en varios elementos en nuestro Html.

Tailwind es un framework basado en responsive design, su principal enfoque es la técnica mobile first, pero igualmente podemos adaptarlo al resto de dispositivos más grandes.

Nos proporciona una gran variedad de clases que nos ayuda a crear una estructura y estilos para dar el diseño que queremos a nuestra pagina web, y realizándose con mucha rapidez.

Tailwind revisa todos los archivos Html y JavaScript para buscar nombres de clase de utilidad de Tailwind, generando los estilos de esas clases, para crear un archivo CSS con esos estilos, sin que toques una línea de CSS.

Si es verdad, que al principio parece muy complicado, pero cuando vas manejándolo, ves que el nombre de las clases es muy intuitivo, lo de siempre, la experiencia en su uso, nos demuestra su facilidad de uso.

Ejemplo:

<p class="text-xl font-bold bg-red-100">Bienvenido a mi Web</p>

Este framework, tiene su propia pagina web donde existe mucha información de ello, siendo:

https://tailwindcss.com/

En dicha web, nos enseña las distintas formas de instalación, como las gran variedad de las clases que tiene dicho framework, y mucha más información.

Realizar Mini Gráficos en Excel

 En esta entrada vamos a ver como podemos realizar mini gráficos en Microsoft Excel.

Lo primero tenemos un rango de datos, como ejemplo:

Como vemos en nuestro ejemplo tenemos una serie de productos y las ventas por meses.

El siguiente paso es irnos a la pestaña de Insertar, posteriormente pinchamos en mi caso en la parte de Minigráficos de Columnas y nos saldrá la siguiente ventana.

En el rango de datos hemos seleccionado todo el rango de datos numéricos, y en la ubicación hemos seleccionado donde queremos que aparezca los minigráficos, resultando ser:

Al final pulsamos en el botón Aceptar y nos incluirá los minigráficos.

Si tenemos seleccionado algún minigráfico, en la parte de arriba nos saldrá una pestaña de minigráfico, para poder configurar alguna cosa como puede ser cambiar el tipo de grafico a líneas, columnas, perdidas y ganancias. También podernos seleccionar el Punto Alto, Punto Bajo, Puntos Negativos, Primer Punto y Último punto. También podemos cambiar los estilos del minigráfico.

En mi caso voy a cambiarlo a color verde, y quiero que me señale cual es el punto más alto y bajo, nos queda de la siguiente manera:

Cuando Podemos Estar Exentos de Acompañar la Documentación del Equido

 De acuerdo con el articulo 17 del Real Decreto 676/2016, de 16 de diciembre, por el que se regula el sistema de identificación y registro de los animales de la especie equina, nos dice:

1. El documento de identificación equina acompañará en todo momento a los équidos registrados y a los équidos de crianza y renta salvo cuando:

a) Estén estabulados o pastando, y el titular pueda presentar el documento de identificación equina a la mayor brevedad.

b) Se desplacen temporalmente, bien en las inmediaciones de la explotación ganadera en un movimiento en territorio nacional de manera que pueda presentarse el documento de identificación equina en un plazo de tres horas; o bien durante la trashumancia de los équidos hacia o desde los pastos de verano y puedan presentarse los documentos de identificación equina en la explotación ganadera de salida.

c) Los équidos no estén destetados y acompañen de forma permanente a su madre o nodriza.

d) Participen en un entrenamiento, en un ensayo o evento de una competición ecuestre que les obligue a abandonar temporalmente el lugar en el que se celebre la competición.

e) Sean movidos o transportados en una situación de emergencia relacionada con ellos mismos o, sin perjuicio de lo dispuesto en el artículo 14.1, párrafo segundo, del Real Decreto 2179/2004, de 12 de noviembre, por el que se establecen medidas de lucha contra la fiebre aftosa, con la explotación ganadera a la que pertenecen.

Por supuesto, en un principio, la documentación del caballo debe acompañar en todo momento al animal, pero hay casos en que puede estar exenta.

En el primer caso, de que el animal este estabulado o pastando, el titular puede presentar la documentación a posteriori.

En el caso de desplazamiento, en territorio nacional, tendrá un tiempo de 3 horas.

En el caso de que el potro no esté destetado y vaya en compañía de la madre, es decir que es obligatorio ir con la madre.

Cuando se encuentre en una competición y tenga la obligación de abandonar temporalmente el lugar, ya que cuando se esta inmerso en una competición, el comité organizador debe tener la documentación de todos los animales participantes.

Y en el último caso en un movimiento por medidas contra la fiebre aftosa, con la explotación ganadera a la que pertenecen.

Bando Municipal Festividad El Rocío Chico 2023

 El Ayuntamiento de Almonte, ha realizado el Bando Municipal para la Festividad de El Rocío Chico 2023:

Funcíon Excel FechaNumero

 Vamos a ver la función de Microsoft Excel llamada FechaNumero.

Esta función lo que nos hace es convertir una fecha en forma de texto en un número que representa la fecha en código de facha y hora de Microsoft Excel.

Cuando vamos a utilizar dicha función podemos obtener nuestra ayuda, que nos muestra el cuadro de dialogo.

Vamos a partir de una columna donde tenemos fechas, las cuales hay que convertirlas primero en texto, para luego poder usar dicha función. Podemos convertirla en texto usando la función Texto, o ponerla entre comillas que es lo mismo.

A continuación vamos convertir dicha fecha en texto, para ello en la columna contigua escribimos la siguiente formula:

=TEXTO(A2;"dd/mm/aaaa")

Y obtendremos las mismas fechas, pero convertidas en texto.

Y el siguiente paso es en otra columna utilizaremos nuestra función FechaNumero, donde escribiremos la siguiente fórmula:

=FECHANUMERO(B2)

En este caso B2 es donde se encuentra la fecha con formato texto, y nuestro resultado sería:

Si nos devuelve un número, ya que Microsoft Excel las fechas son números.

Pero todo esto podemos hacerlo en un solo paso, por supuesto que si, y utilizaremos la siguiente fórmula:

=FECHANUMERO(TEXTO(A2;"dd/mm/aaaa"))

Y el resultado es el mismo que el anterior: