En los controladores, cambiar TObservador por TControllerBase

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

Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleUsuarios, uBizUsuarios;
 
 type
-  IPerfilesUsuarioController = interface(IObservador)
+  IPerfilesUsuarioController = interface(IControllerBase)
   ['{3D60BC4E-B244-4C08-9A1A-00A7C3B74558}']
     function BuscarTodos: IBizPerfilUsuario;
     procedure VerTodos;
@@ -22,7 +22,7 @@ type
     function DarListaPerfilesUsuario: TStringList;
   end;
 
-  TPerfilesUsuarioController = class(TObservador, IPerfilesUsuarioController)
+  TPerfilesUsuarioController = class(TControllerBase, IPerfilesUsuarioController)
   protected
     FDataModule : IDataModuleUsuarios;
 

Source/Modulos/Almacenes/Controller/uAlmacenesController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleAlmacenes, uBizAlmacenes;
 
 type
-  IAlmacenesController = interface(IObservador)
+  IAlmacenesController = interface(IControllerBase)
   ['{1F5E5845-5B29-4C08-87F0-D753E5454068}']
     function Buscar(const ID: Integer): IBizAlmacen;
     function BuscarTodos: IBizAlmacen;
@@ -27,7 +27,7 @@ type
     procedure Print(AAlmacen : IBizAlmacen);
   end;
 
-  TAlmacenesController = class(TObservador, IAlmacenesController)
+  TAlmacenesController = class(TControllerBase, IAlmacenesController)
   protected
     FDataModule : IDataModuleAlmacenes;
 

Source/Modulos/Inventario/Controller/uInventarioController.pas

@@ -15,10 +15,8 @@ const
   CTE_INV_OBRA = 'OBRA';
 
 type
-  IInventarioController = interface(IObservador)
+  IInventarioController = interface(IControllerBase)
   ['{FB1DE6BA-ADCC-4A83-B4D4-37DC5892766B}']
-
-
     function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
     function Trasladar(AInventario : IBizInventario; Todos: Boolean): Boolean;
 //    procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload;
@@ -57,7 +55,7 @@ type
     procedure Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); overload;
   end;
 
-  TInventarioController = class(TObservador, IInventarioController)
+  TInventarioController = class(TControllerBase, IInventarioController)
   private
     FAlmacenesController: IAlmacenesController;
     FObrasController: IObrasController;    

Source/Modulos/Referencias/Controller/uReferenciasController.pas

@@ -8,7 +8,7 @@ uses
   uIDataModuleReferencias, uBizReferencias;
 
 type
-  IReferenciasController = interface(IObservador)
+  IReferenciasController = interface(IControllerBase)
   ['{832E33B0-3228-4519-A740-F551DF3004DD}']
     function BuscarTodos: IBizReferencia;
     procedure VerTodos(AReferencias: IBizReferencia);
@@ -16,10 +16,9 @@ type
     procedure DescartarCambios(AReferencia : IBizReferencia);
   end;
 
-  TReferenciasController = class(TObservador, IReferenciasController)
+  TReferenciasController = class(TControllerBase, IReferenciasController)
   protected
     FDataModule : IDataModuleReferencias;
-
 //    procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
     function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;
 

Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas

@@ -30,7 +30,7 @@ uses
   uBizTiposIVA, uIDataModuleTiposIVA;
 
 type
-  ITiposIVAController = interface(IObservador)
+  ITiposIVAController = interface(IControllerBase)
   ['{DD8BBB7C-3688-4FCA-80EF-47FB61175D62}']
     procedure Anadir(ATipoIVA : IBizTipoIVA);
     function Eliminar(ATipoIVA : IBizTipoIVA): Boolean;
@@ -47,7 +47,7 @@ type
     function ExtraerSeleccionados(ATipoIVA: IBizTipoIVA) : IBizTipoIVA;
   end;
 
-  TTiposIVAController = class(TObservador, ITiposIVAController)
+  TTiposIVAController = class(TControllerBase, ITiposIVAController)
   protected
     FDataModule : IDataModuleTiposIVA;
 

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;