Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

En los controladores, cambiar TObservador por TControllerBase

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas
View File

@ -9,7 +9,7 @@ uses
uBizAlbaranesProveedor, uBizDireccionesContacto; uBizAlbaranesProveedor, uBizDireccionesContacto;
type type
IFacturasProveedorController = interface(IObservador) IFacturasProveedorController = interface(IControllerBase)
['{3868267C-E61A-4B79-AF61-648B2D627F56}'] ['{3868267C-E61A-4B79-AF61-648B2D627F56}']
function GetProveedorController: IProveedoresController; function GetProveedorController: IProveedoresController;
procedure SetProveedorController(const Value: IProveedoresController); procedure SetProveedorController(const Value: IProveedoresController);
@ -53,7 +53,7 @@ type
procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer); procedure SetIgnorarContabilidad (AFactura: IBizFacturaProveedor; const Ignorar: Integer);
end; end;
TFacturasProveedorController = class(TObservador, IFacturasProveedorController) TFacturasProveedorController = class(TControllerBase, IFacturasProveedorController)
private private
FDataModule : IDataModuleFacturasProveedor; FDataModule : IDataModuleFacturasProveedor;
FProveedorController : IProveedoresController; FProveedorController : IProveedoresController;

4
Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleUnidadesMedida, uBizUnidadesMedida; uIDataModuleUnidadesMedida, uBizUnidadesMedida;
type type
IUnidadesMedidaController = interface(IObservador) IUnidadesMedidaController = interface(IControllerBase)
['{8D56360B-0AAA-41FA-9C48-90C586B07E37}'] ['{8D56360B-0AAA-41FA-9C48-90C586B07E37}']
function BuscarTodos: IBizUnidadMedida; function BuscarTodos: IBizUnidadMedida;
procedure VerTodos(AUnidadesMedida: IBizUnidadMedida); procedure VerTodos(AUnidadesMedida: IBizUnidadMedida);
@ -20,7 +20,7 @@ type
function DarListaUnidadesMedida: TStringList; function DarListaUnidadesMedida: TStringList;
end; end;
TUnidadesMedidaController = class(TObservador, IUnidadesMedidaController) TUnidadesMedidaController = class(TControllerBase, IUnidadesMedidaController)
protected protected
FDataModule : IDataModuleUnidadesMedida; FDataModule : IDataModuleUnidadesMedida;