Se incluye lógica para que nos permita añadir archivos con el mismo nombre

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@545 0c75b7a4-871f-7646-8a2f-f78d34cc349f

Source/Base/Base.dproj

@@ -44,6 +44,8 @@
     <Borland.ProjectType>Package</Borland.ProjectType>
     <BorlandProject>
 <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
+      
+      
       <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
       <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
     </Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
@@ -53,58 +55,58 @@
     <DelphiCompile Include="Base.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\adortl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxDataD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExportD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxExtEditorsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxGridD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntl6D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxIntlPrintSys3D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxPageControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\DataAbstract_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dclIndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\designide.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dsnap.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\GUISDK_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyCore.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndyProtocols.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\IndySystem.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Jcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JclVcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JSDialog100.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCmpD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCoreD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvDlgsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvMMD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvNetD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvPageCompsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvStdCtrlsD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvSystemD11R.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckMD5.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUCDataConnector.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\pckUserControl_RT.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PngComponentsD10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\PNG_D10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Core_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\RemObjects_Indy_D11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\TB2k_D10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\tbx_d10.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclactnband.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\VclSmp.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\xmlrtl.dcp" />
     <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
+    <DCCReference Include="..\Servidor\adortl.dcp" />
+    <DCCReference Include="..\Servidor\cxDataD11.dcp" />
+    <DCCReference Include="..\Servidor\cxEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExportD11.dcp" />
+    <DCCReference Include="..\Servidor\cxExtEditorsD11.dcp" />
+    <DCCReference Include="..\Servidor\cxGridD11.dcp" />
+    <DCCReference Include="..\Servidor\cxIntl6D11.dcp" />
+    <DCCReference Include="..\Servidor\cxIntlPrintSys3D11.dcp" />
+    <DCCReference Include="..\Servidor\cxLibraryD11.dcp" />
+    <DCCReference Include="..\Servidor\cxPageControlD11.dcp" />
+    <DCCReference Include="..\Servidor\DataAbstract_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\dbrtl.dcp" />
+    <DCCReference Include="..\Servidor\dclIndyCore.dcp" />
+    <DCCReference Include="..\Servidor\designide.dcp" />
+    <DCCReference Include="..\Servidor\dsnap.dcp" />
+    <DCCReference Include="..\Servidor\dxGDIPlusD11.dcp" />
+    <DCCReference Include="..\Servidor\dxPSCoreD11.dcp" />
+    <DCCReference Include="..\Servidor\dxThemeD11.dcp" />
+    <DCCReference Include="..\Servidor\GUISDK_D11.dcp" />
+    <DCCReference Include="..\Servidor\IndyCore.dcp" />
+    <DCCReference Include="..\Servidor\IndyProtocols.dcp" />
+    <DCCReference Include="..\Servidor\IndySystem.dcp" />
+    <DCCReference Include="..\Servidor\Jcl.dcp" />
+    <DCCReference Include="..\Servidor\JclVcl.dcp" />
+    <DCCReference Include="..\Servidor\JSDialog100.dcp" />
+    <DCCReference Include="..\Servidor\JvCmpD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCoreD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvDlgsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvMMD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvNetD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvPageCompsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvStdCtrlsD11R.dcp" />
+    <DCCReference Include="..\Servidor\JvSystemD11R.dcp" />
+    <DCCReference Include="..\Servidor\pckMD5.dcp" />
+    <DCCReference Include="..\Servidor\pckUCDataConnector.dcp" />
+    <DCCReference Include="..\Servidor\pckUserControl_RT.dcp" />
+    <DCCReference Include="..\Servidor\PngComponentsD10.dcp" />
+    <DCCReference Include="..\Servidor\PNG_D10.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Core_D11.dcp" />
+    <DCCReference Include="..\Servidor\RemObjects_Indy_D11.dcp" />
+    <DCCReference Include="..\Servidor\rtl.dcp" />
+    <DCCReference Include="..\Servidor\TB2k_D10.dcp" />
+    <DCCReference Include="..\Servidor\tbx_d10.dcp" />
+    <DCCReference Include="..\Servidor\vcl.dcp" />
+    <DCCReference Include="..\Servidor\vclactnband.dcp" />
+    <DCCReference Include="..\Servidor\vcldb.dcp" />
+    <DCCReference Include="..\Servidor\vcljpg.dcp" />
+    <DCCReference Include="..\Servidor\VclSmp.dcp" />
+    <DCCReference Include="..\Servidor\vclx.dcp" />
+    <DCCReference Include="..\Servidor\xmlrtl.dcp" />
     <DCCReference Include="Conexion\uConfigurarConexion.pas">
       <Form>fConfigurarConexion</Form>
       <DesignClass>TForm</DesignClass>

