.

git-svn-id: https://192.168.0.254/svn/Proyectos.EstudioCarnicero_ProGestion/trunk@19 1b8572a8-2d6b-b84e-8c90-20ed86fa4eca

Base/BaseD7.dof

@@ -135,29 +135,32 @@ ProductName=
 ProductVersion=1.0.0.0
 Comments=
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+Item1=.\
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=16
+Count=18
-Item0=$(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
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
-Item1=$(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
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
-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
+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
+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=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+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
-Item5=$(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
+Item5=$(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
-Item6=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item7=$(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
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\

Base/uDataModuleBase.dfm

@@ -1,9 +1,8 @@
 object dmBase: TdmBase
   OldCreateOrder = True
   OnCreate = DAClientDataModuleCreate
-  Left = 240
+  Left = 192
-  Top = 499
+  Height = 362
-  Height = 376
   Width = 502
   object SmallImages: TPngImageList
     PngImages = <

Base/uDataModuleBase.pas

@@ -51,8 +51,10 @@ type
             FOnThemeChange;
 
     function darRutaDocumentosProyectos: String;
+    function darRutaDocumentosProyectosNueva: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darRutaDocumentosNormativas: String;
+    function darRutaDocumentosNormativasNueva: String;
     function darEstructuraDirNormativas: TDAStringArray;
     function darVersion: String;    
   end;
@@ -234,6 +236,16 @@ begin
   FreeAndNil(InfoProject);
 end;
 
+function TdmBase.darRutaDocumentosNormativasNueva: String;
+begin
+  Result := (RORemoteService as IsrvConfiguracion).darRutaNormativasNueva;
+end;
+
+function TdmBase.darRutaDocumentosProyectosNueva: String;
+begin
+  Result := (RORemoteService as IsrvConfiguracion).darRutaProyectosNueva;
+end;
+
 initialization
   dmBase := TdmBase.Create(NIL);
 

Base/uEditorBase.dfm

@@ -1,8 +1,8 @@
 object fEditorBase: TfEditorBase
-  Left = 510
+  Left = 4
-  Top = 423
+  Top = 3
-  Width = 674
+  Width = 638
-  Height = 516
+  Height = 444
   Caption = 'EditorBase'
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -22,7 +22,7 @@ object fEditorBase: TfEditorBase
   object JvNavPanelHeader: TJvNavPanelHeader
     Left = 0
     Top = 0
-    Width = 666
+    Width = 630
     Align = alTop
     Caption = 'Editor'
     Font.Charset = DEFAULT_CHARSET
@@ -37,7 +37,7 @@ object fEditorBase: TfEditorBase
     StyleManager = dmBase.StyleManager
     ParentStyleManager = False
     object Image1: TImage
-      Left = 639
+      Left = 603
       Top = 0
       Width = 27
       Height = 27
@@ -68,7 +68,7 @@ object fEditorBase: TfEditorBase
   object TBXDock: TTBXDock
     Left = 0
     Top = 27
-    Width = 666
+    Width = 630
     Height = 49
     AllowDrag = False
     object tbxMain: TTBXToolbar
@@ -243,8 +243,8 @@ object fEditorBase: TfEditorBase
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 463
+    Top = 391
-    Width = 666
+    Width = 630
     Height = 19
     Panels = <
       item

Base/uEditorDBBase.dfm

@@ -1,6 +1,4 @@
 inherited fEditorDBBase: TfEditorDBBase
-  Left = 482
-  Top = 361
   Caption = 'fEditorDBBase'
   PixelsPerInch = 96
   TextHeight = 13

Base/uEditorDBItem.dfm

@@ -1,6 +1,4 @@
 inherited fEditorDBItem: TfEditorDBItem
-  Left = 557
-  Top = 313
   BorderIcons = [biSystemMenu, biMaximize]
   Caption = 'fEditorDBItem'
   PixelsPerInch = 96
@@ -23,8 +21,8 @@ inherited fEditorDBItem: TfEditorDBItem
   object pgPaginas: TPageControl [2]
     Left = 0
     Top = 76
-    Width = 666
+    Width = 630
-    Height = 387
+    Height = 315
     ActivePage = pagGeneral
     Align = alClient
     TabOrder = 2

Base/uEditorDBItem.pas

@@ -56,7 +56,7 @@ begin
       '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
       actGuardar.Execute
     else begin
-      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
+      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
       Exit;
     end;
   end;
@@ -78,7 +78,7 @@ begin
       '¿Desea guardarlos ahora?', 'Atención', MB_YESNO) = IDYES) then
       actGuardar.Execute
     else begin
-      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'FactuGES', MB_OK);
+      Application.MessageBox('Recuerde guardar los cambios si quiere previsualizar o imprimir.', 'ProGestion', MB_OK);
       Exit;
     end;
   end;

Base/uEditorGrid.dfm

@@ -1,19 +1,8 @@
 inherited fEditorGrid: TfEditorGrid
-  Left = 468
-  Top = 365
-  Width = 719
-  Height = 489
   Caption = 'fEditorGrid'
   PixelsPerInch = 96
   TextHeight = 13
-  inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 711
-    inherited Image1: TImage
-      Left = 684
-    end
-  end
   inherited TBXDock: TTBXDock
-    Width = 711
     inherited tbxMain: TTBXToolbar
       DefaultDock = TBXDock
       inherited TBXItem29: TTBXItem
@@ -49,7 +38,7 @@ inherited fEditorGrid: TfEditorGrid
       end
     end
     object tbxFiltro: TTBXToolbar
-      Left = 442
+      Left = 420
       Top = 23
       Align = alRight
       CloseButton = False
@@ -82,14 +71,10 @@ inherited fEditorGrid: TfEditorGrid
       end
     end
   end
-  inherited StatusBar: TStatusBar
-    Top = 436
-    Width = 711
-  end
   inline frViewBarraSeleccion: TfrViewBarraSeleccion [3]
     Left = 0
-    Top = 398
+    Top = 353
-    Width = 711
+    Width = 630
     Height = 38
     Align = alBottom
     AutoScroll = False
@@ -103,12 +88,12 @@ inherited fEditorGrid: TfEditorGrid
     Visible = False
     ReadOnly = False
     inherited pnlSeleccion: TPanel
-      Width = 711
+      Width = 630
       inherited bSeleccionar: TButton
-        Left = 536
+        Left = 455
       end
       inherited bCancelar: TButton
-        Left = 615
+        Left = 534
       end
     end
   end

Base/uEditorGrid.pas

@@ -175,15 +175,15 @@ end;
 procedure TfEditorGrid.JvFormStorageSavePlacement(Sender: TObject);
 begin
   inherited;
-  if Assigned(ViewGrid) then
+  {if Assigned(ViewGrid) then
-    ViewGrid.StoreToRegistry;
+    ViewGrid.StoreToRegistry;}
 end;
 
 procedure TfEditorGrid.JvFormStorageRestorePlacement(Sender: TObject);
 begin
   inherited;
-  if Assigned(ViewGrid) then
+  {if Assigned(ViewGrid) then
-    ViewGrid.RestoreFromRegistry;
+    ViewGrid.RestoreFromRegistry;}
 end;
 
 procedure TfEditorGrid.actRefrescarExecute(Sender: TObject);

Base/uViewDireccion.dfm

@@ -11,10 +11,12 @@ inherited frViewDireccion: TfrViewDireccion
     TabOrder = 0
     AutoContentSizes = [acsWidth]
     object eProvincia: TcxDBTextEdit
-      Left = 272
+      Left = 274
       Top = 82
       DataBinding.DataField = 'PROVINCIA'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 70
     end
     object eCalle: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 28
       DataBinding.DataField = 'CALLE'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 272
     end
     object ePoblacion: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 55
       DataBinding.DataField = 'POBLACION'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -59,10 +65,12 @@ inherited frViewDireccion: TfrViewDireccion
       Width = 272
     end
     object eCodigoPostal: TcxDBTextEdit
-      Left = 94
+      Left = 96
       Top = 82
       DataBinding.DataField = 'CODIGOPOSTAL'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Base/uViewGrid.dfm

@@ -41,7 +41,6 @@ inherited frViewGrid: TfrViewGrid
       OptionsView.GridLineColor = cl3DLight
       OptionsView.GroupByBox = False
       OptionsView.HeaderEndEllipsis = True
-      OptionsView.NewItemRowInfoText = 'Click here to add a new row'
       Styles.ContentEven = cxStyleEven
       Styles.ContentOdd = cxStyleOdd
       Styles.Inactive = cxStyleSelection
@@ -81,7 +80,7 @@ inherited frViewGrid: TfrViewGrid
       PrinterPage.PageSize.Y = 297000
       PrinterPage._dxMeasurementUnits_ = 0
       PrinterPage._dxLastMU_ = 2
-      ReportDocument.CreationDate = 39000.667590601850000000
+      ReportDocument.CreationDate = 44070.625980925930000000
       OptionsCharts.Transparent = True
       OptionsFormatting.SuppressBackgroundBitmaps = True
       OptionsOnEveryPage.Caption = False
@@ -107,7 +106,7 @@ inherited frViewGrid: TfrViewGrid
     end
     object cxStyleOdd: TcxStyle
       AssignedValues = [svColor]
-      Color = clInactiveCaptionText
+      Color = clInfoBk
     end
     object cxStyleSelection: TcxStyle
       AssignedValues = [svColor, svTextColor]

Base/uViewGrid.pas

@@ -379,12 +379,12 @@ end;
 
 procedure TfrViewGrid.RestoreFromRegistry;
 begin
-  cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
+//  cxGridView.RestoreFromRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, False, False, []);
 end;
 
 procedure TfrViewGrid.StoreToRegistry;
 begin
-  cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
+//  cxGridView.StoreToRegistry('Software\\FactuGES\\GridSettings\\' + Self.Name, True, []);
 end;
 
 procedure TfrViewGrid.FilterChanged(Sender: TObject);

Base/uViewInternet.dfm

@@ -271,7 +271,7 @@ inherited frViewInternet: TfrViewInternet
     Left = 432
     Top = 8
     Bitmap = {
-      494C010102000400040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
+      494C010102000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000001000000001002000000000000010
       00000000000000000000000000000000000000000000B7A29300694731006947
       3100694731006947310069473100694731006947310069473100694731000000
@@ -407,6 +407,7 @@ inherited frViewInternet: TfrViewInternet
       801F800100000000801F000100000000801F000000000000A01F000000000000
       B000000000000000B800000000000000BC00000000000000BE00000000000000
       BE000000000000008000000000000000EF00800100000000E980800100000000
-      EFC0C00300000000E000F00F00000000}
+      EFC0C00300000000E000F00F0000000000000000000000000000000000000000
+      000000000000}
   end
 end

Base/uViewObservaciones.dfm

@@ -16,6 +16,8 @@ inherited frViewObservaciones: TfrViewObservaciones
       DataBinding.DataField = 'OBSERVACIONES'
       DataBinding.DataSource = DADataSource
       Properties.ScrollBars = ssVertical
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Base/uViewTelefonos.dfm

@@ -11,10 +11,12 @@ inherited frViewTelefonos: TfrViewTelefonos
     TabOrder = 0
     AutoContentSizes = [acsWidth]
     object eTlfParticular: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 28
       DataBinding.DataField = 'TELEFONO2'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eTlfTrabajo: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 55
       DataBinding.DataField = 'TELEFONO1'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eTlfMovil: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 82
       DataBinding.DataField = 'MOVIL'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -59,10 +65,12 @@ inherited frViewTelefonos: TfrViewTelefonos
       Width = 326
     end
     object eFax: TcxDBTextEdit
-      Left = 87
+      Left = 90
       Top = 109
       DataBinding.DataField = 'FAX'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Cliente/ProGestion.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
 MinorVer=0
-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=2.0.3.0
+FileVersion=2.0.4.0
 InternalName=ProGestion
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=
 ProductName=ProGestion
-ProductVersion=1.2.0.0
+ProductVersion=2.0.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.
@@ -176,30 +176,32 @@ C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+Item1=.\
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=17
+Count=18
 Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
-Item1=$(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
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
-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
+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
+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
+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
-Item5=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item5=$(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
-Item6=$(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
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item7=$(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
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
-Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\

Cliente/uPantallaPrincipal.pas

@@ -145,7 +145,7 @@ begin
       HostManager.LoadModule('FacturasCliente.bpl');
       HostManager.LoadModule('Recibos.bpl');      
       HostManager.LoadModule('ObrasFinal.bpl');
-      HostManager.LoadModule('Calendarios.bpl');      
+//      HostManager.LoadModule('Calendarios.bpl');      
     end;
 
     InitializeUI;

Modulos/Calendarios/Cliente/Calendarios.cfg

@@ -24,7 +24,6 @@
 -$X+
 -$YD
 -$Z1
--GD
 -cg
 -AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 -H+
@@ -35,10 +34,10 @@
 -N".\"
 -LE"..\..\..\Output\Cliente"
 -LN".\"
--U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-U"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente"
--O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-O"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente"
--I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-I"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente"
--R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\Reglas;..\Cliente"
+-R"c:\archivos de programa\borland\delphi7\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente"
 -Z
 -w-UNSAFE_TYPE
 -w-UNSAFE_CODE

Modulos/Calendarios/Cliente/Calendarios.dof

@@ -0,0 +1,219 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=.\
+PackageDLLOutputDir=..\..\..\Output\Cliente
+PackageDCPOutputDir=.\
+SearchPath=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;dclOfficeXP;cxLibraryVCLD7;cxEditorsVCLD7;cxGridVCLD7;dxThemeD7;cxDataD7;cxGridUtilsVCLD7;cxPageControlVCLD7;cxIntlD7;cxExtEditorsVCLD7;cxSchedulerVCLD7;cxTreeListVCLD7;cxVerticalGridVCLD7;dxBarD7;dxComnD7;dxBarDBNavD7;dxBarExtDBItemsD7;dxBarExtItemsD7;dxDockingD7;dxLayoutControlD7;dxNavBarD7;dxPSCoreD7;dxsbD7;dxLayoutControlcxEditAdaptersD7;dxPScxCommonD7;dxPSLnksD7;dxPScxExtCommonD7;dxPScxGridLnkD7;dxPScxPCProdD7;dxPScxScheduler2LnkD7;dxPScxTLLnkD7;dxPSDBTeeChartD7;dxPSTeeChartD7;dxPSdxLCLnkD7;dxPsPrVwAdvD7;FRIBX7;PNG_D7;mxProtector_d7;TMSD7;cxExportVCLD7;cxIntl5D7;cxIntlPrintSys3D7;cxIntlSchedulerD7;frx7;frxADO7;frxBDE7;frxDB7;frxDBX7;frxe7;frxIBX7;frxTee7;fs7;fsADO7;fsBDE7;fsDB7;fsIBX7;fsTee7
+Conditionals=
+DebugSourceDirs=.\
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=C:\Archivos de programa\Borland\Delphi7\Bin\
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=3082
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxLibraryVCLD7.bpl=Express Cross Platform Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxThemeD7.bpl=Express XP Theme Manager by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxEditorsVCLD7.bpl=ExpressEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxDataD7.bpl=ExpressDataController by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExtEditorsVCLD7.bpl=ExpressExtendedEditors Library 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxGridVCLD7.bpl=ExpressQuantumGrid 5 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxPageControlVCLD7.bpl=Express Cross Platform PageControl (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxExportVCLD7.bpl=Express Cross Platform Export Library (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxSchedulerVCLD7.bpl=ExpressScheduler 2 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxTreeListVCLD7.bpl=ExpressQuantumTreeList 4 (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\cxVerticalGridVCLD7.bpl=ExpressVerticalGrid (VCL Edition) by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarD7.bpl=ExpressBars by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxComnD7.bpl=ExpressCommonLibrary by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarDBNavD7.bpl=ExpressBars DBNavigator by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtDBItemsD7.bpl=ExpressBars extended DB items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxBarExtItemsD7.bpl=ExpressBars extended items by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxDockingD7.bpl=ExpressDocking Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxLayoutControlD7.bpl=ExpressLayout Control by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxNavBarD7.bpl=ExpressNavBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxGDIPlusD7.bpl=ExpressGDI+ Library by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxPSCoreD7.bpl=ExpressPrinting System by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\dxsbD7.bpl=ExpressSideBar by Developer Express Inc.
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\VirtualTreesD7.bpl=Virtual Treeview runtime package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\EPCOTAUtils70.bpl=EPC Open Tools API utilities
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\Jcl70.bpl=JEDI Code Library RTL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\JclVcl70.bpl=JEDI Code Library VCL package
+C:\Archivos de programa\Borland\Delphi7\Projects\Bpl\PluginSDK_D7R.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsADO7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fs7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDB7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frx7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsBDE7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxDBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxe7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
+C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
+[HistoryLists\hlDebugSourcePath]
+Count=2
+Item0=.\
+Item1=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=18
+Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\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
+Item5=$(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
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item7=$(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
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+[HistoryLists\hlUnitOutputDirectory]
+Count=1
+Item0=.\
+[HistoryLists\hlOutputDirectorry]
+Count=2
+Item0=..\Output\Servidor
+Item1=..\Output\Cliente
+[HistoryLists\hlBPLOutput]
+Count=3
+Item0=..\..\..\Output\Cliente
+Item1=..\Output\Cliente
+Item2=..\..\Output\Cliente
+[HistoryLists\hlDCPOutput]
+Count=1
+Item0=.\

Modulos/Calendarios/Servidor/srvCitas_Impl.dfm

@@ -5,8 +5,8 @@ object srvCitas: TsrvCitas
   ConnectionName = 'IBX'
   ServiceSchema = schCitas
   ServiceAdapter = DABINAdapter
-  Left = 503
+  Left = 397
-  Top = 207
+  Top = 159
   Height = 184
   Width = 245
   object schCitas: TDASchema

Modulos/Contactos/Cliente/uEditorContacto.dfm

@@ -1,25 +1,25 @@
 inherited fEditorContacto: TfEditorContacto
-  Left = 31
+  Left = 0
-  Top = 43
+  Top = 2
-  Width = 969
+  Width = 652
-  Height = 700
+  Height = 492
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   Caption = 'Contacto'
-  Constraints.MinHeight = 700
+  Constraints.MinHeight = 492
-  Constraints.MinWidth = 800
+  Constraints.MinWidth = 652
   Scaled = False
   PixelsPerInch = 96
   TextHeight = 13
   inherited JvNavPanelHeader: TJvNavPanelHeader
-    Width = 961
+    Width = 644
     Caption = 'Contacto'
     inherited Image1: TImage
-      Left = 934
+      Left = 617
     end
   end
   inherited TBXDock: TTBXDock
-    Width = 961
+    Width = 644
     inherited tbxMain: TTBXToolbar
       inherited TBXItem2: TTBXItem
         Visible = False
@@ -37,14 +37,14 @@ inherited fEditorContacto: TfEditorContacto
     end
   end
   inherited pgPaginas: TPageControl
-    Width = 961
+    Width = 644
-    Height = 571
+    Height = 363
     inherited pagGeneral: TTabSheet
       inline frViewContacto1: TfrViewContacto
         Left = 0
         Top = 0
-        Width = 953
+        Width = 636
-        Height = 543
+        Height = 335
         Align = alClient
         AutoSize = True
         Font.Charset = DEFAULT_CHARSET
@@ -56,8 +56,8 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 0
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
-          Height = 543
+          Height = 335
           inherited frViewDatosGenerales1: TfrViewDatosGenerales
             Width = 454
             inherited dxLayoutControl1: TdxLayoutControl
@@ -74,7 +74,7 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewTelefonos1: TfrViewTelefonos
-            Left = 479
+            Left = 312
             Width = 451
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 451
@@ -108,19 +108,10 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewInternet1: TfrViewInternet
-            Left = 479
+            Left = 312
             Width = 483
             inherited dxLayoutControl1: TdxLayoutControl
               Width = 483
-              inherited SpeedButton1: TSpeedButton
-                Left = 419
-              end
-              inherited SpeedButton2: TSpeedButton
-                Left = 419
-              end
-              inherited SpeedButton3: TSpeedButton
-                Left = 419
-              end
               inherited eMailTrabajo: TcxDBHyperLinkEdit
                 Properties.Prefix = 'mailto:'
                 Width = 185
@@ -151,7 +142,7 @@ inherited fEditorContacto: TfEditorContacto
             end
           end
           inherited frViewContactosAsociados1: TfrViewContactosAsociados
-            Left = 479
+            Left = 312
             Width = 846
             Height = 145
             inherited dxLayoutControl1: TdxLayoutControl
@@ -175,7 +166,7 @@ inherited fEditorContacto: TfEditorContacto
       inline frViewDatosBancarios1: TfrViewDatosBancarios
         Left = 0
         Top = 0
-        Width = 953
+        Width = 636
         Height = 195
         Align = alTop
         Font.Charset = DEFAULT_CHARSET
@@ -187,18 +178,17 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 0
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
           inherited memObservaciones: TcxDBMemo
-            Height = 107
+            Width = 909
-            Width = 197
           end
         end
       end
       inline frViewDatosFacturacion1: TfrViewDatosFacturacion
         Left = 0
         Top = 195
-        Width = 953
+        Width = 636
-        Height = 348
+        Height = 140
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -209,8 +199,8 @@ inherited fEditorContacto: TfEditorContacto
         TabOrder = 1
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
-          Width = 953
+          Width = 636
-          Height = 348
+          Height = 140
           inherited memObservaciones: TcxDBMemo
             Height = 127
             Width = 576
@@ -220,8 +210,8 @@ inherited fEditorContacto: TfEditorContacto
     end
   end
   inherited StatusBar: TStatusBar
-    Top = 647
+    Top = 439
-    Width = 961
+    Width = 644
   end
   inherited EditorActionList: TActionList
     Top = 144

Modulos/Contactos/Cliente/uEditorContactos.dfm

@@ -1,6 +1,4 @@
 inherited fEditorContactos: TfEditorContactos
-  Left = 405
-  Top = 188
   Caption = 'Libreta de contactos'
   OnClose = CustomEditorClose
   PixelsPerInch = 96
@@ -26,8 +24,8 @@ inherited fEditorContactos: TfEditorContactos
   inline frViewContactos1: TfrViewContactos [4]
     Left = 0
     Top = 76
-    Width = 711
+    Width = 630
-    Height = 322
+    Height = 277
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -38,8 +36,8 @@ inherited fEditorContactos: TfEditorContactos
     TabOrder = 4
     ReadOnly = False
     inherited cxGrid: TcxGrid
-      Width = 711
+      Width = 630
-      Height = 322
+      Height = 277
       inherited cxGridView: TcxGridDBTableView
         DataController.Summary.FooterSummaryItems = <
           item

Modulos/Contactos/Cliente/uViewCategoriasContacto.dfm

@@ -1,17 +1,17 @@
 inherited frViewCategoriasContacto: TfrViewCategoriasContacto
-  Width = 759
+  Width = 632
   Height = 293
   object dxLayoutControl1: TdxLayoutControl
     Left = 0
     Top = 0
-    Width = 759
+    Width = 632
     Height = 293
     Align = alClient
     ParentBackground = True
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     DesignSize = (
-      759
+      632
       293)
     object ToolBar2: TToolBar
       Left = 22
@@ -52,6 +52,8 @@ inherited frViewCategoriasContacto: TfrViewCategoriasContacto
       ParentFont = False
       Properties.ReadOnly = True
       Properties.ScrollBars = ssVertical
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.Font.Charset = DEFAULT_CHARSET
       Style.Font.Color = clWindowText
       Style.Font.Height = -11

Modulos/Contactos/Cliente/uViewContacto.dfm

@@ -194,9 +194,6 @@ inherited frViewContacto: TfrViewContacto
         DesignSize = (
           846
           145)
-        inherited ToolBar2: TToolBar
-          Width = 271
-        end
         inherited DBLookupListBox1: TDBLookupListBox
           Height = 13
         end

Modulos/Contactos/Cliente/uViewContactos.dfm

@@ -71,7 +71,7 @@ inherited frViewContactos: TfrViewContactos
       end
       object cxGridViewFAX: TcxGridDBColumn
         DataBinding.FieldName = 'FAX'
-        Visible = False
+        Width = 90
       end
       object cxGridViewCORREO1: TcxGridDBColumn
         DataBinding.FieldName = 'CORREO1'
@@ -315,7 +315,7 @@ inherited frViewContactos: TfrViewContactos
         Size = 30
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'N'#250'mero de fax'
+        DisplayLabel = 'Fax'
         Alignment = taLeftJustify
         DictionaryEntry = 'FAX'
         InPrimaryKey = False

Modulos/Contactos/Cliente/uViewDatosFacturacion.dfm

@@ -2,8 +2,6 @@ inherited frViewDatosFacturacion: TfrViewDatosFacturacion
   inherited dxLayoutControl1: TdxLayoutControl
     inherited memObservaciones: TcxDBMemo
       DataBinding.DataField = 'DATOSFACTURACION'
-      Height = 107
-      Width = 197
     end
     inherited dxLayoutControl1Group_Root: TdxLayoutGroup
       inherited dxLayoutControl1Group1: TdxLayoutGroup

Modulos/Contactos/Cliente/uViewDatosGenerales.dfm

@@ -11,10 +11,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
     TabOrder = 0
     AutoContentSizes = [acsWidth, acsHeight]
     object edtNombre: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 28
       DataBinding.DataField = 'NOMBRE'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -27,10 +29,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
       Width = 474
     end
     object edtNIFCIF: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 55
       DataBinding.DataField = 'NIFCIF'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard
@@ -43,10 +47,12 @@ inherited frViewDatosGenerales: TfrViewDatosGenerales
       Width = 474
     end
     object edtTrabajo: TcxDBTextEdit
-      Left = 68
+      Left = 69
       Top = 82
       DataBinding.DataField = 'TRABAJO'
       DataBinding.DataSource = DADataSource
+      Style.BorderColor = clWindowFrame
+      Style.BorderStyle = ebs3D
       Style.LookAndFeel.Kind = lfStandard
       Style.LookAndFeel.NativeStyle = True
       StyleDisabled.LookAndFeel.Kind = lfStandard

Modulos/Contactos/Servidor/srvContactos_Impl.dfm

@@ -6,9 +6,8 @@ object srvContactos: TsrvContactos
   ConnectionName = 'IBX'
   ServiceSchema = schContactos
   ServiceAdapter = DABINAdapter
-  Left = 578
+  Left = 361
-  Top = 289
+  Height = 362
-  Height = 368
   Width = 464
   object schContactos: TDASchema
     ConnectionManager = dmServer.ConnectionManager

Modulos/Documentos asociados/uBizDocumentosAsociados.pas

@@ -4,6 +4,10 @@ interface
 
 uses Classes, DataAbstract_Intf;
 
+const
+  CTE_ALMACEN_ANTIGUO = '0';
+  CTE_ALAMCEN_NUEVO = '1';
+  
 type
   TGestorDocumentos = class(TObject)
   private
@@ -58,6 +62,9 @@ type
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
   end;
 
 implementation

Modulos/Facturas de cliente/Reglas/uBizFacturasCliente.pas

@@ -18,8 +18,8 @@ const
   CTE_ABONO = 'A';
   CTE_PROFORMA = 'P';
 
-  CTE_IVA1 = 16;
+  CTE_IVA1 = 21;
-  CTE_IVA2 = 1.16;
+  CTE_IVA2 = 1.21;
 
 type
   IBizDetallesFacturasCliente = interface(IDetallesFacturasCliente)

Modulos/Facturas de cliente/Servidor/srvFacturasCliente_Impl.dfm

@@ -5,9 +5,8 @@ object srvFacturasCliente: TsrvFacturasCliente
   ConnectionName = 'IBX'
   ServiceSchema = schFacturasCliente
   ServiceAdapter = DABINAdapter
-  Left = 725
+  Left = 568
-  Top = 332
+  Height = 362
-  Height = 490
   Width = 347
   object schFacturasCliente: TDASchema
     ConnectionManager = dmServer.ConnectionManager
@@ -1216,7 +1215,7 @@ object srvFacturasCliente: TsrvFacturasCliente
     ReportOptions.CreateDate = 37871.995398692100000000
     ReportOptions.Description.Strings = (
       'Demonstrates how to create simple list report.')
-    ReportOptions.LastChange = 39014.653229525470000000
+    ReportOptions.LastChange = 42039.464331631900000000
     ReportOptions.VersionBuild = '1'
     ReportOptions.VersionMajor = '12'
     ReportOptions.VersionMinor = '13'

Modulos/Obras/Cliente/uDataModuleObras.dfm

@@ -284,6 +284,18 @@ object dmObras: TdmObras
         Calculated = False
         Lookup = False
         LookupCache = False
+      end
+      item
+        Name = 'ALMACEN'
+        DataType = datString
+        Size = 1
+        BlobType = dabtUnknown
+        DisplayWidth = 0
+        Alignment = taLeftJustify
+        InPrimaryKey = False
+        Calculated = False
+        Lookup = False
+        LookupCache = False
       end>
     Params = <>
     MasterMappingMode = mmDataRequest

Modulos/Obras/Cliente/uEditorObra.dfm

@@ -50,7 +50,7 @@ inherited fEditorObra: TfEditorObra
   inherited pgPaginas: TPageControl
     Width = 944
     Height = 444
-    ActivePage = pagContactos
+    ActivePage = pagNormativas
     OnChanging = pgPaginasChanging
     inherited pagGeneral: TTabSheet
       inline frViewObra: TfrViewObra
@@ -266,7 +266,6 @@ inherited fEditorObra: TfEditorObra
               inherited explo: TcxShellListView
                 Width = 531
                 Height = 398
-                Style.IsFontAssigned = True
               end
               inherited ToolBar1: TToolBar
                 Width = 531

Modulos/Obras/Cliente/uEditorObra.pas

@@ -178,7 +178,10 @@ begin
     //DOCUMENTOS ASOCIADOS
     if Assigned(FViewNormativas) then
     begin
-       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos;
+       if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+          FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentos
+       else
+          FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosAsociados).GestorDocumentosNuevo;
        FViewNormativas.GestorDocumentos.ModoInsert := (Obra.DataTable.State = dsInsert);
     end;
   end
@@ -343,7 +346,12 @@ begin
   FViewNormativas := Value;
 
   if Assigned(FViewNormativas) and Assigned(Obra) then
-     FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos;
+  begin
+     if (Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentos
+     else
+       FViewNormativas.GestorDocumentos := (Obra as IBizDocumentosASociados).GestorDocumentosNuevo;
+  end;
 end;
 
 procedure TfEditorObra.frViewDatosObraedtNombrePropertiesValidate(

Modulos/Obras/Cliente/uEditorProyectoObra.dfm

@@ -86,7 +86,7 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
         Left = 0
         Top = 129
         Width = 704
-        Height = 230
+        Height = 158
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
         Font.Color = clWindowText
@@ -98,10 +98,10 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
         ReadOnly = False
         inherited dxLayoutControl1: TdxLayoutControl
           Width = 704
-          Height = 230
+          Height = 158
           DesignSize = (
             704
-            230)
+            158)
           inherited Panel10: TPanel
             Width = 704
             Height = 230
@@ -114,7 +114,6 @@ inherited fEditorProyectoObra: TfEditorProyectoObra
               inherited explo: TcxShellListView
                 Width = 516
                 Height = 211
-                Style.IsFontAssigned = True
               end
               inherited ToolBar1: TToolBar
                 Width = 516

Modulos/Obras/Cliente/uEditorProyectoObra.pas

@@ -129,7 +129,10 @@ begin
       //DOCUMENTOS ASOCIADOS
       if Assigned(FViewDocumentosPresupuesto) then
       begin
-         FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos;
+         if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+            FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentos
+         else
+            FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosAsociados).GestorDocumentosNuevo;
          FViewDocumentosPresupuesto.GestorDocumentos.ModoInsert := (ProyectoObra.DataTable.State = dsInsert);
       end;
   end
@@ -145,7 +148,12 @@ begin
   FViewDocumentosPresupuesto := Value;
 
   if Assigned(FViewDocumentosPresupuesto) and Assigned(ProyectoObra) then
-     FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos;
+  begin
+     if (ProyectoObra.Obra.ALMACEN = CTE_ALMACEN_ANTIGUO) then
+        FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentos
+     else
+        FViewDocumentosPresupuesto.GestorDocumentos := (ProyectoObra as IBizDocumentosASociados).GestorDocumentosNuevo
+  end;
 end;
 
 procedure TfEditorProyectoObra.frViewProyectoObraedtDescripcionPropertiesValidate(

Modulos/Obras/Cliente/uViewObras.dfm

@@ -23,6 +23,18 @@ inherited frViewObras: TfrViewObras
         Visible = False
         Width = 32
       end
+      object cxGridViewALMACEN: TcxGridDBColumn
+        DataBinding.FieldName = 'ALMACEN'
+        PropertiesClassName = 'TcxImageComboBoxProperties'
+        Properties.Items = <
+          item
+            ImageIndex = 0
+            Value = '0'
+          end>
+        OnCustomDrawCell = cxGridViewALMACENCustomDrawCell
+        Width = 20
+        IsCaptionAssigned = True
+      end
       object cxGridViewESTADO: TcxGridDBColumn
         DataBinding.FieldName = 'FECHAFINOBR'
         OnCustomDrawCell = cxGridViewESTADOCustomDrawCell
@@ -130,6 +142,36 @@ inherited frViewObras: TfrViewObras
           44AE426082}
         Name = 'PngImage2'
         Background = clWindow
+      end
+      item
+        PngImage.Data = {
+          89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
+          61000000097048597300000AEB00000AEB01828B0D5A000002C64944415478DA
+          A5927D2CD4711CC7DFBFDF39DCF0A373E8C2C539E629CB501A895637569BFCD1
+          CA865A512DCC6CB5F5F09755D316ABFC412D61981EAEB4FEE841C8D684123D8A
+          3CE5E1B8BB724EE708E777BFBE146B46B3F5D9BEFB7EF7FD7C3FAFF7E7E14BE1
+          1FA638EB729965671DDB2FAA13B300D3726FA895826F1C862C645752233DD564
+          D950D3293F5684C65503AE46C3C279B37F76CCFEC80C5A9B4F553D36952BBB70
+          3C4D01C3AA002599C24D41F21485BFB8CC154635DA7B6C752D4DFAF8C42BECB3
+          1501B97B216018387314BC2501D169A111EBE4CC6C0945F1AC60E06F4453CD50
+          536F5B6F0E8968D34F62F0643926E60115A7C4F75D7D83FC058C99C486B1B660
+          1886B2B7F901BEA192B88D80B527E01085598114234A25C6541F398346353339
+          661AD2F4AADF53B74F8B0A82622509521F9D35ADD70363644D1B7FA7C517026B
+          8209602B6041CE5001330A70235A0C7EE04FBDAE1FBF45CDA52E76477AC80E9C
+          737785396F92BCE3E6A27980AD1F200C05EC02009A404DB5308D5641F9C6C8BE
+          AA438E6E0CD9F33D283E004B81235203837046268590A6FFA88BC2092084A8DB
+          938B0170D3A5E87B396C68AD419E5A8FECB47C18169B38373AB760E46E8B42AA
+          AD1D9FD4EE053846013664E7B144FD39A6548F505B6ABA37FA190793169AF8F7
+          481E64799C08DFEE744964F7952893DA456124138678BA81A90A18BAD5A8B98B
+          BCB8F3C858F61F3CBCE07B73E71EBF43028B1E70F65B60B222EA941134550D4A
+          570B7698C3D34AD393E62C6EF7C2D75E045C3F02FE7A9FC03A799C6F18673601
+          EDC45A0C74F40F70ECCF59676F481DADFBC1FBAE45FD0BEED3BBD6F1C8F43268
+          970224011171D532CF71697787F28BB267E48E6E78A498A3C1DA8A84FB5CBC5C
+          1264DEE20D9AAE014D735D7B6C7211DE2E057838384B0BC1EA1A46BFE94A93AF
+          A17361A0735670146EF64EE2784B733A46D33794995288967900C771F81FFB05
+          0E850CDB2DC0A2320000000049454E44AE426082}
+        Name = 'PngImage3'
+        Background = clWindow
       end>
     Left = 56
     Top = 48

Modulos/Obras/Cliente/uViewObras.pas

@@ -34,7 +34,7 @@ uses
   cxGridBandedTableView, cxGridDBBandedTableView, dxPSGlbl, dxPSUtl,
   dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
   dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
-  ImgList, PngImageList;
+  ImgList, PngImageList, cxImageComboBox;
 
 type
   IViewObras = interface(IViewGrid)
@@ -56,12 +56,16 @@ type
     cxStylePendiente: TcxStyle;
     cxGridViewESTADO: TcxGridDBColumn;
     cxGridViewNOMBRECLIENTE: TcxGridDBColumn;
+    cxGridViewALMACEN: TcxGridDBColumn;
     procedure cxGridViewESTADOCustomDrawCell(
       Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
       AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure cxGridViewStylesGetContentStyle(
       Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
       AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
+    procedure cxGridViewALMACENCustomDrawCell(
+      Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+      AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
   protected
     FObras: IBizObra;
     function GetObras: IBizObra; virtual;
@@ -150,4 +154,20 @@ begin
   cxGridViewESTADO.Visible := True;
 end;
 
+procedure TfrViewObras.cxGridViewALMACENCustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  R : TRect;
+begin
+  inherited;
+  if (AViewInfo.Value <> '0') then
+  begin
+    R := AViewInfo.ContentBounds;
+    ACanvas.FillRect(R);
+    ACanvas.DrawImage(PngImageList, R.Left, R.Top, 3);
+    ADone := True;
+  end;
+end;
+
 end.

Modulos/Obras/Reglas/schObrasClient_Intf.pas

@@ -47,6 +47,7 @@ const
   fld_ObrasTOTALPRESUPUESTOSFIN = 'TOTALPRESUPUESTOSFIN';
   fld_ObrasCODIGOCONTACTO = 'CODIGOCONTACTO';
   fld_ObrasNOMBRECLIENTE = 'NOMBRECLIENTE';
+  fld_ObrasALMACEN = 'ALMACEN';  
 
   { Obras field indexes }
   idx_ObrasCODIGOEMPRESA = 0;
@@ -69,6 +70,7 @@ const
   idx_ObrasTOTALPRESUPUESTOSFIN = 17;
   idx_ObrasCODIGOCONTACTO = 18;
   idx_ObrasNOMBRECLIENTE = 19;
+  idx_ObrasALMACEN = 20;  
 
   { ContactosObra fields }
   fld_ContactosObraCODIGOOBRA = 'CODIGOOBRA';
@@ -237,6 +239,8 @@ type
     procedure SetCODIGOCONTACTOValue(const aValue: Integer);
     function GetNOMBRECLIENTEValue: String;
     procedure SetNOMBRECLIENTEValue(const aValue: String);
+    function GetALMACENValue: String;
+    procedure SetALMACENValue(const aValue: String);
 
 
     { Properties }
@@ -260,6 +264,7 @@ type
     property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
     property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
     property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
+    property ALMACEN: String read GetALMACENValue write SetALMACENValue;	
   end;
 
   { TObrasDataTableRules }
@@ -307,7 +312,8 @@ type
     procedure SetCODIGOCONTACTOValue(const aValue: Integer); virtual;
     function GetNOMBRECLIENTEValue: String; virtual;
     procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
-
+	function GetALMACENValue: String; virtual;
+    procedure SetALMACENValue(const aValue: String); virtual;
     { Properties }
     property CODIGOEMPRESA: Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
     property CODIGO: Integer read GetCODIGOValue write SetCODIGOValue;
@@ -329,6 +335,7 @@ type
     property TOTALPRESUPUESTOSFIN: Currency read GetTOTALPRESUPUESTOSFINValue write SetTOTALPRESUPUESTOSFINValue;
     property CODIGOCONTACTO: Integer read GetCODIGOCONTACTOValue write SetCODIGOCONTACTOValue;
     property NOMBRECLIENTE: String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
+    property ALMACEN: String read GetALMACENValue write SetALMACENValue;
 
   public
     constructor Create(aDataTable: TDADataTable); override;
@@ -943,6 +950,16 @@ begin
   DataTable.Fields[idx_ObrasAPLICAHONORARIOS].AsString := aValue;
 end;
 
+function TObrasDataTableRules.GetALMACENValue: String;
+begin
+  result := DataTable.Fields[idx_ObrasALMACEN].AsString;
+end;
+
+procedure TObrasDataTableRules.SetALMACENValue(const aValue: String);
+begin
+  DataTable.Fields[idx_ObrasALMACEN].AsString := aValue;
+end;
+
 function TObrasDataTableRules.GetTOTALPRESUPUESTOSINIValue: Currency;
 begin
   result := DataTable.Fields[idx_ObrasTOTALPRESUPUESTOSINI].AsCurrency;

Modulos/Obras/Reglas/schObrasServer_Intf.pas

@@ -42,6 +42,7 @@ type
     function GetOldTOTALPRESUPUESTOSFINValue : Currency;
     function GetOldCODIGOCONTACTOValue : Integer;
     function GetOldNOMBRECLIENTEValue : String;
+    function GetOldALMACENValue : String;    
 
     { Properties }
     property OldCODIGOEMPRESA : Integer read GetOldCODIGOEMPRESAValue;
@@ -64,6 +65,7 @@ type
     property OldTOTALPRESUPUESTOSFIN : Currency read GetOldTOTALPRESUPUESTOSFINValue;
     property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
     property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
+    property OldALMACEN : String read GetOldALMACENValue;    
   end;
 
   { TObrasBusinessProcessorRules }
@@ -131,6 +133,9 @@ type
     function GetNOMBRECLIENTEValue: String; virtual;
     function GetOldNOMBRECLIENTEValue: String; virtual;
     procedure SetNOMBRECLIENTEValue(const aValue: String); virtual;
+    function GetALMACENValue: String; virtual;
+    function GetOldALMACENValue: String; virtual;
+    procedure SetALMACENValue(const aValue: String); virtual;
 
     { Properties }
     property CODIGOEMPRESA : Integer read GetCODIGOEMPRESAValue write SetCODIGOEMPRESAValue;
@@ -173,6 +178,8 @@ type
     property OldCODIGOCONTACTO : Integer read GetOldCODIGOCONTACTOValue;
     property NOMBRECLIENTE : String read GetNOMBRECLIENTEValue write SetNOMBRECLIENTEValue;
     property OldNOMBRECLIENTE : String read GetOldNOMBRECLIENTEValue;
+    property ALMACEN : String read GetALMACENValue write SetALMACENValue;
+    property OldALMACEN : String read GetOldALMACENValue;
 
   public
     constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@@ -911,6 +918,21 @@ begin
   BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasAPLICAHONORARIOS] := aValue;
 end;
 
+function TObrasBusinessProcessorRules.GetALMACENValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN];
+end;
+
+function TObrasBusinessProcessorRules.GetOldALMACENValue: String;
+begin
+  result := BusinessProcessor.CurrentChange.OldValueByName[fld_ObrasALMACEN];
+end;
+
+procedure TObrasBusinessProcessorRules.SetALMACENValue(const aValue: String);
+begin
+  BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasALMACEN] := aValue;
+end;
+
 function TObrasBusinessProcessorRules.GetTOTALPRESUPUESTOSINIValue: Currency;
 begin
   result := BusinessProcessor.CurrentChange.NewValueByName[fld_ObrasTOTALPRESUPUESTOSINI];

Modulos/Obras/Reglas/uBizObra.pas

@@ -185,8 +185,11 @@ type
 
     //DOCUMENTOS ASOCIADOS
     FGestorDocumentos: TGestorDocumentos;
+    FGestorDocumentosNuevo: TGestorDocumentos;
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
 
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
@@ -222,6 +225,7 @@ type
 
     //DOCUMENTOS ASOCIADOS
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;
 
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;
@@ -298,8 +302,11 @@ type
 
     //DOCUMENTOS ASOCIADOS
     FGestorDocumentos: TGestorDocumentos;
+    FGestorDocumentosNuevo: TGestorDocumentos;
     function GetGestorDocumentos: TGestorDocumentos;
     procedure SetGestorDocumentos(Value: TGestorDocumentos);
+    function GetGestorDocumentosNuevo: TGestorDocumentos;
+    procedure SetGestorDocumentosNuevo(Value: TGestorDocumentos);
 
   protected
     procedure OnNewRecord(Sender: TDADataTable); override;
@@ -322,6 +329,7 @@ type
 
     //DOCUMENTOS ASOCIADOS
     property GestorDocumentos: TGestorDocumentos read GetGestorDocumentos write SetGestorDocumentos;
+    property GestorDocumentosNuevo: TGestorDocumentos read GetGestorDocumentosNuevo write SetGestorDocumentosNuevo;    
 
     constructor Create(aDataTable: TDADataTable); override;
     destructor Destroy; override;
@@ -480,6 +488,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.Directorio := NOMBRE;
+  GestorDocumentosNuevo.Directorio := NOMBRE;  
 end;
 
 procedure TBizObraDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
@@ -493,6 +502,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarCancelTable;
+  GestorDocumentosNuevo.procesarCancelTable;  
 end;
 
 procedure TBizObraDataTableRules.BeforeDelete(Sender: TDADataTable);
@@ -501,6 +511,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarDeleteTable;
+  GestorDocumentosNuevo.procesarDeleteTable;
 end;
 
 constructor TBizObraDataTableRules.Create(aDataTable: TDADataTable);
@@ -516,6 +527,9 @@ begin
   //DOCUMENTOS ASOCIADOS
   FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
   FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosNormativas;
+  FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirNormativas);
+  FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosNormativasNueva;
+
   aDataTable.BeforeCancel := BeforeCancel;
   aDataTable.AfterCancel := AfterCancel;
 end;
@@ -534,6 +548,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   FreeAndNil(FGestorDocumentos);
+  FreeAndNil(FGestorDocumentosNuevo);
 
   inherited;
 end;
@@ -564,6 +579,12 @@ begin
   Result := FGestorDocumentos;
 end;
 
+function TBizObraDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
+begin
+  FGestorDocumentosNuevo.Directorio := NOMBRE;
+  Result := FGestorDocumentosNuevo;
+end;
+
 function TBizObraDataTableRules.GetPresupuestos: IBizPresupuestosObra;
 begin
   Result := FPresupuestos;
@@ -639,6 +660,11 @@ begin
   FGestorDocumentos := Value;
 end;
 
+procedure TBizObraDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+begin
+  FGestorDocumentosNuevo := Value;
+end;
+
 procedure TBizObraDataTableRules.SetPresupuestos(const Value: IBizPresupuestosObra);
 begin
   FPresupuestos := Value;
@@ -989,6 +1015,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.Directorio := DESCRIPCION;
+  GestorDocumentosNuevo.Directorio := DESCRIPCION;  
 end;
 
 procedure TBizProyectosDataTableRules.BeforeApplyUpdates(DataTable: TDADataTable; const Delta: IDADelta);
@@ -1002,6 +1029,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarCancelTable;
+  GestorDocumentosNuevo.procesarCancelTable;
 end;
 
 procedure TBizProyectosDataTableRules.BeforeDelete(Sender: TDADataTable);
@@ -1010,6 +1038,7 @@ begin
 
   //DOCUMENTOS ASOCIADOS
   GestorDocumentos.procesarDeleteTable;
+  GestorDocumentosNuevo.procesarDeleteTable;  
 end;
 
 constructor TBizProyectosDataTableRules.Create(aDataTable: TDADataTable);
@@ -1021,6 +1050,9 @@ begin
   //DOCUMENTOS ASOCIADOS
   FGestorDocumentos := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
   FGestorDocumentos.RootDocumentos := dmBase.darRutaDocumentosProyectos;
+  FGestorDocumentosNuevo := TGestorDocumentos.Create(dmBase.darEstructuraDirProyectos);
+  FGestorDocumentosNuevo.RootDocumentos := dmBase.darRutaDocumentosProyectosNueva;
+
   aDataTable.BeforeCancel := BeforeCancel;
   aDataTable.AfterCancel := AfterCancel;
 end;
@@ -1032,6 +1064,7 @@ begin
   
   //DOCUMENTOS ASOCIADOS
   FreeAndNil(FGestorDocumentos);
+  FreeAndNil(FGestorDocumentosNuevo);  
   inherited;
 end;
 
@@ -1041,6 +1074,12 @@ begin
   Result := FGestorDocumentos;
 end;
 
+function TBizProyectosDataTableRules.GetGestorDocumentosNuevo: TGestorDocumentos;
+begin
+  FGestorDocumentosNuevo.Directorio := DESCRIPCION;
+  Result := FGestorDocumentosNuevo;
+end;
+
 function TBizProyectosDataTableRules.GetObra: IBizObra;
 begin
   Result := FObra;
@@ -1071,6 +1110,11 @@ begin
   FGestorDocumentos := Value;
 end;
 
+procedure TBizProyectosDataTableRules.SetGestorDocumentosNuevo(Value: TGestorDocumentos);
+begin
+  FGestorDocumentosNuevo := Value;
+end;
+
 procedure TBizProyectosDataTableRules.SetObra(const Value: IBizObra);
 begin
   FObra := Value;

Modulos/Obras/Servidor/srvObras_Impl.dfm

@@ -5,8 +5,8 @@ object srvObras: TsrvObras
   ConnectionName = 'IBX'
   ServiceSchema = schObras
   ServiceAdapter = DABINAdapter
-  Left = 657
+  Left = 516
-  Top = 335
+  Top = 145
   Height = 300
   Width = 300
   object schObras: TDASchema
@@ -27,8 +27,9 @@ object srvObras: TsrvObras
               'S.PROVINCIA, OBRAS.TIPO,'#10'    OBRAS.DIMENSIONES, OBRAS.HONORARIOS' +
               ', OBRAS.IMPORTEHONORARIOS,'#10'    OBRAS.APLICAHONORARIOS, OBRAS.TOT' +
               'ALPRESUPUESTOSINI, OBRAS.TOTALPRESUPUESTOSFIN,'#10'    OBRAS.CODIGOC' +
-              'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE'#10'  FROM OBRAS'#10'  LEFT J' +
+              'ONTACTO, CONTACTOS.NOMBRE as NOMBRECLIENTE, OBRAS.ALMACEN'#10'  FROM' +
-              'OIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTOS.CODIGO)'
+              ' OBRAS'#10'  LEFT JOIN CONTACTOS ON (OBRAS.CODIGOCONTACTO = CONTACTO' +
+              'S.CODIGO)'
             StatementType = stSQL
             ColumnMappings = <
               item
@@ -110,6 +111,10 @@ object srvObras: TsrvObras
               item
                 DatasetField = 'TOTALPRESUPUESTOSFIN'
                 TableField = 'TOTALPRESUPUESTOSFIN'
+              end
+              item
+                DatasetField = 'ALMACEN'
+                TableField = 'ALMACEN'
               end>
           end>
         Name = 'Obras'
@@ -338,6 +343,18 @@ object srvObras: TsrvObras
             Calculated = False
             Lookup = False
             LookupCache = False
+          end
+          item
+            Name = 'ALMACEN'
+            DataType = datString
+            Size = 1
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
           end>
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript

Modulos/Recibos/Servidor/srvRecibosCliente_Impl.dfm

@@ -5,8 +5,8 @@ object srvRecibosCliente: TsrvRecibosCliente
   ConnectionName = 'IBX'
   ServiceSchema = schRecibosCliente
   ServiceAdapter = DABINAdapter
-  Left = 563
+  Left = 445
-  Top = 286
+  Top = 79
   Height = 328
   Width = 207
   object DABINAdapter: TDABINAdapter

Output/Servidor/Informes/InfFacturaCliente.fr3

@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="39014,6532295255" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;  DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO&#34;&#62; of&#13;&#10;  'C': begin&#13;&#10;       MemoCampo12.Style := 'Concepto normal';&#13;&#10;       MemoCampo4.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'S': begin&#13;&#10;       MemoCampo12.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo4.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'T': begin&#13;&#10;       MemoCampo12.Style := 'Concepto titulo';&#13;&#10;       MemoCampo4.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure mTextoOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;       mTexto.Lines.Clear;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'N') then&#13;&#10;          mTexto.Lines.Add('FACTURA');&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'A') then&#13;&#10;          mTexto.Lines.Add('ABONO');&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'P') then&#13;&#10;          mTexto.Lines.Add('PROFORMA');&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." StoreInDFM="False" PropData="044C656674022803546F7003800008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
+<TfrxReport Version="3.23.7" DotMatrixReport="False" EngineOptions.DoublePass="True" IniFile="\Software\Fast Reports" PreviewOptions.Buttons="2047" PreviewOptions.OutlineWidth="180" PreviewOptions.Zoom="1" PrintOptions.Printer="Default" ReportOptions.CreateDate="37871,9953986921" ReportOptions.Description.Text="Demonstrates how to create simple list report." ReportOptions.LastChange="42039,4643316319" ReportOptions.VersionBuild="1" ReportOptions.VersionMajor="12" ReportOptions.VersionMinor="13" ReportOptions.VersionRelease="1" ScriptLanguage="PascalScript" ScriptText.Text="procedure DatosClienteOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  DatosCliente.Lines.Clear;&#13;&#10;  DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CALLE&#34;&#62;);&#13;&#10;&#13;&#10;  if (&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; &#60;&#62; '')&#13;&#10;  or (&#60;frxDBCabecera.&#34;POBLACION&#34;&#62; &#60;&#62; '') then&#13;&#10;     DatosCliente.Lines.Add(&#60;frxDBCabecera.&#34;CODIGOPOSTAL&#34;&#62; + &#60;frxDBCabecera.&#34;POBLACION&#34;&#62;);&#13;&#10;end;&#13;&#10;&#13;&#10;procedure BandaDetallesOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;  case &#60;frxDBDetalles.&#34;TIPO&#34;&#62; of&#13;&#10;  'C': begin&#13;&#10;       MemoCampo12.Style := 'Concepto normal';&#13;&#10;       MemoCampo4.Style := 'Concepto normal';&#13;&#10;       end;&#13;&#10;  'S': begin&#13;&#10;       MemoCampo12.Style := 'Concepto subtotal';&#13;&#10;       MemoCampo4.Style := 'Concepto subtotal';&#13;&#10;       end;&#13;&#10;  'T': begin&#13;&#10;       MemoCampo12.Style := 'Concepto titulo';&#13;&#10;       MemoCampo4.Style := 'Concepto titulo';&#13;&#10;       end;&#13;&#10;  end;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure ReportSummary1OnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;       Engine.CurY := Engine.CurY + Engine.FreeSpace - ReportSummary1.Height - 1;&#13;&#10;end;&#13;&#10;&#13;&#10;procedure mTextoOnBeforePrint(Sender: TfrxComponent);&#13;&#10;begin&#13;&#10;       mTexto.Lines.Clear;&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'N') then&#13;&#10;          mTexto.Lines.Add('FACTURA');&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'A') then&#13;&#10;          mTexto.Lines.Add('ABONO');&#13;&#10;&#13;&#10;       if (&#60;frxDBCabecera.&#34;CLASEFACTURA&#34;&#62; = 'P') then&#13;&#10;          mTexto.Lines.Add('PROFORMA');&#13;&#10;end;&#13;&#10;&#13;&#10;begin&#13;&#10;&#13;&#10;end." StoreInDFM="False" PropData="044C656674022803546F7003800008446174617365747301010C3400000020446174615365743D22667278444243616265636572612220446174615365744E616D653D22667278444243616265636572612200010C3400000020446174615365743D226672784442446574616C6C65732220446174615365744E616D653D226672784442446574616C6C6573220000095661726961626C65730100055374796C6501010C85000000204E616D653D22436F6E636570746F206E6F726D616C2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22302200010C86000000204E616D653D22436F6E636570746F20737562746F74616C2220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D22312200010C97000000204E616D653D22436162656365726120646520636F6C756D6E612220436F6C6F723D2231353739303332302220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31322220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D223122204672616D652E5479703D2231352200010C85000000204E616D653D22436F6E636570746F20746974756C6F2220436F6C6F723D223533363837303931312220466F6E742E436861727365743D22302220466F6E742E436F6C6F723D222D31363737373230382220466F6E742E4865696768743D222D31332220466F6E742E4E616D653D225461686F6D612220466F6E742E5374796C653D2231220000">
   <TfrxReportPage Name="Page1" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Arial" Font.Style="1" PaperWidth="210" PaperHeight="297" PaperSize="9" LeftMargin="10" RightMargin="10" TopMargin="10" BottomMargin="10" Columns="1" ColumnWidth="210" ColumnPositions.Text="0" PrintOnPreviousPage="True" HGuides.Text="" VGuides.Text="">
     <TfrxPageHeader Name="Band2" Height="258,70866142" Left="0" Top="18,89765" Width="718,1107">
       <TfrxMemoView Name="Memo23" Left="3,77953" Top="228,5671" Width="621,35467" Height="26,45669291" Color="15790320" Font.Charset="0" Font.Color="-16777208" Font.Height="-12" Font.Name="Tahoma" Font.Style="1" Frame.Typ="15" HAlign="haCenter" ParentFont="False" Style="Cabecera de columna" VAlign="vaCenter" Text="Concepto"/>
@@ -8,7 +8,7 @@
       <TfrxShapeView Name="Shape1" Left="3,77953" Top="128,50402" Width="714,33117" Height="71,81107" Color="16250871"/>
       <TfrxShapeView Name="Shape2" Left="325,03937007874" Top="18,89765" Width="393,07112" Height="98,26778" Color="16250871"/>
       <TfrxMemoView Name="mTexto" Left="393,07112" Top="136,06308" Width="313,70099" Height="52,91342" OnBeforePrint="mTextoOnBeforePrint" Font.Charset="1" Font.Color="12632256" Font.Height="-37" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" VAlign="vaCenter" Text="FACTURA"/>
-      <TfrxMemoView Name="Memo16" Left="15,11812" Top="135,84261" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Referencia:"/>
+      <TfrxMemoView Name="Memo16" Left="15,11812" Top="135,84261" Width="65,13389" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Nº Factura:"/>
       <TfrxMemoView Name="Memo17" Left="15,11812" Top="154,74026" Width="45,35436" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Fecha:"/>
       <TfrxMemoView Name="Memo18" Left="15,11812" Top="173,63791" Width="60,47248" Height="18,89765" Font.Charset="1" Font.Color="0" Font.Height="-12" Font.Name="Arial" Font.Style="0" ParentFont="False" Text="Página nº:"/>
       <TfrxMemoView Name="Memo19" Left="340,81911" Top="18,89765" Width="366,17347" Height="37,7953" Font.Charset="1" Font.Color="0" Font.Height="-15" Font.Name="Tahoma" Font.Style="1" HAlign="haRight" ParentFont="False" Text="[frxDBCabecera.&#34;NOMBRE&#34;]&#13;&#10;[frxDBCabecera.&#34;NIFCIF&#34;]"/>
@@ -46,7 +46,7 @@
       <TfrxMemoView Name="Memo13" Left="234,55133" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Base imponible"/>
       <TfrxMemoView Name="Memo22" Left="352" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="IVA"/>
       <TfrxMemoView Name="Memo25" Left="468" Top="12" Width="116" Height="16" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="1" HAlign="haCenter" ParentFont="False" VAlign="vaCenter" Text="Total IVA"/>
-      <TfrxMemoView Name="Memo32" Left="352" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IVA&#34;]"/>
+      <TfrxMemoView Name="Memo32" Left="352" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 %" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text=" [frxDBCabecera.&#34;IVA&#34;]"/>
       <TfrxMemoView Name="Memo33" Left="468" Top="28" Width="116,75603" Height="22,89765" DataSet="frxDBCabecera" DataSetName="frxDBCabecera" DisplayFormat.DecimalSeparator="," DisplayFormat.FormatStr="#,0.00 €" DisplayFormat.Kind="fkNumeric" Font.Charset="1" Font.Color="0" Font.Height="-13" Font.Name="Tahoma" Font.Style="0" HAlign="haCenter" HideZeros="True" ParentFont="False" VAlign="vaCenter" Text="[frxDBCabecera.&#34;IMPORTEIVA&#34;]"/>
       <TfrxLineView Name="Line7" Align="baWidth" Left="0" Top="4" Width="718,1107" Height="0" Frame.Color="16777215" Frame.Typ="4" Frame.Width="8"/>
       <TfrxLineView Name="Line8" Left="5" Top="0" Width="714,1107" Height="0" Frame.Typ="4"/>

Servidor/FactuGES.rodl

@@ -62,6 +62,18 @@
 </Parameter>
 </Parameters>
 </Operation>
+<Operation Name="darRutaProyectosNueva" UID="{80838AF7-9BC4-4C0D-A35E-EFE3129CAE18}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
+<Operation Name="darRutaNormativasNueva" UID="{412F6B65-1A05-4819-87FA-AF9CB727F0FF}">
+<Parameters>
+<Parameter Name="Result" DataType="String" Flag="Result">
+</Parameter>
+</Parameters>
+</Operation>
 <Operation Name="darRutaNormativas" UID="{7105D2B8-8A2C-4D4A-AD86-6112D8062418}">
 <Parameters>
 <Parameter Name="Result" DataType="String" Flag="Result">

Servidor/FactuGES_Intf.pas

@@ -106,6 +106,8 @@ type
   IsrvConfiguracion = interface(IDARemoteService)
     ['{F3739ECF-58ED-416F-A4E8-261510BC5E89}']
     function darRutaProyectos: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darRutaNormativas: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;
@@ -122,6 +124,8 @@ type
     function __GetInterfaceName:string; override;
 
     function darRutaProyectos: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darRutaNormativas: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;
@@ -367,6 +371,50 @@ begin
   end
 end;
 
+function TsrvConfiguracion_Proxy.darRutaProyectosNueva: String;
+var
+  __request, __response : TMemoryStream;
+begin
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaProyectosNueva');
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(String), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
+function TsrvConfiguracion_Proxy.darRutaNormativasNueva: String;
+var
+  __request, __response : TMemoryStream;
+begin
+  __request := TMemoryStream.Create;
+  __response := TMemoryStream.Create;
+
+  try
+     __Message.Initialize(__TransportChannel, 'FactuGES', __InterfaceName, 'darRutaNormativasNueva');
+     __Message.Finalize;
+
+     __Message.WriteToStream(__request);
+     __TransportChannel.Dispatch(__request, __response);
+     __Message.ReadFromStream(__response);
+
+     __Message.Read('Result', TypeInfo(String), result, []);
+  finally
+    __request.Free;
+    __response.Free;
+  end
+end;
+
 function TsrvConfiguracion_Proxy.darRutaNormativas: String;
 var
   __request, __response : TMemoryStream;

Servidor/FactuGES_Invk.pas

@@ -45,6 +45,8 @@ type
   protected
   published
     procedure Invoke_darRutaProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+    procedure Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darEstructuraDirProyectos(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
     procedure Invoke_darEstructuraDirNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
@@ -182,6 +184,38 @@ begin
   end;
 end;
 
+procedure TsrvConfiguracion_Invoker.Invoke_darRutaProyectosNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function darRutaProyectosNueva: String; }
+var
+  lResult: String;
+begin
+  try
+    lResult := (__Instance as IsrvConfiguracion).darRutaProyectosNueva;
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaProyectosNuevaResponse');
+    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
+procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativasNueva(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
+{ function darRutaNormativasNueva: String; }
+var
+  lResult: String;
+begin
+  try
+    lResult := (__Instance as IsrvConfiguracion).darRutaNormativasNueva;
+
+    __Message.Initialize(__Transport, 'FactuGES', 'srvConfiguracion', 'darRutaNormativasNuevaResponse');
+    __Message.Write('Result', TypeInfo(String), lResult, []);
+    __Message.Finalize;
+
+  finally
+  end;
+end;
+
 procedure TsrvConfiguracion_Invoker.Invoke_darRutaNormativas(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
 { function darRutaNormativas: String; }
 var

Servidor/ProGestion_Server.dof

@@ -114,7 +114,7 @@ IncludeVerInfo=1
 AutoIncBuild=0
 MajorVer=2
 MinorVer=0
-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=2.0.3.0
+FileVersion=2.0.4.0
 InternalName=ProGestion_Server
 LegalCopyright=
 LegalTrademarks=
 OriginalFilename=ProGestion_Server.exe
 ProductName=ProGestion Server
-ProductVersion=1.0.0.0
+ProductVersion=2.0.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.
@@ -176,30 +176,32 @@ C:\Componentes\FastReport 3\LibD7\frxIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\fsIBX7.bpl=(untitled)
 C:\Componentes\FastReport 3\LibD7\frxTee7.bpl=(untitled)
 [HistoryLists\hlDebugSourcePath]
-Count=1
+Count=2
 Item0=D:\Proyectos\Componentes\GUISDK\Sources\;D:\Proyectos\Componentes\PluginSDK\Source\;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Cliente;D:\Proyectos\FactuGES (Estudio)\Codigo\Modulos\Contactos\Reglas
+Item1=.\
 [HistoryLists\hlUnitAliases]
 Count=1
 Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
 [HistoryLists\hlSearchPath]
-Count=17
+Count=18
 Item0=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Contactos\Cliente;..\Modulos\Contactos\Reglas;..\Modulos\Obras\Reglas;..\Modulos\Obras\Cliente;..\Modulos\Documentos asociados;..\Modulos\Facturas de cliente\Cliente;..\Modulos\Facturas de cliente\Reglas;..\Modulos\Recibos\Cliente;..\Modulos\Recibos\Reglas;..\Modulos\Obras Final\Cliente;..\Modulos\Obras Final\Reglas
-Item1=$(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
+Item1=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\Reglas;..\..\Obras\Cliente;..\..\Facturas de cliente\Cliente;..\..\Contactos\Cliente;..\..\Documentos asociados;..\..\Recibos\Cliente
-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
+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
+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
+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
-Item5=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
+Item5=$(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
-Item6=$(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
+Item6=..\Modulos\Presupuestos\Reglas;..\Modulos\Contactos\Reglas;..\Base;..\Configuracion;..\Usuarios;..\Modulos\Albaranes de cliente\Reglas
-Item7=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
+Item7=$(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
-Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
+Item8=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente;..\..\Almacenes\Cliente
-Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
+Item9=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados
-Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
+Item10=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados;..\..\Contactos\Cliente
-Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
+Item11=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente;..\..\Documentos asociados
-Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
+Item12=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\..\Usuarios;..\..\Montajes\Cliente
-Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
+Item13=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente;..\..\Almacenes\Cliente
-Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
+Item14=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\..\Base;..\..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios;..\..\Documentos asociados;..\..\Montajes\Cliente
-Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item15=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\Servidor
-Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
+Item16=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\base;..\Modulos\Calendarios\Cliente;..\Modulos\Calendarios\Reglas
+Item17=$(DELPHI)\Lib\Debug;D:\PROYEC~1\COMPON~1\jcl\lib\D7\debug;..\..\Base;..\..\Servidor;..\..\Contactos\Cliente;..\..\..\Usuarios
 [HistoryLists\hlUnitOutputDirectory]
 Count=1
 Item0=.\

Servidor/srvConfiguracion_Impl.dfm

@@ -5,8 +5,8 @@ object srvConfiguracion: TsrvConfiguracion
   ConnectionName = 'IBX'
   ServiceSchema = schConfiguracion
   ServiceAdapter = DABINAdapter
-  Left = 731
+  Left = 573
-  Top = 212
+  Top = 145
   Height = 300
   Width = 300
   object schConfiguracion: TDASchema
@@ -45,6 +45,39 @@ object srvConfiguracion: TsrvConfiguracion
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'INTERVALOS'
+            SQL = 
+              'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_PROYECTOS_N' +
+              'UEVO'#39
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR'
+                TableField = 'VALOR'
+              end>
+          end>
+        Name = 'darRutaProyectosNueva'
+        Fields = <
+          item
+            Name = 'VALOR'
+            DataType = datString
+            Size = 100
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <
@@ -76,6 +109,39 @@ object srvConfiguracion: TsrvConfiguracion
         BusinessRulesClient.ScriptLanguage = rslPascalScript
         BusinessRulesServer.ScriptLanguage = rslPascalScript
       end
+      item
+        Params = <>
+        Statements = <
+          item
+            Connection = 'IBX'
+            TargetTable = 'INTERVALOS'
+            SQL = 
+              'SELECT VALOR'#10'FROM CONFIGURACION'#10'WHERE CODIGO = '#39'PATH_NORMATIVAS_' +
+              'NUEVO'#39
+            StatementType = stSQL
+            ColumnMappings = <
+              item
+                DatasetField = 'VALOR'
+                TableField = 'VALOR'
+              end>
+          end>
+        Name = 'darRutaNormativasNueva'
+        Fields = <
+          item
+            Name = 'VALOR'
+            DataType = datString
+            Size = 100
+            BlobType = dabtUnknown
+            DisplayWidth = 0
+            Alignment = taLeftJustify
+            InPrimaryKey = False
+            Calculated = False
+            Lookup = False
+            LookupCache = False
+          end>
+        BusinessRulesClient.ScriptLanguage = rslPascalScript
+        BusinessRulesServer.ScriptLanguage = rslPascalScript
+      end
       item
         Params = <>
         Statements = <

Servidor/srvConfiguracion_Impl.pas

@@ -26,6 +26,8 @@ type
     { IsrvConfiguracion methods }
     function darRutaProyectos: String;
     function darRutaNormativas: String;
+    function darRutaProyectosNueva: String;
+    function darRutaNormativasNueva: String;
     function darEstructuraDirProyectos: TDAStringArray;
     function darEstructuraDirNormativas: TDAStringArray;    
   end;
@@ -114,6 +116,36 @@ begin
   end;
 end;
 
+function TsrvConfiguracion.darRutaNormativasNueva: String;
+var
+   ADataSet : IDADataset;
+begin
+  try
+    Result:= '';
+    ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaNormativasNueva');
+    ADataSet.Open;
+    if ADataSet.Dataset.RecordCount > 0 then
+       Result := ADataSet.Dataset.Fields[0].AsString;
+  finally
+    ADataSet.Close;
+  end;
+end;
+
+function TsrvConfiguracion.darRutaProyectosNueva: String;
+var
+   ADataSet : IDADataset;
+begin
+  try
+    Result:= '';
+    ADataSet := schConfiguracion.NewDataset(Connection, 'darRutaProyectosNueva');
+    ADataSet.Open;
+    if ADataSet.Dataset.RecordCount > 0 then
+       Result := ADataSet.Dataset.Fields[0].AsString;
+  finally
+    ADataSet.Close;
+  end;
+end;
+
 initialization
   TROClassFactory.Create('srvConfiguracion', Create_srvConfiguracion, TsrvConfiguracion_Invoker);
 

Servidor/srvLogin_Impl.dfm

@@ -1,7 +1,7 @@
 object srvLogin: TsrvLogin
   OldCreateOrder = True
-  Left = 568
+  Left = 447
-  Top = 275
+  Top = 145
   Height = 300
   Width = 300
   object DABINAdapter: TDABINAdapter

Servidor/uDataModuleServer.dfm

@@ -1,9 +1,8 @@
 object dmServer: TdmServer
   OldCreateOrder = False
   OnCreate = DataModuleCreate
-  Left = 777
+  Left = 608
-  Top = 344
+  Height = 362
-  Height = 365
   Width = 302
   object HTTPServer: TROIndyHTTPServer
     Encryption.UseCompression = True
@@ -159,7 +158,7 @@ object dmServer: TdmServer
         Size = 30
         BlobType = dabtUnknown
         DisplayWidth = 0
-        DisplayLabel = 'N'#250'mero de fax'
+        DisplayLabel = 'Fax'
         Alignment = taLeftJustify
       end
       item