Continuar Procedure a pesar del salto de excepción

[santiaguinillo]

Hola a tod@s,

tengo un problema con un procedure.
BBDD: firebird 1.5

El procedure realiza una serie de inserts según unas condiciones. En el último insert de este procedure y que inserta en una determinada tabla X, salta una excepción. Pusimos una excepción en un trigger before insert que si no se cumple otra condición no se realice el insert en la tabla X i salte esta excepción para capturarla y mostrarla por pantalla en la aplicación delphi.

El problema viene que al saltar la excepción en esta última tabla X, el resto de inserts anteriores no se guardan. Hace rollback cuando salta la excepción.

Quisiera saber si existe la posibilidad de que aunque salte la excepción del procedure firebird, continúe con el procedure y haga finalmente commit del mismo.

Un saludo y gracias por adelantado.

[[duilioisola]]

A pesar de que lo mejor sería verificar si se va a dar la excepción y actuar en consecuencia, existe una posibilidad:

WHEN XXX DO

Código SQL [-]
create procedure insertar_aglo (VALOR varchar(3))
as
begin
  for select familia from art_familias
    where(empresa=1) into :familia do
    begin
      insert into propaga(familia)
        values(:familia) ;
        when SQLCODE -803 do exit ;
    end 
end

Código SQL [-]
create procedure trunca100 (CADENA1 varchar(200))
returns (CADENA2 varchar(100))
as
begin
  /* Este procedimiento trunca la cadena a 100 caracteres */
  cadena2 ='INICIALIZA';
  cadena2 = cadena1;
  when any do suspend;
end

[santiaguinillo]

Hola duilioisola,

he probado de poner el código que me comentas. En concreto he probado en mi procedure:

• when SQLCODE -803 do exit ;
• when EXCEPTION SUPERA_IMPORTE DO exit;

(SUPERA_IMPORTE es el nombre de la excepción que salta)

Ambas opciones han salido con rollback del procedure
así que todavía no me queda resuelto el problema.

No sé como hacer para que aun saltando una excepción en un insert, el resto de inserts ejecutados anteriormente hagan commit.

[[duilioisola]]

Prueba con
* when SQLCODE -803 do SUSPEND ;
* when EXCEPTION SUPERA_IMPORTE DO SUSPEND ;

Cada vez que un procedimiento encuentra un suspend, devuelve los valores que tenga en el RETURNS() y espera a que le pidan el siguiente.

Aunque no devuelvas nada, el SUSPEND hará que devuelva el control a tu programa y puedas hacer un commit o rollback, según te convenga.

[santiaguinillo]

Hola duilioisola,

¿pero el commit o rollback quieres decir que lo ponga en el código delphi? Porque he hecho lo siguiente y sigue sin hacerme commit (en el procedure he puesto when EXCEPTION SUPERA_IMPORTE DO SUSPEND):

Código Delphi [-]
      sentencia := 'EXECUTE PROCEDURE PROCESA_VISITA (variables)';
      try
        Q1.Close;
        Q1.SQL.Clear;
        Q1.SQL.Add(sentencia);
        Q1.Prepare;
        Q1.ExecQuery;   //AQUI DA LA EXCEPCIÓN
        Q1.Transaction.CommitRetaining;
        Q1.FreeHandle;
      except
        Q1.Transaction.CommitRetaining; //ESTO LO HE PUESTO AHORA Y NO HACE COMMIT
        Q1.FreeHandle;
        raise;
      end;

Empezado por duilioisola

Prueba con
* when SQLCODE -803 do SUSPEND ;
* when EXCEPTION SUPERA_IMPORTE DO SUSPEND ;

Cada vez que un procedimiento encuentra un suspend, devuelve los valores que tenga en el RETURNS() y espera a que le pidan el siguiente.

Aunque no devuelvas nada, el SUSPEND hará que devuelva el control a tu programa y puedas hacer un commit o rollback, según te convenga.

[[duilioisola]]

Supongo que si no sigue es porque la excepción que salta no es la que esperas en el WHEN EXCEPCION DO...
Prueba a poner WHEN ANY DO...

O prueba a ver cuál es la excepción que llega con un ShowMessage.

Código Delphi [-]
sentencia := 'EXECUTE PROCEDURE PROCESA_VISITA (variables)';
      try
        Q1.Close;
        Q1.SQL.Clear;
        Q1.SQL.Add(sentencia);
        Q1.Prepare;
        Q1.ExecQuery;   //AQUI DA LA EXCEPCIÓN
        Q1.Transaction.CommitRetaining;
        Q1.FreeHandle;
      except
         on e:exception do 
         begin
            Showmessage(e.message); //Esto te mostrará el texto de la excepcion
           Q1.Transaction.Rollback;
           Q1.FreeHandle;
           raise;
         end;
      end;

Por más que le digas que haga un commit, si ha saltado una excepción no grabará los datos.
Si quieres envíanos el código de tu procedimiento, para que le hechemos una mirada.
Pero como dije anteriormente, quizás sea mejor filtrar los casos para los que se dá la excepción.

[RolphyReyes]

Saludos.

Puedes ir haciendo commit por cada inserción es inefectivo pero es una solución.

También puedes poner el código que tienes y cuando salte la excepción "forza" el commit.

[santiaguinillo]

Hola RolphyReyes,

el problema es que al poner commit en el procedure me da error al compilar. Es decir, no puedo poner commit dentro del procedure.

Empezado por RolphyReyes

Saludos.

Puedes ir haciendo commit por cada inserción es inefectivo pero es una solución.

También puedes poner el código que tienes y cuando salte la excepción "forza" el commit.