Cita:
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.
Cita:
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.