From cb9669b9a16976536527557412de19e6ac26ecdc Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Wed, 24 Sep 2008 14:32:09 +0000
Subject: [PATCH] =?UTF-8?q?Repaso=20a=20las=20unidades=20de=20generaci?=
 =?UTF-8?q?=C3=B3n=20de=20informes=20del=20servidor.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@615 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Reports/uRptPedidosProveedor_Server.pas   | 38 ++++++++-----------
 .../uRptPresupuestosCliente_Server.pas        | 10 ++---
 2 files changed, 20 insertions(+), 28 deletions(-)

diff --git a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
index 9d1a10b4..7035ec03 100644
--- a/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas	
+++ b/Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas	
@@ -101,7 +101,11 @@ procedure TRptPedidosProveedor.DataModuleCreate(Sender: TObject);
 begin
   schReport.ConnectionManager := dmServer.ConnectionManager;
   FConnection := dmServer.DarNuevaConexion;
-  frxReport.EngineOptions.NewSilentMode := simReThrow;  
+  frxReport.EngineOptions.NewSilentMode := simReThrow;
+
+  frxDBCabecera.DataSource := DADSCabecera;
+  frxDBDetalles.DataSource := DADSDetalles;
+
 end;
 
 procedure TRptPedidosProveedor.frxReportGetValue(const VarName: string;
@@ -125,9 +129,10 @@ begin
   
   //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
   try
-    //Vamos generando todos y cada uno de los albaranes recibidos
+    //Vamos generando todos y cada uno de los pedidos recibidos
     for i := 0 to ListaID.Count - 1 do
         _GenerarPedido(ListaID.Items[i]);
+
     frxReport.PreviewPages.SaveToStream(Result);
   finally
     //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
@@ -135,31 +140,18 @@ begin
 end;
 
 procedure TRptPedidosProveedor._GenerarPedido(const ID: Integer);
-var
-  AStream: TMemoryStream;
-  dsMaster: IDADataset;
-  dsDetail: IDADataset;
 begin
-  AStream := TMemoryStream.Create;
+  tbl_Cabecera.Active := False;
+  tbl_Detalles.Active := False;
 
-  try
-    frxDBCabecera.DataSource := DADSCabecera;
-    frxDBDetalles.DataSource := DADSDetalles;
+  tbl_Cabecera.ParamByName('ID').AsInteger := ID;
+  tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID;
 
-    tbl_Cabecera.ParamByName('ID').AsInteger := ID;
-    tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID;
+  tbl_Cabecera.Active := True;
+  tbl_Detalles.Active := True;
 
-    tbl_Cabecera.Active := True;
-    tbl_Detalles.Active := True;
-
-    frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
-    frxReport.PrepareReport(False);
-
-  finally
-    AStream.Free;
-    dsMaster := Nil;
-    dsDetail := Nil;
-  end;
+  frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
+  frxReport.PrepareReport(False);
 end;
 
 function TRptPedidosProveedor.GenerarPedidoEnPDF(
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
index 39552a41..ad9dbae8 100644
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas	
@@ -106,6 +106,11 @@ begin
   schReport.ConnectionManager := dmServer.ConnectionManager;
   FConnection := dmServer.DarNuevaConexion;
   frxReport.EngineOptions.NewSilentMode := simReThrow;
+
+  frxDBCabecera.DataSource := DADSCabecera;
+  frxDBCapitulos.DataSource := DADSCapitulos;
+  frxDBDetalles.DataSource := DADSDetalles;
+  frxDBResumen.DataSource := DADSResumen;
 end;
 
 function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary;
@@ -147,11 +152,6 @@ end;
 
 procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer);
 begin
-  frxDBCabecera.DataSource := DADSCabecera;
-  frxDBCapitulos.DataSource := DADSCapitulos;
-  frxDBDetalles.DataSource := DADSDetalles;
-  frxDBResumen.DataSource := DADSResumen;
-
   tbl_Cabecera.ParamByName('ID').AsInteger := AID;
   tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
   tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID;