diff --git a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas index 12cba1f4..07b2c389 100644 --- a/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas +++ b/Source/Modulos/Facturas de proveedor/Controller/uFacturasProveedorController.pas @@ -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; diff --git a/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas b/Source/Modulos/Unidades de medida/Controller/uUnidadesMedidaController.pas index 62ff8789..2d38b040 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;