Cambio para que se vea opcion en lugar de refencia del presupuesto en la factura de cliente

git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@45 9a1d36f3-7752-2d40-8ccb-50eb49674c68

Base/BaseD7.dof

@@ -168,8 +168,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -189,8 +189,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
+Item0=..\Output\Cliente
-Item1=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Base/uDataModuleBase.dfm

@@ -1,8 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 1374
+  Left = 1377
-  Top = 266
+  Top = 310
   Height = 368
   Width = 494
   object SmallImages: TPngImageList

Base/uEditorBase.dfm

@@ -1,6 +1,6 @@
 object fEditorBase: TfEditorBase
-  Left = 586
+  Left = 587
-  Top = 118
+  Top = 137
   Width = 670
   Height = 512
   Caption = 'EditorBase'

Base/uEditorDBItem.dfm

@@ -1,5 +1,5 @@
 inherited fEditorDBItem: TfEditorDBItem
-  Left = 674
+  Left = 675
   Caption = 'fEditorDBItem'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorGrid.dfm

@@ -1,6 +1,6 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 386
+  Left = 387
-  Top = 150
+  Top = 175
   Width = 714
   Height = 485
   Caption = 'fEditorGrid'

Base/uViewGrid.dfm

@@ -149,7 +149,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageSize.Y = 297000
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 43563.775367581020000000
+      ReportDocument.CreationDate = 43647.535044629630000000
       OptionsCharts.Transparent = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsOnEveryPage.Caption = False

Cliente/FactuGES.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=1
 MinorVer=6
-Release=3
+Release=4
 Build=0
 Debug=0
 PreRelease=0
@@ -126,13 +126,13 @@ CodePage=1252
 [Version Info Keys]
 CompanyName=Rodax Software S.L.
 FileDescription=
-FileVersion=1.6.3.0
+FileVersion=1.6.4.0
 InternalName=FactuGES
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=FactuGES
-ProductVersion=1.6.3.0
+ProductVersion=1.6.4.0
 Comments=
 [Excluded Packages]
 C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
@@ -183,8 +183,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -204,8 +204,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
+Item0=..\Output\Cliente
-Item1=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Modulos/Facturas de cliente/Cliente/uEditorFacturaCliente.dfm

@@ -106,9 +106,6 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
           inherited edtCalle: TcxDBTextEdit
             DataBinding.DataSource = frViewFacturaCliente1.DADataSource
           end
-          inherited ToolBar2: TToolBar
-            Width = 182
-          end
           inherited edtCodigoPostal: TcxDBTextEdit
             DataBinding.DataSource = frViewFacturaCliente1.DADataSource
           end
@@ -134,7 +131,8 @@ inherited fEditorFacturaCliente: TfEditorFacturaCliente
         end
         inherited frViewPresupuestoFactura1: TfrViewPresupuestoFactura
           inherited edtlReferencia: TcxDBTextEdit
-            DataBinding.DataField = 'REFERENCIA'
+            DataBinding.DataField = 'REFERENCIA_MONTAJE_PRE'
+            DataBinding.DataSource = dsDataTable
           end
         end
       end

Modulos/Facturas de cliente/Cliente/uViewFacturaCliente.pas

@@ -86,11 +86,12 @@ begin
   frViewDatosFacturaCliente1.DADataSource.DataTable := DADataSource.DataTable;
   frViewObservaciones1.DADataSource.DataTable := DADataSource.DataTable;
   frViewFormaPago1.DADataSource.DataTable := DADataSource.DataTable;
+  frViewPresupuestoFactura1.DADataSource.DataTable := DADataSource.DataTable;
 
   frViewDatosYSeleccionContacto1.Contacto := FFacturaCliente.Cliente;
   frViewDatosYSeleccionContacto1.OnContactoChanged := OnContactoChanged;
 
-  frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOALBARAN);
+  frViewPresupuestoFactura1.Presupuesto := dmPresupuestos.GetPresupuesto(FFacturaCliente.CODIGOPRESUPUESTO);
   frViewPresupuestoFactura1.OnPresupuestoChanged := OnPresupuestoChanged;
 end;
 

Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.dfm

