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.