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
This commit is contained in:
David Arranz 2008-08-28 11:26:14 +00:00
parent 91217446eb
commit afb16d300c
2 changed files with 4 additions and 4 deletions

View File

@ -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;

View File

@ -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;