Lanzar excepciones

[Neftali [Germán.Estévez]]

Empezado por cahern4

Código Delphi [-]
  try
   begin
        datos.celular.StartTransaction;
        Aumentar_Orden(txt_orden.text,form_acceso.usuario.cedula,
                              form_acceso.usuario.nivel,
                              Max_Ordenes,Max_Lote,Max_Grupo);
        datos.celular.Commit;
   end;
   except
           datos.celular.Rollback;
           messagedlg('Error en la asignación del documento, vuelva a intentarlo',mtinformation,[mbok],0);
   end;

Antes de continuar, deberías cambiar el código por éste:

Código Delphi [-]
  datos.celular.StartTransaction;
  try
    Aumentar_Orden(txt_orden.text,form_acceso.usuario.cedula,
                                 form_acceso.usuario.nivel,
                                 Max_Ordenes,Max_Lote,Max_Grupo);
         datos.celular.Commit;
  except
    datos.celular.Rollback;
    messagedlg('Error en la asignación del documento, vuelva a  
      intentarlo',mtinformation,[mbok],0);
   end;

No puedes poner el StartTransaction dentro del Try, porque si falla el StartTransaction intentarás hacer el RollBack de algo que ha fallado y que no has hecho.

Empezado por cahern4

Otro punto importante es que en los demás procedimientos no existe un try y except. Solo está en el procedimeinto principal.

Si eso es así para cualquier excepción debería llegar al except del procedimiento principal.
De todas formas yo revisaría las soluciones que te han propuesto más arriba, donde cada procedimiento capture sus excepciones (para hacer su rollback) y luego propague la excepción hacia arriba con un raise.

[[Lepe]]

Excelente observación Neftali.

Gracias.

[cahern4]

Gracias a los 2 por las respuestas y soluciones que me han dado.

Sobre lo que plantea Neftali ya lo modifique en mi código. El StartTransaction lo saque del try.

Ahora me surge una duda con lo que plantea Lepe, y es la siguiente:

Yo puedo en el procedimiento Aumentar_Orden hacer el llamado al StartTransaction y luego hacer otro StartTransaction en el procedimiento Cambiar_Lote, aun sin haber hecho el commit del StartTransaction que llame en el procedimiento Aumentar_Orden.

Esto lo pregunto porque tengo 5 procedimientos o sea serian 5 StartTransaction que se pueden dar sin haber hecho un commit, porque si esto se puede hacer así como lo planteo supongo que entonces si estoy llamando el rollback desde el procedimiento 3 solo se cancelaran las transacciones del procedimiento 3, y luego como subo la excepción cae al except del procedimiento 2 que como también tiene un rollback debería de cancelar solo las transacciones del procedimiento 2, y así para atrás hasta llegar al primer procedimiento, y luego bastaría con hacer un solo commit. ¿Esto es correcto como lo planteo o estoy totalmente equivocado?

Y nuevamente gracias.