Insertar medidor

-- DROP PROCEDURE insertarMedidor
CREATE PROCEDURE insertarMedidor (
    @nombreMedidor VARCHAR(100)
    , @codigoMedidor VARCHAR(25)

)
AS
    DECLARE @error TINYINT
    SET @error = 0

    BEGIN TRANSACTION

    INSERT INTO materiales (nombre)VALUES (@nombreMedidor)

    IF @@ERROR > 0 SET @error = 1

    DECLARE @idMaterial SMALLINT
    SET @idMaterial = @@IDENTITY

    INSERT INTO medidores(codigo)VALUES (@codigoMedidor)

    IF @error = 1
        BEGIN
            ROLLBACK TRAN -- DESHAGA LA TRANSACCION
            PRINT('Error en la insercion del medidor')
        END
    ELSE
        COMMIT TRAN -- FINALICE LA TRANSACCION
GO