¿Es obligatorio el día 29 de Septiembre del 2023 el Seguro de Responsabilidad Civil y el Curso de formación según la Ley Protección de los Derechos y Bienestar de los Animales?

¿Cuándo entra en vigor la Ley 7/2023, de 28 de marzo, de protección de los derechos y el bienestar de los animales?

En principio, dicha Ley se publicó en el Boletín Oficial del Estado del día 29 de marzo del 2023, pero en su disposición final novena nos dice:

La presente ley entrará en vigor a los seis meses de su publicación en el «Boletín Oficial del Estado».

Por lo que entendemos, que dicha norma entrará en vigor el día 29 de septiembre del presente año.

¿Qué pasa con las obligaciones del Seguro y del curso de formación para la tenencia de perros?

Ésto viene establecido en el articulo 30 de la norma que nos dice:

1. Las personas que opten a ser titulares de perros deberán acreditar la realización un curso de formación para la tenencia de perros que tendrá una validez indefinida.

2. Dicho curso de formación será gratuito y su contenido se determinará reglamentariamente.

3. En el caso de la tenencia de perros y durante toda la vida del animal, la persona titular deberá contratar y mantener en vigor un seguro de responsabilidad civil por daños a terceros, que incluya en su cobertura a las personas responsables del animal, por un importe de cuantía suficiente para sufragar los posibles gastos derivados, que se establecerá reglamentariamente.

Como dice este articulo que tanto el curos de formación para la tenencia de  perros, su contenido se determinará reglamentariamente, y que el seguro de responsabilidad civil también se establecerá reglamentariamente, por lo que se entiende que hasta que no se publique el reglamento de ejecución de esta ley no estará en vigor.

Hasta el momento no es necesario el seguro de responsabilidad civil, ni el curso de formación.

Lista de Tareas Manual, para Microsoft Excel

 Vamos a explicar como hacer una plantilla de Microsoft Excel para una Lista de Tareas manualmente, ya que la plantilla que tengo todo automatizada, y es de pago.

Vamos a empezar con una hoja donde vamos a crear una tabla.

Le podemos poner el nombre a la tabla que nos guste, en mi caso le he puesto TablaTareas.

En la celda A2 le vamos a poner la siguiente fórmula:

=SI([@TAREA]="";"";FILA()-1)

Esta formula no hay que explicar mucho, lo que os hace es que si el campo tarea esta vacío, lo deja vacío, y en caso contrario al número de fila le resta 1, esto es para que empiece en el número 1.

En el campo Realizada, vamos a realizar una validación para que solamente podamos introducir 0 ó 1.

El siguiente paso será seleccionar el campo Realizada, y le vamos a dar un formato condicional, ya que lo que queremos realizar, que aunque pongamos el valor de 0 ó 1, estos valores no los veamos, y nos muestre unos iconos, que quedan más chulos. Una vez seleccionada, nos vamos en el menu de Inicio, a Formato Condicional y posteriormente Conjunto de Iconos, y elegimos un grupo que nos guste de tres iconos, aunque solamente necesitamos 2.

Posteriormente, volveremos a seleccionar el mismo campo, y en formato condicional, le damos Administrar Reglas, y seleccionamos la que tenemos y la editamos, y se nos mostrará esto:

Y ahora vamos a modificar el cuadro, en tipo pondremos ambos en número. En el primer icono que queremos que nos muestre que la tarea esta realizada pondremos 1 en valor, el segundo icono lo podemos modificar, para uno que nos muestre el de color rojo con la X, que dando en la pestañita lo podemos elegir, y en el tercero que no lo necesitamos pinchamos y ponemos No Hay Icono de Celda, y el último paso sería en el check que pone Mostrar icono únicamente, lo activamos, para que solamente nos salga el icono, quedándonos de esta manera:

Y lo único que nos falta, es pulsar en el botón de Aceptar.

Ya hemos rellenado nuestra plantilla, y me ha quedado así:

El siguiente paso será crear un gráfico para ver el tanto por ciento de nuestras tareas realizadas, para ello, tenemos que crear una función que nos cuente las tareas realizadas y las no realizadas, y nos de el tanto por ciento de ello.

En las tareas realizadas le hemos puesto la siguiente fórmula:

=CONTAR.SI(TablaTareas[REALIZADA];1)/CONTAR(TablaTareas[REALIZADA])

Esta formula nos cuenta el número de tareas que le hemos puesto el 1, y nos los divide por todas las tareas que tenemos.

En las tareas no realizadas le hemos puesto la siguiente fórmula:

=CONTAR.SI(TablaTareas[REALIZADA];0)/CONTAR(TablaTareas[REALIZADA])