@@ -0,0 +1,7 @@
+inherited frViewPresupuestoFactura: TfrViewPresupuestoFactura
+  inherited ActionList1: TActionList
+    inherited actElegirPresupuesto: TAction
+      OnExecute = actElegirPresupuestoExecute
+    end
+  end
+end

Modulos/Facturas de cliente/Cliente/uViewPresupuestoFactura.pas

@@ -0,0 +1,64 @@
+unit uViewPresupuestoFactura;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, uViewPresupuestoRelacionado, DB, uDADataTable, ImgList,
+  PngImageList, ActnList, cxControls, cxContainer, cxEdit, cxTextEdit,
+  cxDBEdit, ComCtrls, ToolWin, ExtCtrls, StdCtrls;
+
+type
+  TfrViewPresupuestoFactura = class(TfrViewPresupuestoRelacionado)
+    procedure actElegirPresupuestoExecute(Sender: TObject);
+    procedure actVerPresupuestoUpdate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frViewPresupuestoFactura: TfrViewPresupuestoFactura;
+
+implementation
+{$R *.dfm}
+
+uses uBizPresupuestosCliente, uDataModulePresupuestos, schFacturasClienteClient_Intf,
+  uDAInterfaces;
+
+procedure TfrViewPresupuestoFactura.actElegirPresupuestoExecute(Sender: TObject);
+var
+  APresupuesto : IBizPresupuestos;
+begin
+  inherited;
+
+  if Length(edtlReferencia.Text) > 0 then
+    if (MessageBox(0, 'Esta factura ya tiene asociado un presupuesto/albarán. '+#13+#10+
+      'Si elige otro presupuesto/albarán, se cambiará en esta factura el cliente y los conceptos '+#13+#10+
+      'para hacerlos coincidir con el presupuesto/albarán elegido. '+#13+#10+
+      '¿Desea continuar?', 'Confirmación', MB_ICONQUESTION or MB_YESNO) = idNo) then
+      Exit;
+
+  APresupuesto := dmPresupuestos.GetPresupuestos;
+  try
+    if APresupuesto.ShowForSelect = mrOK then
+    begin
+      Self.Presupuesto := dmPresupuestos.GetItemsSeleccionados(APresupuesto)
+    end;
+  finally
+    APresupuesto := NIL;
+  end;
+end;
+
+procedure TfrViewPresupuestoFactura.actVerPresupuestoUpdate(
+  Sender: TObject);
+begin
+//  inherited;
+  if assigned(DADataSource) then
+  begin
+  (Sender as TAction).Enabled := not VarIsNull(edtlReferencia.EditValue);
+  end;
+end;
+
+end.

Modulos/Montajes/Cliente/uDataModuleMontajes.dfm

@@ -10,8 +10,8 @@ object dmMontajes: TdmMontajes
       ParamType = fResult
       DataType = rtString
     end>
-  Left = 423
+  Left = 424
-  Top = 115
+  Top = 134
   Height = 335
   Width = 536
   object RORemoteService: TRORemoteService

Modulos/Montajes/Cliente/uEditorMontaje.dfm

@@ -1,6 +1,6 @@
 inherited fEditorMontaje: TfEditorMontaje
-  Left = 297
+  Left = 298
-  Top = 103
+  Top = 120
   Width = 766
   Height = 497
   HorzScrollBar.Visible = False
@@ -139,8 +139,8 @@ inherited fEditorMontaje: TfEditorMontaje
         ReadOnly = False
         inherited cxGrid: TcxGrid
           Width = 750
-          Height = 213
+          Height = 187
-          TabOrder = 2
+          TabOrder = 3
           inherited cxGridView: TcxGridDBTableView
             inherited cxGridViewINCIDENCIASACTIVAS: TcxGridDBColumn
               IsCaptionAssigned = True
@@ -181,7 +181,18 @@ inherited fEditorMontaje: TfEditorMontaje
             end
           end
         end