Source/GUIBase/GUIBase.dproj

@@ -58,18 +58,6 @@
     <DelphiCompile Include="GUIBase.dpk">
       <MainSource>MainSource</MainSource>
     </DelphiCompile>
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\Base.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPScxGrid6LnkD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxPsPrVwAdvD11.dcp" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinBlackD11.dcp" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinBlueD11.dcp" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinCaramelD11.dcp" />
@@ -93,17 +81,29 @@
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinStardustD11.dcp" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinValentineD11.dcp" />
     <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxSkinXmas2008BlueD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
-    <DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vclx.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
+    <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
     <DCCReference Include="uDialogBase.pas">
       <Form>fDialogBase</Form>
     </DCCReference>

Source/GUIBase/uViewDocumentos.pas

@@ -37,17 +37,18 @@ type
     function DarFicherosSeleccionados: TStringList;
 
   protected
+    FHayModificaciones: Boolean;
     FListaFicheros: TStringList;
     property Directorio: Variant read GetDirectorio;
+    property ListaFicheros: TStringList read FListaFicheros write FListaFicheros;
+
+    function GetModified: Boolean; override;
+    procedure SetModified(const Value : Boolean); override;
 
     //Son los metodos que se sobreescribiran en la vista hija
     procedure Sincronizar; virtual; abstract;
     function RecuperarFicheroServidor(const NombreFichero: String; const DirectorioDestino: String): Boolean; virtual; abstract;
     procedure RefrescarVisualizador; virtual;
-
-  public
-    property ListaFicheros: TStringList read FListaFicheros;
-
   end;
 
 var
@@ -69,7 +70,9 @@ procedure TfrViewDocumentos.actAnadirExecute(Sender: TObject);
 var
   openDialog : TOpenDialog;
   ANombreFichero : String;
-  i : Integer;
+  ANombreSeleccionado : String;
+  BCopiar: Boolean;
+  i, j : Integer;
 begin
   openDialog := TOpenDialog.Create(self);
   try
@@ -90,12 +93,24 @@ begin
     begin
       for i:=0 to openDialog.Files.Count - 1 do
       begin
-        ANombreFichero := openDialog.Files.Strings[i];
+        ANombreSeleccionado := openDialog.Files.Strings[i];
-        if Length(ANombreFichero) > 0 then
+        if Length(ANombreSeleccionado) > 0 then
-           CopiarFichero(ANombreFichero, (Directorio + ExtractFileName(ANombreFichero)));
+        begin
+           BCopiar := True;
+           ANombreFichero := ExtractFileName(ANombreSeleccionado);
+           if FListaFicheros.Find(ANombreFichero, j) then
+           begin
+              ANombreFichero := 'Copia de ' + ANombreFichero;
+              BCopiar := (Application.MessageBox(PChar('Ya existe un archivo con ese nombre, ¿Desea añadirlo con el nombre ' + ANombreFichero + '?'), 'Atención', MB_YESNO) = IDYES);
+           end;
 
+           if BCopiar then
+           begin
+             CopiarFichero(ANombreSeleccionado, (Directorio + ANombreFichero));
              //Lo añadimos a la lista de documentos local
-        FListaFicheros.Add(ExtractFileName(ANombreFichero))
+             FListaFicheros.Add(ANombreFichero);
+           end;
+        end;
       end;
     end;
 
@@ -104,6 +119,7 @@ begin
     //Now, We compact the process memory:
     SetProcessWorkingSetSize(GetCurrentProcess, $FFFFFFFF, $FFFFFFFF);
     RefrescarVisualizador;
+    FHayModificaciones := True;
   end;
 end;
 
