SQL Server - error 512

ALTER PROCEDURE [dbo].[ModificarAlojamiento]

	@nombreNEW varchar(30),

	@nombreOLD varchar(30),

	@direccion varchar(40),

	@telefono varchar(20),

	@contacto int,

	@PersonalAlj PersonalTipo READONLY,

	@HabitacionAlj HabitacionTipo READONLY,

	@ActividadAlj ActividadTipo  READONLY,

	@resultado int output

AS

BEGIN

	SET NOCOUNT ON;

	BEGIN TRANSACTION

	BEGIN TRY

			update Alojamiento

			set nombre = @nombreNEW,

				direccion = @direccion,

				telefono = @telefono,

				contacto = case when @contacto = -1

								then null

								else @contacto

							end

			where nombre = @nombreOLD;

			delete from Personal where codigo not in (select codigo from @PersonalAlj);

			SET IDENTITY_INSERT Personal ON;

			INSERT INTO Personal (codigo, nombre, direccion, nif, nombre_alojam)

				select 	pa.codigo, pa.nombre, pa.direccion, pa.nif, pa.nombre_alojam

				from @PersonalAlj pa

				where pa.codigo not in (select codigo from Personal);

			SET IDENTITY_INSERT Personal OFF;

			delete from Habitacion where numero not in (select numero from @HabitacionAlj);

			SET IDENTITY_INSERT Habitacion ON;

			INSERT INTO Habitacion(nombre_alojamiento, numero, tipo, baño, precio)

				select 	ha.nombre_alojamiento, ha.numero, ha.tipo, ha.baño, ha.precio

				from @HabitacionAlj ha

				where ha.numero not in (select numero from Habitacion);

			SET IDENTITY_INSERT Habitacion OFF;

			if((Select COUNT(*) from @ActividadAlj)<>0)

			begin

				delete from Actividad where codigo not in (select distinct(codigo) from @ActividadAlj);

				SET IDENTITY_INSERT Actividad ON;

				INSERT INTO Actividad(codigo, nombre, descripcion, dificultad)

					select 	a.codigo, a.nombre, a.descripcion, a.dificultad

					from @ActividadAlj a

					where a.codigo not in (select codigo from Actividad);

				SET IDENTITY_INSERT Actividad OFF;

				INSERT INTO Realiza(nombre_alojam, codigo_actividad, dia_semana)

					select a.nombre_alojam, a.codigo, a.dia_semana

					from @ActividadAlj a

					where (a.codigo not in (select distinct(codigo_actividad) from Realiza) and a.nombre_alojam not in (select distinct(nombre_alojam) from Realiza))

							or

						  (a.codigo in (select distinct(codigo_actividad) from Realiza) and a.nombre_alojam not in (select distinct(nombre_alojam) from Realiza))

							or

						  (a.codigo not in (select distinct(codigo_actividad) from Realiza) and a.nombre_alojam in (select distinct(nombre_alojam) from Realiza));

			end;

			set @resultado=0;

			COMMIT TRANSACTION

	END TRY

	BEGIN CATCH

	    set @resultado=ERROR_NUMBER();

		IF (XACT_STATE()) = -1

			ROLLBACK TRANSACTION;

		IF (XACT_STATE()) = 1

			COMMIT TRANSACTION

	END CATCH

END