-        inherited dxComponentPrinter: TdxComponentPrinter [4]
+        inherited pnlAgrupaciones: TTBXDockablePanel
+          Top = 314
+          inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+            Width = 750
+            inherited TBXToolbar1: TTBXToolbar
+              Width = 740
+            end
+          end
+        end
+        inherited ActionList2: TActionList [5]
+        end
+        inherited dxComponentPrinter: TdxComponentPrinter
           inherited dxComponentPrinterLink: TdxGridReportLink
             Active = False
             Component = nil
@@ -189,15 +200,11 @@ inherited fEditorMontaje: TfEditorMontaje
             BuiltInReportLink = True
           end
         end
-        inherited dxPSEngineController1: TdxPSEngineController [5]
+        inherited PngImageList: TPngImageList [9]
         end
-        inherited cxStyleRepository1: TcxStyleRepository [6]
+        inherited PngImageList2: TPngImageList [10]
         end
-        inherited PngImageList: TPngImageList [7]
+        inherited ActionList1: TActionList [11]
-        end
-        inherited PngImageList2: TPngImageList [8]
-        end
-        inherited ActionList1: TActionList [9]
           inherited actRecibirPedido: TAction
             OnExecute = frViewPedidosMontajeactRecibirPedidoExecute
             OnUpdate = frViewPedidosMontajeactRecibirPedidoUpdate
@@ -224,7 +231,7 @@ inherited fEditorMontaje: TfEditorMontaje
         ReadOnly = False
         inherited cxGrid: TcxGrid
           Width = 750
-          Height = 213
+          Height = 187
         end
         inherited ToolBar1: TToolBar
           Width = 750
@@ -256,6 +263,15 @@ inherited fEditorMontaje: TfEditorMontaje
             end
           end
         end
+        inherited pnlAgrupaciones: TTBXDockablePanel
+          Top = 314
+          inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+            Width = 750
+            inherited TBXToolbar1: TTBXToolbar
+              Width = 740
+            end
+          end
+        end
         inherited dxComponentPrinter: TdxComponentPrinter
           inherited dxComponentPrinterLink: TdxGridReportLink
             ReportDocument.CreationDate = 38751.760538553240000000
@@ -283,8 +299,8 @@ inherited fEditorMontaje: TfEditorMontaje
         ReadOnly = False
         inherited cxGrid: TcxGrid
           Width = 750
-          Height = 213
+          Height = 187
-          TabOrder = 2
+          TabOrder = 3
           inherited cxGridView: TcxGridDBTableView
             DataController.Summary.FooterSummaryItems = <
               item
@@ -338,6 +354,15 @@ inherited fEditorMontaje: TfEditorMontaje
             end
           end
         end
+        inherited pnlAgrupaciones: TTBXDockablePanel
+          Top = 314
+          inherited TBXAlignmentPanel1: TTBXAlignmentPanel
+            Width = 750
+            inherited TBXToolbar1: TTBXToolbar
+              Width = 740
+            end
+          end
+        end
         inherited dxComponentPrinter: TdxComponentPrinter
           inherited dxComponentPrinterLink: TdxGridReportLink
             Active = False

Modulos/Montajes/Cliente/uViewArticulosMontaje.dfm

@@ -74,21 +74,6 @@ inherited frViewArticulosMontaje: TfrViewArticulosMontaje
   end
   inherited frViewFiltroBase1: TfrViewFiltroBase
     Top = 25
-    inherited TBXDock1: TTBXDock
-      inherited TBXDockablePanel1: TTBXDockablePanel
-        inherited dxLayoutControl1: TdxLayoutControl
-          inherited txtFiltroTodo: TcxTextEdit
-            Width = 465
-          end
-          inherited edtFechaIniFiltro: TcxDateEdit
-            Width = 245
-          end
-          inherited edtFechaFinFiltro: TcxDateEdit
-            Width = 204
-          end
-        end
-      end
-    end
   end
   inherited ActionList1: TActionList
     Images = PngImageList

Modulos/Montajes/Cliente/uViewFichaBeneficiosMontaje.dfm