@@ -131,6 +147,7 @@ begin
   finally
     FreeAndNil(FicherosSeleccionados);
     RefrescarVisualizador;
+    FHayModificaciones := True;    
   end;
 end;
 
@@ -140,6 +157,7 @@ begin
    FListaFicheros.Clear;
    FDirectorio := Null;
    RefrescarVisualizador;
+   FHayModificaciones := True;   
 end;
 
 procedure TfrViewDocumentos.actModificarExecute(Sender: TObject);
@@ -166,7 +184,8 @@ begin
               Application.MessageBox('No se pudo editar el fichero', 'Error', MB_ICONEXCLAMATION);
         end;
   finally
-    FreeAndNil(FicherosSeleccionados)
+    FreeAndNil(FicherosSeleccionados);
+    FHayModificaciones := True;
   end;
 end;
 
@@ -175,6 +194,7 @@ begin
   inherited;
   FDirectorio := Null;
   FListaFicheros := Nil;
+  FHayModificaciones:= False;   
 end;
 
 procedure TfrViewDocumentos.CustomViewDestroy(Sender: TObject);
@@ -207,10 +227,21 @@ begin
   Result := FDirectorio;
 end;
 
+function TfrViewDocumentos.GetModified: Boolean;
+begin
+  Result := FHayModificaciones; 
+end;
+
 procedure TfrViewDocumentos.RefrescarVisualizador;
 begin
   ListaDocumentos.Clear;
   ListaDocumentos.Items.AddStrings(FListaFicheros);
 end;
 
+procedure TfrViewDocumentos.SetModified(const Value: Boolean);
+begin
+  inherited;
+  FHayModificaciones := Value;
+end;
+
 end.

Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc

@@ -13,4 +13,4 @@ BEGIN
 END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4BD.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf67.tmp */

Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc

@@ -14,4 +14,4 @@ END
 
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
 /* C:\Codigo Tecsitel\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
-/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf4BB.tmp */
+/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf65.tmp */

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.dfm

@@ -202,111 +202,99 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
           Height = 46
           ExplicitWidth = 735
           ExplicitHeight = 46
+          inherited ToolButton3: TToolButton
+            Wrap = False
+          end
           inherited ToolButton4: TToolButton
-            Left = 109
+            Left = 278
-            Top = 0
-            ExplicitLeft = 109
-            ExplicitTop = 0
-          end
-          inherited FontName: TJvFontComboBox [2]
-            Left = 165
-            Top = 0
-            ExplicitLeft = 165
-            ExplicitTop = 0
-          end
-          inherited FontSize: TEdit [3]
-            Left = 310
-            Top = 0
-            Width = 200
-            ExplicitLeft = 310
-            ExplicitTop = 0
-            ExplicitWidth = 200
-          end
-          inherited UpDown1: TUpDown [4]
-            Left = 510
-            Top = 0
-            ExplicitLeft = 510
-            ExplicitTop = 0
-          end
-          inherited ToolButton3: TToolButton [5]
-            Left = 527
             Top = 0
             Wrap = True
-            ExplicitLeft = 527
+            ExplicitLeft = 278
             ExplicitTop = 0
           end
-          inherited ToolButton2: TToolButton [6]
-            Top = 22
-            Wrap = True
-          end
           inherited ToolButton14: TToolButton
             Left = 0
-            Top = 44
+            Wrap = False
             ExplicitLeft = 0
-            ExplicitTop = 44
           end
-          inherited ToolButton13: TToolButton [8]
+          inherited FontName: TJvFontComboBox
             Left = 65
-            Top = 44
+            Top = 22
-            ExplicitLeft = 65
+            ExplicitTop = 22
-            ExplicitTop = 44
           end
-          inherited ToolButton6: TToolButton [9]
+          inherited FontSize: TEdit
-            Left = 73
+            Top = 22
-            Top = 44
+            Width = 200
-            ExplicitLeft = 73
+            ExplicitTop = 22
-            ExplicitTop = 44
+            ExplicitWidth = 200
           end
