diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.dfm b/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.dfm
deleted file mode 100644
index b91356fd..00000000
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.dfm	
+++ /dev/null
@@ -1,624 +0,0 @@
-object RptPresupuestosCliente: TRptPresupuestosCliente
-  OldCreateOrder = True
-  OnCreate = DataModuleCreate
-  Height = 405
-  Width = 447
-  object DADataCabecera: TDADataSource
-    DataSet = tbl_Cabecera.Dataset
-    DataTable = tbl_Cabecera
-    Left = 264
-    Top = 72
-  end
-  object DADataDetalles: TDADataSource
-    DataSet = tbl_Detalles.Dataset
-    DataTable = tbl_Detalles
-    Left = 344
-    Top = 72
-  end
-  object frxRichObject1: TfrxRichObject
-    Left = 48
-    Top = 296
-  end
-  object frxBarCodeObject1: TfrxBarCodeObject
-    Left = 144
-    Top = 296
-  end
-  object frxOLEObject1: TfrxOLEObject
-    Left = 48
-    Top = 344
-  end
-  object frxCrossObject1: TfrxCrossObject
-    Left = 144
-    Top = 344
-  end
-  object frxCheckBoxObject1: TfrxCheckBoxObject
-    Left = 256
-    Top = 296
-  end
-  object frxGradientObject1: TfrxGradientObject
-    Left = 360
-    Top = 296
-  end
-  object schReport: TDASchema
-    ConnectionManager = dmServer.ConnectionManager
-    DataDictionary = DataDictionary
-    Datasets = <
-      item
-        Params = <
-          item
-            Name = 'ID'
-            DataType = datInteger
-            Value = '15'
-            ParamType = daptInput
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'PEDIDOS_CLIENTE'
-            SQL = 
-              'SELECT'#10'  V_PEDIDOS_CLIENTE.ID,'#10'  V_PEDIDOS_CLIENTE.ID_EMPRESA,'#10' ' +
-              ' V_PEDIDOS_CLIENTE.ID_CLIENTE,'#10'  V_PEDIDOS_CLIENTE.NOMBRE,'#10'  V_C' +
-              'LIENTES.NOMBRE_COMERCIAL,'#10'  V_PEDIDOS_CLIENTE.REFERENCIA,'#10'  V_PE' +
-              'DIDOS_CLIENTE.REFERENCIA_CLIENTE,'#10'  V_PEDIDOS_CLIENTE.SITUACION,' +
-              #10'  V_PEDIDOS_CLIENTE.FECHA_PEDIDO,'#10'  V_PEDIDOS_CLIENTE.CALLE,'#10'  ' +
-              'V_PEDIDOS_CLIENTE.CODIGO_POSTAL,'#10'  V_PEDIDOS_CLIENTE.POBLACION,'#10 +
-              '  V_PEDIDOS_CLIENTE.PROVINCIA,'#10'  V_PEDIDOS_CLIENTE.PERSONA_CONTA' +
-              'CTO,'#10'  V_PEDIDOS_CLIENTE.TELEFONO,'#10'  V_PEDIDOS_CLIENTE.OBSERVACI' +
-              'ONES,'#10'  V_PEDIDOS_CLIENTE.INCIDENCIAS,'#10'  V_PEDIDOS_CLIENTE.INCID' +
-              'ENCIAS_ACTIVAS,'#10'  V_PEDIDOS_CLIENTE.FECHA_ALTA,'#10'  V_PEDIDOS_CLIE' +
-              'NTE.FECHA_MODIFICACION,'#10'  V_PEDIDOS_CLIENTE.USUARIO,'#10'  V_PEDIDOS' +
-              '_CLIENTE.IMPORTE_NETO,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_PORTE,'#10'  V_PE' +
-              'DIDOS_CLIENTE.DESCUENTO,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_DESCUENTO,'#10 +
-              '  V_PEDIDOS_CLIENTE.BASE_IMPONIBLE,'#10'  V_PEDIDOS_CLIENTE.IVA,'#10'  V' +
-              '_PEDIDOS_CLIENTE.IMPORTE_IVA,'#10'  V_PEDIDOS_CLIENTE.IMPORTE_TOTAL,' +
-              #10'  V_PEDIDOS_CLIENTE.ID_FORMA_PAGO,'#10'  EMPRESAS.NOMBRE AS NOMBRE_' +
-              'EMPRESA,'#10'  EMPRESAS.TELEFONO_1 as TELEFONO_1_EMPRESA,'#10'  EMPRESAS' +
-              '.FAX as FAX_EMPRESA'#10'FROM'#10'  V_PEDIDOS_CLIENTE'#10'  LEFT OUTER JOIN E' +
-              'MPRESAS ON (V_PEDIDOS_CLIENTE.ID_EMPRESA = EMPRESAS.ID)'#10'  LEFT O' +
-              'UTER JOIN V_CLIENTES ON (V_CLIENTES.ID = V_PEDIDOS_CLIENTE.ID_CL' +
-              'IENTE)'#10'WHERE'#10'  V_PEDIDOS_CLIENTE.ID = :ID'
-            StatementType = stSQL
-            ColumnMappings = <
-              item
-                DatasetField = 'OBSERVACIONES'
-                TableField = 'OBSERVACIONES'
-              end
-              item
-                DatasetField = 'NOMBRE'
-                TableField = 'NOMBRE'
-              end
-              item
-                DatasetField = 'CALLE'
-                TableField = 'CALLE'
-              end
-              item
-                DatasetField = 'POBLACION'
-                TableField = 'POBLACION'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
-              item
-                DatasetField = 'ID'
-                TableField = 'ID'
-              end
-              item
-                DatasetField = 'ID_EMPRESA'
-                TableField = 'ID_EMPRESA'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
-              item
-                DatasetField = 'CODIGO_POSTAL'
-                TableField = 'CODIGO_POSTAL'
-              end
-              item
-                DatasetField = 'FECHA_PEDIDO'
-                TableField = 'FECHA_PEDIDO'
-              end
-              item
-                DatasetField = 'PROVINCIA'
-                TableField = 'PROVINCIA'
-              end
-              item
-                DatasetField = 'PERSONA_CONTACTO'
-                TableField = 'PERSONA_CONTACTO'
-              end
-              item
-                DatasetField = 'TELEFONO'
-                TableField = 'TELEFONO'
-              end
-              item
-                DatasetField = 'ID_CLIENTE'
-                TableField = 'ID_CLIENTE'
-              end
-              item
-                DatasetField = 'SITUACION'
-                TableField = 'SITUACION'
-              end
-              item
-                DatasetField = 'INCIDENCIAS'
-                TableField = 'INCIDENCIAS'
-              end
-              item
-                DatasetField = 'INCIDENCIAS_ACTIVAS'
-                TableField = 'INCIDENCIAS_ACTIVAS'
-              end
-              item
-                DatasetField = 'FECHA_ALTA'
-                TableField = 'FECHA_ALTA'
-              end
-              item
-                DatasetField = 'FECHA_MODIFICACION'
-                TableField = 'FECHA_MODIFICACION'
-              end
-              item
-                DatasetField = 'USUARIO'
-                TableField = 'USUARIO'
-              end
-              item
-                DatasetField = 'IMPORTE_NETO'
-                TableField = 'IMPORTE_NETO'
-              end
-              item
-                DatasetField = 'IMPORTE_PORTE'
-                TableField = 'IMPORTE_PORTE'
-              end
-              item
-                DatasetField = 'DESCUENTO'
-                TableField = 'DESCUENTO'
-              end
-              item
-                DatasetField = 'IMPORTE_DESCUENTO'
-                TableField = 'IMPORTE_DESCUENTO'
-              end
-              item
-                DatasetField = 'BASE_IMPONIBLE'
-                TableField = 'BASE_IMPONIBLE'
-              end
-              item
-                DatasetField = 'IVA'
-                TableField = 'IVA'
-              end
-              item
-                DatasetField = 'IMPORTE_IVA'
-                TableField = 'IMPORTE_IVA'
-              end
-              item
-                DatasetField = 'ID_FORMA_PAGO'
-                TableField = 'ID_FORMA_PAGO'
-              end
-              item
-                DatasetField = 'NOMBRE_EMPRESA'
-                TableField = 'NOMBRE_EMPRESA'
-              end
-              item
-                DatasetField = 'TELEFONO_1_EMPRESA'
-                TableField = 'TELEFONO_1_EMPRESA'
-              end
-              item
-                DatasetField = 'FAX_EMPRESA'
-                TableField = 'FAX_EMPRESA'
-              end
-              item
-                DatasetField = 'NOMBRE_COMERCIAL'
-                TableField = 'NOMBRE_COMERCIAL'
-              end
-              item
-                DatasetField = 'REFERENCIA_CLIENTE'
-                TableField = 'REFERENCIA_CLIENTE'
-              end>
-          end>
-        Name = 'Informe_Cabecera'
-        Fields = <
-          item
-            Name = 'ID'
-            DataType = datInteger
-            InPrimaryKey = True
-          end
-          item
-            Name = 'ID_EMPRESA'
-            DataType = datInteger
-          end
-          item
-            Name = 'ID_CLIENTE'
-            DataType = datInteger
-          end
-          item
-            Name = 'REFERENCIA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'NOMBRE_COMERCIAL'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'FECHA_PEDIDO'
-            DataType = datDateTime
-          end
-          item
-            Name = 'REFERENCIA_CLIENTE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'SITUACION'
-            DataType = datString
-            Size = 9
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
-          end
-          item
-            Name = 'OBSERVACIONES'
-            DataType = datMemo
-          end
-          item
-            Name = 'NOMBRE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CALLE'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CODIGO_POSTAL'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'PROVINCIA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'PERSONA_CONTACTO'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'TELEFONO'
-            DataType = datString
-            Size = 25
-          end
-          item
-            Name = 'INCIDENCIAS'
-            DataType = datMemo
-          end
-          item
-            Name = 'INCIDENCIAS_ACTIVAS'
-            DataType = datInteger
-          end
-          item
-            Name = 'FECHA_ALTA'
-            DataType = datDateTime
-          end
-          item
-            Name = 'FECHA_MODIFICACION'
-            DataType = datDateTime
-          end
-          item
-            Name = 'USUARIO'
-            DataType = datString
-            Size = 20
-          end
-          item
-            Name = 'IMPORTE_NETO'
-            DataType = datFloat
-          end
-          item
-            Name = 'IMPORTE_PORTE'
-            DataType = datFloat
-          end
-          item
-            Name = 'DESCUENTO'
-            DataType = datFloat
-          end
-          item
-            Name = 'IMPORTE_DESCUENTO'
-            DataType = datFloat
-          end
-          item
-            Name = 'BASE_IMPONIBLE'
-            DataType = datFloat
-          end
-          item
-            Name = 'IVA'
-            DataType = datFloat
-          end
-          item
-            Name = 'IMPORTE_IVA'
-            DataType = datFloat
-          end
-          item
-            Name = 'POBLACION'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'ID_FORMA_PAGO'
-            DataType = datInteger
-          end
-          item
-            Name = 'NOMBRE_EMPRESA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'TELEFONO_1_EMPRESA'
-            DataType = datString
-            Size = 25
-          end
-          item
-            Name = 'FAX_EMPRESA'
-            DataType = datString
-            Size = 25
-          end>
-      end
-      item
-        Params = <
-          item
-            Name = 'ID_PEDIDO'
-            Value = ''
-            ParamType = daptInput
-          end>
-        Statements = <
-          item
-            Connection = 'IBX'
-            TargetTable = 'PEDIDOS_CLIENTE_DETALLES'
-            SQL = 
-              'SELECT PEDIDOS_CLIENTE_DETALLES.ID, PEDIDOS_CLIENTE_DETALLES.ID_' +
-              'PEDIDO,'#10'       PEDIDOS_CLIENTE_DETALLES.POSICION, PEDIDOS_CLIENT' +
-              'E_DETALLES.TIPO_DETALLE,'#10'       PEDIDOS_CLIENTE_DETALLES.CONCEPT' +
-              'O, PEDIDOS_CLIENTE_DETALLES.CANTIDAD,'#10'       PEDIDOS_CLIENTE_DET' +
-              'ALLES.IMPORTE_UNIDAD, PEDIDOS_CLIENTE_DETALLES.IMPORTE_TOTAL,'#10'  ' +
-              '     ARTICULOS.REFERENCIA, ARTICULOS.FAMILIA, ARTICULOS.REFERENC' +
-              'IA_PROV as REFERENCIA_PROVEEDOR'#10#10'FROM PEDIDOS_CLIENTE_DETALLES'#10'L' +
-              'EFT JOIN ARTICULOS ON (PEDIDOS_CLIENTE_DETALLES.ID_ARTICULO = AR' +
-              'TICULOS.ID)'#10'WHERE ID_PEDIDO = :ID_PEDIDO'#10'ORDER BY POSICION'
-            StatementType = stSQL
-            ColumnMappings = <
-              item
-                DatasetField = 'CANTIDAD'
-                TableField = 'CANTIDAD'
-              end
-              item
-                DatasetField = 'POSICION'
-                TableField = 'POSICION'
-              end
-              item
-                DatasetField = 'ID'
-                TableField = 'ID'
-              end
-              item
-                DatasetField = 'TIPO_DETALLE'
-                TableField = 'TIPO_DETALLE'
-              end
-              item
-                DatasetField = 'CONCEPTO'
-                TableField = 'CONCEPTO'
-              end
-              item
-                DatasetField = 'IMPORTE_UNIDAD'
-                TableField = 'IMPORTE_UNIDAD'
-              end
-              item
-                DatasetField = 'IMPORTE_TOTAL'
-                TableField = 'IMPORTE_TOTAL'
-              end
-              item
-                DatasetField = 'ID_PEDIDO'
-                TableField = 'ID_PEDIDO'
-              end
-              item
-                DatasetField = 'REFERENCIA'
-                TableField = 'REFERENCIA'
-              end
-              item
-                DatasetField = 'FAMILIA'
-                TableField = 'FAMILIA'
-              end
-              item
-                DatasetField = 'REFERENCIA_PROVEEDOR'
-                TableField = 'REFERENCIA_PROVEEDOR'
-              end>
-          end>
-        Name = 'Informe_Detalles'
-        Fields = <
-          item
-            Name = 'ID'
-            DataType = datInteger
-          end
-          item
-            Name = 'ID_PEDIDO'
-            DataType = datInteger
-          end
-          item
-            Name = 'POSICION'
-            DataType = datInteger
-          end
-          item
-            Name = 'TIPO_DETALLE'
-            DataType = datString
-            Size = 10
-          end
-          item
-            Name = 'REFERENCIA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'CONCEPTO'
-            DataType = datString
-            Size = 2000
-          end
-          item
-            Name = 'CANTIDAD'
-            DataType = datInteger
-          end
-          item
-            Name = 'IMPORTE_UNIDAD'
-            DataType = datFloat
-          end
-          item
-            Name = 'IMPORTE_TOTAL'
-            DataType = datFloat
-          end
-          item
-            Name = 'FAMILIA'
-            DataType = datString
-            Size = 255
-          end
-          item
-            Name = 'REFERENCIA_PROVEEDOR'
-            DataType = datString
-            Size = 255
-          end>
-      end>
-    JoinDataTables = <>
-    UnionDataTables = <>
-    Commands = <>
-    RelationShips = <>
-    UpdateRules = <>
-    Version = 0
-    Left = 48
-    Top = 16
-  end
-  object DataDictionary: TDADataDictionary
-    Fields = <>
-    Left = 46
-    Top = 142
-  end
-  object frxReport: TfrxReport
-    Version = '3.23.7'
-    DotMatrixReport = False
-    EngineOptions.DoublePass = True
-    IniFile = '\Software\Fast Reports'
-    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick]
-    PreviewOptions.Zoom = 1.000000000000000000
-    PrintOptions.Printer = 'Por defecto'
-    ReportOptions.CreateDate = 39065.872423495400000000
-    ReportOptions.LastChange = 39255.590290254630000000
-    ScriptLanguage = 'PascalScript'
-    ScriptText.Strings = (
-      ''
-      'procedure DatosEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  Cadena: String;'
-      'begin'
-      '  DatosEmpresa.Lines.Clear;'
-      '  if (<frxDBCabecera."TELEFONO_1_EMPRESA"> <> '#39#39') then'
-      '       Cadena := '#39'TLF: '#39' + <frxDBCabecera."TELEFONO_1_EMPRESA">;'
-      '  if (<frxDBCabecera."FAX_EMPRESA"> <> '#39#39') then'
-      
-        '       Cadena := Cadena + '#39' FAX: '#39' + <frxDBCabecera."FAX_EMPRESA' +
-        '">;'
-      '  DatosEmpresa.Lines.Add(Cadena);'
-      'end;'
-      ''
-      'procedure NombreEmpresaOnBeforePrint(Sender: TfrxComponent);'
-      'begin'
-      '  NombreEmpresa.Lines.Clear;'
-      '  NombreEmpresa.Lines.Add(<frxDBCabecera."NOMBRE_EMPRESA">);'
-      'end;'
-      ''
-      'procedure DireccionEnvioOnBeforePrint(Sender: TfrxComponent);'
-      'var'
-      '  ACadena : String;'
-      'begin'
-      '  ACadena := '#39#39';'
-      '  DireccionEnvio.Lines.Clear;'
-      '  if (<frxDBCabecera."REFERENCIA_CLIENTE"> <> '#39#39') then'
-      '     ACadena := <frxDBCabecera."REFERENCIA_CLIENTE">;'
-      ''
-      '  if (<frxDBCabecera."PERSONA_CONTACTO"> <> '#39#39') then'
-      
-        '     ACadena := ACadena + '#39'  '#39' + <frxDBCabecera."PERSONA_CONTACT' +
-        'O">;'
-      ''
-      '  DireccionEnvio.Lines.Add(ACadena);'
-      '  ACadena := '#39#39';'
-      '  DireccionEnvio.Lines.Add(<frxDBCabecera."CALLE">);'
-      '  if (<frxDBCabecera."CODIGO_POSTAL"> <> '#39#39') then'
-      '     ACadena := <frxDBCabecera."CODIGO_POSTAL"> + '#39' '#39';'
-      '  if (<frxDBCabecera."POBLACION"> <> '#39#39') then'
-      '     ACadena := ACadena + <frxDBCabecera."CODIGO_POSTAL">;'
-      ''
-      '  if (ACadena <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(ACadena);'
-      ''
-      '  if (<frxDBCabecera."PROVINCIA"> <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(<frxDBCabecera."PROVINCIA">);'
-      ''
-      '  if (<frxDBCabecera."TELEFONO"> <> '#39#39') then'
-      '       DireccionEnvio.Lines.Add(<frxDBCabecera."TELEFONO">);'
-      'end;'
-      ''
-      'begin'
-      ''
-      'end.')
-    ShowProgress = False
-    StoreInDFM = False
-    Left = 169
-    Top = 16
-    Datasets = <
-      item
-        DataSet = frxDBCabecera
-        DataSetName = 'frxDBCabecera'
-      end
-      item
-        DataSet = frxDBDetalles
-        DataSetName = 'frxDBDetalles'
-      end>
-    Variables = <>
-    Style = <>
-  end
-  object frxDBCabecera: TfrxDBDataset
-    UserName = 'frxDBCabecera'
-    CloseDataSource = False
-    DataSource = DADataCabecera
-    Left = 264
-    Top = 16
-  end
-  object frxDBDetalles: TfrxDBDataset
-    UserName = 'frxDBDetalles'
-    CloseDataSource = False
-    DataSource = DADataDetalles
-    Left = 344
-    Top = 16
-  end
-  object Bin2DataStreamer: TDABin2DataStreamer
-    Left = 48
-    Top = 80
-  end
-  object tbl_Cabecera: TDAMemDataTable
-    RemoteUpdatesOptions = []
-    Fields = <>
-    Params = <>
-    StreamingOptions = [soDisableEventsWhileStreaming]
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
-    IndexDefs = <>
-    Left = 264
-    Top = 128
-  end
-  object tbl_Detalles: TDAMemDataTable
-    RemoteUpdatesOptions = []
-    Fields = <>
-    Params = <>
-    StreamingOptions = [soDisableEventsWhileStreaming]
-    DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
-    MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
-    IndexDefs = <>
-    Left = 344
-    Top = 128
-  end
-end
diff --git a/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.pas b/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.pas
deleted file mode 100644
index 9ff6ce5c..00000000
--- a/Source/Modulos/Presupuestos de cliente/Reports/uRptPedidosCliente_Server.pas	
+++ /dev/null
@@ -1,118 +0,0 @@
-unit uRptPedidosCliente_Server;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
-  Dialogs, frxClass, frxDBSet, uDAScriptingProvider,
-  uDADataTable, uDACDSDataTable, DB, uDAClasses, frxChart, frxGradient,
-  frxChBox, frxCross, frxOLE, frxBarcode, frxRich, uDABINAdapter, uROTypes,
-  uDAInterfaces, uDAMemDataTable, uDADataStreamer, uDABin2DataStreamer;
-
-type
-  TRptPresupuestosCliente = class(TDataModule)
-    DADataCabecera: TDADataSource;
-    DADataDetalles: TDADataSource;
-    frxRichObject1: TfrxRichObject;
-    frxBarCodeObject1: TfrxBarCodeObject;
-    frxOLEObject1: TfrxOLEObject;
-    frxCrossObject1: TfrxCrossObject;
-    frxCheckBoxObject1: TfrxCheckBoxObject;
-    frxGradientObject1: TfrxGradientObject;
-    frxChartObject1: TfrxChartObject;
-    frxDBCabecera: TfrxDBDataset;
-    frxDBDetalles: TfrxDBDataset;
-    schReport: TDASchema;
-    DataDictionary: TDADataDictionary;
-    frxReport: TfrxReport;
-    Bin2DataStreamer: TDABin2DataStreamer;
-    tbl_Cabecera: TDAMemDataTable;
-    tbl_Detalles: TDAMemDataTable;
-    procedure DataModuleCreate(Sender: TObject);
-  private
-    FConnection: IDAConnection;
-    procedure GenerarPedido(const AID : Integer); overload;
-  public
-    function GenerarPedido(const AID : String): Binary; overload;
-  end;
-
-implementation
-
-{$R *.dfm}
-
-uses
-  uDataModuleServer, schPedidosClienteClient_Intf;
-
-const
-  rptInforme = 'InfPedidoCliente.fr3';
-
-  { Dataset names for schReport }
-  ds_InformeCabecera = 'Informe_Cabecera';
-  ds_InformeDetalles = 'Informe_Detalles';
-
-
-{ TRptPedidosProveedor }
-
-
-procedure TRptPresupuestosCliente.DataModuleCreate(Sender: TObject);
-begin
-  schReport.ConnectionManager := dmServer.ConnectionManager;
-  FConnection := dmServer.DarNuevaConexion;
-  frxReport.EngineOptions.NewSilentMode := simReThrow;
-end;
-
-function TRptPresupuestosCliente.GenerarPedido(const AID: String): Binary;
-var
-  ID_Pedidos: TStringList;
-  i: Integer;
-
-begin
-  Result := Binary.Create;
-  FConnection.BeginTransaction;
-
-  try
-    ID_Pedidos := TStringList.Create;
-    ID_Pedidos.CommaText := AID;
-
-    //Vamos generando todos y cada uno de los albaranes recibidos
-    for i := 0 to ID_Pedidos.Count - 1 do
-        GenerarPedido(StrToInt(ID_Pedidos.Strings[i]));
-
-    frxReport.PreviewPages.SaveToStream(Result);
-
-  finally
-    FConnection.RollbackTransaction;
-  end;
-end;
-
-procedure TRptPresupuestosCliente.GenerarPedido(const AID: Integer);
-var
-  AStream: TMemoryStream;
-  dsMaster: IDADataset;
-  dsDetail: IDADataset;
-begin
-  AStream := TMemoryStream.Create;
-
-  try
-    dsMaster := schReport.NewDataset(FConnection, ds_InformeCabecera, ['ID'], [AID]);
-    dsDetail := schReport.NewDataset(FConnection, ds_InformeDetalles, ['ID_PEDIDO'], [AID], False);
-
-    AStream.Clear;
-    DABINAdapter.WriteDataset(AStream, dsMaster, [woRows, woSchema], -1);
-    DABINAdapter.ReadDataset(AStream, tbl_Cabecera, TRUE, '', TRUE, TRUE);
-
-    AStream.Clear;
-    DABINAdapter.WriteDataset(AStream, dsDetail, [woRows, woSchema], -1);
-    DABINAdapter.ReadDataset(AStream, tbl_Detalles, TRUE, '', TRUE, TRUE);
-
-    frxReport.LoadFromFile(DarRutaInformes + rptInforme, True);
-    frxReport.PrepareReport(False);
-
-  finally
-    AStream.Free;
-    dsMaster := Nil;
-    dsDetail := Nil;
-  end;
-end;
-
-end.