Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Repaso a las unidades de generación de informes del servidor.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@615 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-09-24 14:32:09 +00:00
parent e312159c00
commit cb9669b9a1
2 changed files with 20 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
Source/Modulos/Pedidos a proveedor/Reports/uRptPedidosProveedor_Server.pas
View File

@ -101,7 +101,11 @@ procedure TRptPedidosProveedor.DataModuleCreate(Sender: TObject);
begin begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADSCabecera;
frxDBDetalles.DataSource := DADSDetalles;
end; end;
procedure TRptPedidosProveedor.frxReportGetValue(const VarName: string; procedure TRptPedidosProveedor.frxReportGetValue(const VarName: string;
@ -125,9 +129,10 @@ begin
//FConnection.BeginTransaction; <--- Creo que no va a hacer falta. //FConnection.BeginTransaction; <--- Creo que no va a hacer falta.
try 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 for i := 0 to ListaID.Count - 1 do
_GenerarPedido(ListaID.Items[i]); _GenerarPedido(ListaID.Items[i]);
frxReport.PreviewPages.SaveToStream(Result); frxReport.PreviewPages.SaveToStream(Result);
finally finally
//FConnection.RollbackTransaction; <--- Creo que no va a hacer falta. //FConnection.RollbackTransaction; <--- Creo que no va a hacer falta.
@ -135,31 +140,18 @@ begin
end; end;
procedure TRptPedidosProveedor._GenerarPedido(const ID: Integer); procedure TRptPedidosProveedor._GenerarPedido(const ID: Integer);
var
AStream: TMemoryStream;
dsMaster: IDADataset;
dsDetail: IDADataset;
begin begin
AStream := TMemoryStream.Create; tbl_Cabecera.Active := False;
tbl_Detalles.Active := False;
try tbl_Cabecera.ParamByName('ID').AsInteger := ID;
frxDBCabecera.DataSource := DADSCabecera; tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID;
frxDBDetalles.DataSource := DADSDetalles;
tbl_Cabecera.ParamByName('ID').AsInteger := ID; tbl_Cabecera.Active := True;
tbl_Detalles.ParamByName('ID_PEDIDO').AsInteger := ID; tbl_Detalles.Active := True;
tbl_Cabecera.Active := True; frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
tbl_Detalles.Active := True; frxReport.PrepareReport(False);
frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
frxReport.PrepareReport(False);
finally
AStream.Free;
dsMaster := Nil;
dsDetail := Nil;
end;
end; end;
function TRptPedidosProveedor.GenerarPedidoEnPDF( function TRptPedidosProveedor.GenerarPedidoEnPDF(

10
Source/Modulos/Presupuestos de cliente/Reports/uRptPresupuestosCliente_Server.pas
View File

@ -106,6 +106,11 @@ begin
schReport.ConnectionManager := dmServer.ConnectionManager; schReport.ConnectionManager := dmServer.ConnectionManager;
FConnection := dmServer.DarNuevaConexion; FConnection := dmServer.DarNuevaConexion;
frxReport.EngineOptions.NewSilentMode := simReThrow; frxReport.EngineOptions.NewSilentMode := simReThrow;
frxDBCabecera.DataSource := DADSCabecera;
frxDBCapitulos.DataSource := DADSCapitulos;
frxDBDetalles.DataSource := DADSDetalles;
frxDBResumen.DataSource := DADSResumen;
end; end;
function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary; function TRptPresupuestosCliente.GenerarPresupuestoEnPDF(const ListaID: TIntegerArray): Binary;
@ -147,11 +152,6 @@ end;
procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer); procedure TRptPresupuestosCliente._GenerarPresupuesto(const AID: Integer);
begin begin
frxDBCabecera.DataSource := DADSCabecera;
frxDBCapitulos.DataSource := DADSCapitulos;
frxDBDetalles.DataSource := DADSDetalles;
frxDBResumen.DataSource := DADSResumen;
tbl_Cabecera.ParamByName('ID').AsInteger := AID; tbl_Cabecera.ParamByName('ID').AsInteger := AID;
tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID; tbl_Capitulos.ParamByName('ID_PRESUPUESTO').AsInteger := AID;
tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID; tbl_Detalles.ParamByName('ID_PRESUPUESTO').AsInteger := AID;