diff --git a/Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas b/Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas
index f042c502..636be4e9 100644
--- a/Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas
+++ b/Source/Modulos/Fabricantes/Model/schFabricantesClient_Intf.pas
@@ -3,7 +3,7 @@ unit schFabricantesClient_Intf;
 interface
 
 uses
-  Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
+  Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
 
 const
   { Data table rules ids
@@ -45,7 +45,7 @@ type
   end;
 
   { TFabricantesDataTableRules }
-  TFabricantesDataTableRules = class(TDADataTableRules, IFabricantes)
+  TFabricantesDataTableRules = class(TIntfObjectDADataTableRules, IFabricantes)
   private
   protected
     { Property getters and setters }
diff --git a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas
index 98e6aca9..f4c9ecfc 100644
--- a/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
+++ b/Source/Modulos/Facturas de cliente/Controller/uFacturasClienteController.pas	
@@ -117,8 +117,7 @@ uses
   uDataModuleUsuarios, uDAInterfaces, uDataTableUtils, uDateUtils,
   uAlbaranesClienteController, schAlbaranesClienteClient_Intf, uROTypes, uDetallesAlbaranClienteController,
   uBizDetallesAlbaranCliente, uFacturasClienteReportController,
-  DateUtils, Forms, Dialogs,
-  uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
+  DateUtils, Forms, uFormasPagoController, uBizFormasPago, uIEditorElegirFacturasCliente,
   uRecibosClienteController, uBizRecibosCliente;
 
 
@@ -1105,4 +1104,3 @@ begin
 end;
 
 end.
- 
\ No newline at end of file
diff --git a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas
index 8e3b6ee5..e15c8d6a 100644
--- a/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
+++ b/Source/Modulos/Presupuestos de cliente/Controller/uPresupuestosClienteController.pas	
@@ -643,7 +643,7 @@ end;
 
 function TPresupuestosClienteController.Guardar(APresupuesto: IBizPresupuestoCliente): Boolean;
 var
-  IDNuevo: Integer;
+  IDNuevo: Integer;  
 begin
   Result := False;