Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@527 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-08-22 12:20:49 +00:00
parent cec35fe4c3
commit 253cc6e33b
5 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Articulos/Controller/uArticulosController.pas
View File

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

4
Source/Modulos/Fabricantes/Controller/uFabricantesController.pas
View File

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

4
Source/Modulos/Familias/Controller/uFamiliasController.pas
View File

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

4
Source/Modulos/Formas de pago/Controller/uFormasPagoController.pas
View File

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

4
Source/Modulos/Obras/Controller/uObrasController.pas
View File

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