diff --git a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas
index 4fd19bb4..01f53246 100644
--- a/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Data/uDataModulePresupuestosCliente.pas	
@@ -41,12 +41,6 @@ type
     function GetRptWordPresupuesto(const AID: Integer): Binary;
     function GetRptWordCertificadoTrabajos(const AID: Integer): Binary;
     function GetRptPDFPresupuesto(const AID: Integer): Binary;
-
-{    function DarListaDocumentos(const ID : Integer): TStringList;
-    function DescargarFichero(const ID : Integer; const NombreFichero: String; const DestinoFichero: String): Boolean;
-    function SubirFichero(const ID : Integer; const NombreFichero: String; const Fichero: Binary): Boolean;
-    function EliminarFichero(const ID : Integer; const NombreFichero: String): Boolean;
-}
   end;
 
 implementation
@@ -70,50 +64,6 @@ begin
   RORemoteService.Message := dmConexion.Message;
 end;
 
-{
-function TDataModulePresupuestosCliente.DarListaDocumentos(const ID: Integer): TStringList;
-var
-  AResultado : StringArray;
-  i: Integer;
-begin
-  try
-    AResultado := (RORemoteService1 as IsrvGestorDocumentos).DarListaFicheros(TRdxAlmacenes_Presupuestos, ID);
-    Result := TStringList.Create;
-    for i:= 0 to AResultado.Count - 1 do
-        Result.Add(AResultado.Items[i]);
-  finally
-    FreeANDNIL(AResultado)
-  end;
-end;
-
-function TDataModulePresupuestosCliente.DescargarFichero(const ID: Integer; const NombreFichero: String;
-const DestinoFichero: String): Boolean;
-var
-  AFichero: Binary;
-
-begin
- Result := False;
- try
-   AFichero := (RORemoteService1 as IsrvGestorDocumentos).DescargarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
-   AFichero.SaveToFile((DestinoFichero + NombreFichero));
-   Result := True;
- finally
-   FreeAndNil(AFichero);
- end;
-end;
-
-function TDataModulePresupuestosCliente.EliminarFichero(const ID: Integer; const NombreFichero: String): Boolean;
-begin
- Result := False;
- try
-   Result := (RORemoteService1 as IsrvGestorDocumentos).EliminarFichero(TRdxAlmacenes_Presupuestos, ID, NombreFichero);
- finally
-   //
- end;
-end;
-}
-
-
 function TDataModulePresupuestosCliente.GetRptPDFPresupuesto(
   const AID: Integer): Binary;
 var