@@ -34,14 +34,12 @@ inherited frViewFichaBeneficiosMontaje: TfrViewFichaBeneficiosMontaje
       OptionsSelection.CellSelect = True
       object cxGridViewRecID: TcxGridDBColumn
         DataBinding.FieldName = 'RecID'
-        Visible = False
       end
       object cxGridViewCODIGOMONTAJE: TcxGridDBColumn
         DataBinding.FieldName = 'CODIGOMONTAJE'
       end
       object cxGridViewNUMCONCEPTO: TcxGridDBColumn
         DataBinding.FieldName = 'NUMCONCEPTO'
-        Visible = False
       end
       object cxGridViewDESCRIPCION: TcxGridDBColumn
         DataBinding.FieldName = 'DESCRIPCION'

Modulos/Montajes/Servidor/srvMontajes_Impl.dfm

@@ -5,8 +5,8 @@ object srvMontajes: TsrvMontajes
   ConnectionName = 'IBX'
   ServiceSchema = schMontajes
   ServiceAdapter = DABINAdapter
-  Left = 1065
+  Left = 1067
-  Top = 212
+  Top = 247
   Height = 356
   Width = 300
   object bpMontajes: TDABusinessProcessor

Modulos/Presupuestos/Cliente/uEditorPresupuestos.dfm

@@ -1,6 +1,6 @@
 inherited fEditorPresupuestos: TfEditorPresupuestos
-  Left = 491
+  Left = 492
-  Top = 241
+  Top = 281
   Width = 901
   Caption = 'Lista de presupuestos'
   PixelsPerInch = 96

Servidor/FactuGES_Server.dof

@@ -183,8 +183,8 @@ Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
 Count=16
-Item0=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
-Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Intervalos;..\Modulos\Documentos asociados;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Presupuestos\Cliente;..\Modulos\Presupuestos\Reglas;..\Modulos\Albaranes de cliente\Cliente;..\Modulos\Albaranes de cliente\Reglas;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Pedidos a proveedor\Cliente;..\Modulos\Pedidos a proveedor\Reglas;..\Modulos\Facturas de proveedor\Cliente;..\Modulos\Facturas de proveedor\Reglas;..\Modulos\Montajes\Reglas;..\Modulos\Montajes\Cliente;..\Modulos\Articulos\Cliente;..\Modulos\Articulos\Reglas;..\Modulos\Almacenes\Reglas;..\Modulos\Almacenes\Cliente;..\Modulos\Pagos\Reglas;..\Modulos\Pagos\Cliente;..\Modulos\Cuentas\Reglas;..\Modulos\Cuentas\Cliente;..\Modulos\Asientos\Reglas;..\Modulos\Asientos\Cliente;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item1=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
 Item2=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente;..\..\Cuentas\Cliente
 Item3=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente;..\..\Asientos\Cliente
 Item4=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\Presupuestos\Cliente;..\..\..\Usuarios;..\..\Albaranes de cliente\Cliente;..\..\Documentos asociados;..\..\Pagos\Cliente;..\..\Intervalos\Cliente
@@ -204,8 +204,8 @@ Count=1
 Item0=.\
 [HistoryLists\hlOutputDirectorry]
 Count=2
-Item0=..\Output\Servidor
+Item0=..\Output\Cliente
-Item1=..\Output\Cliente
+Item1=..\Output\Servidor
 [HistoryLists\hlBPLOutput]
 Count=3
 Item0=..\..\..\Output\Cliente

Servidor/fServerForm.pas

@@ -7,7 +7,7 @@ uses
   uROClient, uROPoweredByRemObjectsButton, uROClientIntf, uROServer,
   uROBinMessage, uROIndyHTTPServer, uROIndyTCPServer, frxClass, frxPreview,
   JvComponent, JvTrayIcon, ActnList, Menus, XPMan, JvExControls,
-  JvGradient, JvGIF, ExtCtrls;
+  JvGradient, JvGIF, ExtCtrls, JvComponentBase;
 
 type
   TServerForm = class(TForm)