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:
parent
91217446eb
commit
afb16d300c
@ -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;
|
||||
|
||||
@ -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;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user