-          inherited ToolButton7: TToolButton [10]
+          inherited UpDown1: TUpDown
-            Left = 139
+            Left = 345
-            Top = 44
+            Top = 22
-            ExplicitLeft = 139
+            ExplicitLeft = 345
-            ExplicitTop = 44
+            ExplicitTop = 22
           end
-          inherited ToolButton8: TToolButton [11]
+          inherited ToolButton13: TToolButton
-            Left = 206
+            Left = 362
-            Top = 44
+            Top = 22
-            ExplicitLeft = 206
+            ExplicitLeft = 362
-            ExplicitTop = 44
+            ExplicitTop = 22
           end
-          inherited ToolButton12: TToolButton [12]
+          inherited ToolButton6: TToolButton
-            Left = 289
+            Left = 370
-            Top = 44
+            Top = 22
-            Wrap = False
+            ExplicitLeft = 370
-            ExplicitLeft = 289
+            ExplicitTop = 22
-            ExplicitTop = 44
-            ExplicitHeight = 22
           end
-          inherited ToolButton9: TToolButton [13]
+          inherited ToolButton7: TToolButton
-            Left = 297
+            Left = 436
-            Top = 44
+            Top = 22
-            ExplicitLeft = 297
+            ExplicitLeft = 436
-            ExplicitTop = 44
+            ExplicitTop = 22
           end
-          inherited ToolButton10: TToolButton [14]
+          inherited ToolButton8: TToolButton
-            Left = 442
+            Left = 503
-            Top = 44
+            Top = 22
-            Wrap = False
+            ExplicitLeft = 503
-            ExplicitLeft = 442
+            ExplicitTop = 22
-            ExplicitTop = 44
+          end
+          inherited ToolButton12: TToolButton
+            Left = 0
+            Top = 22
+            Wrap = True
+            ExplicitLeft = 0
+            ExplicitTop = 22
+            ExplicitHeight = 27
+          end
+          inherited ToolButton9: TToolButton
+            Left = 0
+            Top = 49
+            ExplicitLeft = 0
+            ExplicitTop = 49
+          end
+          inherited ToolButton10: TToolButton
+            Left = 145
+            Top = 49
+            ExplicitLeft = 145
+            ExplicitTop = 49
           end
           inherited ToolButton11: TToolButton
-            Left = 567
+            Left = 270
-            Top = 44
+            Top = 49
-            ExplicitLeft = 567
+            ExplicitLeft = 270
-            ExplicitTop = 44
+            ExplicitTop = 49
           end
         end
         inherited cxGrid: TcxGrid
-          Top = 72
+          Top = 99
           Width = 735
-          Height = 314
+          Height = 287
           ExplicitTop = 72
           ExplicitWidth = 735
           ExplicitHeight = 314
         end
         inherited TBXDock1: TTBXDock
-          Top = 46
+          Top = 73
           Width = 735
           ExplicitTop = 46
           ExplicitWidth = 735
@@ -866,8 +854,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited Bevel1: TBevel
         Left = 93
         Top = 92
+        Width = 73
         ExplicitLeft = 93
         ExplicitTop = 92
+        ExplicitWidth = 73
       end
       inherited Bevel3: TBevel
         Left = 368
@@ -890,7 +880,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited ImporteDto: TcxDBCurrencyEdit
         Left = 164
         Top = 112
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 164
         ExplicitTop = 112
         ExplicitWidth = 188
@@ -899,7 +893,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited ImporteIVA: TcxDBCurrencyEdit
         Left = 556
         Top = 38
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 556
         ExplicitTop = 38
         ExplicitWidth = 182
@@ -908,7 +906,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited ImporteTotal: TcxDBCurrencyEdit
         Left = 486
         Top = 112
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 486
         ExplicitTop = 112
         ExplicitWidth = 252
@@ -917,21 +919,33 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited edtDescuento: TcxDBSpinEdit
         Left = 93
         Top = 112
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 112
       end
       inherited edtIVA: TcxDBSpinEdit
         Left = 485
         Top = 38
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 485
         ExplicitTop = 38
       end
       inherited ImporteBase: TcxDBCurrencyEdit
         Left = 485
         Top = 11
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 485
         ExplicitTop = 11
         ExplicitWidth = 253
