jajaja....tienes razon !!!.....bueno, "Al mejor cazador se le va la liebre"....
entonces quedaria asi:
Código Delphi
[-]if dsUnidadOperativa.Transaction.InTransaction then
begin
if Application.MessageBox('Desea GUARDAR los movimientos realizados?','Pregunta',mb_YesNo+mb_IconQuestion)=idYes then
begin
DataModule2.trsCasas.Commit;
end
Else
begin
DataModule2.trsCasas.Rollback;
end;
Action:=caFree;
end;