From cec35fe4c3c0ec7fdb9b1a05eabe988a2224037f Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Fri, 22 Aug 2008 12:19:25 +0000
Subject: [PATCH] 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
---
 .../Controller/uPerfilesUsuarioController.pas |   4 ++--
 .../Controller/uAlmacenesController.pas       |   4 ++--
 .../uHistoricoMovimientosController.pas       | Bin 7189 -> 7197 bytes
 .../Controller/uInventarioController.pas      |   6 ++----
 .../Controller/uReferenciasController.pas     |   5 ++---
 .../Controller/uTiposIVAController.pas        |   4 ++--
 .../Controller/uUnidadesMedidaController.pas  |   4 ++--
 7 files changed, 12 insertions(+), 15 deletions(-)

diff --git a/Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas b/Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas
index 614e986b..d8240540 100644
--- a/Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas
+++ b/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;
 
diff --git a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas b/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
index eb2fcd61..d72a9f98 100644
--- a/Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
+++ b/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;
 
diff --git a/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas b/Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
index 624d06ffc6aa22ae76e183250b4fefd34e5ef98a..bf8de8e706c367c28e7e5ea31ab6156c7bf0fc99 100644
GIT binary patch
delta 51
vcmbPgG1p=PA0wZ0eqKpYeojtmkyB!E>ShVXSIqpVVmcEaC~VeceIW(_<YE&R

delta 43
rcmbPhG1X!NA0wB4QgLcgSz=0l(PkOOSIpc9zRtu43Y$$?Ux)z!RzwgA

diff --git a/Source/Modulos/Inventario/Controller/uInventarioController.pas b/Source/Modulos/Inventario/Controller/uInventarioController.pas
index f08c5209..11e732aa 100644
--- a/Source/Modulos/Inventario/Controller/uInventarioController.pas
+++ b/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;    
diff --git a/Source/Modulos/Referencias/Controller/uReferenciasController.pas b/Source/Modulos/Referencias/Controller/uReferenciasController.pas
index e6482be8..39023e14 100644
--- a/Source/Modulos/Referencias/Controller/uReferenciasController.pas
+++ b/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;
 
diff --git a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas b/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
index 2936ae85..83a8d585 100644
--- a/Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas	
+++ b/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;
 
diff --git a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
index a4217cbb..96bc3c43 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;