Saber si se Aplico un Insert en un Procedimiento

[kikecg]

Hola, saludos a todos.

Estaba buscando información sobre algo parecido a esto y he preferido retomar este hilo antes que abrir uno nuevo. Explico mi consulta:

Estoy creando un procedimiento almacenado en Interbase que debe ejecutar una serie de Inserts y Updates. Hasta ahí todo correcto. Ahora bien, en ciertos updates, necesito saber si se modificaron registros o no. Si se produce un error lo capturo con WHEN y genero una excepción, con lo que se hace un rollback al procedimiento y listos. La cuestión es: ¿como verifico que un UPDATE afectó o no a un registro?. Si afectó a una única fila, continúa el procedimiento, en cualquier otro caso hay que cancelar todo.

He revisado la documentación de Interbase y llega un momento en que uno (yo ) se pierde... Por lo que he podido ver, que alguien me corrija si me equivoco, un UPDATE que no afecta a ningún registro no genera un error, la sentencia se ejecuta correctamente, con lo cual la comprobación de errores anterior no me sirve en este caso. Desde Delphi evaluaría la propiedad RowsAffected de la consulta y listos, pero no encuentro la forma de hacer esto mismo en interbase directamente en un procedimiento.

Por otro lado, veo que cuando empleo "WHEN ANY" tras una sentencia SQL, siempre salta la excepción. Viendo la documentación de Interbase me parece entender que "WHEN ANY" captura cualquier código de error que se produce tras ejecutar una sentencia SQL. Sin embargo en las pruebas que he hecho al utilizar WHEN ANY siempre salta la excepción tras la sentencia SQL. Por ejemplo, en este fragmento de código

Código SQL [-]
....
  ELSE
    BEGIN
      MENSAJE = 'Se ha producido un error al actualizar TABLA';
      SUSPEND;
      UPDATE TABLA SET CAMPOX = 'DEV' WHERE ID_TABLA = :ID_TABLA AND (CAMPOX <> 'DEV' AND CAMPOX <> 'DVO');
      WHEN ANY DO
        EXCEPTION ERROR_PROCEDIMIENTO;
    END
....

siempre tras ejecutar la sentencia UPDATE salta la excepción ERROR_PROCEDIMIENTO, y finaliza la ejecución. Al ejecutar directamente la sentencia, el resultado es un registro actualizado, con lo que no entiendo por qué salta la excepción.

En fin, no se si alguien me puede orientar un poco en este tema.

Gracias, saludos.