Aquí lo que cambia es que cuenta cuantos 0, de tareas no realizadas tenemos y vuelve a dividir por el total.

El siguiente paso es pasar los resultados a porcentaje, quedándonos así:

Lo último es crearnos un gráfico que nos muestre los resultados, el gráfico que mejor viene es uno de anillo, en mi caso, me gusta uno de progreso que suelo realizar.

En mi caso me ha quedado así:

Por supuesto cuando van cambiando la realización o no de las tareas, el gráfico cambio dinámicamente.

Ley Bienestar Animal, a día de hoy

 Esta información ha sido recogida de la web :

www.portalveterianria.com

Desde que se anunció por primera vez hasta su aprobación, la ley de protección y bienestar animal ha generado y sigue generando numerosas dudas, tanto a los profesionales veterinarios como a los propietarios. El propio desarrollo de la ley hace que unos y otros tengan muchos interrogantes al respecto, empezando por cuál es el momento en el que la nueva normativa va a ponerse en marcha.

Para intentar aclarar las cuestiones fundamentales de la ley, el Colegio de Veterinarios de Zaragoza ha elaborado un resumen que recoge sus aspectos mas destacables, aunque como ellos mismos subrayan, puede quedarse corto, ya que incluye únicamente lo que esta regulado reglamentariamente en este momento.

El resumen incide en aspectos como cuales son los animales considerados de compañía con la nueva ley, la obligación de identificarlos o la obligación de un reconocimiento veterinario periódico. En este ultimo punto se recuerda que es obligatorio prestar al animal los cuidados sanitarios necesarios para garantizar su salud y, pero que aun no hay información al respecto del desarrollo reglamentario de este punto, su periodicidad o en que va a consistir dicho reconocimiento.

Otro asunto que recoge la ley de bienestar es la obligación de seguir un curso de formación para la tenencia de perros, del que lo que ahora se sabe en firma es que será gratuito y su validez será indefinida. Al no estar todavía regulado falta por saber su contenido, como se realizará y quienes podrán impartirlo.

Sobre la esterilización, la ley solo obliga a todos los gatos antes de los seis meses de edad. Los propietarios del resto de especies deberán adoptar medidas de no cría, salvo que estén dados de alta en el Registro de Criadores.

PERROS DE CAZA, EUTANASIA Y BAJAS POR MUERTE

Un aspecto que ha sido motivo de debate es el de los perros de caza, rehalas y animales auxiliares de caza. Tal y como recuerda el Colegio de Veterinarios de Zaragoza han quedado excluidos de la Ley de Bienestar animal, lo que no implica que no deban cumplir con la normativa europea, autonómica o local, es obligatoria su identificación mediante microchip, su vacunación contra la rabia y el genotipado, en los municipios que lo tengan regulado. Igualmente, es obligatorio tener seguro.

En el resumen se recuerda que la eutanasia esta prohibida, excepto por motivos de seguridad o riesgo para la salud pública, y que podrá realizarse para evitar sufrimiento por causas no recuperables que comprometan seriamente la calidad de vida del animal, siempre justificado bajo criterio y control veterinario. No obstante, tal y como aclaró la Dirección General de Derechos de los Animales a una pregunta del Consejo General de Colegios Veterinarios, en el posterior desarrollo reglamentario de la ley se detallarán estas situaciones.

Por ultimo, la ley indica que la baja de un animal de compañía por muerte deberá ir acompañada del documento que acredite que fue incinerado o enterrado por una empresa reconocida oficialmente para la realización de dichas actividades, haciendo constar el número de identificación del animal fallecido y el nombre y apellidos de su responsable o, en su defecto, que quede constancia en las bases de datos de la empresa que se ocupo de su cadáver. En caso de imposibilidad de recuperar el cadáver se deberá documentar adecuadamente. Sin ese certificado de la empresa que elimina el cadáver no se podrá dar de baja ningún animal, aunque en este momento todavía no se sabe cómo se implementará esta situación.

 

FUNCION MICROSOFT EXCEL JERARQUIA.EQV

 Vamos a ver una función de Microsoft Excel no muy conocida como es JERARQUIA.EQV.

Esta función lo que nos hace es realizar un ranking de nuestros datos.

Empezamos teniendo una tabla:

Ahora lo que vamos a realizar es insertar una nueva columna que le pondremos el nombre de la Columna Ranking y pondremos la siguiente fórmula:

=JERARQUIA.EQV([@[PRECIO VENTA]];C:C)

Los dos argumentos son primero la columna del Precio Venta, y la referencia la misma, pero esta vez pondremos la Columna C que es donde se encuentra todos los precios de venta.

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.