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
This commit is contained in:
David Arranz 2008-07-24 11:24:32 +00:00
parent f6919eb9d1
commit 370a98ca01

View File

@ -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;