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; uBizContactos;
type type
IArticulosController = interface(IObservador) IArticulosController = interface(IControllerBase)
['{C7EA6486-7BE4-468E-A27A-621E1BA13430}'] ['{C7EA6486-7BE4-468E-A27A-621E1BA13430}']
function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; overload; function Buscar(const ID: Integer; AClienteID: Integer = -1): IBizArticulo; overload;
function BuscarInventariables: IBizArticulo; function BuscarInventariables: IBizArticulo;
@ -46,7 +46,7 @@ type
function DarPrecioPVPVenta(IdArticulo: Integer): TStringList; function DarPrecioPVPVenta(IdArticulo: Integer): TStringList;
end; end;
TArticulosController = class(TObservador, IArticulosController) TArticulosController = class(TControllerBase, IArticulosController)
protected protected
FDataModule : IDataModuleArticulos; FDataModule : IDataModuleArticulos;
FProveedoresController: IProveedoresController; FProveedoresController: IProveedoresController;

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

@ -8,7 +8,7 @@ uses
uIDataModuleFabricantes, uBizFabricantes; uIDataModuleFabricantes, uBizFabricantes;
type type
IFabricantesController = interface(IObservador) IFabricantesController = interface(IControllerBase)
['{8D56360B-0AAA-41FA-9C48-90C586B07E37}'] ['{8D56360B-0AAA-41FA-9C48-90C586B07E37}']
function BuscarTodos: IBizFabricante; function BuscarTodos: IBizFabricante;
procedure VerTodos(AFabricantes: IBizFabricante); procedure VerTodos(AFabricantes: IBizFabricante);
@ -20,7 +20,7 @@ type
function DarListaFabricantes: TStringList; function DarListaFabricantes: TStringList;
end; end;
TFabricantesController = class(TObservador, IFabricantesController) TFabricantesController = class(TControllerBase, IFabricantesController)
protected protected
FDataModule : IDataModuleFabricantes; FDataModule : IDataModuleFabricantes;

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

@ -8,7 +8,7 @@ uses
uIDataModuleFamilias, uBizFamilias; uIDataModuleFamilias, uBizFamilias;
type type
IFamiliasController = interface(IObservador) IFamiliasController = interface(IControllerBaser)
['{3987874F-57A8-4C71-8B7E-CBD2D1580CBC}'] ['{3987874F-57A8-4C71-8B7E-CBD2D1580CBC}']
function BuscarTodos: IBizFamilia; function BuscarTodos: IBizFamilia;
procedure VerTodos(AFamilias: IBizFamilia); procedure VerTodos(AFamilias: IBizFamilia);
@ -20,7 +20,7 @@ type
function DarListaFamilias: TStringList; function DarListaFamilias: TStringList;
end; end;
TFamiliasController = class(TObservador, IFamiliasController) TFamiliasController = class(TControllerBase, IFamiliasController)
protected protected
FDataModule : IDataModuleFamilias; FDataModule : IDataModuleFamilias;

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

@ -7,7 +7,7 @@ uses
Classes, SysUtils, uDADataTable, uControllerBase, Classes, SysUtils, uDADataTable, uControllerBase,
uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago; uBizFormasPago, uFormasPagoPlazosController, uIDataModuleFormasPago;
type type
IFormasPagoController = interface(IObservador) IFormasPagoController = interface(IControllerBase)
['{94E5F2B6-64C8-4331-B9CB-3ED730478529}'] ['{94E5F2B6-64C8-4331-B9CB-3ED730478529}']
function BuscarTodos: IBizFormaPago; function BuscarTodos: IBizFormaPago;
function Buscar(ID: Integer): IBizFormaPago; function Buscar(ID: Integer): IBizFormaPago;
@ -21,7 +21,7 @@ type
function DarListaFormasPago: TStringList; function DarListaFormasPago: TStringList;
end; end;
TFormasPagoController = class(TObservador, IFormasPagoController) TFormasPagoController = class(TControllerBase, IFormasPagoController)
protected protected
FDataModule : IDataModuleFormasPago; FDataModule : IDataModuleFormasPago;
FPlazosController : IFormasPagoPlazosController; FPlazosController : IFormasPagoPlazosController;

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

@ -8,7 +8,7 @@ uses
uIDataModuleObras, uBizObras, uBizDireccionesContacto; uIDataModuleObras, uBizObras, uBizDireccionesContacto;
type type
IObrasController = interface(IObservador) IObrasController = interface(IControllerBase)
['{FC563E47-7634-4227-9E4F-ED15C5C3A783}'] ['{FC563E47-7634-4227-9E4F-ED15C5C3A783}']
function Buscar(const ID: Integer): IBizObra; function Buscar(const ID: Integer): IBizObra;
function BuscarTodos: IBizObra; function BuscarTodos: IBizObra;
@ -30,7 +30,7 @@ type
procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AObra: IBizObra); procedure CopiarDireccion (const ADireccionEnvio: IBizDireccionesContacto; AObra: IBizObra);
end; end;
TObrasController = class(TObservador, IObrasController) TObrasController = class(TControllerBase, IObrasController)
protected protected
FDataModule : IDataModuleObras; FDataModule : IDataModuleObras;