@@ -942,7 +956,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Top = 65
         DataBinding.DataField = ''
         DataBinding.DataSource = nil
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 485
         ExplicitTop = 65
       end
@@ -951,7 +969,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Top = 65
         DataBinding.DataField = ''
         DataBinding.DataSource = nil
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 556
         ExplicitTop = 65
         ExplicitWidth = 182
@@ -960,7 +982,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
       inherited eImporteNeto: TcxDBCurrencyEdit
         Left = 93
         Top = 11
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 11
         ExplicitWidth = 259
@@ -970,7 +996,11 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Left = 93
         Top = 139
         Properties.OnValidate = frViewTotales1ePortePropertiesValidate
+        Style.LookAndFeel.SkinName = ''
         Style.IsFontAssigned = True
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 139
         ExplicitWidth = 259
@@ -981,6 +1011,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Top = 38
         DataBinding.DataField = ''
         DataBinding.DataSource = nil
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 38
         ExplicitWidth = 121
@@ -996,6 +1030,10 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
         Left = 93
         Top = 65
         DataBinding.DataField = ''
+        Style.LookAndFeel.SkinName = ''
+        StyleDisabled.LookAndFeel.SkinName = ''
+        StyleFocused.LookAndFeel.SkinName = ''
+        StyleHot.LookAndFeel.SkinName = ''
         ExplicitLeft = 93
         ExplicitTop = 65
         ExplicitWidth = 259

Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas

@@ -89,6 +89,9 @@ type
     procedure AsignarVista; virtual;
 
     procedure PonerTitulos(const ATitulo: string = ''); override;
+    function GetModified: Boolean; override;
+    procedure SetModified(const Value : Boolean); override;
+
   public
     property Controller : IPresupuestosClienteController read GetController write SetController;
     property Presupuesto: IBizPresupuestoCliente read GetPresupuesto write SetPresupuesto;
@@ -223,6 +226,14 @@ begin
   Result := FController;
 end;
 
+function TfEditorPresupuestoCliente.GetModified: Boolean;
+begin
+  Result := inherited GetModified;
+
+  if not Result then
+     Result := frViewDocumentosPresupuestoCliente1.Modified;
+end;
+
 function TfEditorPresupuestoCliente.GetPresupuesto: IBizPresupuestoCliente;
 begin
   Result := FPresupuesto;
@@ -382,6 +393,12 @@ begin
   end;
 end;
 
+procedure TfEditorPresupuestoCliente.SetModified(const Value: Boolean);
+begin
+  inherited;
+  frViewDocumentosPresupuestoCliente1.Modified := Value;
+end;
+
 procedure TfEditorPresupuestoCliente.SetPresupuesto(const Value: IBizPresupuestoCliente);
 begin
   FPresupuesto := Value;

Source/Modulos/Presupuestos de cliente/Views/uViewDocumentosPresupuestoCliente.pas

@@ -73,7 +73,7 @@ begin
   FPresupuesto := Value;
   //Inicializamos la lista de documentos local con los ficheros del servidor
   if Assigned(FPresupuesto) and Assigned(FController) then
-     FListaFicheros := Controller.GestorDocumentosController.DarListaDocumentos(Presupuesto.ID);
+     ListaFicheros := Controller.GestorDocumentosController.DarListaDocumentos(Presupuesto.ID);
 
   RefrescarVisualizador;
 end;
@@ -93,7 +93,7 @@ begin
       ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
   end;
 }
-  Controller.GestorDocumentosController.SincronizarDocumentos(Presupuesto.ID, FListaFicheros, Directorio);
+  Controller.GestorDocumentosController.SincronizarDocumentos(Presupuesto.ID, ListaFicheros, Directorio);
 end;
 
 end.

Source/Servidor/FactuGES_Server.dproj

@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
 	<PropertyGroup>
 		<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>

Source/Servidor/FactuGES_Server.rc

@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.2.4.0\0"
               VALUE "ProductVersion", "1.2.4.0\0"
-              VALUE "CompileDate", "miércoles, 27 de agosto de 2008 18:30\0"
+              VALUE "CompileDate", "jueves, 28 de agosto de 2008 16:48\0"
          END
     END
     BLOCK "VarFileInfo"