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
This commit is contained in:
parent
66a6cb4a91
commit
576ea93743
@ -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>
|
||||
|
||||
Binary file not shown.
@ -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="..\Modulos\Presupuestos de cliente\Views\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Views\vcl.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\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.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>
|
||||
|
||||
Binary file not shown.
@ -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];
|
||||
if Length(ANombreFichero) > 0 then
|
||||
CopiarFichero(ANombreFichero, (Directorio + ExtractFileName(ANombreFichero)));
|
||||
ANombreSeleccionado := openDialog.Files.Strings[i];
|
||||
if Length(ANombreSeleccionado) > 0 then
|
||||
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.
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -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 */
|
||||
|
||||
@ -202,111 +202,99 @@ inherited fEditorPresupuestoCliente: TfEditorPresupuestoCliente
|
||||
Height = 46
|
||||
ExplicitWidth = 735
|
||||
ExplicitHeight = 46
|
||||
inherited ToolButton3: TToolButton
|
||||
Wrap = False
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
Left = 109
|
||||
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
|
||||
Left = 278
|
||||
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
|
||||
ExplicitLeft = 65
|
||||
ExplicitTop = 44
|
||||
Top = 22
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton6: TToolButton [9]
|
||||
Left = 73
|
||||
Top = 44
|
||||
ExplicitLeft = 73
|
||||
ExplicitTop = 44
|
||||
inherited FontSize: TEdit
|
||||
Top = 22
|
||||
Width = 200
|
||||
ExplicitTop = 22
|
||||
ExplicitWidth = 200
|
||||
end
|
||||
inherited ToolButton7: TToolButton [10]
|
||||
Left = 139
|
||||
Top = 44
|
||||
ExplicitLeft = 139
|
||||
ExplicitTop = 44
|
||||
inherited UpDown1: TUpDown
|
||||
Left = 345
|
||||
Top = 22
|
||||
ExplicitLeft = 345
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton8: TToolButton [11]
|
||||
Left = 206
|
||||
Top = 44
|
||||
ExplicitLeft = 206
|
||||
ExplicitTop = 44
|
||||
inherited ToolButton13: TToolButton
|
||||
Left = 362
|
||||
Top = 22
|
||||
ExplicitLeft = 362
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton12: TToolButton [12]
|
||||
Left = 289
|
||||
Top = 44
|
||||
Wrap = False
|
||||
ExplicitLeft = 289
|
||||
ExplicitTop = 44
|
||||
ExplicitHeight = 22
|
||||
inherited ToolButton6: TToolButton
|
||||
Left = 370
|
||||
Top = 22
|
||||
ExplicitLeft = 370
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton9: TToolButton [13]
|
||||
Left = 297
|
||||
Top = 44
|
||||
ExplicitLeft = 297
|
||||
ExplicitTop = 44
|
||||
inherited ToolButton7: TToolButton
|
||||
Left = 436
|
||||
Top = 22
|
||||
ExplicitLeft = 436
|
||||
ExplicitTop = 22
|
||||
end
|
||||
inherited ToolButton10: TToolButton [14]
|
||||
Left = 442
|
||||
Top = 44
|
||||
Wrap = False
|
||||
ExplicitLeft = 442
|
||||
ExplicitTop = 44
|
||||
inherited ToolButton8: TToolButton
|
||||
Left = 503
|
||||
Top = 22
|
||||
ExplicitLeft = 503
|
||||
ExplicitTop = 22
|
||||
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
|
||||
Top = 44
|
||||
ExplicitLeft = 567
|
||||
ExplicitTop = 44
|
||||
Left = 270
|
||||
Top = 49
|
||||
ExplicitLeft = 270
|
||||
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
|
||||
|
||||
@ -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;
|
||||
|
||||
@ -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.
|
||||
|
||||
Binary file not shown.
@ -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>
|
||||
|
||||
@ -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"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user