From afb16d300c44e592618df62f2c0db37d50ec98f0 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 28 Aug 2008 11:26:14 +0000
Subject: [PATCH] En los controladores, cambiar TObservador por TControllerBase

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@307 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 .../Controller/uFacturasProveedorController.pas               | 4 ++--
 .../Controller/uUnidadesMedidaController.pas                  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
index 12cba1f4..07b2c389 100644
--- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
+++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas	
@@ -9,7 +9,7 @@ uses
   uBizAlbaranesProveedor, uBizDireccionesContacto;
 
 type
-  IFacturasProveedorController = interface(IObservador)
+  IFacturasProveedorController = interface(IControllerBase)
   ['{3868267C-E61A-4B79-AF61-648B2D627F56}']
     function GetProveedorController: IProveedoresController;
     procedure SetProveedorController(const Value: IProveedoresController);
@@ -53,7 +53,7 @@ type
     procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
   end;
 
-  TFacturasProveedorController = class(TObservador, IFacturasProveedorController)
+  TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
   private
     FDataModule : IDataModuleFacturasProveedor;
     FProveedorController : IProveedoresController;
diff --git a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
index 62ff8789..2d38b040 100644
--- a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas	
+++ b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas	
@@ -8,7 +8,7 @@ uses
   uIDataModuleUnidadesMedida, uBizUnidadesMedida;
 
 type
-  IUnidadesMedidaController = interface(IObservador)
+  IUnidadesMedidaController = interface(IControllerBase)
   ['{8D56360B-0AAA-41FA-9C48-90C586B07E37}']
     function BuscarTodos: IBizUnidadMedida;
     procedure VerTodos(AUnidadesMedida: IBizUnidadMedida);
@@ -20,7 +20,7 @@ type
     function DarListaUnidadesMedida: TStringList;
   end;
 
-  TUnidadesMedidaController = class(TObservador, IUnidadesMedidaController)
+  TUnidadesMedidaController = class(TControllerBase, IUnidadesMedidaController)
   protected
     FDataModule : IDataModuleUnidadesMedida;