From 370a98ca01552816f12133c8ed1e33a146cd7ee6 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 24 Jul 2008 11:24:32 +0000
Subject: [PATCH] Corregido bloque try..finally mal establecido.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@289 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas  | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas b/Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas
index 8d2f3bf4..e3f84a32 100644
--- a/Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas
+++ b/Source/ApplicationBase/Ejercicios/Servidor/srvEjercicios_Impl.pas
@@ -89,8 +89,8 @@ function TsrvEjercicios.GenerarPGC(const ID_EJERCICIO_COPIA, ID_EJERCICIO: Integ
 begin
   Result := False;
 
+  Connection.BeginTransaction;
   try
-    Connection.BeginTransaction;
     schEjercicios.NewCommand(Connection, 'GenerarPGC', ['ID_EJERCICIO_COPIA', 'ID_EJERCICIO'], [ID_EJERCICIO_COPIA, ID_EJERCICIO]);
     Connection.CommitTransaction;
     Result := True;