diff --git a/Source/Modulos/Articulos/Controller/uArticulosController.pas b/Source/Modulos/Articulos/Controller/uArticulosController.pas index 4b7c593b..56a01fab 100644 --- a/Source/Modulos/Articulos/Controller/uArticulosController.pas +++ b/Source/Modulos/Articulos/Controller/uArticulosController.pas @@ -9,7 +9,7 @@ uses uBizContactos; type - IArticulosController = interface(IObservador) + IArticulosController = interface(IControllerBase) ['{C7EA6486-7BE4-468E-A27A-621E1BA13430}'] function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; overload; function BuscarInventariables: IBizArticulo; @@ -46,7 +46,7 @@ type function DarPrecioPVPVenta(IdArticulo: Integer): TStringList; end; - TArticulosController = class(TObservador, IArticulosController) + TArticulosController = class(TControllerBase, IArticulosController) protected FDataModule : IDataModuleArticulos; FProveedoresController: IProveedoresController; diff --git a/Source/Modulos/Fabricantes/Controller/uFabricantesController.pas b/Source/Modulos/Fabricantes/Controller/uFabricantesController.pas index 521ce5a2..ca883bdf 100644 --- a/Source/Modulos/Fabricantes/Controller/uFabricantesController.pas +++ b/Source/Modulos/Fabricantes/Controller/uFabricantesController.pas @@ -8,7 +8,7 @@ uses uIDataModuleFabricantes, uBizFabricantes; type - IFabricantesController = interface(IObservador) + IFabricantesController = interface(IControllerBase) ['{8D56360B-0AAA-41FA-9C48-90C586B07E37}'] function BuscarTodos: IBizFabricante; procedure VerTodos(AFabricantes: IBizFabricante); @@ -20,7 +20,7 @@ type function DarListaFabricantes: TStringList; end; - TFabricantesController = class(TObservador, IFabricantesController) + TFabricantesController = class(TControllerBase, IFabricantesController) protected FDataModule : IDataModuleFabricantes; diff --git a/Source/Modulos/Familias/Controller/uFamiliasController.pas b/Source/Modulos/Familias/Controller/uFamiliasController.pas index 326ad5ce..36ead814 100644 --- a/Source/Modulos/Familias/Controller/uFamiliasController.pas +++ b/Source/Modulos/Familias/Controller/uFamiliasController.pas @@ -8,7 +8,7 @@ uses uIDataModuleFamilias, uBizFamilias; type - IFamiliasController = interface(IObservador) + IFamiliasController = interface(IControllerBaser) ['{3987874F-57A8-4C71-8B7E-CBD2D1580CBC}'] function BuscarTodos: IBizFamilia; procedure VerTodos(AFamilias: IBizFamilia); @@ -20,7 +20,7 @@ type function DarListaFamilias: TStringList; end; - TFamiliasController = class(TObservador, IFamiliasController) + TFamiliasController = class(TControllerBase, IFamiliasController) protected FDataModule : IDataModuleFamilias; diff --git a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas index d0560403..41db2d5b 100644 --- a/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas +++ b/Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas @@ -7,7 +7,7 @@ uses Classes, SysUtils, uDADataTable, uControllerBase, uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago; type - IFormasPagoController = interface(IObservador) + IFormasPagoController = interface(IControllerBase) ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] function BuscarTodos: IBizFormaPago; function Buscar(ID: Integer): IBizFormaPago; @@ -21,7 +21,7 @@ type function DarListaFormasPago: TStringList; end; - TFormasPagoController = class(TObservador, IFormasPagoController) + TFormasPagoController = class(TControllerBase, IFormasPagoController) protected FDataModule : IDataModuleFormasPago; FPlazosController : IFormasPagoPlazosController; diff --git a/Source/Modulos/Obras/Controller/uObrasController.pas b/Source/Modulos/Obras/Controller/uObrasController.pas index 78db8209..fa8fd9ce 100644 --- a/Source/Modulos/Obras/Controller/uObrasController.pas +++ b/Source/Modulos/Obras/Controller/uObrasController.pas @@ -8,7 +8,7 @@ uses uIDataModuleObras, uBizObras, uBizDireccionesContacto; type - IObrasController = interface(IObservador) + IObrasController = interface(IControllerBase) ['{FC563E47-7634-4227-9E4F-ED15C5C3A783}'] function Buscar(const ID: Integer): IBizObra; function BuscarTodos: IBizObra; @@ -30,7 +30,7 @@ type procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AObra: IBizObra); end; - TObrasController = class(TObservador, IObrasController) + TObrasController = class(TControllerBase, IObrasController) protected FDataModule : IDataModuleObras;