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@526 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-08-22 12:19:25 +00:00
parent 4f13f3f1fe
commit cec35fe4c3
7 changed files with 12 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/ApplicationBase/Usuarios/Controller/uPerfilesUsuarioController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleUsuarios, uBizUsuarios;
type
IPerfilesUsuarioController = interface(IObservador)
IPerfilesUsuarioController = interface(IControllerBase)
['{3D60BC4E-B244-4C08-9A1A-00A7C3B74558}']
function BuscarTodos: IBizPerfilUsuario;
procedure VerTodos;
@ -22,7 +22,7 @@ type
function DarListaPerfilesUsuario: TStringList;
end;
TPerfilesUsuarioController = class(TObservador, IPerfilesUsuarioController)
TPerfilesUsuarioController = class(TControllerBase, IPerfilesUsuarioController)
protected
FDataModule : IDataModuleUsuarios;

4
Source/Modulos/Almacenes/Controller/uAlmacenesController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleAlmacenes, uBizAlmacenes;
type
IAlmacenesController = interface(IObservador)
IAlmacenesController = interface(IControllerBase)
['{1F5E5845-5B29-4C08-87F0-D753E5454068}']
function Buscar(const ID: Integer): IBizAlmacen;
function BuscarTodos: IBizAlmacen;
@ -27,7 +27,7 @@ type
procedure Print(AAlmacen : IBizAlmacen);
end;
TAlmacenesController = class(TObservador, IAlmacenesController)
TAlmacenesController = class(TControllerBase, IAlmacenesController)
protected
FDataModule : IDataModuleAlmacenes;

BIN
Source/Modulos/Historico de movimientos/Controller/uHistoricoMovimientosController.pas
View File

Binary file not shown.

6
Source/Modulos/Inventario/Controller/uInventarioController.pas
View File

@ -15,10 +15,8 @@ const
CTE_INV_OBRA = 'OBRA';
type
IInventarioController = interface(IObservador)
IInventarioController = interface(IControllerBase)
['{FB1DE6BA-ADCC-4A83-B4D4-37DC5892766B}']
function Eliminar(AInventario : IBizInventario; Todos: Boolean; ApplyUpdates: Boolean): Boolean;
function Trasladar(AInventario : IBizInventario; Todos: Boolean): Boolean;
// procedure RecibirArticulos(Const APedido: IBizPedidoProveedor; Const CodigoAlmacenDes: Integer); overload;
@ -57,7 +55,7 @@ type
procedure Copiar(AArticulos: IBizInventario; ADetalles: IDAStronglyTypedDataTable; AInventario: IBizInventario); overload;
end;
TInventarioController = class(TObservador, IInventarioController)
TInventarioController = class(TControllerBase, IInventarioController)
private
FAlmacenesController: IAlmacenesController;
FObrasController: IObrasController;

5
Source/Modulos/Referencias/Controller/uReferenciasController.pas
View File

@ -8,7 +8,7 @@ uses
uIDataModuleReferencias, uBizReferencias;
type
IReferenciasController = interface(IObservador)
IReferenciasController = interface(IControllerBase)
['{832E33B0-3228-4519-A740-F551DF3004DD}']
function BuscarTodos: IBizReferencia;
procedure VerTodos(AReferencias: IBizReferencia);
@ -16,10 +16,9 @@ type
procedure DescartarCambios(AReferencia : IBizReferencia);
end;
TReferenciasController = class(TObservador, IReferenciasController)
TReferenciasController = class(TControllerBase, IReferenciasController)
protected
FDataModule : IDataModuleReferencias;
// procedure RecibirAviso(ASujeto: ISujeto; ADataTable: IDAStronglyTypedDataTable); override;
function CreateEditor(const AName : String; const IID: TGUID; out Intf): Boolean;

4
Source/Modulos/Tipos de IVA/Controller/uTiposIVAController.pas
View File

@ -30,7 +30,7 @@ uses
uBizTiposIVA, uIDataModuleTiposIVA;
type
ITiposIVAController = interface(IObservador)
ITiposIVAController = interface(IControllerBase)
['{DD8BBB7C-3688-4FCA-80EF-47FB61175D62}']
procedure Anadir(ATipoIVA : IBizTipoIVA);
function Eliminar(ATipoIVA : IBizTipoIVA): Boolean;
@ -47,7 +47,7 @@ type
function ExtraerSeleccionados(ATipoIVA: IBizTipoIVA) : IBizTipoIVA;
end;
TTiposIVAController = class(TObservador, ITiposIVAController)
TTiposIVAController = class(TControllerBase, ITiposIVAController)
protected
FDataModule : IDataModuleTiposIVA;

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

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